Mercurial > octave

diff src/ov-complex.cc @ 4569:01e4957409a4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-30 05:48:17 by jwe]
author jwe
date Thu, 30 Oct 2003 05:48:17 +0000
parents ea1d3e1a4b1b
children d44675070f1a
line wrap: on
line diff
--- a/src/ov-complex.cc	Thu Oct 30 00:22:41 2003 +0000
+++ b/src/ov-complex.cc	Thu Oct 30 05:48:17 2003 +0000
@@ -113,6 +113,19 @@
   return retval;
 }
 
+NDArray
+octave_complex::array_value (bool force_conversion) const
+{
+  NDArray retval;
+
+  if (! force_conversion && Vwarn_imag_to_real)
+    gripe_implicit_conversion ("complex scalar", "real matrix");
+
+  retval = NDArray (dim_vector (1, 1), std::real (scalar));
+
+  return retval;
+}
+
 Complex
 octave_complex::complex_value (bool) const
 {
@@ -126,6 +139,12 @@
   return ComplexMatrix (1, 1, scalar);
 }
 
+ComplexNDArray
+octave_complex::complex_array_value (bool force_conversion) const
+{
+  return ComplexNDArray (dim_vector (1, 1), scalar);
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***