- Timestamp:
- 2015-06-16T01:26:11-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pol.lisp
r1994 r1995 303 303 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 304 304 305 (def un coerce-coeff (ringexpr vars)305 (defmethod scalar->poly ((ring ring) expr vars) 306 306 "Coerce an element of the coefficient ring to a constant polynomial." 307 307 ;; Modular arithmetic handler by rat 308 (declare (type ring ring))309 308 (make-poly-from-termlist (list (make-term :monom (make-monom :dimension (length vars)) 310 309 :coeff (funcall (ring-parse ring) expr)))
Note:
See TracChangeset
for help on using the changeset viewer.