fig518.m

realize analysis and design for computer-controlled system

% Generates Fig 5.18
% Computer Controlled Systems (3rd ed)
% Author: B. Wittenmark
% Last edit: 1997-07-04
% 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'))

lw=0.9;
td=15;
tn=30;
l0=-0.5;
h=0.2;
hnoise=0.2;
r1= -0.18619619;
r2=0;
s0=5.6636344;
s1=-5.4699074;
s2=0;
t0=1.8296419;
t1=-0.82211111;
t2=0;
 
block518;

%
clf;
%
[t,x,y]=sim('block518',[0, 40]);
subplot(3,2,1);
plot(t,y(:,3),'k--',t,y(:,1),'k','Linew',lw);
axis([0,40,0,1.3]);
set(gca,'FontSize',9,'Fontname','NewCenturySchlbk')
set(gca,'xtick',[0 20 40]);
set(gca,'ytick',[0 1]);
ylabel('Output','Fontname','NewCenturySchlbk','Fontsize',9)
text(-8,1.3,'(a)','Fontname','NewCenturySchlbk','Fontsize',9)
%title('Fig 5.18','fontname','NewCenturySchlbk','FontSize',9);
drawnow;
%
subplot(3,2,3);
[ts,ys]=stairs(t,y(:,2));
plot(ts,ys,'m','Linew',lw);
axis([0,40,-0.5,3.5]);
set(gca,'FontSize',9,'Fontname','NewCenturySchlbk')
set(gca,'xtick',[0 20 40]);
set(gca,'ytick',[0 2]);
ylabel('Input','Fontname','NewCenturySchlbk','Fontsize',9)
xlabel('Time','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;
%
r1=-1.0750296;
r2=7.50296096e-02;
s0=12.830898;
s1=-22.864403;
s2=10.466061;
t0=1.8296419;
t1=-2.1869605;
t2=0.78987568;
%
[t,x,y]=sim('block518',[0, 40]);
subplot(3,2,2);
plot(t,y(:,3),'k--',t,y(:,1),'k','Linew',lw);
axis([0,40,0,1.3]);
set(gca,'FontSize',9,'Fontname','NewCenturySchlbk')
set(gca,'xtick',[0 20 40]);
set(gca,'ytick',[0 1]);
ylabel('Output','Fontname','NewCenturySchlbk','Fontsize',9)
text(-8,1.3,'(b)','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;
%
subplot(3,2,4);
[ts,ys]=stairs(t,y(:,2));
plot(ts,ys,'m','Linew',lw);
axis([0,40,-0.5,3.5]);
set(gca,'FontSize',9,'Fontname','NewCenturySchlbk')
set(gca,'xtick',[0 20 40]);
set(gca,'ytick',[0 2]);
ylabel('Input','Fontname','NewCenturySchlbk','Fontsize',9)
xlabel('Time','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;