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.

Ignore:
Timestamp:
2016-06-10T19:45:42-07:00 (8 years ago)
Author:
Marek Rychlik
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/symbolic-polynomial.lisp

    r4435 r4442  
    133133         p-or-plist)))))
    134134
    135 (defun poly->alist (p)
    136   "Convert a polynomial P to an association list. Thus, the format of the
    137 returned value is  ((MONOM[0] . COEFF[0]) (MONOM[1] . COEFF[1]) ...), where
    138 MONOM[I] is a list of exponents in the monomial and COEFF[I] is the
    139 corresponding coefficient in the ring."
    140   (cond
    141     ((poly-p p)
    142      (mapcar #'->list (poly-termlist p)))
    143     ((and (consp p) (eq (car p) :[))
    144      (cons :[ (mapcar #'poly->alist (cdr p))))))
    145 
    146135(defun string->alist (str vars
    147136                      &optional
Note: See TracChangeset for help on using the changeset viewer.