大体积混凝土水化热问题

长江D

大神求助 这样改如何实现

有两块混凝土底板需要浇筑，先浇的成为“先浇块”，后浇的称为“延续块”，

凝土温度变化规律：

天数	0（初始温度）	1	2	3	4
温度	28℃	50℃	35℃	30℃	25℃

降温阶段降温速率平均8℃/天。

其中一块从35度开始 另一块50度

/filname,Thermal
/TITLE,Concrete Thermal Analysis
KEYW,PR_THERM,1
/PREP7
ET,1,SOLID70

MP,KXX,1,1.74
MP,DENS,1,2400
MP,C,1,970
BLC4,,,80,40,0.5
WPROTA,,,90
WPOFFS,,,40
VSBW,ALL
WPCSYS,-1
VATT,1,,1
MSHAPE,0,3D
MSHKEY,1
ESIZZ,0.5
VMESH,ALL

VSEL,S,LOC,X,0,40
ESLV,S
CM,CONCRETE1,ELEM
CM,CONCRETE11,VOLU
VSEL,S,LOC,X,40,80
ESLV,S
CM,CONCRETE2,ELEM
CM,CONCRETE22,VOLU
ALLSEL

/SOLU
ANTYPE,TRANS
!第一个时间步
TIME,80

NROPT,FULL
NSUBST,10
AUTOTS,ON
outres,all,all
outpr,all,all
kbc,1
cmsel,s,concrete1
nsle,s
IC,ALL,TEMP,35
cmsel,s,concrete2
nsle,s
IC,ALL,TEMP,50
ALLSEL
sf,all,conv,2016,28
solve


!第二个时间步
TIME,160

NROPT,FULL
NSUBST,10
AUTOTS,ON
outres,all,all
kbc,1
cmsel,s,concrete1
nsle,s
D,ALL,TEMP,30
cmsel,s,concrete2
nsle,s
D,ALL,TEMP,35
ALLSEL
sf,all,conv,2016,28
solve


!第三个时间步
TIME,240

NROPT,FULL
NSUBST,10
AUTOTS,ON
outres,all,all
kbc,1
cmsel,s,concrete1
nsle,s
D,ALL,TEMP,25
cmsel,s,concrete2
nsle,s
D,ALL,TEMP,30
ALLSEL
sf,all,conv,2016,28
solve


!结构分析
/prep7
KEYW,PR_STRUC,1
allsel
!单元的转化由热单元转化为结构单元
ETCHG,TTS

MP,EX,2,3e10 !定义材料弹性模量
MP,PRXY,2,0.3   !泊松比
mp,dens,2,2400   !混凝土密度
mp,ALPX,2,1e-5

allsel
eslv,s

emodif,all,mat,2
/solu
allsel
acel,,,9.8
nsel,s,loc,z,0
d,all,all


allsel
LDREAD,TEMP,,,,,'Thermal','rth',' '
ALLSEL
antype,0
nsubst,2
nlgeom,off
autos,on
neqit,10
outress,all,all
outpr,all,all
solve

/post1
set,last

plnsol,s,eqv