In[]:=
Q[{cst_,dst_},{cs_,ds_},{ct_,dt_},{zs_,zt_}]:=Module[{},(*Only's'isusedasargumentintheGammaproducttermsalongwithotherparameters*)Eas=Function[v,Product[Gamma[1-cs[[1,n]]+v],{n,1,Length[cs[[1]]]}]];Fas=Function[v,Product[Gamma[cs[[2,n]]-v],{n,1,Length[cs[[2]]]}]];Ebs=Function[v,Product[Gamma[ds[[1,n]]-v],{n,1,Length[ds[[1]]]}]];Fbs=Function[v,Product[Gamma[1-ds[[2,n]]+v],{n,1,Length[ds[[2]]]}]];Ps=Function[v,Eas[v]Ebs[v]/(Fas[v]Fbs[v])];(*Only't'isusedasargumentintheGammaproducttermsalongwithotherparameters*)Eat=Function[v,Product[Gamma[1-ct[[1,n]]+v],{n,1,Length[ct[[1]]]}]];Fat=Function[v,Product[Gamma[ct[[2,n]]-v],{n,1,Length[ct[[2]]]}]];Ebt=Function[v,Product[Gamma[dt[[1,n]]-v],{n,1,Length[dt[[1]]]}]];Fbt=Function[v,Product[Gamma[1-dt[[2,n]]+v],{n,1,Length[dt[[2]]]}]];Pt=Function[v,Eat[v]Ebt[v]/(Fat[v]Fbt[v])];(*'s+t'isusedasargumentintheGammaproducttermsalongwithotherparameters*)East=Function[v,Product[Gamma[cst[[1,n]]+v],{n,1,Length[cst[[1]]]}]];Fast=Function[v,Product[Gamma[1-cst[[2,n]]-v],{n,1,Length[cst[[2]]]}]];Fbst=Function[v,Product[Gamma[dst[[2,n]]+v],{n,1,Length[dst[[2]]]}]];Pst=Function[v,East[v]/(Fast[v]Fbst[v])];MT=Function[{v,w},Ps[v]*Pt[w]/Pst[v+w]];(*Countourlimiters(TheGammaargumentsinthenumeratordeterminethevalueofthelimiterswhichmustbehalfoftheleastvaluedGammaarguments)*)As=-1/4;At=1/4;Zs=zs;Zt=zt;W=50;(*Thefinalvalueiscalculated*)Print[" Numerical Integration :"];value=1/((2πI)^2)NIntegrate[MT[s,t]Zs^sZt^t,{s,As-IW,As+IW},{t,At-IW,At+IW}];(*Thevalueisreturned*)Return[value];];(*EndofEGBMGF*)
In[]:=
Q[{{{},{}},{{},{}}},{{{0},{}},{{0},{}}},{{{1,1},{}},{{1},{0}}},{2,2}]//N
Numerical Integration :
Out[]=
0.366204-5.89847×
-14
10
In[]:=
MeijerGReduce,xMeijerGReduce[Log[x+1],x]/.x->2//Activate//N
1
x+1
Out[]=
0.366204