Changeset e480be8 in git for Singular/LIB/solve.lib

Timestamp:

Jul 31, 2019, 10:36:39 PM (5 years ago)

Author:

Sachin <sachinkm308@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

31212ff491b316ea34617fe1509cfbc676781d4b

Parents:

eaa04d99a77423d7f9cde832587a68b8005c46d8

git-author:

Sachin <sachinkm308@gmail.com>2019-07-31 22:36:39+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-08-06 17:17:16+02:00

Message:

replacing execute with create_ring (5)

File:

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

Singular/LIB/solve.lib

@@ -700 +700 @@
     if (oldr!=1)
     {
-      execute("ring rinC =(complex,"+string(outprec)+
-                 "),("+varstr(basering)+"),lp;");
+      ring rinC = create_ring("(complex,"+string(outprec)+")", "("+varstr(basering)+")", "lp");
       list SOL;
       if (mu==0){SOL[1] = zerolist(nv);}
@@ -771 +770 @@
       if (oldr!=1)
       {
-        execute("ring rinC =(complex,"+string(outprec)+"),("+varstr(basering)+"),lp;");
+        ring rinC = create_ring("(complex,"+string(outprec)+")", "("+varstr(basering)+")", "lp");
         list SOL;
         for (ii=1; ii<=size(L); ii++ ) { execute("SOL[ii]=number("+L[ii]+");"); }
@@ -800 +799 @@
     else
     {
-      execute("ring internC=(complex,"+string(prec)+"),("+varstr(basering)+"),lp;");
+      ring internC = create_ring("(complex,"+string(prec)+")", "("+varstr(basering)+")", "lp");
       ideal H = imap(hr,H);
       list sp = splittolist(splitsqrfree(H[1],var(1)));
@@ -812 +811 @@
       if (oldr!=1)
       {
-        execute("ring rinC =(complex,"+string(outprec)+"),("+varstr(basering)+"),lp;");
+        ring rinC = create_ring("(complex,"+string(outprec)+")", "("+varstr(basering)+")", "lp");
         list SOL;
         list sp=imap(internC,sp);
@@ -878 +877 @@
   if (outprec<prec)
   {
-    execute("ring internC=(complex,"+string(prec)+"),("+varstr(hr)+"),lp;");
+    ring internC = create_ring("(complex,"+string(prec)+")", "("+varstr(hr)+")", "lp");
   }
   else
   {
-    execute("ring rinC =(complex,"+string(outprec)+"),("+varstr(basering)+"),lp;");
+    ring rinC = create_ring("(complex,"+string(outprec)+")", "("+varstr(basering)+")", "lp");
   }
   list triC = imap(hr,sp);
@@ -941 +940 @@
     if (oldr!=1)
     {
-      execute("ring rinC =(complex,"+string(outprec)+"),("+varstr(basering)+"),lp;");
+      ring rinC = create_ring("(complex,"+string(outprec)+")", "("+varstr(basering)+")", "lp");
       list SOL=imap(internC,ret1);
       export SOL;
@@ -1436 +1435 @@
     int ii,jj;
     int nv=size(LL[1]);
-    execute("ring rinC =(complex,"+string(prec)+",I),("
-                           +varstr(basering)+"),lp;");
+    ring rinC = create_ring("(complex,"+string(prec)+",I)", "("+varstr(basering)+")", "lp");
     list SOL,SOLnew;
     for (ii=1; ii<=sizeLL; ii++)