Function: math-polynomial-base

math-polynomial-base is an autoloaded and byte-compiled function defined in calc-alg.el.gz.

Signature

(math-polynomial-base TOP-EXPR &optional PRED)

Documentation

Find the variable (or sub-expression) which is the base of polynomial expr.

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-alg.el.gz
(defun math-polynomial-base (top-expr &optional pred)
  "Find the variable (or sub-expression) which is the base of polynomial expr."
  (let ((math-poly-base-pred
         (or pred (lambda (base)
                    (math-polynomial-p
                     top-expr base)))))
  (or (let ((math-poly-base-const-ok nil))
	(math-polynomial-base-rec top-expr))
      (let ((math-poly-base-const-ok t))
	(math-polynomial-base-rec top-expr)))))