!XXXXXXXXXXXXXXXXXX!定義單元類型!XXXXXXXXXXXXXXXXXXFINI/CLE/TITLE, QSHangPylonT est/UNITS,SICSYS,0!*afun,deg/PREP7/triad,on/view,1,1,1,1! 定義ISO查看/NERR,1000000et,1,plane55 !定義二維熱單元et,2,surf153mp,kxx,1,3.3mp,kyy,1,3.3 !設定砼的導熱系數mp,kzz,1,3.3!mp,dens,1,2400 !定義砼的密度mp,c,1,925 !定義砼的比熱mp,prxy,1,0.2 !泊松比C50mp,ex,1,3.45e10 !混凝土的彈性模量 C50mp,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!************plane1K,1,0,0,0k,2,0,3.5,0k,3,6.885,3.5k,4,6.885,4k,5,21.2,4k,6,23.7,0l,1,2l,2,3l,3,4l,4,5local,11,1,21.2,0,0,,,,4/2.5,1l,5,6CSYS,0k,7,18.9,0k,8,18.9,2k,9,19.4,2.5k,10,21,2.5k,11,22.2,0l,1,7l,7,8l,8,9l,9,10local,12,1,21,0,0,,,,2.5/1.2,1l,10,11CSYS,0l,11,6al,all!************plane2asel,nonelsel,nonek,12,0.8,0.25k,13,0.3,0.75k,14,0.3,2k,15,0.8,2.5k,16,5.2,2.5k,17,5.7,2k,18,5.7,0.75k,19,5.2,0.25a,12,13,14,15,16,17,18,19k,20,6.8,0.25k,21,6.3,0.75k,22,6.3,2k,23,6.8,2.5k,24,11.2,2.5k,25,11.7,2k,26,11.7,0.75k,27,11.2,0.25a,20,21,22,23,24,25,26,27k,28,12.8,0.25k,29,12.3,0.75k,30,12.3,2k,31,12.8,2.5k,32,15.3,2.5k,33,15.8,2k,34,15.8,0.75k,35,15.3,0.25a,28,29,30,31,32,33,34,35asel,scm,plane,areaallsasba,1,plane!************aatt,1,1,

畫網格AESIZE,all,0.02

!將所有面網格劃分時的單元尺寸設置為

0.02mMSHAPE,0,2D

!利用四邊形單元進行網格劃分MSHKEY,2

!采用映射網格劃分單元AMESH,ALL

!對所有網格進行劃分單元allscm,area1,areaarsym,x,area1,,,,0,0allsarsym,y,all,,,,0,0asel,allaglue,all!Nummrg,elem!Nummrg,node!Nummrg,kpnummrg,allnumcmp,all!************** 定義組件allslsel,s,le