e10p13.m

% Example 10.13
Aa=[-2.5 1 0;-0.75 -0.5 0;1 0 0]; Ba=[0;200;0];
Pp=[-5 -5 -5];
Ka=acker(Aa,Ba,Pp), pause
B=[0;0;-1]; C=[1 0 0]; D=0;
e10p13=ss((Aa-Ba*Ka),B,C,D)
step(e10p13)