function [out]=select(in,d,x,y)
%
% out=select(in);
%
% selects a new population
%
%

%
% Mix up the population
%
chrom=shuffle(in);

%
% Decode the existing population
%
coefs=decodall(chrom,d);

%
% Evaluate its' performance
%
pin=perf(coefs,x,y);


%
% Now work through the population to
% select the best.
% "Who's the hardest?" selection
%

[D L]=size(chrom);


for i = 1:2:D
	if pin(i)<pin(i+1)
		chrom(i+1,:)=chrom(i,:);
	else
		chrom(i,:)=chrom(i+1,:);
	end
end


out=chrom;