%rlocus.m
%Root Locus
%Introduction to
%- rlocus
%- rlocfind
%- rltool 

clc
clear all
echo on

%num=[1 5];
%den=[1 4 5 0];

%num=[1 1];
%den=[1 3 7 6 4];

num=[1 -1];
den=[1 1 1];


sys=tf(num,den)

figure(1)
rlocus(sys)

%[R,K]=rlocus(sys);
%K=10;
%R=rlocus(sys,K);

%Press a key to continue
pause

[K,poles]=rlocfind(sys)

%P=-1+i;
%[K,poles]=rlocfind(sys,P)

%Press a key to continue
pause

rltool(sys)