Changeset 4016
- Timestamp:
- 2016-05-31T13:02:19-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4015 r4016 604 604 algebra system could be called 'expand' or so." 605 605 (labels ((p-eval (p) (poly-eval p vars order)) 606 (p-eval-scalar (p) (poly-eval p '() order))607 606 (p-eval-list (plist) (mapcar #'p-eval plist))) 608 607 (cond … … 632 631 (t 633 632 (let ((num (p-eval (cadr expr))) 634 (denom-inverse (apply #'divide (mapcar #'p-eval -scalar(cddr expr)))))633 (denom-inverse (apply #'divide (mapcar #'p-eval (cddr expr))))) 635 634 (multiply denom-inverse num))))) 636 635 (expt
Note:
See TracChangeset
for help on using the changeset viewer.