clc
disp('Flegel Birnstiel Nerreter, 11. Auflage');
disp('Elektrotechnik für Maschinenbau und Mechatronik');
disp('Beispiel 2.11, Seite 32');
R1=1500;
R2=1000;
R3=1000;
R4=1500;
R5=2200;
U=10;
M=[1 -1 0 -1 0 0; 0 1 -1 0 0 -1; 0 R1 R2 0 0 0; 
    0 0 0 1 -1 1; 0 0 0 R3 R4 0; 0 R1 0 -R3 0 R5];
Rs=[0; 0; U; 0; U; 0];
L=linsolve(M, Rs);
disp(' ');
Re=U/L(1);
disp(['Re =',sprintf(' %4.4f ',Re),'Ohm']);