Changeset 1775 for branches/f4grobner
- Timestamp:
- 2015-06-15T10:17:52-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1774 r1775 573 573 (make-poly-from-termlist (list (poly-lt f))))) 574 574 575 #| 576 575 577 (defmfun $poly_lm (f vars) 576 578 (with-ring-and-order ((vars) :polynomials (f) :value-type :polynomial) 577 579 (make-poly-from-termlist (list (make-term (poly-lm f) (funcall (ring-unit ring-and-order))))))) 578 580 581 |#
Note:
See TracChangeset
for help on using the changeset viewer.