clc;
close all;
clear all;
numg=[0 1];
deng=poly([-17 -19 -22]);
'Funcion de transferencia'
G=tf(numg,deng)
'Factorizada'
Gfac=zpk(G)%en forma factorizada
rlocus(G)
title(['LGR'])
pause();%miramos un momento la grafica
sgrid(0.707,0) %factor de amortiguamiento
[K,p]=rlocfind(G);
'Polos en lazo cerrado= '
p
'Valor de K='
K