changeset 2184:dbbbb3559ee8

[project @ 1996-05-14 02:18:22 by jwe]
author jwe
date Tue, 14 May 1996 02:18:22 +0000
parents b5ab7f0efe5e
children cf64d11526be
files src/data.cc
diffstat 1 files changed, 59 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.cc	Tue May 14 02:18:22 1996 +0000
+++ b/src/data.cc	Tue May 14 02:18:22 1996 +0000
@@ -32,8 +32,12 @@
 #include <config.h>
 #endif
 
+#include <cfloat>
+#include <cmath>
+
 #include <string>
 
+#include "lo-ieee.h"
 #include "str-vec.h"
 
 #include "defun.h"
@@ -1090,6 +1094,61 @@
   return retval;
 }
 
+void
+symbols_of_data (void)
+{
+  DEFCONST (I, Complex (0.0, 1.0), 0, 0,
+    "sqrt (-1)");
+
+  DEFCONST (Inf, octave_Inf, 0, 0,
+    "infinity");
+
+  DEFCONST (J, Complex (0.0, 1.0), 0, 0,
+    "sqrt (-1)");
+
+  DEFCONST (NaN, octave_NaN, 0, 0,
+    "not a number");
+
+#if defined (M_E)
+  double e_val = M_E;
+#else
+  double e_val = exp (1.0);
+#endif
+
+  DEFCONST (e, e_val, 0, 0,
+    "exp (1)");
+
+  DEFCONST (eps, DBL_EPSILON, 0, 0,
+    "machine precision");
+
+  DEFCONST (i, Complex (0.0, 1.0), 1, 0,
+    "sqrt (-1)");
+
+  DEFCONST (inf, octave_Inf, 0, 0,
+    "infinity");
+
+  DEFCONST (j, Complex (0.0, 1.0), 1, 0,
+    "sqrt (-1)");
+
+  DEFCONST (nan, octave_NaN, 0, 0,
+    "not a number");
+
+#if defined (M_PI)
+  double pi_val = M_PI;
+#else
+  double pi_val = 4.0 * atan (1.0);
+#endif
+
+  DEFCONST (pi, pi_val, 0, 0,
+    "ratio of the circumference of a circle to its diameter");
+
+  DEFCONST (realmax, DBL_MAX, 0, 0,
+    "realmax (): return largest representable floating point number");
+
+  DEFCONST (realmin, DBL_MIN, 0, 0,
+    "realmin (): return smallest representable floating point number");
+}
+
 /*
 ;;; Local Variables: ***
 ;;; mode: C++ ***