scilab/modules/graphics/demos/anim/bubbleSort/bubbleSort.sci

   1 //
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2012-2012 - Scilab Enterprises - Bruno JOFRET
   4 //
   5 // This file must be used under the terms of the CeCILL.
   6 // This source file is licensed as described in the file COPYING, which
   7 // you should have received as part of this distribution.  The terms
   8 // are also available at
   9 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  10 //
  11 //
  12 function demo_bubbleSort()
  13     function res=bubbleSort(in, polyline)
  14         for (i = 1:size(in, "*"))
  15             for (j = 1:i)
  16                 if (in(i) < in(j))
  17                     tmp = in(j);
  18                     in(j) = in(i);
  19                     in(i) = tmp;
  20                     polyline.data(:,2) = in';
  21                 end
  22             end
  23         end
  24         res = in;
  25     endfunction
  26
  27     nbValues = 200;
  28     x = floor(rand(1, nbValues) * nbValues);
  29     scf()
  30     demo_viewCode(SCI+"/modules/graphics/demos/anim/bubbleSort/bubbleSort.sci");
  31     plot(x, "diamond-");
  32     a = gca();
  33     e = a.children(1).children(1);
  34     x = bubbleSort(x, e);
  35 endfunction