%Aufgabe_1_1_a.m
%Matlab Uebung
%Das Skript Berechnet der Ströme I1 bis I4
%C.Widmer, 05.04.2002,
%Ergänzt (Ausgabe) 10.04.02 C.Widmer



clear;     % Varablen löschen

% Variablen Definition Aufgabe a
Ua=12;Ub=5;
R1 =100;R4 =100;R2 = 200;R3 = 400;

%Berechnung Aufgabe a:
 
A=[R1+R2+R4,-R2,0 0;-R2,R2+R2+R1+R4,-R2,0;0,-R2,R2+R2+R1+R4,-R2;0,0,-R2,R3+R2+R1+R4];
b=[Ua 0 0 0]';

Result_a = A \ b;
%oder
%Result_a = inv(A) * b

%Variablen Definition Aufgabe b
Z1 = 1 + 0.5j; Z2 = 2 + 0.5j; Z3 = 4 + j; Z4 = 1 + 0.5j;

%Berechnung Aufgabe b:
A=[Z1+Z2+Z4,-Z2,0 0;-Z2,Z2+Z2+Z1+Z4,-Z2,0;0,-Z2,Z2+Z2+Z1+Z4,-Z2;0,0,-Z2,Z3+Z2+Z1+Z4];
b=[Ub 0 0 0]';

Result_b = A \ b;

% reele Ströme I1 bis I4 anzeigen
disp ('  ')
disp ('  ')
disp ('Berechnung der Ströme eines Netzwerks:')
disp ('  ')
disp ('  ')
disp (['Der reele Strom I1 beträgt:  ', num2str(Result_a(1,1))])
disp (['Der reele Strom I2 beträgt:  ', num2str(Result_a(2,1))])
disp (['Der reele Strom I3 beträgt:  ', num2str(Result_a(3,1))])
disp (['Der reele Strom I4 beträgt:  ', num2str(Result_a(4,1))])
disp ('  ')

%komplexe Ströme I1 bis I4 anzeigen
disp ('  ')
disp (['Der komplexe Strom I1 beträgt:  ', num2str(Result_b(1,1))])
disp (['Der komplexe Strom I2 beträgt:  ', num2str(Result_b(2,1))])
disp (['Der komplexe Strom I3 beträgt:  ', num2str(Result_b(3,1))])
disp (['Der komplexe Strom I4 beträgt:  ', num2str(Result_b(4,1))])
disp ('  ')
