692 |
|
|
693 |
;; Check if linear in math-fet-x. |
;; Check if linear in math-fet-x. |
694 |
((not (cdr (cdr p))) |
((not (cdr (cdr p))) |
695 |
(math-add (math-factor-protect |
(math-sort-terms |
696 |
(math-sort-terms |
(math-add (math-factor-protect |
697 |
(math-factor-expr (car p)))) |
(math-sort-terms |
698 |
(math-mul math-fet-x (math-factor-protect |
(math-factor-expr (car p)))) |
699 |
(math-sort-terms |
(math-mul math-fet-x (math-factor-protect |
700 |
(math-factor-expr (nth 1 p))))))) |
(math-sort-terms |
701 |
|
(math-factor-expr (nth 1 p)))))))) |
702 |
|
|
703 |
;; If symbolic coefficients, use FactorRules. |
;; If symbolic coefficients, use FactorRules. |
704 |
((let ((pp p)) |
((let ((pp p)) |