30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.

m 1 of 20

% PROJECT POWER SYSTEMS 1

% MEMBERS
% * AGREDA GRACIA DAN ALEXANDER
% * AZANZA ROSILLO KEVIN ROGER
% * GARCIA BARRERA ANDRES DE JESUS
% * INTRIAGO VASQUEZ MAGNO ALEJANDRO
% * VALLEJO VALLEJO RONALD ARIEL

%% Read data from Excel

clear;
clc;
close all;
data = readtable('lineparameters.xlsx');
disp(data);

% Extract the numerical columns

Line = data.Line;
From = data.From;
TO = data.TO;

% Extract to convert into numbers

R = str2double(data.R);
X = str2double(data.X);
B_2 = str2double(data.B_2);

%% Calculate GMR and GMD of the conductor FALCON

% GMD
a=1 ;'[m]';
b=0.30; '[m]';
Dab=sqrt(a^2 + b^2); '[m]';
Dbc=sqrt(a^2 + b^2); '[m]';
Dca=2 ; '[m]';
GMD= (Dab * Dbc * Dca)^(1/3) ;'[m]';
% GMR for inductance
GMR= 0.015941;'[m]';
% GMR for capacitance
GMRC=1.462e-2;'[m]';
% ground effect
H12=sqrt(10.3^2 + 1^2);'[m]';
H23=sqrt(10.3^2 + 1^2);'[m]';
H31=sqrt(10^2 + 2^2);'[m]';
H11=10;'[m]';
H22=10.6;'[m]';
H33=10;'[m]';
%% series and parallel parameters line 9
% Inductance
l=1000;'[km]';
L=2*(l*10^3)*(10^-7)*log(GMD/GMR);
f=60;
XL=2*pi*f*L;
Zbase= (230^2)/100;
Xpu=XL/Zbase;
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 2 of 20

% Resistance
R_km=0.038;'[ohmio/km]';
Rf=38;'[OHMIO]';
Rpu=Rf/Zbase;

% Capacitance with ground effect

C = (5.56 * l*10^3 * 10^(-11)) / (log(GMD / GMRC) - log(((H11 * H22 * H33)^(1/3)) /
((H12 * H23 * H31)^(1/3))));
Xc = 1/(2*pi*f*C); % [ohm]
Xcpu = Xc/Zbase; % [p.u]
Bbase=1/Zbase;
Bpu_2=1/(2*Xc);

Bpu_22=1.223;
%Add of values of line 9
R(isnan(R)) = Rpu;
X(isnan(X)) = Xpu;
B_2(isnan(B_2))= Bpu_2;

%% the conductance, susceptance, and admittance matrices

%%that represent the network under analysis.

% Admittance matrix
bus=6;
Y_bus = zeros(bus, bus);
for k = 1:length(From)
bus_from = From(k);
bus_to = TO(k);

R_k = R(k);
X_k = X(k);
B_2k = B_2(k);

Y_series = 1 / (R_k + 1j * X_k);

% diagonal
Y_bus(bus_from, bus_from) = Y_bus(bus_from, bus_from) + Y_series + 1j * B_2k;
Y_bus(bus_to, bus_to) = Y_bus(bus_to, bus_to) + Y_series + 1j * B_2k;

% off diagonal
Y_bus(bus_from, bus_to) = Y_bus(bus_from, bus_to) - Y_series;
Y_bus(bus_to, bus_from) = Y_bus(bus_to, bus_from) - Y_series;

end

% Conductance matrix
C_m=real(Y_bus);
% Susceptance matrix
S_m= imag(Y_bus);
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 3 of 20

%% NEWTON RAPHSON
% Imput
% Y_bus
Y11=Y_bus(1,1); Y12=Y_bus(1,2); Y13=Y_bus(1,3);
Y14=Y_bus(1,4); Y15=Y_bus(1,5); Y16=Y_bus(1,6);

Y21=Y_bus(2,1); Y22=Y_bus(2,2); Y23=Y_bus(2,3);

Y24=Y_bus(2,4); Y25=Y_bus(2,5); Y26=Y_bus(2,6);

Y31=Y_bus(3,1); Y32=Y_bus(3,2); Y33=Y_bus(3,3);

Y34=Y_bus(3,4); Y35=Y_bus(3,5); Y36=Y_bus(3,6);

Y41=Y_bus(4,1); Y42=Y_bus(4,2); Y43=Y_bus(4,3);

Y44=Y_bus(4,4); Y45=Y_bus(4,5); Y46=Y_bus(4,6);

Y51=Y_bus(5,1); Y52=Y_bus(5,2); Y53=Y_bus(5,3);

Y54=Y_bus(5,4); Y55=Y_bus(5,5); Y56=Y_bus(5,6);

Y61=Y_bus(6,1); Y62=Y_bus(6,2); Y63=Y_bus(6,3);

Y64=Y_bus(6,4); Y65=Y_bus(6,5); Y66=Y_bus(6,6);

% Initial data
% Know values
V1 = 1; % [pu]
d1 = 0; % [rad]
V2 = 1.02; % [pu]

% Unknow values
V3(1) = 1; % [pu]
V4(1) = 1; % [pu]
V5(1) = 1; % [pu]
V6(1) = 1; % [pu]

d2(1) = 0; % [rad]
d3(1) = 0; % [rad]
d4(1) = 0; % [rad]
d5(1) = 0; % [rad]
d6(1) = 0; % [rad]

x(:,1) = [d2(1);d3(1);d4(1);d5(1);d6(1);V3(1);V4(1);V5(1);V6(1)];
iteras=15;
Tol = 1e-6;
e=ones(iteras,1);
iterafinal=0;
id=0;
while iterafinal<1
for i=1:15

%####### Step 1: Dy ##########

P2(i) = abs(V2)*(abs(Y21)*abs(V1)*cos(d2(i)-d1-angle(Y21))+
...
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 4 of 20

abs(Y22)*abs(V2)*cos(d2(i)-d2(i)-angle(Y22))+
...
abs(Y23)*abs(V3(i))*cos(d2(i)-d3(i)-angle(Y23))+
...
abs(Y24)*abs(V4(i))*cos(d2(i)-d4(i)-angle(Y24))+
...
abs(Y25)*abs(V5(i))*cos(d2(i)-d5(i)-angle(Y25))+
...
abs(Y26)*abs(V6(i))*cos(d2(i)-d6(i)-angle(Y26)));

P3(i) = abs(V3(i))*(abs(Y31)*abs(V1)*cos(d3(i)-d1-angle(Y31))+
...
abs(Y32)*abs(V2)*cos(d3(i)-d2(i)-angle(Y32))+
...
abs(Y33)*abs(V3(i))*cos(d3(i)-d3(i)-angle(Y33))+
...
abs(Y34)*abs(V4(i))*cos(d3(i)-d4(i)-angle(Y34))+
...
abs(Y35)*abs(V5(i))*cos(d3(i)-d5(i)-angle(Y35))+
...
abs(Y36)*abs(V6(i))*cos(d3(i)-d6(i)-angle(Y36)));

P4(i) = abs(V4(i))*(abs(Y41)*abs(V1)*cos(d4(i)-d1-angle(Y41))+
...
abs(Y42)*abs(V2)*cos(d4(i)-d2(i)-angle(Y42))+
...
abs(Y43)*abs(V3(i))*cos(d4(i)-d3(i)-angle(Y43))+
...
abs(Y44)*abs(V4(i))*cos(d4(i)-d4(i)-angle(Y44))+
...
abs(Y45)*abs(V5(i))*cos(d4(i)-d5(i)-angle(Y45))+
...
abs(Y46)*abs(V6(i))*cos(d4(i)-d6(i)-angle(Y46)));

P5(i) = abs(V5(i))*(abs(Y51)*abs(V1)*cos(d5(i)-d1-angle(Y51))+
...
abs(Y52)*abs(V2)*cos(d5(i)-d2(i)-angle(Y52))+
...
abs(Y53)*abs(V3(i))*cos(d5(i)-d3(i)-angle(Y53))+
...
abs(Y54)*abs(V4(i))*cos(d5(i)-d4(i)-angle(Y54))+
...
abs(Y55)*abs(V5(i))*cos(d5(i)-d5(i)-angle(Y55))+
...
abs(Y56)*abs(V6(i))*cos(d5(i)-d6(i)-angle(Y56)));

P6(i) = abs(V6(i))*(abs(Y61)*abs(V1)*cos(d6(i)-d1-angle(Y61))+
...
abs(Y62)*abs(V2)*cos(d6(i)-d2(i)-angle(Y62))+
...
abs(Y63)*abs(V3(i))*cos(d6(i)-d3(i)-angle(Y63))+
...
abs(Y64)*abs(V4(i))*cos(d6(i)-d4(i)-angle(Y64))+
...
abs(Y65)*abs(V5(i))*cos(d6(i)-d5(i)-angle(Y65))+
...
abs(Y66)*abs(V6(i))*cos(d6(i)-d6(i)-angle(Y66)));

Q3(i) = abs(V3(i))*(abs(Y31)*abs(V1)*sin(d3(i)-d1-angle(Y31))+
...
abs(Y32)*abs(V2)*sin(d3(i)-d2(i)-angle(Y32))+
...
abs(Y33)*abs(V3(i))*sin(d3(i)-d3(i)-angle(Y33))+
...
abs(Y34)*abs(V4(i))*sin(d3(i)-d4(i)-angle(Y34))+
...
abs(Y35)*abs(V5(i))*sin(d3(i)-d5(i)-angle(Y35))+
...
abs(Y36)*abs(V6(i))*sin(d3(i)-d6(i)-angle(Y36)));

Q4(i) = abs(V4(i))*(abs(Y41)*abs(V1)*sin(d4(i)-d1-angle(Y41))+
...
abs(Y42)*abs(V2)*sin(d4(i)-d2(i)-angle(Y42))+
...
abs(Y43)*abs(V3(i))*sin(d4(i)-d3(i)-angle(Y43))+
...
abs(Y44)*abs(V4(i))*sin(d4(i)-d4(i)-angle(Y44))+
...
abs(Y45)*abs(V5(i))*sin(d4(i)-d5(i)-angle(Y45))+
...
abs(Y46)*abs(V6(i))*sin(d4(i)-d6(i)-angle(Y46)));

Q5(i) = abs(V5(i))*(abs(Y51)*abs(V1)*sin(d5(i)-d1-angle(Y51))+
...
abs(Y52)*(abs(V2))*sin(d5(i)-d2(i)-angle(Y52))+
...
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 5 of 20

abs(Y53)*(abs(V3(i)))*sin(d5(i)-d3(i)-angle(Y53))+
...
abs(Y54)*(abs(V4(i)))*sin(d5(i)-d4(i)-angle(Y54))+
...
abs(Y55)*(abs(V5(i)))*sin(d5(i)-d5(i)-angle(Y55))+
...
abs(Y56)*(abs(V6(i)))*sin(d5(i)-d6(i)-angle(Y56)));

Q6(i) = abs(V6(i))*(abs(Y61)*abs(V1)*sin(d6(i)-d1-angle(Y61))+
...
abs(Y62)*abs(V2)*sin(d6(i)-d2(i)-angle(Y62))+
...
abs(Y63)*abs(V3(i))*sin(d6(i)-d3(i)-angle(Y63))+
...
abs(Y64)*abs(V4(i))*sin(d6(i)-d4(i)-angle(Y64))+
...
abs(Y65)*abs(V5(i))*sin(d6(i)-d5(i)-angle(Y65))+
...
abs(Y66)*abs(V6(i))*sin(d6(i)-d6(i)-angle(Y66)));

DP2 = 0.3-P2(i);
DP3= -0.85-P3(i);
DP4= -0.4-P4(i);
DP5= -0.2-P5(i);
DP6= -0.2-P6(i);
DQ3= -0.28-Q3(i);
DQ4= -0.13-Q4(i);
DQ5= -0.065-Q5(i);
DQ6= -0.065-Q6(i);

Dy = [DP2; DP3; DP4; DP5;DP6;DQ3;DQ4;DQ5;DQ6];

disp(Dy)

%####### Step 2: [J] ##########

% J1 = d(P)/d(d)
J1_22 = -(abs(V2))*(abs(Y21)*abs(V1)*sin(d2(i)-d1-angle(Y21)) +...
abs(Y23)*abs(V3(i))*sin(d2(i)-d3(i)-angle(Y23))+
....
abs(Y24)*abs(V4(i))*sin(d2(i)-d4(i)-angle(Y24))+
...
abs(Y25)*abs(V5(i))*sin(d2(i)-d5(i)-angle(Y25))+
...
abs(Y26)*abs(V6(i))*sin(d2(i)-d6(i)-angle(Y26)));

J1_33 = -(abs(V3(i)))*(abs(Y31)*abs(V1)*sin(d3(i)-d1-angle(Y31)) .+..

abs(Y32)*abs(V2)*sin(d3(i)-d2(i)-angle(Y32))+
...
abs(Y34)*abs(V4(i))*sin(d3(i)-d4(i)-angle(Y34))+
...
abs(Y35)*abs(V5(i))*sin(d3(i)-d5(i)-angle(Y35))+
...
abs(Y36)*abs(V6(i))*sin(d3(i)-d6(i)-angle(Y36)));

J1_44 = -(abs(V4(i)))*(abs(Y41)*abs(V1)*sin(d4(i)-d1-angle(Y41)) .+..

abs(Y42)*abs(V2)*sin(d4(i)-d2(i)-angle(Y42))+
...
abs(Y43)*abs(V3(i))*sin(d4(i)-d3(i)-angle(Y43))+
...
abs(Y45)*abs(V5(i))*sin(d4(i)-d5(i)-angle(Y45))+
...
abs(Y46)*abs(V6(i))*sin(d4(i)-d6(i)-angle(Y46)));

J1_55 = -(abs(V5(i)))*(abs(Y51)*(abs(V1))*sin(d5(i)-d1-angle(Y51)) .+..

abs(Y52)*(abs(V2))*sin(d5(i)-d2(i)-angle(Y52))+
...
abs(Y53)*(abs(V3(i)))*sin(d5(i)-d3(i)-angle(Y53))+
...
abs(Y54)*(abs(V4(i)))*sin(d5(i)-d4(i)-angle(Y54))+
...
abs(Y56)*(abs(V6(i)))*sin(d5(i)-d6(i)-angle(Y56)));

J1_66 = -(abs(V6(i)))*(abs(Y61)*(abs(V1))*sin(d6(i)-d1-angle(Y61)) .
+..
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 6 of 20

abs(Y62)*(abs(V2))*sin(d6(i)-d2(i)-angle(Y62))+
...
abs(Y63)*(abs(V3(i)))*sin(d6(i)-d3(i)-angle(Y63))+
...
abs(Y64)*(abs(V4(i)))*sin(d6(i)-d4(i)-angle(Y64))+
...
abs(Y65)*(abs(V5(i)))*sin(d6(i)-d5(i)-angle(Y65)));

J1_23 = abs(V2)*abs(Y23)*abs(V3(i))*sin(d2(i)-d3(i)-angle(Y23));
J1_24 = abs(V2)*abs(Y24)*abs(V4(i))*sin(d2(i)-d4(i)-angle(Y24));
J1_25 = abs(V2)*abs(Y25)*abs(V5(i))*sin(d2(i)-d5(i)-angle(Y25));
J1_26 = abs(V2)*abs(Y26)*abs(V6(i))*sin(d2(i)-d6(i)-angle(Y26));

J1_32 = abs(V3(i))*abs(Y32)*abs(V2)*sin(d3(i)-d2(i)-angle(Y32));
J1_34 = abs(V3(i))*abs(Y34)*abs(V4(i))*sin(d3(i)-d4(i)-angle(Y34));
J1_35 = abs(V3(i))*abs(Y35)*abs(V5(i))*sin(d3(i)-d5(i)-angle(Y35));
J1_36 = abs(V3(i))*abs(Y36)*abs(V6(i))*sin(d3(i)-d6(i)-angle(Y36));

J1_42 = abs(V4(i))*abs(Y42)*abs(V2)*sin(d4(i)-d2(i)-angle(Y42));
J1_43 = abs(V4(i))*abs(Y43)*abs(V3(i))*sin(d4(i)-d3(i)-angle(Y43));
J1_45 = abs(V4(i))*abs(Y45)*abs(V5(i))*sin(d4(i)-d5(i)-angle(Y45));
J1_46 = abs(V4(i))*abs(Y46)*abs(V6(i))*sin(d4(i)-d6(i)-angle(Y46));

J1_52 = abs(V5(i))*abs(Y52)*abs(V2)*sin(d5(i)-d2(i)-angle(Y52));
J1_53 = abs(V5(i))*abs(Y53)*abs(V3(i))*sin(d5(i)-d3(i)-angle(Y53));
J1_54 = abs(V5(i))*abs(Y54)*abs(V4(i))*sin(d5(i)-d4(i)-angle(Y54));
J1_56 = abs(V5(i))*abs(Y56)*abs(V6(i))*sin(d5(i)-d6(i)-angle(Y56));

J1_62 = abs(V6(i))*abs(Y62)*abs(V2)*sin(d6(i)-d2(i)-angle(Y62));
J1_63 = abs(V6(i))*abs(Y63)*abs(V3(i))*sin(d6(i)-d3(i)-angle(Y63));
J1_64 = abs(V6(i))*abs(Y64)*abs(V4(i))*sin(d6(i)-d4(i)-angle(Y64));
J1_65 = abs(V6(i))*abs(Y65)*abs(V5(i))*sin(d6(i)-d5(i)-angle(Y65));

J1 = [J1_22 J1_23 J1_24 J1_25 J1_26;

J1_32 J1_33 J1_34 J1_35 J1_36;
J1_42 J1_43 J1_44 J1_45 J1_46;
J1_52 J1_53 J1_54 J1_55 J1_56;
J1_62 J1_63 J1_64 J1_65 J1_66];

% J2 = d(P)/d(V)
J2_22 = (2*(abs(V2))*abs(Y22)*cos(angle(Y22)))+((abs(Y21))*(abs(V1))*cos(d2(i)-
d1-angle(Y21))+...
(abs(Y23))*(abs(V3(i)))*cos(d2(i)-d3(i)-angle(Y23))
+...
(abs(Y24))*(abs(V4(i)))*cos(d2(i)-d4(i)-angle(Y24))
+...
(abs(Y25))*(abs(V5(i)))*cos(d2(i)-d5(i)-angle(Y25))
+...
(abs(Y26))*(abs(V6(i)))*cos(d2(i)-d6(i)-angle
(Y26)));
J2_23 = abs(V2)*abs(Y23)*cos(d2(i)-d3(i)-angle(Y23));
J2_24 = abs(V2)*abs(Y24)*cos(d2(i)-d4(i)-angle(Y24));
J2_25 = abs(V2)*abs(Y25)*cos(d2(i)-d5(i)-angle(Y25));
J2_26 = abs(V2)*abs(Y26)*cos(d2(i)-d6(i)-angle(Y26));
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 7 of 20

J2_33 = ((2)*abs(V3(i))*abs(Y33)*cos(angle(Y33)))+((abs(Y31))*(abs(V1))*cos(d3
(i)-d1-angle(Y31))+...
(abs(Y32))*(abs(V2))*cos(d3(i)-d2(i)-angle(Y32))
+...
(abs(Y34))*(abs(V4(i)))*cos(d3(i)-d4(i)-angle(Y34))
+...
(abs(Y35))*(abs(V5(i)))*cos(d3(i)-d5(i)-angle(Y35))
+...
(abs(Y36))*(abs(V6(i)))*cos(d3(i)-d6(i)-angle
(Y36)));
J2_32 = abs(V3(i))*abs(Y32)*cos(d3(i)-d2(i)-angle(Y32));
J2_34 = abs(V3(i))*abs(Y34)*cos(d3(i)-d4(i)-angle(Y34));
J2_35 = abs(V3(i))*abs(Y35)*cos(d3(i)-d5(i)-angle(Y35));
J2_36 = abs(V3(i))*abs(Y36)*cos(d3(i)-d6(i)-angle(Y36));

J2_42= abs(V4(i))*abs(Y42)*cos(d4(i)-d2(i)-angle(Y42));
J2_43= abs(V4(i))*abs(Y43)*cos(d4(i)-d3(i)-angle(Y43));
J2_44= (2*(abs(V4(i)))*abs(Y44)*cos(angle(Y44)))+((abs(Y41))*(abs(V1))*cos(d4
(i)-d1-angle(Y41))+...
(abs(Y42))*(abs(V2))*cos(d4(i)-d2(i)-angle(Y42))
+...
(abs(Y43))*(abs(V3(i)))*cos(d4(i)-d3(i)-angle(Y43))
+...
(abs(Y45))*(abs(V5(i)))*cos(d4(i)-d5(i)-angle(Y45))
+...
(abs(Y46))*(abs(V6(i)))*cos(d4(i)-d6(i)-angle
(Y46)));
J2_45= abs(V4(i))*abs(Y45)*cos(d4(i)-d5(i)-angle(Y45));
J2_46= abs(V4(i))*abs(Y46)*cos(d4(i)-d6(i)-angle(Y46));

J2_52 = abs(V5(i))*abs(Y52)*cos(d5(i)-d2(i)-angle(Y52));
J2_53 = abs(V5(i))*abs(Y53)*cos(d5(i)-d3(i)-angle(Y53));
J2_54 = abs(V5(i))*abs(Y54)*cos(d5(i)-d4(i)-angle(Y54));
J2_55 = 2*abs(V5(i))*abs(Y55)*cos(angle(Y55))+((abs(Y51))*(abs(V1))*cos(d5(i)-
d1-angle(Y51))+...
(abs(Y52))*abs((V2))*cos(d5(i)-d2(i)-angle(Y52))
+...
(abs(Y53))*abs((V3(i)))*cos(d5(i)-d3(i)-angle(Y53))
+...
(abs(Y54))*abs((V4(i)))*cos(d5(i)-d4(i)-angle(Y54))
+...
(abs(Y56))*abs((V6(i)))*cos(d5(i)-d6(i)-angle
(Y56)));
J2_56 = abs((V5(i)))*abs(Y56)*cos(d5(i)-d6(i)-angle(Y56));

J2_62=abs(V6(i))*abs(Y62)*cos(d6(i)-d2(i)-angle(Y62));
J2_63=abs(V6(i))*abs(Y63)*cos(d6(i)-d3(i)-angle(Y63));
J2_64=abs(V6(i))*abs(Y64)*cos(d6(i)-d4(i)-angle(Y64));
J2_65=abs(V6(i))*abs(Y65)*cos(d6(i)-d5(i)-angle(Y65));
J2_66=2*abs(V6(i))*abs(Y66)*cos(angle(Y66))+((abs(Y61))*abs((V1))*cos(d6(i)-d1-
angle(Y61))+...
(abs(Y62))*abs((V2))*cos(d6(i)-d2(i)-angle(Y62))
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 8 of 20

+...
(abs(Y63))*abs((V3(i)))*cos(d6(i)-d3(i)-angle(Y63))
+...
(abs(Y64))*abs((V4(i)))*cos(d6(i)-d4(i)-angle(Y64))
+...
(abs(Y65))*abs((V5(i)))*cos(d6(i)-d5(i)-angle
(Y65)));

J2 = [ J2_23 J2_24 J2_25 J2_26;

J2_33 J2_34 J2_35 J2_36;
J2_43 J2_44 J2_45 J2_46;
J2_53 J2_54 J2_55 J2_56;
J2_63 J2_64 J2_65 J2_66];

% J3 = d(Q)/d(d)
J3_22 = (abs(V2))*((abs(Y21))*abs((V1))*cos(d2(i)-d1-angle(Y21))+
...
(abs(Y23))*abs((V3(i)))*cos(d2(i)-d3(i)-angle(Y23))
+...
(abs(Y24))*abs((V4(i)))*cos(d2(i)-d4(i)-angle(Y24))
+...
(abs(Y25))*abs((V5(i)))*cos(d2(i)-d5(i)-angle(Y25))
+...
(abs(Y26))*abs((V6(i)))*cos(d2(i)-d6(i)-angle
(Y26)));

J3_23 = -(abs(V2))*abs(Y23)*abs(V3(i))*cos(d2(i)-d3(i)-angle(Y23));
J3_24 = -(abs(V2))*abs(Y24)*abs(V4(i))*cos(d2(i)-d4(i)-angle(Y24));
J3_25 = -(abs(V2))*abs(Y25)*abs(V5(i))*cos(d2(i)-d5(i)-angle(Y25));
J3_26 = -(abs(V2))*abs(Y26)*abs(V6(i))*cos(d2(i)-d6(i)-angle(Y26));

J3_32 = -(abs(V3(i)))*abs(Y32)*abs(V2)*cos(d3(i)-d2(i)-angle(Y32));
J3_33 = abs(V3(i))*((abs(Y31))*abs((V1))*cos(d3(i)-d1-angle(Y31))+
...
(abs(Y32))*abs((V2))*cos(d3(i)-d2(i)-angle(Y32))
+...
(abs(Y34))*abs((V4(i)))*cos(d3(i)-d4(i)-angle(Y34))
+...
(abs(Y35))*abs((V5(i)))*cos(d3(i)-d5(i)-angle(Y35))
+...
(abs(Y36))*abs((V6(i)))*cos(d3(i)-d6(i)-angle
(Y36)));

J3_34 = -(abs(V3(i)))*abs(Y34)*abs(V4(i))*cos(d3(i)-d4(i)-angle(Y34));
J3_35 = -(abs(V3(i)))*abs(Y35)*abs(V5(i))*cos(d3(i)-d5(i)-angle(Y35));
J3_36 = -(abs(V3(i)))*abs(Y36)*abs(V6(i))*cos(d3(i)-d6(i)-angle(Y36));

J3_42 = -(abs(V4(i)))*abs(Y42)*abs(V2)*cos(d4(i)-d2(i)-angle(Y42));
J3_43 = -(abs(V4(i)))*abs(Y43)*abs(V3(i))*cos(d4(i)-d3(i)-angle(Y43));
J3_44 = abs(V4(i))*((abs(Y41))*abs((V1))*cos(d4(i)-d1-angle(Y41))+
...
(abs(Y42))*abs((V2))*cos(d4(i)-d2(i)-angle(Y42))
+...
(abs(Y43))*abs((V3(i)))*cos(d4(i)-d3(i)-angle(Y43))
+...
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 9 of 20

(abs(Y45))*abs((V5(i)))*cos(d4(i)-d5(i)-angle(Y45))
+...
(abs(Y46))*abs((V6(i)))*cos(d4(i)-d6(i)-angle
(Y46)));
J3_45 = -(abs(V4(i)))*abs(Y45)*abs(V5(i))*cos(d4(i)-d5(i)-angle(Y45));
J3_46 = -(abs(V4(i)))*abs(Y46)*abs(V6(i))*cos(d4(i)-d6(i)-angle(Y46));

J3_52 = -(abs(V5(i)))*abs(Y52)*abs(V2)*cos(d5(i)-d2(i)-angle(Y52));
J3_53 = -(abs(V5(i)))*abs(Y53)*abs(V3(i))*cos(d5(i)-d3(i)-angle(Y53));
J3_54 = -(abs(V5(i)))*abs(Y54)*abs(V4(i))*cos(d5(i)-d4(i)-angle(Y54));
J3_55 = abs(V5(i))*((abs(Y51))*abs((V1))*cos(d5(i)-d1-angle(Y51))+
...
(abs(Y52))*abs((V2))*cos(d5(i)-d2(i)-angle(Y52))
+...
(abs(Y53))*abs((V3(i)))*cos(d5(i)-d3(i)-angle(Y53))
+...
(abs(Y54))*abs((V4(i)))*cos(d5(i)-d4(i)-angle(Y54))
+...
(abs(Y56))*abs((V6(i)))*cos(d5(i)-d6(i)-angle
(Y56)));
J3_56 = -(abs(V5(i)))*abs(Y56)*abs(V5(i))*cos(d5(i)-d6(i)-angle(Y56));

J3_62 = -(abs(V6(i)))*abs(Y62)*abs(V2)*cos(d6(i)-d2(i)-angle(Y62));
J3_63 = -(abs(V6(i)))*abs(Y63)*abs(V3(i))*cos(d6(i)-d3(i)-angle(Y63));
J3_64 = -(abs(V6(i)))*abs(Y64)*abs(V4(i))*cos(d6(i)-d4(i)-angle(Y64));
J3_65 = -(abs(V6(i)))*abs(Y65)*abs(V5(i))*cos(d6(i)-d5(i)-angle(Y65));
J3_66 = abs(V6(i))*((abs(Y61))*abs((V1))*cos(d6(i)-d1-angle(Y61))+
...
(abs(Y62))*abs((V2))*cos(d6(i)-d2(i)-angle(Y62))
+...
(abs(Y63))*abs((V3(i)))*cos(d6(i)-d3(i)-angle(Y63))
+...
(abs(Y64))*abs((V4(i)))*cos(d6(i)-d4(i)-angle(Y64))
+...
(abs(Y65))*abs((V5(i)))*cos(d6(i)-d5(i)-angle
(Y65)));

J3 = [J3_32 J3_33 J3_34 J3_35 J3_36;

J3_42 J3_43 J3_44 J3_45 J3_46;
J3_52 J3_53 J3_54 J3_55 J3_56;
J3_62 J3_63 J3_64 J3_65 J3_66];

% J4 = d(Q)/d(V)
J4_22 = -2*(abs(V2))*abs(Y22)*sin(angle(Y22))+((abs(Y21))*(V1)*sin(d2(i)-d1-
angle(Y21))+...
(abs(Y23))*(abs(V3(i)))*sin(d2(i)-d3(i)-angle(Y23))
+...
(abs(Y24))*(abs(V4(i)))*sin(d2(i)-d4(i)-angle(Y24))
+...
(abs(Y25))*(abs(V5(i)))*sin(d2(i)-d5(i)-angle(Y25))
+...
(abs(Y26))*(abs(V6(i)))*sin(d2(i)-d6(i)-angle
(Y26)));
J4_23 = abs(V2)*abs(Y23)*sin(d2(i)-d3(i)-angle(Y23));
J4_24 = abs(V2)*abs(Y24)*sin(d2(i)-d4(i)-angle(Y24));
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 10 of 20

J4_25 = abs(V2)*abs(Y25)*sin(d2(i)-d5(i)-angle(Y25));
J4_26 = abs(V2)*abs(Y26)*sin(d2(i)-d6(i)-angle(Y26));

J4_32 = abs(V3(i))*abs(Y32)*sin(d3(i)-d2(i)-angle(Y32));
J4_33 = -2*abs(V3(i))*abs(Y33)*sin(angle(Y33))+((abs(Y31))*(abs(V1))*sin(d3(i)-
d1-angle(Y31))+...
(abs(Y32))*(abs(V2))*sin(d3(i)-d2(i)-angle(Y32))
+...
(abs(Y34))*(abs(V4(i)))*sin(d3(i)-d4(i)-angle(Y34))
+...
(abs(Y35))*(abs(V5(i)))*sin(d3(i)-d5(i)-angle(Y35))
+...
(abs(Y36))*(abs(V6(i)))*sin(d3(i)-d6(i)-angle
(Y36)));
J4_34 = abs(V3(i))*abs(Y34)*sin(d3(i)-d4(i)-angle(Y34));
J4_35 = abs(V3(i))*abs(Y35)*sin(d3(i)-d5(i)-angle(Y35));
J4_36 = abs(V3(i))*abs(Y36)*sin(d3(i)-d6(i)-angle(Y36));

J4_42 = abs(V4(i))*abs(Y42)*sin(d4(i)-d2(i)-angle(Y42));
J4_43 = abs(V4(i))*abs(Y43)*sin(d4(i)-d3(i)-angle(Y43));
J4_44 = -2*abs(V4(i))*abs(Y44)*sin(angle(Y44))+((abs(Y41))*(abs(V1))*sin(d4(i)-
d1-angle(Y41))+...
(abs(Y42))*(abs(V2))*sin(d4(i)-d2(i)-angle(Y42))
+...
(abs(Y43))*(abs(V3(i)))*sin(d4(i)-d3(i)-angle(Y43))
+...
(abs(Y45))*(abs(V5(i)))*sin(d4(i)-d5(i)-angle(Y45))
+...
(abs(Y46))*(abs(V6(i)))*sin(d4(i)-d6(i)-angle
(Y46)));
J4_45 = abs(V4(i))*abs(Y45)*sin(d4(i)-d5(i)-angle(Y45));
J4_46 = abs(V4(i))*abs(Y46)*sin(d4(i)-d6(i)-angle(Y46));

J4_52 = abs(V5(i))*abs(Y52)*sin(d5(i)-d2(i)-angle(Y52));
J4_53 = abs(V5(i))*abs(Y53)*sin(d5(i)-d3(i)-angle(Y53));
J4_54 = abs(V5(i))*abs(Y54)*sin(d5(i)-d4(i)-angle(Y54));
J4_55 = -2*abs(V5(i))*abs(Y55)*sin(angle(Y55))+((abs(Y51))*(abs(V1))*sin(d5(i)-
d1-angle(Y51))+...
(abs(Y52))*abs((V2))*sin(d5(i)-d2(i)-angle(Y52))
+...
(abs(Y53))*abs((V3(i)))*sin(d5(i)-d3(i)-angle(Y53))
+...
(abs(Y54))*abs((V4(i)))*sin(d5(i)-d4(i)-angle(Y54))
+...
(abs(Y56))*abs((V6(i)))*sin(d5(i)-d6(i)-angle
(Y56)));
J4_56 = abs(V5(i))*abs(Y56)*sin(d5(i)-d6(i)-angle(Y56));

J4_62 = abs(V6(i))*abs(Y62)*sin(d6(i)-d2(i)-angle(Y62));
J4_63 = abs(V6(i))*abs(Y63)*sin(d6(i)-d3(i)-angle(Y63));
J4_64 = abs(V6(i))*abs(Y64)*sin(d6(i)-d4(i)-angle(Y64));
J4_65 = abs(V6(i))*abs(Y65)*sin(d6(i)-d5(i)-angle(Y65));
J4_66 = -2*abs(V6(i))*abs(Y66)*sin(angle(Y66))+((abs(Y61))*abs((V1))*sin(d6(i)-
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 11 of 20

d1-angle(Y61))+...
(abs(Y62))*abs((V2))*sin(d6(i)-d2(i)-angle(Y62))
+...
(abs(Y63))*abs((V3(i)))*sin(d6(i)-d3(i)-angle(Y63))
+...
(abs(Y64))*abs((V4(i)))*sin(d6(i)-d4(i)-angle(Y64))
+...
(abs(Y65))*abs((V5(i)))*sin(d6(i)-d5(i)-angle
(Y65)));

J4 = [J4_33 J4_34 J4_35 J4_36;

J4_43 J4_44 J4_45 J4_46;
J4_53 J4_54 J4_55 J4_56;
J4_63 J4_64 J4_65 J4_66];

% Jacobian Matrix
J = [J1 J2
J3 J4];

%###### Step 3: Dx = [Dd; DV]##########

Dx = inv(J)*Dy;

%###### Step 4: x(:,i+1) = x(:,i)+Dx

x(:,i+1) = x(:,i)+Dx;
d2(i+1) = x(1,i+1); % [rad]
d3(i+1) = x(2,i+1); % [rad]
d4(i+1) = x(3,i+1); % [rad]
d5(i+1) = x(4,i+1); % [rad]
d6(i+1) = x(5,i+1);% [rad]
V3(i+1) = x(6,i+1); % [rad]
V4(i+1) = x(7,i+1); % [rad]
V5(i+1) = x(8,i+1); % [rad]
V6(i+1) = x(9,i+1); % [pu]

%###### Step 5: e<Tol

id = id + 1;
disp(id);
e(id) = abs(max(Dy));
if e(id)<Tol
disp(x)
iterafinal=1;
disp(e)
break;

end
end
end

%%
voltages=[V1;V2;V3(end-1);V4(end-1);V5(end-1);V6(end-1)]; % magnitude voltage
angles=[d1;((d2(end-1)));((d3(end-1)));((d4(end-1)));((d5(end-1)));((d6(end-1)))];
% rad
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 12 of 20

V_complejo=voltages .* (cos(angles) + 1i * sin(angles));

%% Current each of the line

I12=(V_complejo(1)-V_complejo(2))*(-Y12);
I21=(V_complejo(2)-V_complejo(1))*(-Y21);
I13=(V_complejo(1)-V_complejo(3))*(-Y13);
I31=-I13;
I24=(V_complejo(2)-V_complejo(4))*(-Y24);
I31=(V_complejo(3)-V_complejo(1))*(-Y31);
I34=(V_complejo(3)-V_complejo(4))*(-Y34);
I35=(V_complejo(3)-V_complejo(5))*(-Y35);
I53=-I35;
I42=(V_complejo(4)-V_complejo(2))*(-Y42);
I45=(V_complejo(4)-V_complejo(5))*(-Y45);
I56=(V_complejo(5)-V_complejo(6))*(-Y56);
I43=(V_complejo(4)-V_complejo(3))*(-Y43);
I54=-I45;
I65=-I56;
%% Current each bus
I1=I12+I13;
I2=-I12+I24;
I3=-I13+I34+I35;
I4=-I24-I34+I45;
I5=-I35-I45+I56;
I6=-I56;

%% POWER INJECTED INTO EACH BRANCH

S1=(V_complejo(1))*(conj(I1));
S2=(V_complejo(2))*(conj(I2));
S3=(V_complejo(3))*(conj(I3));
S4=(V_complejo(4))*(conj(I4));
S5=(V_complejo(5))*(conj(I5));
S6=(V_complejo(6))*(conj(I6));

%% Power flow
S12=conj(I12)*V_complejo(1);
S21=conj(I21)*V_complejo(2);
S13=conj(I13)*V_complejo(1);
S31=conj(I31)*V_complejo(3);
S24=conj(I24)*V_complejo(2);
S42=conj(I42)*V_complejo(4);
S35=conj(I35)*V_complejo(3);
S43=conj(I43)*V_complejo(4);
S45=conj(I45)*V_complejo(4);
S56=conj(I56)*V_complejo(5);
S34=conj(I34)*V_complejo(3);
S53=conj(I53)*V_complejo(5);
S54=conj(I54)*V_complejo(5);
S65=conj(I65)*V_complejo(6);
%% Total powers generated, demanded and total losses.
PL1=(real(S13)+real(S31));
PL2=(real(S24)+real(S42));
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 13 of 20

PL3=(real(S12)+real(S21));
PL4=(real(S34)+real(S43));
PL5=(real(S35)+real(S53));
PL6=(real(S13)+real(S31));
PL7=(real(S24)+real(S42));
PL8=(real(S45)+real(S54));
PL9=(real(S56)+real(S65));

% Calculate total real power losses (MW)

Base=100;'[MVA]';
T_loss_P=((Base)*(PL1/2))+(Base*(PL2/2))+(Base*PL3)...
+(Base*PL4)+(Base*PL5)+(Base*(PL6/2))...
+(Base*(PL7/2))+(Base*PL8)+(Base*PL9);

QL1=(imag(S13)+imag(S31));
QL2=(imag(S24)+imag(S42));
QL3=(imag(S12)+imag(S21));
QL4=(imag(S34)+imag(S43));
QL5=(imag(S35)+imag(S53));
QL6=(imag(S13)+imag(S31));
QL7=(imag(S24)+imag(S42));
QL8=(imag(S45)+imag(S54));
QL9=(imag(S56)+imag(S65));

T_loss_Q=((Base)*(QL1/2))+(Base*(QL2/2))+(Base*QL3)...
+(Base*QL4)+(Base*QL5)+(Base*(QL6/2))...
+(Base*(QL7/2))+(Base*QL8)+(Base*QL9);

P_Total=((Base)*real(S13))+(Base*real(S12))+(Base*real(S24))
...
+(Base*real(S34))+(Base*real(S35))...
+(Base*real(S45))+(Base*real(S56));
Q_Total=((Base)*imag(S13))+(Base*-imag(S12))+(Base*imag(S24))...
+(Base*-imag(S34))+(Base*imag(S35))...
+(Base*imag(S45))+(Base*imag(S56));

%% CIRCLE DIAGRAM OF LINE 9

% We consider line 9 as a long line with losses.
z = (Rpu + Xpu*j)*Zbase; % Series impedance per unit length
y = (((Bpu_22) * j))*Bbase; % Parallel admittance per unit length
lambda =(z * y)^(1/2); % Lambda value
Zc =(z / y)^(1/2); % Characteristic impedance
A = cosh(lambda); % parameter A
D = A; % parameter D
B_9 = Zc * sinh(lambda); % parameter B
C_9 = (1 / Zc) * sinh(lambda); % parameter C
Vs_m = 221.4647e3; % Sending-end voltage magnitude
Vs_a = angles(5); % Sending-end voltage angle
Vr_m = 220.0157e3 ; % Receiving-end voltage magnitude
Vr_a = -1.1453; % Receiving-end voltage angle
SA_m = ((Vs_m * Vr_m) / abs(B_9)); % Magnitude of the complex power for SB
SB_a = (180+ (angle(B_9)*(180/pi))- (angle(A)*(180/pi))); % Angle of the complex
power for SB
SB_m = (abs(A)*(Vr_m)^2 / abs(B_9)); % Magnitude of the complex power for SA
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 14 of 20

SA_a = ((angle(B_9)*(180/pi))+(Vs_a*(180/pi))); % Angle of the complex power for SA

% Scaling magnitudes for better visualization (100MVA=1cm)

SB_m_escala=(SB_m/100e6); % Scale SB magnitude
SA_m_escala=(SA_m/100e6); % Scale SA magnitude

% Calculation of phasors for the circle diagram

xSB=[SB_m_escala*cosd(SB_a):0.001:0];
ySB=tand(SB_a)*xSB;
xSA=[SB_m_escala*cosd(SB_a):0.001:SA_m_escala*cosd(SA_a)+SB_m_escala*cosd(SB_a)];
mSA=tan(SA_a*(pi/180));
bSA=SB_m_escala*sind(SB_a)-mSA*SB_m_escala*cosd(SB_a);
ySA=mSA*xSA+bSA;

% Calculation for the power line between sending and receiving ends (SR)
xSR=[0:0.001:SA_m_escala*cosd(SA_a)+SB_m_escala*cosd(SB_a)];
mSR=(SA_m_escala*sind(SA_a)+SB_m_escala*sind(SB_a))/(SA_m_escala*cosd(SA_a)
+SB_m_escala*cosd(SB_a));
ySR=mSR*xSR;

% Calculation for the operation point

xoperacion=SA_m_escala*cosd(SA_a)+SB_m_escala*cosd(SB_a);
yoperacion=SA_m_escala*sind(SA_a)+SB_m_escala*sind(SB_a);

% Magnitude and angle of SR phasor

magnitudSR=(xoperacion^2+yoperacion^2)^(1/2);
anguloSR=atan(yoperacion/xoperacion);

% Calculation of Qmax and Pmax

xqmax=0;% X-coordinate for Qmax

yqmax=SA_m_escala*sind(acosd(SB_m_escala*cosd(SB_a)/SA_m_escala))+SB_m_escala*sind
(SB_a); % Y-coordinate for Qmax

ypmax=0;% Y-coordinate for Pmax

xpmax=SA_m_escala*cosd(asind(SB_m_escala*sind(SB_a)/SA_m_escala))+SB_m_escala*cosd
(SB_a); % X-coordinate for Pmax

% Calculation of the circle for the diagram

xc=SB_m_escala*cosd(SB_a); % X-coordinate of the circle center
yc=SB_m_escala*sind(SB_a); % Y-coordinate of the circle center
theta=linspace(0,2*pi); % Angle range for circle plotting
xcirculo=SA_m_escala*cos(theta)+xc; % X-coordinates for the circle
ycirculo=SA_m_escala*sin(theta)+yc; % Y-coordinates for the circle

% Graph axes setup

largox=[-1.5*SA_m_escala-1:0.005:1.5*SA_m_escala+1]; % X-axis range
ejex=zeros(size(largox)); % X-axis baseline
largoy=[-3*SB_m_escala:0.005:SB_m_escala]; % Y-axis range
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 15 of 20

ejey=zeros(size(largoy)); % Y-axis baseline

% Plotting the diagrams

p=plot(xSA,ySA,'y',xSB,ySB,'b',xSR,ySR,'r',xoperacion,yoperacion,'kx'...
,xqmax,yqmax,'bx',xpmax,ypmax,'rx')% Plotting phasors, points and line
p(1).LineWidth=2;
p(2).LineWidth=2;
p(3).LineWidth=2;
p(4).LineWidth=2;
p(5).LineWidth=2;
p(6).LineWidth=2;
hold on
plot(xcirculo,ycirculo,'k--',xc,yc,'b.',largox,ejex,'k',ejey,largoy,'k') % Plotting
circle and axes
grid on
title('Circle Diagram at the Receiving End of Line 9') % Title of the graph
xlabel('Active Power [MW]') % X-axis label
ylabel('Reactive Power [MVar]') % Y-axis label
%% DC POWER FLOW
% Removing the row and column corresponding to the slack bus from Ybus
B_full=(imag(Y_bus));

Brd=-(B_full(2:end,2:end)); % Negative matrix susceptance

Pk=[0.3;-0.85;-0.4;-0.2;-0.2];
dk=((inv(Brd))*Pk);

d_1=0; % Slack bus angle is set to zero

% Calculating power flows between buses

P12=(abs(B_full(1,2)))*(d_1-dk(1)); % Power flow from bus 1 to 2
P13=(abs(B_full(1,3)))*(d_1-dk(2)); % Power flow from bus 1 to 3
P24=(abs(B_full(2,4)))*(dk(1)-dk(3)); % Power flow from bus 2 to 4
P34=(abs(B_full(3,4)))*(dk(2)-dk(3)); % Power flow from bus 3 to 4
P35=(abs(B_full(3,5)))*(dk(2)-dk(4)); % Power flow from bus 3 to 5
P45=(abs(B_full(4,5)))*(dk(3)-dk(4)); % Power flow from bus 4 to 5
P56=(abs(B_full(5,6)))*(dk(4)-dk(5)); % Power flow from bus 5 to 6

%% OUTPUT
fprintf
('\n-------------------------------------------------------------------------------
--------------------------------------------------------------------------\n'
);
fprintf(' | System Summary
|');
fprintf
('\n-------------------------------------------------------------------------------
---------------------------------------------------------------------------\n'
);
fprintf('\n');
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 16 of 20

fprintf(' Parameters Line

9' )
fprintf
('\n-------------------------------------------------------------------------------
--------------------------------------------------------------------------------
\n')
fprintf(' Resistance: %.4e Inductance: %.4e H
Capacitance: %.4e F\n', Rf, L, C);
fprintf(' R[pu]: %.4f X[pu]: %.4f
B_2[pu]: %.4f \n', Rpu, Xpu, Bpu_2);
fprintf('\n');
fprintf
('\n-------------------------------------------------------------------------------
---------------------------------------------------------------------------\n');
fprintf(' Admittance Matrix
');
fprintf
('\n-------------------------------------------------------------------------------
-----------------------------------------------------------------------\n');
fprintf('\n');
disp(Y_bus)
fprintf('\n');
fprintf
('\n-------------------------------------------------------------------------------
------------------------------------------------------------------------\n');
fprintf(' Conductance Matrix
');
fprintf
('\n-------------------------------------------------------------------------------
-------------------------------------------------------------------------\n');
fprintf('\n');
disp(C_m)
fprintf('\n');
fprintf
('\n-------------------------------------------------------------------------------
-----------------------------------------------------------------------\n');
fprintf(' Susceptance Matrix
');
fprintf
('\n-------------------------------------------------------------------------------
-----------------------------------------------------------------------\n');
fprintf('\n');
disp(S_m)

fprintf
('\n-------------------------------------------------------------------------------
------------------------------------------------------------------------\n'
);
fprintf(' VOLTAGE BUSES
');
fprintf
('\n-------------------------------------------------------------------------------
-------------------------------------------------------------------------\n'
);
fprintf(('\n Bus Magnitud Voltage [pu] Angle Voltage [rad]
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 17 of 20

Angle Voltage [degreee] Phasor voltage\n'));

fprintf(' 1 %.4f %.4f
%.4f %.4f+%.4fi\n', ...
voltages(1),angles(1), (angles(1)*180/pi), real(V_complejo(1)), imag(V_complejo
(1)));
fprintf(' 2 %.4f %.4f %.
4f %.4f%.4fi\n', ...
voltages(2),angles(2), (angles(2)*180/pi), real(V_complejo(2)), imag(V_complejo
(2)));
fprintf(' 3 %.4f %.4f %.
4f %.4f%.4fi\n', ...
voltages(3),angles(3), (angles(3)*180/pi), real(V_complejo(3)), imag(V_complejo
(3)));
fprintf(' 4 %.4f %.4f %.
4f %.4f%.4fi\n', ...
voltages(4),angles(4), (angles(4)*180/pi), real(V_complejo(4)), imag(V_complejo
(4)));
fprintf(' 5 %.4f %.4f %.
4f %.4f%.4fi\n', ...
voltages(5),angles(5), (angles(5)*180/pi), real(V_complejo(5)), imag(V_complejo
(5)));
fprintf(' 6 %.4f %.4f %.
4f %.4f%.4fi\n', ...
voltages(6),angles(6), (angles(6)*180/pi), real(V_complejo(6)), imag(V_complejo
(6)));
fprintf('\n');

fprintf
('\n-------------------------------------------------------------------------------
-------------------------------------------------------------------------\n');
fprintf(' CURRENT LINE
');
fprintf
('\n-------------------------------------------------------------------------------
---------------------------------------------------------------------------\n');
fprintf(('\n Line Magnitud Current [pu] Angle Voltage [rad]
Angle Voltage [dregrees] Phasor current\n'));
fprintf(' 1 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I13),angle(I13) ,(angle(I13)*180/pi), real(I13), imag(I13));
fprintf(' 2 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I24),angle(I24) ,(angle(I24)*180/pi), real(I24), imag(I24));
fprintf(' 3 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I12),angle(I12) ,(angle(I12)*180/pi), real(I12), imag(I12));
fprintf(' 4 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I34),angle(I34) ,(angle(I34)*180/pi), real(I34), imag(I34));
fprintf(' 5 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I35),angle(I35) ,(angle(I35)*180/pi), real(I35), imag(I35));
fprintf(' 6 %.4f %.4f %.
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 18 of 20

4f %.4f%+.4fi\n', ...
abs(I31),angle(I31) ,(angle(I31)*180/pi), real(I31), imag(I31));
fprintf(' 7 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I42),angle(I42) ,(angle(I42)*180/pi), real(I42), imag(I42));
fprintf(' 8 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I45),angle(I45) ,(angle(I45)*180/pi), real(I45), imag(I45));
fprintf(' 9 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I56),angle(I56) ,(angle(I56)*180/pi), real(I56), imag(I56));

fprintf
('\n-------------------------------------------------------------------------------
------------------------------------------------------------------------\n');
fprintf(' CURRENT BUS
');
fprintf
('\n-------------------------------------------------------------------------------
-------------------------------------------------------------------------\n');
fprintf(('\n Bus Magnitud Current [pu] Angle Voltage [rad]
Angle Voltage [dregrees] Phasor current\n'));
fprintf(' 1 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I1),angle(I1) ,(angle(I1)*180/pi), real(I1), imag(I1));
fprintf(' 2 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I2),angle(I2) ,(angle(I2)*180/pi), real(I2), imag(I2));
fprintf(' 3 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I3),angle(I3) ,(angle(I3)*180/pi), real(I3), imag(I3));
fprintf(' 4 %.4f %.4f %.
4f %.4f%+.4fi\n', ...
abs(I4),angle(I4) ,(angle(I4)*180/pi), real(I4), imag(I4));
fprintf(' 5 %.4f %.4f %.4f
%.4f%+.4fi\n', ...
abs(I5),angle(I5) ,(angle(I5)*180/pi), real(I5), imag(I5));
fprintf(' 6 %.4f %.4f %.
4f %.4f%.4fi\n', ...
abs(I6),angle(I6) ,(angle(I6)*180/pi), real(I6), imag(I6));

fprintf
('\n-------------------------------------------------------------------------------
----------------------------------------------------------------------------------
\n');
fprintf('
POWER ');
fprintf
('\n-------------------------------------------------------------------------------
-----------------------------------------------------------------------------------
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 19 of 20

----\n');
fprintf(('\nLine From_Bus To_Bus From_PInyec [MW] From_PInyec_[MVAR]
To_P_Inyection[MW] To_P_Inyection[MVAR] Loss_P_MW Loss_Q_MVAR \n'
));
fprintf(' 1 1 3 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S13)*Base,imag(S13)*Base,((PL1/2)*Base)-
(real(S13)*Base),(QL1*Base)-(imag(S13)*Base),(PL1/2)*Base,(QL1/2)*Base);
fprintf(' 2 2 4 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S24)*Base,imag(S24)*Base,((PL2/2)*Base)-
(real(S24)*Base),(QL2*Base)-(imag(S24)*Base),(PL2/2)*Base,(QL2/2)*Base);
fprintf(' 3 1 2 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S12)*Base,imag(S12)*-Base,(PL3*Base)-(real
(S12)*Base),(QL3*Base)-(imag(S12)*Base),PL3*Base,QL3*Base);
fprintf(' 4 3 4 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S34)*Base,imag(S34)*-Base,(PL4*Base)-
(real(S34)*Base),(QL4*Base)-(imag(S34)*Base),PL4*Base,QL4*Base);
fprintf(' 5 3 5 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S35)*Base,imag(S35)*Base,(PL5*Base)-(real
(S35)*Base),(QL5*Base)-(imag(S35)*Base),PL5*Base,QL5*Base);
fprintf(' 6 1 3 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S13)*Base,imag(S13)*Base,((PL6/2)*Base)-
(real(S13)*Base),(QL6*Base)-(imag(S13)*Base),(PL6/2)*Base,(QL6/2)*Base);
fprintf(' 7 2 4 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S24)*Base,imag(S24)*Base,((PL7/2)*Base)-
(real(S24)*Base),(QL7*Base)-(imag(S24)*Base),(PL7/2)*Base,(QL7/2)*Base);
fprintf(' 8 4 5 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S45)*Base,imag(S45)*Base,(PL8*Base)-(real
(S45)*Base),(QL8*Base)-(imag(S45)*Base),PL8*Base,QL8*Base);
fprintf(' 9 5 6 %.4f %.4f %.4f
%.4f %.4f %.4f\n', real(S56)*Base,imag(S56)*Base,(PL9*Base)-(real
(S56)*Base),(QL9*Base)-(imag(S56)*Base),PL9*Base,QL9*Base);
fprintf('\n');
fprintf(' Total: %.4f %.4f
%.4f %.4f\n',P_Total,Q_Total,T_loss_P,T_loss_Q);

fprintf
('\n-------------------------------------------------------------------------------
--------------------------------------------------------------------------\n'
);
fprintf(' POWER FLOW DC
');
fprintf
('\n-------------------------------------------------------------------------------
--------------------------------------------------------------------------\n'
);
fprintf('\n Line Power[pu]
Power [MW]\n');
fprintf(' 1 %.4f
%.4f\n', P13,P13*100);
fprintf(' 2 %.4f
30/01/25 11:49 PM C:\Users\Lenov\Downlo...\PROJECT.m 20 of 20

%.4f\n', P24,P24*100);
fprintf(' 3 %.4f
%.4f\n', P12,P12*100);
fprintf(' 4 %.4f
%.4f\n', P34,P34*100);
fprintf(' 5 %.4f
%.4f\n', P35,P35*100);
fprintf(' 6 %.4f
%.4f\n', P13,P13*100);
fprintf(' 7 %.4f
%.4f\n', P24,P24*100);
fprintf(' 8 %.4f
%.4f\n', P45,P45*100);
fprintf(' 9 %.4f
%.4f\n', P56,P56*100);