a=1,b=256,pc=0.6;pm=0.06;
popsize=20;stringlength=8;
maxgeneration=20;
% generation=0;
[pop]=initialise(popsize,stringlength,a,b);
tic;
for generation=0:1:maxgeneration
%  nextpop=pop;
[bmax,bestindes]=max(pop(:,stringlength+2));
best1=pop(bestindes,:);
[bmin bminindes]=min(pop(:,stringlength+2));
% if (bmax-bmin)>50
pop(bminindes,:)=best1;
[rnewpop]=roulette(pop,popsize,stringlength);
[cnewpop]=crossover(rnewpop,stringlength,a,b,pc);
[mnewpop]=mutation(cnewpop,stringlength,a,b,pm);
pop=mnewpop;
% else
%     generation;
%   break;     
%   end
end
best1,
toc