1function gbtest3
2%GBTEST3 test dnn
3
4% SuiteSparse:GraphBLAS, Timothy A. Davis, (c) 2017-2021, All Rights Reserved.
5% SPDX-License-Identifier: GPL-3.0-or-later
6
7help GrB.dnn
8
9rng ('default') ;
10levels = 4 ;
11nfeatures = 6 ;
12nneurons = 16 ;
13
14for level = 1:levels
15    W {level} = sprand (nneurons, nneurons, 0.5) ; %#ok<*AGROW>
16    bias {level} = -0.3 * ones (1, nneurons) ;
17end
18
19Y0 = sprandn (nfeatures, nneurons, 0.5) ;
20
21Y1 = dnn_matlab (W, bias, Y0) ;
22
23[W, bias, Y0] = dnn_mat2gb (W, bias, Y0) ;
24Y2 = GrB.dnn (W, bias, Y0) ;
25
26err = norm (Y1-Y2,1) ;
27assert (err < 1e-5) ;
28
29fprintf ('gbtest3: all tests passed\n') ;
30
31