最简单的径向基网络

 

%%最简单的径向基网络
close all
clc
x=[-1:0.05:-0.05 0.05:0.05:1];% 扣除‘0’的不可除
y=sin(pi*x)./(pi*x);
aa=length(x);
for i=1:aa
    for j=1:aa
        z(i,j)=y(i).*y(j);
    end
end
%%%%%%%%%%%%%%%%%%%% 创建网络
goal=1e-10;  % 误差指标  
sp=1; %  扩展常数  
mn=20; %  神经元的最多个数  
df=1;  %训练过程的显示频率  
net=newrb(x,z,goal,sp,mn,df);
%  对网络进行仿真，并画出样本数据和网络输出图形
Y=sim(net,x);
figure;
mesh(z);
figure;
mesh(Y);
E=z-Y;
figure;
mesh(E);