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 17


Ignore:
Timestamp:
2012-06-05T12:53:09-07:00 (13 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/grobner.lisp

    r16 r17  
    20392039
    20402040(defun coerce-to-maxima (poly-type object vars)
    2041   ($ratdisrep
    2042    (case poly-type
    2043      (:polynomial
    2044       `(,(maxima-head) ,@(mapcar #'(lambda (term) (coerce-to-maxima :term term vars)) (poly-termlist object))))
    2045      (:poly-list
    2046       `((mlist) ,@(mapcar #'(lambda (p) (coerce-to-maxima :polynomial p vars)) object)))
    2047      (:term
    2048       `((mtimes) ,(term-coeff object)
    2049         ,@(mapcar #'(lambda (var power) `((mexpt) ,var ,power))
    2050                   vars (monom-exponents (term-monom object)))))
    2051      (otherwise
    2052       object))))
     2041  (case poly-type
     2042    (:polynomial
     2043     `(,(maxima-head) ,@(mapcar #'(lambda (term) (coerce-to-maxima :term term vars)) (poly-termlist object))))
     2044    (:poly-list
     2045     `((mlist) ,@(mapcar #'(lambda (p) (coerce-to-maxima :polynomial p vars)) object)))
     2046    (:term
     2047     `((mtimes) ,(term-coeff object)
     2048       ,@(mapcar #'(lambda (var power) `((mexpt) ,var ,power))
     2049                 vars (monom-exponents (term-monom object)))))
     2050    (otherwise
     2051     object)))
    20532052
    20542053
Note: See TracChangeset for help on using the changeset viewer.