close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Ignore:
Timestamp:
2015-06-17T21:33:24-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r2148 r2149  
    115115    (setf (cl:elt exponents index) new-value)))
    116116
    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)))
    118118  "Return the todal degree of a monomoal M. Optinally, a range
    119119of variables may be specified with arguments START and END."
    … …  
    124124
    125125
    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)))
    127127  "Return the sugar of a monomial M. Optinally, a range
    128128of variables may be specified with arguments START and END."
    … …  
    247247
    248248(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))))
    250250  (declare (fixnum dim))
    251251  (with-slots (exponents1 exponents)
Note: See TracChangeset for help on using the changeset viewer.