sparse: make tests pass
[scilab.git] / scilab / modules / sparse / tests / nonreg_tests / bug_11612.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2012 - Scilab Enterprises - Adeline CARNIS
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 // <-- Non-regression test for bug 11612 -->
9 //
10 // <-- Bugzilla URL -->
11 // http://bugzilla.scilab.org/show_bug.cgi?id=11612
12 //
13 // <-- Short Description -->
14 // index of the max value of a negative sparse was wrong
15 a = -1 * rand(3,2);
16 a(2) = 0;
17 A = sparse(a);
18 [m, i] = max(a);
19 [m1, i1] = max(A);
20 assert_checkequal(m1,m);
21 assert_checkequal(i1,i);
22 [m, i] = max(a');
23 [m1, i1] = max(A');
24 assert_checkequal(m1,m);
25 assert_checkequal(i1,i);
26 [m, i] = max(a(:));
27 [m1, i1] = max(A(:));
28 assert_checkequal(m1,m);
29 assert_checkequal(i1,i);
30 [m, i] = max(a(:)');
31 [m1, i1] = max(A(:)');
32 assert_checkequal(m1,m);
33 assert_checkequal(i1,i);
34 a = [-3 -4;0 -1;-5 -6];
35 A = sparse(a);
36 [m, i] = max(a);
37 [m1, i1] = max(A);
38 assert_checkequal(m1,m);
39 assert_checkequal(i1,i);
40 [m, i] = max(a');
41 [m1, i1] = max(A');
42 assert_checkequal(m1,m);
43 assert_checkequal(i1,i);
44 [m, i] = max(a(:));
45 [m1, i1] = max(A(:));
46 assert_checkequal(m1,m);
47 assert_checkequal(i1,i);
48 [m, i] = max(a(:)');
49 [m1, i1] = max(A(:)');
50 assert_checkequal(m1,m);
51 assert_checkequal(i1,i);
52 b = [-5 0;-1 -6];
53 B = sparse(b);
54 [m, i] = max(b);
55 [m1, i1] = max(B);
56 assert_checkequal(m1,m);
57 assert_checkequal(i1,i);
58 [m, i] = max(b');
59 [m1, i1] = max(B');
60 assert_checkequal(m1,m);
61 assert_checkequal(i1,i);
62 [m, i] = max(b(:));
63 [m1, i1] = max(B(:));
64 assert_checkequal(m1,m);
65 assert_checkequal(i1,i);
66 [m, i] = max(b(:)');
67 [m1, i1] = max(B(:)');
68 assert_checkequal(m1,m);
69 assert_checkequal(i1,i);
70 s = rand(3,2);
71 s(2) = 0;
72 S = sparse(s);
73 [m, i] = min(s);
74 [m1, i1] = min(S);
75 assert_checkequal(m1,m);
76 assert_checkequal(i1,i);
77 [m, i] = min(s');
78 [m1, i1] = min(S');
79 assert_checkequal(m1,m);
80 assert_checkequal(i1,i);
81 [m, i] = min(s(:));
82 [m1, i1] = min(S(:));
83 assert_checkequal(m1,m);
84 assert_checkequal(i1,i);
85 [m, i] = min(s(:)');
86 [m1, i1] = min(S(:)');
87 assert_checkequal(m1,m);
88 assert_checkequal(i1,i);
89 v = [1 4;7 6];
90 V = sparse(v);
91 [m, i] = max(v);
92 [m1, i1] = max(V);
93 assert_checkequal(m1,m);
94 assert_checkequal(i1,i);
95 [m, i] = max(v');
96 [m1, i1] = max(V');
97 assert_checkequal(m1,m);
98 assert_checkequal(i1,i);
99 [m, i] = max(v(:));
100 [m1, i1] = max(V(:));
101 assert_checkequal(m1,m);
102 assert_checkequal(i1,i);
103 [m, i] = max(v(:)');
104 [m1, i1] = max(V(:)');
105 assert_checkequal(m1,m);
106 assert_checkequal(i1,i);