Changeset 860f23 in git for Singular

Timestamp:

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

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

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;