Changeset 46 for branches/f4grobner
- Timestamp:
- 2015-06-02T00:38:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/grobner.lisp
r45 r46 783 783 (defun scalar-times-poly (ring c p) 784 784 (make-poly-from-termlist (scalar-times-termlist ring c (poly-termlist p)) (poly-sugar p))) 785 786 ;; The scalar product omitting the head term 787 (defun scalar-times-poly-1 (ring c p) 788 (make-poly-from-termlist (scalar-times-termlist ring c (cdr (poly-termlist p))) (poly-sugar p))) 785 789 786 790 (defun monom-times-poly (m p)
Note:
See TracChangeset
for help on using the changeset viewer.