%要逼近的函數(shù)樣本點(diǎn)
P = -1:.1:1;
T=sin(pi*P);
plot(P,T,'+');
title('待逼近的函數(shù)樣本點(diǎn)');
xlabel('輸入值');
ylabel('目標(biāo)值');
%徑向基傳遞函數(shù)
p = -3:.1:3;
a = radbas(p);
figure;
plot(p,a)
title('徑向基傳遞函數(shù)');
xlabel('輸入');
ylabel('輸出'); 
%徑向基傳遞函數(shù)及其加權(quán)和
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('徑向基函數(shù)的加權(quán)和');
xlabel('輸入');
ylabel('輸出');
%建立網(wǎng)絡(luò)
eg = 0.02; %設(shè)置平方和誤差參數(shù)
sc = 1;    %設(shè)置展開常量
net=newrb(P,T,eg,sc);
%仿真網(wǎng)絡(luò)并繪出結(jié)果
figure;
X=-1:.01:1;
Y=sim(net,X);
hold on;
plot(X,Y);
plot(P,T,'+');
title('仿真結(jié)果');
xlabel('輸入');
ylabel('網(wǎng)絡(luò)輸出及目標(biāo)輸出');
hold off;