init.m

一些用matlab编写的经典遗传算法算例 挺有用的

function g = init(gn)
% INIT - initiates the gene the function initiates a design
% variable, i.e. it assigns a random binary string to the DNA and
% converts its value to decimal form.
if isa(gn,'cdv')
  if (gn.bits)==0
    gn.dna=[];
    gn.value=[];
  else
    gn.dna=cdna(gn.bits);
    gn.value=convert(gn);
    end
elseif isa(gn,'ddv')
  val=get(gn,'p_val');
  if isempty(get(gn,'p_val'))
    gn.dna=[];
     gn.value=[];
  else
    gn.dna=ddna(val);
    gn.value=convert(gn);
  end
else
  error('wrong argument')
end
g=gn;

function d = cdna(b)
% CDNA - 
%   
d=rand(1,b);
for k=1:b
  if d(k)<0.5
    d(k)=0;
  else
    d(k)=1;
  end
end

function d = ddna(b)
% DDNA - 
%   
l=nextpow2(b);
d=rand(1,l);
for k=1:l
  if d(k)<0.5
    d(k)=0;
  else
    d(k)=1;
  end
end
if bin2int(d)>b-1
  d=ddna(b);
end