phid_as=1802			!Anfangswinkel der Drehung Stator
phid_es=3600			!Endwinkel der Drehung Stator
phid_ar=phid_as*0.97		!Anfangswinkel der Drehung Rotor
phid_er=phid_es*0.97		!Endwinkel der Drehung Rotor
inc1=2				!Schrittweite der Drehung des Staenderdrehfeldes pro Schleifendurchlauf
inc2=0.97*inc1			!Schrittweite der Drehung des Rotors
q1=1+(phid_es-phid_as)/inc1	!Anzahl der Schleifendurchlaeufe	
x1=0				!Schleifenvariable zur Staenderfelddrehung
x2=0				!Schleifenvariable zur Rotordrehung
				



*cfopen,Ergebnis,xls,,append	!Oeffnen der Ergebnisdatei	
*vwrite
('-----------------')
*vwrite
('        Stab     ')
*vwrite
('-----------------')
*cfclos				!Schliessen der Ergebnisdatei






*do,I1,1,q1			!Beginn der Do-Schleife

phid=phid_ar+x2			!Winkel des Rotors
n=x1/inc1			!Anzahl der Drehungen werden errechnet
t=n*1/9000			!Zeit t wird fuer das Drehfeld berechnet

*use,geo.7.txt			!Es wird auf die Datei geo.7 zugegriffen

*cfopen,Ergebnis,xls,,append	!Die Ergebnisdatei wird geoeffnet 
*vwrite,flux			!Ergebnisse werden in die Datei geschrieben
(3x,EN12.2E1)
*cfclos



parsav,all			!Schleifenparameter werden abgespeichert 
finish
/clear,start			!Ergebnisdatei wird geloescht
parres				!Parameter werden neu eingelesen
x1=x1+inc1
x2=x2+inc2

*enddo				!Schliessen der Schleife