3 lines
655 B
Plaintext
3 lines
655 B
Plaintext
(1/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) - 2/(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)))/k0
|
|
SeriesData[k, Infinity, {-(c^2/(k*k0)), 0, (3*(25*c^4 - (24*I)*c^3*k0 - 6*c^2*k0^2))/(4*k*k0), 0, (-5*(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*k*k0), 0, (35*(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*k*k0), 0, (-63*(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*k*k0)}, 2, 11, 1]
|