Changeset 1298
- Timestamp:
- 2015-06-11T20:47:33-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/division.lisp
r1297 r1298 253 253 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 254 254 255 (defun grobner-test (ring g f)255 (defun grobner-test (ring-and-order g f) 256 256 "Test whether G is a Grobner basis and F is contained in G. Return T 257 257 upon success and NIL otherwise." 258 258 (debug-cgb "~&GROBNER CHECK: ") 259 259 (let (($poly_grobner_debug nil) 260 (stat1 (buchberger-criterion ring g))260 (stat1 (buchberger-criterion ring-and-order g)) 261 261 (stat2 262 262 (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) 264 264 (i 0 (1- (length f))))))) 265 265 (unless stat1 (error "~&Buchberger criterion failed."))
Note:
See TracChangeset
for help on using the changeset viewer.