close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1589 for branches/f4grobner


Ignore:
Timestamp:
2015-06-12T16:27:54-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/5am-tests.lisp

    r1587 r1589  
    420420    (is (poly-set-equal-no-sugar-p (ideal-saturation ring-and-order F P) G))))
    421421
    422 ;; Calculate F : p1^inf : p2^inf : ... : ps^inf
    423 #+nil
    424 (test ideal-polysaturation-1
    425   "Ideal polysaturation one-by-one with 2 polynomials"
     422;; Calculate F : P1^inf : P2^inf : ... : Ps^inf where Pi are ideals
     423(test ideal-polysaturation
     424  "Ideal polysaturation"
    426425  (let* (($poly_grobner_algorithm :buchberger)
    427426         (F (cdr (string->poly "[x^3*z*y,x*z*y^2]" '(x y z))))
    428          (P (cdr (string->poly "[x,z]" '(x y z))))
     427         (P1 (cdr (string->poly "[x]" '(x y z))))
     428         (P2 (cdr (string->poly "[z]" '(x y z))))
    429429         (ring *ring-of-integers*)
    430430         (order #'lex>)
    431431         (ring-and-order (make-ring-and-order :ring ring :order order))
    432432         (G (cdr (string->poly "[y]" '(x y z)))))
    433     (is (poly-set-equal-no-sugar-p (ideal-polysaturation-1 ring-and-order F p) G))))
     433    (is (poly-set-equal-no-sugar-p (ideal-polysaturation-1 ring-and-order F (list P1 P2)) G))))
    434434
    435435(run! 'ngrobner-suite)
Note: See TracChangeset for help on using the changeset viewer.