Changeset 1848
- Timestamp:
- 2015-06-15T14:08:44-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/.junk/poly-eval.lisp
r1063 r1848 44 44 is a number then convert it to a polynomial in N variables." 45 45 (if (numberp number-or-poly) 46 (make-poly-from-termlist (list (make-term (make-monom :dimension n)number-or-poly)))46 (make-poly-from-termlist (list (make-term :monom (make-monom :dimension n) :coeff number-or-poly))) 47 47 number-or-poly)) 48 48 … … 88 88 "Generate a list of polynomials X[i], i=0,1,...,N-1." 89 89 (dotimes (i n basis) 90 (setf (elt basis i) (make- variable ring n i))))90 (setf (elt basis i) (make-poly-variable ring n i)))) 91 91 92 92
Note:
See TracChangeset
for help on using the changeset viewer.