fig87.m

realize analysis and design for computer-controlled system

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

newplot;clf;
set(gcf,'PaperUnits','centimeters','PaperPosition',[2 2 13 10])
set(gcf,'Units','centimeters','position',get(gcf,'PaperPosition'))
clear
lw=0.9;
h=0.5;
m=1;
l1=1;
l2=1;

%
[t,x,y]=sim('block87',[0, 10]);
subplot(3,1,1);
plot(t,y(:,4),'k:',t,y(:,1), 'k','Linew',lw);
axis([0,10,0,1.5]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10]);
set(gca,'ytick',[0 1]);
ylabel('Position','Fontname','NewCenturySchlbk','Fontsize',9);
hold on;
drawnow;
%
subplot(3,1,2);
plot(t,y(:,2),'k','Linew',lw);
axis([0,10,-0.75,0.75]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10]);
set(gca,'ytick',[-0.5 0 0.5]);
ylabel('Velocity','Fontname','NewCenturySchlbk','Fontsize',9);
hold on;
drawnow;
%
subplot(3,1,3);
[ts,ys]=stairs(t,y(:,3));
plot(ts,ys,'m','Linew',lw);
axis([0,10,-1.2,1.2]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10]);
set(gca,'ytick',[-1 0 1]);
ylabel('Input','Fontname','NewCenturySchlbk','Fontsize',9);
xlabel('Time','Fontname','NewCenturySchlbk','Fontsize',9);
hold on
drawnow;
%
h=0.04;
[t,x,y]=sim('block87',[0, 10]);
subplot(3,1,1);
plot(t,y(:,1), 'k--','Linew',lw);
drawnow;
%
subplot(3,1,2);
plot(t,y(:,2),'k--','Linew',lw);
drawnow;
%
subplot(3,1,3);
plot(t,y(:,3),'k--','Linew',lw);
drawnow;
%
ylblalgn