# source:git/Singular/LIB/spectrum.lib@663eb45

spielwiese
Last change on this file since 663eb45 was 663eb45, checked in by Hans Schönemann <hannes@…>, 24 years ago
* hannes: semic git-svn-id: file:///usr/local/Singular/svn/trunk@3920 2c84dea3-7e68-4137-9b89-c4e89433aadc
• Property mode set to `100644`
File size: 1.5 KB
Line
1// \$Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp \$
2///////////////////////////////////////////////////////////////////////////////
3
4version="\$Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp \$";
5info="
6LIBRARY:  spectrum.lib   PROCEDURES FOR COMPUTING SPECTRA
7
8PROCEDURES:
9 spectrum(poly);        spectrum of a isoloated singularity
10 spectrum(poly[,1]);    spectrum of a isoloated singularity without tests
11          (parameters in square brackets [] are optional)
12";
13
14///////////////////////////////////////////////////////////////////////////////
15
16proc spectrum (poly f, list #)
17"USAGE:   spectrum(f[,1]);  f polynomial
18RETURN:  list
19EXAMPLE: example spectrum; shows examples
20"
21{
22  if(size(#)==0)
23  {  return(system("spectrum",f)); }
24  return (system("spectrum",f,#[1]);
25}
26example
27{ "EXAMPLE:"; echo = 2;
28}
29///////////////////////////////////////////////////////////////////////////////
30
31proc semic (list s, list ss, list #)
32"USAGE:   semic(s,ss[,i]);  s, ss spectra, i int
33RETURN:  int
34EXAMPLE: example semic; shows examples
35"
36{
37  if(size(#)==0)
38  {  return(system("semic",s,ss)); }
39  return (system("semic",s,ss,#[1]);
40}
41example
42{ "EXAMPLE:"; echo = 2;
43}
44///////////////////////////////////////////////////////////////////////////////
45proc semicsqh (list s, list ss)
46"USAGE:   semicsqh(s,ss);  s, ss spectra, i int
47RETURN:  int
48EXAMPLE: example semicsqh; shows examples
49"
50{
51  return (system("semic",s,ss,1);
52}
53example
54{ "EXAMPLE:"; echo = 2;
55}
56///////////////////////////////////////////////////////////////////////////////
Note: See TracBrowser for help on using the repository browser.