% TEST_PZM_TO_FIR tests converting pzmodel into an FIR filter
%
% M Hewitson 16-08-07
%
% $Id: test_pzm_to_fir.m,v 1.3 2009/02/02 15:20:38 hewitson Exp $
%
function test_pzm_to_fir()
  
  
  ps = [pz(1) pz(200)];
  zs = [pz(50)];
  
  % Make pz model
  pzm = pzmodel(1, ps, zs);
  
  % Make filter
  f = mfir(plist('pzmodel', pzm));
  
  % compute response
  resp(f)
  
end
% END