Changeset 3039
- Timestamp:
- 2015-06-21T16:42:45-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3036 r3039 271 271 self) 272 272 273 (defmethod left-contract (( mmonom) k)273 (defmethod left-contract ((self monom) k) 274 274 "Drop the first K variables in monomial M." 275 275 (declare (fixnum k)) … … 277 277 m 278 278 (setf dimension (- dimension k) 279 exponents (subseq exponents k)))) 279 exponents (subseq exponents k))) 280 self) 280 281 281 282 (defun make-monom-variable (nvars pos &optional (power 1)
Note:
See TracChangeset
for help on using the changeset viewer.