我们常用到等厚度的壳单元,如果在工程上遇到壳的厚度是坐标位置的函数时,这样的壳单元模型,要用到 RTHICK 命令。
/PREP7
ET,1,63
RECT,,10,,10
ESHAPE,2
ESIZE,,20
AMESH,1
EPLO
MXNODE = NDINQR(0,14)
*DIM,THICK,,MXNODE
*DO,NODE,1,MXNODE
*IF,NSEL(NODE),EQ,1,THEN
THICK(node) = 0.5 + 0.2*NX(NODE) + 0.02*NY(NODE)**2
*ENDIF
*ENDDO
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