[转帖]相变问题的例子

frogfish

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