diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-01-24 02:27:04 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-01-24 02:27:04 +0000 |
commit | 18e50b48dbbdb0dfa5bb80bfcd7432d5aeaf180a (patch) | |
tree | fa54a411987de7ccaec42f9c8db82d8ff0fe6861 /lisp/calc/calc-poly.el | |
parent | eec86b015fc70449cbcfbc988c26898ed90617e4 (diff) |
(calcFunc-apart): Improve test for rational functions.
Diffstat (limited to 'lisp/calc/calc-poly.el')
-rw-r--r-- | lisp/calc/calc-poly.el | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index 7385e42c85..2246df9441 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el @@ -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) |