Changeset 1053
- Timestamp:
- 2015-06-10T08:55:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1051 r1053 323 323 (reduce (ring-gcd ring) (mapcar #'term-coeff (rest (poly-termlist p))) :initial-value (poly-lc p))) 324 324 325 ;; Return the standard basis of the monomials in n variables326 325 (defun variable-basis (ring n &aux (basis (make-list n))) 327 326 "Generate a list of polynomials X[i], i=0,1,...,N-1."
Note:
See TracChangeset
for help on using the changeset viewer.