FINI
/CLE
/FILENAME,EX4-2,1
/TITLE,the Contact Analysis of Gear
/AUX15  
IGESIN,EX4-2,IGES
VPLOT   
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST
/PREP7
ET,1,SOLID95
ET,2,TARGE170
ET,3,CONTA174
MP,EX,1,2E5
MP,NUXY,1,0.3
VGLUE,ALL
VADD,ALL
VGEN,2,3, 3, 1,6.5, , , ,0 
WPAVE,6.5,0,0
CSYS,1
VGEN, ,1, , , ,6.5, , , ,1  
SMRT,10 
MSHAPE,1,3D 
VMESH,ALL
!
MP,MU,1,
MAT,1   
R,3 
REAL,3  
ET,4,170
ET,5,174
R,3,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,271
CM,_TARGET,AREA 
TYPE,4  
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF    
! Generate the contact surface  
ASEL,S,,,23 
CM,_CONTACT,AREA
TYPE,5  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
! 
MP,MU,1,0   
MAT,1   
R,4 
REAL,4  
ET,6,170
ET,7,174
R,4,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,271
CM,_TARGET,AREA 
TYPE,6  
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
! Generate the contact surface  
ASEL,S,,,342
CM,_CONTACT,AREA
TYPE,7  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
!
MP,MU,1,0   
MAT,1   
R,5 
REAL,5  
ET,8,170
ET,9,174
R,5,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,272
CM,_TARGET,AREA 
TYPE,8  
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF    
! Generate the contact surface  
ASEL,S,,,12 
CM,_CONTACT,AREA
TYPE,9  
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
!
MP,MU,1,0   
MAT,1   
R,6 
REAL,6  
ET,10,170   
ET,11,174   
R,6,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,275
CM,_TARGET,AREA 
TYPE,10 
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
! Generate the contact surface  
ASEL,S,,,15 
CM,_CONTACT,AREA
TYPE,11 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
!
MP,MU,1,0   
MAT,1   
R,7 
REAL,7  
ET,12,170   
ET,13,174   
R,7,,,0.1,0.1,0.01,  
! Generate the target surface   
ASEL,S,,,254
CM,_TARGET,AREA 
TYPE,12 
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF    
! Generate the contact surface  
ASEL,S,,,15 
CM,_CONTACT,AREA
TYPE,13 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
!
MP,MU,1,0   
MAT,1   
R,8 
REAL,8  
ET,14,170   
ET,15,174   
R,8,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,256
CM,_TARGET,AREA 
TYPE,14 
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
! Generate the contact surface  
ASEL,S,,,17 
CM,_CONTACT,AREA
TYPE,15 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
!
MP,MU,1,0   
MAT,1   
R,9 
REAL,9  
ET,16,170   
ET,17,174   
R,9,,,0.1,0.1,0.01, 
! Generate the target surface   
ASEL,S,,,256
CM,_TARGET,AREA 
TYPE,16 
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
! Generate the contact surface  
ASEL,S,,,345
CM,_CONTACT,AREA
TYPE,17 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
!
MP,MU,1,0   
MAT,1   
R,10
REAL,10 
ET,18,170   
ET,19,174   
R,10,,,0.1,0.1,0.01,   
! Generate the target surface   
ASEL,S,,,257
CM,_TARGET,AREA 
TYPE,18 
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
! Generate the contact surface  
ASEL,S,,,320
CM,_CONTACT,AREA
TYPE,19 
NSLA,S,1
ESLN,S,0
ESURF   
ALLSEL  
SAVE
FINISH
/SOLU
ANTYPE,0
OUTRES,BASIC,ALL
NLGEOM,ON
NROPT,FULL,,ON
AUTOTS,ON
PRED,ON
LNSRCH,ON
!
FLST,5,48,5,ORDE,48 
FITEM,5,20  
FITEM,5,22  
FITEM,5,34  
FITEM,5,55  
FITEM,5,62  
FITEM,5,76  
FITEM,5,91  
FITEM,5,106 
FITEM,5,118 
FITEM,5,132 
FITEM,5,145 
FITEM,5,160 
FITEM,5,174 
FITEM,5,188 
FITEM,5,199 
FITEM,5,214 
FITEM,5,230 
FITEM,5,244 
FITEM,5,253 
FITEM,5,268 
FITEM,5,286 
FITEM,5,295 
FITEM,5,310 
FITEM,5,326 
FITEM,5,341 
FITEM,5,350 
FITEM,5,358 
FITEM,5,367 
FITEM,5,376 
FITEM,5,385 
FITEM,5,394 
FITEM,5,403 
FITEM,5,412 
FITEM,5,421 
FITEM,5,430 
FITEM,5,439 
FITEM,5,448 
FITEM,5,456 
FITEM,5,468 
FITEM,5,480 
FITEM,5,492 
FITEM,5,504 
FITEM,5,516 
FITEM,5,528 
FITEM,5,540 
FITEM,5,552 
FITEM,5,564 
FITEM,5,576 
ASEL,S, , ,P51X
DA,ALL,UX,0
DA,ALL,UY,0
DA,ALL,UZ,0
DA,ALL,ROTX,0
DA,ALL,ROTY,0
F,1848,FX,20
F,3439,FX,-20
SAVE
SOLVE
FINISH
/POST1
SET,LAST
PLDISP,2
/REPLOT 
PLNSOL,S,EQV
/REPLOT 
FINISH
/EXIT,ALL