Changeset f2aefad in git for Singular/LIB/ehv.lib

Timestamp:

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

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

468f1cd0a1858015dd4df9d29a80273b108974f0

Parents:

67b671f4c50b45b76df2adaa82951717ba011091

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-01 14:07:15+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-01 15:15:49+02:00

Message:

fix replacements of execute() by create_ring()

File:

• Singular/LIB/ehv.lib (modified) (2 diffs)

Singular/LIB/ehv.lib

@@ -743 +743 @@
                   //..and insert f in g1...
                   ring newR = create_ring(ringlist(R)[1], "(y(1))", "(" + ordstr(R) + ")", "no_minpoly");
-                  poly g2 = imap(R,g1);
+                  poly g2 = imap(R,g1);
                   setring base;
                   h = fetch(newR,g2);
@@ -1039 +1039 @@
               ideal homoJ = fetch(base,K);
               homoJ = groebner(homoJ);
-              ring newR = create_ring(ringlist(base)[1], "(x(1..n),t)", "dp", "no_minpoly");
-              ideal homoK = fetch(homoR,homoJ);
+              list l2;
+              for (int ii = 1; ii <= n; ii++)
+              {
+                l2[i] = "x("+string(ii)+")";
+              }
+              l2[n+1] = "t";
+              ring newR = create_ring(ringlist(base)[1], l2, "dp", "no_minpoly");
+              ideal homoK = fetch(homoR,homoJ);
               homoK = homog(homoK,t);
               attrib(homoK,"isEquidimensional",1);