Mercurial > hg > octave-lyh

diff liboctave/dMatrix.cc @ 5943:c038c2947ee1
[project @ 2006-08-18 21:27:03 by jwe]
author: jwe
date: Fri, 18 Aug 2006 21:27:04 +0000
parents: 6b9cec830d72
children: cdef72fcd206
--- a/liboctave/dMatrix.cc
+++ b/liboctave/dMatrix.cc
@@ -2432,6 +2432,21 @@
 }
 
 bool
+Matrix::any_element_not_one_or_zero (void) const
+{
+  octave_idx_type nel = nelem ();
+
+  for (octave_idx_type i = 0; i < nel; i++)
+    {
+      double val = elem (i);
+      if (val != 0 && val != 1)
+	return true;
+    }
+
+  return false;
+}
+
+bool
 Matrix::all_elements_are_int_or_inf_or_nan (void) const
 {
   octave_idx_type nel = nelem ();