procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(math-factor-poly-coefs): Make sure the terms in linear factors in proper

Browse source 
order.
This commit is contained in:
Jay Belanger 2005-05-18 12:34:30 +00:00
parent 2470aebd10
commit bfdb6aebd9
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/calc/calc-poly.el
View file

@ -692,12 +692,13 @@
;; Check if linear in math-fet-x.
((not (cdr (cdr p)))
(math-add (math-factor-protect
(math-sort-terms
(math-factor-expr (car p))))
(math-mul math-fet-x (math-factor-protect
(math-sort-terms
(math-factor-expr (nth 1 p)))))))
(math-sort-terms
(math-add (math-factor-protect
(math-sort-terms
(math-factor-expr (car p))))
(math-mul math-fet-x (math-factor-protect
(math-sort-terms
(math-factor-expr (nth 1 p))))))))
;; If symbolic coefficients, use FactorRules.
((let ((pp p))