Maquinas Eléctricas-Chapman-5ta-edición

2.12 Valores nominales y problemas relacionados con los transformadores 107
valores de la corriente de magnetización requeridos. Por último, el valor rms de la corriente de magnetización
se puede calcular con la ecuación:
I rms
1
T
T
0 i2 dt (2-104)
A continuación se muestra un programa de MATLAB que ejecuta estos cálculos:
% Archivo M: mag_current.m
% Archivo M para calcular y hacer la gráfica de la corriente
% de magnetización de un transformador de 230/115 que opera
% a 230 volts y 50/60 Hz. Este programa también calcula
% el valor rms de la corriente de magnetización.
% Cargar la curva de magnetización. Está en dos
% columnas, la primera columna es la fmm y la
% segunda columna es el flujo.
load mag_curve_1.dat;
mmf_data 5 mag_curve_1 (:,1);
flux_data 5 mag_curve_1 (:,2);
% Inicializar valores
VM 5 325;
NP 5 850;
% Voltaje máximo (V)
% Vueltas primario
% Calcular la velocidad angular a 60 Hz
freq 5 60;
% Freq (Hz)
w 5 2 * pi * freq;
% Calcular el flujo contra el tiempo
time 5 0:1/3000:1/30;
% 0 a 1/30 seg
flux 5 -VM/(w*NP) * cos(w .* time);
% Calcular la mmf correspondiente a un flujo dado
% por medio de la función de interpolación del flujo
mmf 5 interpl(flux_data,mmf_data,flux);
% Calcular la corriente de magnetización
im 5 mmf / NP;
% Calcular el valor rms de la corriente
irms 5 sqrt(sum(im.^2)/length(im));
disp(['La corriente rms a 60 Hz es ', num2str(irms)]);
% Hacer la gráfica de la corriente de magnetización.
figure(l)
subplot(2, 1, 1);
plot(time,im) ;
title ('\bfCorriente de Magnetización a 60 Hz');
xlabel ('\bfTime (s)');
ylabel ('\bf\itI_{m} \rm(A)');
axis([0 0.4 -2 2]);
grid on;
% Calcular la velocidad angular a 50 Hz
freq 5 50;
% Freq (Hz)
w 5 2 * pi * freq;
% Calcular el flujo contra el tiempo
time 5 0:1/2500:1/25;
% 0 a 1/25 seg
flux 5 -VM/(w*NP) * cos(w .* time);
% Calcular la mmf correspondiente a un flujo dado
% por medio de la función de interpolación del flujo
mmf 5interpl(flux_data, mmf_data,flux);