[eafea9] | 1 | // $Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman Exp $ |
---|

[5d32fd] | 2 | /////////////////////////////////////////////////////////////////////////////// |
---|

| 3 | |
---|

[eafea9] | 4 | version="$Id: spectrum.lib,v 1.3 1999-11-25 15:37:35 obachman Exp $"; |
---|

[5d32fd] | 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)); } |
---|

[eafea9] | 24 | return (system("spectrum",f,#[1])); |
---|

[5d32fd] | 25 | } |
---|

| 26 | example |
---|

| 27 | { "EXAMPLE:"; echo = 2; |
---|

| 28 | } |
---|

| 29 | /////////////////////////////////////////////////////////////////////////////// |
---|

[663eb45] | 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)); } |
---|

[eafea9] | 39 | return (system("semic",s,ss,#[1])); |
---|

[663eb45] | 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 | { |
---|

[eafea9] | 51 | return (system("semic",s,ss,1)); |
---|

[663eb45] | 52 | } |
---|

| 53 | example |
---|

| 54 | { "EXAMPLE:"; echo = 2; |
---|

| 55 | } |
---|

| 56 | /////////////////////////////////////////////////////////////////////////////// |
---|