close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 2756 for branches


Ignore:
Timestamp:
2015-06-20T19:18:09-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r2755 r2756  
    104104(defmacro fast-add/subtract (p q order-fn
    105105                             add/subtract-method-name 
    106                              &optional (uminus-method-name nil uminus-method-name-supplied-p))
     106                             &optional
     107                               (uminus-method-name nil uminus-method-name-supplied-p))
    107108  "Return an expression which will efficiently adds/subtracts two
    108109polynomials, P and Q.  The addition/subtraction of coefficients is
    109110performed by calling ADD/SUBTRACT-METHOD-NAME.  If UMINUS-METHOD-NAME
    110111is supplied, it is used to negate the coefficients of Q which do not
    111 have a corresponding coefficient in P. The code implements an efficient
    112 algorithm to add two polynomials represented as sorted lists of
    113 terms. This function destroys both arguments, reusing the terms to
    114 build the result."
     112have a corresponding coefficient in P. The code implements an
     113efficient algorithm to add two polynomials represented as sorted lists
     114of terms. The code destroys both arguments, reusing the terms to build
     115the result."
    115116  `(macrolet ((lc (x) `(r-coeff (car ,x))))
    116117     (do ((p ,p)
Note: See TracChangeset for help on using the changeset viewer.