afdview.m

AFD - Advanced Filter Design using MATLABMiroslav D. Lutovac, Dejan V. Tosicversion 1.00 released 15

% afdview.m  AFD view specification (script)
% 0:42  3/2/99
%
%   Authors: Dejan V. Tosic, Miroslav D. Lutovac, 1999.02.08
%                 [e-mail]
%                 [e-mail]
%
%   Copyright (c) 1999 by Tosic & Lutovac
%   $Revision: 1.0 $  $Date: 1999/02/08 03:07:42 $
%
%   References:
%        Miroslav D. Lutovac, Dejan V. Tosic, Brian L. Evans
%           Advanced Filter Design for Signal Processing
%                   Using MATLAB and Mathematica

delete(gca);
if moreaxis
 delete(gca);
end
axis off;

if     filnumb==1
 text(0,1.0, 'Current attenuation limits LOWPASS specification');
 text(0,0.8, ['Fpass = ', num2str(speca(1)), ' Hz']);
 text(0,0.7, ['Fstop = ', num2str(speca(2)), ' Hz']);
 text(0,0.6, ['Apass = ', num2str(speca(3)), ' dB']);
 text(0,0.5, ['Astop = ', num2str(speca(4)), ' dB']);
 text(0,0.4, 'Fpass = passband edge frequency in Hz');
 text(0,0.3, 'Fstop = stopband edge frequency in Hz')
 text(0,0.2, 'Apass = maximum passband attenuation in dB')
 text(0,0.1, 'Astop = minimum stopband attenuation in dB')
elseif filnumb==2
 text(0,1.0, 'Current attenuation limits HIGHPASS specification');
 text(0,0.8, ['Fstop = ', num2str(speca(1)), ' Hz']);
 text(0,0.7, ['Fpass = ', num2str(speca(2)), ' Hz']);
 text(0,0.6, ['Apass = ', num2str(speca(3)), ' dB']);
 text(0,0.5, ['Astop = ', num2str(speca(4)), ' dB']);
 text(0,0.4, 'Fpass = passband edge frequency in Hz');
 text(0,0.3, 'Fstop = stopband edge frequency in Hz')
 text(0,0.2, 'Apass = maximum passband attenuation in dB')
 text(0,0.1, 'Astop = minimum stopband attenuation in dB')
elseif filnumb==3
 text(0,1.0, 'Current attenuation limits BANDPASS specification');
 text(0,0.8,  ['Fstop1 = ', num2str(speca(1)), ' Hz']);
 text(0,0.74, ['Fpass1 = ', num2str(speca(2)), ' Hz']);
 text(0,0.68, ['Fpass2 = ', num2str(speca(3)), ' Hz']);
 text(0,0.62, ['Fstop2 = ', num2str(speca(4)), ' Hz']);
 text(0,0.56, ['Astop1 = ', num2str(speca(5)), ' dB']);
 text(0,0.50, ['Apass = ',  num2str(speca(6)), ' dB']);
 text(0,0.44, ['Astop2 = ', num2str(speca(7)), ' dB']);
 text(0,0.28, 'Fpass = passband edge frequency in Hz');
 text(0,0.22, 'Fstop = stopband edge frequency in Hz')
 text(0,0.16, 'Apass = maximum passband attenuation in dB')
 text(0,0.1, 'Astop = minimum stopband attenuation in dB')
elseif filnumb==4
 text(0,1.0, 'Current attenuation limits BANDREJECT specification');
 text(0,0.8,  ['Fpass1 = ', num2str(speca(1)), ' Hz']);
 text(0,0.74, ['Fstop1 = ', num2str(speca(2)), ' Hz']);
 text(0,0.68, ['Fstop2 = ', num2str(speca(3)), ' Hz']);
 text(0,0.62, ['Fpass2 = ', num2str(speca(4)), ' Hz']);
 text(0,0.56, ['Apass1 = ', num2str(speca(5)), ' dB']);
 text(0,0.50, ['Astop = ',  num2str(speca(6)), ' dB']);
 text(0,0.44, ['Apass2 = ', num2str(speca(7)), ' dB']);
 text(0,0.28, 'Fpass = passband edge frequency in Hz');
 text(0,0.22, 'Fstop = stopband edge frequency in Hz')
 text(0,0.16, 'Apass = maximum passband attenuation in dB')
 text(0,0.1, 'Astop = minimum stopband attenuation in dB')
end

 text(0,0, [num2str(nmin), ' <= n <= ', num2str(nmax), ...
               '  is range of filter order'])