轻松改变壳的厚度

qiqi

写了一段apdl代码：
fini/cle/title,rthick example/prep7et,1,63mp,ex,1,2e8cyl4,0,0,10,0,2,135,10  vdele,       1  flst,2,5,5,orde,4   fitem,2,1   fitem,2,-2  fitem,2,4   fitem,2,-6  adele,p51x, , ,1eshape,2esize,,20amesh,alleplocsys,1 test=1mxnode = ndinqr(0,14)*if,test,eq,1,then*dim,thick,,mxnode*do,node,1,mxnode   *if,ndinqr(node,1),eq,1,then      thick(node) = 0.5 + 0.02*ny(node) + 0.2*nz(node)   *else      thick(node) = 0   *endif*enddo*else*dim,thick,,mxnode*do,node,1,mxnode   *if,ndinqr(node,1),eq,1,then      thick(node) = 2 + cos(ny(node))   *else      thick(node) = 0   *endif*enddo*endifnode = $ mxnode =rthick,thick(1),1,2,3,4/eshape,1.0  $ /user,1  $ /dist,1,7/view,1,-0.75,-0.28,0.6  $ /ang,1,-1/foc,1,5.3,5.3,0.27  $ eplo

qiqi

fini
/cle
/title,rthick example
/prep7
et,1,63
mp,ex,1,2e8
cyl4,0,0,10,0,2,135,10  
vdele,       1  
flst,2,5,5,orde,4   
fitem,2,1   
fitem,2,-2  
fitem,2,4   
fitem,2,-6  
adele,p51x, , ,1
eshape,2
esize,,20
amesh,all
eplo
csys,1
test=1
mxnode = ndinqr(0,14)
*if,test,eq,1,then
*dim,thick,,mxnode
*do,node,1,mxnode
   *if,ndinqr(node,1),eq,1,then
      thick(node) = 0.5 + 0.02*ny(node) + 0.2*nz(node)
   *else
      thick(node) = 0
   *endif
*enddo
*else
*dim,thick,,mxnode
*do,node,1,mxnode
   *if,ndinqr(node,1),eq,1,then
      thick(node) = 2 + cos(ny(node))
   *else
      thick(node) = 0
   *endif
*enddo
*endif
node = $ mxnode =

rthick,thick(1),1,2,3,4
/eshape,1.0  $ /user,1  $ /dist,1,7
/view,1,-0.75,-0.28,0.6  $ /ang,1,-1
/foc,1,5.3,5.3,0.27  $ eplo

bbs_bbs1000

强啊  学习学习

pfsr

一点说明都没有，谁看得懂啊？

keetybin

强，好好学习

egotrip

看不太明白,加点注释吗,这样发我们怎么学习啊

ftpnihao

强人啊努力学习啊啊

dsxu1981_01

建议给给大家做简要的说明