fig726.m

realize analysis and design for computer-controlled system

% Generates Fig 7.26
% 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

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

lw=0.9;
w=5;
block726;

h=0.05;

[t,x,y]=sim('block726',[0, 10]);
[ts,ys]=stairs(t,y(:,1));
subplot(3,2,1);
plot(ts,ys,'k-','Linew',lw);
axis([0,4,-1.1,1.1]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-1 0 1]);
set(gca,'xtick',[0 2 4]);
ylabel('Sampled input','Fontname','NewCenturySchlbk','Fontsize',9)
text(-1.3,1.1,'(a)','Fontname','NewCenturySchlbk','Fontsize',9)
subplot(3,2,2);
plot(t,y(:,2),'k','Linew',lw);
axis([0,4,-1.1,1.1]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-1 0 1]);
set(gca,'xtick',[0 2 4]);
ylabel('Output','Fontname','NewCenturySchlbk','Fontsize',9)

w=60;
[t,x,y]=sim('block726',[0, 10]);
[ts,ys]=stairs(t,y(:,1));
subplot(3,2,3);
plot(ts,ys,'k-','Linew',lw);
axis([0,4,-1.1,1.1]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-1 0 1]);
set(gca,'xtick',[0 2 4]);
ylabel('Sampled input','Fontname','NewCenturySchlbk','Fontsize',9)
text(-1.3,1.1,'(b)','Fontname','NewCenturySchlbk','Fontsize',9)
subplot(3,2,4);
plot(t,y(:,2),'k','Linew',lw);
axis([0,4,-0.03,0.03]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-0.02 0 0.02]);
set(gca,'xtick',[0 2 4]);
ylabel('Output','Fontname','NewCenturySchlbk','Fontsize',9)

w=130;
[t,x,y]=sim('block726',[0, 10]);
[ts,ys]=stairs(t,y(:,1));
subplot(3,2,5);
plot(ts,ys,'k-','Linew',lw);
axis([0,4,-1.1,1.1]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-1 0 1]);
set(gca,'xtick',[0 2 4]);
xlabel('Time','Fontname','NewCenturySchlbk','Fontsize',9)
ylabel('Sampled input','Fontname','NewCenturySchlbk','Fontsize',9)
text(-1.3,1.1,'(c)','Fontname','NewCenturySchlbk','Fontsize',9)
subplot(3,2,6);
plot(t,y(:,2),'k','Linew',lw);
axis([0,4,-1.1,1.1]);
set(gca,'Fontsize',9,'Fontname','NewCenturySchlbk');
set(gca,'ytick',[-1 0 1]);
set(gca,'xtick',[0 2 4]);
xlabel('Time','Fontname','NewCenturySchlbk','Fontsize',9)
ylabel('Output','Fontname','NewCenturySchlbk','Fontsize',9)
drawnow
%Special ylblalgn
fig = gcf;
ax = findobj(get(fig,'Children'),'flat','Type','axes');
nax = length(ax);
pos = zeros(nax,3);
for i=1:nax
  pos(i,:) = get(get(ax(i),'YLabel'),'Position');
end
[newpos,idx] = min(pos(:,1));
set(get(ax(1),'YLabel'),'Position',[newpos,pos(i,2),pos(i,3)]);
set(get(ax(3),'YLabel'),'Position',[newpos,pos(i,2),pos(i,3)]);
set(get(ax(5),'YLabel'),'Position',[newpos,pos(i,2),pos(i,3)]);