Mercurial > octave-nkf

diff src/data.cc @ 5602:dfa2da0563e5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Sat Jan 21 20:08:33 2006 +0000
+++ b/src/data.cc	Tue Jan 31 03:43:41 2006 +0000
@@ -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\