www.pudn.com > matlab-RBF.rar > pnn_test2.m, change:2012-10-23,size:686b


% pnn_test2.m 
%% 清理 
close all 
clear,clc 
 
%% 定义数据 
rng(2); 
a=rand(14,2)*10;					% 训练数据点 
p=ceil(a)' 
tc=[3,1,1,2,1,3,2,3,2,3,3,2,2,3];		% 类别 
 
x=0:.4:11; 
N=length(x); 
for i=1:N 
    for j=1:N 
        xx(1,(i-1)*N+j) = x(i); 
        xx(2,(i-1)*N+j) = x(j); 
    end 
end 
 
%% 测试 
y = pnn_net(p,tc,xx,1); 
 
%% 显示      
plot(xx(1,y==1),xx(2,y==1),'ro'); 
hold on; 
plot(xx(1,y==2),xx(2,y==2),'b*'); 
plot(xx(1,y==3),xx(2,y==3),'k+'); 
plot(p(1,tc==1),p(2,tc==1),'ro','LineWidth',3); 
plot(p(1,tc==2),p(2,tc==2),'b*','LineWidth',3); 
plot(p(1,tc==3),p(2,tc==3),'k+','LineWidth',3); 
axis([0,11,0,11]) 
legend('第一类','第二类','第三类'); 
title('分类结果');