gabpeval.m

传算法对BP网络权值阈值进行优化的matlab源代码

% 遗传算法的适应值计算
function [sol, val] = gabpEval(sol,options)
% val - the fittness of this individual
% sol - the individual, returned to allow for Lamarckian evolution
% options - [current_generation]
[P,T,R,S1,S2,S]=nninit;
for i=1:S,
   x(i)=sol(i);
end;
[W1, B1, W2, B2, P, T, A1, A2, SE, val]=gadecod(x);