1 | // $Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $ |
---|
2 | /////////////////////////////////////////////////////////////////////////////// |
---|
3 | |
---|
4 | version="$Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $"; |
---|
5 | info=" |
---|
6 | LIBRARY: spectrum.lib PROCEDURES FOR COMPUTING SPECTRA |
---|
7 | |
---|
8 | PROCEDURES: |
---|
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 | |
---|
16 | proc spectrum (poly f, list #) |
---|
17 | "USAGE: spectrum(f[,1]); f polynomial |
---|
18 | RETURN: list |
---|
19 | EXAMPLE: example spectrum; shows examples |
---|
20 | " |
---|
21 | { |
---|
22 | if(size(#)==0) |
---|
23 | { return(system("spectrum",f)); } |
---|
24 | return (system("spectrum",f,#[1]); |
---|
25 | } |
---|
26 | example |
---|
27 | { "EXAMPLE:"; echo = 2; |
---|
28 | } |
---|
29 | /////////////////////////////////////////////////////////////////////////////// |
---|
30 | |
---|
31 | proc semic (list s, list ss, list #) |
---|
32 | "USAGE: semic(s,ss[,i]); s, ss spectra, i int |
---|
33 | RETURN: int |
---|
34 | EXAMPLE: example semic; shows examples |
---|
35 | " |
---|
36 | { |
---|
37 | if(size(#)==0) |
---|
38 | { return(system("semic",s,ss)); } |
---|
39 | return (system("semic",s,ss,#[1]); |
---|
40 | } |
---|
41 | example |
---|
42 | { "EXAMPLE:"; echo = 2; |
---|
43 | } |
---|
44 | /////////////////////////////////////////////////////////////////////////////// |
---|
45 | proc semicsqh (list s, list ss) |
---|
46 | "USAGE: semicsqh(s,ss); s, ss spectra, i int |
---|
47 | RETURN: int |
---|
48 | EXAMPLE: example semicsqh; shows examples |
---|
49 | " |
---|
50 | { |
---|
51 | return (system("semic",s,ss,1); |
---|
52 | } |
---|
53 | example |
---|
54 | { "EXAMPLE:"; echo = 2; |
---|
55 | } |
---|
56 | /////////////////////////////////////////////////////////////////////////////// |
---|