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 3880 for branches


Ignore:
Timestamp:
2016-05-28T21:23:27-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r3879 r3880  
    292292     self))
    293293
     294(defmethod unary-minus ((self poly))
     295  "Destructively modifies the coefficients of the polynomial SELF,
     296by changing their sign."
     297  (mapc #'unary-minus (poly-termlist self))
     298  self)
     299
     300(defun add-termlists (p q order-fn)
     301  "Destructively adds two termlists P and Q ordered according to ORDER-FN."
     302  (fast-add/subtract p q order-fn #'add-to nil))
     303
    294304(defmethod add-to ((self poly) (other poly))
    295305  "Adds to polynomial SELF another polynomial OTHER.
     
    312322                              (poly-termlist self) (poly-termlist other)
    313323                              (poly-term-order self))))
    314 
    315 (defmethod unary-minus ((self poly))
    316   "Destructively modifies the coefficients of the polynomial SELF,
    317 by changing their sign."
    318   (mapc #'unary-minus (poly-termlist self))
    319   self)
    320 
    321 (defun add-termlists (p q order-fn)
    322   "Destructively adds two termlists P and Q ordered according to ORDER-FN."
    323   (fast-add/subtract p q order-fn #'add-to nil))
    324324
    325325(defmacro multiply-term-by-termlist-dropping-zeros (term termlist
Note: See TracChangeset for help on using the changeset viewer.