Ein Beitrag zur rechnerischen Bestimmung von ...

Diplomarbeit Simulationsmodell
disp ( ' ' );
disp ( ' ' );
disp ( ' Wollen Sie einen Fehlerortwiderstand eingeben ? ' );
fehler=input(' (Standardeinstellung ist Rmast) JA = 0 / NEIN = beliebige Zahl ]:');
% fehler .... Hilfsparameter für die Dateneingabe des Fehlerortwiderstandes
while isempty(fehler) == 1, %Abfrage ob Eingabe getätigt wurde,
fehler = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Rfehler = Rmast ; %vorweg Definition des Fehlerortes auf Rmast= Standardeinstellung
if fehler == 0
Rfehler = input( ' Fehlerortausbreitungswiderstand [ in Ohm ]: ' );
while isempty(Rfehler) == 1, %Abfrage ob Eingabe getätigt wurde,
Rfehler = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
end; %if fehler = 0
disp ( ' ' );
disp ( ' ' );
ro = input( ' Eingabe des durchschnittlichen spez. Bodenwid.standes in [Ohm-Meter]:
' );
while isempty(ro) == 1, %Abfrage ob Eingabe getätigt wurde,
ro = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
disp ( ' ');
disp ( ' ');
disp ( ' Die Standardwerte für die Trafostationen sind ' );
disp ( ' Wicklungswiderstand für Trafostation 1 und 2: ......... 0.1 Ohm :' );
disp ( ' Betriebserdungswiderstand für Trafostation 1 und 2: ... 0.2 Ohm :' );
eingabe = input( ' Wollen Sie eigene Werte eingeben ? [ JA = 0 / NEIN = beliebige
Zahl ] : ' );
% eingabe .... Hilfsparameter für die Dateneingabe der Trafostationen
while isempty(eingabe) == 1, %Abfrage ob Eingabe getätigt wurde,
eingabe = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Rtrlinks = 0.1; %Trafoimpedanz der Trafostation 1 (links) Standardeinstellung
Rtrrechts = 0.1; %Trafoimpedanz der Trafostation 2 (rechts) Standardeinstellung
Ruwlinks = 0.2; %Betriebserdungswiderstand für Trafostation 1 (links)
Standardeinstellung
Ruwrechts = 0.2; %Betriebserdungswiderstand für Trafostation 2 (rechts)
Standardeinstellung
if eingabe == 0 %Eingabe der Trafostationsdaten,
Rtrlinks = input( ' Wicklungsimpedanz der Trafostation 1 [ in Ohm ]: ' );
while isempty(Rtrlinks) == 1, %Abfrage ob Eingabe getätigt wurde,
Rtrlinks = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Rtrrechts = input( ' Wicklungsimpedanz der Trafostation 2 [ in Ohm ]: ' );
while isempty(Rtrrechts) == 1, %Abfrage ob Eingabe getätigt wurde,
Rtrrechts = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
Ruwlinks = input( ' Betrieberdungswiderstand der Trafostation 1 [ in Ohm ]: ' );
while isempty(Ruwlinks) == 1, %Abfrage ob Eingabe getätigt wurde,
Ruwlinks = input (' ' ); %wenn nein..dann erneute Abfrage !!
Gabbauer Anton Seite 84