Ein Beitrag zur rechnerischen Bestimmung von ...

Diplomarbeit Simulationsmodell
4.2.2. Programmcode zu ini.m
%Dies ist ein Programm zur Initialisierung der benötigten Werte
%für die MATLAB- Kettenleitersimulation für Hochspannungsfreileitungen.
%Entwickelt und programmiert von
%
%Gabbauer Anton & Gredler Peter
% März. 2000
%
%für die Matlab - Version 5.3 (Powertools)
%
%Aufzurufen ist das Programm im Matlab Command Window mit dem Befehl:
%
%ini
%
clc;
clear;
answer = 10;
ausgabe = 0;
eingabe = 1; % Hilfsparameter für die Dateneingabe der Trafostationen
fehler = 1; % Hilfsparameter für die Dateneingabe des Fehlerortwiderstandes
while answer ~= 0 %0 ist die Abbruchbedingung für das Programm
disp( ' ' )
disp( ' ' )
disp( ' ******************* M E N U E ************************' )
disp( ' ' )
disp( ' ' )
disp( ' Berechnung für 110-kV - Standardmast ...................... 1 ' )
disp( ' Berechnung für 220-kV - Standardmast ...................... 2 ' )
disp( ' Berechnung für 380-kV - Standardmast ...................... 3 ' )
disp( ' Berechnung manuelle Eingabe der gesamten Leitungsdaten..... 4 ' )
disp( ' ' )
disp( ' ####### Konfigurationen für Projekt 1 #######' )
disp( ' Berechnung für 110-kV - Standardmast ...................... 5 ' )
disp( ' Berechnung für 220-kV - Standardmast ...................... 6 ' )
disp( ' ###############################################' )
disp( ' ' )
disp( ' Ende der Berechnung ........................ ............ 0 ' )
disp( ' ' )
disp( ' ' )
disp( ' **************************************************************' )
disp( ' ' )
disp( ' ' )
while ausgabe == 0
answer = input(' Geben Sie Ihre Wahl ein: ');
while isempty(answer) == 1, %Abfrage ob Eingabe getätigt wurde,
answer = input (' ' ); %wenn nein..dann erneute Abfrage !!
end;
disp( ' ' );
disp( ' ' );
if answer == 1
%vorgegebene Werte für 110kV-Standardmasten
dm = 10.46;
d1 = 0.0322;
d2 = 0.0149;
R1 = 0.051;
R2 = 0.299;
l= 0.33;
Uspannungsebene = 110000;
Gabbauer Anton Seite 81