- 积分
- 0
- 注册时间
- 2008-3-31
- 仿真币
-
- 最后登录
- 1970-1-1
|
一个10×10的矩形面划分20×20的shell单元网格模型,其厚度为thick(x,y)=0.5+0.2*x+0.02*y**2!初始化ansys环境
finsih
/clear
/filname,shell-thick
!创建壳体网格模型
/prep7
et,1,63
rect,,10,,10
eshape,2
esize,,20 +
amesh,1
eplot
!变厚度壳的实现
*SET,mxnode,ndinqr(0,14)
!提取节点总数mxnode
*dim,thick,,mxnode
!定义厚度数组thick(mxnode)
*do,node,1,mxnode
*if,ndinqr(node,1),eq,1,then
*SET,thick(node),0.5+0.2*nx(node)+0.02*ny(node)**2
*else
*SET,thick(node),0
*endif
*enddo
!根据厚度分布函数计算每个节点的厚度,并将每个节点厚度记录在厚度数组thick(mxnode)
*SET,node,
*SET,mxnode,
!删除变量node,mxnode
rthick,thick(1),1,2,3,4
!分配单元厚度
/eshape,1
eplot
save
小弟初学APDL领会不了红体字的命令到底起了什么作用 望大侠指点
|
|