[示例] 一个很好的神经网络函数逼近程序

xjzuo

新版成立，我也来凑个热闹．
我转贴一个bp神经网络用于函数逼近的程序,该程序收敛速度快，且实时显示逼近过程，
希望对那些需要作函数逼近的人有用．
(这是我的神经网络文件夹中的一个程序，具体谁写的我忘了)
%%%%%%%%%%%%%%%%%
clear all;
close all;
figure(gcf)
echo on
clc
p=-1:.1:1;
t=[-.9602 -.5770 -.0729 .3771 .6405 .6600 .4609 .1336 -.2013 -.4344 -.5000 -.3930 -.1647 .0988 .3072 .3960 .3449 .1816 -.0312 -.2189 -.3201];
plot(p,t,'+');
title('训练向量');
xlabel('P');
ylabel('t');
S1=5;
[w1,b1,w2,b2]=initff(p,S1,'tansig',t,'purelin');
echo off
echo on
clc
df=10;
me=8000;
eg=0.03;
lr=0.01
tp=[df me eg lr];
[w1,b1,w2,b2,ep,tr]=trainbp(w1,b1,'tansig',w2,b2,'purelin',p,t,tp);
figure
ploterr(tr,eg);
pause
clc
p=0.5;
a=simuff(p,w1,b1,'tansig',w2,b2,'purelin')
echo off
%%%%%%%%%%%%%%%%%%%%%%%

zwf100

我只知道这是个matlab程序

frogfish

原帖由 zwf100 于 2008-3-4 22:35 发表

                               
登录/注册后可看大图

我只知道这是个matlab程序

这基本上是最简单的程序了