2018-03-28 11:52:50 +03:00
|
|
|
(-k^2 + 14*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 - 42*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 70*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 - 70*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 42*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 - 14*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^2 + 2*(-1 + Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^2 + k^2*Sqrt[Pi]*(I*Piecewise[{{0, k^2/k0^2 <= 1}}, (2*k0*Sqrt[k^2 - k0^2])/(k^2*Sqrt[Pi])] + Piecewise[{{(k^2 + 2*k0*(-k0 + Sqrt[-k^2 + k0^2]))/(k^2*Sqrt[Pi]), k^2/k0^2 < 1}, {(1 - (2*k0^2)/k^2)/Sqrt[Pi], k^2/k0^2 > 1}}, 0]))/(2*k^2*k0^2)
|
|
|
|
|
SeriesData[k, Infinity, {(315*c^7)/k0^2, 0, (-4725*(77*c^9 - (42*I)*c^8*k0 - 6*c^7*k0^2))/(4*k0^2)}, 7, 11, 1]
|
