diff options
Diffstat (limited to 'lisp/calc/calc-math.el')
| -rw-r--r-- | lisp/calc/calc-math.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index f9a420090ee..4ca8515989b 100644 --- a/lisp/calc/calc-math.el +++ b/lisp/calc/calc-math.el @@ -31,8 +31,9 @@ (require 'calc-macs) -;; Find out how many 9s in 9.9999... will give distinct Emacs floats, -;; then back off by one. +;;; Find out how many 9s in 9.9999... will give distinct Emacs floats, +;;; then back off by one. + (defvar math-emacs-precision (let* ((n 1) (x 9) @@ -45,9 +46,9 @@ (1- n)) "The number of digits in an Emacs float.") -;; Find the largest power of 10 which is an Emacs float, -;; then back off by one so that any float d.dddd...eN -;; is an Emacs float, for acceptable d.dddd.... +;;; Find the largest power of 10 which is an Emacs float, +;;; then back off by one so that any float d.dddd...eN +;;; is an Emacs float, for acceptable d.dddd.... (defvar math-largest-emacs-expt (let ((x 1) @@ -366,9 +367,9 @@ If this can't be done, return NIL." (message "Angles measured in radians"))) -;; Compute the integer square-root floor(sqrt(A)). A > 0. [I I] [Public] -;; This method takes advantage of the fact that Newton's method starting -;; with an overestimate always works, even using truncating integer division! +;;; Compute the integer square-root floor(sqrt(A)). A > 0. [I I] [Public] +;;; This method takes advantage of the fact that Newton's method starting +;;; with an overestimate always works, even using truncating integer division! (defun math-isqrt (a) (cond ((Math-zerop a) a) ((not (natnump a)) |