Changeset 1055 for branches/f4grobner
- Timestamp:
- 2015-06-10T08:55:58-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/.junk/poly-eval.lisp
r1052 r1055 1 (defun variable-basis (ring n &aux (basis (make-list n))) 2 "Generate a list of polynomials X[i], i=0,1,...,N-1." 3 (dotimes (i n basis) 4 (setf (elt basis i) (make-variable ring n i)))) 5 1 6 2 7 (defun poly-eval-1 (expr vars &optional (ring *ring-of-integers*) (order #'lex>)
Note:
See TracChangeset
for help on using the changeset viewer.