帮忙看一下哪里不对啊,我要在圆柱壳的外表面上加均布外压,进行特征值屈曲分析
finish
/clear
t=16
L=2000
R=416
s=45
/PREP7
ET,1,SHELL93
R,1,t
MP,EX,1,2e11
MP,PRXY,1,0.3
K,1,0,0,0,
K,2,0,0,L
LSTR, 1, 2
circle,1,R
lsel,s,loc,z,0
ADRAG,all,0,0,0,,,1
ldele,1
aesize,all,s
MSHAPE,0,2D
MSHKEY,0
amesh,all
finish
/SOLu 静力及特征值屈曲分析
!加约束
lsel,s,loc,z,0
dl,all,,ux
dl,all,,uy
lsel,s,loc,z,L
dl,all,,ux
dl,all,,uy
!加荷载
asel,s,area,,1,4,1,1
SFA,all,,PRES,1
PSTRES,ON
SOLVE
FINISH
/SOLU
ANTYPE,1
bucopt,subsp,1,0,0
subopt,0,0,0,0,0,all
MXPAND,1,0,0,0,0.001,
SOLVE
FINISH
/POST1
SET,FIRST
PLDISP,2
finish |