CAT concatenate zeros into a vector. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CAT concatenate zeros into a vector. CALL: zero_vector = cat(zero1, zero2, zero3) VERSION: $Id: cat.m,v 1.5 2008/03/20 09:52:07 mauro Exp $ HISTORY: 27-03-2007 Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function b = cat(varargin) 0002 % CAT concatenate zeros into a vector. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CAT concatenate zeros into a vector. 0007 % 0008 % CALL: zero_vector = cat(zero1, zero2, zero3) 0009 % 0010 % VERSION: $Id: cat.m,v 1.5 2008/03/20 09:52:07 mauro Exp $ 0011 % 0012 % HISTORY: 27-03-2007 Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 VERSION = '$Id: cat.m,v 1.5 2008/03/20 09:52:07 mauro Exp $'; 0018 CATEGORY = 'Helper'; 0019 0020 % Check if this is a call for parameters or for the cvs-version number 0021 if nargin == 2 0022 if isa(varargin{1}, 'zero') && ischar(varargin{2}) 0023 in = char(varargin{2}); 0024 if strcmp(in, 'Params') 0025 b = plist(); 0026 return 0027 elseif strcmp(in, 'Version') 0028 b = VERSION; 0029 return 0030 elseif strcmp(in, 'Category') 0031 b = CATEGORY; 0032 return 0033 end 0034 end 0035 end 0036 0037 b = []; 0038 for j=1:nargin 0039 if isa(varargin{j}, 'zero') 0040 b = [b varargin{j}]; 0041 end 0042 end 0043