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