/prep7

allsel

csys,0

spulw2=1
! 
!  Zweischichtwicklung
!

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

R,210,1,  
noff=maxnode
koff=4*raussen+(iz2-1)*raussen/4
n1=noff+1
buepl%iz2%=n1
N,n1,koff,0.3*raussen,0  
n2=noff+2
sch1%iz2%=n2
N,n2,koff,-0.2*raussen,0 
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
E,n1,n2,wicknoder1%iz2%
!*  
R,210,1,  
n3=noff+3
sch2%iz2%=n3
N,n3,koff,-0.7*raussen,0  
n4=noff+4
N,n4,koff,-0.8*raussen,0  
RMOD,210,15,0,1   
ET,210,CIRCU124,5,0   
TYPE,210  
REAL,210  
MAT,1   
!*  
E,n3,n2,wicknoder2%iz2%

*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,n3,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 


!*  

*EndDo


! 
!  Zweischichtwicklung
!
R,214,1e-6, ,
RMOD,214,15,0,1  
ET,214,CIRCU124,0,0  
TYPE,214 
REAL,214 
MAT,1   

*Do,iz2,1,z2
ispu2=iz2-spulw2
*If,ispu2,lt,1,then
ispu2=ispu2+z2
*EndIf

!!!E,sch1%iz2%,sch2%ispu2%

ispu3=iz2-spulw2-1
*If,ispu3,lt,1,then
ispu3=ispu3+z2
*EndIf

E,buepl%iz2%,buemi%ispu3%

*EndDo

n7=noff+7
koff=4*raussen+z2/2*raussen/5
N,n7,koff,raussen,0  

n8=noff+8
koff=4*raussen+z2/2*raussen/5
N,n8,koff,-2.1*raussen,0  

n9=noff+9
koff=3*raussen
N,n9,koff,raussen,0  

n10=noff+10
koff=3*raussen
N,n10,koff,-2.1*raussen,0  

n11=noff+11
koff=3*raussen
N,n11,koff,-1.05*raussen,0  


*GET,maxelem, elem, 0,num,max

*Do,iz2,1,z2
R,214+iz2,1e6, ,
RMOD,214+iz2,15,0,1  
ET,214+iz2,CIRCU124,0,0  
TYPE,214+iz2 
REAL,214+iz2 
MAT,1   
r1p%iz2%=214+iz2

E,n7,buepl%iz2%
*GET,rspuls%iz2%, elem, 0,num,max
*EndDo

*Do,iz2,1,z2
R,214+z2+iz2,1e6, ,
RMOD,214+z2+iz2,15,0,1  
ET,214+z2+iz2,CIRCU124,0,0  
TYPE,214+z2+iz2 
REAL,214+z2+iz2 
MAT,1   
r2p%iz2%=214+z2+iz2

E,n8,buepl%iz2%
*GET,rspuls%iz2%, elem, 0,num,max
*EndDo

R,214+2*z2+1,u2,0,  
RMOD,214+2*z2+1,15,0,33 
ET,214+2*z2+1,CIRCU124,4,0  
TYPE,214+2*z2+1 
REAL,214+2*z2+1 
MAT,1   
!*  
E,n9,n10,n11
*GET,eeu2,elem,0,num,max


R,214+2*z2*2,rvor2, ,
RMOD,214+2*z2*2,15,0,1  
ET,214+2*z2*2,CIRCU124,0,0  
TYPE,214+2*z2*2 
REAL,214+2*z2*2 
MAT,1   
E,n7,n9
*GET,eer2,elem,0,num,max


TYPE,214 
REAL,214 
MAT,1   

kstart=n8
*If,wende,eq,1,then
E,kstart,kwendep
kstart=kwendem
*EndIf
E,kstart,n10

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

cmsel,s,krotor
allsel,below,area
csys,1

agen,,krotor,,,,-360/(2*z2),,,,1 

allsel
eplot

lbue=buebr2/(360/z2)
