mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(math-approx-pi,math-approx-sqrt-e,math-approx-gamma-const):

Browse source 
Add docstrings.
This commit is contained in:
Jay Belanger 2007-07-07 23:57:23 +00:00
parent 4b4b19bdd5
commit fd8eab36a0
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/calc/calc-ext.el
View file

@ -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)