換熱器熱應(yīng)力分析ansys命令流

1、! *環(huán)境設(shè)置*FINISH/CLEAR/UNITS,SI/FILN,E102/TITLE, MECHANICAL AND THERMAL STRESS ANALYSIS OF FIXED TUBE-SHEET EXCHANGER! * 參數(shù)設(shè)定*SET,TSHELL,17 !殼程筒體壁厚*SET,HSHELL,2500 !殼程筒體分析長(zhǎng)度*SET,DSHELL,806 !殼程筒體內(nèi)徑*SET,HPSH,20 !殼程側(cè)管板鍛造凸肩高度*SET,RSHELL,15 !殼程側(cè)管板鍛造圓角半徑*SET,SHIGH,100 !管板厚度*SET,TCHANNEL,18.5 !管程筒體壁厚*SET,HCH

2、ANNEL,350 !管程筒體分析長(zhǎng)度*SET,HPCH,20 !管程側(cè)管板鍛造凸肩高度*SET,RCHANNEL,15 !管程側(cè)管板鍛造圓角半徑*SET,DP,25 !換熱管外直徑*SET,SP,38 !換熱管管間距*SET,TPIPE,2.5 !換熱管壁厚*SET,TINSULAT,50 !保溫層厚度*SET,NY,20 !換熱管行數(shù)*DIM,NXZ,NY !以行數(shù)定義一維數(shù)組個(gè)數(shù)，每個(gè)數(shù)組中存放該行換熱管根數(shù)*SET,NXZ(1),6,6,6,6,5,6,5,6,5,5*SET,NXZ(11),5,5,4,5,4,4,3,3,2,1! *剖分參數(shù)設(shè)定*SET,NGH,8 !換熱管周向剖分

3、數(shù)*SET,NGMESH,40 !換熱管軸向剖分?jǐn)?shù)*SET,DENSITYMESHG,2 !換熱管軸向剖分加密倍數(shù)*SET,NR0,60 !管板環(huán)向剖分?jǐn)?shù)*SET,NHOU,2 !殼程和管程筒體壁厚剖分?jǐn)?shù)*SET,NINSULAT,3 !保溫層壁厚剖分?jǐn)?shù)*SET,NHSHELL,40 !殼程筒體分析長(zhǎng)度剖分?jǐn)?shù)*SET,NCHANNEL,8 !管程筒體分析長(zhǎng)度剖分?jǐn)?shù)*SET,NR,4 !管板鍛造圓角周向剖分?jǐn)?shù)*SET,NSHIGH,4 !管板厚度剖分?jǐn)?shù)*SET,NHPSH,2 !殼程側(cè)管板鍛造凸肩高度剖分?jǐn)?shù)*SET,NHPCH,2 !管程側(cè)管板鍛造凸肩高度剖分?jǐn)?shù)! *載荷條件*SET,PS,0.

4、58 !殼程設(shè)計(jì)壓力*SET,PT,2 !管程設(shè)計(jì)壓力! *物性參數(shù)*SET,ASHELL,0.001764 !殼程筒體內(nèi)介質(zhì)傳熱系數(shù)*SET,ACHANNEL,0.000191 !管程筒體內(nèi)介質(zhì)傳熱系數(shù)*SET,ATUBE,0.000553 !換熱管內(nèi)介質(zhì)傳熱系數(shù)*SET,AENVIR,0.000006 !環(huán)境空氣傳熱系數(shù)*SET,TEPTUBE,250 !管程介質(zhì)溫度*SET,TEPSHEL,140.5 !殼程介質(zhì)溫度*SET,TEPENVIR,20 !環(huán)境溫度*SET,KSHELL,0.0371 !殼程筒體金屬熱導(dǎo)率*SET,KCHANNEL,0.0188 !管程筒體金屬熱導(dǎo)率*SET,

5、KSHIGH,0.01618 !管板金屬熱導(dǎo)率*SET,KTUBE,0.0189 !換熱管金屬熱導(dǎo)率*SET,KINSULAT,0.00025 !保溫層巖棉熱導(dǎo)率! *前處理*/PREP7ET,1,SHELL57 !定義輔助建模的殼單元類(lèi)型ET,2,SOLID70 !進(jìn)行熱分析的體單元類(lèi)型MP,KXX,1,KSHELL !定義材料導(dǎo)熱系數(shù)，1號(hào)材料對(duì)應(yīng)筒體鋼板MP,KXX,2,KCHANNEL !定義材料導(dǎo)熱系數(shù)，2號(hào)材料對(duì)應(yīng)管箱鋼板MP,KXX,3,KSHIGH !定義材料導(dǎo)熱系數(shù)，3號(hào)材料對(duì)應(yīng)管板鍛件MP,KXX,4,KTUBE !定義材料導(dǎo)熱系數(shù)，4號(hào)材料對(duì)應(yīng)換熱管鋼管MP,KXX,5,

6、KINSULAT !定義材料導(dǎo)熱系數(shù)，5號(hào)材料對(duì)應(yīng)保溫層巖棉! *建立模型*!管板下表面,四分之一*IF,DSHELL/2.0D0-RSHELL,LE,DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL,THEN !判斷并確定一管板圓平面半徑，其距兩側(cè)圓角邊緣最小為5MMROL=DSHELL/2.0D0-RSHELL-5*ELSEROL=DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL-5*ENDIFPCIRC,ROL,90 !生成管板圓平面，其面號(hào)為1*AFUN,DEG !轉(zhuǎn)換成角度制NTOL=0 !換熱管總數(shù)計(jì)數(shù)器清零*DO,J,1,NY

7、!利用循環(huán)產(chǎn)生以換熱管外直徑為直徑的圓平面NTEMP=J*DO,I,1,NXZ(NTEMP)*IF,NTEMP,NE,NINT(NTEMP/2)*2,THEN !根據(jù)當(dāng)前換熱管行數(shù)的奇偶性確定工作面偏移的圓心坐標(biāo)WPOFFS,SP*SIN(60)+2*SP*SIN(60)*(I-1),SP*(J-1)*COS(60) !行數(shù)J為奇數(shù)時(shí)該行第I根換熱管圓心坐標(biāo)*ELSEWPOFFS,2*SP*SIN(60)*(I-1),SP*(J-1)*COS(60) !行數(shù)J為偶數(shù)時(shí)該行第I根換熱管圓心坐標(biāo)*ENDIFPCIRC,DP/2.0D0 !產(chǎn)生以換熱管外直徑為直徑的圓平面NTOL=NTOL+1 !計(jì)

8、數(shù)器加1WPCSYS,1,0 !工作面圓心坐標(biāo)回零*ENDDO*ENDDOASEL,U,AREA,1 !選中除管板圓平面的所有面CM,BASE1,AREA !將上一行選中的所有以換熱管外直徑為直徑的圓平面命名為BASE1ALLSEL !全選ASBA,1,BASE1 !布爾減運(yùn)算，產(chǎn)生布管區(qū)管板的下表面!換熱管下表面,四分之一*DO,J,1,NY !利用循環(huán)產(chǎn)生換熱管下表面的圓環(huán)面，方法與上一個(gè)循環(huán)相同NTEMPJ=J*DO,I,1,NXZ(NTEMPJ)NTEMPI=I*IF,NTEMPJ,NE,NINT(NTEMPJ/2)*2,THENWPOFFS,SP*SIN(60)+2*SP*SIN(6

9、0)*(I-1),SP*(J-1)*COS(60)*ELSEWPOFFS,2*SP*SIN(60)*(I-1),SP*(J-1)*COS(60)*ENDIF*IF,NTEMPJ,EQ,1,THENPCIRC,DP/2.0D0-TPIPE,DP/2.0D0,90PCIRC,DP/2.0D0-TPIPE,DP/2.0D0,90,180*ELSE*IF,NTEMPJ,EQ,NINT(NTEMPJ/2)*2,THEN*IF,NTEMPI,EQ,1,THENPCIRC,DP/2.0D0-TPIPE,DP/2.0D0,270,360PCIRC,DP/2.0D0-TPIPE,DP/2.0D0,90*ELSE

10、PCIRC,DP/2.0D0-TPIPE,DP/2.0D0 *ENDIF*ELSEPCIRC,DP/2.0D0-TPIPE,DP/2.0D0 *ENDIF*ENDIFWPCSYS,1,0*ENDDO*ENDDOAGLUE,ALL !將新產(chǎn)生的換熱管圓環(huán)面與管板平面粘和為一體NUMCMP,AREA !使所有面的面號(hào)從小到大重新排序NUMCMP,LINE !使所有線(xiàn)的線(xiàn)號(hào)從小到大重新排序LSEL,S,RADIUS,ROL !選中管板圓平面的外邊緣線(xiàn)ASLL,S,0 !選中與此線(xiàn)相關(guān)的面，即布管區(qū)管板的下表面CM,BASPLT,AREA !給布管區(qū)管板的下表面命名為BASPLTALLSEL !全選A

11、SEL,U,AREA,BASPLT !選中所有換熱管下表面的圓環(huán)面CM,BASTUB,AREA !給換熱管下表面的圓環(huán)面命名為BASTUBALLSEL !全選!網(wǎng)格剖分參數(shù)LSEL,S,RADIUS,ROL !選中管板圓平面的外邊緣線(xiàn)LESIZE,ALL,NR0 !指定該線(xiàn)的剖分?jǐn)?shù)ALLSEL !全選LSEL,S,RADIUS,DP/2.0D0-TPIPE,DP/2.0D0 !選中構(gòu)成換熱管下表面的圓環(huán)面的圓環(huán)線(xiàn)LESIZE,ALL,NGH/4 !指定這些線(xiàn)的剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LENGTH,TPIPE !選中長(zhǎng)度為換熱管壁厚的線(xiàn)LESIZE,ALL,1 !換熱管壁厚方向剖

12、分1份ALLSEL !全選!布管區(qū)管板體MSHAPE,0,2D !指定面單元形狀為四邊形TYPE,1 !指定面單元類(lèi)型ESIZE,SP-DP !定義單元尺寸MAT,3 !設(shè)定材料屬性AMESH,BASPLT !對(duì)布管區(qū)管板的下表面進(jìn)行網(wǎng)格劃分K,10001,0,0,0 !定義拉伸布管區(qū)管板的下表面所需的關(guān)鍵點(diǎn)K,10002,0,0,TCHANNEL !定義拉伸布管區(qū)管板的下表面所需的關(guān)鍵點(diǎn)K,10003,0,0,SHIGH-TSHELL!定義拉伸布管區(qū)管板的下表面所需的關(guān)鍵點(diǎn)K,10004,0,0,SHIGH !定義拉伸布管區(qū)管板的下表面所需的關(guān)鍵點(diǎn)NUMCMP,LINE !使所有線(xiàn)的線(xiàn)號(hào)從小

13、到大重新排序L,10001,10002,NHOU !生成布管區(qū)管板的下表面的拉伸輔助線(xiàn)，并指定剖分?jǐn)?shù)L,10002,10003,NSHIGH !生成布管區(qū)管板的下表面的拉伸輔助線(xiàn)，并指定剖分?jǐn)?shù)L,10003,10004,NHOU !生成布管區(qū)管板的下表面的拉伸輔助線(xiàn)，并指定剖分?jǐn)?shù)*GET,LINE0,LINE,NUM,MAX!得到輔助線(xiàn)的線(xiàn)號(hào)TYPE,2 !指定體單元類(lèi)型VDRAG,BASPLT,LINE0-2,LINE0-1,LINE0 !產(chǎn)生布管區(qū)管板的體單元ACLEAR,BASPLT !清除布管區(qū)管板的下表面的面單元!換熱管體MSHAPE,0,2D !指定面單元形狀為四邊形TYPE,1

14、!指定面單元類(lèi)型MAT,4 !設(shè)定材料屬性AMESH,BASTUB !對(duì)換熱管下表面的圓環(huán)面進(jìn)行網(wǎng)格劃分K,10005,0,0,SHIGH+RSHELL+HPSH+HSHELL !定義拉伸換熱管下表面的圓環(huán)面所需的關(guān)鍵點(diǎn)L,10004,10005 !生成換熱管下表面的圓環(huán)面的拉伸輔助線(xiàn)*GET,LINE1,LINE,NUM,MAX!得到輔助線(xiàn)的線(xiàn)號(hào)LESIZE,LINE1,NGMESH,DENSITYMESHG !指定輔助線(xiàn)剖分份數(shù)和加密倍數(shù)TYPE,2 !指定體單元類(lèi)型VDRAG,BASTUB,LINE0-2,LINE0-1,LINE0,LINE1 !產(chǎn)生換熱管的體單元ACLEAR,BAST

15、UB !清除換熱管下表面的圓環(huán)面的面單元!管程筒體零度剖面WPROTA,90 !旋轉(zhuǎn)工作面NUMCMP,AREA !使所有面的面號(hào)從小到大重新排序*GET,NAREA1,AREA,NUM,MAX !得到當(dāng)前最大面號(hào)RECTANG,DSHELL/2.0D0+TSHELL-TCHANNEL,DSHELL/2.0D0+TSHELL,-(RCHANNEL+HPCH+HCHANNEL),-(RCHANNEL+HPCH) !生成管程筒體零度剖面!管板與殼程筒體和管程筒體連接區(qū)的零度剖面RECTANG,DSHELL/2.0D0+TSHELL-TCHANNEL,DSHELL/2.0D0+TSHELL,-(RC

16、HANNEL+HPCH),-RCHANNEL !生成管板管程側(cè)凸肩零度剖面NUMCMP,LINE !使所有線(xiàn)的線(xiàn)號(hào)從小到大重新排序*GET,LINE2,LINE,NUM,MAX !得到當(dāng)前最大線(xiàn)號(hào)K,200001,DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL,0,-RCHANNEL !管板管程側(cè)鍛造圓角圓心坐標(biāo)K,400001,DSHELL/2.0D0-RSHELL,SHIGH+RSHELLK,300001,DSHELL/2.0D0+TSHELL-TCHANNEL,0,-RCHANNEL !管板管程側(cè)鍛造圓角弧線(xiàn)起點(diǎn)K,300002,DSHELL/2.0D0+TS

17、HELL-TCHANNEL-RCHANNEL+RCHANNEL*COS(45),-RCHANNEL+RCHANNEL*COS(45)!管板管程側(cè)鍛造圓角弧線(xiàn)中點(diǎn)K,300003,DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL, !管板管程側(cè)鍛造圓角弧線(xiàn)終點(diǎn)K,300004,ROL, !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300005,ROL,TCHANNEL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300006,ROL,SHIGH-TSHELL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300007,ROL,SHIGH !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300008,DSHELL/2.0D0-RSH

18、ELL,SHIGH !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300009,DSHELL/2.0D0-RSHELL+RSHELL*COS(45),SHIGH+(RSHELL-RSHELL*COS(45) !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300010,DSHELL/2.0D0,SHIGH+RSHELL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300011,DSHELL/2.0D0+TSHELL,SHIGH+RSHELL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300012,DSHELL/2.0D0+TSHELL,SHIGH-TSHELL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300013,DSHELL/2.0D0+TSHELL,TCHA

19、NNEL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300014,DSHELL/2.0D0+TSHELL,-RCHANNEL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300015,DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL,TCHANNEL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)K,300016,DSHELL/2.0D0-TSHELL,SHIGH-TSHELL !形成此區(qū)零度剖面的關(guān)鍵點(diǎn)LARC,300001,300002,200001,RCHANNEL !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+1LESIZE,LINE2+1,NR/2 !指定弧線(xiàn)剖分?jǐn)?shù)L,300001,300014,NHOU !

20、生成網(wǎng)格劃分輔助線(xiàn)LINE2+2L,300002,300013,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+3L,300013,300014,NR/2 !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+4AL,LINE2+1,LINE2+2,LINE2+3,LINE2+4 !生成此區(qū)零度剖面LARC,300002,300003,200001,RCHANNEL !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+5LESIZE,LINE2+5,NR/2 !指定弧線(xiàn)剖分?jǐn)?shù)L,300003,300015,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+6L,300013,300015,NR/2 !生成網(wǎng)格劃分輔助線(xiàn)LINE2+7

21、AL,LINE2+3,LINE2+5,LINE2+6,LINE2+7 !生成此區(qū)零度剖面L,300003,300004,1 !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+8L,300004,300005,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+9L,300005,300006,NSHIGH !生成網(wǎng)格劃分輔助線(xiàn)LINE2+10L,300006,300007,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+11L,300007,300008,1 !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+12L,300008,300016,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+13L,300016,300015,NSHI

22、GH !生成網(wǎng)格劃分輔助線(xiàn)LINE2+14AL,LINE2+6,LINE2+8,LINE2+9,LINE2+10,LINE2+11,LINE2+12,LINE2+13,LINE2+14 !生成此區(qū)零度剖面L,300012,300016,NR/2 !生成網(wǎng)格劃分輔助線(xiàn)LINE2+15L,300012,300013,NSHIGH !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+16AL,LINE2+7,LINE2+14,LINE2+15,LINE2+16 !生成此區(qū)零度剖面L,300009,300012,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+17LARC,300008,300009,400001,RS

23、HELL !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+18LESIZE,LINE2+18,NR/2 !指定弧線(xiàn)剖分?jǐn)?shù)AL,LINE2+13,LINE2+15,LINE2+17,LINE2+18 !生成此區(qū)零度剖面LARC,300009,300010,400001,RSHELL !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+19LESIZE,LINE2+19,NR/2 !指定弧線(xiàn)剖分?jǐn)?shù)L,300010,300011,NHOU !生成網(wǎng)格劃分輔助線(xiàn)LINE2+20L,300011,300012,NR/2 !生成此區(qū)零度剖面的外邊緣線(xiàn)LINE2+21AL,LINE2+17,LINE2+19,LINE2+20,

24、LINE2+21 !生成此區(qū)零度剖面RECTANG,DSHELL/2.0D0,DSHELL/2.0D0+TSHELL,SHIGH+RSHELL,SHIGH+RSHELL+HPSH !生成管板管程側(cè)凸肩零度剖面!殼程筒體零度剖面RECTANG,DSHELL/2.0D0,DSHELL/2.0D0+TSHELL,SHIGH+RSHELL+HPSH,SHIGH+RSHELL+HPSH+HSHELLLSEL,S,LOC,X,DSHELL/2.0D0+TSHELL-TCHANNEL/2.0D0 !選中線(xiàn)段LESIZE,ALL,NHOU !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,X,DSHE

25、LL/2.0D0+TSHELL/2.0D0 !選中線(xiàn)段LESIZE,ALL,NHOU !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選!保溫層零度剖面RECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULAT,-RCHANNEL-HPCH-HCHANNEL,-RCHANNEL-HPCHRECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULAT,-RCHANNEL-HPCH,-RCHANNELRECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULA

26、T,-RCHANNEL,TCHANNELRECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULAT,TCHANNEL,SHIGH-TSHELLRECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULAT,SHIGH-TSHELL,SHIGH+RSHELLRECTANG,DSHELL/2.0D0+TSHELL,DSHELL/2.0D0+TSHELL+TINSULAT,SHIGH+RSHELL,SHIGH+RSHELL+HPSHRECTANG,DSHELL/2.0D0+TSHELL,DSHEL

27、L/2.0D0+TSHELL+TINSULAT,SHIGH+RSHELL+HPSH,SHIGH+RSHELL+HPSH+HSHELLLSEL,S,LOC,Z,-(RCHANNEL+HPCH+HCHANNEL/2.0D0) !選中線(xiàn)段LESIZE,ALL,NCHANNEL !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,Z,-(RCHANNEL+HPCH/2.0D0) !選中線(xiàn)段LESIZE,ALL,NHPCH !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,Z,(-RCHANNEL+TCHANNEL)/2.0D0 !選中線(xiàn)段LESIZE,ALL,NR/2 !指定線(xiàn)段剖分?jǐn)?shù)A

28、LLSEL !全選LSEL,S,LOC,Z,TCHANNEL+(SHIGH-TCHANNEL-TSHELL)/2.0D0 !選中線(xiàn)段LESIZE,ALL,NHIGH !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,Z,SHIGH-TSHELL+(TSHELL+RSHELL)/2.0D0 !選中線(xiàn)段LESIZE,ALL,NR/2 !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,Z,SHIGH+RSHELL+HPCH/2.0D0 !選中線(xiàn)段LESIZE,ALL,NHPSH !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,Z,SHIGH+RSHELL+HPSH+HSHE

29、LL/2.0D0 !選中線(xiàn)段LESIZE,ALL,NHSHELL !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選LSEL,S,LOC,X,DSHELL/2.0D0+TSHELL+TINSULAT/2.0D0 !選中線(xiàn)段LESIZE,ALL,NINSULAT !指定線(xiàn)段剖分?jǐn)?shù)ALLSEL !全選!管箱的體MSHAPE,0,2D !指定面單元形狀為四邊形TYPE,1 !指定面單元類(lèi)型MAT,2 !設(shè)定材料屬性AMESH,NAREA1+1 !對(duì)管箱零度剖面進(jìn)行網(wǎng)格劃分TYPE,2 !指定體單元類(lèi)型ESIZE,NR0 !定義單元尺寸VROTAT,NAREA1+1,10001,10002,90,1 !產(chǎn)生管箱體單

30、元!管板的體MSHAPE,2,2D !指定面單元形狀為四邊形TYPE,1 !指定面單元類(lèi)型MAT,3 !設(shè)定材料屬性AMESH,NAREA1+2,NAREA1+9 !對(duì)管板零度剖面進(jìn)行網(wǎng)格劃分ESIZE,NR0 !定義單元尺寸VROTAT,NAREA1+2,NAREA1+3,NAREA1+4,NAREA1+5,10001,10002,90,1 !產(chǎn)生管板體單元VROTAT,NAREA1+6,NAREA1+7,NAREA1+8,NAREA1+9,10001,10002,90,1 !產(chǎn)生管板體單元!筒體的體MSHAPE,2,2D !指定面單元形狀為四邊形TYPE,1 !指定面單元類(lèi)型MAT,1 !

31、設(shè)定材料屬性AMESH,NAREA1+10 !對(duì)筒體零度剖面進(jìn)行網(wǎng)格劃分ESIZE,NR0 !定義單元尺寸VROTAT,NAREA1+10,10001,10002,90,1 !產(chǎn)生筒體體單元!保溫層的體MSHAPE,2,2D !指定面單元形狀為四邊形TYPE,1 !指定面單元類(lèi)型MAT,5 !設(shè)定材料屬性AMESH,NAREA1+11,NAREA1+17 !對(duì)保溫層零度剖面進(jìn)行網(wǎng)格劃分ESIZE,NR0 !定義單元尺寸VROTAT,NAREA1+11,NAREA1+12,NAREA1+13,NAREA1+14,10001,10002,90,1 !產(chǎn)生保溫層體單元VROTAT,NAREA1+15

32、,NAREA1+16,NAREA1+17,10001,10002,90,1 !產(chǎn)生保溫層體單元ACLEAR,NAREA1+1,NAREA1+17,1 !清除所有零度剖面面單元NUMMRG,ALL !所有重合的點(diǎn)、線(xiàn)、面信息合并NUMCMP,ALL !所有點(diǎn)、線(xiàn)、面信息依次重排序FINISH! *求解*/SOLULSEL,S,RADIUS,DSHELL/2.0D0 !選線(xiàn)LSEL,A,RADIUS,DSHELL/2.0D0-RSHELL !選線(xiàn)LSEL,A,RADIUS,ROL !選線(xiàn)LSEL,U,LOC,Z,-RCHANNEL-HPCH-HCHANNEL,SHIGH-TSHELL !去掉多余的

33、線(xiàn)ASLL,S,0 !選中與線(xiàn)相關(guān)的面ASEL,U,LOC,Z,SHIGH-TSHELL/2.0D0 !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL+HPSH !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL+HPSH+HSHELL !去掉多余的面SFA,ALL,CONV,ASHELL,TEPSHEL !對(duì)管板上表面施加溫度邊界條件ALLSEL !全選LSEL,S,RADIUS,DP/2.0D0 !選線(xiàn)LSEL,R,LOC,Z,SHIGH+RSHELL+HPSH+HSHELL !選線(xiàn)ASLL,S

34、,0 !選中與線(xiàn)相關(guān)的面ASEL,U,LOC,Z,SHIGH+RSHELL+HPSH+HSHELL !去掉多余的面SFA,ALL,CONV,ASHELL,TEPSHEL !對(duì)換熱管外表面施加溫度邊界條件ALLSEL !全選LSEL,S,RADIUS,DP/2.0D0-TPIPE !選線(xiàn)ASLL,S,0 !選中與線(xiàn)相關(guān)的面LSEL,ALL !選中所有線(xiàn)段LSEL,S,RADIUS,DP/2.0D0 !選線(xiàn)ASLL,U,0 !不選與線(xiàn)相關(guān)的面SFA,ALL,CONV,ATUBE,TEPTUBE !對(duì)換熱管內(nèi)表面施加溫度邊界條件ALLSEL !全選LSEL,S,RADIUS,DSHELL/2.0D0

35、+TSHELL-TCHANNEL !選線(xiàn)LSEL,A,RADIUS,DSHELL/2.0D0+TSHELL-TCHANNEL-RCHANNEL !選線(xiàn)LSEL,A,RADIUS,ROL !選線(xiàn)LSEL,U,LOC,Z,TCHANNEL,SHIGH+RSHELL+HPSH+HSHELL !去掉多余的線(xiàn)ASLL,S,0 !選中與線(xiàn)相關(guān)的面ASEL,U,LOC,Z,TCHANNEL/2.0D0 !去掉多余的面ASEL,U,LOC,Z,-RCHANNEL !去掉多余的面ASEL,U,LOC,Z,-RCHANNEL-HPCH !去掉多余的面ASEL,U,LOC,Z,-RCHANNEL-HPCH-HCHA

36、NNEL !去掉多余的面SFA,ALL,CONV,ACHANNEL,TEPTUBE !對(duì)管板下表面和管箱內(nèi)表面施加溫度邊界條件ALLSEL !全選LSEL,S,RADIUS,DP/2.0D0-TPIPE !選線(xiàn)LSEL,R,LOC,Z,0 !選線(xiàn)ASLL,S,0 !選中與線(xiàn)相關(guān)的面ASEL,U,LOC,Z,TCHANNEL/2.0D0 !去掉多余的面SFA,ALL,CONV,ACHANNEL,TEPTUBE !對(duì)換熱管下表面施加溫度邊界條件ALLSEL !全選LSEL,S,RADIUS,DSHELL/2.0D0+TSHELL+TINSULAT !選線(xiàn)ASLL,S,0 !選中與線(xiàn)相關(guān)的面ASEL

37、,U,LOC,Z,-RCHANNEL-HPCH-HCHANNEL !去掉多余的面ASEL,U,LOC,Z,-RCHANNEL-HPCH !去掉多余的面ASEL,U,LOC,Z,-RCHANNEL !去掉多余的面ASEL,U,LOC,Z,TCHANNEL !去掉多余的面ASEL,U,LOC,Z,SHIGH-TSHELL !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL+HPSH !去掉多余的面ASEL,U,LOC,Z,SHIGH+RSHELL+HPSH+HSHELL !去掉多余的面SFA,ALL,CONV,AENV

38、IR,TEPENVIR !對(duì)保溫層外表面施加溫度邊界條件ALLSEL !全選SOLVE !求解FINISH! *后處理*/POST1PLNSOL,TEMP !繪出溫度場(chǎng)分布云圖! *前處理*/PREP7ET,2,SOLID45 !熱單元類(lèi)型轉(zhuǎn)換為結(jié)構(gòu)單元類(lèi)型MP,EX,1,2.1E5 !定義材料的彈性模量,1號(hào)材料對(duì)應(yīng)筒體鋼板MP,NUXY,1,0.3 !定義材料的泊松比MP,ALPX,1,1.272E-5 !定義熱膨脹系數(shù)MP,EX,2,202780 !定義材料的彈性模量,2號(hào)材料對(duì)應(yīng)管箱鋼板MP,NUXY,2,0.3 !定義材料的泊松比MP,ALPX,2,1.75E-5 !定義熱膨脹系數(shù)MP,EX,3,2E5 !定義材料