clf;
figure(gcf)   %gcf得到當前圖形名柄
echo on
clc
p=-1:.1:1;  %21個數 橫坐標
t=[-.9602 -.5770 -.0729 .3771 .6405 .6600 .4609 .1336 -.2013 -.4344 -.5000 -.3930 -.1647 .0988 .3072 .3960 .3449 .1816 -.0312 -.2189 -.3201];   %向量有21個數
plot(p,t,'+');
title('訓練向量');
xlabel('P');
ylabel('t');
S1=5;
[w1,b1,w2,b2]=initff(p,S1,'tansig',t,'purelin');%t是縱坐標 代表輸出t     初始化
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]      %b1值變了
end
echo on 
clc
df=10;
me=8000;
eg=0.02;
lr=0.01
tp=[df me eg lr];                                  %合成矩陣tp
[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