8-6-3.m

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

P=[0 0 0 0 0 0 0 0.5;
    0.935 -0.576 -0.892 -0.900 0.088 -0.604 -0.069 0.499;
    0.253 -0.301 -0.304 -0.431 0.031 -0.298 -0.038 0.499;
    0.277 0.166 0.106 0.200 -0.030 0.179 0.390 0.499;
    0.085 0.058 0.039 0.070 -0.010 0.061 0.122 0.499;
    0.657 -0.319 -0.351 -0.548 0.118 -0.419 -0.057 0.499;
    0.256 -0.166 -0.179 -0.289 0.065 -0.225 -0.034 0.499;
    0.615 0.698 0.252 0.687 0.092 0.685 0.065 0.499;
    0.128 0.255 0.239 0.254 0.043 0.245 0.020 0.499];
T=[0  0  0  0  0;
    0  1  0  0  0;
    0 0.5  0  0  0;
    0  0  1  0  0;
    0  0  0.5 0  0;
    0  0  0  1  0;
    0  0  0  0.5 0;
    0  0  0  0  1;
    0  0  0  0  0.5];
P=P';
T=T';
spread=1.2;
net=newrbe(P,T,spread);

p1=[0.920 -0.526 -0.885 -0.970 0.090 -0.611 -0.071 0.502]';
p2=[0.091 0.061 0.036 0.068 -0.012 0.059 0.131 0.499]';
p3=[0.671 -0.315 -0.362 -0.552 0.121 -0.417 -0.061 0.499]';
y1=sim(net,p1)
y2=sim(net,p2)
y3=sim(net,p3)