example4_11.m

This complete matlab for neural network

%要逼近的函数样本点
P = -1:.1:1;
T=sin(pi*P);
plot(P,T,'+');
title('待逼近的函数样本点');
xlabel('输入值');
ylabel('目标值');
%径向基传递函数
p = -3:.1:3;
a = radbas(p);
figure;
plot(p,a)
title('径向基传递函数');
xlabel('输入');
ylabel('输出'); 
%径向基传递函数及其加权和
a2 = radbas(p-1.5);
a3 = radbas(p+2);
a4 = a + a2*1 + a3*0.5;
figure;
plot(p,a,'b--',p,a2,'b--',p,a3,'b--',p,a4,'m-')
title('径向基函数的加权和');
xlabel('输入');
ylabel('输出');
%建立网络
eg = 0.02; %设置平方和误差参数
sc = 1;    %设置展开常量
net=newrb(P,T,eg,sc);
%仿真网络并绘出结果
figure;
X=-1:.01:1;
Y=sim(net,X);
hold on;
plot(X,Y);
plot(P,T,'+');
title('仿真结果');
xlabel('输入');
ylabel('网络输出及目标输出');
hold off;