Changeset 4b79661 in git

Timestamp:

May 16, 2019, 3:04:48 PM (4 years ago)

Author:

Sachin <sachinkm308@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

d90fef85ca2c62d55b0f856b13bb352f199e2883

Parents:

38f64f390d4436be348da6ef47e2af0b9b28e73b

git-author:

Sachin <sachinkm308@gmail.com>2019-05-16 15:04:48+02:00

git-committer:

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

Message:

Removed Execute under comment

Location:

Singular/LIB

Files:

• freegb.lib (modified) (1 diff)
• normal.lib (modified) (1 diff)

Singular/LIB/freegb.lib

@@ -3472 +3472 @@
 }
 
-// obsolete
-static proc lshift(module M, int s, string varing, def lpring)
-{
-  // FINALLY IMPLEMENTED AS A PART OT THE C CODE
-  // shifts a polynomial from the ring R to s positions
-  // M lives in varing, the result in lpring
-  // to be run from varing
-  int i, j, k, sm, sv;
-  vector v;
-  setring lpring;
-  poly @@p;
-  ideal I;
-  execute("setring "+varing);
-  sm = ncols(M);
-  for (i=1; i<=s; i++)
-  {
-    // modules, e.g. free polynomials
-    for (j=1; j<=sm; j++)
-    {
-      //vectors, e.g. free monomials
-      v  = M[j];
-      sv = size(v);
-      sp = "@@p = @@p + ";
-      for (k=2; k<=sv; k++)
-      {
-        sp = sp + string(v[k])+"("+string(k-1+s)+")*";
-      }
-      sp = sp + string(v[1])+";"; // coef;
-      setring lpring;
-      //      execute("setring "+lpring);
-      execute(sp);
-      execute("setring "+varing);
-    }
-    setring lpring;
-    //    execute("setring "+lpring);
-    I = I,@@p;
-    @@p = 0;
-  }
-  setring lpring;
-  //execute("setring "+lpring);
-  export(I);
-  //  setring varing;
-  execute("setring "+varing);
-}
+
 
 static proc skip0(vector v)

Singular/LIB/normal.lib

@@ -2798 +2798 @@
       if(w>=1){"Newton-Polygon is degenerated";"";}
 /* need to re-consider the degree bound (de):
+      execute
       // the following can certainly be made more efficient when replacing
       // 'hnexpansion' (used only for computing number of branches) by