qpms/besseltransforms/7-2-1

3 lines
588 B
Plaintext
Raw Normal View History

((-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) - 7*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 21*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) - 35*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) + 35*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) - 21*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0) + 7*(-1 + Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0) - (-1 + Sqrt[1 + k^2/(8*c - I*k0)^2])*(8*c - I*k0))/(k*k0^2)
SeriesData[k, Infinity, {(14175*c^8)/(2*k0^2) - ((1575*I)*c^7)/k0, 0, (-33075*(198*c^10 - (125*I)*c^9*k0 - 27*c^8*k0^2 + (2*I)*c^7*k0^3))/(4*k0^2)}, 8, 11, 1]