5 lines
4.2 KiB
Plaintext
5 lines
4.2 KiB
Plaintext
(-(5*k^6 + 2*k^4*(15 - 8*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 8*k^2*(5 - 4*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6)/(48*k^4) + (5*k^6 + 2*k^4*(15 - 8*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 8*k^2*(5 - 4*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6)/(24*k^4) - (5*k^6 + 2*k^4*(15 - 8*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 8*k^2*(5 - 4*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6)/(24*k^4) + (5*k^6 + 2*k^4*(15 - 8*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 8*k^2*(5 - 4*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^6)/(48*k^4) - (5*k^6 + 2*k^4*(15 - 8*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 8*k^2*(5 - 4*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 - 16*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^6)/(240*k^4) + (5*k^6 - 30*k^4*k0^2 + 40*k^2*k0^4 - 16*k0^6 + (16*I)*k0*(k^2 - k0^2)^(5/2))/(240*k^4))/k0^4
|
|
(-(5*Power(k,6) + 2*Power(k,4)*(15 - 8*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,2) + 8*Power(k,2)*(5 - 4*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,4) - 16*(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,6))/(48.*Power(k,4)) + (5*Power(k,6) + 2*Power(k,4)*(15 - 8*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,2) + 8*Power(k,2)*(5 - 4*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,4) - 16*(-1 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,6))/(24.*Power(k,4)) - (5*Power(k,6) + 2*Power(k,4)*(15 - 8*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,2) + 8*Power(k,2)*(5 - 4*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,4) - 16*(-1 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,6))/(24.*Power(k,4)) + (5*Power(k,6) + 2*Power(k,4)*(15 - 8*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,2) + 8*Power(k,2)*(5 - 4*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,4) - 16*(-1 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,6))/(48.*Power(k,4)) - (5*Power(k,6) + 2*Power(k,4)*(15 - 8*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,2) + 8*Power(k,2)*(5 - 4*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,4) - 16*(-1 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,6))/(240.*Power(k,4)) + (5*Power(k,6) - 30*Power(k,4)*Power(k0,2) + 40*Power(k,2)*Power(k0,4) - 16*Power(k0,6) + Complex(0,16)*k0*Power(Power(k,2) - Power(k0,2),2.5))/(240.*Power(k,4)))/Power(k0,4)
|
|
SeriesData[k, Infinity, {(15*c^5)/k0^4, (-120*c^6)/k0^4 + ((48*I)*c^5)/k0^3, (35*(20*c^7 - (15*I)*c^6*k0 - 3*c^5*k0^2))/(2*k0^4), 0, (-105*(331*c^9 - (450*I)*c^8*k0 - 240*c^7*k0^2 + (60*I)*c^6*k0^3 + 6*c^5*k0^4))/(16*k0^4), 0, (33*(22430*c^11 - (42525*I)*c^10*k0 - 34755*c^9*k0^2 + (15750*I)*c^8*k0^3 + 4200*c^7*k0^4 - (630*I)*c^6*k0^5 - 42*c^5*k0^6))/(32*k0^4)}, 3, 11, 1]
|
|
(5*k^4*(-15 + 8*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 20*k^2*(-5 + 4*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 + 40*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6 + 10*k^4*(15 - 8*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 40*k^2*(5 - 4*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 - 80*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6 + 10*k^4*(-15 + 8*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 40*k^2*(-5 + 4*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 + 80*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6 + 5*k^4*(15 - 8*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 20*k^2*(5 - 4*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 - 40*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^6 + k^4*(-15 + 8*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 4*k^2*(-5 + 4*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 + 8*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^6 - 15*k^4*k0^2 + 20*k^2*k0^4 - 8*k0^6 + (8*I)*k0*(k^2 - k0^2)^(5/2))/(120*k^4*k0^4)
|