Datortehnika enerģētikā

7.uzdevums
Programmas teksts:

L1 = 53.2;
L2 = 33.9;
L3 = 49.1;
L4 = 62.3;
L5 = (L1+L3);
L6 = (L2+L4);
S1=(38.3 + 12.9i);
S2=(23+14.4i);
S3=(21.5+14.4i);
G=(29.7 + 10.3i);
Ub=115;
M=[-1 0 0 -1 1 0;
0 1 -1 0 0 1;
0 0 0 0 -1 -1;
0 0 1 1 0 0];
B=0;
count=0;
Zo=0.18+0.41i;
Z=diag(Zo*[L1;L2;L3;L4;L5;L6]);
Yb=[1/Z(1,1);1/Z(2,2);0;0];
S=conj([-S1; -S2; -S3; G]);
h=size(M,1);
g=size(M,2);
t=sqrt(3);
for j=1:g
for i=1:h
Mt(j,i)=M(i,j);
end
Zinv(j,j)=1/Z(j,j);
end
Y=M*Zinv*Mt;
F=0;
C=0;
U=0;
U=ones(h,1)*Ub;
for i=1:h
for j=1:h
C(i,j)=-Y(i,j)/Y(i,i);
end
…