qpms/besseltransforms/klarge/5-1-1

5 lines
1.2 KiB
Plaintext
Raw Permalink Normal View History

(-k^(-1) - 5*(k^(-1) - 1/(k*Sqrt[1 + k^2/(c - I*k0)^2])) + 10*(k^(-1) - 1/(k*Sqrt[1 + k^2/(2*c - I*k0)^2])) - 10*(k^(-1) - 1/(k*Sqrt[1 + k^2/(3*c - I*k0)^2])) + 5*(k^(-1) - 1/(k*Sqrt[1 + k^2/(4*c - I*k0)^2])) + 1/(k*Sqrt[1 + k^2/(5*c - I*k0)^2]) + (1 + (I*k0)/Sqrt[k^2 - k0^2])/k)/k0
(-(1/k) - 5*(1/k - 1/(k*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))) + 10*(1/k - 1/(k*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))) - 10*(1/k - 1/(k*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))) + 5*(1/k - 1/(k*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))) + 1/(k*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2))) + (1 + (Complex(0,1)*k0)/Sqrt(Power(k,2) - Power(k0,2)))/k)/k0
SeriesData[k, Infinity, {-I/k, I, (-I/2*k0^2)/k, I/2*k0^2, (3*(120*c^5 - I*k0^5))/(8*k*k0), (3*I)/8*k0^4, (-5*(16800*c^7 - (12600*I)*c^6*k0 - 2520*c^5*k0^2 + I*k0^7))/(16*k*k0), (5*I)/16*k0^6, (35*(834120*c^9 - (1134000*I)*c^8*k0 - 604800*c^7*k0^2 + (151200*I)*c^6*k0^3 + 15120*c^5*k0^4 - I*k0^9))/(128*k*k0), (35*I)/128*k0^8}, 1, 11, 1]
(-5*(1 - 1/Sqrt[1 + k^2/(c - I*k0)^2]) + 10*(1 - 1/Sqrt[1 + k^2/(2*c - I*k0)^2]) - 10*(1 - 1/Sqrt[1 + k^2/(3*c - I*k0)^2]) + 5*(1 - 1/Sqrt[1 + k^2/(4*c - I*k0)^2]) + 1/Sqrt[1 + k^2/(5*c - I*k0)^2] + (I*k0)/Sqrt[k^2 - k0^2])/(k*k0)