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 16


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/grobner.lisp

    r15 r16  
    20392039
    20402040(defun coerce-to-maxima (poly-type object vars)
    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)))
     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))))
    20522053
    20532054
Note: See TracChangeset for help on using the changeset viewer.