Mercurial > hg > ltpda

diff m-toolbox/classes/@mfir/mklowpass.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@mfir/mklowpass.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,28 @@
+% MKLOWPASS return a low pass filter mfir().
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: MKLOWPASS return a low pass filter mfir().
+%
+% CALL:        f = mklowpass(f, pl)
+%
+% VERSION: $Id: mklowpass.m,v 1.8 2011/04/04 11:37:02 hewitson Exp $
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function f = mklowpass(f, pl)
+
+  g     = find(pl, 'gain');
+  fc    = find(pl, 'fc');
+  fs    = find(pl, 'fs');
+  order = find(pl, 'order');
+  win   = find(pl, 'Win');
+
+  utils.helper.checkFilterOptions(pl);
+
+  f.name     = 'lowpass';
+  f.fs       = fs;
+  f.a        = g.*fir1(order, 2*fc(1)/fs, 'low', win.win);
+  f.gd       = (f.ntaps-1)/2;
+  f.histout  = zeros(1,f.ntaps-1);   % initialise output history
+end
+