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
|
function test60
%TEST60 test min and max operators with NaNs
% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2022, All Rights Reserved.
% SPDX-License-Identifier: Apache-2.0
fprintf ('min\n') ;
for x = [3 nan inf]
for y = [3 nan inf -inf]
a = min (x, y);
c = min (x, y, 'includenan');
b = GB_mex_op ('min', x, y) ;
fprintf ('x: %4g y: %4g built-in(omit): %4g built-in(incl): %4g GrB %4g match: %d\n', ...
x, y, a, c, b, isequalwithequalnans (a,b)) ;
end
end
fprintf ('\nmax\n') ;
for x = [3 nan inf]
for y = [3 nan inf -inf]
a = max (x, y);
c = max (x, y, 'includenan');
b = GB_mex_op ('max', x, y) ;
fprintf ('x: %4g y: %4g built-in(omit): %4g built-in(incl): %4g GrB %4g match: %d\n', ...
x, y, a, c, b, isequalwithequalnans (a,b)) ;
end
end
fprintf ('\ntest60: all tests passed\n') ;
|
