Changeset 3394
- Timestamp:
- 2015-08-27T08:56:06-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3393 r3394 116 116 ;; Non-integer power means non-polynomial coefficient 117 117 (coerce-coeff ring expr vars)) 118 (t ( poly-expt ring-and-order(p-eval (cadr expr)) (caddr expr)))))118 (t (r-expt (p-eval (cadr expr)) (caddr expr))))) 119 119 (otherwise 120 120 (coerce-coeff ring expr vars))))))))
Note:
See TracChangeset
for help on using the changeset viewer.