function ecode = isvector(Vec)% ISVECTOR returns 1 for vector inputs.%   Copyright 1996-2001 The MathWorks, Inc.%   $Revision: 1.3 $  $Date: 2001/04/05 04:47:26 $   if(ndims(Vec) == 2)      if(all([size(Vec,1)>1 size(Vec,2)>1]))         ecode = 0; % Matrix      else         ecode = any([size(Vec,1)>1 size(Vec,2)>1]);      end;   else      ecode = 0;   end;return;