Home > classes > @ao > testing > horzcat.m

horzcat

PURPOSE ^

HORZCAT overload horizontal concatonation [] for AOs.

SYNOPSIS ^

function b = horzcat(varargin)

DESCRIPTION ^

 HORZCAT overload horizontal concatonation [] for AOs.
 
 usage: b = [a1 a2];
        b = [a1,a2];
 
 M Hewitson 02-05-07

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

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

Generated on Mon 03-Sep-2007 12:12:34 by m2html © 2003