allsel,all
vsel,s,loc,y,(layer-1)*2.5,layer*2.5
aslv,s,1
asel,u,loc,z,0
asel,u,loc,z,20.5
asel,u,loc,x,5
aSEL,u,LOC,Y,(LAYER-1)*2.5 !通过布尔运算选出浇筑层与空气接触的部分
nsla,s,1
SF,ALL,,CONV,2016,25 !加混凝土第三类对流边界条件,气温恒定25
*DO,LOOP,1,LAYER,1
ALLSEL,ALL
vSEL,s,LOC,Y,(LOOP-1)*2.5,LOOP*2.5
nslv,s,1
esln,s,1
TDAY=DAY-(LOOP-1)*3 !已经完工的天数
HE00=47880*(TDAY/(0.862+TDAY)-(TDAY-1)/(0.862+TDAY-1))
bfe,all,hgen,,he00 !选中浇筑层,循环 加水化热
*ENDDO
trnopt,full !瞬态分析选项
lumpm,0 !块矩阵计算
time,day !时间步长
autots,0 !自动步长
deltim,1,,,1 !确定荷载步的时间步长
kbc,0 !荷载步递增方式
tsres,erase !定义关键时间点
outres,all,all !结果文件保存内容
allsel,all
solve
*enddo
allsel,all
asel,s,loc,y,2.5*layer !选择出大坝的浇筑块上层与空气接触的地方
nsla,s,all
sfadele,all,,conv !浇筑新层前删除上层的对流荷载
sfdele,all,conv
allsel,all
/post1
nsel,s,loc,y,-50,layer*2.5
esln,s,1
eplot
plnsol,temp !显示温度云图
/image,save,i,bmp !保存图片
/solu
*enddo
save
/post1
antime,90,0.5,,1,2,0,90 !生成动画
finish |