压力容器管板厚度的优化设计.doc

求真近道,明德致新压力容器管板厚度的优化设计 有限元作业 班级： 姓名： 学号： 指导老师： 年 月 日8一、考试题目： 如上图所示为某厂一台氨冷器的结构示意图，属于U型管式换热器，其相关的参数如下：设计压力：管程：Pt=（31.4+ 3910-1）MPa, 壳程：Ps=2.5MPa设计温度：管程：-10300C 壳程：-150C材料：管板：20MnMo锻件 球形封头：16MnR许用应力Sm：管板：196MPa 球形封头：147MPa材料的弹性模量Sm：E=2.0*105MPa 泊松比：v=0.3材料密度：=7.8t / m3其截面尺寸必须满足如下限制条件：790mmb（ 820+3910）mm, 340mmh（390+ 3910）mm。请设计管板的厚度h和管板的外半径b,在满足给定的强度要求下使得管板的重量最小。(系数K=学号最后两位数（如：2012*39），那么K=39)要求：写出操作步骤和命令流，定义工作文件名和工作标题为你的姓名拼音+学号。2、 GUI操作 参考ANSYS工程应用实例解析龚曙光P263-P277注： P266的（3）建立几何模型的7）不做； P268的（4）划分有线单元网格的15）不做； P269的（5）施加载荷并求解的1）“L20”改为“L21”； P269的（5）施加载荷并求解的2）“1375”节点等同于“12”关键点；P270的（5）施加载荷并求解的3）要注意选择倒角线等； P270的（6）进入后处理器计算单元总体积5）中“1834”“2324”节点等同于关键点“1”“4”；三、命令流方式（注，需要参照书本做一遍，根据保存数据得到，使用命令流才有效，否则效果不对，如果出现效果不对，要关闭软件再试一次命令流）/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,PLANE82KEYOPT,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,1WPSTYLE,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,-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 CMSEL,_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 MSHAPE,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,AREA 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 FLST,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, FINISH /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, ,MAX,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 SAVE,T