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 1582 for branches/f4grobner


Ignore:
Timestamp:
2015-06-12T16:19:19-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1581 r1582  
    400400  "Ideal polysaturation one-by-one with 2 polynomials"
    401401  (let* (($poly_grobner_algorithm :buchberger)
    402          (F (cdr (string->poly "[x^3*(y+z^2),x^2*(y-z^2)]" '(x y z))))
     402         (F (cdr (string->poly "[x^3*(y*z+z^2),x^2*(y*z-z^2)]" '(x y z))))
    403403         (P (cdr (string->poly "[x,z]" '(x y z))))
    404404         (ring *ring-of-integers*)
    405405         (order #'lex>)
    406406         (ring-and-order (make-ring-and-order :ring ring :order order))
    407          (G (cdr (string->poly "[1]" '(x y z)))))
     407         (G (cdr (string->poly "[y]" '(x y z)))))
    408408    (is (poly-set-equal-no-sugar-p (ideal-polysaturation-1 ring-and-order F p) G))))
    409409
Note: See TracChangeset for help on using the changeset viewer.