function [vekt]=optimum_siralama(vekt) %eger secilen deere esit degerler varsa

l_v=length(vekt); %vektorun boyutunu verir
 
%secilen_sayinin_yeri=unidrnd(l_v) %vektorde secilen sayinin index degerini verir


%vektordeki her degerin vektorde secilen degere uzakligi bulundu

%sıralama yapılarak bu is cozumlenebilir
for j=1:l_v-1
    j
for i=1:l_v-j,
   if vekt(i)>vekt(i+1) % bu durumda yer degistirme yapilacak
     i
     
     degisen_vekt=vekt(i);
     vekt(i)=vekt(i+1);
     vekt(i+1)=degisen_vekt;
     % bu yer degistirmeler sonucunda en uzak olan en saga gidecektir
     
   else 
       %bu durumda degistirmeye gerek yok demektir
   end
end
end