                                                   
finish                                             
/clear                                             
/filname,chab                                      
                                                   
*afun,rad                                          
X_CRACK =0.2                                       
Y_CRACK =0.05                                      
X_BLOCK =5                                         
Y_BLOCK =5                                         
NO_CYCLE=10                                        
                                                   
/prep7                                             
et,1,182                                           
r,1                                                
  mp,ex  ,1,26.3e6                                 
  mp,prxy,1,0.3                                    
  tb,chab,1,1,3                                    
  tbtemp,0.0                                       
  tbdata,1,18.8e3                                  
  tbdata,2,60e6,20e3                               
  tbdata,4,13e6,800                                
  tbdata,6,455e3,9                                 
rectng,,0.2,,0.05                                  
wpoffs,0.2                                         
pcirc,0.05,,0,90                                   
wpcsys,-1,0                                        
rectng,,5,,5                                       
asba,3,all                                         
                                                   
                                                   
mshape,0                                           
mshkey,0                                           
esize,X_BLOCK/20                                   
smrtsize,6                                         
amesh,all                                          
                                                   
lsel,s,loc,x,0,X_CRACK+Y_CRACK                     
lsel,r,loc,y,0,Y_CRACK                             
lrefine,all,,,1,4                                  
lrefine,all,,,1,4                                  
                                                   
allsel,all                                         
finish                                             
                                                   
                                                   
/solu                                              
  antype,static                                    
  nlgeom,on                                        
  outres,all,all                                   
  rescon,define,none                               
  nsubst,10*NO_CYCLE,1e5,10*NO_CYCLE               
  time,NO_CYCLE*acos(-1)                           
  *dim,MYLOAD,table,6,6,1                          
  MYLOAD(0,0,1)= 0.0, -999                         
  MYLOAD(2,0,1)= 0.0                               
  MYLOAD(3,0,1)= 0.0                               
  MYLOAD(4,0,1)= 0.0                               
  MYLOAD(5,0,1)= 0.0                               
  MYLOAD(6,0,1)= 0.0                               
  MYLOAD(0,1,1)= 1.0, -1, 9, 1, 1, 0, 0            
  MYLOAD(0,2,1)= 0.0, -2, 0, 21e3, 0, 0, -1        
  MYLOAD(0,3,1)=   0, -3, 0, 1, -2, 3, -1          
  MYLOAD(0,4,1)= 0.0, -1, 0, -4.3e3, 0, 0, -3      
  MYLOAD(0,5,1)= 0.0, -2, 0, 1, -1, 2, -3          
  MYLOAD(0,6,1)= 0.0, 99, 0, 1, -2, 0, 0           
                                                   
  lsel,s,loc,y,X_BLOCK                             
  nsll,s,1                                         
  sf,all,pres,%MYLOAD%                             
lsel,s,loc,x,0                                     
nsll,s,1                                           
d,all,ux                                           
lsel,s,loc,y,0                                     
nsll,s,1                                           
d,all,uy                                           
allsel,all                                         
wpstyl,,,,,,,,0                                    
  solve                                            
  finish                                           
  /post26                                          
  numvar,200                                       
  ansol,2,node(X_CRACK+Y_CRACK,0,0),s,y,C_YSTRS    
  ansol,3,node(X_CRACK+Y_CRACK,0,0),eppl,y,C_YPLAS 
  ansol,4,node(X_CRACK+Y_CRACK,0,0),nl,epeq,C_YACCU
  xvar,3                                           
  plvar,2                                          