Mercurial > emacs

comparison lisp/calc/calc-poly.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 May 2005 04:22:05 +0000
parents 62afea0771d8 7e497f7bc556
children 187d6a1f84f7
comparison
equal deleted inserted replaced
90181:0c828e2b0b6f 90182:f042e7c0fe20
1 ;;; calc-poly.el --- polynomial functions for Calc 1 ;;; calc-poly.el --- polynomial functions for Calc
2 2
3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2004 Free Software Foundation, Inc. 3 ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: David Gillespie <daveg@synaptics.com> 5 ;; Author: David Gillespie <daveg@synaptics.com>
6 ;; Maintainer: Jay Belanger <belanger@truman.edu> 6 ;; Maintainer: Jay Belanger <belanger@truman.edu>
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
690 (math-accum-factors t1 1 (math-factor-poly-coefs 690 (math-accum-factors t1 1 (math-factor-poly-coefs
691 (math-poly-div-list p t1) 'cont))) 691 (math-poly-div-list p t1) 'cont)))
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))
704 (while (and pp (or (Math-ratp (car pp)) 705 (while (and pp (or (Math-ratp (car pp))
705 (and (eq (car (car pp)) 'mod) 706 (and (eq (car (car pp)) 'mod)