- Timestamp:
- 2015-06-05T12:40:48-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/grobner.lisp
r129 r130 310 310 `(,(maxima-head) ,@(mapcar #'(lambda (term) (coerce-to-maxima :term term vars)) (poly-termlist object)))) 311 311 (:poly-list 312 `((mlist) ,@(mapcar #'(lambda (p) ( $ratdisrep(coerce-to-maxima :polynomial p vars))) object)))312 `((mlist) ,@(mapcar #'(lambda (p) (funcall *ratdisrep-fun* (coerce-to-maxima :polynomial p vars))) object))) 313 313 (:term 314 `((mtimes) ,( $ratdisrep(term-coeff object))314 `((mtimes) ,(funcall *ratdisrep-fun* (term-coeff object)) 315 315 ,@(mapcar #'(lambda (var power) `((mexpt) ,var ,power)) 316 316 vars (monom-exponents (term-monom object)))))
Note:
See TracChangeset
for help on using the changeset viewer.