bp.m

初学者很好用的。。 建议

%clear all
%clc
X=-1:0.1:1;T=sin(pi*X);          %提供训练集和目标值
plot(X,T,'+');
%建立网络，并取得权值和偏值
[R,N]=size(X);[S2,N]=size(T);S1=5;
[W1,b1,W2,b2]=initff(X,S1,'tansig',S2,'purelin');
[y1,y21]=simuff(X,W1,b1,'tansig',W2,b2,'purelin');
%利用不含噪声的理想输入数据训练网络
disp_freq=10;                    %显示间隔
max_epoch=8000;                 %训练时间
err_goal=0.02;                  %训练目标误差
lr=0.01;                        %学习速率
tp=[disp_freq max_epoch err_goal lr];
[W1,b1,W2,b2,te,tr]=trainbp(W1,b1,'tansig',W2,b2,'purelin',X,T,tp);
[y1,y22]=simuff(X,W1,b1,'tansig',W2,b2,'purelin');
plot(X,T,'-',X,y21,'--',X,y22,'o')
X1=0.5;y2=simuff(X1,W1,b1,'tansig',W2,b2,'purelin')