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 1991 for branches/f4grobner


Ignore:
Timestamp:
2015-06-16T00:31:45-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/pol.lisp

    r1990 r1991  
    149149  (length (poly-termlist p)))
    150150
    151 (defun poly-reset-sugar (p)
     151(defmethod poly-reset-sugar ((poly poly))
    152152  "(Re)sets the sugar of a polynomial P to the sugar of (POLY-TERMLIST P).
    153153Thus, the sugar is set to the maximum sugar of all monomials of P, or -1
    154154if P is a zero polynomial."
    155   (declare (type poly p))
    156   (setf (poly-sugar p) (termlist-sugar (poly-termlist p)))
    157   p)
    158 
    159 (defun scalar-times-poly (ring c p)
     155  (setf (poly-sugar poly) (termlist-sugar (poly-termlist poly)))
     156  poly)
     157
     158(defmethod scalar-times-poly (ring c p)
    160159  "The scalar product of scalar C by a polynomial P. The sugar of the
    161160original polynomial becomes the sugar of the result."
Note: See TracChangeset for help on using the changeset viewer.