1function gbtest20 2%GBTEST20 test bandwidth, isdiag, ceil, floor, round, fix 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: GPL-3.0-or-later 6 7rng ('default') ; 8for trial = 1:10 9 fprintf ('.') ; 10 for m = 0:10 11 for n = 0:10 12 A = 100 * sprandn (m, n, 0.5) ; 13 G = GrB (A) ; 14 [lo1, hi1] = bandwidth (A) ; 15 [lo2, hi2] = bandwidth (G) ; 16 assert (isequal (lo1, lo2)) ; 17 assert (isequal (hi1, hi2)) ; 18 d1 = isdiag (A) ; 19 d2 = isdiag (G) ; 20 assert (isequal (d1, d2)) ; 21 22 assert (gbtest_eq (sign (A), sign (G))) ; 23 assert (gbtest_eq (ceil (A), ceil (G))) ; 24 assert (gbtest_eq (floor (A), floor (G))) ; 25 assert (gbtest_eq (round (A), round (G))) ; 26 assert (gbtest_eq (fix (A), fix (G))) ; 27 end 28 end 29end 30 31fprintf ('\ngbtest20: all tests passed\n') ; 32 33