Changeset 3674
- Timestamp:
- 2015-09-06T05:22:13-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3658 r3674 147 147 "S-Polynomial" 148 148 (let* ((f (alist->poly '( ((1 0 0) . 1) ((1 0 1) . 2)))) ;x+2*x*z |*y*z 149 (g (alist->poly '( ((0 1 0) . 1) ((0 1 2) . 3)))) ;y+2*y*z^2 |*x149 (g (alist->poly '( ((0 1 0) . 1) ((0 1 2) . 2)))) ;y+2*y*z^2 |*x 150 150 (s-poly (alist->poly '( ((1 1 0) . 1) ((1 1 1) . -1)))); x*y-x*y*z 151 151 )
Note:
See TracChangeset
for help on using the changeset viewer.