


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

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