1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2019 - Stéphane MOTTELET
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7//
8// <-- CLI SHELL MODE -->
9// <-- NO CHECK REF -->
10
11
12a = testmatrix('magi',4);
13a(a>8) = 0;
14as = sparse(a);
15ab = a > 0;
16asb = sparse(ab);
17ap = a*(1+%s)
18
19// double (sparse and full)
20assert_checkequal(nnz(as),8)
21assert_checkequal(nnz(a),8)
22
23// bool (sparse and full)
24assert_checkequal(nnz(asb),8)
25assert_checkequal(nnz(ab),8)
26
27// int
28assert_checkequal(nnz(uint8(a)),8)
29assert_checkequal(nnz(int8(a)),8)
30assert_checkequal(nnz(uint16(a)),8)
31assert_checkequal(nnz(int16(a)),8)
32assert_checkequal(nnz(uint32(a)),8)
33assert_checkequal(nnz(int32(a)),8)
34assert_checkequal(nnz(uint64(a)),8)
35assert_checkequal(nnz(int64(a)),8)
36
37// polynomial (via overloading)
38assert_checkequal(nnz(ap),8)
39
40
41