1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
function test13
%TEST13 test GrB_tranpsose
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
cinclass = 'int16' ;
A.matrix = 50 * sparse (rand (2)) ;
A.matrix (1,2) = 0 ;
A.class = 'logical' ;
Cin.matrix = 50 * sparse (rand (2)) ;
Cin.class = 'int16' ;
accum.opname = '' ;
accum.optype = 'logical'
C = GB_mex_transpose (Cin, [ ], accum, A, [ ]) ;
assert (GB_spok (C.matrix*1) == 1) ;
S = GB_spec_transpose (Cin, [ ], accum, A, [ ]) ;
assert (isequal (full (double (C.matrix)), double (S.matrix))) ;
A = GB_spec_matrix (A) ;
Cin = GB_spec_matrix (Cin) ;
Cmatrix = full (C.matrix) ;
Smatrix = full (S.matrix) ;
assert (isequal (C.class, cinclass)) ;
assert (isequal (C.class, S.class)) ;
if (~(isequalwithequalnans (full (double (C.matrix)), ...
double (S.matrix))))
assert (false)
end
fprintf ('\ntest13: all tests passed\n') ;
|
