qpms/besseltransforms/4-1-2

3 lines
978 B
Plaintext

(1/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) - (2*(c - I*k0))/k^2 + (2*(c - I*k0))/(k^2*Sqrt[1 + k^2/(c - I*k0)^2]) - 4/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) + 6/(Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) + (12*(3*c - I*k0))/(k^2*Sqrt[1 + k^2/(3*c - I*k0)^2]) - 4/(Sqrt[1 + k^2/(4*c - I*k0)^2]*(4*c - I*k0)) + 1/(Sqrt[1 + k^2/(5*c - I*k0)^2]*(5*c - I*k0)) + (2*(5*c - I*k0))/(k^2*Sqrt[1 + k^2/(5*c - I*k0)^2]) + (-10*c + (2*I)*k0)/k^2 + (16*c - (8*I)*k0)/k^2 + (32*c - (8*I)*k0)/k^2 + (-32*c + (8*I)*k0)/(k^2*Sqrt[1 + k^2/(4*c - I*k0)^2]) + (-16*c + (8*I)*k0)/(k^2*Sqrt[1 + k^2/(2*c - I*k0)^2]) + (-36*c + (12*I)*k0)/k^2)/k0
SeriesData[k, Infinity, {(-15*c^4)/(k*k0), 0, (105*(28*c^6 - (18*I)*c^5*k0 - 3*c^4*k0^2))/(2*k*k0), 0, (-945*(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, (1155*(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]