Home > classes > @miir > set.m

set

PURPOSE ^

SET set a miir object property.

SYNOPSIS ^

function f = set(f, varargin)

DESCRIPTION ^

 SET set a miir object property.

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

 DESCRIPTION: SET set a miir object property.

 CALL:        miir = set(miir, property,  value);
              miir = set(miir, 'name',    'name');
              miir = set(miir, 'fs',      0);
              miir = set(miir, 'ntaps',   0);
              miir = set(miir, 'a',       []);
              miir = set(miir, 'b',       []);
              miir = set(miir, 'gain',    0);
              miir = set(miir, 'histin',  history());
              miir = set(miir, 'histout', history());
              miir = set(miir, 'infile',  'name');
              miir = set(miir, 'plist',   plist());
              miir = set(miir, 'created',  time());
              miir = set(miir, 'version', '$Date: 2007/12/10 18:07:17 $');

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

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