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


Ignore:
Timestamp:
2015-06-10T19:19:53-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/polynomial.lisp

    r1145 r1146  
    391391polynomial or list of polynomials is returned, with terms in each
    392392polynomial ordered according to monomial order ORDER."
    393   (poly-eval (read-infix-form :stream stream) vars))
    394 
    395 (defun string->poly (str vars)
    396   "Converts a string STR to a polynomial in variables VARS"
     393  (poly-eval (read-infix-form :stream stream) vars ring order))
     394
     395(defun string->poly (str vars
     396                     &key
     397                       (stream t)
     398                       (ring *ring-of-integers*)
     399                       (order #'lex>))
     400  "Converts a string STR to a polynomial in variables VARS."
    397401  (with-input-from-string (s str)
    398     (read-poly vars :stream s)))
    399  
     402    (read-poly vars :stream s :ring ring :order order)))
    400403
    401404(defun poly->alist (p)
Note: See TracChangeset for help on using the changeset viewer.