replace.m

来自「多目标遗传算法/用法不用多说、要用的赶快下载吧」· M 代码 · 共 35 行

function pop = replace(pop_old,pop_new,varargin)
% REPLACE - replaces members in the old poplulation with members from the new
%   
nmbr_of_members=length(pop_old);
pop_old=sort(pop_old);
pop_new=sort(pop_new);
pop_new=fliplr(pop_new);

if ~length(varargin) 
  for k=1:nmbr_of_members
    if pop_new(k)>pop_old(k)
      pop(k)=pop_new(k);
    else
      pop(k)=pop_old(k);
    end
  end
elseif strcmp(varargin{1},'all')
  pop=pop_new;
elseif isa(varargin{1},'double')
  if varargin{1}<=nmbr_of_members
    for k=1:varargin{1}
      if pop_new(k)>pop_old(k)
	pop_old(k)=pop_new(k);
      end
    end
    pop=pop_old;
  else
    error(sprintf('can not replace more than %d members:', nmbr_of_members));
  end
else
  error('wrong argument type')
end