Mercurial > octave

diff src/ov-intx.h @ 4963:573d23f9c9cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-09-03 15:43:29 by jwe]
author jwe
date Fri, 03 Sep 2004 15:43:30 +0000
parents 44046bbaa52c
children 269c3d6c0569
line wrap: on
line diff
--- a/src/ov-intx.h	Thu Sep 02 16:56:17 2004 +0000
+++ b/src/ov-intx.h	Fri Sep 03 15:43:30 2004 +0000
@@ -68,7 +68,17 @@
       NDArray retval (matrix.dims ()); 
       int nel = matrix.numel ();
       for (int i = 0; i < nel; i++)
-        retval (i) = double (matrix(i));
+        retval(i) = double (matrix(i));
+      return retval;
+    }
+
+  ComplexNDArray
+  complex_array_value (bool = false) const
+    { 
+      ComplexNDArray retval (matrix.dims ()); 
+      int nel = matrix.numel ();
+      for (int i = 0; i < nel; i++)
+        retval(i) = Complex (matrix(i));
       return retval;
     }
 
@@ -123,7 +133,15 @@
   array_value (bool = false) const
     { 
       NDArray retval (dim_vector (1,1)); 
-      retval (0) = double (scalar);
+      retval(0) = double (scalar);
+      return retval;
+    }
+
+  ComplexNDArray
+  complex_array_value (bool = false) const
+    { 
+      ComplexNDArray retval (dim_vector (1,1)); 
+      retval(0) = Complex (scalar);
       return retval;
     }