diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2006-02-14 21:39:26 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2006-02-14 21:39:26 +0000 |
| commit | 63f7edace755ddb71ba842b55bafa98e55a2e768 (patch) | |
| tree | fddf2b89a265f76209e3c5f27cd02ae580c620df /lisp/calc/calcalg2.el | |
| parent | eb90d8443cc32d5c6ec5bdff9ffa1ae392dc577b (diff) | |
| download | emacs-63f7edace755ddb71ba842b55bafa98e55a2e768.tar.gz emacs-63f7edace755ddb71ba842b55bafa98e55a2e768.tar.bz2 emacs-63f7edace755ddb71ba842b55bafa98e55a2e768.zip | |
(math-integrate-by-parts): Do a more careful test to see if equation
can be solved.
Diffstat (limited to 'lisp/calc/calcalg2.el')
| -rw-r--r-- | lisp/calc/calcalg2.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/calc/calcalg2.el b/lisp/calc/calcalg2.el index facb691c08b..f71e58e223a 100644 --- a/lisp/calc/calcalg2.el +++ b/lisp/calc/calcalg2.el @@ -1253,9 +1253,11 @@ (calcFunc-expand temp) (setq v (list 'var 'PARTS math-cur-record) temp (let (calc-next-why) - (math-solve-for (math-sub v temp) 0 v nil))) - (and temp (not (integerp temp)) - (math-simplify-extended temp))))) + (math-simplify-extended + (math-solve-for (math-sub v temp) 0 v nil))) + temp (if (and (eq (car-safe temp) '/) + (math-zerop (nth 2 temp))) + nil temp))))) (setcar (cdr math-cur-record) 'busy))))) ;;; This tries two different formulations, hoping the algebraic simplifier |