HORZCAT overload horizontal concatonation [] for AOs. usage: b = [a1 a2]; b = [a1,a2]; M Hewitson 02-05-07
0001 function b = horzcat(varargin) 0002 0003 % HORZCAT overload horizontal concatonation [] for AOs. 0004 % 0005 % usage: b = [a1 a2]; 0006 % b = [a1,a2]; 0007 % 0008 % M Hewitson 02-05-07 0009 % 0010 0011 ALGONAME = mfilename; 0012 VERSION = '$Id:$'; 0013 0014 0015 % Make outputs 0016 k = 1; 0017 for j=1:nargin 0018 varargin{j} 0019 if isa(varargin{j}, 'ao') 0020 a = varargin{j}; 0021 h = history(ALGONAME, VERSION, [], get(a,'hist')); 0022 % make output analysis object 0023 aout = ao(a.data, h); 0024 % set name 0025 aout = set(aout, 'name', get(a, 'name')); 0026 b(k) = aout; 0027 k = k + 1; 0028 end 0029 end 0030 0031 0032 % END