Mercurial > hg > octave-lyh
changeset 2144:d5af81681fda
[project @ 1996-05-13 05:41:36 by jwe]
author | jwe |
---|---|
date | Mon, 13 May 1996 05:44:17 +0000 |
parents | fe675f6fa03a |
children | 4d13a9fafd44 |
files | src/variables.cc |
diffstat | 1 files changed, 15 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/variables.cc +++ b/src/variables.cc @@ -25,6 +25,7 @@ #endif #include <cfloat> +#include <cmath> #include <cstdio> #include <cstring> @@ -1669,7 +1670,13 @@ static void install_builtin_variables_4 (void) { - DEFCONST (e, exp (1.0), 0, 0, +#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)"); DEFVAR (empty_list_elements_ok, "warn", 0, empty_list_elements_ok, @@ -1728,7 +1735,13 @@ DEFVAR (output_precision, 5.0, 0, set_output_precision, "number of significant figures to display for numeric output"); - DEFCONST (pi, 4.0 * atan (1.0), 0, 0, +#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"); DEFVAR (prefer_column_vectors, 1.0, 0, prefer_column_vectors,