Changeset 1021
- Timestamp:
- 2015-06-10T06:52:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parse.lisp
r1020 r1021 253 253 ;; Return the standard basis of the monomials in n variables 254 254 (defun variable-basis (ring n &aux (basis (make-list n))) 255 "Generate a list of monomials ((1 0 ... 0) (0 1 0 ... 0) ... (0 0 ... 1) 256 which correspond to linear monomials X1, X2, ... XN." 255 "Generate a list of polynomials X[i], i=0,1,...,N-1." 257 256 (dotimes (i n basis) 258 257 (setf (elt basis i) (make-variable ring n i))))
Note:
See TracChangeset
for help on using the changeset viewer.