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 1573


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

* empty log message *

File:
1 edited

Legend:

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

    r1572 r1573  
    385385
    386386;; Calculate F : p^inf
    387 #+nil
    388387(test ideal-saturation-1
    389388  "Ideal saturation with 1 polynomial"
     
    397396    (print (colon-ideal ring-and-order F (list (poly-expt ring-and-order p 2))))
    398397    (print (colon-ideal ring-and-order F (list (poly-expt ring-and-order p 3))))
    399     ;;(is-true (print (ideal-saturation-1 ring-and-order F p)))
     398    (is-true (print (ideal-saturation-1 ring-and-order F p)))
    400399    ))
    401 
    402 (defun foo ()
    403   (let* (($poly_grobner_algorithm :buchberger)
    404          (F (cdr (string->poly "[x^3,x^2*y,u*x-1]" '(u x y))))
    405          (order #'lex>)
    406          (ring *ring-of-integers*)
    407          (ring-and-order (make-ring-and-order :ring ring :order order)))
    408     (mapcar #'poly-contract (grobner ring-and-order F))))
    409 
    410400
    411401(run! 'ngrobner-suite)
Note: See TracChangeset for help on using the changeset viewer.