+
−% Construct an mfir from coefficients
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% FUNCTION:    fromA
+
−%
+
−% DESCRIPTION: Construct an mfir from coefficients
+
−%
+
−% CALL:        f = fromA(f, pli)
+
−%
+
−% PARAMETER:   pli:       Parameter list object
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function f = fromA(f, pli)
+
−  
+
−  VERSION = '$Id: fromA.m,v 1.17 2011/08/15 11:36:50 hewitson Exp $';
+
−  
+
−  ii = mfir.getInfo('mfir', 'From A');
+
−  % Set the method version string in the minfo object
+
−  ii.setMversion([VERSION '-->' ii.mversion]);
+
−  
+
−  % Add default values
+
−  pl = applyDefaults(ii.plists, pli);
+
−  
+
−  a  = find(pl, 'a');
+
−  fs = find(pl, 'fs');
+
−  
+
−  % Checking the coefficients are listed in rows
+
−  if size(a,1)~=1
+
−    a = a';
+
−  end
+
−  
+
−  % Zero pad coefficients to avoid zero length history
+
−  if numel(a) <= 1
+
−    a = [a 0];
+
−  end
+
−  
+
−  f.fs      = fs;
+
−  f.a       = a;
+
−  f.gd      = (f.ntaps-1)/2;
+
−  f.histout = zeros(1,f.ntaps-1); % initialise output history
+
−  
+
−  % Override some properties of the input plist
+
−  if isempty(pl.find('name'))
+
−    pl.pset('name', 'A');
+
−  end
+
−  
+
−  % Add history
+
−  f.addHistory(ii, pl, [], []);
+
−  
+
−  % Set object properties
+
−  f.setObjectProperties(pl);
+
−  
+
−end % End fromA