qpms/besseltransforms/klarge/5-3-4

(-(k^4*(-15 + 4*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^5)/(12*k^4) + (k^4*(-15 + 4*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^5)/(6*k^4) - (k^4*(-15 + 4*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^5)/(6*k^4) + (k^4*(-15 + 4*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^5)/(12*k^4) - (k^4*(-15 + 4*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^5)/(60*k^4) + (4*Sqrt[k^2 - k0^2]*(k^4 - 7*k^2*k0^2 + 6*k0^4) + I*(15*k^4*k0 - 40*k^2*k0^3 + 24*k0^5))/(60*k^4))/k0^3
(-(Power(k,4)*(-15 + 4*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*(c - Complex(0,1)*k0) + 4*Power(k,2)*(-10 + 7*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,3) + 24*(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,5))/(12.*Power(k,4)) + (Power(k,4)*(-15 + 4*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*(2*c - Complex(0,1)*k0) + 4*Power(k,2)*(-10 + 7*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,3) + 24*(-1 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,5))/(6.*Power(k,4)) - (Power(k,4)*(-15 + 4*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*(3*c - Complex(0,1)*k0) + 4*Power(k,2)*(-10 + 7*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,3) + 24*(-1 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,5))/(6.*Power(k,4)) + (Power(k,4)*(-15 + 4*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*(4*c - Complex(0,1)*k0) + 4*Power(k,2)*(-10 + 7*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,3) + 24*(-1 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,5))/(12.*Power(k,4)) - (Power(k,4)*(-15 + 4*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*(5*c - Complex(0,1)*k0) + 4*Power(k,2)*(-10 + 7*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,3) + 24*(-1 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,5))/(60.*Power(k,4)) + (4*Sqrt(Power(k,2) - Power(k0,2))*(Power(k,4) - 7*Power(k,2)*Power(k0,2) + 6*Power(k0,4)) + Complex(0,1)*(15*Power(k,4)*k0 - 40*Power(k,2)*Power(k0,3) + 24*Power(k0,5)))/(60.*Power(k,4)))/Power(k0,3)
SeriesData[k, Infinity, {(48*c^5)/k0^3, (-525*c^6)/(2*k0^3) + ((105*I)*c^5)/k0^2, 0, (315*(75*c^8 - (80*I)*c^7*k0 - 30*c^6*k0^2 + (4*I)*c^5*k0^3))/(8*k0^3), 0, (-693*(2025*c^10 - (3310*I)*c^9*k0 - 2250*c^8*k0^2 + (800*I)*c^7*k0^3 + 150*c^6*k0^4 - (12*I)*c^5*k0^5))/(32*k0^3)}, 4, 11, 1]
-(5*(k^4*(-15 + 4*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^5) - 10*(k^4*(-15 + 4*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^5) + 10*(k^4*(-15 + 4*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^5) - 5*(k^4*(-15 + 4*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^5) + k^4*(-15 + 4*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + 4*k^2*(-10 + 7*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^3 + 24*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^5 - 4*Sqrt[k^2 - k0^2]*(k^4 - 7*k^2*k0^2 + 6*k0^4) - I*(15*k^4*k0 - 40*k^2*k0^3 + 24*k0^5))/(60*k^4*k0^3)
Další Hankelovy transformace pro kappa=5 Former-commit-id: cc20e7f5dbf8651a81543f84ac066d011e84082b 2018-01-23 00:52:10 +02:00			(-(k^4(-15 + 4Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^5)/(12k^4) + (k^4(-15 + 4Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^5)/(6k^4) - (k^4(-15 + 4Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^5)/(6k^4) + (k^4(-15 + 4Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^5)/(12k^4) - (k^4(-15 + 4Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^5)/(60k^4) + (4Sqrt[k^2 - k0^2](k^4 - 7k^2k0^2 + 6k0^4) + I(15k^4k0 - 40k^2k0^3 + 24k0^5))/(60k^4))/k0^3
			(-(Power(k,4)(-15 + 4Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2)))(c - Complex(0,1)k0) + 4Power(k,2)(-10 + 7Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2)))Power(c - Complex(0,1)k0,3) + 24(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2)))Power(c - Complex(0,1)k0,5))/(12.Power(k,4)) + (Power(k,4)(-15 + 4Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2)))(2c - Complex(0,1)k0) + 4Power(k,2)(-10 + 7Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2)))Power(2c - Complex(0,1)k0,3) + 24(-1 + Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2)))Power(2c - Complex(0,1)k0,5))/(6.Power(k,4)) - (Power(k,4)(-15 + 4Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2)))(3c - Complex(0,1)k0) + 4Power(k,2)(-10 + 7Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2)))Power(3c - Complex(0,1)k0,3) + 24(-1 + Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2)))Power(3c - Complex(0,1)k0,5))/(6.Power(k,4)) + (Power(k,4)(-15 + 4Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2)))(4c - Complex(0,1)k0) + 4Power(k,2)(-10 + 7Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2)))Power(4c - Complex(0,1)k0,3) + 24(-1 + Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2)))Power(4c - Complex(0,1)k0,5))/(12.Power(k,4)) - (Power(k,4)(-15 + 4Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2)))(5c - Complex(0,1)k0) + 4Power(k,2)(-10 + 7Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2)))Power(5c - Complex(0,1)k0,3) + 24(-1 + Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2)))Power(5c - Complex(0,1)k0,5))/(60.Power(k,4)) + (4Sqrt(Power(k,2) - Power(k0,2))(Power(k,4) - 7Power(k,2)Power(k0,2) + 6Power(k0,4)) + Complex(0,1)(15Power(k,4)k0 - 40Power(k,2)Power(k0,3) + 24Power(k0,5)))/(60.Power(k,4)))/Power(k0,3)
			`SeriesData[k, Infinity, {(48c^5)/k0^3, (-525c^6)/(2k0^3) + ((105I)c^5)/k0^2, 0, (315(75c^8 - (80I)c^7k0 - 30c^6k0^2 + (4I)c^5k0^3))/(8k0^3), 0, (-693(2025c^10 - (3310I)c^9k0 - 2250c^8k0^2 + (800I)c^7k0^3 + 150c^6k0^4 - (12I)c^5k0^5))/(32k0^3)}, 4, 11, 1]`
			-(5(k^4(-15 + 4Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^5) - 10(k^4(-15 + 4Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^5) + 10(k^4(-15 + 4Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^5) - 5(k^4(-15 + 4Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^5) + k^4(-15 + 4Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0) + 4k^2(-10 + 7Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^3 + 24(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^5 - 4Sqrt[k^2 - k0^2](k^4 - 7k^2k0^2 + 6k0^4) - I(15k^4k0 - 40k^2k0^3 + 24k0^5))/(60k^4k0^3)