bp339.m

来自「基本BP算法的Matlab程序」· M 代码 · 共 37 行

clf;
figure(gcf)
echo on
clc
p=-0.5:.05:0.5;
t=[2.5365e-006 0.0789 0.2324 0.3598 0.4067 0.3679 0.2723 0.1613 0.0697 0.0158 0 0.0106 0.0313 0.0486 0.0550 0.0498 0.0369 0.0219 0.0095 0.0022 4.6458e-008];
plot(p,t,'+');
title('训练向量');
xlabel('P');
ylabel('t');
S1=5;
[w1,b1,w2,b2]=initff(p,S1,'tansig',t,'purelin');
echo off
k=pickic;
if k==2
 w1=[3.500;3.500;3.500;3.500;3.500];
 b1=[-2.8562;1.0774;-0.5880;1.4083;2.8722];
 w2=[0.2622;-0.2375;-0.4525;0.2361;-0.1718];
 b1=[0.1326]
end
echo on 
clc
df=10;
me=8000;
eg=0.02;
lr=0.01
tp=[df me eg lr];
[w1,b1,w2,b2,ep,tr]=trainbp(w1,b1,'tansig',w2,b2,'purelin',p,t,tp);
pause 
clc
ploterr(tr,eg);
pause
clc
p=0.5;
a=simuff(p,w1,b1,'tansig',w2,b2,'purelin')
echo off