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


Ignore:
Timestamp:
2016-06-01T14:01:41-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r4117 r4119  
    455455(defun add (summand &rest more-summands)
    456456  "Successively Adds to SUMMAND the elements of MORE-SUMMANDS."
    457   (reduce #'add-to summands :initial-value summand))
     457  (reduce #'add-to more-summands :initial-value summand))
    458458
    459459(defun subtract (minuend  &rest subtrahends)
     
    591591  (polysaturation-extension f (list p)))
    592592
    593 (defmethod multiply-by ((object1 number) (object2 poly))
    594   (scalar-multiply-by (copy-instance object2) object1))
    595 
    596 (defmethod multiply-by ((object1 poly) (object2 number))
    597   (scalar-multiply-by (copy-instance object1) object2))
     593;; (defmethod multiply-by ((object1 number) (object2 poly))
     594;;   (scalar-multiply-by (copy-instance object2) object1))
     595
     596;; (defmethod multiply-by ((object1 poly) (object2 number))
     597;;   (scalar-multiply-by (copy-instance object1) object2))
    598598
    599599(defun make-poly-variable (nvars pos &optional (power 1))
     
    614614       (do ((k 1 (ash k 1))
    615615            (q x (multiply q q))        ;keep squaring
    616             (p 1 (if (not (zerop (logand k y))) (multiply p q) p)))
     616            (p (make-unit-for x) (if (not (zerop (logand k y))) (multiply p q) p)))
    617617           ((> k y) p)
    618618         (declare (fixnum k)))))))
Note: See TracChangeset for help on using the changeset viewer.