ИЭ (станции+реле лектор Горячевский) / Лабы / лаба 5 / lab_5

function []=lab_5()
format short;
clc;
S = [ 
     0.6-0.9i   ;
     0.8+0.3i   ;
     -1+0i      ;
     -0.1+0.7i  ;
     -0.9+1i    ;
     0           ];

U0 = 10;
U = [0;0;0;0;0;0];
Zv = [
    0.8+1.6i    ;
    1+2i        ;
    0.2+0.4i    ;
    0.6+1.2i    ;
    0.8+1.6i    ;
    0.8+1.6i    ;
    0.4+0.8i  ];
Yv = 1./Zv;

A = [
    0   0    0    1   0   -1  0;
    1   0    -1   0   0   0   0;
    0   1    0    -1  0   0   0;
    0   0    0    0   0   1   -1;
    0   -1   1    0   -1  0   0;
    0   0    0    0   1   0   0];

Y = A * diag (Yv) * A';
J = conj (S ./ U0 /sqrt(3));
len=size(U,1);
G=real(Y);
B=imag(Y);
P=real(S);
Q=imag(S);
W=Y*U-sqrt(3)*J;
Wre=real(W);
Wim=imag(W);
dWre_dUre=[];
dWre_dUim=[];
dWim_dUre=[];
dWim_dUim=[];
Ure=real(U);
Uim=imag(U);
U0re=real(U0);
U0im=imag(U0);

for i=1:100
    for n=1:len
       Wre(n,1) = sum ( G(n,:)*Ure) - sum (B(n,:)*Uim)-( P(n)*(Ure(n)+U0re)+Q(n)*(Uim(n)+U0im))/((Ure(n)+U0re)^2+(Uim(n)+U0im)^2);
       Wim(n,1) = sum (B(n,:)*Ure)+sum(G(n,:)*Uim)-(P(n)*(Uim(n)+U0im)-Q(n)*(Ure(n)+U0re))/((Ure(n)+U0re)^2+(Uim(n)+U0im)^2);
    end
    dW_dU=zeros(2*len, 2*len);
for n=1:len
    for m=1:len
        dWre_dUre(n,m)=G(n,m)-P(n)/( (Ure(m)+U0re)^2+(Uim(m)+U0im)^2 );
        dWre_dUim(n,m)=-B(n,m)-Q(n)/( (Ure(m)+U0re)^2+(Uim(m)+U0im)^2 );
        dWim_dUre(n,m)=B(n,m)+Q(n)/( (Ure(m)+U0re)^2+(Uim(m)+U0im)^2 );
        dWim_dUim(n,m)=G(n,m)-P(n)/( (Ure(m)+U0re)^2+(Uim(m)+U0im)^2 );
    end
end
dW_dU = [dWre_dUre  dWre_dUim;
       dWim_dUre dWim_dUim];
disp('Определитель матрицы Якоби');
disp( det(dW_dU) )
V=[Ure;Uim] - inv(dW_dU)*[Wre; Wim];
Vre=V(1:len);
Vim=V(len+1 : 2*len);
Ure=Vre;
Uim=Vim;
end
U=Ure+1i*Uim;
Iv=A'*U.*Yv/sqrt(3);
disp('Расчёт методом Ньютона')
disp('Напряжения в узлах U, кВ')
disp('U=')
disp(abs(U+U0));
disp('токи в ветвях I, А')
abs(Iv*1000)
end