Changeset 1732
- Timestamp:
- 2015-06-15T08:20:49-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1731 r1732 383 383 ,@(when new-vars-supplied-p 384 384 (list `(,new-vars (coerce-maxima-list ,maxima-new-vars))))) 385 ( coerce-to-maxima385 (poly->maxima 386 386 ,value-type 387 387 (let ((*ring-and-order* (find-ring-and-order-by-name 388 389 390 391 392 388 :ring ,$poly_coefficient_ring 389 :order ,$poly_monomial_order 390 ;; :elimination-order ,$poly_primary_elimination_order 391 :primary-elimination-order ,$poly_secondary_elimination_order 392 :secondary-elimination-order ,$poly_elimination_order))) 393 393 (let ,(let ((args nil)) 394 394 (dolist (p polynomials args) … … 398 398 (dolist (p poly-list-lists args) 399 399 (setf args (cons `(,p (parse-poly-list-list ,p ,vars)) args)))) 400 . ,body))) )401 402 403 vars))))400 . ,body))) 401 ,(if new-vars-supplied-p 402 `(append ,vars ,new-vars) 403 vars))) 404 404 405 405
Note:
See TracChangeset
for help on using the changeset viewer.