evalfit.m

一个用于求函数极值的遗传算法程序,使用VC++编程.

function out=evalfit(binarystr, bit_n, range, fcn)
%binarystr:binary string 
%bit_n:binary number of every variety  
%rang:range of binary  string
%objective function 
var_n  = length(binarystr)/bit_n;% variety number 
mid = zeros(1, var_n);% give the room of fitness
for i = 1:var_n,
	mid(i) = bit2num(binarystr((i-1)*bit_n+1:i*bit_n), range(i, :));% evaluate decimal number 
end
out = feval(fcn, mid);%evaluate fitness