fini
/clear
/prep7  
et,1,plane42      			!ƽģ
et,2,SOLID45
mp,ex,1,2.5e10    			!ϵģ
mp,nuxy,1,0.16  
mp,dens,1,2700    			!ܶ
mp,ex,2,10e6      			!ģ
mp,nuxy,2,0.45  
mp,dens,2,2000  
tb,dp,2           			!ģ
tbdata,1,10,30,30   
k,1 
k,2,1.5 
k,3,1.5,0.4 
k,4,1.1,0.4 
k,5,1.1,0.8 
k,6,0.7,0.8 
k,7,0.7,1.2 
k,8,0.3,1.2 
k,9,0.3,2   
k,10,0,2
k,11,4,2
k,12,4,0
k,13,4,-2   
k,14,0,-2   
k,15,0.3,3  
k,16,0,3
*do,i,1,9,1 
l,i,i+1 
*enddo  
l,10,1  
al,1,2,3,4,5,6,7,8,9,10 
l,9,11  
*do,i,11,13,1   
l,i,i+1 
*enddo  
l,14,1  
l,2,12  
al,2,3,4,5,6,7,8,11,12,16   
al,1,16,13,14,15
l,9,15  
l,15,16 
l,16,10 
al,9,17,18,19   
/pnum,area,1
/pnum,line,1
aplot   
lsel,s,,,2,8,1  
lesize,all,0.2  
lsel,s,,,9  
lesize,all,0.15 
lsel,s,,,10 
lesize,all,0.2  
lsel,s,,,1  
lesize,all,,,8  
amesh,1 
lsel,s,,,11 
lesize,all,0.2  
lsel,s,,,12 
lesize,all,0.2  
lsel,s,,,16 
lesize,all,0.2  
amesh,2 
lsel,s,,,15 
lesize,all,0.2  
lsel,s,,,14 
lesize,all,,,21 
lsel,s,,,13 
lesize,all,0.2  
amesh,3 
lsel,s,,,17,19,2
lesize,all,0.2  
lsel,s,,,18 
lesize,all,,,2  
amesh,4 
EXTOPT,ESIZE,3,0,         	!ķΪ3
EXTOPT,ACLEAR,1        		!ԭʼ
type,2                     	!ĵԪ
mat,1                     		!ĲΪ
VEXT,1,4,3,,,-0.6            	!쳤Ϊ-0.6
EXTOPT,ESIZE,6,0,          	!ģ
EXTOPT,ACLEAR,1
mat,2
VEXT,2,3,1,,,-1.2
EXTOPT,ESIZE,3,0,
vext,5,,,,,-0.6
allsel
nummrg,all
numcmp,all
/view,1,1,1,1
/ang,1
/PNUM,MAT,1 
eplot
save
finish

/solu
antype,static
alls
fcum,add,,
asel,s,loc,x,0
aplot
da,all,symm
asel,s,loc,x,4
da,all,ux
aplot
asel,s,loc,z,0
da,all,symm
asel,s,loc,z,-1.2
da,all,uz
asel,s,loc,y,-2
da,all,all
allsel
ACEL,0,9.8,0,             !ٶ
deltim,0.2,0.05,0.4 
autots,on !ʹԶʱ䲽 
pred,on !ʱ䲽Ԥ 
!lnsrch,on ! 
nlgeom,on !򿪴λЧ 
nropt,full,,on !趨ţ-ɭѡ 
KBC,0               !Ӻ
TIME,1 
OUTRES,basic,1  !ѡƣÿһӲrescontrol,,all,1,100
cnvtol,f,,0.02,2,1
solve
save
rescontrol,file_summany


/solu
antype,,rest,1,4
nsel,s,loc,y,3
esln,s
eplot
sfe,all,4,pres,,50
allsel,all
TIME,2
deltim,0.2,0.05,0.4  
autots,on !ʹԶʱ䲽 
pred,on !ʱ䲽Ԥ 
lnsrch,on ! 
nlgeom,on !򿪴λЧ 
nropt,full !趨ţ-ɭѡ 
cutcontrol,plslimit,0.20
KBC,0               !Ӻ
cnvtol,f,,0.02,2,1 
!cnvtol,f,,0.7,2
!NSUBST,30
OUTRES,basic,1   
solve 
save
rescontrol,file_summany


/post1
set,last
plnsol,s,y,0,1  !Ӧ
plnsol,s,eqv,0,1  !ЧӦ
plnsol,eppl,EQV,0,1  !


/POST1
LCDEF,1,1, ,          !1㲽Ϊ1
LCDEF,2,2, ,          !6㲽(ͶΪ100%)Ϊع2
LCASE,2,             !ع2
LCOPER,SUB,1, , ,     !ع2ȥع1
     plnsol,u,y
