Function: calcFunc-reduce

calcFunc-reduce is an autoloaded and byte-compiled function defined in calc-map.el.gz.

Signature

(calcFunc-reduce FUNC VEC)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-map.el.gz
;;; Reduce a function over a vector symbolically. [Public]
(defun calcFunc-reduce (func vec)
  (if (math-matrixp vec)
      (let (expr row)
	(setq func (math-var-to-calcFunc func))
	(while (setq vec (cdr vec))
	  (setq row (car vec))
	  (while (setq row (cdr row))
	    (setq expr (if expr
			   (if (Math-numberp expr)
			       (math-normalize
				(math-build-call func (list expr (car row))))
			     (math-build-call func (list expr (car row))))
			 (car row)))))
	(math-normalize expr))
    (calcFunc-reducer func vec)))