qpms/besseltransforms/3-3-4

3 lines
1.2 KiB
Plaintext

(-3*(k^4*(-15 + 4*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^5) + 3*(k^4*(-15 + 4*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^5) + k^4*(-15 + 4*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^5 - k^4*(-15 + 4*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) - 4*k^2*(-10 + 7*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^3 - 24*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^5)/(60*k^4*k0^3)
SeriesData[k, Infinity, {(4*c^3)/k0^3, (-75*c^4)/(2*k0^3) + ((15*I)*c^3)/k0^2, (156*c^5)/k0^3 - ((120*I)*c^4)/k0^2 - (24*c^3)/k0, (-35*(35*c^6 - (39*I)*c^5*k0 - 15*c^4*k0^2 + (2*I)*c^3*k0^3))/(4*k0^3), 0, (63*(555*c^8 - (972*I)*c^7*k0 - 700*c^6*k0^2 + (260*I)*c^5*k0^3 + 50*c^4*k0^4 - (4*I)*c^3*k0^5))/(32*k0^3), 0, (-33*(14575*c^10 - (34105*I)*c^9*k0 - 34965*c^8*k0^2 + (20412*I)*c^7*k0^3 + 7350*c^6*k0^4 - (1638*I)*c^5*k0^5 - 210*c^4*k0^6 + (12*I)*c^3*k0^7))/(64*k0^3)}, 2, 11, 1]