Changeset 9106ba in git

Timestamp:

Jul 5, 2019, 1:15:29 PM (5 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bc4eb794179fe80f037ef650a09e4a41d316208e

Parents:

d7986423e035a446daf68277d8b09647572897c4e7e3ebfa003ccb14c8ecb93fe17be8d05279a7e7

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-07-05 13:15:29+02:00

git-committer:

GitHub <noreply@github.com>2019-07-05 13:15:29+02:00

Message:

Merge pull request #937 from steenpass/execute

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);