Changeset 1189
- Timestamp:
- 2015-06-10T20:55:09-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1172 r1189 320 320 (poly-lc (poly-eval expr nil ring order))) 321 321 322 (defun spoly (ring f g) 322 (defun spoly (ring-and-order f g 323 &aux 324 (ring (ro-ring ring-and-order))) 323 325 "It yields the S-polynomial of polynomials F and G." 324 326 (declare (type poly f g)) … … 331 333 (declare (ignore c)) 332 334 (poly-sub 333 ring 335 ring-and-order 334 336 (scalar-times-poly ring cg (monom-times-poly mf f)) 335 337 (scalar-times-poly ring cf (monom-times-poly mg g))))))
Note:
See TracChangeset
for help on using the changeset viewer.