3-4-5-2.m

《神经网络理论与Matlab R2007实现》（程序代码）

%绘制指数函数曲线
p=-1:0.05:1;
t=exp(-p);
plot(p,t);
grid;
title('exponential function');
xlabel('x');
ylabel('y');
figure;
%建立并训练网络
for i=1:5
    net=newgrnn(p,t,i/10);
    y(i,:)=sim(net,p);
end
%绘制网络的逼近效果
plot(p,t);
hold on;
plot(p,y(1,:),'*');
hold on;
plot(p,y(2,:),'d');
hold on;
plot(p,y(3,:),'ro');
hold on;
plot(p,y(4,:),'kp');
hold on;
plot(p,y(5,:),'g+');
hold off;
figure;
%绘制网络的最佳逼近误差
plot(p,y(1,:)-t,'+-');