%Took transfer functions from CessnaLatSC and CessnaLongSC and 
%root locus'd with them and the original or BE gains were used
%roll gain was changed to 1.3 from .3XXX

%Amanda Allen and Andy Wiratama 4/25/01

figure(1)
%roll
num1=[4301 5593 3.458e4 0];
den1=[1 14.37 28.24 137.6 2.454];
rollsys=tf(num1,den1);
rlocus(rollsys)

figure(2)
%yaw
num2=[-583.8 -7736 -722.6 -2208];
den2=[1 14.37 28.24 137.6 2.454];
yawsys=tf(num2,den2);
rlocus(yawsys)

figure(3)
%pitch
num3=[-1991 -4097 -229 0];
den3=[1 8.945 28.21 1.476 .8157];
pitchsys=tf(num3,den3);
rlocus(pitchsys)