关于球面的网格划分
[转自]http://www.simwe.com/forum/viewthread.php?tid=812924&highlight=%C7%F2
如图所示一个半球面,想划成规范的四边形网格,可怎么也不如意,该怎么划?很少用Ansys做前处理,哪位大侠帮忙划一下,在模型命令后边加上几条命令,非常感谢。
模型命令流如下:
/PREP7
ET,1,SHELL93
R,1,1, , , , , ,
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,2e10
MPDATA,PRXY,1,,0.3
SPH4, , ,50
VPLOTt
VPLOTt
BLOCK,-20,20,-80,80,-20,20,
VPLOTt
VPLOTt
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
VOVLAP,P51X
FLST,2,3,6,ORDE,2
FITEM,2,3
FITEM,2,-5
FLST,2,2,6,ORDE,2
FITEM,2,3
FITEM,2,-4
VDELE,P51X, , ,1
VPLOTt
FLST,2,2,6,ORDE,2
FITEM,2,5
FITEM,2,-6
VDELE,P51X
APLOT
FLST,2,4,5,ORDE,2
FITEM,2,19
FITEM,2,-22
ADELE,P51X, , ,1
APLOT
FLST,2,2,5,ORDE,2
FITEM,2,13
FITEM,2,23
ADELE,P51X, , ,1
APLOT
/VIEW,1,1,1,1
/ANG,1
/REP,FAST
WPSTYLE,,,,,,,,1
wpstyle,0.05,2,-50,50,0.003,0,0,,5
wpro,,,45.000000
ASBW, 24
wpro,,,90.000000
FLST,2,2,5,ORDE,2
FITEM,2,1
FITEM,2,-2
ASBW,P51X
APLOT
WPSTYLE,,,,,,,,0
WPCSYS,-1,0
具体图片,见原帖。 |