/[emacs]/emacs/lisp/calc/calc-poly.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-poly.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by ttn, Tue May 17 18:57:41 2005 UTC revision 1.13 by jpb, Wed May 18 12:34:30 2005 UTC
# Line 692  Line 692 
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))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26