diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-07 23:57:23 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2007-07-07 23:57:23 +0000 |
| commit | fd8eab36a0573a5ccc2d0bd020703f0e3e79bbba (patch) | |
| tree | ed7b41620c6daa837d6468407abdff5b97c5aec6 /lisp/calc/calc-ext.el | |
| parent | 4b4b19bdd598a2ba991162829921bc2e7e8d5083 (diff) | |
| download | emacs-fd8eab36a0573a5ccc2d0bd020703f0e3e79bbba.tar.gz | |
(math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const):
Add docstrings.
Diffstat (limited to 'lisp/calc/calc-ext.el')
| -rw-r--r-- | lisp/calc/calc-ext.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el index 2816941f87a..65383df308c 100644 --- a/lisp/calc/calc-ext.el +++ b/lisp/calc/calc-ext.el @@ -1925,9 +1925,11 @@ calc-kill calc-kill-region calc-yank)))) (put 'math-defcache 'lisp-indent-hook 2) ;;; Betcha didn't know that pi = 16 atan(1/5) - 4 atan(1/239). [F] [Public] -(defconst math-approx-pi +(defconst math-approx-pi (eval-when-compile - (math-read-number-simple "3.141592653589793238463"))) + (math-read-number-simple "3.141592653589793238463")) + "An approximation for pi.") + (math-defcache math-pi math-approx-pi (math-add-float (math-mul-float '(float 16 0) (math-arctan-raw '(float 2 -1))) @@ -1960,7 +1962,8 @@ calc-kill calc-kill-region calc-yank)))) (math-sqrt-float (math-two-pi))) (defconst math-approx-sqrt-e - (eval-when-compile (math-read-number-simple "1.648721270700128146849"))) + (eval-when-compile (math-read-number-simple "1.648721270700128146849")) + "An approximation for sqrt(3).") (math-defcache math-sqrt-e math-approx-sqrt-e (math-add-float '(float 1 0) (math-exp-minus-1-raw '(float 5 -1)))) @@ -1975,7 +1978,8 @@ calc-kill calc-kill-region calc-yank)))) (defconst math-approx-gamma-const (eval-when-compile (math-read-number-simple - "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495"))) + "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495")) + "An approximation for gamma.") (math-defcache math-gamma-const nil math-approx-gamma-const) |