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 1770 for branches/f4grobner


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

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/mx-grobner.lisp

    r1769 r1770  
    496496
    497497(defmfun $poly_depends_p (p var mvars
    498                         &aux (vars (coerce-maxima-list mvars))
    499                              (pos (position var vars)))
    500   (if (null pos)
    501       (merror "~%Variable ~M not in the list of variables ~M." var mvars)
    502     (poly-depends-p (parse-poly p vars) pos)))
     498                            &aux (vars (coerce-maxima-list mvars))
     499                            (pos (position var vars)))
     500  (with-ring-and-order ((mvars) :polynomials (p) :value-type :custom)
     501    (if (null pos)
     502        (merror "~%Variable ~M not in the list of variables ~M." var mvars)
     503        (poly-depends-p (maxima->poly p vars ring-and-order) pos))))
    503504
    504505(defmfun $poly_elimination_ideal (flist k vars)
Note: See TracChangeset for help on using the changeset viewer.