fig713.m

来自「realize analysis and design for computer」· M 代码 · 共 73 行

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

block713;

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

lw=0.9;
Ms=7;
h=1;
fc=0.25;
om=2*pi*fc;
om1=1.90*om;
om2=1.69*om;
om3=1.61*om;
ze1=0.49;
ze2=0.82;
ze3=0.98;
%
clf;
[t,x,y]=sim('block713',[0, 30]);
[ts1,ys1]=stairs(t,y(:,1));
[ts2,ys2]=stairs(t,y(:,2));
subplot(3,2,1)
plot(t,y(:,3),'k','Linew',lw);
%title(['Fig 7.13']);
axis([0,30,-1.3,1.3]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10 20 30]);
set(gca,'ytick',[-1 0 1]);
text(-6,1.2,'(a)','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;
%
subplot(3,2,2)
plot(t,y(:,4),'k','Linew',lw);
axis([0,30,-1.3,1.3]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10 20 30]);
set(gca,'ytick',[-1 0 1]);
text(-6,1.2,'(b)','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;
%
subplot(3,2,3)
opt=simset('Outputpoints','specified');
[t,x,y]=sim('block713',[0:h:30],opt);
hpl=plot(t,y(:,2),'m.');
set(hpl,'Markersize',Ms)
axis([0,30,-1.3,1.3]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10 20 30]);
set(gca,'ytick',[-1 0 1]);
xlabel('Time','Fontsize',9,'Fontname','NewCenturySchlbk');
text(-6,1.2,'(c)','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;
%
subplot(3,2,4)
hpl=plot(t,y(:,1),'m.');
set(hpl,'Markersize',Ms)
axis([0,30,-1.3,1.3]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'xtick',[0 10 20 30]);
set(gca,'ytick',[-1 0 1]);
xlabel('Time','Fontsize',9,'Fontname','NewCenturySchlbk');
text(-6,1.2,'(d)','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow;