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

Timestamp:

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

Author:

Sachin <sachinkm308@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

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/mprimdec.lib (modified) (4 diffs)

Singular/LIB/mprimdec.lib

@@ -224 +224 @@
   {
     def BAS=basering;
-    execute("ring Rloc=("+charstr(basering)+","+varstr(basering)+"),dummy,(C,dp);");
+    ring Rloc = create_ring("("+charstr(basering)+","+varstr(basering)+")", "dummy", "(C,dp)");
     module @N=imap(BAS, @N);
     poly @q=prepareSat(@N);
@@ -634 +634 @@
   if(size(ann)==0)
   {
-    execute("ring Rloc=("+charstr(basering)+","+varstr(basering)+"),dummy,(C,dp);");
+    ring Rloc = create_ring("("+charstr(basering)+","+varstr(basering)+")", "dummy", "(C,dp)");
     module @N=imap(BAS, @N);
     poly @q=prepareSat(@N);
@@ -1424 +1424 @@
   if(size(ann)==0)      //check, whether ann=0
   {
-   execute("ring Rloc=("+charstr(basering)+","+varstr(basering)+"),dummy,(C,dp);");
+   ring Rloc = create_ring("("+charstr(basering)+","+varstr(basering)+")", "dummy", "(C,dp)");
    module @N=clrSBmod(imap(BAS, @N));
    module @M=freemodule(nrows(@N));
@@ -1553 +1553 @@
       ring RAU = create_ring(ringlist(basering)[1], "("+indep[@k1][@k2][1]+","+indep[@k1][@k2][2]+")", indep[@k1][@k2][3], "no_minpoly");
       module @N=std(imap(BAS,@N)); // the standard basis in (R[U])[A]
-      execute("ring Rloc=("+charstr(basering)+","+indep[@k1][@k2][2]+"),("+indep[@k1][@k2][1]+"),(C,dp);");
+      ring Rloc = create_ring("("+charstr(basering)+","+indep[@k1][@k2][2]+")", "("+indep[@k1][@k2][1]+")", "(C,dp)");
       module @N=imap(RAU,@N); //std in lokalisierung
       @N=clrSBmod(@N);