资源描述：
《压力容器接管应力分析ansys命令流》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、!***************环境设置************************finish/clear/filn,E42/title,FEAofconnectingzoneofnozzletocylinder/units,si!采用国际单位制!*********参数设定*********Rci=1000!筒体内半径tc=30!筒体厚度Rco=Rci+tc!筒体外半径Lc=4000!筒体长度Rno=530!接管外半径tn=15!接管厚度Rni=Rno-tn!接管内半径Li=193!接管内伸长度Ln=500!接管外伸长
2、度rr1=30!焊缝外侧过渡圆角半径rr2=15!焊缝内侧过渡圆角半径pi=1.2!内压pc=pi*Rci**2/(Rco**2-Rci**2)!筒体端部轴向平衡面载荷!****************前处理***************************/prep7et,1,95!定义单元类型mp,ex,1,2e5!定义材料的弹性模量mp,nuxy,1,0.3!定义材料的泊松比!****************建立模型***************************cylind,Rco,Rci,0,-Lc/2,
3、90,270,!生成筒体wpoff,0,0,-Lc/2!将工作面沿-Z向移动Lc/2wprot,0,90,!将工作面沿yz旋转90度cylind,Rno,Rni,-Ln-Rci-tc,-Rci+Li,90,180,!生成接管vovlap,all!体overlap布尔运算vsel,s,,,7!选择筒体*afun,deg!设定角度函数中单位为角度ang1=2*nint(asin(Rno/Rci))!计算接管区切割角度wprot,0,0,-90+ang1!旋转坐标系vsbw,all!切割筒体afillt,21,12,rr1!筒体与
4、接管外表面圆角afillt,23,35,rr2!筒体内表面与接管外表面圆角afillt,14,25,rr2!生成下辅助过渡圆角afillt,13,19,rr1!生成上辅助过渡圆角allsaskin,91,64!根据接管外过渡圆角在接管内外表面上的交线蒙面vsba,4,13!切割外伸接管askin,83,72!根据接管内过渡圆角在接管内外表面上的交线蒙面vsba,5,18!切割内伸接管askin,67,75!根据内外圆角边界蒙皮生成切割面24vsba,2,24!切割筒体wprot,0,,90-ang1!旋转坐标系wprot,0
5、,90,0!旋转坐标系wpoff,0,0,-2*Rni!移动坐标系至接管区轴向切割位置vsbw,all!切割筒体VDELE,3,,,1!删除筒体上开孔失去的部分ADELE,25,,,1!删除辅助面ADELE,35,,,1!删除辅助面al,33,65,5!生成外圆角区域所需的端面al,49,73,40!生成外圆角区域所需的端面al,66,7,37!生成内圆角区域所需的端面al,41,74,50!生成内圆角区域所需的端面asel,s,,,31!选择外圆角区域各面asel,a,,,38,39asel,a,,,4,6,2va,all
6、!生成外圆角区域体asel,s,,,21!选择内圆角区域各面asel,a,,,41,42asel,a,,,5,9,4va,all!生成内圆角区域体vsel,s,,,1,5,2!选择过渡区的体素vsel,a,,,8,9vsel,a,,,6vadd,all!合并体素allsaadd,4,43,29,26,5,51!合并过渡区端面面素aadd,50,9,52,28,45,6!合并过渡区端面面素!划分网格LESIZE,67,,,80,,,,,1!指定圆周方向的剖分数LESIZE,5,,,5,,,,,1!指定过渡圆弧的剖分数vswee
7、p,10!扫略剖分该区域allsMSHAPE,0,3D!设定三维映射剖分MSHKEY,1VMESH,7!映射剖分接管上段VMESH,4!映射剖分接管下段accat,56,65!筒体开孔相邻区区域规则化连面LESIZE,108,,,40,0.5,,,,1!指定筒体接管相邻区的剖分数VMESH,13!扫略剖分该区域vsweep,11!扫略剖分筒体其它部分vsweep,12vsweep,2allsnummrg,all!合并所有相同项numcmp,all!压缩fini!****************求解**************
8、*************/soluasel,s,loc,z,0!选择筒体端面SFA,all,1,PRES,-pc!施加端面平衡面载荷asel,s,loc,x,0!选择对称面asel,a,loc,z,-Lc/2!选择对称面DA,all,SYMM!施加对称约束asel,s,loc,y,Ln+
