/prep7

allsel

csys,0


! 
!  Kfiglaeuferwicklung
!

*Do,iz2,1,z2
*GET,maxnode, NODE, 0,num,max

R,210,1,  
noff=maxnode
koff=4*raussen+(iz2-1)*raussen/5
n1=noff+1
buepl%iz2%=n1
N,n1,koff,0.3*raussen,0  
n2=noff+2
sch1%iz2%=n2
N,n2,koff,-0.3*raussen,0 
RMOD,210,15,0,1   
ET,210,CIRCU124,6,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
E,n1,n2,wicknode1r%iz2%
*GET,espu%iz2%,elem,0,num,max
!*  
ringo%iz2%=n1

*GET,maxnode, NODE, 0,num,max
R,212,rwickstirn2, ,
n5=noff+5
N,n5,koff,-1.1*raussen,0  
RMOD,212,15,0,1  
ET,212,CIRCU124,0,0  
TYPE,212 
REAL,212 
MAT,1   
!*  
E,n2,n5 
*GET,espu%iz2%,elem,0,num,max
!*  
R,213,lwickstirn2, ,
!*  
!*  
n6=noff+6
buemi%iz2%=n6
N,n6,koff,-1.4*raussen,0  
RMOD,213,15,0,11 
ET,213,CIRCU124,1,0  
TYPE,213 
REAL,213 
MAT,1   
!*  
E,n5,n6 

ringu%iz2%=n6

!*  

*EndDo



! 
!  Stirnringverbindungen
!
R,214,rwickstirn2r, ,
RMOD,214,15,0,1  
ET,214,CIRCU124,0,0  
TYPE,214 
REAL,214 
MAT,1   

*Do,iz2,1,z2

*If,iz2,lt,z2,then
E,ringo%iz2%,ringo%iz2+1%
E,ringu%iz2%,ringu%iz2+1%
*Else
E,ringo%iz2%,ringo%1%
E,ringu%iz2%,ringu%1%
*EndIf

*EndDo