Changeset 1850
- Timestamp:
- 2015-06-15T14:09:07-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/.junk/poly-eval.lisp
r1849 r1850 157 157 (unless (zerop expr) 158 158 (make-poly-from-termlist 159 (list (make-term (make-monom :dimension (length vars))expr)))))159 (list (make-term :monom (make-monom :dimension (length vars)) :coeff expr))))) 160 160 ((or (symbolp expr) (not (eq (car expr) :[))) 161 161 (poly-eval-1 expr vars ring order))
Note:
See TracChangeset
for help on using the changeset viewer.