mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(calcFunc-apart): Improve test for rational functions.

Browse Source
This commit is contained in:
Jay Belanger 2009-01-24 02:27:04 +00:00
parent eec86b015f
commit 18e50b48db
2 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-01-24 Jay Belanger <jay.p.belanger@gmail.com>
* calc/calc-poly.el (calcFunc-apart): Improve test for
rational functions.
2009-01-23 Chong Yidong <cyd@stupidchicken.com>
* mail/rmailsum.el (rmail-summary-by-labels): Correctly handle

32
lisp/calc/calc-poly.el
View File

@ -961,22 +961,24 @@
((eq (car expr) '-)
(math-sub (calcFunc-apart (nth 1 expr) var)
(calcFunc-apart (nth 2 expr) var)))
((not (math-ratpoly-p expr var))
(math-reject-arg expr "Expected a rational function"))
((and var (not (math-ratpoly-p expr var)))
(math-reject-arg expr "Expected a rational function"))
(t
(let* ((calc-prefer-frac t)
(rat (math-to-ratpoly expr))
(num (car rat))
(den (cdr rat))
(qr (math-poly-div num den))
(q (car qr))
(r (cdr qr)))
(or var
(setq var (math-polynomial-base den)))
(math-add q (or (and var
(math-expr-contains den var)
(math-partial-fractions r den var))
(math-div r den)))))))
(let* ((calc-prefer-frac t)
(rat (math-to-ratpoly expr))
(num (car rat))
(den (cdr rat)))
(or var
(setq var (math-polynomial-base den)))
(if (not (math-ratpoly-p expr var))
(math-reject-arg expr "Expected a rational function")
(let* ((qr (math-poly-div num den))
(q (car qr))
(r (cdr qr)))
(math-add q (or (and var
(math-expr-contains den var)
(math-partial-fractions r den var))
(math-div r den)))))))))
(defun math-padded-polynomial (expr var deg)