/BATCH  
! /COM,ANSYS RELEASE 10.0    UP20050718       10:27:03    02/26/2010              
/input,start100,ans,'C:\PROGRAM FILES\ANSYS INC\V100\ANSYS\apdl\',,,,,,,,,,,,,,,,1  
!*  
/filname, shell99   
/title, shell99 
/prep7  
rectng, 0,10,0,10   
et, 1, shell99  
!*  
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 
*SET,_RC_SET,1, 
R,1 
!*  
RMODIF,1,1,1,0,0,0,0,0  
!*  
RMODIF,1,13,1,0,1,  
!*  
!*  
!*  
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,41,1,ORDE,4  
FITEM,2,1   
FITEM,2,82  
FITEM,2,122 
FITEM,2,-160
!*  
/GO 
D,P51X, , , , , ,UX,UZ,ROTX,ROTY,ROTZ,  
FLST,2,41,1,ORDE,2  
FITEM,2,1   
FITEM,2,-41 
!*  
/GO 
D,P51X, , , , , ,UY,UZ,ROTX,ROTY,ROTZ,  
! LGWRITE,'shell99','lgw','D:\ANSYSR~1\',COMMENT
!*
/GO 
F,P51X,FY,0.025 
FLST,2,2,1,ORDE,2   
FITEM,2,42  
FITEM,2,82  
!*  
/GO 
F,P51X,FY,0.0125
FLST,2,39,1,ORDE,2  
FITEM,2,43  
FITEM,2,-81 
!*  
/GO 
F,P51X,FX,0.025 
FLST,2,2,1,ORDE,2   
FITEM,2,2   
FITEM,2,42  
!*  
/GO 
F,P51X,FX,0.0125
! /USER,  1   
! /REPLO  
solve   
FINISH