radial_basic_fun.asv

此为BP感知神经分类器,自己写的.有须要的请下载,很不错的.

%径向基函数网络用于完成一个函数逼近任务
%******************************************
%需要逼近的函数为正弦函数
P=-1:.1:1;
T=sin(pi*P);
%给出此函数的采样点
plot(P,T,'+');
title('待逼近的函数样本点');
xlabel('输入值');
ylabel('目标值');
%********************************************
%设计隐含层的径向基传递函数
P=-3:.1:3;
a=radbas(P);
figure(1);
plot(P,a);
title('径向基传递函数');
xlabel('输入');
ylabel('输出');
%********************************************
%下面绘出三个径向基函数
a2=radbas(P-1.5);
a3=radbas(P+2);
a4=a+a2*1+a3*0.5;
figure(2);
plot(P,a,'',P,a2,'',P,a3,'',p,a4,'');