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 1143


Ignore:
Timestamp:
2015-06-10T19:14:44-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r1142 r1143  
    394394 
    395395
     396(defun poly->alist (p)
     397  "Convert a polynomial P to an association list. Thus, the format of the
     398returned value is  ((MONOM[0] . COEFF[0]) (MONOM[1] . COEFF[1]) ...), where
     399MONOM[I] is a list of exponents in the monomial and COEFF[I] is the
     400corresponding coefficient in the ring."
     401  (mapcar term->cons (poly-termlist p)))
     402
     403(defun string->alist (str vars)
     404  "Convert a string STR representing a polynomial or polynomial list to
     405an association list
     406  (poly->alist (str->poly str vars))
Note: See TracChangeset for help on using the changeset viewer.