命令流如下:
/PREP7
ET,1,PLANE42 !定义单元类型1LANE42
KEYOPT,1,3,2 !并设置为平面应变算法
MP,EX,1,206e9
MP,PRXY,1,0.3
MP,DENS,1,8
PCIRC,2500,2470,34,146, !创建立第1个圆环面,液面以上
PCIRC,2500,2470,146,394, !创建立第2个圆环面,液面以下
AADD,ALL !把两个圆环面合并成一个面
AATT,1,,1,0,
SMRTSIZE,6 !自动化分网格:6级精度
MSHAPE,0,2D
MSHKEY,0
AMESH,ALL
FINISH
/SOLU
!*
ANTYPE,0
/PNUM,KP,1
/PNUM,LINE,1
/NUMBER,0
D,294,ALL !在节点294施加约束 固定容器
D,382,ALL !在节点382施加约束 固定容器
LPLOT
SFGRAD,PRES,0,Y,3800,-17.64, !施加液体压力梯度设置(液体密度1.8*9.8)
SFL,10,PRES,0, !在线10上施加水压力
ACEL,0,9.8,0, !施加水压力
***CTRAN
/PBC,ALL, ,1
EPLOT
/PSF,PRES,NORM,2,0,1
EPLOT
SOLVE
FINISH
/POST1
SET,LAST !读入最后结果序列
PLNSOL,U,SUM,0,1 !图形显示总体变形
PLNSOL,S,1,0,1 !图形显示S1主应力
PLNSOL,S,3,0,1 !图形显示S3主应力
PLNSOL,S,EQV,0,1 !图形显示等效应力 |