Changeset 2b4e70 in git for Singular/LIB

Timestamp:

Dec 30, 2000, 4:45:35 PM (23 years ago)

Author:

Gert-Martin Greuel <greuel@…>

Branches:

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

Children:

ff8d25468b2f699e6c418ba14d9c0e1019b263e5

Parents:

9f8a0c36a14214c0b8e9241e2b54aee67001707d

Message:

* GMG: dbpri durch dbprint ersetzt


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

File:

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

Singular/LIB/homolog.lib

@@ -1 +1 @@
 //(BM/GMG)
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: homolog.lib,v 1.12 2000-12-22 14:05:48 greuel Exp $";
+version="$Id: homolog.lib,v 1.13 2000-12-30 15:45:35 greuel Exp $";
 category="Commutative Algebra";
 info="
@@ -654 +654 @@
         extMN = modulo(ker,imag);
         dbprint(p-1,"// Computing Ext^"+string(k)+" (help Ext; gives an explanation):",
-         "// Let 0<--coker(M)<--F0<--F1<--F2<--... be a resolution of coker(M),",
-         "// and 0<--coker(N)<--G0<--G1 a presentation of coker(N),",
-         "// then Hom(F"+string(k)+",G0)-->Hom(F"+string(k+1)+",G0) is given by:",A,
-         "// and Hom(F"+string(k-1)+",G0) + Hom(F"+string(k)+",G1)-->Hom(F"+string(k)+",G0) is given by:",imag,"");
+    "// Let 0<--coker(M)<--F0<--F1<--F2<--... be a resolution of coker(M),",
+    "// and 0<--coker(N)<--G0<--G1 a presentation of coker(N),",
+    "// then Hom(F"+string(k)+",G0)-->Hom(F"+string(k+1)+",G0) is given by:",A,
+    "// and Hom(F"+string(k-1)+",G0) + Hom(F"+string(k)+",G1)-->Hom(F"+string(k)+",G0) is given by:",imag,"");
         extMN0 = std(extMN);
         if( p>0 ) { "// degree of Ext^"+string(k)+":"; degree(extMN0);""; }
@@ -665 +665 @@
           { kb = kbase(extMN0);
             if ( size(ker)!=0) { kb = matrix(ker)*kb; }
-            dbpri(p-1,"// columns of matrix are kbase of Ext^"+
+            dbprint(p-1,"// columns of matrix are kbase of Ext^"+
                      string(k)+" in Hom(F"+string(k)+",G0)",kb,"");
             if( p>0 )