一个有关相变的命令流例子

oldmonky

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