3 lines
528 B
Plaintext
3 lines
528 B
Plaintext
-((-2 + 2*(1 - 1/Sqrt[1 + k^2/(2*c - I*k0)^2]) + 1/Sqrt[1 + k^2/(c - I*k0)^2] + 1/Sqrt[1 + k^2/(3*c - I*k0)^2])/(k*k0))
|
|
SeriesData[k, Infinity, {(3*(2*c^3 - I*c^2*k0))/(k*k0), 0, (-15*(18*c^5 - (25*I)*c^4*k0 - 12*c^3*k0^2 + (2*I)*c^2*k0^3))/(4*k*k0), 0, (35*(138*c^7 - (301*I)*c^6*k0 - 270*c^5*k0^2 + (125*I)*c^4*k0^3 + 30*c^3*k0^4 - (3*I)*c^2*k0^5))/(8*k*k0), 0, (-105*(3110*c^9 - (9075*I)*c^8*k0 - 11592*c^7*k0^2 + (8428*I)*c^6*k0^3 + 3780*c^5*k0^4 - (1050*I)*c^4*k0^5 - 168*c^3*k0^6 + (12*I)*c^2*k0^7))/(64*k*k0)}, 3, 11, 1]
|