%Root locus for Ch 4.5
%kja 070319
aminit;

sys=tf([-1 1],[1 3 0]);
amaxis([-4 4 -4 4]);
[r,k]=rlocus(sys);

pl=plot(real(r(1,:)),imag(r(1,:)))
set(pl,'Linewidth',AM_data_linewidth);
hold on
pl=plot(real(r(2,:)),imag(r(2,:)))
set(pl,'Linewidth',AM_data_linewidth);
plot(1,0,'bo');
plot(0,0,'bx');
plot(-3,0,'bx');
plot(0,sqrt(3),'bs');
plot(0,-sqrt(3),'bs');
amaxis([-3.5 4.5 -4 4]);
line([0 0],[-4 4]);
axis square

amprint('rlocus-secord.eps');
