+
−% RP2IIR Return a,b coefficients for a real pole designed using the bilinear transform.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: RP2IIR Return a,b coefficients for a real pole designed using
+
−%              the bilinear transform.
+
−%
+
−% CALL:        filt = rpole(p, fs)
+
−%
+
−% REMARK:      This is just a helper function. This function should only be
+
−%              called from class functions.
+
−%
+
−% INPUT:       p  - pole object
+
−%              fs - the sample rate for the filter
+
−%
+
−% VERSION:     $Id: rp2iir.m,v 1.7 2011/02/18 16:48:54 ingo Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function varargout = rp2iir(varargin)
+
−
+
−  p  = varargin{1};
+
−  fs = varargin{2};
+
−
+
−  f0 = p.f;
+
−  w0 = f0*2*pi;
+
−  a(1) = w0 / (2*fs + w0);
+
−  a(2) = a(1);
+
−  b(1) = 1;
+
−  b(2) = (w0-2*fs) / (w0+2*fs);
+
−
+
−  varargout{1} = a;
+
−  varargout{2} = b;
+
−end
+
−