0001 function bs = ctranspose(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: ctranspose.html,v 1.1 2007/06/08 14:15:02 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 pl = plist();
0025
0026 bs = [];
0027
0028 for j=1:length(as)
0029 a = as(j);
0030
0031 d = get(a, 'data');
0032 dinfo = whos('d');
0033
0034 dtype = dinfo.class;
0035
0036 switch dtype
0037 case 'cdata'
0038 disp('* CTRANSPOSE of cdata object');
0039
0040 [h, c] = single_operation(d, 'ctranspose', pl);
0041
0042
0043 h = set(h, 'invars', [a.hist]);
0044 b = ao(c, h);
0045 b = set(b, 'name', sprintf('ctranspose(%s)', char(invars{1})));
0046
0047 case 'tsdata' & 'fsdata' & 'xydata'
0048 error('### this function works for cdata type AO only')
0049 otherwise
0050 error('### unknown data type.')
0051
0052 end
0053
0054
0055 bs = [bs b];
0056 end
0057
0058
0059