/BATCH  
/COM,ANSYS RELEASE 11.0SP1 UP20070830       16:27:20    12/02/2015
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1   
/REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE  
*SET,l,0,1  
*SET,l , 0.1
/BATCH  
/COM,ANSYS RELEASE 11.0SP1 UP20070830       16:33:20    12/02/2015
/input,menust,tmp,'',,,,,,,,,,,,,,,,1   
/GRA,POWER
/GST,ON
/PLO,INFO,3
/GRO,CURL,ON
/CPLANE,1   
/REPLOT,RESIZE  
WPSTYLE,,,,,,,,0
/REPLOT,RESIZE  
*SET,l , 0.1
*SET,h , 2e-3   
*SET,b , 4e-3   
*SET,e , 2e11   
*SET,mu , 0.3   
*SET,p , 1000   
*SET,m , 1000   
*SET,massa , 1  
/PREP7  
!*  
ET,1,BEAM188
!*  
ET,2,MASS21 
!*  
KEYOPT,2,1,0
KEYOPT,2,2,0
KEYOPT,2,3,4
!*  
*SET,m , 1  
*SET,MASSA    , 
!*  
R,1,m,  
!*  
!*  
R,2,m*l*l/4,
!*  
!*  
R,2,0.0025, 
!*  
SAVE
/UI,BEAM,OFF
SECTYPE,   1, BEAM, RECT, , 0   
SECOFFSET, CENT 
SECDATA,b,h,0,0,0,0,0,0,0,0 
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,e  
MPDATA,PRXY,1,,mu   
SAVE
K,1,0,0,0,  
K,1,l,0,0,  
K,1,2*l,0,0,
K,1,0,0,0,  
K,2,l,0,0,  
K,2,l*2,0,0,
K,3,l*2,0,0,
K,2,l,0,0,  
GPLOT   
K,4,l*3,0,0,
L,       1,       2 
L,       2,       3 
L,       3,       4 
FLST,5,3,4,ORDE,2   
FITEM,5,1   
FITEM,5,-3  
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,1,1,1, , , ,1  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
FLST,5,3,4,ORDE,2   
FITEM,5,1   
FITEM,5,-3  
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,30, , , , ,1 
!*  
FLST,5,3,4,ORDE,2   
FITEM,5,1   
FITEM,5,-3  
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,1,1,1, , , ,1  
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
GPLOT   
TYPE,   2   
MAT,       1
REAL,       1   
ESYS,       0   
SECNUM,   1 
TSHAP,LINE  
!*  
!*  
/SHRINK,0   
/ESHAPE,1.0 
/EFACET,1   
/RATIO,1,1,1
/CFORMAT,32,0   
/REPLOT 
!*  
SAVE
SAVE
FINISH  
/SOL
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,ALL, , , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
DK,P51X, , , ,0,UX,UY, , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
DK,P51X, , , ,0, , , , , , ,
GPLOT   
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
DK,P51X, , , ,0,ROTX, , , , , , 
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
DK,P51X, , , ,0, , , , , , ,
FLST,2,1,3,ORDE,1   
FITEM,2,2   
DKDELE,P51X,ALL 
GPLOT   
FLST,2,1,3,ORDE,1   
FITEM,2,3   
!*  
/GO 
DK,P51X, , , ,0,UX,UY, , , , ,  
SAVE
!*  
ANTYPE,2
!*  
!*  
MODOPT,LANB,10  
EQSLV,SPAR  
MXPAND,0, , ,0  
LUMPM,0 
PSTRES,0
!*  
MODOPT,LANB,10,0.001,10000, ,OFF
SAVE
/STATUS,SOLU
SOLVE   
/STATUS,SOLU
SOLVE   
/STATUS,SOLU
SOLVE   
FLST,2,1,3,ORDE,1   
FITEM,2,1   
DKDELE,P51X,ALL 
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,ALL, , , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,3   
DKDELE,P51X,ALL 
GPLOT   
FLST,2,1,3,ORDE,1   
FITEM,2,1   
DKDELE,P51X,ALL 
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,UX,UY, , , , ,  
FLST,2,1,3,ORDE,1   
FITEM,2,3   
FLST,2,1,3,ORDE,1   
FITEM,2,3   
!*  
/GO 
DK,P51X, , , ,0,UY, , , , , ,   
SAVE