Changeset a33befb in git

Timestamp:

Jun 30, 2010, 4:49:01 PM (13 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

c6f736b9c03883f339ee22b726f8ecac0c63f052

Parents:

0dd77c21021822c8a0b9b85d28d147e940da5728

Message:

Cosmetic changes to displays



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

File:

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

Singular/LIB/sheafcoh.lib

@@ -639 +639 @@
   int shift = attrib(Betti,"rowShift") + (k + ell - 1);
 
-  intmat newBetti[ n + 1 ][ h - l + 1 ];
-
+  int iWTH = h-l+1;
+
+  int d = k - h + ell - 1;
+
+  if( PL > 1 )
+  {
+    "// l: ", l;
+    "// h: ", h;
+    "// n: ", n;
+    "// ell: ", ell;
+    "// k: ", k;
+    "// row: ", row;
+    "// shift: ", shift;
+    "// iWTH: ", iWTH;
+    "// d: ", d;
+  }
+
+  intmat newBetti[ n + 1 ][ iWTH ];
   int i, j;
 
@@ -656 +672 @@
   }
 
-  int iWTH = h-l+1;
   for (j=2; j<=n+1; j++) {
     for (i=1; i<min(j, iWTH); i++) {
-      newBetti[j,i]=-1;
-    }
-  }
-  int d = k - h + ell - 1;
+      newBetti[j,i]= -1;
+    }
+  }
+
   for (j=1; j<=n; j++) {
     for (i=iWTH; i>=k+j; i--) {
-      newBetti[j,i]=-1;
+      newBetti[j,i]=0; // -1;
     }
   }
@@ -847 +862 @@
 
   int tResulutionBegin=timer;
-  resolution RE = nres(EM, maxbound);
+  resolution RE = nres(EM, maxbound); // TODO: Plural computes one too many syzygies...?!
   int tMinResBegin=timer;
   RE = minres(RE);
@@ -858 +873 @@
   if( PL > 0 )
   {
+    //    list L = RE; // TODO: size(L/RE) is wrong!
     "
         ----      RESULTS  ----
-        Tate Resolution (Length: ", size(RE), "):
+        Tate Resolution:
     ";
     RE;
@@ -1341 +1357 @@
 proc getIdealSheaf(ideal I)
 {
+  int i = homog(I);
   resolution FI = mres(I,2); // Syz + grading...
   module M = FI[2];
   attrib(M, "isCoker", 1);
-  attrib(M);
+  //  attrib(M);
   return(M);
 };