Changeset 1476
- Timestamp:
- 2015-06-12T12:16:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1475 r1476 251 251 &aux 252 252 (k (length plist)) 253 (d (+ k (monom-dimension (poly-lm (car plist)))))) 253 (d (+ k (monom-dimension (poly-lm (car plist))))) 254 f-x plist-x) 254 255 "Calculate [F, U1*P1+U2*P2+...+UK*PK-1], where PLIST=[P1,P2,...,PK]." 255 (setf f (poly-list-add-variables f k)256 plist (apply #'poly-append (poly-standard-extension plist))257 (cdr (last (poly-termlist plist ))) (list (make-term (make-monom :dimension d)258 (funcall (ring-uminus ring) (funcall (ring-unit ring))))))259 (append f (list plist)))256 (setf f-x (poly-list-add-variables f k) 257 plist-x (apply #'poly-append (poly-standard-extension plist)) 258 (cdr (last (poly-termlist plist-x))) (list (make-term (make-monom :dimension d) 259 (funcall (ring-uminus ring) (funcall (ring-unit ring)))))) 260 (append f-x (list plist-x))) 260 261 261 262 (defun saturation-extension-1 (ring f p) (polysaturation-extension ring f (list p)))
Note:
See TracChangeset
for help on using the changeset viewer.