Matter To The Deepest 2015

(* Time of evaluation and the version of the Mathematica kernel used *)

DateString[]

$Version

<<MB.m

<<MBsums.v1.0.m

int=MBint[-((((-x))^(z1+z6)) (y^z2) Gamma[-z1] Gamma[1+z1] Gamma[-z1-z2] Gamma[-z2] Gamma[z2] Gamma[-z1+z2] Gamma[-z2-z6] Gamma[z2-z6] Gamma[-z6] Gamma[1+z6])/(2 eps  Gamma[-2 z1] Gamma[1-z2] Gamma[1+z2] Gamma[-2 z6]),{{eps->0},{z1->-(1/2),z2->-(11/192),z6->-(1/2)}}]

Lk = {x->-5,y->7};

sums =MBIntToSum[int, {x->-5,y->7},{z1->L,z6->L,z2->L}]

MBintegrate[{int},Lk]

DoAllMBSums[sums,25,Lk]//N

ToString[int,InputForm,PageWidth->50]

ToString[sums,InputForm,PageWidth->50]