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 1761 for branches/f4grobner


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1760 r1761  
    250250(defun maxima-head ()
    251251  (if $poly_return_term_list
    252       '(mlist simp)
    253     '(mplus simp)))
     252      '(mlist)
     253    '(mplus)))
    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 simp) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object)))
     261     `((mlist) ,@(mapcar #'(lambda (p) ($ratdisrep (poly->maxima :polynomial p vars))) object)))
    262262    (:term
    263263     `((mtimes) ,($ratdisrep (term-coeff object))
    … …  
    443443    (multiple-value-bind (quot rem c division-count)
    444444        (poly-pseudo-divide ring-and-order f fl)
    445       `((mlist simp)
     445      `((mlist)
    446446        ,(poly->maxima :poly-list quot vars)
    447447        ,(poly->maxima :polynomial rem vars)
Note: See TracChangeset for help on using the changeset viewer.