update tests & ref
Allan Cornet [Tue, 15 Jul 2008 09:26:46 +0000 (09:26 +0000)]
(path, error , old graphic , ref, ...)

44 files changed:
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_558.dia.ref [new file with mode: 0644]
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_558.tst
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_577.dia.ref
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_577.tst
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_649.dia.ref
scilab/modules/compatibility_functions/tests/nonreg_tests/bug_649.tst
scilab/modules/linear_algebra/tests/unit_tests/algebra.dia.ref
scilab/modules/linear_algebra/tests/unit_tests/algebra.tst
scilab/modules/metanet/tests/unit_tests/Max_clique.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/adj_lists.dia.ref
scilab/modules/metanet/tests/unit_tests/adj_lists.tst
scilab/modules/metanet/tests/unit_tests/bandwr.dia.ref
scilab/modules/metanet/tests/unit_tests/bandwr.tst
scilab/modules/metanet/tests/unit_tests/best_match.tst
scilab/modules/metanet/tests/unit_tests/cycle_basis.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/gen_net.tst
scilab/modules/metanet/tests/unit_tests/graph_complement.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/graph_power.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/graph_simp.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/graph_sum.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/max_cap_path.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/max_flow.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/mesh2d.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/mesh2d.tst
scilab/modules/metanet/tests/unit_tests/min_lcost_cflow.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/min_lcost_flow1.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/min_qcost_flow.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/min_weight_tree.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/plot_graphbug.tst
scilab/modules/metanet/tests/unit_tests/salesman.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/shortest_path.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/split_edge.dia.ref [new file with mode: 0644]
scilab/modules/metanet/tests/unit_tests/supernodebug.dia.ref [new file with mode: 0644]
scilab/modules/mexlib/tests/nonreg_tests/bug_614.tst
scilab/modules/mexlib/tests/nonreg_tests/bug_614.win.dia.ref [new file with mode: 0644]
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.dia.ref [deleted file]
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.tst
scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.win.dia.ref [new file with mode: 0644]
scilab/modules/statistics/tests/unit_tests/pca.dia.ref
scilab/modules/statistics/tests/unit_tests/pca.tst
scilab/modules/tclsci/tests/nonreg_tests/bug_790.dia.ref
scilab/modules/tclsci/tests/nonreg_tests/bug_790.tst
scilab/modules/windows_tools/tests/unit_tests/findfileassociation.dia.ref [new file with mode: 0644]
scilab/modules/windows_tools/tests/unit_tests/findfileassociation.tst

diff --git a/scilab/modules/compatibility_functions/tests/nonreg_tests/bug_558.dia.ref b/scilab/modules/compatibility_functions/tests/nonreg_tests/bug_558.dia.ref
new file mode 100644 (file)
index 0000000..e6bfe06
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 558 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=558
+//
+// <-- Short Description -->
+//    mtlb_save reports an unnecessary warning. This is due to
+//    line 57 of  SCI/modules/compatibility_functions/macros/mtlb_save.sci:
+//
+//      clear('rhs','lhs','kk','k','err','mtlb_thefile','or');
+//
+//    the last 'or' looks superfluous to me.
+fileName = TMPDIR+'/bug558.mat';
+x = 20;
+warning('off');
+mtlb_save(fileName,'x');
+warning('on');
+w=fileinfo(fileName);
+if ( (w == []) | (w(1) == 0) )  then bugmes();quit;end
+mdelete(fileName);
index 7249ace..208865c 100644 (file)
 //
 //    the last 'or' looks superfluous to me.
 
-fileName = TMPDIR+"/bug558.txt";
-diary(fileName);
+fileName = TMPDIR+'/bug558.mat';
 x = 20;
-mtlb_save('bug558','x')
-diary(0);
-
+warning('off');
+mtlb_save(fileName,'x');
+warning('on');
 w=fileinfo(fileName);
-if w(1) == 0  then pause,end
-
+if ( (w == []) | (w(1) == 0) )  then pause,end
 mdelete(fileName);
-mdelete('bug558.mat');
index 0567393..d97103b 100644 (file)
@@ -16,9 +16,8 @@
 //    I can reproduce the bug with integers data type not with imaginary
 my_mat_file = TMPDIR+"/bug_577.mat";
 x=rand(5,5,100)+%i;
-execstr("mtlb_save(my_mat_file,""x"")","errcatch")
-WARNING : Cette fonction est obsol�te, utilisez savematfile ï¿½ la place.
- ans  =
-    10000.  
+warning('off');
+ierr = execstr("mtlb_save(my_mat_file,""x"")","errcatch");
+warning('on');
+if ierr <> 10000 then bugmes();quit;end
 if lasterror()<>gettext("Attempt to write an unsupported data type to an ASCII file.") then pause; end
index 10b2e4e..b285838 100644 (file)
@@ -19,6 +19,9 @@
 my_mat_file = TMPDIR+"/bug_577.mat";
 
 x=rand(5,5,100)+%i;
-execstr("mtlb_save(my_mat_file,""x"")","errcatch")
+warning('off');
+ierr = execstr("mtlb_save(my_mat_file,""x"")","errcatch");
+warning('on');
 
+if ierr <> 10000 then pause,end
 if lasterror()<>gettext("Attempt to write an unsupported data type to an ASCII file.") then pause; end
index 5a5a8cd..4c8e197 100644 (file)
@@ -13,5 +13,7 @@
 //    scilab crashes under windows, under linux, Scilab loops forever,
 //    and it uses the whole CPU resource.
 x = rand(5,5,100)+%i;
-execstr('mtlb_save SCI/modules/compatibility_functions/nonreg_tests/bug_649.mat x','errcatch');
-WARNING : This function is obsolete, use savematfile instead.
+warning('off');
+ierr = execstr('mtlb_save SCI/modules/compatibility_functions/nonreg_tests/bug_649.mat x','errcatch');
+warning('on');
+if ierr <> 10000 then bugmes();quit;end;
index 00f1113..699a153 100644 (file)
@@ -15,4 +15,7 @@
 //    and it uses the whole CPU resource.
 
 x = rand(5,5,100)+%i;
-execstr('mtlb_save SCI/modules/compatibility_functions/nonreg_tests/bug_649.mat x','errcatch');
+warning('off');
+ierr = execstr('mtlb_save SCI/modules/compatibility_functions/nonreg_tests/bug_649.mat x','errcatch');
+warning('on');
+if ierr <> 10000 then pause,end;
index 2dae45c..8c14ae8 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 function r=Err(x),r=norm(x,1),endfunction
 rand('normal')
 //==========================================================================
@@ -1109,7 +1115,7 @@ if rk<>30 then bugmes();quit;end
 function c=cond(A)
   if A==[] then c=1,else S=svd(A);c=S($)/S(1),end
 endfunction
-Warning : redefining function: cond                    
+Warning : redefining function: cond                    . Use funcprot(0) to avoid this message
 
 //==========================================================================
 //==============================     hess     ==============================
@@ -1382,7 +1388,7 @@ if Err(x*A*A'-b*A')>1000*%eps then bugmes();quit;end
 //==============================    \         ==============================
 //==========================================================================
 function x=ldiv(A,B),x=A\B,endfunction
-Warning : redefining function: ldiv                    
+Warning : redefining function: ldiv                    . Use funcprot(0) to avoid this message
 
 //scalar division
 //-----Square matrix-----
@@ -1524,37 +1530,30 @@ if Ab<>[]|X<>[] then bugmes();quit;end
 // MATRIX
 //Small dimension
 //---------------
+warning('off')
 //Real Case
 A=testmat3(10000,5);
 [Ab,X]=balanc(A);
 if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
 if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end
-Warning :
-matrix is close to singular or badly scaled. rcond =    8.8818D-16
 
 //Complex Case
 A=testmat3(10000+0.01*%i,5);
 [Ab,X]=balanc(A);
 if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
 if Err(Ab-inv(X)*A*X)>200*%eps then bugmes();quit;end
-Warning :
-matrix is close to singular or badly scaled. rcond =    8.8818D-16
 
 //LArge dimension
 A=testmat3(10000,30);
 [Ab,X]=balanc(A);
 if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
 if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end
-Warning :
-matrix is close to singular or badly scaled. rcond =    1.6313D-55
 
 //Complex Case
 A=testmat3(10000+0.01*%i,30);
 [Ab,X]=balanc(A);
 if Err(diag(diag(X))-X)>200*%eps then bugmes();quit;end
 if Err(Ab-inv(X)*A*X)>1000*%eps then bugmes();quit;end
-Warning :
-matrix is close to singular or badly scaled. rcond =    1.6313D-55
 
 // PENCILS
 //Small dimension
@@ -1581,6 +1580,7 @@ A=testmat3(10000+0.001*%i,20);B=testmat3(1000+100*%i,20);
 [Ab,Bb,X,Y]=balanc(A,B);
 if Err(Bb-inv(X)*B*Y)>1000*%eps then bugmes();quit;end
 if Err(Ab-inv(X)*A*Y)>1000*%eps then bugmes();quit;end
+warning('on')
 //==========================================================================
 //==============================   bdiag      ==============================
 //==========================================================================
index 2fe2e2d..2ac56c3 100644 (file)
@@ -238,7 +238,6 @@ if Err(L*U-Ac) >200*%eps then pause,end
 [L,U,E]=lu(Ac);
 if Err(L*U-E*Ac) >200*%eps then pause,end
 
-
 //large dimension
 //---------------
 //Square
@@ -1831,6 +1830,7 @@ if Ab<>[]|X<>[] then pause,end
 // MATRIX
 //Small dimension
 //---------------
+warning('off')
 //Real Case
 A=testmat3(10000,5);
 [Ab,X]=balanc(A);
@@ -1884,7 +1884,7 @@ A=testmat3(10000+0.001*%i,20);B=testmat3(1000+100*%i,20);
 [Ab,Bb,X,Y]=balanc(A,B);
 if Err(Bb-inv(X)*B*Y)>1000*%eps then pause,end 
 if Err(Ab-inv(X)*A*Y)>1000*%eps then pause,end 
-
+warning('on')
 //==========================================================================
 //==============================   bdiag      ============================== 
 //==========================================================================
diff --git a/scilab/modules/metanet/tests/unit_tests/Max_clique.dia.ref b/scilab/modules/metanet/tests/unit_tests/Max_clique.dia.ref
new file mode 100644 (file)
index 0000000..6f7acbc
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for Max_clique function
+// =============================================================================
+ta=[1 2 3 4 5 6 6 7 8  9 10 16 16 10 11 11 12 12 11 14 15 15 13 7 13 13];
+he=[2 3 4 5 6 7 8 8 9 10 16  2  3 11 12 13  1 14 14 15  5  9 12 4 14 15];
+g=make_graph('foo',0,16,ta,he);
+g('node_x')=[106 199 369 467 470 403 399 347 308 269 184 108 199 268 345 272];
+g('node_y')=[341 420 422 321 180 212 286 246 193 244 243 209  59 134  51 348];
+g('node_diam')=[1:(g('node_number'))]+20;
+show_graph(g);
+[ns,no] = max_clique(g);
+show_nodes(no);
+g1=graph_complement(g);
+[ns,no] = max_clique(g1);
+show_nodes(no);
index 194d14c..0549b6b 100644 (file)
@@ -5,6 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- TEST WITH GRAPHIC -->
 // unit tests for adj_lists function
 // =============================================================================
 ta=[2 3 3 5 3 4 4 5 8];
@@ -12,29 +13,12 @@ he=[1 2 4 2 6 6 7 7 4];
 g=make_graph('foo',1,8,ta,he);
 g('node_x')=[129 200 283 281 128 366 122 333];
 g('node_y')=[61 125 129 189 173 135 236 249];
-show_graph(g)
- ans  =
-    0.  
-[lp,la,ls]=adj_lists(g)
-Warning : redefining function: ls                      
-
- ls  =
-    1.    2.    4.    6.    6.    7.    2.    7.    4.  
- la  =
-    1.    2.    3.    5.    6.    7.    4.    8.    9.  
- lp  =
-    1.    1.    2.    5.    7.    9.    9.    9.    10.  
-[lp,la,ls]=adj_lists(1,g('node_number'),ta,he)
- ls  =
-    1.    2.    4.    6.    6.    7.    2.    7.    4.  
- la  =
-    1.    2.    3.    5.    6.    7.    4.    8.    9.  
- lp  =
-    1.    1.    2.    5.    7.    9.    9.    9.    10.  
+show_graph(g);
+[l_p,l_a,l_s]=adj_lists(g);
+if l_p <> [ 1.    1.    2.    5.    7.    9.    9.    9.    10.] then bugmes();quit;end
+if l_a <> [ 1.    2.    3.    5.    6.    7.    4.    8.    9.] then bugmes();quit;end
+if l_s <> [ 1.    2.    4.    6.    6.    7.    2.    7.    4.] then bugmes();quit;end
+[l_p,l_a,l_s]=adj_lists(1,g('node_number'),ta,he);
+if l_s <> [ 1.    2.    4.    6.    6.    7.    2.    7.    4.] then bugmes();quit;end
+if l_a <> [ 1.    2.    3.    5.    6.    7.    4.    8.    9.] then bugmes();quit;end
+if l_p <> [ 1.    1.    2.    5.    7.    9.    9.    9.    10.] then bugmes();quit;end
index f931eb2..e4f36c0 100644 (file)
@@ -16,6 +16,14 @@ he=[1 2 4 2 6 6 7 7 4];
 g=make_graph('foo',1,8,ta,he);
 g('node_x')=[129 200 283 281 128 366 122 333];
 g('node_y')=[61 125 129 189 173 135 236 249];
-show_graph(g)
-[lp,la,ls]=adj_lists(g)
-[lp,la,ls]=adj_lists(1,g('node_number'),ta,he)
+show_graph(g);
+[l_p,l_a,l_s]=adj_lists(g);
+if l_p <> [ 1.    1.    2.    5.    7.    9.    9.    9.    10.] then pause,end
+if l_a <> [ 1.    2.    3.    5.    6.    7.    4.    8.    9.] then pause,end
+if l_s <> [ 1.    2.    4.    6.    6.    7.    2.    7.    4.] then pause,end
+
+[l_p,l_a,l_s]=adj_lists(1,g('node_number'),ta,he);
+if l_s <> [ 1.    2.    4.    6.    6.    7.    2.    7.    4.] then pause,end
+if l_a <> [ 1.    2.    3.    5.    6.    7.    4.    8.    9.] then pause,end
+if l_p <> [ 1.    1.    2.    5.    7.    9.    9.    9.    10.] then pause,end
+
index 227363c..6fd5547 100644 (file)
@@ -5,6 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- TEST WITH GRAPHIC -->
 // unit tests for bandwr function
 // =============================================================================
 ta=[2  1 3 2 2 4 4 5 6 7 8 8 9 10 10 10 10 11 12 13 13 14 15 16 16 17 17];
@@ -42,9 +43,7 @@ g1=make_graph('foo',0,n,ij(:,1)',ij(:,2)');
 g1('node_x')=g('node_x');g1('node_y')=g('node_y');
 // GRAPH
 //show_graph(g1,'rep');
-[lp,la,ls] = adj_lists(1,n,g1('tail'),g1('head'));
-Warning : redefining function: ls                      
-
-[iperm,mrepi,prof,ierr]=bandwr(lp,ls,n,0);
+[lp,la,l_s] = adj_lists(1,n,g1('tail'),g1('head'));
+[iperm,mrepi,prof,ierr]=bandwr(lp,l_s,n,0);
 g2=g;g2('node_name')=string(iperm);
 show_graph(g2,'new');
index 3b38463..8b18e0a 100644 (file)
@@ -40,8 +40,8 @@ g1=make_graph('foo',0,n,ij(:,1)',ij(:,2)');
 g1('node_x')=g('node_x');g1('node_y')=g('node_y');
 // GRAPH
 //show_graph(g1,'rep');
-[lp,la,ls] = adj_lists(1,n,g1('tail'),g1('head'));
-[iperm,mrepi,prof,ierr]=bandwr(lp,ls,n,0);
+[lp,la,l_s] = adj_lists(1,n,g1('tail'),g1('head'));
+[iperm,mrepi,prof,ierr]=bandwr(lp,l_s,n,0);
 g2=g;g2('node_name')=string(iperm);
 show_graph(g2,'new');
  
index 201076b..c73983b 100644 (file)
@@ -30,7 +30,7 @@ sp1=sparse([[1:n]' match'],ones(1,size(match,2))',[n,n]);
 show_arcs(v');
 //
 // WITH A LARGER GRAPH
-g=load_graph(SCI+"/modules/metanet/tests/unit_tests/mesh1000");
+g=load_graph(SCI+"/modules/metanet/tests/unit_tests/mesh1000.graph");
 g('directed')=0;
 ta=g('tail');he=g('head');n=node_number(g);
 show_graph(g,'new',1/2,[1000,400]);
diff --git a/scilab/modules/metanet/tests/unit_tests/cycle_basis.dia.ref b/scilab/modules/metanet/tests/unit_tests/cycle_basis.dia.ref
new file mode 100644 (file)
index 0000000..466f45e
--- /dev/null
@@ -0,0 +1,28 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for cycle_basis function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 13 15 12 13 9 10 14 11 16 1 17 14 15];
+gt=make_graph('foo',1,17,ta,he);
+gt('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+gt('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+gt('edge_color')=modulo([1:(edge_number(gt))],15)+1;
+gt('node_diam')=[1:(gt('node_number'))]+20;
+show_graph(gt);
+g=graph_simp(gt);
+g('edge_color')=modulo([1:(edge_number(g))],15)+1;
+g('node_diam')=gt('node_diam');
+//g('default_edge_hi_width')=12;
+show_graph(g);
+spc=cycle_basis(g);
+for kk=1:(size(spc,1)),
+  aaa=spc(kk,:);aaa=full(aaa);aaa(aaa==0)=[];
+  show_arcs(aaa);
+end;
index 7d279c3..4d70380 100644 (file)
@@ -5,7 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // ==============================================================================
-
+// <-- INTERACTIVE TEST -->
 // <-- TEST WITH GRAPHIC -->
 
 // unit tests for gen_net function
diff --git a/scilab/modules/metanet/tests/unit_tests/graph_complement.dia.ref b/scilab/modules/metanet/tests/unit_tests/graph_complement.dia.ref
new file mode 100644 (file)
index 0000000..cf62e40
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for graph_complement function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 11 12 13 13 13 14 15 17 17 16 16];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 15 12 13 9 10 14 11 16 14 15 1 17];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g('edge_color')=modulo([1:(edge_number(g))],15)+1;
+g('node_diam')=[1:(g('node_number'))]+20;
+show_graph(g);
+g1=graph_complement(g);
+show_graph(g1,'new');
+g=graph_complement(g1);
+show_graph(g);
diff --git a/scilab/modules/metanet/tests/unit_tests/graph_power.dia.ref b/scilab/modules/metanet/tests/unit_tests/graph_power.dia.ref
new file mode 100644 (file)
index 0000000..b2502b2
--- /dev/null
@@ -0,0 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for graph_power function
+// =============================================================================
+ta=[1 1 2 4 4 5 6 7 2 3 5 1];
+he=[2 6 3 6 7 8 8 8 4 7 3 5];
+g=make_graph('foo',1,8,ta,he);
+g('node_x')=[285  284  335  160  405  189  118  45];
+g('node_y')=[266  179   83  176  368  252  64  309];
+show_graph(g);
+g1=graph_power(g,2);
+show_graph(g1,'new');
diff --git a/scilab/modules/metanet/tests/unit_tests/graph_simp.dia.ref b/scilab/modules/metanet/tests/unit_tests/graph_simp.dia.ref
new file mode 100644 (file)
index 0000000..c5805d4
--- /dev/null
@@ -0,0 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for graph_simp function
+// =============================================================================
+ta=[1 1  1 2 2 2 3 4 4 4 5 5 6 7 7 8 8 9 9 10 10 10 10 10 11 12 12 13 13 13 14 15 16 16 17 17];
+he=[1 2 10 3 5 7 4 2 9 9 4 6 6 8 2 6 9 7 4  7 11 13 13 15 12 11 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163  63  98 164 162 273 235 267 384 504 493 409 573 601 627 642];
+g('node_y')=[ 59 133 223 311 227 299 221 288 384 141 209 299 398 383 187 121 301];
+show_graph(g);
+g1=graph_simp(g);
+show_graph(g1,'new');
diff --git a/scilab/modules/metanet/tests/unit_tests/graph_sum.dia.ref b/scilab/modules/metanet/tests/unit_tests/graph_sum.dia.ref
new file mode 100644 (file)
index 0000000..d8bff1f
--- /dev/null
@@ -0,0 +1,32 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for graph_sum function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 15 12 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g('edge_color')=modulo([1:(edge_number(g))],15)+1;
+g('edge_width')=ones(1,(edge_number(g)));
+g('node_diam')=[1:(g('node_number'))]+20;
+g('node_name')=['A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 'P' 'Q'];
+show_graph(g);
+ta=[2 3 4 5 11 12 1];
+he=[10 5 6 7 15 17 7];
+g1=make_graph('foo',1,17,ta,he);
+g1('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g1('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g1('edge_color')=modulo([1:(edge_number(g1))],15)+1;
+g1('edge_width')=10*ones(1,(edge_number(g1)));
+g1('node_diam')=[1:(g1('node_number'))]+20;
+g1('node_name')=['A' 'B' 'C' 'D' 'E' 'F' 'G' 'H' 'I' 'J' 'K' 'L' 'M' 'N' 'O' 'P' 'Q'];
+show_graph(g1,'new');
+g2=graph_sum(g,g1);
+show_graph(g2,'new');
diff --git a/scilab/modules/metanet/tests/unit_tests/max_cap_path.dia.ref b/scilab/modules/metanet/tests/unit_tests/max_cap_path.dia.ref
new file mode 100644 (file)
index 0000000..d38592b
--- /dev/null
@@ -0,0 +1,21 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for max_cap_path function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+show_graph(g);
+ma=edge_number(g);
+g('edge_max_cap')=int(rand(1,ma)*16)+5;
+[p,cap]=max_cap_path(1,14,g);
+edgecolor=1*ones(1,ma); edgecolor(p)=11*ones(p); g('edge_color')=edgecolor;
+show_graph(g); show_arcs(p);
diff --git a/scilab/modules/metanet/tests/unit_tests/max_flow.dia.ref b/scilab/modules/metanet/tests/unit_tests/max_flow.dia.ref
new file mode 100644 (file)
index 0000000..0e75c25
--- /dev/null
@@ -0,0 +1,34 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for max_flow function
+// =============================================================================
+ta=[1 1 2 2 3 3 4 4 5 5 5 5 6 6 6 7 7 15 15 15 15 15 15];
+ta=[ta, 15 8 9 10 11 12 13 14];
+he=[10 13 9 14 8 11 9 11 8 10 12 13 8 9 12 8 11 1 2 3 4];
+he=[he, 5 6 7 16 16 16 16 16 16 16];
+n=16;
+g=make_graph('foo',1,n,ta,he);
+g('node_x')=[42 615 231 505 145 312 403 233 506 34 400 312 142 614 260 257];
+g('node_y')=[143 145 154 154 147 152 157 270 273 279 269 273 273 274 50 376];
+ma=edge_number(g);
+g('edge_max_cap')=ones(1,ma);
+g('edge_min_cap')=zeros(1,ma);
+source=15; sink=16;
+nodetype=0*ones(1,n); nodetype(source)=2; nodetype(sink)=1;
+g('node_type')=nodetype;
+nodecolor=0*ones(1,n); nodecolor(source)=11; nodecolor(sink)=11;
+g('node_color')=nodecolor;
+show_graph(g);
+[v,phi,ierr]=max_flow(source,sink,g);
+ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
+g('edge_color')=edgecolor;
+edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
+g('edge_font_size')=edgefontsize;
+g('edge_label')=string(phi);
+show_graph(g);
diff --git a/scilab/modules/metanet/tests/unit_tests/mesh2d.dia.ref b/scilab/modules/metanet/tests/unit_tests/mesh2d.dia.ref
new file mode 100644 (file)
index 0000000..e347bfb
--- /dev/null
@@ -0,0 +1,114 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for mesh2d function
+// =============================================================================
+// FIRST CASE
+theta=0.025*[1:40]*2.*%pi;
+x=1+cos(theta);
+y=1.+sin(theta);
+theta=0.05*[1:20]*2.*%pi;
+x1=1.3+0.4*cos(theta);
+y1=1.+0.4*sin(theta);
+theta=0.1*[1:10]*2.*%pi;
+x2=0.5+0.2*cos(theta);
+y2=1.+0.2*sin(theta);
+x=[x x1 x2];
+y=[y y1 y2];
+//
+nu=mesh2d(x,y);
+nbt=size(nu,2);
+jj=[nu(1,:)' nu(2,:)';nu(2,:)' nu(3,:)';nu(3,:)' nu(1,:)'];
+as=sparse(jj,ones(size(jj,1),1));
+ast=tril(as+abs(as'-as));
+[jj,v,mn]=spget(ast);
+n=size(x,2);
+g=make_graph('foo',0,n,jj(:,1)',jj(:,2)');
+g('node_x')=300*x;
+g('node_y')=300*y;
+g('default_node_diam')=10;
+show_graph(g)
+ ans  =
+    0.  
+// SECOND CASE !!! NEEDS x,y FROM FIRST CASE
+x3=2.*rand(1:200);
+y3=2.*rand(1:200);
+wai=((x3-1).*(x3-1)+(y3-1).*(y3-1));
+ii=find(wai >= .94);
+x3(ii)=[];y3(ii)=[];
+wai=((x3-0.5).*(x3-0.5)+(y3-1).*(y3-1));
+ii=find(wai <= 0.055);
+x3(ii)=[];y3(ii)=[];
+wai=((x3-1.3).*(x3-1.3)+(y3-1).*(y3-1));
+ii=find(wai <= 0.21);
+x3(ii)=[];y3(ii)=[];
+xnew=[x x3];ynew=[y y3];
+fr1=[[1:40] 1];fr2=[[41:60] 41];fr2=fr2($:-1:1);
+fr3=[[61:70] 61];fr3=fr3($:-1:1);
+front=[fr1 fr2 fr3];
+//
+nu=mesh2d(xnew,ynew,front);
+nbt=size(nu,2);
+jj=[nu(1,:)' nu(2,:)';nu(2,:)' nu(3,:)';nu(3,:)' nu(1,:)'];
+as=sparse(jj,ones(size(jj,1),1));
+ast=tril(as+abs(as'-as));
+[jj,v,mn]=spget(ast);
+n=size(xnew,2);
+g=make_graph('foo',0,n,jj(:,1)',jj(:,2)');
+g('node_x')=300*xnew;
+g('node_y')=300*ynew;
+g('default_node_diam')=10;
+show_graph(g)
+ ans  =
+    0.  
+// REGULAR CASE !!! NEEDS PREVIOUS CASES FOR x,y,front
+xx=0.1*[1:20];
+yy=xx.*.ones(1,20);
+zz= ones(1,20).*.xx;
+x3=yy;y3=zz;
+wai=((x3-1).*(x3-1)+(y3-1).*(y3-1));
+ii=find(wai >= .94);
+x3(ii)=[];y3(ii)=[];
+wai=((x3-0.5).*(x3-0.5)+(y3-1).*(y3-1));
+ii=find(wai <= 0.055);
+x3(ii)=[];y3(ii)=[];
+wai=((x3-1.3).*(x3-1.3)+(y3-1).*(y3-1));
+ii=find(wai <= 0.21);
+x3(ii)=[];y3(ii)=[];
+xnew=[x x3];ynew=[y y3];
+nu=mesh2d(xnew,ynew,front);
+nbt=size(nu,2);
+jj=[nu(1,:)' nu(2,:)';nu(2,:)' nu(3,:)';nu(3,:)' nu(1,:)'];
+as=sparse(jj,ones(size(jj,1),1));
+ast=tril(as+abs(as'-as));
+[jj,v,mn]=spget(ast);
+n=size(xnew,2);
+g=make_graph('foo',0,n,jj(:,1)',jj(:,2)');
+g('node_x')=300*xnew;
+g('node_y')=300*ynew;
+g('default_node_diam')=3;
+show_graph(g)
+ ans  =
+    0.  
+//An example with a random set of points
+function []=test(X,Y)
+  Tr=mesh2d(X,Y);
+  plot2d(X,Y,[-1,-2,3]);
+  [m,n]=size(Tr);
+  xpols= matrix(X(Tr),m,n);
+  ypols= matrix(Y(Tr),m,n);
+  xset("colormap",rand(2*n,3));
+  xfpolys(xpols,ypols,[n/4:n/4+n-1]);
+endfunction
+N=1000;xbasc();X=rand(1,N); Y=rand(1,N);
+xset("wdim",700,700);
+test(X,Y);
+delete(scf());
index 6775c92..8200b89 100644 (file)
@@ -106,5 +106,5 @@ endfunction
 N=1000;xbasc();X=rand(1,N); Y=rand(1,N);
 xset("wdim",700,700);
 test(X,Y);
+delete(scf()); 
 
diff --git a/scilab/modules/metanet/tests/unit_tests/min_lcost_cflow.dia.ref b/scilab/modules/metanet/tests/unit_tests/min_lcost_cflow.dia.ref
new file mode 100644 (file)
index 0000000..d6849fa
--- /dev/null
@@ -0,0 +1,33 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for min_lcost_cflow function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10];
+he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1];
+g=make_graph('foo',1,15,ta,he);
+g('node_x')=[194 191 106 194 296 305 305 418 422 432 552 550 549 416 548];
+g('node_y')=[56 181 276 278 276 103 174 281 177 86 175 90 290 397 399];
+show_graph(g);
+g1=g; ma=arc_number(g1); n=g1('node_number');
+g1('edge_min_cap')=0*ones(1,ma);
+rand('uniform');
+g1('edge_max_cap')=round(20*rand(1,ma))+ones(1,ma);
+g1('edge_cost')=10*rand(1,ma)+ones(1,ma);
+source=15; sink=1; cv=5;
+[c,phi,v]=min_lcost_cflow(source,sink,cv,g1);
+nodetype=0*ones(1,n); nodetype(source)=2; nodetype(sink)=1;
+g1('node_type')=nodetype;
+ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
+g1('edge_color')=edgecolor;
+edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
+nodecolor=0*ones(1,n); nodecolor(source)=11; nodecolor(sink)=11;
+g1('node_color')=nodecolor;
+g1('edge_font_size')=edgefontsize;
+g1('edge_label')=string(phi);
+show_graph(g1);
diff --git a/scilab/modules/metanet/tests/unit_tests/min_lcost_flow1.dia.ref b/scilab/modules/metanet/tests/unit_tests/min_lcost_flow1.dia.ref
new file mode 100644 (file)
index 0000000..2c9da66
--- /dev/null
@@ -0,0 +1,31 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for min_lcost_flow1 function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10 1 8];
+he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1 12 14];
+g=make_graph('foo',1,15,ta,he);
+g('node_x')=[194 191 106 194 296 305 305 418 422 432 552 550 549 416 548];
+g('node_y')=[56 221 316 318 316 143 214 321 217 126 215 80 330 437 439];
+show_graph(g);
+g1=g;ma=arc_number(g1);
+rand('uniform');
+while %T then
+  g1('edge_min_cap')=round(20*rand(1,ma));
+  g1('edge_max_cap')=round(20*rand(1,ma))+g1('edge_min_cap')+33*ones(1,ma);
+  g1('edge_cost')=round(10*rand(1,ma))+ones(1,ma);
+  [c,phi,flag]=min_lcost_flow1(g1);
+  if flag==1 then break; end;
+end;
+ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
+g1('edge_color')=edgecolor;
+edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
+g1('edge_font_size')=edgefontsize;
+g1('edge_label')=string(phi);
+show_graph(g1);
diff --git a/scilab/modules/metanet/tests/unit_tests/min_qcost_flow.dia.ref b/scilab/modules/metanet/tests/unit_tests/min_qcost_flow.dia.ref
new file mode 100644 (file)
index 0000000..92fbbeb
--- /dev/null
@@ -0,0 +1,32 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for min_qcost_flow function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10 1 8];
+he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1 12 14];
+g=make_graph('foo',1,15,ta,he);
+g('node_x')=[194 191 106 194 296 305 305 418 422 432 552 550 549 416 548];
+g('node_y')=[56 221 316 318 316 143 214 321 217 126 215 80 330 437 439];
+show_graph(g);
+g1=g; ma=arc_number(g1);
+rand('uniform');
+while %T then
+  g1('edge_min_cap')=round(5*rand(1,ma));
+  g1('edge_max_cap')=round(20*rand(1,ma))+30*ones(1,ma);
+  g1('edge_q_orig')=0*ones(1,ma);
+  g1('edge_q_weight')=ones(1,ma);
+  [c,phi,flag]=min_qcost_flow(0.001,g1);
+ if flag==1 then break; end;
+end;
+ii=find(phi<>0); edgecolor=phi; edgecolor(ii)=11*ones(ii);
+g1('edge_color')=edgecolor;
+edgefontsize=8*ones(1,ma); edgefontsize(ii)=18*ones(ii);
+g1('edge_font_size')=edgefontsize;
+g1('edge_label')=string(phi);
+show_graph(g1);
diff --git a/scilab/modules/metanet/tests/unit_tests/min_weight_tree.dia.ref b/scilab/modules/metanet/tests/unit_tests/min_weight_tree.dia.ref
new file mode 100644 (file)
index 0000000..d91c66e
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for min_weight_tree function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 15 12 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+show_graph(g);
+t=min_weight_tree(1,g);
+g1=g; ma=arc_number(g1); n=g1('node_number');
+nodetype=0*ones(1,n); nodetype(1)=2; g1('node_type')=nodetype;
+edgecolor=1*ones(1,ma); edgecolor(t)=11*ones(t); g1('edge_color')=edgecolor;
+edgewidth=1*ones(1,ma); edgewidth(t)=4*ones(t); g1('edge_width')=edgewidth;
+show_graph(g1);
index fe3b0db..7d60c9a 100644 (file)
@@ -5,7 +5,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+// <-- INTERACTIVE TEST -->
 // <-- TEST WITH GRAPHIC -->
 
 // unit tests for plot_graphbug function
diff --git a/scilab/modules/metanet/tests/unit_tests/salesman.dia.ref b/scilab/modules/metanet/tests/unit_tests/salesman.dia.ref
new file mode 100644 (file)
index 0000000..b76861f
--- /dev/null
@@ -0,0 +1,27 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for salesman function
+// =============================================================================
+ta=[2  1 3 2 2 4 4 5 6 7 8 8 9 10 10 10 10 11 12 13 13 14 15 16 16 17 17];
+he=[1 10 2 5 7 3 2 4 5 8 6 9 7 7 11 13 15 12 13  9 14 11 16 1 17 14 15];
+g=make_graph('foo',0,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g('node_diam')=[1:(g('node_number'))]+20;
+show_graph(g);
+g1=make_graph('foo1',1,17,[ta he],[he ta]);
+g1('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g1('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g1('node_diam')=[1:(g1('node_number'))]+20;
+m=arc_number(g1);
+g1('edge_length')=5+round(30*rand(1,m));
+cir = salesman(g1);
+ii=find(cir > edge_number(g));
+if(ii <> []) then cir(ii)=cir(ii)-edge_number(g);end;
+show_arcs(cir);
diff --git a/scilab/modules/metanet/tests/unit_tests/shortest_path.dia.ref b/scilab/modules/metanet/tests/unit_tests/shortest_path.dia.ref
new file mode 100644 (file)
index 0000000..83233df
--- /dev/null
@@ -0,0 +1,26 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for shortest_path function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 4 5 6 6 6 7 7 7 8 9 10 12 12 13 13 13 14 15 14 9 11 10];
+he=[2 6 3 4 5 1 3 5 1 7 10 11 5 8 9 5 8 11 10 11 9 11 15 13 14 4 6 9 1];
+g=make_graph('foo',1,15,ta,he);
+g('node_x')=[194 191 106 194 296 305 305 418 422 432 552 550 549 416 548];
+g('node_y')=[56 181 276 278 276 103 174 281 177 86 175 90 290 397 399];
+show_graph(g);
+g1=g;ma=prod(size(g1('head')));
+rand('uniform');
+g1('edge_length')=int(20*rand(1,ma));
+[p,lp]=shortest_path(13,1,g1,'length');
+g1('edge_name')=string(g1('edge_length'));
+edgecolor=ones(1:ma);edgecolor(p)=11*ones(p);
+g1('edge_color')=edgecolor;
+edgefontsize=12*ones(1,ma);edgefontsize(p)=18*ones(p);
+g1('edge_font_size')=edgefontsize;
+show_graph(g1);
diff --git a/scilab/modules/metanet/tests/unit_tests/split_edge.dia.ref b/scilab/modules/metanet/tests/unit_tests/split_edge.dia.ref
new file mode 100644 (file)
index 0000000..a1039e0
--- /dev/null
@@ -0,0 +1,18 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for split_edge function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 13 15 12 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+show_graph(g);
+gt=split_edge(1,2,g);
+show_graph(gt,'new');
diff --git a/scilab/modules/metanet/tests/unit_tests/supernodebug.dia.ref b/scilab/modules/metanet/tests/unit_tests/supernodebug.dia.ref
new file mode 100644 (file)
index 0000000..7eee2ba
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+// Copyright (C) ????-2008 - INRIA - Claude GOMEZ <claude.gomez@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- TEST WITH GRAPHIC -->
+// unit tests for supernodebug function
+// =============================================================================
+ta=[1 1 2 2 2 3 4 5 5 7 8 8 9 10 10 10 10 10 11 12 13 13 13 14 15 16 16 17 17];
+he=[2 10 3 5 7 4 2 4 6 8 6 9 7 7 11 13 13 15 12 13 9 10 14 11 16 1 17 14 15];
+g=make_graph('foo',1,17,ta,he);
+g('node_x')=[283 163 63 57 164 164 273 271 339 384 504 513 439 623 631 757 642];
+g('node_y')=[59 133 223 318 227 319 221 324 432 141 209 319 428 443 187 151 301];
+g('edge_color')=modulo([1:(edge_number(g))],15)+1;
+g('node_diam')=[1:(g('node_number'))]+20;
+show_graph(g);
+v=[7 10 13 9];
+show_nodes(v);
+g1=supernode(v,g);
+show_graph(g1,'new');
index e47f30a..f7f9865 100644 (file)
 //
 //    Also occur in other OS's.
 
-my_current_direcory = pwd();
-
+my_current_directory = pwd();
 cd(TMPDIR);
-mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce')
+cd('..');
+TMP_directory = pwd();
+mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce');
 
 mputl([
 '#include ""mex.h""'
@@ -34,14 +35,14 @@ mputl([
 '}'
 ],'mexfunction16.c');
 
-exec(TMPDIR+'/builder.sce');
-exec(TMPDIR+'/loader.sce');
+exec('builder.sce');
+exec('loader.sce');
 
 diary('bug614.dia')
 mexf16(rand(2,3,2))
 diary(0)
 
 dia = mgetl('bug614.dia');
-cd(my_current_direcory)
+cd(my_current_directory);
 
 if find(dia == "2 3 2") == [] then pause,end
diff --git a/scilab/modules/mexlib/tests/nonreg_tests/bug_614.win.dia.ref b/scilab/modules/mexlib/tests/nonreg_tests/bug_614.win.dia.ref
new file mode 100644 (file)
index 0000000..dabbfe2
--- /dev/null
@@ -0,0 +1,41 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2006-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- Non-regression test for bug 614 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=614
+//
+// <-- Short Description -->
+//    mxGetDimensions() from mex.h and mexlib.c do not work
+//    properly. The reason is that it returns a pointer to int
+//    like Matlab, but in fact, the dimensions in scilab are in
+//    double format.
+//
+//    Also occur in other OS's.
+my_current_directory = pwd();
+cd(TMPDIR);
+cd('..');
+TMP_directory = pwd();
+mputl('ilib_mex_build(''libmex'',[''mexf16'',''mexfunction16'',''cmex''],[],[],''Makelib'','''','''','''')','builder.sce');
+mputl([
+'#include ""mex.h""'
+'void mexFunction(nlhs, plhs, nrhs, prhs)'
+'     int nlhs, nrhs;'
+'     mxArray *plhs[]; mxArray *prhs[];'
+'{'
+'  int *dims = mxGetDimensions(prhs[0]);'
+'  sciprint(""%d %d %d\n"",dims[0],dims[1],dims[2]);'
+'}'
+],'mexfunction16.c');
+   Generate a gateway file
+   Generate a loader file
+   Generate a Makefile: Makelib
+   Running the makefile
+   Building shared library (be patient)
+Shared archive loaded.
+Link done.
+diary('bug614.dia')
diff --git a/scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.dia.ref b/scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.dia.ref
deleted file mode 100644 (file)
index 2f51b7b..0000000
+++ /dev/null
@@ -1,124 +0,0 @@
-// ============================================================
-// Allan cornet 2005
-// Modified by Pierre MARECHAL
-// Scilab team
-// Copyright INRIA
-//
-// Test file association for scicos ( cos, cosf )
-// ============================================================
-global LANGUAGE;
-// ============================================================
-v=getversion('scilab');
-if (v(4)<>0) then
- VERSTRING='Scilab '+string(v(1))+'.'+string(v(2))+'.'+string(v(3))+'.'+string(v(4));
-else
- if (v(3)<>0) then
-       VERSTRING='Scilab '+string(v(1))+'.'+string(v(2))+'.'+string(v(3));
- else
-       VERSTRING='Scilab '+string(v(1))+'.'+string(v(2));
- end
-end
-// ============================================================
-function [PathOut,OptionsOut]=GetPathAndOptionsInThisString(StringIn)
-       IndexGuillemets=strindex(StringIn,'""');
-       PathOut=part(StringIn,[IndexGuillemets(1)+1:IndexGuillemets(2)-1]);
-       PathOut=convstr(getlongpathname(PathOut),'u');
-       OptionsOut=part(StringIn,[IndexGuillemets(2):IndexGuillemets(4)]);
-       clear IndexGuillemets;
-endfunction;
-PATHREF=convstr(getlongpathname(strsubst(SCI,'/','\'))+'\bin\wscilex.exe','u');
-NBRTESTOK=0;
-// ============================================================
-if (LANGUAGE=='fr') then
-       SCICOS1DIA=winqueryreg('HKEY_CLASSES_ROOT','COS_scilab_file\shell\Executer avec '+VERSTRING+'\command');
-else
-       SCICOS1DIA=winqueryreg('HKEY_CLASSES_ROOT','COS_scilab_file\shell\Run with '+VERSTRING+'\command');
-end
-[PATHSCICOS1DIA,OPTIONSSCICOS1DIA]=GetPathAndOptionsInThisString(SCICOS1DIA);
-OPTIONSSCICOS1REF='""'+' -X ""%1""';
-if ( (PATHSCICOS1DIA==PATHREF) & (OPTIONSSCICOS1DIA==OPTIONSSCICOS1REF) ) then
-       disp('cos execute OK');
- cos execute OK   
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cos execute NOK');
-       pause;
-end;
-clear SCICOS1DIA PATHSCICOS1DIA OPTIONSSCICOS1DIA OPTIONSSCICOS1REF;
-// ============================================================
-SCICOS2DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\open\command');
-[PATHSCICOS2DIA,OPTIONSSCICOS2DIA]=GetPathAndOptionsInThisString(SCICOS2DIA);
-OPTIONSSCICOS2REF='""'+' -O ""%1""';
-if ( (PATHSCICOS2DIA==PATHREF) & (OPTIONSSCICOS2DIA==OPTIONSSCICOS2REF) ) then
-       disp('cosf open OK');
- cosf open OK   
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cosf open NOK');
-       pause;
-end;
-clear SCICOS2DIA PATHSCICOS2DIA OPTIONSSCICOS2DIA OPTIONSSCICOS2REF;
-// ============================================================
-if (LANGUAGE=='fr') then
-       SCICOS3DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\Executer avec '+VERSTRING+'\command');
-else
-       SCICOS3DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\Run with '+VERSTRING+'\command');
-end
-[PATHSCICOS3DIA,OPTIONSSCICOS3DIA]=GetPathAndOptionsInThisString(SCICOS3DIA);
-OPTIONSSCICOS3REF='""'+' -X ""%1""';
-if ( (PATHSCICOS3DIA==PATHREF) & (OPTIONSSCICOS3DIA==OPTIONSSCICOS3REF) ) then
-       disp('cosf execute OK');
- cosf execute OK   
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cosf execute NOK');
-       pause;
-end;
-clear SCICOS3DIA PATHSCICOS3DIA OPTIONSSCICOS3DIA OPTIONSSCICOS3REF;
index 3b8a11d..800556b 100644 (file)
@@ -5,82 +5,12 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
-// ============================================================
-// Test file association for scicos ( cos, cosf )
-// ============================================================
-global LANGUAGE;
-// ============================================================
-v=getversion('scilab');
-
-if (v(4)<>0) then
- VERSTRING='Scilab '+string(v(1))+'.'+string(v(2))+'.'+string(v(3))+'.'+string(v(4));
-else
- if (v(3)<>0) then
-       VERSTRING='Scilab '+string(v(1))+'.'+string(v(2))+'.'+string(v(3));
- else
-       VERSTRING='Scilab '+string(v(1))+'.'+string(v(2));
- end
-end
-// ============================================================
-
-function [PathOut,OptionsOut]=GetPathAndOptionsInThisString(StringIn)
-       IndexGuillemets=strindex(StringIn,'""');
-       PathOut=part(StringIn,[IndexGuillemets(1)+1:IndexGuillemets(2)-1]); 
-       PathOut=convstr(getlongpathname(PathOut),'u');
-       OptionsOut=part(StringIn,[IndexGuillemets(2):IndexGuillemets(4)]); 
-       clear IndexGuillemets;
-endfunction;
-
-PATHREF=convstr(getlongpathname(strsubst(SCI,'/','\'))+'\bin\wscilex.exe','u');
-NBRTESTOK=0;
-
-// ============================================================
-
-if (LANGUAGE=='fr') then
-       SCICOS1DIA=winqueryreg('HKEY_CLASSES_ROOT','COS_scilab_file\shell\Executer avec '+VERSTRING+'\command');
-else
-       SCICOS1DIA=winqueryreg('HKEY_CLASSES_ROOT','COS_scilab_file\shell\Run with '+VERSTRING+'\command');
-end
-[PATHSCICOS1DIA,OPTIONSSCICOS1DIA]=GetPathAndOptionsInThisString(SCICOS1DIA);
-OPTIONSSCICOS1REF='""'+' -X ""%1""'; 
-if ( (PATHSCICOS1DIA==PATHREF) & (OPTIONSSCICOS1DIA==OPTIONSSCICOS1REF) ) then
-       disp('cos execute OK');
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cos execute NOK');
-       pause;
-end;
-clear SCICOS1DIA PATHSCICOS1DIA OPTIONSSCICOS1DIA OPTIONSSCICOS1REF;
-
-// ============================================================
-
-SCICOS2DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\open\command');
-[PATHSCICOS2DIA,OPTIONSSCICOS2DIA]=GetPathAndOptionsInThisString(SCICOS2DIA);
-OPTIONSSCICOS2REF='""'+' -O ""%1""'; 
-if ( (PATHSCICOS2DIA==PATHREF) & (OPTIONSSCICOS2DIA==OPTIONSSCICOS2REF) ) then
-       disp('cosf open OK');
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cosf open NOK');
-       pause;
-end;
-clear SCICOS2DIA PATHSCICOS2DIA OPTIONSSCICOS2DIA OPTIONSSCICOS2REF;
-
-// ============================================================
-
-if (LANGUAGE=='fr') then
-       SCICOS3DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\Executer avec '+VERSTRING+'\command');
-else
-       SCICOS3DIA=winqueryreg('HKEY_CLASSES_ROOT','COSF_scilab_file\shell\Run with '+VERSTRING+'\command');
-end  
-[PATHSCICOS3DIA,OPTIONSSCICOS3DIA]=GetPathAndOptionsInThisString(SCICOS3DIA);
-OPTIONSSCICOS3REF='""'+' -X ""%1""'; 
-if ( (PATHSCICOS3DIA==PATHREF) & (OPTIONSSCICOS3DIA==OPTIONSSCICOS3REF) ) then
-       disp('cosf execute OK');
-       NBRTESTOK=NBRTESTOK+1;
-else
-       disp('cosf execute NOK');
-       pause;
-end;
-clear SCICOS3DIA PATHSCICOS3DIA OPTIONSSCICOS3DIA OPTIONSSCICOS3REF;
+if MSDOS then
+  
+  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
+  if ierr <> 0 then pause,end
+  
+  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
+  if ierr <> 0 then pause,end
+  
+end
\ No newline at end of file
diff --git a/scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.win.dia.ref b/scilab/modules/scicos/tests/unit_tests/scicos_filesassociation.win.dia.ref
new file mode 100644 (file)
index 0000000..ab093d1
--- /dev/null
@@ -0,0 +1,13 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+if MSDOS then
+  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cos'')','errcatch');
+  if ierr <> 0 then bugmes();quit;end
+  ierr = execstr('res = winqueryreg(''HKEY_CLASSES_ROOT'',''Scilab5.cosf'')','errcatch');
+  if ierr <> 0 then bugmes();quit;end
+end
index 84dcbd5..84035ff 100644 (file)
@@ -1,20 +1,18 @@
-// <-- TEST WITH GRAPHIC -->
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 // =============================================================================
 // Tests for pca function
-// Scilab Team
-// Copyright INRIA
 // =============================================================================
 if execstr('pca()','errcatch')==0 then bugmes();quit;end
 // =============================================================================
 a=rand(100,10,'n');
 [r1,r2,r3] = pca(a);
 // =============================================================================
-[ra,rb,rc] = pca(a, [1 2]);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then bugmes();quit;end
-// =============================================================================
-[ra,rb,rc] = pca(a, [1 2],%t);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then bugmes();quit;end
-// =============================================================================
-[ra,rb,rc] = pca(a, [1 2],%f);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc) ) then bugmes();quit;end
+if size(r1) <> [10 1] then bugmes();quit;end
+if size(r2) <> [10 10] then bugmes();quit;end
+if size(r3) <> [100 10] then bugmes();quit;end
 // =============================================================================
index 096a0fa..bb5a8e7 100644 (file)
@@ -5,7 +5,6 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
-// <-- TEST WITH GRAPHIC -->
 // =============================================================================
 // Tests for pca function
 // =============================================================================
@@ -14,12 +13,7 @@ if execstr('pca()','errcatch')==0 then pause,end
 a=rand(100,10,'n');
 [r1,r2,r3] = pca(a);
 // =============================================================================
-[ra,rb,rc] = pca(a, [1 2]);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end
-// =============================================================================
-[ra,rb,rc] = pca(a, [1 2],%t);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc)) then pause,end
-// =============================================================================
-[ra,rb,rc] = pca(a, [1 2],%f);
-if ( or(r1 <> ra) | or(r2 <> rb) | or(r3 <> rc) ) then pause,end
-// =============================================================================
+if size(r1) <> [10 1] then pause,end
+if size(r2) <> [10 10] then pause,end
+if size(r3) <> [100 10] then pause,end
+// =============================================================================
\ No newline at end of file
index cc38839..8291985 100644 (file)
@@ -1,3 +1,10 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2005-2008 - INRIA - Allan CORNET <allan.cornet@inria.fr>
+// Copyright (C) 2005-2008 - INRIA - Pierre MARECHAL <pierre .marechal@inria.fr>
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 // <-- Non-regression test for bug 790 -->
 //
 // <-- Bugzilla URL -->
@@ -6,11 +13,6 @@
 // <-- Short Description -->
 //    Scilab crashes when you enter findobj().
 //    I know that it is not usefull but, the bug exists.
-// Author : Allan CORNET
-// Copyright INRIA
- // Modified by Pierre MARECHAL
-// Copyright INRIA
-// Date : 23 Mar 2005
-if execstr('findobj() == []','errcatch') <> 77 then bugmes();quit;end
-if execstr('findobj(''test'') == []','errcatch') <> 77 then bugmes();quit;end
+if execstr('findobj() == []','errcatch') <> 4 then bugmes();quit;end
+if execstr('findobj(''test'') == []','errcatch') <> 0 then bugmes();quit;end
 if execstr('findobj(''Param1'',''Param2'') == []','errcatch') <> 0 then bugmes();quit;end
index 883c35c..4e8e712 100644 (file)
@@ -15,6 +15,6 @@
 //    Scilab crashes when you enter findobj().
 //    I know that it is not usefull but, the bug exists.
 
-if execstr('findobj() == []','errcatch') <> 77 then pause,end
-if execstr('findobj(''test'') == []','errcatch') <> 77 then pause,end
+if execstr('findobj() == []','errcatch') <> 4 then pause,end
+if execstr('findobj(''test'') == []','errcatch') <> 0 then pause,end
 if execstr('findobj(''Param1'',''Param2'') == []','errcatch') <> 0 then pause,end
diff --git a/scilab/modules/windows_tools/tests/unit_tests/findfileassociation.dia.ref b/scilab/modules/windows_tools/tests/unit_tests/findfileassociation.dia.ref
new file mode 100644 (file)
index 0000000..c63e4bd
--- /dev/null
@@ -0,0 +1,14 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// Please be sure that current scilab is associated with .sce & .sci extensions
+//
+if MSDOS then
+  r = findfileassociation('.sce');
+  if r == [] then bugmes();quit;end
+  r = findfileassociation('.sci');
+  if r == [] then bugmes();quit;end
+end
index 3216539..1db2729 100644 (file)
@@ -1,6 +1,6 @@
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
+// Copyright (C) 2008 - DIGITEO - Allan CORNET
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
@@ -8,39 +8,9 @@
 // Please be sure that current scilab is associated with .sce & .sci extensions
 //
 if MSDOS then
-  fullscilabname = WSCI+filesep()+'wscilex.exe';
-  
   r = findfileassociation('.sce');
-  if r <> fullscilabname then pause,end
+  if r == [] then pause,end
   
   r = findfileassociation('.sci');
-  if r <> fullscilabname then pause,end
-  
-  r = findfileassociation('.tst');
-  if (r <> fullscilabname) & (r <> []) then pause,end
-  
-  r = findfileassociation('.dem');
-  if (r <> fullscilabname) &  (r <> []) then pause,end
-  
-  if with_module('metanet') then
-    r = findfileassociation('.graph');
-    if (r <> fullscilabname) &  (r <> []) then pause,end
-    
-    r = findfileassociation('.graphb');
-    if (r <> fullscilabname) &  (r <> []) then pause,end
-  end
-  
-  if with_module('scicos') then
-    r = findfileassociation('.cos');
-    if (r <> fullscilabname) &  (r <> []) then pause,end
-  
-    r = findfileassociation('.cosf');
-    if (r <> fullscilabname) &  (r <> []) then pause,end
-  end
-  
-  r = findfileassociation('.sav');
-  if (r <> fullscilabname) &  (r <> []) then pause,end
-  
-  r = findfileassociation('.bin');
-  if (r <> fullscilabname) &  (r <> []) then pause,end
+  if r == [] then pause,end
 end