scplot.m

I developed an algorithm for using local ICA in denoising multidimensional data. It uses delay embed

function scplot(varargin)
% scplot Scatter plot.
%    scplot(X,...) displays colored circles at the locations specified
%    by the 2xn-matrices X or 3xn-matrices
%
%    See also SCATTER, SCATTER3, PLOT, PLOTMATRIX.
col='bgrcmykbgrcmykbgrcmykbgrcmykbgrcmykbgrcmyk';

for i=1:nargin
 X=varargin{i};
 [n nsamples] = size(X);

 if (n < 3) 
  plot(X(1,:),X(2,:),[col(i),'o']); 
 else
  plot3(X(1,:),X(2,:),X(3,:),[col(i),'o']);
 end
 hold on;
end 
hold off;
							
return