Changeset 26
- Timestamp:
- 2012-06-25T09:51:42-07:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/grobner.lisp
r25 r26 2049 2049 ,@(mapcar #'(lambda (var power) `((mexpt) ,var ,power)) 2050 2050 vars (monom-exponents (term-monom object))))) 2051 ;; Assumes that Lisp and Maxima logicals coincide 2052 (:logical object) 2051 2053 (otherwise 2052 2054 object))) … … 2288 2290 (ideal-polysaturation *maxima-ring* f ideal-list 0 nil))) 2289 2291 2292 (defmfun $poly_lt (f vars) 2293 (with-parsed-polynomials ((vars) :polynomials (f) :value-type :polynomial) 2294 (make-poly-from-termlist (list (poly-lt f))))) 2295 2296 (defmfun $poly_lm (f vars) 2297 (with-parsed-polynomials ((vars) :polynomials (f) :value-type :polynomial) 2298 (make-poly-from-termlist (list (make-term (poly-lm f) (funcall (ring-unit *maxima-ring*))))))) 2299 2300 (defmfun $buchberger_criterion (g vars) 2301 (with-parsed-polynomials ((vars) :poly-lists (g) :value-type :logical) 2302 (buchberger-criterion *maxima-ring* g)))
Note:
See TracChangeset
for help on using the changeset viewer.