*If,nichtlin,ne,1,then
MP,MURX,1,murxa              ! muer Stator bei linearem Eisen
MP,MURX,11,murxi             ! muer Rotor bei linearem Eisen
*Else
eisen2.txt                   ! B(H)-Kurve des Stators bei nichtlinearem Eisen
eisen2i.txt                  ! B(H)-Kurve des Rotors bei nichtlinearem Eisen
*EndIf

!!!! Sollte eine andere B(H)-Kurve bentigt werden, ist diese durch andere
!!!! Dateien eisen2.txt (Stator) und eisen2i.txt (Rotor) einzugeben.

MP,MURX,2,1                  ! muer Luft Stator
MP,MURX,3,1                  ! muer Leiterseite 1 Stator
MP,RSVX,3,1/leita            ! spezifischer Widerstand Leiterseite 1 Stator 
MP,MURX,4,1                  ! muer Leiterseite 2 Stator
MP,RSVX,4,1/leita            ! spezifischer Widerstand Leiterseite 1 Stator 
MP,MURX,5,1                  ! nicht benutzter Materialtyp

MP,MURX,12,1                 ! muer Luft Rotor
MP,MURX,13,1                 ! muer Wicklungslage 1 Rotor
MP,RSVX,13,1/leiti           ! spezifischer Widerstand Wicklungslage 1 Rotor 
MP,MURX,14,1                 ! muer Wicklungslage 2 Rotor
MP,RSVX,14,1/leiti           ! spezifischer Widerstand Wicklungslage 2 Rotor 
MP,MURX,15,1                 ! nicht benutzter Materialtyp


R,3,wickbreite1*wickhoehe1,nwin1,jochtiefe,1,fila ! reale Konstante Statorleiter 1
R,4,wickbreite1*wickhoehe1,nwin1,jochtiefe,1,fila ! reale Konstante Statorleiter 2  

R,13,wickbreite2*wickhoehe2/2,nwin2,jochtiefe,1,fili ! reale Konstante Rotorlage 1 
R,14,wickbreite2*wickhoehe2/2,nwin2,jochtiefe,1,fili ! reale Konstante Rotorlage 2   

*If,nwin1,eq,1,then ! Korrektur Leitertyp Stator, falls Staebe vorliegen
keyopt,3,1,4
keyopt,4,1,4
*EndIf
*If,nwin2,eq,1,then ! Korrektur Leitertyp Rotor, falls Staebe vorliegen
keyopt,13,1,4
keyopt,14,1,4
*EndIf

! Berechnung der Widerstaende der Erregerwicklung und einer Ankerspule (ohne Stirn)

RErregung=2*p*1/leita*nwin1*jochtiefe*2*1/(wickbreite1*wickhoehe1*fila/nwin1)
RAnkerspule=1/leiti*nwin2*jochtiefe*2*1/(wickbreite2*wickhoehe2/2*fili/nwin2)
