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 1772 for branches


Ignore:
Timestamp:
2015-06-15T10:10:58-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1771 r1772  
    497497(defmfun $poly_depends_p (p var mvars
    498498                            &aux
     499                            &aux (vars (coerce-maxima-list mvars))
    499500                            (pos (position var vars)))
    500501  (with-ring-and-order ((mvars) :polynomials (p) :value-type :custom)
    501502    (if (null pos)
    502503        (merror "~%Variable ~M not in the list of variables ~M." var mvars)
    503         (poly-depends-p (maxima->poly p vars ring-and-order) pos))))
     504        (poly-depends-p (maxima->poly p mvars ring-and-order) pos))))
    504505
    505506(defmfun $poly_elimination_ideal (flist k vars)
Note: See TracChangeset for help on using the changeset viewer.