Changeset 1020
- Timestamp:
- 2015-06-10T06:51:35-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/parse.lisp
r1019 r1020 250 250 (rest poly-or-poly-list)))) 251 251 (t (sort-poly-1 poly-or-poly-list order)))) 252 253 ;; Return the standard basis of the monomials in n variables 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." 257 (dotimes (i n basis) 258 (setf (elt basis i) (make-variable ring n i)))) 252 259 253 260 (defun poly-eval-1 (ring-and-order expr vars … … 323 330 324 331 325 ;; Return the standard basis of the monomials in n variables326 (defun variable-basis (ring n &aux (basis (make-list n)))327 "Generate a list of monomials ((1 0 ... 0) (0 1 0 ... 0) ... (0 0 ... 1)328 which correspond to linear monomials X1, X2, ... XN."329 (dotimes (i n basis)330 (setf (elt basis i) (make-variable ring n i))))
Note:
See TracChangeset
for help on using the changeset viewer.