auto_func.m

来自「书籍代码:遗传演算法原理与应用_活用MATLAB(Source Code)」· M 代码 · 共 31 行

% auto_func.m
% For use with auto_elevator_design.m

% PenChen Chou, Aug. 20, 2001

function PI=auto_func(x)
global net P T Emin MIN_offset 

% Assign weights and bias
W=[x(1) x(2) x(3) x(4) x(5);x(6) x(7) x(8) x(9) x(10)];
B=[x(11); x(12)];
net.IW{1,1}=W;
net.b{1}=B;
% Calculate NN output
Y=sim(net,P);
% Check error
E=sum(sum(abs(T-Y)));
% Minimization problem
PI=MIN_offset-E;
% Better result then display
if Emin>E,
   fprintf('Error=%5.2f\n',E);
   Emin=E;
end;