(put 'calc-define 'calc-path-length
'(progn (define-key calc-mode-map "zp" 'calc-path-length)))
-(defvar var-IntegNumerRules 'calc-IntegNumerRules)
-(defun calc-IntegNumerRules ()
- (math-read-plain-expr "[
-integ(f, x, a, b) := ninteg(f, x, a, b) :: constant(a) :: constant(b)
-]"))
+(defvar var-IntegNumerRules
+ '(vec (calcFunc-condition
+ (calcFunc-condition
+ (calcFunc-assign
+ (calcFunc-integ (var f var-f) (var x var-x)
+ (var a var-a) (var b var-b))
+ (calcFunc-ninteg (var f var-f) (var x var-x)
+ (var a var-a) (var b var-b)))
+ (calcFunc-constant (var a var-a)))
+ (calcFunc-constant (var b var-b)))))
(defun calc-integrate-numerically ()
"Computes an approximate result for a symbolic definite integral with