function pop1=crossoverpar(pop,popsize,pc,1)
%
%
%
%
%
%
%

pop1=pop;
for i=1:popsize
    index(i)=i;
end
%
for i=1:popsize
    point=round(rand*(popsize-i));
    temp=index(i);
    index(i)=index(point+i);
    index(point+i)=temp;
end
%
for i=1:2:(popsize-1)
    p=rand;
    if p<pc
        point=round(rand*(1