www.pudn.com > IQGA.rar > Objfunction.m, change:2012-09-03,size:373b


function [Y,X]=Objfunction(x,lenchrom) 
%% 目标函数 
% 输入     x:二进制编码 
%   lenchrom:各变量的二进制位数 
% 输出     Y:目标值 
%          X:十进制数 
bound=[-100 100;-100 100];   % 函数自变量的范围 
%% 将binary数组转化成十进制数组 
X=bin2decFun(x,lenchrom,bound); 
%% 计算适应度-函数值 
Y=0.5-((sin(sqrt(X(1).^2+X(2).^2))).^2-0.5)/((1+0.001*(X(1).^2+X(2).^2)).^2);