;;; Code:
;; This file is autoloaded from calc-ext.el.
-(require 'calc-ext)
+(require 'calc-ext)
(require 'calc-macs)
-(defun calc-Need-calc-arith () nil)
-
;;; The following lists are not exhaustive.
(defvar math-scalar-functions '(calcFunc-det
calcFunc-cnorm calcFunc-rnorm
calcFunc-max calcFunc-min))
(defvar math-real-if-arg-functions '(calcFunc-sin calcFunc-cos
- calcFunc-tan calcFunc-arctan
+ calcFunc-tan calcFunc-sec
+ calcFunc-csc calcFunc-cot
+ calcFunc-arctan
calcFunc-sinh calcFunc-cosh
- calcFunc-tanh calcFunc-exp
+ calcFunc-tanh calcFunc-sech
+ calcFunc-csch calcFunc-coth
+ calcFunc-exp
calcFunc-gamma calcFunc-fact))
(defvar math-integer-functions '(calcFunc-idiv
((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)))
+ (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)))
'(var nan var-nan)
(math-reject-arg (list '^ a b) "*Indeterminate form")))
;; 0^positive = 0
- ((math-posp b)
+ ((math-known-posp b)
a)
;; 0^negative is undefined (let math-div handle it)
- ((math-negp b)
+ ((math-known-negp b)
(math-div 1 a))
;; 0^infinity is undefined
((math-infinitep b)
(math-commutative-collect (nth 2 b) (not neg)))
(setq math-com-bterms (cons (if neg (math-neg b) b) math-com-bterms)))))
+(provide 'calc-arith)
+
;;; arch-tag: 6c396b5b-14c6-40ed-bb2a-7cc2e8111465
;;; calc-arith.el ends here