3 lines
1020 B
Plaintext
3 lines
1020 B
Plaintext
(k^2*(-3 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 4*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 - 6*k^2*(-3 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) - 24*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 15*k^2*(-3 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 60*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 - 20*k^2*(-3 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) - 80*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^3 + 15*k^2*(-3 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + 60*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^3 - 6*k^2*(-3 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0) - 24*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^3 + k^2*(-3 + Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0) + 4*(-1 + Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^3)/(3*k^3*k0^2)
|
|
SeriesData[k, Infinity, {(-105*c^6)/k0^2, 0, (-2835*c^6)/2 + (93555*c^8)/(4*k0^2) - ((11340*I)*c^7)/k0, 0, (5145525*c^8)/8 - (31673565*c^10)/(16*k0^2) + ((1819125*I)*c^9)/k0 - (103950*I)*c^7*k0 - (51975*c^6*k0^2)/8}, 6, 11, 1]
|