Mercurial > emacs
changeset 81545:aa48b88c6f48
(math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const): New
variables to use in caches.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Fri, 22 Jun 2007 06:00:39 +0000 |
| parents | 8fd0e7398c96 |
| children | 955be775b671 |
| files | lisp/calc/calc-ext.el |
| diffstat | 1 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-ext.el Fri Jun 22 05:52:29 2007 +0000 +++ b/lisp/calc/calc-ext.el Fri Jun 22 06:00:39 2007 +0000 @@ -1925,7 +1925,10 @@ (put 'math-defcache 'lisp-indent-hook 2) ;;; Betcha didn't know that pi = 16 atan(1/5) - 4 atan(1/239). [F] [Public] -(math-defcache math-pi (math-read-number-simple "3.141592653589793238463") +(defconst math-approx-pi + (eval-when-compile + (math-read-number-simple "3.141592653589793238463"))) +(math-defcache math-pi math-approx-pi (math-add-float (math-mul-float '(float 16 0) (math-arctan-raw '(float 2 -1))) (math-mul-float '(float -4 0) @@ -1956,8 +1959,10 @@ (math-defcache math-sqrt-two-pi nil (math-sqrt-float (math-two-pi))) - -(math-defcache math-sqrt-e (math-read-number-simple "1.648721270700128146849") +(defconst math-approx-sqrt-e + (eval-when-compile (math-read-number-simple "1.648721270700128146849"))) + +(math-defcache math-sqrt-e math-approx-sqrt-e (math-add-float '(float 1 0) (math-exp-minus-1-raw '(float 5 -1)))) (math-defcache math-e nil @@ -1967,9 +1972,13 @@ (math-mul-float (math-add-float (math-sqrt-raw '(float 5 0)) '(float 1 0)) '(float 5 -1))) +(defconst math-approx-gamma-const + (eval-when-compile + (math-read-number-simple + "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495"))) + (math-defcache math-gamma-const nil - (math-read-number-simple - "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495")) + math-approx-gamma-const) (defun math-half-circle (symb) (if (eq calc-angle-mode 'rad)