Changeset 3074
- Timestamp:
- 2015-06-21T18:16:35-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3073 r3074 312 312 "Calculate [F, U1*P1-1,U2*P2-1,...,UK*PK-1], where PLIST=[P1,P2,...,PK]." 313 313 (flet ((subtract-1 (p) 314 (insert-item p (make-instance 'term :coeff -1 :dimension dim)) 315 p)) 314 (insert-item p (make-instance 'term :coeff -1 :dimension dim)))) 316 315 (setf plist (mapc #'subtract-1 plist))) 317 316 (nconc F plist))
Note:
See TracChangeset
for help on using the changeset viewer.