Changeset 0aa248 in git

Timestamp:

Jan 19, 2015, 7:32:32 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

4f86a6c608ae0ffe2bc7d860feb86005c6b01247

Parents:

7f7808b469356db2d153deaaca9bfc3b79f91c08

Message:

fix: changeordTo in solve.lib

File:

• Singular/LIB/solve.lib (modified) (5 diffs)

Singular/LIB/solve.lib

@@ -23 +23 @@
 
 LIB "triang.lib";    // needed for triang_solve
+LIB "ring.lib";      // needed for changeordTo
 
 ///////////////////////////////////////////////////////////////////////////////
@@ -692 +693 @@
     if (sb==0)
     {
-      execute("ring dphom=("+charstr(rin)+"),("+
-      varstr(rin)+"),dp;");
+      def dphom=changeordTo(rin,"dp"); setring dphom;
       ideal G = std(imap(rin,G));
       if (dim(G)!=0){ERROR("ideal not zero-dimensional");}
@@ -736 +736 @@
     if (sb==0)
     {
-      execute("ring dphilb=("+charstr(rin)+"),("+ varstr(rin)+"),dp;");
+      def dphilb=changeordTo(rin,"dp"); setring dphilb;
       ideal G = imap(rin,G);
       G = std(G);
@@ -747 +747 @@
       attrib(G,"isSB",1);
     }
-    execute("ring lexhilb=("+charstr(rin)+"),("+ varstr(rin)+"),lp;");
+    def lexhilb=changeordTo(rin,"lp"); setring lexhilb;
     option(redTail);
     ideal H = fglm(dphilb,G);
@@ -755 +755 @@
     else
     {
-      execute("ring lplex=("+charstr(rin)+"),("+varstr(rin)+"),lp;");
+      def lplex=changeordTo(rin,"lp"); setring lplex;
     }
     ideal H = imap(lexhilb,H);