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  endelseif 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));  endelse  error('wrong argument type')end