Datortehnika enerģētikā

R9=R3;
R10=R6;
R11=R5;
R12=R2;
M=[-1 0 -1 -1 0 0 0 0 0 0 0 0
1 -1 0 0 0 0 0 0 0 0 0 0
0 1 0 0 -1 -1 0 0 0 0 0 0
0 0 1 0 0 0 0 -1 -1 0 0 0
0 0 0 1 1 0 1 1 0 0 -1 0
0 0 0 0 0 0 0 0 1 -1 1 1];
N=[0 0 1 -1 0 0 0 1 0 0 0 0
-1 -1 0 1 -1 0 0 0 0 0 0 0
0 0 0 0 1 -1 -1 0 0 0 0 0
0 0 0 0 0 0 0 -1 1 0 -1 0
0 0 0 0 0 0 1 0 0 0 1 -1
0 0 0 0 0 0 0 0 0 1 0 1];
Z=diag([R1 R2 R3 R4 R5 R6 R7 R8 R9 R10 R11 R12]);
J=[0; -J1; 0; 0; -J1; 0; 0; J2; 0; 0; J2; 0];
I=M*J;
E=[0; 0; E1; 0; 0; E2; 0; 0; 0; 0; E3; 0];
h=size(M,1);
h1=size(M,2);
for i=1:h1
…