5 lines
1.3 KiB
Plaintext
5 lines
1.3 KiB
Plaintext
|
(-5*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 10*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) - 10*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 5*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) - (-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + I*k0 + Sqrt[k^2 - k0^2])/(k*k0^2)
|
||
|
|
(-5*(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*(c - Complex(0,1)*k0) + 10*(-1 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*(2*c - Complex(0,1)*k0) - 10*(-1 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*(3*c - Complex(0,1)*k0) + 5*(-1 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*(4*c - Complex(0,1)*k0) - (-1 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*(5*c - Complex(0,1)*k0) + Complex(0,1)*k0 + Sqrt(Power(k,2) - Power(k0,2)))/(k*Power(k0,2))
|
||
|
|
SeriesData[k, Infinity, {(-225*c^6)/(2*k0^2) + ((45*I)*c^5)/k0, 0, (-7875*c^6)/4 + (39375*c^8)/(8*k0^2) - ((5250*I)*c^7)/k0 + (525*I)/2*c^5*k0, 0, (-2205*(2025*c^10 - (3310*I)*c^9*k0 - 2250*c^8*k0^2 + (800*I)*c^7*k0^3 + 150*c^6*k0^4 - (12*I)*c^5*k0^5))/(32*k0^2)}, 6, 11, 1]
|
||
|
|
(-5*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 10*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) - 10*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 5*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) - (-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + I*k0 + Sqrt[k^2 - k0^2])/(k*k0^2)
|