!!
!!Rotor
!!
allsel
csys,0

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,110,1,  
n1=maxnode+1
N,n1,-2*raussen+(ip-1)*raussen/5,0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,-2*raussen+(ip-1)*raussen/5,0-(ip-1)*raussen/5 
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
E,n1,n2,wicknode1%ip%
!*  
R,110,1,  
n3=maxnode+3
N,n3,-2*raussen+(ip-1)*raussen/5,-0.3*raussen-(ip-1)*raussen/5  
RMOD,110,15,0,1   
ET,110,CIRCU124,5,0   
TYPE,110  
REAL,110  
MAT,1   
!*  
E,n3,n2,wicknode2%ip%
wicks%ip%1=n1
wicks%ip%2=n3

*If,ip,eq,1,then
wickpan=n1
*EndIf
*If,ip,eq,2*p,then
wickpen=n1
*EndIf

!*  
*EndDo

R,111,1e-6, ,
RMOD,111,15,0,1  
ET,111,CIRCU124,0,0  
TYPE,111 
REAL,111 
MAT,1   

*Do,ip,2,2*p,2
E,wicks%ip-1%2,wicks%ip%2 
*If,ip,ne,2*p,then
E,wicks%ip%1,wicks%ip+1%1 
*EndIf
*EndDo

*GET,maxnode, NODE, 0,num,max
R,112,rwickstirn1, ,
N,maxnode+1,-1.1*raussen,0.3*raussen 
RMOD,112,15,0,1  
ET,112,CIRCU124,0,0  
TYPE,112 
REAL,112 
MAT,1   
!*  
E,wickpan,maxnode+1 
*GET,eer1,elem,0,num,max
!*  
R,113,lwickstirn1, ,
!*  
!*  
N,maxnode+2,-1.1*raussen,-0.3*raussen
RMOD,113,15,0,11 
ET,113,CIRCU124,1,0  
TYPE,113 
REAL,113 
MAT,1   
!*  
E,wickpen,maxnode+2 
!*  
R,114,i1,0,  
RMOD,114,15,0,33 
ET,114,CIRCU124,4,0  
TYPE,114 
REAL,114 
MAT,1   
!*  
N,maxnode+3,-raussen,0
E,maxnode+1,maxnode+2,maxnode+3
ET,114,CIRCU124,3,0  
*GET,eeu1,elem,0,num,max
neustatorp=maxnode+2
neustatorm=maxnode+1
!!
!!Rotor Kompensationswicklung
!!
*If,kompen,eq,1,then

allsel
csys,0

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,610,1,  
n1=maxnode+1
N,n1,raussen/2+(ip-1)*raussen/5,-4*raussen+0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,raussen/2+(ip-1)*raussen/5,-4*raussen-(ip-1)*raussen/5 
RMOD,610,15,0,1   
ET,610,CIRCU124,5,0   
TYPE,610  
REAL,610  
MAT,1   
!*  
R,610,1,  
n3=maxnode+3
N,n3,raussen/2+(ip-1)*raussen/5,-4*raussen-0.3*raussen-(ip-1)*raussen/5  
RMOD,610,15,0,1   
ET,610,CIRCU124,5,0   
TYPE,610  
REAL,610  
MAT,1   
!*  
E,n3,n1,wicknodek%ip%

wicksk%ip%1=n1
wicksk%ip%2=n3

*If,ip,eq,1,then
wickpan=n1
*EndIf
*If,ip,eq,2*p,then
wickpen=n1
*EndIf

!*  
*EndDo

R,611,1e-6, ,
RMOD,611,15,0,1  
ET,611,CIRCU124,0,0  
TYPE,611 
REAL,611 
MAT,1   

*Do,ip,2,2*p,2
E,wicksk%ip-1%2,wicksk%ip%2 
*If,ip,ne,2*p,then
E,wicksk%ip%1,wicksk%ip+1%1 
*EndIf
*EndDo

*GET,maxnode, NODE, 0,num,max
R,612,rwickstirnko, ,
N,maxnode+1,raussen/2-0.9*raussen,-4*raussen+0.3*raussen
RMOD,612,15,0,1  
ET,612,CIRCU124,0,0  
TYPE,612 
REAL,612 
MAT,1   
!*  
E,wickpan,maxnode+1 
kkompenp=maxnode+1

!*  
R,613,lwickstirnk, ,
!*  
!*  
N,maxnode+2,raussen/2-0.9*raussen,-4*raussen-0.3*raussen-0.6*raussen  
RMOD,613,15,0,11 
ET,613,CIRCU124,1,0  
TYPE,613 
REAL,613 
MAT,1   
!*  
E,wickpen,maxnode+2 
kkompenm=maxnode+2
!*  

*EndIf

!!
!!Rotor Wendepolwicklung
!!
*If,wende,eq,1,then

allsel
csys,0

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,710,1,  
n1=maxnode+1
N,n1,raussen/2+4*raussen+(ip-1)*raussen/5,-4*raussen+0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,raussen/2+4*raussen+(ip-1)*raussen/5,-4*raussen-(ip-1)*raussen/5 
RMOD,710,15,0,1   
ET,710,CIRCU124,5,0   
TYPE,710  
REAL,710  
MAT,1   
!*  
E,n1,n2,wicknode1we%ip%
!*  
R,710,1,  
n3=maxnode+3
N,n3,raussen/2+4*raussen+(ip-1)*raussen/5,-4*raussen-0.3*raussen-(ip-1)*raussen/5  
RMOD,710,15,0,1   
ET,710,CIRCU124,5,0   
TYPE,710  
REAL,710  
MAT,1   
!*  
E,n3,n2,wicknode2we%ip%

wickswe%ip%1=n1
wickswe%ip%2=n3

*If,ip,eq,1,then
wickpan=n1
*EndIf
*If,ip,eq,2*p,then
wickpen=n1
*EndIf

!*  
*EndDo

R,711,1e-6, ,
RMOD,711,15,0,1  
ET,711,CIRCU124,0,0  
TYPE,711 
REAL,711 
MAT,1   

*Do,ip,2,2*p,2
E,wickswe%ip-1%2,wickswe%ip%2 
*If,ip,ne,2*p,then
E,wickswe%ip%1,wickswe%ip+1%1 
*EndIf
*EndDo

*GET,maxnode, NODE, 0,num,max
R,712,rwickstirnwe, ,
N,maxnode+1,raussen/2+3.1*raussen,-4*raussen+0.3*raussen
RMOD,712,15,0,1  
ET,712,CIRCU124,0,0  
TYPE,712 
REAL,712 
MAT,1   
!*  
E,wickpan,maxnode+1 
kwendep=maxnode+1
!*  
R,713,lwickstirnwe, ,
!*  
!*  
N,maxnode+2,raussen/2+3.1*raussen,-4*raussen-0.3*raussen-0.6*raussen  
RMOD,713,15,0,11 
ET,713,CIRCU124,1,0  
TYPE,713 
REAL,713 
MAT,1   
!*  
E,wickpen,maxnode+2 
kwendem=maxnode+2
!*  

*EndIf

!!
!!Rotor Kompoundwicklung
!!
*If,kompound,eq,1,then

allsel
csys,0

*Do,ip,1,2*p
*GET,maxnode, NODE, 0,num,max
R,810,1,  
n1=maxnode+1
N,n1,raussen/2+2*raussen+(ip-1)*raussen/5,-4*raussen+0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,raussen/2+2*raussen+(ip-1)*raussen/5,-4*raussen-(ip-1)*raussen/5 
RMOD,810,15,0,1   
ET,810,CIRCU124,5,0   
TYPE,810  
REAL,810  
MAT,1   
!*  
E,n1,n2,wicknode1ko%ip%
!*  
R,810,1,  
n3=maxnode+3
N,n3,raussen/2+2*raussen+(ip-1)*raussen/5,-4*raussen-0.3*raussen-(ip-1)*raussen/5  
RMOD,810,15,0,1   
ET,810,CIRCU124,5,0   
TYPE,810  
REAL,810  
MAT,1   
!*  
E,n3,n2,wicknode2ko%ip%
wicksko%ip%1=n1
wicksko%ip%2=n3

*If,ip,eq,1,then
wickpan=n1
*EndIf
*If,ip,eq,2*p,then
wickpen=n1
*EndIf

!*  
*EndDo

R,811,1e-6, ,
RMOD,811,15,0,1  
ET,811,CIRCU124,0,0  
TYPE,811 
REAL,811 
MAT,1   

*Do,ip,2,2*p,2
E,wicksko%ip-1%2,wicksko%ip%2 
*If,ip,ne,2*p,then
E,wicksko%ip%1,wicksko%ip+1%1 
*EndIf
*EndDo

*GET,maxnode, NODE, 0,num,max
R,812,rwickstirnko, ,
N,maxnode+1,raussen/2+1.1*raussen,-4*raussen+0.3*raussen
RMOD,812,15,0,1  
ET,812,CIRCU124,0,0  
TYPE,812 
REAL,812 
MAT,1   
!*  
E,wickpan,maxnode+1 
kkompoup=maxnode+1
!*  
R,813,lwickstirnko, ,
!*  
!*  
N,maxnode+2,raussen/2+1.1*raussen,-4*raussen-0.3*raussen-0.6*raussen  
RMOD,813,15,0,11 
ET,813,CIRCU124,1,0  
TYPE,813 
REAL,813 
MAT,1   
!*  
E,wickpen,maxnode+2 
kkompoum=maxnode+2
!*  

*EndIf


*If,nwin,eq,1,then
KEYOPT,110,1,6  
*EndIf
