/PREP7
FYB= 350						
MYEB= 210000				
MYNUB= 0.3					

FC= 5.17						
MYEKX= 6000					
MYEKY= 6000					
MYEKZ= 6000					
MYGX= 200.85				
MYGY= 200.85				
MYGZ= 200.85				
MYNUKX= 0.1					
MYNUKY= 0.1					
MYNUKZ= 0.1					

DICKEBO= 0.6				
DICKEBU= 0.5				

FINISH


/Prep7

mp,ex,1,MYEB
mp,prxy,1,MYNUB
tb,bkin,1
tbtemp,0.0
tbdata,1,FYB,MYEB/100000
et,1,shell181
keyopt,1,1,0
r,1,DICKEBO
r,3,DICKEBU

mp,ex,2,MYEKX				
mp,ey,2,MYEKY
mp,ez,2,MYEKZ
mp,gxy,2,MYGX			
mp,gxz,2,MYGY
mp,gyz,2,MYGZ
mp,prxy,2,MYNUKX				
mp,prxz,2,MYNUKY
mp,pryz,2,MYNUKZ
tb,bkin,2 
tbtemp,0.0
tbdata,1,FC,MYEKX/10000
et,2,solid185

et,3,combin39
keyopt,3,1,0 
keyopt,3,2,0
keyopt,3,3,3
r,7,-1,-100000,0,0,0.1,1,0.11,0,100,0

k,1,-10,-10,0
k,2,10,-10,0
k,3,10,10,0
k,4,-10,10,0
l,1,2
l,2,3
l,3,4
l,4,1

al,1,2,3,4
agen,2,1,1,1,,,0
asel,s,area,,1
lesize,1,2
lesize,2,2
lesize,3,2
lesize,4,2
type,1
mat,1
real,1
amesh,all
allsel

asel,s,area,,2
lesize,5,2
lesize,6,2
lesize,7,2
lesize,8,2
real,3
amesh,all
allsel

type,3
real,7
nsel,s,loc,z,0
eintf,0.02
allsel

nsel,s,loc,z,0
cpintf,ux,0.02
cpintf,uy,0.02
allsel

vext,2,,1,,,15
allsel
type,2
mat,2
esize,2
vsweep,all
allsel

aclear,2
allsel

nsel,s,loc,z,15
d,all,all

nsel,s,loc,x,0
nsel,r,node,,1,121
nsel,r,loc,y,0
nsel,r,loc,z,0
f,all,fz,-500
allsel
finish

/solu
ANTYPE,STATIC
nlgeom,on
autots,on
pstres,on
solve
finish

/pnum, type, 1        
/number,1                
esel,s,type,,1   
/color,elem,orange       
/color, outline, white  
/color, wbak, black  
/repl                    
esel,all                 
eplo