/[emacs]/emacs/lisp/calc/calc-arith.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-arith.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by jpb, Tue Nov 30 17:01:18 2004 UTC revision 1.11 by jpb, Tue Nov 30 21:58:53 2004 UTC
# Line 387  Line 387 
387                 ((Math-negp a) 1)                 ((Math-negp a) 1)
388                 ((Math-zerop a) 2)                 ((Math-zerop a) 2)
389                 ((eq (car a) 'intv)                 ((eq (car a) 'intv)
390                  (cond ((Math-zerop (nth 2 a)) 6)                  (cond
391                        ((Math-zerop (nth 3 a)) 3)                   ((math-known-posp (nth 2 a)) 4)
392                        (t 7)))                   ((math-known-negp (nth 3 a)) 1)
393                     ((Math-zerop (nth 2 a)) 6)
394                     ((Math-zerop (nth 3 a)) 3)
395                     (t 7)))
396                 ((eq (car a) 'sdev)                 ((eq (car a) 'sdev)
397                  (if (math-known-realp (nth 1 a)) 7 15))                  (if (math-known-realp (nth 1 a)) 7 15))
398                 (t 8)))                 (t 8)))
# Line 1750  Line 1753 
1753          '(var nan var-nan)          '(var nan var-nan)
1754        (math-reject-arg (list '^ a b) "*Indeterminate form")))        (math-reject-arg (list '^ a b) "*Indeterminate form")))
1755     ;; 0^positive = 0     ;; 0^positive = 0
1756     ((math-posp b)     ((math-known-posp b)
1757      a)      a)
1758     ;; 0^negative is undefined (let math-div handle it)     ;; 0^negative is undefined (let math-div handle it)
1759     ((math-negp b)     ((math-known-negp b)
1760      (math-div 1 a))      (math-div 1 a))
1761     ;; 0^infinity is undefined     ;; 0^infinity is undefined
1762     ((math-infinitep b)     ((math-infinitep b)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26