Changeset 1316
- Timestamp:
- 2015-06-11T21:35:43-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/gebauer-moeller.lisp
r1315 r1316 56 56 (when (plusp start) (debug-cgb "~&INCREMENTAL:~d done" start)) 57 57 #+grobner-check (when (plusp start) 58 (grobner-test ring (subseq f 0 start) (subseq f 0 start)))58 (grobner-test ring-and-order (subseq f 0 start) (subseq f 0 start))) 59 59 (let ((b (make-pair-queue)) 60 60 (g (subseq f 0 start)) … … 67 67 (g1 (pair-first pair)) 68 68 (g2 (pair-second pair)) 69 (h (normal-form ring (spoly ring g1 g2)69 (h (normal-form ring-and-order (spoly ring g1 g2) 70 70 g 71 71 nil #| Always fully reduce! |# … … 78 78 (pair-sugar pair) (length g) (pair-queue-size b)) 79 79 ))) 80 #+grobner-check(grobner-test ring g f)80 #+grobner-check(grobner-test ring-and-order g f) 81 81 (debug-cgb "~&GROBNER END") 82 82 g))
Note:
See TracChangeset
for help on using the changeset viewer.