#ifndef `MINCERHFILE' #define MINCERHFILE "1" * * This is the mincer system as adapted to version 3 of FORM. * All necessary files are included in the file mincer.h * All local variables have names that start with mnc to avoid namespace problems. * When needed one should use replace_ to change external names to internal ones. * All procedures are included here as well. * The only variables that have external names are: * S D,ep,z3,z4,z5,z6,z7,zz5; * CF acc; * V P,Q,p1,p2,p3,p4,p5,p6,p7,p8; * I mu,nu,ka,la,ro,si,ga,alfa,beta,MU,NU,KA,RO,SI,mmu,nnu; * S cw1,cw2,cw3; * S cf,ca,nf,nc,[cf-ca/2],[cf-ca],[dabc^2/n]; * CF Glonel; * S ab,a,[alfas/pi]; * used in total and other renormalizations. * * Conversion by J. Vermaseren 2-may-2000. * Extended to O(ep^2) by J.Vermaseren 18-jul-2005 * *--#[ Declarations : #define OLDTWO "1" #define EXTRARED "1" #define LATRANS "0" #define BEPATH "0" #define O1PATH "0" #define INNOTABL "12" #define NOSPEC "0" #define CUTOFF "2" S D,[D-4],ep(:{6+`CUTOFF'}),[1-ep/2]; dimension D:[D-4]; AutoDeclare Index mnci,mncj,mu,nu,ka,la,ro,si,ga; AutoDeclare Vector Q,P,mncp,mncq; AutoDeclare Symbol mnce,mncx,mncy,mncsgn,mnck,D; V p1,p2,p3,p4,p5,p6,p7,p8; V [P+Q],[P+p1],[P+p2],[P+p3],[P+p4],[P+p5],[P+p6],[P+p7],[P+p8]; V [P-Q],[P-p1],[P-p2],[P-p3],[P-p4],[P-p5],[P-p6],[P-p7],[P-p8]; set mncpp18:p1,p2,p3,p4,p5,p6,p7,p8; set mncpQ18:p1,p2,p3,p4,p5,p6,p7,p8,Q; set [mncpp18]:[P+p1],[P+p2],[P+p3],[P+p4],[P+p5],[P+p6],[P+p7],[P+p8]; set [-mncpp18]:[P-p1],[P-p2],[P-p3],[P-p4],[P-p5],[P-p6],[P-p7],[P-p8]; set mncee18:mnce1,mnce2,mnce3,mnce4,mnce5,mnce6,mnce7,mnce8; set [mncPp]:[P+p1],[P+p2],[P+p3],[P+p4],[P+p5],[P+p6],[P+p7],[P+p8],[P+Q], [P-p1],[P-p2],[P-p3],[P-p4],[P-p5],[P-p6],[P-p7],[P-p8],[P-Q]; set mncPcenter:[P+p7],[P+p2],[P+p8],[P-p7],[P-p2],[P-p8]; set mncpcenter:p7,p2,p8; set [mncx18]:mncx1,mncx2,mncx3,mncx4,mncx5,mncx6,mncx7,mncx8; S z3,z4,z5,z6,z7,z8,z6z2,zz5; S mncs,mncj; S mncexp11,mncexp10,mncexp20,mncG311,mncF321,mncint1,mncint2,mncint3; S mncN1,mncN2,mncN3,mncA,mncB,mncm; I alfa,beta; I MU,NU,KA,RO,SI,mmu,nnu; S mncxi; S cw1,cw2,cw3; S cf,ca,nf,nc,[cf-ca/2],[cf-ca],[dabc^2/n]; S mncfermi1,mncfermi2,mncfermi3,mncghost1,mncghost2,mncghost3,mncgluon1,mncgluon2,mncgluon3; F mncS,mncSS,mncSSS; S ab,[(mu^2/Q.Q)^ep],a,[ln(mu^2/Q.Q)],[alfas/pi]; CF mncv2gi,mncV3G,mncv3g,mncv3gi,mncV4G,mncv4g,mncv4gi,mncDg,mncDs,Glonel,mncVgh,mncDgh,mncDL,mncVv; CF mncv2gp,mncv2gc,mncv3gp,mncv3gc,mncv4gp,mncv4gc; CF mncG,mncdeno,mncpo,mncpoinv,mncaccm,mncftri; F mncdel,mncdd,mncfp; S mncproexp; CF mncepexp,mncpropxp,mncnaar,mncsumm1,mncsumm2,mncsumm3; T mncFQ,mncFFPP; CF acc; #ifndef `SCHEME' #define SCHEME "1" #endif *--#] Declarations : *--#[ Procedures : *--#[ benz : #procedure benz(P1,P2,P3,P4,P5,P6,P7,P8,Q) * * Reduction procedure for three loop graphs of the BE or benz type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<------<-\ * P1 / \ P2 / \ P3 * / \ / \ * / P6 v ^ P7 \ * / \ / \ * Q --<-- \ / --<-- Q * \ | / * \ v P8 / * \ | / * P5 \ | / P4 * \---->------->----/ * * We start with reducing the dotproducts in the numerator to sums * of denominators. Only one dotproduct is irreducible: Q.P2 * The easiest reduction (and quite fast) is by writing everything * in terms of Q,P1,P2,P3 and use vertex identities and P8 = P3-P1 * to write the few remaining dotproducts in terms of denominators. * * Routine coded by J.A.M.Vermaseren 8-jul-1990, modified 13-nov-1990. * * id `P4'.P?!{,`P4'} = `P3'.P-'Q'.P; * id `P5'.P?!{,`P5'} = `P1'.P-'Q'.P; *#call ACCU(Benz momenta 1) * id `P6'.P?!{,`P6'} = `P2'.P-`P1'.P; *#call ACCU(Benz momenta 2) * id `P7'.P?!{,`P7'} = `P2'.P-`P3'.P; *#call ACCU(Benz momenta 3) * id `P8'.P?!{,`P8'} = `P3'.P-`P1'.P; *#call ACCU(Benz momenta 4) id 'Q'.`P1' = `P1'.`P1'/2+'Q'.'Q'/2-`P5'.`P5'/2; #call ACCU(Benz scalar 1) id 'Q'.`P3' = `P3'.`P3'/2+'Q'.'Q'/2-`P4'.`P4'/2; #call ACCU(Benz scalar 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P6'.`P6'/2; #call ACCU(Benz scalar 3) id `P2'.`P3' = `P2'.`P2'/2+`P3'.`P3'/2-`P7'.`P7'/2; #call ACCU(Benz scalar 4) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P8'.`P8'/2; #call ACCU(Benz scalar 5) if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); #call triangle(`P2',`P6',`P7',`P1',`P3') endif; * #endprocedure *--#] benz : *--#[ benzbar : #procedure benzbar(P1,P2,P3,P4,P5,P6,P7,Q) * * Reduction procedure for three loop graphs of the BEbar or benz-bar type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<------<-\ * P1 / | P2 | \ P3 * / \ / \ * / P6 | | P7 \ * / \ / \ * Q --<-- v ^ --<-- Q * \ \ / / * \ | | / * \ \ / / * P5 \ | / P4 * \---->------->----/ * * * Note that from the ladder graphs we can have powers of p7.p8 (P6.P7) * Here they can be written as a fake (P6-P7)^2 * Such a (P6-P7)^2 isn't affected by the transformations here. * It is better than writing it as (P3-P1)^2 because then we would * generate positive powers of P1.P1 and P3.P3 in the end. * * Coded by J.A.M. Vermaseren, 13-nov-1990. * id `P6'.`P7' = `P6'.`P6'/2+`P7'.`P7'/2-mncx8/2; if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7') > 0 ); #call triangle(`P2',`P6',`P7',`P1',`P3') endif; id mncx8 = `P6'.`P6' + `P7'.`P7' - 2*`P6'.`P7'; #endprocedure *--#] benzbar : *--#[ benzbu : #procedure benzbu(P1,P2,P3,P4,P5,P6,P7,Q) * * Reduction procedure for three loop graphs of the BU or benz-bu type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<-------------<-\ * P1 / | \ P6 * / ^ P4 \ * / | \ * / P2 | \ * Q --<-- ----->------| --<-- Q * \ | / * \ | / * \ v P5 / * P3 \ | / P7 * \---->------->----/ * * The main complication is to make sure that no loop momentum * survives in the numerator (Q.P4 and Q.P5 are independent objects) * Because this is a service routine it is best if the calling * routine takes care of that. * BU is BE with 1 or 3 missing. * * Procedure coded by J.A.M. Vermaseren, 13-nov-1990. * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7') > 0 ); if ( count(`P6'.`P6',1) > count(`P7'.`P7',1) ); #call triangle(`P4',`P2',`P1',`P5',`P6') else; #call triangle(`P5',`P2',`P3',`P4',`P7') endif; endif; * #endprocedure *--#] benzbu : *--#[ benzred : #procedure benzred(P1,P2,P3,P4,P5,P6,P7,P8,Q) * * Reduction procedure for three loop graphs of the BE or benz type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<------<-\ * P1 / \ P2 / \ P3 * / \ / \ * / P6 v ^ P7 \ * / \ / \ * `Q' --<-- \ / --<-- `Q' * \ | / * \ v P8 / * \ | / * P5 \ | / P4 * \---->------->----/ * * We start with reducing the dotproducts in the numerator to sums * of denominators. Only one dotproduct is irreducible: `Q'.P2 * The easiest reduction (and quite fast) is by writing everything * in terms of `Q',P1,P2,P3 and use vertex identities and P8 = P3-P1 * to write the few remaining dotproducts in terms of denominators. * * Routine coded by J.A.M.Vermaseren 8-jul-1990, modified 13-nov-1990. * BEPATH added 21-dec-1994 to improve efficiency. * #ifndef `BEPATH' if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `P1'.`P3' `P1'.`P1' `P3'.`P3' `P8'.`P8',Benz scalar 0) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P8'.`P8'/2; #call ACCU2(AB `P2'.`P3' `P2'.`P2' `P3'.`P3' `P7'.`P7',Benz scalar 1) id `P2'.`P3' = `P2'.`P2'/2+`P3'.`P3'/2-`P7'.`P7'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P6'.`P6',Benz scalar 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P6'.`P6'/2; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 3) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `Q'.`Q' `P4'.`P4',Benz scalar 4) id `Q'.`P3' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5) #else #if `BEPATH' == 0 if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `P1'.`P3' `P1'.`P1' `P3'.`P3' `P8'.`P8',Benz scalar 0 \(0\)) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P8'.`P8'/2; #call ACCU2(AB `P2'.`P3' `P2'.`P2' `P3'.`P3' `P7'.`P7',Benz scalar 1 \(0\)) id `P2'.`P3' = `P2'.`P2'/2+`P3'.`P3'/2-`P7'.`P7'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P6'.`P6',Benz scalar 2 \(0\)) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P6'.`P6'/2; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 3 \(0\)) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `Q'.`Q' `P4'.`P4',Benz scalar 4 \(0\)) id `Q'.`P3' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5 \(0\)) #endif #if `BEPATH' == 1 #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 0 \(1\)) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P1'.`P6' `P2'.`P2' `P1'.`P1' `P6'.`P6',Benz scalar 1 \(1\)) id `P1'.`P6' = `P2'.`P2'/2-`P1'.`P1'/2-`P6'.`P6'/2; #call ACCU2(AB `P6'.`P8' `P6'.`P6' `P8'.`P8' `P7'.`P7',Benz scalar 2 \(1\)) id `P6'.`P8' = `P6'.`P6'/2+`P8'.`P8'/2-`P7'.`P7'/2; #call ACCU2(AB `P1'.`P8' `P3'.`P3' `P1'.`P1' `P8'.`P8',Benz scalar 3 \(1\)) id `P1'.`P8' = `P3'.`P3'/2-`P1'.`P1'/2-`P8'.`P8'/2; #call ACCU2(AB `Q'.`P8' `P3'.`P3' `P4'.`P4' `P1'.`P1' `P5'.`P5',Benz scalar 4 \(1\)) id `Q'.`P8' = `P3'.`P3'/2-`P4'.`P4'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 5 \(1\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6', `P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6', `P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6', `P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 6 \(1\)) #endif #if `BEPATH' == 2 #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P6'.`P6',Benz scalar 0 \(2\)) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P6'.`P6'/2; #call ACCU2(AB `P2'.`P7' `P2'.`P2' `P7'.`P7' `P3'.`P3',Benz scalar 1 \(2\)) id `P2'.`P7' = `P2'.`P2'/2+`P7'.`P7'/2-`P3'.`P3'/2; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 2 \(2\)) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `Q'.`P7' `Q'.`P2' `Q'.`Q' `P3'.`P3' `P4'.`P4',Benz scalar 3 \(2\)) id `Q'.`P7' = `Q'.`P2'-`Q'.`Q'/2-`P3'.`P3'/2+`P4'.`P4'/2; #call ACCU2(AB `P1'.`P7' `P2'.`P2' `P6'.`P6' `P3'.`P3' `P8'.`P8',Benz scalar 4 \(2\)) id `P1'.`P7' = `P2'.`P2'/2-`P6'.`P6'/2-`P3'.`P3'/2+`P8'.`P8'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5 \(2\)) #endif #if `BEPATH' == 3 #call ACCU2(AB `P6'.`P8' `P6'.`P6' `P8'.`P8' `P7'.`P7',Benz scalar 0 \(3\)) id `P6'.`P8' = `P6'.`P6'/2+`P8'.`P8'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P6' `P2'.`P2' `P6'.`P6' `P1'.`P1',Benz scalar 1 \(3\)) id `P2'.`P6' = `P2'.`P2'/2+`P6'.`P6'/2-`P1'.`P1'/2; #call ACCU2(AB `P2'.`P8' `P3'.`P3' `P1'.`P1' `P7'.`P7' `P6'.`P6',Benz scalar 2 \(3\)) id `P2'.`P8' = `P3'.`P3'/2-`P1'.`P1'/2-`P7'.`P7'/2+`P6'.`P6'/2; #call ACCU2(AB `Q'.`P8' `P3'.`P3' `P4'.`P4' `P1'.`P1' `P5'.`P5',Benz scalar 3 \(3\)) id `Q'.`P8' = `P3'.`P3'/2-`P4'.`P4'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 4 \(3\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5 \(3\)) #endif #if `BEPATH' == 4 #call ACCU2(AB `P6'.`P8' `P6'.`P6' `P8'.`P8' `P7'.`P7',Benz scalar 0 \(4\)) id `P6'.`P8' = `P6'.`P6'/2+`P8'.`P8'/2-`P7'.`P7'/2; #call ACCU2(AB `P4'.`P8' `P4'.`P4' `P8'.`P8' `P5'.`P5',Benz scalar 1 \(4\)) id `P4'.`P8' = `P4'.`P4'/2+`P8'.`P8'/2-`P5'.`P5'/2; #call ACCU2(AB `Q'.`P4' `P3'.`P3' `Q'.`Q' `P4'.`P4',Benz scalar 2 \(4\)) id `Q'.`P4' = `P3'.`P3'/2-`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU2(AB `Q'.`P8' `P3'.`P3' `P4'.`P4' `P1'.`P1' `P5'.`P5',Benz scalar 3 \(4\)) id `Q'.`P8' = `P3'.`P3'/2-`P4'.`P4'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 4 \(4\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `P4'.`P6' `Q'.`P2' `Q'.`Q' `P2'.`P2' `P8'.`P8' `P7'.`P7' `P5'.`P5',Benz scalar 5 \(4\)) id `P4'.`P6' = -`Q'.`P2'+`Q'.`Q'/2+`P2'.`P2'/2+`P8'.`P8'/2 -`P7'.`P7'/2-`P5'.`P5'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 6 \(4\)) #endif #if `BEPATH' == 5 #call ACCU2(AB `P1'.`P6' `P2'.`P2' `P1'.`P1' `P6'.`P6',Benz scalar 0 \(5\)) id `P1'.`P6' = `P2'.`P2'/2-`P1'.`P1'/2-`P6'.`P6'/2; #call ACCU2(AB `P6'.`P7' `P6'.`P6' `P7'.`P7' `P8'.`P8',Benz scalar 1 \(5\)) id `P6'.`P7' = `P6'.`P6'/2+`P7'.`P7'/2-`P8'.`P8'/2; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 2 \(5\)) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P1'.`P7' `P2'.`P2' `P6'.`P6' `P3'.`P3' `P8'.`P8',Benz scalar 3 \(5\)) id `P1'.`P7' = `P2'.`P2'/2-`P6'.`P6'/2-`P3'.`P3'/2+`P8'.`P8'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 4 \(5\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P7' `Q'.`P2' `Q'.`Q' `P3'.`P3' `P4'.`P4',Benz scalar 5 \(5\)) id `Q'.`P7' = `Q'.`P2'-`Q'.`Q'/2-`P3'.`P3'/2+`P4'.`P4'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 6 \(5\)) #endif #if `BEPATH' == 6 #call ACCU2(AB `P5'.`P8' `P4'.`P4' `P5'.`P5' `P8'.`P8',Benz scalar 0 \(6\)) id `P5'.`P8' = `P4'.`P4'/2-`P5'.`P5'/2-`P8'.`P8'/2; #call ACCU2(AB `P6'.`P8' `P6'.`P6' `P8'.`P8' `P7'.`P7',Benz scalar 1 \(6\)) id `P6'.`P8' = `P6'.`P6'/2+`P8'.`P8'/2-`P7'.`P7'/2; #call ACCU2(AB `Q'.`P5' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 2 \(6\)) id `Q'.`P5' = `P1'.`P1'/2-`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P5'.`P6' `P2'.`P2' `P1'.`P1' `P6'.`P6' `Q'.`P6',Benz scalar 3 \(6\)) id `P5'.`P6' = `P2'.`P2'/2-`P1'.`P1'/2-`P6'.`P6'/2-`Q'.`P6'; #call ACCU2(AB `Q'.`P8' `P3'.`P3' `P4'.`P4' `P1'.`P1' `P5'.`P5',Benz scalar 4 \(6\)) id `Q'.`P8' = `P3'.`P3'/2-`P4'.`P4'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 5 \(6\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 6 \(6\)) #endif #if `BEPATH' == 7 #call ACCU2(AB `P4'.`P5' `P4'.`P4' `P5'.`P5' `P8'.`P8',Benz scalar 0 \(7\)) id `P4'.`P5' = `P4'.`P4'/2+`P5'.`P5'/2-`P8'.`P8'/2; #call ACCU2(AB `Q'.`P4' `P3'.`P3' `Q'.`Q' `P4'.`P4',Benz scalar 1 \(7\)) id `Q'.`P4' = `P3'.`P3'/2-`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU2(AB `Q'.`P5' `P1'.`P1' `Q'.`Q' `P5'.`P5',Benz scalar 2 \(7\)) id `Q'.`P5' = `P1'.`P1'/2-`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P2'.`P4' `P2'.`P2' `P3'.`P3' `P7'.`P7' `Q'.`P2',Benz scalar 3 \(7\)) id `P2'.`P4' = `P2'.`P2'/2+`P3'.`P3'/2-`P7'.`P7'/2-`Q'.`P2'; #call ACCU2(AB `P2'.`P5' `P2'.`P2' `P1'.`P1' `P6'.`P6' `Q'.`P2',Benz scalar 4 \(7\)) id `P2'.`P5' = `P2'.`P2'/2+`P1'.`P1'/2-`P6'.`P6'/2-`Q'.`P2'; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5 \(7\)) #endif #if `BEPATH' == 8 if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `P2'.`P6' `P2'.`P2' `P1'.`P1' `P6'.`P6',Benz scalar 0 \(8\)) id `P2'.`P6' = `P2'.`P2'/2+`P6'.`P6'/2-`P1'.`P1'/2; #call ACCU2(AB `P2'.`P7' `P2'.`P2' `P7'.`P7' `P3'.`P3',Benz scalar 1 \(8\)) id `P2'.`P7' = `P2'.`P2'/2+`P7'.`P7'/2-`P3'.`P3'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `P6'.`P7' `P6'.`P6' `P7'.`P7' `P8'.`P8',Benz scalar 2 \(8\)) id `P6'.`P7' = `P6'.`P6'/2+`P7'.`P7'/2-`P8'.`P8'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU2(AB `Q'.`P6' `Q'.`P2' `Q'.`Q' `P1'.`P1' `P5'.`P5',Benz scalar 3 \(8\)) id `Q'.`P6' = `Q'.`P2'-`Q'.`Q'/2-`P1'.`P1'/2+`P5'.`P5'/2; #call ACCU2(AB `Q'.`P7' `Q'.`P2' `Q'.`Q' `P3'.`P3' `P4'.`P4',Benz scalar 4 \(8\)) id `Q'.`P7' = `Q'.`P2'-`Q'.`Q'/2-`P3'.`P3'/2+`P4'.`P4'/2; if ( count(`P6'.`P6',1) < count(`P7'.`P7',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P6'.`P6',1) == count(`P7'.`P7',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P5'.`P5',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P5',`P5',`P4',`P6',`P7',`P7',`P6',`P8',-`P8'); endif; endif; #call ACCU(Benz scalar 5 \(8\)) #endif #endif * #endprocedure *--#] benzred : *--#[ dotwo : #procedure dotwo() #ifdef `OLDTWO' if ( count(p1.p1,1,p3.p3,1) > count(p4.p4,1,p6.p6,1) ); multiply replace_(p1,p6,p6,p1,p3,p4,p4,p3,mnce1,mnce6,mnce6,mnce1,mnce3,mnce4,mnce4,mnce3); id Q.mncq1?{p1,p3,p4,p6,p7} = -Q.mncq1; endif; if ( count(p1.p1,1,p6.p6,1) > count(p3.p3,1,p4.p4,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,mnce1,mnce3,mnce3,mnce1,mnce4,mnce6,mnce6,mnce4); id p7.mncq1?{Q,p1,p3,p4,p6} = -p7.mncq1; endif; #call ACCU(Presymmetrize) id p7.Q = Q.p1-Q.p3; id p1.p4 = p1.p3-p1.Q; id p3.p6 = p1.p3-p3.Q; id p1.p7 = p1.p1/2+p7.p7/2-p3.p3/2; id p3.p7 = p1.p1/2-p3.p3/2-p7.p7/2; id p4.p7 = p6.p6/2-p4.p4/2-p7.p7/2; id p6.p7 = p6.p6/2+p7.p7/2-p4.p4/2; #call ACCU2(AB p1.Q Q.Q p6.Q p1.p6 p1.p1,Rewrite vectors\(2\)) id p6.Q = p1.Q-Q.Q; id p1.p6 = p1.p1-p1.Q; #call ACCU2(AB p3.Q Q.Q p4.Q p3.p4 p3.p3,Scalars\(2\) 1) id p4.Q = p3.Q-Q.Q; id p3.p4 = p3.p3-p3.Q; #call ACCU2(AB p1.Q p1.p1 Q.Q p6.p6,Scalars\(2\) 2) id p1.Q = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p3.Q p3.p3 Q.Q p4.p4,Scalars\(2\) 3) id p3.Q = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU2(AB p1.p3 p1.p1 p3.p3 p7.p7,Scalars\(2\) 4) id p1.p3 = p1.p1/2+p3.p3/2-p7.p7/2; #call ACCU2(AB p4.p6 p4.p4 p6.p6 p7.p7,Scalars\(2\) 5) id p4.p6 = p4.p4/2+p6.p6/2-p7.p7/2; #call ACCU(Scalars\(2\) 6) *id p1.p6 = p1.p1/2+p6.p6/2-Q.Q/2; *id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; *#call ACCU(Scalars\(2\) 7) #else if ( count(Q.p6,1,p4.p6,1,Q.p4,1,p4.p7,1,p6.p7,1) > count(Q.p1,1,Q.p3,1,p1.p3,1,p1.p7,1,p3.p7,1) ); multiply replace_(p1,p6,p6,p1,p3,p4,p4,p3,mnce1,mnce6,mnce6,mnce1,mnce3,mnce4,mnce4,mnce3); id Q = -Q; endif; if ( count(Q.p3,1,p3.p4,1,Q.p4,1,p3.p7,1,p4.p7,1) > count(Q.p1,1,Q.p6,1,p1.p6,1,p1.p7,1,p6.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,mnce1,mnce3,mnce3,mnce1,mnce4,mnce6,mnce6,mnce4); id p7 = -p7; endif; #call ACCU(Presymmetrize) id p7.mncq1?{Q,p1,p3,p4,p6,p7} = p1.mncq1-p3.mncq1; #call ACCU(Eliminate p7) id p6.mncq1?{Q,p1,p3,p4} = p1.mncq1-Q.mncq1; #call ACCU(Eliminate p6) id p4.mncq1?{Q,p1,p3} = p3.mncq1-Q.mncq1; #call ACCU2(AB p1.Q p1.p1 Q.Q p6.p6,Eliminate p4) id p1.Q = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p3.Q p3.p3 Q.Q p4.p4,Eliminate Q.p1) id p3.Q = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU2(AB p1.p3 p1.p1 p3.p3 p7.p7,Eliminate Q.p3) id p1.p3 = p1.p1/2+p3.p3/2-p7.p7/2; #call ACCU(Eliminate p1.p3) #endif * * Now relabel the lines so that we get a uniform orientation. * This can be done easily because we have only squares of momenta. * if ( count(mnce7,1,mnceq,1) > 0 ); label 2; if ( ( ( count(p1.p1,1) > count(p3.p3,1) ) && ( count(p6.p6,1) > count(p3.p3,1) ) ) || ( ( count(p1.p1,1) > count(p4.p4,1) ) && ( count(p6.p6,1) > count(p4.p4,1) ) ) ); multiply replace_(p1,p3,p3,p1,mnce1,mnce3,mnce3,mnce1,p6,p4,p4,p6,mnce6,mnce4,mnce4,mnce6); endif; if ( ( count(p1.p1,1) > count(p6.p6,1) ) || ( ( count(p1.p1,1) == count(p6.p6,1) ) && ( count(p3.p3,1) > count(p4.p4,1) ) ) ); multiply replace_(p1,p6,p6,p1,mnce1,mnce6,mnce6,mnce1,p3,p4,p4,p3,mnce3,mnce4,mnce4,mnce3); endif; else; if ( ( count(mnce3,1) > 0 ) || ( count(mnce4,1) > 0 ) ); multiply replace_(p1,p3,p3,p1,mnce1,mnce3,mnce3,mnce1,p6,p4,p4,p6,mnce6,mnce4,mnce4,mnce6); endif; if ( count(mnce6,1) > 0 ); multiply replace_(p1,p6,p6,p1,mnce1,mnce6,mnce6,mnce1,p3,p4,p4,p3,mnce3,mnce4,mnce4,mnce3); endif; if ( count(mnce1,1) == 0 ) goto 2; endif; #call ACCU(Use symmetry\(2\)) multiply acc(1/ep); #call newtwo(p1,mnce1,p3,mnce3,p4,mnce4,p6,mnce6,p7,mnce7,Q,mnceq,0,mncint1*mncint3) multiply ep; if ( count(mnce7,1) ); if ( count(p1.p1,1) < count(p6.p6,1) ) multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,-p3,p3,-p1,p6,-p4,p4,-p6,Q,-Q); if ( count(p1.p1,1) < count(p6.p6,1) ); multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); endif; elseif ( count(p1.p1,1) < count(p4.p4,1) ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p7,-p7,Q,-Q); endif; endif; #call ACCU(Two loop reduction) if ( count(mncint3,1) ); if ( count(mnce7,1) ); if ( count(p1.p1,1) < count(p6.p6,1) ) multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,-p3,p3,-p1,p6,-p4,p4,-p6,Q,-Q); if ( count(p1.p1,1) < count(p6.p6,1) ); multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); endif; elseif ( count(p1.p1,1) < count(p4.p4,1) ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p7,-p7,Q,-Q); endif; id p1.p1 = Q.Q+p6.p6+2*Q.p6; id p1 = Q+p6; if ( count(p6.p6,1) >= 0 ) discard; * Integrate over (6,7)->4 multiply replace_(p6,-mncp9,p7,-p8,p4,-p1,p3,-p2,mnce7,mnce8); multiply mncnaar(p1,mnce1); elseif ( count(mnce1,1) ); if ( count(p7.p7,1) >= 0 ); id p7.p7 = p6.p6+p4.p4-2*p4.p6; id p7 = p6-p4; if ( count(p6.p6,1) >= 0 ) discard; if ( count(p3.p3,1) >= 0 ) discard; if ( count(p4.p4,1) >= 0 ) discard; * Integrate over (6,1)->Q multiply replace_(p6,-mncp9,p1,-p8,mnce1,mnce8,p3,p1,p4,p2); multiply mncnaar(Q,mnceq); elseif ( count(p3.p3,1) >= 0 ); id p3.p3 = Q.Q+p4.p4+2*Q.p4; id p3 = p4+Q; if ( count(p4.p4,1) >= 0 ) discard; * if ( count(p7.p7,1) >= 0 ) discard; * Integrate over (4,7)->6 multiply replace_(p4,-mncp9,p7,p8,p6,-p1,p1,-p2,mnce1,mnce2); multiply mncnaar(p1,mnce1); elseif ( count(p4.p4,1) >= 0 ); id p4.p4 = p3.p3+Q.Q-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ) discard; if ( count(p6.p6,1) >= 0 ) discard; * if ( count(p7.p7,1) >= 0 ) discard; * Integrate over (3,7)->1 * id p7 = -p7; multiply replace_(p3,mncp9,p7,-p8,p6,p2); multiply mncnaar(p1,mnce1); else; id p6.p6 = p4.p4+p7.p7+2*p4.p7; id p6 = p4+p7; if ( count(p4.p4,1) >= 0 ) discard; if ( count(p7.p7,1) >= 0 ) discard; * Integrate over (7,1)->3 multiply replace_(p1,-p8,p7,-mncp9,p3,p1,p4,p2,mnce1,mnce8); multiply mncnaar(p1,mnce1); endif; else; * Here we have no internal fractional power. * 1: order so that p1.p1 has the highest power (or p7.p7). if ( count(p1.p1,1) < count(p6.p6,1) ) multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,-p3,p3,-p1,p6,-p4,p4,-p6,Q,-Q); if ( count(p1.p1,1) < count(p6.p6,1) ) multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); elseif ( count(p1.p1,1) < count(p4.p4,1) ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p7,-p7,Q,-Q); endif; if ( count(p7.p7,1) >= 0 ); id p7.p7 = p1.p1+p3.p3-2*p1.p3; if ( count(p1.p1,1) >= 0 ) discard; if ( count(p3.p3,1) >= 0 ) discard; if ( count(p1.p1,1) < count(p3.p3,1) ) multiply replace_(p1,-p3,p3,-p1,p6,-p4,p4,-p6,Q,-Q); * Integrate over (1,6)->Q multiply replace_(p1,mncp9,p6,p8,p3,p1,p4,p2); multiply mncnaar(Q,mnceq); else; * p1.p1 is missing or positive if ( count(p7.p7,1) >= 0 ) discard; if ( count(p3.p3,1) >= 0 ) discard; id p1.p1 = Q.Q+p6.p6+2*Q.p6; if ( count(p6.p6,1) >= 0 ) discard; * Integrate over (6,7)->4 multiply replace_(p6,-mncp9,p7,-p8,p4,-p1,p3,-p2); multiply mncnaar(p1,mnce1); endif; endif; ToTensor,nosquare,mncFQ,mncp9; endif; #call ACCU2(B mncnaar p8 mncp9 mnce8 mnce9 mncint3 mncFQ,Prepare second loop) Keep brackets; if ( count(mncint3,1) ); if ( count(mncFQ,1) == 0 ); id mncint3/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mnce9^mncy1?*mnce8^mncy2? = mncq1.mncq1^2/mncq1.mncq1^mncx1/mncq1.mncq1^mncx2*mnce3^mncy1*mnce3^mncy2*mnce3*mncG(mncx1,mncy1,mncx2,mncy2,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint3/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mnce9^mncy1?*mnce8^mncy2?*mncFQ(mnci1?) = mncq1.mncq1^2/mncq1.mncq1^mncx1/mncq1.mncq1^mncx2*mnce3^mncy1*mnce3^mncy2*mnce3*mncG(mncx1,mncy1,mncx2,mncy2,1,0)*mncq1(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint3/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mnce9^mncy1?*mnce8^mncy2?*mncFQ(mnci1?,mnci2?) = mncq1.mncq1^2/mncq1.mncq1^mncx1/mncq1.mncq1^mncx2*mnce3^mncy1*mnce3^mncy2*mnce3*( +mncG(mncx1,mncy1,mncx2,mncy2,2,0)*mncq1(mnci1)*mncq1(mnci2)+mncG(mncx1,mncy1,mncx2,mncy2,2,1)*mncq1.mncq1*d_(mnci1,mnci2)/2); else; id mncint3/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mnce9^mncy1?*mnce8^mncy2?*mncFQ(?a) = mncq1.mncq1^2/mncq1.mncq1^mncx1/mncq1.mncq1^mncx2*mnce3^mncy1*mnce3^mncy2*mnce3 *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,mncy1,mncx2,mncy2,nargs_(?a),mncj) *mncy^mncj*mncq1.mncq1^mncj/2^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,mncq1; id mncnaar(mncq2?,mnce4?) = replace_(mncq1,mncq2,mnce3,mnce4); id mncdel(?a) = dd_(?a); else; id mncnaar(mncq2?,mnce4?) = replace_(mncq1,mncq2,mnce3,mnce4); endif; else; multiply ep; endif; #call ACCU(Second loop) if ( count(mncint1,1) ); #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint1) endif; #call ACCU(Third loop) multiply 1/Q.Q/mnceq^3; #call simplify #endprocedure *--#] dotwo : *--#[ dovert1 : #procedure dovert1(P1,P2,P3) * * P3 = P1+P2 * id g_(mnci1?,`P1',`P2',`P3') = g_(mnci1,`P1')*`P3'.`P3'-g_(mnci1,`P3')*`P1'.`P1'; id g_(mnci1?,`P1',`P3',`P2') = g_(mnci1,`P1')*`P2'.`P2'+g_(mnci1,`P2')*`P1'.`P1'; id g_(mnci1?,`P2',`P1',`P3') = g_(mnci1,`P2')*`P3'.`P3'-g_(mnci1,`P3')*`P2'.`P2'; id g_(mnci1?,`P3',`P2',`P1') = g_(mnci1,`P1')*`P3'.`P3'-g_(mnci1,`P3')*`P1'.`P1'; id g_(mnci1?,`P2',`P3',`P1') = g_(mnci1,`P1')*`P2'.`P2'+g_(mnci1,`P2')*`P1'.`P1'; id g_(mnci1?,`P3',`P1',`P2') = g_(mnci1,`P2')*`P3'.`P3'-g_(mnci1,`P3')*`P2'.`P2'; * id g_(mnci1?,[P+`P1'],`P2',[P+`P3']) = g_(mnci1,[P+`P1'])*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*[P+`P1'].[P+`P1']; id g_(mnci1?,[P+`P1'],[P+`P3'],`P2') = g_(mnci1,[P+`P1'])*`P2'.`P2'+g_(mnci1,`P2')*[P+`P1'].[P+`P1']; id g_(mnci1?,`P2',[P+`P1'],[P+`P3']) = g_(mnci1,`P2')*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*`P2'.`P2'; id g_(mnci1?,[P+`P3'],`P2',[P+`P1']) = g_(mnci1,[P+`P1'])*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*[P+`P1'].[P+`P1']; id g_(mnci1?,`P2',[P+`P3'],[P+`P1']) = g_(mnci1,[P+`P1'])*`P2'.`P2'+g_(mnci1,`P2')*[P+`P1'].[P+`P1']; id g_(mnci1?,[P+`P3'],[P+`P1'],`P2') = g_(mnci1,`P2')*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*`P2'.`P2'; * id g_(mnci1?,`P1',[P+`P2'],[P+`P3']) = g_(mnci1,`P1')*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*`P1'.`P1'; id g_(mnci1?,`P1',[P+`P3'],[P+`P2']) = g_(mnci1,`P1')*[P+`P2'].[P+`P2']+g_(mnci1,[P+`P2'])*`P1'.`P1'; id g_(mnci1?,[P+`P2'],`P1',[P+`P3']) = g_(mnci1,[P+`P2'])*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*[P+`P2'].[P+`P2']; id g_(mnci1?,[P+`P3'],[P+`P2'],`P1') = g_(mnci1,`P1')*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*`P1'.`P1'; id g_(mnci1?,[P+`P2'],[P+`P3'],`P1') = g_(mnci1,`P1')*[P+`P2'].[P+`P2']+g_(mnci1,[P+`P2'])*`P1'.`P1'; id g_(mnci1?,[P+`P3'],`P1',[P+`P2']) = g_(mnci1,[P+`P2'])*[P+`P3'].[P+`P3']-g_(mnci1,[P+`P3'])*[P+`P2'].[P+`P2']; * id g_(mnci1?,[P-`P3'],`P2',[P-`P1']) = g_(mnci1,[P-`P3'])*[P-`P1'].[P-`P1']-g_(mnci1,[P-`P1'])*[P-`P3'].[P-`P3']; id g_(mnci1?,[P-`P3'],[P-`P1'],`P2') = g_(mnci1,[P-`P3'])*`P2'.`P2'+g_(mnci1,`P2')*[P-`P3'].[P-`P3']; id g_(mnci1?,`P2',[P-`P3'],[P-`P1']) = g_(mnci1,`P2')*[P-`P1'].[P-`P1']-g_(mnci1,[P-`P1'])*`P2'.`P2'; id g_(mnci1?,[P-`P1'],`P2',[P-`P3']) = g_(mnci1,[P-`P3'])*[P-`P1'].[P-`P1']-g_(mnci1,[P-`P1'])*[P-`P3'].[P-`P3']; id g_(mnci1?,`P2',[P-`P1'],[P-`P3']) = g_(mnci1,[P-`P3'])*`P2'.`P2'+g_(mnci1,`P2')*[P-`P3'].[P-`P3']; id g_(mnci1?,[P-`P1'],[P-`P3'],`P2') = g_(mnci1,`P2')*[P-`P1'].[P-`P1']-g_(mnci1,[P-`P1'])*`P2'.`P2'; * id g_(mnci1?,`P1',[P-`P3'],[P-`P2']) = g_(mnci1,`P1')*[P-`P2'].[P-`P2']-g_(mnci1,[P-`P2'])*`P1'.`P1'; id g_(mnci1?,`P1',[P-`P2'],[P-`P3']) = g_(mnci1,`P1')*[P-`P3'].[P-`P3']+g_(mnci1,[P-`P3'])*`P1'.`P1'; id g_(mnci1?,[P-`P3'],`P1',[P-`P2']) = g_(mnci1,[P-`P3'])*[P-`P2'].[P-`P2']-g_(mnci1,[P-`P2'])*[P-`P3'].[P-`P3']; id g_(mnci1?,[P-`P2'],[P-`P3'],`P1') = g_(mnci1,`P1')*[P-`P2'].[P-`P2']-g_(mnci1,[P-`P2'])*`P1'.`P1'; id g_(mnci1?,[P-`P3'],[P-`P2'],`P1') = g_(mnci1,`P1')*[P-`P3'].[P-`P3']+g_(mnci1,[P-`P3'])*`P1'.`P1'; id g_(mnci1?,[P-`P2'],`P1',[P-`P3']) = g_(mnci1,[P-`P3'])*[P-`P2'].[P-`P2']-g_(mnci1,[P-`P2'])*[P-`P3'].[P-`P3']; * id g_(mnci1?,`P3',[P-`P2'],[P+`P1']) = g_(mnci1,`P3')*[P+`P1'].[P+`P1']-g_(mnci1,[P+`P1'])*`P3'.`P3'; id g_(mnci1?,`P3',[P+`P1'],[P-`P2']) = g_(mnci1,`P3')*[P-`P2'].[P-`P2']+g_(mnci1,[P-`P2'])*`P3'.`P3'; id g_(mnci1?,[P-`P2'],`P3',[P+`P1']) = g_(mnci1,[P-`P2'])*[P+`P1'].[P+`P1']-g_(mnci1,[P+`P1'])*[P-`P2'].[P-`P2']; id g_(mnci1?,[P+`P1'],[P-`P2'],`P3') = g_(mnci1,`P3')*[P+`P1'].[P+`P1']-g_(mnci1,[P+`P1'])*`P3'.`P3'; id g_(mnci1?,[P-`P2'],[P+`P1'],`P3') = g_(mnci1,`P3')*[P-`P2'].[P-`P2']+g_(mnci1,[P-`P2'])*`P3'.`P3'; id g_(mnci1?,[P+`P1'],`P3',[P-`P2']) = g_(mnci1,[P-`P2'])*[P+`P1'].[P+`P1']-g_(mnci1,[P+`P1'])*[P-`P2'].[P-`P2']; * id g_(mnci1?,[P-`P1'],`P3',[P+`P2']) = g_(mnci1,[P-`P1'])*[P+`P2'].[P+`P2']-g_(mnci1,[P+`P2'])*[P-`P1'].[P-`P1']; id g_(mnci1?,[P-`P1'],[P+`P2'],`P3') = g_(mnci1,[P-`P1'])*`P3'.`P3'+g_(mnci1,`P3')*[P-`P1'].[P-`P1']; id g_(mnci1?,`P3',[P-`P1'],[P+`P2']) = g_(mnci1,`P3')*[P+`P2'].[P+`P2']-g_(mnci1,[P+`P2'])*`P3'.`P3'; id g_(mnci1?,[P+`P2'],`P3',[P-`P1']) = g_(mnci1,[P-`P1'])*[P+`P2'].[P+`P2']-g_(mnci1,[P+`P2'])*[P-`P1'].[P-`P1']; id g_(mnci1?,`P3',[P+`P2'],[P-`P1']) = g_(mnci1,[P-`P1'])*`P3'.`P3'+g_(mnci1,`P3')*[P-`P1'].[P-`P1']; id g_(mnci1?,[P+`P2'],[P-`P1'],`P3') = g_(mnci1,`P3')*[P+`P2'].[P+`P2']-g_(mnci1,[P+`P2'])*`P3'.`P3'; * #endprocedure *--#] dovert1 : *--#[ dovert2 : #procedure dovert2(P1,P2,P3) * * P1 + P2 + P3 = 0 * id g_(mnci1?,`P3',`P2',`P1') = -g_(mnci1,`P3')*`P1'.`P1'-g_(mnci1,`P1')*`P3'.`P3'; id g_(mnci1?,`P3',`P1',`P2') = -g_(mnci1,`P3')*`P2'.`P2'-g_(mnci1,`P2')*`P3'.`P3'; id g_(mnci1?,`P2',`P3',`P1') = -g_(mnci1,`P2')*`P1'.`P1'-g_(mnci1,`P1')*`P2'.`P2'; id g_(mnci1?,`P1',`P2',`P3') = -g_(mnci1,`P3')*`P1'.`P1'-g_(mnci1,`P1')*`P3'.`P3'; id g_(mnci1?,`P2',`P1',`P3') = -g_(mnci1,`P3')*`P2'.`P2'-g_(mnci1,`P2')*`P3'.`P3'; id g_(mnci1?,`P1',`P3',`P2') = -g_(mnci1,`P2')*`P1'.`P1'-g_(mnci1,`P1')*`P2'.`P2'; * #endprocedure *--#] dovert2 : *--#[ expandP : * #procedure expandP(topo,power) * * Expands the denominators in P. * id 1/P.Q = 1/Q.Q/mncproexp; #do mnci = 1,8 id 1/P.p`mnci' = 1/P.p`mnci'/mncproexp; #enddo id P = mncproexp*P; if ( count(mncproexp,1) > `power' ) discard; id mncepexp(mncp?mncpp18[mncn],mncx?) = mncee18[mncn]^mncx/mnceq^mncx; id mncepexp(-mncp?mncpp18[mncn],mncx?) = mncee18[mncn]^mncx/mnceq^mncx; id mncepexp(-mncp?[mncPp],mncx?) = mncepexp(mncp,mncx); id mncepexp([P+Q],mncx?) = mncepexp( mncproexp*2*P.Q/Q.Q,mncx); id mncepexp([P-Q],mncx?) = mncepexp(-mncproexp*2*P.Q/Q.Q,mncx); id mncepexp(mncp?[mncpp18][D],mncx?) = mncee18[D]^mncx/mnceq^mncx *mncepexp( 2*mncproexp*P.mncpp18[D]/mncpp18[D].mncpp18[D],mncx); id mncepexp(mncp?[-mncpp18][D],mncx?) = mncee18[D]^mncx/mnceq^mncx *mncepexp(-2*mncproexp*P.mncpp18[D]/mncpp18[D].mncpp18[D],mncx); #do mnci = 1,8 if ( count([P+p`mnci'].[P+p`mnci'],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P+p`mnci'].[P+p`mnci'] = ( sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.p`mnci'^mncj/ p`mnci'.p`mnci'^mncj*sign_(mncj)))*mncproexp^mncx/p`mnci'.p`mnci'; endrepeat; endif; if ( count([P-p`mnci'].[P-p`mnci'],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P-p`mnci'].[P-p`mnci'] = ( sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.p`mnci'^mncj/ p`mnci'.p`mnci'^mncj))*mncproexp^mncx/p`mnci'.p`mnci'; endrepeat; endif; #enddo if ( count([P+Q].[P+Q],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P+Q].[P+Q] = (sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.Q^mncj/ Q.Q^mncj*sign_(mncj)))*mncproexp^mncx/Q.Q; endrepeat; endif; if ( count([P-Q].[P-Q],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P-Q].[P-Q] = (sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.Q^mncj/Q.Q^mncj)) *mncproexp^mncx/Q.Q; endrepeat; endif; repeat; id,once,mncproexp^mncx?*mncepexp(y?,D?) = sump_(mncj,0,`power'-mncx, y*acc((-D*ep-mncj+1)/mncj))*mncproexp^mncx; if ( count(P.P,1) > 0 ) discard; if ( count(mncproexp,1) > `power' ) discard; endrepeat; if ( count(mncproexp,1) != `power' ) discard; id mncproexp^`power' = 1; #call ACCU(Expand in P) #endprocedure * *--#] expandP : *--#[ finish : #procedure finish(LOOPS,SCHEME) * id ep^{1+`CUTOFF'} = 0; * * Substitute the integrals. * id mncexp20*mncexp10 = 1 +ep*(3) +ep^2*(13) +ep^3*(55-22*z3) +ep^4*(229-33*z4-66*z3) +ep^5*(943-234*z5-99*z4-286*z3) +ep^6*(3853-530*z6-702*z5-429*z4-1210*z3+242*z3^2) +ep^7*(15655-2598*z7-1590*z6-3042*z5-1815*z4-5038*z3+726*z3*z4+726*z3^2); id mncexp11 = 1 +ep*(2) +ep^2*(8) +ep^3*(32-22*z3) +ep^4*(128-33*z4-44*z3) +ep^5*(512-234*z5-66*z4-176*z3) +ep^6*(2048-530*z6-468*z5-264*z4-704*z3+242*z3^2) +ep^7*(8192-2598*z7-1060*z6-1872*z5-1056*z4-2816*z3+726*z3*z4+484*z3^2); id mncexp20 = 1 +ep*(2) +ep^2*(8) +ep^3*(32-16*z3) +ep^4*(128-24*z4-32*z3) +ep^5*(512-192*z5-48*z4-128*z3) +ep^6*(2048-440*z6-384*z5-192*z4-512*z3+128*z3^2) +ep^7*(8192-2304*z7-880*z6-1536*z5-768*z4-2048*z3+384*z3*z4+256*z3^2); id mncexp10 = 1 +ep*(1) +ep^2*(3) +ep^3*(9-6*z3) +ep^4*(27-9*z4-6*z3) +ep^5*(81-42*z5-9*z4-18*z3) +ep^6*(243-90*z6-42*z5-27*z4-54*z3+18*z3^2) +ep^7*(729-294*z7-90*z6-126*z5-81*z4-162*z3+54*z3*z4+18*z3^2); * * Note that in Gorishny,Larin,Surguladze and Tkachov Comp.Phys.Comm. * 55(1989)381 the factor (1-2*ep) is erroneously absent in the * following integral: * *id mncG311 = (1-2*ep)*(6*z3+9*z4*ep+102*z5*ep^2); *id mncG311 = (1-2*ep)*(6*z3+9*z4*ep+102*z5*ep^2+240*z6*ep^3-186*ep^3*z3^2); *id mncG311 = (1-2*ep)*(6*z3+9*z4*ep+102*z5*ep^2+240*z6*ep^3-186*ep^3*z3^2 * +1413*ep^4*z7-639*ep^4*z3*z4); id mncG311 = (1-2*ep)*(6*z3+9*z4*ep+102*z5*ep^2+240*z6*ep^3-186*ep^3*z3^2 +1413*ep^4*z7-639*ep^4*z3*z4+288*ep^5*z6z2+25701/8*ep^5*z8 -486*ep^5*z4^2-5880*ep^5*z3*z5); * *id mncF321 = 20*z5; *id mncF321 = (20*z5+50*z6*ep+68*z3^2*ep)*(1+2*ep); id mncF321 = (20*z5+50*z6*ep+68*z3^2*ep+450*z7*ep^2+204*z3*z4*ep^2+ep^3*zz5)*(1+2*ep+4*ep^2); * * Now follow some convenient integrals. * * * The three loop fermion propagator * id mncfermi3 =ep^3*( * +cf*ca*nf*(+260075/1296-1/6*ep^-3*mncxi+1/6*ep^-3-13/12*ep^-2*mncxi * +227/36*ep^-2+2*ep^-1*z3*mncxi-6*ep^-1*z3-155/24*ep^-1*mncxi * +8267/216*ep^-1+61/6*z3*mncxi-137/6*z3+3*z4*mncxi-9*z4-4483/144*mncxi) * +cf*ca^2*(-2008997/2592+55/24*ep^-3*mncxi-5/8*ep^-3*mncxi^2+1/12*ep^-3*mncxi^3 * -7/4*ep^-3+623/48*ep^-2*mncxi-49/16*ep^-2*mncxi^2+3/8*ep^-2*mncxi^3 * -1841/72*ep^-2-18*ep^-1*z3*mncxi+11/8*ep^-1*z3*mncxi^2+83/2*ep^-1*z3 * +6869/96*ep^-1*mncxi-497/32*ep^-1*mncxi^2+89/48*ep^-1*mncxi^3 * -66629/432*ep^-1-2917/24*z3*mncxi+23*z3*mncxi^2-29/12*z3*mncxi^3+1015/4*z3 * -27*z4*mncxi+33/16*z4*mncxi^2+249/4*z4+5*z5*mncxi-5/4*z5*mncxi^2-45*z5 * +189061/576*mncxi-4403/64*mncxi^2+49/6*mncxi^3) * +cf*nf^2*(-1108/81-4/9*ep^-2-68/27*ep^-1) * +cf^2*ca*(-1199/16+9/4*ep^-3*mncxi-3/2*ep^-3*mncxi^2+1/4*ep^-3*mncxi^3-ep^-3 * +49/4*ep^-2*mncxi-47/8*ep^-2*mncxi^2+7/8*ep^-2*mncxi^3-43/12*ep^-2 * -9*ep^-1*z3*mncxi+3*ep^-1*z3*mncxi^2+2*ep^-1*z3+365/8*ep^-1*mncxi * -81/4*ep^-1*mncxi^2+11/4*ep^-1*mncxi^3-93/8*ep^-1-101/4*z3*mncxi * +3/2*z3*mncxi^2+3/4*z3*mncxi^3+23*z3-27/2*z4*mncxi+9/2*z4*mncxi^2+3*z4 * +20*z5*mncxi+2147/16*mncxi-217/4*mncxi^2+27/4*mncxi^3) * +cf^2*nf*(+163/8-1/2*ep^-2*mncxi-1/6*ep^-2-9/4*ep^-1*mncxi+11/12*ep^-1 * -16*z3-67/8*mncxi) * +cf^3*(+79/48+1/2*ep^-3*mncxi-1/2*ep^-3*mncxi^2+1/6*ep^-3*mncxi^3-1/6*ep^-3 * +3/4*ep^-2*mncxi-3/2*ep^-2*mncxi^2+1/2*ep^-2*mncxi^3+1/4*ep^-2+13/8*ep^-1*mncxi * -3*ep^-1*mncxi^2+ep^-1*mncxi^3-1/8*ep^-1-5/2*z3*mncxi-7/2*z3*mncxi^2 * +7/6*z3*mncxi^3+29/6*z3+103/16*mncxi-3*mncxi^2+mncxi^3)) * +2*mncfermi2*mncfermi1-mncfermi1^3; +cf*nf^2*(-1108/81-4/9*ep^-2-68/27*ep^-1-15068/243*ep+92/9*ep*z3- 198616/729*ep^2+15*ep^2*z4+1564/27*ep^2*z3) +cf*ca*nf*(260075/1296+1/6*ep^-3+227/36*ep^-2+8267/216*ep^-1-6* ep^-1*z3-9*z4-137/6*z3+6995555/7776*ep-166/3*ep*z5-273/8*ep*z4 -7903/36*ep*z3+178592891/46656*ep^2-370/3*ep^2*z6-17129/90* ep^2*z5-5193/16*ep^2*z4-227743/216*ep^2*z3-100/3*ep^2*z3^2) +cf*ca^2*(-2008997/2592-7/4*ep^-3-1841/72*ep^-2-66629/432*ep^-1+ 83/2*ep^-1*z3-45*z5+249/4*z4+1015/4*z3-53410973/15552*ep-225/2 *ep*z6+1433/6*ep*z5+6069/16*ep*z4+101833/72*ep*z3+156*ep*z3^2- 1343385317/93312*ep^2-3231/4*ep^2*z7+1480/3*ep^2*z6+282949/180 *ep^2*z5+67275/32*ep^2*z4+2778337/432*ep^2*z3+2601/4*ep^2*z3* z4+2491/3*ep^2*z3^2) +cf^2*nf*(13/8-7/6*ep^-2-43/12*ep^-1-16*z3+1591/16*ep-24*ep*z4- 493/6*ep*z3+232013/288*ep^2-112*ep^2*z5-993/8*ep^2*z4-6497/12* ep^2*z3) +cf^2*ca*(2359/16+ep^-3+131/12*ep^-2+389/8*ep^-1-10*ep^-1*z3-15* z4-27*z3+7637/32*ep-30*ep*z5-159/4*ep*z4+353/12*ep*z3-392233/ 576*ep^2-50*ep^2*z6+1907/5*ep^2*z5+837/16*ep^2*z4+28685/24* ep^2*z3-2616*ep^2*z3^2) +cf^3*(-71/48-1/6*ep^-3-5/4*ep^-2-31/8*ep^-1-7/6*z3+5531/96*ep+40 *ep*z5-15/8*ep*z4-335/4*ep*z3+80689/192*ep^2+100*ep^2*z6+801/ 10*ep^2*z5-2025/16*ep^2*z4-6573/8*ep^2*z3+1528*ep^2*z3^2) +mncxi*cf*ca*nf*(-4483/144-1/6*ep^-3-13/12*ep^-2-155/24*ep^-1+2* ep^-1*z3+3*z4+61/6*z3-125083/864*ep+34*ep*z5+121/8*ep*z4+1619/ 36*ep*z3-3290611/5184*ep^2+80*ep^2*z6+3983/30*ep^2*z5+3199/48* ep^2*z4+47591/216*ep^2*z3-76*ep^2*z3^2) +mncxi*cf*ca^2*(189061/576+55/24*ep^-3+623/48*ep^-2+6869/96*ep^-1-18 *ep^-1*z3+5*z5-27*z4-2917/24*z3+5068285/3456*ep+25/2*ep*z6-221 *ep*z5-5779/32*ep*z4-79757/144*ep*z3+29*ep*z3^2+129424069/ 20736*ep^2+95*ep^2*z7-1015/2*ep^2*z6-28027/24*ep^2*z5-157645/ 192*ep^2*z4-2351801/864*ep^2*z3+87*ep^2*z3*z4+672*ep^2*z3^2) +mncxi*cf^2*nf*(83/8+1/2*ep^-2+9/4*ep^-1+697/16*ep-29/2*ep*z3+5739/ 32*ep^2-171/8*ep^2*z4-261/4*ep^2*z3) +mncxi*cf^2*ca*(-3651/16-9/4*ep^-3-49/4*ep^-2-437/8*ep^-1+9*ep^-1*z3 +20*z5+27/2*z4+277/4*z3-29809/32*ep+50*ep*z6+113*ep*z5+1635/16 *ep*z4+1401/4*ep*z3-112*ep*z3^2-240611/64*ep^2+359*ep^2*z7+260 *ep^2*z6+11327/20*ep^2*z5+8259/16*ep^2*z4+13137/8*ep^2*z3-417* ep^2*z3*z4-514*ep^2*z3^2) +mncxi*cf^3*(377/16+1/2*ep^-3+9/4*ep^-2+59/8*ep^-1-17/2*z3+2459/32* ep-99/8*ep*z4-141/4*ep*z3+16721/64*ep^2-843/10*ep^2*z5-819/16* ep^2*z4-799/8*ep^2*z3) +mncxi^2*cf*ca^2*(-4403/64-5/8*ep^-3-49/16*ep^-2-497/32*ep^-1+11/8* ep^-1*z3-5/4*z5+33/16*z4+23*z3-38185/128*ep-25/8*ep*z6+57/8*ep *z5+1089/32*ep*z4+1689/16*ep*z3+7*ep*z3^2-320251/256*ep^2-359/ 16*ep^2*z7+115/8*ep^2*z6+773/4*ep^2*z5+9987/64*ep^2*z4+16493/ 32*ep^2*z3+417/16*ep^2*z3*z4-153/4*ep^2*z3^2) +mncxi^2*cf^2*ca*(431/4+3/2*ep^-3+47/8*ep^-2+105/4*ep^-1-3*ep^-1*z3- 9/2*z4-99/2*z3+1757/4*ep-21*ep*z5-585/8*ep*z4-1531/8*ep*z3+ 7083/4*ep^2-45*ep^2*z6-4209/10*ep^2*z5-9045/32*ep^2*z4-3357/4* ep^2*z3+78*ep^2*z3^2) +mncxi^2*cf^3*(-24-1/2*ep^-3-3/2*ep^-2-6*ep^-1+29/2*z3-96*ep+171/8* ep*z4+87/2*ep*z3-384*ep^2+1263/10*ep^2*z5+513/8*ep^2*z4+174* ep^2*z3) +mncxi^3*cf*ca^2*(49/6+1/12*ep^-3+3/8*ep^-2+89/48*ep^-1-29/12*z3+106/ 3*ep-57/16*ep*z4-43/4*ep*z3+593/4*ep^2-421/20*ep^2*z5-507/32* ep^2*z4-2539/48*ep^2*z3) +mncxi^3*cf^2*ca*(-61/4-1/4*ep^-3-7/8*ep^-2-15/4*ep^-1+29/4*z3-247/4 *ep+171/16*ep*z4+203/8*ep*z3-993/4*ep^2+1263/20*ep^2*z5+1197/ 32*ep^2*z4+435/4*ep^2*z3) +mncxi^3*cf^3*(8+1/6*ep^-3+1/2*ep^-2+2*ep^-1-29/6*z3+32*ep-57/8*ep* z4-29/2*ep*z3+128*ep^2-421/10*ep^2*z5-171/8*ep^2*z4-58*ep^2*z3) ); * * The two loop fermion propagator * id mncfermi2 = * +cf*ca*(-1+5/4*mncxi-1/4*mncxi^2-25/4*ep+15/4*ep*mncxi-5/8*ep*mncxi^2 * -175/8*ep^2+55/4*ep^2*mncxi-17/8*ep^2*mncxi^2+6*ep^2*z3-3*ep^2*z3*mncxi * -1165/16*ep^3+175/4*ep^3*mncxi-53/8*ep^3*mncxi^2 * +50/3*ep^3*z3-49/3*ep^3*z3*mncxi+8/3*ep^3*z3*mncxi^2 * +9*ep^3*z4-9/2*ep^3*z4*mncxi) * +cf*nf*(+1/2*ep+7/4*ep^2+53/8*ep^3) * +cf^2*(+1/2-mncxi+1/2*mncxi^2+7/4*ep-2*ep*mncxi+ep*mncxi^2+29/8*ep^2-6*ep^2*mncxi * +3*ep^2*mncxi^2+79/16*ep^3-18*ep^3*mncxi+9*ep^3*mncxi^2+2/3*ep^3*z3 * +32/3*ep^3*z3*mncxi-16/3*ep^3*z3*mncxi^2); +cf*nf*(1/2*ep+7/4*ep^2+53/8*ep^3+351/16*ep^4-16/3*ep^4*z3+2269/ 32*ep^5-31/4*ep^5*z4-56/3*ep^5*z3) +cf*ca*(-1-25/4*ep-175/8*ep^2+6*ep^2*z3-1165/16*ep^3+9*ep^3*z4+50/ 3*ep^3*z3-7351/32*ep^4+42*ep^4*z5+49/2*ep^4*z4+218/3*ep^4*z3- 45445/64*ep^5+90*ep^5*z6+482/5*ep^5*z5+847/8*ep^5*z4+718/3* ep^5*z3-46*ep^5*z3^2) +cf^2*(1/2+7/4*ep+29/8*ep^2+79/16*ep^3+2/3*ep^3*z3-83/32*ep^4+5/4 *ep^4*z4+16/3*ep^4*z3-3449/64*ep^5+74/5*ep^5*z5+71/8*ep^5*z4+ 82/3*ep^5*z3) +mncxi*cf*ca*(5/4+15/4*ep+55/4*ep^2-3*ep^2*z3+175/4*ep^3-9/2*ep^3*z4 -49/3*ep^3*z3+555/4*ep^4-21*ep^4*z5-191/8*ep^4*z4-46*ep^4*z3+ 1715/4*ep^5-45*ep^5*z6-89*ep^5*z5-537/8*ep^5*z4-476/3*ep^5*z3+ 23*ep^5*z3^2) +mncxi*cf^2*(-1-2*ep-6*ep^2-18*ep^3+32/3*ep^3*z3-54*ep^4+31/2*ep^4* z4+64/3*ep^4*z3-162*ep^5+272/5*ep^5*z5+31*ep^5*z4+64*ep^5*z3) +mncxi^2*cf*ca*(-1/4-5/8*ep-17/8*ep^2-53/8*ep^3+8/3*ep^3*z3-165/8* ep^4+31/8*ep^4*z4+20/3*ep^4*z3-505/8*ep^5+68/5*ep^5*z5+155/16* ep^5*z4+68/3*ep^5*z3) +mncxi^2*cf^2*(1/2+ep+3*ep^2+9*ep^3-16/3*ep^3*z3+27*ep^4-31/4*ep^4* z4-32/3*ep^4*z3+81*ep^5-136/5*ep^5*z5-31/2*ep^5*z4-32*ep^5*z3) ; * * The one loop fermion propagator in QCD (times ep) * id mncfermi1 = * cf*(mncxi-1)*(1+ep+2*ep^2-7/3*ep^3*z3+4*ep^3); cf*(1-mncxi)*(-1-ep-2*ep^2-4*ep^3+7/3*ep^3*z3-8*ep^4+13/4*ep^4*z4+ 7/3*ep^4*z3-16*ep^5+31/5*ep^5*z5+13/4*ep^5*z4+14/3*ep^5*z3); * * The three loop ghost propagator (has not been checked yet) * id mncghost3 = ep^3*( +ca*nf^2*(3767/243+1/9*ep^-3+17/27*ep^-2+277/81*ep^-1-23/9*z3+ 49654/729*ep-15/4*ep*z4-391/27*ep*z3+624188/2187*ep^2-117/5* ep^2*z5-85/4*ep^2*z4-6371/81*ep^2*z3) +ca^2*nf*(-91637/486-47/36*ep^-3-425/54*ep^-2-6763/162*ep^-1-1/2* ep^-1*z3-3/4*z4+1051/36*z3-595214/729*ep-1/6*ep*z5+685/16*ep* z4+4661/27*ep*z3-59352761/17496*ep^2+5/6*ep^2*z6+45841/180* ep^2*z5+6073/24*ep^2*z4+310555/324*ep^2*z3-83/3*ep^2*z3^2) +ca^3*(2179685/3888+505/144*ep^-3+10013/432*ep^-2+39805/324*ep^-1 -45/8*ep^-1*z3-25/8*z5-135/16*z4-14861/144*z3+14193281/5832*ep -125/16*ep*z6-2285/24*ep*z5-9739/64*ep*z4-266563/432*ep*z3+115/ 4*ep*z3^2+713916871/69984*ep^2-1753/32*ep^2*z7-5375/24*ep^2*z6 -145595/144*ep^2*z5-174371/192*ep^2*z4-1053365/324*ep^2*z3+ 3327/32*ep^2*z3*z4+4709/12*ep^2*z3^2) +cf*ca*nf*(-995/48-1/4*ep^-2-23/8*ep^-1+2*ep^-1*z3+3*z4+11*z3- 3891/32*ep+14*ep*z5+33/2*ep*z4+277/4*ep*z3-40473/64*ep^2+30* ep^2*z6+77*ep^2*z5+1659/16*ep^2*z4+2931/8*ep^2*z3-52*ep^2*z3^2 ) +mncxi*ca^2*nf*(-4153/1152-5/48*ep^-3-23/96*ep^-2-67/64*ep^-1+1/4* ep^-1*z3+3/8*z4+67/16*z3-111169/6912*ep+17/4*ep*z5+397/64*ep* z4+3713/288*ep*z3-2884297/41472*ep^2+10*ep^2*z6+1855/48*ep^2* z5+7357/384*ep^2*z4+102221/1728*ep^2*z3-19/2*ep^2*z3^2) +mncxi*ca^3*(-28801/2304+25/24*ep^-3+341/192*ep^-2+325/128*ep^-1- ep^-1*z3+5/16*z5-3/2*z4-201/8*z3-1287865/13824*ep+25/32*ep*z6- 41/8*ep*z5-1181/32*ep*z4-28999/576*ep*z3+5*ep*z3^2-42089377/ 82944*ep^2+443/64*ep^2*z7-165/16*ep^2*z6-3671/24*ep^2*z5-56975/ 768*ep^2*z4-508195/3456*ep^2*z3+1203/64*ep^2*z3*z4+213/4*ep^2* z3^2) +mncxi^2*ca^3*(9567/512-3/32*ep^-3-15/128*ep^-2+533/256*ep^-1-ep^-1* z3+5/8*z5-3/2*z4-6*z3+109493/1024*ep+25/16*ep*z6-71/8*ep*z5- 1161/128*ep*z4-4129/128*ep*z3-65/16*ep*z3^2+3233309/6144*ep^2+ 697/64*ep^2*z7-315/16*ep^2*z6-10951/160*ep^2*z5-24819/512*ep^2 *z4-46129/256*ep^2*z3-1023/64*ep^2*z3*z4-23/8*ep^2*z3^2) +mncxi^3*ca^3*(-973/384+1/128*ep^-3+1/96*ep^-2-17/64*ep^-1+9/64* ep^-1*z3+5/32*z5+27/128*z4+111/128*z3-5833/384*ep+25/64*ep*z6+ 153/64*ep*z5+669/512*ep*z4+791/192*ep*z3-7/8*ep*z3^2-29683/384 *ep^2+359/128*ep^2*z7+45/8*ep^2*z6+7987/640*ep^2*z5+99/16*ep^2 *z4+177/8*ep^2*z3-417/128*ep^2*z3*z4-147/32*ep^2*z3^2)); * * The two loop ghost propagator * id mncghost2 = * +ca*nf*(-1/4-7/8*ep-53/16*ep^2-351/32*ep^3+8/3*ep^3*z3) * +ca^2*(+5/4+7/16*mncxi-1/32*mncxi^2+83/16*ep+7/32*ep*mncxi * +599/32*ep^2-9/64*ep^2*mncxi+3/8*ep^2*mncxi^2-3/4*ep^2*z3-3/16*ep^2*z3*mncxi^2 * +3881/64*ep^3-383/128*ep^3*mncxi+17/8*ep^3*mncxi^2 * -40/3*ep^3*z3-85/24*ep^3*z3*mncxi-29/48*ep^3*z3*mncxi^2 * -9/8*ep^3*z4-9/32*ep^3*z4*mncxi^2); +ca*nf*(-1/4-7/8*ep-53/16*ep^2-351/32*ep^3+8/3*ep^3*z3-2269/64* ep^4+31/8*ep^4*z4+28/3*ep^4*z3-14231/128*ep^5+68/5*ep^5*z5+217/ 16*ep^5*z4+106/3*ep^5*z3) +ca^2*(5/4+83/16*ep+599/32*ep^2-3/4*ep^2*z3+3881/64*ep^3-9/8*ep^3 *z4-40/3*ep^3*z3+24275/128*ep^4-21/4*ep^4*z5-155/8*ep^4*z4-157/ 3*ep^4*z3+148361/256*ep^5-45/4*ep^5*z6-68*ep^5*z5-2429/32*ep^5 *z4-563/3*ep^5*z3+23/4*ep^5*z3^2) +mncxi*ca^2*(7/16+7/32*ep-9/64*ep^2-383/128*ep^3-85/24*ep^3*z3-3157/ 256*ep^4-163/32*ep^4*z4-5/6*ep^4*z3-22479/512*ep^5-637/40*ep^5 *z5-73/64*ep^5*z4+3*ep^5*z3) +mncxi^2*ca^2*(-1/32+3/8*ep^2-3/16*ep^2*z3+17/8*ep^3-9/32*ep^3*z4-29/ 48*ep^3*z3+17/2*ep^4-21/16*ep^4*z5-59/64*ep^4*z4-9/4*ep^4*z3+ 243/8*ep^5-45/16*ep^5*z6-389/80*ep^5*z5-27/8*ep^5*z4-37/4*ep^5 *z3+23/16*ep^5*z3^2); * * The one loop ghost propagator (times ep) * id mncghost1 = * ca*(1/2+1/4*mncxi+ep+2*ep^2-7/12*ep^3*z3*mncxi-7/6*ep^3*z3+4*ep^3); +ca*(1/2+ep+2*ep^2+4*ep^3-7/6*ep^3*z3+8*ep^4-13/8*ep^4*z4-7/3* ep^4*z3+16*ep^5-31/10*ep^5*z5-13/4*ep^5*z4-14/3*ep^5*z3) +mncxi*ca*(1/4-7/12*ep^3*z3-13/16*ep^4*z4-31/20*ep^5*z5); * * The three loop gluon propagator * id mncgluon3 = ep^3*( * + cf*ca*nf*(-416699/648-1/2*ep^-2*mncxi-131/18*ep^-2+4*ep^-1*z3 * *mncxi+68*ep^-1*z3-49/12*ep^-1*mncxi-9551/108*ep^-1+26/3*z3*mncxi+ * 358*z3+6*z4*mncxi+102*z4+40*z5-1309/72*mncxi) * + cf*nf^2*(11536/81+16/9*ep^-2-16*ep^-1*z3+566/27*ep^-1-256/ * 3*z3-24*z4) * + cf^2*nf*(143/9+1/3*ep^-1+148/3*z3-80*z5) * + ca*nf^2*(475477/1944+2/9*ep^-3*mncxi+31/9*ep^-3+14/27*ep^-2*mncxi * +1021/54*ep^-2+8*ep^-1*z3+22/27*ep^-1*mncxi+8003/108*ep^-1-26/ * 3*z3*mncxi-5/3*z3+12*z4+586/243*mncxi) * + ca^2*nf*(-3265189/2592-73/36*ep^-3*mncxi-155/12*ep^-3-947/216 * *ep^-2*mncxi-1/24*ep^-2*mncxi^2-16451/216*ep^-2+2/3*ep^-1*z3*mncxi-89/ * 3*ep^-1*z3-2299/432*ep^-1*mncxi-121/144*ep^-1*mncxi^2-144949/432* * ep^-1+2735/36*z3*mncxi+13/12*z3*mncxi^2+1913/36*z3+z4*mncxi-89/2*z4 * +80/3*z5+14435/7776*mncxi-5503/864*mncxi^2) * + ca^3*(99584761/46656+665/144*ep^-3*mncxi+3325/216*ep^-3+5455/ * 864*ep^-2*mncxi+37/24*ep^-2*mncxi^2-47/96*ep^-2*mncxi^3+1/16*ep^-2*mncxi^4 * +14017/144*ep^-2-379/24*ep^-1*z3*mncxi-1/16*ep^-1*z3*mncxi^2-77/6* * ep^-1*z3-1519/192*ep^-1*mncxi+281/18*ep^-1*mncxi^2-757/192*ep^-1*mncxi^3 * +15/32*ep^-1*mncxi^4+1266119/2592*ep^-1-23483/144*z3*mncxi-247/24* * z3*mncxi^2+59/32*z3*mncxi^3-13/96*z3*mncxi^4-73711/216*z3-379/16*z4*mncxi * -3/32*z4*mncxi^2-77/4*z4+505/24*z5*mncxi-55/24*z5*mncxi^2-15/16*z5* * mncxi^3+35/192*z5*mncxi^4-655/12*z5-4628509/31104*mncxi+178133/1728* * mncxi^2-8873/384*mncxi^3+493/192*mncxi^4) * + nf^3*(-11656/729-8/27*ep^-3-40/27*ep^-2-424/81*ep^-1+56/ * 27*z3) ); +nf^3*(-11656/729-8/27*ep^-3-40/27*ep^-2-424/81*ep^-1+56/27*z3- 32800/729*ep+26/9*ep*z4+280/27*ep*z3-262432/2187*ep^2+248/45* ep^2*z5+130/9*ep^2*z4+2968/81*ep^2*z3) +ca*nf^2*(475477/1944+31/9*ep^-3+1021/54*ep^-2+8003/108*ep^-1+8* ep^-1*z3+12*z4-5/3*z3+8641789/11664*ep+424/9*ep*z5+1/12*ep*z4- 3073/54*ep*z3+48869351/23328*ep^2+880/9*ep^2*z6+11761/135*ep^2 *z5-5125/72*ep^2*z4-33007/108*ep^2*z3+400/9*ep^2*z3^2) +ca^2*nf*(-3265189/2592-155/12*ep^-3-16451/216*ep^-2-144949/432* ep^-1-89/3*ep^-1*z3+80/3*z5-89/2*z4+1913/36*z3-209763863/46656 *ep+200/3*ep*z6-1729/9*ep*z5+3361/48*ep*z4+108479/216*ep*z3+ 1112/3*ep*z3^2-488435255/31104*ep^2+530*ep^2*z7-3655/9*ep^2*z6 -43715/108*ep^2*z5+200507/288*ep^2*z4+3882731/1296*ep^2*z3+ 1382*ep^2*z3*z4+14198/9*ep^2*z3^2) +ca^3*(99584761/46656+3325/216*ep^-3+14017/144*ep^-2+1266119/2592 *ep^-1-77/6*ep^-1*z3-655/12*z5-77/4*z4-73711/216*z3+837928219/ 93312*ep-3275/24*ep*z6-19879/36*ep*z5-144097/288*ep*z4-289517/ 144*ep*z3+2221/6*ep*z3^2+20712808243/559872*ep^2-46399/48*ep^2 *z7-97085/72*ep^2*z6-949777/216*ep^2*z5-188339/64*ep^2*z4- 9078377/864*ep^2*z3+22115/16*ep^2*z3*z4+55009/18*ep^2*z3^2) +cf*nf^2*(11536/81+16/9*ep^-2+566/27*ep^-1-16*ep^-1*z3-24*z4-256/ 3*z3+374293/486*ep-496/3*ep*z5-128*ep*z4-3464/9*ep*z3+5403341/ 1458*ep^2-1120/3*ep^2*z6-8416/9*ep^2*z5-576*ep^2*z4-14806/9* ep^2*z3+928/3*ep^2*z3^2) +cf*ca*nf*(-416699/648-131/18*ep^-2-9551/108*ep^-1+68*ep^-1*z3+40 *z5+102*z4+358*z3-14550179/3888*ep+100*ep*z6+4228/3*ep*z5+537* ep*z4+3103/2*ep*z3-1720*ep*z3^2-451266347/23328*ep^2+564*ep^2* z7+10060/3*ep^2*z6+81394/9*ep^2*z5+55723/24*ep^2*z4+696827/108 *ep^2*z3-6456*ep^2*z3*z4-30680/3*ep^2*z3^2) +cf^2*nf*(143/9+1/3*ep^-1-80*z5+148/3*z3+21037/108*ep-200*ep*z6- 2080/3*ep*z5+74*ep*z4+4424/9*ep*z3+1360*ep*z3^2+259249/162* ep^2-4000/3*ep^2*z7-5200/3*ep^2*z6-34652/9*ep^2*z5+2212/3*ep^2 *z4+80029/27*ep^2*z3+5160*ep^2*z3*z4+20096/3*ep^2*z3^2) +mncxi*ca*nf^2*(586/243+2/9*ep^-3+14/27*ep^-2+22/27*ep^-1-26/3*z3+ 8236/729*ep-77/6*ep*z4-278/9*ep*z3+15496/243*ep^2-1342/15*ep^2 *z5-827/18*ep^2*z4-266/3*ep^2*z3) +mncxi*ca^2*nf*(14435/7776-73/36*ep^-3-947/216*ep^-2-2299/432*ep^-1+ 2/3*ep^-1*z3+z4+2735/36*z3+1491403/46656*ep-11/3*ep*z5+1799/16 *ep*z4+6247/24*ep*z3+8057953/93312*ep^2-65/6*ep^2*z6+121129/ 180*ep^2*z5+111499/288*ep^2*z4+982813/1296*ep^2*z3+328/3*ep^2* z3^2) +mncxi*ca^3*(-4628509/31104+665/144*ep^-3+5455/864*ep^-2-1519/192* ep^-1-379/24*ep^-1*z3+505/24*z5-379/16*z4-23483/144*z3- 156823589/186624*ep+2525/48*ep*z6-9049/72*ep*z5-46301/192*ep* z4-111229/288*ep*z3-208/3*ep*z3^2-1491363823/373248*ep^2+36679/ 96*ep^2*z7-4945/18*ep^2*z6-516715/432*ep^2*z5-661919/1152*ep^2 *z4-4769431/5184*ep^2*z3-8843/32*ep^2*z3*z4+11329/36*ep^2*z3^2 ) +mncxi*cf*ca*nf*(-1309/72-1/2*ep^-2-49/12*ep^-1+4*ep^-1*z3+6*z4+26/3 *z3-29365/432*ep+28*ep*z5+13*ep*z4+725/18*ep*z3-650845/2592* ep^2+60*ep^2*z6+182/3*ep^2*z5+1441/24*ep^2*z4+28253/108*ep^2* z3-168*ep^2*z3^2) +mncxi^2*ca^2*nf*(-5503/864-1/24*ep^-2-121/144*ep^-1+13/12*z3-148963/ 5184*ep-5/6*ep*z5+13/8*ep*z4+59/72*ep*z3-3601507/31104*ep^2-25/ 12*ep^2*z6+293/36*ep^2*z5+115/96*ep^2*z4+685/144*ep^2*z3+7/3* ep^2*z3^2) +mncxi^2*ca^3*(178133/1728+37/24*ep^-2+281/18*ep^-1-1/16*ep^-1*z3-55/ 24*z5-3/32*z4-247/24*z3+5198513/10368*ep-275/48*ep*z6+467/144* ep*z5-247/16*ep*z4-523/8*ep*z3+143/24*ep*z3^2+140395181/62208* ep^2-2027/48*ep^2*z7+595/72*ep^2*z6-33181/216*ep^2*z5-3101/32* ep^2*z4-44389/108*ep^2*z3+367/16*ep^2*z3*z4-2753/72*ep^2*z3^2) +mncxi^3*ca^3*(-8873/384-47/96*ep^-2-757/192*ep^-1-15/16*z5+59/32*z3 -252431/2304*ep-75/32*ep*z6-65/24*ep*z5+177/64*ep*z4+259/16*ep *z3+49/8*ep*z3^2-6652091/13824*ep^2-1063/64*ep^2*z7-325/48* ep^2*z6+3151/144*ep^2*z5+3061/128*ep^2*z4+57377/576*ep^2*z3+ 1473/64*ep^2*z3*z4+93/4*ep^2*z3^2) +mncxi^4*ca^3*(493/192+1/16*ep^-2+15/32*ep^-1+35/192*z5-13/96*z3+104/ 9*ep+175/384*ep*z6+25/36*ep*z5-13/64*ep*z4-473/288*ep*z3-119/ 96*ep*z3^2+83503/1728*ep^2+2471/768*ep^2*z7+125/72*ep^2*z6-71/ 216*ep^2*z5-29/12*ep^2*z4-2203/216*ep^2*z3-1195/256*ep^2*z3*z4 -385/72*ep^2*z3^2)); * * The two loop gluon propagator * id mncgluon2 = * +nf^2*(+4/9+40/27*ep+4*ep^2+2432/243*ep^3-56/27*ep^3*z3) * +cf*nf*(-ep-55/6*ep^2+8*z3*ep^2-1711/36*ep^3+76/3*ep^3*z3+12*ep^3*z4) * +ca*nf*(-55/18-1/3*mncxi-1199/108*ep-2/9*ep*mncxi-2371/72*ep^2 * +5/27*ep^2*mncxi-4*ep^2*z3-337315/3888*ep^3+37/81*ep^3*mncxi * +286/27*ep^3*z3+50/9*ep^3*z3*mncxi-6*ep^3*z4) * +ca^2*(+175/36+35/24*mncxi+4229/216*ep-97/144*ep*mncxi+5/8*ep*mncxi^2 * -1/8*ep*mncxi^3+9821/144*ep^2-6121/864*ep^2*mncxi+27/8*ep^2*mncxi^2 * -9/16*ep^2*mncxi^3-ep^2*z3-2*ep^2*z3*mncxi+1659373/7776*ep^3 * -165073/5184*ep^3*mncxi+113/8*ep^3*mncxi^2-33/16*ep^3*mncxi^3 * -1184/27*ep^3*z3-134/9*ep^3*z3*mncxi-3/2*ep^3*z3*mncxi^2 * -3/2*ep^3*z4-3*ep^3*z4*mncxi); +nf^2*(4/9+40/27*ep+4*ep^2+2432/243*ep^3-56/27*ep^3*z3+17504/729* ep^4-26/9*ep^4*z4-560/81*ep^4*z3+40832/729*ep^5-248/45*ep^5*z5 -260/27*ep^5*z4-56/3*ep^5*z3) +ca*nf*(-55/18-1199/108*ep-2371/72*ep^2-4*ep^2*z3-337315/3888* ep^3-6*ep^3*z4+286/27*ep^3*z3-5110043/23328*ep^4-28*ep^4*z5+ 517/36*ep^4*z4+3634/81*ep^4*z3-25047697/46656*ep^5-60*ep^5*z6+ 110/9*ep^5*z5+13337/216*ep^5*z4+4004/27*ep^5*z3+92/3*ep^5*z3^2 ) +ca^2*(175/36+4229/216*ep+9821/144*ep^2-ep^2*z3+1659373/7776*ep^3 -3/2*ep^3*z4-1184/27*ep^3*z3+30135413/46656*ep^4-7*ep^4*z5- 4561/72*ep^4*z4-13910/81*ep^4*z3+178854175/93312*ep^5-15*ep^5* z6-1876/9*ep^5*z5-107051/432*ep^5*z4-5492/9*ep^5*z3+23/3*ep^5* z3^2) +cf*nf*(-ep-55/6*ep^2+8*ep^2*z3-1711/36*ep^3+12*ep^3*z4+76/3*ep^3 *z3-42727/216*ep^4+56*ep^4*z5+38*ep^4*z4+788/9*ep^4*z3-951775/ 1296*ep^5+120*ep^5*z6+532/3*ep^5*z5+785/6*ep^5*z4+8128/27*ep^5 *z3-184/3*ep^5*z3^2) +mncxi*ca*nf*(-1/3-2/9*ep+5/27*ep^2+37/81*ep^3+50/9*ep^3*z3-169/243* ep^4+49/6*ep^4*z4+262/27*ep^4*z3-7871/729*ep^5+482/15*ep^5*z5+ 130/9*ep^5*z4+1532/81*ep^5*z3) +mncxi*ca^2*(35/24-97/144*ep-6121/864*ep^2-2*ep^2*z3-165073/5184* ep^3-3*ep^3*z4-134/9*ep^3*z3-3301945/31104*ep^4-14*ep^4*z5- 1037/48*ep^4*z4-37/27*ep^4*z3-61492609/186624*ep^5-30*ep^5*z6- 224/3*ep^5*z5-689/288*ep^5*z4+3067/81*ep^5*z3+46/3*ep^5*z3^2) +mncxi^2*ca^2*(5/8*ep+27/8*ep^2+113/8*ep^3-3/2*ep^3*z3+1133/24*ep^4- 9/4*ep^4*z4-23/3*ep^4*z3+10801/72*ep^5-21/2*ep^5*z5-179/16* ep^5*z4-101/3*ep^5*z3) +mncxi^3*ca^2*(-1/8*ep-9/16*ep^2-33/16*ep^3-105/16*ep^4+23/24*ep^4* z3-321/16*ep^5+11/8*ep^5*z4+9/2*ep^5*z3); * * The one loop gluon propagator * id mncgluon1 = * +ca*(5/3+mncxi/2-ep*mncxi+ep*mncxi^2/4+31/9*ep-2*ep^2*mncxi+ep^2*mncxi^2/2+188/27*ep^2 * -7/6*ep^3*z3*mncxi-35/9*ep^3*z3-4*ep^3*mncxi+ep^3*mncxi^2+1132/81*ep^3) * +nf*(-2/3-10/9*ep-56/27*ep^2+14/9*ep^3*z3-328/81*ep^3); -nf*(2/3+10/9*ep+56/27*ep^2+328/81*ep^3-14/9*ep^3*z3+1952/243* ep^4-13/6*ep^4*z4-70/27*ep^4*z3+11680/729*ep^5-62/15*ep^5*z5- 65/18*ep^5*z4-392/81*ep^5*z3) -ca*(-5/3-31/9*ep-188/27*ep^2-1132/81*ep^3+35/9*ep^3*z3-6800/243* ep^4+65/12*ep^4*z4+217/27*ep^4*z3-40816/729*ep^5+31/3*ep^5*z5+ 403/36*ep^5*z4+1316/81*ep^5*z3) -mncxi*ca*(-1/2+ep+2*ep^2+4*ep^3+7/6*ep^3*z3+8*ep^4+13/8*ep^4*z4-7/3 *ep^4*z3+16*ep^5+31/10*ep^5*z5-13/4*ep^5*z4-14/3*ep^5*z3) -mncxi^2*ca*(-1/4*ep-1/2*ep^2-ep^3-2*ep^4+7/12*ep^4*z3-4*ep^5+13/16* ep^5*z4+7/6*ep^5*z3); id ep^{1+`CUTOFF'} = 0; * .sort: Sub integrals; * * The next factor is the conversion to MS-bar. Because there are three * loops we need the factor (1/(1-2*ep)-7/3*ep^3*z3+...)^3 * We have multiplied it out here. * Note also that somehow the original Mincer program has a different * normalization for mncG311, using effectively only two powers. * For the comparison we have corrected that in subint.prc * This may have to be changed as it isn't clear to me why this has * been done! (But the factor 1-2*ep was needed to get the answer to * come out right) * #if `SCHEME' == 0 * * This is MS-bar * #message Answer in MS-bar #if `LOOPS' == 0 #else #if `LOOPS' == 1 Multiply,1 +ep*(2) +ep^2*(4) +ep^3*(8-7/3*z3) +ep^4*(16-13/4*z4-14/3*z3) +ep^5*(32-31/5*z5-13/2*z4-28/3*z3) +ep^6*(64-61/6*z6-62/5*z5-13*z4-56/3*z3+49/18*z3^2) +ep^7*(128-127/7*z7-61/3*z6-124/5*z5-26*z4-112/3*z3+91/12*z3*z4+ 49/9*z3^2); #else #if `LOOPS' == 2 Multiply,1 +ep*(4) +ep^2*(12) +ep^3*(32-14/3*z3) +ep^4*(80-13/2*z4-56/3*z3) +ep^5*(192-62/5*z5-26*z4-56*z3) +ep^6*(448-61/3*z6-248/5*z5-78*z4-448/3*z3+98/9*z3^2) +ep^7*(1024-254/7*z7-244/3*z6-744/5*z5-208*z4-1120/3*z3+91/3*z3* z4+392/9*z3^2); #else #if `LOOPS' == 3 Multiply,1 +ep*(6) +ep^2*(24) +ep^3*(80-7*z3) +ep^4*(240-39/4*z4-42*z3) +ep^5*(672-93/5*z5-117/2*z4-168*z3) +ep^6*(1792-61/2*z6-558/5*z5-234*z4-560*z3+49/2*z3^2) +ep^7*(4608-381/7*z7-183*z6-2232/5*z5-780*z4-1680*z3+273/4*z3*z4+ 147*z3^2); #else #message Illegal number of loops specified: 'LOOPS' #message Answer will be in the G-scheme anyway #endif #endif #endif #endif #else #if ( `SCHEME' != 1 ) #message Invalid value `SCHEME' for output corrected to G-scheme #else #message Answer in the G-scheme #endif #endif id ep^{1+`CUTOFF'} = 0; #endprocedure *--#] finish : *--#[ gtreat : #procedure gtreat(POWER) Multiply d_(MU,NU)/Q.Q; sum mu,mu1,nu,nu1,MU,NU,ga1,ga2,ro,ro1,si,si1,ka,ka1,la,la1; id mncVv(mnci1?,p1?,mnci2?,p2?) = p1(11)*p2(mnci2)-p1(mnci2)*p2(mnci1); *print +f +s; .sort id Glonel(mu?,ro?,Q?,p1?,p2?) = (-1)*nf/2 *mncSS(mu,p1,ro,-p2) +1/2*ca *mncV3G(mu,Q,ga4,-p2,ga2,-p1)*mncV3G(ro,-Q,ga3,p1,ga5,p2) *mncDg(ga4,ga5,p2)*mncDg(ga2,ga3,p1) +(-1)*ca *mncVgh(p1,ro)*(-mncVgh(p2,mu))*mncDs(p1)*mncDs(p2); .sort repeat; id mncS(mnci1?index_,?a) = g_(1,mnci1)*mncS(?a); id mncS(mncp?,?a) = g_(1,mncp) *mncS(?a)*mncpropxp(mncp); endrepeat; id mncS = 1; repeat; id mncSS(mnci1?index_,?a) = g_(2,mnci1)*mncSS(?a); id mncSS(mncp?,?a) = g_(2,mncp) *mncSS(?a)*mncpropxp(mncp); endrepeat; id mncSS = 1; repeat; id mncSSS(mnci1?index_,?a) = g_(3,mnci1)*mncSSS(?a); id mncSSS(mncp?,?a) = g_(3,mncp) *mncSSS(?a)*mncpropxp(mncp); endrepeat; id mncSSS = 1; id mncVgh(mncp?,mu?) = mncp(mu); id mncDs(mncp?) = mncpropxp(mncp); id mncDL(mnci1?,mnci2?,mncp?) = (d_(mnci1,mnci2)-mncp(mnci1)*mncp(mnci2)*mncpropxp(mncp))*mncpropxp(mncp); #call vertsub #call ACCU(Vertex substitutions) id mncpropxp(mncp?) = 1/mncp.mncp; *#call reduceto(`TOPO') *id g_(1,P,Q,[P+Q]) = [P+Q].[P+Q]*g_(1,P); #call sym1(`TOPO') id P.P = 0; id D = acc(4-2*ep); #call ACCU(Vertex identities) *tracen,3; *tracen,2; *tracen,1; *id P.P = 0; *id D = acc(4-2*ep); *id [D-4] = acc(-2*ep); *id [1-ep/2] = acc(1-ep/2); *#call ACCU(Traces) #do mnci = 1,8 id [P+p`mnci'] = P+p`mnci'; id [P-p`mnci'] = P-p`mnci'; #enddo id [P+Q] = P+Q; id [P-Q] = P-Q; id P.P = 0; #call ACCU(Introduce P) #call momsubs(`TOPO') #call ACCU(moms) id P = mncproexp*P; if ( count(mncproexp,1) > `POWER' ) discard; #do mnci = 1,8 repeat id,once,mncproexp^mncx?/[P+p`mnci'].[P+p`mnci'] = sump_(mncj,0,`POWER'-mncx,-2*mncproexp*P.p`mnci'/p`mnci'.p`mnci')*mncproexp^mncx/p`mnci'.p`mnci'; repeat id,once,mncproexp^mncx?/[P-p`mnci'].[P-p`mnci'] = sump_(mncj,0,`POWER'-mncx, 2*mncproexp*P.p`mnci'/p`mnci'.p`mnci')*mncproexp^mncx/p`mnci'.p`mnci'; #enddo repeat id,once,mncproexp^mncx?/[P-Q].[P-Q] = sump_(mncj,0,`POWER'-mncx, 2*mncproexp*P.Q/Q.Q)*mncproexp^mncx/Q.Q; repeat id,once,mncproexp^mncx?/[P+Q].[P+Q] = sump_(mncj,0,`POWER'-mncx,-2*mncproexp*P.Q/Q.Q)*mncproexp^mncx/Q.Q; if ( count(mncproexp,1) != `POWER' ) discard; id mncproexp^`POWER' = 1; #call ACCU(Expand in P) #call momsubs(`TOPO') #call sym2(`TOPO') #call ACCU(moms) #call harmo(P,Q,mncFFPP) #call ACCU(Harmonics) #endprocedure *--#] gtreat : *--#[ harmo : * #procedure harmo(P,Q,TT) #call harmo1(`P',`Q',`TT') #endprocedure * *--#] harmo : *--#[ harmo1 : #procedure harmo1(P,Q,TT) * * Routine to generate the harmonic projection for * P(mnci1)*P(mnci2)*...*P(in) = TT(mnci1,mnci2,...,in) at P->Q * The object mnchfac1 is a table to give better speed. * It has been generated with the program hfac1.frm * id `P'.`P' = 0; id `Q'.`P' = `Q'.`Q'; id 1/`Q'.`P' = 1/`Q'.`Q'; ToTensor,nosquare,`TT',`P'; * * Next generate the splits between indices that connect to a Q and * the indices that go to d_. * id `TT'(?a) = sum_(mncj,0,nargs_(?a),2,`Q'.`Q'^(mncj/2)* acc(mnchfac1(nargs_(?a),mncj))*distrib_(1,mncj,mncdd,`TT',?a)); * * The indices in TT contract with Q and the indices in mncdd go to * d_'mncs. We do not expand the mncdd directly to make the multiplication * of the acc'mncs much faster. * tovector,`TT',`Q'; id mncdd(?a) = dd_(?a); id D = acc(4-2*ep); * #endprocedure #procedure harmo1x(P,Q,TT) * * Routine to generate the harmonic projection for * P(mnci1)*P(mnci2)*...*P(in) = TT(mnci1,mnci2,...,in) at P->Q * The object mnchfac1 is a table to give better speed. * It has been generated with the program hfac1.frm * id `P' = mncx*`P'; id `P'.`P' = 0; id `Q'.`P' = `Q'.`Q'; id 1/`Q'.`P' = 1/`Q'.`Q'/mncx; ToTensor,nosquare,`TT',`P'; * * Next generate the splits between indices that connect to a Q and * the indices that go to d_. * id `TT'(?a) = sum_(mncj,0,nargs_(?a),2,`Q'.`Q'^(mncj/2)* acc(mnchfac1(nargs_(?a),mncj))*distrib_(1,mncj,mncdd,`TT',?a)); * * The indices in TT contract with Q and the indices in mncdd go to * d_'mncs. We do not expand the mncdd directly to make the multiplication * of the acc'mncs much faster. * tovector,`TT',`Q'; id mncdd(?a) = dd_(?a); id D = acc(4-2*ep); id mncx^n? = (`P'.`Q'/`Q'.`Q')^n; * #endprocedure CTable,relax,mnchfac1(0:30,0:30); Fill mnchfac1(0,0)= 1; Fill mnchfac1(1,0)= 1; Fill mnchfac1(2,0)= 4/3+2/9*ep+4/27*ep^2+8/81*ep^3+16/243*ep^4+32/729*ep^5+64/2187*ep^6+128/ 6561*ep^7+256/19683*ep^8; Fill mnchfac1(2,2)= -1/3-2/9*ep-4/27*ep^2-8/81*ep^3-16/243*ep^4-32/729*ep^5-64/2187*ep^6- 128/6561*ep^7-256/19683*ep^8; Fill mnchfac1(3,0)= 2+2/3*ep+4/9*ep^2+8/27*ep^3+16/81*ep^4+32/243*ep^5+64/729*ep^6+128/2187 *ep^7+256/6561*ep^8; Fill mnchfac1(3,2)= -1/3-2/9*ep-4/27*ep^2-8/81*ep^3-16/243*ep^4-32/729*ep^5-64/2187*ep^6- 128/6561*ep^7-256/19683*ep^8; Fill mnchfac1(4,0)= 16/5+116/75*ep+1196/1125*ep^2+12176/16875*ep^3+123056/253125*ep^4+ 1238336/3796875*ep^5+12430016/56953125*ep^6+124580096/854296875*ep^7+ 1247480576/12814453125*ep^8; Fill mnchfac1(4,2)= -2/5-22/75*ep-232/1125*ep^2-2392/16875*ep^3-24352/253125*ep^4-246112/ 3796875*ep^5-2476672/56953125*ep^6-24860032/854296875*ep^7-249160192/ 12814453125*ep^8; Fill mnchfac1(4,4)= 1/15+16/225*ep+196/3375*ep^2+2176/50625*ep^3+23056/759375*ep^4+238336/ 11390625*ep^5+2430016/170859375*ep^6+24580096/2562890625*ep^7+247480576/ 38443359375*ep^8; Fill mnchfac1(5,0)= 16/3+148/45*ep+1588/675*ep^2+16528/10125*ep^3+169168/151875*ep^4+ 1715008/2278125*ep^5+17290048/34171875*ep^6+173740288/512578125*ep^7+ 1742441728/7688671875*ep^8; Fill mnchfac1(5,2)= -8/15-98/225*ep-1088/3375*ep^2-11528/50625*ep^3-119168/759375*ep^4- 1215008/11390625*ep^5-12290048/170859375*ep^6-123740288/2562890625*ep^7 -1242441728/38443359375*ep^8; Fill mnchfac1(5,4)= 1/15+16/225*ep+196/3375*ep^2+2176/50625*ep^3+23056/759375*ep^4+238336/ 11390625*ep^5+2430016/170859375*ep^6+24580096/2562890625*ep^7+247480576/ 38443359375*ep^8; Fill mnchfac1(6,0)= 64/7+1648/245*ep+129016/25725*ep^2+9613672/2701125*ep^3+697694224/ 283618125*ep^4+49885657408/29779903125*ep^5+3536215611136/3126889828125 *ep^6+249399605667712/328323431953125*ep^7+17536500638043904/ 34473960355078125*ep^8; Fill mnchfac1(6,2)= -16/21-1516/2205*ep-123292/231525*ep^2-9367864/24310125*ep^3-687208288/ 2552563125*ep^4-49440388096/268019128125*ep^5-3517368500032/ 28142008453125*ep^6-248603653001344/2954910887578125*ep^7- 17502939406056448/310265643195703125*ep^8; Fill mnchfac1(6,4)= 8/105+926/11025*ep+81092/1157625*ep^2+6386864/121550625*ep^3+477728288/ 12762815625*ep^4+34752488096/1340095640625*ep^5+2488486500032/ 140710042265625*ep^6+176560043001344/14774554437890625*ep^7+ 12459230606056448/1551328215978515625*ep^8; Fill mnchfac1(6,6)= -1/105-142/11025*ep-13864/1157625*ep^2-1162288/121550625*ep^3-90226096/ 12762815625*ep^4-6712496032/1340095640625*ep^5-487263833344/ 140710042265625*ep^6-34860681000448/14774554437890625*ep^7- 2472496702018816/1551328215978515625*ep^8; Fill mnchfac1(7,0)= 16+472/35*ep+38464/3675*ep^2+2929288/385875*ep^3+215266096/40516875* ep^4+15505796032/4254271875*ep^5+1104009833344/446698546875*ep^6+ 78069351000448/46903347421875*ep^7+5498197102018816/4924851479296875* ep^8; Fill mnchfac1(7,2)= -8/7-276/245*ep-23372/25725*ep^2-1815224/2701125*ep^3-134861408/ 283618125*ep^4-9775819136/29779903125*ep^5-698642203712/3126889828125* ep^6-49514308555904/328323431953125*ep^7-3491813179347968/ 34473960355078125*ep^8; Fill mnchfac1(7,4)= 2/21+242/2205*ep+21764/231525*ep^2+1742288/24310125*ep^3+131636096/ 2552563125*ep^4+9635496032/268019128125*ep^5+692602833344/ 28142008453125*ep^6+49256281000448/2954910887578125*ep^7+ 3480844802018816/310265643195703125*ep^8; Fill mnchfac1(7,6)= -1/105-142/11025*ep-13864/1157625*ep^2-1162288/121550625*ep^3-90226096/ 12762815625*ep^4-6712496032/1340095640625*ep^5-487263833344/ 140710042265625*ep^6-34860681000448/14774554437890625*ep^7- 2472496702018816/1551328215978515625*ep^8; Fill mnchfac1(8,0)= 256/9+75808/2835*ep+19246768/893025*ep^2+4489358368/281302875*ep^3+ 1001728100368/88610405625*ep^4+218025485306368/27912277771875*ep^5+ 46771949116202368/8792367498140625*ep^6+9948328840277498368/ 2769595761914296875*ep^7+2105225038258224794368/872422665003003515625* ep^8; Fill mnchfac1(8,2)= -16/9-5368/2835*ep-1414288/893025*ep^2-336272488/281302875*ep^3- 75848735488/88610405625*ep^4-16613136791488/27912277771875*ep^5- 3577389080927488/8792367498140625*ep^6-762630247578863488/ 2769595761914296875*ep^7-161605130889556799488/872422665003003515625* ep^8; Fill mnchfac1(8,4)= 8/63+3044/19845*ep+844124/6251175*ep^2+206121824/1969120125*ep^3+ 47199849824/620272839375*ep^4+10430561637824/195385944403125*ep^5+ 2258069814165824/61546572486984375*ep^6+482928265426893824/ 19387170333400078125*ep^7+102534337388988621824/6106958655021024609375* ep^8; Fill mnchfac1(8,6)= -2/189-866/59535*ep-256496/18753525*ep^2-64996496/5907360375*ep^3- 15212278496/1860818518125*ep^4-3406285030496/586157833209375*ep^5- 743347417642496/184639717460953125*ep^6-159757805782954496/ 58161511000200234375*ep^7-34020869150852266496/18320875965063073828125* ep^8; Fill mnchfac1(8,8)= 1/945+496/297675*ep+159496/93767625*ep^2+42546496/29536801875*ep^3+ 10286568496/9304092590625*ep^4+2351196330496/2930789166046875*ep^5+ 519799077642496/923198587304765625*ep^6+112626244782954496/ 290807555001001171875*ep^7+24105887996752266496/91604379825315369140625 *ep^8; Fill mnchfac1(9,0)= 256/5+82976/1575*ep+21820976/496125*ep^2+5190442976/156279375*ep^3+ 1171598464976/49228003125*ep^4+256775705086976/15506820984375*ep^5+ 55317926550958976/4884648610078125*ep^6+11796339993920830976/ 1538664312174609375*ep^7+2500202948465524702976/484679258335001953125* ep^8; Fill mnchfac1(9,2)= -128/45-45968/14175*ep-12519368/4465125*ep^2-3033399368/1406514375*ep^3 -691968210368/443052028125*ep^4-152606739906368/139561388859375*ep^5- 33000199172202368/43961837490703125*ep^6-7053176967987498368/ 13847978809571484375*ep^7-1496962668112324794368/4362113325015017578125 *ep^8; Fill mnchfac1(9,4)= 8/45+3188/14175*ep+907988/4465125*ep^2+225339488/1406514375*ep^3+ 52120755488/443052028125*ep^4+11590175991488/139561388859375*ep^5+ 2518875627927488/43961837490703125*ep^6+540004288348863488/ 13847978809571484375*ep^7+114822835610756799488/4362113325015017578125* ep^8; Fill mnchfac1(9,6)= -4/315-1774/99225*ep-533824/31255875*ep^2-136691824/9845600625*ep^3- 32211509824/3101364196875*ep^4-7244605937824/976929722015625*ep^5- 1585445081165824/307732862434921875*ep^6-341347172826893824/ 96935851667000390625*ep^7-72772040582588621824/30534793275105123046875* ep^8; Fill mnchfac1(9,8)= 1/945+496/297675*ep+159496/93767625*ep^2+42546496/29536801875*ep^3+ 10286568496/9304092590625*ep^4+2351196330496/2930789166046875*ep^5+ 519799077642496/923198587304765625*ep^6+112626244782954496/ 290807555001001171875*ep^7+24105887996752266496/91604379825315369140625 *ep^8; Fill mnchfac1(10,0)= 1024/11+3941248/38115*ep+11779286528/132068475*ep^2+31395360315808/ 457617265875*ep^3+78817416774749888/1585643826256875*ep^4+ 191296333735703644768/5494255857980071875*ep^5+455196393432838909648448/ 19037596547900949046875*ep^6+1070456179753324087652748928/ 65965272038476788447421875*ep^7+2499540288103431912396110014208/ 228569667613322071970316796875*ep^8; Fill mnchfac1(10,2)= -256/55-1074016/190575*ep-3316968176/660342375*ep^2-8998169551936/ 2288086329375*ep^3-22822219943433296/7928219131284375*ep^4- 55731982644325548256/27471279289900359375*ep^5-133110230344468529882816/ 95187982739504745234375*ep^6-313736739752689367517582976/ 329826360192383942237109375*ep^7-733594852350164843943870004736/ 1142848338066610359851583984375*ep^8; Fill mnchfac1(10,4)= 128/495+586288/1715175*ep+1884204968/5943081375*ep^2+5224503688648/ 20592776964375*ep^3+13422543891846128/71353972181559375*ep^4+ 33033670720523533408/247241513609103234375*ep^5+79273078399635825303488/ 856691844655542707109375*ep^6+187388505060204476500634368/ 2968437241731455480133984375*ep^7+438942000623261145424679234048/ 10285635042599493238664255859375*ep^8; Fill mnchfac1(10,6)= -8/495-40108/1715175*ep-135134588/5943081375*ep^2-385061648968/ 20592776964375*ep^3-1005688819949648/71353972181559375*ep^4- 2500193390173412128/247241513609103234375*ep^5-6037463662096098209408/ 856691844655542707109375*ep^6-14326758014908152318239488/ 2968437241731455480133984375*ep^7-33639152104160915061879930368/ 10285635042599493238664255859375*ep^8; Fill mnchfac1(10,8)= 4/3465+22034/12006225*ep+78474124/41601569625*ep^2+231375515864/ 144149438750625*ep^3+617375290327504/499477805270915625*ep^4+ 1555697463798820544/1730690595263722640625*ep^5+3788802075628465273984/ 5996842912588798949765625*ep^6+9038836034890166469741824/ 20779060692120188360937890625*ep^7+21293799889351089933462168064/ 71999445298196452670649791015625*ep^8; Fill mnchfac1(10,10)= -1/10395-6086/36018675*ep-23133196/124804708875*ep^2-71203299656/ 432448316251875*ep^3-195463728133216/1498433415812746875*ep^4- 501804668946637376/5192071785791167921875*ep^5-1236992715223799403136/ 17990528737766396849296875*ep^6-2974072301764285772746496/ 62337182076360565082813671875*ep^7-7040976726606647517126643456/ 215998335894589358011949373046875*ep^8; Fill mnchfac1(11,0)= 512/3+2105024/10395*ep+6484548064/36018675*ep^2+17587269036704/ 124804708875*ep^3+44620587006331744/432448316251875*ep^4+ 109002812721985297184/1498433415812746875*ep^5+260418148499992639897024/ 5192071785791167921875*ep^6+613926138669735665097275264/ 17990528737766396849296875*ep^7+1435715640822339758986423515904/ 62337182076360565082813671875*ep^8; Fill mnchfac1(11,2)= -256/33-1133152/114345*ep-3599216912/396205425*ep^2-9927387845632/ 1372851797625*ep^3-25437420674539952/4756931478770625*ep^4- 62514193873472733472/16482767573940215625*ep^5-149901045320140230992192/ 57112789643702847140625*ep^6-354181898610712005311178112/ 197895816115430365342265625*ep^7-829425118473544161166232863232/ 685709002839966215910950390625*ep^8; Fill mnchfac1(11,4)= 64/165+305464/571725*ep+1005647504/1981027125*ep^2+2830303821544/ 6864258988125*ep^3+7340055442799984/23784657393853125*ep^4+ 18171877679298377824/82413837869701078125*ep^5+43771816945911945664064/ 285563948218514235703125*ep^6+103712409224436490500392704/ 989479080577151826711328125*ep^7+243292629414653284249944287744/ 3428545014199831079554751953125*ep^8; Fill mnchfac1(11,6)= -32/1485-165052/5145525*ep-566368772/17829244125*ep^2-1633203887992/ 61778330893125*ep^3-4298811218276912/214061916544678125*ep^4- 10740981158685800032/741724540827309703125*ep^5-26021186219050005844352/ 2570075533966628121328125*ep^6-61874361306552497500271872/ 8905311725194366440401953125*ep^7-145467943810349353662576814592/ 30856905127798479715992767578125*ep^8; Fill mnchfac1(11,8)= 2/1485+11182/5145525*ep+40241252/17829244125*ep^2+119504735272/ 61778330893125*ep^3+320436189606992/214061916544678125*ep^4+ 810100247041390912/741724540827309703125*ep^5+1977198808190427804032/ 2570075533966628121328125*ep^6+4723521815457010136388352/ 8905311725194366440401953125*ep^7+11137621874466652119234255872/ 30856905127798479715992767578125*ep^8; Fill mnchfac1(11,10)= -1/10395-6086/36018675*ep-23133196/124804708875*ep^2-71203299656/ 432448316251875*ep^3-195463728133216/1498433415812746875*ep^4- 501804668946637376/5192071785791167921875*ep^5-1236992715223799403136/ 17990528737766396849296875*ep^6-2974072301764285772746496/ 62337182076360565082813671875*ep^7-7040976726606647517126643456/ 215998335894589358011949373046875*ep^8; Fill mnchfac1(12,0)= 4096/13+231932416/585585*ep+9552620306048/26377676325*ep^2+ 342403963966857664/1188182430059625*ep^3+11407792075081681333952/ 53521677562035808125*ep^4+364561360009988883783267136/ 2410883965781902976990625*ep^5+11366945928654188627099169856448/ 108598268238645819598542703125*ep^6+349209203729890331065811618631480064 /4891808992809800943816356062265625*ep^7+106324342894456741093468800006\ 23747793152/220351536081117483514207758824755078125*ep^8; Fill mnchfac1(12,2)= -512/39-30913472/1756755*ep-1310118983776/79133028975*ep^2- 47718354631206368/3564547290178875*ep^3-1605096783082101070624/ 160565032686107424375*ep^4-51595302050743047366763232/ 7232651897345708930971875*ep^5-1614544106154750292440383714176/ 325794804715937458795628109375*ep^6-49711745404714685293474542696023168/ 14675426978429402831449068186796875*ep^7-151565975049365701358874006472\ 3165441024/661054608243352450542623276474265234375*ep^8; Fill mnchfac1(12,4)= 256/429+16505056/19324305*ep+722647696208/870463318725*ep^2+ 26818419631574944/39210020191967625*ep^3+912369819932349930992/ 1766215359547181668125*ep^4+29533805437994496650793856/ 79559170870802798240690625*ep^5+928212986345962610005192697408/ 3583742851875312046751909203125*ep^6+ 28656904881444059534708535443897344/161429696762723431145939750054765625 *ep^7+875179900736341930589001485004342344192/7271600690676876955968856\ 041216917578125*ep^8; Fill mnchfac1(12,6)= -64/2145-4414552/96621525*ep-200547273536/4352316593625*ep^2- 7607970101536648/196050100959838125*ep^3-262362556305459313664/ 8831076797735908340625*ep^4-8565263494376565641097952/ 397795854354013991203453125*ep^5-270635475996909892431623899136/ 17918714259376560233759546015625*ep^6- 8383303721989095494135383714632448/807148483813617155729698750273828125 *ep^7-256557566799785363300583207193647448064/3635800345338438477984428\ 0206084587890625*ep^8; Fill mnchfac1(12,8)= 32/19305+2367436/869593725*ep+112122653948/39170849342625*ep^2+ 4365158933778064/1764450908638543125*ep^3+153028898616288867152/ 79479691179623175065625*ep^4+5048541384762808600644736/ 3580162689186125920831078125*ep^5+160585687629192803262038853248/ 161268428334389042103835914140625*ep^6+ 4995383227578657727394196317822464/7264336354322554401567288752464453125 *ep^7+153280676453923863575899556167525156352/3272220310804594630185985\ 21854761291015625*ep^8; Fill mnchfac1(12,10)= -2/19305-159226/869593725*ep-7904207768/39170849342625*ep^2- 317328063224824/1764450908638543125*ep^3-11351061489513328832/ 79479691179623175065625*ep^4-379447407147066524694976/ 3580162689186125920831078125*ep^5-12173131533692001654488077568/ 161268428334389042103835914140625*ep^6- 380753790465560634777939201620224/7264336354322554401567288752464453125 *ep^7-11723924089810388822690256177593196032/32722203108045946301859852\ 1854761291015625*ep^8; Fill mnchfac1(12,12)= 1/135135+86048/6087156075*ep+4505822764/274195945398375*ep^2+ 187659001098752/12351156360469801875*ep^3+6883116416827133536/ 556357838257362225459375*ep^4+234016557715815866651648/ 25061138824302881445817546875*ep^5+7592462315747275929147393664/ 1128878998340723294726851398984375*ep^6+ 239234390234614037993033079037952/50850354480257880810971021267251171875 *ep^7+7401435346064935745830295952405819136/229055421756321624113018965\ 2983329037109375*ep^8; Fill mnchfac1(13,0)= 4096/7+244097536/315315*ep+10319742128768/14203364175*ep^2+ 375711675205023424/639790539262875*ep^3+12639066969880845261632/ 28819364841096204375*ep^4+406365756421014097219725376/ 1298168289267178526071875*ep^5+12718704458788802860399082024768/ 58475990590040056706907609375*ep^6+391667599279409513879581087908269824/ 2634050996128354354362653264296875*ep^7+1194280539988460433401894704275\ 5385688832/118650827120601721892265716290252734375*ep^8; Fill mnchfac1(13,2)= -2048/91-129145088/4099095*ep-5607358794304/184643734275*ep^2- 207285335824775072/8317277010417375*ep^3-7037777173573268255296/ 374651742934250656875*ep^4-227568776116938423114463328/ 16876187760473320838934375*ep^5-7147878038639593066291156443904/ 760187877670520737189798921875*ep^6-220601197043590946914489401032262272 /34242662949668606606714492435859375*ep^7-67357858476983447980681792959\ 54481616896/1542460752567822384599454311773285546875*ep^8; Fill mnchfac1(13,4)= 256/273+17104096/12297285*ep+765124349648/553931202825*ep^2+ 28782752505588064/24951831031252125*ep^3+987765403914509727152/ 1123955228802751970625*ep^4+32153921399561393777604736/ 50628563281419962516803125*ep^5+1014182537283552715179078333248/ 2280563633011562211569396765625*ep^6+ 31382137329777004368914640422462464/102727988849005819820143477307578125 *ep^7+959773928963943529908335743480128676352/4627382257703467153798362\ 935319856640625*ep^8; Fill mnchfac1(13,6)= -128/3003-9076208/135270135*ep-419729246584/6093243231075*ep^2- 16110167517555512/274470141343773375*ep^3-559853837941644685216/ 12363507516830271676875*ep^4-18369562166151731874761888/ 556914196095619587684834375*ep^5-582314625712167699616689097984/ 25086199963127184327263364421875*ep^6- 18075647057179828914387662067475712/11300078773390640180215782503833593\ 75*ep^7-553906739181123164358585347906377378816/50901204834738138691781\ 992288518423046875*ep^8; Fill mnchfac1(13,8)= 32/15015+2413196/676350675*ep+115802553028/30466216155375*ep^2+ 4549174479503504/1372350706718866875*ep^3+160455215928334705072/ 61817537584151358384375*ep^4+5315161061687116647687296/ 2784570980478097938424171875*ep^5+169520799430411541843679699328/ 125430999815635921636316822109375*ep^6+ 5282518205329246018831770722491904/5650039386695320090107891251916796875 *ep^7+162271788051186379781474048196059126272/2545060241736906934589099\ 61442592115234375*ep^8; Fill mnchfac1(13,10)= -16/135135-1286678/6087156075*ep-64341099904/274195945398375*ep^2- 2596614444771272/12351156360469801875*ep^3-93223663260247568896/ 556357838257362225459375*ep^4-3124164965461097406168128/ 25061138824302881445817546875*ep^5-100396845367338563439711330304/ 1128878998340723294726851398984375*ep^6- 3143745313728152519431640569417472/508503544802578808109710212672511718\ 75*ep^7-96870339320802593250492385147964010496/229055421756321624113018\ 9652983329037109375*ep^8; Fill mnchfac1(13,12)= 1/135135+86048/6087156075*ep+4505822764/274195945398375*ep^2+ 187659001098752/12351156360469801875*ep^3+6883116416827133536/ 556357838257362225459375*ep^4+234016557715815866651648/ 25061138824302881445817546875*ep^5+7592462315747275929147393664/ 1128878998340723294726851398984375*ep^6+ 239234390234614037993033079037952/50850354480257880810971021267251171875 *ep^7+7401435346064935745830295952405819136/229055421756321624113018965\ 2983329037109375*ep^8; Fill mnchfac1(14,0)= 16384/15+1022076928/675675*ep+8855205451264/6087156075*ep^2+ 1635953439324307456/1370979726991875*ep^3+55546394976216520160384/ 61755781802349009375*ep^4+1796409882008846330444963968/ 2781789191286811127296875*ep^5+11286825660272378214206183220352/ 25061138824302881445817546875*ep^6+1741924045311005680477599848081485696 /5644394991703616473634256994921875*ep^7+531924554129503170093940442572\ 19513210624/254251772401289404054855106336255859375*ep^8; Fill mnchfac1(14,2)= -4096/105-268698112/4729725*ep-2386708597888/42610092525*ep^2- 447384534399600064/9596858088943125*ep^3-15326058483484843246016/ 432290472616443065625*ep^4-498414063672824065755297472/ 19472524339007677891078125*ep^5-628487173008311367973015945664/ 35085594354024034024144565625*ep^6-486034948306607465780729432149719424/ 39510764941925315315439798964453125*ep^7-148619312994140887734980080122\ 46600549376/1779762406809025828383985744353791015625*ep^8; Fill mnchfac1(14,4)= 2048/1365+141445376/61486425*ep+1291375944512/553931202825*ep^2+ 246065355438470432/124759155156260625*ep^3+8515645698336721669888/ 5619776144013759853125*ep^4+278713744181148773463810656/ 253142816407099812584015625*ep^5+1764366557238314519942960648768/ 2280563633011562211569396765625*ep^6+2735851247574575319483765093147653\ 12/513639944245029099100717386537890625*ep^7+83789381069916347349501286\ 10898962080768/23136911288517335768991814676599283203125*ep^8; Fill mnchfac1(14,6)= -256/4095-18641632/184459275*ep-175417198288/1661793608475*ep^2- 34050530970176704/374277465468781875*ep^3-1192272892921391011376/ 16859328432041279559375*ep^4-39314712394447268191928992/ 759428449221299437752046875*ep^5-50012267996984120317592154368/ 1368338179806937326941638059375*ep^6- 38891479369524170034601102400817664/15409198327350872973021521596136718\ 75*ep^7-1193356154057305695136149964499439566336/6941073386555200730697\ 5444029797849609375*ep^8; Fill mnchfac1(14,8)= 128/45045+9844976/2029052025*ep+95771634488/18279729693225*ep^2+ 18986189701230152/4117052120156600625*ep^3+673884893287232978128/ 185452612752454075153125*ep^4+22416914835234853141398656/ 8353712941434293815272515625*ep^5+143390123242517645516785885184/ 75258599889381552981790093265625*ep^6+ 22381652458152633809256742199551232/16950118160085960270323673755750390\ 625*ep^7+688330943844787883016981341556882078208/7635180725210720803767\ 29884327776345703125*ep^8; Fill mnchfac1(14,10)= -32/225225-2605388/10145260125*ep-131450513356/456993242330625*ep^2- 1067733252543928/4117052120156600625*ep^3-192519245502228862912/ 927263063762270375765625*ep^4-6471431650173503198336768/ 41768564707171469076362578125*ep^5-208388217921353602052890327936/ 1881464997234538824544752331640625*ep^6- 1306819568432979150552286006415104/169501181600859602703236737557503906\ 25*ep^7-201515579691228743672559196968704699392/38175903626053604018836\ 49421638881728515625*ep^8; Fill mnchfac1(14,12)= 16/2027025+1382774/91307341125*ep+72646040548/4112939180975625*ep^2+ 606585312860512/37053469081409405625*ep^3+111439420205448744256/ 8345367573860433381890625*ep^4+3793470123215022564169664/ 375917082364543221687263203125*ep^5+123180426927367988960114332288/ 16933184975110849420902770984765625*ep^6+ 155342678314156986445043489965568/30510212688154728486582612760350703125 *ep^7+120195042469673264765215665166294045696/3435831326344824361695284\ 4794749935556640625*ep^8; Fill mnchfac1(14,14)= -1/2027025-92054/91307341125*ep-5058699088/4112939180975625*ep^2- 43608309564256/37053469081409405625*ep^3-8192673953041741216/ 8345367573860433381890625*ep^4-283221757477784564394944/ 375917082364543221687263203125*ep^5-9293492191158850022903427328/ 16933184975110849420902770984765625*ep^6- 59010220866942818246118212713984/152551063440773642432913063801753515625 *ep^7-9173512278699228577761225880206758656/343583132634482436169528447\ 94749935556640625*ep^8; Fill mnchfac1(15,0)= 2048+133140992/45045*ep+5900508278272/2029052025*ep^2+ 221097615608542592/91398648466125*ep^3+7574121111626553240832/ 4117052120156600625*ep^4+246347542921060776392076032/ 185452612752454075153125*ep^5+7767029312071063526660719270912/ 8353712941434293815272515625*ep^6+240289774173032122268715763323266432/ 376292999446907764908950466328125*ep^7+73481637978131998623142641840409\ 18511872/16950118160085960270323673755750390625*ep^8; Fill mnchfac1(15,2)= -1024/15-69645568/675675*ep-631879955968/6087156075*ep^2- 120036485343130816/1370979726991875*ep^3-4147530121298698460864/ 61755781802349009375*ep^4-135628804414790379674012608/ 2781789191286811127296875*ep^5-858161591138629454698283899456/ 25061138824302881445817546875*ep^6-133030183377462582396652614411965056/ 5644394991703616473634256994921875*ep^7-4073571539589120066094279893099\ 590319104/254251772401289404054855106336255859375*ep^8; Fill mnchfac1(15,4)= 256/105+18235072/4729725*ep+169704257824/42610092525*ep^2+ 32739238583526304/9596858088943125*ep^3+1142221030467170498336/ 432290472616443065625*ep^4+37582297269225715996899232/ 19472524339007677891078125*ep^5+238724606077404111918575630656/ 175427971770120170120722828125*ep^6+37098027944635884249653239061169664/ 39510764941925315315439798964453125*ep^7+113775578980914597409682926995\ 4210973696/1779762406809025828383985744353791015625*ep^8; Fill mnchfac1(15,6)= -128/1365-9561056/61486425*ep-18295588144/110786240565*ep^2- 17954474614737152/124759155156260625*ep^3-633322769773649480848/ 5619776144013759853125*ep^4-20985612031878553449587936/ 253142816407099812584015625*ep^5-133905332176793893499852254976/ 2280563633011562211569396765625*ep^6- 20868923852280896329711559848044032/513639944245029099100717386537890625 *ep^7-641188716052726292830865189850578057728/2313691128851733576899181\ 4676599283203125*ep^8; Fill mnchfac1(15,8)= 16/4095+1255192/184459275*ep+12377077984/1661793608475*ep^2+ 2476611609254344/374277465468781875*ep^3+88461927049944678896/ 16859328432041279559375*ep^4+2955265462648549019604352/ 759428449221299437752046875*ep^5+18956832068182634863949499136/ 6841690899034686634708190296875*ep^6+2964411523414814869316697142914304/ 1540919832735087297302152159613671875*ep^7+9127624926260914791955570063\ 1536825856/69410733865552007306975444029797849609375*ep^8; Fill mnchfac1(15,10)= -8/45045-660356/2029052025*ep-6729370556/18279729693225*ep^2- 1376089666761272/4117052120156600625*ep^3-49866050710359748288/ 185452612752454075153125*ep^4-1681834208983197679041536/ 8353712941434293815272515625*ep^5-10855838251248556331109767552/ 75258599889381552981790093265625*ep^6- 1704479049901721625537821062084352/169501181600859602703236737557503906\ 25*ep^7-52617966340652124016355227565003834368/763518072521072080376729\ 884327776345703125*ep^8; Fill mnchfac1(15,12)= 2/225225+174098/10145260125*ep+9195937636/456993242330625*ep^2+ 77089103554336/4117052120156600625*ep^3+14202752012392469632/ 927263063762270375765625*ep^4+484434848685621299217728/ 41768564707171469076362578125*ep^5+15751934589965076556213465216/ 1881464997234538824544752331640625*ep^6+ 99414870367185618746383763917312/16950118160085960270323673755750390625 *ep^7+15393563003007969102304235214078618112/38175903626053604018836494\ 21638881728515625*ep^8; Fill mnchfac1(15,14)= -1/2027025-92054/91307341125*ep-5058699088/4112939180975625*ep^2- 43608309564256/37053469081409405625*ep^3-8192673953041741216/ 8345367573860433381890625*ep^4-283221757477784564394944/ 375917082364543221687263203125*ep^5-9293492191158850022903427328/ 16933184975110849420902770984765625*ep^6- 59010220866942818246118212713984/152551063440773642432913063801753515625 *ep^7-9173512278699228577761225880206758656/343583132634482436169528447\ 94749935556640625*ep^8; Fill mnchfac1(16,0)= 65536/17+75196264448/13018005*ep+57875871822457856/9968732598825*ep^2+ 37362483254848926620672/7633706518539226125*ep^3+ 21945499113835013680434024704/5845625272169190493610625*ep^4+ 12201132004815697250304907827488768/4476375236542640158339740253125* ep^5+6562774638413504361334915855526075204096/3427851483011074840851031\ 194934265625*ep^6+3459319388181729219023847043597726260209380352/ 2624928690887975725504289902988837916328125*ep^7+1800929204467570939483\ 061561452801715533979799851264/2010078518977830731440792557562247466997\ 006640625*ep^8; Fill mnchfac1(16,2)= -2048/17-2447901184/13018005*ep-1925778310087168/9968732598825*ep^2- 1259745953440522719616/7633706518539226125*ep^3- 746088682309618045037734912/5845625272169190493610625*ep^4- 416993412638542080463173436789504/4476375236542640158339740253125*ep^5- 225044142489744084807083745911634508288/3427851483011074840851031194934\ 265625*ep^6-118874413866532718038388750405430370583990656/2624928690887\ 975725504289902988837916328125*ep^7-61968404235518181035637346386288452\ 843577469038592/2010078518977830731440792557562247466997006640625*ep^8; Fill mnchfac1(16,4)= 1024/255+1276226816/195270075*ep+41121672409088/5981239559295*ep^2+ 682355539174170147008/114505597778088391875*ep^3+ 407879273785189582693772864/87684379082537857404159375*ep^4+ 229319351125278753617686516874816/67145628548139602375096103796875*ep^5 +24845810687833729610895677465758697152/1028355444903322452255309358480\ 2796875*ep^6+65779224340389357671023551354237421533529088/3937393036331\ 9635882564348544832568744921875*ep^7+3434229729956030761628209651332940\ 1028496927990784/30151177784667460971611888363433712004955099609375* ep^8; Fill mnchfac1(16,6)= -256/1785-333059264/1366890525*ep-55045592329888/209343384575325*ep^2- 185643166225862781152/801539184446618743125*ep^3- 112124035530936525145504736/613790653577765001829115625*ep^4- 63462742214773088988567874516064/470019399836977216625672726578125*ep^5 -6905703340416942609714357629708156416/71984881143232571657871655093619\ 578125*ep^6-18333429627409618009730143220814164811203072/27561751254323\ 7451177950439813827981214453125*ep^7-9588367091935314485157738637152833\ 036885012028416/211058244492672226801283218544035984034685697265625* ep^8; Fill mnchfac1(16,8)= 128/23205+174069472/17769576825*ep+29573508614576/2721463999479225*ep^2 +101531720737639386976/10420009397806043660625*ep^3+ 62042743775518910662573648/7979278496510945023778503125*ep^4+ 35385998929483485926862837993472/6110252197880703816133745445515625* ep^5+773946824719343250512309981851034368/18716069097240468631046630324\ 3410903125*ep^6+10306448256457131859150762097430461891777536/3583027663\ 062086865313355717579763755787890625*ep^7+54012848805142645947421449599\ 25557876177661772288/27437571784047389484166818410724677924509140644531\ 25*ep^8; Fill mnchfac1(16,10)= -16/69615-22779704/53308730475*ep-3987420244048/8164391998437675*ep^2- 13963726285198013672/31260028193418130981875*ep^3- 8646420710171918577783296/23937835489532835071335509375*ep^4- 4975010395779169010000873554304/18330756593642111448401236336546875* ep^5-547211579378320120852582387612089856/28074103645860702946569945486\ 51163546875*ep^6-1462904146674907860454127658866212731713792/1074908298\ 9186260595940067152739291267363671875*ep^7-7685140095541589758228227088\ 81668517230608715776/82312715352142168452500455232174033773527421933593\ 75*ep^8; Fill mnchfac1(16,12)= 8/765765+11946772/586396035225*ep+432009005716/17961662396562885*ep^2+ 7733720815921990336/343860310127599440800625*ep^3+ 4861593329686368646132288/263316190384861185784690603125*ep^4+ 2825945017535701058300936006272/201638322530063225932413599702015625* ep^5+312951422168309626261015125821369984/30881514010446773241226940035\ 162799015625*ep^6+840382639608688303387866669353379723037696/ 118239912881048866555340738680132203941000390625*ep^7+44276024223343832\ 4151757692627869788034573564928/905439868873563852977505007553914371508\ 80164126953125*ep^8; Fill mnchfac1(16,14)= -2/3828825-3139846/2931980176125*ep-2940494702944/2245207799570360625* ep^2-86344119864019552/68772062025519888160125*ep^3- 1380696594790769492126272/1316580951924305928923453015625*ep^4- 812215167174920624589041469376/1008191612650316129662067998510078125* ep^5-453385872459557342035111641356383744/77203785026116933103067350087\ 9069975390625*ep^6-48962872632914273729863678788534410106368/ 118239912881048866555340738680132203941000390625*ep^7-12943708763923138\ 0449313953150718473286194836992/452719934436781926488752503776957185754\ 400820634765625*ep^8; Fill mnchfac1(16,16)= 1/34459425+1655008/26387821585125*ep+1611063707152/20206870196133245625 *ep^2+243275770764654464/3094742791148394967205625*ep^3+ 793843892172937871410336/11849228567318753360311077140625*ep^4+ 473651791152994731083469173248/9073724513852845166958611986590703125* ep^5+266993598880031227711792795283997952/69483406523505239792760615079\ 11629778515625*ep^6+29024866388598628266903417391614998202368/ 1064159215929439798998066648121189835469003515625*ep^7+7706644760298526\ 1655104362919187047253339824896/407447940993103733839877253399261467178\ 9607385712890625*ep^8; Fill mnchfac1(17,0)= 65536/9+77820325888/6891885*ep+61109998518578176/5277564317025*ep^2+ 39955008832559536602112/4041374039226649125*ep^3+ 23662077982138671952596553984/3094742791148394967205625*ep^4+ 13225884902343267962156434980425728/2369845713463750672062215428125* ep^5+7138499064172458233255011552746366716416/1814744902770569033391722\ 397318140625*ep^6+3771078397469506523844018416850978814707131392/ 1389668130470104795855212301582325955703125*ep^7+1965966368075617909393\ 400678371707668592204536383744/1064159215929439798998066648121189835469\ 003515625*ep^8; Fill mnchfac1(17,2)= -32768/153-40386197504/117162045*ep-32374195525856768/89718593389425* ep^2-21435800053741986415616/68703358666853035125*ep^3- 12796614604490143754389699712/52610627449522714442495625*ep^4- 7189365956030892506494701513739904/40287377128883761425057662278125* ep^5-3893094521575640669582559606059597333888/3085066334709967356765928\ 0754408390625*ep^6-2060903641459127995883355605880443969258550656/ 23624358217991781529538609126899541246953125*ep^7-107581658856733537527\ 1266092452738432891353682491392/180907066708004765829671330180602272029\ 73059765625*ep^8; Fill mnchfac1(17,4)= 1024/153+1311077632/117162045*ep+1074442195362304/89718593389425*ep^2+ 721291890912662995648/68703358666853035125*ep^3+ 434415461693112953503577536/52610627449522714442495625*ep^4+ 245458945877429555880438613045312/40287377128883761425057662278125*ep^5 +133406945654853136165628992346777625664/308506633470996735676592807544\ 08390625*ep^6+70788136904309538109846918016540759571616768/236243582179\ 91781529538609126899541246953125*ep^7+370072107462622675678949982125815\ 96949939747224576/18090706670800476582967133018060227202973059765625* ep^8; Fill mnchfac1(17,6)= -512/2295-681676928/1757430675*ep-114404277306496/269155780168275*ep^2- 389848209260201134304/1030550380002795526875*ep^3- 237109871777499004859142272/789159411742840716637434375*ep^4- 134834169002827879637283378650528/604310656933256421375864934171875* ep^5-14717378397837986833235489987375383552/925519900412990207029778422\ 63225171875*ep^6-39150752875094904384040984004997883314374144/ 354365373269876722943079136903493118704296875*ep^7-20502290458157603747\ 657175380729945416051988037632/2713606000620071487445069952709034080445\ 95896484375*ep^8; Fill mnchfac1(17,8)= 128/16065+177420512/12302014725*ep+30541961017648/1884090461177925*ep^2 +105814896878864290976/7213852660019568688125*ep^3+ 65065278266406430770445328/5524115882199885016462040625*ep^4+ 37267450308683735656387277990912/4230174598532794949631054539203125* ep^5+4087031872111342434521921124425427712/6478639302890931449208448958\ 42576203125*ep^6+10905440347897776860071559904765769989979136/ 2480557612889137060601553958324451830930078125*ep^7+5722072937968539586\ 718057993073412058039880800768/1899524200434050041211548966896323856312\ 171275390625*ep^8; Fill mnchfac1(17,10)= -64/208845-92480176/159926191425*ep-3272097892456/4898635199062605*ep^2 -57726021598310162488/93780084580254392945625*ep^3- 35932990435451675506578304/71813506468598505214006528125*ep^4- 20750357955942148773908633992576/54992269780926334345203709009640625* ep^5-2287975903134625671966378179279251712/8422231093758210883970983645\ 953490640625*ep^6-6126586276819614056071677485635106605466368/ 32247248967558781787820201458217873802091015625*ep^7-322192303362032915\ 9331931158828041983614936807424/246938146056426505357501365696522101320\ 58226580078125*ep^8; Fill mnchfac1(17,12)= 8/626535+12070532/479778574275*ep+2199114365068/73479527985939075*ep^2+ 7917421371358060736/281340253740763178836875*ep^3+ 4996864152467959886614208/215440519405795515642019584375*ep^4+ 2912663384302320871953006664832/164976809342779003035611127028921875* ep^5+323170582499832654704315508221491072/25266693281274632651912950937\ 860471921875*ep^6+868936918397445237354647254518234205162496/9674174690\ 2676345363460604374653621406273046875*ep^7+4581905024789261159317315160\ 91518215961555330048/74081443816927951607250409708956630396174679740234\ 375*ep^8; Fill mnchfac1(17,14)= -4/6891885-6313726/5277564317025*ep-1187463189632/808274807845329825* ep^2-4372036935410188768/3094742791148394967205625*ep^3- 2802791427492560234391424/2369845713463750672062215428125*ep^4- 1651448017376055016693662314176/1814744902770569033391722397318140625* ep^5-184578401995843141349583614511017984/27793362609402095917104246031\ 6465191140625*ep^6-498715586473425720102579943880039687362048/ 1064159215929439798998066648121189835469003515625*ep^7-2638133367918105\ 89470806860838968070816486636544/81489588198620746767975450679852293435\ 7921477142578125*ep^8; Fill mnchfac1(17,16)= 1/34459425+1655008/26387821585125*ep+1611063707152/20206870196133245625 *ep^2+243275770764654464/3094742791148394967205625*ep^3+ 793843892172937871410336/11849228567318753360311077140625*ep^4+ 473651791152994731083469173248/9073724513852845166958611986590703125* ep^5+266993598880031227711792795283997952/69483406523505239792760615079\ 11629778515625*ep^6+29024866388598628266903417391614998202368/ 1064159215929439798998066648121189835469003515625*ep^7+7706644760298526\ 1655104362919187047253339824896/407447940993103733839877253399261467178\ 9607385712890625*ep^8; Fill mnchfac1(18,0)= 262144/19+2034644402176/92147055*ep+30936861817158135808/ 1340696801869425*ep^2+389006823534136572381927424/ 19506515043187264467375*ep^3+4411972764703764644295250155246592/ 283810723348879615922328920625*ep^4+47098469043699353462338273266177106\ 095616/4129314052739841182648481912145659375*ep^5+484620769213642826023\ 838328042569508681648268288/60079599336330165181385480277630196174640625 *ep^6+4874745723163842251060940661762734062329725148514980864/ 874130233329912509862349393791190256299799885859375*ep^7+48351715319853\ 094401014608187285635081297916958063619339328512/1271818842439172860918\ 0097687193705325692908932306981640625*ep^8; Fill mnchfac1(18,2)= -65536/171-1578956541952/2487970485*ep-24478928777902468096/ 36198813650474475*ep^2-311541619373746828516953088/ 526675906166056140619125*ep^3-3560801001029768347812904674613504/ 7662889530419749629902880856875*ep^4-3820207393791438457555348439490798\ 4456192/111491479423975711931509011627932803125*ep^5-394344599789802850\ 928182944119464217157059616256/1622149182080914459897407967496015296715\ 296875*ep^6-3974810989967477756222337731425894369456973827153082368/ 23601516299907637766283433632362136920094596918203125*ep^7- 39476656024162957827198643396308762424013280590339254630668544/ 343391087458576672447862637554230043793708541172288504296875*ep^8; Fill mnchfac1(18,4)= 32768/2907+817522927616/42295498245*ep+12939145474166025728/ 615379832058066075*ep^2+166844842036665778207913984/ 8953490404822954390525125*ep^3+1923195492796174763514586560083072/ 130269122017135743708348974566875*ep^4+20747013447444262440004518677833\ 889814656/1895355150207587102835653197674857653125*ep^5+214928735088963\ 834694681539392749632345852219008/2757653609537554581825593544743226004\ 4160046875*ep^6+2171353327553304020853785534609928921319846264475633024/ 401225777098429842026818371750156327641608147609453125*ep^7+ 21596691614234611926367138316877961928962837319852420217089792/ 5837648486795803431613664838421910744493045199928904573046875*ep^8; Fill mnchfac1(18,6)= -1024/2907-26478761728/42295498245*ep-428426650475075584/ 615379832058066075*ep^2-5603489347772047996313152/ 8953490404822954390525125*ep^3-65195369424101497881333209751616/ 130269122017135743708348974566875*ep^4-70762931456225161293619642005377\ 6450368/1895355150207587102835653197674857653125*ep^5-73600028139832129\ 29285150767301371157483193024/27576536095375545818255935447432260044160\ 046875*ep^6-74547580144924953522123724585880788491482210065766272/ 401225777098429842026818371750156327641608147609453125*ep^7- 742686152100074790426692597726975875154114767322214299051776/ 5837648486795803431613664838421910744493045199928904573046875*ep^8; Fill mnchfac1(18,8)= 512/43605+13736004992/634432473675*ep+45507364852724608/ 1846139496174198225*ep^2+3022448339780186174642336/ 134302356072344315857876875*ep^3+35529365905738996344298256883392/ 1954036830257036155625234618503125*ep^4+3882770407993495550131808459578\ 15080032/28430327253113806542534797965122864796875*ep^5+811323619995742\ 150633831079124708302821031104/8272960828612663745476780634229678013248\ 0140625*ep^6+41208583874280726851602594782877965184636168627462016/ 6018386656476447630402275576252344914624122214141796875*ep^7+ 411314124941989597556868416122441294589233743508517853723392/ 87564727301937051474204972576328661167395677998933568595703125*ep^8; Fill mnchfac1(18,10)= -128/305235-3567025568/4441027315725*ep-12118249261002736/ 12922976473219387575*ep^2-818581689145647773134784/ 940116492506410211005138125*ep^3-9733054543333586398424321329808/ 13678257811799253089376642329521875*ep^4-107184361466633176751823683492\ 260058528/199012290771796645797743585755860053578125*ep^5-4502184562439\ 1195352582539661377015000066368/115821451600577292436674928879215492185\ 472196875*ep^6-11471872609064246981604643340705371703192953984613504/ 42128706595335133412815929033766414402368855498992578125*ep^7- 114750703524148940725467183634046732953280971288024008996608/ 612953091113559360319434808034300628171769745992534980169921875*ep^8; Fill mnchfac1(18,12)= 64/3968055+1855141264/57733355104425*ep+6474377595893864/ 167998694151852038475*ep^2+445521299740006052164792/ 12221514402583332743066795625*ep^3+5365152482729309272764735047344/ 177817351553390290161896350283784375*ep^4+59596832566224817667443769387\ 442197344/2587159780033356395370666614826180696515625*ep^5+125894709465\ 769185343319295049358211511449536/7528394354037524008383870377149006992\ 055692796875*ep^6+6440439951334831207753902862466518169259260809524352/ 547673185739356734366607077438963387230795121486903515625*ep^7+ 64583459953408656776295721131181581279084604045727611634944/ 7968390184476271684152652504445908166233006697902954742208984375*ep^8; Fill mnchfac1(18,14)= -8/11904165-241592348/173200065313275*ep-867881471536036/ 503996082455556115425*ep^2-60951525736652864663624/ 36664543207749998229200386875*ep^3-744545423425232962201730265488/ 533452054660170870485689050851353125*ep^4-83523365455460394473227838032\ 86687008/7761479340100069186111999844478542089546875*ep^5-3552443112981\ 566950416994040378464513309376/4517036612422514405030322226289404195233\ 415678125*ep^6-912734984349841948260769773194310360079600792732544/ 1643019557218070203099821232316890161692385364460710546875*ep^7- 9179588294219621902927653386567087691955638382373442668288/ 23905170553428815052457957513337724498699020093708864226626953125*ep^8; Fill mnchfac1(18,16)= 4/130945815+126086914/1905200718446025*ep+467295389736836/ 5543956907011117269675*ep^2+33566185881196766955112/ 403309975285249980521204255625*ep^3+416670202284887226800887448464/ 5867972601261879575342579559364884375*ep^4+4727291699282205785242523716\ 414949344/85376272741100761047231998289263962985015625*ep^5+10131651346\ 706934247853186597315422737887168/2484370136832382922766677224459172307\ 37837862296875*ep^6+523372408482516280758493347169505929660111840396672/ 18073215129398772234098033555485791778616239009067816015625*ep^7+ 5282050981223507998278874466184441796550304220801793438464/ 262956876087716965577037532646714969485689221030797506492896484375*ep^8 ; Fill mnchfac1(18,18)= -1/654729075-32976682/9526003592230125*ep-632098776065332/ 138598922675277931741875*ep^2-1862244159376232552168/ 403309975285249980521204255625*ep^3-117714943858916843543175683056/ 29339863006309397876712897796824421875*ep^4-135309269439038601403272679\ 0280955232/426881363705503805236159991446319814925078125*ep^5- 14633251134911390307284448204707320220500672/62109253420809573069166930\ 61147930768445946557421875*ep^6-304267604151494739414145840406768228890\ 93236915584/18073215129398772234098033555485791778616239009067816015625 *ep^7-1541860353104292900240818336551244878294407639583739086336/ 1314784380438584827885187663233574847428446105153987532464482421875* ep^8; Fill mnchfac1(19,0)= 131072/5+1047433306112/24249225*ep+16213367928007141376/352814947860375 *ep^2+206247925186001974627463168/5133293432417701175625*ep^3+ 2357123617857184999963740483106304/74687032460231477874297084375*ep^4+ 25289472617501961380594504604509557663232/10866615928262739954338110295\ 12015625*ep^5+261072211731185835277436236662544995221740660736/ 15810420877981622416154073757271104256484375*ep^6+263166797812450841638\ 2727375803606070962416231604866048/230034271928924344700618261523997435\ 868368391015625*ep^7+26138357366187444326010970015686719481597013354485\ 832982572544/3346891690629402265573709917682554033077081297975521484375 *ep^8; Fill mnchfac1(19,2)= -65536/95-540445044736/460735275*ep-8520537863685833728/ 6703484009347125*ep^2-109648692270186369778453504/ 97532575215936322336875*ep^3-1262526939764871765435267689043712/ 1419053616744398079611644603125*ep^4-1361153525078002771775579006415533\ 6951296/20646570263699205913242409560728296875*ep^5-1409593431569064855\ 64005380909750409211379511808/30039799668165082590692740138815098087320\ 3125*ep^6-1423775720474802703109284268414158057590960147662086144/ 4370651166649562549311746968955951281498999429296875*ep^7- 14159456297683109454951966075645527485769648274717373887346432/ 63590942121958643045900488435968526628464544661534908203125*ep^8; Fill mnchfac1(19,4)= 16384/855+418577093632/12439852425*ep+6728742401875323136/ 180994068252372375*ep^2+87675412151643615089592448/ 2633379530830280703095625*ep^3+1017763898031418495480481514444544/ 38314447652098748149514404284375*ep^4+110313176300930515938524318598533\ 85962752/557457397119878559657545058139664015625*ep^5+11463620414296630\ 3474201910247871247682621796096/811074591040457229948703983748007648357\ 6484375*ep^6+1160493093936392762677436661878299731729440928194432128/ 118007581499538188831417168161810684600472984591015625*ep^7+ 11557627494789322884231866691305339374732131279104551362813184/ 1716955437292883362239313187771150218968542705861442521484375*ep^8; Fill mnchfac1(19,6)= -8192/14535-216299710976/211477491225*ep-3549492390075026048/ 3076899160290330375*ep^2-46875556885329468963107264/ 44767452024114771952625625*ep^3-549000628753802900399660924652992/ 651345610085678718541744872834375*ep^4-59855237481686117782477677305955\ 79449536/9476775751037935514178265988374288265625*ep^5-6244084249897199\ 8970573198375004503491093531328/137882680476877729091279677237161300220\ 800234375*ep^6-633686854225154061517678255634389345200090318351941504/ 2006128885492149210134091858750781638208040738047265625*ep^7- 6321157810017530671436145869128639980402288938965376577312512/ 29188242433979017158068324192109553722465225999644522865234375*ep^8; Fill mnchfac1(19,8)= 256/14535+6992158528/211477491225*ep+117279928141637344/ 3076899160290330375*ep^2+1571509178872435748461792/ 44767452024114771952625625*ep^3+18585315136107950916082906324576/ 651345610085678718541744872834375*ep^4+20394809794644614279723213586055\ 8099808/9476775751037935514178265988374288265625*ep^5+21367357024213278\ 60345620378208137308639797184/13788268047687772909127967723716130022080\ 0234375*ep^6+21745746125044107825588302725415450228556605668592512/ 2006128885492149210134091858750781638208040738047265625*ep^7+ 217310587459763059941890240041146717052642925196192090171136/ 29188242433979017158068324192109553722465225999644522865234375*ep^8; Fill mnchfac1(19,10)= -128/218025-3620235296/3172162368375*ep-62151480080644496/ 46153487404354955625*ep^2-169207919683712107074304/ 134302356072344315857876875*ep^3-10113289751292428201975231045168/ 9770184151285180778126173092515625*ep^4-1117836265199944366892577808119\ 29609696/142151636265569032712673989825614323984375*ep^5-11767945036426\ 36413933852869500435205907118016/20682402071531659363691951585574195033\ 12003515625*ep^6-2402865450085159662516231339336838550103364837831552/ 6018386656476447630402275576252344914624122214141796875*ep^7- 120308818718649791134401152000499428284347516040029208395008/ 437823636509685257371024862881643305836978389994667842978515625*ep^8; Fill mnchfac1(19,12)= 32/1526175+938314904/22205136578625*ep+16513016129930384/ 323074411830484689375*ep^2+45734218580042122048168/ 940116492506410211005138125*ep^3+2765969442797383177713126333392/ 68391289058996265446883211647609375*ep^4+308204472883493966332107560277\ 75871904/995061453858983228988717928779300267890625*ep^5+32622885280619\ 4434808019078603864945792691264/144776814500721615545843661099019365231\ 84024609375*ep^6+133704638538296766400224400866312453688264997005184/ 8425741319067026682563185806753282880473771099798515625*ep^7+ 33551026676225479289184018229157791653003469480010551722752/ 3064765455567796801597174040171503140858848729962674900849609375*ep^8; Fill mnchfac1(19,14)= -16/19840275-487064572/288666775522125*ep-8801628298624732/ 4199967353796300961875*ep^2-24837256966756922410232/ 12221514402583332743066795625*ep^3-1521973390453239157741161182896/ 889086757766951450809481751418921875*ep^4-17113608652903011315753496903\ 979224672/12935798900166781976853333074130903482578125*ep^5-18226789163\ 9383003153544274269381501253124672/188209858850938100209596759428725174\ 801392319921875*ep^6-375060258942409768043447198973965220079660665968768 /547673185739356734366607077438963387230795121486903515625*ep^7- 18874341170647991146318938553857230848937013835249852370176/ 39841950922381358420763262522229540831165033489514773711044921875*ep^8; Fill mnchfac1(19,16)= 2/59520825+63307994/866000326566375*ep+1176962026868324/ 12599902061388902885625*ep^2+3390061290904475641768/ 36664543207749998229200386875*ep^3+210798263558388165553708055312/ 2667260273300854352428445254256765625*ep^4+2394785807744709177661642923\ 876059744/38807396700500345930559999222392710447734375*ep^5+25687071448\ 863285164627141940209109898925504/5646295765528143006287902782861755244\ 04176959765625*ep^6+10622289623869367793478591186379265007969060258688/ 328603911443614040619964246463378032338477072892142109375*ep^7+ 2681270510211465981079637182184063521758212398470585942272/ 119525852767144075262289787566688622493495100468544321133134765625*ep^8 ; Fill mnchfac1(19,18)= -1/654729075-32976682/9526003592230125*ep-632098776065332/ 138598922675277931741875*ep^2-1862244159376232552168/ 403309975285249980521204255625*ep^3-117714943858916843543175683056/ 29339863006309397876712897796824421875*ep^4-135309269439038601403272679\ 0280955232/426881363705503805236159991446319814925078125*ep^5- 14633251134911390307284448204707320220500672/62109253420809573069166930\ 61147930768445946557421875*ep^6-304267604151494739414145840406768228890\ 93236915584/18073215129398772234098033555485791778616239009067816015625 *ep^7-1541860353104292900240818336551244878294407639583739086336/ 1314784380438584827885187663233574847428446105153987532464482421875* ep^8; Fill mnchfac1(20,0)= 1048576/21+1721904332800/20369349*ep+27108206457847021568/ 296364556202715*ep^2+348687951609134651084066816/4311966483230868987525 *ep^3+573499901426290890388104664567808/8962443895227777344915650125* ep^4+1731292929627261545714560281195489901568/ 36511829518962806246576050591603725*ep^5+448254550256421612121106702037\ 098017287971345408/13280753537504562829569421956107727575446875*ep^6+ 4527923305084205289330354266250316795391005344415164416/193228788420296\ 449548519339680157846129429448453125*ep^7+45032415643567800099927538793\ 236810071970263051068845269579776/2811389020128697903081916330853345387\ 784748290299438046875*ep^8; Fill mnchfac1(20,2)= -131072/105-1107974152192/509233725*ep-17748654471475030016/ 7409113905067875*ep^2-230841703227490779469733888/ 107799162080771724688125*ep^3-382427720109774592621652377098752/ 224061097380694433622891253125*ep^4-28998902949973540898900819950130551\ 450112/22819893449351753904110031619752328125*ep^5-30125512158187567169\ 4816135842842396449617355776/332018838437614070739235548902693189386171\ 875*ep^6-3049108162446866078380083250756957494450757512982995968/ 4830719710507411238712983492003946153235736211328125*ep^7- 30363415073645193244839899973763112772932594517500981005551104/ 70284725503217447577047908271333634694618707257485951171875*ep^8; Fill mnchfac1(20,4)= 65536/1995+570715467776/9675440775*ep+9311361165919003648/ 140773164196289625*ep^2+122551166096965355563377664/ 2048184079534662769074375*ep^3+204620344870064821382681888102656/ 4257160850233194238834933809375*ep^4+1559628916371274676507317574736578\ 8327936/433577975537683324178090600775294234375*ep^5+162570653162388327\ 373964328347602761123750588928/6308357930314667344045475429151170598337\ 265625*ep^6+1649044997442329336701565419275580775597307626221947904/ 91783674499640813535546686348074976911478988015234375*ep^7+ 16444488479289021946939224230173121499091569533144340439482112/ 1335409784561131503963910257155339059197755437892233072265625*ep^8; Fill mnchfac1(20,6)= -16384/17955-441279910912/261236900925*ep-7340210736028754176/ 3800875433299819875*ep^2-97846521962236578888650368/ 55300970147435894765008125*ep^3-164763841159832979392731095695872/ 114943342956296244448543212853125*ep^4-12629475812552671945738311741463\ 678642432/11706605339517449752808446220932944328125*ep^5-13213648989214\ 6164409253116678665223267080545536/170325664118496018289227836587081606\ 155106171875*ep^6-13435906638852429383144064280664257716539364277273012\ 48/2478159211490301965459760531398024376609932676411328125*ep^7- 13419400770015187466565990246484143573739841368913440883129344/ 36056064183150550607025576943194154598339396823090292951171875*ep^8; Fill mnchfac1(20,8)= 8192/305235+227651119616/4441027315725*ep+3864941716993328768/ 64614882366096937875*ep^2+52231090674315614837061824/ 940116492506410211005138125*ep^3+88767954881211688344418911759296/ 1954036830257036155625234618503125*ep^4+6846545392450351979565244404798\ 105267776/199012290771796645797743585755860053578125*ep^5+7192789505292\ 8678198097370589401094017492701248/289553629001443231091687322198038730\ 4636804921875*ep^6+7333551805631457430364358391390047591473094296902576\ 64/42128706595335133412815929033766414402368855498992578125*ep^7+ 7337346083068464833189443918348384705009941196404275914587392/ 612953091113559360319434808034300628171769745992534980169921875*ep^8; Fill mnchfac1(20,10)= -256/305235-7346890048/4441027315725*ep-127460293274449504/ 64614882366096937875*ep^2-1748127083454042192669472/ 940116492506410211005138125*ep^3-3001091770262530508742744798688/ 1954036830257036155625234618503125*ep^4-2330577577795439073475790501569\ 44106528/199012290771796645797743585755860053578125*ep^5-24596768456437\ 08466439940240639110048732450944/28955362900144323109168732219803873046\ 36804921875*ep^6-25154046539747225336280134718661845849783700968164992/ 42128706595335133412815929033766414402368855498992578125*ep^7- 252165795128494597673613534316754876991312706116749274635776/ 612953091113559360319434808034300628171769745992534980169921875*ep^8; Fill mnchfac1(20,12)= 128/4578525+3797601056/66615409735875*ep+67413701935912016/ 969223235491454068125*ep^2+187890548556019147716448/ 2820349477519230633015414375*ep^3+1630723033340074780579497649424/ 29310552453855542334378519277546875*ep^4+127601134419252826637696928367\ 071088256/2985184361576949686966153786337900803671875*ep^5+135360756757\ 3362478220910372230834600770809536/434330443502164846637530983297058095\ 69552073828125*ep^6+2777996129717035899555505114434658666353382367781376 /126386119786005400238447787101299243207106566496977734375*ep^7+ 139555748203974816809086535860092795655376972767847304804608/ 9194296366703390404791522120514509422576546189888024702548828125*ep^8; Fill mnchfac1(20,14)= -32/32049675-982656344/466307868151125*ep-17874653546120864/ 6784562648440178476875*ep^2-50687892815892781571944/ 19742446342634614431107900625*ep^3-3117152904988373930917104545792/ 1436217070238921574384547444599796875*ep^4-5019970364886376676866380040\ 534781792/2985184361576949686966153786337900803671875*ep^5-374921009154\ 779173796853136419239763392735744/3040313104515153926462716883079406669\ 86864516796875*ep^6-772426551642584403552139101439971861029407412703616/ 884702838502037801669134509709094702449745965478844140625*ep^7- 38902668175298378941534481172619420696366564327815649636352/ 64360074566923732833540654843601565958035823329216172917841796875*ep^8; Fill mnchfac1(20,16)= 16/416645775+509235292/6062002285964625*ep+9507260365690372/ 88199314429722320199375*ep^2+5494408412188431592816/ 51330360490849997520880541625*ep^3+1712309313066167757871594850896/ 18670821913105980466999116779797359375*ep^4+278375775696277257040048996\ 3002897856/38807396700500345930559999222392710447734375*ep^5+2092694789\ 17017238626932202758621079557989312/39524070358697001044015319480032286\ 70829238718359375*ep^6+433055946712598423453083428053272914341884475960\ 576/11501136900526491421698748626218231131846697551224973828125*ep^7+ 21874704339054222433450109122610124245017609144271309099776/ 836680969370008526836028512966820357454465703279810247931943359375*ep^8 ; Fill mnchfac1(20,18)= -2/1249937325-66079334/18186006857893875*ep-1268526177612104/ 264597943289166960598125*ep^2-3741613024610828471704/ 769955407362749962813208124375*ep^3-236721468157450598995638463712/ 56012465739317941400997350339392078125*ep^4-388971949218063392738847039\ 126838112/116422190101501037791679997667178131343203125*ep^5-2945997877\ 4974242474542209177157310265510784/118572211076091003132045958440096860\ 12487716155078125*ep^6-612758098771705506813327365299986390629673669064\ 96/34503410701579474265096245878654693395540092653674921484375*ep^7- 3105810767573960565892648847321679592710122354977207503872/ 2510042908110025580508085538900461072363397109839430743795830078125* ep^8; Fill mnchfac1(20,20)= 1/13749310575+34362352/200046075436832625*ep+679713656361172/ 2910577376180836566579375*ep^2+2050615923818229593216/ 8469509480990249590945289368125*ep^3+131922328694702874545333756656/ 616137123132497355410970853733312859375*ep^4+21941335822753927802913705\ 9552353536/1280644091116511415708479974338959444775234375*ep^5+ 16761492691577470766990888649876688290104512/13042943218370010344525055\ 4284106546137364877705859375*ep^6+3507193993073710472495383697577174902\ 1683060744192/379537517717374216916058704665201627350941019190424136328\ 125*ep^7+1784851028123415319761952252962333075628785473490761729536/ 27610471989210281385588940927905071795997368208233738181754130859375* ep^8; Fill mnchfac1(21,0)= 1048576/11+588644679680/3556553*ep+28250985333859155968/155238577058565 *ep^2+367273591924227707607535616/2258649110263788517275*ep^3+ 4258703363965218552169776465760256/32862294282501850264690717125*ep^4+ 1845354426808603360009855613902819638272/ 19125244033742422319635074119411475*ep^5+684696581906496366680491306490\ 60337281477817344/993797883758844837586827493314183696121875*ep^6+ 4851303392664593324430377254952310596103354125154953216/101215079648726\ 711668272035070558871782082092046875*ep^7+48312058128416352349618536334\ 645868775842500814301544125925376/1472632343876936996852432363780323774\ 553915771109229453125*ep^8; Fill mnchfac1(21,2)= -524288/231-907183357952/224062839*ep-14754021048736251904/ 3260010118229865*ep^2-193858898135415034891675648/ 47431631315539558862775*ep^3-323380558810322793112008904351744/ 98586882847505550794072151375*ep^4-492705518427019838933670119970220587\ 1616/2008150623542954343561682782538204875*ep^5-25671198506024294284355\ 2424150189569510477717504/146088288912550191125263641517185003329915625 *ep^6-2603510744501510081520201271262251888443468891984360448/ 2125516672623260945033712736481736307423723932984375*ep^7- 25959832430874879912139316815097916675050981176928756433952768/ 30925279221415676933901079639386799265632231193293818515625*ep^8; Fill mnchfac1(21,4)= 65536/1155+582881570816/5601570975*ep+9645295946232275968/ 81500252955746625*ep^2+128178539882387627673601024/ 1185790782888488971569375*ep^3+30776262294051978642555924291328/ 352096010169662681407400540625*ep^4+16494109199114769376621035028407759\ 333376/251018827942869292945210347817275609375*ep^5+1724440716169689545\ 80324061637970715378675112448/36522072228137547781315910379296250832478\ 90625*ep^6+1752643268090123620879117556846098042896021647599780864/ 53137916815581523625842818412043407685593098324609375*ep^7+ 17499902497876381783902445592558537576334221651706006654875392/ 773131980535391923347526990984669981640805779832345462890625*ep^8; Fill mnchfac1(21,6)= -32768/21945-299804981248/106429848525*ep-5052228134581512704/ 1548504806159185875*ep^2-67958089418671625912579072/ 22530024874881290459818125*ep^3-115151193221137507765652322601088/ 46828769352565136627184271903125*ep^4-886430587389627523374967076992023\ 4732928/4769357730914516565958996608528236578125*ep^5-93010010996008658\ 494534347456113326239598166144/6939193723346134078450022972066287658170\ 9921875*ep^6-947545445115420380811625873002779642715876713497150592/ 1009620419496048948891013549828824746026268868167578125*ep^7- 9475548386717000779863437482919242341271434157364148850520576/ 14689507630172446543603012828708729651175309816814563794921875*ep^8; Fill mnchfac1(21,8)= 8192/197505+231475390976/2873605910175*ep+3976274395527467648/ 41809629766298018625*ep^2+54182619479966537990320064/ 608310671621794842415089375*ep^3+92619997443753566882326475541056/ 1264376772519258688933975341384375*ep^4+7172287475508574279151405830838\ 990908736/128772658734691947280892908430262387609375*ep^5+7555492200561\ 6140775045935560695882323661748928/187358230530345620118150620245789766\ 7706167890625*ep^6+7717306939556198543182448473103119189382407542444823\ 04/27259751326393321620057365845378268142709259440524609375*ep^7+ 7730456997942282780291922809106711707370747656484583517830912/ 396616706014656056677281346375135700581733365053993222462890625*ep^8; Fill mnchfac1(21,10)= -4096/3357585-119243277568/48851300472975*ep-2090192153086694464/ 710763706027066316625*ep^2-28880211145163281885646752/ 10341281417570512321056519375*ep^3-49841037737540172100911837903808/ 21494405132827397711877580803534375*ep^4-388474064722432424752968422262\ 3640625248/2189135198489763103775179443314460589359375*ep^5-41102235709\ 438244416392485670701497109152501504/3185089919015875542008560544178426\ 0351004854140625*ep^6-4210429009209111958341140144788541892774740912969\ 47072/463415772548686467540975219371430558426057410488918359375*ep^7- 4225580170938807841656567054415155605849446416649240395222016/ 6742484002249152963513782888377306909889467205917884781869140625*ep^8; Fill mnchfac1(21,12)= 128/3357585+3842748704/48851300472975*ep+68812892706774992/ 710763706027066316625*ep^2+965081322716881776628256/ 10341281417570512321056519375*ep^3+240414689495033378639166358832/ 3070629304689628244553940114790625*ep^4+1321105311649341266706314670897\ 25545344/2189135198489763103775179443314460589359375*ep^5+1404579040735\ 745128555314302367128657309554112/3185089919015875542008560544178426035\ 1004854140625*ep^6+14434838898369171713503253257357388492985338064713216 /463415772548686467540975219371430558426057410488918359375*ep^7+ 145175642452536726724681817693085195894500664936499837422848/ 6742484002249152963513782888377306909889467205917884781869140625*ep^8; Fill mnchfac1(21,14)= -64/50363775-1983452368/732769507094625*ep-36330333663324088/ 10661455590405994749375*ep^2-20711198350860867625096/ 6204768850542307392633911625*ep^3-913198628779710271342249191712/ 322416076992410965678163712053015625*ep^4-72255686107778850880600724288\ 512651168/32837027977346446556627691649716908840390625*ep^5-77237529596\ 6148708487462555120968656395550848/477763487852381331301284081626763905\ 265072812109375*ep^6-15933199085275150306749004391613650186336010185680\ 64/1390247317646059402622925658114291675278172231466755078125*ep^7- 80315175818040989496284421366907148276045409200147151061504/ 101137260033737294452706743325659603648342008088768271728037109375*ep^8 ; Fill mnchfac1(21,16)= 16/352546425+512491132/5129386549662375*ep+9615191105989852/ 74630189132841963245625*ep^2+27887520217551628264496/ 217166909768980758742186906875*ep^3+1743008475888948342613676731696/ 15798387772628137318230021890597765625*ep^4+283933534900478457251175730\ 7105008576/32837027977346446556627691649716908840390625*ep^5+2137493285\ 10078341274475564205857199574793792/33443444149666693191089885713873473\ 36855509684765625*ep^6+442757881937362795941795493048310776518620931706\ 112/9731731223522415818360479606800041726947205620267285546875*ep^7+ 22379480133000793019518609444922735045380942799176318571776/ 707960820236161061168947203279617225538394056621377902096259765625*ep^8 ; Fill mnchfac1(21,18)= -8/4583103525-265199126/66682025145610875*ep-5104405088818496/ 970192458726945522193125*ep^2-15086325039451857458392/ 2823169826996749863648429789375*ep^3-955926935707120779347563538048/ 205379041044165785136990284577770953125*ep^4-22464372180256075600883769\ 2833329824/60983051957929115033737141635188544989296875*ep^5-1191942506\ 35957202917982026082827929833609216/43476477394566701148416851428035515\ 379121625901953125*ep^6-49611852567356684462971185052101901849067143830\ 656/25302501181158281127737246977680108490062734612694942421875*ep^7- 12577873499853465621447680608821047223689638950576935333888/ 9203490663070093795196313642635023931999122736077912727251376953125* ep^8; Fill mnchfac1(21,20)= 1/13749310575+34362352/200046075436832625*ep+679713656361172/ 2910577376180836566579375*ep^2+2050615923818229593216/ 8469509480990249590945289368125*ep^3+131922328694702874545333756656/ 616137123132497355410970853733312859375*ep^4+21941335822753927802913705\ 9552353536/1280644091116511415708479974338959444775234375*ep^5+ 16761492691577470766990888649876688290104512/13042943218370010344525055\ 4284106546137364877705859375*ep^6+3507193993073710472495383697577174902\ 1683060744192/379537517717374216916058704665201627350941019190424136328\ 125*ep^7+1784851028123415319761952252962333075628785473490761729536/ 27610471989210281385588940927905071795997368208233738181754130859375* ep^8; Fill mnchfac1(22,0)= 4194304/23+55449783894016/171037867*ep+62148447012132082024448/ 171707978824687305*ep^2+18773640843278935056606227120128/ 57460238696848076587523025*ep^3+5041448329983946376409848137016655847424 /19228454342647346039835476757497625*ep^4+25238480256124189915183972630\ 4251570188585611264/1286919319489547947773009251294531753830125*ep^5+ 43208773716402314365724491929872346118892115358985406464/30760984761789\ 6628576382938294123183144388655759375*ep^6+7055575633943985521776427984\ 4250954317974421889323077578840680448/720568419326061833440507481192222\ 873142781540892410480640625*ep^7+16181562945767082198249595678159584966\ 229990518254062270620009427482558464/2411305150482219003295571823534660\ 33673603580611065323016294704765625*ep^8; Fill mnchfac1(22,2)= -1048576/253-14216885108736/1881416537*ep-16185865646494692933632/ 1888787767071560355*ep^2-4939611430400022842765148762112/ 632062625665328842462753275*ep^3-13354979068614011175609644733439262351\ 36/211512997769120806438190244332473875*ep^4-67159019652865511163476517\ 453240188013484381184/14156112514385027425503101764239849292131375*ep^5 -1647410043030677534927152648628894859139012208775308288/48338690339955\ 1844905744617319336430655467887621875*ep^6-1886680815034362267600423558\ 8805377049968025711086365724991803392/792625261258668016784558229311445\ 1604570596949816515287046875*ep^7-4332371444032648976993321536562355203\ 205872647571700668618051366770436096/2652435665530440903625129005888126\ 370409639386721718553179241752421875*ep^8; Fill mnchfac1(22,4)= 524288/5313+21882303447040/118529241831*ep+8441631814548135510016/ 39664543108502767455*ep^2+2604324848699357943102458894336/ 13273315138971905691717818775*ep^3+101321343397331258710314036451040088\ 064/634538993307362419314570732997421625*ep^4+7167983351101874733275580\ 885186961755973448192/59455672560417115187113027409807367026951775*ep^5 +43217128157661483349691907463896316521620720902405037056/4974051235981\ 38848408011211221597187144476456362909375*ep^6+101220778718754193957835\ 45026680906427500925975370792121015858176/16645130486432028352475722815\ 5403483695982535946146821027984375*ep^7+2327483107930623031029447693908\ 068315110981216893208857769798191670704128/5570114897613925897612770912\ 3650653778602427121156089616764076800859375*ep^8; Fill mnchfac1(22,6)= -65536/26565-14041955012608/2963231045775*ep-5510969387405605061632/ 991613577712569186375*ep^2-1719912378720983085985487541248/ 331832878474297642292945469375*ep^3-67436913073875512185452978431109980\ 416/15863474832684060482864268324935540625*ep^4-11989820446380228297642\ 1606865374599415825975808/371597953502606969919456421311296043918448593\ 75*ep^5-29016837689164161775189595060355807051671221091269944832/ 12435128089953471210200280280539929678611911409072734375*ep^6- 6811807389802122178732566258387011533412346560330940870933352448/ 4161282621608007088118930703885087092399563398653670525699609375*ep^7- 15686518669925017070642123963711966949727678571266698672583854580201285\ 12/13925287244034814744031927280912663444650606780289022404191019200214\ 84375*ep^8; Fill mnchfac1(22,8)= 32768/504735+7213354010624/56301389869725*ep+2882530576483548740096/ 18840657976538814541125*ep^2+910725032979212811114814879744/ 6304824691011655203565963918125*ep^3+3600991813154125875858030821225567\ 2448/301406021820997149174421098173775271875*ep^4+643886989601390919023\ 46347637310732074867965824/70603611165495324284696720049146248344505232\ 8125*ep^5+15642470921943931856938603300843064339023769706166925696/ 236267433709115952993805325330258663893626316772381953125*ep^6+ 3681408200048536173870140688996917817468341631373457500145417344/ 79064369810552134674259683373816654755591704574419739988292578125*ep^7+ 849165085153384701505330568733922017253737755038354934328966405795911936 /2645804576366614801366066183373406054483615288254914256796293648040820\ 3125*ep^8; Fill mnchfac1(22,10)= -8192/4542615-5562313573888/1520137526482575*ep-2265307307282547469952/ 508697765366547992610375*ep^2-725158267118879226334680363328/ 170230266657314690496281025789375*ep^3-28933362872653294042582652859042\ 781376/8137962589166923027709369650691932340625*ep^4-520568399479444585\ 25126066033796625460291034688/19062975014683737556868114413269487053016\ 412859375*ep^5-12699645677051080547117814240906398768455443776609817152/ 6379220710146130730832743783916983925127910552854312734375*ep^6- 2997156183542770355057412467341911688319522091800720039993638528/ 2134737984884907636205011451093049678400976023509332979683899609375* ep^7-692594161767105476650721023393198875426448954652785042562449437759\ 775232/7143672356189859963688378695108196347105761278288268493349992849\ 71021484375*ep^8; Fill mnchfac1(22,12)= 4096/77224455+2861785174784/25842337950203775*ep+1188986936108863222336/ 8647862011231315874376375*ep^2+385983943086118989229844859104/ 2893914533174349738436777438419375*ep^3+1555210495275940680030962700858\ 3453568/138345364015837691471059284061762849790625*ep^4+281713858062515\ 97501802751344470734586349460384/32407057524962353846675794502558127990\ 1279018609375*ep^5+6904367130707357876096731176747405396863924588894719\ 936/108446752072484222424156644326588726727174479398523316484375*ep^6+ 1634488245776370730354781894480284309016219452018015302205800704/ 36290545743043429815485194668581844532816592399658660654626293359375* ep^7+378471434448098261068199724437509183440965236805850726470019666794\ 891776/1214424300552276193827024378168393379007979417309005643869498784\ 4507365234375*ep^8; Fill mnchfac1(22,14)= -128/77224455-92107901152/25842337950203775*ep-39082274505059099408/ 8647862011231315874376375*ep^2-12879402295078230664046341312/ 2893914533174349738436777438419375*ep^3-5244850139955206056350879524507\ 37104/138345364015837691471059284061762849790625*ep^4-95714287544315204\ 8186356880274330079482289952/324070575249623538466757945025581279901279\ 018609375*ep^5-235780074498604806653923410329417045348156910237070208/ 108446752072484222424156644326588726727174479398523316484375*ep^6- 56009087696952918821607453299750505976160652342605513171514112/ 36290545743043429815485194668581844532816592399658660654626293359375* ep^7-129986599627900941191427499608626911071089603544500933782433538521\ 76128/12144243005522761938270243781683933790079794173090056438694987844\ 507365234375*ep^8; Fill mnchfac1(22,16)= 64/1158366825+47481744944/387635069253056625*ep+20600421127746044632/ 129717930168469738115645625*ep^2+1379856370959773100966653608/ 8681743599523049215310332315258125*ep^3+2842308011395603339349332996328\ 38192/2075180460237565372065889260926442746859375*ep^4+5229583433396126\ 73898170304288726912690368704/48610586287443530770013691753837191985191\ 85279140625*ep^5+129556865019910360937793395257963062233911832671889152/ 1626701281087263336362349664898830900907617190977849747265625*ep^6+ 6178973026605180073447709730277917995771105275815181701982336/ 108871637229130289446455584005745533598449777198975981963878880078125* ep^7+718857239447401504929750515975865886520509204675192192685503893986\ 0224/182163645082841429074053656725259006851196912596350846580424817667\ 610478515625*ep^8; Fill mnchfac1(22,18)= -16/8108567775-12252881156/2713445484771396375*ep-5442983541528756628/ 908025511179288166809519375*ep^2-370984610303709300320350024/ 60772205196661344507172326206806875*ep^3-541741770621990984093718349138\ 928736/101683842551640703231228573785395694596109375*ep^4-2052696215611\ 2824890581469675838190357916928/486105862874435307700136917538371919851\ 9185279140625*ep^5-35823780429819038845933790843591299215393469184799808 /11386908967610843354536447654291816306353320336844948230859375*ep^6- 1716001042158541367435802944625404585706866545090085772827776/ 762101460603912026125189088040218735189148440392831873747152160546875* ep^7-200222931152107875625740012190623574341011542396537243364571503687\ 0656/127514551557989000351837559707681304795837838817445592606297372367\ 3273349609375*ep^8; Fill mnchfac1(22,20)= 8/105411381075+6332372458/35274791302028152875*ep+2884496441406398444/ 11804331645330746168523751875*ep^2+40068509905531577410044976/158007733\ 511319495718648048137697875*ep^3+296656458978635304970034464545198368/ 1321889953171329142005971459210144029749421875*ep^4+1135439219076379187\ 7198815926286703123515104/631937621736765900010177992799883495807494086\ 28828125*ep^5+19957842628748162433017141557085541526770654970625984/ 148029816578940963608973819505793611982593164378984327001171875*ep^6+ 960749422411326962127316323139621115039082055218351727963136/ 9907318987850856339627458144522843557458929725106814358712978087109375* ep^7+112477023998933856225717946706488642089736673767354808047329324792\ 0128/165768917025385700457388827619985696234589190462679270388186584077\ 52553544921875*ep^8; Fill mnchfac1(22,22)= -1/316234143225-819433166/105824373906084458625*ep-383413267272815608/ 35412994935992238505571255625*ep^2-27181237845756473555515984/237011600\ 2669792435779720722065468125*ep^3-40872020098055931250366286319046096/ 3965669859513987426017914377630432089248265625*ep^4-1582125028602134326\ 134975265181511626491808/1895812865210297700030533978399650487422482258\ 86484375*ep^5-2803571040256992259702239379013002878077204164761088/ 444089449736822890826921458517380835947779493136952981003515625*ep^6- 135730095541911318785533488604728353864597845869606565651456/ 29721956963552569018882374433568530672376789175320443076138934261328125 *ep^7-15952154034855432115299092116682401763343879522848611912292836768\ 9216/497306751076157101372166482859957088703767571388037811164559752232\ 57660634765625*ep^8; Fill mnchfac1(23,0)= 1048576/3+42519666950144/66927861*ep+16117764640820675428352/ 22396692890176605*ep^2+4916822256033218930723353403392/ 7494813743067140424459525*ep^3+1329188644911598202334432724426974703616/ 2508059262084436439978540446630125*ep^4+6684197693303930940701575099321\ 0783356571215872/167859041672549732318218597994938924412625*ep^5+ 11477890342832701810009410232447772818601434197345468416/40123023602334\ 342857789078907929110844920259446875*ep^6+18779326906107534051855169992\ 397295067871529657013180421112399872/9398718512948632610093575841637689\ 6496884548812053540953125*ep^7+4312444116882701323622337753946689131515\ 343177276795762766459656974155776/3145180631063763917342050204610426526\ 1774380079704172567342787578125*ep^8; Fill mnchfac1(23,2)= -524288/69-21768376582144/1539340803*ep-8375602077385422217216/ 515123936474061915*ep^2-2580272243587601374400838496256/ 172380716090544229762569075*ep^3-702136083773405432930109465944111392768 /57685363027942038119506430272492875*ep^4-35464139171644473586629231542\ 322423028880960512/3860757958468643843319027753883595261490375*ep^5- 6107507124361145387865589070758260748688938202817707008/922829542853689\ 885729148814882369549433165967278125*ep^6-10011693173734259888153457740\ 562951073050996201969723497684688896/2161705257978185500321522443576668\ 619428344622677231441921875*ep^7-23018875386818583567529536957406861420\ 98314614663823442353115628543541248/72339154514466570098867154706039810\ 1020810741833195969048884114296875*ep^8; Fill mnchfac1(23,4)= 131072/759+5575008821248/16932748833*ep+2178701295587778279424/ 5666363301214681065*ep^2+678208019413177329505688858624/ 1896187876995986527388259825*ep^3+1858501600461628204774155352676723307\ 52/634538993307362419314570732997421625*ep^4+94314235964746337981245997\ 30291304463861871104/42468337543155082276509305292719547876394125*ep^5+ 1629348373216418551652563707856703809682953192335665152/101511249713905\ 88743020636963706065043764825640059375*ep^6+267641002300229953708376641\ 8988816532682844054420393064977808384/237787578377600405035367468793433\ 54813711790849449545861140625*ep^7+616182429670124749665126302173024097\ 673192140929347793001505890683382272/7957306996591322710875387017664379\ 111228918160165155659537725257265625*ep^8; Fill mnchfac1(23,6)= -65536/15939-2857126383616/355587725493*ep-1134879542427718740992/ 118993629325508302365*ep^2-357188547865480560572893852672/ 39819945416915717075153456325*ep^3-140881361081385936278502498027720404\ 48/1903616979922087257943712198992264875*ep^4-5030008069968843820082382\ 281017387077860976128/891835088406256727806695411147110505404276625* ep^5-6103490354990504280213952370180361692140664253673759232/ 1492215370794416545224033633664791561433429369088728125*ep^6- 1435465381523446227300469984373468216879830400928659888971466752/ 499353914592960850574271684466210451087947607838440463083953125*ep^7- 330965649960041702771072736883850061433560628268704282206790507185495296 /1671034469284177769283831273709519613358072813634682688502922304025781\ 25*ep^8; Fill mnchfac1(23,8)= 8192/79695+1831393409536/8889693137325*ep+739942524904759583744/ 2974840733137707559125*ep^2+235623535029629047272867730816/ 995498635422892926878836408125*ep^3+93682914676148940087435818609981918\ 72/47590424498052181448592804974806621875*ep^4+168160247096686642863145\ 60283190599155321505536/111479386050782090975836926393388813175534578125 *ep^5+4096046612954382604986251504590101321781433941752134144/ 37305384269860413630600840841619789035835734227218203125*ep^6+ 965700773042486821644628177135979426359920021388979663217913216/ 12483847864824021264356792111655261277198690195961011577098828125*ep^7+ 223011603001471090505261327061416340682544508458599840837162894098562304 /4177586173210444423209578184273799033395182034086706721257305760064453\ 125*ep^8; Fill mnchfac1(23,10)= -4096/1514205-939743767808/168904169609175*ep-386522588838556133632/ 56521973929616443623375*ep^2-124619433330379533202860160448/ 18914474073034965610697891754375*ep^3-713956974388359284595787048185700\ 288/129174009351855921074751899217332259375*ep^4-9024169471663381838066\ 971604906370551893193408/2118108334964859728540901601474387450335156984\ 375*ep^5-2206962348592962423137354906048766578341138269627840832/ 708802301127347858981415975990775991680878950317145859375*ep^6- 521720720547260077831250949899489689173818250876445792907435648/ 237193109431656404022779050121449964266775113723259219964877734375*ep^7 -1206946572548426153631409648546531729433665996855951552085139836060677\ 12/79374137290998444040981985501202181634508458647647427703888809441224\ 609375*ep^8; Fill mnchfac1(23,12)= 1024/13627845+723845084096/4560412579447725*ep+303348998066114433184/ 1526093296099643977831125*ep^2+99104158213634143122765270176/ 510690799971944071488843077368125*ep^3+40114816284533352217379827941640\ 84192/24413887767500769083128108952075797021875*ep^4+729017132425649450\ 4369169602590177376686926496/571889250440512126706043432398084611590492\ 38578125*ep^5+1790753865071395315279594978383125109153700162510187584/ 19137662130438392192498231351750951775383731658562938203125*ep^6+ 424582575345642586355961520438373878561210541521823024043320576/ 6404213954654722908615034353279149035202928070527998939051698828125* ep^7+984144383816195154043869150746699202659626106293928385785441036737\ 08544/21431017068569579891065136085324589041317283834864805480049978549\ 13064453125*ep^8; Fill mnchfac1(23,14)= -512/231673365-372001090528/77527013850611325*ep-158997215879735569712/ 25943586033693947623129125*ep^2-52681886037342346539747501568/ 8681743599523049215310332315258125*ep^3-3076981832204068338373832353577\ 01008/59290870292501867773311121740755507053125*ep^4-394187550936056140\ 6886762921062081164462936928/972211725748870615400273835076743839703837\ 055828125*ep^5-972971431409164673146292110227091066502112899598902912/ 325340256217452667272469932979766180181523438195569949453125*ep^6- 231443904354681177698700016401150300849192084981694550211904768/ 108871637229130289446455584005745533598449777198975981963878880078125* ep^7-537631149143236978669978382956861094198468670282126076425190762068\ 36992/36432729016568285814810731345051801370239382519270169316084963533\ 522095703125*ep^8; Fill mnchfac1(23,16)= 16/231673365+11959673384/77527013850611325*ep+5218799045569783936/ 25943586033693947623129125*ep^2+1755459894013456818451059704/ 8681743599523049215310332315258125*ep^3+ 72554030069535752494552348768961968/41503609204751307441317785218528854\ 9371875*ep^4+133805860378888157790961535029886365752008384/972211725748\ 870615400273835076743839703837055828125*ep^5+33203900989168781648065234\ 904854991307205271110961536/3253402562174526672724699329797661801815234\ 38195569949453125*ep^6+792708015797780265423470706273734786508876599423\ 4751337170304/108871637229130289446455584005745533598449777198975981963\ 878880078125*ep^7+18458918782441769386961985516372545123149982456077909\ 38473626831288576/36432729016568285814810731345051801370239382519270169\ 316084963533522095703125*ep^8; Fill mnchfac1(23,18)= -8/3475100475-6158310988/1162905207759169875*ep-2746787050051437524/ 389153790505409214346936875*ep^2-187801761526841858742203048/ 26045230798569147645930996945774375*ep^3- 39269674604059214268914222105985824/62255413807126961161976677827793282\ 40578125*ep^4-73035479277414057528318685430352458034836608/145831758862\ 33059231004107526151157595557555837421875*ep^5-182313199629667736512663\ 89633155947151057261441459264/48801038432617900090870489946964927027228\ 51572933549241796875*ep^6-874053565686311290393498666229714934658830359\ 209784817593984/3266149116873908683393667520172366007953493315969279458\ 91636640234375*ep^7-102044349837343482209174379921380684818494959064351\ 6382756547608291328/546490935248524287222160970175777020553590737789052\ 539741274453002831435546875*ep^8; Fill mnchfac1(23,20)= 2/24325703325+1587383362/8140336454314189125*ep+724639681443448196/ 2724076533537864500428558125*ep^2+50414624944191277558592816/1823166155\ 89984033521516978620420625*ep^3+74747185933232136723910458944129792/ 305051527654922109693685721356187083788328125*ep^4+28636482022688957141\ 43569100709471740271456/14583175886233059231004107526151157595557555837\ 421875*ep^5+5036974612827574755265838725329433102805105633953856/ 34160726902832530063609342962875448919059961010534844692578125*ep^6+ 48518591666427746522354091486589539274560643959911820233728/ 457260876362347215675113452824131241113489064235699124248291296328125* ep^7+284104138512701871467501557194485176766075215652124344589672036856\ 832/3825436546739670010555126791230439143875135164523367778188921171019\ 820048828125*ep^8; Fill mnchfac1(23,22)= -1/316234143225-819433166/105824373906084458625*ep-383413267272815608/ 35412994935992238505571255625*ep^2-27181237845756473555515984/237011600\ 2669792435779720722065468125*ep^3-40872020098055931250366286319046096/ 3965669859513987426017914377630432089248265625*ep^4-1582125028602134326\ 134975265181511626491808/1895812865210297700030533978399650487422482258\ 86484375*ep^5-2803571040256992259702239379013002878077204164761088/ 444089449736822890826921458517380835947779493136952981003515625*ep^6- 135730095541911318785533488604728353864597845869606565651456/ 29721956963552569018882374433568530672376789175320443076138934261328125 *ep^7-15952154034855432115299092116682401763343879522848611912292836768\ 9216/497306751076157101372166482859957088703767571388037811164559752232\ 57660634765625*ep^8; Fill mnchfac1(24,0)= 16777216/25+17366559184912384/13943304375*ep+33374413283574558039605248/ 23329888427267296875*ep^2+51388229764415700241549844693549056/ 39035488245141356377393359375*ep^3+699102033793153959975854773105822721\ 42098432/65314043283448865624441157464326171875*ep^4+882770314528551867\ 80029445308724636035459266770427904/10928323025556623197800689973628836\ 2247802734375*ep^5+1520327694244988289926166464482031364650297330164279\ 1425552384/26121760157769754464706431580683014872994960577392578125* ep^6+124614374756261869573642536171933098278729066897800141420624940463\ 988736/3059478682600466344431502552616435432841293906642367869567871093\ 75*ep^7+143261542288116035630869881515621696332587616362998264228062944\ 268018875257147392/5119109100038678250882243171566449424116923841097684\ 33713261516571044921875*ep^8; Fill mnchfac1(24,2)= -1048576/75-1109777639604224/41829913125*ep-2163270667311263626313728/ 69989665281801890625*ep^2-3362580067075132823134658137071616/ 117106464735424069132180078125*ep^3-46038150980098947145816902319951920\ 74186752/195942129850346596873323472392978515625*ep^4-58382764417923112\ 67587421620328656385351071491794944/32784969076669869593402069920886508\ 6743408203125*ep^5-1008351141369762085874363677139625419703391032097304\ 620724224/78365280473309263394119294742049044618984881732177734375*ep^6 -8280489563101270499816498437338889573434969299418742791823871364868096/ 917843604780139903329450765784930629852388171992710360870361328125*ep^7 -9531133324768911144570116691518996032521314478740271720885121515907192\ 424845312/1535732730011603475264672951469934827235077152329305301139784\ 549713134765625*ep^8; Fill mnchfac1(24,4)= 524288/1725+567602397478912/962088001875*ep+1122927088396648522686464/ 1609762301481443484375*ep^2+1762980368412942069384954078507008/ 2693448688914753590040141796875*ep^3+2430160271877632332748289205190748\ 340299776/4506668986557971728086439865038505859375*ep^4+309592673055262\ 1270505975210069553065942453252918272/754054288763407000648247608180389\ 6995098388671875*ep^5+5363500666303174233064469485898407918283291100409\ 36775078912/1802401450886113058064743779067128026236652279840087890625* ep^6+441337232388478998931099301481473291029717424294145253237485720914\ 1248/211104029099432177765773676130534044866049279558323383000183105468\ 75*ep^7+508662923785642101187070793952851039123076022461401169329569384\ 8375610751021056/353218527902668799310874778838085010264067745035740219\ 26215044643402099609375*ep^8; Fill mnchfac1(24,6)= -131072/18975-145223466262528/10582968020625*ep- 291776653876385611913216/17707385316295878328125*ep^2- 462935986800603525774110865661952/29627935578062289490441559765625*ep^3 -642748380897236068970162766542701626489344/495733588521376890089508385\ 15423564453125*ep^4-822865517063911307294927287502098931283514146426368/ 82945971763974770071307236899842866946082275390625*ep^5-204325540713922\ 87012590247688576120915974453057666981397504/28323451371067490912445973\ 67105486898371882154034423828125*ep^6-117948836483425570871511930144865\ 2661120421984389832991102606278976512/232214432009375395542351043743587\ 449352654207514155721300201416015625*ep^7-13613625746149511099123837953\ 43232738649448813917806232689525132295115434801664/38854038069293567924\ 1962256721893511290474519539314241188365491077423095703125*ep^8; Fill mnchfac1(24,8)= 65536/398475+74352282456064/222242328433125*ep+151812421253969222622208/ 371855091642213444890625*ep^2+243563803671443546017933042994176/ 622186647139308079299272755078125*ep^3+48682912308434151749099266693325\ 836439296/148720076556413067026852515546270693359375*ep^4+4385847850990\ 72903946768832054823142382739886761984/17418654070434701714974519748967\ 00205867727783203125*ep^5+535542267051284391980146420502135852504439842\ 698986050472448/2914483146082844814890690690751546018424666736501422119\ 140625*ep^6+63241406147526266585507959642791501929775105371279697558339\ 7168147456/487650307219688330638937191861533643640573835779727014730422\ 9736328125*ep^7+7310695258799301200024278659735968371001675023583002709\ 91269708501803625343232/81593479945516492640812073911597637370999649103\ 25599064955675312625885009765625*ep^8; Fill mnchfac1(24,10)= -8192/1992375-9522482405888/1111211642165625*ep-19773201880291424884736/ 1859275458211067224453125*ep^2-32099698092641797157463570411392/ 3110933235696540396496363775390625*ep^3-6469000490712535990591857792568\ 828946432/743600382782065335134262577731353466796875*ep^4-5861146633683\ 3341491034609209990010193613787587328/870932703521735085748725987448350\ 1029338638916015625*ep^5-7184620847140775032186517390201139558008843866\ 6533523490816/145724157304142240744534534537577300921233336825071105957\ 03125*ep^6-850623990018470837167155715780576852919690984525755982129666\ 06049152/24382515360984416531946859593076682182028691788986350736521148\ 681640625*ep^7-98499996255893965453113112185589348901524253091699152285\ 395310321849708447744/4079673997275824632040603695579881868549982455162\ 7995324778376563129425048828125*ep^8; Fill mnchfac1(24,12)= 4096/37855125+4881476518144/21113021201146875*ep+ 10316478284726114560768/35326233706010277264609375*ep^2+ 16958348815596777287143833570496/59107731478234267533430911732421875* ep^3+3447843480754722082198545358730521614016/1412840727285924136755098\ 8976895715869140625*ep^4+3143112464816398324851349371973076879323124839\ 6864/165477213669129666292257937615186519557434139404296875*ep^5+ 38691022579817023813646849535609005489013322930058586255808/ 276875898877870257414615615621396871750343339967635101318359375*ep^6+ 45938446055094403931033372958511940106138392258144475136463866533376/ 463267791858703914106990332268456961458545143990740663993901824951171875 *ep^7+53295474354435609842575049739805787469530489129818746603028194227\ 856881577472/7751380594824066800877147021601775550244966664809319111707\ 89154699459075927734375*ep^8; Fill mnchfac1(24,14)= -1024/340696125-3756293679808/570051572430965625*ep- 8086526354207597490976/953808310062277486144453125*ep^2- 13470447600318753590385639736672/1595908749912325223402634616775390625* ep^3-2764761230526739398154976684264569825312/3814669963671995169238767\ 02376184328466796875*ep^4-253723391629899013232748141118521045330525067\ 46848/4467884769066500989890964315610036028050721763916015625*ep^5- 31376761919231440721579377184594082040017781193730891264256/ 7475649269702496950194621621777715537259270179126147735595703125*ep^6- 37370472819599157241946702297602127390988386550917294077264899672832/ 12508230380185005680888738971248337959380718887749997927835349273681640\ 625*ep^7-43445391613568944148050943222607529234548371552494701730742407\ 428506891144704/2092872760602498036236829695832479398566140999498516160\ 1611307176885395050048828125*ep^8; Fill mnchfac1(24,16)= 512/5791834125+1928539582304/9690876731326415625*ep+ 4233076455188269586288/16214741271058717264455703125*ep^2+ 7151857259858219788871659235936/27130448748509528797844788485181640625* ep^3+1482939125469174701963423585027682142256/6484938938242391787705903\ 940395133583935546875*ep^4+13707860178003829175849276299278965120913963\ 021824/75954041074130516828146393365370612476862269986572265625*ep^5+ 17037554136969949091008784064515771869768269876400411276928/ 127086037584942448153308567570221164133407593045144511505126953125*ep^6 +20362129137827666435591163280637720477858253376191314547875199382016/ 21263991646314509657510856251122174530947222109174996477320093765258789\ 0625*ep^7+2372680426060885428160725224200203718712558395222457587929395\ 2522469405495552/355788369302424666160261048291521497756243969914747747\ 227392222007051715850830078125*ep^8; Fill mnchfac1(24,18)= -16/5791834125-61940058472/9690876731326415625*ep-138761007386736375184/ 16214741271058717264455703125*ep^2-238006441580881033030299665848/ 27130448748509528797844788485181640625*ep^3-498974865189540813194347336\ 44664484608/6484938938242391787705903940395133583935546875*ep^4- 464896762271884549775772339295584685219758288832/7595404107413051682814\ 6393365370612476862269986572265625*ep^5-5810400447251276799619002399723\ 98698627315835525865896704/12708603758494244815330856757022116413340759\ 3045144511505126953125*ep^6-6970786720396100895055715783898339898366796\ 13385937977494921340288/21263991646314509657510856251122174530947222109\ 1749964773200937652587890625*ep^7-8143594838757948378074554658813533700\ 42775601422998927966062928309557927936/35578836930242466616026104829152\ 1497756243969914747747227392222007051715850830078125*ep^8; Fill mnchfac1(24,20)= 8/86877511875+31862400716/145363150969896234375*ep+72934640903779435052/ 243221119065880758966835546875*ep^2+127138819971262290521514472544/ 406956731227642931967671827277724609375*ep^3+26974726419177199367947256\ 852787753824/97274084073635876815588559105927003759033203125*ep^4+ 253510923106059000447337558037496898864952866496/1139310616111957752422\ 195900480559187152934049798583984375*ep^5+31879826206860384838051402982\ 6887724705598956463592690112/190629056377413672229962851355331746200111\ 3895677167672576904296875*ep^6+3841001456377535294669126526895899877545\ 10794826202960621514020864/31895987469471764486266284376683261796420833\ 16376249471598014064788818359375*ep^7+450024743866769626524429289804593\ 609767097135043378848826806737484673783808/5336825539536369992403915724\ 372822466343659548721216208410883330105775737762451171875*ep^8; Fill mnchfac1(24,22)= -2/608142583125-8204628254/1017542056789273640625*ep- 19214228474766974288/1702547833461165312767848828125*ep^2- 34081075015282440599196185936/2848697118593500523773702790944072265625* ep^3-51278938110976877572771554928190645792/476643011960815796396383939\ 6190423184192626953125*ep^4-9929469101267174259957074014856473052081788\ 832/1139310616111957752422195900480559187152934049798583984375*ep^5- 88006542114818516629293318902134755718649435660641276928/ 13344033946418957056097399594873222234007797269740173708038330078125* ep^6-106543053583994131868855898486166688963639706809450459000199382016/ 22327191228630235140386399063678283257494583214633746301186098453521728\ 515625*ep^7-12523957646809439070706171138492032133782555581695837971804\ 3725820905495552/373577787767545899468274100706097572644056168410485134\ 58876183310740430164337158203125*ep^8; Fill mnchfac1(24,24)= 1/7905853580625+4231021552/13228046738260557328125*ep+ 10151678126460910744/22133121834995149065982034765625*ep^2+ 18347133858726828484613167168/37033062541715506809058136282272939453125 *ep^3+28000881410575482659056990331383145296/61963591554906053531529912\ 150475501394504150390625*ep^4+54795804569315211501470196008285538573907\ 54816/14811038009455450781488546706247269432988142647381591796875*ep^5+ 48940109892253114734625888300797575093534786728536600064/ 173472441303446441729266194733351889042101364506622258204498291015625* ep^6+59570482315445991780151205664616625818352849952479349312591966208/ 29025348597219305682502318782781768234742958179023870191541927989578247\ 0703125*ep^7+7028695161887628668212528348419838019018149096727417927472\ 1094956771442176/485651124097809669308756330917926844437273018933630674\ 965390383039625592136383056640625*ep^8; Fill mnchfac1(25,0)= 16777216/13+17712055548116992/7250518275*ep+34491779685453570345140224/ 12131541982178994375*ep^2+53593899818198107634118071655497728/ 20298453887473505316244546875*ep^3+733688319219147658390615420291054329\ 89679616/33963302507393410124709401881449609375*ep^4+930412045105300862\ 62166663638758767230080445615562752/56827279732894440628563587862869948\ 368857421875*ep^5+16069977079718367584102878631428363160574577275994006\ 292180992/13583315282040272321647344421955167733957379500244140625*ep^6 +1319699927027973299572795714202637408872990954968636427644582996318535\ 68/159092891495224249910438132736054642507747283145403129217529296875* ep^7+151906886673872866980121818233624824740160979903233010193616324985\ 006082342916096/2661936732020112690458766449214553700540800397370795855\ 30895988616943359375*ep^8; Fill mnchfac1(25,2)= -8388608/325-9043171637460992/181262956875*ep- 17851129977077916838068224/303288549554474859375*ep^2- 27991687854897857821366825432137728/507461347186837632906113671875*ep^3 -38557839754865374916996972737086095287279616/8490825626848352531177350\ 47036240234375*ep^4-491011959948389470172409917481478713454600280155627\ 52/1420681993322361015714089696571748709221435546875*ep^5- 8504451114212946329673763558460208400409407457437244532180992/ 339582882051006808041183610548879193348934487506103515625*ep^6- 69969289405772039353109846469644301856624979906257884610138886031853568/ 3977322287380606247760953318401366062693682078635078230438232421875* ep^7-806363382125547171375723748390641069241827285359103258281495770475\ 37778342916096/66548418300502817261469161230363842513520009934269896382\ 72399715423583984375*ep^8; Fill mnchfac1(25,4)= 524288/975+577382072614912/543788870625*ep+1155948693463060153278464/ 909865648663424578125*ep^2+1830069213305311216515905477931008/ 1522384041560512898718341015625*ep^3+2537451045021249702792224781605490\ 404427776/2547247688054505759353205141108720703125*ep^4+324572701096439\ 9753322113371825958228491643393334272/426204597996708304714226908971524\ 6127664306640625*ep^5+5638540229469059942115710396620679429583699525021\ 26069414912/1018748646153020424123550831646637580046803462518310546875* ep^6+464825017713634552553250271470578823251001540119681806985028774328\ 5248/119319668621418187432828599552040981880810462359052346913146972656\ 25*ep^7+536383097343946847878661852397478965226232260836852023240646142\ 8900901522989056/199645254901508451784407483691091527540560029802809689\ 14817199146270751953125*ep^8; Fill mnchfac1(25,6)= -262144/22425-295047825145856/12507144024375*ep- 599438390024697636524032/20926909919258765296875*ep^2- 958642355832695553893071148591104/35014832955891796670521843359375*ep^3 -1338464525053976141924670515472327543897088/58586696825253632465123718\ 245500576171875*ep^4-17202336877498558904915464910546424699027952879375\ 36/98027057539242910084272189063450660936279052734375*ep^5- 299804583079235568194116179027981619713711523850836076025856/ 23431218861519469754841669127872664341076479637921142578125*ep^6- 2476795693181683861310232662282080075693354453464396634284173718836224/ 274435237829261831095505778969694258325864063425820397900238037109375* ep^7-286209661484871509288865114187747634580167685362469066662522964179\ 1889763273728/459184086273469439104137212489510513343288068546462285040\ 795580364227294921875*ep^8; Fill mnchfac1(25,8)= 65536/246675+75423389732864/137578584268125*ep+155595877215481169271808/ 230196009111846418265625*ep^2+251494338097322514320018965605376/ 385163162514809763375740276953125*ep^3+35374337910720381469773665028558\ 2324361472/644453665077789957116360900700506337890625*ep^4+456962157967\ 642655587386481337432281235836903542784/1078297632931672010926994079697\ 957270299069580078125*ep^5+79915999631938507332753634980409489638730640\ 783972307172864/2577434074767141673032583604065993077518412760171325683\ 59375*ep^6+661744660119622125617556020348355346558967399502251894044001\ 626694656/3018787616121880142050563568666636841584504697684024376902618\ 408203125*ep^7+76585273851897231071745406784390078896531171160778423932\ 8538852215238152421632/505102494900816383014550933738461564677616875401\ 1085135448751384006500244140625*ep^8; Fill mnchfac1(25,10)= -32768/5180175-38581969528832/2889150269630625*ep- 80871996576469041288704/4834116191348774783578125*ep^2- 132190728269687918905454294924288/8088426412811005030890545816015625* ep^3-26772017331997966959682467740219443710848/193336099523336987134908\ 2702101519013671875*ep^4-2434126944395342510016950807108360659360597779\ 05792/22644250291565112229466875673657102676280461181640625*ep^5- 299100154639266467635805054724526805895980390009819406141824/ 37888280899076982593578978979770098239520667574518487548828125*ep^6- 354703441458353123865790104609535439179221980705058068271241935916928/ 63394539938559482983061834941999373673274598651364511914954986572265625 *ep^7-41118772952870793531468582294157235537308552581909784393830060537\ 4784629462016/106071523929171440433055696085076928582299543834232787844\ 423779064136505126953125*ep^8; Fill mnchfac1(25,12)= 4096/25900875+4936969740544/14445751348153125*ep+ 10522025602754048781568/24170580956743873917890625*ep^2+ 17404111867435445105731789948096/40442132064055025154452729080078125* ep^3+507786533476804764497124361201045329088/13809721394524070509636305\ 01501085009765625*ep^4+325081721299169868303589631303078712259514036352\ 64/113221251457825561147334378368285513381402305908203125*ep^5+ 40107147362002255999627000921177563352768017670297230380608/ 189441404495384912967894894898850491197603337872592437744140625*ep^6+ 47693287161982395072260578038066234792893687402986254613403128638976/ 316972699692797414915309174709996868366372993256822559574774932861328125 *ep^7+55388478308351294691639904021085731510400881350242874284383142334\ 991209820672/5303576196458572021652784804253846429114977191711639392221\ 18895320682525634765625*ep^8; Fill mnchfac1(25,14)= -2048/492116625-2528602527872/274469275614909375*ep- 5483689062573953129984/459241038178133604439921875*ep^2- 9184965906542946023002847716448/768400509217045477934601852521484375* ep^3-1892803641883637217461370864686853982208/1836692945471701377781628\ 56699644306298828125*ep^4-174208875035242472955120734266124632484225366\ 59232/2151203777698685661799353188997424754246643812255859375*ep^5- 21587708861701796201291997794954719362118261470407146325504/ 3599386685412313346390003003078159332754463419579256317138671875*ep^6- 25747721446786521272459761188550269973765080108405055073385764933888/ 60224812941631508833908743194899404989610868718796286319207237243652343\ 75*ep^7-299616601042509725989735441485961384661433655805809087969927649\ 50224460507136/10076794773271286841140291128082308215318456664252114845\ 220259011092967987060546875*ep^8; Fill mnchfac1(25,16)= 512/4429049625+1944045041504/7410670441602553125*ep+ 4293476208479796712688/12399508030809607319877890625*ep^2+ 7287826067251574594606357176736/20746813748860227904234250018080078125* ep^3+1516380233401059269544231645110564979056/4959070952773593720010397\ 130890396270068359375*ep^4+14052355347628595977625339906445914877772590\ 209024/58082501997864512868582536102930468364659382930908203125*ep^5+ 17497023431593976805435203706405435625696190418249136435328/ 97183440506132460352530081083110301984370512328639920562744140625*ep^6+ 20937233240844703021110642222202963320880813776501166397697195746816/ 16260699494240507385155360662622839347194934554074997306185954055786132\ 8125*ep^7+2441747318383799862476234301181978585367420404932534150191533\ 5708547084881152/272073458878324744710787860458222321813598329934807100\ 820946993299510135650634765625*ep^8; Fill mnchfac1(25,18)= -256/75293843625-997218891952/125981397507243403125*ep- 2244887703338629936744/210791636523763324437924140625*ep^2- 3864862345639988856622062742168/352695833730623874371982250307361328125 *ep^3-812531917089842057090928920189967099328/8430420619715109324017675\ 1225136736591162109375*ep^4-7585982324454544041698773314869250793781564\ 283712/987402533963696718765903113749817962199209509825439453125*ep^5- 9495149319561033438660533771273421416230966089628746600064/ 1652118488604251825993011378412875133734298709586878649566650390625* ep^6-114031607878250359620244743911450012803520675387540924548093419662\ 08/27643189140208862554764113126458826890231388741927495420516121894836\ 42578125*ep^7-133310735921663588700081940068637345099786096824514148877\ 17415531649771442176/46252488009315206600833936277897794708311716088917\ 20713956098886091672306060791015625*ep^8; Fill mnchfac1(25,20)= 8/75293843625+31999688636/125981397507243403125*ep+73499101218509509892/ 210791636523763324437924140625*ep^2+128463100848089237871361181024/ 352695833730623874371982250307361328125*ep^3+39015379129390238080542234\ 00222114272/12043458028164441891453821603590962370166015625*ep^4+ 257054069153340815768955484004441647654117754816/9874025339636967187659\ 03113749817962199209509825439453125*ep^5+323604789689062266525971775272\ 039722345976704632081657152/1652118488604251825993011378412875133734298\ 709586878649566650390625*ep^6+39018967521835079974200731201285990207920\ 5427456149791229227423744/276431891402088625547641131264588268902313887\ 4192749542051612189483642578125*ep^7+4574000502968376630852121584010234\ 49903754477325404804026432910604253063168/46252488009315206600833936277\ 89779470831171608891720713956098886091672306060791015625*ep^8; Fill mnchfac1(25,22)= -4/1129407654375-16446030058/1889720962608651046875*ep- 38584046632127498176/3161874547856449866568862109375*ep^2- 68535463273732197822682393072/5290437505959358115579733754610419921875* ep^3-14747509352323477015594779484270299712/126456309295726639860265126\ 8377051048867431640625*ep^4-1400422592303363076797360013947912573918447\ 64448/14811038009455450781488546706247269432988142647381591796875*ep^5- 177423609611020992235723560332763853504216033863629971456/ 24781777329063777389895170676193127006014480643803179743499755859375* ep^6-214885808746116528265061298807057172594860269775402095089682271232/ 41464783710313293832146169689688240335347083112891243130774182842254638\ 671875*ep^7-25266977104613995036515040213890870539601360107928675641200\ 1517940759189504/693787320139728099012509044168466920624675741333758107\ 09341483291375084590911865234375*ep^8; Fill mnchfac1(25,24)= 1/7905853580625+4231021552/13228046738260557328125*ep+ 10151678126460910744/22133121834995149065982034765625*ep^2+ 18347133858726828484613167168/37033062541715506809058136282272939453125 *ep^3+28000881410575482659056990331383145296/61963591554906053531529912\ 150475501394504150390625*ep^4+54795804569315211501470196008285538573907\ 54816/14811038009455450781488546706247269432988142647381591796875*ep^5+ 48940109892253114734625888300797575093534786728536600064/ 173472441303446441729266194733351889042101364506622258204498291015625* ep^6+59570482315445991780151205664616625818352849952479349312591966208/ 29025348597219305682502318782781768234742958179023870191541927989578247\ 0703125*ep^7+7028695161887628668212528348419838019018149096727417927472\ 1094956771442176/485651124097809669308756330917926844437273018933630674\ 965390383039625592136383056640625*ep^8; Fill mnchfac1(26,0)= 67108864/27+649630401232371712/135528918525*ep+ 3843556378482312345660424192/680299546539114376875*ep^2+180743658470891\ 38731789559108881743872/3414824511684965855894371078125*ep^3+7468254618\ 4320506403371326748725723314168266752/171410175193083202944783373649377\ 60546875*ep^4+285308665580901526549564629704738404621481549505087864832/ 86040872844812405760924392300374553364940048828125*ep^5+148252276811607\ 597936431740727223027010185818920115315444956758016/6169855262224584925\ 5458003136310053809419177085378173828125*ep^6+3659300165689407786848599\ 240628770784228527353312277631012797988010270318592/2167909880746499246\ 068029530753374750486146766719902163961358642578125*ep^7+ 12651887396050122089758234647434420648202222089617828211809246962633110\ 770532506550272/1088201783693462083330844077336178179360848849214717784\ 7240376545121307373046875*ep^8; Fill mnchfac1(26,2)= -16777216/351-165646628713136128/1761875940825*ep- 992869021182976308479131648/8843894105008486899375*ep^2-471027588439038\ 1684697921828195565568/44392718651904556126626824015625*ep^3-1958000776\ 6259352182949778819218946289555980288/222833227751008163828218385744190\ 887109375*ep^4-75107304966838246289844549830396417787583469300600823808/ 1118531346982561274892017099904869193744220634765625*ep^5- 39134540878824355427996869965867437394545897295653160929497698304/ 802081184089196040320954040772030699522449302109916259765625*ep^6- 96771255426559450476358343559154237152033930892306821913483517756998200\ 5248/281828284497044901988843838997938717563199079673587281314976623535\ 15625*ep^7-334979953551207667464296524851006631767571983377110850332858\ 2285914952904420836487168/141466231880150070833009730053703163316910350\ 397913312014124895086576995849609375*ep^8; Fill mnchfac1(26,4)= 8388608/8775+84507609127190528/44046898520625*ep+ 513402251142808971175067648/221097352625212172484375*ep^2+2458220685699\ 909872266034716730605568/1109817966297613903165670600390625*ep^3+ 10283574240209220858405536189237034176480780288/55708306937752040957054\ 59643604772177734375*ep^4+396184253654148331785112741383093866520390000\ 47160823808/27963283674564031872300427497621729843605515869140625*ep^5+ 20703660353367331212131116729703003870777057888570311776377698304/ 20052029602229901008023851019300767488061232552747906494140625*ep^6+ 51295496288154622451322764857523826726143206120099304318863505197238200\ 5248/704570711242612254972109597494846793907997699183968203287441558837\ 890625*ep^7+17778927031210271928593709024306343432173218438445649180337\ 79033571882528268836487168/35366557970037517708252432513425790829227587\ 59947832800353122377164424896240234375*ep^8; Fill mnchfac1(26,6)= -524288/26325-5391380177911808/132140695561875*ep- 33215245518755050561200128/663292057875636517453125*ep^2-16058574702861\ 9713632277089045557248/3329453898892841709497011801171875*ep^3- 676309829249678251199848655980832380285319168/1671249208132561228711637\ 8930814316533203125*ep^4-2617601492353915199566412615108467816415046820\ 499237888/83889851023692095616901282492865189530816547607421875*ep^5- 1372188802814768646866394850862074364218208873352994907440569344/ 60156088806689703024071553057902302464183697658243719482421875*ep^6- 34068634024546022510865556539225168274278308825103161854577915859875913\ 728/2113712133727836764916328792484540381723993097551904609862324676513\ 671875*ep^7-11824373395273509574967968439486746866971545439141523777481\ 0230118053503739413454848/106099673910112553124757297540277372487682762\ 79843498401059367131493274688720703125*ep^8; Fill mnchfac1(26,8)= 262144/605475+2752901188501504/3039235997923125*ep+ 17208424242282188730609664/15255717331139639901421875*ep^2+ 84048492076428854588327707688372224/76577439674535359318431271426953125 *ep^3+356497911782287490022566096607642301634397184/3843873178704890826\ 03676715408729280263671875*ep^4+138660392885050716302538845074032800223\ 4176695737260544/1929466573544918199188729497335899359208780594970703125 *ep^5+729325349394415674296458700758127563923360648171098074625385472/ 1383590042553863169553645720331752956676225046139605548095703125*ep^6+ 18148508205500145619493895525099749007344760084711329056934397000340286\ 464/4861537907574024559307556222714442877965184124369380602683346755981\ 4453125*ep^7+6308265230637322129277868892586546698496139485449427559256\ 0875086931942016976641024/244029249993258872186941784342637956721670354\ 436400463224365444024345317840576171875*ep^8; Fill mnchfac1(26,10)= -65536/6660225-703178198142976/33431595977154375*ep- 4462545422059900213974016/167812890642536038915640625*ep^2- 22030311495404297744336665105478656/842351836419888952502743985696484375 *ep^3-94150983487223421295080994127079981637808896/42282604965753799086\ 40443869496022082900390625*ep^4-368132768357556964903102637998760496059\ 468581216308736/21224132308994100191076024470694892951296586544677734375 *ep^5-194330528298366793986428018610659014675268324837017532625223168/ 15219490468092494865090102923649282523438475507535661029052734375*ep^6- 48475005267229941839799796729086549708182919418940707854156241670391132\ 16/53476916983314270152383118449858871657617025368063186629516814315795\ 8984375*ep^7-1687668412699083943768065123032292103800359541593438632853\ 9506458596057836802265856/268432174992584759405635962776901752393837389\ 8800405095468019884267798496246337890625*ep^8; Fill mnchfac1(26,12)= 32768/139864725+359421571033088/702063515520241875*ep+ 2317184557267464892932608/3524070703493256817228453125*ep^2+ 11569027911845518265656094947708928/17689388564817668002557623699626171\ 875*ep^3+7120116316428773510851087435844011648436864/126847814897261397\ 25921331608488066248701171875*ep^4+195979738057022906699919408289505608\ 761958373134851968/4457067784888761040125965138845927519772283174382324\ 21875*ep^5+727001508571058204571884403955886119727513180090116745509282\ 688/2237265098809596745168245129776444530945455899607742171270751953125 *ep^6+25975240344773331353417635646544253295268329709211043249121608190\ 63022208/11230152566495996732000454874470363048099575327293269192198531\ 006317138671875*ep^7+90592232332227702893147818271259458457498372538529\ 95707927681573969086420461622528/56370756748442799475183552183149368002\ 705851874808507004828417569623768421173095703125*ep^8; Fill mnchfac1(26,14)= -4096/699323625-45955708324096/3510317577601209375*ep- 301182009379201761761536/17620353517466284086142265625*ep^2- 1521718992703559452465003855542976/884469428240883400127881184981308593\ 75*ep^3-944574573781127318092000510949203801012288/63423907448630698629\ 606658042440331243505859375*ep^4-26156949096304498593664736165667554959\ 183875993950656/2228533892444380520062982569422963759886141587191162109\ 375*ep^5-97440046021263062179803634029601281555382094233630966984760896/ 11186325494047983725841225648882222654727279498038710856353759765625* ep^6-349145956269459256680236400427908257905955908632978121427713851254\ 340736/5615076283247998366000227437235181524049787663646634596099265503\ 1585693359375*ep^7-1220031374265025464950315915596915922240787037200811\ 937467042024938105274153874176/2818537837422139973759177609157468400135\ 29259374042535024142087848118842105865478515625*ep^8; Fill mnchfac1(26,16)= 2048/13287148875+23518913080448/66696033974422978125*ep+ 156804441053492876519168/334786716831859397636703046875*ep^2+ 802285493068927876775258663585888/1680491913657678460242974251464486328\ 125*ep^3+502566564312988659998541405893129385633344/1205054241523983273\ 962526502806366293626611328125*ep^4+14007882190719792160187804171970039\ 100526623165581728/4234214395644322988119666881903631143783669015663208\ 0078125*ep^5+5242075034812443795692526079710392053986714262481061721234\ 2848/212540184386911690790983287328762230439818310462735506270721435546\ 875*ep^6+18842195981689399937018748116928565683369087436935945600377227\ 9371728768/106686449381711968954004321307468448956945965609286057325886\ 0445600128173828125*ep^7+6597946821429311550077184654970292818172052144\ 82357096353742406901069335686431488/53552218911020659501424374573991899\ 60257055928106808165458699669114258000011444091796875*ep^8; Fill mnchfac1(26,18)= -512/119584339875-6022507706912/600264305769806803125*ep- 40880583424538365276592/3013080451486734578730327421875*ep^2- 211971581621550334612143732270272/1512442722291910614218676826318037695\ 3125*ep^3-134086167596531257499293116131262095722736/108454881737158494\ 65662738525257296642639501953125*ep^4-376371514229854569249893138017096\ 7154630404903203232/381079295607989068930770019371326802940530211409688\ 720703125*ep^5-14154760103228410683438470291195232826469574180099755828\ 280512/1912861659482205217118849585958860073958364794164619556436492919\ 921875*ep^6-51052772523711902848680557549412014485391855181735303268480\ 978076868992/9601780444354077205860388917672160406125136904835745159329\ 744010401153564453125*ep^7-17918555746544782807652126799538043685933585\ 6179486399571542854149737063970716672/481969970199185935512819371165927\ 09642313503352961273489128297022028322000102996826171875*ep^8; Fill mnchfac1(26,20)= 256/2032933777875+3086842967056/10204493198086715653125*ep+ 21351743757980733581896/51222367675274487838415566171875*ep^2+ 112290319656400544561279958507736/2571152627896248044171750604740664082\ 03125*ep^3+71779649495078114090017346539428225865168/184373298953169440\ 916266554929374042924871533203125*ep^4+20302181983327161878423116777213\ 26738673720012717216/64783480253358141718230903293125556499890135939647\ 08251953125*ep^5+767684252828045149218552981862060061632980793136188996\ 4529856/325186482111974886910204429613006212572922015007985324594203796\ 38671875*ep^6+277931273632602571294266128596118665211646145705156786000\ 19970506308096/16323026755401931249962661160042672690412732738220766770\ 8605648176819610595703125*ep^7+9779925475444558607936000174108249276707\ 5540804863999943107358765766860833575936/819348949338616090371792930982\ 076063919329557000341649315181049374481474001750946044921875*ep^8; Fill mnchfac1(26,22)= -8/2032933777875-98973637508/10204493198086715653125*ep- 698292432376584535628/51222367675274487838415566171875*ep^2- 3728143827628698030611531508248/257115262789624804417175060474066408203\ 125*ep^3-2410201117178919722503048101085575695024/184373298953169440916\ 266554929374042924871533203125*ep^4-68737290123529419116438949433637017\ 683010684673888/6478348025335814171823090329312555649989013593964708251\ 953125*ep^5-261465890566127780030965473188208552278789690817725341361408 /32518648211197488691020442961300621257292201500798532459420379638671875 *ep^6-95056344625837215109216461851290043265792265693149791554506407232\ 9728/163230267554019312499626611600426726904127327382207667708605648176\ 819610595703125*ep^7-33544416089023369153607847033632783373950292820201\ 03024847369590191048690510848/81934894933861609037179293098207606391932\ 9557000341649315181049374481474001750946044921875*ep^8; Fill mnchfac1(26,24)= 4/30494006668125+50825375974/153067397971300734796875*ep+ 366154384680595325884/768335515129117317576233492578125*ep^2+ 1986601562626566082145836024744/385672894184437206625762590711099612304\ 6875*ep^3+1300071268050783868146646261394829985072/27655994842975416137\ 43998323940610643873072998046875*ep^4+374140296809015906866121121177766\ 08499088923521664/97175220380037212577346354939688334749835203909470623\ 779296875*ep^5+14325315017273017009624508659777911855278705590935046408\ 4224/487779723167962330365306644419509318859383022511977986891305694580\ 078125*ep^6+52321985774204912961962154814519583510497859466825014007510\ 4216989184/244845401331028968749439917400640090356190991073311501562908\ 4722652294158935546875*ep^7+1852310734008166647692157420915971542045939\ 279969711444864570318071354071532544/1229023424007924135557689396473114\ 0958789943355005124739727715740617222110026264190673828125*ep^8; Fill mnchfac1(26,26)= -1/213458046676875-13064886106/1071471785799105143578125*ep- 96222908034165970396/5378348605903821223033634448046875*ep^2- 531150355374104609737853307736/2699710259291060446380338134977697286132\ 8125*ep^3-2465564489559828963828028953611730506176/13551437473057953907\ 3455917873089921549780576904296875*ep^4-1462502302973880420497516516740\ 466640748181173888/9717522038003721257734635493968833474983520390947062\ 3779296875*ep^5-3948386819989313335207424675985515930346418418766734952\ 9856/341445806217573631255714651093656523201568115758384590823913986206\ 0546875*ep^6-1449615939495735387112022937264237077869327258337978829664\ 86506308096/17139178093172027812460794218044806324933369375131805109403\ 593058566059112548828125*ep^7-51505251962808897696665435303651033877149\ 4379408261078072974418192287833575936/860316396805546894890382577531179\ 86711529603485035873178094010184320554770183849334716796875*ep^8; Fill mnchfac1(27,0)= 33554432/7+47229678395588608/5019589575*ep+1979928360456130264959287296/ 176373956510140764375*ep^2+9389791444050161230739377115371995136/ 885324873399805962639281390625*ep^3+39027799523170633104694270841561213\ 545231384576/4443967505005860817086976353872752734375*ep^4+ 149705299324728350277192879486515966589568437057794031616/2230689295976\ 6179271350768374171180502021494140625*ep^5+5460376526794955444973176337\ 54951718092392161385121222673031520256/11197144735148320790805341309922\ 9356913390358414204833984375*ep^6+2755659524876626017235941120562502682\ 56580090635292908704179426055627644928/80292958546166638743260352990865\ 731499486917285922302368939208984375*ep^7+66774061157931003375068480668\ 91806037989580425893341468814650505180946002359738638336/ 28212638836497165123392253856863878724170155350011201826178754005870056\ 15234375*ep^8; Fill mnchfac1(27,2)= -16777216/189-24060419824943104/135528918525*ep- 1021275810882281951318376448/4762096825773800638125*ep^2-48847618484511\ 68542593702628956602368/23903771581794760991260597546875*ep^3- 20422029378283213423197924056964334712387289088/11998712263515824206134\ 8361554564323828125*ep^4-7864932395005210660143289762318316406030680592\ 4031684608/602286109913686840326470746102621873554580341796875*ep^5- 287640579176061823174708492913452617884441662704331636744960380928/ 3023229078490046613517442153679192636661539677183530517578125*ep^6- 14542232890298009460340160711115332533458211899387041938461717367275677\ 2864/216790988074649924606802953075337475048614676671990216396135864257\ 8125*ep^7-3527952052079340557091432895155300711088581418145977775974262\ 880825144871922515283968/7617412485854234583315908541353247255525941944\ 5030244930682635815849151611328125*ep^8; Fill mnchfac1(27,4)= 4194304/2457+6130784542130176/1761875940825*ep+ 263604266382867966991040512/61907258735059408295625*ep^2+12720822016305\ 21635868028390794452992/310749030563331892886387768109375*ep^3+ 5351096981411096217538523375250155301422620672/155983259425705714679752\ 8700209336209765625*ep^4+2069541985761706924123815917869192534462100799\ 6175255552/7829719428877928924244119699334084356209544443359375*ep^5+ 75905626092767095220806824147807483340208026986221099672462405632/ 39301978020370605975726747997829504276600015803385896728515625*ep^6+ 38449071728047780211693227368893785742884509916551968036049503340660668\ 416/2818282844970449019888438389979387175631990796735872813149766235351\ 5625*ep^7+9339491636852871049869946207270185425175633166458313151818892\ 27055092208501951803392/99026362316105049583106811037592214321837245278\ 5393184098874265606038970947265625*ep^8; Fill mnchfac1(27,6)= -2097152/61425-446506522247168/6292414074375*ep- 136195040980547108025024512/1547681468376485207390625*ep^2-663386829130\ 166899583566670579412992/7768725764083297322159694202734375*ep^3- 2808745675173311792255651411663392877281820672/389958148564264286699382\ 17505233405244140625*ep^4-109116599492055863082443209317787466841478272\ 53375255552/195742985721948223106102992483352108905238611083984375*ep^5 -40143695227462643232988449269988176992596583550708282489502405632/ 982549450509265149393168699945737606915000395084647418212890625*ep^6- 20375992287256740035413774347595744377758213032400279896027387797460668\ 416/7045707112426122549721095974948467939079976991839682032874415588378\ 90625*ep^7-495612735012953967029966781870955598200810454965174020605035\ 338244278523393951803392/2475659057902626239577670275939805358045931131\ 9634829602471856640150974273681640625*ep^8; Fill mnchfac1(27,8)= 131072/184275+199262839463936/132140695561875*ep+ 8803920215517798507333632/4643044405129455622171875*ep^2+ 43303012909508135166238019420966912/23306177292249891966479082608203125 *ep^3+184603411038609380918400682156217598492411392/1169874445692792860\ 09814652515700215732421875*ep^4+720588470056967626388403724478848266876\ 907700831555072/587228957165844669318308977450056326715715833251953125* ep^5+2659691717223213300125600005886144356554875792891404850195965952/ 2947648351527795448179506099837212820745001185253942254638671875*ep^6+ 13529671418612098797687883251781032429498165136048838916752123766253045\ 76/21137121337278367649163287924845403817239930975519046098623246765136\ 71875*ep^7+329566033684858115421071277424397256957211592077807698695717\ 20195323052200298061312/74269771737078787187330108278194160741377933958\ 904488807415569920452922821044921875*ep^8; Fill mnchfac1(27,10)= -65536/4238325-101674673287168/3039235997923125*ep- 4557288625607446919689216/106790021317977479309953125*ep^2- 22646102910204729261398916270201856/536042077721747515229018899988671875 *ep^3-97244059522889073942514056296639369660260096/26907112250934235782\ 25737007861104961845703125*ep^4-381517072742039181430864805990623006807\ 202236053607936/13506266014814427394321106481351295514461464164794921875 *ep^5-1413109298655974325686795766568503864917637304228805883214629376/ 67795912085139295308128640296255894877135027260840671856689453125*ep^6- 720540892072648978621568664110923643361167762677833358421971536780095488 /4861537907574024559307556222714442877965184124369380602683346755981445\ 3125*ep^7-1757907285169783980105628419972530122815871654430543210290130\ 2160217033693778829056/170820474995281210530859249039846569705169248105\ 4803242570558108170417224884033203125*ep^8; Fill mnchfac1(27,12)= 16384/46621575+25952700500992/33431595977154375*ep+ 1180772307953913413672704/1174690234497752272409484375*ep^2+ 5930934471526371104064463952116864/5896462854939222667519207899875390625 *ep^3+25664235646325991518880478773342074674887424/29597823476027659360\ 483107086472154580302734375*ep^4+10123490135372076508861214999409560015\ 3934033004720384/148568926162958701337532171294864250659076105812744140\ 625*ep^5+376375399912234042326236282520703174687866401843937851045311744 /745755032936532248389415043258814843648485299869247390423583984375* ep^6+192403080379759036303579727019469069134659590472631009826628921096\ 371072/5347691698331427015238311844985887165761702536806318662951681431\ 57958984375*ep^7+470206327998377260924091047404486664023254462973869055\ 2008611159513435360871953664/187902522494809331583945173943831226675686\ 17291602835668276139189874589473724365234375*ep^8; Fill mnchfac1(27,14)= -8192/979053075-92792569743872/4914444608641693125*ep- 612566183297137674042752/24668494924452797720599171875*ep^2- 3111887751366797523268648454320832/123825719953723676017903365897383203\ 125*ep^3-13575946361988279990341912134559071242802112/62155429299658084\ 6570145248815915246186357421875*ep^4-7694640428867099183279788692341513\ 692845980419950656/4457067784888761040125965138845927519772283174382324\ 21875*ep^5-201062345582821961203412221803111702168043012720848403813326\ 272/15660855691667177216177715908435111716618191297254195198895263671875 *ep^6-72147032674880331351670535137721256115050921450207344072352326198\ 0385152/786110679654719771240031841212925413366970272910528843453897170\ 44219970703125*ep^7-252348330336427376920397479750432703747389831768153\ 7974049075952285609831077119232/394595297239099596326284865282045576018\ 940963123659549033798922987366378948211669921875*ep^8; Fill mnchfac1(27,16)= 1024/4895265375+11856074204224/24572223043208465625*ep+ 79546404235939669823584/123342474622263988602995859375*ep^2+ 408950483992422620757351273566944/6191285997686183800895168294869160156\ 25*ep^3+1799631474555513447100127969690364163700704/3107771464982904232\ 850726244079576230931787109375*ep^4+10263544206692497768945172746700011\ 25420502175483552/22285338924443805200629825694229637598861415871911621\ 09375*ep^5+269359504804390308965363059006957949960450336640687708477754\ 24/78304278458335886080888579542175558583090956486270975994476318359375 *ep^6+96944161654816814235155996157558750034237892673293362801968279260\ 128384/3930553398273598856200159206064627066834851364552644217269485852\ 21099853515625*ep^7+339766408080515882613971881528601977640331860666833\ 858998007132238442686359039744/1972976486195497981631424326410227880094\ 704815618297745168994614936831894741058349609375*ep^8; Fill mnchfac1(27,18)= -512/93010042125-6063301831712/466872237820960846875*ep- 41375059310840359101392/2343507017823015783456921328125*ep^2- 215406074437353465696286355267072/1176344339560374922170081976025140429\ 6875*ep^3-956723636521831115497390253535357921427952/590476578346751804\ 24163798637511948387703955078125*ep^4-549285180199595360080802404675998\ 228246291816860576/4234214395644322988119666881903631143783669015663208\ 0078125*ep^5-1448378066914705213357129865334926611457856412436323256213\ 3312/148778129070838183553688301130133561307872817323914854389505004882\ 8125*ep^6-5229853527232614748766515588086166528146838402070577012109913\ 5034033792/746805145671983782678030249152279142698621759265002401281202\ 3119200897216796875*ep^7-1836998978529283684611436490564232602445868851\ 29334364648593866422292569101673472/37486553237714461650997062201794329\ 721799391496747657158210897683799806000080108642578125*ep^8; Fill mnchfac1(27,20)= 128/837090379125+1551520317128/4201850140388647621875*ep+ 10776431228224334372048/21091563160407142051112291953125*ep^2+ 56856699823166106122696383938968/10587099056043374299530737784226263867\ 1875*ep^3+255036314558306052751393698923297325304688/531428920512076623\ 817474187737607535489335595703125*ep^4+14748143493722656852853628273912\ 7112448277681067744/381079295607989068930770019371326802940530211409688\ 720703125*ep^5+39088381624655743022590494802220956557400072323213502826\ 54528/13390031616375436519831947101712020517708553559152336895055450439\ 453125*ep^6+14164676223119000931027812510233860766934058739275601026315\ 671096027648/6721246311047854044102272242370512284287595833385021611530\ 8208072808074951171875*ep^7+4987502230227756495183049569251828552324137\ 1613450560604568102344059209265005568/337378979139430154858973559816148\ 967496194523470728914423898079154198254000720977783203125*ep^8; Fill mnchfac1(27,22)= -64/14230536445125-794657436964/71431452386607009571875*ep- 5622854095658091541924/358556573726921414868908963203125*ep^2- 30088609899836665359479802901384/17998068395273736309202254233184648574\ 21875*ep^3-136402420372062551060473816877345243797744/90342916487053026\ 04897061191539328103318705126953125*ep^4-794943659333559128571341881406\ 39028824500094239072/64783480253358141718230903293125556499890135939647\ 08251953125*ep^5-211872517732526711551752207223857030554524457165495417\ 5569664/227630537478382420837143100729104348801045410505589727215942657\ 470703125*ep^6-77079340417002026535810871094487612316211160956792445412\ 04435848052224/11426118728781351874973862812029870883288912916754536739\ 60239537237737274169921875*ep^7-272134326429332502709330690975389007542\ 62421965768588445984371414773088611677184/57354426453703126326025505168\ 74532447435306899002391545206267345621370318012256622314453125*ep^8; Fill mnchfac1(27,24)= 2/14230536445125+25460493602/71431452386607009571875*ep+ 183701767255499948132/358556573726921414868908963203125*ep^2+ 997900776608944786299770585912/1799806839527373630920225423318464857421\ 875*ep^3+4575641407573871164456114981038008685392/903429164870530260489\ 7061191539328103318705126953125*ep^4+2689268952456623435173809676750502\ 785372352391296/6478348025335814171823090329312555649989013593964708251\ 953125*ep^5+72115985840593163825190939980277609898429183982719196509952/ 227630537478382420837143100729104348801045410505589727215942657470703125 *ep^6+26349747947289939898398369496461455075391437428968978309724683543\ 6032/114261187287813518749738628120298708832889129167545367396023953723\ 7737274169921875*ep^7+9330853451542229658518940434989880981243042479069\ 66818013196070858936944525312/57354426453703126326025505168745324474353\ 06899002391545206267345621370318012256622314453125*ep^8; Fill mnchfac1(27,26)= -1/213458046676875-13064886106/1071471785799105143578125*ep- 96222908034165970396/5378348605903821223033634448046875*ep^2- 531150355374104609737853307736/2699710259291060446380338134977697286132\ 8125*ep^3-2465564489559828963828028953611730506176/13551437473057953907\ 3455917873089921549780576904296875*ep^4-1462502302973880420497516516740\ 466640748181173888/9717522038003721257734635493968833474983520390947062\ 3779296875*ep^5-3948386819989313335207424675985515930346418418766734952\ 9856/341445806217573631255714651093656523201568115758384590823913986206\ 0546875*ep^6-1449615939495735387112022937264237077869327258337978829664\ 86506308096/17139178093172027812460794218044806324933369375131805109403\ 593058566059112548828125*ep^7-51505251962808897696665435303651033877149\ 4379408261078072974418192287833575936/860316396805546894890382577531179\ 86711529603485035873178094010184320554770183849334716796875*ep^8; Fill mnchfac1(28,0)= 268435456/29+78000310823201800192/4221474832575*ep+ 13705259305863474244225322713088/614512060760831871763125*ep^2+ 1900396737535984816840884348536253822533632/ 89453351683298308723067654463234375*ep^3+230382762154814676375467511520\ 887291624131368898920448/13021554235190493870361816850537251196417578125 *ep^4+25729816395581576455947799313251900181505964546260353639004700672/ 1895522878788519733952317742889467458386124622586943359375*ep^5+ 27289635522302797832288155253916947310783942972000450169484212297924667\ 31008/27592765956468442630063600298956953571108538692545868211719262695\ 3125*ep^6+2800828051485761081191828848740882363484703948098554678162075\ 97749855865864298279616512/40166264498746130548282320597807250180595678\ 184230337382612272117102337646484375*ep^7+28150679443258090473109277926\ 018153850090401430193370680500093366288487300774417826639404828704768/ 58469267137933616466806621482572701851121130716049083968103070741960321\ 24494267120361328125*ep^8; Fill mnchfac1(28,2)= -33554432/203-1417783381204140032/4221474832575*ep- 1764753420662213284351303745536/4301584425325823102341875*ep^2- 246724299274542653053615298304309506146304/6261734617830881610614735812\ 42640625*ep^3-30080530515622997281242807109947911026735570880659456/ 91150879646333457092532717953760758374923046875*ep^4-337261153531248372\ 0626053928112633307563318893937998542712029184/132686601515196381376662\ 24200226272208702872358108603515625*ep^5-358654181364220663685421256043\ 866028303257698614289182020678093854557003776/1931493616952790984104452\ 020926986749977597708478210774820348388671875*ep^6-52678491067570939629\ 52820530268487251593414862383034169162288340614533171911041277952/ 40166264498746130548282320597807250180595678184230337382612272117102337\ 646484375*ep^7-37105426237346558482632269933439863428149108072927138853\ 62381286309333421170120734119893993578496/40928486996553531526764635037\ 800891295784791501234358777672149519372224871459869842529296875*ep^8; Fill mnchfac1(28,4)= 16777216/5481+721813528789385216/113979820479525*ep+ 909617864250871366671252717568/116142779483797223763230625*ep^2+ 128266273419130427778935858604212079460352/1690668346814338034865978669\ 3551296875*ep^3+15731801458459062874861724605820545630008503263510528/ 2461073750451003341498383384751540476122922265625*ep^4+1771122375482489\ 131407724661446651322662802862307638412218785792/3582538240910302297169\ 88053406109349634977553668932294921875*ep^5+188875939383910813440224908\ 531820882541963917016391549687688903358380658688/5215032765772535657082\ 0204565028642249395138128911690920149406494140625*ep^6+ 27793970993716396196476026580396830071484180436707111569672929217839141\ 58726555672576/10844891414661455248036226561407957548760833109742191093\ 30531347161763116455078125*ep^7+196016541701816487305547773776961433437\ 3171347610043367890038423515038512826144032553764752642048/ 11050691489069453512226451460206240649861893705333276869971480370230500\ 71529416485748291015625*ep^8; Fill mnchfac1(28,6)= -4194304/71253-26258298598326272/211676809461975*ep- 234608164454328735642686881792/1509856133289363908921998125*ep^2- 33380086208576460347295268416750675058688/21978688508586394453257722701\ 6166859375*ep^3-4119837889599764895736232768953401979543098167468032/ 31993958755863043439478984001770026189597989453125*ep^4-465846630959792\ 453736529939313491466314995641188990371886082048/4657299713183392986320\ 844694279421545254708197696119833984375*ep^5-49827154379713270548642654\ 399168610951407143016167049098435601437146243072/6779542595504296354206\ 62659345372349242136795675851981961942284423828125*ep^6- 73470226426935718736090349282997264628033808055102998213895286956520862\ 0367156434944/140983588390598918224470945298303448133890830426648484212\ 96907513102920513916015625*ep^7-518835372591865762375965854667159539069\ 800581286807782427624843462360734461132452599500066086912/ 14365898935790289565894386898268112844820461816933259930962924481299650\ 929882414314727783203125*ep^8; Fill mnchfac1(28,8)= 2097152/1781325+93648493249429504/37043441655845625*ep+ 121121107470650236830707105792/37746403332234097723049953125*ep^2+ 17395297872399901608477004384985194098688/54946721271465986133144306754\ 04171484375*ep^3+2161206961590891590428243191768898111291015018668032/ 799848968896576085986974600044250654739949736328125*ep^4+24550742692312\ 6342085296753657468481809159160377989587166082048/116432492829584824658\ 021117356985538631367704942402995849609375*ep^5+26343099153947978477562\ 844840295136893832757162784491675006807038986243072/1694885648876074088\ 5516566483634308731053419891896299549048557110595703125*ep^6+ 38926378831013064621125555209306033607267728541715366969303423617312446\ 4266356434944/352458970976497295561177363245758620334727076066621210532\ 422687827573012847900390625*ep^7+27528371526019237509589638406319099368\ 8407118278464153196713304319523519293358192106472066086912/ 35914747339475723914735967245670282112051154542333149827407311203249127\ 3247060357868194580078125*ep^8; Fill mnchfac1(28,10)= -131072/5343975-852371667361792/15875760709648125*ep- 7823395382930901194566387712/113239209996702293169149859375*ep^2- 1134657649660520077732580028467088621568/164840163814397958399432920262\ 12514453125*ep^3-141957516581658579287876649573624941830158927652352/ 2399546906689728257960923800132751964219849208984375*ep^4- 16205234417672867554634353773111996056245312858677300630358528/ 349297478488754473974063352070956615894103114827208987548828125*ep^5- 17447339115616684769472758028915657154741195100062336784156491596938577\ 92/50846569466282222656549699450902926193160259675688898647145671331787\ 109375*ep^6-25840758176853961630097695398081053656350770146710262474615\ 138309194369279524752384/1057376912929491886683532089737275861004181228\ 199863631597268063482719038543701171875*ep^7-18302362623428287063304580\ 037470346513171365456964199365411566754552931709372101578667008620032/ 10774424201842717174420790173701084633615346362699944948222193360974738\ 19741181073604583740234375*ep^8; Fill mnchfac1(28,12)= 65536/122911425+3042555188867072/2555997474253348125*ep+ 4046493030439453208866272256/2604501829924152742890446765625*ep^2+ 592939272338791215948109044484611728384/3791323767731153043186957166028\ 87832421875*ep^3+74731499243488271618484688052859726572116536952576/ 55189578853863749933101247403053295177056531806640625*ep^4+ 8575596434109272443868329469424284560328032645973229880868864/ 8033842005241352901403457097632002165564371641025806713623046875*ep^5+ 926642314882651641635907942273793082993356515274839440196239684569463296 /1169471097724491121100643087370767302442685972540844668884350440631103\ 515625*ep^6+13758202436269377959972170333377295605181076393800009852838\ 181201622767393765204992/2431966899737831339372123806395734480309616824\ 8596863526737165460102537886505126953125*ep^7+9760715550519664680105379\ 058717591706802049256824717777954364905967344250658047738204938012416/ 24781175664238249501167817399512494657315296634209873380911044730241897\ 854047164692905426025390625*ep^8; Fill mnchfac1(28,14)= -16384/1352025675-776125730413568/28115972216786829375*ep- 1047571167743066070097694464/28649520129165680171794914421875*ep^2- 155166315451404006305025424054237421696/4170456144504268347505652882631\ 766156640625*ep^3-19709568691031151545789183684673364711169292972544/ 607085367392501249264113721433586246947621849873046875*ep^4- 2274312036724961045725499054881936992570480425260942746818816/ 88372262057654881915438028073952023821208088051283873849853515625*ep^5- 246709091298181424800556057734774361190507103539894426009582839461268224 /1286418207496940233210707396107844032686954569794929135772785484694213\ 8671875*ep^6-3672751733089449465286795905465418534112577327871279671420\ 915529371287544614066048/2675163589711614473309336187035307928340578507\ 34565498794108820061127916751556396484375*ep^7-261029017768122224115924\ 9937305855234907747988359220288727522688524659127048340980304832533504/ 27259293230662074451284599139463744123046826297630860719002149203266087\ 6394518811621959686279296875*ep^8; Fill mnchfac1(28,16)= 8192/28392539175+2773225478169088/4133047915867663918125*ep+ 543009067551576672294069632/601639922712479283607693202859375*ep^2+ 81347195677309554873120073670653344448/87579579034589635297618710535267\ 089289453125*ep^3+10418667989608048871227025895483961490140450436672/ 12748792715242526234546388150105311185900058847333984375*ep^4+ 172768041259637764103201967883768041289678558529754183262144/ 265116786172964645746314084221856071463624264153851621549560546875*ep^5 +1317377173508245057603091998144393670224200055624180334524059623712725\ 12/27014782357435744897424855318264724686426045965693511851228495178578\ 4912109375*ep^6+1376781244232766188547046613278560304339805918491062702\ 1534216190619209817618688768/393249047687607327576472419494190265466065\ 04057981128322733996548985803762478790283203125*ep^7+ 14005810062870793772319363723360282928660238010050625748597702542999783\ 04165238881699351953152/57244515784390356347697658192873862658398335225\ 02480750990451332685878404284895044061153411865234375*ep^8; Fill mnchfac1(28,18)= -1024/141962695875-354106271372096/20665239579338319590625*ep- 70453462258868250376632544/3008199613562396418038466014296875*ep^2- 10681188283445737339429109293960454816/43789789517294817648809355267633\ 5446447265625*ep^3-1380075511667490842832798797457569474979701912224/ 63743963576212631172731940750526555929500294236669921875*ep^4- 67145682818095580610947258788168820024392305099369131936/ 3864676183279368013794665950755919409090732713612997398681640625*ep^5- 17640615700109101983678667796127957672172913901196619315294425458757504/ 13507391178717872448712427659132362343213022982846755925614247589289245\ 60546875*ep^6-184937209875498874896964189507623195688581401612676611668\ 5205551155572178522896256/196624523843803663788236209747095132733032520\ 289905641613669982744929018812393951416015625*ep^7- 18853310470133421955916899089161498836179850330170407762024690423240061\ 5020841535183283984384/286222578921951781738488290964369313291991676125\ 12403754952256663429392021424475220305767059326171875*ep^8; Fill mnchfac1(28,20)= 512/2697291221625+180975812844448/392639552007428072221875*ep+ 36613273487379026559129872/57155792657685531942730854271640625*ep^2+ 5621105961260356986446440771733187808/832006000828601535327377750085037\ 3482498046875*ep^3+733103740129022916779999616698035214430591121712/ 1211135307948039992281906874260004562660505590496728515625*ep^4+ 12317864429235793766898841203148111664821038654717446948224/ 25186094686431641345899838001076326789044305094615904047208251953125* ep^5+948091925251122620597947110262867630209779014607167910071036606087\ 6352/256640432395639576525536125523514884521047436674088362586670704196\ 49566650390625*ep^6+997323911472143962136717753775604983769208530346804\ 884704890287611188921052694528/3735865953032269611976487985194807521927\ 617885508207190659729672153651357435485076904296875*ep^7+ 10190752838007711532284656027136085556561151149311345434069653542868159\ 1262140583427107361792/543822899951708385303127752832301695254784184637\ 735671344092876605158448407065029185809574127197265625*ep^8; Fill mnchfac1(28,22)= -128/24275620994625-46279104127912/3533755968066852649996875*ep- 9527582880178278290327168/514402133919169787484577688444765625*ep^2- 1482327163387780881921592259551637752/748805400745741381794639975076533\ 61342482421875*ep^3-195263687549274516490614347715060845607056304128/ 10900217771532359930537161868340041063944550314470556640625*ep^4- 3305054706845087125787362265778634187966339558508958639456/ 226674852177884772113098542009686941101398745851543136424874267578125* ep^5-255732835116729038131395101627374211551410581347662751296292833844\ 4288/230976389156075618872982512971163396068942693006679526328003633776\ 846099853515625*ep^6-27001239026857859200596817268707355743168649302539\ 2945906032565293057428770386432/336227935772904265077883918667532676973\ 48560969573864715937567049382862216919365692138671875*ep^7- 27660503761690204828741570575876502270187625737539397285446652736965431\ 081681366261269659648/4894406099565375467728149775490715257293057661739\ 621042096835889446426035663585262672286167144775390625*ep^8; Fill mnchfac1(28,24)= 64/412685556908625+23687573137556/60073851457136495049946875*ep+ 4966624084805107263915484/8744836276625886387237820703561015625*ep^2+ 783691935805179696109766787296812976/1272969181267760349050887957630107\ 142822201171875*ep^3+104342464025131271643791488517218271068620824464/ 185303702116050118819131751761780698087057355345999462890625*ep^4+ 1780165454219690475543600437156611801564780054910904374528/ 3853472487024041125922675214164677998723778679476233319222862548828125* ep^5+138536694564379745585493940167218309081679863298020415294600162817\ 2544/392659861565328552084070272050977773317202578111355194757606177420\ 6383697509765625*ep^6+1468688557730653385801492816055263320390493135089\ 59345569338882882442238899618816/57158749081393725063240266173480555085\ 4925536482755700170938639839508657687629216766357421875*ep^7+ 15087864818644459052052674490340271012861154773652868701749302897224288\ 327586882914620468224/8320490369261138295137854618334215937398198024957\ 3557715646210120589242606280949465428864841461181640625*ep^8; Fill mnchfac1(28,26)= -2/412685556908625-758432672758/60073851457136495049946875*ep- 162107227736906342974712/8744836276625886387237820703561015625*ep^2- 25965225541476206236959582507462568/12729691812677603490508879576301071\ 42822201171875*ep^3-3496933781271290560942870060005166753083796352/ 185303702116050118819131751761780698087057355345999462890625*ep^4- 8596455469392886447004131095711487921421294473234579072/ 550496069574863017988953602023525428389111239925176188460408935546875* ep^5-471250366639899962264741295683171401955803852941646732231550468817\ 92/39265986156532855208407027205097777331720257811135519475760617742063\ 83697509765625*ep^6-501839561416089507599955676978903506680572318026842\ 3096497008273586188842802688/571587490813937250632402661734805550854925\ 536482755700170938639839508657687629216766357421875*ep^7- 51715316951601214460092920458071832826120956556129748730648461870792635\ 1487096147802924032/832049036926113829513785461833421593739819802495735\ 57715646210120589242606280949465428864841461181640625*ep^8; Fill mnchfac1(28,28)= 1/6190283353629375+388920876224/901107771857047425749203125*ep+ 84827912008321292632636/131172544149388295808567310553415234375*ep^2+ 13805828622791011074395112263112704/19094537719016405235763319364451607\ 142333017578125*ep^3+1882446104598762122550738656233208736235589056/ 2779555531740751782286976276426710471305860330189991943359375*ep^4+ 32697347461181348958224518309789769409688869127892160512/ 57802087305360616888840128212470169980856680192143499788342938232421875 *ep^5+25783707310834906055388638332911578193458006963614675719440400645\ 376/5889897923479928281261054080764666599758038671670327921364092661309\ 5755462646484375*ep^6+2759416822030262684031129202556552318843107937046\ 897633994567545958909528408064/8573812362209058759486039926022083262823\ 883047241335502564079597592629865314438251495361328125*ep^7+ 28535545525636203031346134085691230197464486805935611337597881661726528\ 1994734290408772096/124807355538917074427067819275013239060972970374360\ 3365734693151808838639094214241981432972621917724609375*ep^8; Fill mnchfac1(29,0)= 268435456/15+79257917585266573312/2183521465125*ep+ 14082891378046516465513244131328/317851065910775106084375*ep^2+ 1968269941312660162454311760742311570440192/ 46268975008602573477448786791328125*ep^3+239944704573899557950976765485\ 369914839729017078284288/6735286673374393381221629405450302342974609375 *ep^4+26901942430543726177519644383992455040845896943743748686603026432/ 980442868338889517561543660115241788820409287544970703125*ep^5+ 28608814063094621616929834374093885937016264591586418731850654086302322\ 19648/14272120322311263429343241533943251847125106220282345626751342773\ 4375*ep^6+2941480657505958376686236530484984128694328083021019753940125\ 08549064215894973001449472/20775654051075584766352924447141681127894316\ 302188105542730485577811553955078125*ep^7+29599350338803878653846464806\ 904363916396154839927681484457513656230314159345835645351569973854208/ 30242724381689801620762045594434156129890240025542629638674002107910510\ 98876345062255859375*ep^8; Fill mnchfac1(29,2)= -134217728/435-40302676700882272256/63322122488625*ep- 7243748584835602279875151396864/9217680911412478076446875*ep^2- 1020495615536691873520063422624401007312896/134180027524947463084601481\ 6948515625*ep^3-125094821440030965533796911652229219856791820063801344/ 195323313527857408055427252758058767946263671875*ep^4-14078895876858729\ 011030453479892953337926483684809407404514902016/2843284318182779600928\ 4766143342011875791869338804150390625*ep^5-1501110982125721640738010242\ 999887437541830459199997823862163514406776193024/4138914893470266394509\ 540044843543035666280803881880231757889404296875*ep^6- 15460899391209420252151223804625465814237483995046875961368745648839372\ 4035347958849536/602493967481191958224234808967108752708935172763455060\ 739184081756535064697265625*ep^7-15575748863444325852318153946784080208\ 004731032321507244348803412012564325336177368414444886114304/ 87703900706900424700209932223859052776681696074073625952154606112940481\ 867414006805419921875*ep^8; Fill mnchfac1(29,4)= 16777216/3045+732150999339237376/63322122488625*ep+ 932113030150616026686788599808/64523766379887346535128125*ep^2+ 132407877678411666109085172454083248422912/9392601926746322415922103718\ 639609375*ep^3+16325222782533530750689856727553302830634968355258368/ 1367263194695001856387990769306411375623845703125*ep^4+1844734542627840\ 279531629439906198990462907784022918218881687552/1990299022727945720649\ 93363003394083130543085371629052734375*ep^5+197229390554490058841721263\ 859277755317074912891755655258652815116503011328/2897240425429186476156\ 6780313904801249663965627173161622305225830078125*ep^6+ 41533657863042743449021939611113928224436053304792992899040182076470179\ 3718034833408/860705667830274226034621155667298218155621675376364372484\ 54868822362152099609375*ep^7+205277318031117089393379510489726024283882\ 5196802301631923304022671074959992362714119334780735488/ 61392730494830297290146952556701336943677187251851538166508224279058337\ 3071898047637939453125*ep^8; Fill mnchfac1(29,6)= -8388608/82215-372536418763276288/1709697307192875*ep- 480115993762648425853104226304/1742141692256958356448459375*ep^2- 68792441501256607010885907383211104813056/25360025202215070522989680040\ 3269453125*ep^3-8533499718813307797737510939859624665709024859971584/ 36916106256765050122475750771273107141843833984375*ep^4-968374875779764\ 607343255206490316787606519468083508988605157376/5373807361365453445754\ 820801091640244524663305033984423828125*ep^5-10383560225885705779679585\ 4009299423142981828867980393611178852407077976064/782254914865880348562\ 303068475429633740927071933675363802241097412109375*ep^6- 15336523696073412843307260831004199682065779204582537176948562624070802\ 76325427017728/16267337121992182872054339842111936323141249664613286639\ 957970207426446746826171875*ep^7-10842664422137142100158459069034088142\ 10446254146312230982443010808060259475068033038148657926144/ 16576037233604180268339677190309360974792840557999915304957220555345751\ 072941247286224365234375*ep^8; Fill mnchfac1(29,8)= 2097152/1068795+94811458686287872/22226064993507375*ep+ 123744793277249931884093259776/22647841999340458633829971875*ep^2+ 17890929381258590269640353169567465304064/32968032762879591679886584052\ 42502890625*ep^3+2233542181844387633388370485630640498230493212164096/ 479909381337945651592184760026550392843969841796875*ep^4+25459881457909\ 3322246107663394170283825446293965943694253446144/698594956977508947948\ 12670414191323178820622965441797509765625*ep^5+273843415304292133240321\ 03915152878935802574092783608203126866351582729216/10169313893256444531\ 309939890180585238632051935137779729429134266357421875*ep^6+ 40531576549341267663117666762981226784002007989508402717949265308245064\ 9396509304832/211475382585898377336706417947455172200836245639972726319\ 453612696543807708740234375*ep^7+28695150726819537702575040771531461357\ 6763299299997375743517567662244198011768074568337798260736/ 21548848403685434348841580347402169267230692725399889896444386721949476\ 3948236214720916748046875*ep^8; Fill mnchfac1(29,10)= -1048576/26719875-48277953420787712/555651624837684375*ep- 63840160993574737232086245376/566196049983511465845749296875*ep^2- 9317188322273311630692688173220436056064/824200819071989791997164601310\ 62572265625*ep^3-1171022506112315848914280713211627039319855251204096/ 11997734533448641289804619000663759821099246044921875*ep^4- 134117948031521896243662013999611493424938497173937427442246144/ 1746487392443772369870316760354783079470515574136044937744140625*ep^5- 14473102547575532796867996263719745999378649743891141497653477660238729\ 216/2542328473314111132827484972545146309658012983784444932357283566589\ 35546875*ep^6-214696865634167861130529170467470082745517135805989781704\ 590139223219963545869304832/5286884564647459433417660448686379305020906\ 140999318157986340317413595192718505859375*ep^7-15222659764009993996026\ 57215967500217046487854161486047818619813381626080446914491305681982607\ 36/53872121009213585872103950868505423168076731813499724741110966804873\ 69098705905368022918701171875*ep^8; Fill mnchfac1(29,12)= 65536/80159625+3074157510520832/1666954874513053125*ep+ 4120530679820038543209051136/1698588149950534397537247890625*ep^2+ 607316678995118540338298005147498824704/2472602457215969375991493803931\ 87716796875*ep^3+76872487200670492079149577557250388361510102157056/ 35993203600345923869413857001991279463297738134765625*ep^4+ 8848629323859593078415040855675252190618655480091820715075584/ 5239462177331317109610950281064349238411546722408134813232421875*ep^5+ 958238831627865068688602874876986237001342032309995517595871976961573376 /7626985419942333398482454917635438928974038951353334797071850699768066\ 40625*ep^6+142488457916496754966734489128441357439605475120730782219190\ 74612874686191374257152/15860653693942378300252981346059137915062718422\ 997954473959020952240785578155517578125*ep^7+10119130753826417440623803\ 568233048189798659688554601325800691260899658249638490206205525860096/ 16161636302764075761631185260551626950423019544049917422333290041462107\ 296117716104068756103515625*ep^8; Fill mnchfac1(29,14)= -32768/1843671375-1566705931810816/38339962113800221875*ep- 2129675636204318022550880768/39067527448862291143356701484375*ep^2- 317137158237866136784951153195206065152/5686985651596729564780435749043\ 317486328125*ep^3-40443419810193577721448122688991439608311518457728/ 827843682807956248996518711045799427655847977099609375*ep^4- 4680282996070722134095062352447908248706786647032089264606592/ 120507630078620293521051856464480032483465574615387100704345703125*ep^5 -5087411502625701222062029367539867003831574383754565813600912625983898\ 88/17542066465867366816509646310561509536640289588112670033265256609466\ 552734375*ep^6-75844010414938666889941731246722305020860279294175407069\ 72874879486016968445614976/36479503496067470090581857095936017204644252\ 3728952952901057481901538068297576904296875*ep^7-5395579630013289433297\ 924761787264547708652124024066489006276588198873498863409916853314037248 /3717176349635737425175172609926874198597294495131481007136656709536284\ 67810707470393581390380859375*ep^8; Fill mnchfac1(29,16)= 8192/20280385125+399419949551104/421739583251802440625*ep+ 550918891578679085471019392/429742801937485202576923716328125*ep^2+ 82929572060390529289934380309550385088/62556842167564025212584793239476\ 492349609375*ep^3+10659577681904434410649399593486097501706236317632/ 9106280510887518738961705821503793704214327748095703125*ep^4+ 1240602314707394842083085718121281131944103338459917193456448/ 1325583930864823228731570421109280357318121320769258107747802734375* ep^5+135394020243967855161420817019445591882651804930829000344090092618\ 804672/1929627311245410349816061094161766049030431854692393703659178227\ 04132080078125*ep^6+289154443470314199996264957034829158278139258219630\ 129646815211569151770241742592/5732493406524888157091434686504231275015\ 52537288354640273090328702416964467620849609375*ep^7+ 14426445189234178677777445228622915357984966813483162177254430101655515\ 41555171027200997600512/40888939845993111676926898709195616184570239446\ 44629107850322380489913145917782174329395294189453125*ep^8; Fill mnchfac1(29,18)= -4096/425888087625-1426362534289664/61995718738014958771875*ep- 285346725823217559206696896/9024598840687189254115398042890625*ep^2- 43442756509046482665985073453396493344/13136936855188445294642806580290\ 06339341796875*ep^3-5630925956322699129602666919245718765310350510016/ 191231890728637893518195822251579667788500882710009765625*ep^4- 94190527102301505391768969675610231373927636452786569286432/ 3976751792594469686194711263327841071954363962307774323243408203125* ep^5-722673887384131143320999300159805770166156516759282087866502091188\ 17536/40522173536153617346137282977397087029639068948540267776842742767\ 86773681640625*ep^6-758522797466986529284163739975459651810286741119499\ 9840296634153780752026206066304/589873571531410991364708629241285398199\ 097560869716924841009948234787056437181854248046875*ep^7- 77390165025713204707113244958897482156483944110322516244481244991474231\ 7515000695477555859456/858667736765855345215464872893107939875975028375\ 37211264856769990288176064273425660917301177978515625*ep^8; Fill mnchfac1(29,20)= 512/2129440438125+182021860086688/309978593690074793859375*ep+ 36993169523306404038399632/45122994203435946270576990214453125*ep^2+ 5699595829354635323848872785757564448/656846842759422264732140329014503\ 1696708984375*ep^3+745349710660113300552135263436505170185622386672/ 956159453643189467590979111257898338942504413550048828125*ep^4+ 12548809741240576471552120191292257784413977252767866262144/ 19883758962972348430973556316639205359771819811538871616217041015625* ep^5+967277081904290419053196331379835200004845498616917542038346637127\ 2512/202610867680768086730686414886985435148195344742701338884213713839\ 33868408203125*ep^6+101855583920244952296635585726295032372271268140735\ 0745120508750157017745318688768/294936785765705495682354314620642699099\ 5487804348584624205049741173935282185909271240234375*ep^7+ 10415116807656469419681273845706492823972196559905646479203586860877023\ 6226238044963851953152/429333868382927672607732436446553969937987514187\ 686056324283849951440880321367128304586505889892578125*ep^8; Fill mnchfac1(29,22)= -256/40459368324375-92972268622544/5889593280111421083328125*ep- 19208889829017034792830616/857336889865282979140962814074609375*ep^2- 2996966417354089544553996419174488424/124800900124290230299106662512755\ 602237470703125*ep^3-395636050075851119848821969352883752133494815136/ 18167029619220599884228603113900068439907583857450927734375*ep^4- 6707427330629255807000958198416402866443748497728469344672/ 377791420296474620188497570016144901835664576419238560708123779296875* ep^5-519610709676834831630190455284231793368172406826739330957879626762\ 9056/384960648593459364788304188285272326781571155011132543880006056294\ 743499755859375*ep^6-54908778409554768803874937267024767427417662394219\ 8860839538992351937918158083584/560379892954840441796473197779221128289\ 14268282623107859895945082304770361532276153564453125*ep^7- 56282408469196557487092953326727600383818084248171376992279184017051327\ 420801762863322085376/8157343499275625779546916292484525428821762769566\ 035070161393149077376726105975437787143611907958984375*ep^8; Fill mnchfac1(29,24)= 64/364134314919375+23760642614036/53006339521002789749953125*ep+ 4994377543079856463428004/7716032008787546812268665326671484375*ep^2+ 789631717561682112027013979882638256/1123208101118612072691959962614800\ 420137236328125*ep^3+105294856240590388546697084741673514182601462384/ 163503266572985398958057428025100615959168254717058349609375*ep^4+ 1798504228831165896033031633178018829749773850320307418368/ 3400122782668271581696478130145304116520981187773147046373114013671875* ep^5+140083976723429652116797928857912161173732156870952118196087355533\ 2864/346464583734113428309473769456745094103414039510019289492005450665\ 2691497802734375*ep^6+1486007004718750520432036272876876178320487033498\ 15926494227075295263305311159296/50434190365935639761682587800129901546\ 0228414543607970739063505740742933253790485382080078125*ep^7+ 15272353299569324158785503550400144900258062028408572274802144183163413\ 426999228641808978944/7341609149348063201592224663236072885939586492609\ 4315631452538341696390534953778940084292507171630859375*ep^8; Fill mnchfac1(29,26)= -32/6190283353629375-12154331843818/901107771857047425749203125*ep- 2601264240070237729885952/131172544149388295808567310553415234375*ep^2- 417090040367725115703183962138163928/1909453771901640523576331936445160\ 7142333017578125*ep^3-56218898928266882659244528212543918768728123392/ 2779555531740751782286976276426710471305860330189991943359375*ep^4- 968022519208615774851882801669285770568613657945415123584/ 57802087305360616888840128212470169980856680192143499788342938232421875 *ep^5-75844296458151975550788922019058025932062179333969944978620650451\ 7632/588989792347992828126105408076466659975803867167032792136409266130\ 95755462646484375*ep^6-807947678564739515080556099519486306397720635781\ 20141715444259195710651698856448/85738123622090587594860399260220832628\ 23883047241335502564079597592629865314438251495361328125*ep^7- 83280084532529062296408607504245995278674332195381745363492269138534258\ 36295910797861404672/12480735553891707442706781927501323906097297037436\ 03365734693151808838639094214241981432972621917724609375*ep^8; Fill mnchfac1(29,28)= 1/6190283353629375+388920876224/901107771857047425749203125*ep+ 84827912008321292632636/131172544149388295808567310553415234375*ep^2+ 13805828622791011074395112263112704/19094537719016405235763319364451607\ 142333017578125*ep^3+1882446104598762122550738656233208736235589056/ 2779555531740751782286976276426710471305860330189991943359375*ep^4+ 32697347461181348958224518309789769409688869127892160512/ 57802087305360616888840128212470169980856680192143499788342938232421875 *ep^5+25783707310834906055388638332911578193458006963614675719440400645\ 376/5889897923479928281261054080764666599758038671670327921364092661309\ 5755462646484375*ep^6+2759416822030262684031129202556552318843107937046\ 897633994567545958909528408064/8573812362209058759486039926022083262823\ 883047241335502564079597592629865314438251495361328125*ep^7+ 28535545525636203031346134085691230197464486805935611337597881661726528\ 1994734290408772096/124807355538917074427067819275013239060972970374360\ 3365734693151808838639094214241981432972621917724609375*ep^8; Fill mnchfac1(30,0)= 1073741824/31+9979074250129694261248/139890941865675*ep+ 55561575535333391193766474444439552/631273406969860079023974375*ep^2+ 242579953380780498786203325032020785111727341568/2848691337927977150697\ 798735087609421875*ep^3+92171906492868117670384297402405443859850510839\ 1338520870912/12855035946688212509626306180978461918178258730859375* ep^4+321573588208152967151109544887892296919447341058747348917434752997\ 3137408/580097769773975201525456094929659981188758593748499301373730468\ 75*ep^5+106289853282720462094841819733484468255437601141487116179120983\ 97149645240626751209472/26177555931567382290692474565949893082829400811\ 9009291129825421517782958984375*ep^6+3393791625422258843234931634759386\ 4931965940349236991427432496356011761265724488972244645417320448/ 11812912758091446595520320881111306522855062956520408129779870800211589\ 72209528582763671875*ep^7+105991361180150384427995635531508443477671981\ 659257097432936166792960759129382137148627669258890284789152120832/ 53307080384079389682561196911537534644440743154014148511766469575716514\ 20332277286344841777191162109375*ep^8; Fill mnchfac1(30,2)= -268435456/465-2535146722500146102272/2098364127985125*ep- 14271731585745417099392829681041408/9469101104547901185359615625*ep^2- 62791747456575801927692462892683153545910812672/42730370068919657260466\ 981026314141328125*ep^3-23987492396667781197054759288926113779909771713\ 2906831413248/192825539200323187644394592714676928772673880962890625* ep^4-840016044760872457195230616985502179756529733361823291638486607084\ 716032/8701466546609628022881841423944899717831378906227489520605957031\ 25*ep^5-278360185430874000136716516656785767159305475408040202347912320\ 2803674843514029375488/392663338973510734360387118489248396242441012178\ 5139366947381322766744384765625*ep^6-8903189477725850418350030723820100\ 701380572816845966892300436627035660629016365830370479670280192/ 17719369137137169893280481321666959784282594434780612194669806200317384\ 583142928741455078125*ep^7-27837061329067312565255419663779549416379128\ 753669360738709188068088646860903434110204783196338518273750908928/ 79960620576119084523841795367306301966661114731021222767649704363574771\ 304984159295172626657867431640625*ep^8; Fill mnchfac1(30,4)= 134217728/13485+1288458616405791604736/60852559711568625*ep+ 7336359329473321050467830573563904/274603932031889134375428853125*ep^2+ 32537464625356927413998478954159333709511131136/12391807319986700605535\ 42449763110098515625*ep^3+125000528248480466303815289139379376825242311\ 284551844429824/5591940636809372441687443188725630934407542547923828125 *ep^4+43945901418286876090335817874352991257660633666066972602149926099\ 6386816/252342529851679212663573401294402091817109988280597196097572753\ 90625*ep^5+146018394762756526113411617647580112558050340828800699188648\ 5942809235110359107026944/113872368302318112964512264361882034910307893\ 531769041641474058360235587158203125*ep^6+46788099866168290587650651912\ 34630889352138391099311349464234260597018080492341907486717576912896/ 51386170497697792690513395832834183374419523860863775364542437980920415\ 2911144933502197265625*ep^7+1464658754533271574717866952374139348051567\ 8520364181026577539450069692812672419034593225800170537373659889664/ 23188579967074534511914120656518827570331723271996154602618414265436683\ 67844540619560006173078155517578125*ep^8; Fill mnchfac1(30,6)= -16777216/94395-23394460241631379456/60852559711568625*ep- 943437441003849812089947793522688/1922227524223223940628001971875*ep^2- 4219231871042162864050436205165916811992072192/867426512399069042387479\ 7148341770689609375*ep^3-1630505718358282598808255046216665081958880976\ 2757977980928/39143584457665607091812102321079416540852797835466796875* ep^4-575601760892008666063646866943995795712771921736318069812413368433\ 13152/17663977089617544886450138090608146427197699179641803726830092773\ 4375*ep^5-1917996607887825408256340990298835355943425332138494594708855\ 52145618836563080941568/79710657811622679075158585053317424437215525472\ 2383291490318408521649110107421875*ep^6-8796608274278895920174584764864\ 4806630530121191164731562622134643711405556486550704273779900416/ 51386170497697792690513395832834183374419523860863775364542437980920415\ 2911144933502197265625*ep^7-1930062621933707590538516494720762056335012\ 161514556804503395171889440671450378211880415858673077534181265408/ 16232005976952174158339884459563179299232206290397308221832889985805678\ 574911784336920043211547088623046875*ep^8; Fill mnchfac1(30,8)= 8388608/2548665+11897518612719075328/1643019112212352875*ep+ 485638058126995029210380974751744/51900143154027046396956053240625*ep^2 +2190782441324191059393974498566489182422941696/23420515834774864144461\ 9523005227808619453125*ep^3+8518682258624894431622791452917672120477811\ 687634133540864/1056876780356971391478926762669144246603025541557603515\ 625*ep^4+30203847285476720175703822368096409068156651355034023726515298\ 608050176/4769273814196737119341537284464199535343378778503287006244125\ 048828125*ep^5+10094791240721367127043706479149166202867332874974569010\ 3289407210954293333367773184/215218776091381233502928179643957045980481\ 91877504348870238597030084525972900390625*ep^6+463932988463934179410676\ 33049786704980774469277452320033688545159411196751572802979914236459008/ 13874266034378404026438616874865229511093271442433219348426458254848512\ 128600913204559326171875*ep^7+10193085103732384555988125970100555762511\ 00146171391110456393710196859535907636719688713484892441701203247104/ 43826416137770870227517688040820584107926956984072732198948802961675332\ 1522618177096841166711771392822265625*ep^8; Fill mnchfac1(30,10)= -2097152/33132645-3026377627039301632/21359248458760587375*ep- 125086362815637269475044303323136/674701861002351603160428692128125* ep^2-569405844957389010843482851516773535543988224/30446670585207323387\ 80053799067961512052890625*ep^3-222849776063005693106133279099365716741\ 2168045891561660416/137393981446406280892260479146988752058393320402488\ 45703125*ep^4-793774426638169395943856912383896366905419620251710434076\ 3184865209344/620005595845575825514399846980345939594639241205427310811\ 73625634765625*ep^5-266146685753927436252517602236351506019674624119739\ 35667805653154030463348655594496/27978440891879560355380663353714415977\ 4626494407556535313101761391098837647705078125*ep^6- 12258223870487839343351157365137301766282114973661439907665017003086510\ 328379688436986232369152/1803654584469192523437020193732479836442125287\ 51631851529543957313030657671811871659271240234375*ep^7- 26972005734504647179942949012797984472339514310815015040250792548206202\ 7895930493997610592395534402357118976/569743409791021312957729944530667\ 59340305044079294551858633443850177931797940363022589351672530281066894\ 53125*ep^8; Fill mnchfac1(30,12)= 1048576/828316125+1540227759926607872/533981211469014684375*ep+ 64489307064807723157632960372736/16867546525058790079010717303203125* ep^2+296343528808450223189375221763085687456180224/76116676463018308469\ 501344976699037801322265625*ep^3+11677402033612373620143784831535823011\ 01743571706528700416/34348495361601570223065119786747188014598330100622\ 1142578125*ep^4+4179654425968419054611269355339229407463931138023686547\ 390302838009344/1550013989613939563785999617450864848986598103013568277\ 029340640869140625*ep^5+14061780473917996745570540788493031785123459164\ 391707162047504525655487297871594496/6994610222969890088845165838428603\ 994365662360188913382827544034777470941192626953125*ep^6+ 92738770147473365509339767527157027324510263753325176745678511160430118\ 5145214575460856052736/644162351596140186941792926333028513015044745541\ 542326891228418975109491685042398783111572265625*ep^7+ 14306251101144356162005890006675449268688138480179194485288749554699635\ 5925186154270904904178732620757118976/142435852447755328239432486132666\ 89835076261019823637964658360962544482949485090755647337918132570266723\ 6328125*ep^8; Fill mnchfac1(30,14)= -65536/2484948375-98024583068782592/1601943634407044053125*ep- 4159599512464964778362237572096/50602639575176370237032151909609375* ep^2-19303581160182341180962373722201988251710464/228350029389054925408\ 504034930097113403966796875*ep^3-76613327427655839239109308352236140593\ 818553672929656576/1030454860848047106691953593602415640437949903018663\ 427734375*ep^4-27563365771619571644578456828473600956555429460110273762\ 0545618870784/465004196884181869135799885235259454695979430904070483108\ 8021922607421875*ep^5-9306874247647668615944460379566680248290861393591\ 60051905151613427294783783251456/20983830668909670266535497515285811983\ 096987080566740148482632104332412823577880859375*ep^6- 43073110949367576986897272900163689491456551002658282113491671595111460\ 7468294049223999004672/135274093835189439257776514529935987733159396563\ 72388864715796798477299325385890374445343017578125*ep^7- 95083258416902527510489160618507842884124264958949410778845301615515210\ 67407420851898393797810981946580736/42730755734326598471829745839800069\ 50522878305947091389397508288763344884845527226694201375439771080017089\ 84375*ep^8; Fill mnchfac1(30,16)= 32768/57153812625+49930734007453696/36844703591362013221875*ep+ 2148374793902090112834545013248/1163860710229056515451739493921015625* ep^2+10073302744746764976823981444043721952940032/525205067594826328439\ 5592803392233608291236328125*ep^3+4028305054224406844546265659811795142\ 6939694500786671488/237004617995050834539149326528555597300728477694292\ 58837890625*ep^4+145720382689201803194366775255126019235347475793515734\ 520907721144192/1069509652833618299012339736041096745800752691079362111\ 15024504219970703125*ep^5+493934121335285314488992366902399302840066317\ 298498769161534711014367457903084928/4826281053849224161303164428515736\ 75611230702853035023415100538399645494942291259765625*ep^6+ 22920985638041585721143871692879928513515800368397183131134270855096794\ 0713350187605606052736/311130415820935710292885983418852771786266612096\ 564943888463326364977884483875478612242889404296875*ep^7+ 50689605069007607298178999199374566784630999314662241666720198827419761\ 80806899188341804667118848322445568/98280738188951176485208415431540159\ 86202620103678310195614269064155693235144712621396663163511473484039306\ 640625*ep^8; Fill mnchfac1(30,18)= -8192/628691938875-12722730966413824/405291739504982145440625*ep- 555361387223274046608681264512/12802467812519621669969134433131171875* ep^2-2632240682571576364976485157432666176575808/5777255743543089612835\ 1520837314569691203599609375*ep^3-1061068437793944096830858104292656645\ 5328157102267915072/260705079794555917993064259181411157030801325463721\ 847216796875*ep^4-38606545278560498066837095779632369427121833430854438\ 429399863030848/1176460618116980128913573709645206420380827960187298322\ 265269546419677734375*ep^5-13140245405991759883341580636831112143179510\ 6603380086690926529501432282624154432/530890915923414657743348087136731\ 0431723537731383385257566105922396100444365203857421875*ep^6- 61152906713851966544499018730996231743728088023508957621873453618677772\ 000755499159982451584/3422434574030292813221745817607380489648932733062\ 214382773096590014756729322630264734671783447265625*ep^7- 13550453525700165504586832068111297669211642672880211085651146708213649\ 17102349633384836357419350739310592/10810881200784629413372925697469417\ 58482288211404614121517569597057126255865918388353632947986262083244323\ 73046875*ep^8; Fill mnchfac1(30,20)= 4096/13202530716375+45409732419133184/59577885707232375379771875*ep+ 287438620244480061132327211456/268851824062912055069351823095754609375* ep^2+1377886945455635176939362480484709707140704/1213223706144048818695\ 381937583605963515275591796875*ep^3+56014311330314820205015346061515824\ 47844337503041012736/54748066756856742778543494428096342976468278347381\ 58791552734375*ep^4+292956330155078587213408905911051381961300322846231\ 3849011785976032/352938185435094038674072112893561926114248388056189496\ 6795808639259033203125*ep^5+7010788691715294894372209626497762466713047\ 0809852598583900944336963428956308416/111487092343917078126103098298713\ 519066194292359051090408888224370318109331669281005859375*ep^6+ 22910039367214203663181203278714569119953709236044031082481564194064852\ 3274818515204657081344/503097882382453043543596635188284931978393111760\ 145514267645198732169239210426648915996752166748046875*ep^7+ 72675319833200194386561228445465942252204297672214446931288008867622572\ 8763380153224109123166383854442496/227028505216477217680831439646857769\ 28128052439496896551868961538199651373184286155426291907711503748130798\ 33984375*ep^8; Fill mnchfac1(30,22)= -512/66012653581875-5791739394706528/297889428536161876898859375*ep- 37236620883731024772630291152/1344259120314560275346759115478773046875* ep^2-180637587484083746197841950938659651013568/60661185307202440934769\ 09687918029817576377958984375*ep^3-740936250095857415988023244601047423\ 299645130910220912/2737403337842837138927174721404817148823413917369079\ 3957763671875*ep^4-3900779633593622484006607602695851297329674336255356\ 10987824325344/17646909271754701933703605644678096305712419402809474833\ 979043196295166015625*ep^5-93795804063662123746399727623494736767304620\ 79226291935047578640827896233769472/55743546171958539063051549149356759\ 5330971461795255452044441121851590546658346405029296875*ep^6- 30753869107971625720872151232838204407263805526879918354987014801789497\ 769176599057552360448/2515489411912265217717983175941424659891965558800\ 727571338225993660846196052133244579983760833740234375*ep^7- 97783162235899980021001447931948631095529071430033102893406912480264740\ 878304194505711487571585951480832/1135142526082386088404157198234288846\ 40640262197484482759344807690998256865921430777131459538557518740653991\ 69921875*ep^8; Fill mnchfac1(30,24)= 256/1254240418055625+2956671193308464/5659899142187075661078328125*ep+ 19320537127806141023822664376/25540923285976645231588423194096687890625 *ep^2+94907534210903578211849391543155806490984/11525625208368463777606\ 1284070442566533951181220703125*ep^3+3930092190223125343002029020998314\ 02488123181006938256/52010663419013905639616319706691525827644864430012\ 5085197509765625*ep^4+2976765016029416621650160150000880714650210342271\ 3059732175600896/478987537376199052486240724641262614012194240933400031\ 20800260104229736328125*ep^5+503621975544884753327265884970504261681694\ 5103125390610799916073794961403201536/105912737726721224219797943383777\ 84311288457774109853588844381315180220386508581695556640625*ep^6+ 16573066175432771596587556337001487490270336791512220443512925973540623\ 144240246042191911424/4779429882633303913664168034288706853794734561721\ 3823855426293879556077724990531647019691455841064453125*ep^7+ 52827781180570449369248551125141690820171001659484020263061354359894664\ 268556045791572088750591775241216/2156770799556533567967898676645148808\ 17216498175220517242755134612896688045250718476549773123259285607242584\ 228515625*ep^8; Fill mnchfac1(30,26)= -64/11288163762500625-755212637537516/50939092279683680949704953125*ep- 5019466552872653062484062444/229868309573789807084295808746870191015625 *ep^2-24985266892769995625068909234641658719896/10373062687531617399845\ 51556633983098805560630986328125*ep^3-104516126473131649169952945713863\ 118431753957930017664/4680959707711251507565468773602237324488037798701\ 125766777587890625*ep^4-55836567343361282277724404493124282107879182910\ 821380054771168768/3017621485470054030663316565239954468276823717880420\ 196610416386566473388671875*ep^5-13570427703558731776019144942055402312\ 56641862301257393265823247163391848073984/95321463954049101797818149045\ 400058801596119966988682299599431836621983478577235260009765625*ep^6- 44834779977956265979268397204806396147454162450293253015140810831714532\ 87613767419975200256/43014868943699735222977512308598361684152611055492\ 4414698836644916004699524914784823177223102569580078125*ep^7- 14330955976048814754875477051562359305429294236463437139133931256395451\ 024874282762750586832383270651904/1941093719600880211171108808980633927\ 35494848357698465518479621151607019240725646628894795810933357046518325\ 8056640625*ep^8; Fill mnchfac1(30,28)= 32/191898783962510625+386100645409558/865964568754622576144984203125*ep +2612222807634216617065555172/39077612627544267204330287486967932472656\ 25*ep^2+13186042002216019682283767030369636429248/176342065688037495797\ 37376462777712679694530726767578125*ep^3+557582678573824279794689776716\ 64356259388587424700032/79576315031091275628612969151238034516296642577\ 919138035218994140625*ep^4+42903855118381948393143647676680347530180964\ 28120601984630474112/73285093218558455030394830870113179943865718862810\ 20477482439795947149658203125*ep^5+734326162105216794673641156751346459\ 833444411463144928944024730808624668584192/1620464887218834730562908533\ 771800999627134039438807599093190341222573719135812999420166015625*ep^6 +2436664195204274624952666535844453901592520434862077303172060925425781\ 301580720363842044928/7312527720428954987906177092461721486305943879433\ 715049880222963572079891923551341994012792743682861328125*ep^7+ 78122849126496311757119530193568731808779236143525730792533236114816291\ 43473754260695248143537289009152/32998593233214963589908849752670776765\ 03412422080873913814153559577319327092335992691211528785867069790811538\ 6962890625*ep^8; Fill mnchfac1(30,30)= -1/191898783962510625-12347683358294/865964568754622576144984203125*ep- 85114480994316988246696096/3907761262754426720433028748696793247265625* ep^2-436069346667442343847318558027528918464/17634206568803749579737376\ 462777712679694530726767578125*ep^3-18654340794626727598833755208267321\ 35180736766528576/79576315031091275628612969151238034516296642577919138\ 035218994140625*ep^4-10136823521329120662307781492859245838866065811126\ 61666970474112/51299565252990918521276381609079225960706003203967143342\ 377078571630047607421875*ep^5-24948972511246495142796358164207857912831\ 761190063538178659686989159424083456/1620464887218834730562908533771800\ 999627134039438807599093190341222573719135812999420166015625*ep^6- 83182319130736620471607566337284964902227893521407462243905902194737506\ 739706597691720704/7312527720428954987906177092461721486305943879433715\ 049880222963572079891923551341994012792743682861328125*ep^7- 26759449418515964757654988299280873269750324805515828223849372788192396\ 9096943508473135266881755572736/329985932332149635899088497526707767650\ 34124220808739138141535595773193270923359926912115287858670697908115386\ 962890625*ep^8; *--#] harmo1 : *--#[ integral : #procedure integral(TOPO1) #switch `TOPO1' *--#[ la : #case la * * Reduction procedure for three loop graphs of the la or ladder type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<-----<-\ * P1 / | P2 | \ P3 * / | | \ * / | | \ * / | | \ * Q --<-- P7 ^ v P8 --<-- Q * \ | | / * \ | | / * \ | | / * P6 \ | P5 | / P4 * \->------>----->-/ * #call ladder(p1,p2,p3,p4,p5,p6,p7,p8,Q) multiply Q.Q; #call ACCU(Ladder recursion) * * Now use some symmetry relations to diminish the number of terms. * Note that these transformations are sign insensitive, because the * only `nonsquare' is p7.p8 and either both change sign or neither. * if ( ( count(p2.p2,1) > count(p5.p5,1) ) || ( ( count(p2.p2,1) == count(p5.p5,1) ) && ( ( count(p1.p1,1) < count(p6.p6,1) ) || ( ( count(p1.p1,1) == count(p6.p6,1) ) && ( count(p3.p3,1) < count(p4.p4,1) ) ) ) ) ); multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3); endif; if ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( ( count(p6.p6,1) < count(p4.p4,1) ) || ( ( count(p6.p6,1) == count(p4.p4,1) ) && ( count(p7.p7,1) < count(p8.p8,1) ) ) ) ) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); endif; if ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p6.p6/p7.p7/p8.p8) ); * * type BEbar or benzbar. Note the introduction of Q.p2. This will * need some sign corrections in future transformations. * id p5.p5 = p2.p2+Q.Q-2*Q.p2; endif; if ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p6.p6/p7.p7/p8.p8) ); id p7.p8 = p7.p7/2+p8.p8/2-mncx8/2; endif; #call ACCU2(AB Q.Q mncx8,Rearrange) Keep Brackets; if ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p6.p6/p7.p7/p8.p8) ); multiply acc(1/ep); #call triangle(p2,p7,p8,p1,p3) multiply ep; endif; #call ACCU(Second recursion) id mncx8 = p7.p7 + p8.p8 - 2*p7.p8; #call ACCU(Second recursion B) * * Now bring the integrals to a standard form again. We can make it * such that either p1.p1 is missing, or p2.p2 and p5.p5, or p8.p8. * `missing' means: not occurring in the denominator. * if ( ( count(p7.p7,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ); if ( count(p7.p7,1) > count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); endif; if ( ( count(p1.p1,1) < count(p6.p6,1) ) || ( ( count(p1.p1,1) == count(p6.p6,1) ) && ( ( count(p3.p3,1) < count(p4.p4,1) ) || ( ( count(p3.p3,1) == count(p4.p4,1) ) && ( count(p2.p2,1) < count(p5.p5,1) ) ) ) ) ); id Q.p2 = -Q.p2; multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3); endif; else; if ( ( count(p1.p1,1) >= 0 ) || ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); endif; if ( count(p1.p1,1) < count(p6.p6,1) ); id Q.p2 = -Q.p2; multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3); endif; if ( count(p1.p1,1) < count(p4.p4,1) ); id Q.p2 = -Q.p2; multiply replace_(p1,p4,p4,p1,p2,p5,p5,p2,p6,p3,p3,p6,p7,p8,p8,p7); endif; if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); endif; if ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( count(p4.p4,1) > count(p6.p6,1) ) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); else; if ( ( count(p1.p1,1) == count(p6.p6,1) ) && ( count(p4.p4,1) > count(p3.p3,1) ) ); id Q.p2 = -Q.p2; multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3); endif; endif; else; if ( ( count(p2.p2,1) > count(p5.p5,1) ) || ( ( count(p2.p2,1) == count(p5.p5,1) ) && ( ( count(p1.p1,1) < count(p6.p6,1) ) || ( ( count(p1.p1,1) == count(p6.p6,1) ) && ( count(p3.p3,1) < count(p4.p4,1) ) ) ) ) ); id Q.p2 = -Q.p2; multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3); endif; if ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( ( count(p6.p6,1) < count(p4.p4,1) ) || ( ( count(p6.p6,1) == count(p4.p4,1) ) && ( count(p7.p7,1) < count(p8.p8,1) ) ) ) ) ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p6,p4,p4,p6); endif; endif; endif; #call ACCU(Use symmetry) repeat; if ( count(p1.p1,1) >= 0 ); id p1 = p6+Q; if ( count(p6.p6,1) >= 0 ) discard; elseif ( ( count(p2.p2,1) >= 0 ) && ( count(p5.p5,1) >= 0 ) ); if ( match(1/p7.p7/p8.p8) == 0 ) discard; repeat id p2.p2/p1.p1 = 1-2*p1.p7/p1.p1+p7.p7/p1.p1; repeat id p5.p5/p6.p6 = 1+p7.p7/p6.p6-2*p6.p7/p6.p6; if ( count(p7.p7,1) >= 0 ) discard; if ( ( count(p1.p1,1) < 0 ) && ( count(p6.p6,1) >= 0 ) ); multiply replace_(p1,p6,p6,p1,p2,p5,p5,p2,p3,p4,p4,p3,Q,-Q); endif; if ( count(p1.p1,1) < 0 ); id p2 = p1-p7; id p5 = p6-p7; if ( count(p7.p7,1) >= 0 ) discard; endif; else; if ( match(1/p3.p3/p4.p4) == 0 ) discard; id p8 = p3-p2; if ( count(p3.p3,1) >= 0 ) discard; endif; endrepeat; if ( count(p1.p1,1) >= 0 ); id p6.p7 = p6.p6/2+p7.p7/2-p5.p5/2; id p5.p7 = p6.p6/2-p7.p7/2-p5.p5/2; id p5.p6 = p6.p6/2+p5.p5/2-p7.p7/2; if ( match(1/p6.p6/p7.p7) == 0 ) discard; if ( count(p7.p2,1,p7.p3,1,p7.p4,1,p7.p8,1,p7.Q,1) > count(p6.p2,1,p6.p3,1,p6.p4,1,p6.p8,1,p6.Q,1) ); multiply replace_(p6,-p7,p7,-p6); endif; id p7 = p6-p5; elseif ( ( count(p2.p2,1) >= 0 ) && ( count(p5.p5,1) >= 0 ) ); id p7.p8 = p7.p7/2+p8.p8/2-mncp9.mncp9/2; if ( match(1/p7.p7/p8.p8) == 0 ) discard; if ( count(p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.Q,1) > count(p7.p1,1,p7.p3,1,p7.p4,1,p7.p6,1,p7.Q,1) ); multiply replace_(p7,-p8,p8,-p7); endif; id p8 = p7-mncp9; else; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p3.Q = p3.p3/2+Q.Q/2-p4.p4/2; id p4.Q = p3.p3/2-p4.p4/2-Q.Q/2; if ( match(1/p3.p3/p4.p4) == 0 ) discard; if ( count(p4.p1,1,p4.p2,1,p4.p5,1,p4.p6,1,p4.p7,1) > count(p3.p1,1,p3.p2,1,p3.p5,1,p3.p6,1,p3.p7,1) ); multiply replace_(p3,-p4,p4,-p3); endif; id p4 = p3-Q; endif; #call ACCU(Prepare first loop) multiply mncint1*mncint2*mncint3; * * Now we do the first integral. * The order of the selection of the integrals determines the speed only. * On atari ST (4 Mbytes, 28msec hard disk): * 8, 1, 2+5: 426 sec. * 2+5, 8, 1: 416 sec. * 2+5, 1, 8: 408 sec. * 1, 2+5, 8: 408 sec. * It seems important to keep the p8.p8 for the last. * if ( count(p1.p1,1) >= 0 ); if ( count(p6.p6,1) >= 0 ) discard; if ( count(p7.p7,1) >= 0 ) discard; totensor,nosquare,mncFQ,p6; if ( count(mncFQ,1) == 0 ); id mncint2/p6.p6^mncx1?/p7.p7^mncx2? = p5.p5^2/p5.p5^mncx1/p5.p5^mncx2*mnce5*mncG(mncx1,0,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint2/p6.p6^mncx1?/p7.p7^mncx2?*mncFQ(mnci1?) = p5.p5^2/p5.p5^mncx1/p5.p5^mncx2*mnce5*mncG(mncx1,0,mncx2,0,1,0)*p5(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2/p6.p6^mncx1?/p7.p7^mncx2?*mncFQ(mnci1?,mnci2?) = p5.p5^2/p5.p5^mncx1/p5.p5^mncx2*mnce5*( +mncG(mncx1,0,mncx2,0,2,0)*p5(mnci1)*p5(mnci2) +mncG(mncx1,0,mncx2,0,2,1)*p5.p5*d_(mnci1,mnci2)/2 ); else; id mncint2/p6.p6^mncx1?/p7.p7^mncx2?*mncFQ(?a) = p5.p5^2/p5.p5^mncx1/p5.p5^mncx2*mnce5 *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,0,mncx2,0,nargs_(?a),mncj) *p5.p5^mncj/2^mncj*mncy^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,p5; id mncdel(?a) = dd_(?a); endif; * #call one(p6,p7,p5,mnce6,mnce7,mnce5,mncint2) id 1/p8.p8 = 1/p7.p7; id p8 = -p7; multiply replace_(p2,p1,mnce2,mnce1,p5,p6,mnce5,mnce6); elseif ( ( count(p2.p2,1) >= 0 ) && ( count(p5.p5,1) >= 0 ) ); if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; totensor,nosquare,mncFQ,p7; if ( count(mncFQ,1) == 0 ); id mncint2/p7.p7^mncx1?/p8.p8^mncx2? = mncp9.mncp9^2/mncp9.mncp9^mncx1/mncp9.mncp9^mncx2*mnce9*mncG(mncx1,0,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint2/p7.p7^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?) = mncp9.mncp9^2/mncp9.mncp9^mncx1/mncp9.mncp9^mncx2*mnce9*mncG(mncx1,0,mncx2,0,1,0)*mncp9(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2/p7.p7^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?,mnci2?) = mncp9.mncp9^2/mncp9.mncp9^mncx1/mncp9.mncp9^mncx2*mnce9*( +mncG(mncx1,0,mncx2,0,2,0)*mncp9(mnci1)*mncp9(mnci2) +mncG(mncx1,0,mncx2,0,2,1)*mncp9.mncp9*d_(mnci1,mnci2)/2 ); else; id mncint2/p7.p7^mncx1?/p8.p8^mncx2?*mncFQ(?a) = mncp9.mncp9^2/mncp9.mncp9^mncx1/mncp9.mncp9^mncx2*mnce9 *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,0,mncx2,0,nargs_(?a),mncj) *mncp9.mncp9^mncj/2^mncj*mncy^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,mncp9; id mncdel(?a) = dd_(?a); endif; * #call one(p7,p8,mncp9,mnce7,mnce8,mnce9,mncint2) multiply replace_(mncp9,p7,mnce9,mnce7); elseif ( count(p8.p8,1) >= 0 ); * #call one(p3,p4,Q,mnce3,mnce4,mnceq,mncint2) if ( count(p3.p3,1) >= 0 ) discard; if ( count(p4.p4,1) >= 0 ) discard; totensor,nosquare,mncFQ,p3; if ( count(mncFQ,1) == 0 ); id mncint2/p3.p3^mncx1?/p4.p4^mncx2? = Q.Q^2/Q.Q^mncx1/Q.Q^mncx2*mnceq*mncG(mncx1,0,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint2/p3.p3^mncx1?/p4.p4^mncx2?*mncFQ(mnci1?) = Q.Q^2/Q.Q^mncx1/Q.Q^mncx2*mnceq*mncG(mncx1,0,mncx2,0,1,0)*Q(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2/p3.p3^mncx1?/p4.p4^mncx2?*mncFQ(mnci1?,mnci2?) = Q.Q^2/Q.Q^mncx1/Q.Q^mncx2*mnceq*( +mncG(mncx1,0,mncx2,0,2,0)*Q(mnci1)*Q(mnci2) +mncG(mncx1,0,mncx2,0,2,1)*Q.Q*d_(mnci1,mnci2)/2 ); else; id mncint2/p3.p3^mncx1?/p4.p4^mncx2?*mncFQ(?a) = Q.Q^2/Q.Q^mncx1/Q.Q^mncx2*mnceq *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,0,mncx2,0,nargs_(?a),mncj) *Q.Q^mncj/2^mncj*mncy^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,Q; id mncdel(?a) = dd_(?a); endif; multiply replace_(p2,p3,mnce2,mnce3,p5,p4,mnce5,mnce4); else; print "Illegal symmetry in LA"; setexitflag; endif; #call ACCU(First loop integral) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(3,`SCHEME') * #break *--#] la : *--#[ bu : #case bu * * Integral of type BU * It may as well be handled by BE * We only need renumbering. * multiply replace_(p1,p2,p2,p6,p3,p5,p4,p7,p5,p8,p6,p3,p7,p4,p8,p1); * *--#] bu : *--#[ fa : #case fa * * Integral of type FA. * This may as well be done by BE. * *--#] fa : *--#[ be : #case be * * Reduction procedure for three loop graphs of the BE or benz type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<------<-\ * P1 / \ P2 / \ P3 * / \ / \ * / P6 v ^ P7 \ * / \ / \ * Q --<-- \ / --<-- Q * \ | / * \ v P8 / * \ | / * P5 \ | / P4 * \---->------->----/ * #ifdef `BEPATH' #call benzred(p1,p2,p3,p4,p5,p6,p7,p8,Q) #else if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #call ACCU2(AB p1.p3 p1.p1 p3.p3 p8.p8,Benz scalar 0) id p1.p3 = p1.p1/2+p3.p3/2-p8.p8/2; #call ACCU2(AB p2.p3 p2.p2 p3.p3 p7.p7,Benz scalar 1) id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p6.p6,Benz scalar 2) id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz scalar 3) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB Q.p3 p3.p3 Q.Q p4.p4,Benz scalar 4) id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #call ACCU(Benz scalar 5) #endif multiply Q.Q; if ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7) > 0 ); multiply acc(1/ep); #call triangle(p2,p6,p7,p1,p3) multiply ep; endif; *#call ACCU(Benz recursion) * * Use the left-right symmetry relation. * if ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( ( count(p5.p5,1) < count(p4.p4,1) ) || ( ( count(p5.p5,1) == count(p4.p4,1) ) && ( count(p6.p6,1) < count(p7.p7,1) ) ) ) ) ); multiply replace_(p1,-p3,p2,-p2,p3,-p1,p4,-p5,p5,-p4,p6,-p7,p7,-p6,Q,-Q); endif; #call ACCU2(AB p1.p1 p5.p5 p3.p3 p4.p4 Q.p8 Q.Q Q.p2 Q.p7,Benz recursion) *#call ACCU(Rearrange) * * Now we use the second level reduction. We have only BU left * because FA was treated already together with BE. * if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) > 0 ); id p1.p1 = p5.p5 + p3.p3 - p4.p4 -2*Q.p8; endif; if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) > 0 ); id Q.p2 = Q.p7 + p3.p3/2 + Q.Q/2 - p4.p4/2; endif; *if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) > 0 ); * if ( ( count(p3.p3,1) > count(p4.p4,1) ) * || ( ( count(p3.p3,1) == count(p4.p4,1) ) * && ( ( count(p7.p7,1) > count(p8.p8,1) ) * || ( ( count(p7.p7,1) == count(p8.p8,1) ) * && ( ( count(p5.p5,1) > count(p2.p2,1) ) * || ( ( count(p5.p5,1) == count(p2.p2,1) ) * && ( count(Q.p7,1) < count(Q.p8,1) ) ) ) ) ) ) ); * Multiply,replace_(p3,-p4,p4,-p3,p2,-p5,p5,-p2,p7,p8,p8,p7); * endif; *endif; #call ACCU(Prepare second) if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) > 0 ); multiply acc(1/ep); if ( count(p3.p3,1) > count(p4.p4,1) ); #call triangle(p7,p2,p6,p3,p8) else; #call triangle(p8,p5,p6,p4,p7) endif; multiply ep; endif; #call ACCU(Second recursion) if ( match(1/p6.p6/p7.p7) == 0 ); if ( ( count(p6.p6,1) < count(p7.p7,1) ) || ( ( count(p6.p6,1) == count(p7.p7,1) ) && ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( count(p5.p5,1) < count(p4.p4,1) ) ) ) ) ); multiply replace_(p1,-p3,p2,-p2,p3,-p1,p4,-p5,p5,-p4,p6,-p7,p7,-p6,Q,-Q); endif; elseif ( ( count(p5.p5,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) ); if ( ( count(p4.p4,1) < count(p5.p5,1) ) || ( ( count(p4.p4,1) == count(p5.p5,1) ) && ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( count(p6.p6,1) < count(p7.p7,1) ) ) ) ) ); multiply replace_(p1,-p3,p2,-p2,p3,-p1,p4,-p5,p5,-p4,p6,-p7,p7,-p6,Q,-Q); endif; elseif ( ( count(p1.p1,1) < count(p3.p3,1) ) || ( ( count(p1.p1,1) == count(p3.p3,1) ) && ( ( count(p5.p5,1) < count(p4.p4,1) ) || ( ( count(p5.p5,1) == count(p4.p4,1) ) && ( count(p6.p6,1) < count(p7.p7,1) ) ) ) ) ); multiply replace_(p1,-p3,p2,-p2,p3,-p1,p4,-p5,p5,-p4,p6,-p7,p7,-p6,Q,-Q); endif; #call ACCU(Use Symmetry) * #ifdef `POW' #if `POW' >= 1 if ( count(p6.p6,1) >= 0 ); * id p6.p6 = p1.p1+p2.p2-2*p1.p2; * id p6 = p2-p1; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); * id p8 = p6-p7; * id p1 = p2-p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) ) discard; elseif ( count(p2.p2,1) >= 0 ); * id p2.p2 = p1.p1+p6.p6+2*p1.p6; * id p2 = p1+p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ) discard; elseif ( count(p4.p4,1) >= 0 ); if ( count(p5.p5,1) >= 0 ) discard; id p4.p4 = Q.Q+p3.p3-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ); * repeat id p3.p3/p2.p2 = 1+p7.p7/p2.p2-2*p2.p7/p2.p2; * repeat id p2.p3/p2.p2 = 1-p2.p7/p2.p2; if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; * if ( count(p2.p2,1) < 0 ); * id p3 = p2-p7; * endif; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) < 0 ); repeat id p1.p1/p5.p5 = 1+Q.Q/p5.p5+2*Q.p5/p5.p5; repeat id p1.p5/p5.p5 = 1+Q.p5/p5.p5; if ( count(p5.p5,1) >= 0 ); multiply replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6 ,Q,-Q,p4,-p5,p5,-p4); else; id p1 = Q+p5; id p3 = Q+p4; endif; endif; else; exit "mincer integral Pre-Setup 1";* Just in case we forgot something endif; #call ACCU(Pre-setup 1) if ( count(p6.p6,1) >= 0 ); * id p6.p6 = p1.p1+p2.p2-2*p1.p2; * id p6 = p2-p1; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); * id p8 = p6-p7; * id p1 = p2-p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) ) discard; elseif ( count(p2.p2,1) >= 0 ); * id Q.p2 = Q.Q/2+p1.p1/2-p5.p5/2+Q.p6; * id p2.p2 = p1.p1+p6.p6+2*p1.p6; * id p2 = p1+p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ) discard; elseif ( count(p4.p4,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; if ( count(p5.p5,1) >= 0 ) discard; id p4.p4 = Q.Q+p3.p3-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ); repeat id p3.p3/p2.p2 = 1+p7.p7/p2.p2-2*p2.p7/p2.p2; repeat id p2.p3/p2.p2 = 1-p2.p7/p2.p2; if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p2.p2,1) < 0 ); id p3 = p2-p7; endif; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) < 0 ); repeat id p1.p1/p5.p5 = 1+Q.Q/p5.p5+2*Q.p5/p5.p5; repeat id p1.p5/p5.p5 = 1+Q.p5/p5.p5; if ( count(p5.p5,1) >= 0 ); multiply replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6 ,Q,-Q,p4,-p5,p5,-p4); else; id p1 = Q+p5; id p3 = Q+p4; endif; endif; else; exit "mincer integral Pre-Setup 2";* Just in case we forgot something endif; #call ACCU(Pre-setup 2) #if `POW' >= 4 if ( count(p6.p6,1) >= 0 ); * id p6.p6 = p1.p1+p2.p2-2*p1.p2; * id p6 = p2-p1; * id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; * id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; * id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); * id p8.p8 = p6.p6-2*p6.p7+p7.p7; * id p1.p1 = p2.p2-2*p2.p6+p6.p6; * id p8 = p6-p7; * id p1 = p2-p6; * id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; * id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) ) discard; elseif ( count(p2.p2,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; id p2.p2 = p1.p1+p6.p6+2*p1.p6; id Q.p2 = Q.Q/2+p1.p1/2-p5.p5/2+Q.p6; id p2 = p1+p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ) discard; elseif ( count(p4.p4,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; if ( count(p5.p5,1) >= 0 ) discard; id p4.p4 = Q.Q+p3.p3-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ); repeat id p3.p3/p2.p2 = 1+p7.p7/p2.p2-2*p2.p7/p2.p2; repeat id p2.p3/p2.p2 = 1-p2.p7/p2.p2; if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p2.p2,1) < 0 ); id p3 = p2-p7; endif; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) < 0 ); repeat id p1.p1/p5.p5 = 1+Q.Q/p5.p5+2*Q.p5/p5.p5; repeat id p1.p5/p5.p5 = 1+Q.p5/p5.p5; if ( count(p5.p5,1) >= 0 ); multiply replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6 ,Q,-Q,p4,-p5,p5,-p4); else; id p1 = Q+p5; id p3 = Q+p4; endif; endif; else; exit "mincer integral Pre-Setup 3";* Just in case we forgot something endif; #call ACCU(Pre-setup 3) #if `POW' >= 6 if ( count(p6.p6,1) >= 0 ); * id p6.p6 = p1.p1+p2.p2-2*p1.p2; * id p6 = p2-p1; * id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; * id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; * id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); id p8.p8 = p6.p6-2*p6.p7+p7.p7; id p1.p1 = p2.p2-2*p2.p6+p6.p6; id p8 = p6-p7; id p1 = p2-p6; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) ) discard; elseif ( count(p2.p2,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; id p2.p2 = p1.p1+p6.p6+2*p1.p6; id Q.p2 = Q.Q/2+p1.p1/2-p5.p5/2+Q.p6; id p2 = p1+p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ) discard; elseif ( count(p4.p4,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; if ( count(p5.p5,1) >= 0 ) discard; id p4.p4 = Q.Q+p3.p3-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ); repeat id p3.p3/p2.p2 = 1+p7.p7/p2.p2-2*p2.p7/p2.p2; repeat id p2.p3/p2.p2 = 1-p2.p7/p2.p2; if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p2.p2,1) < 0 ); id p3 = p2-p7; endif; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) < 0 ); repeat id p1.p1/p5.p5 = 1+Q.Q/p5.p5+2*Q.p5/p5.p5; repeat id p1.p5/p5.p5 = 1+Q.p5/p5.p5; if ( count(p5.p5,1) >= 0 ); multiply replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6 ,Q,-Q,p4,-p5,p5,-p4); else; id p1 = Q+p5; id p3 = Q+p4; endif; endif; else; exit "mincer integral Pre-Setup 4";* Just in case we forgot something endif; #call ACCU(Pre-setup 4) #endif #endif #endif #endif repeat; if ( count(p6.p6,1) >= 0 ); id p6.p6 = p1.p1+p2.p2-2*p1.p2; id p6 = p2-p1; id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); id p8.p8 = p6.p6-2*p6.p7+p7.p7; id p1.p1 = p2.p2-2*p2.p6+p6.p6; id p8 = p6-p7; id p1 = p2-p6; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) ) discard; elseif ( count(p2.p2,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; id p2.p2 = p1.p1+p6.p6+2*p1.p6; * id Q.p2 = Q.Q/2+p1.p1/2-p5.p5/2+Q.p6; Reactivated 13-sep-1994 id Q.p2 = Q.Q/2+p1.p1/2-p5.p5/2+Q.p6; id p2 = p1+p6; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ) discard; elseif ( count(p4.p4,1) >= 0 ); id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; if ( count(p5.p5,1) >= 0 ) discard; id p4.p4 = Q.Q+p3.p3-2*Q.p3; id p4 = p3-Q; if ( count(p3.p3,1) >= 0 ); repeat id p3.p3/p2.p2 = 1+p7.p7/p2.p2-2*p2.p7/p2.p2; repeat id p2.p3/p2.p2 = 1-p2.p7/p2.p2; if ( count(p7.p7,1) >= 0 ) discard; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p2.p2,1) < 0 ); id p3 = p2-p7; endif; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) < 0 ); repeat id p1.p1/p5.p5 = 1+Q.Q/p5.p5+2*Q.p5/p5.p5; repeat id p1.p5/p5.p5 = 1+Q.p5/p5.p5; if ( count(p5.p5,1) >= 0 ); multiply replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6 ,Q,-Q,p4,-p5,p5,-p4); else; id p1 = Q+p5; id p3 = Q+p4; endif; endif; else; exit "mincer integral setup first loop";* Just in case we forgot something endif; endrepeat; #call ACCU(setup first loop) if ( count(p6.p6,1) >= 0 ); multiply replace_(p2,mncp9,p7,p8,p8,-p7,p5,p6); multiply mncnaar(p3,mnce3); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p3.p3/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p3.mncq1; totensor,nosquare,mncp9,mncFQ; elseif ( ( count(p8.p8,1) >= 0 ) && ( count(p1.p1,1) >= 0 ) ); multiply replace_(p2,p4,p3,p6,p4,p1,p7,-p7,p5,mncp9,p6,-p8,Q,-Q); multiply mncnaar(p3,mnce3); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p3.p3/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p3.mncq1; totensor,nosquare,mncp9,mncFQ; elseif ( count(p2.p2,1) >= 0 ); multiply replace_(p5,p6,p8,-p7,p6,p8,p7,mncp9); label 2; multiply mncnaar(p7,mnce7); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p7.p7/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p7.mncq1; totensor,nosquare,mncp9,mncFQ; elseif ( count(p4.p4,1) >= 0 ); if ( count(p3.p3,1) >= 0 ); multiply replace_(p2,p3,p6,-p7,p5,p6,p7,-mncp9); goto 2; else; multiply replace_(p2,p1,p8,p4,p1,mncp9,p5,p8); multiply mncnaar(Q,mnceq,1); id Q.p8 = mncp9.mncp9/2-p8.p8/2-Q.Q/2; if ( count(p8.p8,1) >= 0 ) discard; id p8 = mncp9-Q; id mncp9.mncq1?{p1,p3,p4,p6,p7} = p1.mncq1-p6.mncq1; id Q.mncp9 = mncp9.mncp9/2+Q.Q/2-p8.p8/2; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p1.p1,1,p3.p3,1) > count(p4.p4,1,p6.p6,1) ); multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); endif; if ( count(p1.p1,1,p6.p6,1) > count(p3.p3,1,p4.p4,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4); id p7 = -p7; endif; totensor,nosquare,Q,mncFQ; id,many,mncq1?{p1,p3,p4,p6,p7}.mncq2?{p1,p3,p4,p6,p7}^D? = mncx^D*mncq1.mncq2^D; endif; elseif ( ( count(p1.p1,1) >= 0 ) && ( count(p3.p3,1) >= 0 ) ); multiply replace_(p5,-p1,p4,-p3,p7,p4,p8,p7,p2,-p8); multiply mncnaar(Q,mnceq,1); id Q.p8 = mncp9.mncp9/2-p8.p8/2-Q.Q/2; if ( count(p8.p8,1) >= 0 ) discard; id p8 = mncp9-Q; id mncp9.mncq1?{p1,p3,p4,p6,p7} = p1.mncq1-p6.mncq1; id Q.mncp9 = mncp9.mncp9/2+Q.Q/2-p8.p8/2; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p1.p1,1,p3.p3,1) > count(p4.p4,1,p6.p6,1) ); multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); endif; if ( count(p1.p1,1,p6.p6,1) > count(p3.p3,1,p4.p4,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4); id p7 = -p7; endif; totensor,nosquare,Q,mncFQ; id,many,mncq1?{p1,p3,p4,p6,p7}.mncq2?{p1,p3,p4,p6,p7}^D? = mncx^D*mncq1.mncq2^D; else; Print "Illegal case in BE"; SetExitFlag; endif; #call ACCU2(B p8 mncp9 mncnaar mncFQ mncx mncint3,Prepare first loop) keep brackets; * multiply mncint1*mncint2*mncint3; if ( match(mncnaar(Q,mnceq,1)) ); id mncnaar(Q,mnceq,1) = 1; id mncx^D? = mncp9.mncp9^D/Q.Q^D; multiply mncp9.mncp9^4/Q.Q^4; if ( count(p8.p8,1) >= 0 ) discard; if ( count(mncFQ,1) == 0 ); id mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*mncG(mncx1,2,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint2*mncFQ(mnci1?)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*Q(mnci1)*mncG(mncx1,2,mncx2,0,1,0); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2*mncFQ(mnci1?,mnci2?)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq* (mncG(mncx1,2,mncx2,0,2,0)*mncFFPP(mnci1,mnci2) +mncG(mncx1-1,2,mncx2,0,0,0)*acc(mncpoch(3,1))*d_(mnci1,mnci2)*Q.Q/2); else; id mncint2*mncFQ(?a)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = mncFQ(?a)/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq* sum_(mncs,0,integer_(nargs_(?a)/2),mncG(mncx1-mncs,2,mncx2,0,nargs_(?a)-2*mncs,0) *acc(mncpoch(nargs_(?a)+2-mncs,mncs))*Q.Q^mncs *sum_(mncj,0,integer_(nargs_(?a)/2)-mncs,sign_(mncj)*Q.Q^mncj * the original mncy/4 becomes mncy/2 when we consider the normalization of * the distrib_ to expand the mncFQ. *mncy^mncj*mncy^mncs/2^mncj/2^mncs*acc(mncpoch(nargs_(?a)+1-2*mncs,mncj)) )); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncs?*mncFQ(?a) = fac_(mncs)*distrib_(1,2*mncs,mncdel,mncFQ,?a); tovector,mncFQ,Q; id mncdel(?a) = dd_(?a); else; id mncFFPP(mnci1?,mnci2?) = Q(mnci1)*Q(mnci2) - d_(mnci1,mnci2)*Q.Q/2*acc(mncpoch(3,1)); endif; else; id p8 = mncp9 - mncq9; id mncnaar(mncq1?,mncy?) = mncnaar(mncq1,mncy)*replace_(mncq9,mncq1); repeat; id mncFQ(mncp9) = mncp9.mncp9; id mncFQ(?a,mncp9,?b) = mncFQ(?a,?b)*mncp9.mncp9; endrepeat; totensor,nosquare,mncFQ,mncp9; if ( count(mncFQ,1) == 0 ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2? = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy *mncG(mncx1,0,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?) = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy *mncG(mncx1,0,mncx2,0,1,0)*mncq9(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?,mnci2?) = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy*( +mncG(mncx1,0,mncx2,0,2,0)*mncq9(mnci1)*mncq9(mnci2) +mncG(mncx1,0,mncx2,0,2,1)*mncq9.mncq9*d_(mnci1,mnci2)/2 ); else; id mncnaar(mncq9?,mncx?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(?a) = mncnaar(mncq9,mncx)*mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncx *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,0,mncx2,0,nargs_(?a),mncj) *mncq9.mncq9^mncj/2^mncj*mncy^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,mncq9; id mncnaar(mncq1?,mncy?) = replace_(mncq9,mncq1); id mncdel(?a) = dd_(?a); endif; endif; #call ACCU(First loop integral) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(3,`SCHEME') * #break *--#] be : *--#[ no : #case no * * Reduction procedure for three loop graphs of the NO or nonplanar type. * Notation is from S.mncG.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<-----<-\ * P1 / \ P2 / \ P3 * / v / \ * / P7 \ / \ * / \ / \ * Q --<-- / --<-- Q * \ / \ / * \ P8 / \ / * \ ^ \ / * P6 \ / P5 \ / P4 * \->------>----->-/ * multiply mncint3*Q.Q; #call newplane(p1,p2,p3,p4,p5,p6,p7,p8,Q,mncint3) #call ACCU(noplane recursion) repeat id Q.p2/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = ( p1.p1/2+p3.p3/2-p4.p4/2-p6.p6/2-Q.p5 ) /p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; repeat id Q.p2/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p8.p8 = ( Q.p8+p3.p3/2+Q.Q/2-p4.p4/2 ) /p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p8.p8; repeat id Q.p2/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7 = ( Q.p7+p1.p1/2+Q.Q/2-p6.p6/2 ) /p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7; if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); label 1; if ( count(p3.p3,1) < count(p4.p4,1) ); multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5); * elseif ( ( count(p3.p3,1) == count(p4.p4,1) ) * && ( count(p5.p5,1) < count(p8.p8,1) ) ); * multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5); endif; elseif ( match(1/p1.p1/p2.p2/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); goto 1; elseif ( match(1/p1.p1/p2.p2/p3.p3/p5.p5/p6.p6/p7.p7/p8.p8) ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2,p7,-p7,p8,-p8,Q,-Q); goto 1; elseif ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p7.p7/p8.p8) ); multiply replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7); goto 1; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); if ( count(p7.p7,1) > count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; elseif ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p6.p6/p7.p7/p8.p8) ); if ( count(p7.p7,1) < count(p8.p8,1) ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2,p7,-p7,p8,-p8,Q,-Q); else; multiply replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7); endif; if ( count(p7.p7,1) > count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; elseif ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p8.p8) ); multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5); if ( count(p7.p7,1) > count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; elseif ( match(1/p1.p1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7) ); multiply replace_(p1,-p6,p6,-p1,p2,-p8,p8,-p2,p5,p7,p7,p5); if ( count(p7.p7,1) > count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; else; repeat; if ( count(p2.p2,1) < count(p5.p5,1) ) multiply replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7); if ( count(p7.p7,1) < count(p8.p8,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); if ( count(p2.p2,1) < count(p7.p7,1) ) multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5); endrepeat; endif; #call ACCU(Move Q.p2) #ifdef `POW' #if `POW' >= 6 if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p1.p1/p6.p6 = 1+mncx/p6.p6; id mncx = Q.Q+2*Q.p5+2*Q.p8; * repeat id Q.p7/p6.p6/p3.p3/p4.p4 = * (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p6.p6/p3.p3/p4.p4; * repeat id p7.p8/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5 = * (p2.p2/2-p3.p3/2+p5.p5/2-p6.p6/2-Q.p8)/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p2.p2/p5.p5/p7.p7/p8.p8 = (mncx-p5.p5+p7.p7+p8.p8)/p5.p5/p7.p7/p8.p8; id mncx = 2*p1.p3-2*Q.p5-Q.Q; repeat id p2.p5/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = (p4.p4/2+p6.p6/2-p7.p7/2-p8.p8/2+Q.p5)/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; * repeat id p7.p8/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = * (p7.p7+p8.p8-mncy9)/2/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; * if ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); * repeat id Q.p2/p1.p1/p3.p3/p4.p4/p6.p6 = * (p1.p1/2+p3.p3/2-p4.p4/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; * repeat id Q.p7/p1.p1/p3.p3/p4.p4/p6.p6 = * (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; * repeat id Q.p8/p1.p1/p3.p3/p4.p4/p6.p6 = * (p1.p1/2-Q.Q/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; * endif; endif; #call ACCU(Prepare second A) #if `POW' >= 8 if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p1.p1/p6.p6 = 1+mncx/p6.p6; id mncx = Q.Q+2*Q.p5+2*Q.p8; repeat id Q.p7/p6.p6/p3.p3/p4.p4 = (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p6.p6/p3.p3/p4.p4; * repeat id p7.p8/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5 = * (p2.p2/2-p3.p3/2+p5.p5/2-p6.p6/2-Q.p8)/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p2.p2/p5.p5/p7.p7/p8.p8 = (mncx-p5.p5+p7.p7+p8.p8)/p5.p5/p7.p7/p8.p8; id mncx = 2*p1.p3-2*Q.p5-Q.Q; repeat id p2.p5/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = (p4.p4/2+p6.p6/2-p7.p7/2-p8.p8/2+Q.p5)/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; repeat id p7.p8/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = (p7.p7+p8.p8-mncy9)/2/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; if ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id Q.p2/p1.p1/p3.p3/p4.p4/p6.p6 = (p1.p1/2+p3.p3/2-p4.p4/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; * repeat id Q.p7/p1.p1/p3.p3/p4.p4/p6.p6 = * (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; * repeat id Q.p8/p1.p1/p3.p3/p4.p4/p6.p6 = * (p1.p1/2-Q.Q/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; endif; endif; #call ACCU(Prepare second B) #endif #endif #endif if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p1.p1/p6.p6 = 1+mncx/p6.p6; id mncx = Q.Q+2*Q.p5+2*Q.p8; repeat id Q.p7/p6.p6/p3.p3/p4.p4 = (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p6.p6/p3.p3/p4.p4; repeat id p7.p8/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5 = (p2.p2/2-p3.p3/2+p5.p5/2-p6.p6/2-Q.p8)/p6.p6/p3.p3/p4.p4/p2.p2/p5.p5; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id p2.p2/p5.p5/p7.p7/p8.p8 = (mncx-p5.p5+p7.p7+p8.p8)/p5.p5/p7.p7/p8.p8; id mncx = 2*p1.p3-2*Q.p5-Q.Q; repeat id p2.p5/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = (p4.p4/2+p6.p6/2-p7.p7/2-p8.p8/2+Q.p5)/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; repeat id p7.p8/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8 = (p7.p7+p8.p8-mncy9)/2/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8; if ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); repeat id Q.p2/p1.p1/p3.p3/p4.p4/p6.p6 = (p1.p1/2+p3.p3/2-p4.p4/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; repeat id Q.p7/p1.p1/p3.p3/p4.p4/p6.p6 = (p3.p3/2-Q.Q/2-p4.p4/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; repeat id Q.p8/p1.p1/p3.p3/p4.p4/p6.p6 = (p1.p1/2-Q.Q/2-p6.p6/2-Q.p5)/p1.p1/p3.p3/p4.p4/p6.p6; endif; endif; if ( ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) == 0 ) && ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) == 0 ) ); repeat; if ( count(p2.p2,1) < count(p5.p5,1) ) multiply replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7); if ( count(p7.p7,1) < count(p8.p8,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); if ( count(p2.p2,1) < count(p7.p7,1) ) multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5,mncy9,mncx9,mncx9,mncy9); endrepeat; endif; #call ACCU(Prepare second) if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); id Q.p8 = Q.p2 - p3.p3/2 - Q.Q/2 + p4.p4/2; id p2.p5 = Q.p5+p4.p4/2+p6.p6/2-p7.p7/2-p8.p8/2; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); id mncy9 = p1.p1+p3.p3-2*p1.p3; endif; #call ACCU(Minimize second) if ( match(1/p2.p2/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); multiply acc(1/ep); #call triangle(p5,p6,p7,p8,p4) multiply ep; elseif ( match(1/p1.p1/p3.p3/p4.p4/p5.p5/p6.p6/p7.p7/p8.p8) ); multiply acc(1/ep); #call triangle(p5,p8,p7,p6,p4) multiply ep; endif; id mncx9 = p2.p2+p5.p5+2*p2.p5; id mncy9 = p7.p7+p8.p8-2*p7.p8; repeat; if ( count(p2.p2,1) < count(p5.p5,1) ) multiply replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7); if ( count(p7.p7,1) < count(p8.p8,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); if ( count(p2.p2,1) < count(p7.p7,1) ) multiply replace_(p3,-p4,p4,-p3,p2,-p7,p7,-p2,p5,p8,p8,p5); endrepeat; #call ACCU(Second recursion) * * Now we try to reduce the number of one loop integrals * if ( count(mncint3,1) ); if ( count(p2.p2,1) >= 0 ); if ( count(p8.p8,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign elseif ( count(p3.p3,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign elseif ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,p6,p6,p1,p7,p8,p8,p7,p3,p4,p4,p3 ,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; endif; elseif ( count(p5.p5,1) >= 0 ); if ( count(p7.p7,1) >= 0 ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; elseif ( count(p8.p8,1) >= 0 ); multiply replace_(p1,p6,p6,p1,p7,p8,p8,p7,p3,p4,p4,p3 ,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; elseif ( count(p3.p3,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign elseif ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,p6,p6,p1,p7,p8,p8,p7,p3,p4,p4,p3 ,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; endif; elseif ( count(p7.p7,1) >= 0 ); if ( count(p8.p8,1) >= 0 ); multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p1.p1,1) >= 0 ); multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p3.p3,1) >= 0 ); multiply replace_(p3,p4,p4,p3,p5,p8,p8,p5,p2,p7,p7,p2); id p3 = -p3; id p4 = -p4; id p2 = -p2; id p7 = -p7; multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; elseif ( count(p4.p4,1) >= 0 ); multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,-p6,p6,-p1,p5,p7,p7,p5,p2,-p8,p8,-p2); endif; elseif ( count(p8.p8,1) >= 0 ); if ( count(p1.p1,1) >= 0 ); multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p3.p3,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p4,p4,p1,p3,p6,p6,p3,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,-p6,p6,-p1,p5,p7,p7,p5,p2,-p8,p8,-p2); endif; elseif ( count(p3.p3,1) >= 0 ); if ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); * Everybody flips sign -> nobody flips sign elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,p6,p6,p1,p5,p7,p7,p5,p2,p8,p8,p2); id p1 = -p1; id p6 = -p6; id p2 = -p2; id p8 = -p8; endif; elseif ( count(p4.p4,1) >= 0 ); if ( count(p1.p1,1) >= 0 ); multiply replace_(p3,-p4,p4,-p3,p5,p8,p8,p5,p2,-p7,p7,-p2); elseif ( count(p6.p6,1) >= 0 ); multiply replace_(p1,p6,p6,p1,p7,p8,p8,p7,p3,p4,p4,p3 ,p2,p5,p5,p2); id Q = -Q; id p7 = -p7; id p8 = -p8; endif; endif; endif; #call ACCU(Symmetry) if ( count(mncint3,1) ); if ( count(p2.p2,1) >= 0 ); if ( count(p1.p1,1) >= 0 ); * id p1.p1 = p6.p6+Q.Q+2*Q.p6; * id p2.p2 = p3.p3+p8.p8+2*p3.p8; * id p1 = p6+Q; * id p2 = p3+p8; if ( ( count(p6.p6,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; elseif ( count(p7.p7,1) >= 0 ); if ( count(p5.p5,1) >= 0 ) discard; * id p2.p2 = p3.p3+p8.p8+2*p3.p8; * id p7.p7 = p4.p4+p5.p5-2*p4.p5; * id p2 = p3+p8; * id p7 = p4-p5; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) ) discard; elseif( count(p5.p5,1) >= 0); repeat id p5.p5/p6.p6 = 1+p8.p8/p6.p6-2*p6.p8/p6.p6; if ( count(p8.p8,1) >= 0 ) discard; repeat id p5.p6/p6.p6 = 1-p6.p8/p6.p6; if ( count(p6.p6,1) >= 0 ); multiply replace_(p1,-p6,p6,-p1,p5,-p2,p2,-p5,p3,-p4,p4,-p3 ,p7,p8,p8,p7); else; repeat id p2.p2/p3.p3 = 1+p8.p8/p3.p3+2*p3.p8/p3.p3; repeat id p2.p3/p3.p3 = 1+p3.p8/p3.p3; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p3.p3,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); else; * id p5 = p6-p8; * id p2 = p3+p8; if ( count(p8.p8,1) >= 0 ) discard; endif; endif; else; exit "mincer integral Setup first loop"; endif; elseif ( count(p1.p1,1) >= 0 ); if ( count(p6.p6,1) >= 0 ); * id p1.p1 = p2.p2+p7.p7-2*p2.p7; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; * id p6.p6 = p5.p5+p8.p8+2*p5.p8; if ( ( count(p5.p5,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; * id p1 = p2-p7; * id p6 = p5+p8; * if ( ( count(p2.p2,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; * if ( ( count(p5.p5,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( count(p5.p5,1) >= 0 ); repeat id p1.p1/p2.p2/p7.p7 = 1/p7.p7+1/p2.p2-2*p2.p7/p2.p2/p7.p7; repeat id p1.p2/p2.p2 = 1-p2.p7/p2.p2; repeat id p1.p7/p7.p7 = p2.p7/p7.p7-1; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( count(p2.p2,1) < 0 ); repeat id p5.p5/p4.p4 = 1+p7.p7/p4.p4-2*p4.p7/p4.p4; id p5.p7 = p4.p7-p7.p7; if ( count(p7.p7,1) >= 0 ) discard; repeat id p4.p5/p4.p4 = 1-p4.p7/p4.p4; if ( count(p4.p4,1) >= 0 ); multiply replace_(Q,-Q,p1,p4,p4,p1,p2,p5,p5,p2,p3,p6,p6,p3 ,p7,-p7,p8,-p8); else; * id p1 = p2-p7; * id p5 = p4-p7; endif; endif; elseif ( count(p3.p3,1) >= 0 ); repeat id p1.p1/p6.p6 = 1+Q.Q/p6.p6+2*Q.p6/p6.p6; repeat id p1.p6/p6.p6 = 1+Q.p6/p6.p6; if ( count(p6.p6,1) < 0 ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p4,p6,p6,p4); else; id p1 = Q+p6; id p3 = Q+p4; endif; endif; else; exit "mincer integral Setup first loop"; endif; else; exit "mincer integral Setup first loop"; endif; endif; #call ACCU(Setup first loop) if ( count(mncint3,1) ); repeat; if ( count(p2.p2,1) >= 0 ); if ( count(p1.p1,1) >= 0 ); id p1.p1 = p6.p6+Q.Q+2*Q.p6; id p2.p2 = p3.p3+p8.p8+2*p3.p8; id p1 = p6+Q; id p2 = p3+p8; if ( ( count(p6.p6,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; elseif ( count(p7.p7,1) >= 0 ); if ( count(p5.p5,1) >= 0 ) discard; id p2.p2 = p3.p3+p8.p8+2*p3.p8; id p7.p7 = p4.p4+p5.p5-2*p4.p5; id p2 = p3+p8; id p7 = p4-p5; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) ) discard; elseif( count(p5.p5,1) >= 0); repeat id p5.p5/p6.p6 = 1+p8.p8/p6.p6-2*p6.p8/p6.p6; if ( count(p8.p8,1) >= 0 ) discard; repeat id p5.p6/p6.p6 = 1-p6.p8/p6.p6; if ( count(p6.p6,1) >= 0 ); multiply replace_(p1,-p6,p6,-p1,p5,-p2,p2,-p5,p3,-p4,p4,-p3 ,p7,p8,p8,p7); else; repeat id p2.p2/p3.p3 = 1+p8.p8/p3.p3+2*p3.p8/p3.p3; repeat id p2.p3/p3.p3 = 1+p3.p8/p3.p3; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p3.p3,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); else; id p5 = p6-p8; id p2 = p3+p8; if ( count(p8.p8,1) >= 0 ) discard; endif; endif; else; exit "mincer integral Prepare first loop"; endif; elseif ( count(p1.p1,1) >= 0 ); if ( count(p6.p6,1) >= 0 ); id p1.p1 = p2.p2+p7.p7-2*p2.p7; if ( ( count(p2.p2,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; id p6.p6 = p5.p5+p8.p8+2*p5.p8; if ( ( count(p5.p5,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; id p1 = p2-p7; id p6 = p5+p8; if ( ( count(p2.p2,1) >= 0 ) || ( count(p8.p8,1) >= 0 ) ) discard; if ( ( count(p5.p5,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; elseif ( count(p5.p5,1) >= 0 ); repeat id p1.p1/p2.p2/p7.p7 = 1/p7.p7+1/p2.p2-2*p2.p7/p2.p2/p7.p7; repeat id p1.p2/p2.p2 = 1-p2.p7/p2.p2; repeat id p1.p7/p7.p7 = p2.p7/p7.p7-1; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; if ( count(p2.p2,1) < 0 ); repeat id p5.p5/p4.p4 = 1+p7.p7/p4.p4-2*p4.p7/p4.p4; id p5.p7 = p4.p7-p7.p7; if ( count(p7.p7,1) >= 0 ) discard; repeat id p4.p5/p4.p4 = 1-p4.p7/p4.p4; if ( count(p4.p4,1) >= 0 ); multiply replace_(Q,-Q,p1,p4,p4,p1,p2,p5,p5,p2,p3,p6,p6,p3 ,p7,-p7,p8,-p8); else; id p1 = p2-p7; id p5 = p4-p7; endif; endif; elseif ( count(p3.p3,1) >= 0 ); repeat id p1.p1/p6.p6 = 1+Q.Q/p6.p6+2*Q.p6/p6.p6; repeat id p1.p6/p6.p6 = 1+Q.p6/p6.p6; if ( count(p6.p6,1) < 0 ); repeat id p3.p3/p4.p4 = 1+Q.Q/p4.p4+2*Q.p4/p4.p4; repeat id p3.p4/p4.p4 = 1+Q.p4/p4.p4; if ( count(p4.p4,1) >= 0 ); multiply replace_(p1,p3,p3,p1,p7,p8,p8,p7,p4,p6,p6,p4); else; id p1 = Q+p6; id p3 = Q+p4; endif; endif; else; exit "mincer integral Prepare first loop"; endif; else; exit "mincer integral Prepare first loop"; endif; endrepeat; if ( count(p2.p2,1) >= 0 ); if ( count(p1.p1,1) >= 0 ); multiply replace_(p5,p6,p6,mncp9,p7,-p7); multiply mncnaar(p6,mnce6); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p6.p6/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p6.mncq1; totensor,nosquare,mncp9,mncFQ; elseif ( count(p7.p7,1) >= 0 ); multiply replace_(p8,p7,p5,p4,p3,mncp9,p4,p8); multiply mncnaar(Q,mnceq); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-Q.Q/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - Q.mncq1; totensor,nosquare,mncp9,mncFQ; else; * must be p5 multiply replace_(p7,-mncp9,p8,-p8); multiply mncnaar(p7,mnce7); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p7.p7/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p7.mncq1; totensor,nosquare,mncp9,mncFQ; endif; else; if ( count(p6.p6,1) >= 0 ); multiply replace_(p7,-p8,p8,p7,p2,p1,p5,mncp9); multiply mncnaar(p4,mnce4); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p4.p4/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p4.mncq1; totensor,nosquare,mncp9,mncFQ; elseif ( count(p5.p5,1) >= 0 ); multiply replace_(p8,p7,p7,-p8,p2,p1,p6,mncp9); multiply mncnaar(p6,mnce6); id p8.mncp9 = mncp9.mncp9/2+p8.p8/2-p6.p6/2; if ( ( count(p8.p8,1) >= 0 ) || ( count(mncp9.mncp9,1) >= 0 ) ) discard; if ( count(p8.Q,1,p8.p1,1,p8.p3,1,p8.p4,1,p8.p6,1,p8.p7,1) > count(mncp9.Q,1,mncp9.p1,1,mncp9.p3,1,mncp9.p4,1,mncp9.p6,1,mncp9.p7,1) ) multiply replace_(p8,-mncp9,mncp9,-p8); id p8.mncq1?!{p8} = mncp9.mncq1 - p6.mncq1; totensor,nosquare,mncp9,mncFQ; else; if ( count(p2.p2,1) >= 0 ) discard; multiply replace_(p7,-p1,p4,-p3,p8,p4,p5,p7,p2,-p8); multiply mncnaar(Q,mnceq,1); id Q.p8 = mncp9.mncp9/2-p8.p8/2-Q.Q/2; if ( count(p8.p8,1) >= 0 ) discard; id p8 = mncp9-Q; id mncp9.mncq1?{p1,p3,p4,p6,p7} = p1.mncq1-p6.mncq1; id Q.mncp9 = mncp9.mncp9/2+Q.Q/2-p8.p8/2; if ( count(p8.p8,1) >= 0 ) discard; if ( count(p1.p1,1,p3.p3,1) > count(p4.p4,1,p6.p6,1) ); multiply replace_(p1,-p6,p6,-p1,p3,-p4,p4,-p3,p7,-p7); endif; if ( count(p1.p1,1,p6.p6,1) > count(p3.p3,1,p4.p4,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4); id p7 = -p7; endif; totensor,nosquare,Q,mncFQ; id,many,mncq1?{p1,p3,p4,p6,p7}.mncq2?{p1,p3,p4,p6,p7}^D? = mncx^D*mncq1.mncq2^D; endif; endif; endif; if ( ( count(mncint3,1) > 0 ) && ( count(mncnaar,1) == 0 ) ); Print "Illegal case in NO"; SetExitFlag; endif; #call ACCU2(B p8 mncp9 mncnaar mncFQ mncx mncint3,Prepare first loop) keep brackets; if ( count(mncint3,1) ); id mncint3 = mncint1*mncint2*mncint3; if ( match(mncnaar(Q,mnceq,1)) ); id mncnaar(Q,mnceq,1) = 1; id mncx^D? = mncp9.mncp9^D/Q.Q^D; multiply mncp9.mncp9^4/Q.Q^4; if ( count(p8.p8,1) >= 0 ) discard; if ( count(mncFQ,1) == 0 ); id mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq* mncG(mncx1,2,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncint2*mncFQ(mnci1?)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*Q(mnci1)* mncG(mncx1,2,mncx2,0,1,0); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2*mncFQ(mnci1?,mnci2?)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq* (mncG(mncx1,2,mncx2,0,2,0)*mncFFPP(mnci1,mnci2) +mncG(mncx1-1,2,mncx2,0,0,0)*acc(mncpoch(3,1))*d_(mnci1,mnci2)*Q.Q/2); else; id mncint2*mncFQ(?a)/mncp9.mncp9^mncx1?/p8.p8^mncx2? = mncFQ(?a)/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq* sum_(mncs,0,integer_(nargs_(?a)/2),mncG(mncx1-mncs,2,mncx2,0,nargs_(?a)-2*mncs,0) *acc(mncpoch(nargs_(?a)+2-mncs,mncs))*Q.Q^mncs *sum_(mncj,0,integer_(nargs_(?a)/2)-mncs,sign_(mncj)*Q.Q^mncj * the original mncy/4 becomes mncy/2 when we consider the normalization of * the distrib_ to expand the mncFQ. *mncy^mncj*mncy^mncs/2^mncj/2^mncs*acc(mncpoch(nargs_(?a)+1-2*mncs,mncj)) )); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncs?*mncFQ(?a) = fac_(mncs)*distrib_(1,2*mncs,mncdel,mncFQ,?a); tovector,mncFQ,Q; id mncdel(?a) = dd_(?a); else; id mncFFPP(mnci1?,mnci2?) = Q(mnci1)*Q(mnci2) - d_(mnci1,mnci2)*Q.Q/2*acc(mncpoch(3,1)); endif; else; id p8 = mncp9 - mncq9; id mncnaar(mncq1?,mncy?) = mncnaar(mncq1,mncy)*replace_(mncq9,mncq1); repeat; id mncFQ(mncp9) = mncp9.mncp9; id mncFQ(?a,mncp9,?b) = mncFQ(?a,?b)*mncp9.mncp9; endrepeat; totensor,nosquare,mncFQ,mncp9; if ( count(mncFQ,1) == 0 ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2? = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy *mncG(mncx1,0,mncx2,0,0,0); elseif ( match(mncFQ(mnci1?)) ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?) = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy *mncG(mncx1,0,mncx2,0,1,0)*mncq9(mnci1); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncnaar(mncq9?,mncy?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(mnci1?,mnci2?) = mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncy*( +mncG(mncx1,0,mncx2,0,2,0)*mncq9(mnci1)*mncq9(mnci2) +mncG(mncx1,0,mncx2,0,2,1)*mncq9.mncq9*d_(mnci1,mnci2)/2 ); else; id mncnaar(mncq9?,mncx?)*mncint2/mncp9.mncp9^mncx1?/p8.p8^mncx2?*mncFQ(?a) = mncnaar(mncq9,mncx)*mncq9.mncq9^2/mncq9.mncq9^mncx1/mncq9.mncq9^mncx2*mncx *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,0,mncx2,0,nargs_(?a),mncj) *mncq9.mncq9^mncj/2^mncj*mncy^mncj)*mncFQ(?a); endif; #call simplify if ( count(mncFQ,1) ); id mncy^mncj?*mncFQ(?a) = distrib_(1,2*mncj,mncdel,mncFQ,?a); tovector,mncFQ,mncq9; id mncnaar(mncq1?,mncy?) = replace_(mncq9,mncq1); id mncdel(?a) = dd_(?a); endif; endif; else; multiply ep; endif; #call ACCU(First loop integral) #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; #call finish(3,`SCHEME') * #break *--#] no : *--#[ o1 : #case o1 * * Integral of type O1. * id p6.p7 = p5.p5/2-p6.p6/2-p7.p7/2; id p7.mncq1?!{p7} = p5.mncq1-p6.mncq1; id p5.p6 = p5.p5/2+p6.p6/2-p7.p7/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; #call ACCU(Momenta 1) multiply mncint1*mncint2*mncint3*Q.Q; #call one(p6,p7,p5,mnce6,mnce7,mnce5,mncint2) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7,mnce5,mnce7); #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o1 : *--#[ o2 : #case o2 * * Integral of type O2. * *id p7 = p4-p6; id p4.p6 = p4.p4/2+p6.p6/2-p7.p7/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; #call ACCU(Momenta 1) multiply mncint1*mncint2*mncint3*Q.Q; #call one(p6,p7,p4,mnce6,mnce7,mnce4,mncint2) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7,mnce4,mnce6); #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o2 : *--#[ o3 : #case o3 * * Integral of type O3. * id p7 = Q-p6; id Q.p6 = Q.Q/2+p6.p6/2-p7.p7/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; #call ACCU(Momenta 1) multiply mncint1*mncint2*mncint3*Q.Q; #call one(p6,p7,Q,mnce6,mnce7,mnceq,mncint2) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7); #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o3 : *--#[ o4 : #case o4 * * Integral of type O4 * Note that this is a hacked up version of BE * The multiplicative constant is for the Bjorken sumrule * id p6.p1 = p1.p1/2+p6.p6/2-p4.p4/2; #call ACCU(scalars 1) id p6.p2 = p2.p2/2+p6.p6/2-p3.p3/2; #call ACCU(scalars 2) id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(scalars 3) id Q.p6 = Q.Q/2+p6.p6/2-p7.p7/2; if ( count(p7.p7,1) >= 0 ) discard; #call ACCU(scalars 4) id,many,mncq1?{p1,p2,p3,p4,p5}.mncq2?{p1,p2,p3,p4,p5}^mncx1? = mncq1.mncq2^mncx1*p6.p6^mncx1/Q.Q^mncx1; totensor,nosquare,mncFQ,Q; #call ACCU2(B p6 p7 mncFQ,Prepare first loop) keep brackets; multiply mncint1*mncint2*mncint3*mnce6^2/mnceq^2*p6.p6^4/Q.Q^3; if ( count(mncFQ,1) == 0 ); id mncint2/p6.p6^mncx1?/p7.p7^mncx2?*mnce6^mncy1? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*mnceq^mncy1* mncG(mncx1,mncy1,mncx2,0,0,0); #call simplify elseif ( match(mncFQ(mnci1?)) ); id mncint2*mncFQ(mnci1?)/p6.p6^mncx1?/p7.p7^mncx2?*mnce6^mncy1? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*mnceq^mncy1*Q(mnci1)* mncG(mncx1,mncy1,mncx2,0,1,0); #call simplify elseif ( match(mncFQ(mnci1?,mnci2?)) ); id mncint2*mncFQ(mnci1?,mnci2?)/p6.p6^mncx1?/p7.p7^mncx2?*mnce6^mncy1? = 1/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*mnceq^mncy1* (mncG(mncx1,mncy1,mncx2,0,2,0)*Q(mnci1)*Q(mnci2) -mncG(mncx1,mncy1,mncx2,0,2,0)*d_(mnci1,mnci2)*Q.Q/2*acc(mncpoch(3,1)) +mncG(mncx1-1,mncy1,mncx2,0,0,0)*acc(mncpoch(3,1))*d_(mnci1,mnci2)*Q.Q/2); #call simplify else; id mncint2*mncFQ(?a)/p6.p6^mncx1?/p7.p7^mncx2?*mnce6^mncy1? = mncFQ(?a)/Q.Q^mncx1/Q.Q^mncx2*Q.Q^2*mnceq*mnceq^mncy1* sum_(mncs,0,integer_(nargs_(?a)/2),mncG(mncx1-mncs,mncy1,mncx2,0,nargs_(?a)-2*mncs,0) *acc(mncpoch(nargs_(?a)+2-mncs,mncs))*Q.Q^mncs *sum_(mncj,0,integer_(nargs_(?a)/2)-mncs,sign_(mncj)*Q.Q^mncj * the original mncy/4 becomes mncy/2 when we consider the normalization of * the distrib_ to expand the mncFQ. *mncy^mncj*mncy^mncs/2^mncj/2^mncs*acc(mncpoch(nargs_(?a)+1-2*mncs,mncj)) )); #call simplify id mncy^mncs?*mncFQ(?a) = fac_(mncs)*distrib_(1,2*mncs,mncdel,mncFQ,?a); tovector,mncFQ,Q; id mncdel(?a) = dd_(?a); endif; *#call one4(p6,p7,Q,mnce6,mnce7,mnceq,p1,p2,p3,p4,p5,mncint2) #call ACCU(First loop integral) *#call simplify *#call ACCU(Simplify first mncG) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7); #call dotwo{} #call ACCU(Simplify mncG\(3\)); repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o4 : *--#[ o5 : #case o5 * * Integral of type O5 which is a flipped version of O2. * *id p7 = p3-p6; id p3.p6 = p3.p3/2+p6.p6/2-p7.p7/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; #call ACCU(Momenta 1) multiply mncint1*mncint2*mncint3*Q.Q; #call one(p6,p7,p3,mnce6,mnce7,mnce3,mncint2) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7,mnce3,mnce4); #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o5 : *--#[ o6 : #case o6 * * Integral of type O3. * id p7 = Q-p6; id Q.p6 = Q.Q/2+p6.p6/2-p7.p7/2; if ( ( count(p6.p6,1) >= 0 ) || ( count(p7.p7,1) >= 0 ) ) discard; #call ACCU(Momenta 1) multiply mncint1*mncint2*mncint3*Q.Q; #call one(p6,p7,Q,mnce6,mnce7,mnceq,mncint2) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) * * The rest is standard. Note that the momenta that still exist * have to be called p1,p3,p4,p6,p7. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7); #call dotwo{} #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] o6 : *--#[ y1 : #case y1 * * File inpy1 does 3-loop diagrams of type Y1. * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id p2.p5 = p2.p2/2+p5.p5/2-p6.p6/2; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint1) #call ACCU2(B mncG,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) #call one(p5,p6,p2,mnce5,mnce6,mnce2,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y1 : *--#[ y2 : #case y2 * * File inpy2 does 3-loop diagrams of type Y2. * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id p1.p5 = p1.p1/2+p5.p5/2-p6.p6/2; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint1) #call ACCU2(B mncG,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) #call one(p5,p6,p1,mnce5,mnce6,mnce1,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y2 : *--#[ y3 : #case y3 * * File inpy3 does 3-loop diagrams of type Y3. * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = p3.mncq1-p5.mncq1; id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id p3.p5 = p3.p3/2+p5.p5/2-p6.p6/2; if ( ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p5,p6,p3,mnce5,mnce6,mnce3,mncint1) #call ACCU2(B mncG,Integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; if ( count(p4.p4,1) >= 0 ) discard; #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,Integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y3 : *--#[ y4 : #case y4 * * File inpy4 does 3-loop diagrams of type Y4. * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id Q.p5 = Q.Q/2+p5.p5/2-p6.p6/2; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p5,p6,Q,mnce5,mnce6,mnceq,mncint1) #call ACCU2(B mncG,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( count(p2.p2,1) >= 0 ) discard; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y4 : *--#[ y5 : #case y5 * * File inpy5 does 3-loop diagrams of type Y5. * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id p4.mncq1?!{p4} = Q.mncq1-p3.mncq1; id p6.mncq1?!{p6} = Q.mncq1-p5.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; id Q.p3 = Q.Q/2+p3.p3/2-p4.p4/2; id Q.p5 = Q.Q/2+p5.p5/2-p6.p6/2; if ( ( count(p1.p1,1) >= 0 ) || ( count(p2.p2,1) >= 0 ) || ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p3,p4,Q,mnce3,mnce4,mnceq,mncint1) id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; id Q.p5 = Q.Q/2+p5.p5/2-p6.p6/2; if ( ( count(p1.p1,1) >= 0 ) || ( count(p2.p2,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU2(B mncG,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) #call one(p5,p6,Q,mnce5,mnce6,mnceq,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) *id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( ( count(p1.p1,1) >= 0 ) || ( count(p2.p2,1) >= 0 ) ) discard; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y5 : *--#[ y6 : #case y6 * * File inpy4 does 3-loop diagrams of type Y6. (flipped Y4) * The algorithm here is designed especially for these diagrams * so that things may proceed faster. * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id Q.p5 = Q.Q/2+p5.p5/2-p6.p6/2; if ( ( count(p3.p3,1) >= 0 ) || ( count(p4.p4,1) >= 0 ) || ( count(p5.p5,1) >= 0 ) || ( count(p6.p6,1) >= 0 ) ) discard; #call ACCU(Momenta substitutions) multiply mncint1*mncint2*mncint3/mnceq^3; #call one(p5,p6,Q,mnce5,mnce6,mnceq,mncint1) #call ACCU2(B mncG,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( count(p2.p2,1) >= 0 ) discard; #call ACCU(Momenta 3) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint3) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral3) Keep Brackets; #call simplify #call ACCU(Simplify 3) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(3,`SCHEME') * #break *--#] y6 : *--#[ t1 : #case t1 * * This is inpt1. It does two loop topologies of type T1. * multiply replace_(p2,p3,p3,p4,p4,p6,p5,p7,mnce2,mnce3,mnce3,mnce4,mnce4,mnce6,mnce5,mnce7) *mncint1*mncint3*Q.Q*mnceq; *Print +f ">%t"; #call dotwo{} ; *#message We are at the print statement #call ACCU(Simplify mncG\(3\)) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(2,`SCHEME') multiply ep; * #break *--#] t1 : *--#[ t2 : #case t2 * * This is inpt2. It does two loop topologies of type T2. * multiply mncint1*mncint2/mnceq^2; if ( count(mnce3,1) < count(mnce4,1) ) multiply replace_(p3,p4,p4,p3,mnce3,mnce4,mnce4,mnce3); id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; if ( ( count(p3.p3,1) >= 0 ) && ( count(mnce3,1) == 0 ) ) discard; if ( ( count(p4.p4,1) >= 0 ) && ( count(mnce4,1) == 0 ) ) discard; #call ACCU(momenta) #call one(p3,p4,p1,mnce3,mnce4,mnce1,mncint1) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 1) Keep Brackets; #call simplify #call ACCU(simplify 1) id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( ( count(p2.p2,1) >= 0 ) && ( count(mnce2,1) == 0 ) ) discard; #call ACCU(momenta 2) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(2,`SCHEME') multiply ep; * #break *--#] t2 : *--#[ t3 : #case t3 * * This is inpt3. It does two loop topologies of type T3. * multiply mncint1*mncint2/mnceq^2; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id p4.mncq1?!{p4} = Q.mncq1-p3.mncq1; id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; if ( ( count(p1.p1,1) >= 0 ) && ( count(mnce1,1) == 0 ) ) discard; if ( ( count(p2.p2,1) >= 0 ) && ( count(mnce2,1) == 0 ) ) discard; if ( ( count(p3.p3,1) >= 0 ) && ( count(mnce3,1) == 0 ) ) discard; if ( ( count(p4.p4,1) >= 0 ) && ( count(mnce4,1) == 0 ) ) discard; #call ACCU(momenta 1) #call one(p3,p4,Q,mnce3,mnce4,mnceq,mncint2) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 1) Keep Brackets; #call simplify #call ACCU(Simplify 1) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; if ( ( count(p1.p1,1) >= 0 ) && ( count(mnce1,1) == 0 ) ) discard; if ( ( count(p2.p2,1) >= 0 ) && ( count(mnce2,1) == 0 ) ) discard; #call ACCU(momenta 2) #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint1) #call ACCU2(B mncG mncexp10 mncexp20 mncexp11,integral 2) Keep Brackets; #call simplify #call ACCU(Simplify 2) repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * #call finish(2,`SCHEME') multiply ep; * #break *--#] t3 : *--#[ l1 : #case l1 * * This is inpl1. It does the one loop topology of type L1. * multiply mncint1/mnceq; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; .sort:prepare 1; id Q.p2 = Q.Q/2-p1.p1/2+p2.p2/2; .sort:prepare 2; id p1.p2 = Q.Q/2-p1.p1/2-p2.p2/2; .sort:prepare 3; id P.p2 = Q.P-P.p1; .sort:prepare 4; #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint1) #call ACCU(integral 1) #call simplify repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(1,`SCHEME') multiply ep^2; * #break *--#] l1 : *--#[ l2 : #case l2 * * This is file inpl2. It does topologies of type L2 which are * meant to have an entire expanded gluon propagator in two loops. * It is done to avoid enormous problems with the gluon insertion * inside the three loop graph. * multiply mnce2^2*mncint1/ep^5/mnceq^3; id p2 = Q-p1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( count(p1.p1,1) >= 0 ) discard; #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint1) #call ACCU(integral 1) #call simplify repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-1; id acc(mncx1?) = mncx1; .sort #call finish(1,`SCHEME') multiply,ep^2; print +f +s; B ep; .sort multiply, + ep^-2*ca*nf * ( - 55/18 - 1/3*mncxi ) + ep^-2*ca^2 * ( 175/36 + 35/24*mncxi ) + ep^-2*nf^2 * ( 4/9 ) + ep^-1*cf*nf * ( - 1 ) + ep^-1*ca*nf * ( - 1199/108 - 2/9*mncxi ) + ep^-1*ca^2 * ( 4229/216 - 97/144*mncxi + 5/8*mncxi^2 - 1/8*mncxi^3 ) + ep^-1*nf^2 * ( 40/27 ) + ep*cf*nf * ( - 1711/36 + 76/3*z3 + 12*z4 ) + ep*ca*nf * ( - 337315/3888 + 50/9*z3*mncxi + 286/27*z3 - 6*z4 + 37/81* mncxi ) + ep*ca^2 * ( 1659373/7776 - 134/9*z3*mncxi - 3/2*z3*mncxi^2 - 1184/27*z3 - 3 *z4*mncxi - 3/2*z4 - 165073/5184*mncxi + 113/8*mncxi^2 - 33/16*mncxi^3 ) + ep*nf^2 * ( 2432/243 - 56/27*z3 ) + cf*nf * ( - 55/6 + 8*z3 ) + ca*nf * ( - 2371/72 - 4*z3 + 5/27*mncxi ) + ca^2 * ( 9821/144 - 2*z3*mncxi - z3 - 6121/864*mncxi + 27/8*mncxi^2 - 9/16* mncxi^3 ) + nf^2 * ( 4 ); id ep^{1+`CUTOFF'} = 0; * #break *--#] l2 : *--#[ l3 : #case l3 * * This is file inpl3. It does topologies of type L3 which are * meant to have an entire expanded gluon propagator in one loop. * It is done to avoid enormous problems with the gluon insertion * inside the two loop graph. * multiply mnce1*mncint1/ep^5/mnceq^2; id p2 = Q-p1; id Q.p1 = Q.Q/2+p1.p1/2-p2.p2/2; if ( count(p2.p2,1) >= 0 ) discard; #call one(p1,p2,Q,mnce1,mnce2,mnceq,mncint1) #call ACCU(integral 1) #call simplify repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); multiply ep^-1; id acc(mncx1?) = mncx1; .sort #call finish(1,`SCHEME') multiply,ep; *B ep; .sort multiply,ep^-1*( +ca*(5/3+mncxi/2-ep*mncxi+ep*mncxi^2/4+31/9*ep-2*ep^2*mncxi+ep^2*mncxi^2/2+188/27*ep^2 -7/6*ep^3*z3*mncxi-35/9*ep^3*z3-4*ep^3*mncxi+ep^3*mncxi^2+1132/81*ep^3) +nf*(-2/3-10/9*ep-56/27*ep^2+14/9*ep^3*z3-328/81*ep^3)); id ep^{1+`CUTOFF'} = 0; multiply ep; * #break *--#] l3 : *--#[ tr : #case tr * * This is inptr. It does the tree level topology tr. * multiply 1/ep^6; id acc(mncx1?) = mncx1; id ep^{1+`CUTOFF'} = 0; .sort: Expression G scheme; * * Now approximate and convert to MSbar. * #call finish(0,`SCHEME') multiply ep^3; * #break *--#] tr : #endswitch * #endprocedure *--#] integral : *--#[ intpow : #procedure intpow(TOPO) #switch `TOPO' #case la #case be #case no #case fa #case bu #case o1 #case o2 #case o3 #case o4 #case o5 #case o6 #case y1 #case y2 #case y3 #case y4 #case y5 #case y6 Multiply,i_^3; #break #case t1 #case t2 #case t3 Multiply,i_^2; #break #case l1 #case l2 #case l3 Multiply,i_; #break #endswitch #endprocedure *--#] intpow : *--#[ ladder : #procedure ladder(P1,P2,P3,P4,P5,P6,P7,P8,Q) * * Reduction procedure for three loop graphs of the LA or ladder type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<-----<-\ * P1 / | P2 | \ P3 * / | | \ * / | | \ * / | | \ * Q --<-- P7 ^ v P8 --<-- Q * \ | | / * \ | | / * \ | | / * P6 \ | P5 | / P4 * \->------>----->-/ * * We start with reducing the dotproducts in the numerator to sums * of denominators. Only one dotproduct is irreducible: P7.P8 * The easiest reduction (and quite fast) is by writing everything * in terms of Q,P1,P2,P3 and then rewriting * the few remaining dotproducts in terms of denominators. * There are variations to this principle. * * Routine coded and tested by J.A.M.Vermaseren 8-jul-1990. * modified 13-nov-1990. Variations added april 1993. * Backward reduction added 15-may-1993 * #ifdef `LATRANS' #if ( `LATRANS' == 1 ) #call ACCU2(AB `P3'.`P7' `P2'.`P7' `P7'.`P8',Ladder scalar 0) id `P3'.`P7' = `P2'.`P7'+`P7'.`P8'; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `Q'.`Q' `P4'.`P4',Ladder scalar 1) id `Q'.`P3' = `P3'.`P3'/2-`P4'.`P4'/2+`Q'.`Q'/2; #call ACCU2(AB `Q'.`P2' `P2'.`P2' `Q'.`Q' `P5'.`P5',Ladder scalar 2) id `Q'.`P2' = `P2'.`P2'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P2'.`P7' `P1'.`P1' `P2'.`P2' `P7'.`P7',Ladder scalar 3) id `P2'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P3' `P3'.`P3' `P2'.`P2' `P8'.`P8',Ladder scalar 4) id `P2'.`P3' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU2(AB `Q'.`P7' `P1'.`P1' `P2'.`P2' `P5'.`P5' `P6'.`P6',Ladder scalar 5) id `Q'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2+`P5'.`P5'/2-`P6'.`P6'/2; #call ACCU(Ladder scalar 6) #else #if ( `LATRANS' == 2 ) #call ACCU2(AB `P3'.`P7' `P1'.`P7' `P7'.`P8' `P7'.`P7',Ladder scalar 0) id `P3'.`P7' = `P1'.`P7'-`P7'.`P7'+`P7'.`P8'; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `Q'.`Q' `P4'.`P4',Ladder scalar 1) id `Q'.`P3' = `P3'.`P3'/2-`P4'.`P4'/2+`Q'.`Q'/2; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `Q'.`Q' `P6'.`P6',Ladder scalar 2) id `Q'.`P1' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU2(AB `P1'.`P7' `P1'.`P1' `P2'.`P2' `P7'.`P7',Ladder scalar 3) id `P1'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2+`P7'.`P7'/2; #call ACCU2(AB `Q'.`P7' `P1'.`P1' `P2'.`P2' `P5'.`P5' `P6'.`P6',Ladder scalar 4) id `Q'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2+`P5'.`P5'/2-`P6'.`P6'/2; #call ACCU2(AB `P1'.`P3' `P1'.`P1' `P3'.`P3' `P7'.`P7' `P8'.`P8' `P7'.`P8',Ladder scalar 5) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2+`P7'.`P8'; #call ACCU(Ladder scalar 6) #else #if ( `LATRANS' == 3 ) if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) > count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `Q'.`P2' `P2'.`P2' `Q'.`Q' `P5'.`P5',Ladder scalar 0) id `Q'.`P2' = `P2'.`P2'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P2'.`P7' `P1'.`P1' `P2'.`P2' `P7'.`P7',Ladder scalar 1) id `P2'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P8' `P3'.`P3' `P2'.`P2' `P8'.`P8',Ladder scalar 2) id `P2'.`P8' = `P3'.`P3'/2-`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU2(AB `Q'.`P7' `P1'.`P1' `P2'.`P2' `P5'.`P5' `P6'.`P6',Ladder scalar 3) id `Q'.`P7' = `P1'.`P1'/2-`P2'.`P2'/2+`P5'.`P5'/2-`P6'.`P6'/2; #call ACCU2(AB `Q'.`P8' `P3'.`P3' `P2'.`P2' `P5'.`P5' `P4'.`P4',Ladder scalar 4) id `Q'.`P8' = `P3'.`P3'/2-`P2'.`P2'/2+`P5'.`P5'/2-`P4'.`P4'/2; #call ACCU(Ladder scalar 5) #else if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) > count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `P6'.`P6' `Q'.`Q',Ladder scalar 0) id `Q'.`P1' = `P1'.`P1'/2-`P6'.`P6'/2+`Q'.`Q'/2; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `P4'.`P4' `Q'.`Q',Ladder scalar 1) id `Q'.`P3' = `P3'.`P3'/2-`P4'.`P4'/2+`Q'.`Q'/2; if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) > count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `Q'.`P2' `P2'.`P2' `Q'.`Q' `P5'.`P5',Ladder scalar 2) id `Q'.`P2' = `P2'.`P2'/2+`Q'.`Q'/2-`P5'.`P5'/2; if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) > count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P7'.`P7',Ladder scalar 3) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P3' `P3'.`P3' `P2'.`P2' `P8'.`P8',Ladder scalar 4) id `P2'.`P3' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU2(AB `P1'.`P3' `P1'.`P1' `P3'.`P3' `P7'.`P7' `P8'.`P8' `P7'.`P8',Ladder scalar 5) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2+`P7'.`P8'; #call ACCU(Ladder scalar 6) #endif #endif #endif #else if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) > count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `Q'.`P1' `P1'.`P1' `P6'.`P6' `Q'.`Q',Ladder scalar 0) id `Q'.`P1' = `P1'.`P1'/2-`P6'.`P6'/2+`Q'.`Q'/2; #call ACCU2(AB `Q'.`P3' `P3'.`P3' `P4'.`P4' `Q'.`Q',Ladder scalar 1) id `Q'.`P3' = `P3'.`P3'/2-`P4'.`P4'/2+`Q'.`Q'/2; #call ACCU2(AB `Q'.`P2' `P2'.`P2' `Q'.`Q' `P5'.`P5',Ladder scalar 2) id `Q'.`P2' = `P2'.`P2'/2+`Q'.`Q'/2-`P5'.`P5'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P7'.`P7',Ladder scalar 3) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P3' `P3'.`P3' `P2'.`P2' `P8'.`P8',Ladder scalar 4) id `P2'.`P3' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU2(AB `P1'.`P3' `P1'.`P1' `P3'.`P3' `P7'.`P7' `P8'.`P8' `P7'.`P8',Ladder scalar 5) id `P1'.`P3' = `P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2+`P7'.`P8'; #call ACCU(Ladder scalar 6) #endif if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P7',`P8',`P8',`P7',`P6',`P4',`P4',`P6'); endif; * * The rule of the triangle is applied in the procedure `triangle' * We apply it in the triangle at the right side. The above reordering * makes it the simplest triangle. * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); multiply acc(1/ep); #call triangle(`P8',`P4',`P3',`P5',`P2') multiply ep; else; repeat; if ( match(`P2'.`P2'/`P7'.`P7'/`P1'.`P1'^2) ); id `P7'.`P8'^mncx9?*`P2'.`P2'/`P1'.`P1'^mncx1?/`P7'.`P7'^mncx7?/`P6'.`P6'^mncx6? = `P1'.`P1'*`P7'.`P8'^mncx9/`P1'.`P1'^mncx1/`P7'.`P7'^mncx7/`P6'.`P6'^mncx6 *( +`P7'.`P7'/`P1'.`P1' +mncx6/(mncx1-1)*(`P7'.`P7'-`P5'.`P5')/`P6'.`P6' -acc(5-2*mncx7+mncx9-mncx1-mncx6-2*ep)/(mncx1-1) ); endif; if ( match(`P2'.`P2'/`P8'.`P8'/`P3'.`P3'^2) ); id `P7'.`P8'^mncx9?*`P2'.`P2'/`P3'.`P3'^mncx3?/`P8'.`P8'^mncx8?/`P4'.`P4'^mncx4? = `P3'.`P3'*`P7'.`P8'^mncx9/`P3'.`P3'^mncx3/`P8'.`P8'^mncx8/`P4'.`P4'^mncx4 *( +`P8'.`P8'/`P3'.`P3' +mncx4/(mncx3-1)*(`P8'.`P8'-`P5'.`P5')/`P4'.`P4' -acc(5-2*mncx8+mncx9-mncx3-mncx4-2*ep)/(mncx3-1) ); endif; if ( match(`P5'.`P5'/`P7'.`P7'/`P6'.`P6'^2/`P2'.`P2') ); id `P7'.`P8'^mncx9?*`P5'.`P5'/`P1'.`P1'^mncx1?/`P7'.`P7'^mncx7?/`P6'.`P6'^mncx6? = `P6'.`P6'*`P7'.`P8'^mncx9/`P1'.`P1'^mncx1/`P7'.`P7'^mncx7/`P6'.`P6'^mncx6 *( +`P7'.`P7'/`P6'.`P6' +mncx1/(mncx6-1)*(`P7'.`P7'-`P2'.`P2')/`P1'.`P1' -acc(5-2*mncx7+mncx9-mncx1-mncx6-2*ep)/(mncx6-1) ); endif; if ( match(`P5'.`P5'/`P8'.`P8'/`P4'.`P4'^2/`P2'.`P2') ); id `P7'.`P8'^mncx9?*`P5'.`P5'/`P3'.`P3'^mncx3?/`P8'.`P8'^mncx8?/`P4'.`P4'^mncx4? = `P4'.`P4'*`P7'.`P8'^mncx9/`P3'.`P3'^mncx3/`P8'.`P8'^mncx8/`P4'.`P4'^mncx4 *( +`P8'.`P8'/`P4'.`P4' +mncx3/(mncx4-1)*(`P8'.`P8'-`P2'.`P2')/`P3'.`P3' -acc(5-2*mncx8+mncx9-mncx3-mncx4-2*ep)/(mncx4-1) ); endif; endrepeat; endif; * #endprocedure *--#] ladder : *--#[ makepochs : * #procedure makepochs(nval) #do mncj = 0,`nval'-2 L mncFp`mncj' = mncpoc(`nval',`mncj'); #enddo repeat; id mncpoc(mncn?,mncj?pos_) = mncpoc(mncn,mncj-1)/mncj*mncden(mncn-mncj,-ep); id mncpoc(mncn?,0) = 1; endrepeat; #do jj = 1,1 id,once,mncden(mncx?,-ep) = mncden1(mncx,-ep); repeat id mncden1(mncx?,-ep) = 1/mncx+ep/mncx*mncden1(mncx,-ep); if ( count(mncden,1) ) redefine jj "0"; .sort #enddo Format nospaces; Format 80; .sort #do mncj = 0,`nval'-2 #write <> "Fill mncpoch(`nval',`mncj') = %e",mncFp`mncj'; Drop mncFp`mncj'; #enddo #endprocedure * *--#] makepochs : *--#[ momsubs : #procedure momsubs(TOPO) #switch `TOPO' *--#[ la : #case la * #ifdef `LATRANS' #if ( `LATRANS' == 1 ) id p5.mncq1?!{p5} = p2.mncq1-Q.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1\(1\)) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p2.mncq1; #call ACCU(moms2\(1\)) id p1.mncq1?!{p1} = p2.mncq1+p7.mncq1; #call ACCU2(AB P Q p7 p2 p3,moms3\(1\)) #else #if ( `LATRANS' == 2 ) id p5.mncq1?!{p5} = p6.mncq1-p7.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1\(2\)) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p2.mncq1; #call ACCU(moms2\(2\)) id p2.mncq1?!{p2} = p1.mncq1-p7.mncq1; #call ACCU2(AB P Q p1 p7 p3,moms3\(2\)) #else #if ( `LATRANS' == 3 ) id p5.mncq1?!{p5} = p2.mncq1-Q.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1\(3\)) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p3.mncq1?!{p3} = p2.mncq1+p8.mncq1; #call ACCU(moms2\(3\)) id p1.mncq1?!{p1} = p2.mncq1+p7.mncq1; #call ACCU2(AB P Q p7 p2 p8,moms3\(3\)) #else id p5.mncq1?!{p5} = p2.mncq1-Q.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1\(0\)) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p2.mncq1; #call ACCU(moms2\(0\)) id p7.mncq1?!{p7} = p1.mncq1-p2.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms3\(0\)) #endif #endif #endif #else id p5.mncq1?!{p5} = p2.mncq1-Q.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p2.mncq1; #call ACCU(moms2) id p7.mncq1?!{p7} = p1.mncq1-p2.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms3) #endif * #break *--#] la : *--#[ be : #case be * #ifndef `BEPATH' id p6.p7 = p6.p6/2+p7.p7/2-p8.p8/2; id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; id p7.p8 = p6.p6/2-p7.p7/2-p8.p8/2; * id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; id p6.mncq1?!{p6} = p2.mncq1-p1.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p3.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p1.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms2) #else #if ( `BEPATH' == 0 ) id p6.p7 = p6.p6/2+p7.p7/2-p8.p8/2; id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; id p7.p8 = p6.p6/2-p7.p7/2-p8.p8/2; * id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; id p6.mncq1?!{p6} = p2.mncq1-p1.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p3.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p1.mncq1; #call ACCU(moms1 \(0\)) id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms2) #endif #if ( `BEPATH' == 1 ) id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; id p2.p7 = p2.p2/2+p7.p7/2-p3.p3/2; id p3.p7 = p2.p2/2-p3.p3/2-p7.p7/2; id p4.mncq1?!{p4} = p5.mncq1+p8.mncq1; id p3.mncq1?!{p3} = p1.mncq1+p8.mncq1; id p2.mncq1?!{p2} = p1.mncq1+p6.mncq1; #call ACCU(moms1 \(1\)) id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; id p7.mncq1?!{p7} = p6.mncq1-p8.mncq1; #call ACCU2(AB P Q p1 p6 p8,moms2) #endif #if ( `BEPATH' == 2 ) id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; id p8.mncq1?!{p8} = p6.mncq1-p7.mncq1; id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; #call ACCU(moms1 \(2\)) id p6.mncq1?!{p6} = p2.mncq1-p1.mncq1; id p3.mncq1?!{p3} = p2.mncq1-p7.mncq1; #call ACCU2(AB P Q p1 p2 p7,moms2) #endif #if ( `BEPATH' == 3 ) id p1.p5 = p1.p1/2+p5.p5/2-Q.Q/2; id p3.p7 = p2.p2/2-p3.p3/2-p7.p7/2; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p3.mncq1?!{p3} = p2.mncq1-p7.mncq1; id p4.mncq1?!{p4} = p8.mncq1+p5.mncq1; id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; #call ACCU(moms1 \(3\)) id p7.mncq1?!{p7} = p6.mncq1-p8.mncq1; id p1.mncq1?!{p1} = p2.mncq1-p6.mncq1; #call ACCU2(AB P Q p2 p6 p8,moms2) #endif #if ( `BEPATH' == 4 ) id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; id p1.p5 = p1.p1/2+p5.p5/2-Q.Q/2; id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; id p2.p7 = p2.p2/2+p7.p7/2-p3.p3/2; id p3.p7 = p2.p2/2-p3.p3/2-p7.p7/2; id p1.mncq1?!{p1} = Q.mncq1+p5.mncq1; id p2.mncq1?!{p2} = p3.mncq1+p7.mncq1; id p7.mncq1?!{p7} = p6.mncq1-p8.mncq1; #call ACCU(moms1 \(4\)) id p3.mncq1?!{p3} = Q.mncq1+p4.mncq1; id p5.mncq1?!{p5} = p4.mncq1-p8.mncq1; #call ACCU2(AB P Q p4 p6 p8,moms2) #endif #if ( `BEPATH' == 5 ) id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; id p4.mncq1?!{p4} = -Q.mncq1+p3.mncq1; id p5.mncq1?!{p5} = -Q.mncq1+p1.mncq1; id p8.mncq1?!{p8} = p6.mncq1-p7.mncq1; #call ACCU(moms1 \(5\)) id p3.mncq1?!{p3} = p2.mncq1-p7.mncq1; id p2.mncq1?!{p2} = p1.mncq1+p6.mncq1; #call ACCU2(AB P Q p1 p6 p7,moms2) #endif #if ( `BEPATH' == 6 ) id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; id p2.p7 = p2.p2/2+p7.p7/2-p3.p3/2; id p3.p7 = p2.p2/2-p3.p3/2-p7.p7/2; id p3.mncq1?!{p3} = Q.mncq1+p4.mncq1; id p2.mncq1?!{p2} = p1.mncq1+p6.mncq1; id p7.mncq1?!{p7} = p6.mncq1-p8.mncq1; #call ACCU(moms1 \(6\)) id p1.mncq1?!{p1} = Q.mncq1+p5.mncq1; id p4.mncq1?!{p4} = p5.mncq1+p8.mncq1; #call ACCU2(AB P Q p5 p6 p8,moms2) #endif #if ( `BEPATH' == 7 ) id p1.p6 = p2.p2/2-p1.p1/2-p6.p6/2; id p3.p7 = p2.p2/2-p3.p3/2-p7.p7/2; id p6.p7 = p6.p6/2+p7.p7/2-p8.p8/2; id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; id p7.p8 = p6.p6/2-p7.p7/2-p8.p8/2; id p6.mncq1?!{p6} = p2.mncq1-p1.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p3.mncq1; id p8.mncq1?!{p8} = p4.mncq1-p5.mncq1; #call ACCU(moms1 \(7\)) id p1.mncq1?!{p1} = Q.mncq1+p5.mncq1; id p3.mncq1?!{p3} = Q.mncq1+p4.mncq1; #call ACCU2(AB P Q p2 p4 p5,moms2) #endif #if ( `BEPATH' == 8 ) id p1.p5 = p1.p1/2+p5.p5/2-Q.Q/2; id p3.p4 = p3.p3/2+p4.p4/2-Q.Q/2; id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; id p4.mncq1?!{p4} = -Q.mncq1+p3.mncq1; id p5.mncq1?!{p5} = -Q.mncq1+p1.mncq1; id p8.mncq1?!{p8} = p6.mncq1-p7.mncq1; #call ACCU(moms1 \(8\)) id p3.mncq1?!{p3} = p2.mncq1-p7.mncq1; id p1.mncq1?!{p1} = p2.mncq1-p6.mncq1; #call ACCU2(AB P Q p2 p6 p7,moms2) #endif #endif * #break *--#] be : *--#[ no : #case no * #ifndef `NOSPEC' id p5.mncq1?!{p5} = p6.mncq1-p8.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p1.mncq1; #call ACCU(moms2) id p8.mncq1?!{p8} = p2.mncq1-p3.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms3) #else #if ( `NOSPEC' == 0 ) id p5.mncq1?!{p5} = p6.mncq1-p8.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p1.mncq1; #call ACCU(moms2) id p8.mncq1?!{p8} = p2.mncq1-p3.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms3) #endif #if ( `NOSPEC' == 1 ) id p5.mncq1?!{p5} = p6.mncq1-p8.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p1.mncq1?!{p1} = p2.mncq1-p7.mncq1; #call ACCU(moms2) id p3.mncq1?!{p3} = p2.mncq1-p8.mncq1; #call ACCU2(AB P Q p7 p2 p8,moms3) #endif #if ( `NOSPEC' == 2 ) id p5.mncq1?!{p5} = p6.mncq1-p8.mncq1; id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; #call ACCU(moms1) id p6.mncq1?!{p6} = p1.mncq1-Q.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p1.mncq1; #call ACCU(moms2) id p3.mncq1?!{p3} = p2.mncq1-p8.mncq1; #call ACCU2(AB P Q p1 p2 p8,moms3) #endif #endif * #break *--#] no : *--#[ fa : #case fa * id p6.mncq1?!{p6} = p2.mncq1-p1.mncq1; id p7.mncq1?!{p7} = p2.mncq1-p3.mncq1; id p8.mncq1?!{p8} = p3.mncq1-p1.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p3.mncq1-Q.mncq1; id p5.mncq1?!{p5} = p1.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p2 p3,moms2) * #break *--#] fa : *--#[ bu : #case bu * id p2.mncq1?!{p2} = p1.mncq1-p8.mncq1; id p4.mncq1?!{p4} = p1.mncq1-p6.mncq1; id p5.mncq1?!{p5} = p6.mncq1-p8.mncq1; #call ACCU(moms1) id p7.mncq1?!{p7} = p6.mncq1-Q.mncq1; id p3.mncq1?!{p3} = p8.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p6 p8,moms2) * #break *--#] bu : *--#[ o1 : #case o1 * #ifndef `O1PATH' id p7.mncq1?!{p7} = p5.mncq1-p6.mncq1; id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; #call ACCU2(AB P Q p1 p2 p6,moms2) #else #if ( `O1PATH' == 0 ) id p7.mncq1?!{p7} = p5.mncq1-p6.mncq1; id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; #call ACCU2(AB P Q p1 p2 p6,moms2) #endif #if ( `O1PATH' == 1 ) id p3.mncq1?!{p3} = p4.mncq1-p5.mncq1; id p2.mncq1?!{p2} = p1.mncq1-p5.mncq1; #call ACCU(moms1) id p5.mncq1?!{p5} = p6.mncq1+p7.mncq1; id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p6 p7,moms2) #endif #if ( `O1PATH' == 2 ) id p7.mncq1?!{p7} = p5.mncq1-p6.mncq1; id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; id p2.mncq1?!{p2} = p1.mncq1-p5.mncq1; #call ACCU2(AB P Q p1 p5 p6,moms2) #endif #endif *#call ACCU(moms2) * #break *--#] o1 : *--#[ o2 : #case o2 * id p7.mncq1?!{p7} = p4.mncq1-p6.mncq1; id p2.mncq1?!{p2} = p3.mncq1+Q.mncq1; #call ACCU(moms1) id p1.mncq1?!{p1} = p4.mncq1+Q.mncq1; id p5.mncq1?!{p5} = p4.mncq1-p3.mncq1; #call ACCU2(AB P Q p3 p4 p6,moms2) * #break *--#] o2 : *--#[ o3 : #case o3 * id p7.mncq1?!{p7} = Q.mncq1-p6.mncq1; id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; #call ACCU(moms1) id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p2 p6,moms2) * #break *--#] o3 : *--#[ o4 : #case o4 * id p7.mncq1?!{p7} = Q.mncq1-p6.mncq1; id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p1.mncq1-p6.mncq1; id p3.mncq1?!{p3} = p2.mncq1-p6.mncq1; #call ACCU2(AB P Q p1 p2 p6,moms2) * #break *--#] o4 : *--#[ o5 : #case o5 * id p7.mncq1?!{p7} = p3.mncq1-p6.mncq1; id p2.mncq1?!{p2} = p3.mncq1+Q.mncq1; #call ACCU(moms1) id p1.mncq1?!{p1} = p4.mncq1+Q.mncq1; id p5.mncq1?!{p5} = p4.mncq1-p3.mncq1; #call ACCU2(AB P Q p3 p4 p6,moms2) * #break *--#] o5 : *--#[ o6 : #case o6 * id p7.mncq1?!{p7} = Q.mncq1-p6.mncq1; id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; #call ACCU(moms1) id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU2(AB P Q p1 p2 p6,moms2) * #break *--#] o6 : *--#[ y1 : #case y1 * id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = p2.mncq1-p5.mncq1; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y1 : *--#[ y2 : #case y2 * id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = p1.mncq1-p5.mncq1; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y2 : *--#[ y3 : #case y3 * id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = p3.mncq1-p5.mncq1; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y3 : *--#[ y4 : #case y4 * id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = Q.mncq1-p5.mncq1; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y4 : *--#[ y5 : #case y5 * id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; id p4.mncq1?!{p4} = Q.mncq1-p3.mncq1; id p6.mncq1?!{p6} = Q.mncq1-p5.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y5 : *--#[ y6 : #case y6 * id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; id p6.mncq1?!{p6} = Q.mncq1-p5.mncq1; id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU2(AB P Q p1 p3 p5,moms2) * #break *--#] y6 : *--#[ t1 : #case t1 * id p4.mncq1?!{p4} = p1.mncq1-Q.mncq1; #call ACCU(moms1) id p3.mncq1?!{p3} = p2.mncq1-Q.mncq1; #call ACCU(moms2) id p5.mncq1?!{p5} = p1.mncq1-p2.mncq1; #call ACCU2(AB P Q p1 p2,moms3) * #break *--#] t1 : *--#[ t2 : #case t2 * id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU(moms1) id p4.mncq1?!{p4} = p1.mncq1-p3.mncq1; #call ACCU2(AB P Q p1 p3,moms2) * #break *--#] t2 : *--#[ t3 : #case t3 * id p2.mncq1?!{p2} = Q.mncq1-p1.mncq1; #call ACCU{moms1} id p4.mncq1?!{p4} = Q.mncq1-p3.mncq1; #call ACCU2(AB P Q p1 p3,moms2) * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #default #message Unknown case `TOPO' in momsubs.prc #break #endswitch #endprocedure *--#] momsubs : *--#[ newplane : #procedure newplane(P1,P2,P3,P4,P5,P6,P7,P8,Q,INTS) * * Reduction procedure for three loop graphs of the NO or nonplanar type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * For the first part we use the algorithms from Chetyrkin & Tkachov * (Nuclear physics B192(1981)159. * To reduce powers in the numerator. These algorithms work faster. * * /-<------<-----<-\ * P1 / \ P2 / \ P3 * / v / \ * / P7 \ / \ * / \ / \ * Q --<-- / --<-- Q * \ / \ / * \ P8 / \ / * \ ^ \ / * P6 \ / P5 \ / P4 * \->------>----->-/ * * Express everything in powers of pi.pi, Q.Q and Q.p2 or p2.p5; * We need p2.p5 only when there are enough denominators. * The only difficult relation here is the one for p7.p8 * * Note that the system here is optimized for the big and difficult * expressions. * Note also that the final stages can be improved. * At the moment the goto statements are not so good * #ifndef `NOSPEC' if ( count(`P7'.`P7',1) < count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `P1'.`Q' `P1'.`P1' `Q'.`Q' `P6'.`P6',dots 0) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU2(AB `P3'.`Q' `P3'.`P3' `Q'.`Q' `P4'.`P4',dots 1) id `P3'.`Q' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P7'.`P7',dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P3' `P3'.`P3' `P2'.`P2' `P8'.`P8',dots 3) id `P3'.`P2' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; if ( count(`P7'.`P7',1) < count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU(dots 4) id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; * repeat id `P1'.`P3'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = * (`P2'.`P5'+`P2'.`P2'/2+`P5'.`P5'/2+`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2) * /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU(dots 5) repeat id `Q'.`P2'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = (`P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2-`P2'.`P5') /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU(dots 6) * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') == 0 ); * id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 * +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; * endif; *#call ACCU(dots 7) #else #if ( `NOSPEC' == 0 ) if ( count(`P7'.`P7',1) < count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU2(AB `P1'.`Q' `P1'.`P1' `Q'.`Q' `P6'.`P6',dots 0) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU2(AB `P3'.`Q' `P3'.`P3' `Q'.`Q' `P4'.`P4',dots 1) id `P3'.`Q' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P7'.`P7',dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P3' `P3'.`P3' `P2'.`P2' `P8'.`P8',dots 3) id `P3'.`P2' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; if ( count(`P7'.`P7',1) < count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; #call ACCU(dots 4) id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; * repeat id `P1'.`P3'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = * (`P2'.`P5'+`P2'.`P2'/2+`P5'.`P5'/2+`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2) * /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU(dots 5) repeat id `Q'.`P2'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = (`P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2-`P2'.`P5') /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU(dots 6) * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') == 0 ); * id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 * +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; * endif; *#call ACCU(dots 7) #endif #if ( `NOSPEC' == 1 ) id `P2'.`P7' = `P2'.`P2'/2+`P7'.`P7'/2-`P1'.`P1'/2; #call ACCU2(AB `P2'.`P8' `P3'.`P3' `P2'.`P2' `P8'.`P8',dots 0) id `P2'.`P8' = -`P3'.`P3'/2+`P2'.`P2'/2+`P8'.`P8'/2; #call ACCU2(AB `P7'.`P8' `P7'.`P7' `P8'.`P8' `P1'.`P1' `P3'.`P3' `P1'.`P3',dots 1) id `P7'.`P8' = `P7'.`P7'/2+`P8'.`P8'/2-`P1'.`P1'/2-`P3'.`P3'/2+`P1'.`P3'; #call ACCU2(AB `P7'.`Q' `Q'.`P2' `P1'.`P1' `Q'.`Q' `P6'.`P6',dots 2) id `P7'.`Q' = `Q'.`P2'-`P1'.`P1'/2-`Q'.`Q'/2+`P6'.`P6'/2; #call ACCU2(AB `P8'.`Q' `P3'.`P3' `Q'.`Q' `P4'.`P4' `Q'.`P2',dots 3) id `P8'.`Q' = `Q'.`P2'-`P3'.`P3'/2-`Q'.`Q'/2+`P4'.`P4'/2; #call ACCU2(AB `P1'.`P3' `P2'.`P5' `P2'.`P2' `P5'.`P5' `Q'.`Q' `P4'.`P4' `P6'.`P6',dots 4) repeat id `P1'.`P3'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = (`P2'.`P5'+`P2'.`P2'/2+`P5'.`P5'/2+`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2) /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU2(AB `Q'.`P2' `P1'.`P1' `P3'.`P3' `P7'.`P7' `P8'.`P8' `P2'.`P5',dots 5) #do ii6 = 1,1 id `Q'.`P2'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = (`P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2-`P2'.`P5') /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; if ( match(`Q'.`P2'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ) redefine ii6 "0"; #call ACCU2(AB `Q'.`P2' `P1'.`P1' `P3'.`P3' `P7'.`P7' `P8'.`P8' `P2'.`P5',dots 6) #enddo if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') == 0 ); id,once,`P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; endif; #call ACCU(dots 7) if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') == 0 ); id,`P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; endif; #call ACCU(dots 8) #endif #if ( `NOSPEC' == 2 ) #call ACCU2(AB `P1'.`Q' `P1'.`P1' `Q'.`Q' `P6'.`P6',dots 0) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU2(AB `P8'.`Q' `P2'.`Q' `P3'.`P3' `Q'.`Q' `P4'.`P4',dots 1) id `P8'.`Q' = `P2'.`Q'-`P3'.`P3'/2-`Q'.`Q'/2+`P4'.`P4'/2; #call ACCU2(AB `P1'.`P2' `P1'.`P1' `P2'.`P2' `P7'.`P7',dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU2(AB `P2'.`P8' `P3'.`P3' `P2'.`P2' `P8'.`P8',dots 3) id `P2'.`P8' = `P8'.`P8'/2+`P2'.`P2'/2-`P3'.`P3'/2; #call ACCU2(AB `P1'.`P8' `P2'.`Q' `P3'.`P3' `P5'.`P5' `Q'.`Q' `P4'.`P4' `P6'.`P6' `P8'.`P8',dots 4) id `P1'.`P8' = +`P2'.`Q'-`P3'.`P3'/2-`P5'.`P5'/2 -`Q'.`Q'/2+`P4'.`P4'/2+`P6'.`P6'/2+`P8'.`P8'/2; #call ACCU(dots 5) repeat id `Q'.`P2'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = (`P1'.`P1'/2+`P3'.`P3'/2-`P7'.`P7'/2-`P8'.`P8'/2-`P2'.`P5') /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'; #call ACCU(dots 6) * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' * /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') == 0 ); * id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 * +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; * endif; *#call ACCU(dots 7) #endif #endif if ( count(`P7'.`P7',1) < count(`P8'.`P8',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P7'.`P7',1) == count(`P8'.`P8',1) ); if ( count(`P1'.`P1',1) < count(`P3'.`P3',1) ); multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); elseif ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ); if ( count(`P6'.`P6',1) < count(`P4'.`P4',1) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4' ,`P7',`P8',`P8',`P7'); endif; endif; * * Now we start a set of iterations to make either * 1: the power of `P2'.`P5' equal to zero * 2: the power of `P2'.`P2',`P5'.`P5',`P7'.`P7',`P8'.`P8' >= 0 * 3: the power of `P1'.`P1',`P3'.`P3',`P4'.`P4',`P6'.`P6' >= -1 * repeat; if ( match(`P2'.`P5'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); if ( count(`P6'.`P6',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4? /`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6?/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4 /`P5'.`P5'^mncx5/`P6'.`P6'^mncx6/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx6-1)*(`P3'.`P3'-`P2'.`P2'-`P8'.`P8') +acc(3-2*ep+mncx9-mncx1-mncx8-2*mncx2)*`P6'.`P6' +mncx1*`P6'.`P6'/`P1'.`P1'*(`P7'.`P7'-`P2'.`P2') +mncx8*`P6'.`P6'/`P8'.`P8'*(`P3'.`P3'-`P2'.`P2') )/(mncx6-1)/2/`P2'.`P5'; elseif ( count(`P1'.`P1',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4? /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4 /`P5'.`P5'^mncx5/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx1-1)*(`P4'.`P4'-`P5'.`P5'-`P7'.`P7') +acc(2-2*ep+mncx9-mncx7-2*mncx5)*`P1'.`P1' +`P1'.`P1'/`P6'.`P6'*(`P8'.`P8'-`P5'.`P5') +mncx7*`P1'.`P1'/`P7'.`P7'*(`P4'.`P4'-`P5'.`P5') )/(mncx1-1)/2/`P2'.`P5'; elseif ( count(`P4'.`P4',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4? /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4 /`P5'.`P5'^mncx5/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx4-1)*(`P1'.`P1'-`P2'.`P2'-`P7'.`P7') +acc(3-2*ep+mncx9-mncx3-mncx7-2*mncx2)*`P4'.`P4' +mncx3*`P4'.`P4'/`P3'.`P3'*(`P8'.`P8'-`P2'.`P2') +mncx7*`P4'.`P4'/`P7'.`P7'*(`P1'.`P1'-`P2'.`P2') )/(mncx4-1)/2/`P2'.`P5'; elseif ( count(`P3'.`P3',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4' /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4' /`P5'.`P5'^mncx5/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx3-1)*(`P6'.`P6'-`P5'.`P5'-`P8'.`P8') +acc(2-2*ep+mncx9-mncx8-2*mncx5)*`P3'.`P3' +`P3'.`P3'/`P4'.`P4'*(`P7'.`P7'-`P5'.`P5') +mncx8*`P3'.`P3'/`P8'.`P8'*(`P6'.`P6'-`P5'.`P5') )/(mncx3-1)/2/`P2'.`P5'; endif; endif; endrepeat; #call ACCU(nonplanar pass 1) * * The next set of iterations has two phases. * The first phase stops when either * 1: the power of `P2'.`P5' equal to zero * 2: the power of `P1'.`P1',`P3'.`P3',`P4'.`P4',`P6'.`P6',`P7'.`P7',`P8'.`P8' >= 0 * 3: the power of `P2'.`P2',`P5'.`P5' >= -1 * The second phase stops when * 1: the power of `P2'.`P5' equal to zero * 2: the power of all others is >= -1 * #ifdef `LONGINT' #do i = 1,`LONGINT' if ( match(`P2'.`P5'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); if ( count(`P5'.`P5',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(2*mncx2+mncx7+mncx8-mncx9-3+2*ep) +acc(mncx9-1)*`P2'.`P2'/`P2'.`P5' +mncx7*(`P2'.`P2'-`P1'.`P1')/`P7'.`P7' +mncx8*(`P2'.`P2'-`P3'.`P3')/`P8'.`P8' )/(mncx5-1)/2/`P2'.`P5'*`P5'.`P5'; elseif ( count(`P2'.`P2',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx7+mncx8-mncx9-1+2*ep) +acc(mncx9-1)*`P5'.`P5'/`P2'.`P5' +mncx7*(`P5'.`P5'-`P4'.`P4')/`P7'.`P7' +mncx8*(`P5'.`P5'-`P6'.`P6')/`P8'.`P8' )/(mncx2-1)/2/`P2'.`P5'*`P2'.`P2'; elseif ( count(`P8'.`P8',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx8-1)*(2*`P1'.`P1'+2*`P3'.`P3'-2*`P2'.`P2'-`P7'.`P7'-`Q'.`Q') +acc(mncx9-1)*`P8'.`P8'*(`P1'.`P1'-`P2'.`P2'-`P7'.`P7')/`P2'.`P5' +acc(3-2*ep-2*mncx7-mncx8)*`P8'.`P8' +2*`P8'.`P8'/`P2'.`P2'*(`P1'.`P1'-`P7'.`P7') )/(mncx8-1)/2/`P2'.`P5'; elseif ( count(`P7'.`P7',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8' = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8' * ( +acc(mncx7-1)*(2*`P6'.`P6'+2*`P4'.`P4'-2*`P5'.`P5'-`P8'.`P8'-`Q'.`Q') +acc(mncx9-1)*`P7'.`P7'*(`P6'.`P6'-`P5'.`P5'-`P8'.`P8')/`P2'.`P5' +acc(1-2*ep-mncx7)*`P7'.`P7' +2*`P7'.`P7'/`P5'.`P5'*(`P6'.`P6'-`P8'.`P8') )/(mncx7-1)/2/`P2'.`P5'; endif; * id acc(0) = 0; endif; #call ACCU(nonplanar pass 2\,`i') #enddo #endif repeat; if ( match(`P2'.`P5'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); if ( count(`P5'.`P5',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(2*mncx2+mncx7+mncx8-mncx9-3+2*ep) +acc(mncx9-1)*`P2'.`P2'/`P2'.`P5' +mncx7*(`P2'.`P2'-`P1'.`P1')/`P7'.`P7' +mncx8*(`P2'.`P2'-`P3'.`P3')/`P8'.`P8' )/(mncx5-1)/2/`P2'.`P5'*`P5'.`P5'; elseif ( count(`P2'.`P2',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'^mncx2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx7+mncx8-mncx9-1+2*ep) +acc(mncx9-1)*`P5'.`P5'/`P2'.`P5' +mncx7*(`P5'.`P5'-`P4'.`P4')/`P7'.`P7' +mncx8*(`P5'.`P5'-`P6'.`P6')/`P8'.`P8' )/(mncx2-1)/2/`P2'.`P5'*`P2'.`P2'; elseif ( count(`P8'.`P8',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8 * ( +acc(mncx8-1)*(2*`P1'.`P1'+2*`P3'.`P3'-2*`P2'.`P2'-`P7'.`P7'-`Q'.`Q') +acc(mncx9-1)*`P8'.`P8'*(`P1'.`P1'-`P2'.`P2'-`P7'.`P7')/`P2'.`P5' +acc(3-2*ep-2*mncx7-mncx8)*`P8'.`P8' +2*`P8'.`P8'/`P2'.`P2'*(`P1'.`P1'-`P7'.`P7') )/(mncx8-1)/2/`P2'.`P5'; elseif ( count(`P7'.`P7',1) < -1 ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8' = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^mncx7/`P8'.`P8' * ( +acc(mncx7-1)*(2*`P6'.`P6'+2*`P4'.`P4'-2*`P5'.`P5'-`P8'.`P8'-`Q'.`Q') +acc(mncx9-1)*`P7'.`P7'*(`P6'.`P6'-`P5'.`P5'-`P8'.`P8')/`P2'.`P5' +acc(1-2*ep-mncx7)*`P7'.`P7' +2*`P7'.`P7'/`P5'.`P5'*(`P6'.`P6'-`P8'.`P8') )/(mncx7-1)/2/`P2'.`P5'; endif; * id acc(0) = 0; endif; endrepeat; #call ACCU(nonplanar pass 2) * * Note: equation 6.14 is wrong!!! 6.13 is confusing. Use d/dk instead * multiply acc(1/ep); while ( match(`P2'.`P5'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); id `P2'.`P5'^mncx9?/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' = `P2'.`P5'^mncx9/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' * ( +2*`P3'.`P3'-2*`P8'.`P8' +acc(1+2*ep-mncx9)*mncdeno(mncx9-1,-4)*`Q'.`Q' +2*`Q'.`Q'*mncdeno(mncx9-1,-4)*(`P2'.`P2'-`P8'.`P8')/`P3'.`P3' )/2/`P2'.`P5'; * id acc(0) = 0; * id acc(2*ep)*mncdeno(0,-4) = -1/2; id 1/`P2'.`P5' = 0; id mncdeno(0,-4) = acc(-1/4/ep); id mncdeno(mncx1?,-4)=acc(1+4/mncx1*ep+16/mncx1^2*ep^2+64/mncx1^3*ep^3 +256/mncx1^4*ep^4+1024/mncx1^5*ep^5+4096/mncx1^6*ep^6 +16384/mncx1^7*ep^7+65536/mncx1^8*ep^8)/mncx1; endwhile; multiply ep; #call ACCU(nonplanar pass 3) * * Next are four recursions that reduce the powers of the propagators * that connect to `Q' to 1. * #ifdef `LONGINT' label 6; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'^2/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx1+2*mncx2+mncx5+mncx6+2*mncx7+mncx8-9+4*ep)*`P6'.`P6' +acc(mncx6-1)*`P1'.`P1' +mncx8*`P2'.`P2'*`P6'.`P6'/`P8'.`P8' -mncx8*`P3'.`P3'*`P6'.`P6'/`P8'.`P8' +mncx5*`P6'.`P6'*`P7'.`P7'/`P5'.`P5' -mncx5*`P4'.`P4'*`P6'.`P6'/`P5'.`P5' )/(mncx6-1); label 1; while ( match(1/`P1'.`P1'^2/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx6+2*mncx5+mncx2+mncx1+2*mncx8+mncx7-9+4*ep)*`P1'.`P1' +acc(mncx1-1)*`P6'.`P6' +mncx7*`P5'.`P5'*`P1'.`P1'/`P7'.`P7' -mncx7*`P4'.`P4'*`P1'.`P1'/`P7'.`P7' +mncx2*`P1'.`P1'*`P8'.`P8'/`P2'.`P2' -mncx2*`P3'.`P3'*`P1'.`P1'/`P2'.`P2' )/(mncx1-1); label 3; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^2/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx4+2*mncx5+mncx2+mncx3+2*mncx7+mncx8-9+4*ep)*`P3'.`P3' +acc(mncx3-1)*`P4'.`P4' +mncx8*`P5'.`P5'*`P3'.`P3'/`P8'.`P8' -mncx8*`P6'.`P6'*`P3'.`P3'/`P8'.`P8' +mncx2*`P3'.`P3'*`P7'.`P7'/`P2'.`P2' -mncx2*`P1'.`P1'*`P3'.`P3'/`P2'.`P2' )/(mncx3-1); label 4; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'^2 /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx3+2*mncx2+mncx5+mncx4+2*mncx8+mncx7-9+4*ep)*`P4'.`P4' +acc(mncx4-1)*`P3'.`P3' +mncx7*`P2'.`P2'*`P4'.`P4'/`P7'.`P7' -mncx7*`P1'.`P1'*`P4'.`P4'/`P7'.`P7' +mncx5*`P4'.`P4'*`P8'.`P8'/`P5'.`P5' -mncx5*`P6'.`P6'*`P4'.`P4'/`P5'.`P5' )/(mncx4-1); id mncdeno(0,mncx1?) = 1/mncx1/ep; id mncdeno(mncx1?,mncx2?) = mncaccm(1+ep*mncx2/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); #call ACCU(Preparation) #endif label 6; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'^2/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx1+2*mncx2+mncx5+mncx6+2*mncx7+mncx8-9+4*ep)*`P6'.`P6' +acc(mncx6-1)*`P1'.`P1' +mncx8*`P2'.`P2'*`P6'.`P6'/`P8'.`P8' -mncx8*`P3'.`P3'*`P6'.`P6'/`P8'.`P8' +mncx5*`P6'.`P6'*`P7'.`P7'/`P5'.`P5' -mncx5*`P4'.`P4'*`P6'.`P6'/`P5'.`P5' )/(mncx6-1); label 1; while ( match(1/`P1'.`P1'^2/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx6+2*mncx5+mncx2+mncx1+2*mncx8+mncx7-9+4*ep)*`P1'.`P1' +acc(mncx1-1)*`P6'.`P6' +mncx7*`P5'.`P5'*`P1'.`P1'/`P7'.`P7' -mncx7*`P4'.`P4'*`P1'.`P1'/`P7'.`P7' +mncx2*`P1'.`P1'*`P8'.`P8'/`P2'.`P2' -mncx2*`P3'.`P3'*`P1'.`P1'/`P2'.`P2' )/(mncx1-1); label 3; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^2/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx4+2*mncx5+mncx2+mncx3+2*mncx7+mncx8-9+4*ep)*`P3'.`P3' +acc(mncx3-1)*`P4'.`P4' +mncx8*`P5'.`P5'*`P3'.`P3'/`P8'.`P8' -mncx8*`P6'.`P6'*`P3'.`P3'/`P8'.`P8' +mncx2*`P3'.`P3'*`P7'.`P7'/`P2'.`P2' -mncx2*`P1'.`P1'*`P3'.`P3'/`P2'.`P2' )/(mncx3-1); label 4; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'^2 /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx3+2*mncx2+mncx5+mncx4+2*mncx8+mncx7-9+4*ep)*`P4'.`P4' +acc(mncx4-1)*`P3'.`P3' +mncx7*`P2'.`P2'*`P4'.`P4'/`P7'.`P7' -mncx7*`P1'.`P1'*`P4'.`P4'/`P7'.`P7' +mncx5*`P4'.`P4'*`P8'.`P8'/`P5'.`P5' -mncx5*`P6'.`P6'*`P4'.`P4'/`P5'.`P5' )/(mncx4-1); * * Now we have that in the 'active terms' the powers of `P1'.`P1', `P3'.`P3', * `P4'.`P4' and `P6'.`P6' is 1 and the power of `Q'.`P2' is zero. * The final recursion is for lines that don't touch the outside. * * Remark: it seems better to combine this recursion more directly * with the above recursions.This can give: * 1: 5 a: mncx7=mncx8=1 b: mncx7>1,mncx8=1 c: mncx7=1,mncx8>1 d: mncx7>1,mncx8>1 * 2: 2 mncx5=1 ( a: mncx7=mncx8=1 b: mncx7>1,mncx8=1 c: mncx7=1,mncx8>1 d: mncx7>1,mncx8>1 ) * 3: 8 mncx2=mncx5=1 * 4: 7 mncx2=mncx5=mncx8=1 * if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) > `INNOTABL' ); while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^2/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx1+2*mncx2+2*mncx3+mncx4+2*mncx5+mncx6+2*mncx7+2*mncx8-14+6*ep) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx6*`P1'.`P1'/`P6'.`P6' )*`P5'.`P5'/`Q'.`Q' +acc(mncx5-1)*mncx4*`P7'.`P7'/`P4'.`P4' +acc(mncx5-1)*mncx6*`P8'.`P8'/`P6'.`P6' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx5+mncx6+mncx7+mncx8-9+4*ep)*mncx4*`P5'.`P5'/`P4'.`P4' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx5+mncx6+mncx7+mncx8-9+4*ep)*mncx6*`P5'.`P5'/`P6'.`P6' )/(mncx5-1)*mncdeno(mncx4+mncx6+2*mncx5-4,2); if ( count(`P4'.`P4',1) < -1 ) goto 4; if ( count(`P6'.`P6',1) < -1 ) goto 6; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'^2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx6+2*mncx2+2*mncx4+mncx3+2*mncx5+mncx1+2*mncx7+2*mncx8-14+6*ep) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx1*`P6'.`P6'/`P1'.`P1' )*`P2'.`P2'/`Q'.`Q' +acc(mncx2-1)*mncx3*`P8'.`P8'/`P3'.`P3' +acc(mncx2-1)*mncx1*`P7'.`P7'/`P1'.`P1' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx2+mncx6+mncx7+mncx8-9+4*ep)*mncx3*`P2'.`P2'/`P3'.`P3' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx2+mncx6+mncx7+mncx8-9+4*ep)*mncx1*`P2'.`P2'/`P1'.`P1' )/(mncx2-1)*mncdeno(mncx3+mncx1+2*mncx2-4,2); if ( count(`P3'.`P3',1) < -1 ) goto 3; if ( count(`P1'.`P1',1) < -1 ) goto 1; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'^2) > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx1+2*mncx2+2*mncx4+mncx3+2*mncx5+mncx6+2*mncx7+2*mncx8-14+6*ep) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx6*`P1'.`P1'/`P6'.`P6' )*`P8'.`P8'/`Q'.`Q' +acc(mncx8-1)*mncx3*`P2'.`P2'/`P3'.`P3' +acc(mncx8-1)*mncx6*`P5'.`P5'/`P6'.`P6' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx8+mncx6+mncx7+mncx5-9+4*ep)*mncx3*`P8'.`P8'/`P3'.`P3' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx8+mncx6+mncx7+mncx5-9+4*ep)*mncx6*`P8'.`P8'/`P6'.`P6' )/(mncx8-1)*mncdeno(mncx3+mncx6+2*mncx8-4,2); if ( count(`P3'.`P3',1) < -1 ) goto 3; if ( count(`P6'.`P6',1) < -1 ) goto 6; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^2/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx6+2*mncx2+2*mncx3+mncx4+2*mncx5+mncx1+2*mncx7+2*mncx8-14+6*ep) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx1*`P6'.`P6'/`P1'.`P1' )*`P7'.`P7'/`Q'.`Q' +acc(mncx7-1)*mncx4*`P5'.`P5'/`P4'.`P4' +acc(mncx7-1)*mncx1*`P2'.`P2'/`P1'.`P1' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx7+mncx6+mncx2+mncx8-9+4*ep)*mncx4*`P7'.`P7'/`P4'.`P4' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx7+mncx6+mncx2+mncx8-9+4*ep)*mncx1*`P7'.`P7'/`P1'.`P1' )/(mncx7-1)*mncdeno(mncx4+mncx1+2*mncx7-4,2); if ( count(`P4'.`P4',1) < -1 ) goto 4; if ( count(`P1'.`P1',1) < -1 ) goto 1; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; endif; label 9; * * Here we take those integrals that have been tabulated * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); if ( count(`P2'.`P2',1) > count(`P5'.`P5',1) ) multiply replace_(`P2',`P5',`P5',`P2'); if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ) multiply replace_(`P7',`P8',`P8',`P7'); if ( ( count(`P2'.`P2',1) > count(`P7'.`P7',1) ) || ( ( count(`P2'.`P2',1) == count(`P7'.`P7',1) ) && ( count(`P8'.`P8',1) > count(`P5'.`P5',1) ) ) ) multiply replace_(`P2',`P7',`P7',`P2',`P8',`P5',`P5',`P8'); if ( ( count(`P2'.`P2',1) > count(`P8'.`P8',1) ) || ( ( count(`P2'.`P2',1) == count(`P8'.`P8',1) ) && ( count(`P7'.`P7',1) > count(`P5'.`P5',1) ) ) ) multiply replace_(`P2',`P8',`P8',`P2',`P7',`P5',`P5',`P7'); if ( count(`P2'.`P2',1) > count(`P5'.`P5',1) ) multiply replace_(`P2',`P5',`P5',`P2'); if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ) multiply replace_(`P7',`P8',`P8',`P7'); id `INTS'/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = mncnoptab(mncx2,mncx7,mncx8,mncx5)*mnceq^3/`Q'.`Q'^(mncx2+mncx5+mncx7+mncx8-2); endif; * * The value will only be substituted when the routine subint is * invoked. This way we can keep an eye on the accuracy of the calculation. * id mncdeno(0,mncx1?) = 1/mncx1/ep; id mncdeno(mncx1?,mncx2?) = mncaccm(1+ep*mncx2/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); * #endprocedure *--#] newplane : *--#[ newtwo : #procedure newtwo(P1,E1,P2,E2,P3,E3,P4,E4,P5,E5,Q,EQ,REDUCTION,INTS) * * Newer way to do two loop integrals. * The case with the ep power on the outside can be done * with the resolved triangle and the part with the ep on the * inside and all other powers one is done with a table. * This leaves only one type of explicit recursion. We deal * with them by making powers equal to 1 as quickly as possible * so that in the next recursion they may get killed. It isn't * clear whether this is the best strategy. * #if ( `REDUCTION' > 0 ) id `P4'.mncp?!{`P4'} = `P1'.mncp-`Q'.mncp; id `P3'.mncp?!{`P3'} = `P2'.mncp-`Q'.mncp; id `P5'.mncp?!{`P5'} = `P1'.mncp-`P2'.mncp; #call ACCU(Two loop momenta) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P4'.`P4'/2; id `P2'.`Q' = `P2'.`P2'/2+`Q'.`Q'/2-`P3'.`P3'/2; id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P5'.`P5'/2; #call ACCU(Two loop scalars) #endif if ( count(`E5',1) == 1 ); repeat; if ( match(`E5'/`P1'.`P1'^2/`P4'.`P4'^2/`P2'.`P2'/`P3'.`P3') ); id 1/`P1'.`P1'^mncx1?/`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?*`E5' = 1/`P1'.`P1'^mncx1/`P4'.`P4'^mncx4/`P5'.`P5'^mncx5*`E5' * ( +acc(ep+mncx5)*acc(1-2*ep-mncx5)/(mncx1-1)/(mncx4-1)* `P1'.`P1'*`P4'.`P4'/`P5'.`P5'/`Q'.`Q' +acc(mncx1+mncx4-3+ep)/(mncx1-1)*`P1'.`P1'/`Q'.`Q' +acc(mncx1+mncx4-3+ep)/(mncx4-1)*`P4'.`P4'/`Q'.`Q' ); endif; endrepeat; repeat; if ( match(`E5'/`P1'.`P1'/`P4'.`P4'/`P2'.`P2'^2/`P3'.`P3'^2) ); id 1/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P5'.`P5'^mncx5?*`E5' = 1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P5'.`P5'^mncx5*`E5' * ( +acc(ep+mncx5)*acc(1-2*ep-mncx5)/(mncx2-1)/(mncx3-1)* `P2'.`P2'*`P3'.`P3'/`P5'.`P5'/`Q'.`Q' +acc(mncx2+mncx3-3+ep)/(mncx2-1)*`P2'.`P2'/`Q'.`Q' +acc(mncx2+mncx3-3+ep)/(mncx3-1)*`P3'.`P3'/`Q'.`Q' ); endif; endrepeat; endif; #call ACCU(Reduction 2 loops) if ( count(`E5',1) == 0 ); if ( count(`E2',1,`E3',1) == 0 ); if ( ( match(1/`P2'.`P2'/`P3'.`P3'/`P5'.`P5') > 0 ) && ( ( count(`E1',1) > 0 ) || ( count(`P1'.`P1',1) < 0 ) ) && ( ( count(`E4',1) > 0 ) || ( count(`P4'.`P4',1) < 0 ) ) ); #call triangl2(`P5',`P1',`P4',`P2',`P3',`E1',`E4') endif; else; if ( ( match(1/`P1'.`P1'/`P4'.`P4'/`P5'.`P5') > 0 ) && ( ( count(`E2',1) > 0 ) || ( count(`P2'.`P2',1) < 0 ) ) && ( ( count(`E3',1) > 0 ) || ( count(`P3'.`P3',1) < 0 ) ) ); #call triangl2(`P5',`P2',`P3',`P1',`P4',`E2',`E3') endif; endif; else; repeat; if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4') > 0 ); if ( count(`P1'.`P1',1) < count(`P4'.`P4',1) ); multiply replace_(`P1',`P4',`P4',`P1',`P2',`P3',`P3',`P2'); endif; if ( count(`P3'.`P3',1) < count(`P4'.`P4',1) ); multiply replace_(`P3',`P4',`P4',`P3',`P2',`P1',`P1',`P2'); if ( count(`P1'.`P1',1) < count(`P4'.`P4',1) ); multiply replace_(`P1',`P4',`P4',`P1',`P2',`P3',`P3',`P2'); endif; else; if ( count(`P2'.`P2',1) < count(`P4'.`P4',1) ); multiply replace_(`P2',`P4',`P4',`P2',`P3',`P1',`P1',`P3'); endif; endif; if ( count(`P4'.`P4',1) < -1 ); id 1/`P1'.`P1'^mncx1?/`P4'.`P4'^mncx4?*`E5'^mncy5?/`P5'.`P5'^mncx5? = 1/`P1'.`P1'^mncx1/`P4'.`P4'^mncx4*`E5'^mncy5/`P5'.`P5'^mncx5*( +acc((2*mncx1+mncx4+mncx5+mncy5*ep-5+2*ep)/(mncx4-1))*`P4'.`P4' +`P1'.`P1' +acc((mncx5+mncy5*ep)/(mncx4-1))*`P1'.`P1'*`P4'.`P4'/`P5'.`P5' -acc((mncx5+mncy5*ep)/(mncx4-1))*`P2'.`P2'*`P4'.`P4'/`P5'.`P5' )/`Q'.`Q'; endif; endif; endrepeat; if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4') > 0 ); * * Here we substitute from the table * id `INTS'/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'*`E5'/`P5'.`P5'^mncx5? = mncTabTwo(mncx5)*`EQ'^3/`Q'.`Q'^mncx5; endif; endif; #endprocedure *--#] newtwo : *--#[ noplane : #procedure noplane(P1,P2,P3,P4,P5,P6,P7,P8,Q,INTS) * * Reduction procedure for three loop graphs of the NO or nonplanar type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<-----<-\ * P1 / \ P2 / \ P3 * / v / \ * / P7 \ / \ * / \ / \ * Q --<-- / --<-- Q * \ / \ / * \ P8 / \ / * \ ^ \ / * P6 \ / P5 \ / P4 * \->------>----->-/ * * Express everything in powers of pi.pi, Q.Q and p2.Q; * The only difficult relation here is the one for p1.p3 * It is derived by squaring: * p1-p3 = p6-p4 = p5+p8-p4 * and p2-Q = p4+p8 * * id `P5'.P?!{`P5'} = `P6'.P-`P8'.P; * id `P4'.P?!{`P4'} = `P3'.P-Q.P; *#call ACCU(moms 1) * id `P6'.P?!{`P6'} = `P1'.P-Q.P; *#call ACCU(moms 2) * id `P7'.P?!{`P7'} = `P2'.P-`P1'.P; *#call ACCU(moms 3) * id `P8'.P?!{`P8'} = `P2'.P-`P3'.P; *#call ACCU(moms 4) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU(dots 1) id `P3'.`Q' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU(dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU(dots 3) id `P3'.`P2' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU(dots 4) id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; #call ACCU(dots 5) * * First step: eliminate the powers of `Q'.`P2' * Equation 3.18 hasn't been checked yet. * Note how common factors are kept together in acc till the end. * This trick allows us to do an 'intermediate sort' in the argument * of acc, thereby making in the end only the terms that are necessary. * while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'*`Q'.`P2') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8?*`Q'.`P2'^mncx9? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*`Q'.`P2'^mncx9*`Q'.`Q'/`Q'.`P2'/2*( +acc(3-2*mncx2-mncx1-mncx3+mncx9-2*ep) +mncx1*`P7'.`P7'/`P1'.`P1'-mncx1*`P2'.`P2'/`P1'.`P1' +mncx3*`P8'.`P8'/`P3'.`P3'-mncx3*`P2'.`P2'/`P3'.`P3' +2*acc(mncx9-1)*`P2'.`P2'/`Q'.`P2'/2 )*mncdeno(7-mncx1-mncx2-mncx3-mncx4-mncx5-mncx6-mncx7-mncx8+mncx9,-4); #ifdef `LONGINT' id mncdeno(0,-4) = -1/4/ep; id mncdeno(mncx1?,-4) = mncaccm(1-4*ep/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); #endif #call ACCU(Eliminate `Q'.`P2') * * Next are four recursions that reduce the powers of the propagators * that connect to `Q' to 1. * #ifdef `LONGINT' label 6; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'^2/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx1+2*mncx2+mncx5+mncx6+2*mncx7+mncx8-9+4*ep)*`P6'.`P6' +acc(mncx6-1)*`P1'.`P1' +mncx8*`P2'.`P2'*`P6'.`P6'/`P8'.`P8' -mncx8*`P3'.`P3'*`P6'.`P6'/`P8'.`P8' +mncx5*`P6'.`P6'*`P7'.`P7'/`P5'.`P5' -mncx5*`P4'.`P4'*`P6'.`P6'/`P5'.`P5' )/(mncx6-1); label 1; while ( match(1/`P1'.`P1'^2/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx6+2*mncx5+mncx2+mncx1+2*mncx8+mncx7-9+4*ep)*`P1'.`P1' +acc(mncx1-1)*`P6'.`P6' +mncx7*`P5'.`P5'*`P1'.`P1'/`P7'.`P7' -mncx7*`P4'.`P4'*`P1'.`P1'/`P7'.`P7' +mncx2*`P1'.`P1'*`P8'.`P8'/`P2'.`P2' -mncx2*`P3'.`P3'*`P1'.`P1'/`P2'.`P2' )/(mncx1-1); label 3; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^2/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx4+2*mncx5+mncx2+mncx3+2*mncx7+mncx8-9+4*ep)*`P3'.`P3' +acc(mncx3-1)*`P4'.`P4' +mncx8*`P5'.`P5'*`P3'.`P3'/`P8'.`P8' -mncx8*`P6'.`P6'*`P3'.`P3'/`P8'.`P8' +mncx2*`P3'.`P3'*`P7'.`P7'/`P2'.`P2' -mncx2*`P1'.`P1'*`P3'.`P3'/`P2'.`P2' )/(mncx3-1); label 4; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'^2 /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx3+2*mncx2+mncx5+mncx4+2*mncx8+mncx7-9+4*ep)*`P4'.`P4' +acc(mncx4-1)*`P3'.`P3' +mncx7*`P2'.`P2'*`P4'.`P4'/`P7'.`P7' -mncx7*`P1'.`P1'*`P4'.`P4'/`P7'.`P7' +mncx5*`P4'.`P4'*`P8'.`P8'/`P5'.`P5' -mncx5*`P6'.`P6'*`P4'.`P4'/`P5'.`P5' )/(mncx4-1); id mncdeno(0,mncx1?) = 1/mncx1/ep; id mncdeno(mncx1?,mncx2?) = mncaccm(1+ep*mncx2/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); #call ACCU(Preparation) #endif label 6; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'^2/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx1+2*mncx2+mncx5+mncx6+2*mncx7+mncx8-9+4*ep)*`P6'.`P6' +acc(mncx6-1)*`P1'.`P1' +mncx8*`P2'.`P2'*`P6'.`P6'/`P8'.`P8' -mncx8*`P3'.`P3'*`P6'.`P6'/`P8'.`P8' +mncx5*`P6'.`P6'*`P7'.`P7'/`P5'.`P5' -mncx5*`P4'.`P4'*`P6'.`P6'/`P5'.`P5' )/(mncx6-1); label 1; while ( match(1/`P1'.`P1'^2/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx6+2*mncx5+mncx2+mncx1+2*mncx8+mncx7-9+4*ep)*`P1'.`P1' +acc(mncx1-1)*`P6'.`P6' +mncx7*`P5'.`P5'*`P1'.`P1'/`P7'.`P7' -mncx7*`P4'.`P4'*`P1'.`P1'/`P7'.`P7' +mncx2*`P1'.`P1'*`P8'.`P8'/`P2'.`P2' -mncx2*`P3'.`P3'*`P1'.`P1'/`P2'.`P2' )/(mncx1-1); label 3; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^2/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx4+2*mncx5+mncx2+mncx3+2*mncx7+mncx8-9+4*ep)*`P3'.`P3' +acc(mncx3-1)*`P4'.`P4' +mncx8*`P5'.`P5'*`P3'.`P3'/`P8'.`P8' -mncx8*`P6'.`P6'*`P3'.`P3'/`P8'.`P8' +mncx2*`P3'.`P3'*`P7'.`P7'/`P2'.`P2' -mncx2*`P1'.`P1'*`P3'.`P3'/`P2'.`P2' )/(mncx3-1); label 4; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'^2 /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8/`Q'.`Q'*( +acc(2*mncx3+2*mncx2+mncx5+mncx4+2*mncx8+mncx7-9+4*ep)*`P4'.`P4' +acc(mncx4-1)*`P3'.`P3' +mncx7*`P2'.`P2'*`P4'.`P4'/`P7'.`P7' -mncx7*`P1'.`P1'*`P4'.`P4'/`P7'.`P7' +mncx5*`P4'.`P4'*`P8'.`P8'/`P5'.`P5' -mncx5*`P6'.`P6'*`P4'.`P4'/`P5'.`P5' )/(mncx4-1); * * Now we have that in the 'active terms' the powers of `P1'.`P1', `P3'.`P3', * `P4'.`P4' and `P6'.`P6' is 1 and the power of `Q'.`P2' is zero. * The final recursion is for lines that don't touch the outside. * * Remark: it seems better to combine this recursion more directly * with the above recursions.This can give: * 1: 5 a: mncx7=mncx8=1 b: mncx7>1,mncx8=1 c: mncx7=1,mncx8>1 d: mncx7>1,mncx8>1 * 2: 2 mncx5=1 ( a: mncx7=mncx8=1 b: mncx7>1,mncx8=1 c: mncx7=1,mncx8>1 d: mncx7>1,mncx8>1 ) * 3: 8 mncx2=mncx5=1 * 4: 7 mncx2=mncx5=mncx8=1 * if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) > `INNOTABL' ); while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^2/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx1+2*mncx2+2*mncx3+mncx4+2*mncx5+mncx6+2*mncx7+2*mncx8-14+6*ep) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx6*`P1'.`P1'/`P6'.`P6' )*`P5'.`P5'/`Q'.`Q' +acc(mncx5-1)*mncx4*`P7'.`P7'/`P4'.`P4' +acc(mncx5-1)*mncx6*`P8'.`P8'/`P6'.`P6' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx5+mncx6+mncx7+mncx8-9+4*ep)*mncx4*`P5'.`P5'/`P4'.`P4' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx5+mncx6+mncx7+mncx8-9+4*ep)*mncx6*`P5'.`P5'/`P6'.`P6' )/(mncx5-1)*mncdeno(mncx4+mncx6+2*mncx5-4,2); if ( count(`P4'.`P4',1) < -1 ) goto 4; if ( count(`P6'.`P6',1) < -1 ) goto 6; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'^2/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx6+2*mncx2+2*mncx4+mncx3+2*mncx5+mncx1+2*mncx7+2*mncx8-14+6*ep) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx1*`P6'.`P6'/`P1'.`P1' )*`P2'.`P2'/`Q'.`Q' +acc(mncx2-1)*mncx3*`P8'.`P8'/`P3'.`P3' +acc(mncx2-1)*mncx1*`P7'.`P7'/`P1'.`P1' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx2+mncx6+mncx7+mncx8-9+4*ep)*mncx3*`P2'.`P2'/`P3'.`P3' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx2+mncx6+mncx7+mncx8-9+4*ep)*mncx1*`P2'.`P2'/`P1'.`P1' )/(mncx2-1)*mncdeno(mncx3+mncx1+2*mncx2-4,2); if ( count(`P3'.`P3',1) < -1 ) goto 3; if ( count(`P1'.`P1',1) < -1 ) goto 1; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'^2) > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx1+2*mncx2+2*mncx4+mncx3+2*mncx5+mncx6+2*mncx7+2*mncx8-14+6*ep) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx6*`P1'.`P1'/`P6'.`P6' )*`P8'.`P8'/`Q'.`Q' +acc(mncx8-1)*mncx3*`P2'.`P2'/`P3'.`P3' +acc(mncx8-1)*mncx6*`P5'.`P5'/`P6'.`P6' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx8+mncx6+mncx7+mncx5-9+4*ep)*mncx3*`P8'.`P8'/`P3'.`P3' -acc(mncx1+mncx2+mncx3+mncx4+2*mncx8+mncx6+mncx7+mncx5-9+4*ep)*mncx6*`P8'.`P8'/`P6'.`P6' )/(mncx8-1)*mncdeno(mncx3+mncx6+2*mncx8-4,2); if ( count(`P3'.`P3',1) < -1 ) goto 3; if ( count(`P6'.`P6',1) < -1 ) goto 6; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'^2/`P8'.`P8') > 0 ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( +acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8-8+4*ep)*( +acc(2*mncx6+2*mncx2+2*mncx3+mncx4+2*mncx5+mncx1+2*mncx7+2*mncx8-14+6*ep) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx1*`P6'.`P6'/`P1'.`P1' )*`P7'.`P7'/`Q'.`Q' +acc(mncx7-1)*mncx4*`P5'.`P5'/`P4'.`P4' +acc(mncx7-1)*mncx1*`P2'.`P2'/`P1'.`P1' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx7+mncx6+mncx2+mncx8-9+4*ep)*mncx4*`P7'.`P7'/`P4'.`P4' -acc(mncx1+mncx5+mncx3+mncx4+2*mncx7+mncx6+mncx2+mncx8-9+4*ep)*mncx1*`P7'.`P7'/`P1'.`P1' )/(mncx7-1)*mncdeno(mncx4+mncx1+2*mncx7-4,2); if ( count(`P4'.`P4',1) < -1 ) goto 4; if ( count(`P1'.`P1',1) < -1 ) goto 1; if ( count(`P2'.`P2',-1,`P5'.`P5',-1,`P7'.`P7',-1,`P8'.`P8',-1) <= `INNOTABL' ) goto 9; endwhile; * * If we ever get here (luckily we have to do this only at the beginning * of the program and for rather few terms), the only interesting integral * left is the fundamental integral below: * endif; label 9; * * Here we take those integrals that have been tabulated * if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') ); if ( count(`P2'.`P2',1) > count(`P5'.`P5',1) ) multiply replace_(`P2',`P5',`P5',`P2'); if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ) multiply replace_(`P7',`P8',`P8',`P7'); if ( ( count(`P2'.`P2',1) > count(`P7'.`P7',1) ) || ( ( count(`P2'.`P2',1) == count(`P7'.`P7',1) ) && ( count(`P8'.`P8',1) > count(`P5'.`P5',1) ) ) ) multiply replace_(`P2',`P7',`P7',`P2',`P8',`P5',`P5',`P8'); if ( ( count(`P2'.`P2',1) > count(`P8'.`P8',1) ) || ( ( count(`P2'.`P2',1) == count(`P8'.`P8',1) ) && ( count(`P7'.`P7',1) > count(`P5'.`P5',1) ) ) ) multiply replace_(`P2',`P8',`P8',`P2',`P7',`P5',`P5',`P7'); if ( count(`P2'.`P2',1) > count(`P5'.`P5',1) ) multiply replace_(`P2',`P5',`P5',`P2'); if ( count(`P7'.`P7',1) > count(`P8'.`P8',1) ) multiply replace_(`P7',`P8',`P8',`P7'); id `INTS'/`P1'.`P1'/`P2'.`P2'^mncx2?/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'^mncx5?/`P6'.`P6'/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = mncnoptab(mncx2,mncx7,mncx8,mncx5)*mnceq^3/`Q'.`Q'^(mncx2+mncx5+mncx7+mncx8-2); endif; * * The value will only be substituted when the routine subint is * invoked. This way we can keep an eye on the accuracy of the calculation. * id mncdeno(0,mncx1?) = 1/mncx1/ep; id mncdeno(mncx1?,mncx2?) = mncaccm(1+ep*mncx2/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); * #endprocedure *--#] noplane : *--#[ noplred : #procedure noplred(P1,P2,P3,P4,P5,P6,P7,P8,Q) * * /-<------<-----<-\ * P1 / \ P2 / \ P3 * / v / \ * / P7 \ / \ * / \ / \ * Q --<-- / --<-- Q * \ / \ / * \ P8 / \ / * \ ^ \ / * P6 \ / P5 \ / P4 * \->------>----->-/ * * Express everything in powers of pi.pi, Q.Q and p2.Q; * The only difficult relation here is the one for p1.p3 * It is derived by squaring: * p1-p3 = p6-p4 = p5+p8-p4 * and p2-Q = p4+p8 * id `P5'.P?!{`P5'} = `P6'.P-`P8'.P; id `P4'.P?!{`P4'} = `P3'.P-Q.P; #call ACCU(moms 1) id `P6'.P?!{`P6'} = `P1'.P-Q.P; #call ACCU(moms 2) id `P7'.P?!{`P7'} = `P2'.P-`P1'.P; #call ACCU(moms 3) id `P8'.P?!{`P8'} = `P2'.P-`P3'.P; #call ACCU(moms 4) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU(dots 1) id `P3'.`Q' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU(dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU(dots 3) id `P3'.`P2' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU(dots 4) id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; #call ACCU(dots 5) #endprocedure *--#] noplred : *--#[ one : #procedure one(P,PQ,Q,EP,EPQ,EQ,INT) * * Routine for the reduction of one loop integrals. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * Method involves a reduction to a standard function mncG. * One problem is the presence of loopmomenta in the numerator. * The two propagators are P and P-Q (=PQ) in which Q is the external * momentum. * * The formula we use is (3.1) * This means that we have to find a way to take the d'Alembertian (dal) * of a polynomial in dotproducts. Such is done with the help of the * noncommuting(!) function mncFQ. * The use of the function distrib_ avoids the generation of double * terms. They can speed things up very much over the conventional * differentiation by commutation. Example: * 8 FQ, 3 d'Alembertians: commutation: 229.7 sec, distrib_: 13.6 sec * The simple cases have dedicated code. * * Recoded by J.A.M.Vermaseren 4-nov-1990 * * We start with some trivialities * id `P'.`PQ' = `P'.`P'/2+`PQ'.`PQ'/2-`Q'.`Q'/2; id `PQ'.mncp?!{`PQ'} = `P'.mncp-`Q'.mncp; id `P'.`Q' = `P'.`P'/2+`Q'.`Q'/2-`PQ'.`PQ'/2; if ( ( count(`EP',1) == 0 ) && ( count(`P'.`P',1) >= 0 ) ) discard; if ( ( count(`EPQ',1) == 0 ) && ( count(`PQ'.`PQ',1) >= 0 ) ) discard; totensor,nosquare,mncFQ,`P'; * * Now relation (3.1) after which we don't need mncx anymore * if ( count(mncFQ,1) == 0 ); id `INT'/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2? = `Q'.`Q'^2/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`EQ'^mncy1*`EQ'^mncy2*`EQ' *mncG(mncx1,mncy1,mncx2,mncy2,0,0); else; if ( match(mncFQ(mnci1?)) ); id `INT'/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2?*mncFQ(mnci1?) = `Q'.`Q'^2/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`EQ'^mncy1*`EQ'^mncy2*`EQ' *mncG(mncx1,mncy1,mncx2,mncy2,1,0)*`Q'(mnci1); else; if ( match(mncFQ(mnci1?,mnci2?)) ); id `INT'/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2?*mncFQ(mnci1?,mnci2?) = `Q'.`Q'^2/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`EQ'^mncy1*`EQ'^mncy2*`EQ'*( +mncG(mncx1,mncy1,mncx2,mncy2,2,0)*`Q'(mnci1)*`Q'(mnci2) +mncG(mncx1,mncy1,mncx2,mncy2,2,1)*`Q'.`Q'*d_(mnci1,mnci2)/2 ); else; id `INT'/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2?*mncFQ(?a) = `Q'.`Q'^2/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`EQ'^mncy1*`EQ'^mncy2*`EQ' *sum_(mncj,0,integer_(nargs_(?a)/2),mncG(mncx1,mncy1,mncx2,mncy2,nargs_(?a),mncj) *`Q'.`Q'^mncj/2^mncj*distrib_(1,2*mncj,mncdel,mncFQ,?a)); tovector,mncFQ,`Q'; id mncdel(?a) = dd_(?a); endif; endif; endif; * id mncG(mncx1?,mncy1?,0,0,?a) = 0; id mncG(0,0,?a) = 0; id mncG(2,0,1,0,0,0) = mncG(1,0,2,0,0,0); * #endprocedure *--#] one : *--#[ one4 : #procedure one4(P,PQ,Q,EP,EPQ,EQ,P1,P2,P3,P4,P5,INT) * * The procedure one4 does an integral of type one4 in which * P1-P5 are the 5 momenta in the sub two loop part, P is its * momentum flow, Q is the overall momentum flow and PQ = P-Q * * Note that the central formula (B6 in ref 9b) is wrong * This can be tested by trying A16 on P.p1^2*P.p2^2. This shows * that it isn't an identity operator. Also the first two arguments * of the mncG function in B6 should be exchanged. * * Recoded from the old one4 by J.A.M.Vermaseren, 25-mar-1993 * id,many,mncq1?{`P1',`P2',`P3',`P4',`P5'}.mncq2?{`P1',`P2',`P3',`P4',`P5'}^mncx1? = mncq1.mncq2^mncx1*`P'.`P'^mncx1/`Q'.`Q'^mncx1; multiply `EP'^2/`EQ'^2*`P'.`P'^4/`Q'.`Q'^4; id `Q'.`P' = `P'.`P'/2+`Q'.`Q'/2-`PQ'.`PQ'/2; id `Q'.`PQ' = `P'.`P'/2-`Q'.`Q'/2-`PQ'.`PQ'/2; if ( ( count(`EPQ',1) == 0 ) && ( count(`PQ'.`PQ',1) >= 0 ) ) discard; totensor,nosquare,mncFQ,`Q'; if ( count(mncFQ,1) == 0 ); id `INT'/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2? = 1/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`Q'.`Q'^2*`EQ'*`EQ'^mncy1*`EQ'^mncy2* mncG(mncx1,mncy1,mncx2,mncy2,0,0); elseif ( match(mncFQ(mnci1?)) ); id `INT'*mncFQ(mnci1?)/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2? = 1/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`Q'.`Q'^2*`EQ'*`EQ'^mncy1*`EQ'^mncy2*`Q'(mnci1)* mncG(mncx1,mncy1,mncx2,mncy2,1,0); elseif ( match(mncFQ(mnci1?,mnci2?)) ); id `INT'*mncFQ(mnci1?,mnci2?)/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2? = 1/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`Q'.`Q'^2*`EQ'*`EQ'^mncy1*`EQ'^mncy2* (mncG(mncx1,mncy1,mncx2,mncy2,2,0)*`Q'(mnci1)*`Q'(mnci2) -mncG(mncx1,mncy1,mncx2,mncy2,2,0)*d_(mnci1,mnci2)*`Q'.`Q'/2*acc(mncpoch(3,1)) +mncG(mncx1-1,mncy1,mncx2,mncy2,0,0)*acc(mncpoch(3,1))*d_(mnci1,mnci2)*`Q'.`Q'/2); else; id `INT'*mncFQ(?a)/`P'.`P'^mncx1?/`PQ'.`PQ'^mncx2?*`EP'^mncy1?*`EPQ'^mncy2? = mncFQ(?a)/`Q'.`Q'^mncx1/`Q'.`Q'^mncx2*`Q'.`Q'^2*`EQ'*`EQ'^mncy1*`EQ'^mncy2* sum_(mncs,0,integer_(nargs_(?a)/2),mncG(mncx1-mncs,mncy1,mncx2,mncy2,nargs_(?a)-2*mncs,0) *acc(mncpoch(nargs_(?a)+2-mncs,mncs))*`Q'.`Q'^mncs *sum_(mncj,0,integer_(nargs_(?a)/2)-mncs,sign_(mncj)*`Q'.`Q'^mncj * the original mncy/4 becomes mncy/2 when we consider the normalization of * the distrib_ to expand the mncFQ. *mncy^mncj*mncy^mncs/2^mncj/2^mncs*acc(mncpoch(nargs_(?a)+1-2*mncs,mncj)) )); id mncy^mncs?*mncFQ(?a) = fac_(mncs)*distrib_(1,2*mncs,mncdel,mncFQ,?a); tovector,mncFQ,`Q'; id mncdel(?a) = dd_(?a); endif; #endprocedure *--#] one4 : *--#[ pochtabl : #procedure pochtabl(NN) * #[ Declarations : The tables and their variables. Commentary. * * The variable ep should be declared in the rest of the program. * It has a power limitation of 6+CUTOFF. * Note the funny convention: * When the argument of mncPO or mncPOINV is 0 or less we have * taken out an overal factor of 1/mncx/ep, cq. x*ep. This is to * avoid a temporary anomalous number of powers of ep which could * destroy the accuracy. * * The parameter NN was to be friendly to older versions of FORM * At the moment it has been disabled. * * Values are generated with the program potabl.frm in lib/progs * CTable,check,strict,mncPO(-41:42,mncx?); CTable,check,strict,mncPOINV(-41:42,mncx?); * * #] Declarations : *--#[ mncPO-neg : mncPO negative values * Fill mncPO(-0)= +1 ; Fill mncPO(-1)= -1 -mncx*ep -mncx^2*ep^2 -mncx^3*ep^3 -mncx^4*ep^4 -mncx^5*ep^5 -mncx^6*ep^6 -mncx^7*ep^7 -mncx^8*ep^8 ; Fill mncPO(-2)= +1/2 +3/4*mncx*ep +7/8*mncx^2*ep^2 +15/16*mncx^3*ep^3 +31/32*mncx^4*ep^4 +63/64*mncx^5*ep^5 +127/128*mncx^6*ep^6 +255/256*mncx^7*ep^7 +511/512*mncx^8*ep^8 ; Fill mncPO(-3)= -1/6 -11/36*mncx*ep -85/216*mncx^2*ep^2 -575/1296*mncx^3*ep^3 -3661/7776*mncx^4*ep^4 -22631/46656*mncx^5*ep^5 -137845/279936*mncx^6*ep^6 -833375/1679616*mncx^7*ep^7 -5019421/10077696*mncx^8*ep^8 ; Fill mncPO(-4)= +1/24 +25/288*mncx*ep +415/3456*mncx^2*ep^2 +5845/41472*mncx^3*ep^3 +76111/497664*mncx^4*ep^4 +952525/5971968*mncx^5*ep^5 +11679655/71663616*mncx^6*ep^6 +141710965/859963392*mncx^7*ep^7 +1710104671/10319560704*mncx^8*ep^8 ; Fill mncPO(-5)= -1/120 -137/7200*mncx*ep -12019/432000*mncx^2*ep^2 -874853/25920000*mncx^3*ep^3 -58067611/1555200000*mncx^4*ep^4 -3673451957/93312000000*mncx^5*ep^5 -226576032859/5598720000000*mncx^6*ep^6 -13790081534933/335923200000000*mncx^7*ep^7 -833490615528571/20155392000000000*mncx^8*ep^8 ; Fill mncPO(-6)= +1/720 +49/14400*mncx*ep +13489/2592000*mncx^2*ep^2 +336581/51840000*mncx^3*ep^3 +68165041/9331200000*mncx^4*ep^4 +483900263/62208000000*mncx^5*ep^5 +270127056529/33592320000000*mncx^6*ep^6 +5497117366741/671846400000000*mncx^7*ep^7 +998404136530801/120932352000000000*mncx^8*ep^8 ; Fill mncPO(-7)= -1/5040 -121/235200*mncx*ep -726301/889056000*mncx^2*ep^2 -129973303/124467840000*mncx^3*ep^3 -187059457981/156829478400000*mncx^4*ep^4 -28139924320343/21956126976000000*mncx^5*ep^5 -36845364451242061/27664719989760000000*mncx^6*ep^6 -1754673272194274861/1291020266188800000000*mncx^7*ep^7 -6703124731661806560541/4880056606193664000000000*mncx^8*ep^8 ; Fill mncPO(-8)= +1/40320 +761/11289600*mncx*ep +3144919/28449792000*mncx^2*ep^2 +1149858589/7965941760000*mncx^3*ep^3 +3355156783231/20074173235200000*mncx^4*ep^4 +339302688554687/1873589501952000000*mncx^5*ep^5 +2678744365563671119/14164336634757120000000*mncx^6*ep^6 +767550589317330035789/3966014257731993600000000*mncx^7*ep^7 +1957778366940381440772031/9994355929484623872000000000*mncx^8*ep^8 ; Fill mncPO(-9)= -1/362880 -7129/914457600*mncx*ep -30300391/2304433152000*mncx^2*ep^2 -101622655189/5807171543040000*mncx^3*ep^3 -300222042894631/14634072288460800000*mncx^4*ep^4 -826117151879597149/36877862166921216000000*mncx^5*ep^5 -2184117445022203447471/92932212660641464320000000*mncx^6*ep^6 -5647452301117219330103509/234189175904816490086400000000*mncx^7*ep^7 -14426270509808664045334277911/590156723280137555017728000000000*mncx^8* ep^8 ; Fill mncPO(-10)= +1/3628800 +7381/9144576000*mncx*ep +32160403/23044331520000*mncx^2*ep^2 +21945415349/11614343086080000*mncx^3*ep^3 +327873266234371/146340722884608000000*mncx^4*ep^4 +908741214970658641/368778621669212160000000*mncx^5*ep^5 +2413120231194809425003/929322126606414643200000000*mncx^6*ep^6 +1251111719875662261040853/468378351809632980172800000000*mncx^7*ep^7 +16002671276851998494245752691/5901567232801375550177280000000000*mncx^8* ep^8 ; Fill mncPO(-11)= -1/39916800 -83711/1106493696000*mncx*ep -4102360483/30672005253120000*mncx^2*ep^2 -31276937512951/170045597123297280000*mncx^3*ep^3 -5194481903600608411/23568319761289003008000000*mncx^4*ep^4 -159443775809313077987411/653313823782931163381760000000*mncx^5*ep^5 -4676788004935176736296015403/18109859195262851848942387200000000*mncx^6* ep^6 -1069509167192338331769717286399/4016042375141490026021463785472000000* mncx^7*ep^7 -3767210095582422174347665431061183771/1391558682986526294016437201666048\ 0000000000*mncx^8*ep^8 ; Fill mncPO(-12)= +1/479001600 +86021/13277924352000*mncx*ep +4301068993/368064063037440000*mncx^2*ep^2 +33264031387717/2040547165479567360000*mncx^3*ep^3 +5578681466128739761/282819837135468036096000000*mncx^4*ep^4 +172330529996070466835321/7839765885395173960581120000000*mncx^5*ep^5 +5074871529226099514685606913/217318310343154222187308646400000000*mncx^6 *ep^6 +29082319826310916270027682553781/1204812712542447007806439135641600000000 *mncx^7*ep^7 +4103110889576313257266485164557354321/1669870419583831552819724641999257\ 60000000000*mncx^8*ep^8 ; Fill mncPO(-13)= -1/6227020800 -1145993/2243969215488000*mncx*ep -758647585777/808636746493255680000*mncx^2*ep^2 -77287019174361937/58280067593261923368960000*mncx^3*ep^3 -170044702211669500782121/105009025789539333526192128000000*mncx^4*ep^4 -68698758619138470404367234173/37841052533518394229498595246080000000* mncx^5*ep^5 -26399765160034818571989179349406177/136364016909786885445421137828773888\ 00000000*mncx^6*ep^6 -394246547613588122203703327901927667613/19656054853444320815644784491190\ 7833118720000000*mncx^7*ep^7 -3620246461793253966559014838656210159777604441/1770813981746798862281438\ 634811377668566548480000000000*mncx^8*ep^8 ; Fill mncPO(-14)= +1/87178291200 +1171733/31415569016832000*mncx*ep +112686856171/1617273492986511360000*mncx^2*ep^2 +81347802723340093/815920946305666927165440000*mncx^3*ep^3 +180514164422163370751221/1470126361053550669366689792000000*mncx^4*ep^4 +10477884744480707938214808959/75682105067036788458997190492160000000* mncx^5*ep^5 +28287670433295352528296723627638797/190909623673701639623589592960283443\ 200000000*mncx^6*ep^6 +2116857665458545085834188172744722865021/1375923839741102457095134914383\ 3548318310400000000*mncx^7*ep^7 +556098006191109817015124979498350856072258163/35416279634935977245628772\ 69622755337133096960000000000*mncx^8*ep^8 ; Fill mncPO(-15)= -1/1307674368000 -1195757/471233535252480000*mncx*ep -476696711/99016744468561920000*mncx^2*ep^2 -17055178843123409/2447762838917000781496320000*mncx^3*ep^3 -190757504835343290196621/22051895415803260040500346880000000*mncx^4*ep^4 -11132564501075606110169612231/1135231576005551826884957857382400000000* mncx^5*ep^5 -6031962308062447011326345395460321/5727288710211049188707687788808503296\ 00000000*mncx^6*ep^6 -90470781117897492513371691781010464669/825554303844661474257080948630012\ 8990986240000000*mncx^7*ep^7 -594909971290687841303361435272404345415259163/53124419452403965868443159\ 044341330056996454400000000000*mncx^8*ep^8 ; Fill mncPO(-16)= +1/20922789888000 +2436559/15079473128079360000*mncx*ep +96568406789/310516510653410181120000*mncx^2*ep^2 +142531324182321979/313313643381376100031528960000*mncx^3*ep^3 +3212628164810309981747311/5645285226445634570368088801280000000*mncx^4* ep^4 +376915326274973740257971537677/581238566914842535365098422979788800000000 *mncx^5*ep^5 +81962999787375055541354912877997039/117294872785122287384733445914798147\ 502080000000*mncx^6*ep^6 +12318664648175340917083642958087214801983/169073521427386669927850178279\ 42664173539819520000000*mncx^7*ep^7 +162205778526792127223839682734146915832651421353/21759762207704664419714\ 3179445622087913457477222400000000000*mncx^8*ep^8 ; Fill mncPO(-17)= -1/355687428096000 -42142223/4357967734014935040000*mncx*ep -28776062218037/1525567616840204219842560000*mncx^2*ep^2 -729291672694244960123/26168268808855913250733330268160000*mncx^3*ep^3 -281462294311726805677013376031/80154977457654193641791234611190169600000\ 00*mncx^4*ep^4 -564145222241140781833967990767603949/14029686014368128821510003376465837\ 765427200000000*mncx^5*ep^5 -10461164856476842638038161189836649078663547/240653112241754467740880813\ 276977714544308859699200000000*mncx^6*ep^6 -26782036671393404321410898113684325645353188261563/589707937586582751966\ 705907132943486649672556632185241600000000*mncx^7*ep^7 -171492161274804974580747141595489718159708281406811314239/ 3686348561844812580079873869189048726973767390444451685990400000000000* mncx^8*ep^8 ; Fill mncPO(-18)= +1/6402373705728000 +14274301/26147806404089610240000*mncx*ep +29608882035581/27460217103123675957166080000*mncx^2*ep^2 +50500501069854396349/31401922570627095900879996321792000*mncx^3*ep^3 +294352799712312489617077371031/14427895942377754855522422230014230528000\ 0000*mncx^4*ep^4 +65863120942796227591592510480739821/280593720287362576430200067529316755\ 30854400000000*mncx^5*ep^5 +88208355135479668752967444674123414750223/346540481628126433546868371118\ 84790894380475796684800000*mncx^6*ep^6 +9427692750244620614860048373234627931385911017521/3538247625519496511800\ 235442797660919898035339793111449600000000*mncx^7*ep^7 +1269201292151168840209404323954428168621555418898459852673/ 464479918792446385090064107517820139598694691196000912434790400000000000* mncx^8*ep^8 ; Fill mncPO(-19)= -1/121645100408832000 -275295799/9439358111876349296640000*mncx*ep -1568274265798307/26907089872903613341457448960000*mncx^2*ep^2 -1794683268312579709384043/20461649756633468824492910003261276160000* mncx^3*ep^3 -40009517970859535080774906095604951/357248987150256164200042141613160061\ 961502720000000*mncx^4*ep^4 -170864658958309558725823727346322640908759/13200778773986545574588597183\ 17620008155187930726400000000*mncx^5*ep^5 -545107754958038941477256969841397265941063458146891/38720342868353865808\ 30089611201274450551405153503756576358400000000*mncx^6*ep^6 -354896033975706289616875512403413146928912506038418666323/ 2403682064107157175309555961655864945617213379416886568072819769344000000 *mncx^7*ep^7 -22720275706071206186110416877319158649139016036279339985751605408593/ 1498819556597114017400036584224457070637031828555468744851658876404105216\ 00000000000*mncx^8*ep^8 ; Fill mncPO(-20)= +1/2432902008176640000 +11167027/7551486489501079437312000*mncx*ep +11256448518043769/3766992582206505867804042854400000*mncx^2*ep^2 +9279131712715653650968723/2046164975663346882449291000326127616000000* mncx^3*ep^3 +41629602590344731254886672725930611/714497974300512328400084283226320123\ 9230054400000000*mncx^4*ep^4 +7142239112579651595742062778098987074987/1056062301918923645967087774654\ 096006524150344581120000000*mncx^5*ep^5 +571294651960644279934630828168658674310905345370231/77440685736707731616\ 601792224025489011028103070075131527168000000000*mncx^6*ep^6 +46578556656033742888365094769498346108764761442576003661731/ 6009205160267892938273889904139662364043033448542216420182049423360000000\ 000*mncx^7*ep^7 +23882040860899399163256592372965672567684593242065757223642719714453/ 2997639113194228034800073168448914141274063657110937489703317752808210432\ 000000000000*mncx^8*ep^8 ; Fill mncPO(-21)= -1/51090942171709440000 -18858053/264302027132537780305920000*mncx*ep -80676574383943103/553747909584356362567194299596800000*mncx^2*ep^2 -9577241336253249489726083/42969464488930284531435111006848679936000000* mncx^3*ep^3 -6174587158661922297334017385371973/2143493922901536985200252849678960371\ 7690163200000000*mncx^4*ep^4 -111696754789037742399995916535691943099157/33265962510446094847963264901\ 6040242055107358543052800000000*mncx^5*ep^5 -597296825451676635924546421568548733116332437242151/16262544004708623639\ 48637636704535269231590164471577762070528000000000*mncx^6*ep^6 -16261880033898914086434201580921573967825861252692740221617/ 4206443612187525056791722932897763654830123413979551494127434596352000000\ 0000*mncx^7*ep^7 -175286381776661969124369887448428523037791166712787050328938728221571/ 4406529496395515211156107557619903787672873575953078109863877096628069335\ 04000000000000*mncx^8*ep^8 ; Fill mncPO(-22)= +1/1124000727777607680000 +6364399/1938214865638610388910080000*mncx*ep +82494882923667143/12182454010855839976478274591129600000*mncx^2*ep^2 +9868213987506291289829963/945328218756466259691572442150670958592000000* mncx^3*ep^3 +6398344963543032449814395864411773/4715686630383381367440556269293712817\ 89183590400000000*mncx^4*ep^4 +116210352073359830867133385439115668950093/73185117522981408665519182783\ 52885325212361887947161600000000*mncx^5*ep^5 +623120053293078163170149467651030900158655068872591/35777596810358972006\ 870028007499775923094983618374710765551616000000000*mncx^6*ep^6 +16994494742956651944436609713028244017760395190267622912137/ 9254175946812555124941790452375080040626271510755013287080356111974400000\ 00000*mncx^7*ep^7 +183378592557133512028135656811008157695698473705193137421093102245771/ 9694364892070133464543436626763788332880321867096771841700529612581752537\ 088000000000000*mncx^8*ep^8 ; Fill mncPO(-23)= -1/25852016738884976640000 -444316699/3075946991768474687200296960000*mncx*ep -44570695662918553607/148223917950083004993811166950273843200000*mncx^2* ep^2 -123525135034106281845251414461/26454159406502827457834932378388591172334\ 3872000000*mncx^3*ep^3 -264591239933345908907390540426325365899/43359680905230948543794931799963\ 8620563548468255129600000000*mncx^4*ep^4 -776713959740478684849561077289313689586845388571/10834023934084030762272\ 43586991318834832866105871976452482662400000000*mncx^5*ep^5 -96041208895558385773482948005826382154738052851832630885359/ 1218164720524162610937517301815379439097517152218903519958149931487723520\ 00000000*mncx^6*ep^6 -60347474702425622475414985005172956929989423209576655768704056986799/ 7247036363586222432553176680977312245526808303006454787215091949490656262\ 4880640000000000*mncx^7*ep^7 -149927382032402590609412104923753394009713590884261797974140245677746279\ 69191451/1746103112654558963331603182446407233239977952358142797165458503\ 9518267872844903815839744000000000000*mncx^8*ep^8 ; Fill mncPO(-24)= +1/620448401733239439360000 +269564591/44293636681466035495684276224000*mncx*ep +45472764736767046157/3557374030801992119851468006806572236800000*mncx^2* ep^2 +126906684898093000128113947991/63489982575606785898803837708132618813602\ 52928000000*mncx^3*ep^3 +1912807200725066844334929443722155255943/7284426392078799355357548542393\ 9288254676142666861772800000000*mncx^4*ep^4 +53677524641216006737724172489720819744162618911/173344382945344492196358\ 9739186110135732585769395162323972259840000000*mncx^5*ep^5 +99813356898970334531896288222195044055013592737697579224909/ 2923595329257990266250041524356910653834041165325368447899559835570536448\ 000000000*mncx^6*ep^6 +188464973525585398084771904842797767482638076393018004019891279060007/ 5217866181782080151438287210303664816779301978164647446794866203633272508\ 991406080000000000*mncx^7*ep^7 +156234160808147120342735745055765391926307751429331443145910608057766459\ 26942801/4190647470370941511995847637871377359775947085659542713197100409\ 48438428948277691580153856000000000000*mncx^8*ep^8 ; Fill mncPO(-25)= -1/15511210043330985984000000 -34052522467/138417614629581360924013363200000000*mncx*ep -5793490591633676917801/11116793846256225374535837521270538240000000000* mncx^2*ep^2 -81384656370757013035663184180567/992030977743856029668809964189572168962\ 53952000000000000*mncx^3*ep^3 -176122096932442395019595242667343669886849/16259880339461605703923099424\ 9864482711330675595673600000000000000*mncx^4*ep^4 -1446748397713984600368618807470929295440186517370209/1128544159800419871\ 070045403115957119617568860283308804669440000000000000000*mncx^5*ep^5 -8090725701340520405271382597523589771894308313467672735828693401/ 5710147127457012238769612352259591120769611651026110249803827803848704000\ 000000000000000*mncx^6*ep^6 -765071034307835073980729147252972259787687731163288382408408709455018757\ 67/5095572443146562647888952353812172672636037088051413522260611526985617\ 6845619200000000000000000000*mncx^7*ep^7 -634867883219679577019118843506161382647304255932522877705870827927695774\ 4807537771201/40924291702841225703084449588587669529061983258393971808565\ 43368637094032698024331837440000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-26)= +1/403291461126605635584000000 +34395742267/3598857980369115384024347443200000000*mncx*ep +5899738289669258497201/289036640002661859737931775553033994240000000000* mncx^2*ep^2 +83409563366589638003220811960367/257928054213402567713890590689288763930\ 2602752000000000000*mncx^3*ep^3 +1269661867514370193728286786947387535922143/2959298221782012238114004095\ 3475335853462182958412595200000000000000*mncx^4*ep^4 +4485502890553923346111651037532362873187789797454427/8802644446443274994\ 3463541443044655330170371102098086764216320000000000000000*mncx^5*ep^5 +8381693734884639563224191438763431636799403704468574686255012801/ 1484638253138823182080099211587493691400099029266788664948995229000663040\ 00000000000000000*mncx^6*ep^6 +793838666781318664120348090660713232324647370958958015509423791880585355\ 67/1324848835218106288451127611991164894885369642893367515787758997016260\ 597986099200000000000000000000*mncx^7*ep^7 +659389386579725152226327617790787050358327966448318221752109547804500426\ 1497925410601/10640315842738718682801956893032794077556115647182432670227\ 0127584564444850148632627773440000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-27)= -1/10888869450418352160768000000 -312536252003/874522489229695038317916428697600000000*mncx*ep -54027306066201893389609/702359035206468319163174214593872606003200000000\ 00*mncx^2*ep^2 -6916882722942792550203844435294127/5640886545647114155902787218374745267\ 154792218624000000000000*mncx^3*ep^3 -105781863112692028426923791152458954384121183/64719852110372607647553269\ 565250559511521794130048345702400000000000000*mncx^4*ep^4 -10124450547451531665251301003609713279538398648943034649/ 5197873519180289451411578658670343852591230243207789925340209479680000000\ 000000000*mncx^5*ep^5 -6321066054179278690866136146657264317464969772671961192473023910729/ 2922213473653145669288259278167663832782814919305820129219107309242005061\ 632000000000000000000*mncx^6*ep^6 -539640012841708919231695970266074085100625823166820825855165340543827470\ 551487/234692996612381874680251903081398887634258576129631375319254143044\ 439516151443514982400000000000000000000*mncx^7*ep^7 -448677355099183498841826516562414467910462025944928058200332279667392707\ 08890178186922361/1884900030593635798502318257730080372456833218551426400\ 2327046291222837711869279824112181575680000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-28)= +1/304888344611713860501504000000 +315404588903/24486629698431461072901660003532800000000*mncx*ep +54931992686981698810309/196660529857811129365688780086284329680896000000\ 0000*mncx^2*ep^2 +1010635169222484615218019977199461/2256354618258845662361114887349898106\ 8619168874496000000000000*mncx^3*ep^3 +108680705261010625358435939397997327030532083/18121558590904330141314915\ 47827015666322610235641353679667200000000000000*mncx^4*ep^4 +10436183424669712573258978534871152798761441249245797349/ 1455404585370481046395242024427696278725544468098181179095258654310400000\ 00000000000*mncx^5*ep^5 +6530607484264318239070044916372416367692549786298717916415436057429/ 8182197726228807874007125978869458731791881774056296361813500465877614172\ 5696000000000000000000*mncx^6*ep^6 +558371995268240432590163601784362501110242331573948552877510851516941590\ 381587/657140390514669249104705328627916885375924013162967850893911600524\ 4306452240418419507200000000000000000000*mncx^7*ep^7 +464693345078728693150529804922764395959570016420883975329533935222957352\ 47726369259582661/5277720085662180235806491121644225042879133011943993920\ 65157296154239455932339835075141084119040000000000000000000000*mncx^8* ep^8 ; Fill mncPO(-29)= -1/8841761993739701954543616000000 -9227046511387/20593255576380858762310296062971084800000000*mncx*ep -46938861633377181563318269/479635366270215563409978365752438851658737254\ 40000000000*mncx^2*ep^2 -25186927017635217446536551133584958729/159587675075673461892043169863972\ 32829194034380722405376000000000000*mncx^3*ep^3 -78890646478256977372499817524180507318888060599123/371693988370268760273\ 70128729720544557277340612164915885352209612800000000000000*mncx^4*ep^4 -220394091880767057381928499928284371416460564271231904088227601/ 8657085888686975513843729395688454248908700080473386830091375281109030928\ 3840000000000000000*mncx^5*ep^5 -400846187516914154875914463903897327820615883520726692055932081171823277\ 4109/14114189871322798085914817932007871078118996653282259744392959396270\ 27196088509806936064000000000000000000*mncx^6*ep^6 -995378118783282432673058672671077952714535074610638646384551893512180951\ 7185573722141183/32873212316675404051596020135301812575494938561567841533\ 06423755165727967201497176340229709312819200000000000000000000*mncx^7* ep^7 -240455402407646472783981904444056897203631939432854930600939782020359353\ 18024856780095224902960744821/7656465570247709197204512317915009549750704\ 8447974904918784266783504795926730677979477001177149651589634457600000000\ 00000000000000*mncx^8*ep^8 ; Fill mncPO(-30)= +1/265252859812191058636308480000000 +9304682830147/617797667291425762869308881889132544000000000*mncx*ep +47661242955539172992975989/143890609881064669022993509725731655497621176\ 3200000000000*mncx^2*ep^2 +25715533224862937981129332151160709249/478763025227020385676129509591916\ 984875821031421672161280000000000000*mncx^3*ep^3 +80887105812785807182912885219853936646131104810363/111508196511080628082\ 1103861891616336718320218364947476560566288384000000000000000*mncx^4*ep^4 +226673869011222345191985022310524244322560444045040215307537481/ 2597125766606092654153118818706536274672610024142016049027412584332709278\ 515200000000000000000*mncx^5*ep^5 +413164874841296575681906255716369228175069979546000212222776589085717687\ 9029/42342569613968394257744453796023613234356989959846779233178878188810\ 815882655294208081920000000000000000000*mncx^6*ep^6 +102745471870689683803439561110431206626298998062797859894370702491470526\ 70999571125425223/9861963695002621215478806040590543772648481568470352459\ 9192712654971839016044915290206891279384576000000000000000000000*mncx^7* ep^7 +248432182612945950576789347394820833922322712645526927749144965808592285\ 17305088891812029456332828301/2296939671074312759161353695374502864925211\ 4534392471475635280035051438778019203393843100353144895476890337280000000\ 0000000000000000*mncx^8*ep^8 ; Fill mncPO(-31)= -1/8222838654177922817725562880000000 -290774257297357/593703558267060158117405835495456374784000000000*mncx*ep -46479693768075341170975445029/428664515896679755486399964823927174892963\ 24637491200000000000*mncx^2*ep^2 -781556503107229568390876511159818552568559/44214770782068309360000480082\ 7836765789503114759574096057466880000000000000*mncx^3*ep^3 -76521255941455275592333629944010738538900877943907253323/ 3192384995653400474537578644877822973797563399792305441352141291565508198\ 4000000000000000*mncx^4*ep^4 -6667705282222096185300565038664400439373549415795418232677816898893031/ 2304958677882854107587952889232422602531968466303538110272905138501002413\ 385094214451200000000000000000*mncx^5*ep^5 -377556125228009940562091755613952065421188786959973299420548922518209727\ 5036627133349/11649547782572666665636314305404667771607764719807658217286\ 58963444626575362564967578131202435973120000000000000000000*mncx^6*ep^6 -291473272229486733419042104667613485088466987677538071957517233716020968\ 722905170264320580894938953/841118044703626331568407529150728643454848548\ 5146045784991473640738594126503418844651751909080180680065391001600000000\ 0000000000000*mncx^7*ep^7 -218674255524336040316771348082036928987371402553161892450028588429683874\ 50701693163803072795570992535801075166141/ 6073021702906075715318413404121886377605639890940294398169517984527028703\ 587193663774521291373823244786337543031555411148800000000000000000000000* mncx^8*ep^8 ; Fill mncPO(-32)= +1/263130836933693530167218012160000000 +586061125622639/37997027729091850119513973471709207986176000000000*mncx* ep +188563440970824224217342974191/54869058034775008702259195497462678386299\ 29553598873600000000000*mncx^2*ep^2 +6374011091027611713181285626046594885588997/1131898132020948719616012290\ 11926212042112797378450968590711521280000000000000*mncx^3*ep^3 +1253103527804771871114914850704998968323017858623755794393/ 1634501117774541042963240266177445362584352460693660385972296341281540197\ 5808000000000000000*mncx^4*ep^4 +219021337829810613341650082757499547365333779437895662406850111446001517/ 2360277686152042606170063758574000744992735709494823024919454861825026471\ 306336475598028800000000000000000*mncx^5*ep^5 +248554426877018194483796891687105191326133831297962684645980033038470417\ 598667492069911/238582738587088213312231716974687595962527021461660840290\ 0293557134595226342533053600012702588872949760000000000000000000*mncx^6* ep^6 +384302082931391121998058436536075937362216030050944911378807944872594414\ 48761488715332917218225450659/3445219511106053454104197239401384523591059\ 6547158203535325076032465281542158003587693575819592420065547841542553600\ 0000000000000000000*mncx^7*ep^7 +577148152317207698093833426701527338328130466460335516738619891871717468\ 8771890382743438398942899371607781601184671/ 4975019379020657225988844260656649320534540198658289170980469132924541913\ 9786290493640878418934360021289677152514501928130969600000000000000000000\ 000*mncx^8*ep^8 ; Fill mncPO(-33)= -1/8683317618811886495518194401280000000 -53676090078349/113991083187275550358541920415127623958528000000000*mncx* ep -191147113675074393547229862991/18106789151475752871745534514162683867478\ 7675268762828800000000000*mncx^2*ep^2 -6493501663928207284923763331891522805938597/3735263835669130774732840557\ 393564997389722313488881963493480202240000000000000*mncx^3*ep^3 -1281518216016642673897384956891070655754678612565673196793/ 5393853688655985441778692878385569696528363120289079273708577926229082652\ 01664000000000000000*mncx^4*ep^4 -224629088844679436707044990778140173948721827021389476075843741063887117/ 7788916364301740600361210403294202458476027841332915982234201044022587355\ 3109103694734950400000000000000000*mncx^5*ep^5 -255435053228138403128470654509381028350984604020895179028694925583796862\ 430658515774711/787323037337391103930364666016469066676339170823480772957\ 09687385441642469303590768800419185432807342080000000000000000000*mncx^6* ep^6 -395479576634333247853823149225324669084906262309239029022593214314630089\ 05825831734876939941551321859/1136922438664997639854385089002456892785049\ 6860562207166657275090713542908912141183938880020465498621630787709042688\ 000000000000000000000*mncx^7*ep^7 -540412550581168010890324776287928240550872098478754071472417407137572114\ 058503060563774057338436352786671893168861/ 1492505813706197167796653278196994796160362059597486751294140739877362574\ 1935887148092263525680308006386903145754350578439290880000000000000000000\ 0000*mncx^8*ep^8 ; Fill mncPO(-34)= +1/295232799039604140847618609643520000000 +54062195834749/3875696828367368712190425294114339214589952000000000*mncx *ep +193672834401940297285176238591/61563083115017559763934817348153125149427\ 80959137936179200000000000*mncx^2*ep^2 +6611010257989610727955230791776284831303797/1269989704127504463409165789\ 51381209911250558658621986758778326876160000000000000*mncx^3*ep^3 +1309596256295164289625430756003219542652775000893320755593/ 1833910254143035050204755578651093696819643460898286953060916494917888101\ 6856576000000000000000*mncx^4*ep^4 +230191158028949416073834042540087090094585156318457665222350343814884317/ 2648231563862591804122811537120028835881849466053191433959628354967679700\ 805709525620988313600000000000000000*mncx^5*ep^5 +262278669329565080577541157375092806300683649718885554909323049217499202\ 181779758942311/267689832694712975336323986445599482669955318079983462805\ 4129371105015843956322086139214252304715449630720000000000000000000* mncx^6*ep^6 +239187635338430435617034812789160735411510540243846796483738814318199149\ 6420502963543992771785927427/22738448773299952797087701780049137855700993\ 7211244143333145501814270858178242823678777600409309972432615754180853760\ 00000000000000000000*mncx^7*ep^7 +505556675880023872688075654452576146782093782443650908907972226474522343\ 32857069616391197413953409116726062406951/ 4613199787819154882280564678063438460859300911483140867636435014166393411\ 1438196639557905443011861110650427905058901787903262720000000000000000000\ 0000*mncx^8*ep^8 ; Fill mncPO(-35)= -1/10333147966386144929666651337523200000000 -54437269998109/135649388992857904926664885294001872510648320000000000* mncx*ep -28020487719351088554569096233/307815415575087798819674086740765625747139\ 04795689680896000000000000*mncx^2*ep^2 -6726617628860633132194043822000226660155477/4444963964446265621932080263\ 298342346893769553051769536557241440665600000000000000*mncx^3*ep^3 -1337349041568427108208504105948050572191945009309584705513/ 6418685889500622675716644525278827938868752113144004335713207732212608355\ 89980160000000000000000*mncx^4*ep^4 -235708813830701748331660980065818578642451649931134784063493088815524797/ 9268810473519071314429840379920100925586473131186170018858699242386878952\ 8199833396734590976000000000000000000*mncx^5*ep^5 -269086107362662971607704557753188335966759017341527797426919736935809337\ 701066139462151/936914414431495413677133952559598189344843613279942119818\ 94527988675554538471273014872498830665040737075200000000000000000000* mncx^6*ep^6 -245718221882544255922632009450470706478202717227383278660473757211162501\ 1184604961686740126716566307/79584570706549834789806956230171982494953478\ 0239354501666009256349948003623849882875721601432584903514155139632988160\ 000000000000000000000*mncx^7*ep^7 -816828540103085174604576510413683166815268804927011007085895297485429585\ 42089963386441153282837822948376644996043/ 2537259883300535185254310572934891153472615501315727477200039257791516376\ 1291008151756847993656523610857735347782395983346794496000000000000000000\ 000000*mncx^8*ep^8 ; Fill mncPO(-36)= +1/371993326789901217467999448150835200000000 +54801925434709/4883378003742884577359935870584067410383339520000000000* mncx*ep +28365922323001895565692364433/110813549607031607575082671226675625268970\ 0572644828512256000000000000*mncx^2*ep^2 +6840399294542448499145530506469847851081277/1600187027200655623895548894\ 78740324488175703909863703316060691863961600000000000000*mncx^3*ep^3 +1364787318272393902310082315639579768613532772621310625713/ 2310726920220224163257992029100378057992750760731841560856754783596539008\ 1239285760000000000000000*mncx^4*ep^4 +241183262100220140849575649035124968298858892399689742143012614029778597/ 3336771770466865673194742536771236333211130327227021206789131727259276423\ 015194002282445275136000000000000000000*mncx^5*ep^5 +275858164018779108255860951501407989498653796590642496343098766635251225\ 077224664127551/337289189195338348923768222921455348164143700780779163134\ 8203007592319963384965828535409957903941466534707200000000000000000000* mncx^6*ep^6 +252227192303952287508043750847911947155725999394372053017906536185205380\ 7228335697848559253065474107/28650445454357940524330504242861913698183252\ 0886167620599763332285981281304585957835259776515730565265095850267875737\ 60000000000000000000000*mncx^7*ep^7 +839165572786568431493374298122467426413886885962513054254372610981149100\ 15887991504503388273813326652785125278243/ 9134135579881926666915518062565608152501415804736618917920141328049458954\ 0647629346324652777163484999087847252016625540048460185600000000000000000\ 0000000*mncx^8*ep^8 ; Fill mncPO(-37)= -1/13763753091226345046315979581580902400000000 -2040798836801833/6685344487124008986405752206829588284814791802880000000\ 000*mncx*ep -39296045464550797787239457431177/561303872824497201850066254564480044674\ 91403106178498631303168000000000000*mncx^2*ep^2 -352161234046208215339252267574509136702023691081/29990081190854079447357\ 0581220365445283083865415414068070531622324454136217600000000000000* mncx^3*ep^3 -2608684498588375105517626756450359829025314345805903633658883393/ 1602349481944936549073231791722793647371928150639061097268636868732627063\ 281683538452152320000000000000000*mncx^4*ep^4 -171013050661720159566906093714710194318958438162996619791883595630791538\ 85873129/8561243452292523517171314326549614651700120853307180048661925366\ 808910708761138659914476119513706266624000000000000000000*mncx^5*ep^5 -725063001035943052469479181619316097777903710198896844188251120449343750\ 417133885707805597715159/320194958669810512763942477217493534214642269186\ 7684368272132390570951849184846348139270834635216735174966551905304576000\ 00000000000000000*mncx^6*ep^6 -245602930259961626549022170288154353783132839086321253618207959562908667\ 637550478222385474906261084233824782431/ 1006341010041165756625706059570901881888037389060124871006728619889702799\ 5603599716501979910951497959487125227506313523739330871296000000000000000\ 0000000*mncx^7*ep^7 -432264749914112238108769602794820549174363880137386855236016131320963376\ 74043608981065289239761150175174142649448794390890629/ 1695840216407956741069424431497323702460196044302890864765395127888956243\ 3727962663264686187541588505558117436083171773840192306425640481980416000\ 000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-38)= +1/523022617466601111760007224100074291200000000 +2053580969474233/2540430905107123414834185838595243548229620885094400000\ 00000*mncx*ep +39749780674985882178980437798777/213295471673308936703025176734502416976\ 4673318034782947989520384000000000000*mncx^2*ep^2 +357750190719359398209347777918099374415101893881/11396230852524550189995\ 682086373886920757186885785734586680201648329257176268800000000000000* mncx^3*ep^3 +2658985413003238910771173525609793878940548365941169558772311793/ 6088928031390758886478280808546615860013326972428432169620820101183982840\ 4703974461181788160000000000000000*mncx^4*ep^4 +174751676137248367434629126308906747211036344655198215819163300076987902\ 67618329/3253272511871158936525099444088853567646045924256728418491531639\ 38738606932923269076750092541520838131712000000000000000000*mncx^5*ep^5 +742262484176094563006431126693903121562516373538281131135537536308520808\ 714695198186793014024359/121674084294527994850298141342647543001564062290\ 9720059943410308416961702690241612292922917161382359366487289724015738880\ 0000000000000000000*mncx^6*ep^6 +251742028674980715337092849137223725061018161689321246937188184022405326\ 241754074550047757403326092258356365231/ 3824095838156429875177683026369427151174542078428474509825568755580870638\ 3293678922707523661615692246051075864523991390209457310924800000000000000\ 00000000*mncx^7*ep^7 +282181801914906020042353777216446621677351673565137168203067512892413081\ 71290590125296922283368158660576768843999991651950073/ 4100849977859240846586062716166255498676474070768808818432682763804203279\ 4287618803894604780782386749804174890892033562195374122811094256425369600\ 0000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-39)= -1/20397882081197443358640281739902897356800000000 -2066035355155033/9907680529917781317853324770521449838095521451868160000\ 000000*mncx*ep -40194562866176681556204641717977/831852339525904853141798189264559426208\ 22259403356534971591294976000000000000*mncx^2*ep^2 -363256775189631187172928799970374912083283051481/44445300324845745740983\ 1601368581589909530288545643648880527864284841029874483200000000000000* mncx^3*ep^3 -2708750952776367511754929445487032491402381958608770810738224593/ 2374681932242395965726529515333180185405197519247088546152119839461753307\ 783455003986089738240000000000000000*mncx^4*ep^4 -178462617335950615774363407395022425191767023902592242501363486714297999\ 54676729/1268776279629751985244788783194652891381957910460124083211697339\ 3610805670384007493993253609119312687136768000000000000000000*mncx^5*ep^5 -759376829623578102586033668224832815298091263145655117559915634200781766\ 870276142570887835970759/474528928748659179916162751236325417706099842934\ 7908233779300202826150640491942287942399376929391201529300429923661381632\ 00000000000000000000*mncx^6*ep^6 -257861634030577604520856804598615878794432719873098961670694536552823499\ 129061356975515049897198346412955482831/ 1491397376881007651319296380284076588958071410587105058831971814676539548\ 9484534779855934228030119975959919587164356642181688351260672000000000000\ 0000000000*mncx^7*ep^7 -454570513238213126805466407798576154119525517839805521895228210744727232\ 90929426556136551775332771735176762545727137146694229/ 2513235200716591890264887007479033727046010537656884261582315579531433152\ 6784840666958264929936634165237130040275260568831164998122799194294976512\ 000000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-40)= +1/815915283247897734345611269596115894272000000000 +2078178381193813/3963072211967112527141329908208579935238208580747264000\ 00000000*mncx*ep +40630774334422967689121916324397/332740935810361941256719275705823770483\ 2890376134261398863651799040000000000000*mncx^2*ep^2 +368683961247536801596614790345267288407486323741/17778120129938298296393\ 264054743263596381211541825745955221114571393641194979328000000000000000* mncx^3*ep^3 +2757997281132970865939093578334734854928763733759781509645660373/ 9498727728969583862906118061332720741620790076988354184608479357847013231\ 1338200159443589529600000000000000000*mncx^4*ep^4 +182146564943915647791277936566142100003343018525106594345690078194760414\ 34591069/5075105118519007940979155132778611565527831641840496332846789357\ 44432226815360299759730144364772507485470720000000000000000000*mncx^5* ep^5 +776407770327188012905286289437702564472631687637943515864539604489420665\ 928534152925141981468899/189811571499463671966465100494530167082439937173\ 9163293511720081130460256196776915176959750771756480611720171969464552652\ 8000000000000000000000*mncx^6*ep^6 +263962065647620888326135708068973411098878098198879015730048279543781591\ 780089569660293392569913582453374126091/ 5965589507524030605277185521136306355832285642348420235327887258706158195\ 7938139119423736912120479903839678348657426568726753405042688000000000000\ 00000000000*mncx^7*ep^7 +325983654983742999513160157936468656971432379829929375757986537376456715\ 164542084314538100265261454807219787389042299968109983/ 7037058562006457292741683620941294435728829505439275932430483622688012827\ 4997553867483141803822575662663964112770729592727261994743837744025934233\ 60000000000000000000000000*mncx^8*ep^8 ; Fill mncPO(-41)= -1/33452526613163807108170062053440751665152000000000 -85691034670497533/666192438831671615812457557569862287113542862423615078\ 400000000000*mncx*ep -69019796595025328727596152952160157/229328380369859553533543492009210800\ 854787637613549429871081745641635840000000000000*mncx^2*ep^2 -25778835335529148272555532835762030780136300189475861/ 5023671851649457573231452622859537928337376870764106171617157193237586693\ 6765980868608000000000000000*mncx^3*ep^3 -7931175705372235945545978617347153576894970986448024210728865252684053/ 1100486509011773630907207658243494022118087320938368237071191090787074492\ 1558993096650728556702833049600000000000000000*mncx^4*ep^4 -215265663212791323538761354007345287183895949159380254551131768449038591\ 5870236096018469/24107278346997947259557762488808600911505402485440534676\ 2004817300299401273271688383172543976264813880693871295332352000000000000\ 0000000*mncx^5*ep^5 -376852832042889340431165040539244300710503976617098110571229510888568253\ 9271602709224278127462994451186259/36966614781589561814766886029139916702\ 3901982301013339358363522963889196826932518767831924882716162744491616790\ 2735186562645563015168000000000000000000000*mncx^6*ep^6 -525921515161579119617981400717393318423848864183368906309961692035526998\ 85801670555767665446585133397291899019789426315571/ 4763478616520815363425634690907334481661576198737807810808792290778512683\ 3562591529290895564449964803812351968580434476702870428600295239518571724\ 800000000000000000000000*mncx^7*ep^7 -266499324644667860320080190275340939758087785365222374713704976999237083\ 7249532678413451011495919945390829480005723065771692535720661486143/ 2303805844473259537132802467745690293821996200241139075111107634567173676\ 5614705245752121995319209441480005893984233518489352767444360297932684357\ 02697685900328960000000000000000000000000*mncx^8*ep^8 ; *--#] mncPO-neg : mncPO negative values *--#[ mncPO-pos : mncPO positive values * Fill mncPO(1)= +1 ; Fill mncPO(2)= +1 +mncx*ep ; Fill mncPO(3)= +2 +3*mncx*ep +mncx^2*ep^2 ; Fill mncPO(4)= +6 +11*mncx*ep +6*mncx^2*ep^2 +mncx^3*ep^3 ; Fill mncPO(5)= +24 +50*mncx*ep +35*mncx^2*ep^2 +10*mncx^3*ep^3 +mncx^4*ep^4 ; Fill mncPO(6)= +120 +274*mncx*ep +225*mncx^2*ep^2 +85*mncx^3*ep^3 +15*mncx^4*ep^4 +mncx^5*ep^5 ; Fill mncPO(7)= +720 +1764*mncx*ep +1624*mncx^2*ep^2 +735*mncx^3*ep^3 +175*mncx^4*ep^4 +21*mncx^5*ep^5 +mncx^6*ep^6 ; Fill mncPO(8)= +5040 +13068*mncx*ep +13132*mncx^2*ep^2 +6769*mncx^3*ep^3 +1960*mncx^4*ep^4 +322*mncx^5*ep^5 +28*mncx^6*ep^6 +mncx^7*ep^7 ; Fill mncPO(9)= +40320 +109584*mncx*ep +118124*mncx^2*ep^2 +67284*mncx^3*ep^3 +22449*mncx^4*ep^4 +4536*mncx^5*ep^5 +546*mncx^6*ep^6 +36*mncx^7*ep^7 +mncx^8*ep^8 ; Fill mncPO(10)= +362880 +1026576*mncx*ep +1172700*mncx^2*ep^2 +723680*mncx^3*ep^3 +269325*mncx^4*ep^4 +63273*mncx^5*ep^5 +9450*mncx^6*ep^6 +870*mncx^7*ep^7 +45*mncx^8*ep^8 ; Fill mncPO(11)= +3628800 +10628640*mncx*ep +12753576*mncx^2*ep^2 +8409500*mncx^3*ep^3 +3416930*mncx^4*ep^4 +902055*mncx^5*ep^5 +157773*mncx^6*ep^6 +18150*mncx^7*ep^7 +1320*mncx^8*ep^8 ; Fill mncPO(12)= +39916800 +120543840*mncx*ep +150917976*mncx^2*ep^2 +105258076*mncx^3*ep^3 +45995730*mncx^4*ep^4 +13339535*mncx^5*ep^5 +2637558*mncx^6*ep^6 +357423*mncx^7*ep^7 +32670*mncx^8*ep^8 ; Fill mncPO(13)= +479001600 +1486442880*mncx*ep +1931559552*mncx^2*ep^2 +1414014888*mncx^3*ep^3 +657206836*mncx^4*ep^4 +206070150*mncx^5*ep^5 +44990231*mncx^6*ep^6 +6926634*mncx^7*ep^7 +749463*mncx^8*ep^8 ; Fill mncPO(14)= +6227020800 +19802759040*mncx*ep +26596717056*mncx^2*ep^2 +20313753096*mncx^3*ep^3 +9957703756*mncx^4*ep^4 +3336118786*mncx^5*ep^5 +790943153*mncx^6*ep^6 +135036473*mncx^7*ep^7 +16669653*mncx^8*ep^8 ; Fill mncPO(15)= +87178291200 +283465647360*mncx*ep +392156797824*mncx^2*ep^2 +310989260400*mncx^3*ep^3 +159721605680*mncx^4*ep^4 +56663366760*mncx^5*ep^5 +14409322928*mncx^6*ep^6 +2681453775*mncx^7*ep^7 +368411615*mncx^8*ep^8 ; Fill mncPO(16)= +1307674368000 +4339163001600*mncx*ep +6165817614720*mncx^2*ep^2 +5056995703824*mncx^3*ep^3 +2706813345600*mncx^4*ep^4 +1009672107080*mncx^5*ep^5 +272803210680*mncx^6*ep^6 +54631129553*mncx^7*ep^7 +8207628000*mncx^8*ep^8 ; Fill mncPO(17)= +20922789888000 +70734282393600*mncx*ep +102992244837120*mncx^2*ep^2 +87077748875904*mncx^3*ep^3 +48366009233424*mncx^4*ep^4 +18861567058880*mncx^5*ep^5 +5374523477960*mncx^6*ep^6 +1146901283528*mncx^7*ep^7 +185953177553*mncx^8*ep^8 ; Fill mncPO(18)= +355687428096000 +1223405590579200*mncx*ep +1821602444624640*mncx^2*ep^2 +1583313975727488*mncx^3*ep^3 +909299905844112*mncx^4*ep^4 +369012649234384*mncx^5*ep^5 +110228466184200*mncx^6*ep^6 +24871845297936*mncx^7*ep^7 +4308105301929*mncx^8*ep^8 ; Fill mncPO(19)= +6402373705728000 +22376988058521600*mncx*ep +34012249593822720*mncx^2*ep^2 +30321254007719424*mncx^3*ep^3 +17950712280921504*mncx^4*ep^4 +7551527592063024*mncx^5*ep^5 +2353125040549984*mncx^6*ep^6 +557921681547048*mncx^7*ep^7 +102417740732658*mncx^8*ep^8 ; Fill mncPO(20)= +121645100408832000 +431565146817638400*mncx*ep +668609730341153280*mncx^2*ep^2 +610116075740491776*mncx^3*ep^3 +371384787345228000*mncx^4*ep^4 +161429736530118960*mncx^5*ep^5 +52260903362512720*mncx^6*ep^6 +12953636989943896*mncx^7*ep^7 +2503858755467550*mncx^8*ep^8 ; Fill mncPO(21)= +2432902008176640000 +8752948036761600000*mncx*ep +13803759753640704000*mncx^2*ep^2 +12870931245150988800*mncx^3*ep^3 +8037811822645051776*mncx^4*ep^4 +3599979517947607200*mncx^5*ep^5 +1206647803780373360*mncx^6*ep^6 +311333643161390640*mncx^7*ep^7 +63030812099294896*mncx^8*ep^8 ; Fill mncPO(22)= +51090942171709440000 +186244810780170240000*mncx*ep +298631902863216384000*mncx^2*ep^2 +284093315901811468800*mncx^3*ep^3 +181664979520697076096*mncx^4*ep^4 +83637381699544802976*mncx^5*ep^5 +28939583397335447760*mncx^6*ep^6 +7744654310169576800*mncx^7*ep^7 +1634980697246583456*mncx^8*ep^8 ; Fill mncPO(23)= +1124000727777607680000 +4148476779335454720000*mncx*ep +6756146673770930688000*mncx^2*ep^2 +6548684852703068697600*mncx^3*ep^3 +4280722865357147142912*mncx^4*ep^4 +2021687376910682741568*mncx^5*ep^5 +720308216440924653696*mncx^6*ep^6 +199321978221066137360*mncx^7*ep^7 +43714229649594412832*mncx^8*ep^8 ; Fill mncPO(24)= +25852016738884976640000 +96538966652493066240000*mncx*ep +159539850276066860544000*mncx^2*ep^2 +157375898285941510732800*mncx^3*ep^3 +105005310755917452984576*mncx^4*ep^4 +50779532534302850198976*mncx^5*ep^5 +18588776355051949776576*mncx^6*ep^6 +5304713715525445812976*mncx^7*ep^7 +1204749260161737632496*mncx^8*ep^8 ; Fill mncPO(25)= +620448401733239439360000 +2342787216398718566400000*mncx*ep +3925495373278097719296000*mncx^2*ep^2 +3936561409138663118131200*mncx^3*ep^3 +2677503356427960382362624*mncx^4*ep^4 +1323714091579185857760000*mncx^5*ep^5 +496910165055549644836800*mncx^6*ep^6 +145901905527662649288000*mncx^7*ep^7 +34218695959407148992880*mncx^8*ep^8 ; Fill mncPO(26)= +15511210043330985984000000 +59190128811701203599360000*mncx*ep +100480171548351161548800000*mncx^2*ep^2 +102339530601744675672576000*mncx^3*ep^3 +70874145319837672677196800*mncx^4*ep^4 +35770355645907606826362624*mncx^5*ep^5 +13746468217967926978680000*mncx^6*ep^6 +4144457803247115877036800*mncx^7*ep^7 +1001369304512841374110000*mncx^8*ep^8 ; Fill mncPO(27)= +403291461126605635584000000 +1554454559147562279567360000*mncx*ep +2671674589068831403868160000*mncx^2*ep^2 +2761307967193712729035776000*mncx^3*ep^3 +1945067308917524165279692800*mncx^4*ep^4 +1000903392113435450162625024*mncx^5*ep^5 +393178529313073708272042624*mncx^6*ep^6 +121502371102392939781636800*mncx^7*ep^7 +30180059720580991603896800*mncx^8*ep^8 ; Fill mncPO(28)= +10888869450418352160768000000 +42373564558110787183902720000*mncx*ep +73689668464006010184007680000*mncx^2*ep^2 +77226989703299075087834112000*mncx^3*ep^3 +55278125307966865191587481600*mncx^4*ep^4 +28969458895980281319670568448*mncx^5*ep^5 +11616723683566425573507775872*mncx^6*ep^6 +3673742549077683082376236224*mncx^7*ep^7 +936363983558079713086850400*mncx^8*ep^8 ; Fill mncPO(29)= +304888344611713860501504000000 +1197348677077520393310044160000*mncx*ep +2105684281550279072336117760000*mncx^2*ep^2 +2236045380156380112643362816000*mncx^3*ep^3 +1625014498326371300452283596800*mncx^4*ep^4 +866422974395414742142363398144*mncx^5*ep^5 +354237722035840197377888292864*mncx^6*ep^6 +114481515057741551880042390144*mncx^7*ep^7 +29891934088703915048808047424*mncx^8*ep^8 ; Fill mncPO(30)= +8841761993739701954543616000000 +35027999979859805266492784640000*mncx*ep +62262192842035613491057459200000*mncx^2*ep^2 +66951000306085302338993639424000*mncx^3*ep^3 +49361465831621147825759587123200*mncx^4*ep^4 +26751280755793398822580822142976*mncx^5*ep^5 +11139316913434780466101123891200*mncx^6*ep^6 +3674201658710345201899117607040*mncx^7*ep^7 +981347603630155088295475765440*mncx^8*ep^8 ; Fill mncPO(31)= +265252859812191058636308480000000 +1059681761389533859949327155200000*mncx*ep +1902893785240928209998216560640000*mncx^2*ep^2 +2070792202024594683660866641920000*mncx^3*ep^3 +1547794975254719737111781253120000*mncx^4*ep^4 +851899888505423112503184251412480*mncx^5*ep^5 +360930788158836812805614538878976*mncx^6*ep^6 +121365366674745136523074652102400*mncx^7*ep^7 +33114629767614997850763390570240*mncx^8*ep^8 ; Fill mncPO(32)= +8222838654177922817725562880000000 +33115387462887740717065450291200000*mncx*ep +60049389103858308369894040535040000*mncx^2*ep^2 +66097452048003363403485082460160000*mncx^3*ep^3 +50052436434920906534126085488640000*mncx^4*ep^4 +27956691518922836224710493046906880*mncx^5*ep^5 +12040754321429364309477234956660736*mncx^6*ep^6 +4123257155075936045020928754053376*mncx^7*ep^7 +1147918889470810069896739759779840*mncx^8*ep^8 ; Fill mncPO(33)= +263130836933693530167218012160000000 +1067915237466585625763819972198400000*mncx*ep +1954695838786353608553674747412480000*mncx^2*ep^2 +2175167854639965937281416679260160000*mncx^3*ep^3 +1667775417965472372495519818096640000*mncx^4*ep^4 +944666565040451665724861862989660160*mncx^5*ep^5 +413260829804662494127982011660050432*mncx^6*ep^6 +143984983283859317750146955086368768*mncx^7*ep^7 +40856661618141858281716601067008256*mncx^8*ep^8 ; Fill mncPO(34)= +8683317618811886495518194401280000000 +35504333673331019180373277094707200000*mncx*ep +65572877917416254708035086636810240000*mncx^2*ep^2 +73735235041905229538840425162997760000*mncx^3*ep^3 +57211756647500554229633570676449280000*mncx^4*ep^4 +32841772064300377341415961296755425280*mncx^5*ep^5 +14582273948594313971948268247771324416*mncx^6*ep^6 +5164765278172019979882831529510219776*mncx^7*ep^7 +1492254816682540641046794790297641216*mncx^8*ep^8 ; Fill mncPO(35)= +295232799039604140847618609643520000000 +1215830662512066538628209615621324800000*mncx*ep +2264982182865483679253566222746255360000*mncx^2*ep^2 +2572570869342194059028609542178734080000*mncx^3*ep^3 +2018934961056924073346381828162273280000*mncx^4*ep^4 +1173832006833713383837776254766133739520*mncx^5*ep^5 +528639086316507052387657081720980455424*mncx^6*ep^6 +190184293406442993287964540251118796800*mncx^7*ep^7 +55901429045378401775473854399630021120*mncx^8*ep^8 ; Fill mncPO(36)= +10333147966386144929666651337523200000000 +42849305986961932992834955156389888000000*mncx*ep +80490207062803995312503027411740262400000*mncx^2*ep^2 +92304962609842275745254900199001948160000*mncx^3*ep^3 +73235294506334536626151973527858298880000*mncx^4*ep^4 +43103055200236892507668550744976954163200*mncx^5*ep^5 +19676200027911460217405774115000449679360*mncx^6*ep^6 +7185089355542011817466415990510138343424*mncx^7*ep^7 +2146734309994687055429549444238169536000*mncx^8*ep^8 ; Fill mncPO(37)= +371993326789901217467999448150835200000000 +1552908163497015732671725036967559168000000*mncx*ep +2940496760247905764242943941979039334400000*mncx^2*ep^2 +3403468861017125922141679434575810396160000*mncx^3*ep^3 +2728775564837885594286725947201900707840000*mncx^4*ep^4 +1624945281714862666902219800347028648755200*mncx^5*ep^5 +751446256205049460334276418884993142620160*mncx^6*ep^6 +278339416827423885646196749773365430042624*mncx^7*ep^7 +84467524515350745812930195983084241639424*mncx^8*ep^8 ; Fill mncPO(38)= +13763753091226345046315979581580902400000000 +57829595376179483326321825815950524416000000*mncx*ep +110351288292669529009660650890192014540800000*mncx^2*ep^2 +128868844617881564883485083021284023992320000*mncx^3*ep^3 +104368164760018892910750539481046136586240000*mncx^4*ep^4 +62851750988287804269668858560041960711782400*mncx^5*ep^5 +29428456761301692699270447299091774925701120*mncx^6*ep^6 +11050004678819733229243556160499514054197248*mncx^7*ep^7 +3403637823895401480724614001147482370701312*mncx^8*ep^8 ; Fill mncPO(39)= +523022617466601111760007224100074291200000000 +2211288377386046711446545360587700830208000000*mncx*ep +4251178550497621585693426559643247076966400000*mncx^2*ep^2 +5007367383772168994582093805698984926248960000*mncx^3*ep^3 +4094859105498599495492005583301037214269440000*mncx^4*ep^4 +2492734702314955455158167164762640643633971200*mncx^5*ep^5 +1181133107917752126841945855925529407888424960*mncx^6*ep^6 +449328634556451555410525581398073308985196544*mncx^7*ep^7 +140388241986844989496778888204103844140847104*mncx^8*ep^8 ; Fill mncPO(40)= +20397882081197443358640281739902897356800000000 +86763269335522422858175276287020406669312000000*mncx*ep +168007251846793288553490181186674336831897600000*mncx^2*ep^2 +199538506517612212374395084981903659200675840000*mncx^3*ep^3 +164706872498217549318770311554439436282757120000*mncx^4*ep^4 +101311512495781862246660525009044022315994316800*mncx^5*ep^5 +48556925911107288401994055545858287551282544640*mncx^6*ep^6 +18704949855619362787852443530450388458311090176*mncx^7*ep^7 +5924470072043406145784902221358123230478233600*mncx^8*ep^8 ; Fill mncPO(41)= +815915283247897734345611269596115894272000000000 +3490928655502094357685651333220719164129280000000*mncx*ep +6807053343207253964997782523753993879945216000000*mncx^2*ep^2 +8149547512551281783529293580462820704858931200000*mncx^3*ep^3 +6787813406446314185125207547159481110510960640000*mncx^4*ep^4 +4217167372329492039185191311916200328922529792000*mncx^5*ep^5 +2043588548940073398326422746843375524367296102400*mncx^6*ep^6 +796754920135881799916091796763873825883726151680*mncx^7*ep^7 +255683752737355608619248532384775317677440434176*mncx^8*ep^8 ; Fill mncPO(42)= +33452526613163807108170062053440751665152000000000 +143943990158833766399457315931645601623572480000000*mncx*ep +282580115726999506922594734807134468241883136000000*mncx^2*ep^2 +340938501357809807089698819322729642779161395200000*mncx^3*ep^3 +286449897176850163373662803014001546235808317440000*mncx^4*ep^4 +179691675671955487791718051335723694596334682112000*mncx^5*ep^5 +88004297878872501370568523932494596827981669990400*mncx^6*ep^6 +34710540274511227194886186414162202385600068321280*mncx^7*ep^7 +11279788782367461753305281624539661850658783952896*mncx^8*ep^8 ; *--#] mncPO-pos : mncPO positivevalues *--#[ mncPOINV-pos : mncPOINV positive values * Fill mncPOINV(1)= +1 ; Fill mncPOINV(2)= +1 -mncx*ep +mncx^2*ep^2 -mncx^3*ep^3 +mncx^4*ep^4 -mncx^5*ep^5 +mncx^6*ep^6 -mncx^7*ep^7 +mncx^8*ep^8 ; Fill mncPOINV(3)= +1/2 -3/4*mncx*ep +7/8*mncx^2*ep^2 -15/16*mncx^3*ep^3 +31/32*mncx^4*ep^4 -63/64*mncx^5*ep^5 +127/128*mncx^6*ep^6 -255/256*mncx^7*ep^7 +511/512*mncx^8*ep^8 ; Fill mncPOINV(4)= +1/6 -11/36*mncx*ep +85/216*mncx^2*ep^2 -575/1296*mncx^3*ep^3 +3661/7776*mncx^4*ep^4 -22631/46656*mncx^5*ep^5 +137845/279936*mncx^6*ep^6 -833375/1679616*mncx^7*ep^7 +5019421/10077696*mncx^8*ep^8 ; Fill mncPOINV(5)= +1/24 -25/288*mncx*ep +415/3456*mncx^2*ep^2 -5845/41472*mncx^3*ep^3 +76111/497664*mncx^4*ep^4 -952525/5971968*mncx^5*ep^5 +11679655/71663616*mncx^6*ep^6 -141710965/859963392*mncx^7*ep^7 +1710104671/10319560704*mncx^8*ep^8 ; Fill mncPOINV(6)= +1/120 -137/7200*mncx*ep +12019/432000*mncx^2*ep^2 -874853/25920000*mncx^3*ep^3 +58067611/1555200000*mncx^4*ep^4 -3673451957/93312000000*mncx^5*ep^5 +226576032859/5598720000000*mncx^6*ep^6 -13790081534933/335923200000000*mncx^7*ep^7 +833490615528571/20155392000000000*mncx^8*ep^8 ; Fill mncPOINV(7)= +1/720 -49/14400*mncx*ep +13489/2592000*mncx^2*ep^2 -336581/51840000*mncx^3*ep^3 +68165041/9331200000*mncx^4*ep^4 -483900263/62208000000*mncx^5*ep^5 +270127056529/33592320000000*mncx^6*ep^6 -5497117366741/671846400000000*mncx^7*ep^7 +998404136530801/120932352000000000*mncx^8*ep^8 ; Fill mncPOINV(8)= +1/5040 -121/235200*mncx*ep +726301/889056000*mncx^2*ep^2 -129973303/124467840000*mncx^3*ep^3 +187059457981/156829478400000*mncx^4*ep^4 -28139924320343/21956126976000000*mncx^5*ep^5 +36845364451242061/27664719989760000000*mncx^6*ep^6 -1754673272194274861/1291020266188800000000*mncx^7*ep^7 +6703124731661806560541/4880056606193664000000000*mncx^8*ep^8 ; Fill mncPOINV(9)= +1/40320 -761/11289600*mncx*ep +3144919/28449792000*mncx^2*ep^2 -1149858589/7965941760000*mncx^3*ep^3 +3355156783231/20074173235200000*mncx^4*ep^4 -339302688554687/1873589501952000000*mncx^5*ep^5 +2678744365563671119/14164336634757120000000*mncx^6*ep^6 -767550589317330035789/3966014257731993600000000*mncx^7*ep^7 +1957778366940381440772031/9994355929484623872000000000*mncx^8*ep^8 ; Fill mncPOINV(10)= +1/362880 -7129/914457600*mncx*ep +30300391/2304433152000*mncx^2*ep^2 -101622655189/5807171543040000*mncx^3*ep^3 +300222042894631/14634072288460800000*mncx^4*ep^4 -826117151879597149/36877862166921216000000*mncx^5*ep^5 +2184117445022203447471/92932212660641464320000000*mncx^6*ep^6 -5647452301117219330103509/234189175904816490086400000000*mncx^7*ep^7 +14426270509808664045334277911/590156723280137555017728000000000*mncx^8* ep^8 ; Fill mncPOINV(11)= +1/3628800 -7381/9144576000*mncx*ep +32160403/23044331520000*mncx^2*ep^2 -21945415349/11614343086080000*mncx^3*ep^3 +327873266234371/146340722884608000000*mncx^4*ep^4 -908741214970658641/368778621669212160000000*mncx^5*ep^5 +2413120231194809425003/929322126606414643200000000*mncx^6*ep^6 -1251111719875662261040853/468378351809632980172800000000*mncx^7*ep^7 +16002671276851998494245752691/5901567232801375550177280000000000*mncx^8* ep^8 ; Fill mncPOINV(12)= +1/39916800 -83711/1106493696000*mncx*ep +4102360483/30672005253120000*mncx^2*ep^2 -31276937512951/170045597123297280000*mncx^3*ep^3 +5194481903600608411/23568319761289003008000000*mncx^4*ep^4 -159443775809313077987411/653313823782931163381760000000*mncx^5*ep^5 +4676788004935176736296015403/18109859195262851848942387200000000*mncx^6* ep^6 -1069509167192338331769717286399/4016042375141490026021463785472000000* mncx^7*ep^7 +3767210095582422174347665431061183771/1391558682986526294016437201666048\ 0000000000*mncx^8*ep^8 ; Fill mncPOINV(13)= +1/479001600 -86021/13277924352000*mncx*ep +4301068993/368064063037440000*mncx^2*ep^2 -33264031387717/2040547165479567360000*mncx^3*ep^3 +5578681466128739761/282819837135468036096000000*mncx^4*ep^4 -172330529996070466835321/7839765885395173960581120000000*mncx^5*ep^5 +5074871529226099514685606913/217318310343154222187308646400000000*mncx^6 *ep^6 -29082319826310916270027682553781/1204812712542447007806439135641600000000 *mncx^7*ep^7 +4103110889576313257266485164557354321/1669870419583831552819724641999257\ 60000000000*mncx^8*ep^8 ; Fill mncPOINV(14)= +1/6227020800 -1145993/2243969215488000*mncx*ep +758647585777/808636746493255680000*mncx^2*ep^2 -77287019174361937/58280067593261923368960000*mncx^3*ep^3 +170044702211669500782121/105009025789539333526192128000000*mncx^4*ep^4 -68698758619138470404367234173/37841052533518394229498595246080000000* mncx^5*ep^5 +26399765160034818571989179349406177/136364016909786885445421137828773888\ 00000000*mncx^6*ep^6 -394246547613588122203703327901927667613/19656054853444320815644784491190\ 7833118720000000*mncx^7*ep^7 +3620246461793253966559014838656210159777604441/1770813981746798862281438\ 634811377668566548480000000000*mncx^8*ep^8 ; Fill mncPOINV(15)= +1/87178291200 -1171733/31415569016832000*mncx*ep +112686856171/1617273492986511360000*mncx^2*ep^2 -81347802723340093/815920946305666927165440000*mncx^3*ep^3 +180514164422163370751221/1470126361053550669366689792000000*mncx^4*ep^4 -10477884744480707938214808959/75682105067036788458997190492160000000* mncx^5*ep^5 +28287670433295352528296723627638797/190909623673701639623589592960283443\ 200000000*mncx^6*ep^6 -2116857665458545085834188172744722865021/1375923839741102457095134914383\ 3548318310400000000*mncx^7*ep^7 +556098006191109817015124979498350856072258163/35416279634935977245628772\ 69622755337133096960000000000*mncx^8*ep^8 ; Fill mncPOINV(16)= +1/1307674368000 -1195757/471233535252480000*mncx*ep +476696711/99016744468561920000*mncx^2*ep^2 -17055178843123409/2447762838917000781496320000*mncx^3*ep^3 +190757504835343290196621/22051895415803260040500346880000000*mncx^4*ep^4 -11132564501075606110169612231/1135231576005551826884957857382400000000* mncx^5*ep^5 +6031962308062447011326345395460321/5727288710211049188707687788808503296\ 00000000*mncx^6*ep^6 -90470781117897492513371691781010464669/825554303844661474257080948630012\ 8990986240000000*mncx^7*ep^7 +594909971290687841303361435272404345415259163/53124419452403965868443159\ 044341330056996454400000000000*mncx^8*ep^8 ; Fill mncPOINV(17)= +1/20922789888000 -2436559/15079473128079360000*mncx*ep +96568406789/310516510653410181120000*mncx^2*ep^2 -142531324182321979/313313643381376100031528960000*mncx^3*ep^3 +3212628164810309981747311/5645285226445634570368088801280000000*mncx^4* ep^4 -376915326274973740257971537677/581238566914842535365098422979788800000000 *mncx^5*ep^5 +81962999787375055541354912877997039/117294872785122287384733445914798147\ 502080000000*mncx^6*ep^6 -12318664648175340917083642958087214801983/169073521427386669927850178279\ 42664173539819520000000*mncx^7*ep^7 +162205778526792127223839682734146915832651421353/21759762207704664419714\ 3179445622087913457477222400000000000*mncx^8*ep^8 ; Fill mncPOINV(18)= +1/355687428096000 -42142223/4357967734014935040000*mncx*ep +28776062218037/1525567616840204219842560000*mncx^2*ep^2 -729291672694244960123/26168268808855913250733330268160000*mncx^3*ep^3 +281462294311726805677013376031/80154977457654193641791234611190169600000\ 00*mncx^4*ep^4 -564145222241140781833967990767603949/14029686014368128821510003376465837\ 765427200000000*mncx^5*ep^5 +10461164856476842638038161189836649078663547/240653112241754467740880813\ 276977714544308859699200000000*mncx^6*ep^6 -26782036671393404321410898113684325645353188261563/589707937586582751966\ 705907132943486649672556632185241600000000*mncx^7*ep^7 +171492161274804974580747141595489718159708281406811314239/ 3686348561844812580079873869189048726973767390444451685990400000000000* mncx^8*ep^8 ; Fill mncPOINV(19)= +1/6402373705728000 -14274301/26147806404089610240000*mncx*ep +29608882035581/27460217103123675957166080000*mncx^2*ep^2 -50500501069854396349/31401922570627095900879996321792000*mncx^3*ep^3 +294352799712312489617077371031/14427895942377754855522422230014230528000\ 0000*mncx^4*ep^4 -65863120942796227591592510480739821/280593720287362576430200067529316755\ 30854400000000*mncx^5*ep^5 +88208355135479668752967444674123414750223/346540481628126433546868371118\ 84790894380475796684800000*mncx^6*ep^6 -9427692750244620614860048373234627931385911017521/3538247625519496511800\ 235442797660919898035339793111449600000000*mncx^7*ep^7 +1269201292151168840209404323954428168621555418898459852673/ 464479918792446385090064107517820139598694691196000912434790400000000000* mncx^8*ep^8 ; Fill mncPOINV(20)= +1/121645100408832000 -275295799/9439358111876349296640000*mncx*ep +1568274265798307/26907089872903613341457448960000*mncx^2*ep^2 -1794683268312579709384043/20461649756633468824492910003261276160000* mncx^3*ep^3 +40009517970859535080774906095604951/357248987150256164200042141613160061\ 961502720000000*mncx^4*ep^4 -170864658958309558725823727346322640908759/13200778773986545574588597183\ 17620008155187930726400000000*mncx^5*ep^5 +545107754958038941477256969841397265941063458146891/38720342868353865808\ 30089611201274450551405153503756576358400000000*mncx^6*ep^6 -354896033975706289616875512403413146928912506038418666323/ 2403682064107157175309555961655864945617213379416886568072819769344000000 *mncx^7*ep^7 +22720275706071206186110416877319158649139016036279339985751605408593/ 1498819556597114017400036584224457070637031828555468744851658876404105216\ 00000000000*mncx^8*ep^8 ; Fill mncPOINV(21)= +1/2432902008176640000 -11167027/7551486489501079437312000*mncx*ep +11256448518043769/3766992582206505867804042854400000*mncx^2*ep^2 -9279131712715653650968723/2046164975663346882449291000326127616000000* mncx^3*ep^3 +41629602590344731254886672725930611/714497974300512328400084283226320123\ 9230054400000000*mncx^4*ep^4 -7142239112579651595742062778098987074987/1056062301918923645967087774654\ 096006524150344581120000000*mncx^5*ep^5 +571294651960644279934630828168658674310905345370231/77440685736707731616\ 601792224025489011028103070075131527168000000000*mncx^6*ep^6 -46578556656033742888365094769498346108764761442576003661731/ 6009205160267892938273889904139662364043033448542216420182049423360000000\ 000*mncx^7*ep^7 +23882040860899399163256592372965672567684593242065757223642719714453/ 2997639113194228034800073168448914141274063657110937489703317752808210432\ 000000000000*mncx^8*ep^8 ; Fill mncPOINV(22)= +1/51090942171709440000 -18858053/264302027132537780305920000*mncx*ep +80676574383943103/553747909584356362567194299596800000*mncx^2*ep^2 -9577241336253249489726083/42969464488930284531435111006848679936000000* mncx^3*ep^3 +6174587158661922297334017385371973/2143493922901536985200252849678960371\ 7690163200000000*mncx^4*ep^4 -111696754789037742399995916535691943099157/33265962510446094847963264901\ 6040242055107358543052800000000*mncx^5*ep^5 +597296825451676635924546421568548733116332437242151/16262544004708623639\ 48637636704535269231590164471577762070528000000000*mncx^6*ep^6 -16261880033898914086434201580921573967825861252692740221617/ 4206443612187525056791722932897763654830123413979551494127434596352000000\ 0000*mncx^7*ep^7 +175286381776661969124369887448428523037791166712787050328938728221571/ 4406529496395515211156107557619903787672873575953078109863877096628069335\ 04000000000000*mncx^8*ep^8 ; Fill mncPOINV(23)= +1/1124000727777607680000 -6364399/1938214865638610388910080000*mncx*ep +82494882923667143/12182454010855839976478274591129600000*mncx^2*ep^2 -9868213987506291289829963/945328218756466259691572442150670958592000000* mncx^3*ep^3 +6398344963543032449814395864411773/4715686630383381367440556269293712817\ 89183590400000000*mncx^4*ep^4 -116210352073359830867133385439115668950093/73185117522981408665519182783\ 52885325212361887947161600000000*mncx^5*ep^5 +623120053293078163170149467651030900158655068872591/35777596810358972006\ 870028007499775923094983618374710765551616000000000*mncx^6*ep^6 -16994494742956651944436609713028244017760395190267622912137/ 9254175946812555124941790452375080040626271510755013287080356111974400000\ 00000*mncx^7*ep^7 +183378592557133512028135656811008157695698473705193137421093102245771/ 9694364892070133464543436626763788332880321867096771841700529612581752537\ 088000000000000*mncx^8*ep^8 ; Fill mncPOINV(24)= +1/25852016738884976640000 -444316699/3075946991768474687200296960000*mncx*ep +44570695662918553607/148223917950083004993811166950273843200000*mncx^2* ep^2 -123525135034106281845251414461/26454159406502827457834932378388591172334\ 3872000000*mncx^3*ep^3 +264591239933345908907390540426325365899/43359680905230948543794931799963\ 8620563548468255129600000000*mncx^4*ep^4 -776713959740478684849561077289313689586845388571/10834023934084030762272\ 43586991318834832866105871976452482662400000000*mncx^5*ep^5 +96041208895558385773482948005826382154738052851832630885359/ 1218164720524162610937517301815379439097517152218903519958149931487723520\ 00000000*mncx^6*ep^6 -60347474702425622475414985005172956929989423209576655768704056986799/ 7247036363586222432553176680977312245526808303006454787215091949490656262\ 4880640000000000*mncx^7*ep^7 +149927382032402590609412104923753394009713590884261797974140245677746279\ 69191451/1746103112654558963331603182446407233239977952358142797165458503\ 9518267872844903815839744000000000000*mncx^8*ep^8 ; Fill mncPOINV(25)= +1/620448401733239439360000 -269564591/44293636681466035495684276224000*mncx*ep +45472764736767046157/3557374030801992119851468006806572236800000*mncx^2* ep^2 -126906684898093000128113947991/63489982575606785898803837708132618813602\ 52928000000*mncx^3*ep^3 +1912807200725066844334929443722155255943/7284426392078799355357548542393\ 9288254676142666861772800000000*mncx^4*ep^4 -53677524641216006737724172489720819744162618911/173344382945344492196358\ 9739186110135732585769395162323972259840000000*mncx^5*ep^5 +99813356898970334531896288222195044055013592737697579224909/ 2923595329257990266250041524356910653834041165325368447899559835570536448\ 000000000*mncx^6*ep^6 -188464973525585398084771904842797767482638076393018004019891279060007/ 5217866181782080151438287210303664816779301978164647446794866203633272508\ 991406080000000000*mncx^7*ep^7 +156234160808147120342735745055765391926307751429331443145910608057766459\ 26942801/4190647470370941511995847637871377359775947085659542713197100409\ 48438428948277691580153856000000000000*mncx^8*ep^8 ; Fill mncPOINV(26)= +1/15511210043330985984000000 -34052522467/138417614629581360924013363200000000*mncx*ep +5793490591633676917801/11116793846256225374535837521270538240000000000* mncx^2*ep^2 -81384656370757013035663184180567/992030977743856029668809964189572168962\ 53952000000000000*mncx^3*ep^3 +176122096932442395019595242667343669886849/16259880339461605703923099424\ 9864482711330675595673600000000000000*mncx^4*ep^4 -1446748397713984600368618807470929295440186517370209/1128544159800419871\ 070045403115957119617568860283308804669440000000000000000*mncx^5*ep^5 +8090725701340520405271382597523589771894308313467672735828693401/ 5710147127457012238769612352259591120769611651026110249803827803848704000\ 000000000000000*mncx^6*ep^6 -765071034307835073980729147252972259787687731163288382408408709455018757\ 67/5095572443146562647888952353812172672636037088051413522260611526985617\ 6845619200000000000000000000*mncx^7*ep^7 +634867883219679577019118843506161382647304255932522877705870827927695774\ 4807537771201/40924291702841225703084449588587669529061983258393971808565\ 43368637094032698024331837440000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(27)= +1/403291461126605635584000000 -34395742267/3598857980369115384024347443200000000*mncx*ep +5899738289669258497201/289036640002661859737931775553033994240000000000* mncx^2*ep^2 -83409563366589638003220811960367/257928054213402567713890590689288763930\ 2602752000000000000*mncx^3*ep^3 +1269661867514370193728286786947387535922143/2959298221782012238114004095\ 3475335853462182958412595200000000000000*mncx^4*ep^4 -4485502890553923346111651037532362873187789797454427/8802644446443274994\ 3463541443044655330170371102098086764216320000000000000000*mncx^5*ep^5 +8381693734884639563224191438763431636799403704468574686255012801/ 1484638253138823182080099211587493691400099029266788664948995229000663040\ 00000000000000000*mncx^6*ep^6 -793838666781318664120348090660713232324647370958958015509423791880585355\ 67/1324848835218106288451127611991164894885369642893367515787758997016260\ 597986099200000000000000000000*mncx^7*ep^7 +659389386579725152226327617790787050358327966448318221752109547804500426\ 1497925410601/10640315842738718682801956893032794077556115647182432670227\ 0127584564444850148632627773440000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(28)= +1/10888869450418352160768000000 -312536252003/874522489229695038317916428697600000000*mncx*ep +54027306066201893389609/702359035206468319163174214593872606003200000000\ 00*mncx^2*ep^2 -6916882722942792550203844435294127/5640886545647114155902787218374745267\ 154792218624000000000000*mncx^3*ep^3 +105781863112692028426923791152458954384121183/64719852110372607647553269\ 565250559511521794130048345702400000000000000*mncx^4*ep^4 -10124450547451531665251301003609713279538398648943034649/ 5197873519180289451411578658670343852591230243207789925340209479680000000\ 000000000*mncx^5*ep^5 +6321066054179278690866136146657264317464969772671961192473023910729/ 2922213473653145669288259278167663832782814919305820129219107309242005061\ 632000000000000000000*mncx^6*ep^6 -539640012841708919231695970266074085100625823166820825855165340543827470\ 551487/234692996612381874680251903081398887634258576129631375319254143044\ 439516151443514982400000000000000000000*mncx^7*ep^7 +448677355099183498841826516562414467910462025944928058200332279667392707\ 08890178186922361/1884900030593635798502318257730080372456833218551426400\ 2327046291222837711869279824112181575680000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(29)= +1/304888344611713860501504000000 -315404588903/24486629698431461072901660003532800000000*mncx*ep +54931992686981698810309/196660529857811129365688780086284329680896000000\ 0000*mncx^2*ep^2 -1010635169222484615218019977199461/2256354618258845662361114887349898106\ 8619168874496000000000000*mncx^3*ep^3 +108680705261010625358435939397997327030532083/18121558590904330141314915\ 47827015666322610235641353679667200000000000000*mncx^4*ep^4 -10436183424669712573258978534871152798761441249245797349/ 1455404585370481046395242024427696278725544468098181179095258654310400000\ 00000000000*mncx^5*ep^5 +6530607484264318239070044916372416367692549786298717916415436057429/ 8182197726228807874007125978869458731791881774056296361813500465877614172\ 5696000000000000000000*mncx^6*ep^6 -558371995268240432590163601784362501110242331573948552877510851516941590\ 381587/657140390514669249104705328627916885375924013162967850893911600524\ 4306452240418419507200000000000000000000*mncx^7*ep^7 +464693345078728693150529804922764395959570016420883975329533935222957352\ 47726369259582661/5277720085662180235806491121644225042879133011943993920\ 65157296154239455932339835075141084119040000000000000000000000*mncx^8* ep^8 ; Fill mncPOINV(30)= +1/8841761993739701954543616000000 -9227046511387/20593255576380858762310296062971084800000000*mncx*ep +46938861633377181563318269/479635366270215563409978365752438851658737254\ 40000000000*mncx^2*ep^2 -25186927017635217446536551133584958729/159587675075673461892043169863972\ 32829194034380722405376000000000000*mncx^3*ep^3 +78890646478256977372499817524180507318888060599123/371693988370268760273\ 70128729720544557277340612164915885352209612800000000000000*mncx^4*ep^4 -220394091880767057381928499928284371416460564271231904088227601/ 8657085888686975513843729395688454248908700080473386830091375281109030928\ 3840000000000000000*mncx^5*ep^5 +400846187516914154875914463903897327820615883520726692055932081171823277\ 4109/14114189871322798085914817932007871078118996653282259744392959396270\ 27196088509806936064000000000000000000*mncx^6*ep^6 -995378118783282432673058672671077952714535074610638646384551893512180951\ 7185573722141183/32873212316675404051596020135301812575494938561567841533\ 06423755165727967201497176340229709312819200000000000000000000*mncx^7* ep^7 +240455402407646472783981904444056897203631939432854930600939782020359353\ 18024856780095224902960744821/7656465570247709197204512317915009549750704\ 8447974904918784266783504795926730677979477001177149651589634457600000000\ 00000000000000*mncx^8*ep^8 ; Fill mncPOINV(31)= +1/265252859812191058636308480000000 -9304682830147/617797667291425762869308881889132544000000000*mncx*ep +47661242955539172992975989/143890609881064669022993509725731655497621176\ 3200000000000*mncx^2*ep^2 -25715533224862937981129332151160709249/478763025227020385676129509591916\ 984875821031421672161280000000000000*mncx^3*ep^3 +80887105812785807182912885219853936646131104810363/111508196511080628082\ 1103861891616336718320218364947476560566288384000000000000000*mncx^4*ep^4 -226673869011222345191985022310524244322560444045040215307537481/ 2597125766606092654153118818706536274672610024142016049027412584332709278\ 515200000000000000000*mncx^5*ep^5 +413164874841296575681906255716369228175069979546000212222776589085717687\ 9029/42342569613968394257744453796023613234356989959846779233178878188810\ 815882655294208081920000000000000000000*mncx^6*ep^6 -102745471870689683803439561110431206626298998062797859894370702491470526\ 70999571125425223/9861963695002621215478806040590543772648481568470352459\ 9192712654971839016044915290206891279384576000000000000000000000*mncx^7* ep^7 +248432182612945950576789347394820833922322712645526927749144965808592285\ 17305088891812029456332828301/2296939671074312759161353695374502864925211\ 4534392471475635280035051438778019203393843100353144895476890337280000000\ 0000000000000000*mncx^8*ep^8 ; Fill mncPOINV(32)= +1/8222838654177922817725562880000000 -290774257297357/593703558267060158117405835495456374784000000000*mncx*ep +46479693768075341170975445029/428664515896679755486399964823927174892963\ 24637491200000000000*mncx^2*ep^2 -781556503107229568390876511159818552568559/44214770782068309360000480082\ 7836765789503114759574096057466880000000000000*mncx^3*ep^3 +76521255941455275592333629944010738538900877943907253323/ 3192384995653400474537578644877822973797563399792305441352141291565508198\ 4000000000000000*mncx^4*ep^4 -6667705282222096185300565038664400439373549415795418232677816898893031/ 2304958677882854107587952889232422602531968466303538110272905138501002413\ 385094214451200000000000000000*mncx^5*ep^5 +377556125228009940562091755613952065421188786959973299420548922518209727\ 5036627133349/11649547782572666665636314305404667771607764719807658217286\ 58963444626575362564967578131202435973120000000000000000000*mncx^6*ep^6 -291473272229486733419042104667613485088466987677538071957517233716020968\ 722905170264320580894938953/841118044703626331568407529150728643454848548\ 5146045784991473640738594126503418844651751909080180680065391001600000000\ 0000000000000*mncx^7*ep^7 +218674255524336040316771348082036928987371402553161892450028588429683874\ 50701693163803072795570992535801075166141/ 6073021702906075715318413404121886377605639890940294398169517984527028703\ 587193663774521291373823244786337543031555411148800000000000000000000000* mncx^8*ep^8 ; Fill mncPOINV(33)= +1/263130836933693530167218012160000000 -586061125622639/37997027729091850119513973471709207986176000000000*mncx* ep +188563440970824224217342974191/54869058034775008702259195497462678386299\ 29553598873600000000000*mncx^2*ep^2 -6374011091027611713181285626046594885588997/1131898132020948719616012290\ 11926212042112797378450968590711521280000000000000*mncx^3*ep^3 +1253103527804771871114914850704998968323017858623755794393/ 1634501117774541042963240266177445362584352460693660385972296341281540197\ 5808000000000000000*mncx^4*ep^4 -219021337829810613341650082757499547365333779437895662406850111446001517/ 2360277686152042606170063758574000744992735709494823024919454861825026471\ 306336475598028800000000000000000*mncx^5*ep^5 +248554426877018194483796891687105191326133831297962684645980033038470417\ 598667492069911/238582738587088213312231716974687595962527021461660840290\ 0293557134595226342533053600012702588872949760000000000000000000*mncx^6* ep^6 -384302082931391121998058436536075937362216030050944911378807944872594414\ 48761488715332917218225450659/3445219511106053454104197239401384523591059\ 6547158203535325076032465281542158003587693575819592420065547841542553600\ 0000000000000000000*mncx^7*ep^7 +577148152317207698093833426701527338328130466460335516738619891871717468\ 8771890382743438398942899371607781601184671/ 4975019379020657225988844260656649320534540198658289170980469132924541913\ 9786290493640878418934360021289677152514501928130969600000000000000000000\ 000*mncx^8*ep^8 ; Fill mncPOINV(34)= +1/8683317618811886495518194401280000000 -53676090078349/113991083187275550358541920415127623958528000000000*mncx* ep +191147113675074393547229862991/18106789151475752871745534514162683867478\ 7675268762828800000000000*mncx^2*ep^2 -6493501663928207284923763331891522805938597/3735263835669130774732840557\ 393564997389722313488881963493480202240000000000000*mncx^3*ep^3 +1281518216016642673897384956891070655754678612565673196793/ 5393853688655985441778692878385569696528363120289079273708577926229082652\ 01664000000000000000*mncx^4*ep^4 -224629088844679436707044990778140173948721827021389476075843741063887117/ 7788916364301740600361210403294202458476027841332915982234201044022587355\ 3109103694734950400000000000000000*mncx^5*ep^5 +255435053228138403128470654509381028350984604020895179028694925583796862\ 430658515774711/787323037337391103930364666016469066676339170823480772957\ 09687385441642469303590768800419185432807342080000000000000000000*mncx^6* ep^6 -395479576634333247853823149225324669084906262309239029022593214314630089\ 05825831734876939941551321859/1136922438664997639854385089002456892785049\ 6860562207166657275090713542908912141183938880020465498621630787709042688\ 000000000000000000000*mncx^7*ep^7 +540412550581168010890324776287928240550872098478754071472417407137572114\ 058503060563774057338436352786671893168861/ 1492505813706197167796653278196994796160362059597486751294140739877362574\ 1935887148092263525680308006386903145754350578439290880000000000000000000\ 0000*mncx^8*ep^8 ; Fill mncPOINV(35)= +1/295232799039604140847618609643520000000 -54062195834749/3875696828367368712190425294114339214589952000000000*mncx *ep +193672834401940297285176238591/61563083115017559763934817348153125149427\ 80959137936179200000000000*mncx^2*ep^2 -6611010257989610727955230791776284831303797/1269989704127504463409165789\ 51381209911250558658621986758778326876160000000000000*mncx^3*ep^3 +1309596256295164289625430756003219542652775000893320755593/ 1833910254143035050204755578651093696819643460898286953060916494917888101\ 6856576000000000000000*mncx^4*ep^4 -230191158028949416073834042540087090094585156318457665222350343814884317/ 2648231563862591804122811537120028835881849466053191433959628354967679700\ 805709525620988313600000000000000000*mncx^5*ep^5 +262278669329565080577541157375092806300683649718885554909323049217499202\ 181779758942311/267689832694712975336323986445599482669955318079983462805\ 4129371105015843956322086139214252304715449630720000000000000000000* mncx^6*ep^6 -239187635338430435617034812789160735411510540243846796483738814318199149\ 6420502963543992771785927427/22738448773299952797087701780049137855700993\ 7211244143333145501814270858178242823678777600409309972432615754180853760\ 00000000000000000000*mncx^7*ep^7 +505556675880023872688075654452576146782093782443650908907972226474522343\ 32857069616391197413953409116726062406951/ 4613199787819154882280564678063438460859300911483140867636435014166393411\ 1438196639557905443011861110650427905058901787903262720000000000000000000\ 0000*mncx^8*ep^8 ; Fill mncPOINV(36)= +1/10333147966386144929666651337523200000000 -54437269998109/135649388992857904926664885294001872510648320000000000* mncx*ep +28020487719351088554569096233/307815415575087798819674086740765625747139\ 04795689680896000000000000*mncx^2*ep^2 -6726617628860633132194043822000226660155477/4444963964446265621932080263\ 298342346893769553051769536557241440665600000000000000*mncx^3*ep^3 +1337349041568427108208504105948050572191945009309584705513/ 6418685889500622675716644525278827938868752113144004335713207732212608355\ 89980160000000000000000*mncx^4*ep^4 -235708813830701748331660980065818578642451649931134784063493088815524797/ 9268810473519071314429840379920100925586473131186170018858699242386878952\ 8199833396734590976000000000000000000*mncx^5*ep^5 +269086107362662971607704557753188335966759017341527797426919736935809337\ 701066139462151/936914414431495413677133952559598189344843613279942119818\ 94527988675554538471273014872498830665040737075200000000000000000000* mncx^6*ep^6 -245718221882544255922632009450470706478202717227383278660473757211162501\ 1184604961686740126716566307/79584570706549834789806956230171982494953478\ 0239354501666009256349948003623849882875721601432584903514155139632988160\ 000000000000000000000*mncx^7*ep^7 +816828540103085174604576510413683166815268804927011007085895297485429585\ 42089963386441153282837822948376644996043/ 2537259883300535185254310572934891153472615501315727477200039257791516376\ 1291008151756847993656523610857735347782395983346794496000000000000000000\ 000000*mncx^8*ep^8 ; Fill mncPOINV(37)= +1/371993326789901217467999448150835200000000 -54801925434709/4883378003742884577359935870584067410383339520000000000* mncx*ep +28365922323001895565692364433/110813549607031607575082671226675625268970\ 0572644828512256000000000000*mncx^2*ep^2 -6840399294542448499145530506469847851081277/1600187027200655623895548894\ 78740324488175703909863703316060691863961600000000000000*mncx^3*ep^3 +1364787318272393902310082315639579768613532772621310625713/ 2310726920220224163257992029100378057992750760731841560856754783596539008\ 1239285760000000000000000*mncx^4*ep^4 -241183262100220140849575649035124968298858892399689742143012614029778597/ 3336771770466865673194742536771236333211130327227021206789131727259276423\ 015194002282445275136000000000000000000*mncx^5*ep^5 +275858164018779108255860951501407989498653796590642496343098766635251225\ 077224664127551/337289189195338348923768222921455348164143700780779163134\ 8203007592319963384965828535409957903941466534707200000000000000000000* mncx^6*ep^6 -252227192303952287508043750847911947155725999394372053017906536185205380\ 7228335697848559253065474107/28650445454357940524330504242861913698183252\ 0886167620599763332285981281304585957835259776515730565265095850267875737\ 60000000000000000000000*mncx^7*ep^7 +839165572786568431493374298122467426413886885962513054254372610981149100\ 15887991504503388273813326652785125278243/ 9134135579881926666915518062565608152501415804736618917920141328049458954\ 0647629346324652777163484999087847252016625540048460185600000000000000000\ 0000000*mncx^8*ep^8 ; Fill mncPOINV(38)= +1/13763753091226345046315979581580902400000000 -2040798836801833/6685344487124008986405752206829588284814791802880000000\ 000*mncx*ep +39296045464550797787239457431177/561303872824497201850066254564480044674\ 91403106178498631303168000000000000*mncx^2*ep^2 -352161234046208215339252267574509136702023691081/29990081190854079447357\ 0581220365445283083865415414068070531622324454136217600000000000000* mncx^3*ep^3 +2608684498588375105517626756450359829025314345805903633658883393/ 1602349481944936549073231791722793647371928150639061097268636868732627063\ 281683538452152320000000000000000*mncx^4*ep^4 -171013050661720159566906093714710194318958438162996619791883595630791538\ 85873129/8561243452292523517171314326549614651700120853307180048661925366\ 808910708761138659914476119513706266624000000000000000000*mncx^5*ep^5 +725063001035943052469479181619316097777903710198896844188251120449343750\ 417133885707805597715159/320194958669810512763942477217493534214642269186\ 7684368272132390570951849184846348139270834635216735174966551905304576000\ 00000000000000000*mncx^6*ep^6 -245602930259961626549022170288154353783132839086321253618207959562908667\ 637550478222385474906261084233824782431/ 1006341010041165756625706059570901881888037389060124871006728619889702799\ 5603599716501979910951497959487125227506313523739330871296000000000000000\ 0000000*mncx^7*ep^7 +432264749914112238108769602794820549174363880137386855236016131320963376\ 74043608981065289239761150175174142649448794390890629/ 1695840216407956741069424431497323702460196044302890864765395127888956243\ 3727962663264686187541588505558117436083171773840192306425640481980416000\ 000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(39)= +1/523022617466601111760007224100074291200000000 -2053580969474233/2540430905107123414834185838595243548229620885094400000\ 00000*mncx*ep +39749780674985882178980437798777/213295471673308936703025176734502416976\ 4673318034782947989520384000000000000*mncx^2*ep^2 -357750190719359398209347777918099374415101893881/11396230852524550189995\ 682086373886920757186885785734586680201648329257176268800000000000000* mncx^3*ep^3 +2658985413003238910771173525609793878940548365941169558772311793/ 6088928031390758886478280808546615860013326972428432169620820101183982840\ 4703974461181788160000000000000000*mncx^4*ep^4 -174751676137248367434629126308906747211036344655198215819163300076987902\ 67618329/3253272511871158936525099444088853567646045924256728418491531639\ 38738606932923269076750092541520838131712000000000000000000*mncx^5*ep^5 +742262484176094563006431126693903121562516373538281131135537536308520808\ 714695198186793014024359/121674084294527994850298141342647543001564062290\ 9720059943410308416961702690241612292922917161382359366487289724015738880\ 0000000000000000000*mncx^6*ep^6 -251742028674980715337092849137223725061018161689321246937188184022405326\ 241754074550047757403326092258356365231/ 3824095838156429875177683026369427151174542078428474509825568755580870638\ 3293678922707523661615692246051075864523991390209457310924800000000000000\ 00000000*mncx^7*ep^7 +282181801914906020042353777216446621677351673565137168203067512892413081\ 71290590125296922283368158660576768843999991651950073/ 4100849977859240846586062716166255498676474070768808818432682763804203279\ 4287618803894604780782386749804174890892033562195374122811094256425369600\ 0000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(40)= +1/20397882081197443358640281739902897356800000000 -2066035355155033/9907680529917781317853324770521449838095521451868160000\ 000000*mncx*ep +40194562866176681556204641717977/831852339525904853141798189264559426208\ 22259403356534971591294976000000000000*mncx^2*ep^2 -363256775189631187172928799970374912083283051481/44445300324845745740983\ 1601368581589909530288545643648880527864284841029874483200000000000000* mncx^3*ep^3 +2708750952776367511754929445487032491402381958608770810738224593/ 2374681932242395965726529515333180185405197519247088546152119839461753307\ 783455003986089738240000000000000000*mncx^4*ep^4 -178462617335950615774363407395022425191767023902592242501363486714297999\ 54676729/1268776279629751985244788783194652891381957910460124083211697339\ 3610805670384007493993253609119312687136768000000000000000000*mncx^5*ep^5 +759376829623578102586033668224832815298091263145655117559915634200781766\ 870276142570887835970759/474528928748659179916162751236325417706099842934\ 7908233779300202826150640491942287942399376929391201529300429923661381632\ 00000000000000000000*mncx^6*ep^6 -257861634030577604520856804598615878794432719873098961670694536552823499\ 129061356975515049897198346412955482831/ 1491397376881007651319296380284076588958071410587105058831971814676539548\ 9484534779855934228030119975959919587164356642181688351260672000000000000\ 0000000000*mncx^7*ep^7 +454570513238213126805466407798576154119525517839805521895228210744727232\ 90929426556136551775332771735176762545727137146694229/ 2513235200716591890264887007479033727046010537656884261582315579531433152\ 6784840666958264929936634165237130040275260568831164998122799194294976512\ 000000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(41)= +1/815915283247897734345611269596115894272000000000 -2078178381193813/3963072211967112527141329908208579935238208580747264000\ 00000000*mncx*ep +40630774334422967689121916324397/332740935810361941256719275705823770483\ 2890376134261398863651799040000000000000*mncx^2*ep^2 -368683961247536801596614790345267288407486323741/17778120129938298296393\ 264054743263596381211541825745955221114571393641194979328000000000000000* mncx^3*ep^3 +2757997281132970865939093578334734854928763733759781509645660373/ 9498727728969583862906118061332720741620790076988354184608479357847013231\ 1338200159443589529600000000000000000*mncx^4*ep^4 -182146564943915647791277936566142100003343018525106594345690078194760414\ 34591069/5075105118519007940979155132778611565527831641840496332846789357\ 44432226815360299759730144364772507485470720000000000000000000*mncx^5* ep^5 +776407770327188012905286289437702564472631687637943515864539604489420665\ 928534152925141981468899/189811571499463671966465100494530167082439937173\ 9163293511720081130460256196776915176959750771756480611720171969464552652\ 8000000000000000000000*mncx^6*ep^6 -263962065647620888326135708068973411098878098198879015730048279543781591\ 780089569660293392569913582453374126091/ 5965589507524030605277185521136306355832285642348420235327887258706158195\ 7938139119423736912120479903839678348657426568726753405042688000000000000\ 00000000000*mncx^7*ep^7 +325983654983742999513160157936468656971432379829929375757986537376456715\ 164542084314538100265261454807219787389042299968109983/ 7037058562006457292741683620941294435728829505439275932430483622688012827\ 4997553867483141803822575662663964112770729592727261994743837744025934233\ 60000000000000000000000000*mncx^8*ep^8 ; Fill mncPOINV(42)= +1/33452526613163807108170062053440751665152000000000 -85691034670497533/666192438831671615812457557569862287113542862423615078\ 400000000000*mncx*ep +69019796595025328727596152952160157/229328380369859553533543492009210800\ 854787637613549429871081745641635840000000000000*mncx^2*ep^2 -25778835335529148272555532835762030780136300189475861/ 5023671851649457573231452622859537928337376870764106171617157193237586693\ 6765980868608000000000000000*mncx^3*ep^3 +7931175705372235945545978617347153576894970986448024210728865252684053/ 1100486509011773630907207658243494022118087320938368237071191090787074492\ 1558993096650728556702833049600000000000000000*mncx^4*ep^4 -215265663212791323538761354007345287183895949159380254551131768449038591\ 5870236096018469/24107278346997947259557762488808600911505402485440534676\ 2004817300299401273271688383172543976264813880693871295332352000000000000\ 0000000*mncx^5*ep^5 +376852832042889340431165040539244300710503976617098110571229510888568253\ 9271602709224278127462994451186259/36966614781589561814766886029139916702\ 3901982301013339358363522963889196826932518767831924882716162744491616790\ 2735186562645563015168000000000000000000000*mncx^6*ep^6 -525921515161579119617981400717393318423848864183368906309961692035526998\ 85801670555767665446585133397291899019789426315571/ 4763478616520815363425634690907334481661576198737807810808792290778512683\ 3562591529290895564449964803812351968580434476702870428600295239518571724\ 800000000000000000000000*mncx^7*ep^7 +266499324644667860320080190275340939758087785365222374713704976999237083\ 7249532678413451011495919945390829480005723065771692535720661486143/ 2303805844473259537132802467745690293821996200241139075111107634567173676\ 5614705245752121995319209441480005893984233518489352767444360297932684357\ 02697685900328960000000000000000000000000*mncx^8*ep^8 ; *--#] mncPOINV-pos : mncPOINV positive values *--#[ mncPOINV-neg : mncPOINV negative values * Fill mncPOINV(-0)= +1 ; Fill mncPOINV(-1)= -1 +mncx*ep ; Fill mncPOINV(-2)= +2 -3*mncx*ep +mncx^2*ep^2 ; Fill mncPOINV(-3)= -6 +11*mncx*ep -6*mncx^2*ep^2 +mncx^3*ep^3 ; Fill mncPOINV(-4)= +24 -50*mncx*ep +35*mncx^2*ep^2 -10*mncx^3*ep^3 +mncx^4*ep^4 ; Fill mncPOINV(-5)= -120 +274*mncx*ep -225*mncx^2*ep^2 +85*mncx^3*ep^3 -15*mncx^4*ep^4 +mncx^5*ep^5 ; Fill mncPOINV(-6)= +720 -1764*mncx*ep +1624*mncx^2*ep^2 -735*mncx^3*ep^3 +175*mncx^4*ep^4 -21*mncx^5*ep^5 +mncx^6*ep^6 ; Fill mncPOINV(-7)= -5040 +13068*mncx*ep -13132*mncx^2*ep^2 +6769*mncx^3*ep^3 -1960*mncx^4*ep^4 +322*mncx^5*ep^5 -28*mncx^6*ep^6 +mncx^7*ep^7 ; Fill mncPOINV(-8)= +40320 -109584*mncx*ep +118124*mncx^2*ep^2 -67284*mncx^3*ep^3 +22449*mncx^4*ep^4 -4536*mncx^5*ep^5 +546*mncx^6*ep^6 -36*mncx^7*ep^7 +mncx^8*ep^8 ; Fill mncPOINV(-9)= -362880 +1026576*mncx*ep -1172700*mncx^2*ep^2 +723680*mncx^3*ep^3 -269325*mncx^4*ep^4 +63273*mncx^5*ep^5 -9450*mncx^6*ep^6 +870*mncx^7*ep^7 -45*mncx^8*ep^8 ; Fill mncPOINV(-10)= +3628800 -10628640*mncx*ep +12753576*mncx^2*ep^2 -8409500*mncx^3*ep^3 +3416930*mncx^4*ep^4 -902055*mncx^5*ep^5 +157773*mncx^6*ep^6 -18150*mncx^7*ep^7 +1320*mncx^8*ep^8 ; Fill mncPOINV(-11)= -39916800 +120543840*mncx*ep -150917976*mncx^2*ep^2 +105258076*mncx^3*ep^3 -45995730*mncx^4*ep^4 +13339535*mncx^5*ep^5 -2637558*mncx^6*ep^6 +357423*mncx^7*ep^7 -32670*mncx^8*ep^8 ; Fill mncPOINV(-12)= +479001600 -1486442880*mncx*ep +1931559552*mncx^2*ep^2 -1414014888*mncx^3*ep^3 +657206836*mncx^4*ep^4 -206070150*mncx^5*ep^5 +44990231*mncx^6*ep^6 -6926634*mncx^7*ep^7 +749463*mncx^8*ep^8 ; Fill mncPOINV(-13)= -6227020800 +19802759040*mncx*ep -26596717056*mncx^2*ep^2 +20313753096*mncx^3*ep^3 -9957703756*mncx^4*ep^4 +3336118786*mncx^5*ep^5 -790943153*mncx^6*ep^6 +135036473*mncx^7*ep^7 -16669653*mncx^8*ep^8 ; Fill mncPOINV(-14)= +87178291200 -283465647360*mncx*ep +392156797824*mncx^2*ep^2 -310989260400*mncx^3*ep^3 +159721605680*mncx^4*ep^4 -56663366760*mncx^5*ep^5 +14409322928*mncx^6*ep^6 -2681453775*mncx^7*ep^7 +368411615*mncx^8*ep^8 ; Fill mncPOINV(-15)= -1307674368000 +4339163001600*mncx*ep -6165817614720*mncx^2*ep^2 +5056995703824*mncx^3*ep^3 -2706813345600*mncx^4*ep^4 +1009672107080*mncx^5*ep^5 -272803210680*mncx^6*ep^6 +54631129553*mncx^7*ep^7 -8207628000*mncx^8*ep^8 ; Fill mncPOINV(-16)= +20922789888000 -70734282393600*mncx*ep +102992244837120*mncx^2*ep^2 -87077748875904*mncx^3*ep^3 +48366009233424*mncx^4*ep^4 -18861567058880*mncx^5*ep^5 +5374523477960*mncx^6*ep^6 -1146901283528*mncx^7*ep^7 +185953177553*mncx^8*ep^8 ; Fill mncPOINV(-17)= -355687428096000 +1223405590579200*mncx*ep -1821602444624640*mncx^2*ep^2 +1583313975727488*mncx^3*ep^3 -909299905844112*mncx^4*ep^4 +369012649234384*mncx^5*ep^5 -110228466184200*mncx^6*ep^6 +24871845297936*mncx^7*ep^7 -4308105301929*mncx^8*ep^8 ; Fill mncPOINV(-18)= +6402373705728000 -22376988058521600*mncx*ep +34012249593822720*mncx^2*ep^2 -30321254007719424*mncx^3*ep^3 +17950712280921504*mncx^4*ep^4 -7551527592063024*mncx^5*ep^5 +2353125040549984*mncx^6*ep^6 -557921681547048*mncx^7*ep^7 +102417740732658*mncx^8*ep^8 ; Fill mncPOINV(-19)= -121645100408832000 +431565146817638400*mncx*ep -668609730341153280*mncx^2*ep^2 +610116075740491776*mncx^3*ep^3 -371384787345228000*mncx^4*ep^4 +161429736530118960*mncx^5*ep^5 -52260903362512720*mncx^6*ep^6 +12953636989943896*mncx^7*ep^7 -2503858755467550*mncx^8*ep^8 ; Fill mncPOINV(-20)= +2432902008176640000 -8752948036761600000*mncx*ep +13803759753640704000*mncx^2*ep^2 -12870931245150988800*mncx^3*ep^3 +8037811822645051776*mncx^4*ep^4 -3599979517947607200*mncx^5*ep^5 +1206647803780373360*mncx^6*ep^6 -311333643161390640*mncx^7*ep^7 +63030812099294896*mncx^8*ep^8 ; Fill mncPOINV(-21)= -51090942171709440000 +186244810780170240000*mncx*ep -298631902863216384000*mncx^2*ep^2 +284093315901811468800*mncx^3*ep^3 -181664979520697076096*mncx^4*ep^4 +83637381699544802976*mncx^5*ep^5 -28939583397335447760*mncx^6*ep^6 +7744654310169576800*mncx^7*ep^7 -1634980697246583456*mncx^8*ep^8 ; Fill mncPOINV(-22)= +1124000727777607680000 -4148476779335454720000*mncx*ep +6756146673770930688000*mncx^2*ep^2 -6548684852703068697600*mncx^3*ep^3 +4280722865357147142912*mncx^4*ep^4 -2021687376910682741568*mncx^5*ep^5 +720308216440924653696*mncx^6*ep^6 -199321978221066137360*mncx^7*ep^7 +43714229649594412832*mncx^8*ep^8 ; Fill mncPOINV(-23)= -25852016738884976640000 +96538966652493066240000*mncx*ep -159539850276066860544000*mncx^2*ep^2 +157375898285941510732800*mncx^3*ep^3 -105005310755917452984576*mncx^4*ep^4 +50779532534302850198976*mncx^5*ep^5 -18588776355051949776576*mncx^6*ep^6 +5304713715525445812976*mncx^7*ep^7 -1204749260161737632496*mncx^8*ep^8 ; Fill mncPOINV(-24)= +620448401733239439360000 -2342787216398718566400000*mncx*ep +3925495373278097719296000*mncx^2*ep^2 -3936561409138663118131200*mncx^3*ep^3 +2677503356427960382362624*mncx^4*ep^4 -1323714091579185857760000*mncx^5*ep^5 +496910165055549644836800*mncx^6*ep^6 -145901905527662649288000*mncx^7*ep^7 +34218695959407148992880*mncx^8*ep^8 ; Fill mncPOINV(-25)= -15511210043330985984000000 +59190128811701203599360000*mncx*ep -100480171548351161548800000*mncx^2*ep^2 +102339530601744675672576000*mncx^3*ep^3 -70874145319837672677196800*mncx^4*ep^4 +35770355645907606826362624*mncx^5*ep^5 -13746468217967926978680000*mncx^6*ep^6 +4144457803247115877036800*mncx^7*ep^7 -1001369304512841374110000*mncx^8*ep^8 ; Fill mncPOINV(-26)= +403291461126605635584000000 -1554454559147562279567360000*mncx*ep +2671674589068831403868160000*mncx^2*ep^2 -2761307967193712729035776000*mncx^3*ep^3 +1945067308917524165279692800*mncx^4*ep^4 -1000903392113435450162625024*mncx^5*ep^5 +393178529313073708272042624*mncx^6*ep^6 -121502371102392939781636800*mncx^7*ep^7 +30180059720580991603896800*mncx^8*ep^8 ; Fill mncPOINV(-27)= -10888869450418352160768000000 +42373564558110787183902720000*mncx*ep -73689668464006010184007680000*mncx^2*ep^2 +77226989703299075087834112000*mncx^3*ep^3 -55278125307966865191587481600*mncx^4*ep^4 +28969458895980281319670568448*mncx^5*ep^5 -11616723683566425573507775872*mncx^6*ep^6 +3673742549077683082376236224*mncx^7*ep^7 -936363983558079713086850400*mncx^8*ep^8 ; Fill mncPOINV(-28)= +304888344611713860501504000000 -1197348677077520393310044160000*mncx*ep +2105684281550279072336117760000*mncx^2*ep^2 -2236045380156380112643362816000*mncx^3*ep^3 +1625014498326371300452283596800*mncx^4*ep^4 -866422974395414742142363398144*mncx^5*ep^5 +354237722035840197377888292864*mncx^6*ep^6 -114481515057741551880042390144*mncx^7*ep^7 +29891934088703915048808047424*mncx^8*ep^8 ; Fill mncPOINV(-29)= -8841761993739701954543616000000 +35027999979859805266492784640000*mncx*ep -62262192842035613491057459200000*mncx^2*ep^2 +66951000306085302338993639424000*mncx^3*ep^3 -49361465831621147825759587123200*mncx^4*ep^4 +26751280755793398822580822142976*mncx^5*ep^5 -11139316913434780466101123891200*mncx^6*ep^6 +3674201658710345201899117607040*mncx^7*ep^7 -981347603630155088295475765440*mncx^8*ep^8 ; Fill mncPOINV(-30)= +265252859812191058636308480000000 -1059681761389533859949327155200000*mncx*ep +1902893785240928209998216560640000*mncx^2*ep^2 -2070792202024594683660866641920000*mncx^3*ep^3 +1547794975254719737111781253120000*mncx^4*ep^4 -851899888505423112503184251412480*mncx^5*ep^5 +360930788158836812805614538878976*mncx^6*ep^6 -121365366674745136523074652102400*mncx^7*ep^7 +33114629767614997850763390570240*mncx^8*ep^8 ; Fill mncPOINV(-31)= -8222838654177922817725562880000000 +33115387462887740717065450291200000*mncx*ep -60049389103858308369894040535040000*mncx^2*ep^2 +66097452048003363403485082460160000*mncx^3*ep^3 -50052436434920906534126085488640000*mncx^4*ep^4 +27956691518922836224710493046906880*mncx^5*ep^5 -12040754321429364309477234956660736*mncx^6*ep^6 +4123257155075936045020928754053376*mncx^7*ep^7 -1147918889470810069896739759779840*mncx^8*ep^8 ; Fill mncPOINV(-32)= +263130836933693530167218012160000000 -1067915237466585625763819972198400000*mncx*ep +1954695838786353608553674747412480000*mncx^2*ep^2 -2175167854639965937281416679260160000*mncx^3*ep^3 +1667775417965472372495519818096640000*mncx^4*ep^4 -944666565040451665724861862989660160*mncx^5*ep^5 +413260829804662494127982011660050432*mncx^6*ep^6 -143984983283859317750146955086368768*mncx^7*ep^7 +40856661618141858281716601067008256*mncx^8*ep^8 ; Fill mncPOINV(-33)= -8683317618811886495518194401280000000 +35504333673331019180373277094707200000*mncx*ep -65572877917416254708035086636810240000*mncx^2*ep^2 +73735235041905229538840425162997760000*mncx^3*ep^3 -57211756647500554229633570676449280000*mncx^4*ep^4 +32841772064300377341415961296755425280*mncx^5*ep^5 -14582273948594313971948268247771324416*mncx^6*ep^6 +5164765278172019979882831529510219776*mncx^7*ep^7 -1492254816682540641046794790297641216*mncx^8*ep^8 ; Fill mncPOINV(-34)= +295232799039604140847618609643520000000 -1215830662512066538628209615621324800000*mncx*ep +2264982182865483679253566222746255360000*mncx^2*ep^2 -2572570869342194059028609542178734080000*mncx^3*ep^3 +2018934961056924073346381828162273280000*mncx^4*ep^4 -1173832006833713383837776254766133739520*mncx^5*ep^5 +528639086316507052387657081720980455424*mncx^6*ep^6 -190184293406442993287964540251118796800*mncx^7*ep^7 +55901429045378401775473854399630021120*mncx^8*ep^8 ; Fill mncPOINV(-35)= -10333147966386144929666651337523200000000 +42849305986961932992834955156389888000000*mncx*ep -80490207062803995312503027411740262400000*mncx^2*ep^2 +92304962609842275745254900199001948160000*mncx^3*ep^3 -73235294506334536626151973527858298880000*mncx^4*ep^4 +43103055200236892507668550744976954163200*mncx^5*ep^5 -19676200027911460217405774115000449679360*mncx^6*ep^6 +7185089355542011817466415990510138343424*mncx^7*ep^7 -2146734309994687055429549444238169536000*mncx^8*ep^8 ; Fill mncPOINV(-36)= +371993326789901217467999448150835200000000 -1552908163497015732671725036967559168000000*mncx*ep +2940496760247905764242943941979039334400000*mncx^2*ep^2 -3403468861017125922141679434575810396160000*mncx^3*ep^3 +2728775564837885594286725947201900707840000*mncx^4*ep^4 -1624945281714862666902219800347028648755200*mncx^5*ep^5 +751446256205049460334276418884993142620160*mncx^6*ep^6 -278339416827423885646196749773365430042624*mncx^7*ep^7 +84467524515350745812930195983084241639424*mncx^8*ep^8 ; Fill mncPOINV(-37)= -13763753091226345046315979581580902400000000 +57829595376179483326321825815950524416000000*mncx*ep -110351288292669529009660650890192014540800000*mncx^2*ep^2 +128868844617881564883485083021284023992320000*mncx^3*ep^3 -104368164760018892910750539481046136586240000*mncx^4*ep^4 +62851750988287804269668858560041960711782400*mncx^5*ep^5 -29428456761301692699270447299091774925701120*mncx^6*ep^6 +11050004678819733229243556160499514054197248*mncx^7*ep^7 -3403637823895401480724614001147482370701312*mncx^8*ep^8 ; Fill mncPOINV(-38)= +523022617466601111760007224100074291200000000 -2211288377386046711446545360587700830208000000*mncx*ep +4251178550497621585693426559643247076966400000*mncx^2*ep^2 -5007367383772168994582093805698984926248960000*mncx^3*ep^3 +4094859105498599495492005583301037214269440000*mncx^4*ep^4 -2492734702314955455158167164762640643633971200*mncx^5*ep^5 +1181133107917752126841945855925529407888424960*mncx^6*ep^6 -449328634556451555410525581398073308985196544*mncx^7*ep^7 +140388241986844989496778888204103844140847104*mncx^8*ep^8 ; Fill mncPOINV(-39)= -20397882081197443358640281739902897356800000000 +86763269335522422858175276287020406669312000000*mncx*ep -168007251846793288553490181186674336831897600000*mncx^2*ep^2 +199538506517612212374395084981903659200675840000*mncx^3*ep^3 -164706872498217549318770311554439436282757120000*mncx^4*ep^4 +101311512495781862246660525009044022315994316800*mncx^5*ep^5 -48556925911107288401994055545858287551282544640*mncx^6*ep^6 +18704949855619362787852443530450388458311090176*mncx^7*ep^7 -5924470072043406145784902221358123230478233600*mncx^8*ep^8 ; Fill mncPOINV(-40)= +815915283247897734345611269596115894272000000000 -3490928655502094357685651333220719164129280000000*mncx*ep +6807053343207253964997782523753993879945216000000*mncx^2*ep^2 -8149547512551281783529293580462820704858931200000*mncx^3*ep^3 +6787813406446314185125207547159481110510960640000*mncx^4*ep^4 -4217167372329492039185191311916200328922529792000*mncx^5*ep^5 +2043588548940073398326422746843375524367296102400*mncx^6*ep^6 -796754920135881799916091796763873825883726151680*mncx^7*ep^7 +255683752737355608619248532384775317677440434176*mncx^8*ep^8 ; Fill mncPOINV(-41)= -33452526613163807108170062053440751665152000000000 +143943990158833766399457315931645601623572480000000*mncx*ep -282580115726999506922594734807134468241883136000000*mncx^2*ep^2 +340938501357809807089698819322729642779161395200000*mncx^3*ep^3 -286449897176850163373662803014001546235808317440000*mncx^4*ep^4 +179691675671955487791718051335723694596334682112000*mncx^5*ep^5 -88004297878872501370568523932494596827981669990400*mncx^6*ep^6 +34710540274511227194886186414162202385600068321280*mncx^7*ep^7 -11279788782367461753305281624539661850658783952896*mncx^8*ep^8 ; *--#] mncPOINV-neg : mncPOINV negative values #endprocedure *--#] pochtabl : *--#[ projectP : * #procedure projectP(topo,power) * * Projects out the P, using harmonic projections. * id 1/P.Q = 1/Q.Q/mncproexp; #do mnci = 1,8 id 1/P.p`mnci' = 1/P.p`mnci'/mncproexp; #enddo id P = mncproexp*P; if ( count(mncproexp,1) > `power' ) discard; id mncepexp(mncp?mncpp18[mncn],mncx?) = mncee18[mncn]^mncx/mnceq^mncx; id mncepexp(-mncp?mncpp18[mncn],mncx?) = mncee18[mncn]^mncx/mnceq^mncx; id mncepexp(-mncp?[mncPp],mncx?) = mncepexp(mncp,mncx); id mncepexp([P+Q],mncx?) = mncepexp( mncproexp*2*P.Q/Q.Q,mncx); id mncepexp([P-Q],mncx?) = mncepexp(-mncproexp*2*P.Q/Q.Q,mncx); id mncepexp(mncp?[mncpp18][D],mncx?) = mncee18[D]^mncx/mnceq^mncx *mncepexp( 2*mncproexp*P.mncpp18[D]/mncpp18[D].mncpp18[D],mncx); id mncepexp(mncp?[-mncpp18][D],mncx?) = mncee18[D]^mncx/mnceq^mncx *mncepexp(-2*mncproexp*P.mncpp18[D]/mncpp18[D].mncpp18[D],mncx); #do mnci = 1,8 if ( count([P+p`mnci'].[P+p`mnci'],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P+p`mnci'].[P+p`mnci'] = ( sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.p`mnci'^mncj/ p`mnci'.p`mnci'^mncj*sign_(mncj)))*mncproexp^mncx/p`mnci'.p`mnci'; endrepeat; endif; if ( count([P-p`mnci'].[P-p`mnci'],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P-p`mnci'].[P-p`mnci'] = ( sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.p`mnci'^mncj/ p`mnci'.p`mnci'^mncj))*mncproexp^mncx/p`mnci'.p`mnci'; endrepeat; endif; #enddo if ( count([P+Q].[P+Q],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P+Q].[P+Q] = (sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.Q^mncj/ Q.Q^mncj*sign_(mncj)))*mncproexp^mncx/Q.Q; endrepeat; endif; if ( count([P-Q].[P-Q],1) < 0 ); repeat; id,once,mncproexp^mncx?/[P-Q].[P-Q] = (sum_(mncj,0,`power'-mncx,2^mncj*mncproexp^mncj*P.Q^mncj/Q.Q^mncj)) *mncproexp^mncx/Q.Q; endrepeat; endif; repeat; id,once,mncproexp^mncx?*mncepexp(y?,D?) = sump_(mncj,0,`power'-mncx, y*acc((-D*ep-mncj+1)/mncj))*mncproexp^mncx; if ( count(P.P,1) > 0 ) discard; if ( count(mncproexp,1) > `power' ) discard; endrepeat; if ( count(mncproexp,1) != `power' ) discard; id mncproexp^`power' = 1; #call ACCU(Expand in P) #call momsubs(`topo') #call sym2(`topo') #call ACCU(moms) #call harmo1(P,Q,mncFFPP) #call ACCU(Harmonics) #endprocedure * *--#] projectP : *--#[ reduceto : #procedure reduceto(TOPO) #switch `TOPO' *--#[ reducela : #case reducela * #call dovert1(p2,p7,p1) #call dovert1(p2,p8,p3) #call dovert1(Q,p4,p3) #call dovert1(p8,p5,p4) #call dovert1(p5,p7,p6) #call dovert1(p6,Q,p1) * #break *--#] reducela : *--#[ reducebe : #case reducebe * #call dovert1(p1,p6,p2) #call dovert1(p7,p3,p2) #call dovert1(Q,p4,p3) #call dovert1(p8,p5,p4) #call dovert1(p5,Q,p1) #call dovert1(p7,p8,p6) * #break *--#] reducebe : *--#[ reduceno : #case reduceno * #call dovert1(p1,p7,p2) #call dovert1(p8,p3,p2) #call dovert1(Q,p4,p3) #call dovert1(p7,p5,p4) #call dovert1(p6,Q,p1) #call dovert1(p5,p8,p6) * #break *--#] reduceno : *--#[ reducefa : #case reducefa * #call dovert1(p1,p6,p2) #call dovert1(p7,p3,p2) #call dovert1(Q,p4,p3) #call dovert1(p5,Q,p1) * #break *--#] reducefa : *--#[ reducebu : #case reducebu * #call dovert1(p4,p6,p1) #call dovert1(p4,p5,p2) #call dovert1(p3,p5,p7) #call dovert1(p7,Q,p6) * #break *--#] reducebu : *--#[ reduceo1 : #case reduceo1 * #call dovert1(p2,p5,p1) #call dovert1(p3,p5,p4) #call dovert1(Q,p4,p1) #call dovert1(p6,p7,p5) #call dovert1(p3,Q,p2) * #break *--#] reduceo1 : *--#[ reduceo2 : #case reduceo2 * #call dovert1(p2,p5,p1) #call dovert1(p3,p5,p4) #call dovert1(Q,p3,p2) #call dovert1(p6,p7,p4) #call dovert1(p4,Q,p1) * #break *--#] reduceo2 : *--#[ reduceo3 : #case reduceo3 * #call dovert1(p3,p5,p4) #call dovert1(p2,p5,p1) #call dovert1(p7,p6,Q) #call dovert1(p3,Q,p2) #call dovert1(p4,Q,p1) * #break *--#] reduceo3 : *--#[ reduceo4 : #case reduceo4 * #call dovert1(p4,p6,p1) #call dovert1(p2,p5,p1) #call dovert1(p7,p6,Q) #call dovert1(p3,p5,p4) #call dovert1(p3,p6,p2) * #break *--#] reduceo4 : *--#[ reduceo5 : #case reduceo5 * #call dovert1(p2,p5,p1) #call dovert1(p3,p5,p4) #call dovert1(Q,p3,p2) #call dovert1(p6,p7,p3) #call dovert1(p4,Q,p1) * #break *--#] reduceo5 : *--#[ reduceo6 : #case reduceo6 * #call dovert1(p3,p5,p4) #call dovert1(p2,p5,p1) #call dovert1(p7,p6,Q) #call dovert1(p3,Q,p2) #call dovert1(p4,Q,p1) * #break *--#] reduceo6 : *--#[ reducey1 : #case reducey1 * #call dovert1(p5,p6,p2) #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducey1 : *--#[ reducey2 : #case reducey2 * #call dovert1(p5,p6,p1) #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducey2 : *--#[ reducey3 : #case reducey3 * #call dovert1(p5,p6,p3) #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducey3 : *--#[ reducey4 : #case reducey4 * #call dovert1(p5,p6,Q) #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducey4 : *--#[ reducey5 : #case reducey5 * #call dovert1(p5,p6,Q) #call dovert1(p3,p4,Q) #call dovert1(p1,p2,Q) * #break *--#] reducey5 : *--#[ reducey6 : #case reducey6 * #call dovert1(p5,p6,Q) #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducey6 : *--#[ reducet1 : #case reducet1 * #call dovert1(p4,Q,p1) #call dovert1(p2,p5,p1) #call dovert1(p3,p5,p4) #call dovert1(p3,Q,p2) * #break *--#] reducet1 : *--#[ reducet2 : #case reducet2 * #call dovert1(p3,p4,p1) #call dovert1(p1,p2,Q) * #break *--#] reducet2 : *--#[ reducet3 : #case reducet3 * #call dovert1(p3,p4,Q) #call dovert1(p1,p2,Q) * #break *--#] reducet3 : *--#[ reducel1 : #case reducel1 * * #break *--#] reducel1 : *--#[ reducel2 : #case reducel2 * * #break *--#] reducel2 : *--#[ reducel3 : #case reducel3 * * #break *--#] reducel3 : *--#[ reducetr : #case reducetr * * #break *--#] reducetr : #default #message Illegal case `TOPO' in reduceto.prc #break #endswitch #endprocedure *--#] reduceto : *--#[ rename : #procedure rename(TOPO) #switch `TOPO' *--#[ la : * * *--#] la : *--#[ be : * * *--#] be : *--#[ no : * * *--#] no : *--#[ fa : * * *--#] fa : *--#[ bu : * * *--#] bu : *--#[ o1 : #case o1 * Multiply replace_(p8,p5,[P+p8],[P+p5],[P-p8],[P-p5]); * #break *--#] o1 : *--#[ o2 : #case o2 * Multiply replace_(p8,p4,[P+p8],[P+p4],[P-p8],[P-p4]); * #break *--#] o2 : *--#[ o3 : #case o3 * Multiply replace_(p8,Q,[P+p8],[P+Q],[P-p8],[P-Q]); * #break *--#] o3 : *--#[ o4 : #case o4 * Multiply replace_(p8,p6,[P+p8],[P+p6],[P-p8],[P-p6]); * #break *--#] o4 : *--#[ o5 : #case o5 * Multiply replace_(p8,p3,[P+p8],[P+p3],[P-p8],[P-p3]); * #break *--#] o5 : *--#[ o6 : #case o6 * Multiply replace_(p8,Q,[P+p8],[P+Q],[P-p8],[P-Q]); * #break *--#] o6 : *--#[ y1 : #case y1 * Multiply replace_(p8,p2,[P+p8],[P+p2],[P-p8],[P-p2]); Multiply replace_(p7,p1,[P+p7],[P+p1],[P-p7],[P-p1]); * #break *--#] y1 : *--#[ y2 : #case y2 * Multiply replace_(p8,p1,[P+p8],[P+p1],[P-p8],[P-p1]); Multiply replace_(p7,p1,[P+p7],[P+p1],[P-p7],[P-p1]); * #break *--#] y2 : *--#[ y3 : #case y3 * Multiply replace_(p8,p3,[P+p8],[P+p3],[P-p8],[P-p3]); Multiply replace_(p7,p1,[P+p7],[P+p1],[P-p7],[P-p1]); * #break *--#] y3 : *--#[ y4 : #case y4 * Multiply replace_(p8,Q,[P+p8],[P+Q],[P-p8],[P-Q]); Multiply replace_(p7,p1,[P+p7],[P+p1],[P-p7],[P-p1]); * #break *--#] y4 : *--#[ y5 : #case y5 * Multiply replace_(p8,Q,[P+p8],[P+Q],[P-p8],[P-Q]); Multiply replace_(p7,Q,[P+p7],[P+Q],[P-p7],[P-Q]); * #break *--#] y5 : *--#[ y6 : #case y6 * Multiply replace_(p8,Q,[P+p8],[P+Q],[P-p8],[P-Q]); Multiply replace_(p7,p1,[P+p7],[P+p1],[P-p7],[P-p1]); * #break *--#] y6 : *--#[ t1 : * * *--#] t1 : *--#[ t2 : #case t2 * Multiply replace_(p5,p1,[P+p5],[P+p1],[P-p5],[P-p1]); * #break *--#] t2 : *--#[ t3 : #case t3 * Multiply replace_(p5,Q,[P+p5],[P+Q],[P-p5],[P-Q]); * #break *--#] t3 : *--#[ l1 : * * *--#] l1 : *--#[ l2 : * * *--#] l2 : *--#[ l3 : * * *--#] l3 : *--#[ tr : * * *--#] tr : #endswitch #endprocedure *--#] rename : *--#[ rplane : #procedure rplane(P1,P2,P3,P4,P5,P6,P7,P8,Q,INTS) * * Reduction procedure for three loop graphs of the NO or nonplanar type. * Notation is from S.G.Gorishny et.al. Comp.Phys.Comm 55(1989)381 * * /-<------<-----<-\ * p1 / \ p2 / \ p3 * / v / \ * / p7 \ / \ * / \ / \ * Q --<-- / --<-- Q * \ / \ / * \ p8 / \ / * \ ^ \ / * p6 \ / p5 \ / p4 * \->------>----->-/ * * Routine put together 26-feb-1993 by J.Vermaseren. * * First express everything in powers of pi.pi, Q.Q and p2.Q; * * id `P5'.P?!{`P5'} = `P6'.P-`P8'.P; * id `P4'.P?!{`P4'} = `P3'.P-`Q'.P; *#call ACCU(moms 1) * id `P6'.P?!{`P6'} = `P1'.P-`Q'.P; *#call ACCU(moms 2) * id `P7'.P?!{`P7'} = `P2'.P-`P1'.P; *#call ACCU(moms 3) * id `P8'.P?!{`P8'} = `P2'.P-`P3'.P; *#call ACCU(moms 4) id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P6'.`P6'/2; #call ACCU(dots 1) id `P3'.`Q' = `P3'.`P3'/2+`Q'.`Q'/2-`P4'.`P4'/2; #call ACCU(dots 2) id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P7'.`P7'/2; #call ACCU(dots 3) id `P3'.`P2' = `P3'.`P3'/2+`P2'.`P2'/2-`P8'.`P8'/2; #call ACCU(dots 4) id `P1'.`P3' = -`P2'.`Q'+`P1'.`P1'/2+`P2'.`P2'/2+`P3'.`P3'/2+`P5'.`P5'/2 +`Q'.`Q'/2-`P4'.`P4'/2-`P6'.`P6'/2-`P7'.`P7'/2-`P8'.`P8'/2; #call ACCU(dots 5) * * First step: eliminate the powers of `Q'.`P2' * Note how common factors are kept together in acc till the end. * This trick allows us to do an intermediate sort in the argument * of acc, thereby making in the end only the terms that are necessary. * while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8'*`Q'.`P2') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?/`P6'.`P6'^mncx6? /`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8?*`Q'.`P2'^mncx9? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'^mncx5/`P6'.`P6'^mncx6 /`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*`Q'.`P2'^mncx9*`Q'.`Q'/`Q'.`P2'/2*( +acc(3-2*mncx2-mncx1-mncx3+mncx9-2*ep) +mncx1*`P7'.`P7'/`P1'.`P1'-mncx1*`P2'.`P2'/`P1'.`P1' +mncx3*`P8'.`P8'/`P3'.`P3'-mncx3*`P2'.`P2'/`P3'.`P3' +2*acc(mncx9-1)*`P2'.`P2'/`Q'.`P2'/2 )*mncdeno(7-mncx1-mncx2-mncx3-mncx4-mncx5-mncx6-mncx7-mncx8+mncx9,-4); id mncdeno(0,-4) = -1/4/ep; id mncdeno(mncx1?,-4) = acc(1+4*ep/mncx1+16*ep^2/mncx1^2+64*ep^3/mncx1^3+256*ep^4/mncx1^4 +1024*ep^5/mncx1^5+4096*ep^6/mncx1^6+16384*ep^7/mncx1^7+65536*ep^8/mncx1^8)/mncx1; repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); #call ACCU(Eliminate `Q'.`P2') * * The essence of the strategy is now to depopulate the inner * propagators. This will leave integrals with only excess powers * in `P1',`P3',`P4',`P6'. These are tabulated. * In case an integral is not in the tables we have to use * recursions at the edge to reach the table. The paper has the * extra recursion (29) which we combine directly with the * recursions below (more general form of (30)) to reach the * table automatically. * repeat; repeat; while ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5'^2 /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5? /`P6'.`P6'^mncx6?/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4/`P5'.`P5'^mncx5 /`P6'.`P6'^mncx6/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( acc(-8+4*ep+mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8)*`P5'.`P5'/`Q'.`Q'* (acc(-14+6*ep+2*(mncx1+mncx2+mncx3+mncx5+mncx7+mncx8)+mncx4+mncx6) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx6*`P1'.`P1'/`P6'.`P6')/(mncx5-1) +mncx4*`P7'.`P7'/`P4'.`P4'+mncx6*`P8'.`P8'/`P6'.`P6' -acc(mncx1+mncx2+mncx3+mncx4+mncx5+mncx6+mncx7+mncx8+mncx5-9+4*ep)*`P5'.`P5' *(mncx4/`P4'.`P4'+mncx6/`P6'.`P6')/(mncx5-1) )*mncdeno(-4+mncx4+mncx6+2*mncx5,2); while ( match(1/`P1'.`P1'/`P2'.`P2'^2/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4?/`P5'.`P5' /`P6'.`P6'^mncx6?/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4/`P5'.`P5' /`P6'.`P6'^mncx6/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( acc(-7+4*ep+mncx1+mncx2+mncx3+mncx4+mncx6+mncx7+mncx8)*`P2'.`P2'/`Q'.`Q'* (acc(-12+6*ep+2*(mncx6+mncx2+mncx4+mncx7+mncx8)+mncx1+mncx3) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx1*`P6'.`P6'/`P1'.`P1')/(mncx2-1) +mncx3*`P8'.`P8'/`P3'.`P3'+mncx1*`P7'.`P7'/`P1'.`P1' -acc(mncx1+mncx2+mncx3+mncx4+mncx6+mncx7+mncx8+mncx2-8+4*ep)*`P2'.`P2' *(mncx3/`P3'.`P3'+mncx1/`P1'.`P1')/(mncx2-1) )*mncdeno(-4+mncx1+mncx3+2*mncx2,2); if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'^2/`P8'.`P8') > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4?/`P5'.`P5' /`P6'.`P6'^mncx6?/`P7'.`P7'^mncx7?/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4/`P5'.`P5' /`P6'.`P6'^mncx6/`P7'.`P7'^mncx7/`P8'.`P8'^mncx8*( acc(-6+4*ep+mncx1+mncx3+mncx4+mncx6+mncx7+mncx8)*`P7'.`P7'/`Q'.`Q'* (acc(-10+6*ep+2*(mncx6+mncx3+mncx7+mncx8)+mncx4+mncx1) +mncx4*`P3'.`P3'/`P4'.`P4'+mncx1*`P6'.`P6'/`P1'.`P1')/(mncx7-1) +mncx4*`P5'.`P5'/`P4'.`P4'+mncx1*`P2'.`P2'/`P1'.`P1' -acc(mncx1+mncx3+mncx4+mncx6+mncx7+mncx8+mncx7-7+4*ep)*`P7'.`P7' *(mncx4/`P4'.`P4'+mncx1/`P1'.`P1')/(mncx7-1) )*mncdeno(-4+mncx4+mncx1+2*mncx7,2); endrepeat; if ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5' /`P6'.`P6'/`P7'.`P7'/`P8'.`P8'^2) > 0 ) id 1/`P1'.`P1'^mncx1?/`P2'.`P2'/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4?/`P5'.`P5' /`P6'.`P6'^mncx6?/`P7'.`P7'/`P8'.`P8'^mncx8? = 1/`P1'.`P1'^mncx1/`P2'.`P2'/`P3'.`P3'^mncx3/`P4'.`P4'^mncx4/`P5'.`P5' /`P6'.`P6'^mncx6/`P7'.`P7'/`P8'.`P8'^mncx8*( acc(-5+4*ep+mncx1+mncx3+mncx4+mncx6+mncx8)*`P8'.`P8'/`Q'.`Q'* (acc(-8+6*ep+2*(mncx1+mncx4+mncx8)+mncx6+mncx3) +mncx3*`P4'.`P4'/`P3'.`P3'+mncx6*`P1'.`P1'/`P6'.`P6')/(mncx8-1) +mncx3*`P2'.`P2'/`P3'.`P3'+mncx6*`P5'.`P5'/`P6'.`P6' -acc(mncx1+mncx3+mncx4+mncx6+mncx8+mncx8-6+4*ep)*`P8'.`P8' *(mncx3/`P3'.`P3'+mncx6/`P6'.`P6')/(mncx8-1) )*mncdeno(-4+mncx6+mncx3+2*mncx8,2); endrepeat; id mncdeno(0,2) = 1/2/ep; id mncdeno(mncx1?,2) = acc(1-2*ep/mncx1+4*ep^2/mncx1^2-8*ep^3/mncx1^3+16*ep^4/mncx1^4 -32*ep^5/mncx1^5+64*ep^6/mncx1^6-128*ep^7/mncx1^7+256*ep^8/mncx1^8)/mncx1; repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); * * We arrange the integral so that mncx1 >= mncx3,mncx4,mncx5, mncx3 >= mncx4 etc. * if ( match( 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' ) > 0 ); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); if ( ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ) || ( ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ) && ( count(`P4'.`P4',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4'); if ( ( count(`P1'.`P1',1) > count(`P4'.`P4',1) ) || ( ( count(`P1'.`P1',1) == count(`P4'.`P4',1) ) && ( count(`P3'.`P3',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P4',`P4',`P1',`P3',`P6',`P6',`P3'); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); endif; #call ACCU(Inside Reduction) while ( ( match(1/`P1'.`P1'^2/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) && ( count(`P1'.`P1',-1,`P3'.`P3',-1,`P4'.`P4',-1,`P6'.`P6',-1) > `INRTABL' ) ); id 1/`P1'.`P1'^mncx1?/`P2'.`P2'/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'/`P6'.`P6'^mncx6? /`P7'.`P7'/`P8'.`P8' = 1/`P1'.`P1'^mncx1/`P2'.`P2'/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'/`P6'.`P6'^mncx6 /`P7'.`P7'/`P8'.`P8'/`Q'.`Q'*( +acc((2*mncx6+mncx1-3+4*ep)*(mncx3+mncx1-2+2*ep)*(mncx4+mncx1-2+2*ep) +(mncx6+mncx3+mncx4+mncx1-4+4*ep)*((mncx4-1)*(mncx3+mncx1-2+2*ep) +(mncx3-1)*(mncx4+mncx1-2+2*ep))) *`P1'.`P1'/(mncx1-1)*mncdeno(-2+mncx4+mncx1,2)*mncdeno(-2+mncx1+mncx3,2) +`P6'.`P6' +`P8'.`P8'*`P1'.`P1'/`P2'.`P2'*acc(1+2*ep/(mncx1-1))*mncdeno(-2+mncx1+mncx3,2) +`P5'.`P5'*`P1'.`P1'/`P7'.`P7'*acc(1+2*ep/(mncx1-1))*mncdeno(-2+mncx4+mncx1,2) +acc(-5+4*ep+mncx1+mncx3+mncx4+mncx6)*( -`P4'.`P4'*acc((-6+6*ep+2*(mncx6+mncx3)+mncx4+mncx1)*(mncx3+mncx1-2+2*ep) +(mncx3-1)*(mncx4+mncx1-2+2*ep)) -`P3'.`P3'*acc((-6+6*ep+2*(mncx6+mncx4)+mncx1+mncx3)*(mncx4+mncx1-2+2*ep) +(mncx4-1)*(mncx3+mncx1-2+2*ep)) )*`P1'.`P1'/`Q'.`Q'/(mncx1-1)*mncdeno(-2+mncx4+mncx1,2)*mncdeno(-2+mncx1+mncx3,2) +(-`P6'.`P6'*`P4'.`P4'*acc(-5+4*ep+mncx1+mncx3+mncx4+mncx6)/`Q'.`Q' -`P2'.`P2'*`P4'.`P4'/`P7'.`P7' +`P4'.`P4'*acc(mncx1+mncx3+mncx4+mncx6-4+4*ep) )*mncdeno(-2+mncx4+mncx1,2) +(-`P6'.`P6'*`P3'.`P3'*acc(-5+4*ep+mncx1+mncx3+mncx4+mncx6)/`Q'.`Q' -`P7'.`P7'*`P3'.`P3'/`P2'.`P2' +`P3'.`P3'*acc(mncx1+mncx3+mncx4+mncx6-4+4*ep) )*mncdeno(-2+mncx1+mncx3,2) ); #ifndef `STRATEGY2' if ( match( 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' ) > 0 ); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); if ( ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ) || ( ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ) && ( count(`P4'.`P4',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4'); if ( ( count(`P1'.`P1',1) > count(`P4'.`P4',1) ) || ( ( count(`P1'.`P1',1) == count(`P4'.`P4',1) ) && ( count(`P3'.`P3',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P4',`P4',`P1',`P3',`P6',`P6',`P3'); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); endif; #endif endwhile; #ifdef `STRATEGY2' while ( ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^2/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8') > 0 ) && ( count(`P1'.`P1',-1,`P3'.`P3',-1,`P4'.`P4',-1,`P6'.`P6',-1) > `INRTABL' ) ) id 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^mncx3? /`P4'.`P4'^mncx4?/`P5'.`P5'/`P6'.`P6'^mncx6? /`P7'.`P7'/`P8'.`P8' = 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'^mncx3 /`P4'.`P4'^mncx4/`P5'.`P5'/`P6'.`P6'^mncx6 /`P7'.`P7'/`P8'.`P8'/`Q'.`Q'*( +acc((2*mncx4+mncx3-3+4*ep)*(mncx6+mncx3-2+2*ep)*(1+mncx3-2+2*ep) +(mncx4+mncx6+1+mncx3-4+4*ep)*((1-1)*(mncx6+mncx3-2+2*ep) +(mncx6-1)*(1+mncx3-2+2*ep))) *`P3'.`P3'/(mncx3-1)*mncdeno(-2+1+mncx3,2)*mncdeno(-2+mncx3+mncx6,2) +`P4'.`P4' +`P5'.`P5'*`P3'.`P3'/`P8'.`P8'*acc(1+2*ep/(mncx3-1))*mncdeno(-2+mncx3+mncx6,2) +`P7'.`P7'*`P3'.`P3'/`P2'.`P2'*acc(1+2*ep/(mncx3-1))*mncdeno(-1+mncx3,2) +acc(-4+4*ep+mncx4+mncx6+mncx3)*( -`P1'.`P1'*acc((-5+6*ep+2*(mncx4+mncx6)+mncx3)*(mncx6+mncx3-2+2*ep) +(mncx6-1)*(mncx3-1+2*ep))*mncdeno(-1+mncx3,2) -`P6'.`P6'*acc(-6+6*ep+2*(mncx4+1)+mncx3+mncx6) )*`P3'.`P3'/`Q'.`Q'/(mncx3-1)*mncdeno(-2+mncx3+mncx6,2) +(-`P4'.`P4'*`P1'.`P1'*acc(-4+4*ep+mncx4+mncx6+mncx3)/`Q'.`Q' -`P8'.`P8'*`P1'.`P1'/`P2'.`P2' +`P1'.`P1'*acc(mncx4+mncx6+mncx3-3+4*ep) )*mncdeno(-1+mncx3,2) +(-`P4'.`P4'*`P6'.`P6'*acc(-4+4*ep+mncx4+mncx6+mncx3)/`Q'.`Q' -`P2'.`P2'*`P6'.`P6'/`P8'.`P8' +`P6'.`P6'*acc(mncx4+mncx6+mncx3-3+4*ep) )*mncdeno(-2+mncx3+mncx6,2) ); while ( ( match(1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'^2/`P7'.`P7'/`P8'.`P8') > 0 ) && ( count(`P1'.`P1',-1,`P3'.`P3',-1,`P4'.`P4',-1,`P6'.`P6',-1) > `INRTABL' ) ) id 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3' /`P4'.`P4'^mncx4?/`P5'.`P5'/`P6'.`P6'^mncx6? /`P7'.`P7'/`P8'.`P8' = 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3' /`P4'.`P4'^mncx4/`P5'.`P5'/`P6'.`P6'^mncx6 /`P7'.`P7'/`P8'.`P8'/`Q'.`Q'*( +acc(mncx6-2+4*ep+mncx4)*acc(mncx4+mncx6-2+2*ep) *`P6'.`P6'/(mncx6-1)*mncdeno(-2+mncx4+mncx6,2) +`P1'.`P1' +`P2'.`P2'*`P6'.`P6'/`P8'.`P8'*acc(1+2*ep/(mncx6-1))*mncdeno(-1+mncx6,2) +`P7'.`P7'*`P6'.`P6'/`P5'.`P5'*acc(1+2*ep/(mncx6-1))*mncdeno(-2+mncx4+mncx6,2) +acc(-3+4*ep+mncx4+mncx6)*( -`P4'.`P4'*acc(-2+6*ep+mncx4+mncx6) -`P3'.`P3'*acc((-3+6*ep+2*mncx4+mncx6)*(mncx4+mncx6-2+2*ep) +(mncx4-1)*(mncx6-1+2*ep))*mncdeno(-1+mncx6,2) )*`P6'.`P6'/`Q'.`Q'/(mncx6-1)*mncdeno(-2+mncx4+mncx6,2) +(-`P1'.`P1'*`P4'.`P4'*acc(-3+4*ep+mncx4+mncx6)/`Q'.`Q' -`P8'.`P8'*`P4'.`P4'/`P5'.`P5' +`P4'.`P4'*acc(mncx4+mncx6-2+4*ep) )*mncdeno(-2+mncx4+mncx6,2) +(-`P1'.`P1'*`P3'.`P3'*acc(-3+4*ep+mncx4+mncx6)/`Q'.`Q' -`P5'.`P5'*`P3'.`P3'/`P8'.`P8' +`P3'.`P3'*acc(mncx4+mncx6-2+4*ep) )*mncdeno(-1+mncx6,2) ); while ( ( match(1/`P1'.`P1'/`P7'.`P7'/`P4'.`P4'^2/`P3'.`P3' /`P8'.`P8'/`P6'.`P6'/`P2'.`P2'/`P5'.`P5') > 0 ) && ( count(`P1'.`P1',-1,`P4'.`P4',-1,`P3'.`P3',-1,`P6'.`P6',-1) > `INRTABL' ) ) id 1/`P1'.`P1'/`P7'.`P7'/`P4'.`P4'^mncx4? /`P3'.`P3'/`P8'.`P8'/`P6'.`P6' /`P2'.`P2'/`P5'.`P5' = 1/`P1'.`P1'/`P7'.`P7'/`P4'.`P4'^mncx4 /`P3'.`P3'/`P8'.`P8'/`P6'.`P6' /`P2'.`P2'/`P5'.`P5'/`Q'.`Q'*( +acc(mncx4-1+4*ep)*`P4'.`P4'/(mncx4-1) +`P3'.`P3' +`P8'.`P8'*`P4'.`P4'/`P5'.`P5'*acc(1+2*ep/(mncx4-1))*mncdeno(-1+mncx4,2) +`P2'.`P2'*`P4'.`P4'/`P7'.`P7'*acc(1+2*ep/(mncx4-1))*mncdeno(-1+mncx4,2) +acc(-2+4*ep+mncx4)*( -`P1'.`P1'*acc(-1+6*ep+mncx4) -`P6'.`P6'*acc(-1+6*ep+mncx4) )*`P4'.`P4'/`Q'.`Q'/(mncx4-1)*mncdeno(-1+mncx4,2) +(-`P3'.`P3'*`P1'.`P1'*acc(-2+4*ep+mncx4)/`Q'.`Q' -`P5'.`P5'*`P1'.`P1'/`P7'.`P7' +`P1'.`P1'*acc(mncx4-1+4*ep) )*mncdeno(-1+mncx4,2) +(-`P3'.`P3'*`P6'.`P6'*acc(-2+4*ep+mncx4)/`Q'.`Q' -`P7'.`P7'*`P6'.`P6'/`P5'.`P5' +`P6'.`P6'*acc(mncx4-1+4*ep) )*mncdeno(-1+mncx4,2) ); #endif id mncdeno(0,2) = 1/2/ep; id mncdeno(mncx1?,2) = acc(1-2*ep/mncx1+4*ep^2/mncx1^2-8*ep^3/mncx1^3+16*ep^4/mncx1^4 -32*ep^5/mncx1^5+64*ep^6/mncx1^6-128*ep^7/mncx1^7+256*ep^8/mncx1^8)/mncx1; repeat id acc(mncx1?)*acc(mncx2?) = acc(mncx1*mncx2); * * Integrals that are left can be looked up in the table. * We may have to apply symmetries to map it to an actual * element of the table. * if ( match( 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4' /`P5'.`P5'/`P6'.`P6'/`P7'.`P7'/`P8'.`P8' ) > 0 ); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); if ( ( count(`P1'.`P1',1) > count(`P3'.`P3',1) ) || ( ( count(`P1'.`P1',1) == count(`P3'.`P3',1) ) && ( count(`P4'.`P4',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P3',`P3',`P1',`P4',`P6',`P6',`P4'); if ( ( count(`P1'.`P1',1) > count(`P4'.`P4',1) ) || ( ( count(`P1'.`P1',1) == count(`P4'.`P4',1) ) && ( count(`P3'.`P3',1) > count(`P6'.`P6',1) ) ) ) multiply replace_(`P1',`P4',`P4',`P1',`P3',`P6',`P6',`P3'); if ( count(`P1'.`P1',1) > count(`P6'.`P6',1) ) multiply replace_(`P1',`P6',`P6',`P1'); if ( count(`P3'.`P3',1) > count(`P4'.`P4',1) ) multiply replace_(`P3',`P4',`P4',`P3'); id `INTS'/`P1'.`P1'^mncx1?/`P2'.`P2'/`P3'.`P3'^mncx3?/`P4'.`P4'^mncx4? /`P5'.`P5'/`P6'.`P6'^mncx6?/`P7'.`P7'/`P8'.`P8' = mncrtab(mncx1,mncx3,mncx4,mncx6)*mnceq^3/`Q'.`Q'^(mncx1+mncx3+mncx4+mncx6-2); endif; #endprocedure; *--#] rplane : *--#[ scalars : #procedure scalars(TOPO) #switch `TOPO' *--#[ la : #case la * #ifdef `LATRANS' #if ( `LATRANS' == 1 ) #call ACCU2(AB Q.p3 p3.p3 Q.Q p4.p4,Ladder rewrite 0) id Q.p3 = p3.p3/2-p4.p4/2+Q.Q/2; #call ACCU2(AB Q.p2 p2.p2 Q.Q p5.p5,Ladder rewrite 1) id Q.p2 = p2.p2/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p2.p7 p1.p1 p2.p2 p7.p7,Ladder rewrite 2) id p2.p7 = p1.p1/2-p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p3 p3.p3 p2.p2 p8.p8,Ladder rewrite 3) id p2.p3 = p3.p3/2+p2.p2/2-p8.p8/2; #call ACCU2(AB Q.p7 p1.p1 p2.p2 p5.p5 p6.p6,Ladder rewrite 4) id Q.p7 = p1.p1/2-p2.p2/2+p5.p5/2-p6.p6/2; #call ACCU(Ladder rewrite 5) #else #if ( `LATRANS' == 2 ) #call ACCU2(AB p3.p7 p1.p7 p7.p8 p7.p7,Ladder rewrite 0) id p3.p7 = p1.p7-p7.p7+p7.p8; #call ACCU2(AB Q.p3 p3.p3 Q.Q p4.p4,Ladder rewrite 1) id Q.p3 = p3.p3/2-p4.p4/2+Q.Q/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p6.p6,Ladder rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p1.p7 p1.p1 p2.p2 p7.p7,Ladder rewrite 3) id p1.p7 = p1.p1/2-p2.p2/2+p7.p7/2; #call ACCU2(AB Q.p7 p1.p1 p2.p2 p5.p5 p6.p6,Ladder rewrite 4) id Q.p7 = p1.p1/2-p2.p2/2+p5.p5/2-p6.p6/2; #call ACCU(Ladder rewrite 5) #else #if ( `LATRANS' == 3 ) #call ACCU2(AB Q.p2 p2.p2 Q.Q p5.p5,Ladder rewrite 0) id Q.p2 = p2.p2/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p2.p7 p1.p1 p2.p2 p7.p7,Ladder rewrite 1) id p2.p7 = p1.p1/2-p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p8 p3.p3 p2.p2 p8.p8,Ladder rewrite 2) id p2.p8 = p3.p3/2-p2.p2/2-p8.p8/2; #call ACCU2(AB Q.p7 p1.p1 p2.p2 p5.p5 p6.p6,Ladder rewrite 3) id Q.p7 = p1.p1/2-p2.p2/2+p5.p5/2-p6.p6/2; #call ACCU2(AB Q.p8 p3.p3 p2.p2 p5.p5 p4.p4,Ladder rewrite 4) id Q.p8 = p3.p3/2-p2.p2/2+p5.p5/2-p4.p4/2; #call ACCU(Ladder rewrite 5) #else #call ACCU2(AB Q.p1 p1.p1 p6.p6 Q.Q,Ladder rewrite 0) id Q.p1 = p1.p1/2-p6.p6/2+Q.Q/2; #call ACCU2(AB Q.p3 p3.p3 p4.p4 Q.Q,Ladder rewrite 1) id Q.p3 = p3.p3/2-p4.p4/2+Q.Q/2; #call ACCU2(AB Q.p2 p2.p2 Q.Q p5.p5,Ladder rewrite 2) id Q.p2 = p2.p2/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p7.p7,Ladder rewrite 3) id p1.p2 = p1.p1/2+p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p3 p3.p3 p2.p2 p8.p8,Ladder rewrite 4) id p2.p3 = p3.p3/2+p2.p2/2-p8.p8/2; #call ACCU(Ladder rewrite 5) #endif #endif #endif #else #call ACCU2(AB Q.p1 p1.p1 p6.p6 Q.Q,Ladder rewrite 0) id Q.p1 = p1.p1/2-p6.p6/2+Q.Q/2; #call ACCU2(AB Q.p3 p3.p3 p4.p4 Q.Q,Ladder rewrite 1) id Q.p3 = p3.p3/2-p4.p4/2+Q.Q/2; #call ACCU2(AB Q.p2 p2.p2 Q.Q p5.p5,Ladder rewrite 2) id Q.p2 = p2.p2/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p7.p7,Ladder rewrite 3) id p1.p2 = p1.p1/2+p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p3 p3.p3 p2.p2 p8.p8,Ladder rewrite 4) id p2.p3 = p3.p3/2+p2.p2/2-p8.p8/2; #call ACCU(Ladder rewrite 5) #endif * #break *--#] la : *--#[ be : #case be * #ifndef `BEPATH' #call ACCU2(AB p1.p3 p1.p1 p3.p3 p8.p8,Benz rewrite 0) id p1.p3 = p1.p1/2+p3.p3/2-p8.p8/2; #call ACCU2(AB p2.p3 p2.p2 p3.p3 p7.p7,Benz rewrite 1) id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p6.p6,Benz rewrite 2) id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz rewrite 3) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB Q.p3 p3.p3 Q.Q p4.p4,Benz rewrite 4) id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU(Benz rewrite 5) #else #if ( `BEPATH' == 0 ) #call ACCU2(AB p1.p3 p1.p1 p3.p3 p8.p8,Benz rewrite 0 \(0\)) id p1.p3 = p1.p1/2+p3.p3/2-p8.p8/2; #call ACCU2(AB p2.p3 p2.p2 p3.p3 p7.p7,Benz rewrite 1 \(0\)) id p2.p3 = p2.p2/2+p3.p3/2-p7.p7/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p6.p6,Benz rewrite 2 \(0\)) id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz rewrite 3 \(0\)) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB Q.p3 p3.p3 Q.Q p4.p4,Benz rewrite 4 \(0\)) id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU(Benz rewrite 5 \(0\)) #endif #if ( `BEPATH' == 1 ) #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz rewrite 0 \(1\)) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p1.p6 p2.p2 p1.p1 p6.p6,Benz rewrite 1 \(1\)) id p1.p6 = p2.p2/2-p1.p1/2-p6.p6/2; #call ACCU2(AB p6.p8 p6.p6 p8.p8 p7.p7,Benz rewrite 2 \(1\)) id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; #call ACCU2(AB p1.p8 p3.p3 p1.p1 p8.p8,Benz rewrite 3 \(1\)) id p1.p8 = p3.p3/2-p1.p1/2-p8.p8/2; #call ACCU2(AB Q.p8 p3.p3 p4.p4 p1.p1 p5.p5,Benz rewrite 4 \(1\)) id Q.p8 = p3.p3/2-p4.p4/2-p1.p1/2+p5.p5/2; #call ACCU2(AB Q.p6 Q.p2 Q.Q p1.p1 p5.p5,Benz rewrite 5 \(1\)) #endif #if ( `BEPATH' == 2 ) #call ACCU2(AB p1.p2 p1.p1 p2.p2 p6.p6,Benz rewrite 0 \(2\)) id p1.p2 = p1.p1/2+p2.p2/2-p6.p6/2; #call ACCU2(AB p2.p7 p2.p2 p7.p7 p3.p3,Benz rewrite 1 \(2\)) id p2.p7 = p2.p2/2+p7.p7/2-p3.p3/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz rewrite 2 \(2\)) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB Q.p7 Q.p2 Q.Q p3.p3 p4.p4,Benz rewrite 3 \(2\)) id Q.p7 = Q.p2-Q.Q/2-p3.p3/2+p4.p4/2; #call ACCU2(AB p1.p7 p2.p2 p6.p6 p3.p3 p8.p8,Benz rewrite 4 \(2\)) id p1.p7 = p2.p2/2-p6.p6/2-p3.p3/2+p8.p8/2; #call ACCU(Benz rewrite 5 \(2\)) #endif #if ( `BEPATH' == 3 ) #call ACCU2(AB p6.p8 p6.p6 p8.p8 p7.p7,Benz rewrite 0 \(3\)) id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; #call ACCU2(AB p2.p6 p2.p2 p6.p6 p1.p1,Benz rewrite 1 \(3\)) id p2.p6 = p2.p2/2+p6.p6/2-p1.p1/2; #call ACCU2(AB p2.p8 p3.p3 p1.p1 p7.p7 p6.p6,Benz rewrite 2 \(3\)) id p2.p8 = p3.p3/2-p1.p1/2-p7.p7/2+p6.p6/2; #call ACCU2(AB Q.p8 p3.p3 p4.p4 p1.p1 p5.p5,Benz rewrite 3 \(3\)) id Q.p8 = p3.p3/2-p4.p4/2-p1.p1/2+p5.p5/2; #call ACCU2(AB Q.p6 Q.p2 Q.Q p1.p1 p5.p5,Benz rewrite 4 \(3\)) id Q.p6 = Q.p2-Q.Q/2-p1.p1/2+p5.p5/2; #call ACCU(Benz rewrite 5 \(3\)) #endif #if ( `BEPATH' == 4 ) #call ACCU2(AB p6.p8 p6.p6 p8.p8 p7.p7,Benz rewrite 0 \(4\)) id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; #call ACCU2(AB p4.p8 p4.p4 p8.p8 p5.p5,Benz rewrite 1 \(4\)) id p4.p8 = p4.p4/2+p8.p8/2-p5.p5/2; #call ACCU2(AB Q.p4 p3.p3 Q.Q p4.p4,Benz rewrite 2 \(4\)) id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; #call ACCU2(AB Q.p8 p3.p3 p4.p4 p1.p1 p5.p5,Benz rewrite 3 \(4\)) id Q.p8 = p3.p3/2-p4.p4/2-p1.p1/2+p5.p5/2; #call ACCU2(AB p4.p6 Q.p6 p1.p1 p2.p2 p7.p7 p8.p8,Benz rewrite 4 \(4\)) id p4.p6 = -Q.p6-p1.p1/2+p2.p2/2+p8.p8/2-p7.p7/2; #call ACCU(Benz rewrite 5 \(4\)) #endif #if ( `BEPATH' == 5 ) #call ACCU2(AB p1.p6 p2.p2 p1.p1 p6.p6,Benz rewrite 0 \(5\)) id p1.p6 = p2.p2/2-p1.p1/2-p6.p6/2; #call ACCU2(AB p6.p7 p6.p6 p7.p7 p8.p8,Benz rewrite 1 \(5\)) id p6.p7 = p6.p6/2+p7.p7/2-p8.p8/2; #call ACCU2(AB Q.p1 p1.p1 Q.Q p5.p5,Benz rewrite 2 \(5\)) id Q.p1 = p1.p1/2+Q.Q/2-p5.p5/2; #call ACCU2(AB p1.p7 p2.p2 p6.p6 p3.p3 p8.p8,Benz rewrite 3 \(5\)) id p1.p7 = p2.p2/2-p6.p6/2-p3.p3/2+p8.p8/2; #call ACCU2(AB Q.p6 Q.p2 Q.Q p1.p1 p5.p5,Benz rewrite 4 \(5\)) id Q.p6 = Q.p7+p3.p3/2-p4.p4/2-p1.p1/2+p5.p5/2; #call ACCU(Benz rewrite 5 \(5\)) #endif #if ( `BEPATH' == 6 ) #call ACCU2(AB p5.p8 p4.p4 p5.p5 p8.p8,Benz rewrite 0 \(6\)) id p5.p8 = p4.p4/2-p5.p5/2-p8.p8/2; #call ACCU2(AB p6.p8 p6.p6 p8.p8 p7.p7,Benz rewrite 1 \(6\)) id p6.p8 = p6.p6/2+p8.p8/2-p7.p7/2; #call ACCU2(AB Q.p5 p1.p1 Q.Q p5.p5,Benz rewrite 2 \(6\)) id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; #call ACCU2(AB p5.p6 p2.p2 p1.p1 p6.p6 Q.p6,Benz rewrite 3 \(6\)) id p5.p6 = p2.p2/2-p1.p1/2-p6.p6/2-Q.p6; #call ACCU2(AB Q.p8 p3.p3 p4.p4 p1.p1 p5.p5,Benz rewrite 4 \(6\)) id Q.p8 = p3.p3/2-p4.p4/2-p1.p1/2+p5.p5/2; #call ACCU(Benz rewrite 5 \(6\)) #endif #if ( `BEPATH' == 7 ) #call ACCU2(AB p4.p5 p4.p4 p5.p5 p8.p8,Benz rewrite 0 \(7\)) id p4.p5 = p4.p4/2+p5.p5/2-p8.p8/2; #call ACCU2(AB Q.p4 p3.p3 Q.Q p4.p4,Benz rewrite 1 \(7\)) id Q.p4 = p3.p3/2-Q.Q/2-p4.p4/2; #call ACCU2(AB Q.p5 p1.p1 Q.Q p5.p5,Benz rewrite 2 \(7\)) id Q.p5 = p1.p1/2-Q.Q/2-p5.p5/2; #call ACCU2(AB p2.p4 p2.p2 p3.p3 p7.p7 Q.p2,Benz rewrite 3 \(7\)) id p2.p4 = p2.p2/2+p3.p3/2-p7.p7/2-Q.p2; #call ACCU2(AB p2.p5 p2.p2 p1.p1 p6.p6 Q.p2,Benz rewrite 4 \(7\)) id p2.p5 = p2.p2/2+p1.p1/2-p6.p6/2-Q.p2; #call ACCU(Benz rewrite 5 \(7\)) #endif #if ( `BEPATH' == 8 ) #call ACCU2(AB p2.p6 p2.p2 p1.p1 p6.p6,Benz rewrite 0 \(8\)) id p2.p6 = p2.p2/2+p6.p6/2-p1.p1/2; #call ACCU2(AB p2.p7 p2.p2 p7.p7 p3.p3,Benz rewrite 1 \(8\)) id p2.p7 = p2.p2/2+p7.p7/2-p3.p3/2; #call ACCU2(AB p6.p7 p6.p6 p7.p7 p8.p8,Benz rewrite 2 \(8\)) id p6.p7 = p6.p6/2+p7.p7/2-p8.p8/2; #call ACCU2(AB Q.p6 Q.p2 Q.Q p1.p1 p5.p5,Benz rewrite 3 \(8\)) id Q.p6 = Q.p2-Q.Q/2-p1.p1/2+p5.p5/2; #call ACCU2(AB Q.p7 Q.p2 Q.Q p3.p3 p4.p4,Benz rewrite 4 \(8\)) id Q.p7 = Q.p2-Q.Q/2-p3.p3/2+p4.p4/2; #call ACCU(Benz rewrite 5 \(8\)) #endif #endif * #break *--#] be : *--#[ no : #case no * #ifndef `NOSPEC' #call ACCU2(AB p1.Q p1.p1 Q.Q p6.p6,no rewrite 0) id p1.Q = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p3.Q p3.p3 Q.Q p4.p4,no rewrite 1) id p3.Q = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p7.p7,no rewrite 2) id p1.p2 = p1.p1/2+p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p3 p3.p3 p2.p2 p8.p8,no rewrite 3) id p3.p2 = p3.p3/2+p2.p2/2-p8.p8/2; #call ACCU(no rewrite 4) id p1.p3 = -p2.Q+p1.p1/2+p2.p2/2+p3.p3/2+p5.p5/2 +Q.Q/2-p4.p4/2-p6.p6/2-p7.p7/2-p8.p8/2; #call ACCU(no rewrite 5) #else #if ( `NOSPEC' == 0 ) #call ACCU2(AB p1.Q p1.p1 Q.Q p6.p6,no rewrite 0) id p1.Q = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p3.Q p3.p3 Q.Q p4.p4,no rewrite 1) id p3.Q = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p7.p7,no rewrite 2) id p1.p2 = p1.p1/2+p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p3 p3.p3 p2.p2 p8.p8,no rewrite 3) id p2.p3 = p3.p3/2+p2.p2/2-p8.p8/2; #call ACCU(no rewrite 4) id p1.p3 = -p2.Q+p1.p1/2+p2.p2/2+p3.p3/2+p5.p5/2 +Q.Q/2-p4.p4/2-p6.p6/2-p7.p7/2-p8.p8/2; #call ACCU(no rewrite 5) #endif #if ( `NOSPEC' == 1 ) id p2.p7 = p2.p2/2+p7.p7/2-p1.p1/2; #call ACCU2(AB p2.p8 p3.p3 p2.p2 p8.p8,no rewrite 0) id p2.p8 = -p3.p3/2+p2.p2/2+p8.p8/2; #call ACCU2(AB p7.Q Q.p2 p1.p1 Q.Q p6.p6,no rewrite 2) id p7.Q = Q.p2-p1.p1/2-Q.Q/2+p6.p6/2; #call ACCU2(AB p8.Q p3.p3 Q.Q p4.p4 Q.p2,no rewrite 3) id p8.Q = Q.p2-p3.p3/2-Q.Q/2+p4.p4/2; #call ACCU(no rewrite 4) id,p1.p3 = -p2.Q+p1.p1/2+p2.p2/2+p3.p3/2+p5.p5/2 +Q.Q/2-p4.p4/2-p6.p6/2-p7.p7/2-p8.p8/2; #call ACCU(no rewrite 5) #endif #if ( `NOSPEC' == 2 ) #call ACCU2(AB p1.Q p1.p1 Q.Q p6.p6,no rewrite 0) id p1.Q = p1.p1/2+Q.Q/2-p6.p6/2; #call ACCU2(AB p8.Q p2.Q p3.p3 Q.Q p4.p4,no rewrite 1) id p8.Q = p2.Q-p3.p3/2-Q.Q/2+p4.p4/2; #call ACCU2(AB p1.p2 p1.p1 p2.p2 p7.p7,no rewrite 2) id p1.p2 = p1.p1/2+p2.p2/2-p7.p7/2; #call ACCU2(AB p2.p8 p3.p3 p2.p2 p8.p8,no rewrite 3) id p2.p8 = p8.p8/2+p2.p2/2-p3.p3/2; #call ACCU2(AB p1.p8 p2.Q p3.p3 p5.p5 Q.Q p4.p4 p6.p6 p8.p8,no rewrite 4) id p1.p8 = +p2.Q-p3.p3/2-p5.p5/2 -Q.Q/2+p4.p4/2+p6.p6/2+p8.p8/2; #call ACCU(no rewrite 5) #endif #endif * #break *--#] no : *--#[ fa : #case fa * * #break *--#] fa : *--#[ bu : #case bu * * #break *--#] bu : *--#[ o1 : #case o1 * #ifndef `O1PATH' id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(o1 rewite 1) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p2 = p2.p2/2+Q.Q/2-p3.p3/2; #call ACCU(o1 rewite 2) #else #if ( `O1PATH' == 0 ) id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(o1 rewite 1\(0\)) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p2 = p2.p2/2+Q.Q/2-p3.p3/2; #call ACCU(o1 rewite 2\(0\)) #endif #if ( `O1PATH' == 1 ) id p1.p7 = -p1.p6+p1.p1/2+p5.p5/2-p2.p2/2; id p6.p7 = p5.p5/2-p6.p6/2-p7.p7/2; #call ACCU(o1 rewite 1\(1\)) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p7 = -Q.p6+p1.p1/2-p2.p2/2+p3.p3/2-p4.p4/2; #call ACCU(o1 rewite 2\(1\)) #endif #if ( `O1PATH' == 2 ) id p1.p5 = p1.p1/2+p5.p5/2-p2.p2/2; id p5.p6 = p5.p5/2+p6.p6/2-p7.p7/2; #call ACCU(o1 rewite 1\(2\)) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p5 = p1.p1/2-p2.p2/2+p3.p3/2-p4.p4/2; #call ACCU(o1 rewite 2\(2\)) #endif #endif * #break *--#] o1 : *--#[ o2 : #case o2 * id p4.p6 = p4.p4/2+p6.p6/2-p7.p7/2; id p3.p4 = p3.p3/2+p4.p4/2-p5.p5/2; #call ACCU(o2 rewrite 1) id Q.p3 = p2.p2/2-Q.Q/2-p3.p3/2; id Q.p4 = p1.p1/2-Q.Q/2-p4.p4/2; #call ACCU(o2 rewrite 2) * #break *--#] o2 : *--#[ o3 : #case o3 * id Q.p6 = p6.p6/2+Q.Q/2-p7.p7/2; id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(o3 rewrite 1) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p2 = p2.p2/2+Q.Q/2-p3.p3/2; #call ACCU(o3 rewrite 2) * #break *--#] o3 : *--#[ o4 : #case o4 * id Q.p6 = p6.p6/2+Q.Q/2-p7.p7/2; id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(o4 rewrite 1) id p1.p6 = p1.p1/2+p6.p6/2-p4.p4/2; id p2.p6 = p2.p2/2+p6.p6/2-p3.p3/2; #call ACCU(o4 rewrite 2) * #break *--#] o4 : *--#[ o5 : #case o5 * id p3.p6 = p3.p3/2+p6.p6/2-p7.p7/2; id p3.p4 = p3.p3/2+p4.p4/2-p5.p5/2; #call ACCU(o5 rewrite 1) id Q.p3 = p2.p2/2-Q.Q/2-p3.p3/2; id Q.p4 = p1.p1/2-Q.Q/2-p4.p4/2; #call ACCU(o5 rewrite 2) * #break *--#] o5 : *--#[ o6 : #case o6 * id Q.p6 = p6.p6/2+Q.Q/2-p7.p7/2; id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(o3 rewrite 1) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; id Q.p2 = p2.p2/2+Q.Q/2-p3.p3/2; #call ACCU(o3 rewrite 2) * #break *--#] o6 : *--#[ y1 : #case y1 * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y1 rewrite) * #break *--#] y1 : *--#[ y2 : #case y2 * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; #call ACCU(y2 rewrite 1) id p1.p5 = p1.p1/2+p5.p5/2-p6.p6/2; #call ACCU(y2 rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y2 rewrite 3) * #break *--#] y2 : *--#[ y3 : #case y3 * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; #call ACCU(y3 rewrite 1) id p3.p5 = p3.p3/2+p5.p5/2-p6.p6/2; #call ACCU(y3 rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y3 rewrite 3) * #break *--#] y3 : *--#[ y4 : #case y4 * id Q.p5 = p5.p5/2+Q.Q/2-p6.p6/2; #call ACCU(y4 rewrite 1) id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; #call ACCU(y4 rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y4 rewrite 3) * #break *--#] y4 : *--#[ y5 : #case y5 * id Q.p5 = p5.p5/2+Q.Q/2-p6.p6/2; #call ACCU(y5 rewrite 1) id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU(y5 rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y5 rewrite 3) * #break *--#] y5 : *--#[ y6 : #case y6 * id Q.p5 = p5.p5/2+Q.Q/2-p6.p6/2; #call ACCU(y4 rewrite 1) id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; #call ACCU(y4 rewrite 2) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(y4 rewrite 3) * #break *--#] y6 : *--#[ t1 : #case t1 * id p1.p2 = p1.p1/2+p2.p2/2-p5.p5/2; #call ACCU(t1 rewrite 1) id Q.p1 = p1.p1/2+Q.Q/2-p4.p4/2; #call ACCU(t1 rewrite 2) id Q.p2 = p2.p2/2+Q.Q/2-p3.p3/2; #call ACCU(t1 rewrite 3) * #break *--#] t1 : *--#[ t2 : #case t2 * id p1.p3 = p1.p1/2+p3.p3/2-p4.p4/2; #call ACCU(t2 rewrite 1) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(t2 rewrite 2) * #break *--#] t2 : *--#[ t3 : #case t3 * id Q.p3 = p3.p3/2+Q.Q/2-p4.p4/2; #call ACCU(t3 rewrite 1) id Q.p1 = p1.p1/2+Q.Q/2-p2.p2/2; #call ACCU(t3 rewrite 2) * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #endswitch #endprocedure *--#] scalars : *--#[ simplify : #procedure simplify * * Note: The acc's are leftovers when the gamma's are normalized. * In that case two gamma's had to be reduced down, so that the * first part is one. Actually the first acc can be cancelled * against the factors in the definition of the exp's. * if ( match(mncG(?a,0,0)) ); id mncG(mncx1?,0,mncy1?,0,0,0) = mncaccm(mncT00(mncx1,mncy1)); id mncG(mncx1?,1,mncy1?,0,0,0) = mncexp10*mncaccm(mncT10(mncx1,mncy1)); id mncG(mncx1?,0,mncy1?,1,0,0) = mncexp10*mncaccm(mncT10(mncy1,mncx1)); id mncG(mncx1?,2,mncy1?,0,0,0) = mncexp20*mncaccm(mncT20(mncx1,mncy1)); id mncG(mncx1?,0,mncy1?,2,0,0) = mncexp20*mncaccm(mncT20(mncy1,mncx1)); id mncG(mncx1?,1,mncy1?,1,0,0) = mncexp11*mncaccm(mncT11(mncx1,mncy1)); id mncaccm(mncT00(mncx?,mncy?)) = mncG(mncx,0,mncy,0,0,0); id mncaccm(mncT10(mncx?,mncy?)) = mncG(mncx,1,mncy,0,0,0)/mncexp10; id mncaccm(mncT20(mncx?,mncy?)) = mncG(mncx,2,mncy,0,0,0)/mncexp20; id mncaccm(mncT11(mncx?,mncy?)) = mncG(mncx,1,mncy,1,0,0)/mncexp11; id mncaccm(mncx?) = acc(mncx); endif; if ( count(mncG,1) ); id mncG(mncx1?,mncy1?,mncx2?,mncy2?,D?,mncs?) = mncpo(mncx1+mncx2-mncs-2,1+mncy1+mncy2) *mncpo(2-mncx1+D-mncs,-1-mncy1)*mncpo(2-mncx2+mncs,-1-mncy2) *acc(1-2*ep-ep*mncy1-ep*mncy2) *mncpoinv(mncx1,mncy1)*mncpoinv(mncx2,mncy2)*mncpoinv(4-mncx1-mncx2+D,-2-mncy1-mncy2) *mncG(1,mncy1,1,mncy2,0,0); id mncG(1,0,1,0,0,0) = 1; id mncG(1,1,1,1,0,0) = mncexp11; *1/3 id mncG(1,0,1,1,0,0) = mncexp10; *1/2 id mncG(1,1,1,0,0,0) = mncexp10; *1/2 id mncG(1,0,1,2,0,0) = mncexp20; *1/3 id mncG(1,2,1,0,0,0) = mncexp20; *1/3 id mncpo(1,?a) = 1; id mncpoinv(1,?a) = 1; id mncpo(mncx1?pos_,0) = fac_(mncx1-1); id mncpoinv(mncx1?pos_,0) = invfac_(mncx1-1); id,many,mncpo(mncx1?neg0_,mncx2?) = acc(mncPO(mncx1,mncx2))/mncx2/ep; id,many,mncpo(mncx1?,mncx2?) = acc(mncPO(mncx1,mncx2)); id,many,mncpoinv(mncx1?neg0_,mncx2?) = acc(mncPOINV(mncx1,mncx2))*mncx2*ep; id,many,mncpoinv(mncx1?,mncx2?) = acc(mncPOINV(mncx1,mncx2)); endif; id mncexp10*mncexp20 = mncexp11*acc(1+ep+3*ep^2+9*ep^3+27*ep^4+81*ep^5 +243*ep^6+729*ep^7+2187*ep^8); multiply ep; #endprocedure *--#] simplify : *--#[ special : #procedure special(TOPO) #switch `TOPO' *--#[ la : #case la * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; if ( ( count(mncx5,1) > 0 ) && ( count(mncx2,1) == 0 ) ); multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); multiply,replace_(mncx1,mncx6,mncx6,mncx1,mncx2,mncx5,mncx5,mncx2,mncx3,mncx4,mncx4,mncx3); endif; if ( ( count(mncx2,1) > 0 ) && ( count(mncx6,1) > 0 ) ); multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; multiply,replace_(mncx1,mncx3,mncx3,mncx1,mncx4,mncx6,mncx6,mncx4,mncx7,mncx8,mncx8,mncx7); endif; if ( match(mncx2*mncx8*mncx4) ); if ( match(mncDg(?a,[P-p2])) || match(mncDg(?a,-[P-p2])) || match(mncfp(?a,[P-p2])) || match(mncfp(?a,-[P-p2])) || match(mncDgh(?a,[P-p2])) || match(mncDgh(?a,-[P-p2])) ); multiply,replace_([P+p8],p8,[P+p4],p4,p4,-[P-p4],p3,-[P-p3],mncx8,mncx3,mncx3,mncx8); else; multiply,replace_([P-p8],-p8,[P-p4],-p4,p4,[P+p4],p3,[P+p3],mncx8,mncx3,mncx3,mncx8); endif; endif; if ( count(mncx7,1,mncx8,1) > 0 ); if ( match(mncx7*mncx8) > 0 ); redefine LATRANS "3"; if ( count(mncx5,1) > 0 ) multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); elseif ( (match(mncx7*mncx1) > 0) || (match(mncx7*mncx6) > 0) ); redefine LATRANS "2"; if ( count(mncx6,1) > 0 ) multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); elseif ( (match(mncx8*mncx3) > 0) || (match(mncx8*mncx4) > 0) ); redefine LATRANS "2"; multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; if ( count(mncx6,1) > 0 ) multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); else; redefine LATRANS "1"; if ( count(mncx8,1) > 0 ) multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; if ( count(mncx5,1) > 0 ) multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); endif; elseif ( count(mncx4,1,mncx5,1,mncx6,1) > count(mncx1,1,mncx2,1,mncx3,1) ); multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,-p7,p8,-p8, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); endif; repeat,id mncx?[mncx18] = 1; * #break *--#] la : *--#[ be : #case be * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; if ( match(mncx4*mncx5) ); redefine BEPATH "7";* 1,5,4 or 3,4,5 or 4,5 if ( count(mncx3,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( match(mncx4*mncx6*mncx8) || match(mncx5*mncx7*mncx8) ); redefine BEPATH "4";* 4,8,6 or 5,8,7 or 4,8 or 5,8 if ( count(mncx5,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( ( count(mncx4,1,mncx5,1) > 0 ) && ( count(mncx1,1,mncx3,1) == 0 ) ); label 6; redefine BEPATH "6";* 4,8,7,or 5,8,6 or 4,8 or 5,8 if ( count(mncx4,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( match(mncx1*mncx6*mncx7) || match(mncx3*mncx6*mncx7) ); redefine BEPATH "5";* 1,6,7 or 3,7,6 if ( count(mncx3,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( match(mncx6*mncx7) ); redefine BEPATH "8";* 6,7 elseif ( match(mncx2*mncx8) ); redefine BEPATH "3";* 2,6,8 or 2,7,8 if ( count(mncx7,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( match(mncx2*mncx7) || match(mncx2*mncx6) ); redefine BEPATH "2";* 1,2,7 or 3,2,6 if ( count(mncx6,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; elseif ( match(mncx6) || match(mncx7) || match(mncx8) ); if ( match(mncx1*mncx5*mncx6) || match(mncx3*mncx4*mncx7) ); if ( count(mncx3,1) ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q] ,mncx3,mncx1,mncx1,mncx3,mncx4,mncx5,mncx5,mncx4,mncx6,mncx7,mncx7,mncx6)*mncsgn3; if ( match(mncDg(?a,[P-p6])) || match(mncDg(?a,-[P-p6])) || match(mncfp(?a,[P-p6])) || match(mncfp(?a,-[P-p6])) || match(mncDgh(?a,[P-p6])) || match(mncDgh(?a,-[P-p6])) ); multiply,replace_([P+p5],p5,[P+p1],p1,[P-p6],-p6, p6,[P+p6],p8,[P+p8],p5,-[P-p5],[P-p5],-p5,[P-p1],-p1,[P+p6],p6, mncx1,mncx8,mncx8,mncx1); else; * * This one still needs correcting in some databases * multiply,replace_([P+p5],p5,[P+p1],p1,[P-p6],-p6, p6,-[P-p6],p8,-[P-p8],p5,[P+p5],[P-p5],-p5,[P-p1],-p1,[P+p6],p6, mncx1,mncx8,mncx8,mncx1); endif; goto 6; endif; if ( match(mncx3*mncx4*mncx8) || match(mncx1*mncx5*mncx8) ); if ( count(mncx3,1) ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q] ,mncx3,mncx1,mncx1,mncx3,mncx4,mncx5,mncx5,mncx4,mncx6,mncx7,mncx7,mncx6)*mncsgn3; if ( match(mncDg(?a,[P+p1])) || match(mncDg(?a,-[P+p1])) || match(mncfp(?a,[P+p1])) || match(mncfp(?a,-[P+p1])) || match(mncDgh(?a,[P+p1])) || match(mncDgh(?a,-[P+p1])) ); multiply,replace_(p1,-[P-p1],p6,[P+p6],p8,[P+p8] ,[P+p1],p1,[P+p5],p5,[P-p8],-p8 ,[P-p1],-p1,[P-p5],-p5,[P+p8],p8 ,mncx5,mncx6,mncx6,mncx5); else; * * This one still needs correcting in some databases * multiply,replace_(p1,[P+p1],p6,-[P-p6],p8,-[P-p8] ,[P+p1],p1,[P+p5],p5,[P-p8],-p8 ,[P-p1],-p1,[P-p5],-p5,[P+p8],p8 ,mncx5,mncx6,mncx6,mncx5); endif; endif; redefine BEPATH "1";* 1,6,8 or 1,6 or 6,8 or 5,1,6 or vv if ( count(mncx7,1) > 0 ) multiply,replace_(p1,-p3,p3,-p1,p2,-p2,p6,-p7,p7,-p6,p4,-p5,p5,-p4,Q,-Q ,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1] ,[P+p4],[P-p5],[P+p5],[P-p4],[P-p4],[P+p5],[P-p5],[P+p4] ,[P+p6],[P-p7],[P+p7],[P-p6],[P-p6],[P+p7],[P-p7],[P+p6] ,[P+p2],[P-p2],[P-p2],[P+p2],[P+Q],[P-Q],[P-Q],[P+Q])*mncsgn3; endif; repeat,id mncx?[mncx18] = 1; * #break *--#] be : *--#[ no : #case no * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; repeat id mncx?[mncx18]^2 = mncx; if ( match(mncx2*mncx7*mncx8) || match(mncx5*mncx7*mncx8) || match(mncx2*mncx5*mncx7) || match(mncx2*mncx5*mncx8) ); redefine NOSPEC "1"; if ( count(mncx2,1) == 0 ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); multiply,replace_(mncx1,mncx6,mncx6,mncx1,mncx2,mncx5,mncx5,mncx2,mncx3,mncx4,mncx4,mncx3,mncx7,mncx8,mncx8,mncx7); elseif ( count(mncx7,1) == 0 ); multiply,replace_( p1,-p6,p6,-p1,[P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1], p7,p5,p5,p7,[P+p7],[P+p5],[P+p5],[P+p7],[P-p7],[P-p5],[P-p5],[P-p7], p2,-p8,p8,-p2,[P-p2],[P+p8],[P+p2],[P-p8],[P+p8],[P-p2],[P-p8],[P+p2], mncx1,mncx6,mncx6,mncx1,mncx5,mncx7,mncx7,mncx5,mncx2,mncx8,mncx8,mncx2); elseif ( count(mncx8,1) == 0 ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); multiply,replace_(mncx2,mncx7,mncx7,mncx2,mncx8,mncx5,mncx5,mncx8,mncx3,mncx4,mncx4,mncx3); endif; * * We have now a configuration with 7,2,8 * Now minimize the number of fermions * id mncfp(?a, mncp?mncPcenter,?b) = mncfp(?a, mncp,?b)*mncx; id mncfp(?a,-mncp?mncPcenter,?b) = mncfp(?a,-mncp,?b)*mncx; id mncfp(?a, mncp?mncpcenter,?b ) = mncfp(?a, mncp,?b)/mncx; id mncfp(?a,-mncp?mncpcenter,?b ) = mncfp(?a,-mncp,?b)/mncx; if ( count(mncx,1) > 0 ); if ( match(mncDg(?a,[P-p7])) || match(mncDg(?a,-[P-p7])) || match(mncfp(?a,[P-p7])) || match(mncfp(?a,-[P-p7])) || match(mncDgh(?a,[P-p7])) || match(mncDgh(?a,-[P-p7])) ); multiply,replace_([P-p7],-p7,[P-p2],-p2,[P-p8],-p8, p7,[P+p7],p5,-[P-p5],p8,[P+p8],mncx2,mncx5,mncx5,mncx2); else; multiply,replace_([P+p7],p7,[P+p2],p2,[P+p8],p8, p7,-[P-p7],p5,[P+p5],p8,-[P-p8],mncx2,mncx5,mncx5,mncx2); endif; multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); multiply,replace_(mncx1,mncx6,mncx6,mncx1,mncx2,mncx5,mncx5,mncx2,mncx3,mncx4,mncx4,mncx3,mncx7,mncx8,mncx8,mncx7); endif; id mncx = 1; id 1/mncx = 1; else; if ( ( count(mncx3,1) > 0 ) && ( count(mncx1,1,mncx4,1,mncx6,1) == 0 ) ); multiply,replace_( p1,-p3,p3,-p1,[P+p1],[P-p3],[P+p3],[P-p1],[P-p1],[P+p3],[P-p3],[P+p1], p4,-p6,p6,-p4,[P+p4],[P-p6],[P+p6],[P-p4],[P-p4],[P+p6],[P-p6],[P+p4], p2,-p2,[P+p2],[P-p2],[P-p2],[P+p2], p5,-p5,[P+p5],[P-p5],[P-p5],[P+p5], p7,-p8,p8,-p7,[P+p7],[P-p8],[P+p8],[P-p7],[P-p7],[P+p8],[P-p8],[P+p7], Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q], mncx1,mncx3,mncx3,mncx1,mncx4,mncx6,mncx6,mncx4,mncx7,mncx8,mncx8,mncx7)*mncsgn3; endif; if ( ( count(mncx4,1) > 0 ) && ( count(mncx1,1,mncx3,1,mncx6,1) == 0 ) ); multiply,replace_( p1,p4,p4,p1,[P+p1],[P+p4],[P+p4],[P+p1],[P-p1],[P-p4],[P-p4],[P-p1], p2,p5,p5,p2,[P+p2],[P+p5],[P+p5],[P+p2],[P-p2],[P-p5],[P-p5],[P-p2], p3,p6,p6,p3,[P+p3],[P+p6],[P+p6],[P+p3],[P-p3],[P-p6],[P-p6],[P-p3], p7,-p7,[P+p7],[P-p7],[P-p7],[P+p7], p8,-p8,[P+p8],[P-p8],[P-p8],[P+p8], Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q], mncx1,mncx4,mncx4,mncx1,mncx2,mncx5,mncx5,mncx2,mncx3,mncx6,mncx6,mncx3)*mncsgn3; endif; if ( ( count(mncx6,1) > 0 ) && ( count(mncx1,1) == 0 ) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); multiply,replace_(mncx1,mncx6,mncx6,mncx1,mncx2,mncx5,mncx5,mncx2,mncx3,mncx4,mncx4,mncx3,mncx7,mncx8,mncx8,mncx7); endif; if ( match(mncx1*mncx7) > 0 ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); multiply,replace_(mncx2,mncx7,mncx7,mncx2,mncx8,mncx5,mncx5,mncx8,mncx3,mncx4,mncx4,mncx3); endif; if ( match(mncx1*mncx2*mncx8) > 0 ); redefine NOSPEC "2"; endif; endif; repeat,id mncx?[mncx18] = 1; * #break *--#] no : *--#[ fa : #case fa * * #break *--#] fa : *--#[ bu : #case bu * * #break *--#] bu : *--#[ o1 : #case o1 * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; if ( match(mncx6*mncx7) > 0 ); redefine O1PATH "1"; elseif ( ( count(mncx6,1,mncx7,1) > 0 ) && ( count(mncx3,1,mncx4,1) > 0 ) ); multiply replace_( p1,-p4,p4,-p1,[P+p1],[P-p4],[P-p1],[P+p4],[P+p4],[P-p1],[P-p4],[P+p1], p2,-p3,p3,-p2,[P+p2],[P-p3],[P-p2],[P+p3],[P+p3],[P-p2],[P-p3],[P+p2], p5,-p5,[P-p5],[P+p5],[P+p5],[P-p5], p6,-p6,[P-p6],[P+p6],[P+p6],[P-p6], p7,-p7,[P-p7],[P+p7],[P+p7],[P-p7], mncx1,mncx4,mncx4,mncx1,mncx2,mncx3,mncx3,mncx2); endif; if ( count(mncx3,1,mncx4,1) > count(mncx1,1,mncx2,1) ); multiply replace_( p1,-p4,p4,-p1,[P+p1],[P-p4],[P-p1],[P+p4],[P+p4],[P-p1],[P-p4],[P+p1], p2,-p3,p3,-p2,[P+p2],[P-p3],[P-p2],[P+p3],[P+p3],[P-p2],[P-p3],[P+p2], p5,-p5,[P-p5],[P+p5],[P+p5],[P-p5], p6,-p6,[P-p6],[P+p6],[P+p6],[P-p6], p7,-p7,[P-p7],[P+p7],[P+p7],[P-p7], mncx1,mncx4,mncx4,mncx1,mncx2,mncx3,mncx3,mncx2); endif; if ( ( count(mncx7,1) > 0 ) && ( count(mncx6,1) == 0 ) ); multiply replace_(p6,p7,p7,p6,[P+p6],[P+p7],[P+p7],[P+p6], [P-p6],[P-p7],[P-p7],[P-p6],mncx6,mncx7,mncx7,mncx6); endif; if ( ( count(mncx2,1) > 0 ) && ( count(mncx1,1) == 0 ) ); multiply replace_( p1,-p2,p2,-p1,[P+p1],[P-p2],[P-p1],[P+p2],[P+p2],[P-p1],[P-p2],[P+p1], p4,-p3,p3,-p4,[P+p4],[P-p3],[P-p4],[P+p3],[P+p3],[P-p4],[P-p3],[P+p4], Q,-Q,[P-Q],[P+Q],[P+Q],[P-Q],mncx1,mncx2,mncx2,mncx1,mncx4,mncx3,mncx3,mncx4)*mncsgn3; endif; if ( count(mncx5,1) > 0 ); redefine O1PATH "2"; endif; repeat,id mncx?[mncx18] = 1; * #break *--#] o1 : *--#[ o2 : #case o2 * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; if ( ( count(mncx7,1) > 0 ) && ( count(mncx6,1) == 0 ) ); multiply replace_( p6,p7,p7,p6,[P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] mncx6,mncx7,mncx7,mncx6); endif; if ( match(mncx6*mncx2*mncx1) ); if ( match(mncDg(?a,[P-p2])) || match(mncDg(?a,-[P-p2])) || match(mncfp(?a,[P-p2])) || match(mncfp(?a,-[P-p2])) || match(mncDgh(?a,[P-p2])) || match(mncDgh(?a,-[P-p2])) ); Multiply,replace_([P-p2],-p2,p2,[P+p2],[P-p1],-p1,[P-p4],-p4 ,[P-p6],-p6,p6,[P+p6],p4,[P+p4],p3,[P+p3],mncx1,mncx3,mncx3,mncx1); else; Multiply,replace_([P+p2],p2,p2,-[P-p2],[P+p4],p4,p4,-[P-p4],[P+p6],p6, p6,-[P-p6],p3,-[P-p3],[P+p1],p1,mncx1,mncx3,mncx3,mncx1); endif; endif; repeat,id mncx?[mncx18] = 1; * #break *--#] o2 : *--#[ o3 : #case o3 * * #break *--#] o3 : *--#[ o4 : #case o4 * * #break *--#] o4 : *--#[ o5 : #case o5 * id mncDg(?a,mncp?[mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,mncp?[-mncpp18][mncx]) = mncDg(?a,mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDg(?a,-mncp?[-mncpp18][mncx]) = mncDg(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,mncp?[-mncpp18][mncx]) = mncDgh(?a,mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncDgh(?a,-mncp?[-mncpp18][mncx]) = mncDgh(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,mncp?[-mncpp18][mncx]) = mncfp(?a,mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; id mncfp(?a,-mncp?[-mncpp18][mncx]) = mncfp(?a,-mncp)*[mncx18][mncx]; if ( ( count(mncx7,1) > 0 ) && ( count(mncx6,1) == 0 ) ); multiply replace_( p6,p7,p7,p6,[P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] mncx6,mncx7,mncx7,mncx6); endif; if ( match(mncx6*mncx2*mncx1) ); if ( match(mncDg(?a,[P-p2])) || match(mncDg(?a,-[P-p2])) || match(mncfp(?a,[P-p2])) || match(mncfp(?a,-[P-p2])) || match(mncDgh(?a,[P-p2])) || match(mncDgh(?a,-[P-p2])) ); Multiply,replace_([P-p2],-p2,p2,[P+p2],[P-p1],-p1,p1,[P+p1],[P-p4],-p4,[P-p3],-p3 ,[P-p6],-p6,p6,[P+p6],p4,[P+p4],p3,[P+p3],mncx2,mncx4,mncx4,mncx2); else; Multiply,replace_([P+p2],p2,p2,-[P-p2],[P+p4],p4,p4,-[P-p4],[P+p6],p6, p6,-[P-p6],[P+p3],p3,p3,-[P-p3],[P+p1],p1,p1,-[P-p1],mncx2,mncx4,mncx4,mncx2); endif; endif; repeat,id mncx?[mncx18] = 1; * #break *--#] o5 : *--#[ o6 : #case o6 * * #break *--#] o6 : *--#[ y1 : #case y1 * * #break *--#] y1 : *--#[ y2 : #case y2 * * #break *--#] y2 : *--#[ y3 : #case y3 * * #break *--#] y3 : *--#[ y4 : #case y4 * * #break *--#] y4 : *--#[ y5 : #case y5 * * #break *--#] y5 : *--#[ y6 : #case y6 * * #break *--#] y6 : *--#[ t1 : #case t1 * * #break *--#] t1 : *--#[ t2 : #case t2 * * #break *--#] t2 : *--#[ t3 : #case t3 * * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #endswitch #endprocedure *--#] special : *--#[ subint : #procedure subint id mncexp20*mncexp10 = 1 +ep*(3) +ep^2*(13) +ep^3*(55-22*z3) +ep^4*(229-33*z4-66*z3) +ep^5*(943-234*z5-99*z4-286*z3) +ep^6*(3853-530*z6-702*z5-429*z4-1210*z3+242*z3^2) +ep^7*(15655-2598*z7-1590*z6-3042*z5-1815*z4-5038*z3+726*z3*z4+726*z3^2); id mncexp11 = 1 +ep*(2) +ep^2*(8) +ep^3*(32-22*z3) +ep^4*(128-33*z4-44*z3) +ep^5*(512-234*z5-66*z4-176*z3) +ep^6*(2048-530*z6-468*z5-264*z4-704*z3+242*z3^2) +ep^7*(8192-2598*z7-1060*z6-1872*z5-1056*z4-2816*z3+726*z3*z4+484*z3^2); id mncexp20 = 1 +ep*(2) +ep^2*(8) +ep^3*(32-16*z3) +ep^4*(128-24*z4-32*z3) +ep^5*(512-192*z5-48*z4-128*z3) +ep^6*(2048-440*z6-384*z5-192*z4-512*z3+128*z3^2) +ep^7*(8192-2304*z7-880*z6-1536*z5-768*z4-2048*z3+384*z3*z4+256*z3^2); id mncexp10 = 1 +ep*(1) +ep^2*(3) +ep^3*(9-6*z3) +ep^4*(27-9*z4-6*z3) +ep^5*(81-42*z5-9*z4-18*z3) +ep^6*(243-90*z6-42*z5-27*z4-54*z3+18*z3^2) +ep^7*(729-294*z7-90*z6-126*z5-81*z4-162*z3+54*z3*z4+18*z3^2); * id mncG311 = (1-2*ep)*(6*z3+9*z4*ep+102*z5*ep^2+240*z6*ep^3-186*ep^3*z3^2 +1413*ep^4*z7-639*ep^4*z3*z4+288*ep^5*z6z2+25701/8*ep^5*z8 -486*ep^5*z4^2-5880*ep^5*z3*z5); * id mncF321 = (20*z5+50*z6*ep+68*z3^2*ep+450*z7*ep^2+204*z3*z4*ep^2+ep^3*zz5)*(1+2*ep+4*ep^2); #endprocedure *--#] subint : *--#[ sym1 : #procedure sym1(TOPO) #switch `TOPO' *--#[ la : #case la * #ifdef `LATRANS' *#if ( `LATRANS' == 0 ) *if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1,[P+p3].[P+p3],1, * [P-p1].[P-p1],1,[P-p2].[P-p2],1,[P-p3].[P-p3],1) > * count([P+p4].[P+p4],1,[P+p5].[P+p5],1,[P+p6].[P+p6],1, * [P-p4].[P-p4],1,[P-p5].[P-p5],1,[P-p6].[P-p6],1) ); * multiply,replace_( * [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] * ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] * ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); * multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3, * [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); * id p7 = -p7; * id p8 = -p8; *endif; *if ( count([P+p1].[P+p1],1,[P+p6].[P+p6],1, * [P-p1].[P-p1],1,[P-p6].[P-p6],1) > * count([P+p3].[P+p3],1,[P+p4].[P+p4],1, * [P-p3].[P-p3],1,[P-p4].[P-p4],1) ); * multiply,replace_( * [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] * ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] * ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] * ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] * ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q * ,[P+Q],[P-Q],[P-Q],[P+Q]); *endif; *#endif #else #ifdef `LASYM' #if ( `LASYM' == 1 ) multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); id p7 = -p7; id p8 = -p8; #else #if ( `LASYM' == 2 ) multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q]); #else #if ( `LASYM' == 3 ) multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q]); multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); id p7 = -p7; id p8 = -p8; #endif #endif #endif #else if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1,[P+p3].[P+p3],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1,[P-p3].[P-p3],1) > count([P+p4].[P+p4],1,[P+p5].[P+p5],1,[P+p6].[P+p6],1, [P-p4].[P-p4],1,[P-p5].[P-p5],1,[P-p6].[P-p6],1) ); multiply,replace_( [P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3, [P+p7],[P-p7],[P-p7],[P+p7],[P+p8],[P-p8],[P-p8],[P+p8]); id p7 = -p7; id p8 = -p8; endif; if ( count([P+p1].[P+p1],1,[P+p6].[P+p6],1, [P-p1].[P-p1],1,[P-p6].[P-p6],1) > count([P+p3].[P+p3],1,[P+p4].[P+p4],1, [P-p3].[P-p3],1,[P-p4].[P-p4],1) ); multiply,replace_( [P-p1],[P+p3],[P+p1],[P-p3],[P-p4],[P+p6],[P+p4],[P-p6] ,[P-p3],[P+p1],[P+p3],[P-p1],[P-p6],[P+p4],[P+p6],[P-p4] ,[P-p2],[P+p2],[P+p2],[P-p2],[P-p5],[P+p5],[P+p5],[P-p5] ,[P-p7],[P+p8],[P+p7],[P-p8],[P-p8],[P+p7],[P+p8],[P-p7] ,p1,-p3,p3,-p1,p4,-p6,p6,-p4,p2,-p2,p5,-p5,p7,-p8,p8,-p7,Q,-Q ,[P+Q],[P-Q],[P-Q],[P+Q]); endif; #endif #endif * #break *--#] la : *--#[ be : #case be * * #break *--#] be : *--#[ no : #case no * #ifdef `NOSPEC' #if ( `NOSPEC' == 1 ) if ( count([P+p2].[P+p2],1,[P-p2].[P-p2],1) == 0 ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); elseif( count([P+p7].[P+p7],1,[P-p7].[P-p7],1) == 0 ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p8],[P+p2],[P-p8],[P+p8],[P-p2],[P-p8],[P+p2] ,[P+p5],[P+p7],[P-p5],[P-p7],[P+p7],[P+p5],[P-p7],[P-p5]); multiply,replace_(p2,-p8,p8,-p2,p7,p5,p5,p7,p1,-p6,p6,-p1); elseif ( count([P+p8].[P+p8],1,[P-p8].[P-p8],1) == 0 ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); else; if ( count([P+p2].[P+p2],1,[P-p2].[P-p2],1) > count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); endif; if ( count([P+p7].[P+p7],1,[P-p7].[P-p7],1) > count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p8],[P+p2],[P-p8],[P+p8],[P-p2],[P-p8],[P+p2] ,[P+p5],[P+p7],[P-p5],[P-p7],[P+p7],[P+p5],[P-p7],[P-p5]); multiply,replace_(p2,-p8,p8,-p2,p7,p5,p5,p7,p1,-p6,p6,-p1); if ( count([P+p2].[P+p2],1,[P-p2].[P-p2],1) > count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); endif; elseif ( count([P+p8].[P+p8],1,[P-p8].[P-p8],1) > count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); endif; endif; #else #if ( `NOSPEC' == 0 ) if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1,[P+p3].[P+p3],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1,[P-p3].[P-p3],1) > count([P+p4].[P+p4],1,[P+p5].[P+p5],1,[P+p6].[P+p6],1, [P-p4].[P-p4],1,[P-p5].[P-p5],1,[P-p6].[P-p6],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); endif; if ( count([P+p2].[P+p2],1,[P+p3].[P+p3],1, [P-p2].[P-p2],1,[P-p3].[P-p3],1) > count([P+p4].[P+p4],1,[P+p7].[P+p7],1, [P-p4].[P-p4],1,[P-p7].[P-p7],1) ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); endif; if ( count([P+p2].[P+p2],1,[P+p1].[P+p1],1, [P-p2].[P-p2],1,[P-p1].[P-p1],1) > count([P+p6].[P+p6],1,[P+p8].[P+p8],1, [P-p6].[P-p6],1,[P-p8].[P-p8],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p8],[P+p2],[P-p8],[P+p8],[P-p2],[P-p8],[P+p2] ,[P+p5],[P+p7],[P-p5],[P-p7],[P+p7],[P+p5],[P-p7],[P-p5]); multiply,replace_(p2,-p8,p8,-p2,p7,p5,p5,p7,p1,-p6,p6,-p1); endif; #endif #endif #else if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1,[P+p3].[P+p3],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1,[P-p3].[P-p3],1) > count([P+p4].[P+p4],1,[P+p5].[P+p5],1,[P+p6].[P+p6],1, [P-p4].[P-p4],1,[P-p5].[P-p5],1,[P-p6].[P-p6],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p5],[P+p2],[P-p5],[P+p5],[P-p2],[P-p5],[P+p2] ,[P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3]); multiply,replace_(p1,-p6,p6,-p1,p2,-p5,p5,-p2,p3,-p4,p4,-p3,p7,p8,p8,p7 ,[P+p8],[P+p7],[P+p7],[P+p8],[P-p8],[P-p7],[P-p7],[P-p8]); endif; if ( count([P+p2].[P+p2],1,[P+p3].[P+p3],1, [P-p2].[P-p2],1,[P-p3].[P-p3],1) > count([P+p4].[P+p4],1,[P+p7].[P+p7],1, [P-p4].[P-p4],1,[P-p7].[P-p7],1) ); multiply,replace_([P-p3],[P+p4],[P+p3],[P-p4],[P+p4],[P-p3],[P-p4],[P+p3] ,[P-p2],[P+p7],[P+p2],[P-p7],[P+p7],[P-p2],[P-p7],[P+p2] ,[P+p5],[P+p8],[P-p5],[P-p8],[P+p8],[P+p5],[P-p8],[P-p5]); multiply,replace_(p2,-p7,p7,-p2,p8,p5,p5,p8,p3,-p4,p4,-p3); endif; if ( count([P+p2].[P+p2],1,[P+p1].[P+p1],1, [P-p2].[P-p2],1,[P-p1].[P-p1],1) > count([P+p6].[P+p6],1,[P+p8].[P+p8],1, [P-p6].[P-p6],1,[P-p8].[P-p8],1) ); multiply,replace_([P-p1],[P+p6],[P+p1],[P-p6],[P+p6],[P-p1],[P-p6],[P+p1] ,[P-p2],[P+p8],[P+p2],[P-p8],[P+p8],[P-p2],[P-p8],[P+p2] ,[P+p5],[P+p7],[P-p5],[P-p7],[P+p7],[P+p5],[P-p7],[P-p5]); multiply,replace_(p2,-p8,p8,-p2,p7,p5,p5,p7,p1,-p6,p6,-p1); endif; #endif * #break *--#] no : *--#[ fa : #case fa * * #break *--#] fa : *--#[ bu : #case bu * * #break *--#] bu : *--#[ o1 : #case o1 * *if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) > * count([P+p7].[P+p7],1,[P-p7].[P-p7],1) ); * multiply,replace_([P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] * p6,p7,p7,p6); *endif; *if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1, * [P-p1].[P-p1],1,[P-p2].[P-p2],1) > * count([P+p3].[P+p3],1,[P+p4].[P+p4],1, * [P-p3].[P-p3],1,[P-p4].[P-p4],1) ); * multiply,replace_([P-p1],[P+p4],[P+p1],[P-p4],[P+p4],[P-p1],[P-p4],[P+p1] * ,[P-p2],[P+p3],[P+p2],[P-p3],[P+p3],[P-p2],[P-p3],[P+p2] * ,[P-p5],[P+p5],[P+p5],[P-p5],[P-p6],[P+p6],[P+p6],[P-p6] * ,[P-p7],[P+p7],[P+p7],[P-p7]); * multiply,replace_(p1,-p4,p4,-p1,p2,-p3,p3,-p2); * id p5 = -p5; * id p6 = -p6; * id p7 = -p7; *endif; * #break *--#] o1 : *--#[ o2 : #case o2 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) > count([P+p7].[P+p7],1,[P-p7].[P-p7],1) ); multiply,replace_([P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] p6,p7,p7,p6); endif; * #break *--#] o2 : *--#[ o3 : #case o3 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) > count([P+p7].[P+p7],1,[P-p7].[P-p7],1) ); multiply,replace_([P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] ,p6,p7,p7,p6); endif; if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1) > count([P+p3].[P+p3],1,[P+p4].[P+p4],1, [P-p3].[P-p3],1,[P-p4].[P-p4],1) ); multiply,replace_([P-p1],[P+p4],[P+p1],[P-p4],[P+p4],[P-p1],[P-p4],[P+p1] ,[P-p2],[P+p3],[P+p2],[P-p3],[P+p3],[P-p2],[P-p3],[P+p2] ,[P-p5],[P+p5],[P+p5],[P-p5]); multiply,replace_(p1,-p4,p4,-p1,p2,-p3,p3,-p2); id p5 = -p5; endif; * #break *--#] o3 : *--#[ o4 : #case o4 * if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1) > count([P+p4].[P+p4],1,[P+p3].[P+p3],1, [P-p4].[P-p4],1,[P-p3].[P-p3],1) ); multiply,replace_([P-p1],[P+p4],[P+p1],[P-p4],[P+p4],[P-p1],[P-p4],[P+p1] ,[P-p2],[P+p3],[P+p2],[P-p3],[P+p3],[P-p2],[P-p3],[P+p2] ,[P-p5],[P+p5],[P+p5],[P-p5]); multiply,replace_(p1,-p4,p4,-p1,p2,-p3,p3,-p2); id p5 = -p5; endif; * #break *--#] o4 : *--#[ o5 : #case o5 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) > count([P+p7].[P+p7],1,[P-p7].[P-p7],1) ); multiply,replace_([P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] p6,p7,p7,p6); endif; * #break *--#] o5 : *--#[ o6 : #case o6 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) > count([P+p7].[P+p7],1,[P-p7].[P-p7],1) ); multiply,replace_([P+p6],[P+p7],[P+p7],[P+p6],[P-p6],[P-p7],[P-p7],[P-p6] ,p6,p7,p7,p6); endif; if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1) > count([P+p3].[P+p3],1,[P+p4].[P+p4],1, [P-p3].[P-p3],1,[P-p4].[P-p4],1) ); multiply,replace_([P-p1],[P+p4],[P+p1],[P-p4],[P+p4],[P-p1],[P-p4],[P+p1] ,[P-p2],[P+p3],[P+p2],[P-p3],[P+p3],[P-p2],[P-p3],[P+p2] ,[P-p5],[P+p5],[P+p5],[P-p5]); multiply,replace_(p1,-p4,p4,-p1,p2,-p3,p3,-p2); id p5 = -p5; endif; * #break *--#] o6 : *--#[ y1 : #case y1 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4); endif; * #break *--#] y1 : *--#[ y2 : #case y2 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4); endif; * #break *--#] y2 : *--#[ y3 : #case y3 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; * #break *--#] y3 : *--#[ y4 : #case y4 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4); endif; * #break *--#] y4 : *--#[ y5 : #case y5 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4); endif; if ( count([P+p2].[P+p2],1,[P-p2].[P-p2],1) < count([P+p1].[P+p1],1,[P-p1].[P-p1],1) ); multiply,replace_([P+p2],[P+p1],[P+p1],[P+p2],[P-p2],[P-p1],[P-p1],[P-p2] p2,p1,p1,p2); endif; * #break *--#] y5 : *--#[ y6 : #case y6 * if ( count([P+p6].[P+p6],1,[P-p6].[P-p6],1) < count([P+p5].[P+p5],1,[P-p5].[P-p5],1) ); multiply,replace_([P+p6],[P+p5],[P+p5],[P+p6],[P-p6],[P-p5],[P-p5],[P-p6] p6,p5,p5,p6); endif; if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4); endif; * #break *--#] y6 : *--#[ t1 : #case t1 * if ( count([P+p1].[P+p1],1,[P+p2].[P+p2],1, [P-p1].[P-p1],1,[P-p2].[P-p2],1) > count([P+p4].[P+p4],1,[P+p3].[P+p3],1, [P-p4].[P-p4],1,[P-p3].[P-p3],1) ); multiply,replace_([P-p1],[P+p4],[P+p1],[P-p4],[P+p4],[P-p1],[P-p4],[P+p1] ,[P-p2],[P+p3],[P+p2],[P-p3],[P+p3],[P-p2],[P-p3],[P+p2] ,[P-p5],[P+p5],[P+p5],[P-p5]); multiply,replace_(p1,-p4,p4,-p1,p2,-p3,p3,-p2,mnce1,mnce4,mnce4,mnce1,mnce2,mnce3,mnce3,mnce2); id p5 = -p5; endif; * #break *--#] t1 : *--#[ t2 : #case t2 * if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4,mnce3,mnce4,mnce4,mnce3); endif; * #break *--#] t2 : *--#[ t3 : #case t3 * if ( count([P+p4].[P+p4],1,[P-p4].[P-p4],1) < count([P+p3].[P+p3],1,[P-p3].[P-p3],1) ); multiply,replace_([P+p4],[P+p3],[P+p3],[P+p4],[P-p4],[P-p3],[P-p3],[P-p4] p4,p3,p3,p4,mnce3,mnce4,mnce4,mnce3); endif; if ( count([P+p2].[P+p2],1,[P-p2].[P-p2],1) < count([P+p1].[P+p1],1,[P-p1].[P-p1],1) ); multiply,replace_([P+p2],[P+p1],[P+p1],[P+p2],[P-p2],[P-p1],[P-p1],[P-p2] p2,p1,p1,p2,mnce1,mnce2,mnce2,mnce1); endif; * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #endswitch #endprocedure *--#] sym1 : *--#[ sym2 : #procedure sym2(TOPO) #switch `TOPO' *--#[ la : #case la * #ifdef `LATRANS' #if ( `LATRANS' != 1 ) #if ( `LATRANS' != 2 ) if ( count(p7.p7,1) < count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p6.p6,1) == count(p4.p4,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; #endif #endif #else if ( count(p7.p7,1) < count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; #endif * #break *--#] la : *--#[ be : #case be * #ifndef `BEPATH' if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #else #if ( `BEPATH' == 0 ) if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #endif #if ( `BEPATH' == 7 ) if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #endif #if ( `BEPATH' == 8 ) if ( count(p6.p6,1) < count(p7.p7,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p6.p6,1) == count(p7.p7,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p5.p5,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p5,p5,p4,p6,p7,p7,p6,p8,-p8); endif; endif; #endif #endif * #break *--#] be : *--#[ no : #case no * #ifndef `NOSPEC' if ( count(p7.p7,1) < count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; #else #if ( `NOSPEC' != 2 ) if ( count(p7.p7,1) < count(p8.p8,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p7.p7,1) == count(p8.p8,1) ); if ( count(p1.p1,1) < count(p3.p3,1) ); multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); elseif ( count(p1.p1,1) == count(p3.p3,1) ); if ( count(p6.p6,1) < count(p4.p4,1) ) multiply replace_(p1,p3,p3,p1,p4,p6,p6,p4,p7,p8,p8,p7); endif; endif; #endif #endif * #break *--#] no : *--#[ fa : #case fa * * #break *--#] fa : *--#[ bu : #case bu * * #break *--#] bu : *--#[ o1 : #case o1 * * #break *--#] o1 : *--#[ o2 : #case o2 * * #break *--#] o2 : *--#[ o3 : #case o3 * * #break *--#] o3 : *--#[ o4 : #case o4 * * #break *--#] o4 : *--#[ o5 : #case o5 * * #break *--#] o5 : *--#[ o6 : #case o6 * * #break *--#] o6 : *--#[ y1 : #case y1 * * #break *--#] y1 : *--#[ y2 : #case y2 * * #break *--#] y2 : *--#[ y3 : #case y3 * * #break *--#] y3 : *--#[ y4 : #case y4 * * #break *--#] y4 : *--#[ y5 : #case y5 * * #break *--#] y5 : *--#[ y6 : #case y6 * * #break *--#] y6 : *--#[ t1 : #case t1 * * #break *--#] t1 : *--#[ t2 : #case t2 * * #break *--#] t2 : *--#[ t3 : #case t3 * * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #endswitch #endprocedure *--#] sym2 : *--#[ tabtwo : #procedure tabtwo(n) Ctable,check,strict,mncTabTwo(-18:20); * Program for the procedure (positive values. Negative to be added) * #- * CF num,den,den1,G,Gamma,InvGamma; * S ep,mncexp11,mncG311,G00,G01,mncG10,mncG20,n1,n2,n3,n4,n,z3,z4,z5,z6,x,x1,x2; * Format nospaces; * Format 80; * .global * G F1 = mncG311; * G [H1] = mncG311; * .store * #do i = 2,20 * G F`i' = -F{`i'-1}*num(`i'+ep-2+2*ep)*den(`i'+ep-1+ep) * -num(3-3*ep-2*(`i'+ep))*den(`i'+ep-1+ep)*G(1,`i',ep,0,0)*G(1,`i',ep+ep,0,0); * G [H{-`i'+2}] = -[H{-`i'+3}]*den(({-`i'+3})+ep-2+2*ep)*num(({-`i'+3})+ep-1+ep) * -num(3-3*ep-2*(({-`i'+3})+ep))*den(({-`i'+3})+ep-2+2*ep)*G(1,({-`i'+3}),ep,0,0)*G(1,({-`i'+3}),ep+ep,0,0); * * id G(n1?,n2?,n?,n3?,n4?) = Gamma(n1+n2+n-n4-2+ep)*Gamma(2-ep-n1+n3-n4) * *Gamma(2-ep-n2-n+n4)*InvGamma(n1)*InvGamma(n2+n)*InvGamma(4-2*ep-n1-n2-n+n3) * *InvGamma(ep+n)*InvGamma(1-ep)*InvGamma(1-ep-n)*Gamma(2-2*ep-n)*Gamma(1+n)*G(n); * .sort * id G(ep) = mncG10/ep; * id G(2*ep) = mncG20/ep; * id Gamma(x?number_) = fac_(x-1); * id InvGamma(x?number_) = invfac_(x-1); * SplitArg,((ep)),Gamma,InvGamma; * id Gamma(x?) = Gamma(0,x); * id InvGamma(x?) = InvGamma(0,x); * repeat id Gamma(x?{>1},x1?) = Gamma(x-1,x1)*num(x-1+x1); * repeat id InvGamma(x?{>1},x1?) = InvGamma(x-1,x1)*den(x-1+x1); * repeat id Gamma(x?neg0_,x1?) = Gamma(x+1,x1)*den(x+x1); * repeat id InvGamma(x?neg0_,x1?) = InvGamma(x+1,x1)*num(x+x1); * id Gamma(x1?,x2?) = Gamma(x1+x2); * id InvGamma(x1?,x2?) = InvGamma(x1+x2); * id Gamma(x?)*InvGamma(x?) = 1; * id num(x?)*den(x?) = 1; * .sort * splitarg,den; * id den(x?) = 1/x; * id mncG10*mncG20 = mncexp11*(1+ep+3*ep^2+9*ep^3+27*ep^4+81*ep^5 * +243*ep^6+729*ep^7+2187*ep^8)/3; * id ep^{4+`CUTOFF'} = 0; * .sort * #do i = 1,1 * id,once,den(x1?,x2?)=den1(x1,x2); * repeat; * id den1(x1?,x2?) = 1/x1-x2/x1*den1(x1,x2); * id ep^{4+`CUTOFF'}=0; * endrepeat; * if ( count(den,1) ) redefine i "0"; * .sort * #enddo * #do i = 1,1 * id,once,num(x?) = x; * id,once,num(x?) = x; * id ep^{4+`CUTOFF'}=0; * if ( count(num,1) ) redefine i "0"; * .sort * #enddo * Print +f +s; * .store * #enddo * .end * Fill mncTabTwo(1)= mncG311; Fill mncTabTwo(2)= +mncG311*(-3*ep+6*ep^2-12*ep^3+24*ep^4-48*ep^5) +mncexp11*(1/3*ep^-2-2*ep^-1+28*ep-132*ep^2+436*ep^3-1236*ep^4+3220*ep^5) ; Fill mncTabTwo(0)= +mncG311*(2*ep+6*ep^2+18*ep^3+54*ep^4+162*ep^5) +mncexp11*(-5/3+1/3*ep^-2-1/3*ep^-1-7*ep-27*ep^2-99*ep^3-351*ep^4-1215* ep^5); Fill mncTabTwo(3)= +mncG311*(3/2*ep-3*ep^3+9*ep^4-21*ep^5) +mncexp11*(23/6-1/6*ep^-2+2/3*ep^-1-373/12*ep+2429/24*ep^2-10693/48*ep^3+ 36389/96*ep^4-92869/192*ep^5); Fill mncTabTwo(-1)= +mncG311*(-ep-5/2*ep^2-27/4*ep^3-153/8*ep^4-891/16*ep^5) +mncexp11*(9/8-1/6*ep^-2+1/4*ep^-1+203/48*ep+477/32*ep^2+3261/64*ep^3+ 21897/128*ep^4+145233/256*ep^5); Fill mncTabTwo(4)= +mncG311*(-ep-5/6*ep^2+23/9*ep^3-127/27*ep^4+659/81*ep^5) +mncexp11*(-227/81+1/9*ep^-2-19/54*ep^-1+8801/486*ep-148589/2916*ep^2+ 1631399/17496*ep^3-11238701/104976*ep^4+6284423/629856*ep^5); Fill mncTabTwo(-2)= +mncG311*(2/3*ep+5/3*ep^2+9/2*ep^3+51/4*ep^4+297/8*ep^5) +mncexp11*(-233/324+1/9*ep^-2-1/6*ep^-1-5251/1944*ep-111641/11664*ep^2- 2301799/69984*ep^3-46563269/419904*ep^4-929476003/2519424*ep^5); Fill mncTabTwo(5)= +mncG311*(3/4*ep+ep^2-43/24*ep^3+361/144*ep^4-3307/864*ep^5) +mncexp11*(995/432-1/12*ep^-2+2/9*ep^-1-65743/5184*ep+1861109/62208*ep^2- 33766519/746496*ep^3+329054213/8957952*ep^4+4816044305/107495424*ep^5) ; Fill mncTabTwo(-3)= +mncG311*(-1/2*ep-31/24*ep^2-337/96*ep^3-1273/128*ep^4-14811/512*ep^5) +mncexp11*(955/1728-1/12*ep^-2+17/144*ep^-1+1619/768*ep+621317/82944*ep^2 +25618703/995328*ep^3+1035838169/11943936*ep^4+41328135875/143327232* ep^5); Fill mncTabTwo(6)= +mncG311*(-3/5*ep-101/100*ep^2+464/375*ep^3-64147/45000*ep^4+2872889/ 1350000*ep^5) +mncexp11*(-12799/6750+1/15*ep^-2-139/900*ep^-1+7720709/810000*ep- 999124577/48600000*ep^2+76898788103/2916000000*ep^3-1850892042209/ 174960000000*ep^4-576687328364017/10497600000000*ep^5); Fill mncTabTwo(-4)= +mncG311*(2/5*ep+161/150*ep^2+8807/3000*ep^3+498809/60000*ep^4+9660861/ 400000*ep^5) +mncexp11*(-24007/54000+1/15*ep^-2-79/900*ep^-1-1857983/1080000*ep- 398148641/64800000*ep^2-82309007731/3888000000*ep^3-16669922470277/ 233280000000*ep^4-3329823690214231/13996800000000*ep^5); Fill mncTabTwo(7)= +mncG311*(1/2*ep+39/40*ep^2-383/450*ep^3+15353/18000*ep^4-2178833/1620000 *ep^5) +mncexp11*(13183/8100-1/18*ep^-2+41/360*ep^-1-2437711/324000*ep+856633049/ 58320000*ep^2-19656659797/1166400000*ep^3+462968011433/209952000000* ep^4+213808872986963/4199040000000*ep^5); Fill mncTabTwo(-5)= +mncG311*(-1/3*ep-167/180*ep^2-1021/400*ep^3-520243/72000*ep^4-3354949/ 160000*ep^5) +mncexp11*(24389/64800-1/18*ep^-2+73/1080*ep^-1+1917641/1296000*ep+ 15283541/2880000*ep^2+9491140693/518400000*ep^3+1923131643131/ 31104000000*ep^4+384225650313793/1866240000000*ep^5); Fill mncTabTwo(8)= +mncG311*(-3/7*ep-909/980*ep^2+118681/205800*ep^3-3825509/7203000*ep^4+ 266322173/283618125*ep^5) +mncexp11*(-2620213/1852200+1/21*ep^-2-257/2940*ep^-1+266505851/43218000* ep-1832447625539/163364040000*ep^2+254648720594909/22870965600000*ep^3 +1485793353321337/588110544000000*ep^4-74871116765042219/ 1680315840000000*ep^5); Fill mncTabTwo(-6)= +mncG311*(2/7*ep+403/490*ep^2+1404743/617400*ep^3+185526029/28812000*ep^4 +225903895183/12101040000*ep^5) +mncexp11*(-172243/529200+1/21*ep^-2-157/2940*ep^-1-288228947/222264000* ep-113013415303/24202080000*ep^2-1476575820814739/91483862400000*ep^3- 2096742084335385931/38423222208000000*ep^4-2934778053976287551831/ 16137753327360000000*ep^5); Fill mncTabTwo(9)= +mncG311*(3/8*ep+123/140*ep^2-88531/235200*ep^3+11279761/32928000*ep^4- 29379263419/41489280000*ep^5) +mncexp11*(5316251/4233600-1/24*ep^-2+29/420*ep^-1-6129986999/1185408000* ep+26135084020949/2987228160000*ep^2-2198751676783421/278807961600000* ep^3-9049338086462160307/2107788189696000000*ep^4+ 3347390863464091443551/84311527587840000000*ep^5); Fill mncTabTwo(-7)= +mncG311*(-1/4*ep-831/1120*ep^2-5823947/2822400*ep^3-4614621371/790272000 *ep^4-3742787591203/221276160000*ep^5) +mncexp11*(4876579/16934400-1/24*ep^-2+289/6720*ep^-1+2364251101/ 2032128000*ep+16751468663557/3982970880000*ep^2+48704651163860173/ 3345695539200000*ep^3+19772090889458665687/401483464704000000*ep^4+ 387569886723449072439793/2360722772459520000000*ep^5); Fill mncTabTwo(10)= +mncG311*(-1/3*ep-6289/7560*ep^2+539599/2381400*ep^3-1376540567/ 6001128000*ep^4+4281462726893/7561421280000*ep^5) +mncexp11*(-6029953/5358150+1/27*ep^-2-3791/68040*ep^-1+478951433329/ 108020304000*ep-1922783114144729/272211166080000*ep^2+ 3804584745942884587/685972138521600000*ep^3+9031012208990775504223/ 1728649789074432000000*ep^4-3077274151097758121796053/ 88901989152399360000000*ep^5); Fill mncTabTwo(-8)= +mncG311*(2/9*ep+2563/3780*ep^2+74297/39200*ep^3+1589543467/296352000* ep^4+429426251777/27659520000*ep^5) +mncexp11*(-44217371/171460800+1/27*ep^-2-797/22680*ep^-1-65104918307/ 61725888000*ep-4166135527435991/1088844664320000*ep^2- 36393341868100266377/2743888554086400000*ep^3-44361152093496345716429/ 987799879471104000000*ep^4-2610255491671542275411969453/ 17424789873870274560000000*ep^5); Fill mncTabTwo(11)= +mncG311*(3/10*ep+265/336*ep^2-296629/2646000*ep^3+1072778423/6667920000* ep^4-3973655851349/8401579200000*ep^5) +mncexp11*(12161273/11907000-1/30*ep^-2+691/15120*ep^-1-462440372497/ 120022560000*ep+1749242338593257/302456851200000*ep^2- 3135287147784104059/762191265024000000*ep^3-10710473845928746839343/ 1920721987860480000000*ep^4+856525143761021766528347/ 27658396625190912000000*ep^5); Fill mncTabTwo(-9)= +mncG311*(-1/5*ep-1577/2520*ep^2-18605911/10584000*ep^3-4915139029/ 987840000*ep^4-11942979491767/829785600000*ep^5) +mncexp11*(44567623/190512000-1/30*ep^-2+439/15120*ep^-1+22148701837/ 22861440000*ep+1422368328652361/403275801600000*ep^2+ 12441442444649011943/1016255020032000000*ep^3+15174329693740147311923/ 365851807211520000000*ep^4+178633303102066863452988487/ 1290725175842242560000000*ep^5); Fill mncTabTwo(12)= +mncG311*(-3/11*ep-76151/101640*ep^2+16227353/704365200*ep^3- 1170282232129/9762501672000*ep^4+11038066212742747/27061654634784000* ep^5) +mncexp11*(-1183461847/1267857360+1/33*ep^-2-34729/914760*ep^-1+ 119387071076071/35145006019200*ep-188324238814636153/38968782674088960 *ep^2+402330866351205405392621/135026831965718246400000*ep^3+ 20960546661315088053937292563/3742943782089709790208000000*ep^4- 407315247757334708604817080270589/14822057377075250769223680000000* ep^5); Fill mncTabTwo(-10)= +mncG311*(2/11*ep+88751/152460*ep^2+2314681471/1408730400*ep^3+ 20183672396141/4338889632000*ep^4+35944347812751227/2672756013312000* ep^5) +mncexp11*(-216938023/1014285888+1/33*ep^-2-22129/914760*ep^-1- 5997222836107/6694286860800*ep-4249965245766403333/1298959422469632000 *ep^2-2047223673498737416560637/180035775954290995200000*ep^3- 3926516443307037922320720989/101848810396998905856000000*ep^4- 17804503123418817541281019715939209/138339202186035673846087680000000* ep^5); Fill mncTabTwo(13)= +mncG311*(1/4*ep+79091/110880*ep^2+9086983/192099600*ep^3+1024979114869/ 10650001824000*ep^4-10626873196322701/29521805056128000*ep^5) +mncexp11*(118985473/138311712-1/36*ep^-2+31789/997920*ep^-1- 115845953484031/38340006566400*ep+173427037149010237/42511399280824320 *ep^2-331178083656667835129321/147301998508056268800000*ep^3- 22687560805104107070383482903/4083211398643319771136000000*ep^4+ 401333972550944203703267289165529/16169517138627546293698560000000* ep^5); Fill mncTabTwo(-11)= +mncG311*(-1/6*ep-90641/166320*ep^2-2374960501/1536796800*ep^3- 20716170358151/4733334144000*ep^4-36874066739538689/2915733832704000* ep^5) +mncexp11*(1090841057/5532468480-1/36*ep^-2+20239/997920*ep^-1+ 6100472680597/7302858393600*ep+4337250881169876763/1417046642694144000 *ep^2+2091812554174566396199387/196402664677408358400000*ep^3+ 28099974612715257299753689013/777754552122537099264000000*ep^4+ 18208178890869906124690531814254399/150915493293857098741186560000000* ep^5); Fill mncTabTwo(14)= +mncG311*(-3/13*ep-1062833/1561560*ep^2-29138373491/281361880800*ep^3- 2124723707664793/25347891841272000*ep^4+73751603661280808479/ 228359157598019448000*ep^5) +mncexp11*(-80726970169/101290277088+1/39*ep^-2-378607/14054040*ep^-1+ 19057983628915939/7019416202198400*ep-917828713158387269051/ 263069749552918404096*ep^2+96982930360467673021945950803/ 59249884343056047562521600000*ep^3+ 114131780874996359692788229618787977/ 21351288321863677299630283776000000*ep^4-24611329124168792678633270961\ 450263500843/1099164322809542107384967008788480000000*ep^5); Fill mncTabTwo(-12)= +mncG311*(2/13*ep+1201433/2342340*ep^2+411081820769/281361880800*ep^3+ 139900073042416541/33797189121696000*ep^4+3235780236613740838367/ 270647890486541568000*ep^5) +mncexp11*(-185130132773/1012902770880+1/39*ep^-2-240007/14054040*ep^-1- 13602195770972309/17381411548300800*ep-126089727300984118341343/ 43844958258819734016000*ep^2-791462137880746814741946553891/ 78999845790741396750028800000*ep^3- 138299755224633768740036057910769817/ 4066912061307367104691482624000000*ep^4-116546789056365550839812968920\ 0474287881183/10258867012889059668926358748692480000000*ep^5); Fill mncTabTwo(15)= +mncG311*(3/14*ep+22337/34320*ep^2+45158205011/303005102400*ep^3+ 2149324394051113/27297729675216000*ep^4-10300069081169926609/ 35132178092002992000*ep^5) +mncexp11*(31163414417/41954552640-1/42*ep^-2+49561/2162160*ep^-1- 34465390136310241/14038832404396800*ep+608514247855190980417/ 202361345809937233920*ep^2-78326389799039898454344465203/ 63807567754060358913484800000*ep^3- 119222530919186240574810803468552617/ 22993695115853190938063382528000000*ep^4+16918671692489301587379190226\ 2969896673741/8286007971948855886440520527790080000000*ep^5); Fill mncTabTwo(-13)= +mncG311*(-1/7*ep-1223213/2522520*ep^2-420364841549/303005102400*ep^3- 143123472016076681/36396972900288000*ep^4-3309023224605071244451/ 291466958985506304000*ep^5) +mncexp11*(37176314653/218163673728-1/42*ep^-2+218227/15135120*ep^-1+ 96615712133749103/131029102441036800*ep+128330609845270447137163/ 47217647355652021248000*ep^2+806437143502720334013825585391/ 85076757005413811884646400000*ep^3+ 986930122674758604844270942214535899/ 30658260154470921250751176704000000*ep^4+11884880737637906937705614236\ 87863548884603/11048010629265141181920694037053440000000*ep^5); Fill mncTabTwo(16)= +mncG311*(-1/5*ep-224737/360360*ep^2-60421943501/324648324000*ep^3- 286914394556807/3655945938645000*ep^4+707083453914069051637/ 2634913356900224400000*ep^5) +mncexp11*(-156220820947/224756532000+1/45*ep^-2-63551/3243240*ep^-1+ 1177467131554197689/526456215164880000*ep-496032103090787825106767/ 189713761696816156800000*ep^2+59696467372353531589643837207/ 68365251165064670264448000000*ep^3+ 121394320073702580700255380694728037/ 24636101909842704576496481280000000*ep^4-94686498462048418360112660415\ 5908959607/50730661052748097263921554251776000000*ep^5); Fill mncTabTwo(-14)= +mncG311*(2/15*ep+248761/540540*ep^2+429255677789/324648324000*ep^3+ 146222449738298777/38996756678880000*ep^4+5632466413532564737717/ 520476712474118400000*ep^5) +mncexp11*(-932246700037/5843669832000+1/45*ep^-2-39527/3243240*ep^-1- 489372048271962043/701941620219840000*ep-651802463411113795203911/ 252951682262421542400000*ep^2-820053293102922261930228979519/ 91153668220086227019264000000*ep^3-10041349198402439495340674687286569\ 39/32848135879790272768661975040000000*ep^4-24192564448973821556926700\ 1211285371651407/2367430849128244538983005865082880000000*ep^5); Fill mncTabTwo(17)= +mncG311*(3/16*ep+143839/240240*ep^2+74998145141/346291545600*ep^3+ 10157699489945551/124789621372416000*ep^4-11109177020325759959659/ 44969187957763829760000*ep^5) +mncexp11*(313260416543/479480601600-1/48*ep^-2+36341/2162160*ep^-1- 9197044416984034249/4492426369406976000*ep+7406071119949915594782149/ 3237781532958995742720000*ep^2-1469249356813091246078334302257/ 2333533906434207411693158400000*ep^3-797270090493093475450300514598718\ 1563/1681824557045261965755493122048000000*ep^4+2972643711880596955428\ 548261002709999678321/173160656393380171994185571846062080000000*ep^5) ; Fill mncTabTwo(-15)= +mncG311*(-1/8*ep-2526649/5765760*ep^2-1751152491841/1385166182400*ep^3- 1193660590417619069/332772323659776000*ep^4-827373224763913481795441/ 79945223036024586240000*ep^5) +mncexp11*(3739701326971/24932991283200-1/48*ep^-2+356231/34594560*ep^-1+ 3965025206576904973/5989901825875968000*ep+10591912614360039408002357/ 4317042043945327656960000*ep^2+26680062946841205007366078530809/ 3111378541912276548924211200000*ep^3+653699386196302324294802766394304\ 27321/2242432742727015954340657496064000000*ep^4+157538586920865297912\ 107944280419897049677781/1616166126338214938612398670563246080000000* ep^5); Fill mncTabTwo(18)= +mncG311*(-3/17*ep-39980063/69429360*ep^2-25705837121579/106333147720800* ep^3-112548770977925599321/1302819245830694592000*ep^4+ 1822169302005422448620120213/7981227038268334753943040000*ep^5) +mncexp11*(-22675805832983/36807628057200+1/51*ep^-2-9028897/624864240* ep^-1+44198387591377070187407/23450746424952502656000*ep- 578494640885671113688726388969/287324173377660051141949440000*ep^2+ 1456597704750079615919598045938433029/35203647300247015850034386067456\ 00000*ep^3+193780237873382747171609829187282247102069167/4313235355979\ 7849747842530635112710144000000*ep^4-119710830445677495896312191595144\ 8081262574504948253/75495421082785372370643738221250478819246080000000 *ep^5); Fill mncTabTwo(-16)= +mncG311*(2/17*ep+43583663/104144040*ep^2+515566734862579/425332590883200 *ep^3+5977673269733702987887/1737092327774259456000*ep^4+ 70417405127516025363740617931/7094424034016297559060480000*ep^5) +mncexp11*(-1083095292344179/7655986635897600+1/51*ep^-2-5425297/ 624864240*ep^-1-19704672113639282688689/31267661899936670208000*ep- 897165022393987602347339676917/383098897836880068189265920000*ep^2- 38455320697994403420164576387353627573/4693819640032935446671251475660\ 800000*ep^3-1602536735084424867222629649637192505385498689/57509804746\ 397132997123374180150280192000000*ep^4-6567496527701368533764906293214\ 3697826802872103545033/70462393010599680879267489006500446897963008000\ 0000*ep^5); Fill mncTabTwo(19)= +mncG311*(1/6*ep+4531207/8168160*ep^2+29571569291879/112588038763200*ep^3 +42623784065842151507/459818557352009856000*ep^4- 1787534548690418948769527813/8450710981695883857116160000*ep^5) +mncexp11*(22719045556433/38972782648800-1/54*ep^-2+914233/73513440*ep^-1 -4804676536172077713623/2758911344112059136000*ep+ 541823298035903404576139231369/304225595341051818856181760000*ep^2- 12086502741765690259876029009105109/ 46017839608166033790894622310400000*ep^3-19684576696521668628852371900\ 5383627211644367/45669550828021252674186208907766398976000000*ep^4+ 130504561227610004530905377458088447792687242069717/888181424503357322\ 0075733908382409272852480000000*ep^5); Fill mncTabTwo(-17)= +mncG311*(-1/9*ep-44184263/110270160*ep^2-58300111178131/50039128339200* ep^3-6087107242057502911687/1839274229408039424000*ep^4- 7965402759155341870449753259/834638121648976183418880000*ep^5) +mncexp11*(1085239500610379/8106338790950400-1/54*ep^-2+4824697/661620960 *ep^-1+6642238931730812316163/11035645376448236544000*ep+ 101074910958324854680006747813/45070458569044713904619520000*ep^2+ 4336657379681819493336208121320064197/ 552214075297992405490735467724800000*ep^3+1808024150608932441852882391\ 70320987997716721/6765859381929074470249808727076503552000000*ep^4+ 7411520095770074594500963029965754436253284019310937/82896932953646683\ 387373516478235819879956480000000*ep^5); Fill mncTabTwo(20)= +mncG311*(-3/19*ep-263043559/491450960*ep^2-3004004582171291/ 10725574414955400*ep^3-332271047749382628169753/ 3329111900703959802432000*ep^4+228151877237646724755888267922313/ 1162488722837010906817859258880000*ep^5) +mncexp11*(-16426028172582961/29701590687568800+1/57*ep^-2-47346521/ 4423058640*ep^-1+32289602952180473422990237/19974671404223758814592000 *ep-66216776579743878776789051647946609/ 41849594022132392645442933319680000*ep^2+41088623829764066696503860541\ 7159731323917/3247424709124298780952610927132535193600000*ep^3+ 9270629318124108364608222065210344197161804317993807/22679289343329026\ 14268512609233468981024718848000000*ep^4-18108236854153771424483761606\ 462047831964626003623970883391/132320045744718870126882099673117514228\ 9061964677120000000*ep^5); Fill mncTabTwo(-18)= +mncG311*(2/19*ep+283463959/737176440*ep^2+577794401298163817/ 514827571917859200*ep^3+42478083332150062328516173/ 13316447602815839209728000*ep^4+28509018039644063654865993872621593/ 3099969927565362418180958023680000*ep^5) +mncexp11*(-392335219349419459/3088965431507155200+1/57*ep^-2-26926121/ 4423058640*ep^-1-414252621011788053328688873/ 719088170552055317325312000*ep-120064470375697425044084448311403037/ 55799458696176523527257244426240000*ep^2-97966132225971532793728441924\ 688581206532487/12989698836497195123810443708530140774400000*ep^3- 77637670305712193604029012713368306087788530714014769/3023905245777203\ 485691350145644625308032958464000000*ep^4-6048530823964295742957717189\ 0583038558594616332886226188124507/70394264336190438907501277026098517\ 5697780965208227840000000*ep^5); #endprocedure *--#] tabtwo : *--#[ transfor : #procedure transfor(TOPOL) * * This file contains topology transformations. * The topology assignments of Paulo (lili or convert) sometimes * give a diagram a topology that is too complicated, because he * could not take the 4 and 5 point vertices into account properly. * This file also makes some diagrams zero of which it can be * easily seen that this must be the case. * #switch `TOPOL' *--#[ la : #case la * if ( count(mncx1,1) == 0 ); multiply,replace_( p8,-p5,[P+p8],[P-p5],[P-p8],[P+p5] ,p7,-p7,[P+p7],[P-p7],[P-p7],[P+p7] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,p2,[P+p3],[P+p2],[P-p3],[P-p2] ,p4,p3,[P+p4],[P+p3],[P-p4],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ); multiply,replace_(mncx8,mncx5,mncx2,mncx1,mncx3,mncx2,mncx4,mncx3,mncx5,mncx4); redefine TOPO "o2"; Print,"Topology changed from la to o2"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p1,-p5,[P+p1],[P-p5],[P-p1],[P+p5] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4] ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] ,p5,-p2,[P+p5],[P-p2],[P-p5],[P+p2] ,p6,-p1,[P+p6],[P-p1],[P-p6],[P+p1] ,p7,p6,[P+p7],[P+p6],[P-p7],[P-p6] ,p8,p7,[P+p8],[P+p7],[P-p8],[P-p7] ); multiply,replace_(mncx1,mncx5,mncx3,mncx4,mncx4,mncx3,mncx5,mncx2,mncx6,mncx1,mncx7,mncx6,mncx8,mncx7); redefine TOPO "be"; Print,"Topology changed from la to be"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q] ,p1,-p2,[P+p1],[P-p2],[P-p1],[P+p2] ,p2,-p1,[P+p2],[P-p1],[P-p2],[P+p1] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] ,p6,-p3,[P+p6],[P-p3],[P-p6],[P+p3] ,p4,-p6,[P+p4],[P-p6],[P-p4],[P+p6] ,p8,p7,[P+p8],[P+p7],[P-p8],[P-p7] )*mncsgn3; multiply,replace_(mncx1,mncx2,mncx2,mncx1,mncx7,mncx5,mncx5,mncx4,mncx6,mncx3,mncx4,mncx6,mncx8,mncx7); redefine TOPO "o2"; Print,"Topology changed from la to o2"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q] ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p2,p4,[P+p2],[P+p4],[P-p2],[P-p4] ,p5,p1,[P+p5],[P+p1],[P-p5],[P-p1] ,p6,p2,[P+p6],[P+p2],[P-p6],[P-p2] ,p3,p6,[P+p3],[P+p6],[P-p3],[P-p6] ,p8,-p7,[P+p8],[P-p7],[P-p8],[P+p7] )*mncsgn3; multiply,replace_(mncx7,mncx5,mncx1,mncx3,mncx2,mncx4,mncx5,mncx1,mncx6,mncx2,mncx3,mncx6,mncx8,mncx7); redefine TOPO "o2"; Print,"Topology changed from la to o2"; elseif ( count(mncx5,1) == 0 ); multiply,replace_( p7,-p6,[P+p7],[P-p6],[P-p7],[P+p6] ,p8,-p7,[P+p8],[P-p7],[P-p8],[P+p7] ,p6,p5,[P+p6],[P+p5],[P-p6],[P-p5] ); multiply,replace_(mncx7,mncx6,mncx8,mncx7,mncx6,mncx5); redefine TOPO "be"; Print,"Topology changed from la to be"; elseif ( count(mncx6,1) == 0 ); multiply,replace_( p1,-p6,[P+p1],[P-p6],[P-p1],[P+p6] ,p2,-p4,[P+p2],[P-p4],[P-p2],[P+p4] ,p3,-p3,[P+p3],[P-p3],[P-p3],[P+p3] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p5,-p1,[P+p5],[P-p1],[P-p5],[P+p1] ,p8,p5,[P+p8],[P+p5],[P-p8],[P-p5] ); multiply,replace_(mncx1,mncx6,mncx2,mncx4,mncx4,mncx2,mncx5,mncx1,mncx8,mncx5); redefine TOPO "o2"; Print,"Topology changed from la to o2"; elseif ( count(mncx7,1) == 0 ); multiply,replace_( p1,p7,[P+p1],[P+p7],[P-p1],[P-p7] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,p2,[P+p3],[P+p2],[P-p3],[P-p2] ,p4,p3,[P+p4],[P+p3],[P-p4],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ,p8,-p5,[P+p8],[P-p5],[P-p8],[P+p5] ); multiply,replace_(mncx1,mncx7,mncx2,mncx1,mncx3,mncx2,mncx4,mncx3,mncx5,mncx4,mncx8,mncx5); redefine TOPO "o3"; Print,"Topology changed from la to o3"; elseif ( count(mncx8,1) == 0 ); multiply,replace_( p3,p7,[P+p3],[P+p7],[P-p3],[P-p7] ,p4,-p6,[P+p4],[P-p6],[P-p4],[P+p6] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] ,p6,p4,[P+p6],[P+p4],[P-p6],[P-p4] ); multiply,replace_(mncx3,mncx7,mncx4,mncx6,mncx7,mncx5,mncx5,mncx3,mncx6,mncx4); redefine TOPO "o3"; Print,"Topology changed from la to o3"; endif; * #break *--#] la : *--#[ be : #case be * if ( count(mncx1,1,mncx3,1) == 0 ); multiply,replace_( p2,p7,[P+p2],[P+p7],[P-p2],[P-p7] ,p8,p5,[P+p8],[P+p5],[P-p8],[P-p5] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p5,-p1,[P+p5],[P-p1],[P-p5],[P+p1] ,p7,p3,[P+p7],[P+p3],[P-p7],[P-p3] ,p6,p4,[P+p6],[P+p4],[P-p6],[P-p4] ); multiply,replace_(mncx2,mncx7,mncx8,mncx5,mncx4,mncx2,mncx5,mncx1,mncx7,mncx3,mncx6,mncx4); redefine TOPO "o4"; Print,"Topology changed from be to o4"; elseif ( count(mncx1,1,mncx8,1) == 0 ); multiply,replace_( p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,p2,[P+p3],[P+p2],[P-p3],[P-p2] ,p4,p3,[P+p4],[P+p3],[P-p4],[P-p3] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p5,p7,[P+p5],[P+p7],[P-p5],[P-p7] ); multiply,replace_(mncx2,mncx1,mncx3,mncx2,mncx4,mncx3,mncx7,mncx5,mncx5,mncx7); redefine TOPO "o2"; Print,"Topology changed from be to o2"; elseif ( count(mncx3,1,mncx8,1) == 0 ); multiply,replace_( Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q] ,p1,-p2,[P+p1],[P-p2],[P-p1],[P+p2] ,p2,-p1,[P+p2],[P-p1],[P-p2],[P+p1] ,p6,-p5,[P+p6],[P-p5],[P-p6],[P+p5] ,p5,-p3,[P+p5],[P-p3],[P-p5],[P+p3] ,p4,-p6,[P+p4],[P-p6],[P-p4],[P+p6] ,p7,-p7,[P+p7],[P-p7],[P-p7],[P+p7] )*mncsgn3; multiply,replace_(mncx1,mncx2,mncx2,mncx1,mncx6,mncx5,mncx5,mncx3,mncx4,mncx6); redefine TOPO "o2"; Print,"Topology changed from be to o2"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p3,p2,[P+p3],[P+p2],[P-p3],[P-p2] ,p4,p3,[P+p4],[P+p3],[P-p4],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ,p8,-p5,[P+p8],[P-p5],[P-p8],[P+p5] ); multiply,replace_(mncx3,mncx2,mncx4,mncx3,mncx5,mncx4,mncx8,mncx5); redefine TOPO "o1"; Print,"Topology changed from be to o1"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( p1,p6,[P+p1],[P+p6],[P-p1],[P-p6] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,p2,[P+p3],[P+p2],[P-p3],[P-p2] ,p8,p3,[P+p8],[P+p3],[P-p8],[P-p3] ,p6,p4,[P+p6],[P+p4],[P-p6],[P-p4] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p5,-p7,[P+p5],[P-p7],[P-p5],[P+p7] ); multiply,replace_(mncx1,mncx6,mncx2,mncx1,mncx3,mncx2,mncx8,mncx3,mncx6,mncx4,mncx7,mncx5,mncx5,mncx7); redefine TOPO "o4"; Print,"Topology changed from be to o4"; elseif ( count(mncx5,1) == 0 ); multiply,replace_( p8,-p4,[P+p8],[P-p4],[P-p8],[P+p4] ,p6,-p5,[P+p6],[P-p5],[P-p6],[P+p5] ,p3,p6,[P+p3],[P+p6],[P-p3],[P-p6] ,p4,-p7,[P+p4],[P-p7],[P-p4],[P+p7] ,p7,p3,[P+p7],[P+p3],[P-p7],[P-p3] ); multiply,replace_(mncx8,mncx4,mncx6,mncx5,mncx3,mncx6,mncx4,mncx7,mncx7,mncx3); redefine TOPO "o4"; Print,"Topology changed from be to o4"; elseif ( count(mncx6,1) == 0 ); multiply,replace_( Q,-Q,[P+Q],[P-Q],[P-Q],[P+Q] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p4,p1,[P+p4],[P+p1],[P-p4],[P-p1] ,p5,p2,[P+p5],[P+p2],[P-p5],[P-p2] ,p3,p4,[P+p3],[P+p4],[P-p3],[P-p4] ,p2,p6,[P+p2],[P+p6],[P-p2],[P-p6] ,p7,-p7,[P+p7],[P-p7],[P-p7],[P+p7] ,p8,p5,[P+p8],[P+p5],[P-p8],[P-p5] )*mncsgn3; multiply,replace_(mncx1,mncx3,mncx4,mncx1,mncx5,mncx2,mncx3,mncx4,mncx2,mncx6,mncx8,mncx5); redefine TOPO "o2"; Print,"Topology changed from be to o2"; elseif ( count(mncx7,1) == 0 ); multiply,replace_( p1,-p4,[P+p1],[P-p4],[P-p1],[P+p4] ,p2,-p7,[P+p2],[P-p7],[P-p2],[P+p7] ,p8,p5,[P+p8],[P+p5],[P-p8],[P-p5] ,p3,-p3,[P+p3],[P-p3],[P-p3],[P+p3] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p5,-p1,[P+p5],[P-p1],[P-p5],[P+p1] ); multiply,replace_(mncx1,mncx4,mncx2,mncx7,mncx8,mncx5,mncx4,mncx2,mncx5,mncx1); redefine TOPO "o2"; Print,"Topology changed from be to o2"; endif; * #break *--#] be : *--#[ no : #case no * * If we miss a line, we go to the benz topology * if ( count(mncx1,1) == 0 ); multiply,replace_(p8,p7,[P+p8],[P+p7],[P-p8],[P-p7] ,p5,p8,[P+p5],[P+p8],[P-p5],[P-p8] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5]); multiply,replace_(mncx8,mncx7,mncx5,mncx8,mncx7,mncx5); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p1,-p5,[P+p1],[P-p5],[P-p1],[P+p5] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4] ,p6,-p1,[P+p6],[P-p1],[P-p6],[P+p1] ,p5,-p2,[P+p5],[P-p2],[P-p5],[P+p2] ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] ,p8,p6,[P+p8],[P+p6],[P-p8],[P-p6] ); multiply,replace_(mncx1,mncx5,mncx3,mncx4,mncx6,mncx1,mncx5,mncx2,mncx4,mncx3,mncx8,mncx6); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( p8,p4,[P+p8],[P+p4],[P-p8],[P-p4] ,p6,p5,[P+p6],[P+p5],[P-p6],[P-p5] ,p7,p6,[P+p7],[P+p6],[P-p7],[P-p6] ,p4,p7,[P+p4],[P+p7],[P-p4],[P-p7] ,p5,-p8,[P+p5],[P-p8],[P-p5],[P+p8] ); multiply,replace_(mncx8,mncx4,mncx6,mncx5,mncx7,mncx6,mncx4,mncx7,mncx5,mncx8); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( p7,-p2,[P+p7],[P-p2],[P-p7],[P+p2] ,p2,-p6,[P+p2],[P-p6],[P-p2],[P+p6] ,p3,-p7,[P+p3],[P-p7],[P-p3],[P+p7] ,p8,-p8,[P+p8],[P-p8],[P-p8],[P+p8] ,p6,p5,[P+p6],[P+p5],[P-p6],[P-p5] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ); multiply,replace_(mncx7,mncx2,mncx2,mncx6,mncx3,mncx7,mncx6,mncx5,mncx5,mncx4); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx5,1) == 0 ); multiply,replace_( p7,p6,[P+p7],[P+p6],[P-p7],[P-p6] ,p8,p7,[P+p8],[P+p7],[P-p8],[P-p7] ,p6,p5,[P+p6],[P+p5],[P-p6],[P-p5] ); multiply,replace_(mncx7,mncx6,mncx8,mncx7,mncx6,mncx5); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx6,1) == 0 ); multiply,replace_( p8,-p2,[P+p8],[P-p2],[P-p8],[P+p2] ,p1,-p6,[P+p1],[P-p6],[P-p1],[P+p6] ,p2,-p7,[P+p2],[P-p7],[P-p2],[P+p7] ,p7,p8,[P+p7],[P+p8],[P-p7],[P-p8] ); multiply,replace_(mncx8,mncx2,mncx1,mncx6,mncx2,mncx7,mncx7,mncx8); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx7,1) == 0 ); multiply,replace_( p6,-p1,[P+p6],[P-p1],[P-p6],[P+p1] ,p1,-p5,[P+p1],[P-p5],[P-p1],[P+p5] ,p8,-p2,[P+p8],[P-p2],[P-p8],[P+p2] ,p5,p6,[P+p5],[P+p6],[P-p5],[P-p6] ,p2,-p7,[P+p2],[P-p7],[P-p2],[P+p7] ); multiply,replace_(mncx6,mncx1,mncx1,mncx5,mncx8,mncx2,mncx5,mncx6,mncx2,mncx7); redefine TOPO "be"; Print,"Topology changed from no to be"; elseif ( count(mncx8,1) == 0 ); multiply,replace_( p6,p5,[P+p6],[P+p5],[P-p6],[P-p5] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4] ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] ,p7,-p2,[P+p7],[P-p2],[P-p7],[P+p2] ,p2,-p6,[P+p2],[P-p6],[P-p2],[P+p6] ,p5,p7,[P+p5],[P+p7],[P-p5],[P-p7] ); multiply,replace_(mncx6,mncx5,mncx3,mncx4,mncx4,mncx3,mncx7,mncx2,mncx2,mncx6,mncx5,mncx7); redefine TOPO "be"; Print,"Topology changed from no to be"; endif; * #break *--#] no : *--#[ fa : #case fa * * #break *--#] fa : *--#[ bu : #case bu * * #break *--#] bu : *--#[ o1 : #case o1 * if ( count(mncx1,1) == 0 ); multiply,replace_( p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ); multiply,replace_(mncx3,mncx1,mncx5,mncx3,mncx7,mncx5); redefine TOPO "y3"; Print,"Topology changed from o1 to y3"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4] ,p5,-p3,[P+p5],[P-p3],[P-p5],[P+p3] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] ); multiply,replace_(mncx1,mncx2,mncx4,mncx1,mncx3,mncx4,mncx5,mncx3,mncx7,mncx5); redefine TOPO "y3"; Print,"Topology changed from o1 to y3"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p2,p4,[P+p2],[P+p4],[P-p2],[P-p4] ,p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] ,p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ); multiply,replace_(mncx4,mncx2,mncx2,mncx4,mncx5,mncx3,mncx7,mncx5); redefine TOPO "y3"; Print,"Topology changed from o1 to y3"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2] ,p1,p4,[P+p1],[P+p4],[P-p1],[P-p4] ,p5,-p3,[P+p5],[P-p3],[P-p5],[P+p3] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] ); multiply,replace_(mncx2,mncx1,mncx3,mncx2,mncx1,mncx4,mncx5,mncx3,mncx7,mncx5); redefine TOPO "y3"; Print,"Topology changed from o1 to y3"; elseif ( ( count(mncx6,1) == 0 ) || ( count(mncx7,1) == 0 ) ); Discard; endif; * #break *--#] o1 : *--#[ o2 : #case o2 * if ( count(mncx1,1) == 0 ); multiply,replace_( p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ); multiply,replace_(mncx3,mncx1,mncx5,mncx4,mncx4,mncx3,mncx7,mncx5); redefine TOPO "y3"; Print,"Topology changed from o2 to y3"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] ,p5,-p5,[P+p5],[P-p5],[P-p5],[P+p5] ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] ,p6,-p3,[P+p6],[P-p3],[P-p6],[P+p3] ,p7,-p4,[P+p7],[P-p4],[P-p7],[P+p4] ); multiply,replace_(mncx1,mncx2,mncx4,mncx1,mncx3,mncx6,mncx6,mncx3,mncx7,mncx4); redefine TOPO "y2"; Print,"Topology changed from o2 to y2"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] ); multiply,replace_(mncx2,mncx3,mncx5,mncx4,mncx4,mncx2,mncx7,mncx5); redefine TOPO "y1"; Print,"Topology changed from o2 to y1"; elseif ( count(mncx5,1) == 0 ); multiply,replace_( p2,p5,[P+p2],[P+p5],[P-p2],[P-p5] ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] ,p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] ,p6,-p3,[P+p6],[P-p3],[P-p6],[P+p3] ,p7,-p4,[P+p7],[P-p4],[P-p7],[P+p4] ); multiply,replace_(mncx2,mncx5,mncx3,mncx6,mncx4,mncx1,mncx1,mncx2,mncx6,mncx3,mncx7,mncx4); redefine TOPO "y4"; Print,"Topology changed from o2 to y4"; elseif ( ( count(mncx6,1) == 0 ) || ( count(mncx7,1) == 0 ) ); Discard; endif; * #break *--#] o2 : *--#[ o3 : #case o3 * if ( count(mncx5,1) == 0 ); multiply,replace_( p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2] ); multiply,replace_(mncx7,mncx5,mncx1,mncx3,mncx2,mncx1,mncx3,mncx2); redefine TOPO "y5"; Print,"Topology changed from o3 to y5"; elseif ( count(mncx1,1) == 0 ); multiply,replace_( p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] ); multiply,replace_(mncx7,mncx5,mncx3,mncx1,mncx5,mncx3); redefine TOPO "y4"; Print,"Topology changed from o3 to y4"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] ,p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] ,p3,-p3,[P+p3],[P-p3],[P-p3],[P+p3] ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] ); multiply,replace_(mncx7,mncx5,mncx4,mncx1,mncx1,mncx2,mncx5,mncx4); redefine TOPO "y4"; Print,"Topology changed from o3 to y4"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ); multiply,replace_(mncx7,mncx5,mncx4,mncx2,mncx2,mncx3,mncx5,mncx4); redefine TOPO "y4"; Print,"Topology changed from o3 to y4"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] ,p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] ); multiply,replace_(mncx7,mncx5,mncx2,mncx1,mncx3,mncx2,mncx1,mncx3,mncx5,mncx4); redefine TOPO "y4"; Print,"Topology changed from o3 to y4"; elseif ( ( count(mncx6,1) == 0 ) || ( count(mncx7,1) == 0 ) ); Discard; endif; * #break *--#] o3 : *--#[ o4 : #case o4 * if ( count(mncx5,1) == 0 ); multiply,replace_( p6,p1,[P+p6],[P+p1],[P-p6],[P-p1] ,p7,p2,[P+p7],[P+p2],[P-p7],[P-p2] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p2,p5,[P+p2],[P+p5],[P-p2],[P-p5] ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] ); multiply,replace_(mncx6,mncx1,mncx7,mncx2,mncx1,mncx3,mncx2,mncx5,mncx3,mncx6); redefine TOPO "y2"; Print,"Topology changed from o4 to y2"; elseif ( count(mncx1,1) == 0 ); multiply,replace_( p6,p1,[P+p6],[P+p1],[P-p6],[P-p1] ,p7,p2,[P+p7],[P+p2],[P-p7],[P-p2] ,p2,p4,[P+p2],[P+p4],[P-p2],[P-p4] ,p3,-p3,[P+p3],[P-p3],[P-p3],[P+p3] ,p4,-p6,[P+p4],[P-p6],[P-p4],[P+p6] ); multiply,replace_(mncx6,mncx1,mncx7,mncx2,mncx2,mncx4,mncx4,mncx6); redefine TOPO "y3"; Print,"Topology changed from o4 to y3"; elseif ( count(mncx2,1) == 0 ); multiply,replace_( p6,p1,[P+p6],[P+p1],[P-p6],[P-p1] ,p7,p2,[P+p7],[P+p2],[P-p7],[P-p2] ,p1,p4,[P+p1],[P+p4],[P-p1],[P-p4] ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] ,p5,-p5,[P+p5],[P-p5],[P-p5],[P+p5] ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] ); multiply,replace_(mncx6,mncx1,mncx7,mncx2,mncx1,mncx4,mncx4,mncx3,mncx3,mncx6); redefine TOPO "y3"; Print,"Topology changed from o4 to y3"; elseif ( count(mncx3,1) == 0 ); multiply,replace_( p6,p1,[P+p6],[P+p1],[P-p6],[P-p1] ,p7,p2,[P+p7],[P+p2],[P-p7],[P-p2] ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p2,p6,[P+p2],[P+p6],[P-p2],[P-p6] ); multiply,replace_(mncx6,mncx1,mncx7,mncx2,mncx1,mncx3,mncx2,mncx6); redefine TOPO "y3"; Print,"Topology changed from o4 to y3"; elseif ( count(mncx4,1) == 0 ); multiply,replace_( p6,p1,[P+p6],[P+p1],[P-p6],[P-p1] ,p7,p2,[P+p7],[P+p2],[P-p7],[P-p2] ,p1,p6,[P+p1],[P+p6],[P-p1],[P-p6] ,p5,-p5,[P+p5],[P-p5],[P-p5],[P+p5] ,p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4] ); multiply,replace_(mncx6,mncx1,mncx7,mncx2,mncx1,mncx6,mncx2,mncx3,mncx3,mncx4); redefine TOPO "y3"; Print,"Topology changed from o4 to y3"; elseif ( count(mncx7,1) == 0 ); discard; endif; * #break *--#] o4 : *--#[ o5 : #case o5 * * These are still the old O2 rewritings * *if ( count(mncx1,1) == 0 ); * multiply,replace_( * p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1] * ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] * ,p4,-p3,[P+p4],[P-p3],[P-p4],[P+p3] * ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] * ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] * ); * multiply,replace_(mncx3,mncx1,mncx5,mncx4,mncx4,mncx3,mncx7,mncx5); * redefine TOPO "y3"; * Print,"Topology changed from o2 to y3"; *elseif ( count(mncx2,1) == 0 ); * multiply,replace_( * p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] * ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] * ,p5,-p5,[P+p5],[P-p5],[P-p5],[P+p5] * ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] * ,p6,-p3,[P+p6],[P-p3],[P-p6],[P+p3] * ,p7,-p4,[P+p7],[P-p4],[P-p7],[P+p4] * ); * multiply,replace_(mncx1,mncx2,mncx4,mncx1,mncx3,mncx6,mncx6,mncx3,mncx7,mncx4); * redefine TOPO "y2"; * Print,"Topology changed from o2 to y2"; *elseif ( count(mncx3,1) == 0 ); * multiply,replace_( * p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] * ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] * ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] * ,p6,-p6,[P+p6],[P-p6],[P-p6],[P+p6] * ,p7,-p5,[P+p7],[P-p5],[P-p7],[P+p5] * ); * multiply,replace_(mncx2,mncx3,mncx5,mncx4,mncx4,mncx2,mncx7,mncx5); * redefine TOPO "y1"; * Print,"Topology changed from o2 to y1"; *elseif ( count(mncx5,1) == 0 ); * multiply,replace_( * p2,p5,[P+p2],[P+p5],[P-p2],[P-p5] * ,p3,-p6,[P+p3],[P-p6],[P-p3],[P+p6] * ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] * ,p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] * ,p6,-p3,[P+p6],[P-p3],[P-p6],[P+p3] * ,p7,-p4,[P+p7],[P-p4],[P-p7],[P+p4] * ); * multiply,replace_(mncx2,mncx5,mncx3,mncx6,mncx4,mncx1,mncx1,mncx2,mncx6,mncx3,mncx7,mncx4); * redefine TOPO "y4"; * Print,"Topology changed from o2 to y4"; *elseif ( ( count(mncx6,1) == 0 ) || ( count(mncx7,1) == 0 ) ); * Discard; *endif; * #break *--#] o5 : *--#[ o6 : #case o6 * * These are still the O3 rewritings * *if ( count(mncx5,1) == 0 ); * multiply,replace_( * p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] * ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] * ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] * ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] * ,p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2] * ); * multiply,replace_(mncx7,mncx5,mncx1,mncx3,mncx2,mncx1,mncx3,mncx2); * redefine TOPO "y5"; * Print,"Topology changed from o3 to y5"; *elseif ( count(mncx1,1) == 0 ); * multiply,replace_( * p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] * ,p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1] * ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] * ,p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] * ); * multiply,replace_(mncx7,mncx5,mncx3,mncx1,mncx5,mncx3); * redefine TOPO "y4"; * Print,"Topology changed from o3 to y4"; *elseif ( count(mncx2,1) == 0 ); * multiply,replace_( * p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] * ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] * ,p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] * ,p3,-p3,[P+p3],[P-p3],[P-p3],[P+p3] * ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] * ); * multiply,replace_(mncx7,mncx5,mncx4,mncx1,mncx1,mncx2,mncx5,mncx4); * redefine TOPO "y4"; * Print,"Topology changed from o3 to y4"; *elseif ( count(mncx3,1) == 0 ); * multiply,replace_( * p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] * ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] * ,p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] * ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] * ); * multiply,replace_(mncx7,mncx5,mncx4,mncx2,mncx2,mncx3,mncx5,mncx4); * redefine TOPO "y4"; * Print,"Topology changed from o3 to y4"; *elseif ( count(mncx4,1) == 0 ); * multiply,replace_( * p7,p5,[P+p7],[P+p5],[P-p7],[P-p5] * ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] * ,p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2] * ,p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] * ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] * ); * multiply,replace_(mncx7,mncx5,mncx2,mncx1,mncx3,mncx2,mncx1,mncx3,mncx5,mncx4); * redefine TOPO "y4"; * Print,"Topology changed from o3 to y4"; *elseif ( ( count(mncx6,1) == 0 ) || ( count(mncx7,1) == 0 ) ); * Discard; *endif; * #break *--#] o6 : *--#[ y1 : #case y1 * if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y1 : *--#[ y2 : #case y2 * if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y2 : *--#[ y3 : #case y3 * if ( count(mncx2,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y3 : *--#[ y4 : #case y4 * if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y4 : *--#[ y5 : #case y5 * if ( count(mncx1,1) == 0 ) discard; if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y5 : *--#[ y6 : #case y6 * if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; if ( count(mncx5,1) == 0 ) discard; if ( count(mncx6,1) == 0 ) discard; * #break *--#] y6 : *--#[ t1 : #case t1 * * If 5 is missing we have t3, if 1,2,3,4 is missing, we have t2. * if ( count(mncx5,1) == 0 ); multiply,replace_(p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2] ,p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4]); multiply,replace_(mncx4,mncx2,mncx2,mncx3,mncx3,mncx4); redefine TOPO "t3"; Print,"Topology changed from t1 to t3"; elseif ( count(mncx1,1) == 0 ); multiply,replace_(p5,p3,[P+p5],[P+p3],[P-p5],[P-p3] ,p4,-p4,[P+p4],[P-p4],[P-p4],[P+p4] ,p3,-p1,[P+p3],[P-p1],[P-p3],[P+p1]); multiply,replace_(mncx5,mncx3,mncx3,mncx1); redefine TOPO "t2"; Print,"Topology changed from t1 to t2"; elseif ( count(mncx2,1) == 0 ); multiply,replace_(p1,p2,[P+p1],[P+p2],[P-p1],[P-p2] ,p4,-p1,[P+p4],[P-p1],[P-p4],[P+p1] ,p5,-p3,[P+p5],[P-p3],[P-p5],[P+p3] ,p3,-p4,[P+p3],[P-p4],[P-p3],[P+p4]); multiply,replace_(mncx1,mncx2,mncx4,mncx1,mncx5,mncx3,mncx3,mncx4); redefine TOPO "t2"; Print,"Topology changed from t1 to t2"; elseif ( count(mncx3,1) == 0 ); multiply,replace_(p2,p3,[P+p2],[P+p3],[P-p2],[P-p3] ,p5,p4,[P+p5],[P+p4],[P-p5],[P-p4] ,p4,-p2,[P+p4],[P-p2],[P-p4],[P+p2]); multiply,replace_(mncx2,mncx3,mncx5,mncx4,mncx4,mncx2); redefine TOPO "t2"; Print,"Topology changed from t1 to t2"; elseif ( count(mncx4,1) == 0 ); multiply,replace_(p1,p3,[P+p1],[P+p3],[P-p1],[P-p3] ,p5,-p4,[P+p5],[P-p4],[P-p5],[P+p4] ,p2,p1,[P+p2],[P+p1],[P-p2],[P-p1] p3,-p2,[P+p3],[P-p2],[P-p3],[P+p2]); multiply,replace_(mncx1,mncx3,mncx5,mncx4,mncx2,mncx1,mncx3,mncx2); redefine TOPO "t2"; Print,"Topology changed from t1 to t2"; endif; #break *--#] t1 : *--#[ t2 : #case t2 * if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; * #break *--#] t2 : *--#[ t3 : #case t3 * if ( count(mncx1,1) == 0 ) discard; if ( count(mncx2,1) == 0 ) discard; if ( count(mncx3,1) == 0 ) discard; if ( count(mncx4,1) == 0 ) discard; * #break *--#] t3 : *--#[ l1 : #case l1 * * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * * #break *--#] tr : #endswitch #endprocedure *--#] transfor : *--#[ triangl2 : #procedure triangl2(P,PA,PB,P1,P3,EA,EB) * * Routine solves the triangle recursion * P * N1 -------------------------- N3 * P1 \ N2 / P3 * \ / * A \ / B * PA \ / PB * \ / * \/ * * mncA,mncB,mncN1,mncN2,mncN3 are the powers of the denominators * mncA and mncB don't have to be integers here. * EA and EB are 1/PA.PA^ep and 1/PB.PB^ep * P is the momentum in mncN2. We need it here to determine the extra * momenta in the numerator. * * This routine differs from the routine triangle in that the final * substitution of mncftri involves gamma functions rather than factorials. * id `P' = mncx*`P'; if ( count(`P1'.`P1',1,`P3'.`P3',1,`P'.`P',1) < -4 ); id mncx^mncm?/`P1'.`P1'^mncN1?/`P'.`P'^mncN2?/`P3'.`P3'^mncN3?/`PA'.`PA'^mncA?/`PB'.`PB'^mncB? *`EA'^mncx1?*`EB'^mncx2? = mncftri(mncN1,mncN2,mncN3,mncA,mncB,mncx1,mncx2,mncm)*mncpoinv(mncA,mncx1)*mncpoinv(mncB,mncx2)*`EA'^mncx1*`EB'^mncx2; id mncpoinv(1,mncx1?) = 1; id mncpoinv(mncx1?,0) = invfac_(mncx1-1); id mncpoinv(mncx1?neg0_,mncx2?) = mncx2*acc(mncPOINV(mncx1,mncx2))*ep; id mncpoinv(mncx1?pos_,mncx2?) = acc(mncPOINV(mncx1,mncx2)); id mncftri(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?,mncm?) = +sum_(mnck4,0,mncN3-1,sign_(mncN1+mnck4)*mncpo(5+mncm-2*mncN2-mncA-mncB-mncN1-mnck4,-2-mncx1-mncx2) *mncsumm1(mncN1,mncN2,mncN3,mncA,mncB,mncx1,mncx2,mncm,mnck4)*invfac_(mnck4))*invfac_(mncN1-1) +mncsumm2(mncN1,mncN2,mncN3,mncA,mncB,mncx1,mncx2,mncm)*mncN2*mncpoinv(4+mncm-2*mncN2-mncA-mncB+mncN2,-2-mncx1-mncx2) +sum_(mnck2,0,mncN1-1,sign_(mnck2+mncN3)*mncpo(5+mncm-2*mncN2-mncA-mncB-mnck2-mncN3,-2-mncx1-mncx2) *mncsumm3(mncN1,mncN2,mncN3,mncA,mncB,mncx1,mncx2,mncm,mnck2)*invfac_(mnck2))*invfac_(mncN3-1) ; * * Evaluate the gamma functions. * We multiply numerator and denominator with gamma(1-2*ep) * Then mncpo(mncx,-2) represents a normalized gamma function. * The following identities can then be applied: * (the table has overal factors ep taken out) * if ( count(mncsumm2,1) ); id mncpoinv(1,mncy1?) = 1; id mncpoinv(mncx1?neg0_,mncy1?) = mncy1*acc(mncPOINV(mncx1,mncy1))*ep; id mncpoinv(mncx1?pos_,mncy1?) = acc(mncPOINV(mncx1,mncy1)); id mncsumm2(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?,mncm?) = +sum_(mnck2,0,mncN1-1,sum_(mnck4,0,mncN3-1,sign_(mnck2+mnck4)*fac_(mnck2+mncN2+mnck4-1) *mncpo(4+mncm-2*mncN2-mncA-mncB-mnck2-mnck4,-2-mncx1-mncx2) *mncsumm2(mncN1,mncN2,mncN3,mncA,mncB,mncx1,mncx2,mncm,mnck2,mnck4) *invfac_(mnck4))*invfac_(mnck2)); id mncpo(mncx1?,0) = fac_(mncx1-1); id mncpo(1,mncy1?) = 1; id mncpo(mncx1?neg0_,mncy1?) = acc(mncPO(mncx1,mncy1))/mncy1/ep; id mncpo(mncx1?pos_,mncy1?) = acc(mncPO(mncx1,mncy1)); id mncsumm2(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?,mncm?,mnck2?,mnck4?) = sum_(mnck1,0,mncN2,invfac_(mnck1)*invfac_(mncN2-mnck1) *mncftri(mncN1-mnck2,0,mncN3-mnck4,mncA+mnck1+mnck2,mncB+mncN2-mnck1+mnck4,mncx1,mncx2)); else; id mncpo(mncx1?,0) = fac_(mncx1-1); id mncpo(1,mncy1?) = 1; id mncpo(mncx1?neg0_,mncy1?) = acc(mncPO(mncx1,mncy1))/mncy1/ep; id mncpo(mncx1?pos_,mncy1?) = acc(mncPO(mncx1,mncy1)); id mncsumm1(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?,mncm?,mnck4?) = sum_(mnck1,0,mncN2-1,sum_(mnck3,0,mncN2-mnck1-1, fac_(mnck1+mncN1+mnck3+mnck4-1)*invfac_(mnck3) *mncpoinv(5+mncm-2*mncN2-mncA-mncB+mnck1+mnck3,-2-mncx1-mncx2) *mncftri(0,mncN2-mnck1-mnck3,mncN3-mnck4,mncA+mnck1+mncN1,mncB+mnck3+mnck4,mncx1,mncx2) )*invfac_(mnck1)); id mncsumm3(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?,mncm?,mnck2?) = sum_(mnck3,0,mncN2-1,sum_(mnck1,0,mncN2-mnck3-1, fac_(mnck1+mnck2+mnck3+mncN3-1)*invfac_(mnck1) *mncpoinv(5+mncm-2*mncN2-mncA-mncB+mnck1+mnck3,-2-mncx1-mncx2) *mncftri(mncN1-mnck2,mncN2-mnck1-mnck3,0,mncA+mnck1+mnck2,mncB+mnck3+mncN3,mncx1,mncx2) )*invfac_(mnck3)); id mncpoinv(1,mncy1?) = 1; id mncpoinv(mncx1?neg0_,mncy1?) = mncy1*acc(mncPOINV(mncx1,mncy1))*ep; id mncpoinv(mncx1?pos_,mncy1?) = acc(mncPOINV(mncx1,mncy1)); endif; id mncftri(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncx1?,mncx2?) = mncpo(mncA,mncx1)*mncpo(mncB,mncx2) /`P1'.`P1'^mncN1/`P'.`P'^mncN2/`P3'.`P3'^mncN3/`PA'.`PA'^mncA/`PB'.`PB'^mncB; id mncpo(mncx1?,0) = fac_(mncx1-1); id mncpo(1,mncy1?) = 1; id mncpo(mncx1?neg0_,mncy1?) = acc(mncPO(mncx1,mncy1))/mncy1/ep; id mncpo(mncx1?pos_,mncy1?) = acc(mncPO(mncx1,mncy1)); else; repeat; if ( match(1/`P'.`P'/`P1'.`P1'/`P3'.`P3') > 0 ); id mncx^mncx4?/`PA'.`PA'^mncx1?/`PB'.`PB'^mncx2?/`P'.`P'^mncx3?*`EA'^mncy1?*`EB'^mncy2? = mncx^mncx4 /`PA'.`PA'^mncx1 /`PB'.`PB'^mncx2 /`P'.`P'^mncx3 *`EA'^mncy1*`EB'^mncy2*( +acc(mncx2+mncy2*ep)*`P'.`P'/`PB'.`PB'-acc(mncx2+mncy2*ep)*`P3'.`P3'/`PB'.`PB' +acc(mncx1+mncy1*ep)*`P'.`P'/`PA'.`PA'-acc(mncx1+mncy1*ep)*`P1'.`P1'/`PA'.`PA' )*mncdeno(4+mncx4-mncx1-mncx2-2*mncx3,-2-mncy1-mncy2); id,many,mncdeno(0,mncy1?) = 1/mncy1/ep; id,mncdeno(mncx1?,mncy1?) = acc(1-mncy1*ep/mncx1+mncy1^2*ep^2/mncx1^2-mncy1^3*ep^3/mncx1^3 +mncy1^4*ep^4/mncx1^4-mncy1^5*ep^5/mncx1^5+mncy1^6*ep^6/mncx1^6 -mncy1^7*ep^7/mncx1^7+mncy1^8*ep^8/mncx1^8)/mncx1; endif; endrepeat; id mncx = 1; endif; #endprocedure *--#] triangl2 : *--#[ triangle : #procedure triangle(P,PA,PB,P1,P3) * * Routine solves the triangle recursion * P * N1 -------------------------- N3 * P1 \ N2 / P3 * \ / * A \ / B * PA \ / PB * \ / * \/ * * mncA,mncB,mncN1,mncN2,mncN3 are the powers of the denominators * We assume that mncA and mncB are integers here. Otherwise see triangl2. * P is the momentum in mncN2. We need it here to determine the extra * momenta in the numerator. * * We follow the algorithm of F.V.Tkachov Theor. Mat. Fiz. 56(1983)350. * * There are three sums: * One in which the power of 1 becomes zero, one for 2 and one for 3. * Each sum has 4 constants to sum over, except that for each * one of them has its maximal value: * mnck1 = (a-mncA)-mnck2 * mnck2 = mncN1-n1 sum1: mncN1 * mnck3 = (b-mncB)-mnck4 * mnck4 = mncN3-n3 sum3: mncN3 * mnck1+mnck3 = mncN2-n2 sum2: mncN2 * The gamma functions are evaluated using the tables in pochtabl.prc * * It turns out that the easy cases are faster when the regular recursion * is used. We do that here is there are fewer than 6 powers in P,P1 and P3 * combined. Test timings don't use these special cases. * * Programmed by J.A.M.Vermaseren 28-oct-1990 + 13-nov-1990 * * Test versus benzbar: * 1/p1.p1^3/mncp.mncp/p3.p3/pa.pa/pb.pb -> 0.96 sec versus 0.80 sec * 1/p1.p1^3/mncp.mncp^3/p3.p3/pa.pa/pb.pb -> 3.07 sec versus 20.34 sec * 1/p1.p1^3/mncp.mncp^3/p3.p3^3/pa.pa/pb.pb -> 6.21 sec versus 547.11 sec * triangle generates exactly the right number of terms * (times on Atari TT) * * For the easy cases we take the original recursion, because this is much * faster. This is done for the combined powers of P1,P2,P3 at most 4 * in the denominator. IT IS VERY DANGEROUS TO INCREASE THIS NUMBER! * In principle each two steps in the recursion can generate one * extra pole that has to be cancelled between the terms. This can * cause problems with the truncation of the powers of ep. We can * tolerate only one such pole here. * id `P' = mncx*`P'; if ( count(`P1'.`P1',1,`P3'.`P3',1,`P'.`P',1) < -4 ); id mncx^mncm?/`P1'.`P1'^mncN1?/`P'.`P'^mncN2?/`P3'.`P3'^mncN3?/`PA'.`PA'^mncA?/`PB'.`PB'^mncB? = mncftri(mncN1,mncN2,mncN3,mncA,mncB,mncm)*invfac_(mncA-1)*invfac_(mncB-1); id mncftri(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncm?) = +sum_(mnck4,0,mncN3-1,sign_(mncN1+mnck4)*mncpo(5+mncm-2*mncN2-mncA-mncB-mncN1-mnck4,-2) *mncsumm1(mncN1,mncN2,mncN3,mncA,mncB,mncm,mnck4)*invfac_(mnck4))*invfac_(mncN1-1) +mncsumm2(mncN1,mncN2,mncN3,mncA,mncB,mncm)*mncN2*mncpoinv(4+mncm-2*mncN2-mncA-mncB+mncN2,-2) +sum_(mnck2,0,mncN1-1,sign_(mnck2+mncN3)*mncpo(5+mncm-2*mncN2-mncA-mncB-mnck2-mncN3,-2) *mncsumm3(mncN1,mncN2,mncN3,mncA,mncB,mncm,mnck2)*invfac_(mnck2))*invfac_(mncN3-1) ; * * Evaluate the gamma functions. * We multiply numerator and denominator with gamma(1-2*ep) * Then mncpo(mncx,-2) represents a normalized gamma function. * The following identities can then be applied: * (the table has overal factors ep taken out) * if ( count(mncsumm2,1) ); id mncpoinv(1,-2) = 1; id mncpoinv(mncx1?neg0_,-2) = -2*acc(mncPOINV(mncx1,-2))*ep; id mncpoinv(mncx1?,-2) = acc(mncPOINV(mncx1,-2)); id mncsumm2(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncm?) = +sum_(mnck2,0,mncN1-1,sum_(mnck4,0,mncN3-1,sign_(mnck2+mnck4)*fac_(mnck2+mncN2+mnck4-1) *mncpo(4+mncm-2*mncN2-mncA-mncB-mnck2-mnck4,-2)*mncsumm2(mncN1,mncN2,mncN3,mncA,mncB,mncm,mnck2,mnck4) *invfac_(mnck4))*invfac_(mnck2)); id mncpo(1,-2) = 1; id mncpo(mncx1?neg0_,-2) = -acc(mncPO(mncx1,-2))/2/ep; id mncpo(mncx1?,-2) = acc(mncPO(mncx1,-2)); id mncsumm2(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncm?,mnck2?,mnck4?) = +sum_(mnck1,0,mncN2,invfac_(mnck1)*invfac_(mncN2-mnck1) *mncftri(mncN1-mnck2,0,mncN3-mnck4,mncA+mnck1+mnck2,mncB+mncN2-mnck1+mnck4)); else; id mncpo(1,-2) = 1; id mncpo(mncx1?neg0_,-2) = -acc(mncPO(mncx1,-2))/2/ep; id mncpo(mncx1?,-2) = acc(mncPO(mncx1,-2)); id mncsumm1(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncm?,mnck4?) = sum_(mnck1,0,mncN2-1,sum_(mnck3,0,mncN2-mnck1-1, fac_(mnck1+mncN1+mnck3+mnck4-1)*invfac_(mnck3) *mncpoinv(5+mncm-2*mncN2-mncA-mncB+mnck1+mnck3,-2) *mncftri(0,mncN2-mnck1-mnck3,mncN3-mnck4,mncA+mnck1+mncN1,mncB+mnck3+mnck4) )*invfac_(mnck1)); id mncsumm3(mncN1?,mncN2?,mncN3?,mncA?,mncB?,mncm?,mnck2?) = sum_(mnck3,0,mncN2-1,sum_(mnck1,0,mncN2-mnck3-1, fac_(mnck1+mnck2+mnck3+mncN3-1)*invfac_(mnck1) *mncpoinv(5+mncm-2*mncN2-mncA-mncB+mnck1+mnck3,-2) *mncftri(mncN1-mnck2,mncN2-mnck1-mnck3,0,mncA+mnck1+mnck2,mncB+mnck3+mncN3) )*invfac_(mnck3)); id mncpoinv(1,-2) = 1; id mncpoinv(mncx1?neg0_,-2) = -2*acc(mncPOINV(mncx1,-2))*ep; id mncpoinv(mncx1?,-2) = acc(mncPOINV(mncx1,-2)); endif; id mncftri(mncN1?,mncN2?,mncN3?,mncA?,mncB?) = fac_(mncA-1)*fac_(mncB-1) /`P1'.`P1'^mncN1/`P'.`P'^mncN2/`P3'.`P3'^mncN3/`PA'.`PA'^mncA/`PB'.`PB'^mncB; else; repeat; if ( match(1/`P'.`P'/`P1'.`P1'/`P3'.`P3') > 0 ); id mncx^mncx4?/`PA'.`PA'^mncx1?/`PB'.`PB'^mncx2?/`P'.`P'^mncx3? = mncx^mncx4 /`PA'.`PA'^mncx1 /`PB'.`PB'^mncx2 /`P'.`P'^mncx3 *( +mncx2*`P'.`P'/`PB'.`PB'-mncx2*`P3'.`P3'/`PB'.`PB' +mncx1*`P'.`P'/`PA'.`PA'-mncx1*`P1'.`P1'/`PA'.`PA' )*mncdeno(4+mncx4-mncx1-mncx2-2*mncx3,-2); id,many,mncdeno(0,-2) = -1/2/ep; id,mncdeno(mncx1?,-2) = acc(1+2*ep/mncx1+4*ep^2/mncx1^2+8*ep^3/mncx1^3 +16*ep^4/mncx1^4+32*ep^5/mncx1^5+64*ep^6/mncx1^6 +128*ep^7/mncx1^7+256*ep^8/mncx1^8)/mncx1; endif; endrepeat; id mncx = 1; endif; #endprocedure *--#] triangle : *--#[ trim : #procedure trim(TOPO) #switch `TOPO' *--#[ la : * * *--#] la : *--#[ be : * * *--#] be : *--#[ no : * * *--#] no : *--#[ fa : * * *--#] fa : *--#[ bu : * * *--#] bu : *--#[ o1 : * * *--#] o1 : *--#[ o2 : * * *--#] o2 : *--#[ o3 : * * *--#] o3 : *--#[ o4 : * * *--#] o4 : *--#[ o5 : * * *--#] o5 : *--#[ o6 : * * *--#] o6 : *--#[ y1 : * * *--#] y1 : *--#[ y2 : * * *--#] y2 : *--#[ y3 : * * *--#] y3 : *--#[ y4 : * * *--#] y4 : *--#[ y5 : * * *--#] y5 : *--#[ y6 : * * *--#] y6 : *--#[ t1 : #case t1 * #if 'TRIM' > 0 id ep^{1+`CUTOFF'} = 0; #endif * #break *--#] t1 : *--#[ t2 : #case t2 * #if 'TRIM' > 0 id ep^{1+`CUTOFF'} = 0; #endif * #break *--#] t2 : *--#[ t3 : #case t3 * #if 'TRIM' > 0 id ep^{1+`CUTOFF'} = 0; #endif * #break *--#] t3 : *--#[ l1 : #case l1 * #if 'TRIM' > 0 id ep^{3-'TRIM'+`CUTOFF'} = 0; #endif * #break *--#] l1 : *--#[ l2 : #case l2 * * #break *--#] l2 : *--#[ l3 : #case l3 * * #break *--#] l3 : *--#[ tr : #case tr * #if 'TRIM' > 0 id ep^{4-'TRIM'+`CUTOFF'} = 0; #endif * #break *--#] tr : #endswitch #endprocedure *--#] trim : *--#[ two : #procedure two(P1,E1,P2,E2,P3,E3,P4,E4,P5,E5,Q,EQ,REDUCTION,INTS) * * Routine for the reduction of two loop diagrams. * All particles are massless and it treats only two point functions. * For the algorithm, see "Mincer:...." S.G.Gorishny, S.A.Larin, * L.R.Surguladze and F.V.Tkachov, Comp. Phys. Comm. 55(1989)381. * The core of this routine consists of the equations (3.8)-(3.11). * Note that equation 3.10 isn't right, but the equation 4.29 in * K.G.Chetyrkin and F.V.Tkachov, Nucl.Phys. B192(1981)159 is correct. * The odd parameters are the vectors and the even parameters * are symbols for 1/(p.p^ep). The last parameter indicates whether * there should be a tensor reduction first. * * This routine is (mostly) superceeded by the routine newtwo. Only when * we have to calculate extra elements in the table tabtwo we need this * routine. * #if ( `REDUCTION' > 0 ) id `P4' = `P1'-`Q'; id `P3' = `P2'-`Q'; id `P5' = `P1'-`P2'; .sort: Two loop momenta; id `P1'.`Q' = `P1'.`P1'/2+`Q'.`Q'/2-`P4'.`P4'/2; id `P2'.`Q' = `P2'.`P2'/2+`Q'.`Q'/2-`P3'.`P3'/2; id `P1'.`P2' = `P1'.`P1'/2+`P2'.`P2'/2-`P5'.`P5'/2; .sort: Two loop scalars; #endif repeat; if ( ( ( count(`P1'.`P1',1) < 0 ) || ( count(`E1',1) > 0 ) ) && ( ( count(`P2'.`P2',1) < 0 ) || ( count(`E2',1) > 0 ) ) && ( ( count(`P3'.`P3',1) < 0 ) || ( count(`E3',1) > 0 ) ) && ( ( count(`P4'.`P4',1) < 0 ) || ( count(`E4',1) > 0 ) ) && ( ( count(`P5'.`P5',1) < 0 ) || ( count(`E5',1) > 0 ) ) ); if ( count(`E5',1) == 0 ); if ( count(`E2',1,`E3',1) == 0 ); id `E1'^mncy1?/`P1'.`P1'^mncx1?/`P2'.`P2'^mncx2?/`P3'.`P3'^mncx3?* `E4'^mncy4?/`P4'.`P4'^mncx4?/`P5'.`P5'^mncx5?*`E5'^mncy5? = `E1'^mncy1/`P1'.`P1'^mncx1/`P2'.`P2'^mncx2/`P3'.`P3'^mncx3* `E4'^mncy4/`P4'.`P4'^mncx4/`P5'.`P5'^mncx5*`E5'^mncy5*( + acc(mncx1,mncy1)*`P5'.`P5'/`P1'.`P1' + acc(mncx4,mncy4)*`P5'.`P5'/`P4'.`P4' - acc(mncx1,mncy1)*`P2'.`P2'/`P1'.`P1' - acc(mncx4,mncy4)*`P3'.`P3'/`P4'.`P4' )*mncdeno(4-mncx1-mncx4-2*mncx5,-mncy1-mncy4-2*mncy5-2); else; id `E1'^mncy1?/`P1'.`P1'^mncx1?*`E2'^mncy2?/`P2'.`P2'^mncx2?* `E3'^mncy3?/`P3'.`P3'^mncx3?*`E4'^mncy4?/`P4'.`P4'^mncx4?* `E5'^mncy5?/`P5'.`P5'^mncx5? = `E1'^mncy1/`P1'.`P1'^mncx1*`E2'^mncy2/`P2'.`P2'^mncx2* `E3'^mncy3/`P3'.`P3'^mncx3*`E4'^mncy4/`P4'.`P4'^mncx4* `E5'^mncy5/`P5'.`P5'^mncx5*( + acc(mncx3,mncy3)*`P5'.`P5'/`P3'.`P3' + acc(mncx2,mncy2)*`P5'.`P5'/`P2'.`P2' - acc(mncx3,mncy3)*`P4'.`P4'/`P3'.`P3' - acc(mncx2,mncy2)*`P1'.`P1'/`P2'.`P2' )*mncdeno(4-mncx2-mncx3-2*mncx5,-mncy2-mncy3-2*mncy5-2); endif; else; if ( ( count(`P1'.`P1',1) < -1 ) && ( count(`E1',1) == 0 ) ); id `E1'^mncy1?/`P1'.`P1'^mncx1?*`E2'^mncy2?/`P2'.`P2'^mncx2?* `E3'^mncy3?/`P3'.`P3'^mncx3?*`E4'^mncy4?/`P4'.`P4'^mncx4?* `E5'^mncy5?/`P5'.`P5'^mncx5? = `E1'^mncy1/`P1'.`P1'^mncx1*`E2'^mncy2/`P2'.`P2'^mncx2* `E3'^mncy3/`P3'.`P3'^mncx3*`E4'^mncy4/`P4'.`P4'^mncx4* `E5'^mncy5/`P5'.`P5'^mncx5*( +acc(2*mncx4+mncx1+mncx5-5,+2*mncy4+mncy1+mncy5+2)*`P1'.`P1'*mncdeno(mncx1-1,mncy1) +`P4'.`P4' +acc(mncx5,mncy5)*`P4'.`P4'*`P1'.`P1'/`P5'.`P5'*mncdeno(mncx1-1,mncy1) -acc(mncx5,mncy5)*`P3'.`P3'*`P1'.`P1'/`P5'.`P5'*mncdeno(mncx1-1,mncy1) )/`Q'.`Q'; else; if ( ( count(`P2'.`P2',1) < -1 ) && ( count(`E2',1) == 0 ) ); id `E1'^mncy1?/`P1'.`P1'^mncx1?*`E2'^mncy2?/`P2'.`P2'^mncx2?* `E3'^mncy3?/`P3'.`P3'^mncx3?*`E4'^mncy4?/`P4'.`P4'^mncx4?* `E5'^mncy5?/`P5'.`P5'^mncx5? = `E1'^mncy1/`P1'.`P1'^mncx1*`E2'^mncy2/`P2'.`P2'^mncx2* `E3'^mncy3/`P3'.`P3'^mncx3*`E4'^mncy4/`P4'.`P4'^mncx4* `E5'^mncy5/`P5'.`P5'^mncx5*( +acc(2*mncx3+mncx2+mncx5-5,+2*mncy3+mncy2+mncy5+2)*`P2'.`P2'*mncdeno(mncx2-1,mncy2) +`P3'.`P3' +acc(mncx5,mncy5)*`P3'.`P3'*`P2'.`P2'/`P5'.`P5'*mncdeno(mncx2-1,mncy2) -acc(mncx5,mncy5)*`P4'.`P4'*`P2'.`P2'/`P5'.`P5'*mncdeno(mncx2-1,mncy2) )/`Q'.`Q'; else; if ( ( count(`P3'.`P3',1) < -1 ) && ( count(`E3',1) == 0 ) ); id `E1'^mncy1?/`P1'.`P1'^mncx1?*`E2'^mncy2?/`P2'.`P2'^mncx2?* `E3'^mncy3?/`P3'.`P3'^mncx3?*`E4'^mncy4?/`P4'.`P4'^mncx4?* `E5'^mncy5?/`P5'.`P5'^mncx5? = `E1'^mncy1/`P1'.`P1'^mncx1*`E2'^mncy2/`P2'.`P2'^mncx2* `E3'^mncy3/`P3'.`P3'^mncx3*`E4'^mncy4/`P4'.`P4'^mncx4* `E5'^mncy5/`P5'.`P5'^mncx5*( +acc(2*mncx2+mncx3+mncx5-5,+2*mncy2+mncy3+mncy5+2)*`P3'.`P3'*mncdeno(mncx3-1,mncy3) +`P2'.`P2' +acc(mncx5,mncy5)*`P2'.`P2'*`P3'.`P3'/`P5'.`P5'*mncdeno(mncx3-1,mncy3) -acc(mncx5,mncy5)*`P1'.`P1'*`P3'.`P3'/`P5'.`P5'*mncdeno(mncx3-1,mncy3) )/`Q'.`Q'; else; if ( ( count(`P4'.`P4',1) < -1 ) && ( count(`E4',1) == 0 ) ); id `E1'^mncy1?/`P1'.`P1'^mncx1?*`E2'^mncy2?/`P2'.`P2'^mncx2?* `E3'^mncy3?/`P3'.`P3'^mncx3?*`E4'^mncy4?/`P4'.`P4'^mncx4?* `E5'^mncy5?/`P5'.`P5'^mncx5? = `E1'^mncy1/`P1'.`P1'^mncx1*`E2'^mncy2/`P2'.`P2'^mncx2* `E3'^mncy3/`P3'.`P3'^mncx3*`E4'^mncy4/`P4'.`P4'^mncx4* `E5'^mncy5/`P5'.`P5'^mncx5*( +acc(2*mncx1+mncx4+mncx5-5,+2*mncy1+mncy4+mncy5+2)*`P4'.`P4'*mncdeno(mncx4-1,mncy4) +`P1'.`P1' +acc(mncx5,mncy5)*`P1'.`P1'*`P4'.`P4'/`P5'.`P5'*mncdeno(mncx4-1,mncy4) -acc(mncx5,mncy5)*`P2'.`P2'*`P4'.`P4'/`P5'.`P5'*mncdeno(mncx4-1,mncy4) )/`Q'.`Q'; else; if ( count(`E1',1,`E2',1,`E3',1,`E4',1) == 0 ); if ( count(`P5'.`P5',1) < -1 ); * * Note: The equation 3.10 in the Mincer paper is wrong! * id 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3' /`P4'.`P4'/`P5'.`P5'^mncx5?*`E5'^mncy5? = -acc(mncx5-2,2+mncy5)*mncdeno(mncx5-1,1+mncy5)*`P5'.`P5'/`Q'.`Q' /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5'^mncx5*`E5'^mncy5 -mncG(1,0,mncx5,mncy5,0,0)*mncG(1,0,mncx5,mncy5+1,0,0)*mncdeno(mncx5-1,1+mncy5) *acc(3-2*mncx5-3*ep-2*mncy5*ep)*2*`EQ'^mncy5*`EQ'^2/`Q'.`Q'^mncx5/(`INTS'); else; if ( count(`P5'.`P5',1) >= 0 ); id 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3' /`P4'.`P4'/`P5'.`P5'^mncx5?*`E5'^mncy5? = -mncdeno(mncx5-1,2+mncy5)*acc(mncx5,1+mncy5)*`Q'.`Q'/`P5'.`P5' /`P1'.`P1'/`P2'.`P2'/`P3'.`P3'/`P4'.`P4'/`P5'.`P5'^mncx5*`E5'^mncy5 -mncG(1,0,mncx5+1,mncy5,0,0)*mncG(1,0,mncx5+1,mncy5+1,0,0)*mncdeno(mncx5-1,2+mncy5) *acc(1-2*mncx5-3*ep-2*mncy5*ep)*2*`EQ'^mncy5*`EQ'^2/`Q'.`Q'^mncx5/(`INTS'); else; id 1/`P1'.`P1'/`P2'.`P2'/`P3'.`P3' /`P4'.`P4'/`P5'.`P5'*`E5'^mncy5? = mncG311/`Q'.`Q'*`EQ'^2*`EQ'^mncy5 /(`INTS'); * endif; endif; * else; * goto 1; endif; endif; endif; endif; endif; endif; endif; endrepeat; label 1; id mncdeno(0,mncy1?) = 1/mncy1/ep; id acc(0,mncx1?) = mncx1*ep; id acc(mncx1?,mncy1?) = acc(mncx1+mncy1*ep); id mncdeno(mncx1?,mncy1?) = mncaccm(1+ep*mncy1/mncx1)/mncx1; repeat id mncaccm(mncx1?)*mncaccm(mncx2?) = mncaccm(mncx1*mncx2); id mncaccm(mncx1?) = mncaccm(mncx1-1); id mncaccm(mncx1?) = mncaccm(mncx1-mncx1^2,mncx1^3); id mncaccm(mncx1?,mncx2?) = acc(1-mncx1-mncx2+mncx2*mncx1+mncx2^2); repeat id acc(mncx?)*acc(mncy?) = acc(mncx*mncy); id acc(mncx1?) = mncx1; #endprocedure *--#] two : *--#[ vertsub : #procedure vertsub #if 'GAUGE' == 0 id mncDg(mnci1?,mnci2?,mncp?) = d_(mnci1,mnci2)*mncDs(mncp); #else repeat; id,once,mncDg(mnci1?,mnci2?,mncp?)*mncV3G(?a,mnci1?,mncp?,?b) = mncV3G(?a,mnci2,mncp,?b)*mncDs(mncp) -mncxi*mncp(mnci2)*mncV3G(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci1?,mnci2?,mncp?)*mncV3G(?a,mnci1?,-mncp?,?b) = mncV3G(?a,mnci2,-mncp,?b)*mncDs(mncp) +mncxi*mncp(mnci2)*mncV3G(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncV3G(?a,mnci1?,mncp?,?b) = mncV3G(?a,mnci2,mncp,?b)*mncDs(mncp) -mncxi*mncp(mnci2)*mncV3G(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncV3G(?a,mnci1?,-mncp?,?b) = mncV3G(?a,mnci2,-mncp,?b)*mncDs(mncp) +mncxi*mncp(mnci2)*mncV3G(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); endrepeat; id mncDg(mnci1?,mnci2?,mncp?) = (d_(mnci1,mnci2)-mncxi*mncp(mnci1)*mncp(mnci2)*mncDs(mncp))*mncDs(mncp); #endif id mncDs(p1?) = 1/p1.p1; id mncDL(mnci1?,mncj1?,p1?) = d_(mnci1,mncj1)/p1.p1-p1(mnci1)*p1(mncj1)/p1.p1^2; .sort repeat; repeat; repeat; id,mncV3G(p1?,p1?,p2?,p2?,p3?,p3?) = 0; id,once,mncV3G(p1?,p1?,p2?,p2?,mnci3?,p3?) = p3.p3*p2(mnci3)-p2.p3*p3(mnci3); id,once,mncV3G(mnci3?,p3?,p1?,p1?,p2?,p2?) = p3.p3*p2(mnci3)-p2.p3*p3(mnci3); id,once,mncV3G(p2?,p2?,mnci3?,p3?,p1?,p1?) = p3.p3*p2(mnci3)-p2.p3*p3(mnci3); endrepeat; id,once,mncV3G(p1?,p1?,mnci2?,p2?,mnci3?,p3?) = p2(mnci2)*p2(mnci3)-p3(mnci2)*p3(mnci3)+p3.p3*d_(mnci2,mnci3)-p2.p2*d_(mnci2,mnci3); id,once,mncV3G(mnci3?,p3?,p1?,p1?,mnci2?,p2?) = p2(mnci2)*p2(mnci3)-p3(mnci2)*p3(mnci3)+p3.p3*d_(mnci2,mnci3)-p2.p2*d_(mnci2,mnci3); id,once,mncV3G(mnci2?,p2?,mnci3?,p3?,p1?,p1?) = p2(mnci2)*p2(mnci3)-p3(mnci2)*p3(mnci3)+p3.p3*d_(mnci2,mnci3)-p2.p2*d_(mnci2,mnci3); endrepeat; id,once,mncV3G(mnci1?,p1?,mnci2?,p2?,mnci3?,p3?) = 2*p1(mnci3)*d_(mnci1,mnci2)+p3(mnci3)*d_(mnci1,mnci2) +2*p2(mnci1)*d_(mnci2,mnci3)+p1(mnci1)*d_(mnci2,mnci3) +2*p3(mnci2)*d_(mnci3,mnci1)+p2(mnci2)*d_(mnci3,mnci1); endrepeat; id mncV4G(mnci1?,mnci2?,mnci3?,mnci4?,mncx1?,mncx2?,mncx3?) = +mncx1*(d_(mnci1,mnci3)*d_(mnci2,mnci4)-d_(mnci1,mnci4)*d_(mnci2,mnci3)) +mncx2*(d_(mnci1,mnci2)*d_(mnci3,mnci4)-d_(mnci1,mnci4)*d_(mnci2,mnci3)) +mncx3*(d_(mnci1,mnci3)*d_(mnci2,mnci4)-d_(mnci1,mnci2)*d_(mnci3,mnci4)); id D = acc(4-2*ep); #endprocedure *--#] vertsub : *--#[ vertsubm : #procedure vertsubm * Multiply replace_(Dg,mncDg,v2gp,mncv2gp,v2gi,mncv2gi,v2gc,mncv2gc, v3g,mncv3g,v3gp,mncv3gp,Ds,mncDs,DL,mncDL,v4g,mncv4g,V4G,mncV4G v3gc,mncv3gc,v3gi,mncv3gi,v4gc,mncv4gc,v4gp,mncv4gp); * multiply,replace_(mncv4gi,mncv4g); *id mncv4gp(?a) = mncx18*mncv4g(?a); id mncv4gp(?a) = mncv4g(?a); #ifdef `GAUGE' #if ( `GAUGE' == 0 ) id mncDg(mnci1?,mnci2?,mncp?) = -i_*d_(mnci1,mnci2)*mncDs(mncp); #else repeat; id mncDg(mnci1?,mnci2?,p1?)*mncv2gi(mnci1?,p1?,?a) = -i_*mncv2gi(mnci2,p1,?a)/p1.p1; id mncDg(mnci2?,mnci1?,p1?)*mncv2gi(mnci1?,p1?,?a) = -i_*mncv2gi(mnci2,p1,?a)/p1.p1; id mncDg(mnci1?,mnci2?,p1?)*mncv2gi(?a,mnci1?,p1?) = -i_*mncv2gi(?a,mnci2,p1)/p1.p1; id mncDg(mnci2?,mnci1?,p1?)*mncv2gi(?a,mnci1?,p1?) = -i_*mncv2gi(?a,mnci2,p1)/p1.p1; id mncDg(mnci1?,mnci2?,-p1?)*mncv2gi(mnci1?,p1?,?a) = -i_*mncv2gi(mnci2,p1,?a)/p1.p1; id mncDg(mnci2?,mnci1?,-p1?)*mncv2gi(mnci1?,p1?,?a) = -i_*mncv2gi(mnci2,p1,?a)/p1.p1; id mncDg(mnci1?,mnci2?,-p1?)*mncv2gi(?a,mnci1?,p1?) = -i_*mncv2gi(?a,mnci2,p1)/p1.p1; id mncDg(mnci2?,mnci1?,-p1?)*mncv2gi(?a,mnci1?,p1?) = -i_*mncv2gi(?a,mnci2,p1)/p1.p1; endrepeat; * repeat; * id mncDg(mnci1?,mnci2?,p1?)*mncv2gp(mnci1?,p1?,?a) = -i_*mncv2gp(mnci2,p1,?a)/p1.p1; * id mncDg(mnci2?,mnci1?,p1?)*mncv2gp(mnci1?,p1?,?a) = -i_*mncv2gp(mnci2,p1,?a)/p1.p1; * id mncDg(mnci1?,mnci2?,p1?)*mncv2gp(?a,mnci1?,p1?) = -i_*mncv2gp(?a,mnci2,p1)/p1.p1; * id mncDg(mnci2?,mnci1?,p1?)*mncv2gp(?a,mnci1?,p1?) = -i_*mncv2gp(?a,mnci2,p1)/p1.p1; * id mncDg(mnci1?,mnci2?,-p1?)*mncv2gp(mnci1?,p1?,?a) = -i_*mncv2gp(mnci2,p1,?a)/p1.p1; * id mncDg(mnci2?,mnci1?,-p1?)*mncv2gp(mnci1?,p1?,?a) = -i_*mncv2gp(mnci2,p1,?a)/p1.p1; * id mncDg(mnci1?,mnci2?,-p1?)*mncv2gp(?a,mnci1?,p1?) = -i_*mncv2gp(?a,mnci2,p1)/p1.p1; * id mncDg(mnci2?,mnci1?,-p1?)*mncv2gp(?a,mnci1?,p1?) = -i_*mncv2gp(?a,mnci2,p1)/p1.p1; * endrepeat; * repeat; * id mncDg(mnci1?,mnci2?,p1?)*mncv2gc(mnci1?,p1?,?a) = -i_*mncv2gc(mnci2,p1,?a)/p1.p1; * id mncDg(mnci2?,mnci1?,p1?)*mncv2gc(mnci1?,p1?,?a) = -i_*mncv2gc(mnci2,p1,?a)/p1.p1; * id mncDg(mnci1?,mnci2?,p1?)*mncv2gc(?a,mnci1?,p1?) = -i_*mncv2gc(?a,mnci2,p1)/p1.p1; * id mncDg(mnci2?,mnci1?,p1?)*mncv2gc(?a,mnci1?,p1?) = -i_*mncv2gc(?a,mnci2,p1)/p1.p1; * id mncDg(mnci1?,mnci2?,-p1?)*mncv2gc(mnci1?,p1?,?a) = -i_*mncv2gc(mnci2,p1,?a)/p1.p1; * id mncDg(mnci2?,mnci1?,-p1?)*mncv2gc(mnci1?,p1?,?a) = -i_*mncv2gc(mnci2,p1,?a)/p1.p1; * id mncDg(mnci1?,mnci2?,-p1?)*mncv2gc(?a,mnci1?,p1?) = -i_*mncv2gc(?a,mnci2,p1)/p1.p1; * id mncDg(mnci2?,mnci1?,-p1?)*mncv2gc(?a,mnci1?,p1?) = -i_*mncv2gc(?a,mnci2,p1)/p1.p1; * endrepeat; repeat; id,once,mncDg(mnci1?,mnci2?,mncp?)*mncv3g(?a,mnci1?,mncp?,?b) = -i_*mncv3g(?a,mnci2,mncp,?b)*mncDs(mncp) +i_*mncxi*mncp(mnci2)*mncv3g(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci1?,mnci2?,mncp?)*mncv3g(?a,mnci1?,-mncp?,?b) = -i_*mncv3g(?a,mnci2,-mncp,?b)*mncDs(mncp) -i_*mncxi*mncp(mnci2)*mncv3g(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncv3g(?a,mnci1?,mncp?,?b) = -i_*mncv3g(?a,mnci2,mncp,?b)*mncDs(mncp) +i_*mncxi*mncp(mnci2)*mncv3g(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncv3g(?a,mnci1?,-mncp?,?b) = -i_*mncv3g(?a,mnci2,-mncp,?b)*mncDs(mncp) -i_*mncxi*mncp(mnci2)*mncv3g(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci1?,mnci2?,mncp?)*mncv3gp(?a,mnci1?,mncp?,?b) = -i_*mncv3gp(?a,mnci2,mncp,?b)*mncDs(mncp) +i_*mncxi*mncp(mnci2)*mncv3gp(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci1?,mnci2?,mncp?)*mncv3gp(?a,mnci1?,-mncp?,?b) = -i_*mncv3gp(?a,mnci2,-mncp,?b)*mncDs(mncp) -i_*mncxi*mncp(mnci2)*mncv3gp(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncv3gp(?a,mnci1?,mncp?,?b) = -i_*mncv3gp(?a,mnci2,mncp,?b)*mncDs(mncp) +i_*mncxi*mncp(mnci2)*mncv3gp(?a,mncp,mncp,?b)*mncDs(mncp)*mncDs(mncp); id,once,mncDg(mnci2?,mnci1?,mncp?)*mncv3gp(?a,mnci1?,-mncp?,?b) = -i_*mncv3gp(?a,mnci2,-mncp,?b)*mncDs(mncp) -i_*mncxi*mncp(mnci2)*mncv3gp(?a,-mncp,-mncp,?b)*mncDs(mncp)*mncDs(mncp); endrepeat; #endif #if ( `GAUGE' > 0 ) if ( count(mncxi,1) > `GAUGE' ) discard; #endif #else id mncDg(mnci1?,mnci2?,mncp?) = -i_*d_(mnci1,mnci2)*mncDs(mncp); #endif id mncDs(p1?) = 1/p1.p1; id mncDL(mnci1?,mncj1?,p1?) = -i_*d_(mnci1,mncj1)/p1.p1+i_*p1(mnci1)*p1(mncj1)/p1.p1^2; id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); .sort:Gluon Propagators; repeat; repeat; repeat; repeat; repeat; repeat; repeat; id,mncv3g(p1?,p1?,p2?,p2?,p3?,p3?) = 0; id,mncv2gi(p1?,p1?,?a) = 0; id,mncv2gi(p1?,-p1?,?a) = 0; id,mncv2gi(?a,p1?,p1?) = 0; id,mncv2gi(?a,p1?,-p1?) = 0; * id,mncv2gp(p1?,p1?,?a) = 0; * id,mncv2gp(p1?,-p1?,?a) = 0; * id,mncv2gp(?a,p1?,p1?) = 0; * id,mncv2gp(?a,p1?,-p1?) = 0; * id,mncv2gc(p1?,p1?,?a) = 0; * id,mncv2gc(p1?,-p1?,?a) = 0; * id,mncv2gc(?a,p1?,p1?) = 0; * id,mncv2gc(?a,p1?,-p1?) = 0; id,once,mncv3g(p1?,p1?,p2?,p2?,mnci3?,p3?) = -i_*p3.p3*p2(mnci3)+i_*p2.p3*p3(mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(mnci3?,p3?,p1?,p1?,p2?,p2?) = -i_*p3.p3*p2(mnci3)+i_*p2.p3*p3(mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(p2?,p2?,mnci3?,p3?,p1?,p1?) = -i_*p3.p3*p2(mnci3)+i_*p2.p3*p3(mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(p1?,p1?,mnci2?,p2?,mnci3?,p3?) = -i_*p2(mnci2)*p2(mnci3)+i_*p3(mnci2)*p3(mnci3)-i_*p3.p3*d_(mnci2,mnci3)+i_*p2.p2*d_(mnci2,mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(mnci3?,p3?,p1?,p1?,mnci2?,p2?) = -i_*p2(mnci2)*p2(mnci3)+i_*p3(mnci2)*p3(mnci3)-i_*p3.p3*d_(mnci2,mnci3)+i_*p2.p2*d_(mnci2,mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(mnci2?,p2?,mnci3?,p3?,p1?,p1?) = -i_*p2(mnci2)*p2(mnci3)+i_*p3(mnci2)*p3(mnci3)-i_*p3.p3*d_(mnci2,mnci3)+i_*p2.p2*d_(mnci2,mnci3); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id,once,mncv3g(mnci1?,p1?,mnci2?,p2?,mnci3?,p3?) = -2*i_*p1(mnci3)*d_(mnci1,mnci2)-i_*p3(mnci3)*d_(mnci1,mnci2) -2*i_*p2(mnci1)*d_(mnci2,mnci3)-i_*p1(mnci1)*d_(mnci2,mnci3) -2*i_*p3(mnci2)*d_(mnci3,mnci1)-i_*p2(mnci2)*d_(mnci3,mnci1); id mncv3g(?a,p3?,-p3?) = -mncv3g(?a,-p3,-p3); id mncv3g(mnci1?index_,p1?,p2?,-p2?,?a) = -mncv3g(mnci1,p1,-p2,-p2,?a); id mncv3g(p3?,p1?,p2?,-p2?,?a) = -mncv3g(p3,p1,-p2,-p2,?a); id mncv3g(p1?,-p1?,?a) = -mncv3g(-p1,-p1,?a); endrepeat; id mncv4g(mnci1?,mnci2?,mnci3?,mnci4?) = -i_*(d_(mnci1,mnci3)*d_(mnci2,mnci4)-d_(mnci1,mnci4)*d_(mnci2,mnci3)); id mncV4G(mnci1?,mnci2?,mnci3?,mnci4?,mncx1?,mncx2?,mncx3?) = -i_*mncx1*(d_(mnci1,mnci3)*d_(mnci2,mnci4)-d_(mnci1,mnci4)*d_(mnci2,mnci3)) -i_*mncx2*(d_(mnci1,mnci2)*d_(mnci3,mnci4)-d_(mnci1,mnci4)*d_(mnci2,mnci3)) -i_*mncx3*(d_(mnci1,mnci3)*d_(mnci2,mnci4)-d_(mnci1,mnci2)*d_(mnci3,mnci4)); #ifdef `GAUGE' #if ( `GAUGE' != 0 ) id mncDg(mnci1?,mnci2?,mncp?) = -i_*(d_(mnci1,mnci2)-mncxi*mncp(mnci1)*mncp(mnci2)/mncp.mncp)/mncp.mncp; #endif #endif id D = acc(4-2*ep); id P.P = 0; id mncv2gi(mnci1?,p1?,mnci2?,p2?) = -i_*(d_(mnci1,mnci2)*p1.p2-p1(mnci2)*p2(mnci1)); id mncv3gi(mnci1?,p1?,mnci2?,p2?,mnci3?,p3?) = i_*( d_(mnci1,mnci2)*(p1(mnci3)-p2(mnci3))+d_(mnci2,mnci3)*(p2(mnci1)-p3(mnci1)) +d_(mnci3,mnci1)*(p3(mnci2)-p1(mnci2))); id mncv2gp(mnci1?,p1?,mnci2?,p2?) = -i_*(d_(mnci1,mnci2)*p1.p2-p1(mnci2)*p2(mnci1)); id mncv3gp(mnci1?,p1?,mnci2?,p2?,mnci3?,p3?) = i_*( d_(mnci1,mnci2)*(p1(mnci3)-p2(mnci3))+d_(mnci2,mnci3)*(p2(mnci1)-p3(mnci1)) +d_(mnci3,mnci1)*(p3(mnci2)-p1(mnci2))); id P.P = 0; id mncv2gc(mnci1?,p1?,mnci2?,p2?) = -i_*e_(mnci1,p1,mnci2,p2); id mncv3gc(mnci1?,p1?,mnci2?,p2?,mnci3?,p3?) = i_*( e_(mnci1,mnci2,mnci3,p1)+e_(mnci1,mnci2,mnci3,p2)+e_(mnci1,mnci2,mnci3,p3)); id mncv3gc(mncp?,mnci1?,mnci2?,mnci3?) = i_*e_(mnci1,mnci2,mnci3,mncp); id mncv3gc(mnci1?,mnci2?,mnci3?,mncp?) = -i_*e_(mnci1,mnci2,mnci3,mncp); *id mncv4gc(mnci1?,mnci2?,mnci3?,mnci4?) = -i_*e_(mnci1,mnci2,mnci3,mnci4); id mncv4gc(mnci1?,mnci2?,mnci3?,mnci4?) = 0; Contract; id P.P = 0; Multiply replace_(mncxi,xi); #endprocedure *--#] vertsubm : *--#[ ACCU : #procedure ACCU(TEXT) if ( count(ep,1) ); if ( count(acc,1) == 1 ); id ep^mncx?*acc(mncy?) = acc(ep^mncx*mncy); else; id ep^mncx? = acc(ep^mncx); endif; endif; .sort(PolyFun = acc):`TEXT'; #endprocedure *--#] ACCU : *--#[ ACCU2 : #procedure ACCU2(BRA,TEXT) if ( count(ep,1) ); if ( count(acc,1) == 1 ); id ep^mncx?*acc(mncy?) = acc(ep^mncx*mncy); else; id ep^mncx? = acc(ep^mncx); endif; endif; `BRA'; .sort(PolyFun = acc):`TEXT'; #endprocedure *--#] ACCU2 : *--#[ ACCUP : #procedure ACCUP(TEXT) id acc(mncx?) = mncx; .sort:`TEXT'; #endprocedure *--#] ACCUP : *--#] Procedures : *--#[ Tables : *#ifdef `POW' *#if ( `POW' >= 8 ) *#call pochtabl(24) *#else *#call pochtabl(20) *#endif *#else *#call pochtabl(20) *#endif #call pochtabl(40) #call tabtwo(20) *--#[ notabl.h : CTable sparse mncnoptab(4); Fill mncnoptab(3,3,3,3) = +mncF321*(12348000+80929380*ep+154821884*ep^2+127897200*ep^3) -18474865276279/324000-147056/3*ep^-3-9668041/30*ep^-2+85171103/ 1800*ep^-1-484428616/3*z3+13566578305724783/19440000*ep- 242214308*ep*z4-36402268628/15*ep*z3-887066202169941451/ 233280000*ep^2-15750783384*ep^2*z5-18201134314/5*ep^2*z4+ 9716859062113/900*ep^2*z3+970310248954642250107/69984000000* ep^3-116919803840/3*ep^3*z6-120047125306/15*ep^3*z5+ 9716859062113/600*ep^3*z4-1622560428166393/162000*ep^3*z3+ 61877762744/3*ep^3*z3^2; Fill mncnoptab(4,2,2,4) = +mncF321*(5488000+108813040/3*ep+636101336/9*ep^2+539316556/9* ep^3) -6586797294014227/250047000-269984/27*ep^-3-57006874/945*ep^-2+ 955059143/22050*ep^-1-1942771744/27*z3+32265602381017175333/ 105019740000*ep-971385872/9*ep*z4-48784892704/45*ep*z3- 14716124151748322677783/8821658160000*ep^2-21007720352/3*ep^2* z5-24392446352/15*ep^2*z4+470261481652577/99225*ep^2*z3+ 16062638098156806050644639/2646497448000000*ep^3-467816778560/ 27*ep^3*z6-3742522457368/945*ep^3*z5+470261481652577/66150* ep^3*z4-518245498504037389/125023500*ep^3*z3+247550195936/27* ep^3*z3^2; Fill mncnoptab(4,3,1,4) = +mncF321*(1756160+35253344/3*ep+212014264/9*ep^2+188470276/9*ep^3 ) -3041096169814853/357210000-291704/135*ep^-3-993209/75*ep^-2+ 158917319/18900*ep^-1-3110543296/135*z3+14638607366858786083/ 150028200000*ep-1555271648/45*ep*z4-235523635396/675*ep*z3- 33097145826361049126221/63011844000000*ep^2-33614899808/15* ep^2*z5-117761817698/225*ep^2*z4+210963502033831/141750*ep^2* z3+50225579358264849332772359/26464974480000000*ep^3- 149711777488/27*ep^3*z6-980661626032/675*ep^3*z5+ 210963502033831/94500*ep^3*z4-213839265046046363/178605000* ep^3*z3+396092020352/135*ep^3*z3^2; Fill mncnoptab(4,3,2,3) = +mncF321*(6585600+43566880*ep+255405080/3*ep^2+218176756/3*ep^3) -91660413154999/2976750-193760/9*ep^-3-6413092/45*ep^-2+27103277/ 1890*ep^-1-775759936/9*z3+231211864343620921/625117500*ep- 387879968/3*ep*z4-19502546104/15*ep*z3-1051763892065627126333/ 525098700000*ep^2-8401335488*ep^2*z5-9751273052/5*ep^2*z4+ 993928533023/175*ep^2*z3+801335149411118144270789/ 110270727000000*ep^3-187090648640/9*ep^3*z6-215591396824/45* ep^3*z5+2981785599069/350*ep^3*z4-7387245352032769/1488375* ep^3*z3+99010181312/9*ep^3*z3^2; Fill mncnoptab(4,3,3,2) = +mncF321*(5268480+35041664*ep+207980752/3*ep^2+181332772/3*ep^3) -357433853456101/14883750-1156064/45*ep^-3-4163404/25*ep^-2+ 64087288/1575*ep^-1-3094354816/45*z3+230831625298283032/ 781396875*ep-1547177408/15*ep*z4-234320034976/225*ep*z3- 1046312625153415872473/656373375000*ep^2-33595079168/5*ep^2*z5 -117160017488/75*ep^2*z4+106457437663238/23625*ep^2*z3+ 3171560379403555992674039/551353635000000*ep^3-149630678848/9* ep^3*z6-913580412592/225*ep^3*z5+53228718831619/7875*ep^3*z4- 28406560722533101/7441875*ep^3*z3+395941465472/45*ep^3*z3^2; Fill mncnoptab(4,4,2,2) = +mncF321*(2195200+44539040/3*ep+274271704/9*ep^2+253110668/9*ep^3 ) -86747864238209/8930250-417088/27*ep^-3-38521988/405*ep^-2+ 264311666/4725*ep^-1-769912640/27*z3+91377100658554171/ 750141000*ep-384956320/9*ep*z4-35353015376/81*ep*z3- 68382332114496332623/105019740000*ep^2-25184286400/9*ep^2*z5- 17676507688/27*ep^2*z4+25917365803922/14175*ep^2*z3+ 1534767304288720513119529/661624362000000*ep^3-186957366400/27 *ep^3*z6-53956855232/27*ep^3*z5+12958682901961/4725*ep^3*z4- 6156640386363296/4465125*ep^3*z3+98937952960/27*ep^3*z3^2; Fill mncnoptab(4,4,3,1) = +mncF321*(878080+17952032/3*ep+112406056/9*ep^2+35486972/3*ep^3) -1515457055404949/357210000-82712/135*ep^-3-18631369/2025*ep^-2- 89285363/2835*ep^-1-1559578048/135*z3+7299111146505237989/ 150028200000*ep-779789024/45*ep*z4-356235983624/2025*ep*z3- 5388187639775682120241/21003948000000*ep^2-50435518112/45*ep^2 *z5-178117991812/675*ep^2*z4+17096773309478/23625*ep^2*z3+ 24195498614676231180357277/26464974480000000*ep^3-74873488144/ 27*ep^3*z6-583811161436/675*ep^3*z5+8548386654739/7875*ep^3*z4 -89924500079186459/178605000*ep^3*z3+198121890176/135*ep^3* z3^2; Fill mncnoptab(5,1,1,5) = +mncF321*(343000+13993805/6*ep+347510143/72*ep^2+1279265441/288* ep^3) -54699046462671221/32006016000+39923/216*ep^-3+65445179/60480* ep^-2-453971069/313600*ep^-1-121886869/27*z3+ 253836725678646787039/13442526720000*ep-121886869/18*ep*z4- 3093087769/45*ep*z3-22650122422155291501199/225834448896000* ep^2-2626651729/6*ep^2*z5-3093087769/30*ep^2*z4+ 900668820502039/3175200*ep^2*z3+121360568594810030294666927/ 338751673344000000*ep^3-116980459115/108*ep^3*z6-5020119134743/ 15120*ep^3*z5+900668820502039/2116800*ep^3*z4- 1573874063791386901/8001504000*ep^3*z3+15474562766/27*ep^3* z3^2; Fill mncnoptab(5,2,1,4) = +mncF321*(1097600+22161440/3*ep+134795440/9*ep^2+40386356/3*ep^3) -10775201906664373/2000376000+860/27*ep^-3-1053382/945*ep^-2- 266829113/35280*ep^-1-390135008/27*z3+51071920301703536489/ 840157920000*ep-195067504/9*ep*z4-29544980671/135*ep*z3- 114920084132188764077321/352866326400000*ep^2-4203430864/3* ep^2*z5-29544980671/90*ep^2*z4+732307182618563/793800*ep^2*z3+ 24809653964079906364366963/21171979584000000*ep^3-93601856920/ 27*ep^3*z6-911656397969/945*ep^3*z5+732307182618563/529200* ep^3*z4-704255657056887853/1000188000*ep^3*z3+49532250496/27* ep^3*z3^2; Fill mncnoptab(5,2,2,3) = +mncF321*(2634240+17702272*ep+107380352/3*ep^2+96374632/3*ep^3) -2654032230525247/208372500-108592/45*ep^-3-35031746/1575*ep^-2- 1264086542/33075*ep^-1-1558464128/45*z3+12827538004268185367/ 87516450000*ep-779232064/15*ep*z4-39340546696/75*ep*z3- 28812333571720388839769/36756909000000*ep^2-16810404544/5*ep^2 *z5-19670273348/25*ep^2*z4+367046202658463/165375*ep^2*z3+ 6218079103834157466955843/2205414540000000*ep^3-74867588384/9* ep^3*z6-3585839545472/1575*ep^3*z5+367046202658463/110250*ep^3 *z4-179374922607847747/104186250*ep^3*z3+198101625856/45*ep^3* z3^2; Fill mncnoptab(5,3,1,3) = +mncF321*(823200+5611480*ep+35128688/3*ep^2+33153089/3*ep^3) -1553281109396459/381024000+6559/9*ep^-3+172871/540*ep^-2- 2946557347/100800*ep^-1-97752760/9*z3+291223686024966251/ 6401203200*ep-48876380/3*ep*z4-17836904227/108*ep*z3- 43035127636437464581/179233689600*ep^2-3153076220/3*ep^2*z5- 17836904227/72*ep^2*z4+102556294640003/151200*ep^2*z3+ 24185767378995071279342719/28229306112000000*ep^3-23403689750/ 9*ep^3*z6-29335295797/36*ep^3*z5+102556294640003/100800*ep^3* z4-88904587002275411/190512000*ep^3*z3+12385469600/9*ep^3*z3^2 ; Fill mncnoptab(5,3,2,2) = +mncF321*(1317120+9011296*ep+56857640/3*ep^2+54310940/3*ep^3) -349190112856271/59535000-381136/45*ep^-3-36449102/675*ep^-2+ 193339331/9450*ep^-1-770935424/45*z3+908441292764063803/ 12502350000*ep-385467712/15*ep*z4-177737284552/675*ep*z3- 336672426316471728901/875164500000*ep^2-25187813056/15*ep^2*z5 -88868642276/225*ep^2*z4+8482385865584/7875*ep^2*z3+ 1498938536718492224352757/1102707270000000*ep^3-37396251872/9* ep^3*z6-299689797328/225*ep^3*z5+4241192932792/2625*ep^3*z4- 21844780501124381/29767500*ep^3*z3+98951711488/45*ep^3*z3^2; Fill mncnoptab(5,3,3,1) = +mncF321*(329280+2300844*ep+15176623/3*ep^2+10330273/2*ep^3) -495589548067253/317520000-19369/45*ep^-3-12264643/1800*ep^-2- 745482991/30240*ep^-1-195095096/45*z3+2420727150527484823/ 133358400000*ep-97547548/15*ep*z4-10002254099/150*ep*z3- 5215308107863985935541/56010528000000*ep^2-6304354924/15*ep^2* z5-10002254099/100*ep^2*z4+98451031848443/378000*ep^2*z3+ 2547244079962834996142113/7841473920000000*ep^3-9358984838/9* ep^3*z6-89178432137/225*ep^3*z5+98451031848443/252000*ep^3*z4- 22229303943908503/158760000*ep^3*z3+24768954112/45*ep^3*z3^2; Fill mncnoptab(5,4,1,2) = +mncF321*(156800+3351040/3*ep+22964888/9*ep^2+24690728/9*ep^3) -1404687254200169/2000376000-22196/27*ep^-3-18341056/2835*ep^-2- 7901872933/1587600*ep^-1-55213792/27*z3+1020579030364635443/ 120022560000*ep-27606896/9*ep*z4-90522116039/2835*ep*z3- 188609945455644369829/4356374400000*ep^2-1799651888/9*ep^2*z5- 90522116039/1890*ep^2*z4+13564975274353/113400*ep^2*z3+ 21985072554580853853861361/148203857088000000*ep^3-13359354680/ 27*ep^3*z6-203225899661/945*ep^3*z5+13564975274353/75600*ep^3* z4-9927143676795133/200037600*ep^3*z3+7070050304/27*ep^3*z3^2; Fill mncnoptab(5,4,2,1) = +mncF321*(125440+2697296/3*ep+18710716/9*ep^2+20468072/9*ep^3) -2703599746937443/5000940000-141956/135*ep^-3-206700143/28350* ep^-2-395097751/264600*ep^-1-219587104/135*z3+5935816788455473/ 874800000*ep-109793552/45*ep*z4-362518693214/14175*ep*z3- 10111746922861423806637/294055272000000*ep^2-7193822576/45* ep^2*z5-181259346607/4725*ep^2*z4+26792864884873/283500*ep^2* z3+43340009244099005575632269/370509642720000000*ep^3- 10680940312/27*ep^3*z6-843770646296/4725*ep^3*z5+ 26792864884873/189000*ep^3*z4-89201440412140393/2500470000* ep^3*z3+28263996608/135*ep^3*z3^2; Fill mncnoptab(5,5,1,1) = +mncF321*(4900+117215/3*ep+979507/9*ep^2+1345652/9*ep^3) -2629892605029463/128024064000-9421/108*ep^-3-169868023/362880* ep^-2-170678409/627200*ep^-1-1745339/27*z3+3906601924079214383/ 15362887680000*ep-1745339/18*ep*z4-192174586747/181440*ep*z3- 33872779461257114128411/30111259852800000*ep^2-56228506/9*ep^2 *z5-192174586747/120960*ep^2*z4+2099180994649/725760*ep^2*z3+ 259272350358528080939985457/75880374829056000000*ep^3- 834700895/54*ep^3*z6-728875883983/60480*ep^3*z5+2099180994649/ 483840*ep^3*z4+114591641759088101/64012032000*ep^3*z3+ 221563843/27*ep^3*z3^2; Fill mncnoptab(6,1,1,4) = +mncF321*(175616+18254152/15*ep+117885044/45*ep^2+114868736/45* ep^3) -21394537161736301/25004700000-204262/675*ep^-3-11650321/10500* ep^-2+954399088/165375*ep^-1-1550442608/675*z3+ 49946815471179451343/5250987000000*ep-775221304/225*ep*z4- 119589917858/3375*ep*z3-221068053913697148215107/ 4410829080000000*ep^2-16799788984/75*ep^2*z5-59794958929/1125* ep^2*z4+1394825044812667/9922500*ep^2*z3+ 3336013001755015271821951/18903553200000000*ep^3-74823829124/ 135*ep^3*z6-4690409120177/23625*ep^3*z5+1394825044812667/ 6615000*ep^3*z4-253644821402229329/3125587500*ep^3*z3+ 197927971936/675*ep^3*z3^2; Fill mncnoptab(6,2,1,3) = +mncF321*(263424+9202816/5*ep+60549488/15*ep^2+4068144*ep^3) -1355689314527311/1041862500+9944/225*ep^-3+4198591/23625*ep^-2- 576422233/330750*ep^-1-780778304/225*z3+6235229745188311381/ 437582250000*ep-390389152/75*ep*z4-180342275932/3375*ep*z3- 4550736140110325844179/61261515000000*ep^2-25222698976/75*ep^2 *z5-90171137966/1125*ep^2*z4+38233962610057/183750*ep^2*z3+ 1435904903386910515860607/5513536350000000*ep^3-37443659312/45 *ep^3*z6-2504864599936/7875*ep^3*z5+38233962610057/122500*ep^3 *z4-113869619093002097/1041862500*ep^3*z3+99075261568/225*ep^3 *z3^2; Fill mncnoptab(6,2,2,2) = +mncF321*(263424+9349536/5*ep+63550216/15*ep^2+13453088/3*ep^3) -102264570285053/86821875-377056/225*ep^-3-27899296/2625*ep^-2+ 791190703/165375*ep^-1-770079104/225*z3+689816087850916079/ 48620250000*ep-385039552/75*ep*z4-60229585064/1125*ep*z3- 4478494538081579549939/61261515000000*ep^2-25185362176/75*ep^2 *z5-30114792532/375*ep^2*z4+167054477285254/826875*ep^2*z3+ 923761086596614009394023/3675690900000000*ep^3-37393003712/45* ep^3*z6-2776970161016/7875*ep^3*z5+83527238642627/275625*ep^3* z4-5102431582030799/57881250*ep^3*z3+98932701568/225*ep^3*z3^2 ; Fill mncnoptab(6,3,1,2) = +mncF321*(75264+2732576/5*ep+19418248/15*ep^2+4375172/3*ep^3) -712078941266617/2083725000-88616/225*ep^-3-65364799/23625*ep^-2- 76182557/220500*ep^-1-220289344/225*z3+501012737525811601/ 125023500000*ep-110144672/75*ep*z4-365253982064/23625*ep*z3- 2473236259397937148813/122523030000000*ep^2-7196656736/75*ep^2 *z5-182626991032/7875*ep^2*z4+6531961141462/118125*ep^2*z3+ 10531090054209424558825781/154379017800000000*ep^3-10684840432/ 45*ep^3*z6-916914185996/7875*ep^3*z5+3265980570731/39375*ep^3* z4-7865500278716921/520931250*ep^3*z3+28267134848/225*ep^3* z3^2; Fill mncnoptab(6,3,2,1) = +mncF321*(37632+1393728/5*ep+2057504/3*ep^2+12219952/15*ep^3) -71933674894463/463050000-88408/225*ep^-3-22366649/7875*ep^-2- 83726576/55125*ep^-1-109791872/225*z3+167588982845731357/ 83349000000*ep-54895936/75*ep*z4-6811801336/875*ep*z3- 804102596362564545281/81682020000000*ep^2-3596707168/75*ep^2* z5-10217702004/875*ep^2*z4+1045759816222/39375*ep^2*z3+ 3337024650509265674603387/102919345200000000*ep^3-5340164816/ 45*ep^3*z6-511804687508/7875*ep^3*z5+522879908111/13125*ep^3* z4-2440291568652619/694575000*ep^3*z3+14135986624/225*ep^3* z3^2; Fill mncnoptab(6,4,1,1) = +mncF321*(3136+379792/15*ep+3241304/45*ep^2+1525592/15*ep^3) -2549268572811643/200037600000-39952/675*ep^-3-181234189/567000* ep^-2-659982313/3969000*ep^-1-27943568/675*z3+ 3860910991384073903/24004512000000*ep-13971784/225*ep*z4- 193264660837/283500*ep*z3-33187829405274755374943/ 47048843520000000*ep^2-900046192/225*ep^2*z5-193264660837/ 189000*ep^2*z4+93718485863/52500*ep^2*z3+ 250276666811826223597212637/118563085670400000000*ep^3- 1336097504/135*ep^3*z6-766689336793/94500*ep^3*z5+93718485863/ 35000*ep^3*z4+134728857575406737/100018800000*ep^3*z3+ 3547235056/675*ep^3*z3^2; Fill mncnoptab(7,1,1,3) = +mncF321*(21952+809158/5*ep+3536738/9*ep^2+6779372/15*ep^3) -3723627858464321/33339600000+46897/1350*ep^-3+73683103/378000* ep^-2-3880010633/15876000*ep^-1-195059276/675*z3+ 2011180936405370417/1750329000000*ep-97529638/225*ep*z4- 10275753179/2250*ep*z3-33605907394204683768077/ 5881105440000000*ep^2-6302387794/225*ep^2*z5-10275753179/1500* ep^2*z4+621304648328711/39690000*ep^2*z3+ 281852097437090777296201/14702763600000000*ep^3-9356052053/135 *ep^3*z6-3524242023881/94500*ep^3*z5+621304648328711/26460000* ep^3*z4-15661539361486883/8334900000*ep^3*z3+24749846392/675* ep^3*z3^2; Fill mncnoptab(7,2,1,2) = +mncF321*(12544+478016/5*ep+11122048/45*ep^2+2798944/9*ep^3) -122256120796157/2083725000-8008/675*ep^-3-230717/875*ep^-2- 984557027/992250*ep^-1-111467072/675*z3+284789669522302391/ 437582250000*ep-55733536/225*ep*z4-62416905164/23625*ep*z3- 143229441938944581463/45946136250000*ep^2-3603407968/225*ep^2* z5-31208452582/7875*ep^2*z4+41338483683169/4961250*ep^2*z3+ 259415513509874378749591/25729836300000000*ep^3-5349378416/135 *ep^3*z6-596228973488/23625*ep^3*z5+41338483683169/3307500* ep^3*z4+592482558919429/520931250*ep^3*z3+14155997824/675*ep^3 *z3^2; Fill mncnoptab(7,2,2,1) = +mncF321*(3584+142176/5*ep+3551048/45*ep^2+982564/9*ep^3) -374471233554053/29172150000-352616/4725*ep^-3-77449193/165375* ep^-2+1455586687/13891500*ep^-1-215345344/4725*z3+ 2241732256522233103/12252303000000*ep-107672672/1575*ep*z4- 18014703404/23625*ep*z3-4335196203663260819741/ 5145967260000000*ep^2-7177216736/1575*ep^2*z5-9007351702/7875* ep^2*z4+74024547125663/34728750*ep^2*z3+ 1850614955290271301289153/720435416400000000*ep^3-10658152432/ 945*ep^3*z6-1415127690976/165375*ep^3*z5+74024547125663/ 23152500*ep^3*z4+15070316996637257/14586075000*ep^3*z3+ 4030936064/675*ep^3*z3^2; Fill mncnoptab(7,3,1,1) = +mncF321*(784+32956/5*ep+901354/45*ep^2+92264/3*ep^3) -886148642962981/266716800000-8938/675*ep^-3-56364883/756000* ep^-2-1845718393/31752000*ep^-1-6977492/675*z3+ 1253432482058137261/32006016000000*ep-3488746/225*ep*z4- 2436345897/14000*ep*z3-30607596905136007648783/ 188195374080000000*ep^2-224830948/225*ep^2*z5-7309037691/28000 *ep^2*z4+631667646391/1620000*ep^2*z3+ 2716548902149742211056557/5854967193600000000*ep^3-333757676/ 135*ep^3*z6-892583587373/378000*ep^3*z5+631667646391/1080000* ep^3*z4+67418828582763919/133358400000*ep^3*z3+885783964/675* ep^3*z3^2; Fill mncnoptab(8,1,1,2) = +mncF321*(512+149736/35*ep+809764/63*ep^2+871376/45*ep^3) -952067717329531/408410100000-305366/33075*ep^-3-157911017/ 4630500*ep^-2+15496117051/97240500*ep^-1-208616944/33075*z3+ 2014469301675257923/85766121000000*ep-104308472/11025*ep*z4- 18459022514/165375*ep*z3-7678404422199087183097/ 72043541640000000*ep^2-7147468136/11025*ep^2*z5-9229511257/ 55125*ep^2*z4+124386792382771/486202500*ep^2*z3+ 1586183556551739878897033/5043047914800000000*ep^3-10616893732/ 6615*ep^3*z6-1731875604241/1157625*ep^3*z5+124386792382771/ 324135000*ep^3*z4+7923958014749003/25525631250*ep^3*z3+ 4003612064/4725*ep^3*z3^2; Fill mncnoptab(8,2,1,1) = +mncF321*(64+20432/35*ep+632008/315*ep^2+32152/9*ep^3) -716689569830281/3267280800000-51952/33075*ep^-3-25922261/3087000 *ep^-2-18220093/24310125*ep^-1-28039568/33075*z3+ 7936745299016966827/2744515872000000*ep-14019784/11025*ep*z4- 9782594417/661500*ep*z3-25946249266475761914583/ 2305393332480000000*ep^2-902110192/11025*ep^2*z5-9782594417/ 441000*ep^2*z4+5290793609221/243101250*ep^2*z3+ 18181235334011565082082813/645510133094400000000*ep^3- 1339145504/6615*ep^3*z6-1163915645273/4630500*ep^3*z5+ 5290793609221/162067500*ep^3*z4+106997120053362619/ 1633640400000*ep^3*z3+508421008/4725*ep^3*z3^2; Fill mncnoptab(9,1,1,1) = +mncF321*(1+761/70*ep+29531/630*ep^2+534/5*ep^3) -1896551334050581/209105971200000+73249/1058400*ep^-3+51235081/ 296352000*ep^-2-54957379097/49787136000*ep^-1-413312/33075*z3+ 8936224038226962907/175649015808000000*ep-206656/11025*ep*z4- 1784446537/7056000*ep*z3-13316810311139996467993/ 147545173278720000000*ep^2-108497099/88200*ep^2*z5-1784446537/ 4704000*ep^2*z4-6464922123547/124467840000*ep^2*z3+ 3177033845753896392861293/41312648518041600000000*ep^3- 322184801/105840*ep^3*z6-892337660359/148176000*ep^3*z5- 6464922123547/82978560000*ep^3*z4+184494885866275729/ 104552985600000*ep^3*z3+30046963/18900*ep^3*z3^2; Fill mncnoptab(3,3,3,2) = +mncF321*(-771750-4953900*ep-9011205*ep^2-13597763/2*ep^3) +427977441983/103680-52955/12*ep^-3-3917279/144*ep^-2+44625631/ 2880*ep^-1+30740990/3*z3-452482708047761/10368000*ep+15370495* ep*z4+10894318111/72*ep*z3+450455563450084519/1866240000*ep^2+ 986109635*ep^2*z5+10894318111/48*ep^2*z4-1001390471183/1440* ep^2*z3-33677204091848669093/37324800000*ep^3+14637939575/6* ep^3*z6+9072775559/24*ep^3*z5-1001390471183/960*ep^3*z4+ 183611301673729/259200*ep^3*z3-3872248240/3*ep^3*z3^2; Fill mncnoptab(4,2,1,4) = +mncF321*(-171500-3355520/3*ep-18978358/9*ep^2-15066425/9*ep^3) +492417147546743/571536000-22771/54*ep^-3-1974617/1080*ep^-2+ 915359519/151200*ep^-1+61350212/27*z3-2327268549647543977/ 240045120000*ep+30675106/9*ep*z4+6081755963/180*ep*z3+ 1066201813911538123943/20163790080000*ep^2+657223546/3*ep^2*z5 +6081755963/120*ep^2*z4-4902171881419/32400*ep^2*z3- 8223818567243555494645517/42343959168000000*ep^3+14634154255/ 27*ep^3*z6+57095102603/540*ep^3*z5-4902171881419/21600*ep^3*z4 +5765926567672643/40824000*ep^3*z3-7745229688/27*ep^3*z3^2; Fill mncnoptab(4,2,2,3) = +mncF321*(-514500-3323180*ep-18389812/3*ep^2-4714702*ep^3) +10310508922643/3888000-29239/18*ep^-3-410057/40*ep^-2+29037853/ 7200*ep^-1+61243448/9*z3-6775865580736891/233280000*ep+ 30621724/3*ep*z4+18176277881/180*ep*z3+89670954121749751/ 559872000*ep^2+657103734*ep^2*z5+18176277881/120*ep^2*z4- 4963738475911/10800*ep^2*z3-498993953934085206359/839808000000 *ep^3+14631725395/9*ep^3*z6+49768444787/180*ep^3*z5- 4963738475911/7200*ep^3*z4+882618352576841/1944000*ep^3*z3- 7741924372/9*ep^3*z3^2; Fill mncnoptab(4,3,1,3) = +mncF321*(-154350-1014300*ep-1948821*ep^2-9641377/6*ep^3) +98209093589899/127008000-847/12*ep^-3-21579/16*ep^-2-513470983/ 100800*ep^-1+6090238/3*z3-152753095200805831/17781120000*ep+ 3045119*ep*z4+1219050631/40*ep*z3+1056374514389005786567/ 22404211200000*ep^2+197011647*ep^2*z5+3657151893/80*ep^2*z4- 6771787296457/50400*ep^2*z3-108404179044466323150599/ 627317913600000*ep^3+2924723515/6*ep^3*z6+4184868397/40*ep^3* z5-6771787296457/33600*ep^3*z4+7673313028366513/63504000*ep^3* z3-773740856/3*ep^3*z3^2; Fill mncnoptab(4,3,2,2) = +mncF321*(-308700-2022720*ep-3860458*ep^2-3148955*ep^3) +746549351657/432000-18823/6*ep^-3-2095397/120*ep^-2+476289437/ 21600*ep^-1+12415172/3*z3-449125235438929/25920000*ep+6207586* ep*z4+3674812061/60*ep*z3+438287596415876359/4665600000*ep^2+ 394830758*ep^2*z5+3674812061/40*ep^2*z4-2923026406189/10800* ep^2*z3-97267285626361303343/279936000000*ep^3+2930192755/3* ep^3*z6+12332952367/60*ep^3*z5-2923026406189/7200*ep^3*z4+ 1165116737111/4800*ep^3*z3-1550431624/3*ep^3*z3^2; Fill mncnoptab(4,3,3,1) = +mncF321*(-92610-617988*ep-1229375*ep^2-6431339/6*ep^3) +33417478515833/70560000-1981/60*ep^-3-6027293/3600*ep^-2- 2496913651/302400*ep^-1+18222274/15*z3-1343694916819313567/ 266716800000*ep+9111137/5*ep*z4+33147300541/1800*ep*z3+ 114871855302310598767/4148928000000*ep^2+590968581/5*ep^2*z5+ 33147300541/1200*ep^2*z4-8493750085031/108000*ep^2*z3- 4749683243141041351617371/47048843520000000*ep^3+1754683469/6* ep^3*z6+14981332583/200*ep^3*z5-8493750085031/72000*ep^3*z4+ 321803623869709/5040000*ep^3*z3-2320508288/15*ep^3*z3^2; Fill mncnoptab(4,4,2,1) = +mncF321*(-34300-706580/3*ep-4481344/9*ep^2-4267456/9*ep^3) +111808019020979/571536000-20419/54*ep^-3-7607927/3240*ep^-2+ 618574609/453600*ep^-1+12439448/27*z3-445250532042081389/ 240045120000*ep+6219724/9*ep*z4+11269028347/1620*ep*z3+ 109959409085167601159/11202105600000*ep^2+394928842/9*ep^2*z5+ 11269028347/1080*ep^2*z4-1267774525589/45360*ep^2*z3- 1493940934364144133092737/42343959168000000*ep^3+2930867695/27 *ep^3*z6+19815453883/540*ep^3*z5-1267774525589/30240*ep^3*z4+ 4895951725722377/285768000*ep^3*z3-1550824996/27*ep^3*z3^2; Fill mncnoptab(5,1,1,4) = +mncF321*(-42875-857465/3*ep-5081716/9*ep^2-4288988/9*ep^3) +3404545910519813/16003008000+11537/216*ep^-3+2265673/30240*ep^-2 -6664583011/4233600*ep^-1+15136664/27*z3-15988216912889349067/ 6721263360000*ep+7568332/9*ep*z4+6125595259/720*ep*z3+ 1450963600645412040721/112917224448000*ep^2+328057799/6*ep^2* z5+6125595259/480*ep^2*z4-232064779901863/6350400*ep^2*z3- 7871277158574862724537681/169375836672000000*ep^3+14611234315/ 108*ep^3*z6+515663295053/15120*ep^3*z5-232064779901863/4233600 *ep^3*z4+235301586478636511/8001504000*ep^3*z3-1932353011/27* ep^3*z3^2; Fill mncnoptab(5,2,1,3) = +mncF321*(-77175-515235*ep-1023456*ep^2-880308*ep^3) +94217706529879/254016000+1407/8*ep^-3+784633/1440*ep^-2- 794391811/201600*ep^-1+1010184*z3-151196680058747123/ 35562240000*ep+1515276*ep*z4+11025810727/720*ep*z3+ 1037193501047679745891/44808422400000*ep^2+196942641/2*ep^2*z5 +11025810727/480*ep^2*z4-1322641665353/20160*ep^2*z3- 524883255800341338489599/6273179136000000*ep^3+974611365/4* ep^3*z6+14962360703/240*ep^3*z5-1322641665353/13440*ep^3*z4+ 6726897680577397/127008000*ep^3*z3-128921373*ep^3*z3^2; Fill mncnoptab(5,2,2,2) = +mncF321*(-92610-625338*ep-1274140*ep^2-3428356/3*ep^3) +6657499764253/12960000-48041/60*ep^-3-17309333/3600*ep^-2+ 1298841/320*ep^-1+18573464/15*z3-439852636788781/86400000*ep+ 9286732/5*ep*z4+33499700221/1800*ep*z3+1265751352711720849/ 46656000000*ep^2+592057291/5*ep^2*z5+33499700221/1200*ep^2*z4- 2791715674057/36000*ep^2*z3-91703638831313342291/933120000000* ep^3+1757598409/6*ep^3*z6+17044103623/200*ep^3*z5- 2791715674057/24000*ep^3*z4+360690146870023/6480000*ep^3*z3- 2325018178/15*ep^3*z3^2; Fill mncnoptab(5,3,1,2) = +mncF321*(-25725-178115*ep-1148224/3*ep^2-1115492/3*ep^3) +15299981746757/108864000-10171/72*ep^-3-4960199/4320*ep^-2- 67110217/86400*ep^-1+3074120/9*z3-12594448880199007/9144576000 *ep+1537060/3*ep*z4+2256184967/432*ep*z3+9336714028372462327/ 1280240640000*ep^2+197199065/6*ep^2*z5+2256184967/288*ep^2*z4- 692946828817/33600*ep^2*z3-209561919144376993788007/ 8065516032000000*ep^3+2927244775/36*ep^3*z6+4211428631/144* ep^3*z5-692946828817/22400*ep^3*z4+4433789322108281/381024000* ep^3*z3-387198175/9*ep^3*z3^2; Fill mncnoptab(5,3,2,1) = +mncF321*(-15435-108633*ep-241388*ep^2-246268*ep^3) +115620267808099/1270080000-23387/120*ep^-3-1040799/800*ep^-2+ 1988123/120960*ep^-1+3101224/15*z3-433205664999625789/ 533433600000*ep+1550612/5*ep*z4+3798914129/1200*ep*z3+ 953189996848508890063/224042112000000*ep^2+197423737/10*ep^2* z5+3798914129/800*ep^2*z4-18201985707979/1512000*ep^2*z3- 1420835809009562557877137/94097687040000000*ep^3+586068763/12* ep^3*z6+23895199043/1200*ep^3*z5-18201985707979/1008000*ep^3* z4+3401275539718969/635040000*ep^3*z3-387440543/15*ep^3*z3^2; Fill mncnoptab(5,4,1,1) = +mncF321*(-1225-28385/3*ep-223588/9*ep^2-280516/9*ep^3) +116607543852899/16003008000-6157/216*ep^-3-12443447/90720*ep^-2+ 33603169/12700800*ep^-1+433736/27*z3-56108643614351387/ 960180480000*ep+216868/9*ep*z4+11782494547/45360*ep*z3+ 10176588959807380511/34850995200000*ep^2+28181663/18*ep^2*z5+ 11782494547/30240*ep^2*z4-142743593939/181440*ep^2*z3- 1138925339345471191969297/1185630856704000000*ep^3+418387585/ 108*ep^3*z6+39921563683/15120*ep^3*z5-142743593939/120960*ep^3 *z4-2026504979194183/8001504000*ep^3*z3-55115257/27*ep^3*z3^2; Fill mncnoptab(6,1,1,3) = +mncF321*(-9261-324849/5*ep-713484/5*ep^2-2105276/15*ep^3) +2037883590668579/44452800000+733/200*ep^-3+7183069/252000*ep^-2- 1717712057/21168000*ep^-1+3025784/25*z3-9366902119661172109/ 18670176000000*ep+4538676/25*ep*z4+33824122981/18000*ep*z3+ 20365282487307021008543/7841473920000000*ep^2+590302451/50* ep^2*z5+33824122981/12000*ep^2*z4-384649802506099/52920000* ep^2*z3-4239694899793729301404471/470488435200000000*ep^3+ 584250883/20*ep^3*z6+160657060521/14000*ep^3*z5- 384649802506099/35280000*ep^3*z4+76535202001698329/22226400000 *ep^3*z3-386279703/25*ep^3*z3^2; Fill mncnoptab(6,2,1,2) = +mncF321*(-6174-223146/5*ep-104188*ep^2-563244/5*ep^3) +35390275843033/1058400000-16667/300*ep^-3-1822397/6000*ep^-2+ 682534127/1512000*ep^-1+6238568/75*z3-434777012367296309/ 1333584000000*ep+3119284/25*ep*z4+1280879763/1000*ep*z3+ 34232228875753080469/20744640000000*ep^2+197538817/25*ep^2*z5+ 3842639289/2000*ep^2*z4-2483000659637/540000*ep^2*z3- 1329482997087133255728617/235244217600000000*ep^3+586377883/30 *ep^3*z6+28342510763/3000*ep^3*z5-2483000659637/360000*ep^3*z4 +28683922329583/25200000*ep^3*z3-776135206/75*ep^3*z3^2; Fill mncnoptab(6,2,2,1) = +mncF321*(-2058-77322/5*ep-582596/15*ep^2-697684/15*ep^3) +43705933939733/3175200000-51667/900*ep^-3-643293/2000*ep^-2+ 164162507/504000*ep^-1+6370168/225*z3-139189622958910043/ 1333584000000*ep+3185084/75*ep*z4+3941599109/9000*ep*z3+ 284817721145446935161/560105280000000*ep^2+198016217/75*ep^2* z5+3941599109/6000*ep^2*z4-1787394847591/1260000*ep^2*z3- 406516047614610669011719/235244217600000000*ep^3+587678483/90* ep^3*z6+35438874503/9000*ep^3*z5-1787394847591/840000*ep^3*z4- 213593000841617/1587600000*ep^3*z3-776868806/225*ep^3*z3^2; Fill mncnoptab(6,3,1,1) = +mncF321*(-441-17619/5*ep-49024/5*ep^2-198916/15*ep^3) +4402290724537/1646400000-2127/200*ep^-3-13081511/252000*ep^-2+ 85049863/21168000*ep^-1+144504/25*z3-54838846552119547/ 2667168000000*ep+216756/25*ep*z4+11976922627/126000*ep*z3+ 86130091074774485687/871274880000000*ep^2+28172031/50*ep^2*z5+ 11976922627/84000*ep^2*z4-279967472731/1080000*ep^2*z3- 1035564755066924999198257/3293419046400000000*ep^3+27883023/20 *ep^3*z6+46223813203/42000*ep^3*z5-279967472731/720000*ep^3*z4 -1318638481701517/7408800000*ep^3*z3-18362643/25*ep^3*z3^2; Fill mncnoptab(7,1,1,2) = +mncF321*(-343-13587/5*ep-334588/45*ep^2-439492/45*ep^3) +238117911919931/133358400000+29933/5400*ep^-3+4181741/756000* ep^-2-10958786353/63504000*ep^-1+2849984/675*z3- 883201342630552501/56010528000000*ep+1424992/225*ep*z4+ 3961449709/54000*ep*z3+1834162497944619811127/ 23524421760000000*ep^2+195314417/450*ep^2*z5+3961449709/36000* ep^2*z4-31912953008411/158760000*ep^2*z3- 2372303555868712751477/9601804800000000*ep^3+580243283/540* ep^3*z6+308962178921/378000*ep^3*z5-31912953008411/105840000* ep^3*z4-8239367484431519/66679200000*ep^3*z3-382793503/675* ep^3*z3^2; Fill mncnoptab(7,2,1,1) = +mncF321*(-49-2121/5*ep-12056/9*ep^2-95236/45*ep^3) +37694309069933/133358400000-4981/5400*ep^-3-3848197/756000*ep^-2 -229928551/63504000*ep^-1+434912/675*z3-16503907631292229/ 8001504000000*ep+217456/225*ep*z4+4150542589/378000*ep*z3+ 218943420721111077521/23524421760000000*ep^2+28232231/450*ep^2 *z5+4150542589/252000*ep^2*z4-497959087979/22680000*ep^2*z3- 29768473738642604852471/1097806348800000000*ep^3+83826869/540* ep^3*z6+62069652863/378000*ep^3*z5-497959087979/15120000*ep^3* z4-2753680979639657/66679200000*ep^3*z3-55258729/675*ep^3*z3^2 ; Fill mncnoptab(8,1,1,1) = +mncF321*(-1-363/35*ep-1876/45*ep^2-3868/45*ep^3) +61242264325133/6534561600000-26581/264600*ep^-3-8290837/37044000 *ep^-2+4495302041/3111696000*ep^-1+413312/33075*z3- 152139085793242243/2744515872000000*ep+206656/11025*ep*z4+ 641079787/2646000*ep*z3+132285840513374288561/ 1152696666240000000*ep^2+27303431/22050*ep^2*z5+641079787/ 1764000*ep^2*z4-799682942573/7779240000*ep^2*z3- 21663477798443527944773/161377533273600000000*ep^3+81083669/ 26460*ep^3*z6+100249580303/18522000*ep^3*z5-799682942573/ 5186160000*ep^3*z4-5759518766993417/3267280800000*ep^3*z3- 7517647/4725*ep^3*z3^2; Fill mncnoptab(3,2,2,3) = +mncF321*(72000+447180*ep+747924*ep^2+480618*ep^3) -13078015423/40500-1166/3*ep^-3-219653/90*ep^-2+179359/150*ep^-1- 2821456/3*z3+565882214657/135000*ep-1410728*ep*z4-621784364/45 *ep*z3-1380474171937/58320*ep^2-91821544*ep^2*z5-310892182/15* ep^2*z4+5079190309/75*ep^2*z3+10795391538230017/121500000*ep^3 -681607940/3*ep^3*z6-225292126/15*ep^3*z5+5079190309/50*ep^3* z4-1651738402261/20250*ep^3*z3+360782144/3*ep^3*z3^2; Fill mncnoptab(3,3,2,2) = +mncF321*(54000+338400*ep+579300*ep^2+389442*ep^3) -931159283/4320-800*ep^-3-48001/12*ep^-2+1417247/180*ep^-1-692080 *z3+4000067937751/1296000*ep-1038120*ep*z4-62078545/6*ep*z3- 1373111247871933/77760000*ep^2-68738160*ep^2*z5-62078545/4* ep^2*z4+4503970373/90*ep^2*z3+306560840748059083/4665600000* ep^3-170115200*ep^3*z6-29097285/2*ep^3*z5+4503970373/60*ep^3* z4-127257836447/2160*ep^3*z3+90039440*ep^3*z3^2; Fill mncnoptab(3,3,3,1) = +mncF321*(20250+128700*ep+228135*ep^2+326041/2*ep^3) -5573732533/57600+175/4*ep^-3-9581/48*ep^-2-7492889/2880*ep^-1- 268870*z3+12321204871351/10368000*ep-403305*ep*z4-94545971/24* ep*z3-1342385534847433/207360000*ep^2-25864965*ep^2*z5- 94545971/16*ep^2*z4+26728562377/1440*ep^2*z3+ 893679005070682051/37324800000*ep^3-127980475/2*ep^3*z6- 64821819/8*ep^3*z5+26728562377/960*ep^3*z4-574343840911/28800* ep^3*z3+33876080*ep^3*z3^2; Fill mncnoptab(4,1,1,4) = +mncF321*(8000+154100/3*ep+834880/9*ep^2+596896/9*ep^3) -2807827829/72900-1630/27*ep^-3-3245/18*ep^-2+34576/27*ep^-1- 2767280/27*z3+979385889611/2187000*ep-1383640/9*ep*z4-42000568/ 27*ep*z3-82333006392269/32805000*ep^2-30534040/3*ep^2*z5- 21000284/9*ep^2*z4+580881628/81*ep^2*z3+18300189788648053/ 1968300000*ep^3-680097700/27*ep^3*z6-102467986/27*ep^3*z5+ 290440814/27*ep^3*z4-266302275491/36450*ep^3*z3+359544160/27* ep^3*z3^2; Fill mncnoptab(4,2,1,3) = +mncF321*(18000+114480*ep+202824*ep^2+429344/3*ep^3) -28221879029/324000+4/3*ep^-3-1799/20*ep^-2-44113/75*ep^-1-712816/ 3*z3+6698633885851/6480000*ep-356408*ep*z4-35012467/10*ep*z3- 1334945533997143/233280000*ep^2-22987584*ep^2*z5-105037401/20* ep^2*z4+1233387929/75*ep^2*z3+496726438361785639/23328000000* ep^3-170624840/3*ep^3*z6-73120709/10*ep^3*z5+1233387929/50* ep^3*z4-2845879844033/162000*ep^3*z3+90310064/3*ep^3*z3^2; Fill mncnoptab(4,2,2,2) = +mncF321*(27000+172440*ep+308832*ep^2+222848*ep^3) -23078731723/216000-461*ep^-3-130721/60*ep^-2+19017283/3600*ep^-1 -343096*z3+19670240647171/12960000*ep-514644*ep*z4-156219263/ 30*ep*z3-1341854811063227/155520000*ep^2-34339812*ep^2*z5- 156219263/20*ep^2*z4+43860540853/1800*ep^2*z3+ 1481190508161083359/46656000000*ep^3-84991790*ep^3*z6- 113322567/10*ep^3*z5+43860540853/1200*ep^3*z4-2838716657281/ 108000*ep^3*z3+44969984*ep^3*z3^2; Fill mncnoptab(4,3,1,2) = +mncF321*(7200+47340*ep+90744*ep^2+219752/3*ep^3) -9262246349/324000-338/3*ep^-3-11801/20*ep^-2+26071/25*ep^-1- 274768/3*z3+869340324673/2160000*ep-137384*ep*z4-14061799/10* ep*z3-2593202167320779/1166400000*ep^2-9157272*ep^2*z5- 42185397/20*ep^2*z4+93660934/15*ep^2*z3+6916541103435469/ 864000000*ep^3-67992620/3*ep^3*z6-47502533/10*ep^3*z5+46830467/ 5*ep^3*z4-927545699897/162000*ep^3*z3+35970656/3*ep^3*z3^2; Fill mncnoptab(4,3,2,1) = +mncF321*(5400+35880*ep+70408*ep^2+176864/3*ep^3) -4269941147/216000-251/3*ep^-3-93673/180*ep^-2+3333209/10800* ep^-1-208696/3*z3+11837431004993/38880000*ep-104348*ep*z4- 95416027/90*ep*z3-1288560599511527/777600000*ep^2-6877284*ep^2 *z5-95416027/60*ep^2*z4+4997899579/1080*ep^2*z3+ 822251862691016741/139968000000*ep^3-51057890/3*ep^3*z6- 40414601/10*ep^3*z5+4997899579/720*ep^3*z4-428404196921/108000 *ep^3*z3+27038672/3*ep^3*z3^2; Fill mncnoptab(4,4,1,1) = +mncF321*(400+8840/3*ep+63592/9*ep^2+7696*ep^3) -3869903417/2916000-364/27*ep^-3-89387/1620*ep^-2+432743/8100* ep^-1-143024/27*z3+3785470839041/174960000*ep-71512/9*ep*z4- 67431383/810*ep*z3-373802388286249/3499200000*ep^2-4592896/9* ep^2*z5-67431383/540*ep^2*z4+15504985/54*ep^2*z3+ 214867154579307517/629856000000*ep^3-34089160/27*ep^3*z6- 181608587/270*ep^3*z5+15504985/36*ep^3*z4-38101263701/1458000* ep^3*z3+18149488/27*ep^3*z3^2; Fill mncnoptab(5,1,1,3) = +mncF321*(3375+22395*ep+43536*ep^2+104612/3*ep^3) -94014346831/5184000+121/8*ep^-3+106063/1440*ep^-2-16207369/86400 *ep^-1-44488*z3+59566361995607/311040000*ep-66732*ep*z4- 482890991/720*ep*z3-3781229088441071/3732480000*ep^2-8608297/2 *ep^2*z5-482890991/480*ep^2*z4+125551041401/43200*ep^2*z3+ 4103746659068029283/1119744000000*ep^3-42596605/4*ep^3*z6- 205548973/80*ep^3*z5+125551041401/28800*ep^3*z4-6032517677917/ 2592000*ep^3*z3+5632437*ep^3*z3^2; Fill mncnoptab(5,2,1,2) = +mncF321*(2700+18360*ep+37740*ep^2+33384*ep^3) -1631016859/144000-15/2*ep^-3-14459/120*ep^-2-80399/288*ep^-1- 35568*z3+1309588517171/8640000*ep-53352*ep*z4-32279897/60*ep* z3-414365786043767/518400000*ep^2-3448146*ep^2*z5-32279897/40* ep^2*z4+8084649367/3600*ep^2*z3+87039592845807311/31104000000* ep^3-8531445*ep^3*z6-51729673/20*ep^3*z5+8084649367/2400*ep^3* z4-111458878849/72000*ep^3*z3+4516836*ep^3*z3^2; Fill mncnoptab(5,2,2,1) = +mncF321*(1080+7614*ep+16860*ep^2+16668*ep^3) -1703250341/540000-201/5*ep^-3-28709/150*ep^-2+179513/450*ep^-1- 66384/5*z3+1861089308173/32400000*ep-99576/5*ep*z4-32408209/ 150*ep*z3-599577817365743/1944000000*ep^2-6840588/5*ep^2*z5- 32408209/100*ep^2*z4+1869171101/2250*ep^2*z3+ 120687898758406801/116640000000*ep^3-3387102*ep^3*z6-67409351/ 50*ep^3*z5+1869171101/1500*ep^3*z4-110264324321/270000*ep^3*z3 +8967048/5*ep^3*z3^2; Fill mncnoptab(5,3,1,1) = +mncF321*(225+1695*ep+4232*ep^2+14588/3*ep^3) -1507518839/1728000-49/8*ep^-3-37471/1440*ep^-2+1281373/86400* ep^-1-2968*z3+3821093000941/311040000*ep-4452*ep*z4-34159189/ 720*ep*z3-359327648879459/6220800000*ep^2-572607/2*ep^2*z5- 34159189/480*ep^2*z4+1328419919/8640*ep^2*z3+ 201519411456555217/1119744000000*ep^3-2833355/4*ep^3*z6- 102322021/240*ep^3*z5+1328419919/5760*ep^3*z4+16239094283/ 864000*ep^3*z3+376691*ep^3*z3^2; Fill mncnoptab(6,1,1,2) = +mncF321*(216+8034/5*ep+19536/5*ep^2+12824/3*ep^3) -8071460023/8100000-181/25*ep^-3-24496/1125*ep^-2+1915223/13500* ep^-1-62704/25*z3+5141063764979/486000000*ep-94056/25*ep*z4- 99509497/2250*ep*z3-1592976577402789/29160000000*ep^2-6791228/ 25*ep^2*z5-99509497/1500*ep^2*z4+2486005109/16875*ep^2*z3+ 315841581112490303/1749600000000*ep^3-3364262/5*ep^3*z6- 93936761/250*ep^3*z5+2486005109/11250*ep^3*z4+737714957/ 4050000*ep^3*z3+8863368/25*ep^3*z3^2; Fill mncnoptab(6,2,1,1) = +mncF321*(36+1464/5*ep+4156/5*ep^2+3368/3*ep^3) -35661097/400000-77/50*ep^-3-55603/9000*ep^-2+967589/108000*ep^-1 -11984/25*z3+3353461354561/1944000000*ep-17976/25*ep*z4- 35320249/4500*ep*z3-106061586980389/12960000000*ep^2-1152438/ 25*ep^2*z5-35320249/3000*ep^2*z4+5421912199/270000*ep^2*z3+ 163989472978178677/6998400000000*ep^3-570227/5*ep^3*z6- 143768761/1500*ep^3*z5+5421912199/180000*ep^3*z4+98936435671/ 5400000*ep^3*z3+1520428/25*ep^3*z3^2; Fill mncnoptab(7,1,1,1) = +mncF321*(1+49/5*ep+1624/45*ep^2+196/3*ep^3) -3387368219/388800000+469/5400*ep^-3+14099/108000*ep^-2-1960937/ 1296000*ep^-1-8288/675*z3+1489128179587/23328000000*ep-4144/ 225*ep*z4-4305961/18000*ep*z3-212389697488967/1399680000000* ep^2-546119/450*ep^2*z5-4305961/12000*ep^2*z4+671659133/ 3240000*ep^2*z3+5864300625069653/27993600000000*ep^3-1621781/ 540*ep^3*z6-251344361/54000*ep^3*z5+671659133/2160000*ep^3*z4+ 314742502271/194400000*ep^3*z3+1054921/675*ep^3*z3^2; Fill mncnoptab(3,2,1,3) = +mncF321*(-3000-18175*ep-56775/2*ep^2-62681/4*ep^3) +2831372533/194400+455/18*ep^-3+6319/216*ep^-2-4589599/6480*ep^-1 +347900/9*z3-981631156921/5832000*ep+173950/3*ep*z4+15385216/ 27*ep*z3+174859009381927/174960000*ep^2+11472050/3*ep^2*z5+ 7692608/9*ep^2*z4-2341452043/810*ep^2*z3-20353735507609999/ 5248800000*ep^3+85170625/9*ep^3*z6+101007/2*ep^3*z5-2341452043/ 540*ep^3*z4+186017498477/48600*ep^3*z3-45049000/9*ep^3*z3^2; Fill mncnoptab(3,2,2,2) = +mncF321*(-6000-36050*ep-55115*ep^2-58769/2*ep^3) +145969549/3888-1435/9*ep^-3-70691/108*ep^-2+1431199/648*ep^-1+ 745480/9*z3-8538217571/23328*ep+372740/3*ep*z4+31188362/27*ep* z3+280520998435/139968*ep^2+23094220/3*ep^2*z5+15594181/9*ep^2 *z4-960052477/162*ep^2*z3-6555304195205/839808*ep^3+171342950/ 9*ep^3*z6-278719/3*ep^3*z5-960052477/108*ep^3*z4+7546575143/ 972*ep^3*z3-90650960/9*ep^3*z3^2; Fill mncnoptab(3,3,2,1) = +mncF321*(-1500-9350*ep-15740*ep^2-10056*ep^3) +7510602449/777600-235/9*ep^-3-67391/432*ep^-2+2082899/12960* ep^-1+181420/9*z3-4047664683001/46656000*ep+90710/3*ep*z4+ 63188269/216*ep*z3+1333376175245399/2799360000*ep^2+5756680/3* ep^2*z5+63188269/144*ep^2*z4-1823745029/1296*ep^2*z3- 308659913558125201/167961600000*ep^3+42721550/9*ep^3*z6+ 3212689/8*ep^3*z5-1823745029/864*ep^3*z4+123998267593/77760* ep^3*z3-22583180/9*ep^3*z3^2; Fill mncnoptab(4,1,1,3) = +mncF321*(-1000-18715/3*ep-20873/2*ep^2-75349/12*ep^3) +15081744101/2916000+203/54*ep^-3+19823/3240*ep^-2-11583047/97200 *ep^-1+345164/27*z3-5068206135881/87480000*ep+172582/9*ep*z4+ 77945816/405*ep*z3+34075577725679/104976000*ep^2+11433386/9* ep^2*z5+38972908/135*ep^2*z4-11323638923/12150*ep^2*z3- 95865719075274911/78732000000*ep^3+84887485/27*ep^3*z6+7327807/ 30*ep^3*z5-11323638923/8100*ep^3*z4+781570941061/729000*ep^3* z3-44846536/27*ep^3*z3^2; Fill mncnoptab(4,2,1,2) = +mncF321*(-1000-19000/3*ep-33140/3*ep^2-7356*ep^3) +1399378579/233280-740/27*ep^-3-70421/648*ep^-2+1649821/3888* ep^-1+380120/27*z3-830598308171/13996800*ep+190060/9*ep*z4+ 63915859/324*ep*z3+265513355415829/839808000*ep^2+11577080/9* ep^2*z5+63915859/216*ep^2*z4-9047565331/9720*ep^2*z3- 59892736173404771/50388480000*ep^3+85877800/27*ep^3*z6+ 14518357/36*ep^3*z5-9047565331/6480*ep^3*z4+560619015779/ 583200*ep^3*z3-45505480/27*ep^3*z3^2; Fill mncnoptab(4,2,2,1) = +mncF321*(-500-9800/3*ep-18380/3*ep^2-13820/3*ep^3) +8626579097/2332800-1505/54*ep^-3-70453/648*ep^-2+15165647/38880* ep^-1+195640/27*z3-4214387793553/139968000*ep+97820/9*ep*z4+ 32636837/324*ep*z3+1255131350992397/8398080000*ep^2+5807710/9* ep^2*z5+32636837/216*ep^2*z4-8745103783/19440*ep^2*z3- 281386935001295653/503884800000*ep^3+43068725/27*ep^3*z6+ 12175471/36*ep^3*z5-8745103783/12960*ep^3*z4+432476501867/ 1166400*ep^3*z3-22776860/27*ep^3*z3^2; Fill mncnoptab(4,3,1,1) = +mncF321*(-100-2110/3*ep-1532*ep^2-4240/3*ep^3) +7805797697/11664000-119/27*ep^-3-93743/6480*ep^-2+5998307/194400 *ep^-1+35276/27*z3-3678149914921/699840000*ep+17638/9*ep*z4+ 65653693/3240*ep*z3+1124429304138407/41990400000*ep^2+1150904/ 9*ep^2*z5+65653693/2160*ep^2*z4-1524656501/19440*ep^2*z3- 242933913396033217/2519424000000*ep^3+8543590/27*ep^3*z6+ 5106251/40*ep^3*z5-1524656501/12960*ep^3*z4+178981790621/ 5832000*ep^3*z3-4484812/27*ep^3*z3^2; Fill mncnoptab(5,1,1,2) = +mncF321*(-125-2585/3*ep-5378/3*ep^2-4520/3*ep^3) +38410091629/46656000+763/216*ep^-3-13217/12960*ep^-2-88538189/ 777600*ep^-1+39136/27*z3-17384289807653/2799360000*ep+19568/9* ep*z4+162821989/6480*ep*z3+1145042053767533/33592320000*ep^2+ 2825303/18*ep^2*z5+162821989/4320*ep^2*z4-38018769899/388800* ep^2*z3-1251829455671825417/10077696000000*ep^3+41988185/108* ep^3*z6+96811367/720*ep^3*z5-38018769899/259200*ep^3*z4+ 1142882614903/23328000*ep^3*z3-5526329/27*ep^3*z3^2; Fill mncnoptab(5,2,1,1) = +mncF321*(-25-565/3*ep-1394/3*ep^2-504*ep^3) +7464164057/46656000-193/216*ep^-3-42829/12960*ep^-2+3267047/ 777600*ep^-1+8864/27*z3-3355464483121/2799360000*ep+4432/9*ep* z4+33840689/6480*ep*z3+994245465988157/167961600000*ep^2+ 577387/18*ep^2*z5+33840689/4320*ep^2*z4-1335421139/77760*ep^2* z3-204736393942725637/10077696000000*ep^3+8572165/108*ep^3*z6+ 34528907/720*ep^3*z5-1335421139/51840*ep^3*z4-77106917509/ 23328000*ep^3*z3-1126693/27*ep^3*z3^2; Fill mncnoptab(6,1,1,1) = +mncF321*(-1-137/15*ep-30*ep^2-136/3*ep^3) +9848776457/1166400000-769/5400*ep^-3-49837/324000*ep^-2+8517547/ 3888000*ep^-1+8288/675*z3-4938159875041/69984000000*ep+4144/ 225*ep*z4+36299969/162000*ep*z3+812691746919341/4199040000000* ep^2+552619/450*ep^2*z5+36299969/108000*ep^2*z4-3874397359/ 9720000*ep^2*z3-84399321150016117/251942400000000*ep^3+1641281/ 540*ep^3*z6+23055049/6000*ep^3*z5-3874397359/6480000*ep^3*z4- 792344004853/583200000*ep^3*z3-1056421/675*ep^3*z3^2; Fill mncnoptab(2,2,2,2) = +mncF321*(864+4872*ep+6160*ep^2+2080*ep^3) -79897/27-64*ep^-3-500/3*ep^-2+10846/9*ep^-1-9568*z3+2415263/54* ep-14352*ep*z4-466976/3*ep*z3-301544561/972*ep^2-1084256*ep^2* z5-233488*ep^2*z4+7862020/9*ep^2*z3+7305736105/5832*ep^3- 2686720*ep^3*z6+1461488/3*ep^3*z5+3931010/3*ep^3*z4-13613594/9 *ep^3*z3+1419936*ep^3*z3^2; Fill mncnoptab(3,1,1,3) = +mncF321*(216+1263*ep+3527/2*ep^2+2745/4*ep^3) -1209925/864+9/2*ep^-3+123/8*ep^-2-4087/48*ep^-1-2876*z3+74575541/ 5184*ep-4314*ep*z4-123208/3*ep*z3-261219799/3456*ep^2-274742* ep^2*z5-61604*ep^2*z4+3954535/18*ep^2*z3+53840551243/186624* ep^3-679665*ep^3*z6+296923/6*ep^3*z5+3954535/12*ep^3*z4- 66792013/216*ep^3*z3+358952*ep^3*z3^2; Fill mncnoptab(3,2,1,2) = +mncF321*(288+1680*ep+2352*ep^2+1000*ep^3) -466685/648-4*ep^-3-310/9*ep^-2+473/108*ep^-1-3808*z3+65128439/ 3888*ep-5712*ep*z4-478994/9*ep*z3-2423078429/23328*ep^2-368336 *ep^2*z5-239497/3*ep^2*z4+15792437/54*ep^2*z3+55684273211/ 139968*ep^3-911320*ep^3*z6+255074/3*ep^3*z5+15792437/36*ep^3* z4-145579541/324*ep^3*z3+483456*ep^3*z3^2; Fill mncnoptab(3,2,2,1) = +mncF321*(192+1144*ep+1700*ep^2+820*ep^3) -582479/972-148/9*ep^-3-1217/27*ep^-2+47689/162*ep^-1-18656/9*z3+ 57290287/5832*ep-9328/3*ep*z4-955180/27*ep*z3-2318262503/34992 *ep^2-719984/3*ep^2*z5-477590/9*ep^2*z4+14768251/81*ep^2*z3+ 53675221699/209952*ep^3-5353240/9*ep^3*z6+30040*ep^3*z5+ 14768251/54*ep^3*z4-130946501/486*ep^3*z3+2829952/9*ep^3*z3^2; Fill mncnoptab(3,3,1,1) = +mncF321*(36+234*ep+428*ep^2+288*ep^3) -1518557/10368-5/3*ep^-3-565/144*ep^-2+11917/864*ep^-1-1420/3*z3+ 273452161/124416*ep-710*ep*z4-514753/72*ep*z3-17588035523/ 1492992*ep^2-45480*ep^2*z5-514753/48*ep^2*z4+13856185/432*ep^2 *z3+722092304833/17915904*ep^3-337550/3*ep^3*z6-501757/24*ep^3 *z5+13856185/288*ep^3*z4-145796297/5184*ep^3*z3+180140/3*ep^3* z3^2; Fill mncnoptab(4,1,1,2) = +mncF321*(64+1204/3*ep+2008/3*ep^2+1088/3*ep^3) -1072745/2916-142/27*ep^-3-1705/162*ep^-2+56761/486*ep^-1-16304/ 27*z3+7103453/2187*ep-8152/9*ep*z4-974044/81*ep*z3-2091442613/ 104976*ep^2-709256/9*ep^2*z5-487022/27*ep^2*z4+13585957/243* ep^2*z3+5969403647/78732*ep^3-5278660/27*ep^3*z6-137522/9*ep^3 *z5+13585957/162*ep^3*z4-46640755/729*ep^3*z3+2764768/27*ep^3* z3^2; Fill mncnoptab(4,2,1,1) = +mncF321*(16+328/3*ep+664/3*ep^2+512/3*ep^3) -471157/23328-40/27*ep^-3-1019/324*ep^-2+16361/972*ep^-1-5840/27* z3+204421561/279936*ep-2920/9*ep*z4-519899/162*ep*z3- 15939861799/3359232*ep^2-185360/9*ep^2*z5-519899/108*ep^2*z4+ 6396317/486*ep^2*z3+664497061693/40310784*ep^3-1375600/27*ep^3 *z6-284797/18*ep^3*z5+6396317/324*ep^3*z4-96026881/11664*ep^3* z3+740080/27*ep^3*z3^2; Fill mncnoptab(5,1,1,1) = +mncF321*(1+25/3*ep+70/3*ep^2+80/3*ep^3) -2696245/373248+25/216*ep^-3+17/2592*ep^-2-63191/31104*ep^-1-320/ 27*z3+369093769/4478976*ep-160/9*ep*z4-286261/1296*ep*z3- 14446077745/53747712*ep^2-21235/18*ep^2*z5-286261/864*ep^2*z4+ 8334223/15552*ep^2*z3+347958467269/644972544*ep^3-315325/108* ep^3*z6-405143/144*ep^3*z5+8334223/10368*ep^3*z4+180662513/ 186624*ep^3*z3+40765/27*ep^3*z3^2; Fill mncnoptab(2,2,2,1) = +mncF321*(-54-288*ep-300*ep^2-52*ep^3) +50881/216-9*ep^-3-85/6*ep^-2+6803/36*ep^-1+984*z3-5699221/1296* ep+1476*ep*z4+30293/3*ep*z3+169478029/7776*ep^2+71868*ep^2*z5+ 30293/2*ep^2*z4-1161235/18*ep^2*z3-3923798305/46656*ep^3+ 177210*ep^3*z6-45843*ep^3*z5-1161235/12*ep^3*z4+12166483/108* ep^3*z3-94224*ep^3*z3^2; Fill mncnoptab(3,1,1,2) = +mncF321*(-27-150*ep-176*ep^2-32*ep^3) +144325/432+3/2*ep^-3-15/4*ep^-2-377/8*ep^-1+256*z3-4415225/2592* ep+384*ep*z4+30517/6*ep*z3+46434923/5184*ep^2+33082*ep^2*z5+ 30517/4*ep^2*z4-973087/36*ep^2*z3-3508242421/93312*ep^3+82065* ep^3*z6-92441/6*ep^3*z5-973087/24*ep^3*z4+9238751/216*ep^3*z3- 42820*ep^3*z3^2; Fill mncnoptab(3,2,1,1) = +mncF321*(-9-54*ep-80*ep^2-32*ep^3) +73417/1296-5/6*ep^-3-29/36*ep^-2+2027/216*ep^-1+352/3*z3-4203133/ 7776*ep+176*ep*z4+30409/18*ep*z3+130630981/46656*ep^2+11598* ep^2*z5+30409/12*ep^2*z4-953683/108*ep^2*z3-3124509001/279936* ep^3+86105/3*ep^3*z6-2519/6*ep^3*z5-953683/72*ep^3*z4+7415851/ 648*ep^3*z3-44804/3*ep^3*z3^2; Fill mncnoptab(4,1,1,1) = +mncF321*(-1-22/3*ep-16*ep^2-32/3*ep^3) +44165/11664-13/54*ep^-3+59/324*ep^-2+6575/1944*ep^-1+320/27*z3- 6225337/69984*ep+160/9*ep*z4+31733/162*ep*z3+146368673/419904* ep^2+10910/9*ep^2*z5+31733/108*ep^2*z4-756175/972*ep^2*z3- 2188498741/2519424*ep^3+81025/27*ep^3*z6+9493/6*ep^3*z5-756175/ 648*ep^3*z4-395617/5832*ep^3*z3-40900/27*ep^3*z3^2; Fill mncnoptab(2,1,1,2) = +mncF321*(8+38*ep+22*ep^2-6*ep^3) -677/3-10/3*ep^-3+1/3*ep^-2+233/3*ep^-1+112/3*z3+1567/3*ep+56*ep* z4-4480/3*ep*z3-8735/3*ep^2-8472*ep^2*z5-2240*ep^2*z4+22024/3* ep^2*z3+41137/3*ep^3-63820/3*ep^3*z6+11300*ep^3*z5+11012*ep^3* z4-50308/3*ep^3*z3+32032/3*ep^3*z3^2; Fill mncnoptab(2,2,1,1) = +mncF321*(4+20*ep+16*ep^2) -85/4-4/3*ep^-3+3/2*ep^-2+31/2*ep^-1-176/3*z3+571/8*ep-88*ep*z4- 697*ep*z3-18683/16*ep^2-5344*ep^2*z5-2091/2*ep^2*z4+4579*ep^2* z3+204803/32*ep^3-39640/3*ep^3*z6+5921*ep^3*z5+13737/2*ep^3*z4 -20705/2*ep^3*z3+22192/3*ep^3*z3^2; Fill mncnoptab(3,1,1,1) = +mncF321*(1+6*ep+8*ep^2) -53/16+1/6*ep^-3-5/12*ep^-2-47/24*ep^-1-32/3*z3+3427/32*ep-16*ep* z4-1151/6*ep*z3-34665/64*ep^2-1078*ep^2*z5-1151/4*ep^2*z4+ 11911/12*ep^2*z3+214079/128*ep^3-8005/3*ep^3*z6-159/2*ep^3*z5+ 11911/8*ep^3*z4-8559/8*ep^3*z3+4084/3*ep^3*z3^2; Fill mncnoptab(2,1,1,1) = +mncF321*(-1-4*ep) -10-2/3*ep^-3+10/3*ep^-2-2*ep^-1+32/3*z3-42*ep+16*ep*z4+404/3*ep* z3+478*ep^2+1208*ep^2*z5+202*ep^2*z4-1212*ep^2*z3-2194*ep^3+ 8980/3*ep^3*z6-2684*ep^3*z5-1818*ep^3*z4+3812*ep^3*z3-4144/3* ep^3*z3^2; Fill mncnoptab(1,1,1,1) = mncF321; * (20*z5+50*z6*ep+68*z3^2*ep+450*z7*ep^2+204*z3*z4*ep^2+ep^3*zz5)*(1+2*ep+4*ep^2); *--#] notabl.h : *--#[ gtabls.h : Ctable,relax,mncT00(1:12,1:12); Ctable,relax,mncT10(-8:12,1:12); Ctable,relax,mncT20(-8:12,1:12); Ctable,relax,mncT11(-8:12,-8:12); Fill mncT00(1,1) = ep^-1; Fill mncT00(2,1) = 2-ep^-1; Fill mncT00(1,2) = 2-ep^-1; Fill mncT00(2,2) = 2-2*ep^-1+4*ep; Fill mncT00(3,1) = -1+2*ep; Fill mncT00(1,3) = -1+2*ep; Fill mncT00(3,2) = -1-2*ep^-1+8*ep+4*ep^2; Fill mncT00(2,3) = -1-2*ep^-1+8*ep+4*ep^2; Fill mncT00(3,3) = -5-6*ep^-1+23*ep+20*ep^2+4*ep^3; Fill mncT00(4,1) = -1/3+4/3*ep^2; Fill mncT00(1,4) = -1/3+4/3*ep^2; Fill mncT00(4,2) = -8/3-2*ep^-1+22/3*ep+32/3*ep^2+8/3*ep^3; Fill mncT00(2,4) = -8/3-2*ep^-1+22/3*ep+32/3*ep^2+8/3*ep^3; Fill mncT00(4,3) = -15-12*ep^-1+127/3*ep+178/3*ep^2+68/3*ep^3+8/3* ep^4; Fill mncT00(3,4) = -15-12*ep^-1+127/3*ep+178/3*ep^2+68/3*ep^3+8/3* ep^4; Fill mncT00(4,4) = -58-40*ep^-1+1180/9*ep+226*ep^2+1036/9*ep^3+24* ep^4+16/9*ep^5; Fill mncT00(5,1) = -1/6-1/6*ep+2/3*ep^2+2/3*ep^3; Fill mncT00(1,5) = -1/6-1/6*ep+2/3*ep^2+2/3*ep^3; Fill mncT00(5,2) = -23/6-2*ep^-1+35/6*ep+15*ep^2+26/3*ep^3+4/3* ep^4; Fill mncT00(2,5) = -23/6-2*ep^-1+35/6*ep+15*ep^2+26/3*ep^3+4/3* ep^4; Fill mncT00(5,3) = -97/3-20*ep^-1+371/6*ep+751/6*ep^2+217/3*ep^3+ 50/3*ep^4+4/3*ep^5; Fill mncT00(3,5) = -97/3-20*ep^-1+371/6*ep+751/6*ep^2+217/3*ep^3+ 50/3*ep^4+4/3*ep^5; Fill mncT00(5,4) = -505/3-100*ep^-1+5311/18*ep+11569/18*ep^2+3740/ 9*ep^3+1100/9*ep^4+152/9*ep^5+8/9*ep^6; Fill mncT00(4,5) = -505/3-100*ep^-1+5311/18*ep+11569/18*ep^2+3740/ 9*ep^3+1100/9*ep^4+152/9*ep^5+8/9*ep^6; Fill mncT00(5,5) = -3835/6-350*ep^-1+34147/36*ep+43147/18*ep^2+ 63929/36*ep^3+5720/9*ep^4+1082/9*ep^5+104/9*ep^6+4/9*ep^7; Fill mncT00(6,1) = -1/10-1/6*ep+1/3*ep^2+2/3*ep^3+4/15*ep^4; Fill mncT00(1,6) = -1/10-1/6*ep+1/3*ep^2+2/3*ep^3+4/15*ep^4; Fill mncT00(6,2) = -71/15-2*ep^-1+62/15*ep+53/3*ep^2+46/3*ep^3+76/ 15*ep^4+8/15*ep^5; Fill mncT00(2,6) = -71/15-2*ep^-1+62/15*ep+53/3*ep^2+46/3*ep^3+76/ 15*ep^4+8/15*ep^5; Fill mncT00(6,3) = -58-30*ep^-1+2333/30*ep+6529/30*ep^2+500/3*ep^3 +172/3*ep^4+136/15*ep^5+8/15*ep^6; Fill mncT00(3,6) = -58-30*ep^-1+2333/30*ep+6529/30*ep^2+500/3*ep^3 +172/3*ep^4+136/15*ep^5+8/15*ep^6; Fill mncT00(6,4) = -401-210*ep^-1+8123/15*ep+13433/9*ep^2+52729/45 *ep^3+3992/9*ep^4+3976/45*ep^5+80/9*ep^6+16/45*ep^7; Fill mncT00(4,6) = -401-210*ep^-1+8123/15*ep+13433/9*ep^2+52729/45 *ep^3+3992/9*ep^4+3976/45*ep^5+80/9*ep^6+16/45*ep^7; Fill mncT00(6,5) = -11683/6-980*ep^-1+427073/180*ep+321547/45*ep^2 +120747/20*ep^3+25521/10*ep^4+9106/15*ep^5+412/5*ep^6+268/45*ep^7 ; Fill mncT00(5,6) = -11683/6-980*ep^-1+427073/180*ep+321547/45*ep^2 +120747/20*ep^3+25521/10*ep^4+9106/15*ep^5+412/5*ep^6+268/45*ep^7 ; Fill mncT00(6,6) = -37009/5-3528*ep^-1+1164389/150*ep+2400553/90* ep^2+2213339/90*ep^3+23205/2*ep^4+80157/25*ep^5+8092/15*ep^6+272/ 5*ep^7; Fill mncT00(7,1) = -1/15-13/90*ep+1/6*ep^2+5/9*ep^3+2/5*ep^4+4/45* ep^5; Fill mncT00(1,7) = -1/15-13/90*ep+1/6*ep^2+5/9*ep^3+2/5*ep^4+4/45* ep^5; Fill mncT00(7,2) = -82/15-2*ep^-1+217/90*ep+1729/90*ep^2+196/9* ep^3+476/45*ep^4+104/45*ep^5+8/45*ep^6; Fill mncT00(2,7) = -82/15-2*ep^-1+217/90*ep+1729/90*ep^2+196/9* ep^3+476/45*ep^4+104/45*ep^5+8/45*ep^6; Fill mncT00(7,3) = -464/5-42*ep^-1+2603/30*ep+15089/45*ep^2+28489/ 90*ep^3+6416/45*ep^4+1508/45*ep^5+176/45*ep^6+8/45*ep^7; Fill mncT00(3,7) = -464/5-42*ep^-1+2603/30*ep+15089/45*ep^2+28489/ 90*ep^3+6416/45*ep^4+1508/45*ep^5+176/45*ep^6+8/45*ep^7; Fill mncT00(7,4) = -12467/15-392*ep^-1+77009/90*ep+405461/135*ep^2 +249029/90*ep^3+57259/45*ep^4+14788/45*ep^5+2168/45*ep^6+56/15* ep^7; Fill mncT00(4,7) = -12467/15-392*ep^-1+77009/90*ep+405461/135*ep^2 +249029/90*ep^3+57259/45*ep^4+14788/45*ep^5+2168/45*ep^6+56/15* ep^7; Fill mncT00(7,5) = -75782/15-2352*ep^-1+445667/90*ep+1953209/108* ep^2+465035/27*ep^3+1510033/180*ep^4+215411/90*ep^5+1246/3*ep^6+ 388/9*ep^7; Fill mncT00(5,7) = -75782/15-2352*ep^-1+445667/90*ep+1953209/108* ep^2+465035/27*ep^3+1510033/180*ep^4+215411/90*ep^5+1246/3*ep^6+ 388/9*ep^7; Fill mncT00(7,6) = -23499-10584*ep^-1+1544798/75*ep+74618423/900* ep^2+11272138/135*ep^3+23575927/540*ep^4+3092012/225*ep^5+617141/ 225*ep^6+5248/15*ep^7; Fill mncT00(6,7) = -23499-10584*ep^-1+1544798/75*ep+74618423/900* ep^2+11272138/135*ep^3+23575927/540*ep^4+3092012/225*ep^5+617141/ 225*ep^6+5248/15*ep^7; Fill mncT00(7,7) = -89691-38808*ep^-1+15230353/225*ep+839340229/ 2700*ep^2+2703725629/8100*ep^3+33824861/180*ep^4+526025219/8100* ep^5+3293521/225*ep^6+1483061/675*ep^7; Fill mncT00(8,1) = -1/21-11/90*ep+7/90*ep^2+4/9*ep^3+4/9*ep^4+8/45 *ep^5+8/315*ep^6; Fill mncT00(1,8) = -1/21-11/90*ep+7/90*ep^2+4/9*ep^3+4/9*ep^4+8/45 *ep^5+8/315*ep^6; Fill mncT00(8,2) = -213/35-2*ep^-1+229/315*ep+899/45*ep^2+1247/45* ep^3+776/45*ep^4+248/45*ep^5+272/315*ep^6+16/315*ep^7; Fill mncT00(2,8) = -213/35-2*ep^-1+229/315*ep+899/45*ep^2+1247/45* ep^3+776/45*ep^4+248/45*ep^5+272/315*ep^6+16/315*ep^7; Fill mncT00(8,3) = -687/5-56*ep^-1+10807/126*ep+149903/315*ep^2+ 1061/2*ep^3+291*ep^4+268/3*ep^5+232/15*ep^6+88/63*ep^7; Fill mncT00(3,8) = -687/5-56*ep^-1+10807/126*ep+149903/315*ep^2+ 1061/2*ep^3+291*ep^4+268/3*ep^5+232/15*ep^6+88/63*ep^7; Fill mncT00(8,4) = -23332/15-672*ep^-1+25051/21*ep+734401/135*ep^2 +5421223/945*ep^3+138649/45*ep^4+43618/45*ep^5+2776/15*ep^6+736/ 35*ep^7; Fill mncT00(4,8) = -23332/15-672*ep^-1+25051/21*ep+734401/135*ep^2 +5421223/945*ep^3+138649/45*ep^4+43618/45*ep^5+2776/15*ep^6+736/ 35*ep^7; Fill mncT00(8,5) = -11610-5040*ep^-1+5635817/630*ep+152869817/3780 *ep^2+81063041/1890*ep^3+89139203/3780*ep^4+351502/45*ep^5+73811/ 45*ep^6+69224/315*ep^7; Fill mncT00(5,8) = -11610-5040*ep^-1+5635817/630*ep+152869817/3780 *ep^2+81063041/1890*ep^3+89139203/3780*ep^4+351502/45*ep^5+73811/ 45*ep^6+69224/315*ep^7; Fill mncT00(8,6) = -64989-27720*ep^-1+29212361/630*ep+1058350894/ 4725*ep^2+1159995587/4725*ep^3+133238803/945*ep^4+93995227/1890* ep^5+2574932/225*ep^6+2761202/1575*ep^7; Fill mncT00(6,8) = -64989-27720*ep^-1+29212361/630*ep+1058350894/ 4725*ep^2+1159995587/4725*ep^3+133238803/945*ep^4+93995227/1890* ep^5+2574932/225*ep^6+2761202/1575*ep^7; Fill mncT00(8,7) = -293898-121968*ep^-1+583171907/3150*ep+ 6289238647/6300*ep^2+64919324111/56700*ep^3+39277798103/56700* ep^4+14806523023/56700*ep^5+1858284077/28350*ep^6+53256769/4725* ep^7; Fill mncT00(7,8) = -293898-121968*ep^-1+583171907/3150*ep+ 6289238647/6300*ep^2+64919324111/56700*ep^3+39277798103/56700* ep^4+14806523023/56700*ep^5+1858284077/28350*ep^6+53256769/4725* ep^7; Fill mncT00(8,8) = -7885284/7-453024*ep^-1+6655456091/11025*ep+ 473865407/126*ep^2+9189330217/2025*ep^3+1644373427/567*ep^4+ 5518157081/4725*ep^5+51528089/162*ep^6+6012312059/99225*ep^7; Fill mncT00(9,1) = -1/28-29/280*ep+1/36*ep^2+127/360*ep^3+4/9*ep^4 +11/45*ep^5+4/63*ep^6+2/315*ep^7; Fill mncT00(1,9) = -1/28-29/280*ep+1/36*ep^2+127/360*ep^3+4/9*ep^4 +11/45*ep^5+4/63*ep^6+2/315*ep^7; Fill mncT00(9,2) = -927/140-2*ep^-1-2263/2520*ep+6359/315*ep^2+ 3967/120*ep^3+1477/60*ep^4+151/15*ep^5+242/105*ep^6+86/315*ep^7; Fill mncT00(2,9) = -927/140-2*ep^-1-2263/2520*ep+6359/315*ep^2+ 3967/120*ep^3+1477/60*ep^4+151/15*ep^5+242/105*ep^6+86/315*ep^7; Fill mncT00(9,3) = -6733/35-72*ep^-1+2015/28*ep+1603937/2520*ep^2+ 513547/630*ep^3+62519/120*ep^4+11669/60*ep^5+1539/35*ep^6+206/35* ep^7; Fill mncT00(3,9) = -6733/35-72*ep^-1+2015/28*ep+1603937/2520*ep^2+ 513547/630*ep^3+62519/120*ep^4+11669/60*ep^5+1539/35*ep^6+206/35* ep^7; Fill mncT00(9,4) = -18855/7-1080*ep^-1+618431/420*ep+1527913/168* ep^2+40749427/3780*ep^3+49720691/7560*ep^4+108841/45*ep^5+355253/ 630*ep^6+8788/105*ep^7; Fill mncT00(4,9) = -18855/7-1080*ep^-1+618431/420*ep+1527913/168* ep^2+40749427/3780*ep^3+49720691/7560*ep^4+108841/45*ep^5+355253/ 630*ep^6+8788/105*ep^7; Fill mncT00(9,5) = -339795/14-9900*ep^-1+7169401/504*ep+177345113/ 2160*ep^2+1450750099/15120*ep^3+177108377/3024*ep^4+66478591/3024 *ep^5+6787759/1260*ep^6+1106701/1260*ep^7; Fill mncT00(5,9) = -339795/14-9900*ep^-1+7169401/504*ep+177345113/ 2160*ep^2+1450750099/15120*ep^3+177108377/3024*ep^4+66478591/3024 *ep^5+6787759/1260*ep^6+1106701/1260*ep^7; Fill mncT00(9,6) = -2256507/14-65340*ep^-1+76200941/840*ep+ 4550075377/8400*ep^2+9721402571/15120*ep^3+30385900253/75600*ep^4 +2369271799/15120*ep^5+1538786057/37800*ep^6+9129529/1260*ep^7; Fill mncT00(6,9) = -2256507/14-65340*ep^-1+76200941/840*ep+ 4550075377/8400*ep^2+9721402571/15120*ep^3+30385900253/75600*ep^4 +2369271799/15120*ep^5+1538786057/37800*ep^6+9129529/1260*ep^7; Fill mncT00(9,7) = -5970591/7-339768*ep^-1+910963763/2100*ep+ 1275352103/450*ep^2+37461814447/10800*ep^3+72796743971/32400*ep^4 +5945016637/6480*ep^5+57488352751/226800*ep^6+5555807213/113400* ep^7; Fill mncT00(7,9) = -5970591/7-339768*ep^-1+910963763/2100*ep+ 1275352103/450*ep^2+37461814447/10800*ep^3+72796743971/32400*ep^4 +5945016637/6480*ep^5+57488352751/226800*ep^6+5555807213/113400* ep^7; Fill mncT00(9,8) = -26476593/7-1472328*ep^-1+73265477633/44100*ep+ 54627219331/4410*ep^2+3572949997297/226800*ep^3+2411251880873/ 226800*ep^4+206938354943/45360*ep^5+304054549223/226800*ep^6+ 27782350087/99225*ep^7; Fill mncT00(8,9) = -26476593/7-1472328*ep^-1+73265477633/44100*ep+ 54627219331/4410*ep^2+3572949997297/226800*ep^3+2411251880873/ 226800*ep^4+206938354943/45360*ep^5+304054549223/226800*ep^6+ 27782350087/99225*ep^7; Fill mncT00(9,9) = -407455191/28-5521230*ep^-1+62145308573/11760* ep+8267348377283/176400*ep^2+26321703245023/423360*ep^3+ 4967716026299/113400*ep^4+1280830607257/64800*ep^5+279775500653/ 45360*ep^6+8796145865441/6350400*ep^7; Fill mncT00(10,1) = -1/36-223/2520*ep-4/2835*ep^2+101/360*ep^3+229/ 540*ep^4+13/45*ep^5+14/135*ep^6+2/105*ep^7; Fill mncT00(1,10) = -1/36-223/2520*ep-4/2835*ep^2+101/360*ep^3+229/ 540*ep^4+13/45*ep^5+14/135*ep^6+2/105*ep^7; Fill mncT00(10,2) = -4469/630-2*ep^-1-3097/1260*ep+45329/2268*ep^2 +85787/2268*ep^3+17489/540*ep^4+4273/270*ep^5+878/189*ep^6+152/ 189*ep^7; Fill mncT00(2,10) = -4469/630-2*ep^-1-3097/1260*ep+45329/2268*ep^2 +85787/2268*ep^3+17489/540*ep^4+4273/270*ep^5+878/189*ep^6+152/ 189*ep^7; Fill mncT00(10,3) = -3615/14-90*ep^-1+13466/315*ep+2051033/2520* ep^2+6665453/5670*ep^3+19284803/22680*ep^4+49856/135*ep^5+192037/ 1890*ep^6+16792/945*ep^7; Fill mncT00(3,10) = -3615/14-90*ep^-1+13466/315*ep+2051033/2520* ep^2+6665453/5670*ep^3+19284803/22680*ep^4+49856/135*ep^5+192037/ 1890*ep^6+16792/945*ep^7; Fill mncT00(10,4) = -61445/14-1650*ep^-1+1187719/756*ep+13492646/ 945*ep^2+319245677/17010*ep^3+1605965/126*ep^4+36227755/6804*ep^5 +457886/315*ep^6+748361/2835*ep^7; Fill mncT00(4,10) = -61445/14-1650*ep^-1+1187719/756*ep+13492646/ 945*ep^2+319245677/17010*ep^3+1605965/126*ep^4+36227755/6804*ep^5 +457886/315*ep^6+748361/2835*ep^7; Fill mncT00(10,5) = -329285/7-18150*ep^-1+30067363/1512*ep+ 333243523/2160*ep^2+26798048483/136080*ep^3+2559867239/19440*ep^4 +1496306639/27216*ep^5+1042194641/68040*ep^6+33169477/11340*ep^7; Fill mncT00(5,10) = -329285/7-18150*ep^-1+30067363/1512*ep+ 333243523/2160*ep^2+26798048483/136080*ep^3+2559867239/19440*ep^4 +1496306639/27216*ep^5+1042194641/68040*ep^6+33169477/11340*ep^7; Fill mncT00(10,6) = -5124141/14-141570*ep^-1+97914331/630*ep+ 45269411767/37800*ep^2+43425450739/28350*ep^3+43960605211/42525* ep^4+74891892349/170100*ep^5+43216695169/340200*ep^6+4364358107/ 170100*ep^7; Fill mncT00(6,10) = -5124141/14-141570*ep^-1+97914331/630*ep+ 45269411767/37800*ep^2+43425450739/28350*ep^3+43960605211/42525* ep^4+74891892349/170100*ep^5+43216695169/340200*ep^6+4364358107/ 170100*ep^7; Fill mncT00(10,7) = -4484337/2-858858*ep^-1+16663386827/18900*ep+ 825227119253/113400*ep^2+1290630089159/136080*ep^3+2673094441009/ 408240*ep^4+1957097729129/680400*ep^5+1767730037873/2041200*ep^6+ 175217443/945*ep^7; Fill mncT00(7,10) = -4484337/2-858858*ep^-1+16663386827/18900*ep+ 825227119253/113400*ep^2+1290630089159/136080*ep^3+2673094441009/ 408240*ep^4+1957097729129/680400*ep^5+1767730037873/2041200*ep^6+ 175217443/945*ep^7; Fill mncT00(10,8) = -22789767/2-4294290*ep^-1+528877919/135*ep+ 29013083864323/793800*ep^2+116678567813779/2381400*ep^3+ 17786915424493/510300*ep^4+8105581054537/510300*ep^5+ 5111129560493/1020600*ep^6+1160065789751/1020600*ep^7; Fill mncT00(8,10) = -22789767/2-4294290*ep^-1+528877919/135*ep+ 29013083864323/793800*ep^2+116678567813779/2381400*ep^3+ 17786915424493/510300*ep^4+8105581054537/510300*ep^5+ 5111129560493/1020600*ep^6+1160065789751/1020600*ep^7; Fill mncT00(10,9) = -1394685435/28-18404100*ep^-1+100114668349/ 7056*ep+1852144738247/11760*ep^2+1386280258914223/6350400*ep^3+ 510011325931501/3175200*ep^4+62160020883013/816480*ep^5+ 642028199336/25515*ep^6+345612179314039/57153600*ep^7; Fill mncT00(9,10) = -1394685435/28-18404100*ep^-1+100114668349/ 7056*ep+1852144738247/11760*ep^2+1386280258914223/6350400*ep^3+ 510011325931501/3175200*ep^4+62160020883013/816480*ep^5+ 642028199336/25515*ep^6+345612179314039/57153600*ep^7; Fill mncT00(10,10) = -8074989065/42-69526600*ep^-1+1350488632313/ 31752*ep+47479977496171/79380*ep^2+24566922560195171/28576800* ep^3+18726665340585257/28576800*ep^4+10393828589694061/32148900* ep^5+45713706813533/408240*ep^6+2437850071617101/85730400*ep^7; Fill mncT00(11,1) = -1/45-481/6300*ep-61/3240*ep^2+1271/5670*ep^3+ 427/1080*ep^4+853/2700*ep^5+19/135*ep^6+34/945*ep^7; Fill mncT00(1,11) = -1/45-481/6300*ep-61/3240*ep^2+1271/5670*ep^3+ 427/1080*ep^4+853/2700*ep^5+19/135*ep^6+34/945*ep^7; Fill mncT00(11,2) = -947/126-2*ep^-1-6226/1575*ep+2208569/113400* ep^2+238403/5670*ep^3+915079/22680*ep^4+15268/675*ep^5+2783/350* ep^6+1672/945*ep^7; Fill mncT00(2,11) = -947/126-2*ep^-1-6226/1575*ep+2208569/113400* ep^2+238403/5670*ep^3+915079/22680*ep^4+15268/675*ep^5+2783/350* ep^6+1672/945*ep^7; Fill mncT00(11,3) = -42257/126-110*ep^-1-2707/630*ep+113933903/ 113400*ep^2+183198229/113400*ep^3+5877841/4536*ep^4+2884187/4536* ep^5+1925347/9450*ep^6+410261/9450*ep^7; Fill mncT00(3,11) = -42257/126-110*ep^-1-2707/630*ep+113933903/ 113400*ep^2+183198229/113400*ep^3+5877841/4536*ep^4+2884187/4536* ep^5+1925347/9450*ep^6+410261/9450*ep^7; Fill mncT00(11,4) = -429022/63-2420*ep^-1+4979761/3780*ep+ 2416330001/113400*ep^2+2091988831/68040*ep^3+1112624069/48600* ep^4+144779119/13608*ep^5+561956837/170100*ep^6+3989957/5670*ep^7 ; Fill mncT00(4,11) = -429022/63-2420*ep^-1+4979761/3780*ep+ 2416330001/113400*ep^2+2091988831/68040*ep^3+1112624069/48600* ep^4+144779119/13608*ep^5+561956837/170100*ep^6+3989957/5670*ep^7 ; Fill mncT00(11,5) = -5399416/63-31460*ep^-1+89686433/3780*ep+ 15429898189/56700*ep^2+256298618123/680400*ep^3+185727350833/ 680400*ep^4+28336764061/226800*ep^5+26404474799/680400*ep^6+ 2873726957/340200*ep^7; Fill mncT00(5,11) = -5399416/63-31460*ep^-1+89686433/3780*ep+ 15429898189/56700*ep^2+256298618123/680400*ep^3+185727350833/ 680400*ep^4+28336764061/226800*ep^5+26404474799/680400*ep^6+ 2873726957/340200*ep^7; Fill mncT00(11,6) = -69555343/90-286286*ep^-1+4352287969/18900*ep+ 1394197679179/567000*ep^2+327892567487/97200*ep^3+1660234944457/ 680400*ep^4+764905853771/680400*ep^5+172784350919/486000*ep^6+ 486227771/6075*ep^7; Fill mncT00(6,11) = -69555343/90-286286*ep^-1+4352287969/18900*ep+ 1394197679179/567000*ep^2+327892567487/97200*ep^3+1660234944457/ 680400*ep^4+764905853771/680400*ep^5+172784350919/486000*ep^6+ 486227771/6075*ep^7; Fill mncT00(11,7) = -488605117/90-2004002*ep^-1+4171952099/2700*ep +3248816397557/189000*ep^2+11565586719359/486000*ep^3+ 17791769755469/1020600*ep^4+2088799797137/255150*ep^5+ 3397133116927/1275750*ep^6+6369289461953/10206000*ep^7; Fill mncT00(7,11) = -488605117/90-2004002*ep^-1+4171952099/2700*ep +3248816397557/189000*ep^2+11565586719359/486000*ep^3+ 17791769755469/1020600*ep^4+2088799797137/255150*ep^5+ 3397133116927/1275750*ep^6+6369289461953/10206000*ep^7; Fill mncT00(11,8) = -282208927/9-11451440*ep^-1+473096521/60*ep+ 39047886901997/396900*ep^2+22501501662161/162000*ep^3+ 1855966310127337/17860500*ep^4+1826232928511/36450*ep^5+ 17204423948441/1020600*ep^6+42112995957461/10206000*ep^7; Fill mncT00(8,11) = -282208927/9-11451440*ep^-1+473096521/60*ep+ 39047886901997/396900*ep^2+22501501662161/162000*ep^3+ 1855966310127337/17860500*ep^4+1826232928511/36450*ep^5+ 17204423948441/1020600*ep^6+42112995957461/10206000*ep^7; Fill mncT00(11,9) = -9738655498/63-55621280*ep^-1+94008003743/2940 *ep+760791602875721/1587600*ep^2+5511453897851903/7938000*ep^3+ 30466885938693923/57153600*ep^4+37856143784012089/142884000*ep^5+ 125838848407267/1360800*ep^6+70465137553021/2976750*ep^7; Fill mncT00(9,11) = -9738655498/63-55621280*ep^-1+94008003743/2940 *ep+760791602875721/1587600*ep^2+5511453897851903/7938000*ep^3+ 30466885938693923/57153600*ep^4+37856143784012089/142884000*ep^5+ 125838848407267/1360800*ep^6+70465137553021/2976750*ep^7; Fill mncT00(11,10) = -84214296023/126-236390440*ep^-1+ 16528092689051/158760*ep+3243255318999743/1587600*ep^2+ 435668955342493037/142884000*ep^3+76484619296564071/31752000*ep^4 +795101727724779229/642978000*ep^5+576463599265255073/1285956000* ep^6+51438909169499267/428652000*ep^7; Fill mncT00(10,11) = -84214296023/126-236390440*ep^-1+ 16528092689051/158760*ep+3243255318999743/1587600*ep^2+ 435668955342493037/142884000*ep^3+76484619296564071/31752000*ep^4 +795101727724779229/642978000*ep^5+576463599265255073/1285956000* ep^6+51438909169499267/428652000*ep^7; Fill mncT00(11,11) = -1629856819877/630-898283672*ep^-1+ 207923748102989/793800*ep+61787131987885627/7938000*ep^2+ 8569603130217344573/714420000*ep^3+2790041562079488443/285768000* ep^4+271930552939203719/52488000*ep^5+2508602368297880969/ 1285956000*ep^6+877120355481678323/1607445000*ep^7; Fill mncT00(12,1) = -1/55-419/6300*ep-41/1400*ep^2+2041/11340*ep^3 +8261/22680*ep^4+223/675*ep^5+233/1350*ep^6+52/945*ep^7; Fill mncT00(1,12) = -1/55-419/6300*ep-41/1400*ep^2+2041/11340*ep^3 +8261/22680*ep^4+223/675*ep^5+233/1350*ep^6+52/945*ep^7; Fill mncT00(12,2) = -54731/6930-2*ep^-1-373253/69300*ep+37924/2025 *ep^2+1297507/28350*ep^3+274181/5670*ep^4+1717189/56700*ep^5+ 57818/4725*ep^6+15451/4725*ep^7; Fill mncT00(2,12) = -54731/6930-2*ep^-1-373253/69300*ep+37924/2025 *ep^2+1297507/28350*ep^3+274181/5670*ep^4+1717189/56700*ep^5+ 57818/4725*ep^6+15451/4725*ep^7; Fill mncT00(12,3) = -44546/105-132*ep^-1-4950863/69300*ep+71596543/ 59400*ep^2+242412281/113400*ep^3+30350839/16200*ep^4+115366453/ 113400*ep^5+20901247/56700*ep^6+865819/9450*ep^7; Fill mncT00(3,12) = -44546/105-132*ep^-1-4950863/69300*ep+71596543/ 59400*ep^2+242412281/113400*ep^3+30350839/16200*ep^4+115366453/ 113400*ep^5+20901247/56700*ep^6+865819/9450*ep^7; Fill mncT00(12,4) = -1065796/105-3432*ep^-1+5623127/11550*ep+ 576473683/18900*ep^2+4983242989/103950*ep^3+3289919531/85050*ep^4 +334890907/17010*ep^5+1158051971/170100*ep^6+140492113/85050*ep^7 ; Fill mncT00(4,12) = -1065796/105-3432*ep^-1+5623127/11550*ep+ 576473683/18900*ep^2+4983242989/103950*ep^3+3289919531/85050*ep^4 +334890907/17010*ep^5+1158051971/170100*ep^6+140492113/85050*ep^7 ; Fill mncT00(12,5) = -6674564/45-52052*ep^-1+4484913491/207900*ep+ 142011246871/311850*ep^2+1017237511967/1496880*ep^3+791895023827/ 1496880*ep^4+178543787987/680400*ep^5+60895540243/680400*ep^6+ 185089741/8505*ep^7; Fill mncT00(5,12) = -6674564/45-52052*ep^-1+4484913491/207900*ep+ 142011246871/311850*ep^2+1017237511967/1496880*ep^3+791895023827/ 1496880*ep^4+178543787987/680400*ep^5+60895540243/680400*ep^6+ 185089741/8505*ep^7; Fill mncT00(12,6) = -9211657/6-546546*ep^-1+1380122401/4950*ep+ 3287902013329/693000*ep^2+43368311221363/6237000*ep^3+ 10023608752159/1871100*ep^4+990883138921/374220*ep^5+ 1544483269241/1701000*ep^6+382129057123/1701000*ep^7; Fill mncT00(6,12) = -9211657/6-546546*ep^-1+1380122401/4950*ep+ 3287902013329/693000*ep^2+43368311221363/6237000*ep^3+ 10023608752159/1871100*ep^4+990883138921/374220*ep^5+ 1544483269241/1701000*ep^6+382129057123/1701000*ep^7; Fill mncT00(12,7) = -183959867/15-4372368*ep^-1+4438361431/1980*ep +9834115460318/259875*ep^2+692436168462001/12474000*ep^3+ 401953567999259/9355500*ep^4+8598900594217/400950*ep^5+ 59982731656043/8019000*ep^6+2770515926519/1458000*ep^7; Fill mncT00(7,12) = -183959867/15-4372368*ep^-1+4438361431/1980*ep +9834115460318/259875*ep^2+692436168462001/12474000*ep^3+ 401953567999259/9355500*ep^4+8598900594217/400950*ep^5+ 59982731656043/8019000*ep^6+2770515926519/1458000*ep^7; Fill mncT00(12,8) = -3595939256/45-28316288*ep^-1+143298135/11*ep+ 486169820660047/1984500*ep^2+15884080514284667/43659000*ep^3+ 112179662354839381/392931000*ep^4+14253519507869987/98232750*ep^5 +121238878985254/2338875*ep^6+254336185388731/18711000*ep^7; Fill mncT00(8,12) = -3595939256/45-28316288*ep^-1+143298135/11*ep+ 486169820660047/1984500*ep^2+15884080514284667/43659000*ep^3+ 112179662354839381/392931000*ep^4+14253519507869987/98232750*ep^5 +121238878985254/2338875*ep^6+254336185388731/18711000*ep^7; Fill mncT00(12,9) = -15447077438/35-154728288*ep^-1+1117533258397/ 19404*ep+12999785076524377/9702000*ep^2+3615559683747431/1782000* ep^3+566958080202310271/349272000*ep^4+82924646026230727/98232750 *ep^5+44319253755926431/142884000*ep^6+816966437048177/9702000* ep^7; Fill mncT00(9,12) = -15447077438/35-154728288*ep^-1+1117533258397/ 19404*ep+12999785076524377/9702000*ep^2+3615559683747431/1782000* ep^3+566958080202310271/349272000*ep^4+82924646026230727/98232750 *ep^5+44319253755926431/142884000*ep^6+816966437048177/9702000* ep^7; Fill mncT00(12,10) = -148740436871/70-734959368*ep^-1+ 37179607764683/194040*ep+278245171511294899/43659000*ep^2+ 246599545916388887/24948000*ep^3+317888262903197923/39293100*ep^4 +193879036469641247/44906400*ep^5+5783132553224430139/3536379000* ep^6+6510615906476192839/14145516000*ep^7; Fill mncT00(10,12) = -148740436871/70-734959368*ep^-1+ 37179607764683/194040*ep+278245171511294899/43659000*ep^2+ 246599545916388887/24948000*ep^3+317888262903197923/39293100*ep^4 +193879036469641247/44906400*ep^5+5783132553224430139/3536379000* ep^6+6510615906476192839/14145516000*ep^7; Fill mncT00(12,11) = -2869226747881/315-3103161776*ep^-1+ 449453982288422/1091475*ep+2352475645633332761/87318000*ep^2+ 168659515748892452441/3929310000*ep^3+565989744183674371727/ 15717240000*ep^4+558777856819913262283/28291032000*ep^5+ 13650824498444656361/1768189500*ep^6+159385064451234459353/ 70727580000*ep^7; Fill mncT00(11,12) = -2869226747881/315-3103161776*ep^-1+ 449453982288422/1091475*ep+2352475645633332761/87318000*ep^2+ 168659515748892452441/3929310000*ep^3+565989744183674371727/ 15717240000*ep^4+558777856819913262283/28291032000*ep^5+ 13650824498444656361/1768189500*ep^6+159385064451234459353/ 70727580000*ep^7; Fill mncT00(12,12) = -5831548349042/165-11848435872*ep^-1- 47936862223886/571725*ep+4494358625171187431/43659000*ep^2+ 55268352042124870841/327442500*ep^3+1141856608259339237821/ 7858620000*ep^4+87831381079537137583/1071630000*ep^5+ 467768626208847072689/14145516000*ep^6+353919939401246354623/ 35363790000*ep^7; Fill mncT10(-8,1) = -1/180-1289/75600*ep-16777/470400*ep^2- 376898537/5927040000*ep^3-57893695123/553190400000*ep^4- 76691257001969/464679936000000*ep^5-245099736573311/ 963780608000000*ep^6-522134027881118771/1349292851200000000*ep^7; Fill mncT10(-7,1) = -1/144-2431/120960*ep-1378463/33868800*ep^2- 675209159/9483264000*ep^3-307675537087/2655313920000*ep^4- 44990911819997/247829299200000*ep^5-2148771979243069/ 7710244864000000*ep^6-913591296314163717/2158868561920000000*ep^7 ; Fill mncT10(-6,1) = -1/112-757/31360*ep-3727229/79027200*ep^2- 596248999/7375872000*ep^3-805517926621/6195732480000*ep^4- 116996591020151/578268364800000*ep^5-16699750590256581/ 53971714048000000*ep^6-7085343227873558733/15112079933440000000* ep^7; Fill mncT10(-5,1) = -1/84-131/4410*ep-45907/823200*ep^2-32325739/ 345744000*ep^3-798737439/5378240000*ep^4-172809886751/ 752953600000*ep^5-36857412733959/105413504000000*ep^6- 7802544599074431/14757890560000000*ep^7; Fill mncT10(-4,1) = -1/60-17/450*ep-2441/36000*ep^2-26639/240000* ep^3-278431/1600000*ep^4-8544297/32000000*ep^5-259328439/ 640000000*ep^6-7826394393/12800000000*ep^7; Fill mncT10(-3,1) = -1/40-121/2400*ep-4127/48000*ep^2-43883/320000 *ep^3-1357221/6400000*ep^4-41346027/128000000*ep^5-1250042949/ 2560000000*ep^6-37648874763/51200000000*ep^7; Fill mncT10(-2,1) = -1/24-7/96*ep-15/128*ep^2-93/512*ep^3-567/2048 *ep^4-3429/8192*ep^5-20655/32768*ep^6-124173/131072*ep^7; Fill mncT10(-1,1) = -1/12-1/8*ep-3/16*ep^2-9/32*ep^3-27/64*ep^4-81/ 128*ep^5-243/256*ep^6-729/512*ep^7; Fill mncT10(0,1) = -1/4-3/8*ep-9/16*ep^2-27/32*ep^3-81/64*ep^4-243/ 128*ep^5-729/256*ep^6-2187/512*ep^7; Fill mncT10(1,1) = 1/2*ep^-1; Fill mncT10(-8,2) = -3209/2520-1/2*ep^-1-5168921/2116800*ep- 819729151/197568000*ep^2-1102644847229/165957120000*ep^3- 159795437284199/15489331200000*ep^4-205040443977739421/ 13011038208000000*ep^5-28980568768290016951/1214363566080000000* ep^6-1359144873904510759127/37780199833600000000*ep^7; Fill mncT10(-7,2) = -647/560-1/2*ep^-1-3002999/1411200*ep- 1397828207/395136000*ep^2-206397332717/36879360000*ep^3- 267391292723743/30978662400000*ep^4-113944330470198199/ 8674025472000000*ep^5-16072702443692427269/809575710720000000* ep^6-2258934788088422411439/75560399667200000000*ep^7; Fill mncT10(-6,2) = -143/140-1/2*ep^-1-317803/176400*ep-72277427/ 24696000*ep^2-15809639243/3457440000*ep^3-3390537990787/ 484041600000*ep^4-79974824548387/7529536000000*ep^5- 16888593060673883/1054135040000000*ep^6-3556743455670590547/ 147578905600000000*ep^7; Fill mncT10(-5,2) = -13/15-1/2*ep^-1-5267/3600*ep-55693/24000*ep^2 -5155573/1440000*ep^3-52300417/9600000*ep^4-526842293/64000000* ep^5-15864216891/1280000000*ep^6-476827243317/25600000000*ep^7; Fill mncT10(-4,2) = -41/60-1/2*ep^-1-1337/1200*ep-41419/24000*ep^2 -1262653/480000*ep^3-12728737/3200000*ep^4-383416719/64000000* ep^5-11526078753/1280000000*ep^6-346139116911/25600000000*ep^7; Fill mncT10(-3,2) = -11/24-1/2*ep^-1-73/96*ep-443/384*ep^2-891/512 *ep^3-5361/2048*ep^4-32211/8192*ep^5-193401/32768*ep^6-1160811/ 131072*ep^7; Fill mncT10(-2,2) = -1/6-1/2*ep^-1-5/12*ep-5/8*ep^2-15/16*ep^3-45/ 32*ep^4-135/64*ep^5-405/128*ep^6-1215/256*ep^7; Fill mncT10(-1,2) = 1/4-1/2*ep^-1-1/8*ep-3/16*ep^2-9/32*ep^3-27/64 *ep^4-81/128*ep^5-243/256*ep^6-729/512*ep^7; Fill mncT10(0,2) = 1-1/2*ep^-1; Fill mncT10(2,1) = 2-1/2*ep^-1-2*ep+2*ep^2-2*ep^3+2*ep^4-2*ep^5+2* ep^6-2*ep^7; Fill mncT10(1,2) = 3-ep^-1; Fill mncT10(2,2) = 3-3/2*ep^-1+6*ep-6*ep^2+6*ep^3-6*ep^4+6*ep^5-6* ep^6+6*ep^7; Fill mncT10(-8,3) = -607/35-18*ep^-1-888317/19600*ep-2794921429/ 49392000*ep^2-1421665541197/13829760000*ep^3-182665560986407/ 1290777600000*ep^4-248394806902552253/1084253184000000*ep^5- 100200727145114106629/303590891520000000*ep^6- 14483962599403596455599/28335149875200000000*ep^7; Fill mncT10(-7,3) = -91/10-14*ep^-1-96419/3150*ep-14350921/441000* ep^2-1339764163/20580000*ep^3-723100067201/8643600000*ep^4- 170946280048009/1210104000000*ep^5-3717678754151209/ 18823840000000*ep^6-821451581677529681/2635337600000000*ep^7; Fill mncT10(-6,3) = -59/20-21/2*ep^-1-24049/1200*ep-1127389/72000* ep^2-6231227/160000*ep^3-1260578141/28800000*ep^4-15537540689/ 192000000*ep^5-136438303381/1280000000*ep^6-4481141749947/ 25600000000*ep^7; Fill mncT10(-5,3) = 5/4-15/2*ep^-1-3119/240*ep-22373/4800*ep^2- 2122051/96000*ep^3-35026237/1920000*ep^4-543093073/12800000*ep^5- 12465338751/256000000*ep^6-450949393137/5120000000*ep^7; Fill mncT10(-4,3) = 11/3-5*ep^-1-211/24*ep+167/96*ep^2-4763/384* ep^3-1851/512*ep^4-41841/2048*ep^5-128211/8192*ep^6-1260921/32768 *ep^7; Fill mncT10(-3,3) = 9/2-3*ep^-1-20/3*ep+29/6*ep^2-31/4*ep^3+27/8* ep^4-159/16*ep^5+3/32*ep^6-951/64*ep^7; Fill mncT10(-2,3) = 4-3/2*ep^-1-23/4*ep+47/8*ep^2-99/16*ep^3+183/ 32*ep^4-411/64*ep^5+687/128*ep^6-1779/256*ep^7; Fill mncT10(-1,3) = 5/2-1/2*ep^-1-5*ep+6*ep^2-6*ep^3+6*ep^4-6*ep^5 +6*ep^6-6*ep^7; Fill mncT10(0,3) = 1/2-3*ep+6*ep^2-6*ep^3+6*ep^4-6*ep^5+6*ep^6-6* ep^7; Fill mncT10(3,1) = -3/4+27/8*ep-75/16*ep^2+171/32*ep^3-363/64*ep^4 +747/128*ep^5-1515/256*ep^6+3051/512*ep^7; Fill mncT10(1,3) = -3/2+3*ep+6*ep^2-6*ep^3+6*ep^4-6*ep^5+6*ep^6-6* ep^7; Fill mncT10(3,2) = 3/4-3/2*ep^-1+105/8*ep-105/16*ep^2+105/32*ep^3- 105/64*ep^4+105/128*ep^5-105/256*ep^6+105/512*ep^7; Fill mncT10(2,3) = -3/2-3/2*ep^-1+15*ep+12*ep^2-12*ep^3+12*ep^4-12 *ep^5+12*ep^6-12*ep^7; Fill mncT10(3,3) = -3-9/2*ep^-1+171/4*ep+201/8*ep^2-297/16*ep^3+ 489/32*ep^4-873/64*ep^5+1641/128*ep^6-3177/256*ep^7; Fill mncT10(-8,4) = 497/15-168*ep^-1-245439/700*ep-119973151/ 1323000*ep^2-9422675807/15435000*ep^3-5682035468603/12965400000* ep^4-695322355217759/605052000000*ep^5-313754649193328393/ 254121840000000*ep^6-3092995709028019931/1317668800000000*ep^7; Fill mncT10(-7,4) = 1799/30-98*ep^-1-188743/900*ep+105347/3375* ep^2-177315563/540000*ep^3-1153008631/10800000*ep^4-119752244197/ 216000000*ep^5-627155304913/1440000000*ep^6-10100384110277/ 9600000000*ep^7; Fill mncT10(-6,4) = 235/4-105/2*ep^-1-30433/240*ep+1041767/14400* ep^2-51977471/288000*ep^3+178464223/5760000*ep^4-30193341199/ 115200000*ep^5-62610124171/768000000*ep^6-2230886293559/ 5120000000*ep^7; Fill mncT10(-5,4) = 265/6-25*ep^-1-5579/72*ep+20767/288*ep^2- 121699/1152*ep^3+315191/4608*ep^4-267971/2048*ep^5+331319/8192* ep^6-5822811/32768*ep^7; Fill mncT10(-4,4) = 53/2-10*ep^-1-416/9*ep+331/6*ep^2-595/9*ep^3+ 1505/24*ep^4-595/8*ep^5+1925/32*ep^6-665/8*ep^7; Fill mncT10(-3,4) = 12-3*ep^-1-74/3*ep+35*ep^2-499/12*ep^3+89/2* ep^4-747/16*ep^5+747/16*ep^6-3093/64*ep^7; Fill mncT10(-2,4) = 10/3-1/2*ep^-1-39/4*ep+421/24*ep^2-375/16*ep^3 +855/32*ep^4-1815/64*ep^5+3735/128*ep^6-7575/256*ep^7; Fill mncT10(-1,4) = 1/6-17/12*ep+39/8*ep^2-151/16*ep^3+407/32*ep^4 -919/64*ep^5+1943/128*ep^6-3991/256*ep^7; Fill mncT10(0,4) = 1/4*ep-9/8*ep^2+9/16*ep^3+87/32*ep^4-279/64* ep^5+663/128*ep^6-1431/256*ep^7; Fill mncT10(4,1) = -1/4+11/24*ep+239/144*ep^2-2989/864*ep^3+23879/ 5184*ep^4-163669/31104*ep^5+1048319/186624*ep^6-6499069/1119744* ep^7; Fill mncT10(1,4) = -1/2-3/4*ep+39/8*ep^2+105/16*ep^3-105/32*ep^4+ 105/64*ep^5-105/128*ep^6+105/256*ep^7; Fill mncT10(4,2) = -1/2-3/2*ep^-1+173/12*ep+257/72*ep^2-3187/432* ep^3+19577/2592*ep^4-109867/15552*ep^5+618497/93312*ep^6-3553027/ 559872*ep^7; Fill mncT10(2,4) = -4-3/2*ep^-1+49/4*ep+295/8*ep^2+169/16*ep^3-233/ 32*ep^4+361/64*ep^5-617/128*ep^6+1129/256*ep^7; Fill mncT10(4,3) = -15/2-9*ep^-1+85*ep+194/3*ep^2-302/9*ep^3+626/ 27*ep^4-1598/81*ep^5+4514/243*ep^6-13262/729*ep^7; Fill mncT10(3,4) = -15-9*ep^-1+159/2*ep+543/4*ep^2+105/8*ep^3-105/ 16*ep^4+105/32*ep^5-105/64*ep^6+105/128*ep^7; Fill mncT10(4,4) = -89/2-30*ep^-1+1607/6*ep+14399/36*ep^2+4547/216 *ep^3+3623/1296*ep^4-92053/7776*ep^5+718463/46656*ep^6-4719613/ 279936*ep^7; Fill mncT10(-8,5) = 22799/30-588*ep^-1-2975171/1800*ep+63997597/ 54000*ep^2-332802167/135000*ep^3+28203018577/32400000*ep^4- 6704692659353/1944000000*ep^5-38057765814833/116640000000*ep^6- 37714639438474613/6998400000000*ep^7; Fill mncT10(-7,5) = 5425/12-245*ep^-1-154603/180*ep+346471/400* ep^2-277499471/216000*ep^3+11868270169/12960000*ep^4- 1256015408291/777600000*ep^5+30029820504649/46656000000*ep^6- 5996593665192011/2799360000000*ep^7; Fill mncT10(-6,5) = 670/3-175/2*ep^-1-60443/144*ep+100289/192*ep^2 -4637557/6912*ep^3+53277763/82944*ep^4-794249701/995328*ep^5+ 7478326387/11943936*ep^6-131358531829/143327232*ep^7; Fill mncT10(-5,5) = 1055/12-25*ep^-1-6547/36*ep+3175/12*ep^2-36151/ 108*ep^3+473935/1296*ep^4-391195/972*ep^5+18390085/46656*ep^6- 60438805/139968*ep^7; Fill mncT10(-4,5) = 299/12-5*ep^-1-755/12*ep+3889/36*ep^2-15913/ 108*ep^3+225715/1296*ep^4-371315/1944*ep^5+9306745/46656*ep^6- 28749175/139968*ep^7; Fill mncT10(-3,5) = 47/12-1/2*ep^-1-167/12*ep+1111/36*ep^2-10793/ 216*ep^3+85315/1296*ep^4-594665/7776*ep^5+3861115/46656*ep^6- 24135665/279936*ep^7; Fill mncT10(-2,5) = 1/12-5/6*ep+257/72*ep^2-3883/432*ep^3+40625/ 2592*ep^4-332755/15552*ep^5+2353145/93312*ep^6-15367915/559872* ep^7; Fill mncT10(-1,5) = 1/24*ep-41/144*ep^2+523/864*ep^3-641/5184*ep^4 -46589/31104*ep^5+610039/186624*ep^6-5010149/1119744*ep^7; Fill mncT10(0,5) = 1/24*ep-5/144*ep^2-449/864*ep^3+2275/5184*ep^4+ 37975/31104*ep^5-203525/186624*ep^6+789775/1119744*ep^7; Fill mncT10(5,1) = -1/8+7/96*ep+1331/1152*ep^2-10697/13824*ep^3- 16261/165888*ep^4+1688527/1990656*ep^5-32246509/23887872*ep^6+ 472522183/286654464*ep^7; Fill mncT10(1,5) = -1/4-5/6*ep+119/72*ep^2+3299/432*ep^3+13895/ 2592*ep^4-19285/15552*ep^5+13055/93312*ep^6+50435/559872*ep^7; Fill mncT10(5,2) = -11/8-3/2*ep^-1+1385/96*ep+13765/1152*ep^2- 112975/13824*ep^3+625645/165888*ep^4-3023815/1990656*ep^5+ 13658965/23887872*ep^6-59326975/286654464*ep^7; Fill mncT10(2,5) = -23/4-3/2*ep^-1+89/12*ep+457/9*ep^2+1487/27* ep^3+700/81*ep^4-700/243*ep^5+700/729*ep^6-700/2187*ep^7; Fill mncT10(5,3) = -16-15*ep^-1+3359/24*ep+40699/288*ep^2-146353/ 3456*ep^3+909331/41472*ep^4-9088057/497664*ep^5+106452139/5971968 *ep^6-1281080833/71663616*ep^7; Fill mncT10(3,5) = -149/4-15*ep^-1+335/3*ep+24041/72*ep^2+90941/ 432*ep^3+30905/2592*ep^4-70315/15552*ep^5+166145/93312*ep^6- 408835/559872*ep^7; Fill mncT10(5,4) = -225/2-75*ep^-1+5331/8*ep+32337/32*ep^2+10551/ 128*ep^3+6201/512*ep^4-76569/2048*ep^5+364761/8192*ep^6-1530969/ 32768*ep^7; Fill mncT10(4,5) = -625/4-75*ep^-1+3617/6*ep+100921/72*ep^2+281917/ 432*ep^3+99961/2592*ep^4-395051/15552*ep^5+1935361/93312*ep^6- 10665731/559872*ep^7; Fill mncT10(5,5) = -1025/2-525/2*ep^-1+103501/48*ep+2646365/576* ep^2+12919849/6912*ep^3+12547205/82944*ep^4-106259855/995328*ep^5 +1130729645/11943936*ep^6-13089714695/143327232*ep^7; Fill mncT10(-8,6) = 8617/4-882*ep^-1-316517/75*ep+95258447/18000* ep^2-8895797/1250*ep^3+146197841329/21600000*ep^4-5689546761703/ 648000000*ep^5+514988214016759/77760000000*ep^6-6026465251182397/ 583200000000*ep^7; Fill mncT10(-7,6) = 4697/6-245*ep^-1-292573/180*ep+47059/20*ep^2- 5328157/1728*ep^3+174164911/51840*ep^4-957484507/248832*ep^5+ 341253311/93312*ep^6-152249066137/35831808*ep^7; Fill mncT10(-6,6) = 443/2-105/2*ep^-1-125593/240*ep+2499871/2880* ep^2-13702799/11520*ep^3+7218039/5120*ep^4-174569129/110592*ep^5+ 2178145403/1327104*ep^6-27579506801/15925248*ep^7; Fill mncT10(-5,6) = 173/4-15/2*ep^-1-30149/240*ep+78807/320*ep^2- 4323407/11520*ep^3+66872909/138240*ep^4-186295291/331776*ep^5+ 2427851377/3981312*ep^6-30539760979/47775744*ep^7; Fill mncT10(-4,6) = 131/30-1/2*ep^-1-845/48*ep+25747/576*ep^2- 570889/6912*ep^3+50613671/414720*ep^4-154047985/995328*ep^5+ 2122929235/11943936*ep^6-27532209145/143327232*ep^7; Fill mncT10(-3,6) = 1/20-133/240*ep+2597/960*ep^2-91439/11520*ep^3 +2244941/138240*ep^4-8504443/331776*ep^5+134586481/3981312*ep^6- 1895224147/47775744*ep^7; Fill mncT10(-2,6) = 1/80*ep-33/320*ep^2+239/768*ep^3-16369/46080* ep^4-28393/110592*ep^5+2065915/1327104*ep^6-48179569/15925248* ep^7; Fill mncT10(-1,6) = 1/240*ep-37/2880*ep^2-1301/34560*ep^3+63767/ 414720*ep^4-55825/995328*ep^5-3527405/11943936*ep^6+69451655/ 143327232*ep^7; Fill mncT10(0,6) = 1/80*ep+13/960*ep^2-1951/11520*ep^3-24083/ 138240*ep^4+178885/331776*ep^5+1844465/3981312*ep^6-11791955/ 47775744*ep^7; Fill mncT10(6,1) = -3/40-13/800*ep+35531/48000*ep^2+233003/2880000 *ep^3-93186661/172800000*ep^4+5785099307/10368000000*ep^5- 256674082309/622080000000*ep^6+9764782347083/37324800000000*ep^7; Fill mncT10(1,6) = -3/20-11/16*ep+65/192*ep^2+13213/2304*ep^3+ 1265101/138240*ep^4+1354885/331776*ep^5-1770895/3981312*ep^6- 3862355/47775744*ep^7; Fill mncT10(6,2) = -41/20-3/2*ep^-1+16777/1200*ep+1335301/72000* ep^2-19367987/4320000*ep^3-196568531/259200000*ep^4+20928087997/ 15552000000*ep^5-848911040339/933120000000*ep^6+27834592249693/ 55987200000000*ep^7; Fill mncT10(2,6) = -71/10-3/2*ep^-1+511/240*ep+164303/2880*ep^2+ 3505459/34560*ep^3+25651559/414720*ep^4+8078735/995328*ep^5- 21369005/11943936*ep^6+52638215/143327232*ep^7; Fill mncT10(6,3) = -117/4-45/2*ep^-1+16461/80*ep+419211/1600*ep^2- 885519/32000*ep^3+5867451/640000*ep^4-167036679/12800000*ep^5+ 4087781091/256000000*ep^6-88115296239/5120000000*ep^7; Fill mncT10(3,6) = -285/4-45/2*ep^-1+10293/80*ep+196431/320*ep^2+ 169797/256*ep^3+1264407/5120*ep^4+46389/4096*ep^5-47733/16384* ep^6+50421/65536*ep^7; Fill mncT10(6,4) = -999/4-315/2*ep^-1+110547/80*ep+3592917/1600* ep^2+10569807/32000*ep^3+5651397/640000*ep^4-934558713/12800000* ep^5+21933000477/256000000*ep^6-453295830033/5120000000*ep^7; Fill mncT10(4,6) = -825/2-315/2*ep^-1+87101/80*ep+3474373/960*ep^2 +34090769/11520*ep^3+115905997/138240*ep^4-1176443/331776*ep^5+ 56130161/3981312*ep^6-808775507/47775744*ep^7; Fill mncT10(6,5) = -5677/4-735*ep^-1+181561/30*ep+22883293/1800* ep^2+275706917/54000*ep^3+823074373/1620000*ep^4-15404524363/ 48600000*ep^5+406322318053/1458000000*ep^6-11864681486443/ 43740000000*ep^7; Fill mncT10(5,6) = -1750-735*ep^-1+650707/120*ep+22250591/1440* ep^2+185708083/17280*ep^3+552944999/207360*ep^4-58423921/497664* ep^5+817950547/5971968*ep^6-10184347129/71663616*ep^7; Fill mncT10(6,6) = -120561/20-2646*ep^-1+4004489/200*ep+640164857/ 12000*ep^2+24618330341/720000*ep^3+348715791533/43200000*ep^4- 1386850102771/2592000000*ep^5+94551935998877/155520000000*ep^6- 5826659928470899/9331200000000*ep^7; Fill mncT10(-8,7) = 66017/30-588*ep^-1-4508803/900*ep+217504703/ 27000*ep^2-2991739331/270000*ep^3+421383935569/32400000*ep^4- 7212926744207/486000000*ep^5+1770122538918811/116640000000*ep^6- 57865917803434741/3499200000000*ep^7; Fill mncT10(-7,7) = 14147/30-98*ep^-1-1113373/900*ep+61188103/ 27000*ep^2-602106179/180000*ep^3+45691944773/10800000*ep^4- 3178962926651/648000000*ep^5+205925117660437/38880000000*ep^6- 13065626199034619/2332800000000*ep^7; Fill mncT10(-6,7) = 337/5-21/2*ep^-1-260689/1200*ep+33888383/72000 *ep^2-376269769/480000*ep^3+31338072103/28800000*ep^4- 2307104628361/1728000000*ep^5+156415258787207/103680000000*ep^6- 10079557406149609/6220800000000*ep^7; Fill mncT10(-5,7) = 71/15-1/2*ep^-1-75287/3600*ep+4216483/72000* ep^2-515461421/4320000*ep^3+50009271427/259200000*ep^4- 4105017792749/15552000000*ep^5+299730103147363/933120000000*ep^6- 20236533466283981/55987200000000*ep^7; Fill mncT10(-4,7) = 1/30-179/450*ep+4253/2000*ep^2-7480199/1080000 *ep^3+1025875513/64800000*ep^4-108169063031/3888000000*ep^5+ 9399066509497/233280000000*ep^6-711902602410839/13996800000000* ep^7; Fill mncT10(-3,7) = 1/200*ep-557/12000*ep^2+40553/240000*ep^3- 4125511/14400000*ep^4+81009257/864000000*ep^5+34516542041/ 51840000000*ep^6-5845460301367/3110400000000*ep^7; Fill mncT10(-2,7) = 1/1200*ep-89/24000*ep^2-5057/1440000*ep^3+ 3402559/86400000*ep^4-297978833/5184000000*ep^5-7537232129/ 311040000000*ep^6+3115335457423/18662400000000*ep^7; Fill mncT10(-1,7) = 1/1200*ep-67/72000*ep^2-52171/4320000*ep^3+ 3702677/259200000*ep^4+700238501/15552000000*ep^5-57502321387/ 933120000000*ep^6-1677134252731/55987200000000*ep^7; Fill mncT10(0,7) = 1/200*ep+143/12000*ep^2-42841/720000*ep^3- 6769033/43200000*ep^4+281515271/2592000000*ep^5+70334313623/ 155520000000*ep^6+1834748783399/9331200000000*ep^7; Fill mncT10(7,1) = -1/20-1/25*ep+17713/36000*ep^2+82091/240000* ep^3-48738953/129600000*ep^4+427746437/2592000000*ep^5- 11004699857/466560000000*ep^6-260909559947/9331200000000*ep^7; Fill mncT10(1,7) = -1/10-83/150*ep-3973/18000*ep^2+4308551/1080000 *ep^3+632934263/64800000*ep^4+34727955719/3888000000*ep^5+ 671428228247/233280000000*ep^6-2152778192089/13996800000000*ep^7; Fill mncT10(7,2) = -13/5-3/2*ep^-1+16009/1200*ep+1713467/72000* ep^2+5388271/4320000*ep^3-914192377/259200000*ep^4+25764655399/ 15552000000*ep^5-475059567913/933120000000*ep^6+5332305361831/ 55987200000000*ep^7; Fill mncT10(2,7) = -41/5-3/2*ep^-1-1263/400*ep+465987/8000*ep^2+ 22952577/160000*ep^3+445571067/3200000*ep^4+3730168857/64000000* ep^5+8320258947/1280000000*ep^6-25069707663/25600000000*ep^7; Fill mncT10(7,3) = -957/20-63/2*ep^-1+112243/400*ep+10355459/24000 *ep^2+39466867/1440000*ep^3-820748029/86400000*ep^4-52688239277/ 5184000000*ep^5+5047121105699/311040000000*ep^6-329518026784013/ 18662400000000*ep^7; Fill mncT10(3,7) = -591/5-63/2*ep^-1+48357/400*ep+7699887/8000* ep^2+229927077/160000*ep^3+2914218567/3200000*ep^4+15233331357/ 64000000*ep^5+13012446447/1280000000*ep^6-48530645163/25600000000 *ep^7; Fill mncT10(7,4) = -4991/10-294*ep^-1+760201/300*ep+40405069/9000* ep^2+276581461/270000*ep^3+34098109/8100000*ep^4-31522116779/ 243000000*ep^5+1038384247549/7290000000*ep^6-31364121813419/ 218700000000*ep^7; Fill mncT10(4,7) = -9107/10-294*ep^-1+498149/300*ep+34741013/4500* ep^2+296389693/33750*ep^3+1083612773/253125*ep^4+3003598556/ 3796875*ep^5+1782598082/56953125*ep^6-17693419246/854296875*ep^7; Fill mncT10(7,5) = -34601/10-1764*ep^-1+2884389/200*ep+557280473/ 18000*ep^2+2372481179/180000*ep^3+25064318153/16200000*ep^4- 124218058181/162000000*ep^5+9440585906633/14580000000*ep^6- 30654734745047/48600000000*ep^7; Fill mncT10(5,7) = -49007/10-1764*ep^-1+850421/75*ep+760299527/ 18000*ep^2+43823276051/1080000*ep^3+1087265701763/64800000*ep^4+ 9074623643219/3888000000*ep^5+52946432915747/233280000000*ep^6- 2990101848504589/13996800000000*ep^7; Fill mncT10(7,6) = -356391/20-7938*ep^-1+302601/5*ep+25242353/160* ep^2+189122879/1920*ep^3+535864919/23040*ep^4-88343129/55296*ep^5 +1285338523/663552*ep^6-15914843441/7962624*ep^7; Fill mncT10(6,7) = -414603/20-7938*ep^-1+10807857/200*ep+720254637/ 4000*ep^2+12473875827/80000*ep^3+93453599817/1600000*ep^4+ 206943175107/32000000*ep^5+824875727697/640000000*ep^6- 16195972051413/12800000000*ep^7; Fill mncT10(7,7) = -1470819/20-29106*ep^-1+40709357/200*ep+ 7693396111/12000*ep^2+377114820443/720000*ep^3+8039414975059/ 43200000*ep^4+45909374983667/2592000000*ep^5+838138011830371/ 155520000000*ep^6-49490700725480077/9331200000000*ep^7; Fill mncT10(-8,8) = 13421/15-168*ep^-1-5365907/2100*ep+479080783/ 94500*ep^2-15095688757/1890000*ep^3+403813110403/37800000*ep^4- 29184665467961/2268000000*ep^5+216909210370823/15120000000*ep^6- 17937657655875287/1166400000000*ep^7; Fill mncT10(-7,8) = 977/10-14*ep^-1-1076489/3150*ep+50495891/63000 *ep^2-1808941789/1260000*ep^3+160509345343/75600000*ep^4- 4144890665747/1512000000*ep^5+876238390013767/272160000000*ep^6- 306789898171261/86400000000*ep^7; Fill mncT10(-6,8) = 353/70-1/2*ep^-1-86107/3600*ep+5200903/72000* ep^2-228739987/1440000*ep^3+23861797469/86400000*ep^4- 696292338001/1728000000*ep^5+1125579800435627/2177280000000*ep^6- 1255544281620923/2073600000000*ep^7; Fill mncT10(-5,8) = 1/42-379/1260*ep+43399/25200*ep^2-9167693/ 1512000*ep^3+1366105291/90720000*ep^4-156453380117/5443200000* ep^5+14671220450779/326592000000*ep^6-169335072907139/ 2799360000000*ep^7; Fill mncT10(-4,8) = 1/420*ep-101/4200*ep^2+24967/252000*ep^3- 1045543/5040000*ep^4+159617923/907200000*ep^5+4446606433/ 18144000000*ep^6-530659892459/466560000000*ep^7; Fill mncT10(-3,8) = 1/4200*ep-109/84000*ep^2+683/5040000*ep^3+ 171199/14400000*ep^4-507092773/18144000000*ep^5+4824724217/ 362880000000*ep^6+452666862509/9331200000000*ep^7; Fill mncT10(-2,8) = 1/8400*ep-7/24000*ep^2-4979/3360000*ep^3+ 2574119/604800000*ep^4+1593769/576000000*ep^5-35029342489/ 2177280000000*ep^6+67288805083/6220800000000*ep^7; Fill mncT10(-1,8) = 1/4200*ep+13/252000*ep^2-56531/15120000*ep^3- 548003/907200000*ep^4+945051661/54432000000*ep^5+2733445693/ 3265920000000*ep^6-802749761813/27993600000000*ep^7; Fill mncT10(0,8) = 1/420*ep+101/12600*ep^2-16957/756000*ep^3- 4615741/45360000*ep^4-69750733/2721600000*ep^5+41921663171/ 163296000000*ep^6+439529975189/1399680000000*ep^7; Fill mncT10(8,1) = -1/28-11/245*ep+841441/2469600*ep^2+140549527/ 345744000*ep^3-78460581929/435637440000*ep^4-119057887957/ 6776582400000*ep^5+4333167426208351/76846444416000000*ep^6- 410287712663599453/10758502218240000000*ep^7; Fill mncT10(1,8) = -1/14-9/20*ep-559/1200*ep^2+194473/72000*ep^3+ 39548249/4320000*ep^4+3093776137/259200000*ep^5+807404476367/ 108864000000*ep^6+1725199829353/933120000000*ep^7; Fill mncT10(8,2) = -429/140-3/2*ep^-1+741721/58800*ep+76963479/ 2744000*ep^2+81887763001/10372320000*ep^3-6160336923403/ 1452124800000*ep^4+1295154979900681/1829677248000000*ep^5+ 39358375230671557/256154814720000000*ep^6-56475315896314779239/ 322755066547200000000*ep^7; Fill mncT10(2,8) = -639/70-3/2*ep^-1-23221/2800*ep+9404347/168000* ep^2+1808749211/10080000*ep^3+139327252843/604800000*ep^4+ 5435434915259/36288000000*ep^5+102815332576267/2177280000000*ep^6 +85547822813453/18662400000000*ep^7; Fill mncT10(8,3) = -723/10-42*ep^-1+190459/525*ep+3999879/6125* ep^2+1606404113/11576250*ep^3-18966571957/810337500*ep^4- 6990546924043/510512625000*ep^5+668899731827227/35735883750000* ep^6-418175338773746227/22513606762500000*ep^7; Fill mncT10(3,8) = -1791/10-42*ep^-1+27859/350*ep+7153343/5250* ep^2+101471723/39375*ep^3+5250487699/2362500*ep^4+69188808181/ 70875000*ep^5+417392104039/2126250000*ep^6+72496587163/9112500000 *ep^7; Fill mncT10(8,4) = -4583/5-504*ep^-1+2976049/700*ep+3633118901/ 441000*ep^2+26640129587/10290000*ep^3+1404226137989/19448100000* ep^4-312289819072471/1361367000000*ep^5+186774011049303221/ 857661210000000*ep^6-12687236774553135719/60036284700000000*ep^7; Fill mncT10(4,8) = -8891/5-504*ep^-1+4553953/2100*ep+454960141/ 31500*ep^2+4911347351/236250*ep^3+14142455467/1012500*ep^4+ 992017228511/212625000*ep^5+4449368188309/6378750000*ep^6- 183295275247/27337500000*ep^7; Fill mncT10(8,5) = -15261/2-3780*ep^-1+1708635/56*ep+160324043/ 2352*ep^2+1046272427/32928*ep^3+18358712195/4148928*ep^4- 10404645445/6453888*ep^5+9435231606155/7318708992*ep^6- 128926727934245/102461925888*ep^7; Fill mncT10(5,8) = -23775/2-3780*ep^-1+2859667/140*ep+23847883/240 *ep^2+2424900241/20160*ep^3+16526858893/241920*ep^4+7708831711/ 414720*ep^5+85445366581/34836480*ep^6-3269621077/11943936*ep^7; Fill mncT10(8,6) = -187149/4-20790*ep^-1+44283219/280*ep+ 9735744713/23520*ep^2+34385651633/131712*ep^3+10575190295741/ 165957120*ep^4-1096338717877/309786624*ep^5+1178158555300417/ 234198687744*ep^6-34397839895131271/6557563256832*ep^7; Fill mncT10(6,8) = -243381/4-20790*ep^-1+34826081/280*ep+ 8670420679/16800*ep^2+561756327107/1008000*ep^3+17090170665691/ 60480000*ep^4+238855334385083/3628800000*ep^5+1939963011438379/ 217728000000*ep^6-4196484063078739/1866240000000*ep^7; Fill mncT10(8,7) = -2277627/10-91476*ep^-1+226386421/350*ep+ 584576884757/294000*ep^2+195459943419287/123480000*ep^3+ 28591792133478017/51861600000*ep^4+1079869635250403447/ 21781872000000*ep^5+165784336667979838577/9148386240000000*ep^6- 67957703815844145893593/3842322220800000000*ep^7; Fill mncT10(7,8) = -2560767/10-91476*ep^-1+403678357/700*ep+ 91955041481/42000*ep^2+5533074324853/2520000*ep^3+156314232405389/ 151200000*ep^4+1952097820330957/9072000000*ep^5+17483205627194141/ 544320000000*ep^6-56218980835830581/4665600000000*ep^7; Fill mncT10(8,8) = -32429661/35-339768*ep^-1+10790696937/4900*ep+ 2046677027189/257250*ep^2+91578785899761/12005000*ep^3+ 77932951717863967/22689450000*ep^4+1055840020003157587/ 1588261500000*ep^5+109702578792907159663/1000604745000000*ep^6- 3481171676667212532157/70042332150000000*ep^7; Fill mncT10(-8,9) = 18821/140-18*ep^-1-9853007/19600*ep+3884669153/ 3087000*ep^2-2070710348593/864360000*ep^3+452764837013729/ 121010400000*ep^4-257078603825378861/50824368000000*ep^5+ 14614294203089176661/2371803840000000*ep^6- 62585603242255485696341/8965418515200000000*ep^7; Fill mncT10(-7,9) = 1487/280-1/2*ep^-1-4705693/176400*ep+ 1057264877/12348000*ep^2-346281904531/1728720000*ep^3+ 268482022992979/726062400000*ep^4-57934097867516537/ 101648736000000*ep^5+98177828136758401699/128077407360000000*ep^6 -5573394919295133816899/5976945676800000000*ep^7; Fill mncT10(-6,9) = 1/56-463/1960*ep+7054603/4939200*ep^2- 1232361283/230496000*ep^3+1372388471947/96808320000*ep^4- 1175386471449923/40659494400000*ep^5+273864823328300969/ 5692329216000000*ep^6-491369413834298328563/7172334812160000000* ep^7; Fill mncT10(-5,9) = 1/784*ep-2263/164640*ep^2+1428971/23049600* ep^3-1443954119/9680832000*ep^4+725260343671/4065949440000*ep^5+ 82188214853761/1707698764800000*ep^6-487666924163719049/ 717233481216000000*ep^7; Fill mncT10(-4,9) = 1/11760*ep-437/823200*ep^2+150043/345744000* ep^3+198757571/48404160000*ep^4-812570541017/60989241600000*ep^5+ 115819034717851/8538493824000000*ep^6+121603271554048423/ 10758502218240000000*ep^7; Fill mncT10(-3,9) = 1/39200*ep-1439/16464000*ep^2-573283/ 2304960000*ep^3+1163405147/968083200000*ep^4-159267256723/ 406594944000000*ep^5-637601591075893/170769876480000000*ep^6+ 417647825841640637/71723348121600000000*ep^7; Fill mncT10(-2,9) = 1/39200*ep-153/5488000*ep^2-303141/768320000* ep^3+446130407/968083200000*ep^4+235332367979/135531648000000* ep^5-401344876433833/170769876480000000*ep^6-5900576673582589/ 2656420300800000000*ep^7; Fill mncT10(-1,9) = 1/11760*ep+257/2469600*ep^2-1351993/1037232000 *ep^3-679414663/435637440000*ep^4+1056611141567/182967724800000* ep^5+502580460411497/76846444416000000*ep^6-289569977668393873/ 32275506654720000000*ep^7; Fill mncT10(0,9) = 1/784*ep+291/54880*ep^2-196163/23049600*ep^3- 616218973/9680832000*ep^4-235493357243/4065949440000*ep^5+ 208487366284787/1707698764800000*ep^6+198243350526018517/ 717233481216000000*ep^7; Fill mncT10(9,1) = -3/112-1371/31360*ep+6431963/26342400*ep^2+ 2966087647/7375872000*ep^3-611577766213/18587197440000*ep^4- 132891842895899/1734805094400000*ep^5+593820769327621163/ 13115126513664000000*ep^6-48167021090694550753/ 3672235423825920000000*ep^7; Fill mncT10(1,9) = -3/56-729/1960*ep-312307/548800*ep^2+411281683/ 230496000*ep^3+789265539653/96808320000*ep^4+547737213033523/ 40659494400000*ep^5+198989510150684693/17076987648000000*ep^6+ 38525159393942520163/7172334812160000000*ep^7; Fill mncT10(9,2) = -1941/560-3/2*ep^-1+5574893/470400*ep+ 1384537139/43904000*ep^2+4946688512957/331914240000*ep^3- 290639078154967/92935987200000*ep^4-134149663854043507/ 234198687744000000*ep^5+34519055112763577017/65575632568320000000 *ep^6-31499534201019882113443/165250594072166400000000*ep^7; Fill mncT10(2,9) = -2781/280-3/2*ep^-1-259297/19600*ep+52749191/ 1029000*ep^2+45208808453/216090000*ep^3+3723811897181/11344725000 *ep^4+663357839735273/2382392250000*ep^5+66924156611102909/ 500302372500000*ep^6+3526590809069974697/105063498225000000*ep^7; Fill mncT10(9,3) = -3606/35-54*ep^-1+8832897/19600*ep+15295528679/ 16464000*ep^2+1480090671851/4609920000*ep^3-216275657823529/ 11616998400000*ep^4-79790911767110501/3252759552000000*ep^5+ 178558123530582551879/8196954071040000000*ep^6- 4857161426003038109261/255016348876800000000*ep^7; Fill mncT10(3,9) = -35673/140-54*ep^-1-64347/19600*ep+153855913/ 85750*ep^2+296173542391/72030000*ep^3+33238587150539/7563150000* ep^4+4145231326795487/1588261500000*ep^5+289258925694605171/ 333534915000000*ep^6+9922414780401535943/70042332150000000*ep^7; Fill mncT10(9,4) = -11007/7-810*ep^-1+5227599/784*ep+619210523/ 43904*ep^2+41651662777/7375872*ep^3+489208925459/1239146496*ep^4- 81859576744847/208176611328*ep^5+10789518441547451/34973670703104 *ep^6-1705160030740618583/5875576678121472*ep^7; Fill mncT10(4,9) = -88875/28-810*ep^-1+9252927/3920*ep+168366909/ 6860*ep^2+8166579979/192080*ep^3+144167672767/4033680*ep^4+ 562192184635/33882912*ep^5+6042881296211/1423082304*ep^6+ 143557466008487/298847283840*ep^7; Fill mncT10(9,5) = -108615/7-7425*ep^-1+92424603/1568*ep+ 36431450201/263424*ep^2+1051649748017/14751744*ep^3+ 88092329320049/7434878976*ep^4-414528826232413/138784407552*ep^5+ 479329505174651561/209842024218624*ep^6-26507510653628314271/ 11751153356242944*ep^7; Fill mncT10(5,9) = -1448565/56-7425*ep^-1+12607711/392*ep+ 68703347107/329280*ep^2+8372383405609/27659520*ep^3+ 500539948415827/2323399680*ep^4+16253187395221297/195165573120* ep^5+58469446302619391/3278781628416*ep^6+1690638188191429993/ 1377088283934720*ep^7; Fill mncT10(9,6) = -3127311/28-49005*ep^-1+2898678549/7840*ep+ 433169530321/439040*ep^2+47397954971827/73758720*ep^3+ 2054240925109729/12391464960*ep^4-2252571502338001/416353222656* ep^5+791889372334040933/69947341406208*ep^6-140895507744038441929/ 11751153356242944*ep^7; Fill mncT10(6,9) = -8845353/56-49005*ep^-1+61371918/245*ep+ 715102622253/548800*ep^2+128719613722761/76832000*ep^3+ 11393633670678117/10756480000*ep^4+536420721540120849/ 1505907200000*ep^5+14455100435858111853/210827008000000*ep^6+ 34989323864128121241/29515781120000000*ep^7; Fill mncT10(9,7) = -22145607/35-254826*ep^-1+35373882351/19600*ep+ 30313548935039/5488000*ep^2+20203931885697673/4609920000*ep^3+ 5933616533636271311/3872332800000*ep^4+462091977884877380377/ 3252759552000000*ep^5+142769850251436137231039/ 2732318023680000000*ep^6-114999667913715451701923927/ 2295147139891200000000*ep^7; Fill mncT10(7,9) = -109180863/140-254826*ep^-1+27831938271/19600* ep+4471028447173/686000*ep^2+1110743856904309/144060000*ep^3+ 135627586834713397/30252600000*ep^4+8622826680259950451/ 6353046000000*ep^5+331428982993570252933/1334139660000000*ep^6- 2764334514498136420061/280169328600000000*ep^7; Fill mncT10(9,8) = -103963002/35-1104246*ep^-1+20313977223/2800*ep +8587525177223/336000*ep^2+107219196240447/4480000*ep^3+ 50977876717066823/4838400000*ep^4+380601667803088541/193536000000 *ep^5+24216309750942584423/69672960000000*ep^6- 67745705206734496037/398131200000000*ep^7; Fill mncT10(8,9) = -457261233/140-1104246*ep^-1+126658602561/19600 *ep+56612672242069/2058000*ep^2+1477059000503353/48020000*ep^3+ 1532380088383876441/90757800000*ep^4+30091840120792481701/ 6353046000000*ep^5+3421671162113760915049/4002418980000000*ep^6- 22217690250163259388811/280169328600000000*ep^7; Fill mncT10(9,9) = -47947185/4-8281845/2*ep^-1+78174883767/3136*ep +445278263627459/4390400*ep^2+403289285860381253/3687936000*ep^3+ 179134080933423547571/3097866240000*ep^4+40107079404902794050197/ 2602207641600000*ep^5+6107288872524948039063779/ 2185854418944000000*ep^6-685704216791215900749886747/ 1836117711912960000000*ep^7; Fill mncT10(-8,10) = 6989/1260-1/2*ep^-1-6874309/235200*ep+ 175474596593/1778112000*ep^2-40347144664961/165957120000*ep^3+ 21937483398922691/46467993600000*ep^4-89336945333212051889/ 117099343872000000*ep^5+35085719900476817652659/ 32787816284160000000*ep^6-111398552218190238818205761/ 82625297036083200000000*ep^7; Fill mncT10(-7,10) = 1/72-1283/6720*ep+61341419/50803200*ep^2- 67601682689/14224896000*ep^3+52947380677859/3982970880000*ep^4- 95773519477036187/3345695539200000*ep^5+15683463115995200699/ 312264916992000000*ep^6-177211256299512571378763/ 2360722772459520000000*ep^7; Fill mncT10(-6,10) = 1/1344*ep-3179/376320*ep^2+38770049/948326400 *ep^3-9635223953/88510464000*ep^4+11802258330329/74348789760000* ep^5-2684367045608897/62452983398400000*ep^6-6977200904146404893/ 17486835351552000000*ep^7; Fill mncT10(-5,10) = 1/28224*ep-5797/23708160*ep^2+2202023/ 6638284800*ep^3+8689170961/5576159232000*ep^4-31132238888473/ 4683973754880000*ep^5+37603929719849089/3934537954099200000*ep^6+ 431369864061302423/3305011881443328000000*ep^7; Fill mncT10(-4,10) = 1/141120*ep-3529/118540800*ep^2-540767/ 11063808000*ep^3+10661942293/27880796160000*ep^4-8911337124349/ 23419868774400000*ep^5-17419482824261243/19672689770496000000* ep^6+39518875187540435699/16525059407216640000000*ep^7; Fill mncT10(-3,10) = 1/235200*ep-1723/197568000*ep^2-3323987/ 55319040000*ep^3+6428460691/46467993600000*ep^4+7694842432037/ 39033114624000000*ep^5-21138442578435341/32787816284160000000* ep^6+2341869361670715413/27541765678694400000000*ep^7; Fill mncT10(-2,10) = 1/141120*ep-19/39513600*ep^2-1286911/ 11063808000*ep^3+395635669/27880796160000*ep^4+4644027020161/ 7806622924800000*ep^5-2638518242353019/19672689770496000000*ep^6- 6644799141814715311/5508353135738880000000*ep^7; Fill mncT10(-1,10) = 1/28224*ep+569/7902720*ep^2-3349369/ 6638284800*ep^3-6050070703/5576159232000*ep^4+8556135083879/ 4683973754880000*ep^5+18148054426221953/3934537954099200000*ep^6- 4264210082224378729/3305011881443328000000*ep^7; Fill mncT10(0,10) = 1/1344*ep+1349/376320*ep^2-909109/316108800* ep^3-10682456563/265531392000*ep^4-13079587690741/223046369280000 *ep^5+8749090485127613/187358950195200000*ep^6+ 32503393345138352891/157381518163968000000*ep^7; Fill mncT10(10,1) = -1/48-4913/120960*ep+54821267/304819200*ep^2+ 287421825007/768144384000*ep^3+129457437294347/1935723847680000* ep^4-380383365844061513/4878024096153600000*ep^5+ 225517466029775449427/12292620722307072000000*ep^6+ 88358252242638620723167/30977404220213821440000000*ep^7; Fill mncT10(1,10) = -1/24-2099/6720*ep-3411341/5644800*ep^2+ 5367611413/4741632000*ep^3+28254903745891/3982970880000*ep^4+ 46982106507854437/3345695539200000*ep^5+42428380840954381459/ 2810384252928000000*ep^6+22575907208684427993013/ 2360722772459520000000*ep^7; Fill mncT10(10,2) = -3209/840-3/2*ep^-1+23449001/2116800*ep+ 183663936121/5334336000*ep^2+295519349213141/13442526720000*ep^3- 16723146461182439/33875167334400000*ep^4-139225311874684347619/ 85365421682688000000*ep^5+113231580706386659715601/ 215120862640373760000000*ep^6-37266360896608344329084779/ 542104573853741875200000000*ep^7; Fill mncT10(2,10) = -4469/420-3/2*ep^-1-4223269/235200*ep+ 8846797177/197568000*ep^2+38689293302239/165957120000*ep^3+ 59709391783310473/139403980800000*ep^4+51332799820998824911/ 117099343872000000*ep^5+26815487340198562455577/ 98363448852480000000*ep^6+8475835126447542394197439/ 82625297036083200000000*ep^7; Fill mncT10(10,3) = -7863/56-135/2*ep^-1+5105869/9408*ep+ 5979475273/4741632*ep^2+1404672849793/2389782528*ep^3+ 25182200308273/1204450394112*ep^4-24400676646773807/ 607042998632448*ep^5+7116043446678299473/305949671310753792*ep^6- 2870012866245748234607/154198634340619911168*ep^7; Fill mncT10(3,10) = -4845/14-135/2*ep^-1-2120191/15680*ep+ 392726021/175616*ep^2+893381947379/147517440*ep^3+189024874192657/ 24782929920*ep^4+23238823471233947/4163532226560*ep^5+ 348695151341187701/139894682812416*ep^6+77695203471321026051/ 117511533562429440*ep^7; Fill mncT10(10,4) = -142895/56-2475/2*ep^-1+279921139/28224*ep+ 324527671543/14224896*ep^2+79228822515679/7169347584*ep^3+ 4736815497678319/3613351182336*ep^4-1128953117831145521/ 1821128995897344*ep^5+369173183346962999119/917849013932261376* ep^6-174434960410436146996721/462595903021859733504*ep^7; Fill mncT10(4,10) = -148145/28-2475/2*ep^-1+5844233/3136*ep+ 102041943371/2634240*ep^2+34685940027097/442552320*ep^3+ 5810307829273907/74348789760*ep^4+567484189539766993/ 12490596679680*ep^5+6715137669136815967/419684048437248*ep^6+ 228604495222090732853/70506920137457664*ep^7; Fill mncT10(10,5) = -1652695/56-27225/2*ep^-1+2991229469/28224*ep+ 3731016922625/14224896*ep^2+1070807836572329/7169347584*ep^3+ 106428276085837625/3613351182336*ep^4-8696857836147578215/ 1821128995897344*ep^5+3373460800981843580825/917849013932261376* ep^6-1729606182036043603019815/462595903021859733504*ep^7; Fill mncT10(5,10) = -2895365/56-27225/2*ep^-1+137893873/3136*ep+ 351913867217/878080*ep^2+6644184374413/9834496*ep^3+ 1574369597037737/2753658880*ep^4+8634850111386637/30840979456* ep^5+714451286287142393/8635474247680*ep^6+1278030556118875837/ 96717311574016*ep^7; Fill mncT10(10,6) = -13805781/56-212355/2*ep^-1+37220066537/47040* ep+51518379298877/23708160*ep^2+17681366933446277/11948912640* ep^3+2462941888380796757/6022251970560*ep^4-1155889915078838159/ 607042998632448*ep^5+7017711542785441542001/305949671310753792* ep^6-3816886375815773701957199/154198634340619911168*ep^7; Fill mncT10(6,10) = -10411467/28-212355/2*ep^-1+7007897301/15680* ep+13054357748157/4390400*ep^2+5432640205465833/1229312000*ep^3+ 1141773110158691877/344207360000*ep^4+137203192797278262513/ 96378060800000*ep^5+9999875366138777072397/26985857024000000*ep^6 +347019107856932119086393/7556039966720000000*ep^7; Fill mncT10(10,7) = -64298663/40-1288287/2*ep^-1+65399895179/14400 *ep+72673731308677/5184000*ep^2+21008503589356631/1866240000*ep^3 +2699732995940530693/671846400000*ep^4+98615194279443444479/ 241864704000000*ep^5+11762192716430678550637/87071293440000000* ep^6-3936235367065451168536489/31345665638400000000*ep^7; Fill mncT10(7,10) = -10657361/5-1288287/2*ep^-1+104096074001/33600 *ep+70010581183721/4032000*ep^2+11415336636644921/483840000*ep^3+ 941071217126100521/58060800000*ep^4+43764869471914228121/ 6967296000000*ep^5+1252640386513257715721/836075520000000*ep^6+ 13595190437829122963321/100329062400000000*ep^7; Fill mncT10(10,8) = -68961035/8-6441435/2*ep^-1+85716427777/4032* ep+538624877659483/7257600*ep^2+180099386375368169/2612736000* ep^3+28379320048858941307/940584960000*ep^4+ 1897053674504596395521/338610585600000*ep^5+ 124876117988309979049363/121899810816000000*ep^6- 3169489713348615490209073/6269133127680000000*ep^7; Fill mncT10(8,10) = -40973075/4-6441435/2*ep^-1+22478238109/1344* ep+476548217134259/5644800*ep^2+510156069130971413/4741632000* ep^3+275923509539915048291/3982970880000*ep^4+ 83099258828924445467237/3345695539200000*ep^5+ 15732987929701618611111059/2810384252928000000*ep^6+ 780045112614771628625420213/2360722772459520000000*ep^7; Fill mncT10(10,9) = -315660345/8-13803075*ep^-1+99248819645/1176* ep+991879090289449/2963520*ep^2+263813554159185809/746807040*ep^3 +34403361676341944641/188195374080*ep^4+2243502897931080551873/ 47425234268160*ep^5+20719689617263108883405/2390231807115264*ep^6 -4149982916295543386704447/3011692076965232640*ep^7; Fill mncT10(9,10) = -85433205/2-13803075*ep^-1+117761275265/1568* ep+467167231082219/1317120*ep^2+95619206829958873/221276160*ep^3+ 9875467238318703923/37174394880*ep^4+561612840013743600337/ 6245298339840*ep^5+4110489028015557580639/209842024218624*ep^6+ 21780500082750423668021/35253460068728832*ep^7; Fill mncT10(10,10) = -3802934135/24-52144950*ep^-1+12362003265215/ 42336*ep+141030167154691039/106686720*ep^2+16799338215122256935/ 10754021376*ep^3+25215345288750461743819/27100133867520*ep^4+ 826552886737401492355103/2731693493846016*ep^5+ 445334968453485106062533371/6883867604491960320*ep^6+ 446053749877384182139257983/693893854532789600256*ep^7; Fill mncT10(-8,11) = 1/90-2983/18900*ep+98763821/95256000*ep^2- 1021805644019/240045120000*ep^3+7533988148916401/604913702400000* ep^4-42808919586546751979/1524382530048000000*ep^5+ 198015866639623367928041/3841443975720960000000*ep^6- 777999197524334532491679539/9680438818816819200000000*ep^7; Fill mncT10(-7,11) = 1/2160*ep-29881/5443200*ep^2+385848811/ 13716864000*ep^3-2801327199049/34566497280000*ep^4+ 11785301188935571/87107573145600000*ep^5-18219423237817677409/ 219511084326912000000*ep^6-124467450922252274733989/ 553167932503818240000000*ep^7; Fill mncT10(-6,11) = 1/60480*ep-18811/152409600*ep^2+84849841/ 384072192000*ep^3+607027586021/967861923840000*ep^4- 8519480743133159/2439012048076800000*ep^5+38635808219919179261/ 6146310361153536000000*ep^6-43413438778542524851919/ 15488702110106910720000000*ep^7; Fill mncT10(-5,11) = 1/423360*ep-12211/1066867200*ep^2-25730759/ 2688505344000*ep^3+925209884621/6775033466880000*ep^4- 3603759443182559/17073084336537600000*ep^5-8413757889657618139/ 43024172528074752000000*ep^6+104934056452432102162681/ 108420914770748375040000000*ep^7; Fill mncT10(-4,11) = 1/1058400*ep-7087/2667168000*ep^2-78661427/ 6721263360000*ep^3+686454642833/16937583667200000*ep^4+ 767730756410293/42682710841344000000*ep^5-18357029460213437047/ 107560431320186880000000*ep^6+36690520557972323224813/ 271052286926870937600000000*ep^7; Fill mncT10(-3,11) = 1/1058400*ep-2551/2667168000*ep^2-102108011/ 6721263360000*ep^3+279359306969/16937583667200000*ep^4+ 3129650069654749/42682710841344000000*ep^5-9875404779185517871/ 107560431320186880000000*ep^6-33208897607613270014891/ 271052286926870937600000000*ep^7; Fill mncT10(-2,11) = 1/423360*ep+1901/1066867200*ep^2-103904183/ 2688505344000*ep^3-184249511683/6775033466880000*ep^4+ 3380066029787857/17073084336537600000*ep^5+5133489198957426197/ 43024172528074752000000*ep^6-45258078255907377272663/ 108420914770748375040000000*ep^7; Fill mncT10(-1,11) = 1/60480*ep+6821/152409600*ep^2-81296063/ 384072192000*ep^3-641704324843/967861923840000*ep^4+ 1206466912957897/2439012048076800000*ep^5+16564241219862445037/ 6146310361153536000000*ep^6+14117646285298182506977/ 15488702110106910720000000*ep^7; Fill mncT10(0,11) = 1/2160*ep+13571/5443200*ep^2-6904313/ 13716864000*ep^3-897058600093/34566497280000*ep^4- 4423491518982353/87107573145600000*ep^5+1592967696756799787/ 219511084326912000000*ep^6+79382876592639322056727/ 553167932503818240000000*ep^7; Fill mncT10(11,1) = -1/60-2803/75600*ep+25795597/190512000*ep^2+ 163113470717/480090240000*ep^3+159430936342297/1209827404800000* ep^4-169199639758710643/3048765060096000000*ep^5- 24334098127236258143/7682887951441920000000*ep^6+ 156868321548451747267877/19360877637633638400000000*ep^7; Fill mncT10(1,11) = -1/30-5029/18900*ep-57716941/95256000*ep^2+ 159240526339/240045120000*ep^3+3691181490029519/604913702400000* ep^4+21373109934989204299/1524382530048000000*ep^5+ 68000783440139167402679/3841443975720960000000*ep^6+ 133907711344935810485096659/9680438818816819200000000*ep^7; Fill mncT10(11,2) = -695/168-3/2*ep^-1+4363337/423360*ep+ 39319215001/1066867200*ep^2+77915252986373/2688505344000*ep^3+ 22826251529617129/6775033466880000*ep^4-36848346550613700883/ 17073084336537600000*ep^5+10506186835439695700641/ 43024172528074752000000*ep^6+7863906062347364743829093/ 108420914770748375040000000*ep^7; Fill mncT10(2,11) = -947/84-3/2*ep^-1-47582173/2116800*ep+ 39463575743/1066867200*ep^2+135340986357023/537701068800*ep^3+ 142999934290618463/271001338675200*ep^4+85190339978941982879/ 136584674692300800*ep^5+32055839565992402551007/ 68838676044919603200*ep^6+7822298923485254475172127/ 34694692726639480012800*ep^7; Fill mncT10(11,3) = -31043/168-165/2*ep^-1+53978935/84672*ep+ 352113060983/213373440*ep^2+511515665897179/537701068800*ep^3+ 152521053416305367/1355006693376000*ep^4-187941637697476000109/ 3414616867307520000*ep^5+184007962285687953589343/ 8604834505614950400000*ep^6-377277510860990402737705061/ 21684182954149675008000000*ep^7; Fill mncT10(3,11) = -38099/84-165/2*ep^-1-136815743/423360*ep+ 2844733150577/1066867200*ep^2+4523973036631889/537701068800*ep^3+ 655973995320613789/54200267735040*ep^4+1416714443805753126353/ 136584674692300800*ep^5+391646519642574381791633/ 68838676044919603200*ep^6+69940611327950397573551441/ 34694692726639480012800*ep^7; Fill mncT10(11,4) = -332233/84-1815*ep^-1+598377533/42336*ep+ 3757037860813/106686720*ep^2+5352935617429529/268850534400*ep^3+ 2281322911479014317/677503346688000*ep^4-1459953910168471909759/ 1707308433653760000*ep^5+2058785213607037215749893/ 4302417252807475200000*ep^6-5099657295993107842787519911/ 10842091477074837504000000*ep^7; Fill mncT10(4,11) = -175472/21-1815*ep^-1+35881667/211680*ep+ 30748899134287/533433600*ep^2+35928138807539647/268850534400*ep^3 +20712991861692531967/135500669337600*ep^4+7186965012135524825407/ 68292337346150400*ep^5+1592346892099232646687103/ 34419338022459801600*ep^6+224739901537423163834730943/ 17347346363319740006400*ep^7; Fill mncT10(11,5) = -1114696/21-23595*ep^-1+7610475203/42336*ep+ 50154246537319/106686720*ep^2+79064175176573507/268850534400*ep^3 +45991975535151546511/677503346688000*ep^4- 10434116990387834001397/1707308433653760000*ep^5+ 23457332325816547259148919/4302417252807475200000*ep^6- 63397621281142131297418543213/10842091477074837504000000*ep^7; Fill mncT10(5,11) = -2027036/21-23595*ep^-1+10550628071/211680*ep+ 382191477188131/533433600*ep^2+369644358490164691/268850534400* ep^3+181283953667307543571/135500669337600*ep^4+ 53397832522132560313171/68292337346150400*ep^5+ 10003298602086093165717139/34419338022459801600*ep^6+ 1165596056921600334031143379/17347346363319740006400*ep^7; Fill mncT10(11,6) = -61149517/120-429429/2*ep^-1+13613972267/8640* ep+13932506091133/3110400*ep^2+3592823502015887/1119744000*ep^3+ 385575907098535693/403107840000*ep^4+3525057088196435927/ 145118822400000*ep^5+2253132106235551947253/52242776064000000* ep^6-889386987033818223929233/18807399383040000000*ep^7; Fill mncT10(6,11) = -48498307/60-429429/2*ep^-1+213368937539/ 302400*ep+680110812894301/108864000*ep^2+412247253965058503/ 39191040000*ep^3+128056575416098171909/14108774400000*ep^4+ 23725830787419442736927/5079158784000000*ep^5+ 2792253000326649470314381/1828497162240000000*ep^6+ 196215447948845307783973943/658258978406400000000*ep^7; Fill mncT10(11,7) = -454671217/120-3006003/2*ep^-1+453803246797/ 43200*ep+513008082469091/15552000*ep^2+151600988117747233/ 5598720000*ep^3+20122105332211370339/2015539200000*ep^4+ 829037813120501883577/725594112000000*ep^5+ 84579288779838797709371/261213880320000000*ep^6- 26892687314390055647490527/94036996915200000000*ep^7; Fill mncT10(7,11) = -63946883/12-3006003/2*ep^-1+52265011207/8640* ep+4595590708720531/108864000*ep^2+2533732928743842953/ 39191040000*ep^3+718565673469209383659/14108774400000*ep^4+ 120464974507146896768177/5079158784000000*ep^5+ 12865562988619306730108131/1828497162240000000*ep^6+ 769103068517886285205255193/658258978406400000000*ep^7; Fill mncT10(11,8) = -138065213/6-8588580*ep^-1+213988583759/3780* ep+26947564877509/136080*ep^2+4518904460831059/24494400*ep^3+ 51207493612844839/629856000*ep^4+12212122206869666611/ 793618560000*ep^5+404799878141729870377/142851340800000*ep^6- 4929237873428505295523/3673320192000000*ep^7; Fill mncT10(8,11) = -174914311/6-8588580*ep^-1+58584887341/1512*ep +1117512624081499/4762800*ep^2+12569348681479957/37507050*ep^3+ 931466938017312119/3780710640*ep^4+126322109467239217313/ 1190923851600*ep^5+4394726467741394373527/150056405301600*ep^6+ 78173190313954830050351/18907107068001600*ep^7; Fill mncT10(11,9) = -711222941/6-41715960*ep^-1+27187619711459/ 105840*ep+13423731181540013/13335840*ep^2+17674445119541932403/ 16803158400*ep^3+11417546561952476709707/21171979584000*ep^4+ 3680501651527177817612543/26676694275840000*ep^5+ 859542504648370615833933707/33612634787558400000*ep^6- 183057005915261028115237716457/42351919832323584000000*ep^7; Fill mncT10(9,11) = -823160767/6-41715960*ep^-1+267122732792/1323* ep+148818229211776489/133358400*ep^2+101766492137102355589/ 67212633600*ep^3+35798928364277483612869/33875167334400*ep^4+ 7309897940069565641496709/17073084336537600*ep^5+ 966063287098048046246248261/8604834505614950400*ep^6+ 58342474774526044274575494661/4336836590829935001600*ep^7; Fill mncT10(11,10) = -4260859889/8-177292830*ep^-1+23753750986661/ 23520*ep+17606658116384629/3951360*ep^2+17143622870403304879/ 3319142400*ep^3+8408206414437821960449/2788079616000*ep^4+ 2239309657180344086391559/2341986877440000*ep^5+ 398818946250512397684399169/1967268977049600000*ep^6- 1584236737493664115321433321/1652505940721664000000*ep^7; Fill mncT10(10,11) = -13680863339/24-177292830*ep^-1+ 38005785613247/42336*ep+2490969586314773063/533433600*ep^2+ 1641181361023284690443/268850534400*ep^3+555663866815082112073523/ 135500669337600*ep^4+108382597449269825006838083/ 68292337346150400*ep^5+13819434287444002085267645987/ 34419338022459801600*ep^6+711261041041247135848387385507/ 17347346363319740006400*ep^7; Fill mncT10(11,11) = -255870487873/120-673712754*ep^-1+ 3717632559324581/1058400*ep+9361780383259151417/533433600*ep^2+ 30042689176631391499321/1344252672000*ep^3+ 49495027492907968295088533/3387516733440000*ep^4+ 46699917602231609182968110809/8536542168268800000*ep^5+ 29075766895976422924049622913757/21512086264037376000000*ep^6+ 6473146130635502169105811795761361/54210457385374187520000000* ep^7; Fill mncT10(-8,12) = 1/3300*ep-323/86625*ep^2+69997517/3492720000* ep^3-541675360463/8801654400000*ep^4+229144535808847/ 2016379008000000*ep^5-5472807969270214823/55894026101760000000* ep^6-16361940468316167910723/140852945776435200000000*ep^7; Fill mncT10(-7,12) = 1/118800*ep-1823/27216000*ep^2+108752887/ 754427520000*ep^3+491354181107/1901157350400000*ep^4- 9225015362994113/4790916523008000000*ep^5+4502951989418644177/ 1097555421634560000000*ep^6-96077290063473594440153/ 30424236287710003200000000*ep^7; Fill mncT10(-6,12) = 1/1108800*ep-13603/2794176000*ep^2-734533/ 640120320000*ep^3+952886468957/17744135270400000*ep^4- 4906407083349263/44715220881408000000*ep^5-2789274070316096203/ 112682356621148160000000*ep^6+114138860656743037242697/ 283959538685293363200000000*ep^7; Fill mncT10(-5,12) = 1/3880800*ep-8683/9779616000*ep^2-66525023/ 24644632320000*ep^3+805939554197/62104473446400000*ep^4- 391263152949623/156503273084928000000*ep^5-18999643844695786963/ 394388248174018560000000*ep^6+66475304894396382575137/ 993858385398526771200000000*ep^7; Fill mncT10(-4,12) = 1/5821200*ep-4441/14669424000*ep^2-96175301/ 36966948480000*ep^3+469228417799/93156710169600000*ep^4+ 2488971292248739/234754909627392000000*ep^5-15451588024629085201/ 591582372261027840000000*ep^6-11151731416867310466581/ 1490787578097790156800000000*ep^7; Fill mncT10(-3,12) = 1/3880800*ep-41/889056000*ep^2-106724231/ 24644632320000*ep^3+62855797229/62104473446400000*ep^4+ 3641178156133249/156503273084928000000*ep^5-3077236042107939451/ 394388248174018560000000*ep^6-51685480205179303695911/ 993858385398526771200000000*ep^7; Fill mncT10(-2,12) = 1/1108800*ep+3629/2794176000*ep^2-100147511/ 7041323520000*ep^3-363018034051/17744135270400000*ep^4+ 3012470666418769/44715220881408000000*ep^5+10899726173001035669/ 112682356621148160000000*ep^6-34774104735344390520791/ 283959538685293363200000000*ep^7; Fill mncT10(-1,12) = 1/118800*ep+8279/299376000*ep^2-71038061/ 754427520000*ep^3-758177992801/1901157350400000*ep^4+ 244899530397019/4790916523008000000*ep^5+18128969336737222919/ 12073109637980160000000*ep^6+38694878585981736463459/ 30424236287710003200000000*ep^7; Fill mncT10(0,12) = 1/3300*ep+1853/1039500*ep^2+5156797/ 10478160000*ep^3-451433421823/26404963200000*ep^4- 2774848014981563/66540507264000000*ep^5-2070293525465074663/ 167682078305280000000*ep^6+40241404600623621079357/ 422558837329305600000000*ep^7; Fill mncT10(12,1) = -3/220-34193/1016400*ep+2922536677/28174608000 *ep^2+238579746368167/781000133760000*ep^3+3739048610944571017/ 21649323707827200000*ep^4-15103903830115276445153/ 600119253180969984000000*ep^5-256835387289382491826212983/ 16635305698176487956480000000*ep^6+ 3305814688144472379000420522607/461130673953452246153625600000000 *ep^7; Fill mncT10(1,12) = -3/110-241/1050*ep-1250443/2116800*ep^2+ 1722580777/5334336000*ep^3+70125286249421/13442526720000*ep^4+ 462355226534596033/33875167334400000*ep^5+1670558151792982802309/ 85365421682688000000*ep^6+3839915420485620715751257/ 215120862640373760000000*ep^7; Fill mncT10(12,2) = -40871/9240-3/2*ep^-1+2444898649/256132800*ep+ 276180027326659/7100001216000*ep^2+7048010931067706749/ 196812033707520000*ep^3+44834336438480704988779/ 5455629574372454400000*ep^4-301849728471382259037721571/ 151230051801604435968000000*ep^5-757523228318762921976657512261/ 4192097035940474965032960000000*ep^6+1874642909758305839379050067\ 9390829/116204929836269966030713651200000000*ep^7; Fill mncT10(2,12) = -54731/4620-3/2*ep^-1-624205919/23284800*ep+ 331241216413/11735539200*ep^2+7851097080953393/29573558784000* ep^3+46534942229280826549/74525368135680000*ep^4+ 155735998288188879541577/187803927701913600000*ep^5+ 336985299783204962621714221/473265897808822272000000*ep^6+ 492131805851730039903510934433/1192630062478232125440000000*ep^7; Fill mncT10(12,3) = -33101/140-99*ep^-1+2847185989/3880800*ep+ 225607387665199/107575776000*ep^2+4243440341920449889/ 2982000510720000*ep^3+22697138351294186493319/ 82661054157158400000*ep^4-138764898356974114705523231/ 2291364421236430848000000*ep^5+978447897009226901865079605079/ 63516621756673863106560000000*ep^6-281455453647009061534475033273\ 69231/1760680755094999485313843200000000*ep^7; Fill mncT10(3,12) = -40451/70-99*ep^-1-2226268069/3880800*ep+ 5988944914079/1955923200*ep^2+55097375769973723/4928926464000* ep^3+223416820945254239879/12420894689280000*ep^4+ 49764003084492592181897/2845514056089600000*ep^5+ 884028911845728458980585391/78877649634803712000000*ep^6+ 966807035799655591102721020843/198771677079705354240000000*ep^7; Fill mncT10(12,4) = -206494/35-2574*ep^-1+37728143407/1940400*ep+ 2811617571286537/53787888000*ep^2+50122234613075865007/ 1491000255360000*ep^3+304594677644335331403097/ 41330527078579200000*ep^4-1092184981913744913052123553/ 1145682210618215424000000*ep^5+16383273249410556721437636647977/ 31758310878336931553280000000*ep^6-503884097463020074416088413201\ 229553/880340377547499742656921600000000*ep^7; Fill mncT10(4,12) = -884251/70-2574*ep^-1-6560472397/1940400*ep+ 7266091044847/88905600*ep^2+528308573524834609/2464463232000*ep^3 +1708066767811743402677/6210447344640000*ep^4+ 3389574241448147107554121/15650327308492800000*ep^5+ 403574466125125041206760103/3585347710672896000000*ep^6+ 3911148235365140542031654152609/99385838539852677120000000*ep^7; Fill mncT10(12,5) = -1365806/15-39039*ep^-1+69028687333/237600*ep+ 755713624353229/940896000*ep^2+2042019620794498717/3725948160000* ep^3+2150053626542315381101/14754754713600000*ep^4- 260683022792907214637507/58428828665856000000*ep^5+ 1757100732564399424203780109/231378161516789760000000*ep^6- 8031668165873922375204426033443/916257519606487449600000000*ep^7; Fill mncT10(5,12) = -5111639/30-39039*ep^-1+64112870579/1663200*ep +144554437798241/119750400*ep^2+10188738935295353/3919104000*ep^3 +44116683291703651337/15519651840000*ep^4+10679561842231336603243/ 5587074662400000*ep^5+1701690888909468151875377/ 2011346878464000000*ep^6+180209122206482536967240803/ 724084876247040000000*ep^7; Fill mncT10(12,6) = -39843167/40-819819/2*ep^-1+468146786917/ 158400*ep+5474556063869881/627264000*ep^2+16372879379254258033/ 2483965440000*ep^3+20888285620641801029329/9836503142400000*ep^4+ 4618159798466219706892417/38952552443904000000*ep^5+ 11959041509833979115410638801/154252107677859840000000*ep^6- 51947290974908393854471795471007/610838346404324966400000000*ep^7 ; Fill mncT10(6,12) = -32892587/20-819819/2*ep^-1+152595699299/ 158400*ep+4891633697676763/399168000*ep^2+3310939559595464609/ 143700480000*ep^3+1155959270510862007987/51732172800000*ep^4+ 247329290660821381861001/18623582208000000*ep^5+ 34744970743061672998633963/6704489594880000000*ep^6+ 3183676351187753818273540529/2413616254156800000000*ep^7; Fill mncT10(12,7) = -83785429/10-3279276*ep^-1+112106104813/4950* ep+1426572180848449/19602000*ep^2+2385348078858731141/38811960000 *ep^3+1812053807085791172229/76847680800000*ep^4+ 467433161896372225512821/152158407984000000*ep^5+ 222578603282418091723787269/301273647808320000000*ep^6- 359590354902660735877683822379/596521822660473600000000*ep^7; Fill mncT10(7,12) = -123645431/10-3279276*ep^-1+209365756643/19800 *ep+118558815146869/1247400*ep^2+18166370000772047/112266000*ep^3 +1445724763787572717/10103940000*ep^4+10013222903711426921/ 129907800000*ep^5+318476387114305473211/11691702000000*ep^6+ 6427380399584187118601/1052253180000000*ep^7; Fill mncT10(12,8) = -858029666/15-21237216*ep^-1+28935190189931/ 207900*ep+14456858035993061/29403000*ep^2+188737547669334929443/ 407525580000*ep^3+167327394337561631112767/806900648400000*ep^4+ 9291846207744908246635969/228237611976000000*ep^5+ 23531635357774848640092554087/3163373301987360000000*ep^6- 2903450633391525183298649664431/894782733990710400000000*ep^7; Fill mncT10(8,12) = -1146639754/15-21237216*ep^-1+16837575236689/ 207900*ep+114256109711053/190512*ep^2+15642323083417740089/ 16503102000*ep^3+8110576022630136675643/10396954260000*ep^4+ 2544405141852191490853241/6550081183800000*ep^5+ 524267915226684364145585317/4126551145794000000*ep^6+ 66041241371277078829338082529/2599727221850220000000*ep^7; Fill mncT10(12,9) = -3293626869/10-116046216*ep^-1+154239838753809/ 215600*ep+464345313848659769/166012000*ep^2+ 2238532363776138156599/766975440000*ep^3+ 5303227968605204248578839/3543426532800000*ep^4+ 6288641486936847312149245859/16370630581536000000*ep^5+ 5442756533131692935573891204519/75632313286696320000000*ep^6- 4179053146816016834498853700204501/349421287384536998400000000* ep^7; Fill mncT10(9,12) = -4034154111/10-116046216*ep^-1+26409891814349/ 53900*ep+2324904523916669/724416*ep^2+72941479992913889867/ 15212736000*ep^3+47696073453580231057757/12778698240000*ep^4+ 18739784654281469045879387/10734106521600000*ep^5+ 4850040405134034518407955117/9016649478144000000*ep^6+ 733184651510037225458118049547/7573985561640960000000*ep^7; Fill mncT10(12,10) = -65818534041/40-551219526*ep^-1+ 1366354977572763/431200*ep+18309858137982935877/1328096000*ep^2+ 64682618155687770185503/4090535680000*ep^3+ 345288437272329273557070091/37796549683200000*ep^4+ 998519587879530580246827369967/349240119072768000000*ep^5+1953415\ 505585457041731662710433619/3226978700232376320000000*ep^6- 224002586655576818706203397258110777/ 29817283190147157196800000000*ep^7; Fill mncT10(10,12) = -74682589449/40-551219526*ep^-1+ 3216126403093501/1293600*ep+9778155229903504489/651974400*ep^2+ 35285286191256516292841/1642975488000*ep^3+ 66318933431821547534708293/4140298229760000*ep^4+ 74417132998260071428217689289/10433551538995200000*ep^5+ 55227720753226124066511764966797/26292549878267904000000*ep^6+ 22755575592382299006573600627465281/66257225693235118080000000* ep^7; Fill mncT10(12,11) = -87469583149/12-2327371332*ep^-1+ 14390585432877481/1164240*ep+9710408801113585178753/161363664000* ep^2+336825271499600192657540603/4473000766080000*ep^3+ 5994057050690368321658616747893/123991581235737600000*ep^4+ 60843047797157870947764149710272083/3437046631854646272000000* ep^5+410755590630383344193774704643635009973/ 95274932635010794659840000000*ep^6+895321239819358702985956561570\ 683563406563/2641021132642499227970764800000000*ep^7; Fill mncT10(11,12) = -464006896457/60-2327371332*ep^-1+ 63864685518047459/5821200*ep+36698977542324528679/586776960*ep^2+ 641586154053435623199619/7393389696000*ep^3+ 1167528252540584717341548887/18631342033920000*ep^4+ 1261480842288784814787263414851/46950981925478400000*ep^5+9054909\ 48096423000980181753077423/118316474452205568000000*ep^6+34280257\ 4215656298518825573347468779/298157515619558031360000000*ep^7; Fill mncT10(12,12) = -3203405061467/110-8886326904*ep^-1+ 32896741710145381/762300*ep+10000362392000955125279/42261912000* ep^2+375905461894778437366603709/1171500200640000*ep^3+ 7348377628631204561101745417099/32473985561740800000*ep^4+8491831\ 6265468987021850330170253629/900178879771454976000000*ep^5+ 654770540399856774783151514217752778779/ 24952958547264731934720000000*ep^6+254049524377143930545446180939\ 4125546168589/691696010930178369230438400000000*ep^7; Fill mncT20(-8,1) = -1/135-2873/170100*ep-1564921/53581500*ep^2- 379174921/8439086250*ep^3-86496026296/1329156084375*ep^4- 38151684976592/418684166578125*ep^5-16500099586101184/ 131885512472109375*ep^6-7053176967987498368/41543936428714453125* ep^7; Fill mncT20(-7,1) = -1/108-671/34020*ep-88393/2679075*ep^2- 42034061/843908625*ep^3-18962183872/265831216875*ep^4- 8306568395744/83736833315625*ep^5-3577389080927488/ 26377102494421875*ep^6-1525260495157726976/8308787285742890625* ep^7; Fill mncT20(-6,1) = -1/84-23/980*ep-5843/154350*ep^2-453806/ 8103375*ep^3-67430704/850854375*ep^4-9775819136/89339709375*ep^5- 1397284407424/9380669484375*ep^6-198057234223616/984970295859375* ep^7; Fill mncT20(-5,1) = -1/63-379/13230*ep-30823/694575*ep^2-4683932/ 72930375*ep^3-687208288/7657689375*ep^4-98880776192/804057384375* ep^5-14069474000128/84426025359375*ep^6-1988829224010752/ 8864732662734375*ep^7; Fill mncT20(-4,1) = -1/45-49/1350*ep-544/10125*ep^2-11528/151875* ep^3-238336/2278125*ep^4-4860032/34171875*ep^5-98320384/512578125 *ep^6-1979844608/7688671875*ep^7; Fill mncT20(-3,1) = -1/30-11/225*ep-232/3375*ep^2-4784/50625*ep^3- 97408/759375*ep^4-1968896/11390625*ep^5-39626752/170859375*ep^6- 795521024/2562890625*ep^7; Fill mncT20(-2,1) = -1/18-2/27*ep-8/81*ep^2-32/243*ep^3-128/729* ep^4-512/2187*ep^5-2048/6561*ep^6-8192/19683*ep^7; Fill mncT20(-1,1) = -1/9-4/27*ep-16/81*ep^2-64/243*ep^3-256/729* ep^4-1024/2187*ep^5-4096/6561*ep^6-16384/19683*ep^7; Fill mncT20(0,1) = -1/3-2/3*ep-4/3*ep^2-8/3*ep^3-16/3*ep^4-32/3* ep^5-64/3*ep^6-128/3*ep^7; Fill mncT20(1,1) = 1/3*ep^-1; Fill mncT20(-8,2) = -1949/1890-2/3*ep^-1-477089/297675*ep- 434862881/187535250*ep^2-95754598256/29536801875*ep^3- 41358690009262/9304092590625*ep^4-17662805568809024/ 2930789166046875*ep^5-7492801511676874048/923198587304765625*ep^6 -3165875548287312260096/290807555001001171875*ep^7; Fill mncT20(-7,2) = -367/420-2/3*ep^-1-58343/44100*ep-2172028/ 1157625*ep^2-315191477/121550625*ep^3-45070979068/12762815625* ep^4-6389915791712/1340095640625*ep^5-901346518503808/ 140710042265625*ep^6-126758616134319872/14774554437890625*ep^7; Fill mncT20(-6,2) = -73/105-2/3*ep^-1-11492/11025*ep-1677703/ 1157625*ep^2-240693302/121550625*ep^3-34187537368/12762815625* ep^4-4827576638912/1340095640625*ep^5-679339017668608/ 140710042265625*ep^6-95400076084163072/14774554437890625*ep^7; Fill mncT20(-5,2) = -22/45-2/3*ep^-1-1033/1350*ep-10573/10125*ep^2 -214376/151875*ep^3-4322512/2278125*ep^4-86870144/34171875*ep^5- 1742441728/512578125*ep^6-34909300736/7688671875*ep^7; Fill mncT20(-4,2) = -11/45-2/3*ep^-1-337/675*ep-6794/10125*ep^2- 136528/151875*ep^3-2738336/2278125*ep^4-54860032/34171875*ep^5- 1098320384/512578125*ep^6-21979844608/7688671875*ep^7; Fill mncT20(-3,2) = 1/18-2/3*ep^-1-7/27*ep-28/81*ep^2-112/243*ep^3 -448/729*ep^4-1792/2187*ep^5-7168/6561*ep^6-28672/19683*ep^7; Fill mncT20(-2,2) = 4/9-2/3*ep^-1-2/27*ep-8/81*ep^2-32/243*ep^3- 128/729*ep^4-512/2187*ep^5-2048/6561*ep^6-8192/19683*ep^7; Fill mncT20(-1,2) = 1-2/3*ep^-1; Fill mncT20(0,2) = 2-2/3*ep^-1; Fill mncT20(2,1) = 2-1/3*ep^-1-4*ep+8*ep^2-16*ep^3+32*ep^4-64*ep^5 +128*ep^6-256*ep^7; Fill mncT20(1,2) = 4-ep^-1; Fill mncT20(2,2) = 4-4/3*ep^-1+8*ep-16*ep^2+32*ep^3-64*ep^4+128* ep^5-256*ep^6+512*ep^7; Fill mncT20(-8,3) = 229/35-24*ep^-1-185317/4900*ep-782951/171500* ep^2-240188096/4501875*ep^3-11794985689/472696875*ep^4- 3986727160376/49633171875*ep^5-316557832534084/5211483046875*ep^6 -69990596930050556/547205719921875*ep^7; Fill mncT20(-7,3) = 173/15-56/3*ep^-1-94051/3150*ep+2141941/330750 *ep^2-663962228/17364375*ep^3-8168870902/1823259375*ep^4- 10102809343268/191442234375*ep^5-478444686397012/20101434609375* ep^6-165657334480786508/2110650633984375*ep^7; Fill mncT20(-6,3) = 72/5-14*ep^-1-3697/150*ep+30361/2250*ep^2- 484709/16875*ep^3+2108492/253125*ep^4-135135596/3796875*ep^5- 46314652/56953125*ep^6-40810463324/854296875*ep^7; Fill mncT20(-5,3) = 46/3-10*ep^-1-1937/90*ep+11788/675*ep^2-236794/ 10125*ep^3+2350972/151875*ep^4-59300836/2278125*ep^5+408577468/ 34171875*ep^6-15749882884/512578125*ep^7; Fill mncT20(-4,3) = 131/9-20/3*ep^-1-1067/54*ep+1565/81*ep^2-5080/ 243*ep^3+13700/729*ep^4-47260/2187*ep^5+117140/6561*ep^6-449980/ 19683*ep^7; Fill mncT20(-3,3) = 37/3-4*ep^-1-167/9*ep+538/27*ep^2-1628/81*ep^3 +4828/243*ep^4-14708/729*ep^5+43228/2187*ep^6-133268/6561*ep^7; Fill mncT20(-2,3) = 9-2*ep^-1-17*ep+20*ep^2-20*ep^3+20*ep^4-20* ep^5+20*ep^6-20*ep^7; Fill mncT20(-1,3) = 5-2/3*ep^-1-14*ep+20*ep^2-20*ep^3+20*ep^4-20* ep^5+20*ep^6-20*ep^7; Fill mncT20(0,3) = 1-8*ep+20*ep^2-20*ep^3+20*ep^4-20*ep^5+20*ep^6- 20*ep^7; Fill mncT20(3,1) = -2/3+14/3*ep-38/3*ep^2+86/3*ep^3-182/3*ep^4+374/ 3*ep^5-758/3*ep^6+1526/3*ep^7; Fill mncT20(1,3) = -2+4*ep+20*ep^2-20*ep^3+20*ep^4-20*ep^5+20*ep^6 -20*ep^7; Fill mncT20(3,2) = 2-4/3*ep^-1+18*ep-26*ep^2+42*ep^3-74*ep^4+138* ep^5-266*ep^6+522*ep^7; Fill mncT20(2,3) = -2-4/3*ep^-1+24*ep+28*ep^2-36*ep^3+52*ep^4-84* ep^5+148*ep^6-276*ep^7; Fill mncT20(3,3) = -2-4*ep^-1+66*ep+30*ep^2-30*ep^3+30*ep^4-30* ep^5+30*ep^6-30*ep^7; Fill mncT20(-8,4) = 5716/15-224*ep^-1-113439/175*ep+11435849/18375 *ep^2-3261467743/3858750*ep^3+521028884801/810337500*ep^4- 163641166744057/170170875000*ep^5+20016396870514049/ 35735883750000*ep^6-8315462621722780393/7504535587500000*ep^7; Fill mncT20(-7,4) = 4291/15-392/3*ep^-1-214141/450*ep+3579283/6750 *ep^2-64908979/101250*ep^3+1788800129/3037500*ep^4-64400656279/ 91125000*ep^5+1568034639929/2733750000*ep^6-62594349501079/ 82012500000*ep^7; Fill mncT20(-6,4) = 587/3-70*ep^-1-5104/15*ep+95062/225*ep^2- 3304937/6750*ep^3+100310887/202500*ep^4-3255229337/6075000*ep^5+ 92204855287/182250000*ep^6-3050038863737/5467500000*ep^7; Fill mncT20(-5,4) = 1075/9-100/3*ep^-1-12457/54*ep+25549/81*ep^2- 179305/486*ep^3+1142575/2916*ep^4-7163485/17496*ep^5+43042615/ 104976*ep^6-265340005/629856*ep^7; Fill mncT20(-4,4) = 562/9-40/3*ep^-1-3842/27*ep+17653/81*ep^2- 130045/486*ep^3+856255/2916*ep^4-5371645/17496*ep^5+32882935/ 104976*ep^6-199651045/629856*ep^7; Fill mncT20(-3,4) = 77/3-4*ep^-1-223/3*ep+403/3*ep^2-1085/6*ep^3+ 2485/12*ep^4-5285/24*ep^5+10885/48*ep^6-22085/96*ep^7; Fill mncT20(-2,4) = 20/3-2/3*ep^-1-28*ep+67*ep^2-215/2*ep^3+535/4* ep^4-1175/8*ep^5+2455/16*ep^6-5015/32*ep^7; Fill mncT20(-1,4) = 1/3-4*ep+19*ep^2-95/2*ep^3+295/4*ep^4-695/8* ep^5+1495/16*ep^6-3095/32*ep^7; Fill mncT20(0,4) = 2/3*ep-11/3*ep^2-5/6*ep^3+325/12*ep^4-965/24* ep^5+2245/48*ep^6-4805/96*ep^7; Fill mncT20(4,1) = -2/9+22/27*ep+118/81*ep^2-2018/243*ep^3+17158/ 729*ep^4-120338/2187*ep^5+778678/6561*ep^6-4850978/19683*ep^7; Fill mncT20(1,4) = -2/3-2*ep+11*ep^2+65/2*ep^3-25/4*ep^4-55/8*ep^5 +215/16*ep^6-535/32*ep^7; Fill mncT20(4,2) = 8/9-4/3*ep^-1+560/27*ep-1120/81*ep^2+2240/243* ep^3-4480/729*ep^4+8960/2187*ep^5-17920/6561*ep^6+35840/19683* ep^7; Fill mncT20(2,4) = -16/3-4/3*ep^-1+18*ep+87*ep^2+105/2*ep^3-105/4* ep^4+105/8*ep^5-105/16*ep^6+105/32*ep^7; Fill mncT20(4,3) = -10/3-8*ep^-1+1178/9*ep+1370/27*ep^2-3550/81* ep^3+9530/243*ep^4-26350/729*ep^5+74570/2187*ep^6-214750/6561* ep^7; Fill mncT20(3,4) = -50/3-8*ep^-1+124*ep+269*ep^2+125/2*ep^3-145/4* ep^4+185/8*ep^5-265/16*ep^6+425/32*ep^7; Fill mncT20(4,4) = -364/9-80/3*ep^-1+11414/27*ep+52583/81*ep^2+ 29995/486*ep^3-94465/2916*ep^4+301315/17496*ep^5-975625/104976* ep^6+3213595/629856*ep^7; Fill mncT20(-8,5) = 36526/15-784*ep^-1-2130061/450*ep+88667761/ 13500*ep^2-1646252993/202500*ep^3+26584847209/3037500*ep^4- 869285463859/91125000*ep^5+25668091445509/2733750000*ep^6- 825870943979659/82012500000*ep^7; Fill mncT20(-7,5) = 7427/6-980/3*ep^-1-474989/180*ep+3598429/900* ep^2-206164481/40500*ep^3+773473009/135000*ep^4-225354864431/ 36450000*ep^5+2304258756427/364500000*ep^6-214491664771631/ 32805000000*ep^7; Fill mncT20(-6,5) = 3275/6-350/3*ep^-1-47683/36*ep+79933/36*ep^2- 968071/324*ep^3+757925/216*ep^4-44696575/11664*ep^5+93315775/ 23328*ep^6-1724104375/419904*ep^7; Fill mncT20(-5,5) = 1775/9-100/3*ep^-1-30707/54*ep+175897/162*ep^2 -773903/486*ep^3+5761805/2916*ep^4-38852975/17496*ep^5+247843085/ 104976*ep^6-1535423015/629856*ep^7; Fill mncT20(-4,5) = 157/3-20/3*ep^-1-3427/18*ep+23569/54*ep^2- 59156/81*ep^3+479815/486*ep^4-3400565/2916*ep^5+22288735/17496* ep^6-140029085/104976*ep^7; Fill mncT20(-3,5) = 47/6-2/3*ep^-1-727/18*ep+6667/54*ep^2-83453/ 324*ep^3+788095/1944*ep^4-6126365/11664*ep^5+42232855/69984*ep^6- 272383685/419904*ep^7; Fill mncT20(-2,5) = 1/6-43/18*ep+781/54*ep^2-16061/324*ep^3+214615/ 1944*ep^4-2073125/11664*ep^5+16076335/69984*ep^6-109933325/419904 *ep^7; Fill mncT20(-1,5) = 1/9*ep-28/27*ep^2+217/81*ep^3+1105/486*ep^4- 69035/2916*ep^5+921745/17496*ep^6-7693715/104976*ep^7; Fill mncT20(0,5) = 1/9*ep-1/27*ep^2-457/162*ep^3+995/972*ep^4+ 98855/5832*ep^5-266965/34992*ep^6-657985/209952*ep^7; Fill mncT20(5,1) = -1/9+13/54*ep+461/324*ep^2-6623/1944*ep^3+60269/ 11664*ep^4-459047/69984*ep^5+3189941/419904*ep^6-21020063/2519424 *ep^7; Fill mncT20(1,5) = -1/3-17/9*ep+133/54*ep^2+9697/324*ep^3+90685/ 1944*ep^4+48265/11664*ep^5-785435/69984*ep^6+3637585/419904*ep^7; Fill mncT20(5,2) = 1/9-4/3*ep^-1+1175/54*ep-785/324*ep^2-11845/ 1944*ep^3+111775/11664*ep^4-756925/69984*ep^5+4657015/419904*ep^6 -27715045/2519424*ep^7; Fill mncT20(2,5) = -23/3-4/3*ep^-1+73/9*ep+6289/54*ep^2+68989/324* ep^3+192745/1944*ep^4-257915/11664*ep^5+133105/69984*ep^6+881965/ 419904*ep^7; Fill mncT20(5,3) = -62/9-40/3*ep^-1+5893/27*ep+17225/162*ep^2- 73355/972*ep^3+345665/5832*ep^4-1772675/34992*ep^5+9660425/209952 *ep^6-54748955/1259712*ep^7; Fill mncT20(3,5) = -134/3-40/3*ep^-1+1522/9*ep+19061/27*ep^2+ 115049/162*ep^3+134645/972*ep^4-243775/5832*ep^5+411005/34992* ep^6-592375/209952*ep^7; Fill mncT20(5,4) = -790/9-200/3*ep^-1+28721/27*ep+227557/162*ep^2+ 46625/972*ep^3-32195/5832*ep^4-567415/34992*ep^5+5757925/209952* ep^6-41894575/1259712*ep^7; Fill mncT20(4,5) = -1490/9-200/3*ep^-1+25756/27*ep+213712/81*ep^2+ 439192/243*ep^3+121240/729*ep^4-122360/2187*ep^5+124600/6561*ep^6 -129080/19683*ep^7; Fill mncT20(5,5) = -485-700/3*ep^-1+62669/18*ep+836537/108*ep^2+ 2614229/648*ep^3+872705/3888*ep^4-2444035/23328*ep^5+8850185/ 139968*ep^6-40784155/839808*ep^7; Fill mncT20(-8,6) = 27181/5-1176*ep^-1-338907/25*ep+71087023/3000* ep^2-6018773921/180000*ep^3+441448289167/10800000*ep^4- 29830633100609/648000000*ep^5+1903917823280143/38880000000*ep^6- 118764684614193761/2332800000000*ep^7; Fill mncT20(-7,6) = 10955/6-980/3*ep^-1-937787/180*ep+3648103/360* ep^2-199642021/12960*ep^3+343349231/17280*ep^4-8616398945/373248* ep^5+37494368065/1492992*ep^6-1414906025225/53747712*ep^7; Fill mncT20(-6,6) = 485-70*ep^-1-49229/30*ep+439127/120*ep^2- 26640239/4320*ep^3+49332629/5760*ep^4-1299375595/124416*ep^5+ 5830037675/497664*ep^6-223799592835/17915904*ep^7; Fill mncT20(-5,6) = 90-10*ep^-1-5711/15*ep+368137/360*ep^2-8629087/ 4320*ep^3+160556317/51840*ep^4-507053099/124416*ep^5+7166785409/ 1492992*ep^6-94427670659/17915904*ep^7; Fill mncT20(-4,6) = 131/15-2/3*ep^-1-925/18*ep+39547/216*ep^2- 1169689/2592*ep^3+130416407/155520*ep^4-469580545/373248*ep^5+ 7244152195/4478976*ep^6-100744971145/53747712*ep^7; Fill mncT20(-3,6) = 1/10-8/5*ep+1339/120*ep^2-65581/1440*ep^3+ 2144431/17280*ep^4-10217753/41472*ep^5+190913387/497664*ep^6- 2995340033/5971968*ep^7; Fill mncT20(-2,6) = 1/30*ep-139/360*ep^2+6721/4320*ep^3-84259/ 51840*ep^4-902827/124416*ep^5+48531073/1492992*ep^6-1233076867/ 17915904*ep^7; Fill mncT20(-1,6) = 1/90*ep-49/1080*ep^2-2909/12960*ep^3+176471/ 155520*ep^4+77183/373248*ep^5-28845437/4478976*ep^6+486526583/ 53747712*ep^7; Fill mncT20(0,6) = 1/30*ep+29/360*ep^2-3599/4320*ep^3-106051/51840 *ep^4+600341/124416*ep^5+18475009/1492992*ep^6-13077379/17915904* ep^7; Fill mncT20(6,1) = -1/15+37/450*ep+13681/13500*ep^2-531047/405000* ep^3+10925689/12150000*ep^4-58905143/364500000*ep^5-6831185159/ 10935000000*ep^6+433494925033/328050000000*ep^7; Fill mncT20(1,6) = -1/5-3/2*ep-17/24*ep^2+5783/288*ep^3+1068911/ 17280*ep^4+2624615/41472*ep^5+5278315/497664*ep^6-53746945/ 5971968*ep^7; Fill mncT20(6,2) = -22/45-4/3*ep^-1+14917/675*ep+145621/20250*ep^2 -7176827/607500*ep^3+178762549/18225000*ep^4-3758759963/546750000 *ep^5+73789260181/16402500000*ep^6-1405333231547/492075000000* ep^7; Fill mncT20(2,6) = -142/15-4/3*ep^-1-233/90*ep+135527/1080*ep^2+ 4831027/12960*ep^3+64777463/155520*ep^4+59776703/373248*ep^5- 62823677/4478976*ep^6-248161417/53747712*ep^7; Fill mncT20(6,3) = -40/3-20*ep^-1+14728/45*ep+140792/675*ep^2- 1143752/10125*ep^3+11067512/151875*ep^4-126680072/2278125*ep^5+ 1636205432/34171875*ep^6-22679107592/512578125*ep^7; Fill mncT20(3,6) = -88-20*ep^-1+5417/30*ep+474037/360*ep^2+9565217/ 4320*ep^3+75824797/51840*ep^4+33326293/124416*ep^5-71278207/ 1492992*ep^6+99031933/17915904*ep^7; Fill mncT20(6,4) = -530/3-140*ep^-1+33557/15*ep+423607/150*ep^2+ 76397/1500*ep^3+536287/15000*ep^4-11154523/150000*ep^5+137664967/ 1500000*ep^6-1495894243/15000000*ep^7; Fill mncT20(4,6) = -466-140*ep^-1+50969/30*ep+2595829/360*ep^2+ 37296929/4320*ep^3+203776669/51840*ep^4+45626581/124416*ep^5- 120479359/1492992*ep^6+295836541/17915904*ep^7; Fill mncT20(6,5) = -1225-1960/3*ep^-1+893521/90*ep+52848593/2700* ep^2+682276609/81000*ep^3+991720817/2430000*ep^4-19991371679/ 72900000*ep^5+496481288273/2187000000*ep^6-13783187881151/ 65610000000*ep^7; Fill mncT20(5,6) = -1813-1960/3*ep^-1+394943/45*ep+30703469/1080* ep^2+347378191/12960*ep^3+1441025999/155520*ep^4+151385327/373248 *ep^5-301490717/4478976*ep^6-776734153/53747712*ep^7; Fill mncT20(6,6) = -5782-2352*ep^-1+1655967/50*ep+91233989/1000* ep^2+1443847463/20000*ep^3+8173903421/400000*ep^4+1458637007/ 8000000*ep^5+31015982069/160000000*ep^6-922353247177/3200000000* ep^7; Fill mncT20(-8,7) = 74942/15-784*ep^-1-2418683/150*ep+158420983/ 4500*ep^2-1999374637/33750*ep^3+336670549663/4050000*ep^4- 25011515511581/243000000*ep^5+1708061937698347/14580000000*ep^6- 110562545671520789/874800000000*ep^7; Fill mncT20(-7,7) = 5089/5-392/3*ep^-1-1745489/450*ep+43773733/ 4500*ep^2-14821506913/810000*ep^3+453349864277/16200000*ep^4- 107566769892097/2916000000*ep^5+94692144835519/2160000000*ep^6- 510420606497702593/10497600000000*ep^7; Fill mncT20(-6,7) = 2092/15-14*ep^-1-16473/25*ep+17887891/9000* ep^2-2354883317/540000*ep^3+244404539179/32400000*ep^4- 21223511520773/1944000000*ep^5+1617852734008651/116640000000*ep^6 -112592639608494437/6998400000000*ep^7; Fill mncT20(-5,7) = 142/15-2/3*ep^-1-13787/225*ep+6570173/27000* ep^2-1093489951/1620000*ep^3+137668367537/97200000*ep^4- 13917130212319/5832000000*ep^5+1187850920775953/349920000000*ep^6 -89451763606733311/20995200000000*ep^7; Fill mncT20(-4,7) = 1/15-173/150*ep+39883/4500*ep^2-10971971/ 270000*ep^3+2049129277/16200000*ep^4-281553155699/972000000*ep^5+ 30278294934013/58320000000*ep^6-2690215973192531/3499200000000* ep^7; Fill mncT20(-3,7) = 1/75*ep-22/125*ep^2+19867/22500*ep^3-2410529/ 1350000*ep^4-106376777/81000000*ep^5+82872618199/4860000000*ep^6- 14816793371513/291600000000*ep^7; Fill mncT20(-2,7) = 1/450*ep-377/27000*ep^2-35201/1620000*ep^3+ 30326287/97200000*ep^4-3031593569/5832000000*ep^5-363862505297/ 349920000000*ep^6+97329742485439/20995200000000*ep^7; Fill mncT20(-1,7) = 1/450*ep-77/27000*ep^2-108701/1620000*ep^3+ 8508787/97200000*ep^4+3586068931/5832000000*ep^5-291503442797/ 349920000000*ep^6-37883243452061/20995200000000*ep^7; Fill mncT20(0,7) = 1/75*ep+43/750*ep^2-11891/45000*ep^3-3854183/ 2700000*ep^4+28768321/162000000*ep^5+78897658273/9720000000*ep^6+ 6022589428849/583200000000*ep^7; Fill mncT20(7,1) = -2/45+17/675*ep+14621/20250*ep^2-266827/607500* ep^3-2337451/18225000*ep^4+292240037/546750000*ep^5-11520739819/ 16402500000*ep^6+343766768453/492075000000*ep^7; Fill mncT20(1,7) = -2/15-89/75*ep-8617/4500*ep^2+3351779/270000* ep^3+970238027/16200000*ep^4+101308463051/972000000*ep^5+ 4576619152763/58320000000*ep^6+52253788526219/3499200000000*ep^7; Fill mncT20(7,2) = -44/45-4/3*ep^-1+14924/675*ep+154756/10125*ep^2 -1870036/151875*ep^3+13127716/2278125*ep^4-60303796/34171875*ep^5 -10489724/512578125*ep^6+4724500844/7688671875*ep^7; Fill mncT20(2,7) = -164/15-4/3*ep^-1-5959/450*ep+3266573/27000* ep^2+827279549/1620000*ep^3+82540045037/97200000*ep^4+ 3971016625181/5832000000*ep^5+78592274213453/349920000000*ep^6- 77901308295811/20995200000000*ep^7; Fill mncT20(7,3) = -116/5-28*ep^-1+34276/75*ep+412444/1125*ep^2- 2379164/16875*ep^3+17847484/253125*ep^4-185697404/3796875*ep^5+ 2418496924/56953125*ep^6-34701294044/854296875*ep^7; Fill mncT20(3,7) = -2224/15-28*ep^-1+20927/150*ep+18515191/9000* ep^2+2581018183/540000*ep^3+162439806679/32400000*ep^4+ 4861399866727/1944000000*ep^5+50016011196151/116640000000*ep^6- 308504566306937/6998400000000*ep^7; Fill mncT20(7,4) = -1666/5-784/3*ep^-1+938503/225*ep+35955539/6750 *ep^2+35076907/202500*ep^3+360336491/6075000*ep^4-26477428517/ 182250000*ep^5+973075001579/5467500000*ep^6-31298537909573/ 164025000000*ep^7; Fill mncT20(4,7) = -15974/15-784/3*ep^-1+563653/225*ep+212948149/ 13500*ep^2+21367432837/810000*ep^3+981651206581/48600000*ep^4+ 20536825751653/2916000000*ep^5+115655271520789/174960000000*ep^6- 1020974470358843/10497600000000*ep^7; Fill mncT20(7,5) = -13916/5-1568*ep^-1+1802036/75*ep+50033084/1125 *ep^2+287204996/16875*ep^3+221622524/253125*ep^4-2634047644/ 3796875*ep^5+35994598364/56953125*ep^6-521950402684/854296875* ep^7; Fill mncT20(5,7) = -80164/15-1568*ep^-1+1368386/75*ep+20352181/250 *ep^2+542082151/5000*ep^3+6553417021/100000*ep^4+34239683791/ 2000000*ep^5+37280105461/40000000*ep^6-154778624969/800000000* ep^7; Fill mncT20(7,6) = -80066/5-7056*ep^-1+5093047/50*ep+760464367/ 3000*ep^2+31791539167/180000*ep^3+469636512367/10800000*ep^4- 549658402433/648000000*ep^5+48886643642767/38880000000*ep^6- 3179006717192033/2332800000000*ep^7; Fill mncT20(6,7) = -105938/5-7056*ep^-1+13461241/150*ep+196444423/ 600*ep^2+22085957393/60000*ep^3+222489175979/1200000*ep^4+ 911520869801/24000000*ep^5+150398272087/96000000*ep^6- 6452857305727/9600000000*ep^7; Fill mncT20(7,7) = -1064182/15-25872*ep^-1+17267879/50*ep+ 9947129741/9000*ep^2+589989515933/540000*ep^3+15486776900429/ 32400000*ep^4+153970495460477/1944000000*ep^5+474888537289901/ 116640000000*ep^6-21336590857713187/6998400000000*ep^7; Fill mncT20(-8,8) = 9564/5-224*ep^-1-1400831/175*ep+173518514/7875 *ep^2-1784563114/39375*ep^3+1066173134083/14175000*ep^4- 30156403399457/283500000*ep^5+6826149879858577/51030000000*ep^6- 22563472992171419/145800000000*ep^7; Fill mncT20(-7,8) = 1007/5-56/3*ep^-1-3266519/3150*ep+11981517/ 3500*ep^2-46664880733/5670000*ep^3+1763955736057/113400000*ep^4- 498408722528677/20412000000*ep^5+13577619635667833/408240000000* ep^6-428020110453704659/10497600000000*ep^7; Fill mncT20(-6,8) = 353/35-2/3*ep^-1-31619/450*ep+303089/1000*ep^2 -1489855661/1620000*ep^3+68644660769/32400000*ep^4-22832247383309/ 5832000000*ep^5+4954100517779527/816480000000*ep^6- 172142760599024621/20995200000000*ep^7; Fill mncT20(-5,8) = 1/21-551/630*ep+136597/18900*ep^2-40929769/ 1134000*ep^3+8420292103/68040000*ep^4-1284520788361/4082400000* ep^5+153717823147207/244944000000*ep^6-2160152106667087/ 2099520000000*ep^7; Fill mncT20(-4,8) = 2/315*ep-62/675*ep^2+75109/141750*ep^3- 12130183/8505000*ep^4+49117903/72900000*ep^5+258432089273/ 30618000000*ep^6-9112591452593/262440000000*ep^7; Fill mncT20(-3,8) = 1/1575*ep-118/23625*ep^2+841/1417500*ep^3+ 8151533/85050000*ep^4-1499687771/5103000000*ep^5+2099443877/ 306180000000*ep^6+4382757473443/2624400000000*ep^7; Fill mncT20(-2,8) = 1/3150*ep-23/21000*ep^2-93791/11340000*ep^3+ 7404539/226800000*ep^4+1951554721/40824000000*ep^5-236905209509/ 816480000000*ep^6+2444882017207/20995200000000*ep^7; Fill mncT20(-1,8) = 1/1575*ep+19/47250*ep^2-57553/2835000*ep^3- 2102489/170100000*ep^4+2150196743/10206000000*ep^5+72191435959/ 612360000000*ep^6-4489653883519/5248800000000*ep^7; Fill mncT20(0,8) = 2/315*ep+172/4725*ep^2-23929/283500*ep^3- 14469227/17010000*ep^4-956061151/1020600000*ep^5+229563756937/ 61236000000*ep^6+5525867859983/524880000000*ep^7; Fill mncT20(8,1) = -2/63+11/6615*ep+735761/1389150*ep^2-15307249/ 291721500*ep^3-20069423959/61261515000*ep^4+5172990804431/ 12864918150000*ep^5-840621012519079/2701632811500000*ep^6+ 105836185357024511/567342890415000000*ep^7; Fill mncT20(1,8) = -2/21-43/45*ep-6341/2700*ep^2+1156907/162000* ep^3+510974491/9720000*ep^4+72810365483/583200000*ep^5+ 36530740505053/244944000000*ep^6+185719343236427/2099520000000* ep^7; Fill mncT20(8,2) = -146/105-4/3*ep^-1+241897/11025*ep+51352127/ 2315250*ep^2-4773167543/486202500*ep^3+121383985487/102102525000* ep^4+32097376872217/21441530250000*ep^5-7442321128844353/ 4502721352500000*ep^6+1108843776498628777/945571484025000000*ep^7 ; Fill mncT20(2,8) = -426/35-4/3*ep^-1-74243/3150*ep+2252989/21000* ep^2+7047906613/11340000*ep^3+303789722423/226800000*ep^4+ 62608258173397/40824000000*ep^5+781673103203287/816480000000*ep^6 +5821180512188899/20995200000000*ep^7; Fill mncT20(8,3) = -554/15-112/3*ep^-1+955123/1575*ep+194381393/ 330750*ep^2-9944115137/69457500*ep^3+720242324633/14586075000* ep^4-106786845347297/3063075750000*ep^5+22761682272376073/ 643245907500000*ep^6-5047942622865918257/135081640575000000*ep^7; Fill mncT20(3,8) = -1134/5-112/3*ep^-1+45233/1575*ep+4307843/1500* ep^2+48365901917/5670000*ep^3+1347457264207/113400000*ep^4+ 26378646127739/2916000000*ep^5+1490960577995183/408240000000*ep^6 +6173995170491291/10497600000000*ep^7; Fill mncT20(8,4) = -8888/15-448*ep^-1+1247644/175*ep+58053334/6125 *ep^2+135651199/214375*ep^3+298200803/15006250*ep^4-231974825609/ 1050437500*ep^5+20969277226427/73530625000*ep^6-1579618136168081/ 5147143750000*ep^7; Fill mncT20(4,8) = -31864/15-448*ep^-1+4807756/1575*ep+704184707/ 23625*ep^2+90017249191/1417500*ep^3+5633202721583/85050000*ep^4+ 190987510132879/5103000000*ep^5+3284586747827327/306180000000* ep^6+2629398027391993/2624400000000*ep^7; Fill mncT20(8,5) = -17476/3-3360*ep^-1+5423872/105*ep+1026210586/ 11025*ep^2+39090448813/1157625*ep^3+462912373583/243101250*ep^4- 78990538402847/51051262500*ep^5+15453545477886023/10720765125000* ep^6-3176159417389847807/2251360676250000*ep^7; Fill mncT20(5,8) = -40180/3-3360*ep^-1+2038402/63*ep+1858182677/ 9450*ep^2+189734040541/567000*ep^3+9555153067133/34020000*ep^4+ 255951484910029/2041200000*ep^5+3322989357625277/122472000000* ep^6+1513183193016043/1049760000000*ep^7; Fill mncT20(8,6) = -119554/3-18480*ep^-1+56805143/210*ep+ 11147568661/17640*ep^2+597336826967/1481760*ep^3+11261910805309/ 124467840*ep^4-7996110736781/2091059712*ep^5+755571661648913/ 175649015808*ep^6-65356919032209509/14754517327872*ep^7; Fill mncT20(6,8) = -194530/3-18480*ep^-1+26018777/126*ep+ 36860355869/37800*ep^2+3184378641517/2268000*ep^3+135220583203421/ 136080000*ep^4+2985861528034573/8164800000*ep^5+30884531673810749/ 489888000000*ep^6+5643207878298091/4199040000000*ep^7; Fill mncT20(8,7) = -3134692/15-81312*ep^-1+586429352/525*ep+ 180345975898/55125*ep^2+16981787031817/5788125*ep^3+ 1400937773650811/1215506250*ep^4+40384500100087813/255256312500* ep^5+705010910204914979/53603825625000*ep^6-135487391382322757243/ 11256803381250000*ep^7; Fill mncT20(7,8) = -3889732/15-81312*ep^-1+1550451076/1575*ep+ 93444165512/23625*ep^2+1773570582514/354375*ep^3+16430603243333/ 5315625*ep^4+154326257660627/159468750*ep^5+673691618883113/ 4784062500*ep^6-52702879147579/20503125000*ep^7; Fill mncT20(8,8) = -94105352/105-302016*ep^-1+42304774636/11025*ep +15966836211554/1157625*ep^2+1917150465063091/121550625*ep^3+ 222944364852849553/25525631250*ep^4+12784984115109386899/ 5360382562500*ep^5+351357322799970809617/1125680338125000*ep^6- 5665483289043503675789/236392871006250000*ep^7; Fill mncT20(-8,9) = 9673/35-24*ep^-1-7476443/4900*ep+5575808221/ 1029000*ep^2-1516333230941/108045000*ep^3+1295285290998169/ 45378900000*ep^4-915214176070881821/19059138000000*ep^5+ 557145711706357113589/8004837960000000*ep^6- 302333970840711479307101/3362031943200000000*ep^7; Fill mncT20(-7,9) = 1487/140-2/3*ep^-1-6925199/88200*ep+248202379/ 686000*ep^2-9172772961997/7779240000*ep^3+3188015654195791/ 1089093600000*ep^4-8002369489214719957/1372257936000000*ep^5+ 1866292950562567080671/192116111040000000*ep^6- 3392645148600022286719717/242066299910400000000*ep^7; Fill mncT20(-6,9) = 1/28-1349/1960*ep+2479361/411600*ep^2- 1852848323/57624000*ep^3+8626260284921/72606240000*ep^4- 3329436346797163/10164873600000*ep^5+9100192115087108201/ 12807740736000000*ep^6-28013775489646681963/22136835840000000* ep^7; Fill mncT20(-5,9) = 1/294*ep-3257/61740*ep^2+4361053/12965400*ep^3 -5867075167/5445468000*ep^4+2880118282903/2287096560000*ep^5+ 3711824900564273/960580555200000*ep^6-9340026839967092057/ 403443833184000000*ep^7; Fill mncT20(-4,9) = 1/4410*ep-1913/926100*ep^2+493441/194481000* ep^3+2703618881/81682020000*ep^4-5052527519129/34306448400000* ep^5+2149946700964961/14408708328000000*ep^6+3273538894800540151/ 6051657497760000000*ep^7; Fill mncT20(-3,9) = 1/14700*ep-263/771750*ep^2-879791/648270000* ep^3+2609273819/272273400000*ep^4-219838700171/114354828000000* ep^5-3502049481901261/48029027760000000*ep^6+2593627032642346549/ 20172191659200000000*ep^7; Fill mncT20(-2,9) = 1/14700*ep-317/3087000*ep^2-2824597/1296540000 *ep^3+1840664773/544546800000*ep^4+5160486513443/228709656000000* ep^5-3560122043238587/96058055520000000*ep^6-3592319147675474317/ 40344383318400000000*ep^7; Fill mncT20(-1,9) = 1/4410*ep+439/926100*ep^2-2704141/388962000* ep^3-2439933731/163364040000*ep^4+4525924032779/68612896800000* ep^5+4334721351052189/28817416656000000*ep^6-2595742332647374501/ 12103314995520000000*ep^7; Fill mncT20(0,9) = 1/294*ep+1447/61740*ep^2-566677/25930800*ep^3- 5484186467/10890936000*ep^4-4758952611397/4574193120000*ep^5+ 2540285288472973/1921161110400000*ep^6+6343021820786569643/ 806887666368000000*ep^7; Fill mncT20(9,1) = -1/42-17/1960*ep+988423/2469600*ep^2+130080361/ 1037232000*ep^3-132124778273/435637440000*ep^4+39081330520489/ 182967724800000*ep^5-6586788769157777/76846444416000000*ep^6+ 185980547880647161/32275506654720000000*ep^7; Fill mncT20(1,9) = -1/14-769/980*ep-1010321/411600*ep^2+205879523/ 57624000*ep^3+3214970899279/72606240000*ep^4+1341980656664563/ 10164873600000*ep^5+2648786268235471999/12807740736000000*ep^6+ 111206430729244472801/597694567680000000*ep^7; Fill mncT20(9,2) = -367/210-4/3*ep^-1+1911101/88200*ep+1042101407/ 37044000*ep^2-86110890751/15558480000*ep^3-17042462394457/ 6534561600000*ep^4+7907446988034401/2744515872000000*ep^5- 1909987388370169993/1152696666240000000*ep^6+ 360593021366279574449/484132599820800000000*ep^7; Fill mncT20(2,9) = -927/70-4/3*ep^-1-1476577/44100*ep+179362247/ 2058000*ep^2+5488605605993/7779240000*ep^3+2014683523898821/ 1089093600000*ep^4+3664245722376390233/1372257936000000*ep^5+ 444631880836318614101/192116111040000000*ep^6+ 285964680277501203949673/242066299910400000000*ep^7; Fill mncT20(9,3) = -1922/35-48*ep^-1+1897591/2450*ep+301069579/ 343000*ep^2-4948522049/48020000*ep^3+80071131619/6722800000*ep^4- 18482489761289/941192000000*ep^5+4054917550304059/131766880000000 *ep^6-671150217145542929/18447363200000000*ep^7; Fill mncT20(3,9) = -11366/35-48*ep^-1-205412/1225*ep+1902910333/ 514500*ep^2+2921999991203/216090000*ep^3+2096541650905573/ 90757800000*ep^4+872516058420356243/38118276000000*ep^5+ 218759912343140716213/16009675920000000*ep^6+ 31304828540972694572483/6724063886400000000*ep^7; Fill mncT20(9,4) = -6998/7-720*ep^-1+16770571/1470*ep+3293023879/ 205800*ep^2+51986235451/28812000*ep^3-478953480881/4033680000* ep^4-174098181323789/564715200000*ep^5+33227828264991559/ 79060128000000*ep^6-4997495429859605429/11068417920000000*ep^7; Fill mncT20(4,9) = -26930/7-720*ep^-1+414236/147*ep+15650506589/ 308700*ep^2+17001990837739/129654000*ep^3+9261629868042749/ 54454680000*ep^4+2943607325873278459/22870965600000*ep^5+ 555461160879416285069/9605805552000000*ep^6+ 57306060764458096513579/4034438331840000000*ep^7; Fill mncT20(9,5) = -239485/21-6600*ep^-1+59678963/588*ep+ 8999125993/49392*ep^2+273368291219/4148928*ep^3+1420652321425/ 348509952*ep^4-91124037255205/29274835968*ep^5+7058323649431945/ 2459086221312*ep^6-580884246540597565/206563242590208*ep^7; Fill mncT20(5,9) = -625915/21-6600*ep^-1+43566575/882*ep+ 155241292369/370440*ep^2+134457514968671/155584800*ep^3+ 59632498889714041/65345616000*ep^4+15336180514258890431/ 27445158720000*ep^5+2297926022899138306921/11526966662400000*ep^6 +179498239379029190470511/4841325998208000000*ep^7; Fill mncT20(9,6) = -637747/7-43560*ep^-1+629646273/980*ep+ 119042517491/82320*ep^2+6030757537057/6914880*ep^3+ 107478921385259/580849920*ep^4-105005045961691/9758278656*ep^5+ 9404776725200503/819695407104*ep^6-803625993147487939/ 68854414196736*ep^7; Fill mncT20(6,9) = -1213465/7-43560*ep^-1+60822598/147*ep+ 194807431393/77175*ep^2+71368977411709/16206750*ep^3+ 13453624222021897/3403417500*ep^4+1454776080000749701/ 714717675000*ep^5+90011618956532004433/150090711750000*ep^6+ 2743643791414346398189/31519049467500000*ep^7; Fill mncT20(9,7) = -19467998/35-226512*ep^-1+23281533403/7350*ep+ 2995897232957/343000*ep^2+349928274306329/48020000*ep^3+ 17758196394663413/6722800000*ep^4+289303778474762561/941192000000 *ep^5+5354563838385813917/131766880000000*ep^6- 728064688677169586551/18447363200000000*ep^7; Fill mncT20(7,9) = -28622858/35-226512*ep^-1+8945694844/3675*ep+ 4693005624746/385875*ep^2+754866033770809/40516875*ep^3+ 124746450400539397/8508543750*ep^4+11669819549415577201/ 1786794187500*ep^5+616262713609025641933/375226779375000*ep^6+ 14725587316264435085689/78797623668750000*ep^7; Fill mncT20(9,8) = -41386202/15-981552*ep^-1+283630630979/22050*ep +395546421637189/9261000*ep^2+175501506642798899/3889620000*ep^3+ 37418073001064553109/1633640400000*ep^4+3822672350863462613219/ 686128968000000*ep^5+201003651603358538880229/288174166560000000* ep^6-13015469509985083840954861/121033149955200000000*ep^7; Fill mncT20(8,9) = -344915714/105-981552*ep^-1+125188224652/11025* ep+57327608405708/1157625*ep^2+169691073788368/2480625*ep^3+ 616775730790589453/12762815625*ep^4+25521414100086000862/ 1340095640625*ep^5+338629746139766599031/80405738437500*ep^6+ 5334489504198746786392/14774554437890625*ep^7; Fill mncT20(9,9) = -162519643/14-3680820*ep^-1+262595305811/5880* ep+87238249360337/493920*ep^2+9315219944358107/41489280*ep^3+ 101175453391617973/697019904*ep^4+15089495884566992579/ 292748359680*ep^5+253487005234871483393/24590862213120*ep^6+ 1215551950864982918123/2065632425902080*ep^7; Fill mncT20(-8,10) = 6989/630-2/3*ep^-1-7598879/88200*ep+ 31062663437/74088000*ep^2-90185834954741/62233920000*ep^3+ 200027718470275613/52276492800000*ep^4-356375734682258371109/ 43912253952000000*ep^5+530222707622939017899437/ 36886293319680000000*ep^6-680570062541044177600183541/ 30984486388531200000000*ep^7; Fill mncT20(-7,10) = 1/36-39/70*ep+10819859/2116800*ep^2- 5690067863/197568000*ep^3+168826977118031/1493614080000*ep^4- 139105240405756861/418211942400000*ep^5+814057139091381622319/ 1053894094848000000*ep^6-434739671197658213202989/ 295090346557440000000*ep^7; Fill mncT20(-6,10) = 1/504*ep-4591/141120*ep^2+26553911/118540800* ep^3-26897921381/33191424000*ep^4+112312437169799/83642388480000* ep^5+1246257971347153/867402547200000*ep^6-902779206652686528649/ 59018069311488000000*ep^7; Fill mncT20(-5,10) = 1/10584*ep-8513/8890560*ep^2+14714953/ 7468070400*ep^3+77922221551/6273179136000*ep^4-395835392153543/ 5269470474240000*ep^5+573426495672749599/4426355198361600000*ep^6 +524137320920355217993/3718138366623744000000*ep^7; Fill mncT20(-4,10) = 1/52920*ep-5237/44452800*ep^2-9426899/ 37340352000*ep^3+96602667307/31365895680000*ep^4-104343711700451/ 26347352371200000*ep^5-406631267957312357/22131775991808000000* ep^6+1117880930628043829101/18590691833118720000000*ep^7; Fill mncT20(-3,10) = 1/88200*ep-2563/74088000*ep^2-20465941/ 62233920000*ep^3+58042373213/52276492800000*ep^4+116022719392091/ 43912253952000000*ep^5-426151338224718163/36886293319680000000* ep^6-85672237033648426741/30984486388531200000000*ep^7; Fill mncT20(-2,10) = 1/52920*ep-29/44452800*ep^2-23874563/ 37340352000*ep^3+1050578059/31365895680000*ep^4+195040341925213/ 26347352371200000*ep^5-13916621286503909/22131775991808000000* ep^6-694671269087988790163/18590691833118720000000*ep^7; Fill mncT20(-1,10) = 1/10584*ep+2743/8890560*ep^2-19721351/ 7468070400*ep^3-60095960177/6273179136000*ep^4+102403388672761/ 5269470474240000*ep^5+413805349718330527/4426355198361600000*ep^6 -31882876948583817911/3718138366623744000000*ep^7; Fill mncT20(0,10) = 1/504*ep+2201/141120*ep^2+99943/118540800*ep^3 -10086927493/33191424000*ep^4-74798499514553/83642388480000*ep^5+ 1049867743032281/7806622924800000*ep^6+309267153569276240503/ 59018069311488000000*ep^7; Fill mncT20(10,1) = -1/54-899/68040*ep+26608661/85730400*ep^2+ 22301027281/108020304000*ep^3-30764322105499/136105583040000*ep^4 +13987748932332121/171493034630400000*ep^5+2191132024393214141/ 216081223634304000000*ep^6-9765119659651775911439/ 272262341779223040000000*ep^7; Fill mncT20(1,10) = -1/18-551/840*ep-5115629/2116800*ep^2+75291971/ 65856000*ep^3+54543220808719/1493614080000*ep^4+54914876768924611/ 418211942400000*ep^5+262421756301034160431/1053894094848000000* ep^6+84934962247973108662739/295090346557440000000*ep^7; Fill mncT20(10,2) = -1949/945-4/3*ep^-1+25400111/1190700*ep+ 50002245931/1500282000*ep^2-307591759849/1890355320000*ep^3- 12413937459889229/2381847703200000*ep^4+8738028774226905791/ 3001128106032000000*ep^5-3763272666543821846789/ 3781421413600320000000*ep^6+933539887857059329141031/ 4764590981136403200000000*ep^7; Fill mncT20(2,10) = -4469/315-4/3*ep^-1-3789689/88200*ep+ 4624227637/74088000*ep^2+47595938660059/62233920000*ep^3+ 123202774990297213/52276492800000*ep^4+177176618299181880091/ 43912253952000000*ep^5+160217365936094282497837/ 36886293319680000000*ep^6+93328469939078307903285259/ 30984486388531200000000*ep^7; Fill mncT20(10,3) = -1627/21-60*ep^-1+25410289/26460*ep+ 41398021589/33339600*ep^2-190296782231/42007896000*ep^3- 1878209166342451/52929948960000*ep^4-604812037282539071/ 66691735689600000*ep^5+2567279209147663019909/ 84031586968896000000*ep^6-3981515745958749550393511/ 105879799580808960000000*ep^7; Fill mncT20(3,10) = -9305/21-60*ep^-1-1638433/3528*ep+7361205209/ 1646400*ep^2+81972708321109/4148928000*ep^3+138028550387269363/ 3485099520000*ep^4+138795980231409673141/2927483596800000*ep^5+ 89274855913501250589187/2459086221312000000*ep^6+ 36792670238896693428144709/2065632425902080000000*ep^7; Fill mncT20(10,4) = -101455/63-1100*ep^-1+275221241/15876*ep+ 103162952009/4000752*ep^2+4293929585705/1008189504*ep^3- 89566560900055/254063755008*ep^4-27959241939151255/64024066262016 *ep^5+9610093290099320105/16134064698028032*ep^6- 2555614242099467670295/4065784303903064064*ep^7; Fill mncT20(4,10) = -408245/63-1100*ep^-1+11019805/10584*ep+ 707513577751/8890560*ep^2+1814527882945273/7468070400*ep^3+ 2338002817201507471/6273179136000*ep^4+1826951548514338306297/ 5269470474240000*ep^5+910205680939115610296479/ 4426355198361600000*ep^6+285848276162272279779022153/ 3718138366623744000000*ep^7; Fill mncT20(10,5) = -1329680/63-12100*ep^-1+737272054/3969*ep+ 84298599661/250047*ep^2+3965429329817/31505922*ep^3+ 34545751893985/3969746172*ep^4-2913598743696175/500188017672*ep^5 +327310681489923505/63023690226672*ep^6-40193360491207768015/ 7940984968560672*ep^7; Fill mncT20(5,10) = -3815020/63-12100*ep^-1+672043865/10584*ep+ 7209932656511/8890560*ep^2+14657572049878313/7468070400*ep^3+ 15493420641913630511/6273179136000*ep^4+9940372453388210088377/ 5269470474240000*ep^5+4029824464487680025867039/ 4426355198361600000*ep^6+1009752034531660345101568073/ 3718138366623744000000*ep^7; Fill mncT20(10,6) = -4079713/21-94380*ep^-1+36973908163/26460*ep+ 20570227539667/6667920*ep^2+3033514159050163/1680315840*ep^3+ 157783074769647667/423439591680*ep^4-528901375770096745/ 21341355420672*ep^5+141420471909363556055/5378021566009344*ep^6- 36182184549508555154665/1355261434634354688*ep^7; Fill mncT20(6,10) = -8757815/21-94380*ep^-1+285953499/392*ep+ 86753994798313/14817600*ep^2+148907578338425071/12446784000*ep^3+ 134583634360736251897/10455298560000*ep^4+73478148911479794387679/ 8782450790400000*ep^5+25084014386175340989180553/ 7377258663936000000*ep^6+5179409494638992212487851471/ 6196897277706240000000*ep^7; Fill mncT20(10,7) = -61332271/45-572572*ep^-1+459094453861/56700* ep+1531948229048633/71442000*ep^2+1529532469520022109/90016920000 *ep^3+659328793858498496657/113421319200000*ep^4+ 84193338407945687943061/142910862192000000*ep^5+ 20216629462246954713251753/180067686361920000000*ep^6- 25198383738901657758085926131/226885284816019200000000*ep^7; Fill mncT20(7,10) = -103252721/45-572572*ep^-1+201215003399/37800* ep+1052670739682273/31752000*ep^2+1584389477988125111/26671680000 *ep^3+1260115013745961428977/22404211200000*ep^4+ 600882741173995469811239/18819537408000000*ep^5+ 177394318056845020827177473/15808411422720000000*ep^6+ 30877072102128585018070293911/13279065595084800000000*ep^7; Fill mncT20(10,8) = -69552769/9-2862860*ep^-1+434310052219/11340* ep+7004672898859/58320*ep^2+350749945127471/2939328*ep^3+ 5985907366175321/105815808*ep^4+33984285466122253/2720977920*ep^5 +1077468925693934797/685686435840*ep^6-265340658127773895/ 705277476864*ep^7; Fill mncT20(8,10) = -95522999/9-2862860*ep^-1+223988205851/7560*ep +198479962759177/1270080*ep^2+53777209618419011/213373440*ep^3+ 7693053960436534657/35846737920*ep^4+653914768896638272619/ 6022251970560*ep^5+34140797356386788221753/1011738331054080*ep^6+ 1015649344346936894463059/169972039617085440*ep^7; Fill mncT20(10,9) = -1551477785/42-12269400*ep^-1+1627394154415/ 10584*ep+7543699807403531/13335840*ep^2+2260333080623120459/ 3360631680*ep^3+68488673475056100559/169375836672*ep^4+ 5610227992150949456143/42682710841344*ep^5+ 1311677731027876338887819/53780215660093440*ep^6+ 8651031282978344750569931/13552614346343546880*ep^7; Fill mncT20(9,10) = -1794820885/42-12269400*ep^-1+239935332475/ 1764*ep+629668364238581/987840*ep^2+156590334768924257/165957120* ep^3+20499084628777351687/27880796160*ep^4+315771825523270174417/ 936794750976*ep^5+74323934108207709515959/786907590819840*ep^6+ 1897257191439758631671453/132200475257733120*ep^7; Fill mncT20(10,10) = -29016110695/189-139053200/3*ep^-1+ 51295527403105/95256*ep+554800602494906533/240045120*ep^2+ 385811958544034384741/120982740480*ep^3+140661160501409433770533/ 60975301201920*ep^4+5972748132827112581530465/6146310361153536* ep^5+3869486535735311109942990757/15488702110106910720*ep^6+ 252801220626197196603975986789/7806305863493883002880*ep^7; Fill mncT20(-8,11) = 1/45-26147/56700*ep+314503993/71442000*ep^2- 4672247765077/180033840000*ep^3+48585430711265383/453685276800000 *ep^4-380328918935526024157/1143286897536000000*ep^5+ 2355753513241542036899503/2881082981790720000000*ep^6- 11994690984462733167533127637/7260329114112614400000000*ep^7; Fill mncT20(-7,11) = 1/810*ep-2704/127575*ep^2+199636513/ 1285956000*ep^3-1995408076687/3240609120000*ep^4+ 10224340091873773/8166334982400000*ep^5+3062687130877478033/ 20579164155648000000*ep^6-520441684605264413690507/ 51859493672232960000000*ep^7; Fill mncT20(-6,11) = 1/22680*ep-27739/57153600*ep^2+190143577/ 144027072000*ep^3+1773216411677/362948221440000*ep^4- 36478510676655983/914629518028800000*ep^5+213025599689219649557/ 2304866385432576000000*ep^6+25823821928182168153897/ 5808263291290091520000000*ep^7; Fill mncT20(-5,11) = 1/158760*ep-18259/400075200*ep^2-42826943/ 1008189504000*ep^3+2792731196837/2540637550080000*ep^4- 15257122560999623/6402406626201600000*ep^5-72057915083762142883/ 16134064698028032000000*ep^6+1048481151803125953568657/ 40657843039030640640000000*ep^7; Fill mncT20(-4,11) = 1/396900*ep-10741/1000188000*ep^2-157966961/ 2520473760000*ep^3+2107310654219/6351593875200000*ep^4+ 4112759245162999/16006016565504000000*ep^5-127771563484297264621/ 40335161745070080000000*ep^6+278278827257519879603359/ 101644607597576601600000000*ep^7; Fill mncT20(-3,11) = 1/396900*ep-3937/1000188000*ep^2-210282917/ 2520473760000*ep^3+854058291143/6351593875200000*ep^4+ 14775607543376803/16006016565504000000*ep^5-63828658282050504337/ 40335161745070080000000*ep^6-426307863125758838992277/ 101644607597576601600000000*ep^7; Fill mncT20(-2,11) = 1/158760*ep+2909/400075200*ep^2-213430439/ 1008189504000*ep^3-616012478899/2540637550080000*ep^4+ 15517870030957921/6402406626201600000*ep^5+44100435572401587941/ 16134064698028032000000*ep^6-489711926329196193101639/ 40657843039030640640000000*ep^7; Fill mncT20(-1,11) = 1/22680*ep+10709/57153600*ep^2-155964239/ 144027072000*ep^3-2053868599099/362948221440000*ep^4+ 4069364964561721/914629518028800000*ep^5+119364550389240467741/ 2304866385432576000000*ep^6+235916137925621445854161/ 5808263291290091520000000*ep^7; Fill mncT20(0,11) = 1/810*ep+10957/1020600*ep^2+22583903/ 2571912000*ep^3-1215189224897/6481218240000*ep^4- 11668893306785437/16332669964800000*ep^5-16631285284456701377/ 41158328311296000000*ep^6+338687575181190386905883/ 103718987344465920000000*ep^7; Fill mncT20(11,1) = -2/135-1277/85050*ep+5272819/21432600*ep^2+ 32420731771/135025380000*ep^3-24884699324761/170131978800000*ep^4 +877170235707523/214366293288000000*ep^5+431294678094566183/ 10804061181715200000*ep^6-11101862956279817955509/ 340327927224028800000000*ep^7; Fill mncT20(1,11) = -2/45-15787/28350*ep-165472523/71442000*ep^2- 94806134083/180033840000*ep^3+13480153502466457/453685276800000* ep^4+144332077982983518797/1143286897536000000*ep^5+ 799738990143425794611937/2881082981790720000000*ep^6+ 2780184952336921654642411877/7260329114112614400000000*ep^7; Fill mncT20(11,2) = -443/189-4/3*ep^-1+24954589/1190700*ep+ 56879937521/1500282000*ep^2+11106698706037/1890355320000*ep^3- 3120371445926603/476369540640000*ep^4+6337559480392402669/ 3001128106032000000*ep^5-802323359467672495519/ 3781421413600320000000*ep^6-878349940275150126806363/ 4764590981136403200000000*ep^7; Fill mncT20(2,11) = -947/63-4/3*ep^-1-8261273/158760*ep+ 68650827643/2000376000*ep^2+4041395928763343/5040947520000*ep^3+ 36144888420286029403/12703187750400000*ep^4+ 178469723699462169924263/32012033131008000000*ep^5+ 568080644193290747038448323/80670323490140160000000*ep^6+ 1219971083440710736567469629583/203289215195153203200000000*ep^7; Fill mncT20(11,3) = -19829/189-220/3*ep^-1+276927239/238140*ep+ 505207738627/300056400*ep^2+63501959137871/378071064000*ep^3- 39710932734584117/476369540640000*ep^4-4563193440360605641/ 600225621206400000*ep^5+26292061130570278605907/ 756284282720064000000*ep^6-38196898053936606613766689/ 952918196227280640000000*ep^7; Fill mncT20(3,11) = -36713/63-220/3*ep^-1-27788827/31752*ep+ 2048778623153/400075200*ep^2+27416145505257997/1008189504000*ep^3 +158094438163349028977/2540637550080000*ep^4+ 552091808866470861004117/6402406626201600000*ep^5+ 1275457699271168743747439657/16134064698028032000000*ep^6+ 1998649653091290825543772425997/40657843039030640640000000*ep^7; Fill mncT20(11,4) = -470888/189-4840/3*ep^-1+1504210052/59535*ep+ 748220763334/18753525*ep^2+51997825155383/5907360375*ep^3- 2233506982830133/3721637036250*ep^4-1539577334973512617/ 2344631332837500*ep^5+1216832623862673542867/1477117739687625000* ep^6-781342168281818241635617/930584176003203750000*ep^7; Fill mncT20(4,11) = -72204/7-4840/3*ep^-1-52479467/15876*ep+ 23436031599433/200037600*ep^2+209250569606046317/504094752000* ep^3+927061733491696444897/1270318775040000*ep^4+ 2545717899015437717478437/3201203313100800000*ep^5+ 4638246719924098159411232377/8067032349014016000000*ep^6+ 5695531434939204336385594745117/20328921519515320320000000*ep^7; Fill mncT20(11,5) = -7036304/189-62920/3*ep^-1+19109741516/59535* ep+11148348422482/18753525*ep^2+1383040348370609/5907360375*ep^3+ 69240298766882141/3721637036250*ep^4-24235833552204615391/ 2344631332837500*ep^5+12909022947114817211141/1477117739687625000 *ep^6-7857634528563184145244391/930584176003203750000*ep^7; Fill mncT20(5,11) = -7211248/63-62920/3*ep^-1+983594785/15876*ep+ 290614584662929/200037600*ep^2+2037550259967408341/504094752000* ep^3+7442881824882293355241/1270318775040000*ep^4+ 16951535455849893313238861/3201203313100800000*ep^5+ 25519844571705379609417327681/8067032349014016000000*ep^6+ 25633507123853709868213842256901/20328921519515320320000000*ep^7; Fill mncT20(11,6) = -52743691/135-572572/3*ep^-1+481246804081/ 170100*ep+1329824571334613/214326000*ep^2+971006149559484649/ 270050760000*ep^3+251506211043514944077/340263957600000*ep^4- 21439270230330588569279/428732586576000000*ep^5+ 29221122958985801912348933/540203059085760000000*ep^6- 37471255381675694561272477991/680655854448057600000000*ep^7; Fill mncT20(6,11) = -8295859/9-572572/3*ep^-1+25510085683/22680*ep +3551842715122507/285768000*ep^2+20948193232373944247/ 720135360000*ep^3+65706895895295870418387/1814741107200000*ep^4+ 128406627511162745392127327/4573147590144000000*ep^5+ 164840402041006704972195159067/11524331927162880000000*ep^6+ 139558013260638558379566836689607/29041316456450457600000000*ep^7 ; Fill mncT20(11,7) = -420737317/135-4008004/3*ep^-1+462259075321/ 24300*ep+214724774400539/4374000*ep^2+29586591739590721/787320000 *ep^3+1752386078381718419/141717600000*ep^4+28780910347911200041/ 25509168000000*ep^5+1279406537518104957899/4591650240000000*ep^6- 229085254583046229656239/826497043200000000*ep^7; Fill mncT20(7,11) = -87814727/15-4008004/3*ep^-1+168388904951/ 16200*ep+668932208137751/8164800*ep^2+690456962681880407/ 4115059200*ep^3+382316164767461533079/2073989836800*ep^4+ 131374730442335984422871/1045290877747200*ep^5+ 29451668617100409822829079/526826602384588800*ep^6+ 4298485567313099883568649303/265520607601832755200*ep^7; Fill mncT20(11,8) = -540103850/27-22902880/3*ep^-1+352334627279/ 3402*ep+954481243326113/3061800*ep^2+162922369695635827/551124000 *ep^3+13188105259619457353/99202320000*ep^4+484231845706430874667/ 17856417600000*ep^5+11357490250559991360113/3214155168000000*ep^6 -93171355575157108847099/82649704320000000*ep^7; Fill mncT20(8,11) = -278298878/9-22902880/3*ep^-1+78481792553/1134 *ep+6337013067965729/14288400*ep^2+5876486332167622433/7201353600 *ep^3+2931531259395880204001/3629482214400*ep^4+ 902430248749912316545697/1829259036057600*ep^5+ 180048870762373942770655841/921946554173030400*ep^6+ 23038625213157146149732289057/464661063303207321600*ep^7; Fill mncT20(11,9) = -20351173700/189-111242560/3*ep^-1+ 5659985460628/11907*ep+31065153578778268/18753525*ep^2+ 11029959417983632076/5907360375*ep^3+1968993138614985084262/ 1860818518125*ep^4+187148586148749179856494/586157833209375*ep^5+ 20758050269991045401087381/369279434921906250*ep^6- 43646781901202777076923753/116323022000400468750*ep^7; Fill mncT20(9,11) = -8873230652/63-111242560/3*ep^-1+1468570725121/ 3969*ep+102765551998267393/50009400*ep^2+87284472173988006721/ 25204737600*ep^3+39867832754385999134977/12703187750400*ep^4+ 11162337618007704436571329/6402406626201600*ep^5+ 2014240413580560291418836097/3226812939605606400*ep^6+ 228814591882979863068211948609/1626313721561225625600*ep^7; Fill mncT20(11,10) = -94741819315/189-472780880/3*ep^-1+ 180297184094977/95256*ep+9118863522554161721/1200225600*ep^2+ 29927441942413957862621/3024568512000*ep^3+ 51265162642949916903220241/7621912650240000*ep^4+ 50611485632739890754525904661/19207219878604800000*ep^5+ 30557117502286964177908981981481/48402194094084096000000*ep^6+ 8383660765528111776131513929986701/121973529117091921920000000* ep^7; Fill mncT20(10,11) = -107317790723/189-472780880/3*ep^-1+ 159839596776809/95256*ep+10066575267559676161/1200225600*ep^2+ 7949241304220457840833/604913702400*ep^3+ 3368770753942166607984769/304876506009600*ep^4+ 868804406144078288138238017/153657759028838400*ep^5+ 143799070774665462539681261569/77443510550534553600*ep^6+ 14628629715363870667722576619457/39031529317469415014400*ep^7; Fill mncT20(11,11) = -43385111341/21-1796567344/3*ep^-1+ 1060036310136481/158760*ep+61604066404115591833/2000376000*ep^2+ 228884609343272106236093/5040947520000*ep^3+ 455020027442906394694864753/12703187750400000*ep^4+ 546376060759702924146035482613/32012033131008000000*ep^5+41993152\ 4195453547677148509793673/80670323490140160000000*ep^6+1923184661\ 12414497744666119492941933/203289215195153203200000000*ep^7; Fill mncT20(-8,12) = 2/2475*ep-22493/1559250*ep^2+218502451/ 1964655000*ep^3-2349660195649/4950930600000*ep^4+ 13855351976586811/12476345112000000*ep^5-1501328314223600459/ 2858217243840000000*ep^6-515371431824006885255069/ 79229781999244800000000*ep^7; Fill mncT20(-7,12) = 1/44550*ep-337/1275750*ep^2+61120681/ 70727580000*ep^3+344036023481/178233501600000*ep^4- 9912082655994059/449148424032000000*ep^5+71240048932399725881/ 1131854028560640000000*ep^6-106373437385656050719939/ 2852272151972812800000000*ep^7; Fill mncT20(-6,12) = 1/415800*ep-20431/1047816000*ep^2-1713851/ 2640496320000*ep^3+2858826253049/6654050726400000*ep^4- 1943494843398601/1524382530048000000*ep^5-34843306318971418351/ 42255883732930560000000*ep^6+1181771600368991207342869/ 106484827006985011200000000*ep^7; Fill mncT20(-5,12) = 1/1455300*ep-13261/3667356000*ep^2-128994521/ 9241737120000*ep^3+225858582889/2117197958400000*ep^4- 1493331988200881/58688727406848000000*ep^5-12186048061417259711/ 13445053915023360000000*ep^6+607067991728251341452599/ 372696894524447539200000000*ep^7; Fill mncT20(-4,12) = 1/2182950*ep-6961/5501034000*ep^2-195710261/ 13862605680000*ep^3+134434642309/3175796937600000*ep^4+ 11634890941012819/88033091110272000000*ep^5-106091551377803880481/ 221843389597885440000000*ep^6-194490445977670248157541/ 559045341786671308800000000*ep^7; Fill mncT20(-3,12) = 1/1455300*ep-83/333396000*ep^2-220410293/ 9241737120000*ep^3+210714238967/23289177542400000*ep^4+ 16986250262494867/58688727406848000000*ep^5-17534858327267001313/ 147895593065256960000000*ep^6-53950850554718271541903/ 33881535865858867200000000*ep^7; Fill mncT20(-2,12) = 1/415800*ep+5417/1047816000*ep^2-204952283/ 2640496320000*ep^3-1148154425623/6654050726400000*ep^4+ 13719762315932077/16768207830528000000*ep^5+82354683712516220897/ 42255883732930560000000*ep^6-360592481060751846188123/ 106484827006985011200000000*ep^7; Fill mncT20(-1,12) = 1/44550*ep+6421/56133000*ep^2-66149329/ 141455160000*ep^3-1188965620049/356467003200000*ep^4- 221054554107949/898296848064000000*ep^5+63193246467668329711/ 2263708057121280000000*ep^6+247144393114015356589451/ 5704544303945625600000000*ep^7; Fill mncT20(0,12) = 2/2475*ep+11881/1559250*ep^2+43128791/ 3929310000*ep^3-1167034595129/9901861200000*ep^4- 13902795158161429/24952690224000000*ep^5-38918613124480423769/ 62880779364480000000*ep^6+301219009915298674283171/ 158459563998489600000000*ep^7; Fill mncT20(12,1) = -2/165-17687/1143450*ep+629619443/3169643400* ep^2+54869530854601/219656287620000*ep^3-236791817606262161/ 3044436146413200000*ep^4-1506330674134454001767/ 42195884989286952000000*ep^5+4753558400816512202680019/ 116966993190303430944000000*ep^6-158572753690015674796506412439/ 8105812628088027764419200000000*ep^7; Fill mncT20(1,12) = -2/55-503/1050*ep-5797859/2646000*ep^2- 11223780619/6667920000*ep^3+401682583632721/16803158400000*ep^4+ 5036369070856670501/42343959168000000*ep^5+ 31516286024844460680601/106706777103360000000*ep^6+ 125473173343428294404555261/268901078300467200000000*ep^7; Fill mncT20(12,2) = -27011/10395-4/3*ep^-1+2962227307/144074700*ep +83851734855421/1996875342000*ep^2+340784220710686363/ 27676692240120000*ep^3-2564314134656350362611/ 383598954448063200000*ep^4+4760479695314448051117067/ 5316681508650155952000000*ep^5+31470991323072783006126255901/ 73689205709891161494720000000*ep^6-358822889122081761292607704248\ 197/1021332391139091498316819200000000*ep^7; Fill mncT20(2,12) = -54731/3465-4/3*ep^-1-530146163/8731800*ep+ 82391869829/22004136000*ep^2+45400018770731329/55450422720000* ep^3+462040071431537777429/139735065254400000*ep^4+ 2551560118802052705626569/352132364441088000000*ep^5+ 9209438743044672761697666029/887373558391541760000000*ep^6+ 23052496167574323893731786119649/2236181367146685235200000000* ep^7; Fill mncT20(12,3) = -43312/315-88*ep^-1+1507593656/1091475*ep+ 8347909082192/3781960875*ep^2+5626819356909944/13104494431875* ep^3-5446860170840086192/45407073206446875*ep^4- 2801810568849002543944/157335508660338421875*ep^5+ 22978153899253943955578192/545167537508072631796875*ep^6- 80599161013875651504322562056/1889005517465471669176171875*ep^7; Fill mncT20(3,12) = -78172/105-88*ep^-1-2056169623/1455300*ep+ 20458137628129/3667356000*ep^2+330389523420477989/9241737120000* ep^3+2135139858707788205689/23289177542400000*ep^4+ 8398244536711974210259229/58688727406848000000*ep^5+ 2028065605242058154502916499/13445053915023360000000*ep^6+ 41564887613901430763563905313109/372696894524447539200000000*ep^7 ; Fill mncT20(12,4) = -1172312/315-2288*ep^-1+38835250156/1091475*ep +225339447605242/3781960875*ep^2+216338467145591419/ 13104494431875*ep^3-60032099225469459859/90814146412893750*ep^4- 650159937005088568057301/629342034641353687500*ep^5+ 4846816427821889535364216061/4361340300064581054375000*ep^6- 32715926784717083054856704632421/30224088279447546706818750000* ep^7; Fill mncT20(4,12) = -1647472/105-2288*ep^-1-8402018299/727650*ep+ 27261205216907/166698000*ep^2+3076120879938673757/4620868560000* ep^3+15292398775036283258257/11644588771200000*ep^4+ 47701573848044333779312277/29344363703424000000*ep^5+ 101208490355477062082634751657/73947796532628480000000*ep^6+ 150418495414734406395183414920717/186348447262223769600000000* ep^7; Fill mncT20(12,5) = -8503768/135-104104/3*ep^-1+247398715904/ 467775*ep+1629485641507628/1620840375*ep^2+2373118751973112046/ 5616211899375*ep^3+766762384507601803997/19460174231334375*ep^4- 2363643287679884778386717/134859007423147218750*ep^5+ 12950933290811334864901411637/934572921442410225937500*ep^6- 85953860742239831324387073325757/6476590345595902865746875000* ep^7; Fill mncT20(5,12) = -9181328/45-104104/3*ep^-1+13575785633/623700* ep+3839039724199261/1571724000*ep^2+30516994282482740561/ 3960744480000*ep^3+125491163916964100760661/9981076089600000*ep^4 +29737296399955952103342811/2286573795072000000*ep^5+ 579710544455724510539591322061/63383825599395840000000*ep^6+ 715808475376699782234461007720641/159727240510477516800000000* ep^7; Fill mncT20(12,6) = -33628049/45-364364*ep^-1+96192899939/17820*ep +83735120060887/7056720*ep^2+19323093245698331/2794461120*ep^3+ 1597072285960429327/1106606603520*ep^4-7919275514146040105/ 87643242998784*ep^5+3552188032202859939035/34706724227518464*ep^6 -1440080782227043570285745/13743862794097311744*ep^7; Fill mncT20(6,12) = -28504021/15-364364*ep^-1+86830608131/59400*ep +734206223936771/29937600*ep^2+4883366874597359311/75442752000* ep^3+1572424269712592014273/17283248640000*ep^4+ 38927949613790444470952119/479091652300800000*ep^5+ 5396447563341434741021520217/109755542163456000000*ep^6+ 62624819824433843360574121120351/3042423628771000320000000*ep^7; Fill mncT20(12,7) = -302363698/45-2914912*ep^-1+1856272952251/ 44550*ep+9342090141740299/88209000*ep^2+13869074243116126171/ 174653820000*ep^3+8830048938657706403659/345814563600000*ep^4+ 1492620402543104359660411/684712835928000000*ep^5+ 856538322760243635942936619/1355731415137440000000*ep^6- 1688116082198486919685878291749/2684348201972131200000000*ep^7; Fill mncT20(7,12) = -207081238/15-2914912*ep^-1+268968283117/14850 *ep+1396616924272909/7484400*ep^2+8105194724369359649/18860688000 *ep^3+2309125255925628788687/4320812160000*ep^4+ 50513168877883646002229561/119772913075200000*ep^5+ 67744513393810436328130668253/301827740949504000000*ep^6+ 62356736938318548563887480868369/760605907192750080000000*ep^7; Fill mncT20(12,8) = -6536596144/135-56632576/3*ep^-1+ 120931005267848/467775*ep+175041002713936028/231548625*ep^2+ 79393608645890215778/114616569375*ep^3+16991898559268557273103/ 56735201840625*ep^4+3224747311305016028667481/56167849822218750* ep^5+435896541443510777654766887/55606171323996562500*ep^6- 23682755535536203254529292393/7864301372965228125000*ep^7; Fill mncT20(8,12) = -3718119184/45-56632576/3*ep^-1+22757757934616/ 155925*ep+2056971357840337/1786050*ep^2+117727581874834369363/ 49509306000*ep^3+332912596872915452927759/124763451120000*ep^4+ 595422790955399649153509707/314403896822400000*ep^5+ 714553808577059858561286134711/792297819992448000000*ep^6+ 53032437404599922256094807632473/181508227852815360000000*ep^7; Fill mncT20(12,9) = -30586880012/105-103152192*ep^-1+ 488932975125604/363825*ep+5668204003353291208/1260653625*ep^2+ 21222878843379055210306/4368164810625*ep^3+ 39744526937313474793191817/15135691068815625*ep^4+ 78127119523706859864460684763/104890339106892281250*ep^5+ 92103011750683067370653062390357/726890050010763509062500*ep^6- 25367893149715034928363018557081677/5037348046574591117803125000* ep^7; Fill mncT20(9,12) = -14803351732/35-103152192*ep^-1+ 110367664342393/121275*ep+368189991665628469/61122600*ep^2+ 1751194051161962907161/154028952000*ep^3+ 4537517142254041716605053/388152959040000*ep^4+ 7402687109353686023733886769/978145456780800000*ep^5+ 8064092355598721330917237510837/2464926551087616000000*ep^6+ 5916078068867874734554362261392201/6211614908740792320000000*ep^7 ; Fill mncT20(12,10) = -158412721987/105-489972912*ep^-1+ 5849146887839369/970200*ep+68673472101860493751/2988216000*ep^2+ 788229787850303350529627/27611115840000*ep^3+ 4701020664894908249462605679/255126710361600000*ep^4+ 15996340121811369244438462572083/2357370803741184000000*ep^5+ 33460864209537581893992148971349991/21782106226568540160000000* ep^6+27569238442009971558605943562679138507/ 201266661533493311078400000000*ep^7; Fill mncT20(10,12) = -66592771297/35-489972912*ep^-1+ 4578441420134969/970200*ep+13459646071859769113/488980800*ep^2+ 59393041080231411111613/1232231616000*ep^3+ 142777281638403780886792049/3105223672320000*ep^4+ 214984838198029606718937612277/7825163654246400000*ep^5+215203466\ 509041164904315349757321/19719412408700928000000*ep^6+14337276718\ 2588005601956391576090733/49692919269926338560000000*ep^7; Fill mncT20(12,11) = -723032016122/105-6206323552/3*ep^-1+ 104162400926453033/4365900*ep+12508646427498493030079/ 121022748000*ep^2+485890641303307979116867529/3354750574560000* ep^3+10064385504488817240261180620399/92993685926803200000*ep^4+ 124972497692422610179547076737436569/2577784973890984704000000* ep^5+992199160044449632492534986817865655839/ 71456199476258095994880000000*ep^6+451350684551138851358748106680\ 7959547119209/1980765849481874420978073600000000*ep^7; Fill mncT20(11,12) = -805971067226/105-6206323552/3*ep^-1+ 92535747249432833/4365900*ep+1236170371999679868421/11002068000* ep^2+5120897001797766164692121/27725211360000*ep^3+ 11540646881421364916173223101/69867532627200000*ep^4+ 16199563147939730895186788306801/176066182220544000000*ep^5+ 15061688116630856758209777010102261/443686779195770880000000*ep^6 +9189187343155869163780920277149867401/ 1118090683573342617600000000*ep^7; Fill mncT20(12,12) = -1551571532628/55-7898957248*ep^-1+ 96822514787659253/1143450*ep+75465162555986696117/181122480*ep^2+ 2328373358952081970708537/3586225104000*ep^3+ 7799193295732468711266224713/14201451411840000*ep^4+ 16177806608576828304410714549977/56237747590886400000*ep^5+ 22163752359183771036943712558576233/222701480459910144000000*ep^6 +2798665797348194146080648936287543551/ 125985408945892024320000000*ep^7; Fill mncT11(-8,-8) = 1/10914146614800*ep+913639927/ 2540732130674625888000*ep^2+646160075957812307/ 591463536974000687509793280000*ep^3+435925347773935674798933511/ 137688310918832273487164802721996800000*ep^4+26789323013165445935\ 522322722718913/2913892216442810650517929233413509398528000000* ep^5+15484592047608425610769942213482213159362299/573973593455981\ 218017128830276680946626255912960000000*ep^6+13872091908530167232\ 3691776089457915276056100157919331/173701816850922249570363207524\ 8882856288543203510242508800000000*ep^7; Fill mncT11(-7,-8) = 1/2297715076800*ep+47719103/ 28152156572572032000*ep^2+1771794534564697/ 344926978844729953351680000*ep^3+62875160855488080534119/42261281\ 27280554123653587763200000*ep^4+203364901470710565487898929883/ 4707230553290172405090312194162688000000*ep^5+6187418313426240472\ 949520054524643971/48801177170514138571844691804298952048640000000 *ep^6+2917698150893880461517982431358577178745562761/777300855468\ 3581939281479287259949299229576396800000000*ep^7; Fill mncT11(-8,-7) = 1/2297715076800*ep+47719103/ 28152156572572032000*ep^2+1771794534564697/ 344926978844729953351680000*ep^3+62875160855488080534119/42261281\ 27280554123653587763200000*ep^4+203364901470710565487898929883/ 4707230553290172405090312194162688000000*ep^5+6187418313426240472\ 949520054524643971/48801177170514138571844691804298952048640000000 *ep^6+2917698150893880461517982431358577178745562761/777300855468\ 3581939281479287259949299229576396800000000*ep^7; Fill mncT11(-7,-7) = 1/540638841600*ep+47088473/ 6624036840605184000*ep^2+1740735607875907/ 81159289139936459612160000*ep^3+61710246390163863116309/994383088\ 771895087918491238400000*ep^4+18145279768896213003617836483/ 100689423599789784066102934634496000000*ep^5+60740193034459592845\ 06801499568627641/11482629922473914958081103953952694599680000000 *ep^6+2864714758136116290504088607812640547820446571/182894318933\ 7313397477995126414105717465782681600000000*ep^7; Fill mncT11(-6,-8) = 1/420496876800*ep+47647603/ 5152028653804032000*ep^2+252652011875171/ 9017698793326273290240000*ep^3+62758393658605967256619/7734090690\ 44807290603270963200000*ep^4+202991355400418820856033898383/ 861453957464868152565547329650688000000*ep^5+61761836851963724016\ 94255130610280471/8930934384146378300729747519740984688640000000* ep^6+2912441802087726113503892769961220128709576261/1422511369484\ 577086927329542766526669140053196800000000*ep^7; Fill mncT11(-8,-6) = 1/420496876800*ep+47647603/ 5152028653804032000*ep^2+252652011875171/ 9017698793326273290240000*ep^3+62758393658605967256619/7734090690\ 44807290603270963200000*ep^4+202991355400418820856033898383/ 861453957464868152565547329650688000000*ep^5+61761836851963724016\ 94255130610280471/8930934384146378300729747519740984688640000000* ep^6+2912441802087726113503892769961220128709576261/1422511369484\ 577086927329542766526669140053196800000000*ep^7; Fill mncT11(-6,-7) = 1/111307996800*ep+1374167/40110949726848000* ep^2+212921373991/2064911691938135040000*ep^3+1553214928064243711/ 5208781041147784401100800000*ep^4+147761239585655454936803/ 170639666908001416980062208000000*ep^5+ 132267259923146695228960698779/5203144723358779206556056846336000\ 0000*ep^6+1834936426167152962158502027963907521/24375068022624405\ 7733690283868933324800000000*ep^7; Fill mncT11(-7,-6) = 1/111307996800*ep+1374167/40110949726848000* ep^2+212921373991/2064911691938135040000*ep^3+1553214928064243711/ 5208781041147784401100800000*ep^4+147761239585655454936803/ 170639666908001416980062208000000*ep^5+ 132267259923146695228960698779/5203144723358779206556056846336000\ 0000*ep^6+1834936426167152962158502027963907521/24375068022624405\ 7733690283868933324800000000*ep^7; Fill mncT11(-6,-6) = 1/25971865920*ep+54143/374368864117248*ep^2+ 1461092694913/3372689096832287232000*ep^3+1521012295134409487/ 1215382242934483026923520000*ep^4+144702912918207566541491/ 39815922278533663962014515200000*ep^5+ 18508492482138886366234578941/17343815744529264021853522821120000\ 00*ep^6+1797716833285025988299632313966030257/5687515871945694680\ 4527732902751109120000000*ep^7; Fill mncT11(-5,-8) = 1/64929664800*ep+706031/11699027003664000* ep^2+773062372651/4215861371040359040000*ep^3+807498349191499313/ 1519227803668103783654400000*ep^4+76823629227236577459749/ 49769902848167079952518144000000*ep^5+ 9819993526068589010296132091/2167976968066158002731690352640000000 *ep^6+953277297809054174463751518023919943/7109394839932118350565\ 9666128438886400000000*ep^7; Fill mncT11(-8,-5) = 1/64929664800*ep+706031/11699027003664000* ep^2+773062372651/4215861371040359040000*ep^3+807498349191499313/ 1519227803668103783654400000*ep^4+76823629227236577459749/ 49769902848167079952518144000000*ep^5+ 9819993526068589010296132091/2167976968066158002731690352640000000 *ep^6+953277297809054174463751518023919943/7109394839932118350565\ 9666128438886400000000*ep^7; Fill mncT11(-5,-7) = 1/19478899440*ep+55001/280776648087936*ep^2+ 1492077713263/2529516822624215424000*ep^3+1555178717410960337/ 911536682200862270192640000*ep^4+147952472132586332292941/ 29861941708900247971510886400000*ep^5+ 18919560052256680892619793091/13007861808396948016390142115840000\ 00*ep^6+1837260829293009111931992803283793807/4265636903959271010\ 3395799677063331840000000*ep^7; Fill mncT11(-7,-5) = 1/19478899440*ep+55001/280776648087936*ep^2+ 1492077713263/2529516822624215424000*ep^3+1555178717410960337/ 911536682200862270192640000*ep^4+147952472132586332292941/ 29861941708900247971510886400000*ep^5+ 18919560052256680892619793091/13007861808396948016390142115840000\ 00*ep^6+1837260829293009111931992803283793807/4265636903959271010\ 3395799677063331840000000*ep^7; Fill mncT11(-5,-6) = 1/5194373184*ep+191897/267406331512320*ep^2+ 1446714588313/674537819366457446400*ep^3+215051810762400977/ 34725206940985229340672000*ep^4+143219674905396635366459/ 7963184455706732792402903040000*ep^5+3664181241363054081390820657/ 69375262978117056087414091284480000*ep^6+177966222728730279808041\ 8636146022281/11375031743891389360905546580550221824000000*ep^7; Fill mncT11(-6,-5) = 1/5194373184*ep+191897/267406331512320*ep^2+ 1446714588313/674537819366457446400*ep^3+215051810762400977/ 34725206940985229340672000*ep^4+143219674905396635366459/ 7963184455706732792402903040000*ep^5+3664181241363054081390820657/ 69375262978117056087414091284480000*ep^6+177966222728730279808041\ 8636146022281/11375031743891389360905546580550221824000000*ep^7; Fill mncT11(-5,-5) = 1/1198701504*ep+188597/61709153425920*ep^2+ 1414297457413/155662573699951718400*ep^3+209999513637846077/ 8013509294073514463232000*ep^4+139865314491088852726559/ 1837657951316938336708362240000*ep^5+6647323484389435682887060543/ 29732255562050166894606039121920000*ep^6+173883104118860105960254\ 7272062669781/2625007325513397544824356903203897344000000*ep^7; Fill mncT11(-4,-8) = 1/8116208100*ep+360523/731189187729000*ep^2+ 796068085381/526982671380044880000*ep^3+833476858455336443/ 189903475458512972956800000*ep^4+655469297865210512759/ 51415188892734586727808000000*ep^5+10134991322589328335836007761/ 270997121008269750341461294080000000*ep^6+98355590443149206961818\ 8404831674773/8886743549915147938207458266054860800000000*ep^7; Fill mncT11(-8,-4) = 1/8116208100*ep+360523/731189187729000*ep^2+ 796068085381/526982671380044880000*ep^3+833476858455336443/ 189903475458512972956800000*ep^4+655469297865210512759/ 51415188892734586727808000000*ep^5+10134991322589328335836007761/ 270997121008269750341461294080000000*ep^6+98355590443149206961818\ 8404831674773/8886743549915147938207458266054860800000000*ep^7; Fill mncT11(-4,-7) = 1/2782699920*ep+1393901/1002773743171200*ep^2 +304084749167/72271909217834726400*ep^3+1586927072279333909/ 130219526028694610027520000*ep^4+150985799237567250731777/ 4265991672700035424501555200000*ep^5+ 135124214381258453218269622313/1300786180839694801639014211584000\ 000*ep^6+1874171797982341457035236348912116299/609376700565610144\ 3342257096723333120000000*ep^7; Fill mncT11(-7,-4) = 1/2782699920*ep+1393901/1002773743171200*ep^2 +304084749167/72271909217834726400*ep^3+1586927072279333909/ 130219526028694610027520000*ep^4+150985799237567250731777/ 4265991672700035424501555200000*ep^5+ 135124214381258453218269622313/1300786180839694801639014211584000\ 000*ep^6+1874171797982341457035236348912116299/609376700565610144\ 3342257096723333120000000*ep^7; Fill mncT11(-4,-6) = 1/856215360*ep+1349351/308545767129600*ep^2+ 291188566637/22237510528564531200*ep^3+1515740361197464559/ 40067546470367572316160000*ep^4+144212179045019487639827/ 1312612822369241669077401600000*ep^5+ 1678633602897853571733189658319/520314472335877920655605684633600\ 0000*ep^6+1791738060295659142300101846969693649/18750052325095696\ 74874540645145640960000000*ep^7; Fill mncT11(-6,-4) = 1/856215360*ep+1349351/308545767129600*ep^2+ 291188566637/22237510528564531200*ep^3+1515740361197464559/ 40067546470367572316160000*ep^4+144212179045019487639827/ 1312612822369241669077401600000*ep^5+ 1678633602897853571733189658319/520314472335877920655605684633600\ 0000*ep^6+1791738060295659142300101846969693649/18750052325095696\ 74874540645145640960000000*ep^7; Fill mncT11(-4,-5) = 1/230519520*ep+14411/912857299200*ep^2+ 1659590243/35426166067353600*ep^3+94747430653571/ 701438088133601280000*ep^4+4854449588337788357/ 12373367874676726579200000*ep^5+621220901790108576028619/ 538983904620918209789952000000*ep^6+ 357173405156394104240164438111/1045844368526429694276422860800000\ 00*ep^7; Fill mncT11(-5,-4) = 1/230519520*ep+14411/912857299200*ep^2+ 1659590243/35426166067353600*ep^3+94747430653571/ 701438088133601280000*ep^4+4854449588337788357/ 12373367874676726579200000*ep^5+621220901790108576028619/ 538983904620918209789952000000*ep^6+ 357173405156394104240164438111/1045844368526429694276422860800000\ 00*ep^7; Fill mncT11(-4,-4) = 1/52390800*ep+14123/207467568000*ep^2+ 8083406479/40257006894720000*ep^3+92187701272739/ 159417747303091200000*ep^4+51962531752521149719/ 30933419686691816448000000*ep^5+86386337975521771560701/ 17499477422757084733440000000*ep^6+347765762062739900771823711487/ 23769190193782493051736883200000000*ep^7; Fill mncT11(-3,-8) = 1/772972200*ep+150301/27854826199200*ep^2+ 168868919819/10037765169143712000*ep^3+888871287168799997/ 18086045281763140281600000*ep^4+84647389506509613788369/ 592498843430560475625216000000*ep^5+75678498331885455920716466441/ 180664747338846500227640862720000000*ep^6+10485359145727311247729\ 50534042271819/846356528563347422686424596767129600000000*ep^7; Fill mncT11(-8,-3) = 1/772972200*ep+150301/27854826199200*ep^2+ 168868919819/10037765169143712000*ep^3+888871287168799997/ 18086045281763140281600000*ep^4+84647389506509613788369/ 592498843430560475625216000000*ep^5+75678498331885455920716466441/ 180664747338846500227640862720000000*ep^6+10485359145727311247729\ 50534042271819/846356528563347422686424596767129600000000*ep^7; Fill mncT11(-3,-7) = 1/305791200*ep+288403/22038983366400*ep^2+ 318867210773/7941968045915904000*ep^3+1670602400293417319/ 14309838025131275827200000*ep^4+159010088008060294051883/ 468790293703300596099072000000*ep^5+ 1849092981532412209556469279431/185826597262813543091287744512000\ 0000*ep^6+1971857661148485665961584951173733593/66964472589627488\ 3883764516123443200000000*ep^7; Fill mncT11(-7,-3) = 1/305791200*ep+288403/22038983366400*ep^2+ 318867210773/7941968045915904000*ep^3+1670602400293417319/ 14309838025131275827200000*ep^4+159010088008060294051883/ 468790293703300596099072000000*ep^5+ 1849092981532412209556469279431/185826597262813543091287744512000\ 0000*ep^6+1971857661148485665961584951173733593/66964472589627488\ 3883764516123443200000000*ep^7; Fill mncT11(-3,-6) = 1/109771200*ep+21271/608571532800*ep^2+ 1781801717/16869602889216000*ep^3+715217051621027/ 2338126960445337600000*ep^4+5235259582269107603/ 5892079940322250752000000*ep^5+4685852275896291609848267/ 1796613015403060699299840000000*ep^6+ 384601167883485745067965699177/49802112786972842584591564800000000 *ep^7; Fill mncT11(-6,-3) = 1/109771200*ep+21271/608571532800*ep^2+ 1781801717/16869602889216000*ep^3+715217051621027/ 2338126960445337600000*ep^4+5235259582269107603/ 5892079940322250752000000*ep^5+4685852275896291609848267/ 1796613015403060699299840000000*ep^6+ 384601167883485745067965699177/49802112786972842584591564800000000 *ep^7; Fill mncT11(-3,-5) = 1/34927200*ep+2917/27662342400*ep^2+ 1687155977/5367600919296000*ep^3+96432007853561/ 106278498202060800000*ep^4+54350675476108434613/ 20622279791127877632000000*ep^5+90310110885570644784263/ 11666318281838056488960000000*ep^6+363404852513835037002362576557/ 15846126795854995367824588800000000*ep^7; Fill mncT11(-5,-3) = 1/34927200*ep+2917/27662342400*ep^2+ 1687155977/5367600919296000*ep^3+96432007853561/ 106278498202060800000*ep^4+54350675476108434613/ 20622279791127877632000000*ep^5+90310110885570644784263/ 11666318281838056488960000000*ep^6+363404852513835037002362576557/ 15846126795854995367824588800000000*ep^7; Fill mncT11(-3,-4) = 1/9525600*ep+1279/3429216000*ep^2+66497617/ 60491370240000*ep^3+2757573631/871075731456000*ep^4+ 3532802670886561/384144397572096000000*ep^5+3737702779431057319/ 138291983125954560000000*ep^6+195421441099663843167937/ 2439470582341838438400000000*ep^7; Fill mncT11(-4,-3) = 1/9525600*ep+1279/3429216000*ep^2+66497617/ 60491370240000*ep^3+2757573631/871075731456000*ep^4+ 3532802670886561/384144397572096000000*ep^5+3737702779431057319/ 138291983125954560000000*ep^6+195421441099663843167937/ 2439470582341838438400000000*ep^7; Fill mncT11(-3,-3) = 1/2116800*ep+1249/762048000*ep^2+64485187/ 13442526720000*ep^3+13352658713/967861923840000*ep^4+ 3421865471751211/85365421682688000000*ep^5+3621734351382278989/ 30731551805767680000000*ep^6+189415597246205076473707/ 542104573853741875200000000*ep^7; Fill mncT11(-2,-8) = 1/50965200*ep+161719/1836581947200*ep^2+ 188151006599/661830670492992000*ep^3+1003164507265153097/ 1192486502094272985600000*ep^4+95800300057620898687229/ 39065857808608383008256000000*ep^5+ 1112876256769757235367330242353/154855497719011285909406453760000\ 000*ep^6+1184788692157094446800823388558743759/558037271580229069\ 90313709676953600000000*ep^7; Fill mncT11(-8,-2) = 1/50965200*ep+161719/1836581947200*ep^2+ 188151006599/661830670492992000*ep^3+1003164507265153097/ 1192486502094272985600000*ep^4+95800300057620898687229/ 39065857808608383008256000000*ep^5+ 1112876256769757235367330242353/154855497719011285909406453760000\ 000*ep^6+1184788692157094446800823388558743759/558037271580229069\ 90313709676953600000000*ep^7; Fill mncT11(-2,-7) = 1/23522400*ep+23713/130408185600*ep^2+ 2077806107/3614914904832000*ep^3+845919039766877/ 501027205809715200000*ep^4+6204897630191906573/ 1262588558640482304000000*ep^5+5546678770757863413406997/ 384988503300655864135680000000*ep^6+ 454539860281249718990478475447/10671881311494180553841049600000000 *ep^7; Fill mncT11(-7,-2) = 1/23522400*ep+23713/130408185600*ep^2+ 2077806107/3614914904832000*ep^3+845919039766877/ 501027205809715200000*ep^4+6204897630191906573/ 1262588558640482304000000*ep^5+5546678770757863413406997/ 384988503300655864135680000000*ep^6+ 454539860281249718990478475447/10671881311494180553841049600000000 *ep^7; Fill mncT11(-2,-6) = 1/9979200*ep+22531/55324684800*ep^2+ 1933272617/1533600262656000*ep^3+781840739076527/ 212556996404121600000*ep^4+63017127138305883733/ 5892079940322250752000000*ep^5+5123905471171712170122167/ 163328455945732790845440000000*ep^6+ 420193454508149711175406035277/4527464798815712962235596800000000 *ep^7; Fill mncT11(-6,-2) = 1/9979200*ep+22531/55324684800*ep^2+ 1933272617/1533600262656000*ep^3+781840739076527/ 212556996404121600000*ep^4+63017127138305883733/ 5892079940322250752000000*ep^5+5123905471171712170122167/ 163328455945732790845440000000*ep^6+ 420193454508149711175406035277/4527464798815712962235596800000000 *ep^7; Fill mncT11(-2,-5) = 1/3810240*ep+1387/1371686400*ep^2+14843729/ 4839309619200*ep^3+77510868451/8710757314560000*ep^4+ 3973230536370181/153657759028838400000*ep^5+85684132319874643/ 1128914147966976000000*ep^6+43853158799966899231649/ 195157646587347075072000000*ep^7; Fill mncT11(-5,-2) = 1/3810240*ep+1387/1371686400*ep^2+14843729/ 4839309619200*ep^3+77510868451/8710757314560000*ep^4+ 3973230536370181/153657759028838400000*ep^5+85684132319874643/ 1128914147966976000000*ep^6+43853158799966899231649/ 195157646587347075072000000*ep^7; Fill mncT11(-2,-4) = 1/1270080*ep+263/91445760*ep^2+69071293/ 8065516032000*ep^3+71796516667/2903585771520000*ep^4+ 3679611959381101/51219253009612800000*ep^5+778261869502398143/ 3687786216692121600000*ep^6+203369558733054060831373/ 325262744312245125120000000*ep^7; Fill mncT11(-4,-2) = 1/1270080*ep+263/91445760*ep^2+69071293/ 8065516032000*ep^3+71796516667/2903585771520000*ep^4+ 3679611959381101/51219253009612800000*ep^5+778261869502398143/ 3687786216692121600000*ep^6+203369558733054060831373/ 325262744312245125120000000*ep^7; Fill mncT11(-2,-3) = 1/352800*ep+209/21168000*ep^2+600599/ 20744640000*ep^3+829559/9957427200*ep^4+885842668847/ 3659354496000000*ep^5+22321886458789/31365895680000000*ep^6+ 1361900103769062359/645510133094400000000*ep^7; Fill mncT11(-3,-2) = 1/352800*ep+209/21168000*ep^2+600599/ 20744640000*ep^3+829559/9957427200*ep^4+885842668847/ 3659354496000000*ep^5+22321886458789/31365895680000000*ep^6+ 1361900103769062359/645510133094400000000*ep^7; Fill mncT11(-2,-2) = 1/75600*ep+1423/31752000*ep^2+1737677/ 13335840000*ep^3+419308739/1120210560000*ep^4+2559077496341/ 2352442176000000*ep^5+3161233117752343/988025713920000000*ep^6+ 3937635832092958157/414970799846400000000*ep^7; Fill mncT11(-1,-8) = 1/1960200*ep+883/339604650*ep^2+1358204921/ 150621454368000*ep^3+575756174560451/20876133575404800000*ep^4+ 4277034176108223539/52607856610020096000000*ep^5+ 3827937530958130075085771/16041187637527327672320000000*ep^6+ 313050081169471626786334204201/444661721312257523076710400000000* ep^7; Fill mncT11(-8,-1) = 1/1960200*ep+883/339604650*ep^2+1358204921/ 150621454368000*ep^3+575756174560451/20876133575404800000*ep^4+ 4277034176108223539/52607856610020096000000*ep^5+ 3827937530958130075085771/16041187637527327672320000000*ep^6+ 313050081169471626786334204201/444661721312257523076710400000000* ep^7; Fill mncT11(-1,-7) = 1/1069200*ep+26821/5927644800*ep^2+2509563167/ 164314313856000*ep^3+1051113288674777/22773963900441600000*ep^4+ 85547250110670942883/631294279320241152000000*ep^5+ 6956478334503509781876017/17499477422757084733440000000*ep^6+ 569184542978417914215491136427/485085514158826388810956800000000* ep^7; Fill mncT11(-7,-1) = 1/1069200*ep+26821/5927644800*ep^2+2509563167/ 164314313856000*ep^3+1051113288674777/22773963900441600000*ep^4+ 85547250110670942883/631294279320241152000000*ep^5+ 6956478334503509781876017/17499477422757084733440000000*ep^6+ 569184542978417914215491136427/485085514158826388810956800000000* ep^7; Fill mncT11(-1,-6) = 1/544320*ep+11509/1371686400*ep^2+19034489/ 691329945600*ep^3+716347562557/8710757314560000*ep^4+ 5281738326720781/21951108432691200000*ep^5+39036195740730511549/ 55316793250381824000000*ep^6+58109824256412122144009/ 27879663798192439296000000*ep^7; Fill mncT11(-6,-1) = 1/544320*ep+11509/1371686400*ep^2+19034489/ 691329945600*ep^3+716347562557/8710757314560000*ep^4+ 5281738326720781/21951108432691200000*ep^5+39036195740730511549/ 55316793250381824000000*ep^6+58109824256412122144009/ 27879663798192439296000000*ep^7; Fill mncT11(-1,-5) = 1/254016*ep+1543/91445760*ep^2+86761273/ 1613103206400*ep^3+92265059071/580717154304000*ep^4+ 189942040247089/409754024076902400*ep^5+5014304370159902143/ 3687786216692121600000*ep^6+261460572078799671326953/ 65052548862449025024000000*ep^7; Fill mncT11(-5,-1) = 1/254016*ep+1543/91445760*ep^2+86761273/ 1613103206400*ep^3+92265059071/580717154304000*ep^4+ 189942040247089/409754024076902400*ep^5+5014304370159902143/ 3687786216692121600000*ep^6+261460572078799671326953/ 65052548862449025024000000*ep^7; Fill mncT11(-1,-4) = 1/105840*ep+1/26460*ep^2+364073/3111696000* ep^3+63883327/186701760000*ep^4+546850483751/548903174400000*ep^5 +19258090719143/6586838092800000*ep^6+837584694032895143/ 96826519964160000000*ep^7; Fill mncT11(-4,-1) = 1/105840*ep+1/26460*ep^2+364073/3111696000* ep^3+63883327/186701760000*ep^4+546850483751/548903174400000*ep^5 +19258090719143/6586838092800000*ep^6+837584694032895143/ 96826519964160000000*ep^7; Fill mncT11(-1,-3) = 1/37800*ep+521/5292000*ep^2+658699/2222640000 *ep^3+32087681/37340352000*ep^4+979800893347/392073696000000*ep^5 +1208665006225361/164670952320000000*ep^6+1503447266945644459/ 69161799974400000000*ep^7; Fill mncT11(-3,-1) = 1/37800*ep+521/5292000*ep^2+658699/2222640000 *ep^3+32087681/37340352000*ep^4+979800893347/392073696000000*ep^5 +1208665006225361/164670952320000000*ep^6+1503447266945644459/ 69161799974400000000*ep^7; Fill mncT11(-1,-2) = 1/10800*ep+209/648000*ep^2+36853/38880000* ep^3+10193/3732480*ep^4+1111096141/139968000000*ep^5+195991088969/ 8398080000000*ep^6+34860186732373/503884800000000*ep^7; Fill mncT11(-2,-1) = 1/10800*ep+209/648000*ep^2+36853/38880000* ep^3+10193/3732480*ep^4+1111096141/139968000000*ep^5+195991088969/ 8398080000000*ep^6+34860186732373/503884800000000*ep^7; Fill mncT11(-1,-1) = 1/2160*ep+203/129600*ep^2+35419/7776000*ep^3+ 6106487/466560000*ep^4+1064948251/27993600000*ep^5+187940075423/ 1679616000000*ep^6+33442709792179/100776960000000*ep^7; Fill mncT11(0,-8) = 1/29700*ep+2249/10291050*ep^2+2048476601/ 2282143248000*ep^3+965314069745651/316305054172800000*ep^4+ 83495836467212093569/8767976101670016000000*ep^5+ 6965024104385737765519931/243048297538292843520000000*ep^6+ 574010066066119795280458274041/6737298807761477622374400000000* ep^7; Fill mncT11(-8,0) = 1/29700*ep+2249/10291050*ep^2+2048476601/ 2282143248000*ep^3+965314069745651/316305054172800000*ep^4+ 83495836467212093569/8767976101670016000000*ep^5+ 6965024104385737765519931/243048297538292843520000000*ep^6+ 574010066066119795280458274041/6737298807761477622374400000000* ep^7; Fill mncT11(0,-7) = 1/19440*ep+15559/48988800*ep^2+31214459/ 24690355200*ep^3+1312535576407/311098475520000*ep^4+ 10218197153238631/783968158310400000*ep^5+77134330152372553399/ 1975599758942208000000*ep^6+115393714103453748849179/ 995702278506872832000000*ep^7; Fill mncT11(-7,0) = 1/19440*ep+15559/48988800*ep^2+31214459/ 24690355200*ep^3+1312535576407/311098475520000*ep^4+ 10218197153238631/783968158310400000*ep^5+77134330152372553399/ 1975599758942208000000*ep^6+115393714103453748849179/ 995702278506872832000000*ep^7; Fill mncT11(0,-6) = 1/12096*ep+14701/30481920*ep^2+142493173/ 76814438400*ep^3+1175022146197/193572384768000*ep^4+ 362229416590381/19512096384614400*ep^5+68061134974297348501/ 1229262072230707200000*ep^6+508402963121761393950853/ 3097740422021382144000000*ep^7; Fill mncT11(-6,0) = 1/12096*ep+14701/30481920*ep^2+142493173/ 76814438400*ep^3+1175022146197/193572384768000*ep^4+ 362229416590381/19512096384614400*ep^5+68061134974297348501/ 1229262072230707200000*ep^6+508402963121761393950853/ 3097740422021382144000000*ep^7; Fill mncT11(0,-5) = 1/7056*ep+41/52920*ep^2+198451/69148800*ep^3+ 38167517/4148928000*ep^4+13589568749/487913932800*ep^5+ 8650017846943/104552985600000*ep^6+527115477891659141/ 2151700443648000000*ep^7; Fill mncT11(-5,0) = 1/7056*ep+41/52920*ep^2+198451/69148800*ep^3+ 38167517/4148928000*ep^4+13589568749/487913932800*ep^5+ 8650017846943/104552985600000*ep^6+527115477891659141/ 2151700443648000000*ep^7; Fill mncT11(0,-4) = 1/3780*ep+71/52920*ep^2+529973/111132000*ep^3+ 698334139/46675440000*ep^4+879324400001/19603684800000*ep^5+ 218622273742511/1646709523200000*ep^6+1358483429560750793/ 3458089998720000000*ep^7; Fill mncT11(-4,0) = 1/3780*ep+71/52920*ep^2+529973/111132000*ep^3+ 698334139/46675440000*ep^4+879324400001/19603684800000*ep^5+ 218622273742511/1646709523200000*ep^6+1358483429560750793/ 3458089998720000000*ep^7; Fill mncT11(0,-3) = 1/1800*ep+31/12000*ep^2+18961/2160000*ep^3+ 698329/25920000*ep^4+622296697/7776000000*ep^5+110191900613/ 466560000000*ep^6+19558523287201/27993600000000*ep^7; Fill mncT11(-3,0) = 1/1800*ep+31/12000*ep^2+18961/2160000*ep^3+ 698329/25920000*ep^4+622296697/7776000000*ep^5+110191900613/ 466560000000*ep^6+19558523287201/27993600000000*ep^7; Fill mncT11(0,-2) = 1/720*ep+253/43200*ep^2+49169/2592000*ep^3+ 8860237/155520000*ep^4+1566217001/9331200000*ep^5+276770669173/ 559872000000*ep^6+49138941510929/33592320000000*ep^7; Fill mncT11(-2,0) = 1/720*ep+253/43200*ep^2+49169/2592000*ep^3+ 8860237/155520000*ep^4+1566217001/9331200000*ep^5+276770669173/ 559872000000*ep^6+49138941510929/33592320000000*ep^7; Fill mncT11(0,-1) = 1/216*ep+23/1296*ep^2+427/7776*ep^3+7547/46656 *ep^4+132547/279936*ep^5+2339771/1679616*ep^6+41570131/10077696* ep^7; Fill mncT11(-1,0) = 1/216*ep+23/1296*ep^2+427/7776*ep^3+7547/46656 *ep^4+132547/279936*ep^5+2339771/1679616*ep^6+41570131/10077696* ep^7; Fill mncT11(0,0) = 1/36*ep+23/216*ep^2+427/1296*ep^3+7547/7776* ep^4+132547/46656*ep^5+2339771/279936*ep^6+41570131/1679616*ep^7; Fill mncT11(1,-8) = -1/270-4931/170100*ep-24204353/171460800*ep^2- 1199308158541/2160406080000*ep^3-10593142957406893/ 5444223321600000*ep^4-87601909964814213757/13719442770432000000* ep^5-139430577405710132920073/6914599156297728000000*ep^6- 5425512861197318518137913501/87123949369351372800000000*ep^7; Fill mncT11(-8,1) = -1/270-4931/170100*ep-24204353/171460800*ep^2- 1199308158541/2160406080000*ep^3-10593142957406893/ 5444223321600000*ep^4-87601909964814213757/13719442770432000000* ep^5-139430577405710132920073/6914599156297728000000*ep^6- 5425512861197318518137913501/87123949369351372800000000*ep^7; Fill mncT11(1,-7) = -1/216-18751/544320*ep-222671023/1371686400* ep^2-2159550047647/3456649728000*ep^3-752356527272071/ 348430292582400*ep^4-154159374372723844351/21951108432691200000* ep^5-1220039527127802654733903/55316793250381824000000*ep^6- 9463038102945407598806180767/139398318990962196480000000*ep^7; Fill mncT11(-7,1) = -1/216-18751/544320*ep-222671023/1371686400* ep^2-2159550047647/3456649728000*ep^3-752356527272071/ 348430292582400*ep^4-154159374372723844351/21951108432691200000* ep^5-1220039527127802654733903/55316793250381824000000*ep^6- 9463038102945407598806180767/139398318990962196480000000*ep^7; Fill mncT11(1,-6) = -1/168-491/11760*ep-2809459/14817600*ep^2- 164251523/230496000*ep^3-9394096633/3872332800*ep^4- 953372760821057/121978483200000*ep^5-1250270740263597691/ 51230962944000000*ep^6-1610693889694637207129/ 21517004436480000000*ep^7; Fill mncT11(-6,1) = -1/168-491/11760*ep-2809459/14817600*ep^2- 164251523/230496000*ep^3-9394096633/3872332800*ep^4- 953372760821057/121978483200000*ep^5-1250270740263597691/ 51230962944000000*ep^6-1610693889694637207129/ 21517004436480000000*ep^7; Fill mncT11(1,-5) = -1/126-1373/26460*ep-278951/1234800*ep^2- 428917169/518616000*ep^3-24133350683/8712748800*ep^4- 808252068538657/91483862400000*ep^5-1053587516876855291/ 38423222208000000*ep^6-1352518102181747848729/ 16137753327360000000*ep^7; Fill mncT11(-5,1) = -1/126-1373/26460*ep-278951/1234800*ep^2- 428917169/518616000*ep^3-24133350683/8712748800*ep^4- 808252068538657/91483862400000*ep^5-1053587516876855291/ 38423222208000000*ep^6-1352518102181747848729/ 16137753327360000000*ep^7; Fill mncT11(1,-4) = -1/90-1/15*ep-14927/54000*ep^2-3184063/3240000 *ep^3-628561811/194400000*ep^4-23803415627/2332800000*ep^5- 22024582363307/699840000000*ep^6-4024461634922383/41990400000000* ep^7; Fill mncT11(-4,1) = -1/90-1/15*ep-14927/54000*ep^2-3184063/3240000 *ep^3-628561811/194400000*ep^4-23803415627/2332800000*ep^5- 22024582363307/699840000000*ep^6-4024461634922383/41990400000000* ep^7; Fill mncT11(1,-3) = -1/60-323/3600*ep-8431/24000*ep^2-5219689/ 4320000*ep^3-1010598197/259200000*ep^4-189197104081/15552000000* ep^5-34783698574013/933120000000*ep^6-6332409222568249/ 55987200000000*ep^7; Fill mncT11(-3,1) = -1/60-323/3600*ep-8431/24000*ep^2-5219689/ 4320000*ep^3-1010598197/259200000*ep^4-189197104081/15552000000* ep^5-34783698574013/933120000000*ep^6-6332409222568249/ 55987200000000*ep^7; Fill mncT11(1,-2) = -1/36-7/54*ep-307/648*ep^2-6101/3888*ep^3- 115633/23328*ep^4-2138849/139968*ep^5-39057337/839808*ep^6- 708382241/5038848*ep^7; Fill mncT11(-2,1) = -1/36-7/54*ep-307/648*ep^2-6101/3888*ep^3- 115633/23328*ep^4-2138849/139968*ep^5-39057337/839808*ep^6- 708382241/5038848*ep^7; Fill mncT11(1,-1) = -1/18-23/108*ep-463/648*ep^2-8807/3888*ep^3- 163039/23328*ep^4-2977367/139968*ep^5-53992975/839808*ep^6- 975607943/5038848*ep^7; Fill mncT11(-1,1) = -1/18-23/108*ep-463/648*ep^2-8807/3888*ep^3- 163039/23328*ep^4-2977367/139968*ep^5-53992975/839808*ep^6- 975607943/5038848*ep^7; Fill mncT11(1,0) = -1/6-1/2*ep-3/2*ep^2-9/2*ep^3-27/2*ep^4-81/2* ep^5-243/2*ep^6-729/2*ep^7; Fill mncT11(0,1) = -1/6-1/2*ep-3/2*ep^2-9/2*ep^3-27/2*ep^4-81/2* ep^5-243/2*ep^6-729/2*ep^7; Fill mncT11(1,1) = 1/3*ep^-1; Fill mncT11(2,-8) = -3839/3780-1/6*ep^-1-83871589/19051200*ep- 772653885181/48009024000*ep^2-1306441047725561/24196548096000* ep^3-52580102782184042413/304876506009600000*ep^4- 411732124407365775137629/768288795144192000000*ep^5- 3173783661667402627681940941/1936087763763363840000000*ep^6- 4850060478976064687720112145241/975788232936735375360000000*ep^7; Fill mncT11(-8,2) = -3839/3780-1/6*ep^-1-83871589/19051200*ep- 772653885181/48009024000*ep^2-1306441047725561/24196548096000* ep^3-52580102782184042413/304876506009600000*ep^4- 411732124407365775137629/768288795144192000000*ep^5- 3173783661667402627681940941/1936087763763363840000000*ep^6- 4850060478976064687720112145241/975788232936735375360000000*ep^7; Fill mncT11(2,-7) = -787/840-1/6*ep^-1-1036877/264600*ep-172751867/ 12348000*ep^2-48010779661/1037232000*ep^3-319289947098091/ 2178187200000*ep^4-414599694912409673/914838624000000*ep^5- 531070861108946060947/384232222080000000*ep^6- 135032742336298251066541/32275506654720000000*ep^7; Fill mncT11(-7,2) = -787/840-1/6*ep^-1-1036877/264600*ep-172751867/ 12348000*ep^2-48010779661/1037232000*ep^3-319289947098091/ 2178187200000*ep^4-414599694912409673/914838624000000*ep^5- 531070861108946060947/384232222080000000*ep^6- 135032742336298251066541/32275506654720000000*ep^7; Fill mncT11(2,-6) = -89/105-1/6*ep^-1-1805329/529200*ep-97649753/ 8232000*ep^2-2971437071/76832000*ep^3-528741075088307/ 4356374400000*ep^4-683016375960851521/1829677248000000*ep^5- 872258913447312423419/768464444160000000*ep^6- 221411121236727187937477/64551013309440000000*ep^7; Fill mncT11(-6,2) = -89/105-1/6*ep^-1-1805329/529200*ep-97649753/ 8232000*ep^2-2971437071/76832000*ep^3-528741075088307/ 4356374400000*ep^4-683016375960851521/1829677248000000*ep^5- 872258913447312423419/768464444160000000*ep^6- 221411121236727187937477/64551013309440000000*ep^7; Fill mncT11(2,-5) = -67/90-1/6*ep^-1-10367/3600*ep-699593/72000* ep^2-26955169/864000*ep^3-25135874401/259200000*ep^4- 4614144435149/15552000000*ep^5-839231033240713/933120000000*ep^6- 30381632427334609/11197440000000*ep^7; Fill mncT11(-5,2) = -67/90-1/6*ep^-1-10367/3600*ep-699593/72000* ep^2-26955169/864000*ep^3-25135874401/259200000*ep^4- 4614144435149/15552000000*ep^5-839231033240713/933120000000*ep^6- 30381632427334609/11197440000000*ep^7; Fill mncT11(2,-4) = -28/45-1/6*ep^-1-2789/1200*ep-1633991/216000* ep^2-310028443/12960000*ep^3-57229724639/777600000*ep^4- 10450629954547/46656000000*ep^5-1894940170552631/2799360000000* ep^6-342442849059573163/167961600000000*ep^7; Fill mncT11(-4,2) = -28/45-1/6*ep^-1-2789/1200*ep-1633991/216000* ep^2-310028443/12960000*ep^3-57229724639/777600000*ep^4- 10450629954547/46656000000*ep^5-1894940170552631/2799360000000* ep^6-342442849059573163/167961600000000*ep^7; Fill mncT11(2,-3) = -17/36-1/6*ep^-1-7/4*ep-293/54*ep^2-10979/648* ep^3-200341/3888*ep^4-3640769/23328*ep^5-65810161/139968*ep^6- 1187486729/839808*ep^7; Fill mncT11(-3,2) = -17/36-1/6*ep^-1-7/4*ep-293/54*ep^2-10979/648* ep^3-200341/3888*ep^4-3640769/23328*ep^5-65810161/139968*ep^6- 1187486729/839808*ep^7; Fill mncT11(2,-2) = -5/18-1/6*ep^-1-127/108*ep-2159/648*ep^2-40519/ 3888*ep^3-727775/23328*ep^4-13187287/139968*ep^5-237569039/839808 *ep^6-4281716359/5038848*ep^7; Fill mncT11(-2,2) = -5/18-1/6*ep^-1-127/108*ep-2159/648*ep^2-40519/ 3888*ep^3-727775/23328*ep^4-13187287/139968*ep^5-237569039/839808 *ep^6-4281716359/5038848*ep^7; Fill mncT11(2,-1) = -1/6*ep^-1-2/3*ep-4/3*ep^2-14/3*ep^3-40/3*ep^4 -122/3*ep^5-364/3*ep^6-1094/3*ep^7; Fill mncT11(-1,2) = -1/6*ep^-1-2/3*ep-4/3*ep^2-14/3*ep^3-40/3*ep^4 -122/3*ep^5-364/3*ep^6-1094/3*ep^7; Fill mncT11(2,0) = 1/2-1/6*ep^-1-1/2*ep+1/2*ep^2-1/2*ep^3+1/2*ep^4 -1/2*ep^5+1/2*ep^6-1/2*ep^7; Fill mncT11(0,2) = 1/2-1/6*ep^-1-1/2*ep+1/2*ep^2-1/2*ep^3+1/2*ep^4 -1/2*ep^5+1/2*ep^6-1/2*ep^7; Fill mncT11(2,1) = 5/2-1/2*ep^-1-5/2*ep+5/2*ep^2-5/2*ep^3+5/2*ep^4 -5/2*ep^5+5/2*ep^6-5/2*ep^7; Fill mncT11(1,2) = 5/2-1/2*ep^-1-5/2*ep+5/2*ep^2-5/2*ep^3+5/2*ep^4 -5/2*ep^5+5/2*ep^6-5/2*ep^7; Fill mncT11(2,2) = 3-ep^-1+7*ep-17*ep^2+27*ep^3-37*ep^4+47*ep^5-57 *ep^6+67*ep^7; Fill mncT11(3,-8) = -6991/420-6*ep^-1-4816541/58800*ep-8674715311/ 37044000*ep^2-23857480841/28812000*ep^3-291416189974057/ 121010400000*ep^4-1171062263344943863/152473104000000*ep^5- 1449204733803539756657/64038703680000000*ep^6- 374048828780255946226151/5379251109120000000*ep^7; Fill mncT11(-8,3) = -6991/420-6*ep^-1-4816541/58800*ep-8674715311/ 37044000*ep^2-23857480841/28812000*ep^3-291416189974057/ 121010400000*ep^4-1171062263344943863/152473104000000*ep^5- 1449204733803539756657/64038703680000000*ep^6- 374048828780255946226151/5379251109120000000*ep^7; Fill mncT11(3,-7) = -307/30-14/3*ep^-1-530267/9450*ep-21307399/ 147000*ep^2-147442983/274400*ep^3-116422857579691/77792400000* ep^4-159350616455597633/32672808000000*ep^5-193591000737979121227/ 13722579360000000*ep^6-10093517791961835098129/230539333248000000 *ep^7; Fill mncT11(-7,3) = -307/30-14/3*ep^-1-530267/9450*ep-21307399/ 147000*ep^2-147442983/274400*ep^3-116422857579691/77792400000* ep^4-159350616455597633/32672808000000*ep^5-193591000737979121227/ 13722579360000000*ep^6-10093517791961835098129/230539333248000000 *ep^7; Fill mncT11(3,-6) = -53/10-7/2*ep^-1-132547/3600*ep-5766373/72000* ep^2-94663519/288000*ep^3-73265935007/86400000*ep^4- 14991092330803/5184000000*ep^5-2515671623642231/311040000000*ep^6 -95624307205185839/3732480000000*ep^7; Fill mncT11(-6,3) = -53/10-7/2*ep^-1-132547/3600*ep-5766373/72000* ep^2-94663519/288000*ep^3-73265935007/86400000*ep^4- 14991092330803/5184000000*ep^5-2515671623642231/311040000000*ep^6 -95624307205185839/3732480000000*ep^7; Fill mncT11(3,-5) = -7/4-5/2*ep^-1-16687/720*ep-515657/14400*ep^2- 54125287/288000*ep^3-7162742651/17280000*ep^4-1628632766623/ 1036800000*ep^5-254670926769779/62208000000*ep^6- 50707254621683767/3732480000000*ep^7; Fill mncT11(-5,3) = -7/4-5/2*ep^-1-16687/720*ep-515657/14400*ep^2- 54125287/288000*ep^3-7162742651/17280000*ep^4-1628632766623/ 1036800000*ep^5-254670926769779/62208000000*ep^6- 50707254621683767/3732480000000*ep^7; Fill mncT11(3,-4) = 19/36-5/3*ep^-1-57/4*ep-223/27*ep^2-8182/81* ep^3-582373/3888*ep^4-2237203/2916*ep^5-233894107/139968*ep^6- 2643306313/419904*ep^7; Fill mncT11(-4,3) = 19/36-5/3*ep^-1-57/4*ep-223/27*ep^2-8182/81* ep^3-582373/3888*ep^4-2237203/2916*ep^5-233894107/139968*ep^6- 2643306313/419904*ep^7; Fill mncT11(3,-3) = 5/3-ep^-1-9*ep+58/9*ep^2-5849/108*ep^3-3065/ 324*ep^4-1329407/3888*ep^5-286607/729*ep^6-343402469/139968*ep^7; Fill mncT11(-3,3) = 5/3-ep^-1-9*ep+58/9*ep^2-5849/108*ep^3-3065/ 324*ep^4-1329407/3888*ep^5-286607/729*ep^6-343402469/139968*ep^7; Fill mncT11(3,-2) = 11/6-1/2*ep^-1-25/4*ep+97/8*ep^2-545/16*ep^3+ 1537/32*ep^4-10625/64*ep^5+16897/128*ep^6-223745/256*ep^7; Fill mncT11(-2,3) = 11/6-1/2*ep^-1-25/4*ep+97/8*ep^2-545/16*ep^3+ 1537/32*ep^4-10625/64*ep^5+16897/128*ep^6-223745/256*ep^7; Fill mncT11(3,-1) = 5/4-1/6*ep^-1-37/8*ep+197/16*ep^2-901/32*ep^3+ 3845/64*ep^4-15877/128*ep^5+64517/256*ep^6-260101/512*ep^7; Fill mncT11(-1,3) = 5/4-1/6*ep^-1-37/8*ep+197/16*ep^2-901/32*ep^3+ 3845/64*ep^4-15877/128*ep^5+64517/256*ep^6-260101/512*ep^7; Fill mncT11(3,0) = 1/4-19/8*ep+151/16*ep^2-799/32*ep^3+3631/64* ep^4-15439/128*ep^5+63631/256*ep^6-258319/512*ep^7; Fill mncT11(0,3) = 1/4-19/8*ep+151/16*ep^2-799/32*ep^3+3631/64* ep^4-15439/128*ep^5+63631/256*ep^6-258319/512*ep^7; Fill mncT11(3,1) = -1+9/2*ep-1/4*ep^2-111/8*ep^3+719/16*ep^4-3471/ 32*ep^5+15119/64*ep^6-62991/128*ep^7; Fill mncT11(1,3) = -1+9/2*ep-1/4*ep^2-111/8*ep^3+719/16*ep^4-3471/ 32*ep^5+15119/64*ep^6-62991/128*ep^7; Fill mncT11(3,2) = -ep^-1+37/2*ep-27/4*ep^2-209/8*ep^3+1305/16* ep^4-5513/32*ep^5+21033/64*ep^6-78569/128*ep^7; Fill mncT11(2,3) = -ep^-1+37/2*ep-27/4*ep^2-209/8*ep^3+1305/16* ep^4-5513/32*ep^5+21033/64*ep^6-78569/128*ep^7; Fill mncT11(3,3) = -3/2-3*ep^-1+225/4*ep+57/8*ep^2-1635/16*ep^3+ 6957/32*ep^4-24375/64*ep^5+84417/128*ep^6-303435/256*ep^7; Fill mncT11(4,-8) = -1291/45-56*ep^-1-10874173/18900*ep-484407481/ 661500*ep^2-260856291173/55566000*ep^3-1081118063539513/ 116688600000*ep^4-1889361247859984239/49009212000000*ep^5- 1954999100188494603421/20583869040000000*ep^6- 568413483267458052199763/1729044999360000000*ep^7; Fill mncT11(-8,4) = -1291/45-56*ep^-1-10874173/18900*ep-484407481/ 661500*ep^2-260856291173/55566000*ep^3-1081118063539513/ 116688600000*ep^4-1889361247859984239/49009212000000*ep^5- 1954999100188494603421/20583869040000000*ep^6- 568413483267458052199763/1729044999360000000*ep^7; Fill mncT11(4,-7) = 623/90-98/3*ep^-1-291343/900*ep-4993543/27000* ep^2-787940357/324000*ep^3-333572686261/97200000*ep^4- 108498672269569/5832000000*ep^5-13722984703550413/349920000000* ep^6-637969638611974517/4199040000000*ep^7; Fill mncT11(-7,4) = 623/90-98/3*ep^-1-291343/900*ep-4993543/27000* ep^2-787940357/324000*ep^3-333572686261/97200000*ep^4- 108498672269569/5832000000*ep^5-13722984703550413/349920000000* ep^6-637969638611974517/4199040000000*ep^7; Fill mncT11(4,-6) = 19-35/2*ep^-1-127459/720*ep+746551/14400*ep^2- 117119053/96000*ep^3-12251704507/17280000*ep^4-2900897885237/ 345600000*ep^5-770934015046003/62208000000*ep^6-78799903998314173/ 1244160000000*ep^7; Fill mncT11(-6,4) = 19-35/2*ep^-1-127459/720*ep+746551/14400*ep^2- 117119053/96000*ep^3-12251704507/17280000*ep^4-2900897885237/ 345600000*ep^5-770934015046003/62208000000*ep^6-78799903998314173/ 1244160000000*ep^7; Fill mncT11(4,-5) = 655/36-25/3*ep^-1-3409/36*ep+3161/27*ep^2- 49598/81*ep^3+1147271/3888*ep^4-2667887/729*ep^5-220885207/139968 *ep^6-10056989321/419904*ep^7; Fill mncT11(-5,4) = 655/36-25/3*ep^-1-3409/36*ep+3161/27*ep^2- 49598/81*ep^3+1147271/3888*ep^4-2667887/729*ep^5-220885207/139968 *ep^6-10056989321/419904*ep^7; Fill mncT11(4,-4) = 73/6-10/3*ep^-1-883/18*ep+926/9*ep^2-25784/81* ep^3+103267/216*ep^4-4865789/2916*ep^5+34821455/23328*ep^6- 1863177427/209952*ep^7; Fill mncT11(-4,4) = 73/6-10/3*ep^-1-883/18*ep+926/9*ep^2-25784/81* ep^3+103267/216*ep^4-4865789/2916*ep^5+34821455/23328*ep^6- 1863177427/209952*ep^7; Fill mncT11(4,-3) = 35/6-ep^-1-139/6*ep+578/9*ep^2-18179/108*ep^3+ 233215/648*ep^4-3293897/3888*ep^5+36539731/23328*ep^6-535996649/ 139968*ep^7; Fill mncT11(-3,4) = 35/6-ep^-1-139/6*ep+578/9*ep^2-18179/108*ep^3+ 233215/648*ep^4-3293897/3888*ep^5+36539731/23328*ep^6-535996649/ 139968*ep^7; Fill mncT11(4,-2) = 5/3-1/6*ep^-1-299/36*ep+6187/216*ep^2-103013/ 1296*ep^3+1504375/7776*ep^4-20294069/46656*ep^5+260965567/279936* ep^6-3260748413/1679616*ep^7; Fill mncT11(-2,4) = 5/3-1/6*ep^-1-299/36*ep+6187/216*ep^2-103013/ 1296*ep^3+1504375/7776*ep^4-20294069/46656*ep^5+260965567/279936* ep^6-3260748413/1679616*ep^7; Fill mncT11(4,-1) = 1/12-77/72*ep+2683/432*ep^2-60473/2592*ep^3+ 1053499/15552*ep^4-15759953/93312*ep^5+215432755/559872*ep^6- 2790990617/3359232*ep^7; Fill mncT11(-1,4) = 1/12-77/72*ep+2683/432*ep^2-60473/2592*ep^3+ 1053499/15552*ep^4-15759953/93312*ep^5+215432755/559872*ep^6- 2790990617/3359232*ep^7; Fill mncT11(4,0) = 1/6*ep-47/36*ep^2+697/216*ep^3-2123/1296*ep^4- 85583/7776*ep^5+2252461/46656*ep^6-38135879/279936*ep^7; Fill mncT11(0,4) = 1/6*ep-47/36*ep^2+697/216*ep^3-2123/1296*ep^4- 85583/7776*ep^5+2252461/46656*ep^6-38135879/279936*ep^7; Fill mncT11(4,1) = -1/3+1/9*ep+331/54*ep^2-1391/324*ep^3-14147/ 1944*ep^4+345409/11664*ep^5-4709795/69984*ep^6+55418761/419904* ep^7; Fill mncT11(1,4) = -1/3+1/9*ep+331/54*ep^2-1391/324*ep^3-14147/ 1944*ep^4+345409/11664*ep^5-4709795/69984*ep^6+55418761/419904* ep^7; Fill mncT11(4,2) = -5/3-ep^-1+343/18*ep+2581/108*ep^2-30839/648* ep^3+175645/3888*ep^4-564887/23328*ep^5-1098779/139968*ep^6+ 38696401/839808*ep^7; Fill mncT11(2,4) = -5/3-ep^-1+343/18*ep+2581/108*ep^2-30839/648* ep^3+175645/3888*ep^4-564887/23328*ep^5-1098779/139968*ep^6+ 38696401/839808*ep^7; Fill mncT11(4,3) = -15/2-6*ep^-1+449/4*ep+2363/24*ep^2-33247/144* ep^3+257735/864*ep^4-1975171/5184*ep^5+17900243/31104*ep^6- 191229847/186624*ep^7; Fill mncT11(3,4) = -15/2-6*ep^-1+449/4*ep+2363/24*ep^2-33247/144* ep^3+257735/864*ep^4-1975171/5184*ep^5+17900243/31104*ep^6- 191229847/186624*ep^7; Fill mncT11(4,4) = -91/3-20*ep^-1+6647/18*ep+46397/108*ep^2-463897/ 648*ep^3+2998481/3888*ep^4-21706837/23328*ep^5+205258085/139968* ep^6-2312350753/839808*ep^7; Fill mncT11(5,-8) = 26033/90-196*ep^-1-658391/300*ep+41294437/ 27000*ep^2-2478006287/162000*ep^3-173842724591/97200000*ep^4- 146807470332821/1458000000*ep^5-36573768691387733/349920000000* ep^6-1512492006695207957/2099520000000*ep^7; Fill mncT11(-8,5) = 26033/90-196*ep^-1-658391/300*ep+41294437/ 27000*ep^2-2478006287/162000*ep^3-173842724591/97200000*ep^4- 146807470332821/1458000000*ep^5-36573768691387733/349920000000* ep^6-1512492006695207957/2099520000000*ep^7; Fill mncT11(5,-7) = 3521/18-245/3*ep^-1-185323/180*ep+1332743/900* ep^2-1512792019/216000*ep^3+33111480169/6480000*ep^4- 32341360501901/777600000*ep^5-5141021701901/972000000*ep^6- 81637337143546031/311040000000*ep^7; Fill mncT11(-7,5) = 3521/18-245/3*ep^-1-185323/180*ep+1332743/900* ep^2-1512792019/216000*ep^3+33111480169/6480000*ep^4- 32341360501901/777600000*ep^5-5141021701901/972000000*ep^6- 81637337143546031/311040000000*ep^7; Fill mncT11(5,-6) = 1865/18-175/6*ep^-1-65051/144*ep+552703/576* ep^2-21762941/6912*ep^3+393823703/82944*ep^4-17125296709/995328* ep^5+60917131717/3981312*ep^6-494196329879/5308416*ep^7; Fill mncT11(-6,5) = 1865/18-175/6*ep^-1-65051/144*ep+552703/576* ep^2-21762941/6912*ep^3+393823703/82944*ep^4-17125296709/995328* ep^5+60917131717/3981312*ep^6-494196329879/5308416*ep^7; Fill mncT11(5,-5) = 85/2-25/3*ep^-1-12743/72*ep+414557/864*ep^2- 14012279/10368*ep^3+347829317/124416*ep^4-10748954831/1492992* ep^5+218035899629/17915904*ep^6-7397831047367/214990848*ep^7; Fill mncT11(-5,5) = 85/2-25/3*ep^-1-12743/72*ep+414557/864*ep^2- 14012279/10368*ep^3+347829317/124416*ep^4-10748954831/1492992* ep^5+218035899629/17915904*ep^6-7397831047367/214990848*ep^7; Fill mncT11(5,-4) = 37/3-5/3*ep^-1-449/8*ep+157679/864*ep^2- 1769167/3456*ep^3+153246119/124416*ep^4-476712269/165888*ep^5+ 107805251999/17915904*ep^6-950069524127/71663616*ep^7; Fill mncT11(-4,5) = 37/3-5/3*ep^-1-449/8*ep+157679/864*ep^2- 1769167/3456*ep^3+153246119/124416*ep^4-476712269/165888*ep^5+ 107805251999/17915904*ep^6-950069524127/71663616*ep^7; Fill mncT11(5,-3) = 47/24-1/6*ep^-1-1103/96*ep+159143/3456*ep^2- 2004967/13824*ep^3+193964447/497664*ep^4-625422901/663552*ep^5+ 152356033943/71663616*ep^6-1313581148567/286654464*ep^7; Fill mncT11(-3,5) = 47/24-1/6*ep^-1-1103/96*ep+159143/3456*ep^2- 2004967/13824*ep^3+193964447/497664*ep^4-625422901/663552*ep^5+ 152356033943/71663616*ep^6-1313581148567/286654464*ep^7; Fill mncT11(5,-2) = 1/24-179/288*ep+14881/3456*ep^2-800819/41472* ep^3+32595961/497664*ep^4-1102859819/5971968*ep^5+33006397441/ 71663616*ep^6-911083571459/859963392*ep^7; Fill mncT11(-2,5) = 1/24-179/288*ep+14881/3456*ep^2-800819/41472* ep^3+32595961/497664*ep^4-1102859819/5971968*ep^5+33006397441/ 71663616*ep^6-911083571459/859963392*ep^7; Fill mncT11(5,-1) = 1/36*ep-43/144*ep^2+6583/5184*ep^3-55583/20736 *ep^4+1116007/746496*ep^5+10469203/995328*ep^6-5431004801/ 107495424*ep^7; Fill mncT11(-1,5) = 1/36*ep-43/144*ep^2+6583/5184*ep^3-55583/20736 *ep^4+1116007/746496*ep^5+10469203/995328*ep^6-5431004801/ 107495424*ep^7; Fill mncT11(5,0) = 1/36*ep-13/144*ep^2-2147/5184*ep^3+36787/20736* ep^4-1243883/746496*ep^5-2437447/995328*ep^6+1404562429/107495424 *ep^7; Fill mncT11(0,5) = 1/36*ep-13/144*ep^2-2147/5184*ep^3+36787/20736* ep^4-1243883/746496*ep^5-2437447/995328*ep^6+1404562429/107495424 *ep^7; Fill mncT11(5,1) = -1/6-7/24*ep+2759/864*ep^2+4931/1152*ep^3- 1045681/124416*ep^4+3278833/497664*ep^5-20515321/17915904*ep^6- 386453767/71663616*ep^7; Fill mncT11(1,5) = -1/6-7/24*ep+2759/864*ep^2+4931/1152*ep^3- 1045681/124416*ep^4+3278833/497664*ep^5-20515321/17915904*ep^6- 386453767/71663616*ep^7; Fill mncT11(5,2) = -17/6-ep^-1+1249/72*ep+40177/864*ep^2-251579/ 10368*ep^3-1938527/124416*ep^4+60671869/1492992*ep^5-855956663/ 17915904*ep^6+9143585701/214990848*ep^7; Fill mncT11(2,5) = -17/6-ep^-1+1249/72*ep+40177/864*ep^2-251579/ 10368*ep^3-1938527/124416*ep^4+60671869/1492992*ep^5-855956663/ 17915904*ep^6+9143585701/214990848*ep^7; Fill mncT11(5,3) = -58/3-10*ep^-1+6497/36*ep+126887/432*ep^2- 1603513/5184*ep^3+13345907/62208*ep^4-160892713/746496*ep^5+ 3612243227/8957952*ep^6-95442409873/107495424*ep^7; Fill mncT11(3,5) = -58/3-10*ep^-1+6497/36*ep+126887/432*ep^2- 1603513/5184*ep^3+13345907/62208*ep^4-160892713/746496*ep^5+ 3612243227/8957952*ep^6-95442409873/107495424*ep^7; Fill mncT11(5,4) = -95-50*ep^-1+32401/36*ep+206587/144*ep^2- 7720667/5184*ep^3+23993707/20736*ep^4-1006400483/746496*ep^5+ 7334173219/2985984*ep^6-545527270331/107495424*ep^7; Fill mncT11(4,5) = -95-50*ep^-1+32401/36*ep+206587/144*ep^2- 7720667/5184*ep^3+23993707/20736*ep^4-1006400483/746496*ep^5+ 7334173219/2985984*ep^6-545527270331/107495424*ep^7; Fill mncT11(5,5) = -1455/4-175*ep^-1+446189/144*ep+1074551/192* ep^2-92479423/20736*ep^3+81031771/27648*ep^4-11094823867/2985984* ep^5+29873212447/3981312*ep^6-6859777105399/429981696*ep^7; Fill mncT11(6,-8) = 12145/12-294*ep^-1-4174379/900*ep+176094527/ 18000*ep^2-754908527/22500*ep^3+1075802534507/21600000*ep^4- 24406914159883/129600000*ep^5+12465404623521277/77760000000*ep^6- 402721416254461259/388800000000*ep^7; Fill mncT11(-8,6) = 12145/12-294*ep^-1-4174379/900*ep+176094527/ 18000*ep^2-754908527/22500*ep^3+1075802534507/21600000*ep^4- 24406914159883/129600000*ep^5+12465404623521277/77760000000*ep^6- 402721416254461259/388800000000*ep^7; Fill mncT11(6,-7) = 13657/36-245/3*ep^-1-73762/45*ep+15492607/3600 *ep^2-2757288709/216000*ep^3+328656304883/12960000*ep^4- 54578667444221/777600000*ep^5+1692668947405009/15552000000*ep^6- 36121178488586887/103680000000*ep^7; Fill mncT11(-7,6) = 13657/36-245/3*ep^-1-73762/45*ep+15492607/3600 *ep^2-2757288709/216000*ep^3+328656304883/12960000*ep^4- 54578667444221/777600000*ep^5+1692668947405009/15552000000*ep^6- 36121178488586887/103680000000*ep^7; Fill mncT11(6,-6) = 1313/12-35/2*ep^-1-117053/240*ep+7250177/4800* ep^2-1244217599/288000*ep^3+174112515313/17280000*ep^4- 25434137985631/1036800000*ep^5+1012756439751899/20736000000*ep^6- 16074214414018157/138240000000*ep^7; Fill mncT11(-6,6) = 1313/12-35/2*ep^-1-117053/240*ep+7250177/4800* ep^2-1244217599/288000*ep^3+174112515313/17280000*ep^4- 25434137985631/1036800000*ep^5+1012756439751899/20736000000*ep^6- 16074214414018157/138240000000*ep^7; Fill mncT11(6,-5) = 259/12-5/2*ep^-1-26179/240*ep+5674733/14400* ep^2-1023344371/864000*ep^3+158892462077/51840000*ep^4- 22936759409299/3110400000*ep^5+3042627631277213/186624000000*ep^6 -399326105658810931/11197440000000*ep^7; Fill mncT11(-5,6) = 259/12-5/2*ep^-1-26179/240*ep+5674733/14400* ep^2-1023344371/864000*ep^3+158892462077/51840000*ep^4- 22936759409299/3110400000*ep^5+3042627631277213/186624000000*ep^6 -399326105658810931/11197440000000*ep^7; Fill mncT11(6,-4) = 131/60-1/6*ep^-1-17149/1200*ep+13715489/216000 *ep^2-946662581/4320000*ep^3+494298681041/777600000*ep^4- 8467731288263/5184000000*ep^5+10798394340460529/2799360000000* ep^6-481236493268482741/55987200000000*ep^7; Fill mncT11(-4,6) = 131/60-1/6*ep^-1-17149/1200*ep+13715489/216000 *ep^2-946662581/4320000*ep^3+494298681041/777600000*ep^4- 8467731288263/5184000000*ep^5+10798394340460529/2799360000000* ep^6-481236493268482741/55987200000000*ep^7; Fill mncT11(6,-3) = 1/40-329/800*ep+50941/16000*ep^2-46047001/ 2880000*ep^3+3470853629/57600000*ep^4-1929124683769/10368000000* ep^5+103566048500701/207360000000*ep^6-45365675285478361/ 37324800000000*ep^7; Fill mncT11(-3,6) = 1/40-329/800*ep+50941/16000*ep^2-46047001/ 2880000*ep^3+3470853629/57600000*ep^4-1929124683769/10368000000* ep^5+103566048500701/207360000000*ep^6-45365675285478361/ 37324800000000*ep^7; Fill mncT11(6,-2) = 1/120*ep-757/7200*ep^2+242359/432000*ep^3- 43044433/25920000*ep^4+4074665071/1555200000*ep^5+64968741023/ 93312000000*ep^6-108829254720401/5598720000000*ep^7; Fill mncT11(-2,6) = 1/120*ep-757/7200*ep^2+242359/432000*ep^3- 43044433/25920000*ep^4+4074665071/1555200000*ep^5+64968741023/ 93312000000*ep^6-108829254720401/5598720000000*ep^7; Fill mncT11(6,-1) = 1/360*ep-119/7200*ep^2-12041/1296000*ep^3+ 6722789/25920000*ep^4-3468808529/4665600000*ep^5+23647758247/ 31104000000*ep^6+19683853281199/16796160000000*ep^7; Fill mncT11(-1,6) = 1/360*ep-119/7200*ep^2-12041/1296000*ep^3+ 6722789/25920000*ep^4-3468808529/4665600000*ep^5+23647758247/ 31104000000*ep^6+19683853281199/16796160000000*ep^7; Fill mncT11(6,0) = 1/120*ep-19/2400*ep^2-79541/432000*ep^3+676763/ 2880000*ep^4+1092053971/1555200000*ep^5-52408037759/31104000000* ep^6+10219512343699/5598720000000*ep^7; Fill mncT11(0,6) = 1/120*ep-19/2400*ep^2-79541/432000*ep^3+676763/ 2880000*ep^4+1092053971/1555200000*ep^5-52408037759/31104000000* ep^6+10219512343699/5598720000000*ep^7; Fill mncT11(6,1) = -1/10-47/150*ep+30253/18000*ep^2+5658839/ 1080000*ep^3-104471693/64800000*ep^4-13141480309/3888000000*ep^5+ 1174076123083/233280000000*ep^6-54572001367621/13996800000000* ep^7; Fill mncT11(1,6) = -1/10-47/150*ep+30253/18000*ep^2+5658839/ 1080000*ep^3-104471693/64800000*ep^4-13141480309/3888000000*ep^5+ 1174076123083/233280000000*ep^6-54572001367621/13996800000000* ep^7; Fill mncT11(6,2) = -56/15-ep^-1+26869/1800*ep+6747947/108000*ep^2+ 99246511/6480000*ep^3-16902461257/388800000*ep^4+700982831959/ 23328000000*ep^5-12305260936633/1399680000000*ep^6- 535819089463529/83980800000000*ep^7; Fill mncT11(2,6) = -56/15-ep^-1+26869/1800*ep+6747947/108000*ep^2+ 99246511/6480000*ep^3-16902461257/388800000*ep^4+700982831959/ 23328000000*ep^5-12305260936633/1399680000000*ep^6- 535819089463529/83980800000000*ep^7; Fill mncT11(6,3) = -38-15*ep^-1+30613/120*ep+4364099/7200*ep^2- 100543913/432000*ep^3-73359169/25920000*ep^4-101532208097/ 1555200000*ep^5+33525779969039/93312000000*ep^6-5149565210706593/ 5598720000000*ep^7; Fill mncT11(3,6) = -38-15*ep^-1+30613/120*ep+4364099/7200*ep^2- 100543913/432000*ep^3-73359169/25920000*ep^4-101532208097/ 1555200000*ep^5+33525779969039/93312000000*ep^6-5149565210706593/ 5598720000000*ep^7; Fill mncT11(6,4) = -241-105*ep^-1+218491/120*ep+27182593/7200*ep^2 -912704891/432000*ep^3+25055078317/25920000*ep^4-2377547244179/ 1555200000*ep^5+347585143595773/93312000000*ep^6- 46309884382133651/5598720000000*ep^7; Fill mncT11(4,6) = -241-105*ep^-1+218491/120*ep+27182593/7200*ep^2 -912704891/432000*ep^3+25055078317/25920000*ep^4-2377547244179/ 1555200000*ep^5+347585143595773/93312000000*ep^6- 46309884382133651/5598720000000*ep^7; Fill mncT11(6,5) = -4557/4-490*ep^-1+6086473/720*ep+28575877/1600* ep^2-23703069623/2592000*ep^3+75358338539/17280000*ep^4- 69528709761587/9331200000*ep^5+1101157511428991/62208000000*ep^6- 1298727147157127903/33592320000000*ep^7; Fill mncT11(5,6) = -4557/4-490*ep^-1+6086473/720*ep+28575877/1600* ep^2-23703069623/2592000*ep^3+75358338539/17280000*ep^4- 69528709761587/9331200000*ep^5+1101157511428991/62208000000*ep^6- 1298727147157127903/33592320000000*ep^7; Fill mncT11(6,6) = -8673/2-1764*ep^-1+5986513/200*ep+821439983/ 12000*ep^2-18129375839/720000*ep^3+421716164459/43200000*ep^4- 2440992111923/103680000*ep^5+9252141041206079/155520000000*ep^6- 1211544487594382471/9331200000000*ep^7; Fill mncT11(7,-8) = 98063/90-196*ep^-1-26243563/5400*ep+2332957667/ 162000*ep^2-5123488153/121500*ep^3+27621039307147/291600000*ep^4- 4221805594184107/17496000000*ep^5+474300455169272641/ 1049760000000*ep^6-14757028574240292827/12597120000000*ep^7; Fill mncT11(-8,7) = 98063/90-196*ep^-1-26243563/5400*ep+2332957667/ 162000*ep^2-5123488153/121500*ep^3+27621039307147/291600000*ep^4- 4221805594184107/17496000000*ep^5+474300455169272641/ 1049760000000*ep^6-14757028574240292827/12597120000000*ep^7; Fill mncT11(7,-7) = 21203/90-98/3*ep^-1-3032479/2700*ep+154111003/ 40500*ep^2-10969956613/972000*ep^3+8228658359237/291600000*ep^4- 1202103406721687/17496000000*ep^5+154192124520223601/ 1049760000000*ep^6-4196814000717200131/12597120000000*ep^7; Fill mncT11(-7,7) = 21203/90-98/3*ep^-1-3032479/2700*ep+154111003/ 40500*ep^2-10969956613/972000*ep^3+8228658359237/291600000*ep^4- 1202103406721687/17496000000*ep^5+154192124520223601/ 1049760000000*ep^6-4196814000717200131/12597120000000*ep^7; Fill mncT11(7,-6) = 2027/60-7/2*ep^-1-74183/400*ep+5800583/8000* ep^2-222102029/96000*ep^3+546926396573/86400000*ep^4- 81787562480723/5184000000*ep^5+11265197676233629/311040000000* ep^6-299404614589014359/3732480000000*ep^7; Fill mncT11(-6,7) = 2027/60-7/2*ep^-1-74183/400*ep+5800583/8000* ep^2-222102029/96000*ep^3+546926396573/86400000*ep^4- 81787562480723/5184000000*ep^5+11265197676233629/311040000000* ep^6-299404614589014359/3732480000000*ep^7; Fill mncT11(7,-5) = 71/30-1/6*ep^-1-60467/3600*ep+17415031/216000* ep^2-773765929/2592000*ep^3+715830606667/777600000*ep^4- 116118457957877/46656000000*ep^5+17131960859897851/2799360000000* ep^6-472433327521893937/33592320000000*ep^7; Fill mncT11(-5,7) = 71/30-1/6*ep^-1-60467/3600*ep+17415031/216000* ep^2-773765929/2592000*ep^3+715830606667/777600000*ep^4- 116118457957877/46656000000*ep^5+17131960859897851/2799360000000* ep^6-472433327521893937/33592320000000*ep^7; Fill mncT11(7,-4) = 1/60-53/180*ep+266561/108000*ep^2-87124181/ 6480000*ep^3+21293362823/388800000*ep^4-6769202801/37324800*ep^5+ 723258947576351/1399680000000*ep^6-110841505566771761/ 83980800000000*ep^7; Fill mncT11(-4,7) = 1/60-53/180*ep+266561/108000*ep^2-87124181/ 6480000*ep^3+21293362823/388800000*ep^4-6769202801/37324800*ep^5+ 723258947576351/1399680000000*ep^6-110841505566771761/ 83980800000000*ep^7; Fill mncT11(7,-3) = 1/300*ep-841/18000*ep^2+309163/1080000*ep^3- 13185257/12960000*ep^4+8539596691/3888000000*ep^5-439115151421/ 233280000000*ep^6-96752480786477/13996800000000*ep^7; Fill mncT11(-3,7) = 1/300*ep-841/18000*ep^2+309163/1080000*ep^3- 13185257/12960000*ep^4+8539596691/3888000000*ep^5-439115151421/ 233280000000*ep^6-96752480786477/13996800000000*ep^7; Fill mncT11(7,-2) = 1/1800*ep-461/108000*ep^2+3287/720000*ep^3+ 3937531/77760000*ep^4-5571523609/23328000000*ep^5+221518409053/ 466560000000*ep^6-20634516706457/83980800000000*ep^7; Fill mncT11(-2,7) = 1/1800*ep-461/108000*ep^2+3287/720000*ep^3+ 3937531/77760000*ep^4-5571523609/23328000000*ep^5+221518409053/ 466560000000*ep^6-20634516706457/83980800000000*ep^7; Fill mncT11(7,-1) = 1/1800*ep-211/108000*ep^2-62167/6480000*ep^3+ 3518981/77760000*ep^4-169501453/7776000000*ep^5-84425699197/ 466560000000*ep^6+41751262596793/83980800000000*ep^7; Fill mncT11(-1,7) = 1/1800*ep-211/108000*ep^2-62167/6480000*ep^3+ 3518981/77760000*ep^4-169501453/7776000000*ep^5-84425699197/ 466560000000*ep^6+41751262596793/83980800000000*ep^7; Fill mncT11(7,0) = 1/300*ep+17/9000*ep^2-14077/180000*ep^3-119341/ 6480000*ep^4+813955783/1944000000*ep^5-8975470091/38880000000* ep^6-2030905198801/6998400000000*ep^7; Fill mncT11(0,7) = 1/300*ep+17/9000*ep^2-14077/180000*ep^3-119341/ 6480000*ep^4+813955783/1944000000*ep^5-8975470091/38880000000* ep^6-2030905198801/6998400000000*ep^7; Fill mncT11(7,1) = -1/15-5/18*ep+8173/9000*ep^2+7556441/1620000* ep^3+241319777/97200000*ep^4-1397739257/388800000*ep^5+ 341765431129/349920000000*ep^6+23165545647721/20995200000000*ep^7 ; Fill mncT11(1,7) = -1/15-5/18*ep+8173/9000*ep^2+7556441/1620000* ep^3+241319777/97200000*ep^4-1397739257/388800000*ep^5+ 341765431129/349920000000*ep^6+23165545647721/20995200000000*ep^7 ; Fill mncT11(7,2) = -67/15-ep^-1+7363/600*ep+7963583/108000*ep^2+ 77642911/1296000*ep^3-4851581503/129600000*ep^4-72804350141/ 23328000000*ep^5+24000342333043/1399680000000*ep^6-28550061328657/ 1866240000000*ep^7; Fill mncT11(2,7) = -67/15-ep^-1+7363/600*ep+7963583/108000*ep^2+ 77642911/1296000*ep^3-4851581503/129600000*ep^4-72804350141/ 23328000000*ep^5+24000342333043/1399680000000*ep^6-28550061328657/ 1866240000000*ep^7; Fill mncT11(7,3) = -643/10-21*ep^-1+198433/600*ep+37491071/36000* ep^2+40354283/432000*ep^3-31200286513/129600000*ep^4-456002246177/ 7776000000*ep^5+210439603174991/466560000000*ep^6- 1136065422254153/1119744000000*ep^7; Fill mncT11(3,7) = -643/10-21*ep^-1+198433/600*ep+37491071/36000* ep^2+40354283/432000*ep^3-31200286513/129600000*ep^4-456002246177/ 7776000000*ep^5+210439603174991/466560000000*ep^6- 1136065422254153/1119744000000*ep^7; Fill mncT11(7,4) = -5243/10-196*ep^-1+2917037/900*ep+150586423/ 18000*ep^2-973581653/648000*ep^3-2685625673/21600000*ep^4- 21233987539753/11664000000*ep^5+1324797774949133/233280000000* ep^6-844350269541817/67184640000*ep^7; Fill mncT11(4,7) = -5243/10-196*ep^-1+2917037/900*ep+150586423/ 18000*ep^2-973581653/648000*ep^3-2685625673/21600000*ep^4- 21233987539753/11664000000*ep^5+1324797774949133/233280000000* ep^6-844350269541817/67184640000*ep^7; Fill mncT11(7,5) = -15239/5-1176*ep^-1+1961923/100*ep+871210943/ 18000*ep^2-2501501699/216000*ep^3+57388478537/21600000*ep^4- 52691121964811/3888000000*ep^5+8591095585149103/233280000000*ep^6 -8328702766626289/103680000000*ep^7; Fill mncT11(5,7) = -15239/5-1176*ep^-1+1961923/100*ep+871210943/ 18000*ep^2-2501501699/216000*ep^3+57388478537/21600000*ep^4- 52691121964811/3888000000*ep^5+8591095585149103/233280000000*ep^6 -8328702766626289/103680000000*ep^7; Fill mncT11(7,6) = -139503/10-5292*ep^-1+17533043/200*ep+886911423/ 4000*ep^2-30367486541/720000*ep^3+82520804861/8640000*ep^4- 17712342624601/288000000*ep^5+25507322702791853/155520000000*ep^6 -3311712591116545669/9331200000000*ep^7; Fill mncT11(6,7) = -139503/10-5292*ep^-1+17533043/200*ep+886911423/ 4000*ep^2-30367486541/720000*ep^3+82520804861/8640000*ep^4- 17712342624601/288000000*ep^5+25507322702791853/155520000000*ep^6 -3311712591116545669/9331200000000*ep^7; Fill mncT11(7,7) = -532091/10-19404*ep^-1+63271401/200*ep+ 3391764741/4000*ep^2-160369010221/2160000*ep^3+45079119479/ 8640000*ep^4-562005021127483/2592000000*ep^5+268746705312681253/ 466560000000*ep^6-11508329156302093783/9331200000000*ep^7; Fill mncT11(8,-8) = 20249/45-56*ep^-1-43068923/18900*ep+ 32810440429/3969000*ep^2-265610909422/10418625*ep^3+ 23461666142006621/350065800000*ep^4-24379987062051806747/ 147027636000000*ep^5+22836410068908536036567/61751607120000000* ep^6-4305488729800044306714619/5187134998080000000*ep^7; Fill mncT11(-8,8) = 20249/45-56*ep^-1-43068923/18900*ep+ 32810440429/3969000*ep^2-265610909422/10418625*ep^3+ 23461666142006621/350065800000*ep^4-24379987062051806747/ 147027636000000*ep^5+22836410068908536036567/61751607120000000* ep^6-4305488729800044306714619/5187134998080000000*ep^7; Fill mncT11(8,-7) = 491/10-14/3*ep^-1-302713/1050*ep+176468161/ 147000*ep^2-16592841833/4116000*ep^3+898433660368249/77792400000* ep^4-108072502130577617/3630312000000*ep^5+967194562085407308593/ 13722579360000000*ep^6-813662716600772292101/5123096294400000* ep^7; Fill mncT11(-7,8) = 491/10-14/3*ep^-1-302713/1050*ep+176468161/ 147000*ep^2-16592841833/4116000*ep^3+898433660368249/77792400000* ep^4-108072502130577617/3630312000000*ep^5+967194562085407308593/ 13722579360000000*ep^6-813662716600772292101/5123096294400000* ep^7; Fill mncT11(8,-6) = 353/140-1/6*ep^-1-373727/19600*ep+800940667/ 8232000*ep^2-29289691863/76832000*ep^3+5385992171933273/ 4356374400000*ep^4-709521618026979929/203297472000000*ep^5+ 6833762723520913208521/768464444160000000*ep^6- 150757075568387293531733/7172334812160000000*ep^7; Fill mncT11(-6,8) = 353/140-1/6*ep^-1-373727/19600*ep+800940667/ 8232000*ep^2-29289691863/76832000*ep^3+5385992171933273/ 4356374400000*ep^4-709521618026979929/203297472000000*ep^5+ 6833762723520913208521/768464444160000000*ep^6- 150757075568387293531733/7172334812160000000*ep^7; Fill mncT11(8,-5) = 1/84-1961/8820*ep+14678609/7408800*ep^2- 35755774219/3111696000*ep^3+13000149370291/261382464000*ep^4- 95609558172939007/548903174400000*ep^5+120195630373405828679/ 230539333248000000*ep^6-134415276233199852507199/ 96826519964160000000*ep^7; Fill mncT11(-5,8) = 1/84-1961/8820*ep+14678609/7408800*ep^2- 35755774219/3111696000*ep^3+13000149370291/261382464000*ep^4- 95609558172939007/548903174400000*ep^5+120195630373405828679/ 230539333248000000*ep^6-134415276233199852507199/ 96826519964160000000*ep^7; Fill mncT11(8,-4) = 1/630*ep-53/2205*ep^2+9018689/55566000*ep^3- 5067714581/7779240000*ep^4+16436907354443/9801842400000*ep^5- 218843576050951/91483862400000*ep^6-2671654201579155901/ 1729044999360000000*ep^7; Fill mncT11(-4,8) = 1/630*ep-53/2205*ep^2+9018689/55566000*ep^3- 5067714581/7779240000*ep^4+16436907354443/9801842400000*ep^5- 218843576050951/91483862400000*ep^6-2671654201579155901/ 1729044999360000000*ep^7; Fill mncT11(8,-3) = 1/6300*ep-1259/882000*ep^2+3355417/1111320000* ep^3+367419121/31116960000*ep^4-16828556763959/196036848000000* ep^5+2152128929086807/9148386240000000*ep^6-10462605856183560743/ 34580899987200000000*ep^7; Fill mncT11(-3,8) = 1/6300*ep-1259/882000*ep^2+3355417/1111320000* ep^3+367419121/31116960000*ep^4-16828556763959/196036848000000* ep^5+2152128929086807/9148386240000000*ep^6-10462605856183560743/ 34580899987200000000*ep^7; Fill mncT11(8,-2) = 1/12600*ep-2167/5292000*ep^2-1838653/ 2222640000*ep^3+1565353577/186701760000*ep^4-1969039700503/ 130691232000000*ep^5-729345944607409/54890317440000000*ep^6+ 7413277433082680587/69161799974400000000*ep^7; Fill mncT11(-2,8) = 1/12600*ep-2167/5292000*ep^2-1838653/ 2222640000*ep^3+1565353577/186701760000*ep^4-1969039700503/ 130691232000000*ep^5-729345944607409/54890317440000000*ep^6+ 7413277433082680587/69161799974400000000*ep^7; Fill mncT11(8,-1) = 1/6300*ep-401/1323000*ep^2-2005079/555660000* ep^3+391786789/46675440000*ep^4+154028720287/10890936000000*ep^5- 807993751954877/13722579360000000*ep^6+959101445341472591/ 17290449993600000000*ep^7; Fill mncT11(-1,8) = 1/6300*ep-401/1323000*ep^2-2005079/555660000* ep^3+391786789/46675440000*ep^4+154028720287/10890936000000*ep^5- 807993751954877/13722579360000000*ep^6+959101445341472591/ 17290449993600000000*ep^7; Fill mncT11(8,0) = 1/630*ep+71/26460*ep^2-2011631/55566000*ep^3- 1183313023/23337720000*ep^4+68567159309/363031200000*ep^5+ 31917173570351/274451587200000*ep^6-447507640173457321/ 1729044999360000000*ep^7; Fill mncT11(0,8) = 1/630*ep+71/26460*ep^2-2011631/55566000*ep^3- 1183313023/23337720000*ep^4+68567159309/363031200000*ep^5+ 31917173570351/274451587200000*ep^6-447507640173457321/ 1729044999360000000*ep^7; Fill mncT11(8,1) = -1/21-524/2205*ep+902201/1852200*ep^2+ 3014463589/777924000*ep^3+1208942969/268912000*ep^4- 57410968341421/45741931200000*ep^5-89198318130860369/ 57634833312000000*ep^6+35454283178666940569/24206629991040000000* ep^7; Fill mncT11(1,8) = -1/21-524/2205*ep+902201/1852200*ep^2+ 3014463589/777924000*ep^3+1208942969/268912000*ep^4- 57410968341421/45741931200000*ep^5-89198318130860369/ 57634833312000000*ep^6+35454283178666940569/24206629991040000000* ep^7; Fill mncT11(8,2) = -178/35-ep^-1+843481/88200*ep+1007464943/ 12348000*ep^2+326316812099/3111696000*ep^3-3321224463607/ 726062400000*ep^4-81840394319902889/2744515872000000*ep^5+ 6705161346535843003/384232222080000000*ep^6-83265247086136802753/ 19365303992832000000*ep^7; Fill mncT11(2,8) = -178/35-ep^-1+843481/88200*ep+1007464943/ 12348000*ep^2+326316812099/3111696000*ep^3-3321224463607/ 726062400000*ep^4-81840394319902889/2744515872000000*ep^5+ 6705161346535843003/384232222080000000*ep^6-83265247086136802753/ 19365303992832000000*ep^7; Fill mncT11(8,3) = -989/10-28*ep^-1+2534177/6300*ep+1411806601/ 882000*ep^2+167103911539/222264000*ep^3-5874194518813/17287200000 *ep^4-44948630072541313/196036848000000*ep^5+16027256233408331171/ 27445158720000000*ep^6-7383101028768693711869/6916179997440000000 *ep^7; Fill mncT11(3,8) = -989/10-28*ep^-1+2534177/6300*ep+1411806601/ 882000*ep^2+167103911539/222264000*ep^3-5874194518813/17287200000 *ep^4-44948630072541313/196036848000000*ep^5+16027256233408331171/ 27445158720000000*ep^6-7383101028768693711869/6916179997440000000 *ep^7; Fill mncT11(8,4) = -5094/5-336*ep^-1+2757512/525*ep+1203147311/ 73500*ep^2+41798420893/18522000*ep^3-23640276255767/12965400000* ep^4-48468564911944603/16336404000000*ep^5+2185161246222520409/ 254121840000000*ep^6-2063922489958384054387/115269666624000000* ep^7; Fill mncT11(4,8) = -5094/5-336*ep^-1+2757512/525*ep+1203147311/ 73500*ep^2+41798420893/18522000*ep^3-23640276255767/12965400000* ep^4-48468564911944603/16336404000000*ep^5+2185161246222520409/ 254121840000000*ep^6-2063922489958384054387/115269666624000000* ep^7; Fill mncT11(8,5) = -7207-2520*ep^-1+16965961/420*ep+4066003721/ 35280*ep^2+88549370213/74088000*ep^3-51961797853837/10372320000* ep^4-112317791140034653/4356374400000*ep^5+15494833043801886461/ 219561269760000*ep^6-344976808798510227569267/2305393332480000000 *ep^7; Fill mncT11(5,8) = -7207-2520*ep^-1+16965961/420*ep+4066003721/ 35280*ep^2+88549370213/74088000*ep^3-51961797853837/10372320000* ep^4-112317791140034653/4356374400000*ep^5+15494833043801886461/ 219561269760000*ep^6-344976808798510227569267/2305393332480000000 *ep^7; Fill mncT11(8,6) = -78521/2-13860*ep^-1+187205549/840*ep+ 221181512717/352800*ep^2-115715020399/29635200*ep^3- 289203450863189/20744640000*ep^4-1302317090554369133/ 8712748800000*ep^5+4344778502835368560909/10978063488000000*ep^6- 3870568918767234673672243/4610786664960000000*ep^7; Fill mncT11(6,8) = -78521/2-13860*ep^-1+187205549/840*ep+ 221181512717/352800*ep^2-115715020399/29635200*ep^3- 289203450863189/20744640000*ep^4-1302317090554369133/ 8712748800000*ep^5+4344778502835368560909/10978063488000000*ep^6- 3870568918767234673672243/4610786664960000000*ep^7; Fill mncT11(8,7) = -878053/5-60984*ep^-1+1021262989/1050*ep+ 1237038993709/441000*ep^2+6809609127931/61740000*ep^3- 366227813869447/5186160000*ep^4-2411323300828693423/3630312000000 *ep^5+23511312201655304300383/13722579360000000*ep^6- 20814476473445595354301463/5763483331200000000*ep^7; Fill mncT11(7,8) = -878053/5-60984*ep^-1+1021262989/1050*ep+ 1237038993709/441000*ep^2+6809609127931/61740000*ep^3- 366227813869447/5186160000*ep^4-2411323300828693423/3630312000000 *ep^5+23511312201655304300383/13722579360000000*ep^6- 20814476473445595354301463/5763483331200000000*ep^7; Fill mncT11(8,8) = -23526338/35-226512*ep^-1+13076140537/3675*ep+ 2369104264591/220500*ep^2+276406698978143/216090000*ep^3- 1272364093560383/3630312000*ep^4-10493366424372887233/ 4235364000000*ep^5+295301905997605649805619/48029027760000000* ep^6-258682055140563395175773579/20172191659200000000*ep^7; Fill mncT11(9,-8) = 7106/105-6*ep^-1-8238597/19600*ep+1445799969/ 784000*ep^2-5966822920451/921984000*ep^3+74672499502543111/ 3872332800000*ep^4-71463768481254800891/1394039808000000*ep^5+ 340687750433250310177463/2732318023680000000*ep^6- 393997388210381339284232201/1377088283934720000000*ep^7; Fill mncT11(-8,9) = 7106/105-6*ep^-1-8238597/19600*ep+1445799969/ 784000*ep^2-5966822920451/921984000*ep^3+74672499502543111/ 3872332800000*ep^4-71463768481254800891/1394039808000000*ep^5+ 340687750433250310177463/2732318023680000000*ep^6- 393997388210381339284232201/1377088283934720000000*ep^7; Fill mncT11(9,-7) = 1487/560-1/6*ep^-1-3316141/156800*ep+ 2135018371/18816000*ep^2-1145643755121/2458624000*ep^3+ 439656207727252847/278807961600000*ep^4-17176088305781997241/ 3717439488000000*ep^5+2390104466596829392173151/ 196726897704960000000*ep^6-108192761678673490454172211/ 3672235423825920000000*ep^7; Fill mncT11(-7,9) = 1487/560-1/6*ep^-1-3316141/156800*ep+ 2135018371/18816000*ep^2-1145643755121/2458624000*ep^3+ 439656207727252847/278807961600000*ep^4-17176088305781997241/ 3717439488000000*ep^5+2390104466596829392173151/ 196726897704960000000*ep^6-108192761678673490454172211/ 3672235423825920000000*ep^7; Fill mncT11(9,-6) = 1/112-5471/31360*ep+14340133/8780800*ep^2- 24494628927/2458624000*ep^3+6237727760217/137682944000*ep^4- 864838163864034797/5204415283200000*ep^5+755622747957539277031/ 1457236279296000000*ep^6-5256078396957425007002941/ 3672235423825920000000*ep^7; Fill mncT11(-6,9) = 1/112-5471/31360*ep+14340133/8780800*ep^2- 24494628927/2458624000*ep^3+6237727760217/137682944000*ep^4- 864838163864034797/5204415283200000*ep^5+755622747957539277031/ 1457236279296000000*ep^6-5256078396957425007002941/ 3672235423825920000000*ep^7; Fill mncT11(9,-5) = 1/1176*ep-13513/987840*ep^2+11790271/118540800 *ep^3-304304606929/697019904000*ep^4+148251273664517/ 117099343872000*ep^5-160773781134778039/70259606323200000*ep^6+ 334720166623102844137/413126485180416000000*ep^7; Fill mncT11(-5,9) = 1/1176*ep-13513/987840*ep^2+11790271/118540800 *ep^3-304304606929/697019904000*ep^4+148251273664517/ 117099343872000*ep^5-160773781134778039/70259606323200000*ep^6+ 334720166623102844137/413126485180416000000*ep^7; Fill mncT11(9,-4) = 1/17640*ep-563/987840*ep^2+2929291/1778112000* ep^3+9789209929/3485099520000*ep^4-303031735346099/ 8782450790400000*ep^5+2773791425625553/23419868774400000*ep^6- 1320828895530164544803/6196897277706240000000*ep^7; Fill mncT11(-4,9) = 1/17640*ep-563/987840*ep^2+2929291/1778112000* ep^3+9789209929/3485099520000*ep^4-303031735346099/ 8782450790400000*ep^5+2773791425625553/23419868774400000*ep^6- 1320828895530164544803/6196897277706240000000*ep^7; Fill mncT11(9,-3) = 1/58800*ep-1793/16464000*ep^2-338951/ 5927040000*ep^3+1515706901/774466560000*ep^4-162680266832969/ 29274835968000000*ep^5+2757706043449421/1170993438720000000*ep^6+ 496466930332909871623/20656324259020800000000*ep^7; Fill mncT11(-3,9) = 1/58800*ep-1793/16464000*ep^2-338951/ 5927040000*ep^3+1515706901/774466560000*ep^4-162680266832969/ 29274835968000000*ep^5+2757706043449421/1170993438720000000*ep^6+ 496466930332909871623/20656324259020800000000*ep^7; Fill mncT11(9,-2) = 1/58800*ep-2929/49392000*ep^2-210289/658560000 *ep^3+10265988779/6970199040000*ep^4-7503545288719/ 29274835968000000*ep^5-9044799887088629/1170993438720000000*ep^6+ 350949289738083675073/20656324259020800000000*ep^7; Fill mncT11(-2,9) = 1/58800*ep-2929/49392000*ep^2-210289/658560000 *ep^3+10265988779/6970199040000*ep^4-7503545288719/ 29274835968000000*ep^5-9044799887088629/1170993438720000000*ep^6+ 350949289738083675073/20656324259020800000000*ep^7; Fill mncT11(9,-1) = 1/17640*ep-121/2963520*ep^2-2512789/1778112000 *ep^3+15188895707/10455298560000*ep^4+2773974518263/ 325275955200000*ep^5-1033024571110093/70259606323200000*ep^6- 31421919356543790563/6196897277706240000000*ep^7; Fill mncT11(-1,9) = 1/17640*ep-121/2963520*ep^2-2512789/1778112000 *ep^3+15188895707/10455298560000*ep^4+2773974518263/ 325275955200000*ep^5-1033024571110093/70259606323200000*ep^6- 31421919356543790563/6196897277706240000000*ep^7; Fill mncT11(9,0) = 1/1176*ep+2167/987840*ep^2-2147569/118540800* ep^3-30974065249/697019904000*ep^4+1001999162669/13011038208000* ep^5+3581601704367667/23419868774400000*ep^6-34186068626069023943/ 413126485180416000000*ep^7; Fill mncT11(0,9) = 1/1176*ep+2167/987840*ep^2-2147569/118540800* ep^3-30974065249/697019904000*ep^4+1001999162669/13011038208000* ep^5+3581601704367667/23419868774400000*ep^6-34186068626069023943/ 413126485180416000000*ep^7; Fill mncT11(9,1) = -1/28-227/1120*ep+4829183/19756800*ep^2+ 17493523283/5531904000*ep^3+2131548126517/398297088000*ep^4+ 1653666696353377/1301103820800000*ep^5-19097172257184410257/ 9836344885248000000*ep^6+122074168517106877909/ 393453795409920000000*ep^7; Fill mncT11(1,9) = -1/28-227/1120*ep+4829183/19756800*ep^2+ 17493523283/5531904000*ep^3+2131548126517/398297088000*ep^4+ 1653666696353377/1301103820800000*ep^5-19097172257184410257/ 9836344885248000000*ep^6+122074168517106877909/ 393453795409920000000*ep^7; Fill mncT11(9,2) = -787/140-ep^-1+2427349/352800*ep+8586842269/ 98784000*ep^2+7377872489189/49787136000*ep^3+373227039620317/ 7744665600000*ep^4-6457306438212806471/175649015808000000*ep^5+ 79981675165471429109/49181724426240000000*ep^6+ 32081761408442005280113/4957517822164992000000*ep^7; Fill mncT11(2,9) = -787/140-ep^-1+2427349/352800*ep+8586842269/ 98784000*ep^2+7377872489189/49787136000*ep^3+373227039620317/ 7744665600000*ep^4-6457306438212806471/175649015808000000*ep^5+ 79981675165471429109/49181724426240000000*ep^6+ 32081761408442005280113/4957517822164992000000*ep^7; Fill mncT11(9,3) = -4983/35-36*ep^-1+4556749/9800*ep+18784846207/ 8232000*ep^2+2508753664829/1382976000*ep^3-667379229950441/ 5808499200000*ep^4-2514512912366469071/4879139328000000*ep^5+ 2656280915572496514727/4098477035520000000*ep^6- 143732931832469920491479/137708828393472000000*ep^7; Fill mncT11(3,9) = -4983/35-36*ep^-1+4556749/9800*ep+18784846207/ 8232000*ep^2+2508753664829/1382976000*ep^3-667379229950441/ 5808499200000*ep^4-2514512912366469071/4879139328000000*ep^5+ 2656280915572496514727/4098477035520000000*ep^6- 143732931832469920491479/137708828393472000000*ep^7; Fill mncT11(9,4) = -12723/7-540*ep^-1+15515811/1960*ep+9610794797/ 329280*ep^2+5562667894709/460992000*ep^3-3161052127785863/ 1161699840000*ep^4-1879943028022084523/325275955200000*ep^5+ 404933737754648802961/32787816284160000*ep^6- 1835348874529481827701257/76504904663040000000*ep^7; Fill mncT11(4,9) = -12723/7-540*ep^-1+15515811/1960*ep+9610794797/ 329280*ep^2+5562667894709/460992000*ep^3-3161052127785863/ 1161699840000*ep^4-1879943028022084523/325275955200000*ep^5+ 404933737754648802961/32787816284160000*ep^6- 1835348874529481827701257/76504904663040000000*ep^7; Fill mncT11(9,5) = -108175/7-4950*ep^-1+178300085/2352*ep+ 489246542041/1975680*ep^2+97721162938507/1659571200*ep^3- 7710456819734617/464679936000*ep^4-20412668993201052719/ 390331146240000*ep^5+123496588778630547368501/983634488524800000* ep^6-211438975552151045258711293/826252970360832000000*ep^7; Fill mncT11(5,9) = -108175/7-4950*ep^-1+178300085/2352*ep+ 489246542041/1975680*ep^2+97721162938507/1659571200*ep^3- 7710456819734617/464679936000*ep^4-20412668993201052719/ 390331146240000*ep^5+123496588778630547368501/983634488524800000* ep^6-211438975552151045258711293/826252970360832000000*ep^7; Fill mncT11(9,6) = -1388409/14-32670*ep^-1+1989252439/3920*ep+ 5225117077949/3292800*ep^2+152407746348439/553190400*ep^3- 57305585470090057/774466560000*ep^4-229501098284133484783/ 650551910400000*ep^5+1411891865700092007460693/ 1639390814208000000*ep^6-2450424234970503006990024797/ 1377088283934720000000*ep^7; Fill mncT11(6,9) = -1388409/14-32670*ep^-1+1989252439/3920*ep+ 5225117077949/3292800*ep^2+152407746348439/553190400*ep^3- 57305585470090057/774466560000*ep^4-229501098284133484783/ 650551910400000*ep^5+1411891865700092007460693/ 1639390814208000000*ep^6-2450424234970503006990024797/ 1377088283934720000000*ep^7; Fill mncT11(9,7) = -18034071/35-169884*ep^-1+25853745639/9800*ep+ 22610051516631/2744000*ep^2+9993527473165147/6914880000*ep^3- 120104412190290221/387233280000*ep^4-3028135184250064568279/ 1626379776000000*ep^5+18401032210837883648981581/ 4098477035520000000*ep^6-10658543327303096530180269319/ 1147573569945600000000*ep^7; Fill mncT11(7,9) = -18034071/35-169884*ep^-1+25853745639/9800*ep+ 22610051516631/2744000*ep^2+9993527473165147/6914880000*ep^3- 120104412190290221/387233280000*ep^4-3028135184250064568279/ 1626379776000000*ep^5+18401032210837883648981581/ 4098477035520000000*ep^6-10658543327303096530180269319/ 1147573569945600000000*ep^7; Fill mncT11(9,8) = -79327391/35-736164*ep^-1+333168518807/29400*ep +894920683392109/24696000*ep^2+54340449286415137/6914880000*ep^3- 1380763360930866373/1161699840000*ep^4-4426483375360648100903/ 542126592000000*ep^5+234844645050630226576022053/ 12295431106560000000*ep^6-58030529563353293671970075563/ 1475451732787200000000*ep^7; Fill mncT11(8,9) = -79327391/35-736164*ep^-1+333168518807/29400*ep +894920683392109/24696000*ep^2+54340449286415137/6914880000*ep^3- 1380763360930866373/1161699840000*ep^4-4426483375360648100903/ 542126592000000*ep^5+234844645050630226576022053/ 12295431106560000000*ep^6-58030529563353293671970075563/ 1475451732787200000000*ep^7; Fill mncT11(9,9) = -487558929/56-2760615*ep^-1+656747596753/15680* ep+366565498288861/2634240*ep^2+144763052912195807/3687936000* ep^3-10749363204853737433/3097866240000*ep^4- 8985300007371764321381/289134182400000*ep^5+ 18200222337635504217270689/262302530273280000*ep^6- 111613599540889650549767600957/786907590819840000000*ep^7; Fill mncT11(10,-8) = 6989/2520-1/6*ep^-1-146518763/6350400*ep+ 295232638079/2286144000*ep^2-4451750569328599/8065516032000*ep^3+ 196908406490397578369/101625502003200000*ep^4- 4379204594379913161341/746636341248000000*ep^5+ 10236513764223790687169654873/645362587921121280000000*ep^6- 12806938990944580367868039026407/325262744312245125120000000*ep^7 ; Fill mncT11(-8,10) = 6989/2520-1/6*ep^-1-146518763/6350400*ep+ 295232638079/2286144000*ep^2-4451750569328599/8065516032000*ep^3+ 196908406490397578369/101625502003200000*ep^4- 4379204594379913161341/746636341248000000*ep^5+ 10236513764223790687169654873/645362587921121280000000*ep^6- 12806938990944580367868039026407/325262744312245125120000000*ep^7 ; Fill mncT11(10,-7) = 1/144-51139/362880*ep+1256884273/914457600* ep^2-2878918703869/329204736000*ep^3+48137423058005717/ 1161434308608000*ep^4-2313503696413041354739/14634072288460800000 *ep^5+2693521505467790656858039/5268266023845888000000*ep^6- 135358184109062587618067443003/92932212660641464320000000*ep^7; Fill mncT11(-7,10) = 1/144-51139/362880*ep+1256884273/914457600* ep^2-2878918703869/329204736000*ep^3+48137423058005717/ 1161434308608000*ep^4-2313503696413041354739/14634072288460800000 *ep^5+2693521505467790656858039/5268266023845888000000*ep^6- 135358184109062587618067443003/92932212660641464320000000*ep^7; Fill mncT11(10,-6) = 1/2016*ep-42589/5080320*ep^2+827883523/ 12802406400*ep^3-9821121950233/32262064128000*ep^4+ 15684812553506807/16260080320512000*ep^5-414041852222253713089/ 204877012038451200000*ep^6+936874582256234061083323/ 516290070336897024000000*ep^7; Fill mncT11(-6,10) = 1/2016*ep-42589/5080320*ep^2+827883523/ 12802406400*ep^3-9821121950233/32262064128000*ep^4+ 15684812553506807/16260080320512000*ep^5-414041852222253713089/ 204877012038451200000*ep^6+936874582256234061083323/ 516290070336897024000000*ep^7; Fill mncT11(10,-5) = 1/42336*ep-27589/106686720*ep^2+34849789/ 38407219200*ep^3+317044794767/677503346688000*ep^4- 5172935456652193/341461686730752000*ep^5+38446533470050730273/ 614631036115353600000*ep^6-1498975664849050643751677/ 10842091477074837504000000*ep^7; Fill mncT11(-5,10) = 1/42336*ep-27589/106686720*ep^2+34849789/ 38407219200*ep^3+317044794767/677503346688000*ep^4- 5172935456652193/341461686730752000*ep^5+38446533470050730273/ 614631036115353600000*ep^6-1498975664849050643751677/ 10842091477074837504000000*ep^7; Fill mncT11(10,-4) = 1/211680*ep-3737/106686720*ep^2+3220069/ 192036096000*ep^3+1849098148199/3387516733440000*ep^4- 17893832061607469/8536542168268800000*ep^5+1508095773584484661/ 614631036115353600000*ep^6+285629151077809434552763/ 54210457385374187520000000*ep^7; Fill mncT11(-4,10) = 1/211680*ep-3737/106686720*ep^2+3220069/ 192036096000*ep^3+1849098148199/3387516733440000*ep^4- 17893832061607469/8536542168268800000*ep^5+1508095773584484661/ 614631036115353600000*ep^6+285629151077809434552763/ 54210457385374187520000000*ep^7; Fill mncT11(10,-3) = 1/352800*ep-11797/889056000*ep^2-12737699/ 320060160000*ep^3+342043914019/1129172244480000*ep^4- 5184963405893189/14227570280448000000*ep^5-795832270659295753/ 731703614423040000000*ep^6+388526327803548434889187/ 90350762308956979200000000*ep^7; Fill mncT11(-3,10) = 1/352800*ep-11797/889056000*ep^2-12737699/ 320060160000*ep^3+342043914019/1129172244480000*ep^4- 5184963405893189/14227570280448000000*ep^5-795832270659295753/ 731703614423040000000*ep^6+388526327803548434889187/ 90350762308956979200000000*ep^7; Fill mncT11(10,-2) = 1/211680*ep-1133/106686720*ep^2-20839151/ 192036096000*ep^3+1005421668539/3387516733440000*ep^4+ 3636684674926231/8536542168268800000*ep^5-1337494490764132847/ 614631036115353600000*ep^6+109384470655156539960223/ 54210457385374187520000000*ep^7; Fill mncT11(-2,10) = 1/211680*ep-1133/106686720*ep^2-20839151/ 192036096000*ep^3+1005421668539/3387516733440000*ep^4+ 3636684674926231/8536542168268800000*ep^5-1337494490764132847/ 614631036115353600000*ep^6+109384470655156539960223/ 54210457385374187520000000*ep^7; Fill mncT11(10,-1) = 1/42336*ep+551/106686720*ep^2-23198471/ 38407219200*ep^3+34557361427/677503346688000*ep^4+ 1401049384583171/341461686730752000*ep^5-241271864192374501/ 87804433730764800000*ep^6-84321218153980069817897/ 10842091477074837504000000*ep^7; Fill mncT11(-1,10) = 1/42336*ep+551/106686720*ep^2-23198471/ 38407219200*ep^3+34557361427/677503346688000*ep^4+ 1401049384583171/341461686730752000*ep^5-241271864192374501/ 87804433730764800000*ep^6-84321218153980069817897/ 10842091477074837504000000*ep^7; Fill mncT11(10,0) = 1/2016*ep+1193/725760*ep^2-123315497/ 12802406400*ep^3-1087179659173/32262064128000*ep^4+60277238568413/ 2322868617216000*ep^5+25111791629474830451/204877012038451200000* ep^6+8925464608965128419903/516290070336897024000000*ep^7; Fill mncT11(0,10) = 1/2016*ep+1193/725760*ep^2-123315497/ 12802406400*ep^3-1087179659173/32262064128000*ep^4+60277238568413/ 2322868617216000*ep^5+25111791629474830451/204877012038451200000* ep^6+8925464608965128419903/516290070336897024000000*ep^7; Fill mncT11(10,1) = -1/36-493/2835*ep+11263261/114307200*ep^2+ 741728374799/288054144000*ep^3+812764988352467/145179288576000* ep^4+6149677687096924787/1829259036057600000*ep^5- 4849610438930985778289/4609732770865152000000*ep^6- 8009486385328024939544341/11616526582580183040000000*ep^7; Fill mncT11(1,10) = -1/36-493/2835*ep+11263261/114307200*ep^2+ 741728374799/288054144000*ep^3+812764988352467/145179288576000* ep^4+6149677687096924787/1829259036057600000*ep^5- 4849610438930985778289/4609732770865152000000*ep^6- 8009486385328024939544341/11616526582580183040000000*ep^7; Fill mncT11(10,2) = -3839/630-ep^-1+13517821/3175200*ep+ 722967654779/8001504000*ep^2+762299414847911/4032758016000*ep^3+ 5863782749601411287/50812751001600000*ep^4-2410867506661744804829/ 128048132524032000000*ep^5-5609463326272112971221361/ 322681293960560640000000*ep^6+1382361582772960749185551247/ 162631372156122562560000000*ep^7; Fill mncT11(2,10) = -3839/630-ep^-1+13517821/3175200*ep+ 722967654779/8001504000*ep^2+762299414847911/4032758016000*ep^3+ 5863782749601411287/50812751001600000*ep^4-2410867506661744804829/ 128048132524032000000*ep^5-5609463326272112971221361/ 322681293960560640000000*ep^6+1382361582772960749185551247/ 162631372156122562560000000*ep^7; Fill mncT11(10,3) = -2733/14-45*ep^-1+12100511/23520*ep+ 36522506621/11854080*ep^2+499108024384793/149361408000*ep^3+ 238057627322242549/376390748160000*ep^4-730345405419777932839/ 948504685363200000*ep^5+10935936143374017122657/ 19121854456922112000*ep^6-5858355924150051615801044527/ 6023384153930465280000000*ep^7; Fill mncT11(3,10) = -2733/14-45*ep^-1+12100511/23520*ep+ 36522506621/11854080*ep^2+499108024384793/149361408000*ep^3+ 238057627322242549/376390748160000*ep^4-730345405419777932839/ 948504685363200000*ep^5+10935936143374017122657/ 19121854456922112000*ep^6-5858355924150051615801044527/ 6023384153930465280000000*ep^7; Fill mncT11(10,4) = -42475/14-825*ep^-1+158826085/14112*ep+ 1722812465123/35562240*ep^2+2862905548098763/89616844800*ep^3+ 51383427764068223/225834448896000*ep^4-6023904889151281594517/ 569102811217920000*ep^5+23363096452385184095005943/ 1434139084269158400000*ep^6-110264432781197828882485348397/ 3614030492358279168000000*ep^7; Fill mncT11(4,10) = -42475/14-825*ep^-1+158826085/14112*ep+ 1722812465123/35562240*ep^2+2862905548098763/89616844800*ep^3+ 51383427764068223/225834448896000*ep^4-6023904889151281594517/ 569102811217920000*ep^5+23363096452385184095005943/ 1434139084269158400000*ep^6-110264432781197828882485348397/ 3614030492358279168000000*ep^7; Fill mncT11(10,5) = -428725/14-9075*ep^-1+1863930935/14112*ep+ 17420500082353/35562240*ep^2+19591470539173193/89616844800*ep^3- 3490364875570682747/225834448896000*ep^4-59881195837843542836887/ 569102811217920000*ep^5+296873508701169258538304173/ 1434139084269158400000*ep^6-1476156242971097816374029937567/ 3614030492358279168000000*ep^7; Fill mncT11(5,10) = -428725/14-9075*ep^-1+1863930935/14112*ep+ 17420500082353/35562240*ep^2+19591470539173193/89616844800*ep^3- 3490364875570682747/225834448896000*ep^4-59881195837843542836887/ 569102811217920000*ep^5+296873508701169258538304173/ 1434139084269158400000*ep^6-1476156242971097816374029937567/ 3614030492358279168000000*ep^7; Fill mncT11(10,6) = -1604691/7-70785*ep^-1+24874620107/23520*ep+ 217302808748161/59270400*ep^2+37867626431250733/29872281600*ep^3- 44685664886587404371/376390748160000*ep^4- 759955588865113975328047/948504685363200000*ep^5+ 4099524744313667143406168437/2390231807115264000000*ep^6- 20833037715691712211582053432119/6023384153930465280000000*ep^7; Fill mncT11(6,10) = -1604691/7-70785*ep^-1+24874620107/23520*ep+ 217302808748161/59270400*ep^2+37867626431250733/29872281600*ep^3- 44685664886587404371/376390748160000*ep^4- 759955588865113975328047/948504685363200000*ep^5+ 4099524744313667143406168437/2390231807115264000000*ep^6- 20833037715691712211582053432119/6023384153930465280000000*ep^7; Fill mncT11(10,7) = -6857708/5-429429*ep^-1+325970190527/50400*ep+ 2784773997117157/127008000*ep^2+314001610292351747/45722880000* ep^3-95626190195515256131/161310320640000*ep^4- 9860721257991817665174811/2032510040064000000*ep^5+ 1108956725942688441770328361/104529087774720000000*ep^6-278285492\ 513417518709651847866179/12907251758422425600000000*ep^7; Fill mncT11(7,10) = -6857708/5-429429*ep^-1+325970190527/50400*ep+ 2784773997117157/127008000*ep^2+314001610292351747/45722880000* ep^3-95626190195515256131/161310320640000*ep^4- 9860721257991817665174811/2032510040064000000*ep^5+ 1108956725942688441770328361/104529087774720000000*ep^6-278285492\ 513417518709651847866179/12907251758422425600000000*ep^7; Fill mncT11(10,8) = -6878157-2147145*ep^-1+325203879839/10080*ep+ 558376514581289/5080320*ep^2+2276261966505252557/64012032000*ep^3 -353006015772044616599/161310320640000*ep^4- 1416153373047555093193573/58071715430400000*ep^5+ 2163931597787517400749343417/40975402407690240000*ep^6-2772731969\ 21937364921581416686123/2581450351684485120000000*ep^7; Fill mncT11(8,10) = -6878157-2147145*ep^-1+325203879839/10080*ep+ 558376514581289/5080320*ep^2+2276261966505252557/64012032000*ep^3 -353006015772044616599/161310320640000*ep^4- 1416153373047555093193573/58071715430400000*ep^5+ 2163931597787517400749343417/40975402407690240000*ep^6-2772731969\ 21937364921581416686123/2581450351684485120000000*ep^7; Fill mncT11(10,9) = -1673149335/56-9202050*ep^-1+1289073256967/ 9408*ep+11312477611942837/23708160*ep^2+10298545085451680663/ 59744563200*ep^3-134009329612247902531/30111259852800*ep^4- 40019532931754029975386181/379401874145280000*ep^5+ 212134946069703741277797894757/956092722846105600000*ep^6-1549292\ 07423781617543429942894631/344193380224598016000000*ep^7; Fill mncT11(9,10) = -1673149335/56-9202050*ep^-1+1289073256967/ 9408*ep+11312477611942837/23708160*ep^2+10298545085451680663/ 59744563200*ep^3-134009329612247902531/30111259852800*ep^4- 40019532931754029975386181/379401874145280000*ep^5+ 212134946069703741277797894757/956092722846105600000*ep^6-1549292\ 07423781617543429942894631/344193380224598016000000*ep^7; Fill mncT11(10,10) = -29016110695/252-34763300*ep^-1+ 64837836509717/127008*ep+588017945454375487/320060160*ep^2+ 617147766869674120613/806551603200*ep^3+5319449752682429703959/ 406502008012800*ep^4-2063640067151239842477253231/ 5121925300961280000*ep^5+10489058461465056561219564952207/ 12907251758422425600000*ep^6-7633634691805624635423644506701781/ 4646610633032073216000000*ep^7; Fill mncT11(11,-8) = 1/180-26413/226800*ep+134456089/114307200* ep^2-1596111015937/205752960000*ep^3+138248526166679213/ 3629482214400000*ep^4-1374511006495037218783/9146295180288000000* ep^5+330208715575653767543191/658533252980736000000*ep^6- 85322613394473533364412276999/58082632912900915200000000*ep^7; Fill mncT11(-8,11) = 1/180-26413/226800*ep+134456089/114307200* ep^2-1596111015937/205752960000*ep^3+138248526166679213/ 3629482214400000*ep^4-1374511006495037218783/9146295180288000000* ep^5+330208715575653767543191/658533252980736000000*ep^6- 85322613394473533364412276999/58082632912900915200000000*ep^7; Fill mncT11(11,-7) = 1/3240*ep-14797/2721600*ep^2+181235561/ 4115059200*ep^3-77414542469/352719360000*ep^4+97447367116709221/ 130661359718400000*ep^5-63492270011656558159/36585180721152000000 *ep^6+51851780862560516512511/23707197107306496000000*ep^7; Fill mncT11(-7,11) = 1/3240*ep-14797/2721600*ep^2+181235561/ 4115059200*ep^3-77414542469/352719360000*ep^4+97447367116709221/ 130661359718400000*ep^5-63492270011656558159/36585180721152000000 *ep^6+51851780862560516512511/23707197107306496000000*ep^7; Fill mncT11(11,-6) = 1/90720*ep-9847/76204800*ep^2+59909711/ 115221657600*ep^3-69488011931/483930961920000*ep^4- 26025337810957829/3658518072115200000*ep^5+35541037054048779791/ 1024385060192256000000*ep^6-413932336693923940206073/ 4646610633032073216000000*ep^7; Fill mncT11(-6,11) = 1/90720*ep-9847/76204800*ep^2+59909711/ 115221657600*ep^3-69488011931/483930961920000*ep^4- 26025337810957829/3658518072115200000*ep^5+35541037054048779791/ 1024385060192256000000*ep^6-413932336693923940206073/ 4646610633032073216000000*ep^7; Fill mncT11(11,-5) = 1/635040*ep-6947/533433600*ep^2+1853093/ 115221657600*ep^3+2415870283/13940398080000*ep^4- 21808699613130929/25609626504806400000*ep^5+4527410686347123839/ 3073155180576768000000*ep^6+26597805962521403804267/ 32526274431224512512000000*ep^7; Fill mncT11(-5,11) = 1/635040*ep-6947/533433600*ep^2+1853093/ 115221657600*ep^3+2415870283/13940398080000*ep^4- 21808699613130929/25609626504806400000*ep^5+4527410686347123839/ 3073155180576768000000*ep^6+26597805962521403804267/ 32526274431224512512000000*ep^7; Fill mncT11(11,-4) = 1/1587600*ep-1583/444528000*ep^2-8253989/ 1440270720000*ep^3+126513644671/1693758366720000*ep^4- 9575708271918539/64024066262016000000*ep^5-21291625203013643/ 156793631662080000000*ep^6+468250257156387207478957/ 406578430390306406400000000*ep^7; Fill mncT11(-4,11) = 1/1587600*ep-1583/444528000*ep^2-8253989/ 1440270720000*ep^3+126513644671/1693758366720000*ep^4- 9575708271918539/64024066262016000000*ep^5-21291625203013643/ 156793631662080000000*ep^6+468250257156387207478957/ 406578430390306406400000000*ep^7; Fill mncT11(11,-3) = 1/1587600*ep-953/444528000*ep^2-18013679/ 1440270720000*ep^3+93957432661/1693758366720000*ep^4+ 244299171917911/64024066262016000000*ep^5-2561069843864866937/ 7682887951441920000000*ep^6+255176270264704882514527/ 406578430390306406400000000*ep^7; Fill mncT11(-3,11) = 1/1587600*ep-953/444528000*ep^2-18013679/ 1440270720000*ep^3+93957432661/1693758366720000*ep^4+ 244299171917911/64024066262016000000*ep^5-2561069843864866937/ 7682887951441920000000*ep^6+255176270264704882514527/ 406578430390306406400000000*ep^7; Fill mncT11(11,-2) = 1/635040*ep-1067/533433600*ep^2-4555267/ 115221657600*ep^3+71451184963/1129172244480000*ep^4+ 6060236731487671/25609626504806400000*ep^5-1778869391576004121/ 3073155180576768000000*ep^6-1051365290878367040013/ 32526274431224512512000000*ep^7; Fill mncT11(-2,11) = 1/635040*ep-1067/533433600*ep^2-4555267/ 115221657600*ep^3+71451184963/1129172244480000*ep^4+ 6060236731487671/25609626504806400000*ep^5-1778869391576004121/ 3073155180576768000000*ep^6-1051365290878367040013/ 32526274431224512512000000*ep^7; Fill mncT11(11,-1) = 1/90720*ep+17/1555200*ep^2-32244889/ 115221657600*ep^3-94025257811/483930961920000*ep^4+ 1008254803097653/522645438873600000*ep^5+209305252303818151/ 1024385060192256000000*ep^6-21353220451789311721633/ 4646610633032073216000000*ep^7; Fill mncT11(-1,11) = 1/90720*ep+17/1555200*ep^2-32244889/ 115221657600*ep^3-94025257811/483930961920000*ep^4+ 1008254803097653/522645438873600000*ep^5+209305252303818151/ 1024385060192256000000*ep^6-21353220451789311721633/ 4646610633032073216000000*ep^7; Fill mncT11(11,0) = 1/3240*ep+827/680400*ep^2-11023697/2057529600* ep^3-213635188993/8641624320000*ep^4+202679708214773/ 65330679859200000*ep^5+1584207632214102713/18292590360576000000* ep^6+4847598889051111062481/82975189875572736000000*ep^7; Fill mncT11(0,11) = 1/3240*ep+827/680400*ep^2-11023697/2057529600* ep^3-213635188993/8641624320000*ep^4+202679708214773/ 65330679859200000*ep^5+1584207632214102713/18292590360576000000* ep^6+4847598889051111062481/82975189875572736000000*ep^7; Fill mncT11(11,1) = -1/45-79/525*ep+233561/28576800*ep^2+ 252429447293/120022560000*ep^3+5018292630035287/907370553600000* ep^4+3762344410096824121/762191265024000000*ep^5+ 498522516677473675643/1152433192716288000000*ep^6- 1700186332247649384707509/1613406469802803200000000*ep^7; Fill mncT11(1,11) = -1/45-79/525*ep+233561/28576800*ep^2+ 252429447293/120022560000*ep^3+5018292630035287/907370553600000* ep^4+3762344410096824121/762191265024000000*ep^5+ 498522516677473675643/1152433192716288000000*ep^6- 1700186332247649384707509/1613406469802803200000000*ep^7; Fill mncT11(11,2) = -821/126-ep^-1+5427613/3175200*ep+738577344259/ 8001504000*ep^2+4578739455717211/20163790080000*ep^3+ 1960827592133017187/10162550200320000*ep^4+3209747998239756183643/ 128048132524032000000*ep^5-9157143962606778208417241/ 322681293960560640000000*ep^6+1329766238662796763370771651/ 813156860780612812800000000*ep^7; Fill mncT11(2,11) = -821/126-ep^-1+5427613/3175200*ep+738577344259/ 8001504000*ep^2+4578739455717211/20163790080000*ep^3+ 1960827592133017187/10162550200320000*ep^4+3209747998239756183643/ 128048132524032000000*ep^5-9157143962606778208417241/ 322681293960560640000000*ep^6+1329766238662796763370771651/ 813156860780612812800000000*ep^7; Fill mncT11(11,3) = -16246/63-55*ep^-1+347119823/635040*ep+ 6388820281973/1600300800*ep^2+21726567844536293/4032758016000* ep^3+21409223078689335233/10162550200320000*ep^4- 19823516717062354417867/25609626504806400000*ep^5+ 22770059407573565454852713/64536258792112128000000*ep^6- 149239285271455025301507908467/162631372156122562560000000*ep^7; Fill mncT11(3,11) = -16246/63-55*ep^-1+347119823/635040*ep+ 6388820281973/1600300800*ep^2+21726567844536293/4032758016000* ep^3+21409223078689335233/10162550200320000*ep^4- 19823516717062354417867/25609626504806400000*ep^5+ 22770059407573565454852713/64536258792112128000000*ep^6- 149239285271455025301507908467/162631372156122562560000000*ep^7; Fill mncT11(11,4) = -605099/126-1210*ep^-1+4839212053/317520*ep+ 60789977962453/800150400*ep^2+135372458982606673/2016379008000* ep^3+62110249687307439013/5081275100160000*ep^4- 211162263002971831706087/12804813252403200000*ep^5+ 627259991516880293448839293/32268129396056064000000*ep^6- 3040805981195238718057420004687/81315686078061281280000000*ep^7; Fill mncT11(4,11) = -605099/126-1210*ep^-1+4839212053/317520*ep+ 60789977962453/800150400*ep^2+135372458982606673/2016379008000* ep^3+62110249687307439013/5081275100160000*ep^4- 211162263002971831706087/12804813252403200000*ep^5+ 627259991516880293448839293/32268129396056064000000*ep^6- 3040805981195238718057420004687/81315686078061281280000000*ep^7; Fill mncT11(11,5) = -3583756/63-15730*ep^-1+68732712289/317520*ep+ 724669260874939/800150400*ep^2+1167238996433602699/2016379008000* ep^3+231844936514671883119/5081275100160000*ep^4- 2508610298468264069626181/12804813252403200000*ep^5+ 10196031307693362805357906759/32268129396056064000000*ep^6- 50177397128153085220962659453981/81315686078061281280000000*ep^7; Fill mncT11(5,11) = -3583756/63-15730*ep^-1+68732712289/317520*ep+ 724669260874939/800150400*ep^2+1167238996433602699/2016379008000* ep^3+231844936514671883119/5081275100160000*ep^4- 2508610298468264069626181/12804813252403200000*ep^5+ 10196031307693362805357906759/32268129396056064000000*ep^6- 50177397128153085220962659453981/81315686078061281280000000*ep^7; Fill mncT11(11,6) = -22147697/45-143143*ep^-1+929446844269/453600* ep+8973730030918711/1143072000*ep^2+1645740216514940689/ 411505920000*ep^3+179602604427740547407/1451792885760000*ep^4- 31193741201021364666736313/18292590360576000000*ep^5+ 20766947791952255479890654757/6585332529807360000000*ep^6-7282298\ 92803785902132409172473969/116165265825801830400000000*ep^7; Fill mncT11(6,11) = -22147697/45-143143*ep^-1+929446844269/453600* ep+8973730030918711/1143072000*ep^2+1645740216514940689/ 411505920000*ep^3+179602604427740547407/1451792885760000*ep^4- 31193741201021364666736313/18292590360576000000*ep^5+ 20766947791952255479890654757/6585332529807360000000*ep^6-7282298\ 92803785902132409172473969/116165265825801830400000000*ep^7; Fill mncT11(11,7) = -60553493/18-1002001*ep^-1+945159223237/64800* ep+8766160524938491/163296000*ep^2+9923084905935640339/ 411505920000*ep^3+74739077068888490843/207398983680000*ep^4- 30648804029589777294573293/2613227194368000000*ep^5+ 151121650755004109275598796991/6585332529807360000000*ep^6- 764444508533544349921095848556101/16595037975114547200000000*ep^7 ; Fill mncT11(7,11) = -60553493/18-1002001*ep^-1+945159223237/64800* ep+8766160524938491/163296000*ep^2+9923084905935640339/ 411505920000*ep^3+74739077068888490843/207398983680000*ep^4- 30648804029589777294573293/2613227194368000000*ep^5+ 151121650755004109275598796991/6585332529807360000000*ep^6- 764444508533544349921095848556101/16595037975114547200000000*ep^7 ; Fill mncT11(11,8) = -343750121/18-5725720*ep^-1+474562352021/5670* ep+696597284464451/2286144*ep^2+19040176011641779457/144027072000 *ep^3+913708015611120060641/362948221440000*ep^4- 8713551761159224993019413/130661359718400000*ep^5+ 61048606018720608059013850141/460973277086515200000*ep^6-15502815\ 64744136786772351482194123/5808263291290091520000000*ep^7; Fill mncT11(8,11) = -343750121/18-5725720*ep^-1+474562352021/5670* ep+696597284464451/2286144*ep^2+19040176011641779457/144027072000 *ep^3+913708015611120060641/362948221440000*ep^4- 8713551761159224993019413/130661359718400000*ep^5+ 61048606018720608059013850141/460973277086515200000*ep^6-15502815\ 64744136786772351482194123/5808263291290091520000000*ep^7; Fill mncT11(11,9) = -5871358207/63-27810640*ep^-1+64299918242831/ 158760*ep+23784548829995657/16003008*ep^2+671781145882129744763/ 1008189504000*ep^3+62529903464453403540869/2540637550080000*ep^4- 2076147741620746585704246769/6402406626201600000*ep^5+ 2058569100251687354169663458629/3226812939605606400000*ep^6- 7474175761182282940746135035477851/5808263291290091520000000*ep^7 ; Fill mncT11(9,11) = -5871358207/63-27810640*ep^-1+64299918242831/ 158760*ep+23784548829995657/16003008*ep^2+671781145882129744763/ 1008189504000*ep^3+62529903464453403540869/2540637550080000*ep^4- 2076147741620746585704246769/6402406626201600000*ep^5+ 2058569100251687354169663458629/3226812939605606400000*ep^6- 7474175761182282940746135035477851/5808263291290091520000000*ep^7 ; Fill mncT11(11,10) = -11225533891/28-118195220*ep^-1+ 1083072429914077/635040*ep+45435762707413735/7112448*ep^2+ 12437721494202379897021/4032758016000*ep^3+ 225196039730145061494947/1129172244480000*ep^4- 35412063647655407728047914423/25609626504806400000*ep^5+ 3807984282148491590238202486387/1434139084269158400000*ep^6- 124380566207783042599578040609782317/23233053165160366080000000* ep^7; Fill mncT11(10,11) = -11225533891/28-118195220*ep^-1+ 1083072429914077/635040*ep+45435762707413735/7112448*ep^2+ 12437721494202379897021/4032758016000*ep^3+ 225196039730145061494947/1129172244480000*ep^4- 35412063647655407728047914423/25609626504806400000*ep^5+ 3807984282148491590238202486387/1434139084269158400000*ep^6- 124380566207783042599578040609782317/23233053165160366080000000* ep^7; Fill mncT11(11,11) = -43385111341/28-449141836*ep^-1+ 20306578005030763/3175200*ep+2435909327000943049/98784000*ep^2+ 263881159572412731762211/20163790080000*ep^3+ 293509533679007951702389/225834448896000*ep^4- 674148861321813427710319636457/128048132524032000000*ep^5+3508885\ 41457086934556957937912241/35853477106728960000000*ep^6-229185060\ 9267557284902860502631021907/116165265825801830400000000*ep^7; Fill mncT11(12,-8) = 1/4950*ep-50599/13721400*ep^2+11843508841/ 380357208000*ep^3-175106820216701/1075867531200000*ep^4+ 855790798456578961829/1461329350278336000000*ep^5- 59823716472752970058288589/40508049589715473920000000*ep^6+ 362300811107480662592901934883/160411876375273276723200000000* ep^7; Fill mncT11(-8,12) = 1/4950*ep-50599/13721400*ep^2+11843508841/ 380357208000*ep^3-175106820216701/1075867531200000*ep^4+ 855790798456578961829/1461329350278336000000*ep^5- 59823716472752970058288589/40508049589715473920000000*ep^6+ 362300811107480662592901934883/160411876375273276723200000000* ep^7; Fill mncT11(12,-7) = 1/178200*ep-22927/329313600*ep^2+8514162677/ 27385718976000*ep^3-48551510287213/180745745241600000*ep^4- 369393540347591511047/105215713220040192000000*ep^5+ 6516687574405666468432903/324064396717723791360000000*ep^6- 672254909075218205554223082449/11549655099019675924070400000000* ep^7; Fill mncT11(-7,12) = 1/178200*ep-22927/329313600*ep^2+8514162677/ 27385718976000*ep^3-48551510287213/180745745241600000*ep^4- 369393540347591511047/105215713220040192000000*ep^5+ 6516687574405666468432903/324064396717723791360000000*ep^6- 672254909075218205554223082449/11549655099019675924070400000000* ep^7; Fill mncT11(12,-6) = 1/1663200*ep-16657/3073593600*ep^2+2552021327/ 255600043776000*ep^3+712636434536759/11808722022451200000*ep^4- 365827606807350699197/982013323387041792000000*ep^5+ 2480222064471160725292253/3024601036032088719360000000*ep^6- 142991627698288722676016757293/754577466469285493705932800000000* ep^7; Fill mncT11(-6,12) = 1/1663200*ep-16657/3073593600*ep^2+2552021327/ 255600043776000*ep^3+712636434536759/11808722022451200000*ep^4- 365827606807350699197/982013323387041792000000*ep^5+ 2480222064471160725292253/3024601036032088719360000000*ep^6- 142991627698288722676016757293/754577466469285493705932800000000* ep^7; Fill mncT11(12,-5) = 1/5821200*ep-11971/10757577600*ep^2-91113049/ 127800021888000*ep^3+883132705839809/41330527078579200000*ep^4- 199218361406215667867/3437046631854646272000000*ep^5+ 1286135377999827527023/504100172672014786560000000*ep^6+ 875340140109179943794992462837/2641021132642499227970764800000000 *ep^7; Fill mncT11(-5,12) = 1/5821200*ep-11971/10757577600*ep^2-91113049/ 127800021888000*ep^3+883132705839809/41330527078579200000*ep^4- 199218361406215667867/3437046631854646272000000*ep^5+ 1286135377999827527023/504100172672014786560000000*ep^6+ 875340140109179943794992462837/2641021132642499227970764800000000 *ep^7; Fill mncT11(12,-4) = 1/8731800*ep-13381/26893944000*ep^2- 1789090493/958500164160000*ep^3+748731600177601/ 61995790617868800000*ep^4-49333203049006577051/ 5155569947781969408000000*ep^5-391218291455487666341401/ 6805352331072199618560000000*ep^6+675341738481504956005753943797/ 3961531698963748841956147200000000*ep^7; Fill mncT11(-4,12) = 1/8731800*ep-13381/26893944000*ep^2- 1789090493/958500164160000*ep^3+748731600177601/ 61995790617868800000*ep^4-49333203049006577051/ 5155569947781969408000000*ep^5-391218291455487666341401/ 6805352331072199618560000000*ep^6+675341738481504956005753943797/ 3961531698963748841956147200000000*ep^7; Fill mncT11(12,-3) = 1/5821200*ep-59/143434368*ep^2-4075163/ 1022400175104*ep^3+480579468056959/41330527078579200000*ep^4+ 55108624455881322283/3437046631854646272000000*ep^5- 400990580103067993863703/4536901554048133079040000000*ep^6+ 208161375792874552172340272827/2641021132642499227970764800000000 *ep^7; Fill mncT11(-3,12) = 1/5821200*ep-59/143434368*ep^2-4075163/ 1022400175104*ep^3+480579468056959/41330527078579200000*ep^4+ 55108624455881322283/3437046631854646272000000*ep^5- 400990580103067993863703/4536901554048133079040000000*ep^6+ 208161375792874552172340272827/2641021132642499227970764800000000 *ep^7; Fill mncT11(12,-2) = 1/1663200*ep-41/146361600*ep^2-160406749/ 10224001751040*ep^3+141454080571459/11808722022451200000*ep^4+ 15333746234136279529/140287617626720256000000*ep^5- 1335353804264160090244861/9073803108096266158080000000*ep^6- 141681681170436625640896859153/754577466469285493705932800000000* ep^7; Fill mncT11(-2,12) = 1/1663200*ep-41/146361600*ep^2-160406749/ 10224001751040*ep^3+141454080571459/11808722022451200000*ep^4+ 15333746234136279529/140287617626720256000000*ep^5- 1335353804264160090244861/9073803108096266158080000000*ep^6- 141681681170436625640896859153/754577466469285493705932800000000* ep^7; Fill mncT11(12,-1) = 1/178200*ep+761/82328400*ep^2-76018001/ 547714379520*ep^3-121683124182083/632610108345600000*ep^4+ 48212070873539775989/52607856610020096000000*ep^5+ 121396529060809616493619/162032198358861895680000000*ep^6- 91568550571485357601584649939/40423792846568865734246400000000* ep^7; Fill mncT11(-1,12) = 1/178200*ep+761/82328400*ep^2-76018001/ 547714379520*ep^3-121683124182083/632610108345600000*ep^4+ 48212070873539775989/52607856610020096000000*ep^5+ 121396529060809616493619/162032198358861895680000000*ep^6- 91568550571485357601584649939/40423792846568865734246400000000* ep^7; Fill mncT11(12,0) = 1/4950*ep+23/25410*ep^2-46817753/15214288320* ep^3-317930721150583/17572503009600000*ep^4-9818890327352440471/ 1461329350278336000000*ep^5+782683377447413846648077/ 13502683196571824640000000*ep^6+77564853127943018503676222801/ 1122883134626912937062400000000*ep^7; Fill mncT11(0,12) = 1/4950*ep+23/25410*ep^2-46817753/15214288320* ep^3-317930721150583/17572503009600000*ep^4-9818890327352440471/ 1461329350278336000000*ep^5+782683377447413846648077/ 13502683196571824640000000*ep^6+77564853127943018503676222801/ 1122883134626912937062400000000*ep^7; Fill mncT11(12,1) = -1/55-50069/381150*ep-206430751/4226191200* ep^2+1010973614386049/585750100320000*ep^3+17229860140437041879/ 3247398556174080000*ep^4+545681740471866616996201/ 90017887977145497600000*ep^5+26249738748818990175249763003/ 12476479273632365967360000000*ep^6-270619745679343502962638395944\ 243/345848005465089184615219200000000*ep^7; Fill mncT11(1,12) = -1/55-50069/381150*ep-206430751/4226191200* ep^2+1010973614386049/585750100320000*ep^3+17229860140437041879/ 3247398556174080000*ep^4+545681740471866616996201/ 90017887977145497600000*ep^5+26249738748818990175249763003/ 12476479273632365967360000000*ep^6-270619745679343502962638395944\ 243/345848005465089184615219200000000*ep^7; Fill mncT11(12,2) = -47801/6930-ep^-1-291352379/384199200*ep+ 991408203220049/10650001824000*ep^2+77433580692480566467/ 295218050561280000*ep^3+454641430271328830566489/ 1636688872311736320000*ep^4+21337291247974529416854674443/ 226845077702406653952000000*ep^5-143874707455513173147995852217859 /6288145553910712447549440000000*ep^6-170387167934685210369376381\ 1168819621/174307394754404949046070476800000000*ep^7; Fill mncT11(2,12) = -47801/6930-ep^-1-291352379/384199200*ep+ 991408203220049/10650001824000*ep^2+77433580692480566467/ 295218050561280000*ep^3+454641430271328830566489/ 1636688872311736320000*ep^4+21337291247974529416854674443/ 226845077702406653952000000*ep^5-143874707455513173147995852217859 /6288145553910712447549440000000*ep^6-170387167934685210369376381\ 1168819621/174307394754404949046070476800000000*ep^7; Fill mncT11(12,3) = -69457/210-66*ep^-1+3245099701/5821200*ep+ 808259317293959/161363664000*ep^2+35771181877069745257/ 4473000766080000*ep^3+111919702770409881545203/ 24798316247147520000*ep^4-853074718720551960552259607/ 3437046631854646272000000*ep^5+6989613627302784790974932454671/ 95274932635010794659840000000*ep^6-248955575083938002365378350768\ 8773511/2641021132642499227970764800000000*ep^7; Fill mncT11(3,12) = -69457/210-66*ep^-1+3245099701/5821200*ep+ 808259317293959/161363664000*ep^2+35771181877069745257/ 4473000766080000*ep^3+111919702770409881545203/ 24798316247147520000*ep^4-853074718720551960552259607/ 3437046631854646272000000*ep^5+6989613627302784790974932454671/ 95274932635010794659840000000*ep^6-248955575083938002365378350768\ 8773511/2641021132642499227970764800000000*ep^7; Fill mncT11(12,4) = -764341/105-1716*ep^-1+57597784513/2910600*ep+ 9180623029256267/80681832000*ep^2+277753338857088597541/ 2236500383040000*ep^3+510037922371053278434759/ 12399158123573760000*ep^4-35245014972058731131741564891/ 1718523315927323136000000*ep^5+996915098571603128215024391771123/ 47637466317505397329920000000*ep^6-594174550240702794384021863569\ 19144843/1320510566321249613985382400000000*ep^7; Fill mncT11(4,12) = -764341/105-1716*ep^-1+57597784513/2910600*ep+ 9180623029256267/80681832000*ep^2+277753338857088597541/ 2236500383040000*ep^3+510037922371053278434759/ 12399158123573760000*ep^4-35245014972058731131741564891/ 1718523315927323136000000*ep^5+996915098571603128215024391771123/ 47637466317505397329920000000*ep^6-594174550240702794384021863569\ 19144843/1320510566321249613985382400000000*ep^7; Fill mncT11(12,5) = -4505969/45-26026*ep^-1+840532535149/2494800* ep+109475021613098681/69155856000*ep^2+355171398491001823789/ 273857189760000*ep^3+2850013495129033238923201/ 10627849820206080000*ep^4-476051496054792357962227603133/ 1473019985080562688000000*ep^5+2611635268871603421988612786304147/ 5833159140919028244480000000*ep^6-1011685874756440845240214843741\ 624877549/1131866199703928240558899200000000*ep^7; Fill mncT11(5,12) = -4505969/45-26026*ep^-1+840532535149/2494800* ep+109475021613098681/69155856000*ep^2+355171398491001823789/ 273857189760000*ep^3+2850013495129033238923201/ 10627849820206080000*ep^4-476051496054792357962227603133/ 1473019985080562688000000*ep^5+2611635268871603421988612786304147/ 5833159140919028244480000000*ep^6-1011685874756440845240214843741\ 624877549/1131866199703928240558899200000000*ep^7; Fill mncT11(12,6) = -14892514/15-273273*ep^-1+887106697069/237600* ep+103836740470102421/6586272000*ep^2+1914064737697134764983/ 182571459840000*ep^3+1482366508700803892562757/ 1012176173352960000*ep^4-465918960700648351455467903633/ 140287617626720256000000*ep^5+20968755828658254630032232031669049/ 3888772760612685496320000000*ep^6-1157523771235402560697412886827\ 855987009/107796780924183641957990400000000*ep^7; Fill mncT11(6,12) = -14892514/15-273273*ep^-1+887106697069/237600* ep+103836740470102421/6586272000*ep^2+1914064737697134764983/ 182571459840000*ep^3+1482366508700803892562757/ 1012176173352960000*ep^4-465918960700648351455467903633/ 140287617626720256000000*ep^5+20968755828658254630032232031669049/ 3888772760612685496320000000*ep^6-1157523771235402560697412886827\ 855987009/107796780924183641957990400000000*ep^7; Fill mncT11(12,7) = -230901853/30-2186184*ep^-1+455294025983/14850 *ep+201593877688223737/1646568000*ep^2+3250870682671431522569/ 45642864960000*ep^3+1921012417379417814603719/253044043338240000* ep^4-915546198933207715392764514931/35071904406680064000000*ep^5+ 44665027576129194159811948469610139/972193190153171374080000000* ep^6-2477574348727636516124641835741264424019/ 26949195231045910489497600000000*ep^7; Fill mncT11(7,12) = -230901853/30-2186184*ep^-1+455294025983/14850 *ep+201593877688223737/1646568000*ep^2+3250870682671431522569/ 45642864960000*ep^3+1921012417379417814603719/253044043338240000* ep^4-915546198933207715392764514931/35071904406680064000000*ep^5+ 44665027576129194159811948469610139/972193190153171374080000000* ep^6-2477574348727636516124641835741264424019/ 26949195231045910489497600000000*ep^7; Fill mncT11(12,8) = -2211369212/45-14158144*ep^-1+31301886588829/ 155925*ep+3380522249779057769/4322241000*ep^2+ 51060422559577895997763/119812520520000*ep^3+ 27019921451610871707066889/664240613762880000*ep^4- 2201731326044627566902389149811/13151964152505024000000*ep^5+ 779340160806302309291822424060083693/2552007124152074856960000000 *ep^6-43393416025440572609337255380263656803093/ 70741637481495515034931200000000*ep^7; Fill mncT11(8,12) = -2211369212/45-14158144*ep^-1+31301886588829/ 155925*ep+3380522249779057769/4322241000*ep^2+ 51060422559577895997763/119812520520000*ep^3+ 27019921451610871707066889/664240613762880000*ep^4- 2201731326044627566902389149811/13151964152505024000000*ep^5+ 779340160806302309291822424060083693/2552007124152074856960000000 *ep^6-43393416025440572609337255380263656803093/ 70741637481495515034931200000000*ep^7; Fill mncT11(12,9) = -9374616901/35-77364144*ep^-1+1066011957855811/ 970200*ep+114633680710250620271/26893944000*ep^2+ 1714442367717814829200567/745500127680000*ep^3+ 947154423394917709703068951/4133052707857920000*ep^4-521483788948\ 070773874811712908893/572841105309107712000000*ep^5+2660438205136\ 8750227365825569204467687/15879155439168465776640000000*ep^6- 212071575677065665901903144614011260866791/ 62881455539107124475494400000000*ep^7; Fill mncT11(9,12) = -9374616901/35-77364144*ep^-1+1066011957855811/ 970200*ep+114633680710250620271/26893944000*ep^2+ 1714442367717814829200567/745500127680000*ep^3+ 947154423394917709703068951/4133052707857920000*ep^4-521483788948\ 070773874811712908893/572841105309107712000000*ep^5+2660438205136\ 8750227365825569204467687/15879155439168465776640000000*ep^6- 212071575677065665901903144614011260866791/ 62881455539107124475494400000000*ep^7; Fill mncT11(12,10) = -179095517939/140-367479684*ep^-1+ 20159750211845599/3880800*ep+2188676820458456987359/107575776000* ep^2+33731196374817966021707383/2982000510720000*ep^3+ 21513730846069468434592939583/16532210831431680000*ep^4-987857494\ 0779086521144432242557117/2291364421236430848000000*ep^5+50009672\ 4347412173444150862130471250623/63516621756673863106560000000* ep^6-570236253880675455818162441062796860672817/ 35932260308061213985996800000000*ep^7; Fill mncT11(10,12) = -179095517939/140-367479684*ep^-1+ 20159750211845599/3880800*ep+2188676820458456987359/107575776000* ep^2+33731196374817966021707383/2982000510720000*ep^3+ 21513730846069468434592939583/16532210831431680000*ep^4-987857494\ 0779086521144432242557117/2291364421236430848000000*ep^5+50009672\ 4347412173444150862130471250623/63516621756673863106560000000* ep^6-570236253880675455818162441062796860672817/ 35932260308061213985996800000000*ep^7; Fill mncT11(12,11) = -382250770837/70-1551580888*ep^-1+ 379503082270232659/17463600*ep+1555529107336359808613/17929296000 *ep^2+684159660915110295619573663/13419002298240000*ep^3+ 58438737399156143356042285447/8266105415715840000*ep^4-1868874223\ 60904279061442317506453813/10311139895563938816000000*ep^5+ 1033337974332037038311638190352908027351/ 31758310878336931553280000000*ep^6-743373954314243004501670112419\ 31583418882607/1131866199703928240558899200000000*ep^7; Fill mncT11(11,12) = -382250770837/70-1551580888*ep^-1+ 379503082270232659/17463600*ep+1555529107336359808613/17929296000 *ep^2+684159660915110295619573663/13419002298240000*ep^3+ 58438737399156143356042285447/8266105415715840000*ep^4-1868874223\ 60904279061442317506453813/10311139895563938816000000*ep^5+ 1033337974332037038311638190352908027351/ 31758310878336931553280000000*ep^6-743373954314243004501670112419\ 31583418882607/1131866199703928240558899200000000*ep^7; Fill mncT11(12,12) = -1163678649471/55-5924217936*ep^-1+ 374677075387602739/4573800*ep+4728659097099453028879/14087304000* ep^2+106175834964185470237357129/502071514560000*ep^3+ 8558206694858349448613419247/240548041198080000*ep^4-185208145109\ 147085762650437923286613/2700536639314364928000000*ep^5+477602756\ 72561920930387890155647076251/396078707099440189440000000*ep^6- 506280866712104094806467437912675031314214889/2075088032790535107\ 691315200000000*ep^7; *--#] gtabls.h : *--#[ poch.h : * * Table can be extended with the procedure makepochs * CTable,relax,mncpoch(0:21,0:20); Fill mncpoch(0,0) = 1; Fill mncpoch(1,0) = 1; Fill mncpoch(2,0) = 1; Fill mncpoch(3,0) = 1; Fill mncpoch(3,1) = 1/2+1/4*ep+1/8*ep^2+1/16*ep^3+1/32*ep^4+1/64*ep^5+1/128* ep^6+1/256*ep^7+1/512*ep^8; Fill mncpoch(4,0) = 1; Fill mncpoch(4,1) = 1/3+1/9*ep+1/27*ep^2+1/81*ep^3+1/243*ep^4+1/729*ep^5+1/2187 *ep^6+1/6561*ep^7+1/19683*ep^8; Fill mncpoch(4,2) = 1/12+5/72*ep+19/432*ep^2+65/2592*ep^3+211/15552*ep^4+665/ 93312*ep^5+2059/559872*ep^6+6305/3359232*ep^7+19171/20155392*ep^8; Fill mncpoch(5,0) = 1; Fill mncpoch(5,1) = 1/4+1/16*ep+1/64*ep^2+1/256*ep^3+1/1024*ep^4+1/4096*ep^5+1/ 16384*ep^6+1/65536*ep^7+1/262144*ep^8; Fill mncpoch(5,2) = 1/24+7/288*ep+37/3456*ep^2+175/41472*ep^3+781/497664*ep^4+ 3367/5971968*ep^5+14197/71663616*ep^6+58975/859963392*ep^7+242461/ 10319560704*ep^8; Fill mncpoch(5,3) = 1/144+13/1728*ep+115/20736*ep^2+865/248832*ep^3+5971/ 2985984*ep^4+39193/35831808*ep^5+249355/429981696*ep^6+1555105/5159780352 *ep^7+9573091/61917364224*ep^8; Fill mncpoch(6,0) = 1; Fill mncpoch(6,1) = 1/5+1/25*ep+1/125*ep^2+1/625*ep^3+1/3125*ep^4+1/15625*ep^5+ 1/78125*ep^6+1/390625*ep^7+1/1953125*ep^8; Fill mncpoch(6,2) = 1/40+9/800*ep+61/16000*ep^2+369/320000*ep^3+2101/6400000* ep^4+11529/128000000*ep^5+61741/2560000000*ep^6+325089/51200000000*ep^7+ 1690981/1024000000000*ep^8; Fill mncpoch(6,3) = 1/360+47/21600*ep+1489/1296000*ep^2+39743/77760000*ep^3+ 965041/4665600000*ep^4+22102367/279936000000*ep^5+487056529/ 16796160000000*ep^6+10452100223/1007769600000000*ep^7+220136530801/ 60466176000000000*ep^8; Fill mncpoch(6,4) = 1/2880+77/172800*ep+3799/10368000*ep^2+153713/622080000* ep^3+5576431/37324800000*ep^4+189395297/2239488000000*ep^5+6168915439/ 134369280000000*ep^6+195519563393/8062156800000000*ep^7+6085723432591/ 483729408000000000*ep^8; Fill mncpoch(7,0) = 1; Fill mncpoch(7,1) = 1/6+1/36*ep+1/216*ep^2+1/1296*ep^3+1/7776*ep^4+1/46656*ep^5 +1/279936*ep^6+1/1679616*ep^7+1/10077696*ep^8; Fill mncpoch(7,2) = 1/60+11/1800*ep+91/54000*ep^2+671/1620000*ep^3+4651/ 48600000*ep^4+31031/1458000000*ep^5+201811/43740000000*ep^6+1288991/ 1312200000000*ep^7+8124571/39366000000000*ep^8; Fill mncpoch(7,3) = 1/720+37/43200*ep+919/2592000*ep^2+19153/155520000*ep^3+ 361711/9331200000*ep^4+6418657/559872000000*ep^5+109195759/33592320000000 *ep^6+1802927233/2015539200000000*ep^7+29123798671/120932352000000000* ep^8; Fill mncpoch(7,4) = 1/8640+19/172800*ep+2059/31104000*ep^2+20111/622080000*ep^3 +1568371/111974400000*ep^4+4198453/746496000000*ep^5+864917299/ 403107840000000*ep^6+6367091071/8062156800000000*ep^7+411149262931/ 1451188224000000000*ep^8; Fill mncpoch(7,5) = 1/86400+29/1728000*ep+4669/311040000*ep^2+22267/2073600000* ep^3+7580461/1119744000000*ep^4+88399969/22394880000000*ep^5+8820914509/ 4031078400000000*ep^6+94576236161/80621568000000000*ep^7+8923010517421/ 14511882240000000000*ep^8; Fill mncpoch(8,0) = 1; Fill mncpoch(8,1) = 1/7+1/49*ep+1/343*ep^2+1/2401*ep^3+1/16807*ep^4+1/117649* ep^5+1/823543*ep^6+1/5764801*ep^7+1/40353607*ep^8; Fill mncpoch(8,2) = 1/84+13/3528*ep+127/148176*ep^2+1105/6223392*ep^3+9031/ 261382464*ep^4+70993/10978063488*ep^5+543607/461078666496*ep^6+4085185/ 19365303992832*ep^7+30275911/813342767698944*ep^8; Fill mncpoch(8,3) = 1/1260+107/264600*ep+7669/55566000*ep^2+460223/11668860000* ep^3+24973741/2450460600000*ep^4+1270750247/514596726000000*ep^5+ 61865369749/108065312460000000*ep^6+2917500607583/22693715616600000000* ep^7+134361553252861/4765680279486000000000*ep^8; Fill mncpoch(8,4) = 1/20160+319/8467200*ep+64171/3556224000*ep^2+10419739/ 1493614080000*ep^3+1493652451/627317913600000*ep^4+197497515259/ 263473523712000000*ep^5+24696622766131/110658879959040000000*ep^6+ 2966585468214379/46476729582796800000000*ep^7+345888031795242211/ 19520226424774656000000000*ep^8; Fill mncpoch(8,5) = 1/302400+17/4704000*ep+128431/53343360000*ep^2+9466693/ 7468070400000*ep^3+5469663511/9409768704000000*ep^4+321083468933/ 1317367618560000000*ep^5+159551679717991/1659883199385600000000*ep^6+ 2811535625414791/77461215971328000000000*ep^7+3888422919817878871/ 292803396371619840000000000*ep^8; Fill mncpoch(8,6) = 1/3628800+223/508032000*ep+268921/640120320000*ep^2+ 28291163/89616844800000*ep^3+23293096201/112917224448000000*ep^4+ 650533401001/5269470474240000000*ep^5+1389059807609881/ 19918598392627200000000*ep^6+105668793408936043/2788603774967808000000000 *ep^7+70459762767447585961/3513640756459438080000000000*ep^8; Fill mncpoch(9,0) = 1; Fill mncpoch(9,1) = 1/8+1/64*ep+1/512*ep^2+1/4096*ep^3+1/32768*ep^4+1/262144* ep^5+1/2097152*ep^6+1/16777216*ep^7+1/134217728*ep^8; Fill mncpoch(9,2) = 1/112+15/6272*ep+169/351232*ep^2+1695/19668992*ep^3+15961/ 1101463552*ep^4+144495/61681958912*ep^5+1273609/3454189699072*ep^6+ 11012415/193434623148032*ep^7+93864121/10832338896289792*ep^8; Fill mncpoch(9,3) = 1/2016+73/338688*ep+3565/56899584*ep^2+145585/9559130112* ep^3+5369221/1605933858816*ep^4+185450473/269796888281088*ep^5+6121074205/ 45325877231222784*ep^6+195474229345/7614747374845427712*ep^7+ 6089120919541/1279277558974031855616*ep^8; Fill mncpoch(9,4) = 1/40320+533/33868800*ep+178669/28449792000*ep^2+48214517/ 23897825280000*ep^3+11455801981/20074173235200000*ep^4+2504107460933/ 16862305517568000000*ep^5+516331837889869/14164336634757120000000*ep^6+ 102015172933076117/11898042773195980800000000*ep^7+19517111911952490781/ 9994355929484623872000000000*ep^8; Fill mncpoch(9,5) = 1/806400+743/677376000*ep+334699/568995840000*ep^2+ 118501307/477956505600000*ep^3+36341076451/401483464704000000*ep^4+ 10135733515643/337246110351360000000*ep^5+2644835876174899/ 283286732695142400000000*ep^6+657430706929804907/ 237960855463919616000000000*ep^7+157577560367211521251/ 199887118589692477440000000000*ep^8; Fill mncpoch(9,6) = 1/14515200+341/4064256000*ep+621139/10241925120000*ep^2+ 97473409/2867739033600000*ep^3+118218740011/7226702364672000000*ep^4+ 1601369656249/224830740234240000000*ep^5+14751190477417339/ 5099161188512563200000000*ep^6+1595921346868886609/ 1427765132783517696000000000*ep^7+1498151491737076272811/ 3597968134614464593920000000000*ep^8; Fill mncpoch(9,7) = 1/203212800+481/56899584000*ep+1227199/143386951680000*ep^2 +29920141/4460927385600000*ep^3+457513138951/101173833105408000000*ep^4+ 78464166359381/28328673269514240000000*ep^5+113616040090237399/ 71388256639175884800000000*ep^6+17502166959502122469/ 19988711858969247744000000000*ep^7+23550881860709750583751/ 50371553884602504314880000000000*ep^8; Fill mncpoch(10,0) = 1; Fill mncpoch(10,1) = 1/9+1/81*ep+1/729*ep^2+1/6561*ep^3+1/59049*ep^4+1/531441* ep^5+1/4782969*ep^6+1/43046721*ep^7+1/387420489*ep^8; Fill mncpoch(10,2) = 1/144+17/10368*ep+217/746496*ep^2+2465/53747712*ep^3+26281/ 3869835264*ep^4+269297/278628139008*ep^5+2685817/20061226008576*ep^6+ 26269505/1444408272617472*ep^7+253202761/103997395628457984*ep^8; Fill mncpoch(10,3) = 1/3024+191/1524096*ep+24385/768144384*ep^2+2601215/ 387144769536*ep^3+250388161/195120963846144*ep^4+22554022271/ 98340965778456576*ep^5+1939873287745/49563846752342114304*ep^6+ 161304943673855/24980178763180425609216*ep^7+13073619474333121/ 12590010096642934507044864*ep^8; Fill mncpoch(10,4) = 1/72576+275/36578304*ep+47485/18435465216*ep^2+6589955/ 9291474468864*ep^3+803944381/4682903132307456*ep^4+90085350275/ 2360183178682957824*ep^5+9507042710845/1189532322056210743296*ep^6+ 959896531384835/599524290316330214621184*ep^7+93704928110659261/ 302160242319430428169076736*ep^8; Fill mncpoch(10,5) = 1/1814400+1879/4572288000*ep+2134141/11522165760000*ep^2+ 1899351439/29035857715200000*ep^3+1459738363381/73170361442304000000*ep^4 +1017224854753399/184389310834606080000000*ep^5+661228869152666221/ 464661063303207321600000000*ep^6+408251266567384009759/ 1170945879524082450432000000000*ep^7+242362125893187814746661/ 2950783616400687775088640000000000*ep^8; Fill mncpoch(10,6) = 1/43545600+2509/109734912000*ep+3714811/276531978240000* ep^2+4239682369/696860585164800000*ep^3+4130738255851/ 1756088674615296000000*ep^4+3619589955939529/4425343460030545920000000* ep^5+2941570541394569491/11151865519276975718400000000*ep^6+ 2261440707645962789089/28102701108577978810368000000000*ep^7+ 1667069771710144371872731/70818806793616506602127360000000000*ep^8; Fill mncpoch(10,7) = 1/914457600+3349/2304433152000*ep+6527971/5807171543040000 *ep^2+9723178009/14634072288460800000*ep^3+12298207783411/ 36877862166921216000000*ep^4+13950084494004769/92932212660641464320000000 *ep^5+14659641516358575451/234189175904816490086400000000*ep^6+ 14575539581387166167929/590156723280137555017728000000000*ep^7+ 13910523020075363952933091/1487194942665946638644674560000000000*ep^8; Fill mncpoch(10,8) = 1/14631321600+4609/36870930432000*ep+12335311/ 92914744688640000*ep^2+25265669869/234145156615372800000*ep^3+ 44132951818351/590045794670739456000000*ep^4+69557603785127029/ 1486915402570263429120000000*ep^5+102302222285618631991/ 3747026814477063841382400000000*ep^6+143476339661266642476589/ 9442507572482200880283648000000000*ep^7+194690710993271333473435231/ 23795119082655146218314792960000000000*ep^8; Fill mncpoch(11,0) = 1; Fill mncpoch(11,1) = 1/10+1/100*ep+1/1000*ep^2+1/10000*ep^3+1/100000*ep^4+1/ 1000000*ep^5+1/10000000*ep^6+1/100000000*ep^7+1/1000000000*ep^8; Fill mncpoch(11,2) = 1/180+19/16200*ep+271/1458000*ep^2+3439/131220000*ep^3+ 40951/11809800000*ep^4+468559/1062882000000*ep^5+5217031/95659380000000* ep^6+56953279/8609344200000000*ep^7+612579511/774840978000000000*ep^8; Fill mncpoch(11,3) = 1/4320+121/1555200*ep+9781/559872000*ep^2+660241/ 201553920000*ep^3+40194301/72559411200000*ep^4+2288547961/ 26121388032000000*ep^5+124353617221/9403699691520000000*ep^6+ 6529035298081/3385331888947200000000*ep^7+333952599246541/ 1218719480020992000000000*ep^8; Fill mncpoch(11,4) = 1/120960+1207/304819200*ep+913789/768144384000*ep^2+ 555426703/1935723847680000*ep^3+296460129781/4878024096153600000*ep^4+ 145189272301687/12292620722307072000000*ep^5+66898216741040749/ 30977404220213821440000000*ep^6+29460299343262190623/ 78063058634938830028800000000*ep^7+12530878041663447427621/ 196718907760045851672576000000000*ep^8; Fill mncpoch(11,5) = 1/3628800+1627/9144576000*ep+1597129/23044331520000*ep^2+ 1226220883/58071715430400000*ep^3+811472900641/146340722884608000000*ep^4 +486007890570907/368778621669212160000000*ep^5+271021530780821689/ 929322126606414643200000000*ep^6+143289342271207300003/ 2341891759048164900864000000000*ep^7+72712401795570513428881/ 5901567232801375550177280000000000*ep^8; Fill mncpoch(11,6) = 1/108864000+2131/274337280000*ep+2671153/691329945600000* ep^2+514496399/348430292582400000*ep^3+2108003826121/ 4390221686538240000000*ep^4+1548441818935891/11063358650076364800000000* ep^5+1051436207524510753/27879663798192439296000000000*ep^6+ 134642638172712143903/14051350554288989405184000000000*ep^7+ 412011849990805116064441/177047016984041266505318400000000000*ep^8; Fill mncpoch(11,7) = 1/3048192000+2761/7681443840000*ep+4410583/ 19357238476800000*ep^2+1070229857/9756048192307200000*ep^3+5479227875671/ 122926207223070720000000*ep^4+5000355380608621/ 309774042202138214400000000*ep^5+4201660097307941983/ 780630586349388300288000000000*ep^6+664051810433512833761/ 393437815520091703345152000000000*ep^7+2503775052856370542411591/49573164\ 75553155462148915200000000000*ep^8; Fill mncpoch(11,8) = 1/73156608000+3601/184354652160000*ep+7435423/ 464573723443200000*ep^2+2319380921/234145156615372800000*ep^3+ 15220627743871/2950228973353697280000000*ep^4+17785682685460261/ 7434577012851317145600000000*ep^5+19141633553094561223/ 18735134072385319206912000000000*ep^6+155193849894135964769/ 377700302899288035211345920000000*ep^7+18799129291740646843156591/ 118975595413275731091573964800000000000*ep^8; Fill mncpoch(11,9) = 1/1316818944000+4861/3318383738880000*ep+13560283/ 8362327021977600000*ep^2+5736572237/4214612819076710400000*ep^3+ 51361032836971/53104121520366551040000000*ep^4+82500584060043721/ 133822386231323708620800000000*ep^5+123092369468749649683/ 337232413302935745724416000000000*ep^6+34899123353478310839341/ 169965136304679615845105664000000000*ep^7+238663606418654005131004891/ 2141560717438963159648331366400000000000*ep^8; Fill mncpoch(12,0) = 1; Fill mncpoch(12,1) = 1/11+1/121*ep+1/1331*ep^2+1/14641*ep^3+1/161051*ep^4+1/ 1771561*ep^5+1/19487171*ep^6+1/214358881*ep^7+1/2357947691*ep^8; Fill mncpoch(12,2) = 1/220+21/24200*ep+331/2662000*ep^2+4641/292820000*ep^3+ 61051/32210200000*ep^4+771561/3543122000000*ep^5+9487171/389743420000000* ep^6+114358881/42871776200000000*ep^7+1357947691/4715895382000000000*ep^8 ; Fill mncpoch(12,3) = 1/5940+299/5880600*ep+59701/5821794000*ep^2+9950399/ 5763576060000*ep^3+1495099501/5705940299400000*ep^4+210020850599/ 5648880896406000000*ep^5+28144165209301/5592392087441940000000*ep^6+ 3642833155720799/5536468166567520600000000*ep^7+459166842516359101/ 5481103484901845394000000000*ep^8; Fill mncpoch(12,4) = 1/190080+1691/752716800*ep+1792261/2980758528000*ep^2+ 1523994731/11803803770880000*ep^3+1137122864101/46743062932684800000*ep^4 +777937168743371/185102529213431808000000*ep^5+500357399225265541/ 733006015685189959680000000*ep^6+307361091039836013611/ 2902703822113352240332800000000*ep^7+182235698255870936780581/ 11494707135568874871717888000000000*ep^8; Fill mncpoch(12,5) = 1/6652800+15797/184415616000*ep+150376909/5112000875520000 *ep^2+1118222752373/141704664269414400000*ep^3+7158394096103581/ 3928053293548167168000000*ep^4+41422030615640017157/ 108885637297155193896960000000*ep^5+222897788899387733574829/ 3018309865877141974823731200000000*ep^6+1135800319039795095113566613/ 83667549482114375542113828864000000000*ep^7+ 5548321798938731608873353916861/23192644716442104900273953361100800000000\ 00*ep^8; Fill mncpoch(12,6) = 1/239500800+20417/6638962176000*ep+244703449/ 184032031518720000*ep^2+2248752686753/5101367913698918400000*ep^3+ 17547631508902441/141409918567734018048000000*ep^4+122492088186769294577/ 3919882942697586980290560000000*ep^5+788811236322261874520569/ 108659155171577111093654323200000000*ep^6+4780108230848644955398595393/ 3012031781356117519516097839104000000000*ep^7+ 27632421825459471302814864632521/8349352097919157764098623209996288000000\ 0000*ep^8; Fill mncpoch(12,7) = 1/8382528000+25961/232363676160000*ep+388631233/ 6441121103155200000*ep^2+880664848501/35709575395892428800000*ep^3+ 41959661109350161/4949347149870690631680000000*ep^4+355116449377006587161/ 137195902994415544310169600000000*ep^5+2757576831668386393741153/38030704\ 31005198888277901312000000000*ep^6+160544913484945432978396381/8433688987\ 79712905464507394949120000000*ep^7+138890046870526656356843556665521/ 2922273234271705217434518123498700800000000000*ep^8; Fill mncpoch(12,8) = 1/268240896000+32891/7435637637120000*ep+616565863/ 206115875300966400000*ep^2+1735225134619/1142706412668557721600000*ep^3+ 102085212023898511/158379108795862100213760000000*ep^4+ 1062566968702623268391/4390268895821297417925427200000000*ep^5+ 10121165924777565643690783/121698253792166364424892841984000000000*ep^6+ 18041558808865341806615334763/674695119023770324371605915959296000000000* ep^7+764030059597710749956064906203471/9351274349669456695790457995195842\ 5600000000000*ep^8; Fill mncpoch(12,9) = 1/7242504192000+42131/200762216202240000*ep+1005856303/ 5565128633126092800000*ep^2+3594047582563/30853073142051058483200000*ep^3 +268130210338309111/4276235937488276705771520000000*ep^4+ 3540090112228599454031/118537260187175030283986534400000000*ep^5+ 42831598561769824598937223/3285852852388491839472106733568000000000*ep^6+ 97194352951015977665451322867/18216768213641798758033359730900992000000000 *ep^7+5254409165934648918099916022658871/25248440744107533078634236587028\ 77491200000000000*ep^8; Fill mncpoch(12,10) = 1/144850083840000+55991/4015244324044800000*ep+1781891563/ 111302572662521856000000*ep^2+8533450995199/617061462841021169664000000* ep^3+859498364305599811/85524718749765534115430400000000*ep^4+ 15452737441504212834491/2370745203743500605679730688000000000*ep^5+ 257006539501018214484982483/65717057047769836789442134671360000000000* ep^6+809616480447838468217822765743/3643353642728359751606671946180198400\ 00000000*ep^7+61360831260969854765595033688648771/50496881488215066157268\ 473174057549824000000000000*ep^8; Fill mncpoch(13,0) = 1; Fill mncpoch(13,1) = 1/12+1/144*ep+1/1728*ep^2+1/20736*ep^3+1/248832*ep^4+1/ 2985984*ep^5+1/35831808*ep^6+1/429981696*ep^7+1/5159780352*ep^8; Fill mncpoch(13,2) = 1/264+23/34848*ep+397/4599936*ep^2+6095/607191552*ep^3+ 87781/80149284864*ep^4+1214423/10579705602048*ep^5+16344637/ 1396521139470336*ep^6+215622815/184340790410084352*ep^7+2801832661/ 24332984334131134464*ep^8; Fill mncpoch(13,3) = 1/7920+181/5227200*ep+21871/3449952000*ep^2+2205361/ 2276968320000*ep^3+200416951/1502799091200000*ep^4+17022590641/ 991847400192000000*ep^5+1378875935431/654619284126720000000*ep^6+ 107851344160321/432048727523635200000000*ep^7+8212654597784311/ 285152160165599232000000000*ep^8; Fill mncpoch(13,4) = 1/285120+763/564537600*ep+364699/1117784448000*ep^2+ 139778527/2213213207040000*ep^3+46985048971/4382162149939200000*ep^4+ 14473200299383/8676681056879616000000*ep^5+4189304622793459/ 17179828492621639680000000*ep^6+1157517906693183007/ 34016060415390846566400000000*ep^7+308537166288563126011/ 67351799622473876201472000000000*ep^8; Fill mncpoch(13,5) = 1/11404800+2021/45163008000*ep+2459191/178845511680000* ep^2+2335527761/708228226252800000*ep^3+1907847025231/ 2804583775961088000000*ep^4+1407526687069601/11106151752805908480000000* ep^5+964841205958233871/43980360941111397580800000000*ep^6+ 625758689006053191041/174162229326801134419968000000000*ep^7+ 388736065627868489824111/689682428134132492303073280000000000*ep^8; Fill mncpoch(13,6) = 1/479001600+18107/13277924352000*ep+192204079/ 368064063037440000*ep^2+1562214174863/10202735827397836800000*ep^3+ 10767108840037111/282819837135468036096000000*ep^4+66294052036125743567/ 7839765885395173960581120000000*ep^5+376037049102838201214599/ 217318310343154222187308646400000000*ep^6+2004445902467351339919290303/ 6024063562712235039032195678208000000000*ep^7+ 10178591833638313204086914516791/1669870419583831552819724641999257600000\ 00000*ep^8; Fill mncpoch(13,7) = 1/20118067200+22727/557672822784000*ep+297202819/ 15458690647572480000*ep^2+2935291198643/428514904750709145600000*ep^3+ 24328154177767771/11878433159689657516032000000*ep^4+ 178690124337412845587/329270167186597306344407040000000*ep^5+ 1201585423541685547826539/9127369034412477331866963148800000000*ep^6+ 7555770559229938570877900483/253010669633913871639352218484736000000000* ep^7+45086251817280629401542814748251/70134557622520925218428434963968819\ 20000000000*ep^8; Fill mncpoch(13,8) = 1/804722688000+28271/22306912911360000*ep+453937243/ 618347625902899200000*ep^2+1090383854767/3428119238005673164800000*ep^3+ 54553594631909011/475137326387586300641280000000*ep^4+ 481135252976716402571/13170806687463892253776281600000000*ep^5+ 3868999266044601283680163/365094761376499093274678525952000000000*ep^6+ 5801100498036241617520144831/2024085357071310973114817747877888000000000* ep^7+205892757622845247039201229463571/2805382304900837008737137398558752\ 76800000000000*ep^8; Fill mncpoch(13,9) = 1/28970016768000+35201/803048864808960000*ep+697880173/ 22260514532504371200000*ep^2+411529154909/24682458513640846786560000*ep^3 +125851020719893261/17104943749953106823086080000000*ep^4+ 1353282826565576701301/474149040748700121135946137600000000*ep^5+ 13247249254144047823696093/13143411409553967357888426934272000000000*ep^6 +24161787964279891901162929729/728670728545671950321334389236039680000000\ 00*ep^7+1043098710585143501414496744573421/100993762976430132314536946348\ 11509964800000000000*ep^8; Fill mncpoch(13,10) = 1/869100503040000+44441/24091465944268800000*ep+ 1108515013/667815435975131136000000*ep^2+4106181518569/ 3702368777046127017984000000*ep^3+315556606877781061/ 513148312498593204692582400000000*ep^4+4269025874116273704941/14224471222\ 461003634078384128000000000*ep^5+52693048330978416857350933/3943023422866\ 19020736652808028160000000000*ep^6+121538541279928006253547453913/ 2186012185637015850964003167708119040000000000*ep^7+ 6658179317717817390328389115354021/30298128892929039694361083904434529894\ 4000000000000*ep^8; Fill mncpoch(13,11) = 1/19120211066880000+58301/530012250773913600000*ep+ 1916566873/14691939591452884992000000*ep^2+376756195621/ 3258084523800591775825920000*ep^3+968286715791163561/ 11289262874969050503236812800000000*ep^4+17689479754981800660401/31293836\ 6894142079949724450816000000000*ep^5+297869237735026174010508793/ 8674651530305618456206361776619520000000000*ep^6+ 947232068281420560610677828109/480922680840143487212080696895786188800000\ 00000*ep^7+72301361649620262240648362603307721/66655883564443887327594384\ 58975596576768000000000000*ep^8; Fill mncpoch(14,0) = 1; Fill mncpoch(14,1) = 1/13+1/169*ep+1/2197*ep^2+1/28561*ep^3+1/371293*ep^4+1/ 4826809*ep^5+1/62748517*ep^6+1/815730721*ep^7+1/10604499373*ep^8; Fill mncpoch(14,2) = 1/312+25/48672*ep+469/7592832*ep^2+7825/1184481792*ep^3+ 122461/184779159552*ep^4+1840825/28825548890112*ep^5+26916709/ 4496785626857472*ep^6+385749025/701498557789765632*ep^7+5444719021/ 109433775015203438592*ep^8; Fill mncpoch(14,3) = 1/10296+431/17667936*ep+123985/30318178176*ep^2+29756735/ 52025993750016*ep^3+6435002161/89276605275027456*ep^4+1300327044191/ 153198654651947114496*ep^5+250535610806545/262888891382741248475136*ep^6+ 46600712499079295/451117337612783982383333376*ep^7+8436835026557345521/ 774117351343537313769800073216*ep^8; Fill mncpoch(14,4) = 1/411840+3013/3533587200*ep+5684779/30318178176000*ep^2+ 8597132257/260129968750080000*ep^3+11398215827131/2231915131875686400000* ep^4+13843191192775273/19149831831493389312000000*ep^5+ 15792076962253449859/164305557114213280296960000000*ep^6+ 17190282697604029900897/1409741680039949944947916800000000*ep^7+ 18044901236793220749110251/12095583614742770527653126144000000000*ep^8; Fill mncpoch(14,5) = 1/18532800+11899/477034272000*ep+85194151/ 12278862161280000*ep^2+475777842799/316057912031347200000*ep^3+ 2283980112402751/8135330655686876928000000*ep^4+9896078581316259199/ 209403411077380212126720000000*ep^5+39815208848047266256351/ 5390043801131766660141772800000000*ep^6+151466645565075194886425599/ 138739727441131673832049231872000000000*ep^7+ 551587203330715378710089569951/3571160584334729284436947228385280000000000 *ep^8; Fill mncpoch(14,6) = 1/889574400+30233/45795290112000*ep+535325959/ 2357541534965760000*ep^2+7251045288557/121366238220037324800000*ep^3+ 83204158230308311/6247933943567521480704000000*ep^4+852093272814154275653/ 321643639414856005826641920000000*ep^5+8031393576834107804233519/16558214\ 557076787179955526041600000000*ep^6+71069748299257108665705171437/ 852416885398313004024110480621568000000000*ep^7+ 598540154358382631213595708104551/438824212603051534471612075423983206400\ 00000000*ep^8; Fill mncpoch(14,7) = 1/43589145600+263111/15707784508416000*ep+39775926271/ 5660457225452789760000*ep^2+4534773218406131/2039802365764167317913600000 *ep^3+433223309194517878591/735063180526775334683344896000000*ep^4+ 36623467593521271300764651/264887367734628759606490166722560000000*ep^5+ 2830261534635430995623633510311/95454811836850819811794796480141721600000\ 000*ep^6+204230857526647084696585487111551571/343980959935275614273783728\ 59583870795776000000000*ep^7+13964269425857150470982988628179498584431/ 12395697872227592035970070443679643679965839360000000000*ep^8; Fill mncpoch(14,8) = 1/2092278988800+323171/753973656403968000*ep+59185576531/ 271701946821733908480000*ep^2+8089458944857991/ 97910513556680031259852800000*ep^3+919076213422688818051/ 35283032665285216064800555008000000*ep^4+91823184971687961712907711/ 12714593651262180461111528002682880000000*ep^5+ 8345162024035009976100870632971/45818309681688393509661502310468026368000\ 00000*ep^6+705441288690189783861203777327789831/1651108607689322948514161\ 897260025798197248000000000*ep^7+56333073224589948889686887494486555834291 /594993497866924417726563381296622896638360289280000000000*ep^8; Fill mncpoch(14,9) = 1/94152554496000+395243/33928814538178560000*ep+ 87671530027/12226587606978025881600000*ep^2+2881624291392787/ 881194622010120281338675200000*ep^3+1957498343068993541371/15877364699378\ 34722916024975360000000*ep^4+232904005553356464226598423/5721567143067981\ 20750018760120729600000000*ep^5+25131019512276517065840272175427/ 206182393567597770793476760397106118656000000000*ep^6+ 100667365079159316873217754942206583/297199549384078130732549141506804643\ 6755046400000000*ep^7+237715531624219206031850638349354377083691/ 26774707404011598797695352158348030348726213017600000000000*ep^8; Fill mncpoch(14,10) = 1/3766102179840000+485333/1357152581527142400000*ep+ 131395179997/489063504279121035264000000*ep^2+5249102644578733/ 35247784880404811253547008000000*ep^3+4321956629319483821221/635094587975\ 13388916640999014400000000*ep^4+622269078288748761680398313/2288626857227\ 1924830000750404829184000000000*ep^5+81191240775309893005627356193597/ 8247295742703910831739070415884244746240000000000*ep^6+196624060168533023\ 6541482478607263661/594399098768156261465098283013609287351009280000000000 *ep^7+1123408610653376211081961420837996293181141/10709882961604639519078\ 14086333921213949048520704000000000000*ep^8; Fill mncpoch(14,11) = 1/124281371934720000+605453/44786035190395699200000*ep+ 204122194357/16139095641210994163712000000*ep^2+10152934241811301/ 1163176901053358771367051264000000*ep^3+10419808934951351201821/209581214\ 0317941834249152967475200000000*ep^4+1873896527555105068043136833/ 755246862884973519390024763359363072000000000*ep^5+ 306283691665229113778968952573557/272160759509229057447389323724180076625\ 920000000000*ep^6+9324400010250794465967432595234397029/19615170259349156\ 628348243339449106482583306240000000000*ep^7+6723643256810003367342001437\ 535775148798541/353426137732953104129578648490194000603186011832320000000\ 00000*ep^8; Fill mncpoch(14,12) = 1/2982752926433280000+785633/1074864844569496780800000*ep +345677548297/387338295389063859929088000000*ep^2+22609770372241993/ 27916245625280610512809230336000000*ep^3+30788951063304162695521/ 50299491367630604021979671219404800000000*ep^4+ 7421449730141249102522110613/18125924709239364465360594320624713728000000\ 000*ep^5+1643480504042079377071402842823897/65318582282214973787373437693\ 80321839022080000000000*ep^6+68548863453911166898112505439236349321/ 470764086224379759080357840146778555581999349760000000000*ep^7+6847931434\ 2438573625851557587743802252087441/84822273055908744991098875637646560144\ 7646428397568000000000000*ep^8; Fill mncpoch(15,0) = 1; Fill mncpoch(15,1) = 1/14+1/196*ep+1/2744*ep^2+1/38416*ep^3+1/537824*ep^4+1/ 7529536*ep^5+1/105413504*ep^6+1/1475789056*ep^7+1/20661046784*ep^8; Fill mncpoch(15,2) = 1/364+27/66248*ep+547/12057136*ep^2+9855/2194398752*ep^3+ 166531/399380572864*ep^4+2702727/72687264261248*ep^5+42664987/ 13229082095547136*ep^6+660058335/2407692941389578752*ep^7+10056547411/ 438200115332903332864*ep^8; Fill mncpoch(15,3) = 1/13104+253/14309568*ep+42715/15626048256*ep^2+6015745/ 17063644695552*ep^3+763256971/18633500007542784*ep^4+90472789513/ 20347782008236720128*ep^5+10223601479155/22219777952994498379776*ep^6+ 1115121824669665/24263997524669992230715392*ep^7+118367223981213691/ 26496285296939631515941208064*ep^8; Fill mncpoch(15,4) = 1/576576+3875/6925830912*ep+9400015/83193080914944*ep^2+ 18271772975/999315287950307328*ep^3+31127621401111/ 12003775238859091623936*ep^4+48562095793871375/ 144189348169175408586719232*ep^5+71141542266920852455/ 1732002450208135007943671414784*ep^6+99417133838647351248575/ 20804813431900117715419381034385408*ep^7+133936575831492239388083671/ 249907418943984213997617604985037520896*ep^8; Fill mncpoch(15,5) = 1/28828800+25381/1731457728000*ep+387438661/ 103991351143680000*ep^2+4610928219841/6245720549689420800000*ep^3+ 47147998264059421/375117976214346613248000000*ep^4+434927426929788929401/ 22529585651433657591674880000000*ep^5+3723760724060950629591781/135312691\ 4225105474955993292800000000*ep^6+30131870489854393797623158561/812688024\ 68359834825856957165568000000000*ep^7+233290989096242145159494874301741/ 4881004276249691679640968847364014080000000000*ep^8; Fill mncpoch(15,6) = 1/1556755200+96163/280496151936000*ep+5412131209/ 50539796655828480000*ep^2+232845928739887/9106260561447175526400000*ep^3+ 8480563352761350841/1640766027961552086346752000000*ep^4+ 275468243066220953681263/295633222918112454917957775360000000*ep^5+ 8229495794026176501671293609/53267194105385502127117631964364800000000* ep^6+230652906557715612798861145825087/9597683033908359773264054927339249\ 664000000000*ep^7+6148293368745911282624646009711964441/17293105290496082\ 63946717416807986004459520000000000*ep^8; Fill mncpoch(15,7) = 1/87178291200+237371/31415569016832000*ep+32340901531/ 11320914450905579520000*ep^2+3319563339382991/ 4079604731528334635827200000*ep^3+285218744266688443051/ 1470126361053550669366689792000000*ep^4+21662662113612051435032711/ 529774735469257519212980333445120000000*ep^5+ 1502482345725330152998011257971/19090962367370163962358959296028344320000\ 0000*ep^6+97202889302585095180049643780914831/687961919870551228547567457\ 19167741591552000000000*ep^7+5952467251033898900737245582597571459291/ 24791395744455184071940140887359287359931678720000000000*ep^8; Fill mncpoch(15,8) = 1/4881984307200+288851/1759271864942592000*ep+6744421573/ 90567315607244636160000*ep^2+5749983097429271/ 228457864965586739606323200000*ep^3+581227874122347314131/ 82327076218998837484534628352000000*ep^4+7369181867632927309499513/ 4238197883754060153703842667560960000000*ep^5+ 4158040723545531838249255762651/10690938925727291818921017205775872819200\ 000000*ep^6+311258825750709074213121330442188311/385258675127508687986637\ 7760273393529126912000000000*ep^7+3139438800097200291604104524823060815653 /198331165955641472575521127098874298879453429760000000000*ep^8; Fill mncpoch(15,9) = 1/263627152588800+348911/95000680706899968000*ep+ 9738077953/4890635042791210352640000*ep^2+9844065830429531/ 12336724708141683938741452800000*ep^3+1172462467897944945991/444566211582\ 5937224164869931008000000*ep^4+17428909842197294946102293/228862685722719\ 248300007504048291840000000*ep^5+11485502999402118579489581785711/ 577310701989273758221734929111897132236800000000*ep^6+1001078135894800316\ 097265612491990971/208039684568854691512784399054763250572853248000000000 *ep^7+11728689206074587003718643480004343346833/1070988296160463951907814\ 0863339212139490485207040000000000*ep^8; Fill mncpoch(15,10) = 1/13181357629440000+420983/4750034035344998400000*ep+ 14072518921/244531752139560517632000000*ep^2+3388741583229943/ 123367247081416839387414528000000*ep^3+2393629384830687205471/22228310579\ 1296861208243496550400000000*ep^4+6010531141202007201947387/1634733469447\ 994630714339314630656000000000*ep^5+32711862019428960669368433503047/ 28865535099463687911086746455594856611840000000000*ep^6+ 671737491071816873891997470384718871/208039684568854691512784399054763250\ 5728532480000000000*ep^7+46309735246451719671678673255409670825913/ 535494148080231975953907043166960606974524260352000000000000*ep^8; Fill mncpoch(15,11) = 1/579979735695360000+511073/209001497555179929600000*ep+ 20650028431/10759397094140662775808000000*ep^2+5993247069118249/ 5428158871582340933046239232000000*ep^3+5093287527115002467521/9780456654\ 817061893162713848217600000000*ep^4+107624328462384132170626979/ 503497908589982346260016508906242048000000000*ep^5+ 100582992277662265940130925269817/127008354437640226808781684404617369092\ 0960000000000*ep^6+2484041845930735581601276481896281577/9153746121029606\ 4265625135584095830252055429120000000000*ep^7+206157828032094554347720814\ 865435390305863/235617425155302069419719098993462667068790674554880000000\ 00000*ep^8; Fill mncpoch(15,12) = 1/20879270485032960000+631193/7524053911986477465600000* ep+31481300311/387338295389063859929088000000*ep^2+11287394379818497/ 195413719376964273589664612352000000*ep^3+11872496591633991765721/ 352096439573414228153857698535833600000000*ep^4+ 44479481424974775838628477/2589417815605623495051513474374959104000000000 *ep^5+362383882407292799553197505474577/457230075975504816511614063856622\ 52873154560000000000*ep^6+447598089475341511922691734136700777/ 131813944142826332542500195241097995562959817932800000000*ep^7+1166255729\ 956702097421894584588658556970863/848222730559087449910988756376465601447\ 646428397568000000000000*ep^8; Fill mncpoch(15,13) = 1/542861032610856960000+811373/ 195625401711648414105600000*ep+52366041331/ 10070795680115660358156288000000*ep^2+24496833037645909/50807567038010711\ 13331279921152000000*ep^3+33941693475249191183821/91545074289087699320003\ 00161931673600000000*ep^4+1185015560027737611941951879/471274042440223476\ 099375452336242556928000000000*ep^5+1856996607647877139991103732382117/ 1188798197536312522930196566027218574702018560000000000*ep^6+781086819900\ 82438414786707453539487637/8567906369283711615262512690671369711592388165\ 6320000000000*ep^7+11218843102080311921404943833859190615852763/ 22053790994536273697685707665788105637638807138336768000000000000*ep^8; Fill mncpoch(16,0) = 1; Fill mncpoch(16,1) = 1/15+1/225*ep+1/3375*ep^2+1/50625*ep^3+1/759375*ep^4+1/ 11390625*ep^5+1/170859375*ep^6+1/2562890625*ep^7+1/38443359375*ep^8; Fill mncpoch(16,2) = 1/420+29/88200*ep+631/18522000*ep^2+12209/3889620000*ep^3+ 221551/816820200000*ep^4+3861089/171532242000000*ep^5+65445871/ 36021770820000000*ep^6+1087101569/7564571872200000000*ep^7+17782312591/ 1588560093162000000000*ep^8; Fill mncpoch(16,3) = 1/16380+587/44717400*ep+229909/122078502000*ep^2+75104063/ 333274310460000*ep^3+22099571341/909838867555800000*ep^4+6074505299687/ 2483860108427334000000*ep^5+1591540832089909/6780938096006621820000000* ep^6+402437586022004063/18511961002098077568600000000*ep^7+ 99017471735524661341/50537653535727751762278000000000*ep^8; Fill mncpoch(16,4) = 1/786240+181/476985600*ep+1660831/23439072384000*ep^2+ 150723401/14219703912960000*ep^3+970805468551/698756250282854400000*ep^4+ 23559283621507/141304041723866112000000*ep^5+391284412543967671/ 20831041830932342231040000000*ep^6+25505157635369090041/ 12637498710765620953497600000000*ep^7+129792093281130737021191/ 621006686647022613654872064000000000*ep^8; Fill mncpoch(16,5) = 1/43243200+7793/865728864000*ep+328609891/ 155987026715520000*ep^2+1199908541813/3122860274844710400000*ep^3+ 33868064779952131/562676964321519919872000000*ep^4+95788093578258793133/ 11264792825716828795837440000000*ep^5+2262193177982682942722971/202969037\ 1337658212433989939200000000*ep^6+5608261688595662272985899253/4063440123\ 4179917412928478582784000000000*ep^7+119685414337587751234076805811411/ 7321506414374537519461453271046021120000000000*ep^8; Fill mncpoch(16,6) = 1/2594592000+653/3462915456000*ep+505096201/ 9359221602931200000*ep^2+16378601009/1387937899930982400000*ep^3+ 73707865232274001/33760617859291195192320000000*ep^4+16223415984884756209/ 45059171302867315183349760000000*ep^5+6646895816217486003329401/121781422\ 280259492746039396352000000000*ep^6+1261023140844204616776757337/ 162537604936719669651713914331136000000000*ep^7+ 460502138613550933010331011282401/439290384862472251167687196262761267200\ 000000000*ep^8; Fill mncpoch(16,7) = 1/163459296000+4327/1178083838131200*ep+6711529309/ 5306678648861990400000*ep^2+62692963759919/191231471790390686054400000* ep^3+12245902756182085981/172280432935962969066408960000000*ep^4+ 84513205394696034097007/6208297681280361553277113282560000000*ep^5+ 13305358910031620309537534029/5593055381065477723347351356258304000000000 *ep^6+78095375557003087191405200916287/2015513437120755552385451534741242\ 42944000000000*ep^7+10838701624699516699340442376744161661/18157760555020\ 8867714405328764838530468249600000000000*ep^8; Fill mncpoch(16,8) = 1/10461394944000+52279/753973656403968000*ep+38620655011/ 1358509734108669542400000*ep^2+849477191073451/ 97910513556680031259852800000*ep^3+387257944458431377171/ 176415163326426080324002775040000000*ep^4+6193229394256281368037763/ 12714593651262180461111528002682880000000*ep^5+ 2246413060563394670926707349531/22909154840844196754830751155234013184000\ 000000*ep^6+6046828666782403550175714445841903/33022172153786458970283237\ 9452005159639449600000000*ep^7+9584192548303410472972779678770218401091/ 2974967489334622088632816906483114483191801446400000000000*ep^8; Fill mncpoch(16,9) = 1/659067881472000+2503/1900013614137999360*ep+22793611/ 35646028008682291200000*ep^2+1412951119346707/ 6168362354070841969370726400000*ep^3+750951562578273758971/11114155289564\ 843060412174827520000000*ep^4+1989289526080312570057597/11443134286135962\ 4150003752024145920000000*ep^5+5830714928654901859656485624131/ 1443276754973184395554337322779742830592000000000*ep^6+ 90267184239342887297901748215262291/1040198422844273457563921995273816252\ 86426624000000000*ep^7+4688423681644324237636098524196961729213/ 26774707404011598797695352158348030348726213017600000000000*ep^8; Fill mncpoch(16,10) = 1/39544072888320000+74587/2850020421206999040000*ep+ 11017990873/733595256418681552896000000*ep^2+2339387863912039/ 370101741244250518162243584000000*ep^3+1453469738111059070671/66684931737\ 3890583624730489651200000000*ep^4+4483443596678889935329033/6865880571681\ 577449000225121448755200000000*ep^5+15255361713233596392711645893431/ 86596605298391063733260239366784569835520000000000*ep^6+ 273514589138704847167154038687155463/624119053706564074538353197164289751\ 7185597440000000000*ep^7+16422199555694762181107006783875931091913/ 1606482444240695927861721129500881820923572781056000000000000*ep^8; Fill mncpoch(16,11) = 1/2174924008857600000+445007/783755615831924736000000*ep+ 3119956589/8069547820605497081856000000*ep^2+782683688577779/ 4071119153686755699784679424000000*ep^3+2863709208190501272871/3667671245\ 5563982099360176930816000000000*ep^4+51901967990923850782124981/ 1888117157212433798475061908398407680000000000*ep^5+ 8288022434505328561539365461571/95256265828230170106586263303463026819072\ 0000000000*ep^6+34833957681534915490176767449340023/137306191815444096398\ 43770337614374537808314368000000000*ep^7+87505004416900283452806437844537\ 91527559/12622362061891182290342094588935500021542357565440000000000000* ep^8; Fill mncpoch(16,12) = 1/104396352425164800000+535097/37620269559932387328000000 *ep+4497296267/387338295389063859929088000000*ep^2+1349909677549421/ 195413719376964273589664612352000000*ep^3+5904043279451184720121/ 1760482197867071140769288492679168000000000*ep^4+ 127887004997460598130082251/906296235461968223268029716031235686400000000\ 00*ep^5+24417898826815043961294119451197/45723007597550481651161406385662\ 252873154560000000000*ep^6+614131489469228039545481281518367661/ 3295348603570658313562504881027449889073995448320000000000*ep^7+258850309\ 828554320140723108819711335619663/424111365279543724955494378188232800723\ 8232141987840000000000000*ep^8; Fill mncpoch(16,13) = 1/4071457744581427200000+655217/ 1467190512837363105792000000*ep+6746001011/ 15106193520173490537234432000000*ep^2+2484371175567269/762113505570160666\ 9996919881728000000*ep^3+13364609919679693527121/686588057168157744900022\ 51214487552000000000*ep^4+357223711219164139055478611/3534555318301676070\ 745315892521819176960000000000*ep^5+16898299179023887779595169301169/ 356639459260893756879058969808165572410605568000000000*ep^6+2643955186853\ 577439630453017974787941/128518595539255674228937690360070545673885822484\ 480000000000*ep^7+199015297855534148820312493361556480329809/ 23629061779860293247520401070487256040327293362503680000000000000*ep^8; Fill mncpoch(16,14) = 1/114000816848279961600000+835397/ 41081334359446166962176000000*ep+11046624767/ 422973418564857735042564096000000*ep^2+5270904366292553/21339178155964498\ 6759913756688384000000*ep^3+37107398637644498515621/192244656007084168572\ 0063034005651456000000000*ep^4+1312368152152133530847563151/9896754891244\ 6929980868844990610936954880000000000*ep^5+ 415538987011799426321335346471897/499295242965251259630682557731431801374\ 84779520000000000*ep^6+17618318122810781566546093563436068233/ 3598520675099158878410255330081975278868803029565440000000000*ep^7+ 12730494797017476979814598661602005270244163/4631296108852617476513998609\ 815502183904149499050721280000000000000*ep^8; Fill mncpoch(17,0) = 1; Fill mncpoch(17,1) = 1/16+1/256*ep+1/4096*ep^2+1/65536*ep^3+1/1048576*ep^4+1/ 16777216*ep^5+1/268435456*ep^6+1/4294967296*ep^7+1/68719476736*ep^8; Fill mncpoch(17,2) = 1/480+31/115200*ep+721/27648000*ep^2+14911/6635520000*ep^3 +289201/1592524800000*ep^4+5386591/382205952000000*ep^5+97576081/ 91729428480000000*ep^6+1732076671/22015062835200000000*ep^7+30276117361/ 5283615080448000000000*ep^8; Fill mncpoch(17,3) = 1/20160+337/33868800*ep+75769/56899584000*ep^2+14206753/ 95591301120000*ep^3+2399181961/160593385881600000*ep^4+378434270257/ 269796888281088000000*ep^5+56891840784409/453258772312227840000000*ep^6+ 8253460511994433/761474737484542771200000000*ep^7+1164951053078142121/ 1279277558974031855616000000000*ep^8; Fill mncpoch(17,4) = 1/1048320+6061/22895308800*ep+22987441/500033544192000* ep^2+69831137221/10920732605153280000*ep^3+185839346519401/ 238508800096547635200000*ep^4+452720097659125981/ 5209032194108600352768000000*ep^5+1035175813192084068961/ 113765263119331831704453120000000*ep^6+2256987773408412618860341/24846333\ 46526207204425256140800000000*ep^7+4742025821783275341389172121/542643922\ 88132365344647594115072000000000*ep^8; Fill mncpoch(17,5) = 1/62899200+2627/457906176000*ep+37330861/30002012651520000 *ep^2+45924434747/218414652103065600000*ep^3+436586760238021/ 14310528005792858112000000*ep^4+415769333764108067/ 104180643882172007055360000000*ep^5+3305276375544114114781/ 6825915787159909902267187200000000*ep^6+2757530258966233435920587/ 49692666930524144088505122816000000000*ep^7+19798141035738909901515577141/ 3255863537287941920678855646904320000000000*ep^8; Fill mncpoch(17,6) = 1/4151347200+12059/110813294592000*ep+6887351221/ 239596073035038720000*ep^2+37088446512379/6395617842881966899200000*ep^3+ 13682171803118081701/13828349075165673550774272000000*ep^4+ 18507364188749222564633/123041577104363015327333744640000000*ep^5+ 16768921235956947907208330581/798106729055908611660443787932467200000000* ep^6+58604736763971951652059555973019/21304128954265720540589446179210657\ 792000000000*ep^7+15763254416627500551377525642070553861/4606293545975517\ 0324040876950842115851550720000000000*ep^8; Fill mncpoch(17,7) = 1/290594304000+8837/4654158372864000*ep+10071852541/ 16771725112452710400000*ep^2+38384146937093/268615949401042609766400000* ep^3+27514282993368915181/967984435261597148554199040000000*ep^4+ 77380131181928255170229/15503238715149739931244051824640000000*ep^5+ 44653625308676613940352053021/55867471033913602816231065155272704000000000 *ep^6+21336017670551927175620716340449/1789546832158320525409513479053695\ 25452800000000*ep^7+54206491055427962936410932344291562061/32244054821828\ 61922682861386558948109608550400000000000*ep^8; Fill mncpoch(17,8) = 1/20922789888000+95549/3015894625615872000*ep+128904492469/ 10868077872869356339200000*ep^2+5173650253288037/ 1566568216906880500157644800000*ep^3+4300186483879412144461/5645285226445\ 634570368088801280000000*ep^4+125281902357438362924784317/813733993680779\ 549511137792171704320000000*ep^5+82715366553943572077600287179109/ 2932371819628057184618336147869953687552000000000*ep^6+202469737041041622\ 1391083799009039189/422683803568466674819625445698566604338495488000000000 *ep^7+1166337614926993519870782080234116229957821/15231833545393265093800\ 02256119354615394202340556800000000000*ep^8; Fill mncpoch(17,9) = 1/1506440871936000+113567/217144413044342784000*ep+ 180060747619/782501606846593656422400000*ep^2+8417984803887179/ 112792911617295396011350425600000*ep^3+8092067738790391925011/40646053630\ 4085689066502393692160000000*ep^4+54216955774992728925926503/117177695090\ 03225512960384207272542208000000*ep^5+204825505198170945801018253560859/ 211130771013220117292520202646636665503744000000000*ep^6+5715243323071060\ 322833830691668596651/304332338569296005870130320902967955123716751360000\ 00000*ep^7+3740768969804352642291281115296235591400771/109669201526831508\ 675360162440593532308382568520089600000000000*ep^8; Fill mncpoch(17,10) = 1/105450861035520000+134159/15200108913103994880000*ep+ 35589400117/7825016068465936564224000000*ep^2+13547983294352027/ 7895503813210677720794529792000000*ep^3+15066569538722815424611/284522375\ 41285998234655167558451200000000*ep^4+83047939830906265693317461/ 585888475450161275648019210363627110400000000*ep^5+ 504097061172824764853457056020459/147791539709254082104764141852645665852\ 62080000000000*ep^6+16095610006741867880696218389241888379/21303263699850\ 72041090912246320775685866017259520000000000*ep^7+17181127144678666038962\ 42048868279961272853/1096692015268315086753601624405935323083825685200896\ 000000000000*ep^8; Fill mncpoch(17,11) = 1/6959756828344320000+158183/1003207188264863662080000*ep +49161501517/516451060518751813238784000000*ep^2+21815374681462883/ 521103251671904729572438966272000000*ep^3+28168883572409422954411/ 1877847677724875883487241058857779200000000*ep^4+ 179723548251415405272856013/386686393797106441927692678839993892864000000\ 00*ep^5+1259690802731425411701598305875059/975424162081076941891443336227\ 461394627297280000000000*ep^6+9271684370312326394283083217916861159/ 28120308083802950942400041651434239053431427825664000000000*ep^7+ 5695665309331854627043684749354613398483853/72381673007708795725737707210\ 791731323532495223259136000000000000*ep^8; Fill mncpoch(17,12) = 1/417585409700659200000+935059/ 300962156479459098624000000*ep+13683247289/ 6197412726225021758865408000000*ep^2+7124376132408439/6253239020062856754\ 869267595264000000*ep^3+53842285403156473734811/1126708606634925530092344\ 63531466752000000000*ep^4+2007338082278875133511508177/116005918139131932\ 57830780365199816785920000000000*ep^5+131404439458218746096631125941339/ 2341017988994584660539464006945907347105513472000000000*ep^6+112851383566\ 3112373265435209424209199/67488739401127082261760099963442173728235426781\ 593600000000*ep^7+20219638374316110870969835894644185789613853/ 4342900380462527743544262432647503879411949713395548160000000000000*ep^8; Fill mncpoch(17,13) = 1/21714441304434278400000+1115239/ 15650032136931873128448000000*ep+19424497661/ 322265461763701131461001216000000*ep^2+12024244516391011/3251684290432685\ 51253201914953728000000*ep^3+108005494827239782784311/5858884754501612756\ 480192103636271104000000000*ep^4+683914217018861020339953331/861758249033\ 55149915314368427198638981120000000000*ep^5+ 1864653300791185841202712983266579/60866467713859201174026064180593591024\ 7433502720000000000*ep^6+95407492238888982305216845300599670819/ 87735361221465206940288129952474825846706054816071680000000000*ep^7+ 81614359630041170984376875845580073961640353/2258308197840514426643016464\ 97670201729421385096568504320000000000000*ep^8; Fill mncpoch(17,14) = 1/912006534786239692800000+1355479/ 657301349751138671394816000000*ep+28728505517/ 13535149394075447521362051072000000*ep^2+21686675147956723/13657074019817\ 279152634480428056576000000*ep^3+238255665765867861122311/246073159689067\ 735772168068352723386368000000000*ep^4+12964333968216612136097386837/ 25335692521586414075102424317596399860449280000000000*ep^5+ 6225025530325288300609163682475811/25563916439820864493090946955849308230\ 392207114240000000000*ep^6+394507518919958434572885941916197437747/ 3684885171301538691492101458003942685561654302275010560000000000*ep^7+ 420101810863365507847913014009677475548566353/948489443093016059190066915\ 2902148472635698174055877181440000000000000*ep^8; Fill mncpoch(17,15) = 1/27360196043587190784000000+1715839/ 19719040492534160141844480000000*ep+46394783861/ 406054481822263425640861532160000000*ep^2+45093029184966667/4097122205945\ 18374579034412841697280000000*ep^3+644498765693232564125311/7382194790672\ 032073165042050581701591040000000000*ep^4+46143130426104224537268397117/ 760070775647592422253072729527891995813478400000000000*ep^5+ 29504419402816573996559219101590779/7669174931946259347927284086754792469\ 11766213427200000000000*ep^6+504190006823950911130580396201209612367/ 22109311027809232148952608748023656113369925813650063360000000000*ep^7+ 3664564504775489620973197863564461331130211353/28454683292790481775702007\ 4587064454179070945221676315443200000000000000*ep^8; Fill mncpoch(18,0) = 1; Fill mncpoch(18,1) = 1/17+1/289*ep+1/4913*ep^2+1/83521*ep^3+1/1419857*ep^4+1/ 24137569*ep^5+1/410338673*ep^6+1/6975757441*ep^7+1/118587876497*ep^8; Fill mncpoch(18,2) = 1/544+33/147968*ep+817/40247296*ep^2+17985/10947264512* ep^3+371281/2977655947264*ep^4+7360353/809922417655808*ep^5+141903217/ 220298897602379776*ep^6+2680790145/59921300147847299072*ep^7+49868399761/ 16298593640214465347584*ep^8; Fill mncpoch(18,3) = 1/24480+767/99878400*ep+392449/407503872000*ep^2+167445503/ 1662615797760000*ep^3+64341277441/6783472454860800000*ep^4+23090095523327/ 27676567615832064000000*ep^5+7896872313485569/112920395872594821120000000 *ep^6+2605987397948934143/460715215160186870169600000000*ep^7+ 836635826473329227521/1879718077853562430291968000000000*ep^8; Fill mncpoch(18,4) = 1/1370880+7409/39152332800*ep+34344361/1118190624768000* ep^2+127496303969/31935524243374080000*ep^3+414575867232601/ 912078572390763724800000*ep^4+1233810004615062929/ 26048964027480211980288000000*ep^5+3446031540223992082441/ 743958412624834854157025280000000*ep^6+9176047021726002919108289/21247452\ 264565283434724641996800000000*ep^7+23542174973410320759123197881/ 606827236675984494895735775428608000000000*ep^8; Fill mncpoch(18,5) = 1/89107200+124877/33083721216000*ep+9370684129/ 12283324013076480000*ep^2+547736118544133/4560552539575035494400000*ep^3+ 27484044889650755641/1693241946893419178360832000000*ep^4+ 1243049340091966141204157/628666870042588672541809704960000000*ep^5+ 52134825205663579992245684689/233411435509412322341323107257548800000000* ep^6+2064753950409325308090252851875253/866609977759346070388864432625827\ 18464000000000*ep^7+78173448188658487580738454984851027881/32175495254249\ 000901397758654531711711313920000000000*ep^8; Fill mncpoch(18,6) = 1/6415718400+5771/88223256576000*ep+14191662109/ 884399328941506560000*ep^2+109647349355177/36484420316600283955200000* ep^3+58016445791093343061/121913420176326180841979904000000*ep^4+ 337564241429821575056833/5029334960340709380334477639680000000*ep^5+ 146132963874211695782571401869/168056233566776872085752637225435136000000\ 00*ep^6+243929920469534636133444889840819/2310959940691589521036971820335\ 53915904000000000*ep^7+281947625150498331913895647060074404101/ 2316635658305928064900638623126283243214602240000000000*ep^8; Fill mncpoch(18,7) = 1/494010316800+695089/672525884878848000*ep+2491409046949/ 8239948547748016619520000*ep^2+746158649625630001/ 11217536354962239905149747200000*ep^3+1680520133126409356069941/137439947\ 629722554255471938633728000000*ep^4+371076347615267005360649932609/ 187105247105199096461229278378411950080000000*ep^5+ 672203138641751347243174296203656069/229245839279220457762613181371911403\ 1248179200000000*ep^6+125973397088159142437612225384802298796881/ 3120861157611595623797110805924653077580021235712000000000*ep^7+ 200752186040543458234139260377176681531750104021/382375399097350963657119\ 12900782271423249039385039994880000000000*ep^8; Fill mncpoch(18,8) = 1/39520825344000+11083/717360943870771200*ep+3509845866349/ 659195883819841329561600000*ep^2+81598335099127831/ 59826860559798612827465318400000*ep^3+3180163710978816320207101/109951958\ 10377804340437755090698240000000*ep^4+17866913657179536531741418541/ 332631550409242838153296494894954577920000000*ep^5+1657296852483437668283\ 659946775174349/183396671423376366210090545097529122499854336000000000* ep^6+23439410759856294189805103726599162264823/16644592840595176660251257\ 631598149747093446590464000000000*ep^7+6315301151730559811202857865019576\ 61333082534301/3059003192778807709256953032062581713859923150803199590400\ 000000000*ep^8; Fill mncpoch(18,9) = 1/3201186852864000+1768477/7844341921226883072000*ep+ 43626282040741/480553799304664329250406400000*ep^2+6341322098576939297/ 235514419279703219256599972413440000*ep^3+473413816892251673970873181/ 72139479711888774277612111150071152640000000*ep^4+ 246122147257642086960153029784733/176774043781038423151026042543469555844\ 382720000000*ep^5+2883473637413744217699157744337822684821/10829390050878\ 951048339636597463997154493898686464000000000*ep^6+1246447056192166404179\ 318934016998968900094421/265368571913962238385017658209824568992352650484\ 48335872000000000*ep^7+12627784907739258572097983165306252797515517212411\ 661/162567971577356234781522437631237048859543141918600319352176640000000\ 0000*ep^8; Fill mncpoch(18,10) = 1/256094948229120000+2074783/627547353698150645760000*ep+ 59514244080691/38444303944373146340032512000000*ep^2+49936180540264833931/ 94205767711881287702639988965376000000*ep^3+855807609806410679522595331/ 5771158376951101942208968892005692211200000000*ep^4+ 508261152987004516562001115242019/141419235024830738520820834034775644675\ 50617600000000*ep^5+6775559655584679353950165584470869480171/ 866351204070316083867170927797119772359511894917120000000000*ep^6+ 3321841632055687198370378353533933115893352747/21229485753116979070801412\ 65678596551938821203875866869760000000000*ep^7+38065285481450491646698910\ 964245375722436249875476211/130054377261884987825217950104989639087634513\ 534880255481741312000000000000*ep^8; Fill mncpoch(18,11) = 1/19719311013642240000+2424847/48321146234757599723520000 *ep+11533647869413/422887343388104609740357632000000*ep^2+ 15639756978914436191/1450768822762971830620655830066790400000*ep^3+ 1540172095689748578368373331/44437919502523484955009060468443830026240000\ 0000*ep^4+149631422498934380414278193855029/15556115852731381237290291743\ 8253209143056793600000000*ep^5+15942160155576398219385344873862572054971/ 66709042713414338457772161440378222471682415908618240000000000*ep^6+ 8902617984757383464641289721457760539744720891/16346704029900073884517087\ 7457251934499289232698441748971520000000000*ep^7+236688647013986140358884\ 9430419492099225839780105139/20437116426867640943962820730784086142342566\ 4126240401471307776000000000000*ep^8; Fill mncpoch(18,12) = 1/1419790392982241280000+566651/ 695824505780509436018688000*ep+15666233612413/ 30447888723943531901305749504000000*ep^2+122986290854820760483/5222767761\ 94669859023436098824044544000000*ep^3+2795886722575639507051899931/ 31995302041816909167606523537279557618892800000000*ep^4+ 44679233920126784544816320489899/1600057630566656355835572865079175865471\ 441305600000000*ep^5+38295171949969044501800041051694943775171/ 4803051075365832368959595623707232017961133945420513280000000000*ep^6+ 24542672570500340991532440887298389137074758659/1176962690152805319685230\ 3176922139283948824754287805925949440000000000*ep^7+523661475023108271953\ 71164291149875089918121440753373/1030030667914129103575726164831517941574\ 06534719625162341539119104000000000000*ep^8; Fill mncpoch(18,13) = 1/92286375543845683200000+16616723/ 1130714821893327833530368000000*ep+4296630026537/ 395822553411265914716974743552000000*ep^2+39337394008338706103/6789598090\ 530708167304669284712579072000000*ep^3+5205742684399278649369003531/ 2079694632718099095894424029923171245228032000000000*ep^4+ 3386116294275986540181282069222449/36401311095391432095259282680551250939\ 47528970240000000000*ep^5+19275537051500212631939807407885805145047/ 62439663979755820796474743108194016233494741290466672640000000000*ep^6+ 14355274757454986807008815614067468916628977943/1530051497198646915590799\ 41299987810691334721805741477037342720000000000*ep^7+17799777006965388973\ 5589515019222736060688284806712173/66951993414418391732422200714048666202\ 31424756775635552200042741760000000000000*ep^8; Fill mncpoch(18,14) = 1/5168037030455358259200000+19679783/ 63320030026026358677700608000000*ep+1203785183113/44332125982061782448301\ 17127782400000*ep^2+65148257709241446563/38021749306971965736906147994390\ 4428032000000*ep^3+10194568240871006282100573031/116462899432213549370087\ 745675697589732769792000000000*ep^4+7847055465116321469102850816127429/ 203847342134192019733451983011087005261061622333440000000000*ep^5+ 52925939449671092126750056917072000886883/3496621182866325964602585614058\ 864909075705512266133667840000000000*ep^6+4677834037559689389696142148214\ 8781523944146339/85682883843124227273084767127993173987147444211215227140\ 91192320000000000*ep^7+68972942460849611052139898532318933154187527368220\ 2673/37493116312074299370156432399867253073295978637943559092320239353856\ 0000000000000*ep^8; Fill mncpoch(18,15) = 1/232561666370491121664000000+23763863/ 2849401351171186140496527360000000*ep+8791883561309/997472834596390105086\ 776353751040000000*ep^2+115417715850340651571/171097871881373845816077665\ 97475699261440000000*ep^3+21978947864622487488802815031/52408304744496097\ 21653948555406391537974640640000000000*ep^4+ 20670452807251665569569965217814069/9173130396038640888005339235498915236\ 747773005004800000000000*ep^5+171113635511127627373867081882550116977011/ 157347953228984668407116352632648920908406748051976015052800000000000* ep^6+37309339135850823595594807167425167574527672663/77114595458811804545\ 776290415193856588432699790093704426820730880000000000*ep^7+3410699527786\ 096675348128272043506802752178440994792673/168719023404334347165703945799\ 40263882983190387074601591544107709235200000000000000*ep^8; Fill mncpoch(18,16) = 1/7441973323855715893248000000+29889983/ 91180843237477956495888875520000000*ep+2804717413153/63838261414168966725\ 55368664006656000000*ep^2+235691963923794646091/5475131900203963066114485\ 31119222376366080000000*ep^3+58075879215443408921577738031/16770657518238\ 7511092926353773004529215188500480000000000*ep^4+ 10213734180205588474482562633289147/4193431038189092977373869364799504108\ 2275533737164800000000000*ep^5+784305135624330012093778824553194147329483/ 5035134503327509389027723284244765469069015937663232481689600000000000* ep^6+1147496171169438232715562102371488583840256842507/123383352734098887\ 27324206466431017054149231966414992708291316940800000000000*ep^7+ 28516768256802235768931911509829305528593157898205445673/ 5399008748938699109302526265580884442554620923863872509294114466955264000\ 00000000000*ep^8; Fill mncpoch(19,0) = 1; Fill mncpoch(19,1) = 1/18+1/324*ep+1/5832*ep^2+1/104976*ep^3+1/1889568*ep^4+1/ 34012224*ep^5+1/612220032*ep^6+1/11019960576*ep^7+1/198359290368*ep^8; Fill mncpoch(19,2) = 1/612+35/187272*ep+919/57305232*ep^2+21455/17535400992* ep^3+469711/5365832703552*ep^4+9874655/1641944807286912*ep^5+201881359/ 502435111029795072*ep^6+4044203135/153745143975117292032*ep^7+79771413871/ 47046014056385891361792*ep^8; Fill mncpoch(19,3) = 1/29376+433/71912448*ep+125065/176041672704*ep^2+30119905/ 430950014779392*ep^3+6532281721/1054965636179951616*ep^4+1323011798353/ 2582555877368521555968*ep^5+255342792121705/6322096787798140769009664* ep^6+47548755887592385/15476492936529848602535657472*ep^7+ 8613301891940798041/37886454708625069379007289491456*ep^8; Fill mncpoch(19,4) = 1/1762560+2981/21573734400*ep+5559121/264062509056000*ep^2 +8301230861/3232125110845440000*ep^3+10856480458201/ 39561211356748185600000*ep^4+12993299923745141/ 484229227006597791744000000*ep^5+14592263864677675681/ 5926965738560756970946560000000*ep^6+15622033867295138433821/ 72546060639983665324385894400000000*ep^7+16112150687252207196763561/ 887963782233400063570483347456000000000*ep^8; Fill mncpoch(19,5) = 1/123379200+26987/10571129856000*ep+437557369/ 905734406062080000*ep^2+5525173283603/77603323911399014400000*ep^3+ 59880470075790961/6649052792728667553792000000*ep^4+584846868682225266107/ 569690843280992236008898560000000*ep^5+5296028087750682494768809/48811111\ 452315414781242428620800000000*ep^6+45277108534208017059189358883/ 4182136029234384738456851284230144000000000*ep^7+ 369979246623375275702348649580321/358325414984802084390983018032838737920\ 000000000*ep^8; Fill mncpoch(19,6) = 1/9623577600+436511/10719125673984000*ep+111347457841/ 11939390940710338560000*ep^2+21679055891892671/ 13298571205400803501670400000*ep^3+3567707614652029688401/ 14812480551423630972300558336000000*ep^4+522830736837015369430864031/ 16498733337397697122187253896970240000000*ep^5+ 70359053570403260874728970376561/1837694914052705096257705088060133212160\ 0000000*ep^6+8869435124481748231721611673952772991/2046898103068465044415\ 6822352848987770322944000000000*ep^7+106173663906871891759615833353980518\ 6610321/22799169831217791050719635009497316538096507944960000000000*ep^8; Fill mncpoch(19,7) = 1/808380518400+529331/900406556614656000*ep+160479961261/ 1002908839019668439040000*ep^2+36574805896138691/ 1117079981253667494140313600000*ep^3+6962581097931622987021/1244248366319\ 585001673246900224000000*ep^4+1169097514347028615086153251/13858936003414\ 06558263729327345500160000000*ep^5+178874684852094456927025715134381/ 1543663727804272280856472273970511898214400000000*ep^6+254725833724531557\ 23688138552726017411/1719394406577510637309173077639314972707127296000000\ 000*ep^7+3426101827699820831868891354003834122699341/19151302658222944482\ 60449340797774589200106667376640000000000*ep^8; Fill mncpoch(19,8) = 1/71137485619200+6936481/871593546802987008000*ep+ 27144205309621/10678973317881429538897920000*ep^2+78915368289828852361/ 130841344044279566253666651340800000*ep^3+189838243670759861066750701/ 1603099549153083872835824692223803392000000*ep^4+ 399733753113342469138829668028641/196415604201153803501140047270521728715\ 98080000000*ep^5+762126859139026684033692640366200630181/2406531122417544\ 67740880813276977714544308859699200000000*ep^6+13452759687741648168212277\ 17194153327357939321/2948539687932913759833529535664717433248362783160926\ 208000000000*ep^7+2232837539037204136988060969874372494395814569500061/ 36126215906079163284782763918052677524342920426355626522705920000000000* ep^8; Fill mncpoch(19,9) = 1/6402373705728000+1632341/15688683842453766144000*ep+ 37144122156541/961107598609328658500812800000*ep^2+24885047642990928509/ 2355144192797032192565999724134400000*ep^3+342287031737439448024305781/ 144278959423777548555224222300142305280000000*ep^4+ 163822407857362995880992338849717/353548087562076846302052085086939111688\ 765440000000*ep^5+1765722588362175280360157427240228938221/21658780101757\ 902096679273194927994308987797372928000000000*ep^6+1403472664551049065010\ 08849633085423518433033/1061474287655848953540070632839298275969410601937\ 9334348800000000*ep^7+6531758518916940486057862639445558868019529430109861 /3251359431547124695630448752624740977190862838372006387043532800000000000 *ep^8; Fill mncpoch(19,10) = 1/576213633515520000+634871/470660515273612984320000*ep+ 50108441924941/86499683874839579265073152000000*ep^2+12842724447592821487/ 70654325783910965776979991724032000000*ep^3+604540602047063899917440581/ 12985106348139979369970180007012807475200000000*ep^4+ 36491320739769019782145968968861/3535480875620768463020520850869391116887\ 654400000000*ep^5+4001224686465313155038158061435416431421/19492902091582\ 11188701134587543519487808901763563520000000000*ep^6+59705259336960275861\ 7864539956190273402674559/15922114314837734303101059492589474139541159029\ 06900152320000000000*ep^7+18723811296561576658138103691166946727011504994\ 713461/292622348839241222606740387736226687947177655453480574833917952000\ 000000000*ep^8; Fill mncpoch(19,11) = 1/50706799749365760000+736973/41418125344077942620160000* ep+67038885805291/7611972180985882975326437376000000*ep^2+ 19687528766084643169/6217580668984164988374239271714816000000*ep^3+ 1056821216013888103206719131/11426893586363181845573758406171270578176000\ 00000*ep^4+14491834801117137497336689574663/62224463410925524949161166975\ 301283657222717440000000*ep^5+8995027630880172313079771602899231919171/ 171537538405922584605699843703829714927183355193589760000000000*ep^6+ 1515462904537730112127935380155407650813872001/14011460597057206186728932\ 3534787372427962199455807213404160000000000*ep^7+535384648293616236375475\ 56782708118918776045780086411/2575076669785322758939315412078794853935163\ 3679906290585384779776000000000000*ep^8; Fill mncpoch(19,12) = 1/4259371178946723840000+853661/ 3479122528902547180093440000*ep+12778797804013/ 91343666171830595703917248512000000*ep^2+30125455273167325777/52227677619\ 4669859023436098824044544000000*ep^3+1847759019119841608016698731/ 95985906125450727502819570611838672856678400000000*ep^4+ 20618515544753006667442994530613/3733467804655531496949670018518077019433\ 363046400000000*ep^5+20363062671292178341579800591748333959571/ 14409153226097497106878786871121696053883401836261539840000000000*ep^6+ 3891587961525471818450199151605337243888292849/11769626901528053196852303\ 176922139283948824754287805925949440000000000*ep^7+2224447549166008301951\ 3406495467989598516342410287373/30900920037423873107271784944945538247221\ 9604158875487024617357312000000000000*ep^8; Fill mncpoch(19,13) = 1/332230951957844459520000+989797/ 271371557254398680047288320000*ep+17109951516613/712480596140278646490554\ 5383936000000*ep^2+15476805930275572451/135791961810614163346093385694251\ 58144000000*ep^3+3269950574303538456569500531/748690067778515674521992650\ 7723416482820915200000000*ep^4+125449545403314235905692629918727/ 873631466289394370286222784333230022547406952857600000000*ep^5+4726122658\ 9307477581910161281668248682971/11239139516356047743365453759474922922029\ 05343228400107520000000000*ep^6+20651084608974869173082241735693051893186\ 46581/1836061796638376298708959295599853728296016661668897724448112640000\ 00000*ep^7+67426983507636199283300043188990817835619010955986373/ 2410271762919062102367199225705751983283312912439228798792015387033600000\ 0000000*ep^8; Fill mncpoch(19,14) = 1/23256166637049112166400000+5765801/ 94980045039039538016550912000000*ep+4633029920081/99747283459639010508677\ 635375104000000*ep^2+972276647483105227/380217493069719657369061479943904\ 42803200000*ep^3+5950278111359178723522658531/524083047444960972165394855\ 540639153797464064000000000*ep^4+1321573779274851026418875128258963/ 305771013201288029600177974516630507891592433500160000000000*ep^5+ 184429809438582369103388536652477688571/125878362583187734725693082106119\ 136726725398441580812042240000000*ep^6+5831238941557114327347059447427560\ 581013894981/128524325764686340909627150691989760980721166316822840711367\ 88480000000000*ep^7+220524995670429924524931619569311935378022620903145173 /168719023404334347165703945799402638829831903870746015915441077092352000\ 0000000000*ep^8; Fill mncpoch(19,15) = 1/1395369998222946729984000000+6786821/ 5698802702342372280993054720000000*ep+6414896199989/598483700757834063052\ 0658122506240000000*ep^2+7917927319201484899/1140652479209158972107184439\ 8317132840960000000*ep^3+11407222563588671298837120031/314449828466976583\ 29923691332438349227847843840000000000*ep^4+ 426490180342842088866751065140089/262089439886818311085866835299969006764\ 2220858572800000000000*ep^5+61460857526770605266414768298646940834171/ 944087719373908010442698115795893525450440488311856090316800000000000* ep^6+3676358378390755801034004158616892097422989973/154229190917623609091\ 552580830387713176865399580187408853641461760000000000*ep^7+8237878328765\ 15020806103946967154301874404603047647673/1012314140426006082994223674796\ 41583297899142322447609549264646255411200000000000000*ep^8; Fill mncpoch(19,16) = 1/66977759914701443039232000000+8148181/ 273542529712433869487666626560000000*ep+9267281033573/2872721763637603502\ 64991589880299520000000*ep^2+41416329948615369689/16425395700611889198343\ 45593357667129098240000000*ep^3+24093292924829250726795954031/ 1509359176641487599836337183957040762936696504320000000000*ep^4+ 2557031623473562434471511531976501/29354017267323650841617085553596528757\ 5928736160153600000000000*ep^5+193044191107999031795357544599330752205579/ 45316210529947584501249509558202889221621143438969092335206400000000000* ep^6+70942319893310891390155610176233443051632355353/37015005820229666181\ 972619399293051162447695899244978124873950822400000000000*ep^7+ 3928081866768013006256533137058777302927733208584221673/ 4859107874044829198372273639022795998299158831477485258364703020259737600\ 000000000000*ep^8; Fill mncpoch(19,17) = 1/2277243837099849063333888000000+10190221/93004460102227\ 51562580665303040000000*ep+14618125319789/9767253996367851909009714055930\ 183680000000*ep^2+83207445227846071073/5584634538208042327436775017416068\ 2389340160000000*ep^3+62323702501770178695925461031/513182120058105783944\ 35464254539385939847681146880000000000*ep^4+ 319162535360951652254196420838183/369643180403334862449992929193437769540\ 058408497971200000000000*ep^5+858212753688871384631081484547427071719971/ 1540751158018217873042483324978898233535118876924949139397017600000000000 *ep^6+421443274201875475844566337117279038558642271521/125851019788780865\ 0187069059575963739523221660574329256245714327961600000000000*ep^7+ 31590354055556513614266333806425621556801335984408098673/ 1652096677175241927446573037267750639421714002702344987843999026888310784\ 00000000000000*ep^8; Fill mncpoch(20,0) = 1; Fill mncpoch(20,1) = 1/19+1/361*ep+1/6859*ep^2+1/130321*ep^3+1/2476099*ep^4+1/ 47045881*ep^5+1/893871739*ep^6+1/16983563041*ep^7+1/322687697779*ep^8; Fill mncpoch(20,2) = 1/684+37/233928*ep+1027/80003376*ep^2+25345/27361154592* ep^3+586531/9357514870464*ep^4+13033657/3200270085698688*ep^5+281651707/ 1094492369308951296*ep^6+5963602465/374316390303661343232*ep^7+ 124328407411/128016205483852179385344*ep^8; Fill mncpoch(20,3) = 1/34884+971/202815576*ep+628885/1179169758864*ep^2+ 339598655/6855692978035296*ep^3+165130395661/39858998974297210944*ep^4+ 74980524443111/231740220036563984428416*ep^5+32441726871224245/ 1347337639292583005466810624*ep^6+13542167311746320735/ 7833421034847077593784036967936*ep^7+5498706033742204486621/ 45543509896600909130260390931579904*ep^8; Fill mncpoch(20,4) = 1/2232576+10675/103841574912*ep+71280865/4829879332306944* ep^2+381087985915/224647347504260579328*ep^3+1784196875682361/ 10448797427118168065703936*ep^4+7643622142560484675/ 485994465930120233072021471232*ep^5+30724413617353537431505/ 22604574599341752280645862669942784*ep^6+117715853647810153335431755/ 1051383973764583582077400364504378769408*ep^7+ 434452965402780368734309738921/489019713877383115695840457538276653227048\ 96*ep^8; Fill mncpoch(20,5) = 1/167443200+68879/38940590592000*ep+2849921641/ 9056023748075520000*ep^2+91821183361439/2106068882852442931200000*ep^3+ 2538718674137225881/489787379396164128079872000000*ep^4+ 63246613519325064668399/113904952952371929626255032320000000*ep^5+ 1460644458774764824986123721/26489735858603615953881870316339200000000* ep^6+31842382755079122075915468029759/61604529712768569262347677607678443\ 52000000000*ep^7+663392491845207790201833158099399161/1432674943000145846\ 765157590444169882501120000000000*ep^8; Fill mncpoch(20,6) = 1/14065228800+598433/22897067268096000*ep+209231949649/ 37274593747078840320000*ep^2+55824156998159297/ 60680056652744585733734400000*ep^3+12586696512349442395441/ 98782277826135966007660904448000000*ep^4+2526566903875289523623661473/ 160809645718723261783191339568988160000000*ep^5+ 465632559513010972701751825732369/261785238458423972322092845511147205427\ 200000000*ep^6+80367325441439041337525354583791683457/4261654253912375530\ 22581385064506758659047424000000000*ep^7+13169438302712277440890766222647\ 871335111921/693763219302903437316520688374211842556236482478080000000000 *ep^8; Fill mncpoch(20,7) = 1/1279935820800+9407549/27087230578157568000*ep+ 50674936658761/573245977236325485281280000*ep^2+205140415810486182629/ 12131581686413266791988317388800000*ep^3+693440824795419090681592081/ 256740177966296508588177081366478848000000*ep^4+ 2066962792941526519197177519796109/54333821166936143593912480458755372010\ 70080000000*ep^5+5612369498835806831267039256237912043801/114986448400302\ 292943222606744942158764758060236800000000*ep^6+1417941904125145684658765\ 0996046902148204707189/24334536080376614134657022976389411082522242384689\ 88928000000000*ep^7+33825675247470573962106828422527667558411486860141921/ 51499081368756706986718119096841005116297491469749673923706880000000000* ep^8; Fill mncpoch(20,8) = 1/122873838796800+11171129/2600374135503126528000*ep+ 70376116340581/55031613814687246587002880000*ep^2+329254327066408022609/ 1164631841895673612030878469324800000*ep^3+1274107170923194951194372301/ 24647057084764464824464999811181969408000000*ep^4+ 4313952717438254671224548622393689/52160468320258697850155981240405157130\ 2727680000000*ep^5+13220370232255564004345228715718974090421/ 11038699046429020122549370247514447241416773782732800000000*ep^6+ 37494599575452724413370809454514570474589374369/2336115463716154956927074\ 20573338346392213526893022937088000000000*ep^7+99950401166747489683039320\ 560320473755987815709822941/494391181140064387072493943329673649116455918\ 1095968696675860480000000000*ep^8; Fill mncpoch(20,9) = 1/12164510040883200+144045379/2831807433562904788992000*ep +11563936671172141/659223701886138526865707499520000*ep^2+ 682964638539938251189939/153462373174751016183696825024459571200000*ep^3+ 33107756416321668892839436318381/3572489871502561642000421416131600619615\ 0272000000*ep^4+1395424523824507178967790057413570374899/8316490627611523\ 711990816225401006051377683963576320000000*ep^5+5295200568974199167131002\ 0002288914759772858221/19360171434176932904150448056006372252757025767518\ 78288179200000000*ep^6+18512848518351568231194987511561823683343569007284\ 14259/4506903870200919703705417428104746773032275086406662315136537067520\ 00000000*ep^7+60603923417598436739420380725078830969488676941031268167535\ 661/104917368961797981218002560895711994944592227998882812139616121348287\ 365120000000000*ep^8; Fill mncpoch(20,10) = 1/1216451004088320000+33464927/56636148671258095779840000 *ep+15459129684443701/65922370188613852686570749952000000*ep^2+ 208568335200260476871279/3069247463495020323673936500489191424000000*ep^3 +57384334759425043431682350760501/357248987150256164200042141613160061961\ 5027200000000*ep^4+546257828615772235565008402289813568431/16632981255223\ 0474239816324508020121027553679271526400000000*ep^5+116534384861495429218\ 360696197566696018666694901/193601714341769329041504480560063722527570257\ 675187828817920000000000*ep^6+9128237259656866925447194596555128124054159\ 34000537583/9013807740401839407410834856209493546064550172813324630273074\ 135040000000000*ep^7+1668532094157437753971294594725906038258169435114193\ 60828926901/1049173689617979812180025608957119949445922279988828121396161\ 2134828736512000000000000*ep^8; Fill mncpoch(20,11) = 1/120428649404743680000+2575873/ 373798581230303432146944000*ep+20456163600317701/652631464867277141597050\ 4245248000000*ep^2+104797168713396265839349/10128516629533567068123990451\ 6143316992000000*ep^3+98044336735330748463653354832901/353676497278753602\ 558041720197028461341887692800000000*ep^4+3901695014800776788641589261496\ 3791437/609875979358178405545993189862740443767696823995596800000000*ep^5 +252777220486702037010828869195404425757546325701/19166569719835163575108\ 943575446308530229455509843595052974080000000000*ep^6+7401609180388126986\ 47985006417788244930910114878176117/2974556554332607004445575502549132870\ 20130155702839712799011446456320000000000*ep^7+45402646761941942119508440\ 6948612862284772924798727204841076101/10386819527218000140582253528675487\ 49951463057188939840182199601348044914688000000000000*ep^8; Fill mncpoch(20,12) = 1/11561150342855393280000+14819303/ 179423318990545647430533120000*ep+26924582630540851/626526206272586055933\ 168407543808000000*ep^2+157029189692522423246587/972337596435222438539903\ 0833549758431232000000*ep^3+166585387478920575522984290444251/ 33952943738760345845572005138914732288821218508800000000*ep^4+22477262491\ 5717378138883377323504506457/17564428205515538079724603868046924780509668\ 5310731878400000000*ep^5+547107566079481220911421539531192588299392600251/ 1839990693104175703210458583242845618902027728944985125085511680000000000 *ep^6+360303135112781867876089256994570186458251439404780111/ 5711148584318605448535504964894335110786498989494522485741019771961344000\ 000000*ep^7+1240362928859391731299364853113586922959401228261761313685833\ 851/997134674612928013495896338752846799953404534901382246574911617294123\ 11810048000000000000*ep^8; Fill mncpoch(20,13) = 1/1052064681199840788480000+136291/ 130620176225117231329428111360*ep+722918946514099/11635486687919455324473\ 12756867072000000*ep^2+235564594067231841654859/8848272127560524190713118\ 05853028017242112000000*ep^3+284094712260931388092304139835051/ 3089717880227191471947052467641240638282730884300800000000*ep^4+207012112\ 16649520775829064379093487461/7611252222390066501213995009487000738220856\ 36346504806400000000*ep^5+11976844398997963570755101321250803507248947718\ 51/1674391530724799889921517310750989513200845233339936463827815628800000\ 00000*ep^6+4456868312101430648354561684623667075633601098641140827/ 2598572605864965479083654759026922475407857040220007731012163996242411520\ 000000000*ep^7+4948046379871491310916189184778969364812796515184609104565\ 00893/1296275076996806417544665240378700839939425895371796920547385102482\ 360053530624000000000000*ep^8; Fill mncpoch(20,14) = 1/88373433220786626232320000+19622959/ 1371511850363730928958995169280000*ep+6691889361450493/684166617249663973\ 079019901037838336000000*ep^2+39636503525768697284027/8258387319056489244\ 665576854628261494259712000000*ep^3+491704082578217610786112219715251/ 259536301939084083643552407281864213615749394281267200000000*ep^4+ 368001459911488032779259477943263214661/575410668012689027491778022717217\ 255809496741077957633638400000000*ep^5+2696874473789118126876345385681906\ 474383259909651/140648888580883190753407454103083119108870999600554662961\ 53651281920000000000*ep^6+11432560676012782969442886637702315451769751048\ 785863011/218280098892657100243026999758261487934259991378480649405021775\ 684362567680000000000*ep^7+1445310019102987109727694402113794983604507107\ 664727318363643093/108887106467731739073751880191810870554911775211230941\ 325980348608518244496572416000000000000*ep^8; Fill mncpoch(20,15) = 1/6628007491558996967424000000+113634299/ 514316943886399098359623188480000000*ep+1791861632884649/1026249925874495\ 9596185298515567575040000000*ep^2+36759343878994477827661/371627429357542\ 016009950958458271767241687040000000*ep^3+ 876782662026233073157512154812451/194652226454313062732664305461398160211\ 81204571095040000000000*ep^4+3783897589621264775867769177810666436777/ 215779000504758385309416758518956470928561277904234112614400000000000* ep^5+1279299988357065097769419812185359092380304604391/210973332871324786\ 130111181154624678663306499400831994442304769228800000000000*ep^6+ 1251466478500808327301431539623689785096090315114016203/ 6548402966779713007290809992747844638027799741354419482150653270530877030\ 40000000000*ep^7+65238931693979632064755553669034854110426944973771388799\ 7637299/11666475692971257757901987163408307559454833058346172284926465922\ 34124048177561600000000000000*ep^8; Fill mncpoch(20,16) = 1/424192479459775805915136000000+133033679/32916284408729\ 542295015884062720000000*ep+2455488433612397/6567999525596774141558591049\ 96324802560000000*ep^2+19662996236659528938043/79280518262942296748789537\ 80443131034489323520000000*ep^3+1649218782291627541449949696825951/ 1245774249307603601489051554952948225355597092550082560000000000*ep^4+ 8354443569737343846589672770612297481117/13809856032304536659802672545213\ 214139427921785870983207321600000000000*ep^5+3321394909630494639499669865\ 710145065396621598387/135022933037647863123271155938959794344516159616532\ 47644307505230643200000000000*ep^6+19143932788901566656430578818010463721\ 231234196233441027/209548894936950816233305919767931028416889591723341423\ 428820904656988064972800000000000*ep^7+1650395322499732948550016082467109\ 1456799204078076653718530851593/52265811104511234755400902492069217866357\ 6521013908518364705673320887573583547596800000000000000*ep^8; Fill mncpoch(20,17) = 1/21633816452448566101671936000000+158899519/167873050484\ 5206657045810087198720000000*ep+3512363456777501/334967975805435481219488\ 14354812564930560000000*ep^2+304157289802731019494563/3638975788269051420\ 769439785223397144830599495680000000*ep^3+ 3419357635687618766938680368107951/63534486714687783675941629302600359493\ 135451720054210560000000000*ep^4+6996460118839792568226709790805116460079/ 234767552549177123216645433268624640370274670359806714524467200000000000* ep^5+2032407026008299343034169136508042531424864017959/ 1377233916984008203857365790577389902314064828088631259719365533525606400\ 00000000*ep^6+71713847738508076135457512235865650552261738906518061587/ 1068699364178449162789860190816448244926136917789041259486986613750639131\ 3612800000000000*ep^7+108752842374983458572388296303706092938929597612047\ 97594012260799/3807937666185818532179208610136471587406057510244190633799\ 998477052180893251561062400000000000000*ep^8; Fill mncpoch(20,18) = 1/778817392288148379660189696000000+197698279/60434298174\ 427439653649163139153920000000*ep+5484764391463397/1205884712899567732390\ 157316773252337500160000000*ep^2+602080169996039164077371/131003128377685\ 851147699832268042297213901581844480000000*ep^3+ 8675349539385611774407351611598951/22872415217287602123338986548936129417\ 52876261921951580160000000000*ep^4+23024688913827073458150756334330874369\ 639/845163189177037643579923559767048705332988813295304172288081920000000\ 0000*ep^5+43929885665398066829245940510472343485868209330587/ 2479021050571214766943258423039301824165316690559536267494857960346091520\ 0000000000*ep^6+412598865890352056009832357603884438861414547995959196011/ 3847317711042416986043496686939213681734092904040548534153151809502300872\ 90060800000000000*ep^7+59068027311094414110670177007747136041463738537783\ 8284380991958593/95960029187882627010916056975439084002632649258153603971\ 7599616217149585099393387724800000000000000*ep^8; Fill mncpoch(21,0) = 1; Fill mncpoch(21,1) = 1/20+1/400*ep+1/8000*ep^2+1/160000*ep^3+1/3200000*ep^4+1/ 64000000*ep^5+1/1280000000*ep^6+1/25600000000*ep^7+1/512000000000*ep^8; Fill mncpoch(21,2) = 1/760+39/288800*ep+1141/109744000*ep^2+29679/41702720000* ep^3+723901/15847033600000*ep^4+16954119/6021872768000000*ep^5+386128261/ 2288311651840000000*ep^6+8616436959/869558427699200000000*ep^7+ 189312302221/330432202525696000000000*ep^8; Fill mncpoch(21,3) = 1/41040+541/140356800*ep+195211/480020256000*ep^2+58726081/ 1641669275520000*ep^3+15907469851/5614508922278400000*ep^4+4023543044521/ 19201620514192128000000*ep^5+969677567613091/65669542158537077760000000* ep^6+225450888711838561/224589834182196805939200000000*ep^7+ 50984942710824393931/768097232903113076312064000000000*ep^8; Fill mncpoch(21,4) = 1/2790720+12617/162252460800*ep+99566119/9433358070912000* ep^2+629037362933/548455438242823680000*ep^3+3479915570656231/ 31887199179437768755200000*ep^4+17614167008208763517/ 1853921760292511875427328000000*ep^5+83646110364087120543919/ 107787011143406640437344849920000000*ep^6+378580915945864466771172533/ 6266736827877662075027229574348800000000*ep^7+ 1650405326028848453565898553431/36434807917280727304208312745263923200000\ 0000*ep^8; Fill mncpoch(21,5) = 1/223257600+65003/51920787456000*ep+2537876509/ 12074698330767360000*ep^2+77146426286027/2808091843803257241600000*ep^3+ 2012181692155397581/653049839194885504106496000000*ep^4+ 47283967911884477681243/151873270603162572835006709760000000*ep^5+ 1029886941650541728844759229/35319647811471487938509160421785600000000* ep^6+21172076423747667452337466174187/82139372950358092349796903476904591\ 36000000000*ep^7+415897094265798958672619798439462061/1910233257333527795\ 686876787258893176668160000000000*ep^8; Fill mncpoch(21,6) = 1/20093184000+80507/4672870871040000*ep+3786057037/ 1086722849769062400000*ep^2+5433818183507/10109130637691726069760000*ep^3 +4118329620082710781/58774485527539695369584640000000*ep^4+ 111134550341646825629867/13668594354284631555150603878400000000*ep^5+ 2752917010147434113410217197/3178768303032433914465824437960704000000000* ep^6+2554132069962939437865978943859/295701742621289132459268852516856528\ 89600000000*ep^7+1405878684583434284789473237079210461/171920993160017501\ 611818910853300385900134400000000000*ep^8; Fill mncpoch(21,7) = 1/1969132032000+679829/3205589417533440000*ep+264567310933/ 5218443124591037644800000*ep^2+15471775567772353/ 1699041586276848400544563200000*ep^3+18883399732921434619381/138295188956\ 59035241072526622720000000*ep^4+4063600108536162615902797349/225133504006\ 21256649646787539658342400000000*ep^5+796393353947420464985775918751573/ 36649933384179356125092998371560608759808000000000*ep^6+29038111775868655\ 501101514253298943873/119326319109546514846322787818061892424533278720000\ 00000*ep^7+24987369033255302856729060493455475512545461/97126850702406481\ 224312896372389657957873107546931200000000000*ep^8; Fill mncpoch(21,8) = 1/204789731328000+10465697/4333956892505210880000*ep+ 61749193007917/91719356357812077645004800000*ep^2+54096040178685508069/ 388210613965224537343626156441600000*ep^3+979648908410397655642573141/ 41078428474607441374108333018636615680000000*ep^4+ 3103576326078171977720055003798977/86934113867097829750259968734008595217\ 1212800000000*ep^5+8896412581122772353147560018397791958397/1839783174404\ 8366870915617079190745402361289637888000000000*ep^6+471862804422827123330\ 5207066878897782679715189/77870515457205165230902473524446115464071175631\ 007645696000000000*ep^7+5879070938619085770700401965954652721314636319919\ 1781/82398530190010731178748990554945608186075986351599478277931008000000\ 00000*ep^8; Fill mncpoch(21,9) = 1/22117290983424000+12229277/468067344390562775040000*ep+ 83316501339577/9905690486643704385660518400000*ep^2+83483103265175749201/ 41926746308244250033111624895692800000*ep^3+1715794564692390894522071041/ 4436470275257603668403699966012754493440000000*ep^4+ 6129517304478378711481289050285757/93888842976465656130280766232729282834\ 490982400000000*ep^5+19706306708954751481141731761700747288457/ 1986965828357223622058886644552600503455019280891904000000000*ep^6+ 11669357721383955356727594126938938563275114401/8410015669378157844937467\ 140640180470119686968148825735168000000000*ep^7+1616899388375824376470922\ 71911481393570249994475769681/8899041260521158967304890979934125684096206\ 52597274365401654886400000000000*ep^8; Fill mncpoch(21,10) = 1/2432902008176640000+155685007/ 566361486712580957798400000*ep+13376052237829537/ 131844740377227705373141499904000000*ep^2+33546276427873663571287/ 1227698985398008129469574600195676569600000*ep^3+ 42869410876462125767012740349281/7144979743005123284000842832263201239230\ 054400000000*ep^4+1894408519005680278985033026339791282367/16632981255223\ 04742398163245080201210275536792715264000000000*ep^5+75002216130999040005\ 632021996598286884167697697/387203428683538658083008961120127445055140515\ 350375657635840000000000*ep^6+1089713098710233966856869356833761477241339\ 19661518039/3605523096160735762964333942483797418425820069125329852109229\ 654016000000000*ep^7+9231356115688444465736610212043943455903781311708016\ 5398772961/20983473792359596243600512179142398988918445599776562427923224\ 269657473024000000000000*ep^8; Fill mncpoch(21,11) = 1/267619220899430400000+178964263/ 62299763538383905357824000000*ep+3508441426211573/29005842882990095182091\ 12997888000000*ep^2+249405288261152635886123/6752344419689044712082660301\ 07622113280000000*ep^3+71899258642387961096351961171721/78594777173056356\ 1240092711548952136315305984000000000*ep^4+356816976715204207666505099655\ 8344401943/182962793807453521663797956958822133130309047198679040000000000 *ep^5+31613310718398363686217874079707021030633138421/8518475431037850477\ 826197144642803791213091337708264467988480000000000*ep^6+1280790902576256\ 401661004240894144886190162269693484971/198303770288840466963038366836608\ 8580134201038018931418660076309708800000000000*ep^7+241392857674603106136\ 892816824741773092596073905758556259080841/230818211715955558679605633970\ 5663888781029015975421867071554669662322032640000000000000*ep^8; Fill mncpoch(21,12) = 1/28902875857138483200000+68276701/ 2242791487381820592881664000000*ep+4568061960487877/313263103136293027966\ 584203771904000000*ep^2+122520682680406128102601/243084399108805609634975\ 77083874396078080000000*ep^3+119435764265920301764172676919321/ 84882359346900864613930012847286830722053046272000000000*ep^4+73971957065\ 9117117205428798902799366287/21955535256894422599655754835058655975637085\ 66384148480000000000*ep^5+13210710645113143179406447455713718431899764673/ 183999069310417570321045858324284561890202772894498512508551168000000000* ep^6+996440513913407706179698855061211840004337771680278857/ 7138935730398256810669381206117918888483123736868153107176274714951680000\ 0000000*ep^7+627999421210632769879059344322689207987463075529337917317254\ 041/249283668653232003373974084688211699988351133725345561643727904323530\ 779525120000000000000*ep^8; Fill mncpoch(21,13) = 1/3005899089142402252800000+77976391/ 233250314687709341659693056000000*ep+5929486236521699/3257936272617447490\ 8524757192278016000000*ep^2+180034861033933286675911/25280777507315783402\ 03748016722937192120320000000*ep^3+198018469620920758028858699460871/ 8827765372077689919848721336117830395093516812288000000000*ep^4+137995882\ 7191566739687075611760671309617/22833756667170199503641985028461002214662\ 5690903951441920000000000*ep^5+138333486542783263039119021658018467993464\ 984507/956795160414171365669438463286279721829054419051392265044466073600\ 00000000*ep^6+2338232449997577094847611238247276993815870147252981687/ 7424493159614187083096156454362635644022448686342879231463325703549747200\ 000000000*ep^7+1648605267291897705579568525640852066274026663416710244598\ 220391/259255015399361283508933048075740167987885179074359384109477020496\ 47201070612480000000000000*ep^8; Fill mncpoch(21,14) = 1/294578110735955420774400000+89061751/ 22858530839395515482649919488000000*ep+1100941866605621/45611107816644264\ 8719346600691892224000000*ep^2+265465219546700294335831/24775161957169467\ 7339967305638847844827791360000000*ep^3+330443458297860188895697838498071/ 865121006463613612145174690939547378719164647604224000000000*ep^4+ 371569579831022268697049515535951917591/319672593340382793050987790398454\ 0310052759672655320186880000000000*ep^5+588062054430723474927416519522183\ 40414543449167/1875318514411775876712099388041108254784946661340728839487\ 153504256000000000*ep^6+5597672237849659484858304232672492504304686995542\ 457287/727600329642190334143423332527538293114199971261602164683405918947\ 875225600000000000*ep^7+6344221148039296089425238341474682048731974128425\ 00612656292113/3629570215591057969125062673060362351830392507041031377532\ 67828695060814988574720000000000000*ep^8; Fill mncpoch(21,15) = 1/26512029966235987869696000000+101994671/205726777554559\ 6393438492753920000000*ep+1440136160440589/410499970349798383847411940622\ 70300160000000*ep^2+131947126603765803454997/7432548587150840320199019169\ 165435344833740800000000*ep^3+560815778698370791596289811665471/ 77860890581725225093065722184559264084724818284380160000000000*ep^4+ 2150849539585028745812789751048513353533/86311600201903354123766703407582\ 5883714245111616936450457600000000000*ep^5+644522266561735863051652284582\ 933977506909725971/843893331485299144520444724618498714653225997603327977\ 769219076915200000000000*ep^6+1393322714951126446283627909700081100068334\ 9928747322607/65484029667797130072908099927478446380277997413544194821506\ 532705308770304000000000000*ep^7+1792833406659726038635624645527935031632\ 211262588538763666793513/326661319403195217221255640575432611664735325633\ 69282397794104582555473348971724800000000000000*ep^8; Fill mncpoch(21,16) = 1/2120962397298879029575680000000+4700567/658325688174590\ 8459003176812544000000*ep+1909103457032669/328399976279838707077929552498\ 1624012800000000*ep^2+201079916992041251032741/59460388697206722561592153\ 3533234827586699264000000000*ep^3+982104956468853833677919602528111/ 6228871246538018007445257774764741126777985462750412800000000000*ep^4+ 24732839655047676871730070400369814083/3945673152087010474229335012918061\ 18269369193882028091637760000000000*ep^5+14908925622888415093420089880528\ 34130671436230531/6751146651882393156163557796947989717225807980826623822\ 1537526153216000000000000*ep^6+370711402335231894224356249551227225029752\ 27194218099231/5238722373423770405832647994198275710422239793083535585720\ 522616424701624320000000000000*ep^7+5491355822551523646498643460600608039\ 762444443355816700089016953/261329055522556173777004512460346089331788260\ 5069542591823528366604437867917737984000000000000000*ep^8; Fill mncpoch(21,17) = 1/144225443016323774011146240000000+27382711/223830733979\ 3608876061080116264960000000*ep+2592084677757329/223311983870290320812992\ 095698750432870400000000*ep^2+318411200189355854830121/404330643141005713\ 41882664280259968275895549952000000000*ep^3+ 1815997238747320968392957220400411/42356324476458522450627752868400239662\ 0903011467028070400000000000*ep^4+1872198545452668789019780076649838497053 /939070210196708492866581733074498561481098681439226858097868800000000000 *ep^5+3779020496465907922039085085124472799077917940351/ 4590779723280027346191219301924633007713549426962104199064551778418688000\ 000000000*ep^6+110381794872253994247082211373784717631951406927904481611/ 3562331213928163875966200636054827483087123059296804198289955379168797104\ 53760000000000000*ep^7+19257102575608780945250540165688712311058393986756\ 862973141310253/177703757755338198168363068473035340745616017144728896243\ 999928929101775018406182912000000000000000*ep^8; Fill mncpoch(21,18) = 1/7788173922881483796601896960000000+32555879/12086859634\ 8854879307298326278307840000000*ep+3674765594251649/120588471289956773239\ 01573167732523375001600000000*ep^2+1620589892856994073881483/ 6550156418884292557384991613402114860695079092224000000000*ep^3+ 3702303588088847790211455041232811/22872415217287602123338986548936129417\ 528762619219515801600000000000*ep^4+2194423691588781637301433536686607339\ 77/2414751969077250410228353027905853443808539466558011920823091200000000\ 000*ep^5+11288449477143071208076450493848872632073685174991/ 2479021050571214766943258423039301824165316690559536267494857960346091520\ 00000000000*ep^6+402367022896120331223794387615600641313548215874593689051 /192365885552120849302174834346960684086704645202027426707657590475115043\ 64503040000000000000*ep^7+86162852089584828069275560456165833188931716741\ 670651426017210653/959600291878826270109160569754390840026326492581536039\ 7175996162171495850993933877248000000000000000*ep^8; Fill mncpoch(21,19) = 1/295950609069496384270872084480000000+40315631/459300666\ 1256485413677336398575697920000000*ep+5685875368931369/458236190901835738\ 308259780373835888250060800000000*ep^2+3164824289660551569998563/ 248905943917603117180629681309280364706413005504512000000000*ep^3+ 9227910200640807772651340119417411/86915177825692888068688148885957291786\ 6092979530341600460800000000000*ep^4+164864004605711110259964848862893050\ 3757/21410800792484953637358063514098567201769049936814372364631408640000\ 0000000*ep^5+47556711908537510787153661623430506914067600903431/ 9420279992170616114384382007549346931828203424126237816480460249315147776\ 000000000000*ep^6+2247508474624609163251980388064291255750797687102596234\ 611/730990365098059227348264370518450599529477651767704221489098843805437\ 165851115520000000000000*ep^7+6467377643355396203330824600353941967730491\ 26337412465820433597253/3646481109139539826414810165066685192100040671809\ 83695092687854162516842337769487335424000000000000000*ep^8; *--#] poch.h : *--#] Tables : #endif