(math-padded-polynomial)
authorDavid Kastrup <dak@gnu.org>
Mon, 25 Jun 2007 20:55:56 +0000 (20:55 +0000)
committerDavid Kastrup <dak@gnu.org>
Mon, 25 Jun 2007 20:55:56 +0000 (20:55 +0000)
(math-partial-fractions): Add some function comments.

lisp/ChangeLog
lisp/calc/calc-poly.el

index 4b1468a..e028018 100644 (file)
@@ -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):
index 0bcf78a..2300088 100644 (file)
 
 
 (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)