CAT concatonate poles into a vector. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% DESCRIPTION: CAT concatonate poles into a vector. CALL: pole_vector = cat(pole1, pole2, pole3); VERSION: $Id: cat.m,v 1.2 2007/07/18 13:58:45 ingo Exp $ HISTORY: 27-03-2007 M Hewitson Creation %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0001 function b = cat(varargin) 0002 % CAT concatonate poles into a vector. 0003 % 0004 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0005 % 0006 % DESCRIPTION: CAT concatonate poles into a vector. 0007 % 0008 % CALL: pole_vector = cat(pole1, pole2, pole3); 0009 % 0010 % VERSION: $Id: cat.m,v 1.2 2007/07/18 13:58:45 ingo Exp $ 0011 % 0012 % HISTORY: 27-03-2007 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 % capture input variable names 0018 invars = {}; 0019 for j=1:nargin 0020 iname = inputname(j); 0021 if isempty(iname) && isnumeric(varargin{j}) 0022 iname = num2str(varargin{j}); 0023 elseif isempty(iname) && ischar(varargin{j}) 0024 iname = varargin{j}; 0025 end 0026 invars = [invars cellstr(iname)]; 0027 end 0028 0029 b = []; 0030 for j=1:nargin 0031 if isa(varargin{j}, 'pole') 0032 b = [b varargin{j}]; 0033 end 0034 end 0035