qpms/besseltransforms/2-2-6

3 lines
974 B
Plaintext

(-3*k^4*(-3 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 8*k^2*(3 - 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6 + 6*k^4*(-3 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*k^2*(-3 + 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + 32*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6 - 3*k^4*(-3 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 8*k^2*(3 - 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6)/(3*k^6*k0^2)
SeriesData[k, Infinity, {(6*c^2)/k0^2, (-35*(2*c^3 - I*c^2*k0))/k0^2, (16*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/k0^2, (-315*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/(4*k0^2), (16*(c - I*k0)^6 - 32*(2*c - I*k0)^6 + 16*(3*c - I*k0)^6)/(3*k0^2), ((-99*(c - I*k0)^7)/16 + (99*(2*c - I*k0)^7)/8 - (99*(3*c - I*k0)^7)/16)/(3*k0^2), 0, ((143*(c - I*k0)^9)/128 - (143*(2*c - I*k0)^9)/64 + (143*(3*c - I*k0)^9)/128)/(3*k0^2)}, 2, 11, 1]