From fed082a09c8a870c262ffdff360a4a25b81c400d Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Mon, 25 Jun 2007 20:55:56 +0000 Subject: [PATCH] (math-padded-polynomial) (math-partial-fractions): Add some function comments. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-poly.el | 6 ++++++ 2 files changed, 11 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4b1468a2d9c..e0280187265 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-06-25 David Kastrup + + * calc/calc-poly.el (math-padded-polynomial) + (math-partial-fractions): Add some function comments. + 2007-06-25 Stefan Monnier * emacs-lisp/autoload.el (autoload-generate-file-autoloads): diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index 0bcf78af861..23000888749 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -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) -- 2.39.2