一個基于MATLAB的徑向基的神經網絡源程序

P = [1   2 3 4 5 6 7 8;...
  1   2 3 4 5 6 7 8];
T = [0 0.1 0.2 0.5 0.7 0.9 1.1 2.1];

plot(P,T,'.','markersize',30)
axis([0 9 -1 4])
title('Function to approximate.')
xlabel('P')
ylabel('T')

spread = 0.4;
net = newgrnn(P,T,spread);
A = sim(net,P);

hold on
outputline = plot(P,A,'.','markersize',30,'color',[1 0 0]);
title('Create and test a network.')
xlabel('P')
ylabel('T and A')

p = [6.1;6.2];
a = sim(net,p);
plot(p,a,'.','markersize',30,'color',[1 0 0]);
title('New input value.')
xlabel('P and p')
ylabel('T and a')