Changeset 988b95c in git

Timestamp:

Jul 4, 2015, 6:46:58 PM (8 years ago)

Author:

Jakob Kroeker <kroeker@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

ddc1937b20b15407322fe606d93ad53240f5b367

Parents:

7036d0b9fb90dfbbb225e698220889d8bfd08fb3

Message:

fixed zz is number warning

File:

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

Singular/LIB/primdec.lib

@@ -874 +874 @@
   int uytrewq;
   int nva = nvars(basering);
-  int @k,@s,@n,@k1,zz;
+  int @k,@s,@n,@k1,@zz;
   list primary,lres0,lres1,act,@lh,@wh;
   map phi,psi,phi1,psi1;
@@ -1055 +1055 @@
   {
     poly randp;
-    for(zz=1;zz<nvars(basering);zz++)
+    for(@zz=1;@zz<nvars(basering);@zz++)
     {
       randp=randp
-              +(random(0,5)*par(1)^2+random(0,5)*par(1)+random(0,5))*var(zz);
+              +(random(0,5)*par(1)^2+random(0,5)*par(1)+random(0,5))*var(@zz);
     }
     randp=randp+var(nvars(basering));
@@ -1068 +1068 @@
     if (size(primary[2*@k])==0)
     {
-      for(zz=1;zz<size(primary[2*@k-1])-1;zz++)
+      for(@zz=1;@zz<size(primary[2*@k-1])-1;@zz++)
       {
         attrib(primary[2*@k-1],"isSB",1);
-        if(vdim(primary[2*@k-1])==deg(primary[2*@k-1][zz]))
+        if(vdim(primary[2*@k-1])==deg(primary[2*@k-1][@zz]))
         {
           primary[2*@k]=primary[2*@k-1];
@@ -1099 +1099 @@
         if(deg(lead(primary[2*@k-1][@n]))==1)
         {
-          for(zz=1;zz<=nva;zz++)
+          for(@zz=1;@zz<=nva;@zz++)
           {
-            if(lead(primary[2*@k-1][@n])/var(zz)!=0)
+            if(lead(primary[2*@k-1][@n])/var(@zz)!=0)
             {
-              jmap1[zz]=-1/leadcoef(primary[2*@k-1][@n])*primary[2*@k-1][@n]
+              jmap1[@zz]=-1/leadcoef(primary[2*@k-1][@n])*primary[2*@k-1][@n]
                    +2/leadcoef(primary[2*@k-1][@n])*lead(primary[2*@k-1][@n]);
-              jmap2[zz]=primary[2*@k-1][@n];
-              @qht[@n]=var(zz);
+              jmap2[@zz]=primary[2*@k-1][@n];
+              @qht[@n]=var(@zz);
             }
           }
@@ -9023 +9023 @@
   int uytrewq;
   int nva = nvars(basering);
-  int @k,@s,@n,@k1,zz;
+  int @k,@s,@n,@k1,@zz;
   list primary,lres0,lres1,act,@lh,@wh;
   map phi,psi,phi1,psi1;
@@ -9206 +9206 @@
   {
     poly randp;
-    for(zz=1;zz<nvars(basering);zz++)
+    for(@zz=1;@zz<nvars(basering);@zz++)
     {
       randp=randp
-              +(random(0,5)*par(1)^2+random(0,5)*par(1)+random(0,5))*var(zz);
+              +(random(0,5)*par(1)^2+random(0,5)*par(1)+random(0,5))*var(@zz);
     }
     randp=randp+var(nvars(basering));
@@ -9219 +9219 @@
     if (size(primary[2*@k])==0)
     {
-      for(zz=1;zz<size(primary[2*@k-1])-1;zz++)
+      for(@zz=1;@zz<size(primary[2*@k-1])-1;@zz++)
       {
         attrib(primary[2*@k-1],"isSB",1);
-        if(vdim(primary[2*@k-1])==deg(primary[2*@k-1][zz]))
+        if(vdim(primary[2*@k-1])==deg(primary[2*@k-1][@zz]))
         {
           primary[2*@k]=primary[2*@k-1];
@@ -9250 +9250 @@
         if(deg(lead(primary[2*@k-1][@n]))==1)
         {
-          for(zz=1;zz<=nva;zz++)
+          for(@zz=1;@zz<=nva;@zz++)
           {
-            if(lead(primary[2*@k-1][@n])/var(zz)!=0)
+            if(lead(primary[2*@k-1][@n])/var(@zz)!=0)
             {
-              jmap1[zz]=-1/leadcoef(primary[2*@k-1][@n])*primary[2*@k-1][@n]
+              jmap1[@zz]=-1/leadcoef(primary[2*@k-1][@n])*primary[2*@k-1][@n]
                    +2/leadcoef(primary[2*@k-1][@n])*lead(primary[2*@k-1][@n]);
-              jmap2[zz]=primary[2*@k-1][@n];
-              @qht[@n]=var(zz);
+              jmap2[@zz]=primary[2*@k-1][@n];
+              @qht[@n]=var(@zz);
             }
           }