Changeset 4343 for branches/f4grobner/polynomial.lisp
- Timestamp:
- 2016-06-06T13:18:56-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4339 r4343 622 622 623 623 624 (defun poly-eval (expr vars order &optional (coefficient- ring'rational-field))624 (defun poly-eval (expr vars order &optional (coefficient-class 'rational-field)) 625 625 "Evaluate Lisp form EXPR to a polynomial or a list of polynomials in 626 626 variables VARS. Return the resulting polynomial or list of … … 639 639 (make-poly-variable (length vars) pos))) 640 640 ((numberp expr) 641 (make-poly-constant (length vars) (make-instance coefficient- ring:value expr)))641 (make-poly-constant (length vars) (make-instance coefficient-class :value expr))) 642 642 ((eq (car expr) +list-marker+) 643 643 (cons +list-marker+ (p-eval-list (cdr expr))))
Note:
See TracChangeset
for help on using the changeset viewer.