Changeset 4bde6b in git for Singular/LIB/reszeta.lib
- Timestamp:
- May 15, 2020, 3:20:00 PM (4 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- a1b40ab8675488c2a4f8e225d9d748ba70340727
- Parents:
- 538e06d0809adf9f75fea000cf70d354bb674ab5
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/reszeta.lib
r538e06 r4bde6b 1368 1368 //--- compute the Euler characteristic of the Ei,Eij,Eijk and the 1369 1369 //--- corresponding Ei^*,Eij^*,Eijk^* by preparing the input to the 1370 //--- specialized auxil liary procedures and then recombining the results1370 //--- specialized auxiliary procedures and then recombining the results 1371 1371 1372 1372 //---------------------------------------------------------------------------- … … 1534 1534 //--- compute the Euler characteristic of the Ei,Eij,Eijk and the 1535 1535 //--- corresponding Ei^*,Eij^*,Eijk^* by preparing the input to the 1536 //--- specialized auxil liary procedures and then recombining the results1536 //--- specialized auxiliary procedures and then recombining the results 1537 1537 1538 1538 //---------------------------------------------------------------------------- … … 1716 1716 @* L = list of rings 1717 1717 ASSUME: L is the output of resolution of singularities 1718 RET RUN: discrepancies of the given resolution"1718 RETURN: discrepancies of the given resolution" 1719 1719 { 1720 1720 //---------------------------------------------------------------------------- … … 1780 1780 ast[2]=chi(Eij^*) 1781 1781 ast[3]=chi(Eijk^*) 1782 l[3]: intvec nu of multiplicit es as needed in computation of zeta1782 l[3]: intvec nu of multiplicities as needed in computation of zeta 1783 1783 function 1784 l[4]: intvec N of multiplicities as needed in compu ation of zeta1784 l[4]: intvec N of multiplicities as needed in computation of zeta 1785 1785 function 1786 1786 l[5]: string specifying characteristic polynomial of monodromy, … … 4030 4030 " 4031 4031 { 4032 //--- auxil liary procedure for collectDiv,4032 //--- auxiliary procedure for collectDiv, 4033 4033 //--- inserting an entry at the correct place 4034 4034 int i=1; … … 4802 4802 algext=attrib(idname,"algext"); 4803 4803 } 4804 //--- check whet er comPa is in the history of m14804 //--- check whether comPa is in the history of m1 4805 4805 //--- same test for o1 can be done later on (on the fly) 4806 4806 if(m1==comPa) … … 5423 5423 " 5424 5424 { 5425 //--- auxil liary procedure for addSelfInter5425 //--- auxiliary procedure for addSelfInter 5426 5426 //--- compute multiplicity, suitable for the special situation there 5427 5427 int d=1;
Note: See TracChangeset
for help on using the changeset viewer.