bpxunlian1.m

这是一个用BP神经网络实现函数训练的源代码

function BPxunlian1
p=[-3.0 2.0];
t=[0.4 0.8];
[w,b]=initff(p,t,'logsig');
disp_fqre=1;
%max_epoch=17;
max_epoch=100;
err_goal=0.01;
lr=2
TP=[disp_fqre max_epoch err_goal lr]
[w,b,epochs,tr]=trainbp(w,b,'logsig',p,t,TP)

clf;
figure(gcf);
colordef(gcf,'none');
%setfsize(500,200);
echo on
clc
%INITFF 对前向网络初始化
%TRAINBP 用BP算法训练前向网络
%SIMUFF 对前向网络仿真
%pause %键入任意键继续
clc
P=[-3.0 +2.0];
T=[+0.4 +0.8];
%pause %键入任意键继续可看到误差曲面
clc
wv=-4:0.4:4;
bv=-4:0.4:4;
es=errsurf(P,T,wv,bv,'logsig');
plotes(wv,bv,es,[60 30]);
%pause% 键入任意键可设计网络
clc
[w,b]=initff(P,T,'logsig')
echo off
k=pickic(1);
if k==2
    w=-2.1617;
    b=-1.7862;
elseif k==3
    subplot(1,2,2);
    h=centext('*CLICK ON ME*');
    set(h,'color',[0 0 0]);
    [w,b]=ginput(1);
    delete(h)
end
echo on
clc
df=5;%学习过程显示频率
me=100;%最大训练循环次数
eg=0.01;%误差指标
lr=2;%学习率
[w,b,ep,tr]=tbp1(w,b,'logsig',P,T,[df me eg lr],wv,bv,es,[60 30]);
%pause  %键入任意键可看训练误差曲线
clc
ploterr(tr,eg);
%pause 
clc
p=-1.2;
a=simuff(p,w,b,'logsig')
echo off
disp('End of DEMOBP')