Changeset 05a31d in git

Timestamp:

Jan 20, 2007, 10:21:52 PM (17 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e52b9f29cef9e21dbb8c742787d1c8334b4f37dc

Parents:

3da61f2717b7ecebc67c5cbe7ac852dc10836ad5

Message:

*levandov: minor fixes


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

File:

• Singular/LIB/dmod.lib (modified) (6 diffs)

Singular/LIB/dmod.lib

@@ -1 +1 @@
 //////////////////////////////////////////////////////////////////////////////
-version="$Id: dmod.lib,v 1.10 2007-01-16 15:34:26 levandov Exp $";
+version="$Id: dmod.lib,v 1.11 2007-01-20 21:21:52 levandov Exp $";
 category="Noncommutative";
 info="
@@ -61 +61 @@
 ";
 
-//annfs0BM(F[,eng]);  compute Ann F^s0 for a poly F (algorithm of Briancon-Maisonobe)
-//annfsParamBM(F[,eng]); -> still to be finished
-
 LIB "nctools.lib";
 LIB "elim.lib";
@@ -89 +86 @@
 }
 
-//alternative code for SannfsBM, rename from annfsBM to ALTannfsBM
+// alternative code for SannfsBM, rename from annfsBM to ALTannfsBM
+// is superfluos - will not be included in the official documentation
 proc ALTannfsBM (poly F, list #)
 "USAGE:  annfsBM(f [,eng]);  f a poly, eng an optional int
@@ -2628 +2626 @@
   // t*Dt + s +1 reduced with t-f gives f*Dt + s
   I = I, F*var(2) + var(Nnew);
-  I;
   // -------- the ideal I is ready ----------
   dbprint(ppl,"// -1-2- starting the elimination of t,Dt in @R");
@@ -2657 +2654 @@
   tmp = 0;
   // block ord (dp(N),dp);
-  string s = "iv=";
+  // string s is already defined
+  s = "iv=";
   for (i=1; i<=Nnew-1; i++)
   {
@@ -2742 +2740 @@
     }
   }
+  printlevel=printlevel+1;
   def save = basering;
   def @A = SannfsLOT(F,eng); 
   setring @A;
   poly F = imap(save,F);
-  def B  = annfs0(LD,F);
+  def B  = annfs0(LD,F,eng);
   return(B);
 }