补充一下,我的命令流文件为:
/BATCH !加载对流,并且感应圈为8圈
/CLEAR
/TITLE, DAOGUAN INDUC
/PREP7
EMUNIT,MKS !定义国际单位制,米
*AFUN,DEG !定义角度单位为度
ET,1,SOLID117 !定义空气单元
ET,2,SOLID117,1 !定义导管单元
ET,3,SOLID117 !定义线圈单元
MP,MURX,1,1
!MP,RSVX,1,0.1724E-7 !定义线圈的材料
MP,MURX,2,1.01 !定义不锈钢材料
MP,RSVX,2,0.88E-6 !定义不锈钢的电阻率
MP,MURX,3,1 !定义空气的磁导率
FTIME=1 !定义分析最终结束的时间
TINC=1 !谐性分析的时间增量
TIME=0 !初始化时间
DELT=0.2 !最大的时间步长
RID1=0.028
RID2=0.026
Z1=0.2
Z2=-0.2
ROUT=0.12
CSYS,0
CYLIND,RID1,RID2, 0.024 , 0.01975,0,360, !生成8匝平行线圈
CYLIND,RID1,RID2, 0.01775, 0.0135 ,0,360,
CYLIND,RID1,RID2, 0.0115 , 0.00725,0,360,
CYLIND,RID1,RID2, 0.00525, 0.001 ,0,360,
CYLIND,RID1,RID2,-0.001 ,-0.00525,0,360,
CYLIND,RID1,RID2,-0.00725,-0.0115 ,0,360,
CYLIND,RID1,RID2,-0.0135 ,-0.01775,0,360,
CYLIND,RID1,RID2,-0.01975,-0.024 ,0,360,
CYLIND,0.018,0.0172,0.04,-0.04,0,360, !生成不锈钢模型
CYLIND,0.020,0.018,0.0175,-0.0175,0,360,
VADD,9,10
NUMCMP,VOLUME
CYLIND,ROUT,,Z1,Z2,0,360, !生成围绕不锈钢导管的空气
NUMCMP,VOLUME !压缩实体的编号
VOVLAP,ALL !体搭接
NUMCMP,AREA
NUMCMP,VOLUME !压缩实体的编号
/NUMBER,0
/PNUM,VOLU,1 !显示实体的颜色和编号
/REPLOT
VSEL,S,VOLUM, ,1,8,1
VATT,1,1,3
VSEL,S,VOLUM, ,10
VATT,3,1,1
VSEL,S,VOLUM, ,9
VATT,2,1,2
VSEL,ALL
SMART,8
MSHAPE,1,3D
MSHKEY,0
VMESH,ALL
VSEL,ALL
VIMP,ALL,1,3
SAVE
FINISH
/SOLU !求解
CSYS,1 !坐标系定义为球坐标系
ASEL,S,LOC,X,ROUT !定义通量平行条件
ASEL,A,LOC,Z,Z1
ASEL,A,LOC,Z,Z2
DA,ALL,AZ,0
ASEL,ALL
ESEL,S,MAT, ,1
BFE,ALL,JS, ,0.84E8,
ESEL,ALL
ANTYP,HARM !谐性分析
HARFR,20000 !分析频率
PHYSICS,WRITE,EMAG !写入电磁场物理环境文件
FINISH
!定义热分析物理环境
/PREP7
LSCLEAR,ALL
ET,1,0 !定义空气单元为空单元
ET,2,SOLID90 !定义导管单元
ET,3,0 !定义线圈单元为空单元
MP,KXX,2,30
!MP,KYY,2,30
!MP,KZZ,2,30
MP,C,2,500 !定义不锈钢工件的比热
MP,DENS,2,7900 !定义不锈钢工件的密度
FINISH
/SOLU
ANTYPE,TRANS
TOFFST,273
TUNIF,25
CNVTOL,HEAT,1
KBC,1
TRNOPT,FULL
AUTOS,ON
DELTIM,5E-3,5E-4,DELT,ON
OUTRES,BASIC,ALL
PHYSICS,WRITE,THERMAL
SAVE
FINISH
*DO,I,1,FTIME/TINC ! solution *do loop
TIME=TIME+TINC ! increment time
PHYSICS,READ,EMAG !read emag physics file
/SOLU
*IF,I,EQ,1,THEN
TUNIF,25 ! initial temperature
*ELSE
LDREAD,TEMP,LAST,,,,,RTH ! read thermal analysis temperatures
*ENDIF
SOLVE ! solve harmonic analysis
FINISH
PHYSICS,READ,THERMAL ! read thermal physics file
/ASSIGN,ESAV,THERM,ESAV ! redirect files for use in thermal restart
/ASSIGN,EMAT,THERM,EMAT
/SOLU
*IF,I,GT,1,THEN
ANTYPE,TRANS,REST ! thermal restart
*ENDIF
TIME,TIME ! time at end of thermal run
ESEL,S,MAT,,2 ! select billet region
LDREAD,HGEN,,,,2,,RST ! apply coupled joule heating load from emag
ESEL,ALL
SOLVE
FINISH
/ASSIGN,ESAV ! reassign files to default
/ASSIGN,EMAT
*ENDDO ! end of solution looping
FINISH
SAVE
/POST1
SET,1,1
上述命令用于求解一感应加热问题,现在加热了一秒钟,发现存在问题。
请各位大虾指教,究竟是那里有问题,小弟不胜感激! |