Changeset 1826 for branches/f4grobner/mx-grobner.lisp
- Timestamp:
- 2015-06-15T14:00:41-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1825 r1826 262 262 (:term 263 263 `((mtimes) ,($ratdisrep (term-coeff object)) 264 ,@(mapcar #'(lambda (var power) `((mexpt) ,var ,power)) 265 vars (monom->list (term-monom object))))) 264 ,@(mapcar 265 #'(lambda (var power) `((mexpt) ,var ,power)) 266 vars 267 (monom->list (term-monom object))))) 266 268 ;; Assumes that Lisp and Maxima logicals coincide 267 269 (:logical object))) 268 269 270 270 271 271 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note:
See TracChangeset
for help on using the changeset viewer.