/prep7

*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

MP,MURX,23,1              ! muer Kompensationswicklung bei linearem Eisen
MP,RSVX,23,1/leita        ! spezifischer Widerstand Kompensationswicklung
MP,MURX,24,1              ! muer Kompensationswicklung bei linearem Eisen
MP,RSVX,24,1/leita        ! spezifischer Widerstand Kompensationswicklung 
MP,MURX,33,1              ! muer Kompoundwicklung bei linearem Eisen
MP,RSVX,33,1/leita        ! spezifischer Widerstand Kompoundwicklung 
MP,MURX,34,1              ! muer Kompoundwicklung bei linearem Eisen
MP,RSVX,34,1/leita        ! spezifischer Widerstand Kompoundwicklung 
MP,MURX,43,1              ! muer Wendepolwicklung bei linearem Eisen
MP,RSVX,43,1/leita        ! spezifischer Widerstand Wendepolwicklung 
MP,MURX,44,1              ! muer Wendepolwicklung bei linearem Eisen
MP,RSVX,44,1/leita        ! spezifischer Widerstand Wendepolwicklung 

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

R,23,8*wickbreitek*wickhoehek,8*nwink,jochtiefe,1,filk ! reale Konstante Kompensationswicklung
R,24,8*wickbreitek*wickhoehek,8*nwink,jochtiefe,1,filk ! reale Konstante Kompensationswicklung

R,33,wickbreiteko*wickhoehe1,nwinko,jochtiefe,1,filko ! reale Konstante Kompoundwicklung
R,34,wickbreiteko*wickhoehe1,nwinko,jochtiefe,1,filko ! reale Konstante Kompoundwicklung

R,43,wickbreitewen*wickhoehewen,nwinwen,jochtiefe,1,filwen ! reale Konstante Wendepolwicklung
R,44,wickbreitewen*wickhoehewen,nwinwen,jochtiefe,1,filwen ! reale Konstante Wendepolwicklung

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)
RKompenpol=1/leiti*8*nwink*jochtiefe*2*1/(8*wickbreitek*wickhoehek*filk/(8*nwink))
RKompoupol=1/leiti*nwinko*jochtiefe*2*1/(wickbreiteko*wickhoehe1*filko/nwinko)
RKompwepol=1/leiti*nwinwen*jochtiefe*2*1/(wickbreitewen*wickhoehewen*filwen/nwinwen)

*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