allsel

m=3		! Die Strangzahl ist 3 ! immer

*GET,maxnode, NODE, 0,num,max
inode=maxnode

*Do,im,1,3

R,10,1,  
inode=inode+1
n1=inode
N,inode,-0.75*breiteaussen,+0.35*hoeheaussen+(im-2)*hoeheaussen,0  
inode=inode+1
n2=inode
N,inode,-0.75*breiteaussen,+(im-2)*hoeheaussen,0 
RMOD,10,15,0,1   
ET,10,CIRCU124,5,0   
TYPE,10  
REAL,10  
MAT,1   
!*  
E,n1,n2,wicknode%(im-1)*2+1%
!*  
R,11,1,  
inode=inode+1
n3=inode
N,inode,-0.75*breiteaussen,-0.35*hoeheaussen+(im-2)*hoeheaussen,0  
RMOD,11,15,0,1   
ET,11,CIRCU124,5,0   
TYPE,11  
REAL,11  
MAT,1   
!*  
E,n3,n2,wicknode%(im-1)*2+2%
!*  
R,12,rwickstirn1, ,
inode=inode+1
n4=inode
ewp%im%=n4
N,inode,-1.4*breiteaussen,+0.35*hoeheaussen+(im-2)*hoeheaussen,0  
RMOD,12,15,0,1  
ET,12,CIRCU124,0,0  
TYPE,12 
REAL,12 
MAT,1   
!*  
E,n4,n1 
*GET,er1%im%,elem,0,num,max
!*  
R,13,lwickstirn1, ,
!*  
!*  
inode=inode+1
n5=inode
ewm%im%=n5
N,inode,-1.2*breiteaussen,-0.35*hoeheaussen+(im-2)*hoeheaussen,0
RMOD,13,15,0,11 
ET,13,CIRCU124,1,0  
TYPE,13 
REAL,13 
MAT,1   
!*  
E,n5,n3 
!*  
R,14+im-1,u1*cos(-(im-1)*120),0,  
!*  
!*  
RMOD,14+im-1,15,0,33 
ET,14+im-1,CIRCU124,4,0  
TYPE,14+im-1 
REAL,14+im-1 
MAT,1   
!*  
inode=inode+1
n6=inode
N,inode,-2*breiteaussen,im*hoeheaussen/2,0
esstp%im%=n6
inode=inode+1
n7=inode
esstm%im%=n7
N,inode,-1.6*breiteaussen,im*hoeheaussen/2,0
inode=inode+1
n8=inode
N,inode,-1.8*breiteaussen,im*hoeheaussen/2,0
E,n6,n7,n8
*GET,eu1%im%,elem,0,num,max
!*  

*EndDo

R,17,1e-6, ,
RMOD,17,17,0,1  
ET,17,CIRCU124,0,0  
TYPE,17 
REAL,17 
MAT,1   
!*  
!
!  Sternpunkt Spannungssystem Primaerseite
!
e,esstp1,esstp2
e,esstp2,esstp3
e,esstp3,esstp1 

*Do,im,1,3
E,esstm%im%,ewp%im%
*EndDo

e,ewm1,ewm2
e,ewm2,ewm3
e,ewm3,ewm1

e,ewm1,esstp1

*Do,im,1,3

R,18,1,  
inode=inode+1
n1=inode
N,inode,0.75*breiteaussen,+0.35*hoeheaussen+(im-2)*hoeheaussen,0  
inode=inode+1
n2=inode
N,inode,0.75*breiteaussen,+(im-2)*hoeheaussen,0 
RMOD,18,18,0,1   
ET,18,CIRCU124,5,0   
TYPE,18  
REAL,18  
MAT,1   
!*  
E,n1,n2,wicknode%(im-1)*2+1+6%
!*  
R,19,1,  
inode=inode+1
n3=inode
N,inode,0.75*breiteaussen,-0.35*hoeheaussen+(im-2)*hoeheaussen,0  
RMOD,19,19,0,1   
ET,19,CIRCU124,5,0   
TYPE,19  
REAL,19  
MAT,1   
!*  
E,n3,n2,wicknode%(im-1)*2+2+6%

R,20,rwickstirn2, ,
inode=inode+1
n4=inode
ewp%im%=n4
N,inode,1.4*breiteaussen,+0.35*hoeheaussen+(im-2)*hoeheaussen,0  
RMOD,20,20,0,1  
ET,20,CIRCU124,0,0  
TYPE,20 
REAL,20 
MAT,1   
!*  
E,n4,n1 
*GET,er2%im%,elem,0,num,max
!*  
R,21,lwickstirn2, ,
!*  
!*  
inode=inode+1
n5=inode
ewm%im%=n5
N,inode,1.2*breiteaussen,-0.35*hoeheaussen+(im-2)*hoeheaussen,0
RMOD,21,21,0,11 
ET,21,CIRCU124,1,0  
TYPE,21 
REAL,21 
MAT,1   
!*  
E,n5,n3 
!*  

*EndDo


TYPE,17 
REAL,17 
MAT,1   
e,ewm1,ewm2
e,ewm2,ewm3
e,ewm3,ewm1


*Do,im,1,m

R,22+im-1,u2*cos(-(im-1)*120),0,  
!*  
!*  
RMOD,22+im-1,15,0,33 
ET,22+im-1,CIRCU124,4,0  
TYPE,22+im-1 
REAL,22+im-1 
MAT,1   
!*  
inode=inode+1
n6=inode
N,inode,2*breiteaussen,im*hoeheaussen/2,0
esstp2%im%=n6
inode=inode+1
n7=inode
esstm2%im%=n7
N,inode,1.6*breiteaussen,im*hoeheaussen/2,0
inode=inode+1
n8=inode
N,inode,1.8*breiteaussen,im*hoeheaussen/2,0
E,n6,n7,n8
*GET,eu2%im%,elem,0,num,max

*EndDo

TYPE,17 
REAL,17 
MAT,1   
!*  
!
!  Sternpunkt Spannungssystem Sekundaerseite
!
e,esstp21,esstp22
e,esstp22,esstp23
e,esstp23,esstp21 

*Do,im,1,m

e,esstm2%im%,ewp%im%

*EndDo

e,esstp21,ewm1