Changeset f27ab81 in git
- Timestamp:
- Sep 29, 2010, 9:51:53 AM (13 years ago)
- Branches:
- (u'spielwiese', 'd1ba061a762c62d3a25159d8da8b6e17332291fa')
- Children:
- 268a430602af3e8f6acf561cfe439410f00a5630
- Parents:
- a4314497fa8a79cff4821b3eb6eb9eaf61f3db15
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/reszeta.lib
ra431449 rf27ab81 9 9 @* G. Pfister, pfister@mathematik.uni-kl.de 10 10 11 MAINPROCEDURES:11 PROCEDURES: 12 12 intersectionDiv(L) computes intersection form and genera of exceptional 13 13 divisors (isolated singularities of surfaces) … … 17 17 zetaDL(L,d) computes Denef-Loeser zeta function 18 18 (hypersurface singularity of dimension 2) 19 20 AUXILLIARY PROCEDURES:21 19 collectDiv(L[,iv]) identify exceptional divisors in different charts 22 20 (embedded and non-embedded case) … … 29 27 LIB "normal.lib"; 30 28 /////////////////////////////////////////////////////////////////////////////// 31 static 32 proc spectral1(poly h,list re, list DL,intvec v, intvec n) 29 static proc spectral1(poly h,list re, list DL,intvec v, intvec n) 33 30 "Internal procedure - no help and no example available 34 31 " … … 140 137 141 138 /////////////////////////////////////////////////////////////////////////////// 142 static 143 proc ordE(ideal J,ideal E,ideal W) 139 static proc ordE(ideal J,ideal E,ideal W) 144 140 "Internal procedure - no help and no example available 145 141 " … … 161 157 162 158 /////////////////////////////////////////////////////////////////////////////// 163 static 164 proc computeV(list re, list DL) 159 static proc computeV(list re, list DL) 165 160 "Internal procedure - no help and no example available 166 161 " … … 216 211 217 212 /////////////////////////////////////////////////////////////////////////////// 218 static 219 proc jacobDet(ideal I, ideal J) 213 static proc jacobDet(ideal I, ideal J) 220 214 "Internal procedure - no help and no example available 221 215 " … … 318 312 319 313 /////////////////////////////////////////////////////////////////////////////// 320 static 321 proc computeH(ideal h,list re,list DL) 314 static proc computeH(ideal h,list re,list DL) 322 315 "Internal procedure - no help and no example available 323 316 " … … 368 361 369 362 ////////////////////////////////////////////////////////////////////////////// 370 static 371 proc computeN(list re,list DL) 363 static proc computeN(list re,list DL) 372 364 "Internal procedure - no help and no example available 373 365 " … … 423 415 } 424 416 ////////////////////////////////////////////////////////////////////////////// 425 static 426 proc countEijk(list re,list iden,intvec iv,list #) 417 static proc countEijk(list re,list iden,intvec iv,list #) 427 418 "Internal procedure - no help and no example available 428 419 " … … 546 537 } 547 538 ////////////////////////////////////////////////////////////////////////////// 548 static 549 proc chiEij(list re, list iden, intvec iv) 539 static proc chiEij(list re, list iden, intvec iv) 550 540 "Internal procedure - no help and no example available 551 541 " … … 689 679 ////////////////////////////////////////////////////////////////////////////// 690 680 ////////////////////////////////////////////////////////////////////////////// 691 static 692 proc chiEij_local(list re, list iden, intvec iv) 681 static proc chiEij_local(list re, list iden, intvec iv) 693 682 "Internal procedure - no help and no example available 694 683 " … … 847 836 } 848 837 ////////////////////////////////////////////////////////////////////////////// 849 static 850 proc computeChiE(list re, list iden) 838 static proc computeChiE(list re, list iden) 851 839 "Internal procedure - no help and no example available 852 840 " … … 1020 1008 } 1021 1009 ////////////////////////////////////////////////////////////////////////////// 1022 static 1023 proc computeChiE_local(list re, list iden) 1010 static proc computeChiE_local(list re, list iden) 1024 1011 "Internal procedure - no help and no example available 1025 1012 " … … 1348 1335 } 1349 1336 ////////////////////////////////////////////////////////////////////////////// 1350 static 1351 proc chi_ast(list re,list iden,list #) 1337 static proc chi_ast(list re,list iden,list #) 1352 1338 "Internal procedure - no help and no example available 1353 1339 " … … 1515 1501 } 1516 1502 ////////////////////////////////////////////////////////////////////////////// 1517 static 1518 proc chi_ast_local(list re,list iden,list #) 1503 static proc chi_ast_local(list re,list iden,list #) 1519 1504 "Internal procedure - no help and no example available 1520 1505 " … … 2072 2057 } 2073 2058 ////////////////////////////////////////////////////////////////////////////// 2074 static 2075 proc decompE(list BO) 2059 static proc decompE(list BO) 2076 2060 "Internal procedure - no help and no example available 2077 2061 " … … 2308 2292 } 2309 2293 /////////////////////////////////////////////////////////////////////////////// 2310 static 2311 proc decompEinX(list BO) 2294 static proc decompEinX(list BO) 2312 2295 "Internal procedure - no help and no example available 2313 2296 " … … 2371 2354 } 2372 2355 ////////////////////////////////////////////////////////////////////////////// 2373 static 2374 proc getMinpoly(poly p) 2356 static proc getMinpoly(poly p) 2375 2357 "Internal procedure - no help and no example available 2376 2358 " … … 2561 2543 } 2562 2544 ////////////////////////////////////////////////////////////////////////////// 2563 static 2564 proc getNumZeros(poly p) 2545 static proc getNumZeros(poly p) 2565 2546 "Internal procedure - no help and no example available 2566 2547 " … … 2618 2599 } 2619 2600 /////////////////////////////////////////////////////////////////////////////// 2620 static 2621 proc grad(ideal I) 2601 static proc grad(ideal I) 2622 2602 "Internal procedure - no help and no example available 2623 2603 " … … 2797 2777 } 2798 2778 //////////////////////////////////////////////////////////////////////////// 2799 static 2800 proc Kontakt(ideal I, ideal K) 2779 static proc Kontakt(ideal I, ideal K) 2801 2780 "Internal procedure - no help and no example available 2802 2781 " … … 2934 2913 } 2935 2914 ////////////////////////////////////////////////////////////////////////////// 2936 static 2937 proc abstractNC(list BO) 2915 static proc abstractNC(list BO) 2938 2916 "Internal procedure - no help and no example available 2939 2917 " … … 3017 2995 } 3018 2996 ////////////////////////////////////////////////////////////////////////////// 3019 static 3020 proc nodes(ideal J) 2997 static proc nodes(ideal J) 3021 2998 "Internal procedure - no help and no example available 3022 2999 " … … 3487 3464 } 3488 3465 ////////////////////////////////////////////////////////////////////////////// 3489 static 3490 proc intersComp(string str1, 3466 static proc intersComp(string str1, 3491 3467 string mp1, 3492 3468 list null1, … … 3594 3570 } 3595 3571 ///////////////////////////////////////////////////////////////////////////// 3596 static 3597 proc addSelfInter(list re,intmat Inters,list iden,list iden0,intvec endiv) 3572 static proc addSelfInter(list re,intmat Inters,list iden,list iden0,intvec endiv) 3598 3573 "Internal procedure - no help and no example available 3599 3574 " … … 3801 3776 } 3802 3777 ////////////////////////////////////////////////////////////////////////////// 3803 static 3804 proc invSort(list re, list #) 3778 static proc invSort(list re, list #) 3805 3779 "Internal procedure - no help and no example available 3806 3780 " … … 4025 3999 } 4026 4000 ///////////////////////////////////////////////////////////////////////////// 4027 static 4028 proc addToRE(intvec v,int x,list RE) 4001 static proc addToRE(intvec v,int x,list RE) 4029 4002 "Internal procedure - no help and no example available 4030 4003 " … … 4437 4410 } 4438 4411 ////////////////////////////////////////////////////////////////////////////// 4439 static 4440 proc cleanUpDiv(list re,intmat M,list divList) 4412 static proc cleanUpDiv(list re,intmat M,list divList) 4441 4413 "Internal procedure - no help and no example available 4442 4414 " … … 4558 4530 } 4559 4531 ///////////////////////////////////////////////////////////////////////////// 4560 static 4561 proc findTrans(ideal Z, ideal E, list notE, list #) 4532 static proc findTrans(ideal Z, ideal E, list notE, list #) 4562 4533 "Internal procedure - no help and no example available 4563 4534 " … … 4673 4644 } 4674 4645 ///////////////////////////////////////////////////////////////////////////// 4675 static 4676 proc compareE(list L, int m, int o, list DivL) 4646 static proc compareE(list L, int m, int o, list DivL) 4677 4647 "Internal procedure - no help and no example available 4678 4648 " … … 5392 5362 } 5393 5363 ///////////////////////////////////////////////////////////////////////////// 5394 static 5395 proc findInIVList(int pos, int val, list ivl) 5364 static proc findInIVList(int pos, int val, list ivl) 5396 5365 "Internal procedure - no help and no example available 5397 5366 " … … 5429 5398 } 5430 5399 ////////////////////////////////////////////////////////////////////////////// 5431 static 5432 proc Vielfachheit(ideal J,ideal I) 5400 static proc Vielfachheit(ideal J,ideal I) 5433 5401 "Internal procedure - no help and no example available 5434 5402 " … … 5454 5422 } 5455 5423 ///////////////////////////////////////////////////////////////////////////// 5456 static 5457 proc genus_E(list re, list iden0, intvec Eindex) 5424 static proc genus_E(list re, list iden0, intvec Eindex) 5458 5425 "Internal procedure - no help and no example available 5459 5426 "
Note: See TracChangeset
for help on using the changeset viewer.