qpms/besseltransforms/klarge/5-1-2

5 lines
4.1 KiB
Plaintext

(-5*(1/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) - (2*(c - I*k0))/k^2 + (2*(c - I*k0))/(k^2*Sqrt[1 + k^2/(c - I*k0)^2])) + 10*(1/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) - (2*(2*c - I*k0))/k^2 + (2*(2*c - I*k0))/(k^2*Sqrt[1 + k^2/(2*c - I*k0)^2])) - 10*(1/(Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) - (2*(3*c - I*k0))/k^2 + (2*(3*c - I*k0))/(k^2*Sqrt[1 + k^2/(3*c - I*k0)^2])) + 5*(1/(Sqrt[1 + k^2/(4*c - I*k0)^2]*(4*c - I*k0)) - (2*(4*c - I*k0))/k^2 + (2*(4*c - I*k0))/(k^2*Sqrt[1 + k^2/(4*c - I*k0)^2])) - 1/(Sqrt[1 + k^2/(5*c - I*k0)^2]*(5*c - I*k0)) + (2*(5*c - I*k0))/k^2 - (2*(5*c - I*k0))/(k^2*Sqrt[1 + k^2/(5*c - I*k0)^2]) + ((2*I)*k*k0 + (k*(k^2 - 2*k0^2))/Sqrt[k^2 - k0^2])/k^3)/k0
(-5*(1/(Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2))*(c - Complex(0,1)*k0)) - (2*(c - Complex(0,1)*k0))/Power(k,2) + (2*(c - Complex(0,1)*k0))/(Power(k,2)*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))) + 10*(1/(Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2))*(2*c - Complex(0,1)*k0)) - (2*(2*c - Complex(0,1)*k0))/Power(k,2) + (2*(2*c - Complex(0,1)*k0))/(Power(k,2)*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))) - 10*(1/(Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2))*(3*c - Complex(0,1)*k0)) - (2*(3*c - Complex(0,1)*k0))/Power(k,2) + (2*(3*c - Complex(0,1)*k0))/(Power(k,2)*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))) + 5*(1/(Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2))*(4*c - Complex(0,1)*k0)) - (2*(4*c - Complex(0,1)*k0))/Power(k,2) + (2*(4*c - Complex(0,1)*k0))/(Power(k,2)*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))) - 1/(Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2))*(5*c - Complex(0,1)*k0)) + (2*(5*c - Complex(0,1)*k0))/Power(k,2) - (2*(5*c - Complex(0,1)*k0))/(Power(k,2)*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2))) + (Complex(0,2)*k*k0 + (k*(Power(k,2) - 2*Power(k0,2)))/Sqrt(Power(k,2) - Power(k0,2)))/Power(k,3))/k0
SeriesData[k, Infinity, {-(1/(k*k0)), k0^(-1), (3*k0)/(2*k), (-3*k0)/2, ((5*c - I*k0)^4/k - (3*(5*c - I*k0)^3*((5*c)/k - (I*k0)/k))/8 - 5*(-((c - I*k0)^4/k) + (3*(c - I*k0)^3*(c/k - (I*k0)/k))/8) + 10*(-((2*c - I*k0)^4/k) + (3*(2*c - I*k0)^3*((2*c)/k - (I*k0)/k))/8) - 10*(-((3*c - I*k0)^4/k) + (3*(3*c - I*k0)^3*((3*c)/k - (I*k0)/k))/8) + 5*(-((4*c - I*k0)^4/k) + (3*(4*c - I*k0)^3*((4*c)/k - (I*k0)/k))/8))/k0, (-5*k0^3)/8, ((-3*(5*c - I*k0)^6)/(4*k) + (5*(5*c - I*k0)^5*((5*c)/k - (I*k0)/k))/16 - 5*((3*(c - I*k0)^6)/(4*k) - (5*(c - I*k0)^5*(c/k - (I*k0)/k))/16) + 10*((3*(2*c - I*k0)^6)/(4*k) - (5*(2*c - I*k0)^5*((2*c)/k - (I*k0)/k))/16) - 10*((3*(3*c - I*k0)^6)/(4*k) - (5*(3*c - I*k0)^5*((3*c)/k - (I*k0)/k))/16) + 5*((3*(4*c - I*k0)^6)/(4*k) - (5*(4*c - I*k0)^5*((4*c)/k - (I*k0)/k))/16))/k0, (-7*k0^5)/16, ((5*(5*c - I*k0)^8)/(8*k) - (35*(5*c - I*k0)^7*((5*c)/k - (I*k0)/k))/128 - 5*((-5*(c - I*k0)^8)/(8*k) + (35*(c - I*k0)^7*(c/k - (I*k0)/k))/128) + 10*((-5*(2*c - I*k0)^8)/(8*k) + (35*(2*c - I*k0)^7*((2*c)/k - (I*k0)/k))/128) - 10*((-5*(3*c - I*k0)^8)/(8*k) + (35*(3*c - I*k0)^7*((3*c)/k - (I*k0)/k))/128) + 5*((-5*(4*c - I*k0)^8)/(8*k) + (35*(4*c - I*k0)^7*((4*c)/k - (I*k0)/k))/128))/k0, (-45*k0^7)/128, ((-35*(5*c - I*k0)^10)/(64*k) + (63*(5*c - I*k0)^9*((5*c)/k - (I*k0)/k))/256 - 5*((35*(c - I*k0)^10)/(64*k) - (63*(c - I*k0)^9*(c/k - (I*k0)/k))/256) + 10*((35*(2*c - I*k0)^10)/(64*k) - (63*(2*c - I*k0)^9*((2*c)/k - (I*k0)/k))/256) - 10*((35*(3*c - I*k0)^10)/(64*k) - (63*(3*c - I*k0)^9*((3*c)/k - (I*k0)/k))/256) + 5*((35*(4*c - I*k0)^10)/(64*k) - (63*(4*c - I*k0)^9*((4*c)/k - (I*k0)/k))/256))/k0}, 0, 11, 1]
(-5*(1/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) - (2*(c - I*k0))/k^2 + (2*(c - I*k0))/(k^2*Sqrt[1 + k^2/(c - I*k0)^2])) + 5*(1/(Sqrt[1 + k^2/(4*c - I*k0)^2]*(4*c - I*k0)) + (8*c - (2*I)*k0)/(k^2*Sqrt[1 + k^2/(4*c - I*k0)^2]) + (-8*c + (2*I)*k0)/k^2) - 10*(1/(Sqrt[1 + k^2/(3*c - I*k0)^2]*(3*c - I*k0)) + (6*c - (2*I)*k0)/(k^2*Sqrt[1 + k^2/(3*c - I*k0)^2]) + (-6*c + (2*I)*k0)/k^2) + 10*(1/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) + (4*c - (2*I)*k0)/(k^2*Sqrt[1 + k^2/(2*c - I*k0)^2]) + (-4*c + (2*I)*k0)/k^2) - 1/(Sqrt[1 + k^2/(5*c - I*k0)^2]*(5*c - I*k0)) + (10*c - (2*I)*k0)/k^2 + (-10*c + (2*I)*k0)/(k^2*Sqrt[1 + k^2/(5*c - I*k0)^2]) + ((2*I)*k*k0 + (k*(k^2 - 2*k0^2))/Sqrt[k^2 - k0^2])/k^3)/k0