Changeset cd6dbb2 in git for Singular/LIB/sing.lib

Timestamp:

Nov 11, 1999, 5:03:33 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c2c075e00c1bcfd1980cd1e24e5d2c3990ea8ab4

Parents:

1d00a525ad0cde0db365946cde621499f3a50156

Message:

* hannes: spectrum changes, part 1


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

File:

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

Singular/LIB/sing.lib

@@ -1 @@
-// $Id: sing.lib,v 1.17 1999-09-21 17:32:18 Singular Exp $
+// $Id: sing.lib,v 1.18 1999-11-11 16:03:33 Singular Exp $
 //(GMG/BM, last modified 26.06.96)
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: sing.lib,v 1.17 1999-09-21 17:32:18 Singular Exp $";
+version="$Id: sing.lib,v 1.18 1999-11-11 16:03:33 Singular Exp $";
 info="
 LIBRARY:  sing.lib      PROCEDURES FOR SINGULARITIES
@@ -21 +21 @@
  nf_icis(i);            generic combinations of generators; get ICIS in nf
  slocus(i);             ideal of singular locus of ideal i
- spectrum(f,w);         spectrum numbers of w-homogeneous polynomial f
+ qhspectrum(f,w);       spectrum numbers of w-homogeneous polynomial f
  Tjurina(i);            SB of Tjurina module of ideal i (assume i is ICIS)
  tjurina(i);            Tjurina number of ideal i (assume i is ICIS)
@@ -378 +378 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-proc spectrum (poly f, intvec w)
-"USAGE:   spectrum(f,w);  f=poly, w=intvec;
+proc qhspectrum (poly f, intvec w)
+"USAGE:   qhspectrum(f,w);  f=poly, w=intvec;
 ASSUME:  f is a weighted homogeneous isolated singularity w.r.t. the weights
          given by w; w must consist of as many positive integers as there
@@ -389 +389 @@
          No return value if basering has parameters or if f is no isolated
          singularity, displays a warning in this case
-EXAMPLE: example spectrum; shows an example
+EXAMPLE: example qhspectrum; shows an example
 "
 {
@@ -425 +425 @@
    poly f=x3+y5+z2;
    intvec w=10,6,15;
-   spectrum(f,w);
+   qhspectrum(f,w);
    // the spectrum numbers are:
    // 1/30,7/30,11/30,13/30,17/30,19/30,23/30,29/30