Changeset c71123 in git

Timestamp:

Aug 1, 2001, 3:21:36 PM (22 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

e90314894f11eeb9e91dd2e8b38dbaa5f46569d9

Parents:

4b6c751b1fadaa54d2622f7071de1b4113148c5f

Message:

*mschulze: bug in sppairs fixed


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

File:

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

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gaussman.lib,v 1.47 2001-08-01 12:33:41 mschulze Exp $";
+version="$Id: gaussman.lib,v 1.48 2001-08-01 13:21:36 mschulze Exp $";
 category="Singularities";
 
@@ -1305 +1305 @@
     while(j<ncols(A)&&A[i,i]==A[j,j])
     {
-      if(w0[i]>w0[j])
+      if(w0[i]<w0[j])
       {
         k=w0[i];
@@ -1316 +1316 @@
       j++;
     }
-    if(j==ncols(A)&&A[i,i]==A[j,j]&&w0[i]>w0[j])
+    if(j==ncols(A)&&A[i,i]==A[j,j]&&w0[i]<w0[j])
     {
       k=w0[i];
@@ -1461 +1461 @@
   ring R=0,(x,y),ds;
   ideal a=-1/2,-3/10,-3/10,-1/10,-1/10,0,1/10,1/10,3/10,3/10,1/2;
-  intvec w=2,1,1,1,1,1,1,1,1,1,1;
+  intvec w=2,1,1,1,1,1,1,1,1,1,0;
   spprint(sppgen(a,w));
 }