/prep7

*If,nichtlin,ne,1,then
MP,MURX,1,murxa
MP,MURX,11,murxi
*Else
eisen2.txt
eisen2i.txt
*EndIf
MP,MURX,2,1
MP,MURX,5,1
MP,MURX,12,1
MP,MURX,13,1
MP,RSVX,13,1/leiti 
MP,MURX,14,1
MP,RSVX,14,1/leiti 
MP,MURX,15,1
mp,murx,3,rperm
mp,mgxx,3,koerz
mp,murx,4,rperm
mp,mgxx,4,-koerz

MP,MURX,43,1
MP,RSVX,43,1/leita 
MP,MURX,44,1
MP,RSVX,44,1/leita 

R,13,wickbreite2*wickhoehe2/2,nwin2,jochtiefe,1,fili  
R,14,wickbreite2*wickhoehe2/2,nwin2,jochtiefe,1,fili 

R,43,wickbreitewen*wickhoehewen,nwinwen,jochtiefe,1,fila  
R,44,wickbreitewen*wickhoehewen,nwinwen,jochtiefe,1,fila 

RAnkerspule=1/leiti*nwin2*jochtiefe*2*1/(wickbreite2*wickhoehe2/2*fili/nwin2)
RKompwepol=1/leita*nwinwen*jochtiefe*2*1/(wickbreitewen*wickhoehewen*fila/nwinwen)

*If,nwin2,eq,1,then
keyopt,13,1,4
keyopt,14,1,4
*EndIf