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.

Changeset 3545


Ignore:
Timestamp:
2015-09-05T16:27:41-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r3544 r3545  
    158158      (setf (elt exponents index) new-value))))
    159159
    160 (defgeneric monom-total-degree (m &optional start end)
     160(defgeneric universal-total-degree (m &optional start end)
    161161  (:documentation "Return the todal degree of a monomoal M. Optinally, a range
    162162of variables may be specified with arguments START and END.")
    … …  
    167167      (reduce #'+ exponents :start start :end end))))
    168168
    169 (defgeneric monom-sugar (m &optional start end)
     169(defgeneric universal-sugar (m &optional start end)
    170170  (:documentation "Return the sugar of a monomial M. Optinally, a range
    171171of variables may be specified with arguments START and END.")
    … …  
    174174    (monom-total-degree m start end)))
    175175
    176 (defgeneric monom-multiply-by (self other)
     176(defgeneric universal-multiply-by (self other)
    177177  (:method ((self monom) (other monom))
    178178    (with-slots ((exponents1 exponents))
Note: See TracChangeset for help on using the changeset viewer.