3 lines
656 B
Plaintext
3 lines
656 B
Plaintext
((-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) - 2*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + (-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0))/(k*k0^2)
|
|
SeriesData[k, Infinity, {c^2/k0^2, 0, (3*c^2)/2 - (25*c^4)/(4*k0^2) + ((6*I)*c^3)/k0, 0, (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), 0, (-5*(3025*c^8 - (7728*I)*c^7*k0 - 8428*c^6*k0^2 + (5040*I)*c^5*k0^3 + 1750*c^4*k0^4 - (336*I)*c^3*k0^5 - 28*c^2*k0^6))/(64*k0^2), 0, (7*(28501*c^10 - (93300*I)*c^9*k0 - 136125*c^8*k0^2 + (115920*I)*c^7*k0^3 + 63210*c^6*k0^4 - (22680*I)*c^5*k0^5 - 5250*c^4*k0^6 + (720*I)*c^3*k0^7 + 45*c^2*k0^8))/(128*k0^2)}, 2, 11, 1]
|