qpms/besseltransforms/ksmall/5-1-5

((-5*(k^4*(-5 + Sqrt[1 + k^2/(c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4))/(k^5*Sqrt[1 + k^2/(c - I*k0)^2]) + (10*(k^4*(-5 + Sqrt[1 + k^2/(2*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4))/(k^5*Sqrt[1 + k^2/(2*c - I*k0)^2]) - (10*(k^4*(-5 + Sqrt[1 + k^2/(3*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4))/(k^5*Sqrt[1 + k^2/(3*c - I*k0)^2]) + (5*(k^4*(-5 + Sqrt[1 + k^2/(4*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4))/(k^5*Sqrt[1 + k^2/(4*c - I*k0)^2]) - (k^4*(-5 + Sqrt[1 + k^2/(5*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4)/(k^5*Sqrt[1 + k^2/(5*c - I*k0)^2]) + (k^4*(1 - (5*k0)/Sqrt[-k^2 + k0^2]) + 16*k0^4*(1 - k0/Sqrt[-k^2 + k0^2]) + 4*k^2*k0^2*(-3 + (5*k0)/Sqrt[-k^2 + k0^2]))/k^5)/k0
((-5*(Power(k,4)*(-5 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2))) + 4*Power(k,2)*(-5 + 3*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,2) + 16*(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2)))*Power(c - Complex(0,1)*k0,4)))/(Power(k,5)*Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)*k0,2))) + (10*(Power(k,4)*(-5 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2))) + 4*Power(k,2)*(-5 + 3*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,2) + 16*(-1 + Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2)))*Power(2*c - Complex(0,1)*k0,4)))/(Power(k,5)*Sqrt(1 + Power(k,2)/Power(2*c - Complex(0,1)*k0,2))) - (10*(Power(k,4)*(-5 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2))) + 4*Power(k,2)*(-5 + 3*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,2) + 16*(-1 + Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2)))*Power(3*c - Complex(0,1)*k0,4)))/(Power(k,5)*Sqrt(1 + Power(k,2)/Power(3*c - Complex(0,1)*k0,2))) + (5*(Power(k,4)*(-5 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2))) + 4*Power(k,2)*(-5 + 3*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,2) + 16*(-1 + Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2)))*Power(4*c - Complex(0,1)*k0,4)))/(Power(k,5)*Sqrt(1 + Power(k,2)/Power(4*c - Complex(0,1)*k0,2))) - (Power(k,4)*(-5 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2))) + 4*Power(k,2)*(-5 + 3*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,2) + 16*(-1 + Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2)))*Power(5*c - Complex(0,1)*k0,4))/(Power(k,5)*Sqrt(1 + Power(k,2)/Power(5*c - Complex(0,1)*k0,2))) + (Power(k,4)*(1 - (5*k0)/Sqrt(-Power(k,2) + Power(k0,2))) + 16*Power(k0,4)*(1 - k0/Sqrt(-Power(k,2) + Power(k0,2))) + 4*Power(k,2)*Power(k0,2)*(-3 + (5*k0)/Sqrt(-Power(k,2) + Power(k0,2))))/Power(k,5))/k0
SeriesData[k, Infinity, {-(1/(k*k0)), (k - (5*I)*k0)/(k*k0), (I*(5*k - (12*I)*k0))/k, (-24*k*k0 + (35*I)*k0^2)/(2*k), ((-125*(5*c - I*k0)^4)/(8*k) - (35*I)/2*k0^3 - (3*(5*c - I*k0)^3*((5*c)/k - (I*k0)/k))/8 - 5*((125*(c - I*k0)^4)/(8*k) + (3*(c - I*k0)^3*(c/k - (I*k0)/k))/8) + 10*((125*(2*c - I*k0)^4)/(8*k) + (3*(2*c - I*k0)^3*((2*c)/k - (I*k0)/k))/8) - 10*((125*(3*c - I*k0)^4)/(8*k) + (3*(3*c - I*k0)^3*((3*c)/k - (I*k0)/k))/8) + 5*((125*(4*c - I*k0)^4)/(8*k) + (3*(4*c - I*k0)^3*((4*c)/k - (I*k0)/k))/8))/k0, ((6*(5*c - I*k0)^5)/k + 16*k0^4 + (15*(5*c - I*k0)^4*((5*c)/k - (I*k0)/k))/8 - 5*((-6*(c - I*k0)^5)/k - (15*(c - I*k0)^4*(c/k - (I*k0)/k))/8) + 10*((-6*(2*c - I*k0)^5)/k - (15*(2*c - I*k0)^4*((2*c)/k - (I*k0)/k))/8) - 10*((-6*(3*c - I*k0)^5)/k - (15*(3*c - I*k0)^4*((3*c)/k - (I*k0)/k))/8) + 5*((-6*(4*c - I*k0)^5)/k - (15*(4*c - I*k0)^4*((4*c)/k - (I*k0)/k))/8))/k0, ((35*(5*c - I*k0)^6)/(8*k) + (63*I)/8*k0^5 - (35*(5*c - I*k0)^5*((5*c)/k - (I*k0)/k))/8 - 5*((-35*(c - I*k0)^6)/(8*k) + (35*(c - I*k0)^5*(c/k - (I*k0)/k))/8) + 10*((-35*(2*c - I*k0)^6)/(8*k) + (35*(2*c - I*k0)^5*((2*c)/k - (I*k0)/k))/8) - 10*((-35*(3*c - I*k0)^6)/(8*k) + (35*(3*c - I*k0)^5*((3*c)/k - (I*k0)/k))/8) + 5*((-35*(4*c - I*k0)^6)/(8*k) + (35*(4*c - I*k0)^5*((4*c)/k - (I*k0)/k))/8))/k0, ((-8*(5*c - I*k0)^7)/k + (95*(5*c - I*k0)^6*((5*c)/k - (I*k0)/k))/16 - 5*((8*(c - I*k0)^7)/k - (95*(c - I*k0)^6*(c/k - (I*k0)/k))/16) + 10*((8*(2*c - I*k0)^7)/k - (95*(2*c - I*k0)^6*((2*c)/k - (I*k0)/k))/16) - 10*((8*(3*c - I*k0)^7)/k - (95*(3*c - I*k0)^6*((3*c)/k - (I*k0)/k))/16) + 5*((8*(4*c - I*k0)^7)/k - (95*(4*c - I*k0)^6*((4*c)/k - (I*k0)/k))/16))/k0, ((585*(5*c - I*k0)^8)/(128*k) + (33*I)/16*k0^7 - (585*(5*c - I*k0)^7*((5*c)/k - (I*k0)/k))/128 - 5*((-585*(c - I*k0)^8)/(128*k) + (585*(c - I*k0)^7*(c/k - (I*k0)/k))/128) + 10*((-585*(2*c - I*k0)^8)/(128*k) + (585*(2*c - I*k0)^7*((2*c)/k - (I*k0)/k))/128) - 10*((-585*(3*c - I*k0)^8)/(128*k) + (585*(3*c - I*k0)^7*((3*c)/k - (I*k0)/k))/128) + 5*((-585*(4*c - I*k0)^8)/(128*k) + (585*(4*c - I*k0)^7*((4*c)/k - (I*k0)/k))/128))/k0, ((715*(c - I*k0)^8*(c/k - (I*k0)/k))/128 - (715*(2*c - I*k0)^8*((2*c)/k - (I*k0)/k))/64 + (715*(3*c - I*k0)^8*((3*c)/k - (I*k0)/k))/64 - (715*(4*c - I*k0)^8*((4*c)/k - (I*k0)/k))/128 + (143*(5*c - I*k0)^8*((5*c)/k - (I*k0)/k))/128)/k0, ((-77*(5*c - I*k0)^10)/(64*k) + (143*I)/128*k0^9 + (77*(5*c - I*k0)^9*((5*c)/k - (I*k0)/k))/64 - 5*((77*(c - I*k0)^10)/(64*k) - (77*(c - I*k0)^9*(c/k - (I*k0)/k))/64) + 10*((77*(2*c - I*k0)^10)/(64*k) - (77*(2*c - I*k0)^9*((2*c)/k - (I*k0)/k))/64) - 10*((77*(3*c - I*k0)^10)/(64*k) - (77*(3*c - I*k0)^9*((3*c)/k - (I*k0)/k))/64) + 5*((77*(4*c - I*k0)^10)/(64*k) - (77*(4*c - I*k0)^9*((4*c)/k - (I*k0)/k))/64))/k0}, 0, 11, 1]
((-5*(k^4*(-5 + Sqrt[1 + k^2/(c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4))/Sqrt[1 + k^2/(c - I*k0)^2] + (10*(k^4*(-5 + Sqrt[1 + k^2/(2*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4))/Sqrt[1 + k^2/(2*c - I*k0)^2] - (10*(k^4*(-5 + Sqrt[1 + k^2/(3*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4))/Sqrt[1 + k^2/(3*c - I*k0)^2] + (5*(k^4*(-5 + Sqrt[1 + k^2/(4*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4))/Sqrt[1 + k^2/(4*c - I*k0)^2] - (k^4*(-5 + Sqrt[1 + k^2/(5*c - I*k0)^2]) + 4*k^2*(-5 + 3*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 16*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4)/Sqrt[1 + k^2/(5*c - I*k0)^2] + k^4*(1 - (5*k0)/Sqrt[-k^2 + k0^2]) + 16*k0^4*(1 - k0/Sqrt[-k^2 + k0^2]) + 4*k^2*k0^2*(-3 + (5*k0)/Sqrt[-k^2 + k0^2]))/(k^5*k0)
Další Hankelovy transformace pro kappa=5 Former-commit-id: cc20e7f5dbf8651a81543f84ac066d011e84082b 2018-01-23 00:52:10 +02:00			((-5(k^4(-5 + Sqrt[1 + k^2/(c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4))/(k^5Sqrt[1 + k^2/(c - Ik0)^2]) + (10(k^4(-5 + Sqrt[1 + k^2/(2c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4))/(k^5Sqrt[1 + k^2/(2c - Ik0)^2]) - (10(k^4(-5 + Sqrt[1 + k^2/(3c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4))/(k^5Sqrt[1 + k^2/(3c - Ik0)^2]) + (5(k^4(-5 + Sqrt[1 + k^2/(4c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^4))/(k^5Sqrt[1 + k^2/(4c - Ik0)^2]) - (k^4(-5 + Sqrt[1 + k^2/(5c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^4)/(k^5Sqrt[1 + k^2/(5c - Ik0)^2]) + (k^4(1 - (5k0)/Sqrt[-k^2 + k0^2]) + 16k0^4(1 - k0/Sqrt[-k^2 + k0^2]) + 4k^2k0^2(-3 + (5k0)/Sqrt[-k^2 + k0^2]))/k^5)/k0
			((-5(Power(k,4)(-5 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2))) + 4Power(k,2)(-5 + 3Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2)))Power(c - Complex(0,1)k0,2) + 16(-1 + Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2)))Power(c - Complex(0,1)k0,4)))/(Power(k,5)Sqrt(1 + Power(k,2)/Power(c - Complex(0,1)k0,2))) + (10(Power(k,4)(-5 + Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2))) + 4Power(k,2)(-5 + 3Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2)))Power(2c - Complex(0,1)k0,2) + 16(-1 + Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2)))Power(2c - Complex(0,1)k0,4)))/(Power(k,5)Sqrt(1 + Power(k,2)/Power(2c - Complex(0,1)k0,2))) - (10(Power(k,4)(-5 + Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2))) + 4Power(k,2)(-5 + 3Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2)))Power(3c - Complex(0,1)k0,2) + 16(-1 + Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2)))Power(3c - Complex(0,1)k0,4)))/(Power(k,5)Sqrt(1 + Power(k,2)/Power(3c - Complex(0,1)k0,2))) + (5(Power(k,4)(-5 + Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2))) + 4Power(k,2)(-5 + 3Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2)))Power(4c - Complex(0,1)k0,2) + 16(-1 + Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2)))Power(4c - Complex(0,1)k0,4)))/(Power(k,5)Sqrt(1 + Power(k,2)/Power(4c - Complex(0,1)k0,2))) - (Power(k,4)(-5 + Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2))) + 4Power(k,2)(-5 + 3Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2)))Power(5c - Complex(0,1)k0,2) + 16(-1 + Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2)))Power(5c - Complex(0,1)k0,4))/(Power(k,5)Sqrt(1 + Power(k,2)/Power(5c - Complex(0,1)k0,2))) + (Power(k,4)(1 - (5k0)/Sqrt(-Power(k,2) + Power(k0,2))) + 16Power(k0,4)(1 - k0/Sqrt(-Power(k,2) + Power(k0,2))) + 4Power(k,2)Power(k0,2)(-3 + (5k0)/Sqrt(-Power(k,2) + Power(k0,2))))/Power(k,5))/k0
			SeriesData[k, Infinity, {-(1/(kk0)), (k - (5I)k0)/(kk0), (I(5k - (12I)k0))/k, (-24kk0 + (35I)k0^2)/(2k), ((-125(5c - Ik0)^4)/(8k) - (35I)/2k0^3 - (3(5c - Ik0)^3((5c)/k - (Ik0)/k))/8 - 5((125(c - Ik0)^4)/(8k) + (3(c - Ik0)^3(c/k - (Ik0)/k))/8) + 10((125(2c - Ik0)^4)/(8k) + (3(2c - Ik0)^3((2c)/k - (Ik0)/k))/8) - 10((125(3c - Ik0)^4)/(8k) + (3(3c - Ik0)^3((3c)/k - (Ik0)/k))/8) + 5((125(4c - Ik0)^4)/(8k) + (3(4c - Ik0)^3((4c)/k - (Ik0)/k))/8))/k0, ((6(5c - Ik0)^5)/k + 16k0^4 + (15(5c - Ik0)^4((5c)/k - (Ik0)/k))/8 - 5((-6(c - Ik0)^5)/k - (15(c - Ik0)^4(c/k - (Ik0)/k))/8) + 10((-6(2c - Ik0)^5)/k - (15(2c - Ik0)^4((2c)/k - (Ik0)/k))/8) - 10((-6(3c - Ik0)^5)/k - (15(3c - Ik0)^4((3c)/k - (Ik0)/k))/8) + 5((-6(4c - Ik0)^5)/k - (15(4c - Ik0)^4((4c)/k - (Ik0)/k))/8))/k0, ((35(5c - Ik0)^6)/(8k) + (63I)/8k0^5 - (35(5c - Ik0)^5((5c)/k - (Ik0)/k))/8 - 5((-35(c - Ik0)^6)/(8k) + (35(c - Ik0)^5(c/k - (Ik0)/k))/8) + 10((-35(2c - Ik0)^6)/(8k) + (35(2c - Ik0)^5((2c)/k - (Ik0)/k))/8) - 10((-35(3c - Ik0)^6)/(8k) + (35(3c - Ik0)^5((3c)/k - (Ik0)/k))/8) + 5((-35(4c - Ik0)^6)/(8k) + (35(4c - Ik0)^5((4c)/k - (Ik0)/k))/8))/k0, ((-8(5c - Ik0)^7)/k + (95(5c - Ik0)^6((5c)/k - (Ik0)/k))/16 - 5((8(c - Ik0)^7)/k - (95(c - Ik0)^6(c/k - (Ik0)/k))/16) + 10((8(2c - Ik0)^7)/k - (95(2c - Ik0)^6((2c)/k - (Ik0)/k))/16) - 10((8(3c - Ik0)^7)/k - (95(3c - Ik0)^6((3c)/k - (Ik0)/k))/16) + 5((8(4c - Ik0)^7)/k - (95(4c - Ik0)^6((4c)/k - (Ik0)/k))/16))/k0, ((585(5c - Ik0)^8)/(128k) + (33I)/16k0^7 - (585(5c - Ik0)^7((5c)/k - (Ik0)/k))/128 - 5((-585(c - Ik0)^8)/(128k) + (585(c - Ik0)^7(c/k - (Ik0)/k))/128) + 10((-585(2c - Ik0)^8)/(128k) + (585(2c - Ik0)^7((2c)/k - (Ik0)/k))/128) - 10((-585(3c - Ik0)^8)/(128k) + (585(3c - Ik0)^7((3c)/k - (Ik0)/k))/128) + 5((-585(4c - Ik0)^8)/(128k) + (585(4c - Ik0)^7((4c)/k - (Ik0)/k))/128))/k0, ((715(c - Ik0)^8(c/k - (Ik0)/k))/128 - (715(2c - Ik0)^8((2c)/k - (Ik0)/k))/64 + (715(3c - Ik0)^8((3c)/k - (Ik0)/k))/64 - (715(4c - Ik0)^8((4c)/k - (Ik0)/k))/128 + (143(5c - Ik0)^8((5c)/k - (Ik0)/k))/128)/k0, ((-77(5c - Ik0)^10)/(64k) + (143I)/128k0^9 + (77(5c - Ik0)^9((5c)/k - (Ik0)/k))/64 - 5((77(c - Ik0)^10)/(64k) - (77(c - Ik0)^9(c/k - (Ik0)/k))/64) + 10((77(2c - Ik0)^10)/(64k) - (77(2c - Ik0)^9((2c)/k - (Ik0)/k))/64) - 10((77(3c - Ik0)^10)/(64k) - (77(3c - Ik0)^9((3c)/k - (Ik0)/k))/64) + 5((77(4c - Ik0)^10)/(64k) - (77(4c - Ik0)^9((4c)/k - (Ik0)/k))/64))/k0}, 0, 11, 1]
			((-5(k^4(-5 + Sqrt[1 + k^2/(c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^4))/Sqrt[1 + k^2/(c - Ik0)^2] + (10(k^4(-5 + Sqrt[1 + k^2/(2c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^4))/Sqrt[1 + k^2/(2c - Ik0)^2] - (10(k^4(-5 + Sqrt[1 + k^2/(3c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^4))/Sqrt[1 + k^2/(3c - Ik0)^2] + (5(k^4(-5 + Sqrt[1 + k^2/(4c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^4))/Sqrt[1 + k^2/(4c - Ik0)^2] - (k^4(-5 + Sqrt[1 + k^2/(5c - Ik0)^2]) + 4k^2(-5 + 3Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^2 + 16(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^4)/Sqrt[1 + k^2/(5c - Ik0)^2] + k^4(1 - (5k0)/Sqrt[-k^2 + k0^2]) + 16k0^4(1 - k0/Sqrt[-k^2 + k0^2]) + 4k^2k0^2(-3 + (5k0)/Sqrt[-k^2 + k0^2]))/(k^5k0)