iCAx开思网

标题: 如何划分网格 [打印本页]

作者: lgwcc 时间: 2005-7-24 23:07
标题: 如何划分网格
小弟菜菜，请教高手，这个网格如何划分
单元全是solid45,命令流如下：
fini
/clear
/prep7
ANTYPE,STATIC    
NLGEOM,ON      ! 打开大变形开关
SMRT,OFF
et,1,solid45
MP,EX,1,2E11
MP,nuxy,1,0.3
MP,DENS,1,7800
mp,damp,1,0.02

r,1
mat,1
type,1
real,1

k,1
k,2,,40e-3
k,3,40e-3,40e-3
k,4,40e-3

kgen,2,1,4,1,,,1
v,1,2,3,4,5,6,7,8

k,9,1.5e-3,1.5e-3
k,10,38.5e-3,1.5e-3
k,11,1.5e-3,38.5e-3
k,12,38.5e-3,38.5e-3
a,9,10,12,11
VEXT,7,,,,,1
vsbv,1,2!布尔减
VGEN,2,3, , , ,.24    !tube

local,11,0,40e-3,20e-3,0.5!改变坐标系
csys,11

k,33,0,0
k,34,0,0,40e-3
kgen,2,33,34,1,,.24,.24
k,37,0,20e-3,20e-3
k,38,0,20e-3,60e-3
kgen,2,37,38,1,,.2,.2
kgen,2,37,40,1,-10e-3!节点复制
a,33,34,36,35
vext,21,,,1.5e-3！面拉伸
a,37,41,43,39
a,44,40,38,42
VEXT,28,,,,,-1.5e-3
VEXT,27,,,,,1.5e-3 !clip

vsymm,z,2
vsymm,z,4,5,1  !!second clip
vadd,2,4,5
vadd,6,7,8

欢迎光临 iCAx开思网 (https://www.icax.org/)