Function: calcFunc-pgcd

calcFunc-pgcd is an autoloaded and byte-compiled function defined in calc-poly.el.gz.

Signature

(calcFunc-pgcd PN PD)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-poly.el.gz
;;; Return gcd of two polynomials
(defun calcFunc-pgcd (pn pd)
  (if (math-any-floats pn)
      (math-reject-arg pn "Coefficients must be rational"))
  (if (math-any-floats pd)
      (math-reject-arg pd "Coefficients must be rational"))
  (let ((calc-prefer-frac t)
	(math-poly-modulus (math-poly-modulus pn pd)))
    (math-poly-gcd pn pd)))