Ein Beitrag zur rechnerischen Bestimmung von ...
Ein Beitrag zur rechnerischen Bestimmung von ...
Ein Beitrag zur rechnerischen Bestimmung von ...
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Diplomarbeit Simulationsmodell<br />
if answer == 4<br />
dm = input( ' Mittlerer Abstand Erdseil-Phasenseil in [ m ]: ' );<br />
while isempty(dm) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
dm = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
d1 = input( ' Phasenseil-Durchmesser in [ m ]: ' );<br />
while isempty(d1) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
d1 = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
d2 = input( ' Erdseil-Durchmesser in [ m ] : ' );<br />
while isempty(d2) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
d2 = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
R1 = input( ' Phasenseil-Widerstand in [ Ohm / km ]: ' );<br />
while isempty(R1) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
R1 = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
R2 = input( ' Erdseil-Widerstand in [ Ohm / km ] : ' );<br />
while isempty(R2) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
R2 = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
l = input( ' Spannfeldlänge in [ km ] : ' );<br />
while isempty(l) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
l = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
Uspannungsebene = input( ' Spannungsebene in [ kV ] : ' );<br />
Uspannungsebene = Uspannungsebene * 1000 ;<br />
while isempty(Uspannungsebene) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
Uspannungsebene = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
ausgabe = 1; % Hilfsparameter für die Berechnung<br />
end %answer == 4<br />
if answer == 0<br />
ausgabe = 2;<br />
end % if answer == 0<br />
if ausgabe == 1<br />
Rmast = input( ' Mastausbreitungswiderstand [ in Ohm ]: ' );<br />
while isempty(Rmast) == 1, %Abfrage ob <strong>Ein</strong>gabe getätigt wurde,<br />
Rmast = input (' ' ); %wenn nein..dann erneute Abfrage !!<br />
end;<br />
Gabbauer Anton Seite 83