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