/BATCH  
! /COM,ANSYS RELEASE 10.0    UP20050718       10:11:42    02/26/2010              
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
! /GRA,POWER  
! /GST,ON 
! /PLO,INFO,3 
! /GRO,CURL,ON
! /CPLANE,1   
! /REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
! /REPLOT,RESIZE  
/filname, shell63   
/title, shell63 
/prep7  
rectng, 0,10,0,10   
et,1,shell63
!*  
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,0
KEYOPT,1,5,0
KEYOPT,1,6,0
KEYOPT,1,7,0
KEYOPT,1,8,0
KEYOPT,1,9,0
KEYOPT,1,11,0   
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,XXXXXX 
MPDATA,EY,1,,XXXXXX  
MPDATA,EZ,1,,XXXXXX  
MPDATA,PRXY,1,,XXXXXX
MPDATA,PRYZ,1,,XXXXXX
MPDATA,PRXZ,1,,XXXXXX
MPDATA,GXY,1,,XXXXXX 
MPDATA,GYZ,1,,XXXXXX 
MPDATA,GXZ,1,,XXXXXX 
R,1,1, , , , ,0,
RMORE, , , ,
RMORE   
RMORE, ,
!*  
!*  
LESIZE,ALL,0.5, , , ,1, , ,1,   
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       1 
CM,_Y1,AREA 
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
FINISH  
/SOL
FLST,2,21,1,ORDE,4  
FITEM,2,1   
FITEM,2,42  
FITEM,2,62  
FITEM,2,-80 
!*  
/GO 
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,  
FLST,2,21,1,ORDE,2  
FITEM,2,1   
FITEM,2,-21 
!*  
/GO 
D,P51X, , , , , ,UY,UZ,ROTX,ROTY,ROTZ,  
FLST,2,19,1,ORDE,2  
FITEM,2,43  
FITEM,2,-61 
!*  
/GO 
F,P51X,FY,0.05  
FLST,2,2,1,ORDE,2   
FITEM,2,22  
FITEM,2,42  
!*  
/GO 
F,P51X,FY,0.025 
FLST,2,19,1,ORDE,2  
FITEM,2,23  
FITEM,2,-41 
!*  
/GO 
F,P51X,FX,0.05  
FLST,2,2,1,ORDE,2   
FITEM,2,2   
FITEM,2,22  
!*  
/GO 
F,P51X,FX,0.025 
! /USER,  1   
! /REPLO  
solve   
! SAVE, shell63,db, 
! LGWRITE,'shell63','lgw','D:\ANSYSR~1\',COMMENT