Changeset d0b24a in git
- Timestamp:
- Feb 2, 2001, 5:21:37 PM (23 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 51d95bfeb0393784c857bbca23fe93ca05153b99
- Parents:
- cb8d1d6cb0799385b9ff34f5791fde317a960124
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/spectrum.lib
rcb8d1d6 rd0b24a 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: spectrum.lib,v 1.1 1 2001-01-22 10:37:57 mschulze Exp $";2 version="$Id: spectrum.lib,v 1.12 2001-02-02 16:21:37 mschulze Exp $"; 3 3 category="Singularities"; 4 4 info=" … … 8 8 PROCEDURES: 9 9 spectrumnd(poly[,1]); spectrum of a nondegenerate isolated singularity 10 semicont(s1,s2[,1]); tests if s2 is semicontinous for s1 (open intervall)11 semicontqh(s1,s2 [,1]); semicontinuity test with open and half open intervalls10 semicont(s1,s2[,1]); tests if s2 is semicontinous for s1 11 semicontqh(s1,s2); semicontinuity test using open and half open intervals 12 12 spadd(s1,s2); sum of two spectra s1 and s2 13 spmul(s,k); multiplies the spectrum s with the int k 14 (parameters in square brackets [] are optional) 13 spmul(s,k); product of spectrum s with integer k 15 14 "; 16 15 … … 18 17 19 18 proc spectrumnd (poly f, list #) 20 "USAGE: spectrumnd(f[,1]); f polynomial19 "USAGE: spectrumnd(f[,1]); f poly 21 20 ASSUME: f has nondegenerate principal part 22 computes the spectrum of f 23 if a second argument 1 is given, 24 no test for a degenerate principal part will be done 25 RETURN: list 21 RETURN: a list containing the spectrum of f 22 NOTE if a second argument 1 is given, 23 no test for a degenerate principal part will be done 26 24 EXAMPLE: example spectrumnd; shows examples 27 25 " … … 40 38 41 39 proc semicont (list s, list ss, list #) 42 "USAGE: semicont(s,ss[,i]); s, ss spectra, i int 43 tests if ss is semicontinous for s using half open intervalls 44 (and open intervalls for a 3rd paramater 1) 45 RETURN: int 40 "USAGE: semicont(s,ss[,1]); s, ss list 41 RETURN: 1 if ss is semicontinous for s using half open intervals, 0 otherwise 42 NOTE: if a third argument 1 is given, open intervals are used 46 43 EXAMPLE: example semicont; shows examples 47 44 " … … 56 53 /////////////////////////////////////////////////////////////////////////////// 57 54 proc semicontsqh (list s, list ss) 58 "USAGE: semicontsqh(s,ss); s, ss spectra, i int59 tests if ss is semicontinous for s using open and half open intervalls 60 RETURN: int 55 "USAGE: semicontsqh(s,ss); s, ss list 56 RETURN: 1 if ss is semicontinous for s using open and half open intervals, 57 0 otherwise 61 58 EXAMPLE: example semicontsqh; shows examples 62 59 " … … 69 66 /////////////////////////////////////////////////////////////////////////////// 70 67 proc spadd (list s1, list s2) 71 "USAGE: spadd(s1,s2); s1, s2 spectra 72 sum of two spectra s1 and s2 73 RETURN: list 68 "USAGE: spadd(s1,s2); s1, s2 list 69 RETURN: a list containing the sum of the two spectra s1 and s2 74 70 EXAMPLE: example spadd; shows examples 75 71 " … … 82 78 /////////////////////////////////////////////////////////////////////////////// 83 79 proc spmul (list s, int k) 84 "USAGE: spmul(s,k); s spectrum, k int 85 multiplies the spectrum s with the int k 86 RETURN: list 80 "USAGE: spmul(s,k); s list, k int 81 RETURN: a list containing the product of the spectrum s with the integer k 87 82 EXAMPLE: example spmul; shows examples 88 83 "
Note: See TracChangeset
for help on using the changeset viewer.