close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1760 for branches/f4grobner


Ignore:
Timestamp:
2015-06-15T09:17:10-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/mx-grobner.lisp

    r1759 r1760  
    250250(defun maxima-head ()
    251251  (if $poly_return_term_list
    252       '(mlist)
    253     '(mplus)))
     252      '(mlist simp)
     253    '(mplus simp)))
    254254
    255255(defun poly->maxima (poly-type object vars)
     
    259259     `(,(maxima-head) ,@(mapcar #'(lambda (term) (poly->maxima :term term vars)) (poly-termlist object))))
    260260    (:poly-list
    261      `((mlist) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object)))
     261     `((mlist simp) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object)))
    262262    (:term
    263263     `((mtimes) ,($ratdisrep (term-coeff object))
Note: See TracChangeset for help on using the changeset viewer.