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 1417


Ignore:
Timestamp:
2015-06-12T00:52:32-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/5am-tests.lisp

    r1416 r1417  
    303303
    304304
    305 
     305(test ideal
     306  "Ideal theory operations"
     307  (let* (($poly_grobner_algorithm :buchberger)
     308         (fl (cdr (string->poly "[x+y,x-2*y]" '(x y))))
     309         (ring *ring-of-integers*)
     310         (order #'lex>)
     311         (ring-and-order (make-ring-and-order :ring ring :order order)))
     312    (is (equal (print (elimination-ideal ring-and-order fl 1)) nil))))
    306313
    307314(run! 'ngrobner-suite)
Note: See TracChangeset for help on using the changeset viewer.