save,file,db
/PREP7  
!*  
ET,1,PLANE183   
!*  
KEYOPT,1,1,0
KEYOPT,1,3,0
KEYOPT,1,6,0
!*  
ET,2,CONTA172   
KEYOPT,2,9,0
KEYOPT,2,10,2
!*  
ET,3,TARGE169
!*
ET,4,MPC184 
!*  
KEYOPT,4,1,1
KEYOPT,4,2,0
!*
ET,5,MASS21 
!*  
KEYOPT,5,1,0
KEYOPT,5,2,1
KEYOPT,5,3,4
!KEYOPT,5,1,0
!KEYOPT,5,2,0
!KEYOPT,5,3,0
R,2,0,0,0,0,0,0,
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.3  
TB,BISO,1,1,2,  
TBTEMP,0
TBDATA,,200,1000,,,,
!
!*  
!*  
FINISH  
/AUX15  
!*  
IOPTN,IGES,SMOOTH   
IOPTN,MERGE,YES 
IOPTN,SOLID,YES 
IOPTN,SMALL,YES 
IOPTN,GTOLER, DEFA  
IGESIN,'Vz_3Z_igs','igs','D:\Benutzer\stohrer7'
! LPLOT   
!*  
FINISH
/prep7
!Beginn Flächen definieren
lsel,s,,,150,386
!lsel,a,line,,229,306
!lsel,a,line,,150,228
!lsel,a,line,,347,386
lsel,a,,,393,394
!lsel,a,,,399,400  !Dies sind lines zum Mittelpunkt
!lsel,a,line,,150
al,all  
lsel,s,,,1,149
lsel,a,,,391,392
al,all
!Ende Flächen definieren
allsel,all
!Ritzel vernetzen
asel,s,,,1
esize,1
amesh,all
!Netz an Zahnflanke verfeinern
lsel,s,,,151,175
lrefine,all,,,5,1,1,1     !5 gibt Grad der Verfeinerung an (zwischen 1 und 5)
!Zahnkranz vernetzen
asel,s,,,2
esize,0.5
amesh,all
allsel,all
mp,mu,1,0.1
mat,1
!Beginn Zahnflanke des Ritzels als Target definieren
!lsel,s,,,151,175
!type,3
!nsll,s,1
!esln,s,0	! hier könnte ich folgendes Versuchen um Rechenzeit zu sparen: esln,s,0,active
!esurf
!Ende Zahnflanke des Ritzels als Target definieren
!Beginn Zahnflanke des Zahnkranzes als Conta definieren
!lsel,s,,,27,50
!type,2
!nsll,s,1
!esln,s,0
!esurf
!Ende Zahnflanke des Zahnkranzes als Conta definieren
allsel
esel,all
finish
/prep7
nkpt,0,302	!Masterknoten
type,5
mat,2
real,2
e,17120
nsel,s,,,1
nsel,a,,,2,28,2
Node_c=
!*
*GET, Nodenum, NODE, 0, count,
*DIM,Node_c,array,nodenum,1,1,,,,0
!*
*do,i,1,nodenum
 *GET,Nodemin,NODE,0,num,min,
 Node_c(i,1)=Nodemin
 NSEL,u,,,nodemin 
*enddo
*DO,I,1,NODENUM
TYPE,4              !MPC184 Elemente
E,17120,NODE_C(I,1)
*ENDDO
allsel,all
RBE3,17120,UX,node_c