%
% IMPULR  is the M-file which is used in plotting the impulse
%         response curve(s) of the given system(s)
%

%    Author:  Ole Barup Sorensen, Rapid Data Ltd 

%    Copyright (c) 1989-94 by Rapid Data Ltd
%    Revision 10:32  07/02/94
	
okflag=figflag(tit1,0);

if okflag==0
  Fig19=figure('Numbertitle','off','Name',tit1,'Menubar','none',...
  'Units','normal','Position',[100/Scx 0/Scy 440/Scx 350/Scy]);
  set(0,'currentfig',Fig19);

% design menu
  pt_menu
  uimenu(Han_fil,'Label','Close','Sep','on','Callback',...
  'close(Fig19);clear Fig19');
end

delete(gca);

tbeg = 0;
tgain = tend/150;
t_range = tbeg : tgain : tend;
config

clear tbeg tgain

mmm = impulse(num,den,t_range);
if id > 9
   ddd = impulse(numx,denx,t_range);
end
if t_delay ~= 0
   n0 = size(t_range);
   ii = find( t_range >= t_delay);
   mmm = [zeros(ii(1)-1,1);mmm(1:n0(2)-ii(1)+1)];
   if id > 9,
      ddd = [zeros(ii(1)-1,1);ddd(1:n0(2)-ii(1)+1)];
   end
   clear ii;
end

mmm0 = mmm;
if id > 9, mmm0 = [mmm ddd]; clear ddd; end

plot(t_range,mmm0);
if id <= 9
   title('Impulse Response')
else
   title('Impulse Response - Yellow: Compensated')
end
grid
xlabel('Time'), ylabel('Magnitude')