Changeset 3699 for branches

Timestamp:

2015-09-06T06:55:22-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/polynomial.lisp (modified) (2 diffs)

branches/f4grobner/polynomial.lisp

@@ -471 +471 @@
 
 (defun saturation-extension (f plist &aux (k (length plist)))
+  "Calculate [F', U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK]."
   (nconc (mapc #'(lambda (x) (poly-add-variables x k)) f)
-        (standard-extension-1 plist)))
-
-#|
-(defun polysaturation-extension (f plist 
-                                 &aux (k (length plist))
-                                   (d (+ k (length (poly-lm (car plist))))))
+         (standard-extension-1 plist)))
+
+
+(defun polysaturation-extension (f plist &aux (k (length plist)))
   "Calculate [F', U1*P1+U2*P2+...+UK*PK-1], where PLIST=[P1,P2,...,PK]."
-  (setf f (poly-list-add-variables f k)
-        plist (apply #'poly-append (poly-standard-extension plist))
-        (cdr (last (poly-termlist plist))) (list (make-term (make-monom d :initial-element 0)
-                                                            (funcall (ring-uminus ring) (funcall (ring-unit ring))))))
-  (append f (list plist)))
-
+  (nconc (mapc #'(lambda (x) (poly-add-variables x k)) f)
+         (standard-sum plist)))
 
 (defun saturation-extension-1 (f p) 
@@ -490 +485 @@
 F' is F with variable U inserted as the first variable. It destructively modifies F."
   (polysaturation-extension f (list p)))
-
-|#