bp.m

使用单层神经网络对中国国有企业的产值数据进行预测

function mybp()
nntwarn off;
P=[1 2 3 4 5 6 7 8 9 10];

  %P=P';

T=[1594.82 1525.51 1632.20 1690.10 1638.09 1677.09 1567.75 1611.27 1695.12 1644.49]; 
   
[R,Q]=size(P); [S2,Q]=size(T); S1=3;
[W1,B1]=nwtan(S1,R);
[W2,B2]=rands(S2,S1);
W2=W2*0.5;   B2=B2*0.5;



disp_fqre=1000;  max_epoch=5000;
err_goal=0.01; lr=0.001;
lr_inc=1.05;   lr_dec=0.7;
err_ratio=1.04;  mom_const=0.95;

TP=[disp_fqre max_epoch err_goal lr lr_inc lr_dec mom_const err_ratio];
[W1,B1,W2,B2]=trainbpx(W1,B1,'tansig',W2,B2,'tansig',P,T,TP); 
Q1=[10];
%Q1=Q1';

A1=tansig(W1*Q1,B1);
A2=tansig(W2*A1,B2)
W1
W2