!!
!!Stator
!!

!!
!!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,4*raussen+(ip-1)*raussen/5,-4*raussen+0.3*raussen-(ip-1)*raussen/5
n2=maxnode+2
N,n2,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,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,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,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

