Changeset 1848 for branches/f4grobner/.junk

Timestamp:

2015-06-15T14:08:44-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/.junk/poly-eval.lisp (modified) (2 diffs)

branches/f4grobner/.junk/poly-eval.lisp

@@ -44 +44 @@
 is a number then convert it to a polynomial in N variables."
   (if (numberp number-or-poly)
-      (make-poly-from-termlist (list (make-term (make-monom :dimension n) number-or-poly)))
+      (make-poly-from-termlist (list (make-term :monom (make-monom :dimension n) :coeff number-or-poly)))
       number-or-poly))
 
@@ -88 +88 @@
   "Generate a list of polynomials X[i], i=0,1,...,N-1."
   (dotimes (i n basis)
-    (setf (elt basis i) (make-variable ring n i))))
+    (setf (elt basis i) (make-poly-variable ring n i))))