/CLEAR
/FILENAME,example6-3,1
/TITLE,static analysis of a gear
/PREP7  
ET,1,PLANE42
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,3
KEYOPT,1,5,0
KEYOPT,1,6,0
R,1,4,  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,2.06e11
MPDATA,PRXY,1,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,DENS,1,,7.8e3

CSYS,1  
K,1,20,0,,  
K,110,16,40,,   
KWPAVE,110 
WPROT,-50,0,0   
CSYS,4  
K,2,12.838,0,,  
CSYS,1
K,120,16,43,,   
K,130,16,46,,   
K,140,16,49,,   
K,150,16,52,,   
K,160,16,55,, 

KWPAVE,120 
wprot,3 
CSYS,4  
K,3,13.676,0,,  
KWPAVE,130 
wprot,3 
K,4,14.513,0,,  
KWPAVE,140 
wprot,3 
K,5,15.351,0,,  
KWPAVE,150 
wprot,3 
K,6,16.189,0,,  
KWPAVE,160 
wprot,3 
K,7,17.027,0,,  
CSYS,1  
 
K,8,24,9.857,,  
K,9,24,13,, 
K,10,20,-5,,

LSTR,      10,       1  
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4  
LSTR,       4,       5  
LSTR,       5,       6  
LSTR,       6,       7  
LSTR,       7,       8  
LSTR,       8,       9  

LSEL,S,,,2,8,1
CM,LINE1,LINE
ALLSEL,ALL
LCOMB,LINE1,,0

CSYS,0
WPCSYS,-1,0   
WPAVE,0,0,0 
wprot,13
CSYS,4  

LSYMM,y,ALL, , ,1000,0,0  

LGLUE,5,9
LCOMB,5,6,0

CSYS,1  

LGEN,10,ALL, , , ,36, , ,0 

NUMSTR,LINE,101
LGLUE,8,11
LGLUE,13,16
LGLUE,18,21
LGLUE,23,26
LGLUE,28,31
LGLUE,33,36
LGLUE,38,41
LGLUE,43,46
LGLUE,1,48
LGLUE,3,6

LCOMB,8,101
LCOMB,13,102
LCOMB,18,103
LCOMB,23,104
LCOMB,28,105
LCOMB,33,106
LCOMB,38,107
LCOMB,43,108
LCOMB,1,109
LCOMB,3,110

LGLUE,ALL
AL,ALL
CYL4, , ,8 
ASBA, 1, 2  
LESIZE,ALL, , ,10, , , , ,1 
MSHAPE,0,2D 
MSHKEY,0
AMESH,3 
 
CSYS,1  
NROTAT,ALL
NSEL,S,LOC,X,8
D,ALL, , , , , ,UY, , , , ,
ALLSEL,ALL
OMEGA,,,62.8,0
SFL,2,PRES,5e6,
SFL,101,PRES,5e6,
SFL,137,PRES,5e6,
/SOLU
SOLVE