p5.51.txt

Matlab_Network_and_Application是国防工业出版社董长虹编著《神经网络与应用》的课本源码。

%输入和期望
P=-1:.1:1;
T=[-.9602 -.5770 -.0729  .3771  .6405  .6600  .4609...
     .1336 -.2013 -.4344 -.5000 -.3930 -.1647  .0988...
     .3072  .3960  .3449  .1816 -.0312 -.2189 -.3210];
%显示
plot(P,T,'+');
title('训练样本');
xlabel('输入矢量P');
ylabel('目标矢量T');
%网络设计，radbas径向基传递转换
p=-3:.1:3;
a=radbas(p);
plot(p,a)
title('径向基传递函数');
xlabel('输入P');
ylabel('输出a');
%径向基叠加效果（模拟函数逼近）
a2=radbas(p-1.5);
a3=radbas(p+2);
a4=a+a2*1+a3*0.5;
plot(p,a,'b-',p,a2,'b-',p,a3,'b-',p,a4,'m--')
title('径向基传递函数权值之和');
xlabel('输入P');
ylabel('输出a');
%均方差精度，散布常数
eg=0.02;
sc=1;
%径向基网络设计
net=newrb(P,T,eg,sc);
%比较验证
plot(P,T,'+');
xlabel('输入');
X=-1:.01:1;
Y=sim(net,X);
hold on;
plot(X,Y);
hold off;
legend({'目标','输出'})