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 1032


Ignore:
Timestamp:
2015-06-10T08:18:30-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/parse.lisp

    r1031 r1032  
    257257    (setf (elt basis i) (make-variable ring n i))))
    258258
    259 (defun poly-eval-1 (ring-and-order expr vars
     259(defun poly-eval-1 (expr vars ring order
    260260                    &aux
    261                       (ring (ro-ring ring-and-order))
     261                      (ring-and-order (make-ring-and-order :ring ring :order order))
    262262                      (n (length vars))
    263263                      (basis (variable-basis ring (length vars))))
    … …  
    308308             
    309309(defun poly-eval (expr vars
    310                   &optional (order #'lex>) (ring *ring-of-integers*)
    311                   &aux
    312                     (ring-and-order (make-ring-and-order :ring ring :order order)))
     310                  &optional (order #'lex>) (ring *ring-of-integers*))
    313311  "Evaluate an expression EXPR, which should be a polynomial
    314312expression or a list of polynomial expressions (a list of expressions
Note: See TracChangeset for help on using the changeset viewer.