%bp2.m; 例4.2
%
P=[-3,2];T=[0.4,0.8];
net=newlind(P,T);                              %設計線性網絡
y=sim(net,P);
w1=net.iw{1,1},b1=net.b{1}

net=newcf(minmax(P),[1],{'tansig'});              %創建前向BP網絡
net.trainParam.epochs=50;                       %初始化訓練次數
net.trainParam.goal=0.001;                       %初始化目標誤差
net=train(net,P,T);                              %訓練網絡
W=net.iw{1,1},
B=net.b{1}
Y=sim(net,P);                                   %計算結果
pause
plot(P,T,'r:')                                   %畫出目標點
hold on
plot(P,Y)                                     %畫輸入為橫軸、輸出為縱軸的曲線 
plot(P,y,'c+')
hold off