/PREP7  
!*  
ET,1,BEAM188
!*  
SECTYPE,   1, BEAM, RECT, , 0   
SECOFFSET, CENT 
SECDATA,1,5,0,0,0,0,0,0,0,0,0,0 
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2e5
MPDATA,PRXY,1,,0.3  
K, ,,,, 
K, ,100/2,,,  
LSTR,       1,       2  
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,ALL, , , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
FK,P51X,FY,50   
FLST,5,1,4,ORDE,1   
FITEM,5,1   
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,50, , , , ,1 
!*  
LMESH,       1  
DK,2, , , ,0,UX,ROTZ, , , , ,
FINISH  
/SOL
ANTYPE,0
NLGEOM,1
NSUBST,50,50,50 
OUTRES,ERASE
OUTRES,ALL,ALL  
TIME,1
/REPLOT,RESIZE  
/STATUS,SOLU
SOLVE 
