Changeset 3399
- Timestamp:
- 2015-08-27T09:27:41-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3398 r3399 110 110 ;;Special handling of (expt var pow) 111 111 (let ((pos (position (cadr expr) vars :test #'equalp))) 112 (make- poly-variable ring(length vars) pos (caddr expr))))112 (make-monom-variable (length vars) pos (caddr expr)))) 113 113 ((not (and (integerp (caddr expr)) (plusp (caddr expr)))) 114 114 ;; Negative power means division in coefficient ring
Note:
See TracChangeset
for help on using the changeset viewer.