Changeset 1753 for branches/f4grobner/mx-grobner.lisp
- Timestamp:
- 2015-06-15T09:05:30-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1752 r1753 440 440 (f (parse-poly f vars)) 441 441 (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)))) 449 450 450 451 #|
Note:
See TracChangeset
for help on using the changeset viewer.