10/3/25 11:47 PM C:\Users\NITRO 5\Document...\untitled11.
m 1 of 1
% Given Data
P = 30e6; % Load Power in Watts
V_R = 132e3; % Receiving End Voltage in Volts
V_r_phase = V_R/sqrt(3);
f = 50; % Frequency in Hz
pf = 0.85; % Power Factor (lagging)
T = -acos(pf); % Angle
Z = (20 + 1j*52); % Series impedance per phase in ohms
Y = 315e-6; % Total phase-neutral admittance in Siemens
% Step 1: Calculate Load Current
I = P/ (sqrt(3) * V_R * pf);
I_r = I*(cos(T) + 1j * sin(T)); % Receiving end current
% Step 2: Nominal Pi Model Parameters
A = 1 + (Y * Z) / 2;
B = Z;
C = Y * (1 + (Y * Z) / 4);
D = A; % Since A = D in a nominal Pi model
% Step 3: Compute Sending End Voltage
V_S_phase = A * V_r_phase + B * I_r;
V_S = V_S_phase * sqrt(3);
% Step 4: Voltage Regulation
Voltage_Regulation = ((abs(V_S) - abs(V_R)) / abs(V_R)) * 100;
% Display Results
fprintf('A = %.4f + j%.4f\n', real(A), imag(A));
fprintf('B = %.4f + j%.4f\n', real(B), imag(B));
fprintf('C = %.6f + j%.6f\n', real(C), imag(C));
fprintf('D = %.4f + j%.4f\n', real(D), imag(D));
fprintf('\nSending End Voltage: %.2f kV\n', abs(V_S) / 1e3);
fprintf('Voltage Regulation: %.2f%%\n', Voltage_Regulation);