qpms/besseltransforms/ksmall/5-1-0

5 lines
2.0 KiB
Plaintext

(-5/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) + 10/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) - 10/(Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) + 5/(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/Sqrt[-k^2 + k0^2])/k0
(-5/(Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2))*(c - Complex(0,1)*k0)) + 10/(Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2))*(2*c - Complex(0,1)*k0)) - 10/(Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2))*(3*c - Complex(0,1)*k0)) + 5/(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)/Sqrt(-Power(k,2) + Power(k0,2)))/k0
SeriesData[k, Infinity, {-(1/(k*k0)), k0^(-1), -k0/(2*k), k0/2, ((-15*(c - I*k0)^3*(c/k - (I*k0)/k))/8 + (15*(2*c - I*k0)^3*((2*c)/k - (I*k0)/k))/4 - (15*(3*c - I*k0)^3*((3*c)/k - (I*k0)/k))/4 + (15*(4*c - I*k0)^3*((4*c)/k - (I*k0)/k))/8 - (3*(5*c - I*k0)^3*((5*c)/k - (I*k0)/k))/8)/k0, (3*k0^3)/8, ((25*(c - I*k0)^5*(c/k - (I*k0)/k))/16 - (25*(2*c - I*k0)^5*((2*c)/k - (I*k0)/k))/8 + (25*(3*c - I*k0)^5*((3*c)/k - (I*k0)/k))/8 - (25*(4*c - I*k0)^5*((4*c)/k - (I*k0)/k))/16 + (5*(5*c - I*k0)^5*((5*c)/k - (I*k0)/k))/16)/k0, (5*k0^5)/16, ((-175*(c - I*k0)^7*(c/k - (I*k0)/k))/128 + (175*(2*c - I*k0)^7*((2*c)/k - (I*k0)/k))/64 - (175*(3*c - I*k0)^7*((3*c)/k - (I*k0)/k))/64 + (175*(4*c - I*k0)^7*((4*c)/k - (I*k0)/k))/128 - (35*(5*c - I*k0)^7*((5*c)/k - (I*k0)/k))/128)/k0, (35*k0^7)/128, ((315*(c - I*k0)^9*(c/k - (I*k0)/k))/256 - (315*(2*c - I*k0)^9*((2*c)/k - (I*k0)/k))/128 + (315*(3*c - I*k0)^9*((3*c)/k - (I*k0)/k))/128 - (315*(4*c - I*k0)^9*((4*c)/k - (I*k0)/k))/256 + (63*(5*c - I*k0)^9*((5*c)/k - (I*k0)/k))/256)/k0}, 0, 11, 1]
(-5/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) + 10/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) - 10/(Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) + 5/(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/Sqrt[-k^2 + k0^2])/k0