p7.41.txt

来自「Matlab_Network_and_Application是国防工业出版社董长」· 文本 代码 · 共 28 行

%8组*10个数据点（自由排列）
X=[0 1;0 1];
clusters=8;
points=10;
std_dev=0.05;
P=nngenc(X,clusters,points,std_dev);
%绘制输入
plot(P(1,:),P(2,:),'+r');
title('输入向量');
xlabel('p(1)');
ylabel('p(2)');
%网络设计
net=newc([0 1;0 1],8,.1);
%绘制初始权值网络识别
w=net.IW{1};
plot(P(1,:),P(2,:),'+r');
hold on;
circles=plot(w(:,1),w(:,2),'ob');
%参数
net.trainParam.epochs=7;
net=train(net,P);
%测试，新权值网络识别
w=net.IW{1};
delete(circles);
plot(w(:,1),w(:,2),'ob');
%仿真
p=[0;0.2];
a=sim(net,p)