Ein Beitrag zur rechnerischen Bestimmung von ...

Diplomarbeit Simulationsmodell
if answer == 4
dm = input( ' Mittlerer Abstand Erdseil-Phasenseil in [ m ]: ' );
while isempty(dm) == 1, %Abfrage ob Eingabe getätigt wurde,
dm = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
d1 = input( ' Phasenseil-Durchmesser in [ m ]: ' );
while isempty(d1) == 1, %Abfrage ob Eingabe getätigt wurde,
d1 = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
d2 = input( ' Erdseil-Durchmesser in [ m ] : ' );
while isempty(d2) == 1, %Abfrage ob Eingabe getätigt wurde,
d2 = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
R1 = input( ' Phasenseil-Widerstand in [ Ohm / km ]: ' );
while isempty(R1) == 1, %Abfrage ob Eingabe getätigt wurde,
R1 = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
R2 = input( ' Erdseil-Widerstand in [ Ohm / km ] : ' );
while isempty(R2) == 1, %Abfrage ob Eingabe getätigt wurde,
R2 = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
l = input( ' Spannfeldlänge in [ km ] : ' );
while isempty(l) == 1, %Abfrage ob Eingabe getätigt wurde,
l = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Uspannungsebene = input( ' Spannungsebene in [ kV ] : ' );
Uspannungsebene = Uspannungsebene * 1000 ;
while isempty(Uspannungsebene) == 1, %Abfrage ob Eingabe getätigt wurde,
Uspannungsebene = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
ausgabe = 1; % Hilfsparameter für die Berechnung
end %answer == 4
if answer == 0
ausgabe = 2;
end % if answer == 0
if ausgabe == 1
Rmast = input( ' Mastausbreitungswiderstand [ in Ohm ]: ' );
while isempty(Rmast) == 1, %Abfrage ob Eingabe getätigt wurde,
Rmast = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Gabbauer Anton Seite 83