In[]:=
ClearAll["Global`*"]
In[]:=
κ=2;
In[]:=
D11=1+c1*
2
ωpi
2
k
2
θ
2
ky
2
kz
+
2
kz
2
ky
+
2
T
*
2
ωpe
2
k
2
θ
Gammaκ+
1
2

2
(κ+1)
Gammaκ-
1
2
κ+
1
2
κ
HypergeometricPFQ1,
1
2
,1,-κ+
1
2
,1,1,1,2*λ*κ+
2
T
*
2
ωpe
2
k
2
θ
Gamma[κ+1](κ+1)
κ
Gammaκ+
3
2

2
κ
θ
vde*Sin[ϕ]*HypergeometricPFQ
1
2
,
1
2
,1,{-κ,1,1,1},2*λ*κ;​​
In[]:=
ComplexInfinity
Out[]=
ComplexInfinity
In[]:=
HypergeometricPFQ1,
1
2
,1,-κ+
1
2
,1,1,1,2*λ*κ
Out[]=
1
3
(3+16λ)BesselI0,4
λ
-
16
3
λ
BesselI1,4
λ

In[]:=
HypergeometricPFQ
1
2
,
1
2
,1,{-κ,1,1,1},2*λ*κ;
In[]:=
ComplexInfinity
Out[]=
ComplexInfinity