/PREP7                      
                            
ANTYPE,STATIC               
ET,1,SHELL181,              
R,1,6.350                   
MP,EX,1,3102.75             
MP,NUXY,1,0.3               
                            
R1 = 2540                   
L  = 254                    
PI = 4*ATAN(1)              
THETA = 0.1*180/PI          
CSYS,1                      
N,1,R1,90                   
N,2,R1,90,L                 
K,1,R1,90                   
K,2,R1,(90-THETA)           
K,3,R1,90,L                 
K,4,R1,(90-THETA),L         
ESIZE,,2                    
A,1,3,4,2                   
AMESH,1                     
NUMMRG,NODE                 
FINISH                      
                            
/PREP7                      
NSEL,S,LOC,Z,0              
DSYM,SYMM,Z                 
NSEL,S,LOC,Y,90             
DSYM,SYMM,X                 
NSEL,S,LOC,Y,(90-THETA)     
D,ALL,UX,,,,,UY,UZ          
NSEL,ALL                    
FINISH                      
                            
/SOLUTION                   
NLGEOM,ON                   
OUTRES,,1                   
F,1,FY,-250                 
NSUBST,30                   
ARCLEN,ON,4                 
SOLVE                       
FINI                        
                            
/POST26                     
NSOL,2,1,U,Y                
NSOL,3,2,U,Y                
PROD,4,1,,,LOAD,,,4*250     
PROD,5,2,,,,,,-1            
PROD,6,3,,,,,,-1            
*GET,UY1,VARI,2,EXTREM,VMIN 
*GET,UY2,VARI,3,EXTREM,VMIN 
PRVAR,2,3,4                 
/AXLAB,X, DEFLECTION (MM)   
/AXLAB,Y, TOTAL LOAD (N)    
/GRID,1                     
/XRANGE,0,35                
/YRANGE,-500,1050           
XVAR,5                      
PLVAR,4                  !  
XVAR,6                      
PLVAR,4                     
FINISH                      