Changeset 1478 for branches

Timestamp:

2015-06-12T12:18:08-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/5am-tests.lisp (modified) (1 diff)

branches/f4grobner/5am-tests.lisp

@@ -359 +359 @@
     (is-true (grobner-equal ring-and-order fl gl))))
 
+;; Calculate [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK].
+(test saturation-extension
+  "Saturation extension"
+  (let* ((F (cdr (string->poly "[x^3,x^2*y]" '(x y))))
+         (P (string->poly "x^2" '(x y)))
+         (ring *ring-of-integers*)
+         (ring-and-order (make-ring-and-order :ring ring :order order)))
+    (is-true (print (saturation-extension-1 ring-and-order F p)))))
+
+(defun foo ()
+  "Saturation extension"
+  (let* ((F (cdr (string->poly "[x^3,x^2*y]" '(x y))))
+         (P (string->poly "x^2" '(x y)))
+         (ring *ring-of-integers*))
+    (saturation-extension-1 ring-and-order F p)))
+
+
+#+nil
 (test ideal-saturation-1
   "Calculate F : p^inf"