[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-math.el,v
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-math.el,v |
Date: |
Mon, 01 Oct 2007 18:16:04 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 07/10/01 18:16:03
Index: calc-math.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-math.el,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -b -r1.28 -r1.29
--- calc-math.el 1 Oct 2007 03:15:01 -0000 1.28
+++ calc-math.el 1 Oct 2007 18:16:03 -0000 1.29
@@ -57,12 +57,10 @@
(pow 1e2))
;; The following loop is for efficiency; it should stop when
;; 10^(2x) is too large. This could be indicated by a range
- ;; error when computing 10^(2x), an infinite value for 10^(2x),
- ;; or (!) a zero value for 10^(2x).
+ ;; error when computing 10^(2x) or an infinite value for 10^(2x).
(while (and
pow
- (< pow 1.0e+INF)
- (> pow 0.0))
+ (< pow 1.0e+INF))
(setq x (* 2 x))
(setq pow (condition-case nil
(expt 10.0 (* 2 x))
@@ -73,8 +71,7 @@
(error nil)))
(while (and
pow
- (< pow 1.0e+INF)
- (> pow 0.0))
+ (< pow 1.0e+INF))
(setq x (1+ x))
(setq pow (condition-case nil
(expt 10.0 (1+ x))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-math.el,v,
Jay Belanger <=