壓力容器管板厚度的優(yōu)化設(shè)計

1、求真近道,明德致新壓力容器管板厚度的優(yōu)化設(shè)計 有限元作業(yè) 班級： 姓名： 學(xué)號： 指導(dǎo)老師： 年 月 日8一、考試題目： 如上圖所示為某廠一臺氨冷器的結(jié)構(gòu)示意圖，屬于U型管式換熱器，其相關(guān)的參數(shù)如下：設(shè)計壓力：管程：Pt=（31.4+ 39×10-1）MPa, 殼程：Ps=2.5MPa設(shè)計溫度：管程：-10300C 殼程：-150C材料：管板：20MnMo鍛件 球形封頭：16MnR許用應(yīng)力Sm：管板：196MPa 球形封頭：147MPa材料的彈性模量Sm：E=2.0*105MPa 泊松比：v=0.3材料密度：=7.8t / m3其截面尺寸必須滿足如下限制條件：790mmb（ 820+

2、39×10）mm, 340mmh（390+ 39×10）mm。請設(shè)計管板的厚度h和管板的外半徑b,在滿足給定的強度要求下使得管板的重量最小。(系數(shù)K=學(xué)號最后兩位數(shù)（如：2012*39），那么K=39)要求：寫出操作步驟和命令流，定義工作文件名和工作標(biāo)題為你的姓名拼音+學(xué)號。2、 GUI操作 參考ANSYS工程應(yīng)用實例解析龔曙光P263-P277注： P266的（3）建立幾何模型的7）不做； P268的（4）劃分有線單元網(wǎng)格的15）不做； P269的（5）施加載荷并求解的1）“L20”改為“L21”； P269的（5）施加載荷并求解的2）“1375”節(jié)點等同于“12”關(guān)鍵點

3、；P270的（5）施加載荷并求解的3）要注意選擇倒角線等； P270的（6）進(jìn)入后處理器計算單元總體積5）中“1834”“2324”節(jié)點等同于關(guān)鍵點“1”“4”；三、命令流方式（注，需要參照書本做一遍，根據(jù)保存數(shù)據(jù)得到，使用命令流才有效，否則效果不對，如果出現(xiàn)效果不對，要關(guān)閉軟件再試一次命令流）/BATCH /TITLE,GXUT /PREP7 MPTEMP, MPTEMP,1,0 MPDATA,EX,1,2e5MPDATA,PRXY,1,0.3 MPTEMP, MPTEMP,1,0 MPDATA,EX,2,1.08e5 MPDATA,PRXY,2,0.305 ET,1,PLANE82KEYO

4、PT,1,3,1KEYOPT,1,5,0KEYOPT,1,6,0ET,2,PLANE2 KEYOPT,2,3,1KEYOPT,2,5,0KEYOPT,2,6,0 *SET,b,0.82+0.39*SET,h,0.39+0.39*SET,sr,0.7 *SET,h1,0.05*SET,dens,7.8 RECTNG,0,b,0,h, RECTNG,sr,b,h,h+h1, FINISH /POST1 FINISH /PREP7 CYL4,0,h+h1,sr,0,b,90 FLST,2,3,5,ORDE,2 FITEM,2,1 FITEM,2,-3 AADD,P51X WPSTYLE,1WPSTY

5、LE,0WPSTYLE,1WPSTYLE,0 LFILLT,8,14,0.01, , FLST,2,3,4 FITEM,2,3 FITEM,2,5 FITEM,2,6 AL,P51X FLST,2,2,5,ORDE,2 FITEM,2,1 FITEM,2,4 AADD,P51X SAVE,tubesteet_model,db, WPSTYLE,1 KWPAVE, 6 wprot,0,90 ASBW, 2 KWPAVE, 7 ASBW, 1 KWPAVE, 9 wprot,0,0,90ASBW, 3 FLST,2,1,8 FITEM,2,0,0.31,0WPAVE,P51X wprot,0,0,

6、-90 FLST,2,2,5,ORDE,2 FITEM,2,1 FITEM,2,5 ASBW,P51X WPSTYLE,0FLST,5,5,4,ORDE,5 FITEM,5,3 FITEM,5,9 FITEM,5,-10 FITEM,5,17 FITEM,5,23 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y LESIZE,_Y1, , ,6, , , , ,1 FLST,5,3,4,ORDE,3 FITEM,5,5 FITEM,5,7 FITEM,5,-8 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSE

7、L,_Y LESIZE,_Y1, , ,3, , , , ,1 FLST,5,3,4,ORDE,3 FITEM,5,1 FITEM,5,6 FITEM,5,18 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y /REPLOT,RESIZE FLST,5,3,4,ORDE,3 FITEM,5,1 FITEM,5,6 FITEM,5,18 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y LESIZE,_Y1, , ,4, , , , ,1 ESIZE,0.02,0, /REPLOT,RESIZE MSH

8、APE,0,2D MSHKEY,1 APLOT FLST,5,3,5,ORDE,3 FITEM,5,2 FITEM,5,4 FITEM,5,7 CM,_Y,AREA ASEL, , , ,P51X CM,_Y1,AREA CHKMSH,'AREA' CMSEL,S,_Y AMESH,_Y1 CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 TYPE, 2 MAT, 1REAL, ESYS, 0 SECNUM, WPSTYLE,1WPSTYLE,0MSHKEY,0 CM,_Y,AREA ASEL, , , , 8 CM,_Y1,AREA CHKMSH,'AR

9、EA' CMSEL,S,_Y AMESH,_Y1 CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 TYPE, 1 MAT, 2REAL, ESYS, 0 SECNUM, MSHKEY,1 FLST,5,2,5,ORDE,2 FITEM,5,3 FITEM,5,6 CM,_Y,AREA ASEL, , , ,P51X CM,_Y1,AREA CHKMSH,'AREA' CMSEL,S,_Y AMESH,_Y1 CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 SAVE,Tubesheet_Mesh,db,FINISH /SOLLPLOT FL

10、ST,2,3,4,ORDE,3 FITEM,2,1 FITEM,2,10 FITEM,2,21 FLST,2,3,4,ORDE,3 FITEM,2,1 FITEM,2,10 FITEM,2,21 /GO DL,P51X, ,UX, FLST,2,1,1,ORDE,1 FITEM,2,5646FLST,2,1,1,ORDE,1 FITEM,2,5646 /GO D,P51X, , , , , ,UY, , , , ,FLST,2,4,4,ORDE,4 FITEM,2,3 FITEM,2,8 FITEM,2,14 FITEM,2,16 /GO SFL,P51X,PRES,31.4+3.9, FIN

11、ISH /POST1 FINISH /SOL/STATUS,SOLUSOLVE SAVE,TubeSheet_resu,db,FINISH /POST1 AVPRIN,0,EVOL, ETABLE, ,VOLU, SSUM *GET,VTOT,SSUM, ,ITEM,VOLU *SET,WT,dens*vtot FLST,2,2,1 FITEM,2,2063FITEM,2,5645 PATH,AC,2,30,20,PPATH,P51X,1PATH,STAT AVPRIN,0, , PDEF,Mise,S,EQV,AVG /PBC,PATH, ,0 *GET,Von_Mise,PATH, ,MA

12、X,MISE ! LGWRITE,tube_she,lgw,COMMENT FINISH /OPTOPANL,'tube_she','lgw',' ' OPVAR,B,DV,0.79,0.82+0.39, , OPVAR,H,DV,0.34,0.39+0.39, , OPVAR,VON_MISE,SV, ,294, , OPSAVE,'tube_she','opt',' ' OPVAR,WT,OBJ, , ,0.1, OPTYPE,RUN SAVE,TubeSheet_opt_model,db, OPEXE ! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG KEYW,BETA,0 OPTYPE,FIRS OPFRST,5,OPEXE ! OPTIMIZATION LOOPING HAS CLEARED THE INTERNAL LOG KEYW,BETA,0 OPLIST,ALL, ,0 S