sparse: make tests pass
[scilab.git] / scilab / modules / sparse / tests / nonreg_tests / bug_2277.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2007-2008 - INRIA - Serge STEER <serge.steer@inria.fr>
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- CLI SHELL MODE -->
9
10 // <-- Non-regression test for bug 2277 -->
11 //
12 // <-- Bugzilla URL -->
13 // http://bugzilla.scilab.org/show_bug.cgi?id=2277
14 //
15 // <-- Short Description -->
16 //    Scilab has a bug with the SPARSE command. When the "values vector" in the
17 //    row/column representation is COMPLEX the routine fails to build the sparse
18 //    matrix correctly. This seems to occur always when the first AND third entry of
19 //    this vector are zero.
20 //    The other bug is that when other elements are zero (not the third, the fifth for
21 //    example) they are still stored in the sparse representation.
22 //    This is very problematic for people doing finite element calculations with scilab!
23
24 ij          = [1,3;1,7;3,3;4,4;5,3;6,10;7,1;7,9;8,10;9,6;9,7;9,9;10,10] ;
25 v           = [1 0 0 4:13]'*%i;
26 A           = sparse(ij,v,[10 10]);
27 [ij2,v2,mn] = spget(A);
28
29 if or(v2<>[1 4:13]'*%i) then pause,end
30
31 ij(2:3,:)   = [];
32 if or(ij<>ij2) then pause,end