Changeset 1004
- Timestamp:
- 2015-06-10T06:19:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parse.lisp
r865 r1004 75 75 is a number then convert it to a polynomial in N variables." 76 76 (if (numberp number-or-poly) 77 ( list (cons (make-list n :initial-element 0) number-or-poly))78 number-or-poly))77 (make-poly-from-termlist (list (make-term (make-monomial :dimension n) number-or-poly))) 78 number-or-poly)) 79 79 80 80 (defun $poly+ (p q n order ring)
Note:
See TracChangeset
for help on using the changeset viewer.