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