!XXXXXXXXXXXXXXXXXX !定义单元类型
!XXXXXXXXXXXXXXXXXX FINI
/CLE
/TITLE, QSHang Pylon Test /UNITS,SI CSYS,0 !*afun,deg /PREP7 /triad,on
/view,1,1,1,1 !定义ISO查看 /NERR,1000000
et,1,plane55 !定义二维热单元 et,2,surf153 mp,kxx,1,3.3
mp,kyy,1,3.3 !设定砼的导热系数 mp,kzz,1,3.3
!mp,dens,1,2400 !定义砼的密度 mp,c,1,925 !定义砼的比热
mp,prxy,1,0.2 !泊松比C50 mp,ex,1,3.45e10 !混凝土的弹性模量C50 mp,alpx,1,1e-5
!mptemp,1,0,2643,2750,2875 !定义铸钢的热性能 !mpdata,kxx,2,1.44,1.54,1.22,1.22 !mpdata,enth,2,0,128.1,163.8,174.2 !mpplot,kxx,2 !mpplot,enth,2
!XXXXXXXXXXXXXXXXXXX !建立混凝土几何模型
!XXXXXXXXXXXXXXXXXXX !************plane1 K,1,0,0,0 k,2,0,3.5,0 k,3,6.885,3.5 k,4,6.885,4 k,5,21.2,4 k,6,23.7,0 l,1,2 l,2,3 l,3,4
l,4,5
local,11,1,21.2,0,0,,,,4/2.5,1 l,5,6 CSYS,0
k,7,18.9,0 k,8,18.9,2 k,9,19.4,2.5 k,10,21,2.5 k,11,22.2,0 l,1,7 l,7,8 l,8,9 l,9,10
local,12,1,21,0,0,,,,2.5/1.2,1 l,10,11 CSYS,0 l,11,6 al,all
!************plane2 asel,none lsel,none k,12,0.8,0.25 k,13,0.3,0.75 k,14,0.3,2 k,15,0.8,2.5 k,16,5.2,2.5 k,17,5.7,2 k,18,5.7,0.75 k,19,5.2,0.25
a,12,13,14,15,16,17,18,19
k,20,6.8,0.25 k,21,6.3,0.75 k,22,6.3,2 k,23,6.8,2.5 k,24,11.2,2.5 k,25,11.7,2 k,26,11.7,0.75 k,27,11.2,0.25
a,20,21,22,23,24,25,26,27
k,28,12.8,0.25 k,29,12.3,0.75 k,30,12.3,2 k,31,12.8,2.5 k,32,15.3,2.5 k,33,15.8,2 k,34,15.8,0.75 k,35,15.3,0.25
a,28,29,30,31,32,33,34,35
asel,s
cm,plane,area alls
asba,1,plane
!************画网格 aatt,1,1,
AESIZE,all,0.02 MSHAPE,0,2D MSHKEY,2 AMESH,ALL alls
cm,area1,area
arsym,x,area1,,,,0,0 alls
arsym,y,all,,,,0,0 asel,all aglue,all
!Nummrg,elem !Nummrg,node !Nummrg,kp nummrg,all numcmp,all
!**************定义组件alls
lsel,s,length,,6.885 lsel,a,length,,0.5 lsel,a,length,,14.32 lsel,r,loc,y,0,100 cm,Eligne,line
将所有面网格划分时的单元尺寸设置为0.02m !利用四边形单元进行网格划分 !采用映射网格划分单元 !对所有网格进行划分单元 !