* Bug 6973 fixed: missing stable demo figure
[scilab.git] / 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 // Copyright (C) 2012 - 2016 - Scilab Enterprises
6 //
7 // This file is hereby licensed under the terms of the GNU GPL v2.0,
8 // pursuant to article 5.3.4 of the CeCILL v.2.1.
9 // This file was originally licensed under the terms of the CeCILL v2.1,
10 // and continues to be available under such terms.
11 // For more information, see the COPYING file which you should have received
12 // along with this program.
13 //
14 //
15 function demo_bubbleSort()
16     function res=bubbleSort(in, polyline)
17         for (i = 1:size(in, "*"))
18             for (j = 1:i)
19                 if (in(i) < in(j))
20                     tmp = in(j);
21                     in(j) = in(i);
22                     in(i) = tmp;
23                     polyline.data(:,2) = in';
24                 end
25             end
26         end
27         res = in;
28     endfunction
29
30     my_handle = scf(100001);
31     clf(my_handle, "reset");
32     demo_viewCode(SCI+"/modules/graphics/demos/anim/bubbleSort/bubbleSort.sci");
33     my_handle.figure_name = "Bubble sort";
34
35     nbValues = 200;
36     x = floor(rand(1, nbValues) * nbValues);
37     plot(x, "diamond-");
38     a = gca();
39     e = a.children(1).children(1);
40     x = bubbleSort(x, e);
41 endfunction