Changeset 1754
- Timestamp:
- 2015-06-15T09:06:59-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1753 r1754 435 435 (poly-content ring-and-order p))) 436 436 437 (defmfun $poly_pseudo_divide (f fl vars 438 &aux 439 (vars (coerce-maxima-list vars)) 440 (f (parse-poly f vars)) 441 (fl (parse-poly-list fl vars))) 442 (with-ring-and-order ((vars :polynomials (f) :poly-lists (fl) :value-type :custom)) 437 (defmfun $poly_pseudo_divide (f fl vars) 438 (with-ring-and-order ((vars) :polynomials (f) :poly-lists (fl) :value-type :custom) 443 439 (multiple-value-bind (quot rem c division-count) 444 440 (poly-pseudo-divide ring-and-order f fl)
Note:
See TracChangeset
for help on using the changeset viewer.