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 1659


Ignore:
Timestamp:
2015-06-14T20:36:41-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1656 r1659  
    181181     ((member expr vars :test #'equal-test-p)
    182182      (let ((pos (position expr vars :test #'equal-test-p)))
    183         (make-variable ring (length vars) pos)))
     183        (make-poly-variable ring (length vars) pos)))
    184184     ((free-of-vars expr vars)
    185185      ;;This means that variable-free CRE and Poisson forms will be converted
    … …  
    199199           ;;Special handling of (expt var pow)
    200200           (let ((pos (position (cadr expr) vars :test #'equal-test-p)))
    201              (make-variable *maxima-ring* (length vars) pos (caddr expr))))
     201             (make-poly-variable ring (length vars) pos (caddr expr))))
    202202          ((not (and (integerp (caddr expr)) (plusp (caddr expr))))
    203203           ;; Negative power means division in coefficient ring
Note: See TracChangeset for help on using the changeset viewer.