- Timestamp:
- 2015-06-15T14:09:42-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner-0.lisp
r1852 r1853 519 519 (defmfun $poly_lm (f vars) 520 520 (with-parsed-polynomials ((vars) :polynomials (f) :value-type :polynomial) 521 (make-poly-from-termlist (list (make-term :monom (poly-lm f) :coeff (funcall (ring-unit +maxima-ring+)))))))522 521 (make-poly-from-termlist (list (make-term :monom (poly-lm f) :coeff (funcall (ring-unit ring))))))) 522
Note:
See TracChangeset
for help on using the changeset viewer.