Sortowanie bąbelkowe

N = 80;
rand_tab = rand(1,N)*20-10; #zapełniam wektor rand_tab warościami losowymi w przedziale [-10,10]
#rand_tab = sort(rand_tab);
x = 1:N; #zakres x na wykresie
#plot(x,rand_tab(x),"."); #wykres
rand_tab_d = rand_tab(rand_tab>=0); #tworzę nowy wektor z warości nieujemnych
rand_tab_d1 = rand_tab_d; #tworzę kopię tablicy
#sortowanie bąbelkowe
n = length(rand_tab_d);
x = 1:n;
 #    plot(x,rand_tab_d(x),"b.");
for i=1:(n-1)
  for j=1:n-i
    if (rand_tab_d(j) > rand_tab_d(j+1))
      z = rand_tab_d(j);
      rand_tab_d(j) = rand_tab_d(j+1);
      rand_tab_d(j+1) = z;
 #     drawnow;
         hold on;
         cla;
          plot(x,rand_tab_d(x),"bo");
        pause(0.1);
#      hold off;
    endif

  endfor
endfor
#x = 1:n;
#plot(x,rand_tab_d(x),"b."); #wykres