Changeset f7dade in git

Timestamp:

Dec 5, 2000, 10:12:22 PM (23 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

cf42ab1853ca41adff5ae7640c9e60bfb157b4ae

Parents:

dbd017809127ba5204a358d67e8f5549baa3b873

Message:

gaussman.lib


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

File:

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

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: gaussman.lib,v 1.10 2000-12-05 09:50:28 Singular Exp $";
+version="$Id: gaussman.lib,v 1.11 2000-12-05 21:12:22 mschulze Exp $";
 info="
 LIBRARY:  gaussman.lib  GAUSS-MANIN CONNECTION OF A SINGULARITY
@@ -137 +137 @@
 proc monomat(poly f,list #)
 "USAGE:   <matrix> M=monomat(<poly> f);
+ASSUME:  f isolated singularity
 RETURN:  exp(-2*pi*i*M) is a monodromy matrix
-NOTE:    f isolated singularity
 EXAMPLE: example monomat; shows an example
 "
@@ -347 +347 @@
 proc monospec(poly f)
 "USAGE:   <matrix> M=monospec(<poly> f);
+ASSUME:  f isolated singularity
 RETURN:  the spectrum of exp(-2*pi*i*M) is the spectrum of monodromy
-NOTE:    f isolated singularity
 EXAMPLE: example monospec; shows an example
 "
@@ -365 +365 @@
 proc vfilt(poly f,list #)
 "USAGE:   <list> l=vfilt(<poly> f);
+ASSUME:  f isolated singularity
 RETURN:  <ideal> l[1] : spectral numbers in increasing order
          <intvec> l[2] :
@@ -373 +374 @@
          <ideal> l[4] : monomial vector space basis of H''/H'
          <ideal> l[5] : standard basis of Jacobian ideal
-NOTE:    f isolated singularity
 EXAMPLE: example vfilt; shows an example
 "
@@ -716 +716 @@
 proc singspec(poly f)
 "USAGE:   <list> l=singspec(<poly> f);
+ASSUME:  f isolated singularity
 RETURN:  <ideal> l[1] : spectral numbers in increasing order
          <intvec> l[2] :
            <int> l[2][i] : multiplicity of spectral number l[1][i]
-NOTE:    f isolated singularity
 EXAMPLE: example singspec; shows an example
 "
@@ -736 +736 @@
 proc gamma(list l)
 "USAGE:   <number> g=gamma(singspec(<poly> f));
+ASSUME:  f isolated singularity
 RETURN:  Hertling's gamma invariant
-NOTE:    f defines an isolated singularity
 EXAMPLE: example gamma; shows an example
 "
@@ -766 +766 @@
 proc gamma4(list l)
 "USAGE:   <number> g4=gamma4(singspec(<poly> f));
+ASSUME:  f isolated singularity
 RETURN:  Hertling's gamma4 invariant
-NOTE:    f defines an isolated singularity
 EXAMPLE: example gamma4; shows an example
 "
@@ -797 +797 @@
 proc vjacob(list l)
 "USAGE:   <list> l=vjacob(vfilt(<poly> f));
+ASSUME:  f isolated singularity
 RETURN:  <ideal> l[1] : spectral numbers of the V-filtration on the 
                         Jacobian algebra in increasing order
@@ -807 +808 @@
          <ideal> l[4] : monomial vector space basis of the Jacobian algebra
          <ideal> l[5] : standard basis of Jacobian ideal
-NOTE:    f defines an isolated singularity
 EXAMPLE: example vjacob; shows an example
 "
@@ -824 +824 @@
   for(i=ncols(m);i>=1;i--)
   {
-    //M[i]=lift(V,coeffs(redNF(m[i]*m,sJ),m)*V,product(maxideal(1)));
-    M[i]=lift(V,coeffs(redNF(m[i]*m,sJ),m)*V);
+    M[i]=lift(V,coeffs(redNF(m[i]*m,sJ),m)*V,product(maxideal(1)));
   }