Mercurial > emacs
changeset 81610:17b60d2a64ca
(math-padded-polynomial)
(math-partial-fractions): Add some function comments.
| author | David Kastrup <dak@gnu.org> |
|---|---|
| date | Mon, 25 Jun 2007 20:55:56 +0000 |
| parents | 7e640eac2dcb |
| children | ae42ad5f89e6 |
| files | lisp/ChangeLog lisp/calc/calc-poly.el |
| diffstat | 2 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Jun 25 20:53:48 2007 +0000 +++ b/lisp/ChangeLog Mon Jun 25 20:55:56 2007 +0000 @@ -1,3 +1,8 @@ +2007-06-25 David Kastrup <dak@gnu.org> + + * calc/calc-poly.el (math-padded-polynomial) + (math-partial-fractions): Add some function comments. + 2007-06-25 Stefan Monnier <monnier@iro.umontreal.ca> * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
--- a/lisp/calc/calc-poly.el Mon Jun 25 20:53:48 2007 +0000 +++ b/lisp/calc/calc-poly.el Mon Jun 25 20:55:56 2007 +0000 @@ -982,10 +982,16 @@ (defun math-padded-polynomial (expr var deg) + "Return a polynomial as list of coefficients. +If EXPR is of the form \"a + bx + cx^2 + ...\" in the variable VAR, return +the list (a b c ...) with at least DEG elements, else return NIL." (let ((p (math-is-polynomial expr var deg))) (append p (make-list (- deg (length p)) 0)))) (defun math-partial-fractions (r den var) + "Return R divided by DEN expressed in partial fractions of VAR. +All whole factors of DEN have already been split off from R. +If no partial fraction representation can be found, return nil." (let* ((fden (calcFunc-factors den var)) (tdeg (math-polynomial-p den var)) (fp fden)