Changeset 1989 for branches/f4grobner
- Timestamp:
- 2015-06-16T00:28:28-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pol.lisp
r1988 r1989 126 126 127 127 ;; Leading monomial 128 (defun poly-lm (p) 129 (declare (type poly p)) 130 (term-monom (poly-lt p))) 128 (defmethod poly-lm ((poly poly)) 129 (term-monom (poly-lt poly))) 131 130 132 131 ;; Second monomial 133 (defun poly-second-lm (p) 134 (declare (type poly p)) 135 (term-monom (poly-second-lt p))) 132 (defmethod poly-second-lm ((poly poly)) 133 (term-monom (poly-second-lt poly))) 136 134 137 135 ;; Leading coefficient
Note:
See TracChangeset
for help on using the changeset viewer.