Home > classes > @mfir > set.m

set

PURPOSE ^

SET set a mfir object property.

SYNOPSIS ^

function f = set(f, varargin)

DESCRIPTION ^

 SET set a mfir object property.

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

 DESCRIPTION: SET set an mfir object property.

 CALL:        f    = set(f, property, value);
              mfir = set(mfir, 'name',    'name');
              mfir = set(mfir, 'fs',       0);
              mfir = set(mfir, 'ntaps',    0);
              mfir = set(mfir, 'a',        []);
              mfir = set(mfir, 'gd',       0);
              mfir = set(mfir, 'gain',        0);
              mfir = set(mfir, 'histout',  history());
              mfir = set(mfir, 'infile',   'name');
              mfir = set(mfir, 'plist',    plist);
              mfir = set(mfir, 'created',  time());
              mfir = set(mfir, 'version', 'version');

 VERSION:     $Id: set.m,v 1.5 2007/12/10 18:07:17 ingo Exp $

 HISTORY:     30-01-2007 M Hewitson
                 Creation

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

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function f = set(f, varargin)
0002 % SET set a mfir object property.
0003 %
0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0005 %
0006 % DESCRIPTION: SET set an mfir object property.
0007 %
0008 % CALL:        f    = set(f, property, value);
0009 %              mfir = set(mfir, 'name',    'name');
0010 %              mfir = set(mfir, 'fs',       0);
0011 %              mfir = set(mfir, 'ntaps',    0);
0012 %              mfir = set(mfir, 'a',        []);
0013 %              mfir = set(mfir, 'gd',       0);
0014 %              mfir = set(mfir, 'gain',        0);
0015 %              mfir = set(mfir, 'histout',  history());
0016 %              mfir = set(mfir, 'infile',   'name');
0017 %              mfir = set(mfir, 'plist',    plist);
0018 %              mfir = set(mfir, 'created',  time());
0019 %              mfir = set(mfir, 'version', 'version');
0020 %
0021 % VERSION:     $Id: set.m,v 1.5 2007/12/10 18:07:17 ingo Exp $
0022 %
0023 % HISTORY:     30-01-2007 M Hewitson
0024 %                 Creation
0025 %
0026 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0027 
0028 VERSION  = '$Id: set.m,v 1.5 2007/12/10 18:07:17 ingo Exp $';
0029 
0030 % Check if this is a call for parameters
0031 if nargin == 2
0032   if isa(f, 'mfir') && ischar(varargin{1})
0033     in = char(varargin{1});
0034     if strcmp(in, 'Params')
0035       f = plist;
0036       return
0037     elseif strcmp(in, 'Version')
0038       f = VERSION;
0039       return
0040     end
0041   end
0042 end
0043 
0044 propArgin = varargin;
0045 while length(propArgin) >= 2
0046   prop = propArgin{1};
0047   val  = propArgin{2};
0048   propArgin = propArgin(3:end);
0049   switch prop
0050     case 'name'
0051       f.name = val;
0052     case 'version'
0053       f.version = val;
0054     case 'created'
0055       f.created = val;
0056     case 'fs'
0057       f.fs = val;
0058     case 'ntaps'
0059       f.ntaps = val;
0060     case 'a'
0061       f.a = val;
0062     case 'gd'
0063       f.gd = val;
0064     case 'gain'
0065       f.gain = val;
0066     case 'infile'
0067       f.infile = val;
0068     case 'histout'
0069       f.histout = val;
0070     case 'plist'
0071       f.plist = val;
0072     otherwise
0073       error([prop, ' is not a valid mfir property.']);
0074   end
0075 end

Generated on Tue 22-Jan-2008 10:39:13 by m2html © 2003