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 1689


Ignore:
Timestamp:
2015-06-14T21:26:54-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1688 r1689  
    219219         (coerce-coeff (ro-ring ring-and-order) expr vars)))))))
    220220
    221 (defun parse-poly-list (expr vars
    222                         &optional
    223                           (ring (find-ring-by-name $poly_coefficient_ring))
    224                           (order (find-order-by-name $poly_monomial_order))
    225                           (primary-elimination-order (find-order-by-name $poly_primary_elimination_order))
    226                           (secondary-elimination-order (find-order-by-name $poly_secondary_elimination_order)))
     221(defun maxima->plist (expr vars
     222                      &optional
     223                        (ring (find-ring-by-name $poly_coefficient_ring))
     224                        (order (find-order-by-name $poly_monomial_order))
     225                        (primary-elimination-order (find-order-by-name $poly_primary_elimination_order))
     226                        (secondary-elimination-order (find-order-by-name $poly_secondary_elimination_order)))
    227227  "Parse a Maxima representation of a list of polynomials."
    228228  (case (caar expr)
Note: See TracChangeset for help on using the changeset viewer.