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
39
40
41
42
|
function test76
%TEST76 test GxB_resize
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2020, All Rights Reserved.
% http://suitesparse.com See GraphBLAS/Doc/License.txt for license.
clear
rng ('default') ;
fprintf ('\n-------------- GrB_resize\n') ;
[~, ~, ~, types, ~, ~] = GB_spec_opsall ;
types = types.all ;
for k1 = 1:length(types)
type = types {k1} ;
fprintf ('\n%-14s ', type) ;
for nrows_old = [1 2 5 10]
for ncols_old = [1 2 5 10]
fprintf ('.') ;
for A_is_hyper = 0:1
for A_is_csc = 0:1
A = GB_spec_random (nrows_old, ncols_old, 0.5, 99, type, ...
A_is_hyper, A_is_csc) ;
for nrows_new = [1 2 5 10 ]
for ncols_new = [1 2 5 10]
C1 = GB_spec_resize (A, nrows_new, ncols_new) ;
C2 = GB_mex_resize (A, nrows_new, ncols_new) ;
GB_spec_compare (C1, C2, 0) ;
end
end
end
end
end
end
end
fprintf ('\ntest76: all tests passed\n') ;
|
