Changeset e7e3ebf in git

Timestamp:

Jul 5, 2019, 1:02:09 PM (5 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9106bad6b87adbeb41af9929a6f7e1f2a5d7ec94

Parents:

d7986423e035a446daf68277d8b09647572897c4

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-05 13:02:09+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-05 13:05:08+02:00

Message:

fix create_ring() in gitfan.lib

Location:

Singular/LIB

Files:

• algebra.lib (modified) (1 diff)
• gitfan.lib (modified) (1 diff)

Singular/LIB/algebra.lib

@@ -278 +278 @@
   //with the ring k[y(0),...,y(n)] is computed, the result is ker
    execute ("ring r1= ("+charstr(basering)+"),(x(1..n),y(0..z)),lp;");
- //  execute ("ring r1= ("+charstr(basering)+"),(y(0..z),x(1..n)),dp;");
   if (mp!="0")
   { execute ("minpoly=number("+mp+");"); }

Singular/LIB/gitfan.lib

@@ -266 +266 @@
   newVars = newVars+string(var(k));
   newWeightVector[n]=weightVector[k];
-  execute("ring ringForSaturation = ("+charstr(origin)+"),("+newVars+"),(wp(newWeightVector));");
-
+  ring ringForSaturation = create_ring(ringlist(origin)[1], "("+newVars+")",
+      list(list("wp", newWeightVector)),"no_minpoly");
   ideal I = satstd(imap(origin,I));
   I = simplify(I,2+4+32);