Mercurial > hg > octave-lyh
diff src/data.cc @ 5602:dfa2da0563e5
[project @ 2006-01-31 03:43:40 by jwe]
author | jwe |
---|---|
date | Tue, 31 Jan 2006 03:43:41 +0000 |
parents | 667ad2becb63 |
children | 2857357f9d3c |
line wrap: on
line diff
--- a/src/data.cc +++ b/src/data.cc @@ -1077,6 +1077,23 @@ return retval; } +DEFUN (nnz, args, , + "-*- texinfo -*-\n\ +@deftypefn {Loadable Function} {@var{scalar} =} nnz (@var{a})\n\ +returns number of non zero elements in @var{a}.\n\ +@seealso{sparse}\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).nnz (); + else + print_usage ("nnz"); + + return retval; +} + DEFUN (sum, args, , "-*- texinfo -*-\n\ @deftypefn {Built-in Function} {} sum (@var{x}, @var{dim})\n\