Changeset 860f23 in git

Timestamp:

Aug 19, 2019, 2:58:20 PM (4 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

8f5259270995467397bb2f930d7ccf6f7e0688f7

Parents:

f7a540d3611d73b5a22fc6d6b24c9ce8442c6b32

Message:

fix create_ring() in ncalg.lib

File:

• Singular/LIB/ncalg.lib (modified) (3 diffs)

Singular/LIB/ncalg.lib

@@ -596 +596 @@
   int n = ncols(A);
   list l2;
-  for (int ii = 1; ii <= n; ii++)
+  int ii;
+  for (ii = 1; ii <= n; ii++)
   {
    l2[ii] = "d("+string(ii)+")";
@@ -619 +620 @@
     }
   }
-  string sord2 = "(a(0:" + string(n) + ")," + sord + ")";
   string l3 = "(0";
-  int ii;
   for (ii = 1; ii <= @d; ii++)
   {
-   l3 = l3+",b("+string(ii)+")";
+    l3 = l3+",b("+string(ii)+")";
   }
   l3 = l3+")";
@@ -630 +629 @@
   for (ii = 1; ii <= n; ii++)
   {
-   l4[ii] = "x("+string(ii)+")";
-   l4[n+ii] = "d("+string(ii)+")";
+    l4[ii] = "x("+string(ii)+")";
+    l4[n+ii] = "d("+string(ii)+")";
   }
+  string sord2 = "(a(0";
+  for (ii = 2; ii <= n; ii++)
+  {
+    sord2 = sord2 + ",0";
+  }
+  sord2 = sord2 + ")," + sord + ")";
   ring GR = create_ring(l3, l4, sord2);
   def W=Weyl(); setring W;