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