2017-09-11 03:05:49 +03:00
|
|
|
$Assumptions = k >= 0 && k0 >= 0 && c >= 0 && n >= 0 ;
|
2018-01-18 17:37:36 +02:00
|
|
|
Simplify[Refine[Integrate[(1 - Exp[-c x])^\[Kappa] (k0 x)^(-q) Exp[
|
2018-01-16 22:21:29 +02:00
|
|
|
I k0 x] x BesselJ[n, k x], {x,
|
2018-01-18 17:37:36 +02:00
|
|
|
0, \[Infinity]}], {\[Kappa] == kk, q == qq, n == nn}]]
|
2017-09-11 03:05:49 +03:00
|
|
|
Series[%, {k, \[Infinity], 10}]
|
|
|
|
|
Quit[ ]
|
