简单的水化热计算

chinshlia

/prep7  
et,1,solid70!热单元
mp,c,1,.25  
mp,dens,1,250   
mp,kxx,1,2.3
mp,c,2,0.25
mp,dens,2,250   
mp,kxx,2,2.3
!建模
blc4,0,0,-9.6,5,-12
kplot   
vplot   
gplot   
/pnum,kp,1  
/rep
vsel,all
vatt,3,,1   
esize,0.6   
vmesh,all   
k,9,0,9.8   
k,10,-4.8,9.8   
k,11,-4.8,5
k,12,0,5,-7.2   
k,13,0,9.8,-7.2
k,15,-4.8,5,-7.2
k,16,-4.8,9.8,-7.2  
k,17,0,5,0  
v,17,11,10,9,12,15,16,13
eplot   
vplot   
vsel,s,volume,,2
vatt,2,,1   
vmesh,all   
numcmp,node
nummrg,all  !合并节点
finish  
/solu   
nsel,s,loc,y,0  
nplot   
esel,s,mat,,2   
eplot   
eplot   
esel,s,mat,,2   
allsel,all  
esel,s,mat,,2   
esel,s,mat,,1   
ic,all,temp,20  !基地初始温度20度
/rep
sfa,10,,conv,12,20  !施加对流系数
sfa,9,,conv,12,20   
sfa,12,,conv,12,20  
antype,trans
*do,i,1,100 !施加水化热
time,i  
nsubst,1
autots,off  
esel,s,mat,,1   
*SET,heat,320*33.97*0.605*i*exp(-0.605*i)   
bfe,all,hgen,,heat  
timint,on   
outres,all,all  
solve   
*enddo  
FINISH  
/POST1  
allsel,all
eplot
set,last
plnsol,temp