% Archivo M: trans_vr.m 
% Archivo M para calcular y graficar la regulación de voltaje 
% de un transformador como función de la carga para factores  
% de potencia de 0.8 en retraso, 1.0, y 0.8 en adelanto. 
VS = 230;                   % Voltaje secundario (V) 
amps = 0:6.52:65.2;         % Valores de corriente (A) 
Req = 0.0445;               % Resistencia equivalente (ohms) 
Xeq = 0.0645;               % Reactancia equivalente (ohms) 

% Calcula el velor de las corrientes para los tres 
% factores de potencia. La primera fila de I contiene 
% las corrientes en retraso, la segunda columna contiene 
% las corrientes unitarias, y la tercera fila contiene 
% las corrientes en adelanto. 
I(1,:) = amps .* ( 0.8 - j*0.6);  % En retraso(Lagging) 
I(2,:) = amps .* ( 1.0        );  % Unitaria 
I(3,:) = amps .* ( 0.8 + j*0.6);  % En adelanto(Leading) 
 
% Calcula VP/n. 
VPn = VS + Req.*I + j.*Xeq.*I; 
 
% Calculate voltage regulation 
VR = (abs(VPn) - VS) ./ VS .* 100; 
 
% Plot the voltage regulation 
plot(amps,VR(1,:),'b-','LineWidth',2.0); 
hold on; 
plot(amps,VR(2,:),'k--','LineWidth',2.0); 
plot(amps,VR(3,:),'r-.','LineWidth',2.0); 
title ('\bfVoltaje de regulación versus carga'); 
xlabel ('\bfCarga (A)'); 
ylabel ('\bfRegulación de voltaje (%)'); 
legend('0.8 FP en retraso','1.0 FP','0.8 FP en adelanto'); 
grid on; 
hold off;