% Dies ist das Unterprogramm
% r = [ 10, 10, 6, 6, 7 ]; % die Widerstände
% m = [  -1, 1, 0, 0, 0 ; 0, -1, 0, 1, 1 ; 0, 0, 1, -1, 0 ]; % die 3 Maschen
% k = [  -1, -1, -1, -1, 0; 0, 0, 1, 1, -1 ]; % Ohne Knoten 3
% e = [ 50, 50, 0, 0, 0 ]; % die EMK
% Erklärung: siehe home/html/hjh/mathe/matrix.htm
% WINDOWS-Benutzer vorher eingeben  path = [ 'D:\\h\\home\\octave;' , path ]
% Linux-Benutzer hjh vorher eingeben path = "/home/hjh/h/home/octave;" & path 

m1 = zeros(rows(m), columns(m)) ;

for n1 = 1:rows(m)
    for n2 = 1:columns(m)
       m1(n1,n2) = m(n1,n2) * r(n2) ;
    endfor
endfor

v = m * ( e' ) ; % Die EMK in jeder Masche
v2 = zeros(rows(k),1) ;
v1 = [ v2 ; v ] ;

x = [ k ; m1 ] ;
i = x \ v1 ;  % Die berechneten Ströme. Löse das LGL

u = i' .* r ;

i = i'; % Ströme anzeigen in einer Zeile
u ;% Alle berechneten Spannungen anzeigen
