Changeset 888
- Timestamp:
- 2015-06-09T12:27:26-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r854 r888 54 54 Optionally, the term may appear with an arbitrary coefficient, which 55 55 defaults to the unit of the RING." 56 (declare (fixnum nvars pos power)) 57 (let ((m (make-monom :dimension nvars))) 58 (setf (monom-elt m pos) power) 59 (make-term m coeff))) 56 (let 57 (make-term (make-monom-variable nvars pos) coeff))) 60 58 61 59 (defun term-mul (ring term1 term2)
Note:
See TracChangeset
for help on using the changeset viewer.