Changeset 1761
- Timestamp:
- 2015-06-15T09:19:10-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1760 r1761 250 250 (defun maxima-head () 251 251 (if $poly_return_term_list 252 '(mlist simp)253 '(mplus simp)))252 '(mlist) 253 '(mplus))) 254 254 255 255 (defun poly->maxima (poly-type object vars) … … 259 259 `(,(maxima-head) ,@(mapcar #'(lambda (term) (poly->maxima :term term vars)) (poly-termlist object)))) 260 260 (:poly-list 261 `((mlist simp) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object)))261 `((mlist) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object))) 262 262 (:term 263 263 `((mtimes) ,($ratdisrep (term-coeff object)) … … 443 443 (multiple-value-bind (quot rem c division-count) 444 444 (poly-pseudo-divide ring-and-order f fl) 445 `((mlist simp)445 `((mlist) 446 446 ,(poly->maxima :poly-list quot vars) 447 447 ,(poly->maxima :polynomial rem vars)
Note:
See TracChangeset
for help on using the changeset viewer.