J = 0.0086556;
Kp = 1;
Kt = 90.63e-6;
Ti = 0;
Td = 0;

desicion = 1;

while( desicion == 1)

	%Kp = input('Ingrese Kp : ');
	Ti = input('Ingrese Ti : ');
	Td = input('Ingrese Td : ');

	num = Kp*Kt/(Ti*J)*[Ti*Td, Ti, 1];
	den = [1, 0, 0, 0];

	sistema = tf(num,den);

    K_inc = input('Ingrese el incremento de K del rlocus: ');
	K_max = input('Ingrese el K_max del rlocus: ');
	
	%rlocus(sistema,K_inc,0,K_max);
    rlocus(sistema);

    pause;
	desicion = input('Ingrese 1 para hacer otro rlocus: ');

end