1function testc9 2%TESTC9 test complex extractTuples 3 4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved. 5% SPDX-License-Identifier: Apache-2.0 6 7seed = 1 ; 8for m = [1 5 10 100] 9 for n = [1 5 10 100] 10 for trial = 1:100 11 A = GB_mex_random (m, n, 10*(m+n), 1, seed) ; seed = seed + 1 ; 12 13 [I J X ] = find (A) ; 14 X = complex (X) ; 15 16 [I0 J0 X0] = GB_mex_extractTuples (A) ; 17 18 I1 = double (I0+1) ; 19 J1 = double (J0+1) ; 20 21 assert (isequal (I (:), I1 (:))) ; 22 assert (isequal (J (:), J1 (:))) ; 23 assert (isequal (X (:), X0 (:))) ; 24 25 end 26 end 27end 28 29fprintf ('testc9: all complex extractTuples tests passed\n') ; 30 31