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 1298 for branches


Ignore:
Timestamp:
2015-06-11T20:47:33-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/division.lisp

    r1297 r1298  
    253253;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    254254
    255 (defun grobner-test (ring g f)
     255(defun grobner-test (ring-and-order g f)
    256256  "Test whether G is a Grobner basis and F is contained in G. Return T
    257257upon success and NIL otherwise."
    258258  (debug-cgb "~&GROBNER CHECK: ")
    259259  (let (($poly_grobner_debug nil)
    260         (stat1 (buchberger-criterion ring g))
     260        (stat1 (buchberger-criterion ring-and-order g))
    261261        (stat2
    262262          (every #'poly-zerop
    263                  (makelist (normal-form ring (copy-tree (elt f i)) g nil)
     263                 (makelist (normal-form ring-and-order (copy-tree (elt f i)) g nil)
    264264                           (i 0 (1- (length f)))))))
    265265    (unless stat1 (error "~&Buchberger criterion failed."))
Note: See TracChangeset for help on using the changeset viewer.