diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-22 06:12:35 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-06-22 06:12:35 +0000 |
| commit | 4603f755b424a4f6f484712949fdc80ff38cf035 (patch) | |
| tree | c9c0604be5c2408f765b6764b6f70c0ff75173f4 /lisp/calc/calc-math.el | |
| parent | f83b9601efcc329acc9267962023b2ad9f90919a (diff) | |
| download | emacs-4603f755b424a4f6f484712949fdc80ff38cf035.tar.gz | |
(math-approx-ln-10, math-approx-ln-2): New variables to use in caches.
Diffstat (limited to 'lisp/calc/calc-math.el')
| -rw-r--r-- | lisp/calc/calc-math.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index b6481d30b73..610ed304106 100644 --- a/lisp/calc/calc-math.el +++ b/lisp/calc/calc-math.el @@ -1717,10 +1717,18 @@ sum (math-lnp1-series nextsum (1+ n) nextx x)))) -(math-defcache math-ln-10 (float (bigpos 018 684 045 994 092 585 302 2) -21) +(defconst math-approx-ln-10 + (eval-when-compile + (math-read-number-simple "2.302585092994045684018"))) + +(math-defcache math-ln-10 math-approx-ln-10 (math-ln-raw-2 '(float 1 1))) -(math-defcache math-ln-2 (float (bigpos 417 309 945 559 180 147 693) -21) +(defconst math-approx-ln-2 + (eval-when-compile + (math-read-number-simple "0.693147180559945309417"))) + +(math-defcache math-ln-2 math-approx-ln-2 (math-ln-raw-3 (math-float '(frac 1 3)))) |