[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-arith.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-arith.el |
Date: |
Tue, 30 Nov 2004 17:05:29 -0500 |
Index: emacs/lisp/calc/calc-arith.el
diff -c emacs/lisp/calc/calc-arith.el:1.10 emacs/lisp/calc/calc-arith.el:1.11
*** emacs/lisp/calc/calc-arith.el:1.10 Tue Nov 30 17:01:18 2004
--- emacs/lisp/calc/calc-arith.el Tue Nov 30 21:58:53 2004
***************
*** 387,395 ****
((Math-negp a) 1)
((Math-zerop a) 2)
((eq (car a) 'intv)
! (cond ((Math-zerop (nth 2 a)) 6)
! ((Math-zerop (nth 3 a)) 3)
! (t 7)))
((eq (car a) 'sdev)
(if (math-known-realp (nth 1 a)) 7 15))
(t 8)))
--- 387,398 ----
((Math-negp a) 1)
((Math-zerop a) 2)
((eq (car a) 'intv)
! (cond
! ((math-known-posp (nth 2 a)) 4)
! ((math-known-negp (nth 3 a)) 1)
! ((Math-zerop (nth 2 a)) 6)
! ((Math-zerop (nth 3 a)) 3)
! (t 7)))
((eq (car a) 'sdev)
(if (math-known-realp (nth 1 a)) 7 15))
(t 8)))
***************
*** 1750,1759 ****
'(var nan var-nan)
(math-reject-arg (list '^ a b) "*Indeterminate form")))
;; 0^positive = 0
! ((math-posp b)
a)
;; 0^negative is undefined (let math-div handle it)
! ((math-negp b)
(math-div 1 a))
;; 0^infinity is undefined
((math-infinitep b)
--- 1753,1762 ----
'(var nan var-nan)
(math-reject-arg (list '^ a b) "*Indeterminate form")))
;; 0^positive = 0
! ((math-known-posp b)
a)
;; 0^negative is undefined (let math-div handle it)
! ((math-known-negp b)
(math-div 1 a))
;; 0^infinity is undefined
((math-infinitep b)