600e6ca141e835167807c9df7c962062d586795b
[scilab.git] / scilab / modules / umfpack / macros / scisptdemo.sci
1 //   Copyright Bruno Pinçon, ESIAL-IECN, Inria CORIDA project 
2 //   <bruno.pincon@iecn.u-nancy.fr>
3 // 
4 // This set of scilab 's macros provide a few sparse utilities.
5 // 
6 // This software is governed by the CeCILL license under French law and
7 // abiding by the rules of distribution of free software.  You can  use, 
8 // modify and/ or redistribute the software under the terms of the CeCILL
9 // license as circulated by CEA, CNRS and INRIA at the following URL
10 // "http://www.cecill.info". 
11 // 
12 // As a counterpart to the access to the source code and  rights to copy,
13 // modify and redistribute granted by the license, users are provided only
14 // with a limited warranty  and the software's author,  the holder of the
15 // economic rights,  and the successive licensors  have only  limited
16 // liability. 
17 // 
18 // In this respect, the user's attention is drawn to the risks associated
19 // with loading,  using,  modifying and/or developing or reproducing the
20 // software by the user in light of its specific status of free software,
21 // that may mean  that it is complicated to manipulate,  and  that  also
22 // therefore means  that it is reserved for developers  and  experienced
23 // professionals having in-depth computer knowledge. Users are therefore
24 // encouraged to load and test the software's suitability as regards their
25 // requirements in conditions enabling the security of their systems and/or 
26 // data to be ensured and,  more generally, to use and operate it in the 
27 // same conditions as regards security. 
28 // 
29 // The fact that you are presently reading this means that you have had
30 // knowledge of the CeCILL license and that you accept its terms.
31
32 function [] = scisptdemo()
33    // demo pour l'interface umf
34    mode(-1)
35    st = stacksize();
36    if st(1) < 3000000 then
37       x_message([gettext(" For this demo the current stack size is not enought ");
38                  gettext(" enter the following at the scilab prompt :          ");
39                  gettext("                                                     ");
40                  gettext("              stacksize(3000000);                    ");
41                  gettext("                                                     ");
42     gettext("           then re enter scisptdemo()                ");
43                 gettext("                                                     ");
44                 gettext("               CLICK TO  CONTINUE                    ")]);
45       return
46    end
47
48    oldln = lines();
49    lines(0)
50
51    deff('[]=demoex(num)','exec(scisptdemolist(num,2),-1)')
52    a = gda();
53    a.title.font_size = 3;
54    a;title.font_style = 6;
55    
56
57    scisptdemolist = [gettext("how to use this stuff")           , SCI+"/modules/umfpack/examples/scisptdem1.dem";
58                      gettext("display a speed comparison test") , SCI+"/modules/umfpack/examples/scisptdem2.dem";
59                      gettext("small tests for condestsp")       , SCI+"/modules/umfpack/examples/scisptdem3.dem"];
60    while %t
61       num=x_choose(scisptdemolist(:,1), gettext("Click to choose a demo"));
62       if num==0 then 
63          lines(oldln(1)) , break
64       else
65          demoex(num)
66       end
67    end
68    
69    sda()
70 endfunction