Changeset febceb in git for Singular

Timestamp:

Feb 8, 2023, 11:53:52 AM (15 months ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

fc3e38a9594db45ef057fa7619334e1e68c5dbcb

Parents:

68d3d68ed95d98fbda368b21fd043075dd4520e0

Message:

fix: remove execute in tropicalNewton.lib

File:

• Singular/LIB/tropicalNewton.lib (modified) (3 diffs)

Singular/LIB/tropicalNewton.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="version tropicalNewton.lib 4.1.2.0 Feb_2019 "; // $Id$
+version="version tropicalNewton.lib 4.3.1.3 Feb_2023 "; // $Id$
 category="Tropical Geometry";
 info="
@@ -488 +488 @@
 
   int n = nvars(origin);
-  string vars;
-  string subststr = "ideal J = subst(I,";
+  ideal @map_im;
   list VV;
   number c;
+  list vars;
   for (int i=1; i<=n; i++)
   {
     if (u[i]==0)
     {
-      vars = vars+varstr(i)+",";
+      @map_im[i]=var(i);
+      vars=vars+list(string(var(i)));
     }
     else
@@ -503 +504 @@
       VV[i]=number(val(c));
       dbprint("substituting "+string(var(i))+" with number of valuation "+string(VV[i]));
-      subststr = subststr+varstr(i)+","+string(c)+",";
-    }
-  }
-  vars = vars[1..size(vars)-1];
-  subststr = string(subststr[1..size(subststr)-1])+");";
-  execute(subststr);
-
-  ring s = create_ring(ring_list(origin)[1], "("+vars+")", "lp", "no_minpoly");
+      @map_im[i]=c;
+    }
+  }
+  map @map=basering,@map_im;
+  ideal J=@map(I);
+
+  ring s = create_ring(ring_list(origin)[1], vars, "lp", "no_minpoly");
   ideal J = imap(origin,J);
   int tstdlp = timer;