一个有关相变的命令流例子
2mm圆柱试管中有高度15mm的水，初始温度0摄氏度，在上水面加大小为-10摄氏度的均匀温度载荷，试求需要多长时间水才能完全结冰（所有温度都在1摄氏度以下），以及时间t=200s时，水内部温度分布（试管材料对水温影响忽略不计）。/PREP7
ET,1,PLANE55
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,4,0
KEYOPT,1,8,0
KEYOPT,1,9,0
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,0.6
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,1000
MPTEMP,,,,,,,, !设置水的焓变化
MPTEMP,1,-10
MPTEMP,2,-1
MPTEMP,3,0
MPTEMP,4,1
MPDATA,ENTH,1,,0
MPDATA,ENTH,1,,37.8e6
MPDATA,ENTH,1,,79.8e6
MPDATA,ENTH,1,,121.8e6
RECTNG,0,0.002,0,0.015,
SMRTSIZE,0
LSEL,S,LINE,,1,3,2
LESIZE,ALL, , ,3, , , , ,1
LSEL,S,LINE,,2,4,2
LESIZE,ALL, , ,20, , , , ,1
ALLSEL,ALL
AMESH,1
FINISH
/SOL
ANTYPE,4
TRNOPT,FULL
OUTRES,ALL,ALL,
TUNIF,0,
LSEL,S, , , 3
NSLL,S,1
D,All, ,-10, , , ,TEMP, , , , ,
ALLSEL,ALL
TIME,1200
AUTOTS,1
DELTIM,3,3,10,1
KBC,1
SOLVE
FINISH
/POST1
SET, , ,1, ,200, ,
PLNSOL,TEMP, ,0,
/SHOW,JPEG
JPEG,QUAL,75,
JPEG,ORIENT,HORIZ
JPEG,COLOR,2
JPEG,TMOD,1
/GFILE,800,
/REPLOT
/SHOW,CLOSE
FINISH
/POST26
NUMVAR,200
NSOL,2,25,TEMP, ,T2
NSOL,3,37,TEMP, ,T3
NSOL,4,1,TEMP, ,T4
PLVAR,2,3,4, , , , , , , ,
/SHOW,JPEG
JPEG,QUAL,75,
JPEG,ORIENT,HORIZ
JPEG,COLOR,2
JPEG,TMOD,1
/GFILE,800,
/REPLOT
/SHOW,CLOSE
PRTIME,875,1000,
PRVAR,2,3,4, , , ,
FINISH
页:
[1]