source: git/Singular/LIB/spectrum.lib @ cc3292a

// $Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $
///////////////////////////////////////////////////////////////////////////////

version="$Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $";
info="
LIBRARY:  spectrum.lib   PROCEDURES FOR COMPUTING SPECTRA

PROCEDURES:
 spectrum(poly);        spectrum of a isoloated singularity
 spectrum(poly[,1]);    spectrum of a isoloated singularity without tests
          (parameters in square brackets [] are optional)
";

///////////////////////////////////////////////////////////////////////////////

proc spectrum (poly f, list #)
"USAGE:   spectrum(f[,1]);  f polynomial
RETURN:  list
EXAMPLE: example spectrum; shows examples
"
{
  if(size(#)==0)
  {  return(system("spectrum",f)); }
  return (system("spectrum",f,#[1]);
}
example
{ "EXAMPLE:"; echo = 2;
}
///////////////////////////////////////////////////////////////////////////////

proc semic (list s, list ss, list #)
"USAGE:   semic(s,ss[,i]);  s, ss spectra, i int
RETURN:  int
EXAMPLE: example semic; shows examples
"
{
  if(size(#)==0)
  {  return(system("semic",s,ss)); }
  return (system("semic",s,ss,#[1]);
}
example
{ "EXAMPLE:"; echo = 2;
}
///////////////////////////////////////////////////////////////////////////////
proc semicsqh (list s, list ss)
"USAGE:   semicsqh(s,ss);  s, ss spectra, i int
RETURN:  int
EXAMPLE: example semicsqh; shows examples
"
{
  return (system("semic",s,ss,1);
}
example
{ "EXAMPLE:"; echo = 2;
}
///////////////////////////////////////////////////////////////////////////////