Modelluntersuchungen betreffend die Stabilität - Institut für ...

Anhang
% Vereinfachung-Faktorisierung
k1=y1pk*y2pk;
k2=y2pk*y3pk;
k3=y1pk*y3pk;
k=k1+k2+k3;
% Berechnung der Ersatzimpedanzen der T Ersatzschaltung
z1t=y1pk/k;
z2t=y2pk/k;
z3t=y3pk/k;
% Parameter der Trafo und Synchronreaktanz
zd=117.9*i;
zt=5.74*i;
zc=-100*i;
% Zusammenfassung der Impedanzen
z1g=z1t+zt+zc;
z2g=z2t;
z3g=z3t;
% Vereinfachung-Faktorisierung
k4=z1g*z2g;
k5=z2g*z3g;
k6=z1g*z3g;
k7=k4+k5+k6;
% Berechnung der Ersatzadmittanzen der Pi Ersatzschaltung
y1pg=z1g/k7;
y2pg=z2g/k7;
y3pg=z3g/k7;
zz1=1/y1pg
zz2=1/y2pg
zz3=1/y3pg
% Anschreiben in Matrixform
y11=y3pg+y2pg;
y12=-(y3pg);
y21=-(y3pg);
y22=y3pg+y1pg;
% Umrechnung auf Kuppel und Eigenimpedanzen der Pi Ersatzschaltung
z11=1/(y11);
z12=-(1/(y12));
z21=-(1/(y21));
z22=1/(y22);
% Anschreiben in Matrixform
format long;
z11abs=abs(z11);
z22abs=abs(z22);
z12abs=abs(z12);
z12abs_m=[z12abs_m z12abs];
z11abs_m=[z11abs_m z11abs];
z22abs_m=[z22abs_m z22abs];
X_m=[X_m X];
grid on
end
plot(X_m,z12abs_m,'-',X_m,z11abs_m,'--',X_m,z22abs_m,'-.')
title('Kuppel- und Eigenimpedanz als Fkt. der Leitungslänge')
legend('Impedanz Z12')
xlabel('Leitungslänge [km]')
ylabel('Z12 [Ohm]')
hold on;
8.1.3 Energieübertragung ohne Spannungsregler
function EUOR (X);
%EUOR...Energieübertragung ohne Regler
%Festlegung des Zahlformates
format long
% Berechnung von Omega
w=2*pi*50
% Widerstandsbelag der Freileitung
Rstrich=0.03;
Diplomarbeit
88