bpfault.m
上传用户:szhysm888
上传日期:2008-07-11
资源大小:35k
文件大小:0k
开发平台:

Matlab

  1. tic, % 开始计时
  2. [P,T,R,S1,S2,S]=nninit; % BP网络初始化
  3. % 随机生成W1,B1,W2,B2
  4. [W1,B1]=rands(S1,R);
  5. [W2,B2]=rands(S2,S1);
  6. % BP网络训练的参数设置
  7. disp_fqre=100; max_epoch=3000;err_goal=0.002;lr=0.01;
  8. TP=[disp_fqre  max_epoch err_goal lr];
  9. % 开始训练
  10. [W1,B1,W2,B2,te,tr]=trainbp(W1,B1,'tansig',W2,B2,'purelin',P,T,TP);
  11. % 仿真结果
  12. TT=simuff(P,W1,B1,'tansig',W2,B2,'purelin')
  13. toc  % 结束计时