资源描述:
《圆、圆环、圆柱面、圆柱体网格划分.docx》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、ANSYS圆、圆环面、圆柱面、圆柱体的网格划分··!圆的网格划分 finish $/clear $/prep7 et,1,plane82 $r0=10 !定义单元类型和圆半径参数 cyl4,,,r0 $cyl4,3*r0,,,,r0 !创建两个圆面A和B,拟分别进行不同的网格划分 wprota,,90 $asbw,all !将圆面水平切分 wprota,,,90 $asbw,all
2、 !将圆面A竖向切分 wpoff,,,3*r0 $asbw,all !移动工作平面,将圆面B竖向切分 wpcsys,-1 !工作平面复位但不改变视图方向 asel,s,loc,x,-r0,r0 !选择圆面A的所有面 lsla,s !选择与圆面A相关的所有线 lesize,all,,,8
3、 !对上述线设置网格划分个数为8(三条边时相等且为偶数) mshape,0,2d $mshkey,1 !设置四边形单元、映射网格划分 amesh,all !圆面A划分网格· asel,s,loc,x,2*r0,4*r0 !选择圆面B的所有面 lsla,s !选择与圆面B相关的所有线 lesize
4、,all,,,8 !对上述线设置网格划分个数为8 lsel,r,length,,r0 !选择上述线中长度为半径的线 lesize,all,,,8,0.1,1 !设置这些线的网格划分数和间隔比 amesh,all $allsel !圆面B划分网格 !圆环的网格划分 finish $/clear $/prep7 et,1,plane82
5、 $r0=10 !定义单元类型和圆半径参数 cyl4,,,r0/3,,r0,90 $cyl4,2*r0,,r0/10,,r0,90 !创建两个1/4环面 asel,s,loc,x,-r0,r0 !选择环面A lsla,s$lesize,all,,,8 !选择环面A的所有线,定义网分数 lsel,r,length,
6、,r0*2/3 $lesize,all,,,3,,1 !选择径向线,网分数修改为3 mshape,0,2d $mshkey,1 $amesh,all !定义单元形状、划分类型、划分单元 ALLSEL $asel,s,loc,x,2*r0,4*r0 !选择环面B lesize,5,,,12 $lesize,7,,,6 !定义外周线和内周线网分数分别为12和6 lsel,s,len
7、gth,,r0*9/10 $lesize,all,,,7 !选择径向线,网分数为7 amesh,all !划分环面B的单元网格!圆柱面finish/clear/prep7r0=10 !定义圆半径h0=50 !定义圆的高度et,1,shell63 !定义单元类型cyl4,,,r0adele,1cm,l1cm
8、,line !将几何元素分组形成组元 k,50 !定义关键点k,51,,,h0l,50,51 !利用关键点定义线adrag,l1cm,,,,,,5 !沿线拉伸成面l