clf;
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
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