Home > classes > @mfir > mkbandreject.m

mkbandreject

PURPOSE ^

MKBANDREJECT return a low pass filter mfir(). A Butterworth filter is used.

SYNOPSIS ^

function f = mkbandreject(f, pl)

DESCRIPTION ^

 MKBANDREJECT return a low pass filter mfir(). A Butterworth filter is used.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

 DESCRIPTION: MKBANDREJECT return a low pass filter mfir().
              A Butterworth filter is used.

 CALL:        f = mkbandreject(f, pl)

 VERSION: $Id: mkbandreject.m,v 1.3 2008/08/06 15:03:49 ingo Exp $

 HISTORY: 27-08-2002 M Hewitson
             Creation

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 % MKBANDREJECT return a low pass filter mfir(). A Butterworth filter is used.
0002 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0003 %
0004 % DESCRIPTION: MKBANDREJECT return a low pass filter mfir().
0005 %              A Butterworth filter is used.
0006 %
0007 % CALL:        f = mkbandreject(f, pl)
0008 %
0009 % VERSION: $Id: mkbandreject.m,v 1.3 2008/08/06 15:03:49 ingo Exp $
0010 %
0011 % HISTORY: 27-08-2002 M Hewitson
0012 %             Creation
0013 %
0014 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0015 
0016 function f = mkbandreject(f, pl)
0017 
0018   g      = find(pl, 'gain');
0019   fc     = find(pl, 'fc');
0020   fs     = find(pl, 'fs');
0021   order  = find(pl, 'order');
0022   win    = find(pl, 'Win');
0023 
0024   if(fc > fs/2)
0025     error('fc must be < fs/2');
0026   end
0027   if(fc(1) > fc(2))
0028     error('fc(1) must be < fc(2)');
0029   end
0030 
0031   f.name    = 'std bandreject';
0032   f.fs      = fs;
0033   f.a       = g.*fir1(order, 2.*fc/fs, 'stop', win.win);
0034   f.gd      = (f.ntaps)/2;
0035   f.histout = zeros(1,f.ntaps-1);   % initialise output history
0036 
0037

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003