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

vertcat

PURPOSE ^

VERTCAT overload horizontal concatonation [] for AOs.

SYNOPSIS ^

function b = vertcat(varargin)

DESCRIPTION ^

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

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

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

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