%繪制指數函數曲線
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,'+-');