


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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

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