qpms/besseltransforms/2-2-7

3 lines
1.2 KiB
Plaintext

(-2*(k^6*(-7 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 8*k^4*(-7 + 3*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 16*k^2*(-7 + 5*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^5 + 64*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^7) + k^6*(-7 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 8*k^4*(-7 + 3*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 + 16*k^2*(-7 + 5*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^5 + 64*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^7 + k^6*(-7 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 8*k^4*(-7 + 3*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 + 16*k^2*(-7 + 5*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^5 + 64*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^7)/(7*k^7*k0^2)
SeriesData[k, Infinity, {(7*c^2)/k0^2, (-48*(2*c^3 - I*c^2*k0))/k0^2, (105*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/(4*k0^2), (-160*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/k0^2, (231*(301*c^6 - (540*I)*c^5*k0 - 375*c^4*k0^2 + (120*I)*c^3*k0^3 + 15*c^2*k0^4))/(8*k0^2), (-64*(c - I*k0)^7 + 128*(2*c - I*k0)^7 - 64*(3*c - I*k0)^7)/(7*k0^2), ((3003*(c - I*k0)^8)/128 - (3003*(2*c - I*k0)^8)/64 + (3003*(3*c - I*k0)^8)/128)/(7*k0^2), 0, ((-1001*(c - I*k0)^10)/256 + (1001*(2*c - I*k0)^10)/128 - (1001*(3*c - I*k0)^10)/256)/(7*k0^2)}, 2, 11, 1]