这是初始化的全部程序,也是所有例子中的第一个,因为这样,这个程序涉及调用的外部函数表现在nargin上。要说明的是num是初始个数,bounds是范围,eevalFN是适应度函数,eevalOps是要设置的东东,(这是我从网上下载的,并不是我不愿意将所有的程序全粘上)
function [pop] = initializega(num, bounds, eevalFN,eevalOps,options)
if nargin<5
options=[1e-6 1];
end
if nargin<4
eevalOps=[];
end
if options(2)==1 %浮点编码
estr=['[ pop(i, pop(i,xZomeLength)]=' eevalFN '(pop(i,,[0 eevalOps]);'];
else %二进制编码
estr=['x=b2f(pop(i,,bounds,bits);[x v]=' eevalFN(x,[0 eevalOps]);
pop(i,:)=[f2b(x,bounds,bits) v];'];
end
end
numVars = size(bounds,1); %变量的数目
rng= (bounds(:,2)-bounds(:,1))'; %变量边界
if options(2)==1
xZomeLength = numVars+1;
pop= zeros(num,xZomeLength);
pop(:,1:numVars)=(ones(num,1)*rng).*(rand(num,numVars))+ (ones(num,1)*bounds(:,1)');
else
bits=calcbits(bounds,options(1));
xZomeLength = sum(bits)+1;
pop = round(rand(num,sum(bits)+1));
end
for i=1:num
eeval(estr);
end
还有一点,我将程序copy到matlab上后发现上程序有点错误,我就改了,所以上半部分有点出入。
|