afddinfo.m

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

% AFDDINFO.M  AFD Design INFO (script)
% 2:13  31/1/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

%% calls:
%% afdqfmax.m

if desnumb==0

 disp('AFD WARNING: No design has been performed.');

else

 format compact
 disp(' ---------------------------------------------------');
 disp([' Design ', destype, ...
       ' summary for spec ', filname(filnumb,:)]);

 format short e; 
 disp(speca(1:4));
 if filnumb==3 | filnumb==4
  disp(speca(5:7));
 end

 format long e;
 disp([' ORDER ............  nD = ', num2str(nD)]);
 disp([' SELECTIVITY factor  aD = ', num2str(aD)]);
 disp([' RIPPLE factor ....  eD = ', num2str(eD)]);
 disp([' fp-FREQUENCY ..... fpD = ', num2str(fpD)]);

 disp(' NUMERATOR and DENOMINATOR coefficients numD, denD =');
 if length(numD)==length(denD)
  disp([numD;denD]');
 elseif length(numD)==length(denD)-1
  disp(['                              ',num2str(denD(1),16)]);
  disp([numD;denD(2:length(denD))]');
 end

 disp([' FILTER order = ', num2str(length(denD)-1), ', ', ...
       'MAX Quality Factor, Qmax = ', num2str(afdqfmax(denD))]);
 disp([' ', num2str(eseconds), ' seconds.', blanks(4), ...
       'Last coefficient is the free term.']);

end