Changeset 130797 in git for Singular/LIB/primdec.lib

Timestamp:

Nov 17, 2014, 3:27:45 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2ded874d151d5045e5aec886534e1d3c44433a76

Parents:

0bd4b29132baebe2504d6f0ade75a81dd2dda8b5

Message:

fix: tr #667 (minAssChar)

File:

• Singular/LIB/primdec.lib (modified) (5 diffs)

Singular/LIB/primdec.lib

@@ -524 +524 @@
     return(0);
   }
-  for (i=1;i<=size(act)-1;i++)
+  for (i=1;i<size(act);i++)
   {
     for(j=i+1;j<=size(act);j++)
@@ -1436 +1436 @@
   for(j=2;j<=size(F);j++)
   {
-    for(k=1;k<=j-1;k++)
+    for(k=1;k<j;k++)
     {
       ti=F[k];
@@ -2016 +2016 @@
         if(ndim>odim)
         {
-           for(k=count;k<=j-1;k++)
+           for(k=count;k<j;k++)
            {
               pos[k]=1;
@@ -4424 +4424 @@
     PHI[i]=ideal(m[i,1..ncols(m)]);
     I=0;
-    for(j=size(PHI[i]);j>0;j=j-1)
+    for(j=ncols(PHI[i]);j>0;j--)
     {
       I=I,ini_mod(PHI[i][j]);
@@ -4849 +4849 @@
             m=minAssPrimes(SP,1);
           }
-          for(j=size(m);j>=1;j=j-1)
+          for(j=size(m);j>=1;j--)
             {
               m[j]=std(m[j]);