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 4334


Ignore:
Timestamp:
2016-06-05T20:47:00-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4333 r4334  
    539539            :initial-value (leading-coefficient self))))
    540540
    541 (defun poly-primitive-part (object)
    542   "Divide polynomial OBJECT by gcd of its
     541(defun poly-primitive-part (self)
     542  "Divide polynomial SELF by gcd of its
    543543coefficients. Return the resulting polynomial."
    544   (scalar-divide-by object (poly-content object)))
     544  (scalar-divide-by self (poly-content self)))
    545545
    546546(defun poly-insert-variables (self k)
    … …  
    566566destructively modifies F and P."
    567567  (polysaturation-extension f (list p)))
    568 
    569 ;; (defmethod multiply-by ((object1 number) (object2 poly))
    570 ;;   (scalar-multiply-by (copy-instance object2) object1))
    571568
    572569(defmethod multiply-by ((self poly) (other ring))
Note: See TracChangeset for help on using the changeset viewer.