Changeset 1737
- Timestamp:
- 2015-06-15T08:30:28-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/mx-grobner.lisp
r1736 r1737 388 388 (poly->maxima 389 389 ,value-type 390 (let ((,ring-and-order ,(find-ring-and-order-by-name 391 :ring $poly_coefficient_ring 392 :order $poly_monomial_order 393 ;; :elimination-order ,$poly_primary_elimination_order 394 :primary-elimination-order $poly_secondary_elimination_order 395 :secondary-elimination-order $poly_elimination_order))) 390 (let ((,ring-and-order (find-ring-and-order-by-name 391 :ring $poly_coefficient_ring 392 :order $poly_monomial_order 393 :primary-elimination-order $poly_secondary_elimination_order 394 :secondary-elimination-order $poly_elimination_order))) 396 395 (let ,(let ((args nil)) 397 396 (dolist (p polynomials args)
Note:
See TracChangeset
for help on using the changeset viewer.