- Timestamp:
- 2012-06-05T12:58:02-07:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/grobner.lisp
r18 r19 2043 2043 `(,(maxima-head) ,@(mapcar #'(lambda (term) (coerce-to-maxima :term term vars)) (poly-termlist object)))) 2044 2044 (:poly-list 2045 `((mlist) ,@(mapcar #'(lambda (p) ( coerce-to-maxima :polynomial p vars)) object)))2045 `((mlist) ,@(mapcar #'(lambda (p) ($ratdisrep (coerce-to-maxima :polynomial p vars))) object))) 2046 2046 (:term 2047 2047 `((mtimes) ,(term-coeff object)
Note:
See TracChangeset
for help on using the changeset viewer.