# source:git/Singular/LIB/spectrum.lib@e3663f1

spielwiese
Last change on this file since e3663f1 was eafea9, checked in by Olaf Bachmann <obachman@…>, 24 years ago
* syntax errors git-svn-id: file:///usr/local/Singular/svn/trunk@3927 2c84dea3-7e68-4137-9b89-c4e89433aadc
• Property mode set to `100644`
File size: 1.5 KB
Line
1// \$Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman Exp \$
2///////////////////////////////////////////////////////////////////////////////
3
4version="\$Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman 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.