/FILNAME,buckling,0
/PREP7
W=1
L=2
W1=0.18
H1=0.003
H2=0.08
H3=0.002
ET,1,SHELL281
MP,EX,1,73E9
MP,PRXY,1,0.33
TB,BISO,1,1,2,
TBTEMP,0
TBDATA,,268.9E6,73E6,,,,
sect,1,shell,,
secdata, H1,1,0.0,3
secoffset,TOP
seccontrol,,,, , , ,
sect,2,shell,,
secdata, H3,1,0.0,3
secoffset,TOP
seccontrol,,,, , , ,
K,1,0,0
K,2,(W-4*W1)/2,0,0
K,3,(W-4*W1)/2,0,H2
K,4,(W-4*W1)/2+W1,0,0
K,5,(W-4*W1)/2+W1,0,H2
K,6,(W-4*W1)/2+W1+W1,0,0
K,7,(W-4*W1)/2+W1+W1,0,H2
K,8,(W-4*W1)/2+W1+W1+W1,0,0
K,9,(W-4*W1)/2+W1+W1+W1,0,H2
K,10,(W-4*W1)/2+W1+W1+W1+W1,0,0
K,11,(W-4*W1)/2+W1+W1+W1+W1,0,H2
K,12,W,0,0
K,13,0,L,0
L,1,2
L,2,3
L,2,4
L,4,5
L,4,6
L,6,7
L,6,8
L,8,9
L,8,10
L,10,11
L,10,12
L,1,13
ADRAG, 1, , , , , , 12
ADRAG, 2, , , , , , 12
ADRAG, 3, , , , , , 12
ADRAG, 4, , , , , , 12
ADRAG, 5, , , , , , 12
ADRAG, 6, , , , , , 12
ADRAG, 7, , , , , , 12
ADRAG, 8, , , , , , 12
ADRAG, 9, , , , , , 12
ADRAG, 10, , , , , , 12
ADRAG, 11, , , , , , 12
NUMMRG,ALL, , , ,LOW
ESIZE,0.04
secnum,1
amesh,1
AMESH,3
AMESH,5
AMESH,7
AMESH,9
AMESH,11
secnum,2
AMESH,2
AMESH,4
AMESH,6
AMESH,8
AMESH,10
/solu
pstres,on ! 激活预应力选项
NSEL,ALL
NSEL,S,LOC,Y,0
NPLOT
D,ALL, , , , , ,UX,UY,UZ, , ,
ALLSEL,ALL
SFL,13,PRES,9E4,
SFL,16,PRES,9E4,
SFL,19,PRES,9E4,
SFL,22,PRES,9E4,
SFL,25,PRES,9E4,
SFL,28,PRES,9E4,
SFL,31,PRES,9E4,
SFL,34,PRES,9E4,
SFL,37,PRES,9E4,
SFL,40,PRES,9E4,
SFL,43,PRES,9E4,
solve
finish
/solu
antype,buckle ! 激活屈曲分析Buckling analysis
bucopt,lanb,10, ! 使用block Lanczos提取前10阶模态
mxpand,10,,, ! 对该10阶模态进行扩展
outres,all,all
solve
finish
/prep7
*do,i,1,10
upgeom,0.05,1,i,buckling,rst !将每一阶模态添加1/10缺陷
*enddo
finish
/solu ! 激活静态分析
antype,static
nlgeom,on ! 激活大变形分析Large deflection is activated
outres,all,all ! 关闭预测器选项
time,1
AUTOTS,1
nsubst,100,1000,10
pred,off
RESCONTROL,DEFINE,ALL,ALL,0
solve
finish
/solu !使用非线性稳态技术重启动分析
antype,,restart,1,17
AUTOTS,1
nsubst,100,10000,10
stabilize,constant,energy,0.002 !使用能量选项
solve
fini