8-7-2.m

《神经网络理论与Matlab R2007实现》（程序代码）

P=[0 0 0.9 0.95 1 0 0 0 0 0;
   0 0 0.9 0.95 1 1 0 0 1 1;
   0 0 0.9 0.95 1 1 1 0 1 1; 
   0 0 0.8 1 1 0 1 0 1 1;
   0 0 1 1 1 0 0 1 0 0;
   0 0 0.4 0.9 1 1 1 0 1 1;
   0 0 0.4 0.6 0.8 0 1 0 0 0;
   0 0 0 0 1 0 0 1 1 1;
   0.1 0.9 1 1 1 0 1 0 1 1];
T=[0. 95 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02;
   0. 02 0. 95 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02;
   0. 02 0. 02 0. 95 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02;
   0. 02 0. 02 0. 02 0. 95 0. 02 0. 02 0. 02 0. 02 0. 02;
   0. 02 0. 02 0. 02 0. 02 0. 95 0. 02 0. 02 0. 02 0. 02;
   0. 02 0. 02 0. 02 0. 02 0. 02 0. 95 0. 02 0. 02 0. 02;
   0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 95 0. 02 0. 02;
   0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 95 0. 02;
   0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 02 0. 95];
P=P';
T=T';
spread=1.2;
GOAL=0.0001;
net=newrbe(P,T,GOAL,spread);
%对网络进行仿真
p1=[0 0 0.9 0.95 1 0 0 0 0 0 ]';
p2=[0 0 0.9 0.95 1 1 0 0 1 1]';
p3=[0 0 0.9 0.95 1 1 1 0 1 1]';
y1=sim(net,p1)
y2=sim(net,p2)
y3=sim(net,p3)