Changeset 3453
- Timestamp:
- 2015-09-05T09:41:31-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r3452 r3453 147 147 (with-slots (exponents) 148 148 m 149 (setf (elt exponents index) new-value))) 150 151 #| 149 (setf (elt exponents index) new-value)))) 150 152 151 (defgeneric monom-total-degree (m &optional start end) 153 152 (:documentation "Return the todal degree of a monomoal M. Optinally, a range … … 196 195 (let ((copy (call-next-method))) 197 196 (setf (monom-exponents copy) (copy-seq (monom-exponents copy))) 198 copy)) )197 copy)) 199 198 200 199 (defmethod monom-multiply-2 ((m1 monom) (m2 monom)) … … 326 325 "A human-readable representation of a monomial M as a list of exponents." 327 326 (coerce (monom-exponents m) 'list)) 328 |#
Note:
See TracChangeset
for help on using the changeset viewer.