Function: math-polynomial-p1

math-polynomial-p1 is a byte-compiled function defined in calc-poly.el.gz.

Signature

(math-polynomial-p1 SUBEXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-poly.el.gz
(defun math-polynomial-p1 (subexpr)
  (or (assoc subexpr math-poly-base-total-base)
      (memq (car subexpr) '(+ - * / neg))
      (and (eq (car subexpr) '^) (natnump (nth 2 subexpr)))
      (let* ((math-poly-base-variable subexpr)
	     (exponent (math-polynomial-p math-poly-base-top-expr subexpr)))
	(if exponent
	    (setq math-poly-base-total-base (cons (list subexpr exponent)
				       math-poly-base-total-base)))))
  nil)