diff options
| author | Jay Belanger | 2005-05-18 12:34:30 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-05-18 12:34:30 +0000 |
| commit | bfdb6aebd9bbe95ba454a9a8adcf8e8276defd59 (patch) | |
| tree | b680733f74204d46fe1f685bf09c81f3fa9df651 | |
| parent | 2470aebd1094b54047f8d9852cb6c8d81e7c3a7d (diff) | |
| download | emacs-bfdb6aebd9bbe95ba454a9a8adcf8e8276defd59.tar.gz emacs-bfdb6aebd9bbe95ba454a9a8adcf8e8276defd59.zip | |
(math-factor-poly-coefs): Make sure the terms in linear factors in proper
order.
| -rw-r--r-- | lisp/calc/calc-poly.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/calc/calc-poly.el b/lisp/calc/calc-poly.el index e2b434be109..89d8273d6d6 100644 --- a/lisp/calc/calc-poly.el +++ b/lisp/calc/calc-poly.el | |||
| @@ -692,12 +692,13 @@ | |||
| 692 | 692 | ||
| 693 | ;; Check if linear in math-fet-x. | 693 | ;; Check if linear in math-fet-x. |
| 694 | ((not (cdr (cdr p))) | 694 | ((not (cdr (cdr p))) |
| 695 | (math-add (math-factor-protect | 695 | (math-sort-terms |
| 696 | (math-sort-terms | 696 | (math-add (math-factor-protect |
| 697 | (math-factor-expr (car p)))) | 697 | (math-sort-terms |
| 698 | (math-mul math-fet-x (math-factor-protect | 698 | (math-factor-expr (car p)))) |
| 699 | (math-sort-terms | 699 | (math-mul math-fet-x (math-factor-protect |
| 700 | (math-factor-expr (nth 1 p))))))) | 700 | (math-sort-terms |
| 701 | (math-factor-expr (nth 1 p)))))))) | ||
| 701 | 702 | ||
| 702 | ;; If symbolic coefficients, use FactorRules. | 703 | ;; If symbolic coefficients, use FactorRules. |
| 703 | ((let ((pp p)) | 704 | ((let ((pp p)) |