gabpeval.m

来自「本人调试的大作业（源程序模型+论文）」· M 代码 · 共 20 行

% 遗传算法的适应值计算
function [sol, val] = gabpEval(sol,options)
% val - the fittness of this individual
% sol - the individual, returned to allow for Lamarckian evolution
% options - [current_generation]
load A
load B
nntwarn off
XX=A(2,:);
YY=B(2,:);
P=XX;
T=YY;
R=size(P,1);
S2=size(T,1);
S1=25;%隐含层节点数
S=R*S1+S1*S2+S1+S2;%遗传算法编码长度
for i=1:S,
   x(i)=sol(i);
end;
[W1, B1, W2, B2, P, T, A1, A2, SE, val]=gadecod(x);