|
5164
|
1 ## Copyright (C) 2004 Paul Kienzle |
|
|
2 ## |
|
|
3 ## This program is free software and is in the public domain |
|
|
4 |
|
|
5 ## -*- texinfo -*- |
|
|
6 ## @deftypefn {Function File} {} nonzeros (@var{s}) |
|
|
7 ## Returns a vector of the non-zero values of the sparse matrix @var{s}. |
|
|
8 ## @end deftypefn |
|
|
9 |
|
6498
|
10 function t = nonzeros (s) |
|
|
11 if (issparse (s)) |
|
|
12 [i, j, t] = spfind (s); |
|
5164
|
13 else |
|
6498
|
14 [i, j, t] = find (s); |
|
5164
|
15 endif |
|
|
16 endfunction |
|
|
17 |
|
|
18 %!assert(nonzeros([1,2;3,0]),[1;3;2]) |
|
|
19 %!assert(nonzeros(sparse([1,2;3,0])),[1;3;2]) |
