qpms/besseltransforms/2-1-5

3 lines
1.0 KiB
Plaintext

((k^4*(-5 + Sqrt[1 + k^2/(c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4)/Sqrt[1 + k^2/(c - I*k0)^2] - (2*(k^4*(-5 + Sqrt[1 + k^2/(2*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4))/Sqrt[1 + k^2/(2*c - I*k0)^2] + (k^4*(-5 + Sqrt[1 + k^2/(3*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4)/Sqrt[1 + k^2/(3*c - I*k0)^2])/(k^5*k0)
SeriesData[k, Infinity, {(24*c^2)/(k*k0), (-105*(2*c^3 - I*c^2*k0))/(k*k0), (32*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/(k*k0), (-315*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/(4*k*k0), 0, (231*(138*c^7 - (301*I)*c^6*k0 - 270*c^5*k0^2 + (125*I)*c^4*k0^3 + 30*c^3*k0^4 - (3*I)*c^2*k0^5))/(8*k*k0), 0, (429*(-3110*c^9 + (9075*I)*c^8*k0 + 11592*c^7*k0^2 - (8428*I)*c^6*k0^3 - 3780*c^5*k0^4 + (1050*I)*c^4*k0^5 + 168*c^3*k0^6 - (12*I)*c^2*k0^7))/(64*k*k0)}, 2, 11, 1]