Changeset 408d0a in git

Timestamp:

Jul 23, 2019, 3:50:35 PM (4 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

cbb89a79113ccf8c4cf31dd700cba8927fe3623a

Parents:

a5490df6eb531e16b296c8478a924b0ee069affc

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-23 15:50:35+02:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2019-07-23 15:58:00+02:00

Message:

fix usage of create_ring() in numerDecom.lib

File:

• Singular/LIB/numerDecom.lib (modified) (7 diffs)

Singular/LIB/numerDecom.lib

@@ -349 +349 @@
    if((n-rn)!=dd)
    {
-    list l2 = ringlist(S)[1];
+    list l2 = ringlist(S)[2];
     for (int ii = 1; ii <= dd; ii++)
     {
-    l2[size(l2)+1] = "z("+string(ii)+")";
+     l2[size(l2)+1] = "z("+string(ii)+")";
     }
     ring R = create_ring(0, l2, "dp");
@@ -488 +488 @@
      {
       int w(q-1)=0;
-      list l2 = ringlist(S)[1];
+      list l2 = ringlist(S)[2];
       for (int ii = 1; ii <= q; ii++)
       {
-      l2[size(l2)+1] = "z("+string(ii)+")";
+       l2[size(l2)+1] = "z("+string(ii)+")";
       }
       ring D(q) = create_ring("(0,s,gamma)", l2, "dp");
@@ -589 +589 @@
          for(qq=q-1;qq>=1;qq--)
          {
-          list l2 = ringlist(S)[1];
-           for (int ii = 1; ii <= qq; ii++)
-           {
+          list l2 = ringlist(S)[2];
+          for (int ii = 1; ii <= qq; ii++)
+          {
            l2[size(l2)+1] = "z("+string(ii)+")";
-           }
+          }
           ring T(qq) = create_ring("(complex,16,I)", l2, "dp");
           list W(qq-1)=var(1);
@@ -606 +606 @@
        {
         int w(qq-1);
-        list l2 = ringlist(S)[1];
+        list l2 = ringlist(S)[2];
         for (int ii = 1; ii <= qq; ii++)
         {
@@ -620 +620 @@
       for(qq=q;qq>=1;qq--)
       {
-       list l2 = ringlist(S)[1];
+       list l2 = ringlist(S)[2];
        for (int ii = 1; ii <= qq; ii++)
        {
@@ -1981 +1981 @@
   l2[ii] = "x("+string(ii)+")";
  }
- l2[n+1] = ringlist(S)[1];
+ l2 = l2+ringlist(S)[2];
  ring RR = create_ring(0, l2, "dp");
  for(i=1;i<=d;i++)
@@ -2026 +2026 @@
  int zc=size(D(d));
  export(zc);
- list l2 = ringlist(S)[1];
+ list l2 = ringlist(S)[2];
  for (int ii = 1; ii <= zc; ii++)
  {