0001 function ao = set(ao, varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036 VERSION = '$Id: set.m,v 1.18 2007/10/26 14:36:01 hewitson Exp $';
0037
0038
0039 if nargin == 2
0040 if isa(ao, 'ao') && ischar(varargin{1})
0041 in = char(varargin{1});
0042 if strcmp(in, 'Params')
0043 ao = getDefaultPL();
0044 return
0045 elseif strcmp(in, 'Version')
0046 ao = VERSION;
0047 return
0048 end
0049 end
0050 end
0051
0052 if (nargout ~= 0)
0053
0054 hist_pl = plist();
0055 fields = fieldnames(ao);
0056 propArgin = varargin;
0057
0058 if nargin >= 2 && isa(propArgin{1}, 'plist')
0059 pl = propArgin{1};
0060 propArgin = {};
0061 for ii = 1:nparams(pl)
0062 propArgin{end+1} = pl.params(ii).key;
0063 propArgin{end+1} = pl.params(ii).val;
0064 end
0065 end
0066
0067
0068 while length(propArgin) >= 2
0069 prop = propArgin{1};
0070 val = propArgin{2};
0071 propArgin = propArgin(3:end);
0072
0073 if ~ismember(prop, [fields; 't0'; 'fs'])
0074 error(['### ', prop, ' is not a valid analysis object property.']);
0075 else
0076
0077
0078 for jj = 1:numel(ao)
0079
0080
0081 if strcmp(prop, 'fs')
0082 d = ao(jj).data;
0083 if isa(d, 'tsdata') || isa(d, 'fsdata')
0084 d = set(d, 'fs', val);
0085 else
0086 error('### No ''fs'' property for this data type');
0087 end
0088 ao(jj).data = d;
0089
0090 elseif strcmp(prop, 't0')
0091
0092 d = ao(jj).data;
0093 if isa(d, 'tsdata')
0094 d = set(d, 't0', val);
0095 else
0096 error('### The data object is not from the class tsdata');
0097 end
0098 ao(jj).data = d;
0099
0100 else
0101 ao(jj).(prop) = val;
0102 end
0103
0104 end
0105
0106 end
0107
0108 hist_pl = append(hist_pl, prop, val);
0109
0110 end
0111
0112 for jj = 1:numel(ao)
0113 h = history('set', VERSION, hist_pl);
0114 h = set(h, 'inhists', ao(jj).hist);
0115 h = set(h, 'invars', cellstr(inputname(1)));
0116
0117 ao(jj).hist = h;
0118 end
0119
0120 else
0121 if ischar(varargin{2})
0122 error('### please use: %s = set(%s, ''%s'', ''%s'');', ...
0123 inputname(1), ...
0124 inputname(1), ...
0125 varargin{1}, ...
0126 varargin{2});
0127 elseif isnumeric(varargin{2})
0128 error('### please use: %s = set(%s, ''%s'', %d);', ...
0129 inputname(1), ...
0130 inputname(1), ...
0131 varargin{1}, ...
0132 varargin{2});
0133 else
0134 error('### please use: %s = set(%s, ''key'', ''value'');', ...
0135 inputname(1), ...
0136 inputname(1));
0137 end
0138
0139 end
0140
0141
0142
0143 function plo = getDefaultPL()
0144
0145 plo = plist();