Changeset 31c836 in git for Singular

Timestamp:

Mar 10, 2020, 3:15:39 PM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ed7384a7d318d0c134a4985e814a9a2ca3eeb1fa

Parents:

0b3c231859f88bf091386e066109a0766f11896d

Message:

fix: redef, opt. for loops

File:

• Singular/LIB/algebra.lib (modified) (4 diffs)

Singular/LIB/algebra.lib

@@ -390 +390 @@
     int m = ncols(A);
     int s = size(B);
-    int i;
+    int i,@xx,@yy;
     string mp = string(minpoly);
  // --------------------- 1st variant of algorithm ----------------------
@@ -397 +397 @@
     {
       list l6;  
-      for (int xx = 1; xx <= m; xx++)
+      for (@xx = 1; @xx <= m; @xx++)
       {
-       l6[size(l6)+1] = "y("+string(xx)+")";
+       l6[size(l6)+1] = "y("+string(@xx)+")";
       }
       ring R1 = create_ring(ringlist(br)[1], l6, "dp", "no_minpoly");
@@ -411 +411 @@
  // ---------- create new ring with extra variables --------------------
     list l7;  
-    for (int xx = 1; xx <= n; xx++)
-    {
-     l7[size(l7)+1] = "x("+string(xx)+")";
-    }
-    for (int yy = 1; yy <= m; yy++)
-    {
-     l7[size(l7)+1] = "y("+string(yy)+")";
+    for (@xx = n; @xx >= 1; @xx--)
+    {
+     l7[@xx] = "x("+string(@xx)+")";
+    }
+    for (@yy = m; @yy >= 1; @yy--)
+    {
+     l7[n+@yy] = "y("+string(@yy)+")";
     }
     ring R2 = create_ring(ringlist(br)[1], l7, "dp", "no_minpoly");
@@ -447 +447 @@
        {
         list l8;  
-        for (int xx = 1; xx <= n; xx++)
+        for (@xx = n; @xx >=1; @xx--)
         {
-         l8[size(l8)+1] = "x("+string(xx)+")";
+         l8[@xx] = "x("+string(@xx)+")";
         }
-        for (int yy = 1; yy <= m; yy++)
+        for (@yy = m; @yy >= 1; @yy--)
         {
-         l8[size(l8)+1] = "y("+string(yy)+")";
+         l8[n+@yy] = "y("+string(@yy)+")";
         }
         setring(br);