In[]:=
$Version
Out[]=
14.2.0 for Microsoft Windows (64-bit) (December 26, 2024)
In[]:=
F[a_,Var_]:=NIntegratey*Exp-,{y,0,1},{z,0,y}
2z(2-1)
2
a
2
z
Var
In[]:=
F,
1
10
1
100
Out[]=
0.449737
In[]:=
G[a_,Var_,M_]:=NSum(-11+m)Var-Gamma1++Gamma1+,+4Gamma-Gamma,,{m,0,M}
1
3
2
-2+
4m
3
a
-2m/3
Var
2/3
2
m
3
m
3
4
2
a
Var
4/3
a
1/3
Var
1+m
3
1+m
3
4
2
a
Var
3m!
In[]:=
G,,20
1
10
1
100
Out[]=
0.449737
In[]:=
H[a_,Var_,M_]:=NSum,{m,0,M},{n,0,M}
m
-
4
2
a
Var
n
2
2
a
Var
(1+3m+n)(3+3m+n)m!n!
In[]:=
H,,20
1
10
1
100
Out[]=
0.449737
H1[a_,Var_,M_]:=NSum*,{m,0,M},{n,0,M}(*ThisseriescanbyexpressedbySrivastava-Daoustmultivariablehypergeometricfunction.*)
Pochhammer[1,3m+n]Pochhammer[3,3m+n]
3Pochhammer[2,3m+n]Pochhammer[4,3m+n]
m
-
4
2
a
Var
n
2
2
a
Var
m!n!
In[]:=
H1,,20
1
10
1
100
Out[]=
0.449737