Changeset 2446

Timestamp:

2015-06-19T09:58:49-07:00 (10 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/polynomial.lisp (modified) (1 diff)

branches/f4grobner/polynomial.lisp

@@ -134 +134 @@
   (length (poly-termlist self)))
 
-(defun poly-reset-sugar (p)
-  "(Re)sets the sugar of a polynomial P to the sugar of (POLY-TERMLIST P).
-Thus, the sugar is set to the maximum sugar of all monomials of P, or -1 
-if P is a zero polynomial."
-  (declare (type poly p))
-  (setf (poly-sugar p) (termlist-sugar (poly-termlist p)))
-  p)
-
-(defun scalar-times-poly (ring c p)
-  "The scalar product of scalar C by a polynomial P. The sugar of the
-original polynomial becomes the sugar of the result."
-  (declare (type ring ring) (type poly p))
-  (make-poly-from-termlist (scalar-times-termlist ring c (poly-termlist p)) (poly-sugar p)))
+(defmethod scalar-multiply ((self poly) scalar)
+  "The scalar product of a polynomial SELF by a scalar SCALAR."
+  (mapc #'(lambda (term) (scalar-multiply term scalar)) (poly-termlist self))
+  self)
 
 (defun scalar-times-poly-1 (ring c p)