Changeset 3702
- Timestamp:
- 2015-09-06T06:56:55-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3687 r3702 164 164 (is (universal-equalp (poly-primitive-part p) pp)))) 165 165 166 (test saturation-extension 167 "Saturation-extension" 168 (let* ((f (list (alist->poly '( ((1 0 0) . 2) ((1 0 1) . 3))) ;2*x+3*x*z 169 (alist->poly '( ((1 0 0) . 5) ((0 1 2) . 7)))) ;5*x+7*y*z^2 170 ) 171 (p (alist->poly '( ((1 1 1) . 11) ((2 3 4) . 13)))) ;11*x*y*z+13*x^2*y^3*z^4 172 (sat-ext (list (alist->poly '( ((0 1 0 0) . 2) ((0 1 0 1) . 3))) 173 (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7)))))) 174 (is (universal-equalp (saturation-extension f (list p)) sat-ext)))) 175 176 (test saturation-extension-1 177 "Saturation-extension-1" 178 (let* ((f (list (alist->poly '( ((1 0 0) . 2) ((1 0 1) . 3))) ;2*x+3*x*z 179 (alist->poly '( ((1 0 0) . 5) ((0 1 2) . 7)))) ;5*x+7*y*z^2 180 ) 181 (p (alist->poly '( ((1 1 1) . 11) ((2 3 4) . 13)))) ;11*x*y*z+13*x^2*y^3*z^4 182 (sat-ext-1 (list (alist->poly '( ((0 1 0 0) . 2) ((0 1 0 1) . 3))) 183 (alist->poly '( ((0 1 0 0) . 5) ((0 0 1 2) . 7)))))) 184 (is (universal-equalp (saturation-extension-1 f p) sat-ext-1)))) 185 166 186 (run! 'poly-suite) 167 187 (format t "All tests done!~%")
Note:
See TracChangeset
for help on using the changeset viewer.