Changeset 3675
- Timestamp:
- 2015-09-06T05:22:48-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3674 r3675 148 148 (let* ((f (alist->poly '( ((1 0 0) . 1) ((1 0 1) . 2)))) ;x+2*x*z |*y*z 149 149 (g (alist->poly '( ((0 1 0) . 1) ((0 1 2) . 2)))) ;y+2*y*z^2 |*x 150 (s-poly (alist->poly '( ((1 1 0) . 1) ((1 1 1) . -1)))); x*y-x*y*z150 (s-poly (alist->poly '( ((1 1 0) . -1) ((1 1 1) . 1)))); x*y*z - x*y 151 151 ) 152 152 (is (universal-equalp (s-polynomial f g) s-poly))))
Note:
See TracChangeset
for help on using the changeset viewer.