Mercurial > octave-nkf

diff src/ov-flt-cx-diag.cc @ 8398:d95282fa0579

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
allow element assignment to diagonal matrices
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 11 Dec 2008 11:04:00 +0100
parents ad896677a2e2
children 095ae5e0a831
line wrap: on
line diff
--- a/src/ov-flt-cx-diag.cc	Thu Dec 11 10:39:53 2008 +0100
+++ b/src/ov-flt-cx-diag.cc	Thu Dec 11 11:04:00 2008 +0100
@@ -194,3 +194,13 @@
 
   return true;
 }
+
+bool 
+octave_float_complex_diag_matrix::chk_valid_scalar (const octave_value& val, 
+                                                    FloatComplex& x) const
+{
+  bool retval = val.is_complex_scalar () || val.is_real_scalar ();
+  if (retval)
+    x = val.float_complex_value ();
+  return retval;
+}