压力容器接管应力分析ansys命令流.docx

! *环境设置*finish/clear/filn, E42 /title, FEA of connecting zone of nozzle to cylinder/units,si !采用国际单位制! * 参数设定*Rci=1000 ! 筒体内半径tc=30 ! 筒体厚度Rco=Rci+tc ! 筒体外半径Lc=4000 ! 筒体长度Rno=530 ! 接管外半径tn=15 ! 接管厚度Rni=Rno-tn ! 接管内半径Li=193 ! 接管内伸长度Ln=500 ! 接管外伸长度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,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 ! 筒体与接管外表面圆角 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,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 ! 生成外圆角区域体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 ! 指定过渡圆弧的剖分数vsweep,10 ! 扫略剖分该区域allsMSHAPE,0,3D ! 设定三维映射剖分MSHKEY,1 VMESH,7 ! 映射剖分接管上段VMESH,4 ! 映射剖分接管下段accat,56,65 ! 筒体开孔相邻区区域规则化连面LESIZE,108, , ,40,0.5, , , ,1 ! 指定筒体接管相邻区的剖分数VMESH,13 ! 扫略剖分该区域vsweep,11 ! 扫略剖分筒体其它部分vsweep,12vsweep,2allsnummrg,all ! 合并所有相同项numcmp,all ! 压缩fini !*求解*/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+Rci+Tc ! 选择接管端面DA,all,UY, ! 约束轴向位移asel,s,38 ! 选择内表面面素asel,a,34asel,a,9