


RZ2IIR Return a,b IIR filter coefficients for a real zero designed using the bilinear transform.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DESCRIPTION: RZ2IIR Return a,b IIR filter coefficients for a real zero
designed using the bilinear transform.
CALL: [a,b] = rz2iir(z, fs)
REMARK: This is just a helper function. This function should only be
called from class functions.
INPUT: z - zero object
fs - the sample rate for the filter
VERSION: $Id: rz2iir.m,v 1.5 2008/01/11 13:42:41 ingo Exp $
HISTORY: 18-02-2003 Hewitson
Creation
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

0001 function [a,b] = rz2iir(z, fs) 0002 % RZ2IIR Return a,b IIR filter coefficients for a real zero designed using the bilinear transform. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: RZ2IIR Return a,b IIR filter coefficients for a real zero 0007 % designed using the bilinear transform. 0008 % 0009 % CALL: [a,b] = rz2iir(z, fs) 0010 % 0011 % REMARK: This is just a helper function. This function should only be 0012 % called from class functions. 0013 % 0014 % INPUT: z - zero object 0015 % fs - the sample rate for the filter 0016 % 0017 % VERSION: $Id: rz2iir.m,v 1.5 2008/01/11 13:42:41 ingo Exp $ 0018 % 0019 % HISTORY: 18-02-2003 Hewitson 0020 % Creation 0021 % 0022 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0023 0024 VERSION = '$Id: rz2iir.m,v 1.5 2008/01/11 13:42:41 ingo Exp $'; 0025 0026 %%%%% 'Params' && 'Version' Call %%%%% 0027 if nargin == 2 0028 if isa(z, 'zero') && ischar(fs) 0029 in = fs; 0030 if strcmp(in, 'Params') 0031 a = plist(); 0032 return 0033 elseif strcmp(in, 'Version') 0034 a = VERSION; 0035 return 0036 end 0037 end 0038 end 0039 0040 f0 = get(z, 'f'); 0041 w0 = f0*2*pi; 0042 0043 a(1) = (2*fs + w0) / w0; 0044 a(2) = (-2*fs + w0) / w0; 0045 0046 b(1) = 1; 0047 b(2) = 1;