0001 function bs = det(varargin)
0002
0003
0004
0005
0006
0007
0008
0009 invars = {};
0010 for j=1:nargin
0011 invars = [invars cellstr(inputname(j))];
0012 end
0013
0014 ALGONAME = mfilename;
0015 VERSION = '$Id: det.html,v 1.1 2007/06/08 14:15:02 hewitson Exp $';
0016
0017 as = [];
0018 for j=1:nargin
0019 a = varargin{j};
0020 if isa(a, 'ao')
0021 as = [as a];
0022 end
0023 end
0024
0025
0026 pl = plist();
0027
0028 bs = [];
0029
0030
0031 for j=1:length(as)
0032 a = as(j);
0033
0034
0035 d = get(a, 'data');
0036 dinfo = whos('d');
0037
0038 dtype = dinfo.class;
0039
0040 switch dtype
0041 case 'cdata'
0042 disp('* DETERMINANT of cdata object');
0043
0044 [h, c] = single_operation(d, 'det', pl);
0045
0046
0047 h = set(h, 'invars', [a.hist]);
0048 b = ao(c, h);
0049 b = set(b, 'name', sprintf('det(%s)', char(invars{1})));
0050 case 'tsdata' & 'fsdata' & 'xydata'
0051 error('### this function works for cdata type AO only')
0052 otherwise
0053 error('### unknown data type.')
0054 end
0055
0056
0057 bs = [bs b];
0058 end
0059
0060
0061
0062
0063