


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.3 2008/01/02 17:58:51 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.3 2008/01/02 17:58:51 ingo Exp $ 0011 % 0012 % HISTORY: 27-03-2007 M Hewitson 0013 % Creation 0014 % 0015 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 0016 0017 VERSION = '$Id: cat.m,v 1.3 2008/01/02 17:58:51 ingo Exp $'; 0018 0019 % Check if this is a call for parameters or for the cvs-version number 0020 if nargin == 2 0021 if isa(varargin{1}, 'pole') && ischar(varargin{2}) 0022 in = char(varargin{2}); 0023 if strcmp(in, 'Params') 0024 b = plist(); 0025 return 0026 elseif strcmp(in, 'Version') 0027 b = VERSION; 0028 return 0029 end 0030 end 0031 end 0032 0033 b = []; 0034 for j=1:nargin 0035 if isa(varargin{j}, 'pole') 0036 b = [b varargin{j}]; 0037 end 0038 end 0039