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


Ignore:
Timestamp:
2015-06-15T09:05:30-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1752 r1753  
    440440                            (f (parse-poly f vars))
    441441                            (fl (parse-poly-list fl vars)))
    442   (multiple-value-bind (quot rem c division-count)
    443       (poly-pseudo-divide +maxima-ring+ f fl)
    444     `((mlist)
    445       ,(coerce-to-maxima :poly-list quot vars)
    446       ,(coerce-to-maxima :polynomial rem vars)
    447       ,c
    448       ,division-count)))
     442  (with-ring-and-order ((vars :polynomials (f) :poly-lists (fl) :value-type :custom))
     443    (multiple-value-bind (quot rem c division-count)
     444        (poly-pseudo-divide ring-and-order f fl)
     445      `((mlist)
     446        ,(coerce-to-maxima :poly-list quot vars)
     447        ,(coerce-to-maxima :polynomial rem vars)
     448        ,c
     449        ,division-count))))
    449450
    450451#|
Note: See TracChangeset for help on using the changeset viewer.