Changeset 3689

Timestamp:

2015-09-06T05:58:31-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/polynomial.lisp

@@ -178 +178 @@
   (:method ((self poly))
     (length (poly-termlist self))))
+
+(defgeneric scalar-multiply-by (self other)
+  (:documentation "Multiply vector SELF by a scalar OTHER.")
+  (:method ((self poly) other)
+    (mapc #'(lambda (term) (setf (term-coeff term) (multiply (term-coeff term) other)))
+          (poly-termlist self))
+    self))
+
+(defgeneric scalar-divide-by (self other)
+  (:documentation "Divide vector SELF by a scalar OTHER.")
+  (:method ((self poly) other)
+    (mapc #'(lambda (term) (setf (term-coeff term) (divide (term-coeff term) other)))
+          (poly-termlist self))
+    self))
 
 (defmethod multiply-by ((self poly) (other monom))