Changeset 820
- Timestamp:
- 2015-06-09T00:11:19-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r819 r820 190 190 191 191 (defun polysaturation-extension (ring f plist &aux (k (length plist)) 192 (d (+ k ( length(poly-lm (car plist))))))192 (d (+ k (monom-dimension (poly-lm (car plist)))))) 193 193 "Calculate [F, U1*P1+U2*P2+...+UK*PK-1], where PLIST=[P1,P2,...,PK]." 194 194 (setf f (poly-list-add-variables f k)
Note:
See TracChangeset
for help on using the changeset viewer.