qpms/besseltransforms/ksmall/5-2-4

5 lines
2.7 KiB
Plaintext

(-5*(1/4 - ((-2 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2)/k^2 - (2*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4)/k^4) + 10*(1/4 - ((-2 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2)/k^2 - (2*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4)/k^4) - 10*(1/4 - ((-2 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2)/k^2 - (2*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4)/k^4) + 5*(1/4 - ((-2 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2)/k^2 - (2*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4)/k^4) + ((-2 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2)/k^2 + (2*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4)/k^4 + (2*k0^3*(k0 - Sqrt[-k^2 + k0^2]))/k^4 + (k0*(-2*k0 + Sqrt[-k^2 + k0^2]))/k^2)/k0^2
(-5*(0.25 - ((-2 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,2))/Power(k,2) - (2*(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,4))/Power(k,4)) + 10*(0.25 - ((-2 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,2))/Power(k,2) - (2*(-1 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,4))/Power(k,4)) - 10*(0.25 - ((-2 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,2))/Power(k,2) - (2*(-1 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,4))/Power(k,4)) + 5*(0.25 - ((-2 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,2))/Power(k,2) - (2*(-1 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,4))/Power(k,4)) + ((-2 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,2))/Power(k,2) + (2*(-1 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,4))/Power(k,4) + (2*Power(k0,3)*(k0 - Sqrt(-Power(k,2) + Power(k0,2))))/Power(k,4) + (k0*(-2*k0 + Sqrt(-Power(k,2) + Power(k0,2))))/Power(k,2))/Power(k0,2)
SeriesData[k, Infinity, {(105*c^5)/k0^2, 0, (945*c^5)/2 - (3150*c^7)/k0^2 + ((4725*I)/2*c^6)/k0, 0, (3465*(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^2)}, 5, 11, 1]
(5*k^2*(-2 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 10*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 - 10*k^2*(-2 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 - 20*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + 10*k^2*(-2 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 20*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 - 5*k^2*(-2 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 - 10*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 + k^2*(-2 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 2*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 + 2*k0^3*(k0 - Sqrt[-k^2 + k0^2]) - k^2*k0*(2*k0 - Sqrt[-k^2 + k0^2]))/(k^4*k0^2)