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 1133


Ignore:
Timestamp:
2015-06-10T18:20:49-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1132 r1133  
    242242                                            (funcall (ring-parse ring) expr)))
    243243                           0))
    244 
    245 (defun poly-eval-scalar (expr
    246                          &optional
    247                            (ring *ring-of-integers*)
    248                          &aux
    249                            (order #'lex>))
    250   "Evaluate a scalar expression EXPR in ring RING."
    251   (poly-lc (poly-eval expr nil ring order)))
    252244
    253245(defun poly-eval (expr vars
    … …  
    308300          (coerce-coeff ring expr vars)))))))
    309301
     302(defun poly-eval-scalar (expr
     303                         &optional
     304                           (ring *ring-of-integers*)
     305                         &aux
     306                           (order #'lex>))
     307  "Evaluate a scalar expression EXPR in ring RING."
     308  (poly-lc (poly-eval expr nil ring order)))
     309
    310310(defun spoly (ring f g)
    311311  "It yields the S-polynomial of polynomials F and G."
Note: See TracChangeset for help on using the changeset viewer.