% Berechnung R-Netzwerk
% Kap. Matrizen
% M.Hess 23.5.2000

clear;

%Definition Konstanten Aufgabe a
R1=100;
R2=200;
R3=400;
R4=100;
U=12;

%Berechnungen Aufgabe a:
A=[0,0,-R2,R1+R2+R3+R4;0,-R2,R1+2*R2+R4,-R2;-R2,R1+2*R2+R4,-R2,0;R1+R2+R4,-R2,0,0];
B=[0;0;0;-U];
Result_a=inv(A)*B

%Definition Konstanten Aufgabe b
Z1=(1+0.5j);
Z2=(2+0.5j);
Z3=(4+j);
Z4=(1+0.5j);
U=12;

%Berechnungen Aufgabe b:
A=[0,0,-Z2,Z1+Z2+Z3+Z4;0,-Z2,Z1+2*Z2+Z4,-Z2;-Z2,Z1+2*Z2+Z4,-Z2,0;Z1+Z2+Z4,-Z2,0,0];
B=[0;0;0;-U];
Result_b=inv(A)*B

