Changeset 84b95f7 in git for Singular

Timestamp:

Feb 8, 2001, 9:09:33 AM (23 years ago)

Author:

Mathias Schulze <mschulze@…>

Branches:

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

Children:

fc9a3e4e9c57760d42af803e92f96dd6500a41f1

Parents:

a23181f4691407c0dda201f7522421b947e214b2

Message:

*mschulze: removed gamma4


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

File:

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

Singular/LIB/gaussman.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gaussman.lib,v 1.31 2001-02-06 17:27:02 mschulze Exp $";
+version="$Id: gaussman.lib,v 1.32 2001-02-08 08:09:33 mschulze Exp $";
 category="Singularities";
 
@@ -15 +15 @@
  vfiltration(f[,...]);  V-filtration of f on H''/H', singularity spectrum of f
  vfiltjacalg(...);      V-filtration on Jacobian algebra
- gamma(...);            Hertling's gamma invariant
- gamma4(...);           Hertling's gamma4 invariant
+ gamma(...);            C. Hertling's gamma invariant
 
 SEE ALSO: mondromy_lib, spectrum_lib
@@ -859 +858 @@
 "USAGE:   gamma(vfiltration(f,0)); poly f
 ASSUME:  basering has local ordering, f has isolated singularity at 0
-RETURN:  number g: Hertling's gamma invariant
+RETURN:  number g: C. Hertling's gamma invariant
 EXAMPLE: example gamma; shows an example
 "
@@ -883 +882 @@
   poly f=x5+x2y2+y5;
   gamma(vfiltration(f,0));
-}
-///////////////////////////////////////////////////////////////////////////////
-
-proc gamma4(list l)
-"USAGE:   gamma4(vfiltration(f,0)); poly f
-ASSUME:  basering has local ordering, f has isolated singularity at 0
-RETURN:  number g4: Hertling's gamma4 invariant
-EXAMPLE: example gamma4; shows an example
-"
-{
-  ideal s=l[1];
-  intvec d=l[2];
-  int n=nvars(basering)-1;
-  number g4=0;
-  int i,j;
-  for(i=1;i<=ncols(s);i++)
-  {
-    for(j=1;j<=d[i];j++)
-    {
-      g4=g4+(number(s[i])-number(n-1)/2)^4;
-    }
-  }
-  g4=g4-(number(s[ncols(s)]-s[1])/12-1/30)*
-    (sum(d)*number(s[ncols(s)]-s[1])/4-24*gamma(l));
- return(g4);
-}
-example
-{ "EXAMPLE:"; echo=2;
-  ring R=0,(x,y),ds;
-  poly f=x5+x2y2+y5;
-  gamma4(vfiltration(f,0));
 }
 ///////////////////////////////////////////////////////////////////////////////
@@ -927 +895 @@
   vfiltjacalg(l);
   gamma(l);
-  gamma4(l);
 }
 ///////////////////////////////////////////////////////////////////////////////