close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1654 for branches/f4grobner


Ignore:
Timestamp:
2015-06-14T20:33:59-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/mx-grobner.lisp

    r1653 r1654  
    181181     ((member expr vars :test #'equal-test-p)
    182182      (let ((pos (position expr vars :test #'equal-test-p)))
    183         (make-variable *maxima-ring* (length vars) pos)))
     183        (make-variable ring (length vars) pos)))
    184184     ((free-of-vars expr vars)
    185185      ;;This means that variable-free CRE and Poisson forms will be converted
    186186      ;;to coefficients intact
    187       (coerce-coeff *maxima-ring* expr vars))
     187      (coerce-coeff ring expr vars))
    188188     (t
    189189      (case (caar expr)
    190         (mplus (reduce #'(lambda (x y) (poly-add *maxima-ring* x y)) (parse-list (cdr expr))))
    191         (mminus (poly-uminus *maxima-ring* (parse (cadr expr))))
     190        (mplus (reduce #'(lambda (x y) (poly-add ring-and-order x y)) (parse-list (cdr expr))))
     191        (mminus (poly-uminus ring (parse (cadr expr))))
    192192        (mtimes
    193193         (if (endp (cddr expr))         ;unary
Note: See TracChangeset for help on using the changeset viewer.