Mercurial > octave-nkf

diff liboctave/base-qr.cc @ 9715:9f27172fbd1e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
auto-set MatrixType from certain functions
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 12 Oct 2009 14:23:20 +0200
parents 7918eb15040c
children 9a308e96194e
line wrap: on
line diff
--- a/liboctave/base-qr.cc	Mon Oct 12 11:50:12 2009 +0200
+++ b/liboctave/base-qr.cc	Mon Oct 12 14:23:20 2009 +0200
@@ -54,3 +54,19 @@
   return retval;
 }
 
+template <class qr_type>
+bool
+base_qr<qr_type>::regular (void) const
+{
+  octave_idx_type k = std::min (r.rows (), r.columns ());
+  bool retval = true;
+  for (octave_idx_type i = 0; i < k; i++)
+    if (r(i, i) == qr_elt_type ())
+      {
+        retval = false;
+        break;
+      }
+
+  return true;
+}
+