Mercurial > octave-nkf

diff src/ov-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 8dd69187c4a2
line wrap: on
line diff
--- a/src/ov-cx-diag.cc	Thu Dec 11 10:39:53 2008 +0100
+++ b/src/ov-cx-diag.cc	Thu Dec 11 11:04:00 2008 +0100
@@ -220,3 +220,12 @@
   return true;
 }
 
+bool 
+octave_complex_diag_matrix::chk_valid_scalar (const octave_value& val, 
+                                              Complex& x) const
+{
+  bool retval = val.is_complex_scalar () || val.is_real_scalar ();
+  if (retval)
+    x = val.complex_value ();
+  return retval;
+}