evalfit.asv

来自「一个用于求函数极值的遗传算法程序,使用VC++编程.」· ASV 代码 · 共 11 行

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