Atrast spriegumus mezglos un strāvas zaros

Risinājums:

//DC Network(c) adolg 2019-22
function X=seudel(A, B)
// (c)adolg 2015
n=size(A,1);
C=A;
D=B;
for i=1:n
for j=1:n
C(i,j)=-A(i,j)/A(i,i);
end
D(i)=B(i)/A(i,i);
//C(i,i)=0;
end
//Iteracijas
e=1e90;
X=B;//Xnak X0 !

while e>1e-10 // precizitate
e=0;
for i=1:n
Xn=D(i);
for j=1:i-1 //Sum Nr1
Xn=Xn+C(i,j)*X(j);
end
for m=i+1:n //Sum Nr2…