Merge branch 'beyn_pureblas'
[qpms.git] / besseltransforms / 6-5-1
blob8e2366b96326d3bf2f44dd2f4c140b3a90f57b88
1 Integrate[(E^(-(c*x) + I*k0*x)*(1 - E^(-(c*x)))^6*BesselJ[1, k*x])/(k0^5*x^4), {x, 0, Infinity}, Assumptions -> n == 1 && q == 5 && κ == 6 && c >= 0 && k >= 0 && k0 >= 0 && n >= 0]
3                                 -7 c x + I k0 x        c x 6                                    2  2              4  4              6  6               8  8      Pi                                         2  2               4  4              6  6               8  8      Pi
4                              -(E                (-1 + E   )  (8 k x (-14783093325 + 1452971520 k  x  - 309657600 k  x  + 251658240 k  x  + 2147483648 k  x ) Cos[-- + k x] - 3 (156043762875 - 11416204800 k  x  + 1589575680 k  x  - 587202560 k  x  + 2147483648 k  x ) Sin[-- + k x]))
5                                                                                                                                                                  4                                                                                                            4
6 Integrate::idiv: Integral of ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ does not converge on {0, Infinity}.
7                                                                                                                                                     19/2   5             27/2
8                                                                                                                                         8589934592 k     k0  Sqrt[2 Pi] x
9 Series[Integrate[(E^(-(c*x) + I*k0*x)*(1 - E^(-(c*x)))^6*BesselJ[1, k*x])/(k0^5*x^4), {x, 0, Infinity}, Assumptions -> n == 1 && q == 5 && κ == 6 && c >= 0 && k >= 0 && k0 >= 0 && n >= 0], {k, Infinity, 10}]