qpms/besseltransforms/4-1-4

3 lines
1.2 KiB
Plaintext
Raw Permalink Normal View History

((k^4 - 4*k^2*(-2 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4)/(k^4*Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) - (4*(k^4 - 4*k^2*(-2 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4))/(k^4*Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) + (6*(k^4 - 4*k^2*(-2 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4))/(k^4*Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) - (4*(k^4 - 4*k^2*(-2 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4))/(k^4*Sqrt[1 + k^2/(4*c - I*k0)^2]*(4*c - I*k0)) + (k^4 - 4*k^2*(-2 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4)/(k^4*Sqrt[1 + k^2/(5*c - I*k0)^2]*(5*c - I*k0)))/k0
SeriesData[k, Infinity, {(105*c^4)/(k*k0), 0, (-315*(28*c^6 - (18*I)*c^5*k0 - 3*c^4*k0^2))/(2*k*k0), 0, (2079*(993*c^8 - (1200*I)*c^7*k0 - 560*c^6*k0^2 + (120*I)*c^5*k0^3 + 10*c^4*k0^4))/(16*k*k0), 0, (-2145*(49346*c^10 - (85050*I)*c^9*k0 - 62559*c^8*k0^2 + (25200*I)*c^7*k0^3 + 5880*c^6*k0^4 - (756*I)*c^5*k0^5 - 42*c^4*k0^6))/(32*k*k0)}, 4, 11, 1]