36 |
;; provide an easy hook to tell if we are running with floats or not. |
;; provide an easy hook to tell if we are running with floats or not. |
37 |
;; define pi and e via math-lib calls. (much less prone to killer typos.) |
;; define pi and e via math-lib calls. (much less prone to killer typos.) |
38 |
(defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") |
(defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") |
39 |
(defconst e (exp 1) "The value of e (2.7182818...).") |
;; It's too inconvenient to make `e' a constant because it's used as |
40 |
|
;; a temporary variable all the time. |
41 |
|
(defvar e (exp 1) "The value of e (2.7182818...).") |
42 |
|
|
43 |
;; Careful when editing this file ... typos here will be hard to spot. |
;; Careful when editing this file ... typos here will be hard to spot. |
44 |
;; (defconst pi 3.14159265358979323846264338327 |
;; (defconst pi 3.14159265358979323846264338327 |