Changeset 822
- Timestamp:
- 2015-06-09T00:12:53-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ideal.lisp
r821 r822 108 108 (reduced-grobner 109 109 ring 110 (append (mapcar #'(lambda (p) (poly-extend p (make-monom 1 :initial-e lement 1))) f)110 (append (mapcar #'(lambda (p) (poly-extend p (make-monom 1 :initial-exponent 1))) f) 111 111 (mapcar #'(lambda (p) 112 112 (poly-append (poly-extend (poly-uminus ring p) 113 (make-monom 1 :initial-e lement 1))113 (make-monom 1 :initial-exponent 1)) 114 114 (poly-extend p))) 115 115 g))
Note:
See TracChangeset
for help on using the changeset viewer.