简单的水化热计算
/prep7et,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
页:
[1]