%*En condiciones nominales, la armadura se alimenta con 240V
%la corriente de armadura es de 100A
%el motor alcanza su velocidad nominal de 1900RPM
Vf = 240;
Rf = 100;
Va = 240;
Ra = 0.25;
Ia = 100;
Nnom = 1900;
Wnom = Nnom*pi/30; %En rad/s
J = 0.2467;
La = 30e-3;
krot = 0.02;
%Potencia Nominal del motor
%Pnom = Tnom * Wnom
%Tnom = Kfi * Ia
% Para encontrar Kfi se debe usar la ecuación de la velocidad a potencia
% nominal
% Wnom = Va/Kfi - Ra*Ia/Kfi
Kfi = (Va-Ra*Ia)/Wnom;
Tnom = Kfi*Ia;
Pnom = Tnom*Wnom;
PnomHp = Pnom/746;
%Cálculo de cuando la corriente cambia de 100A a 70A
%Si la corriente de armadura cambia, es por que el par de carga cambió.
%El nuevo par de carga será:
T_new = Kfi*70;

% La nueva velocidad mecánica sería:
W_new = Va/Kfi - Ra*70/Kfi;
%Potencia de salida
P_new = T_new*W_new;
P_newHp = P_new/746;
%Para los valores de corriente y par de arranque se considera que la
%velocidad de rotación es de cero.
% La corriente de arranque sería:
Ist = Va/Ra;
%Par de arranque
Tst = Kfi*Ist;
% Ki1 = 0;
% Kp1 = 0;
% Ki2 = 0;
% Kp2 = 0;
% Vel_ref = 0;
% Ia_ref = 0;
% Krot = 0;
% Yref = 0;