Changeset 2149
- Timestamp:
- 2015-06-17T21:33:24-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2148 r2149 115 115 (setf (cl:elt exponents index) new-value))) 116 116 117 (defmethod r-total-degree ((m monom) &optional (start 0) (end ( dimension m)))117 (defmethod r-total-degree ((m monom) &optional (start 0) (end (r-dimension m))) 118 118 "Return the todal degree of a monomoal M. Optinally, a range 119 119 of variables may be specified with arguments START and END." … … 124 124 125 125 126 (defmethod r-sugar ((m monom) &aux (start 0) (end ( dimension m)))126 (defmethod r-sugar ((m monom) &aux (start 0) (end (r-dimension m))) 127 127 "Return the sugar of a monomial M. Optinally, a range 128 128 of variables may be specified with arguments START and END." … … 247 247 248 248 (defmethod r-tensor-product ((m1 monom) (m2 monom) 249 &aux (dim (cl:+ ( dimension m1) (dimension m2))))249 &aux (dim (cl:+ (r-dimension m1) (r-dimension m2)))) 250 250 (declare (fixnum dim)) 251 251 (with-slots (exponents1 exponents)
Note:
See TracChangeset
for help on using the changeset viewer.