fig127.m

realize analysis and design for computer-controlled system

% Generates Fig 12.7 (compare)
% Computer Controlled Systems (3rd ed)
% Author: B. Wittenmark
% Last edit: 1997-07-10
% Copyright (c) 1996 by K. J. 舠tr鰉, B. Wittenmark and
% Department of Automatic Control, Lund Institute of
% Technology, Lund, Sweden

newplot;
set(gcf,'PaperUnits','centimeters','PaperPosition',[2 2 13 10])
set(gcf,'Units','centimeters','position',get(gcf,'PaperPosition'))

h=1;
blockmv;

a1=-1.7;
a2=0.7;
b1=0.9;
b2=1;
c1=-0.7;
c2=0;
s0=1;
s1=-0.7;
r0=0.9;
r1=1;
lw=0.9;
clf;
%
[t,x,y]=sim('blockmv',[0, 100]);
subplot(3,1,1);
yloss=cumsum(y(:,1).*y(:,1));
plot(t,yloss,'k--','Linew',lw);
axis([0,100,0 120]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 50 100],'ytick',[0 100]);
ylabel('Output loss','Fontsize',9,'Fontname','NewCenturySchlbk')
hold on

subplot(3,1,2);
uloss=cumsum(y(:,2).*y(:,2));
plot(t,uloss,'k--','Linew',lw);
axis([0,100,0 2000]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 50 100],'ytick',[0 1000 2000]);
ylabel('Input loss','Fontsize',9,'Fontname','NewCenturySchlbk')
xlabel('Time','Fontsize',9,'Fontname','NewCenturySchlbk')
hold on
drawnow;
%
s0=1;
s1=-0.7;
r0=1;
r1=1;
%
[t,x,y]=sim('blockmv',[0, 100]);
subplot(3,1,1);
yloss=cumsum(y(:,1).*y(:,1));
plot(t,yloss,'k-','Linew',lw);

subplot(3,1,2);
uloss=cumsum(y(:,2).*y(:,2));
plot(t,uloss,'k-','Linew',lw);
%
ylblalgn