bppfault.m

来自「转载得有关利用遗传算法优化bp神经网络得源程序中得有关神经网络函数编写」· M 代码 · 共 32 行

% 在MATLAB6.5下编程
tic, % 开始计时
p=[0 0 0 0 0;
   1 0 0 0 1;
   0 1 0 0 1;
   0 0 1 0 0;
   0 0 0 1 0];
P=p';
t=[0 0 0 0;
   1 0 0 0;
   0 1 0 0;
   0 0 1 0;
   0 0 0 1];
 t=t';
 T=t;
[P,T,R,S1,S2,S]=nninit; % BP网络初始化
% 生成BP网络
net = newff(minmax(P),[S1 S2],{'logsig' 'logsig'},'trainlm');
% BP网络训练的参数设置
net.trainParam.epochs = 3000;
net.trainParam.goal = 0.002;
net.trainParam.lr = 0.01;
% 开始训练
net = train(net,P,T);
% 仿真结果
TT=sim(net,P)
toc  % 结束计时