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 1688 for branches


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

* empty log message *

File:
1 edited

Legend:

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

    r1687 r1688  
    219219         (coerce-coeff (ro-ring ring-and-order) expr vars)))))))
    220220
    221 #|
    222 
    223 (defun parse-poly-list (expr vars)
     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)))
    224227  "Parse a Maxima representation of a list of polynomials."
    225228  (case (caar expr)
    226     (mlist (mapcar #'(lambda (p) (parse-poly p vars)) (cdr expr)))
     229    (mlist (mapcar #'(lambda (p)
     230                       (parse-poly p vars ring order primary-elimination-order secondary-elimination-order))
     231                   (cdr expr)))
    227232    (t (merror "Expression ~M is not a list of polynomials in variables ~M."
    228233               expr vars))))
     234
     235#|
    229236
    230237(defun parse-poly-list-list (poly-list-list vars)
    231238  "Parse a Maxima representation of a list of lists of polynomials."
    232239  (mapcar #'(lambda (g) (parse-poly-list g vars)) (coerce-maxima-list poly-list-list)))
     240
     241
    233242
    234243
Note: See TracChangeset for help on using the changeset viewer.