% plot_one_lpfir.m
%
% 2012/03/14  Added NumSamplesFreqz with default value of 2048, also added
%             line for ripple to show frequency range only
% 2010/02/24  Added "including zero coeffs" to title to emphasize the
%             area to use is the main one, not the one in parentheses.
% 2010/02/22  Updated with Spring 2010 numbers
% 2009/02/13  Parameterized main values so script is easier to adapt
% 2005/02/14  Now calculates effective area which removes "outside" taps
%             that area equal to zero
% 2005/02/14  Written
%
% Todo: 
%   - Add call to function that says whether filters meets specs or not;
%     but this will require some code to check passband ripple.


%=================
function plot_one_lpfir(coeffs)
   % set these values (MHz), and also the "axis" parameters below
   FreqSamp        = 100;
   Ripple          =  7;   Ripple_dB =  0;  % placed at 0 dB for no good reason
   Pass1           =  9;   Pass1_dB =  -4;
   Stop1           = 11;   Stop1_dB = -22;
   Stop2           = 13;   Stop2_dB = -30;
   NumSamplesFreqz = 2^11;                  % 512 is default

   figure(1); clf;

   coeffs_scaled   = coeffs/sum(coeffs);    % scale coeffs so H(0)=1
   len             = length(coeffs);

   freqz(coeffs_scaled, 1, NumSamplesFreqz);% plot freq response
   hold on;                                 % don't erase following plots
   % only a single line for passband ripple because the vertical location
   % depends on the exact filter characteristics
   plot([0     Ripple]      /(FreqSamp/2), [Ripple_dB Ripple_dB], 'm'); % ripple
   plot([0     Pass1]       /(FreqSamp/2), [Pass1_dB Pass1_dB], 'r');  % passbnd
   plot([Stop1 (FreqSamp/2)]/(FreqSamp/2), [Stop1_dB Stop1_dB], 'r');  % stop1
   plot([Stop2 (FreqSamp/2)]/(FreqSamp/2), [Stop2_dB Stop2_dB], 'r');  % stop2

   axis([0 1 -45 10]);                      % set window view

   % Calculate number of partial products
   numpps = 0;
   for k = 1:len,
      numpps = numpps + numppterms(coeffs(k));
   end

   % Calculate area and areaeff
   area    = numpps + 2*len;
   leneff  = len;
   while (coeffs(1) == 0 & coeffs(leneff) == 0),
      coeffs = coeffs(2:(leneff-1));
      leneff = leneff -2;
   end
   areaeff   = numpps + 2*leneff;

   % Generate title on plot
   titlestr = strcat(num2str(leneff), ' (',                     ...
                     num2str(len), ') taps, ',                  ...
                     num2str(numpps), ' partial products,',     ...
                    'area = ', num2str(areaeff),                ...
                    '(', num2str(area), ' including zero coeffs)' );
   title(titlestr);
   hold off;

return;