3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
151 |
(math-poly-gcd pn pd))) |
(math-poly-gcd pn pd))) |
152 |
|
|
153 |
;;; Return only quotient to top of stack (nil if zero) |
;;; Return only quotient to top of stack (nil if zero) |
154 |
|
|
155 |
|
;; calc-poly-div-remainder is a local variable for |
156 |
|
;; calc-poly-div (in calc-alg.el), but is used by |
157 |
|
;; calcFunc-pdiv, which is called by calc-poly-div. |
158 |
|
(defvar calc-poly-div-remainder) |
159 |
|
|
160 |
(defun calcFunc-pdiv (pn pd &optional base) |
(defun calcFunc-pdiv (pn pd &optional base) |
161 |
(let* ((calc-prefer-frac t) |
(let* ((calc-prefer-frac t) |
162 |
(math-poly-modulus (math-poly-modulus pn pd)) |
(math-poly-modulus (math-poly-modulus pn pd)) |