ppoints.m

该工具箱是用于统计模式识别的

function ppoints(X,I,msize,emode,col)
% PPOINTS plots points and their labels.
%   ppoints(X,I,msize,emode) 
%
% PPOINTS plots point sets stored in the matrix X, the 
%  point markers and their color is specified by the vector I.
%  If you want to define pixel size then use argument msize
%  (default value is 5). Argument emode determines
%  the erase mode property (default is 'none').
%
% Input:
%   X [NxK] - K points with dimension N.
%   I [1xK] - Class labels (integers) for each point.
%   msize [1x1] - Point size in pixels, integer.
%   emode - Erase mode, see help UITOOLS.
%
% Example:
%
% Logical function AND
%   X=[0 1 0 1;
%      0 0 1 1];
%   I=[1 1 1 2];   % labels
%
%   ppoints(X,I);
%

% Statistical Pattern Recognition Toolbox, Vojtech Franc, Vaclav Hlavac
% (c) Czech Technical University Prague, http://cmp.felk.cvut.cz
% Written Vojtech Franc (diploma thesis) 23.12.1999, 5.4.2000
% Modifications
% 16-april-2001, V. Franc
% 24. 6.00 V. Hlavac, comments polished.

DIM=size(X,1);
K=size(X,2);

if nargin < 2 | isempty(I),
  I=ones(1,size(X,2));
end

% sets default marker size
if nargin < 3 | isempty(msize),
   msize=5;
end

% sets default 'EraseMode'
if nargin < 4 | isempty(emode),
   emode='none';
end

if nargin < 5,

  % plot points
  for i=1:K,
     % plots the point colored according to the class number
      line(X(1,i),X(2,i),'Color',color(I(i)),...
        'LineStyle','none',...
        'Marker',marker(I(i)),...
        'EraseMode',emode,...
        'MarkerSize',msize);
  end
  
else
  for i=1:K,
     % plots the point colored according to the class number
      line(X(1,i),X(2,i),'Color',col,...
       'LineStyle','none',...
       'Marker',marker(I(i)),...
       'EraseMode',emode,...
       'MarkerSize',msize);
  end
end  

return

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%function []=pplot(X,I,msize,emode)
% PPLOT plots points given in the matrix X
%
%
%DIM=size(X,1);
%K=size(X,2);
%
%% determines what marker to use and its size
%if nargin < 3
%   if K < 50,
%      msize=3;
%      marker='*';
%   else
%      msize=2;
%      marker='*';
%   end
%elseif msize > 5,
%   marker='.';
%else
%   marker='*';
%end
%
%if nargin < 4,
%   emode='none';
%end
%
%% plot points
%for i=1:K,
%   % plots the point colored according to the class number
%    line(X(1,i),X(2,i),'Color',color(I(i)),...
%      'LineStyle','none',...
%      'Marker',marker,...
%      'EraseMode',emode,...
%      'MarkerSize',msize);
%end