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

// $Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman Exp $
///////////////////////////////////////////////////////////////////////////////

version="$Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman 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;
}
///////////////////////////////////////////////////////////////////////////////