Changeset 96a9c70 in git for Singular/LIB/gaussman.lib

Timestamp:

May 16, 2002, 1:16:30 PM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

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

Children:

3c2a5571ac46a8bb4f0fab0f1a30455002c0135a

Parents:

a956ece256872feedc7f2cbb635d2e372bf7323f

Message:

*** empty log message ***


git-svn-id: file:///usr/local/Singular/svn/trunk@6091 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gaussman.lib,v 1.81 2002-05-16 10:37:22 mschulze Exp $";
+version="$Id: gaussman.lib,v 1.82 2002-05-16 11:16:30 mschulze Exp $";
 category="Singularities";
 
@@ -1613 +1613 @@
     }
   }
-  int i,j,k=1,1,0;
+  int i,j,k;
+  i=1;
   while(i<=size(sp[2])-1)
   {
-    while(sp[1][j]<=sp[1][i])
-    {
+    j=i+1;
+    k=0;
+    while(j+1<=size(sp[2])&&number(sp[1][j])<=number(sp[1][i])+1)
+    {
+      if(opt==0||number(sp[1][j])<number(sp[1][i])+1)
+      {
+        k=k+sp[2][j];
+      }
       j++;
     }
-    while(j+1<=size(sp[2])&&sp[1][j]<=sp[1][i]+1)
-    {
-      if(opt==0||sp[1][j]<sp[1][i]+1)
+    if(j==size(sp[2])&&number(sp[1][j])<=number(sp[1][i])+1)
+    {
+      if(opt==0||number(sp[1][j])<number(sp[1][i])+1)
       {
         k=k+sp[2][j];
       }
-      j++;
-    }
-    if(j==size(sp[2])&&sp[1][j]<=sp[1][i]+1)
-    {
-      if(opt==0||sp[1][j]<sp[1][i]+1)
-      {
-        k=k+sp[2][j];
-      }
-      j++;
     }
     if(k<0)
@@ -1640 +1638 @@
       return(0);
     }
-    i,j,k=i+1,1,0;
+    i++;
   }
   return(1);