ppatterns.m

SVM matlab GUI可视化界面 直观形象 代码解释比较详细 对GUI学习和svm学习都有帮助

function varargout=ppatterns(data,arg1,arg2)
% 将数据点样本画在特征空间中
% 
% 输出:
%  H [struct] 画图对象的句柄

oldhold = ishold;%hold=on时值为1，hold=off时值为0
hold on;%允许在已经生成的图形中添加其他图形，并且不改变坐标轴的比例关系
  
% 若是ppatterns（X,y,...）则转换为 ppatterns(data,...)
if nargin > 1 & ~isstruct(data) & size(data,2)==length(arg1) & ~isstr(arg1),
  data.X=data;
  data.y=arg1;
  if nargin >= 3, H=ppatterns(data,arg2); else H=ppatterns(data); end 
  if nargout >= 1, varargout{1}=H; end
  return;
end

% ppatterns(data)或者 ppatterns(data,marker_size) 
if isstruct(data) == 1 & (nargin < 2 | isstr(arg1)==0),
  
  if nargin < 2, marker_size = 6; else marker_size = arg1; end
  
  H = [];
  for i = min(data.y):max(data.y),
   
    inx = find(data.y == i);
    if ~isempty(inx),
      
      if size(data.X,1)==1,
        h = plot(data.X(1,inx),zeros(1,length(inx)),marker_type(i));
      elseif size(data.X,1)==2,
        h = plot(data.X(1,inx),data.X(2,inx),marker_type(i));
      else
        h = plot3(data.X(1,inx),data.X(2,inx),data.X(3,inx),marker_type(i));
      end
               
      set(h,'Color',marker_color(i));
      set(h,'MarkerSize',marker_size);
      H = [H, h];
    end
  end
% ppatterns(data,marker)
elseif isstruct(data) == 1 & nargin == 2 & isstr(arg1)==1 & strcmpi(arg1,'num'),

  marker_size = 12;
  H_Points = [];
  H_Num = [];
  for i = min(data.y):max(data.y),
    inx = find(data.y==i);
    if ~isempty(inx),
      if size(data.X,1)==1,
        h = plot(data.X(1,inx),zeros(1,length(inx)),'o');
      elseif size(data.X,1)==2,
        h = plot(data.X(1,inx),data.X(2,inx),'o');
      else
        h = plot3(data.X(1,inx),data.X(2,inx),data.X(3,inx),'o');
      end
       
      set(h,'Color',marker_color(i));
      set(h,'MarkerSize',marker_size);
      
      H_Points = [H_Points, h ];
         
      if size(data.X,1)==1,
        h = text(data.X(1,inx),zeros(1,length(inx)),num2str(i));
      elseif size(data.X,1)==2,
        h = text(data.X(1,inx),data.X(2,inx),num2str(i));
      else
        h = text(data.X(1,inx),data.X(2,inx),data.X(3,inx),num2str(i));
      end

      set(h,'HorizontalAlignment','center');
      set(h,'VerticalAlignment','middle');
      set(h,'Color',marker_color(i));
      set(h,'FontSize',marker_size-2);
      
      H_Num = [H_Num, h(:)'];
    end
  end
  H = [H_Points, H_Num];
else
  if nargin < 2, marker = 'kx'; else marker = arg1; end
  if nargin < 3, marker_size = 6; else marker_size = arg2; end
  if size(data,1)==1,
    h = plot(data(1,:),zeros(1,size(data,2)),marker);
  elseif size(data,1)==2,
    h = plot(data(1,:),data(2,:),marker);
  else
    h = plot3(data(1,:),data(2,:),data(3,:),marker);
  end
  
  H = h;
  
  set(h,'MarkerSize',marker_size);
end

if oldhold,
  hold on;
else
  hold off;
end

if nargout>=1, varargout{1} = H; end

return;