qpms/besseltransforms/5-4-7

((k^8*(-105 + 16*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^9)/(5040*k^7) - (k^8*(-105 + 16*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^9)/(1008*k^7) + (k^8*(-105 + 16*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^9)/(504*k^7) - (k^8*(-105 + 16*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^9)/(504*k^7) + (k^8*(-105 + 16*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^9)/(1008*k^7) - (k^8*(-105 + 16*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^9)/(5040*k^7))/k0^4
SeriesData[k, Infinity, {(48*c^5)/k0^4, (-2205*c^6)/(2*k0^4) + ((315*I)*c^5)/k0^3, (12160*c^7)/k0^4 - ((6720*I)*c^6)/k0^3 - (960*c^5)/k0^2, (-3465*(189*c^8 - (152*I)*c^7*k0 - 42*c^6*k0^2 + (4*I)*c^5*k0^3))/(8*k0^4), 1920*c^5 + (347840*c^9)/k0^4 - ((362880*I)*c^8)/k0^3 - (145920*c^7)/k0^2 + ((26880*I)*c^6)/k0, (-3003*(8547*c^10 - (10870*I)*c^9*k0 - 5670*c^8*k0^2 + (1520*I)*c^7*k0^3 + 210*c^6*k0^4 - (12*I)*c^5*k0^5))/(32*k0^4), 0, (2145*(141232*c^12 - (240664*I)*c^11*k0 - 179487*c^10*k0^2 + (76090*I)*c^9*k0^3 + 19845*c^8*k0^4 - (3192*I)*c^7*k0^5 - 294*c^6*k0^6 + (12*I)*c^5*k0^7))/(64*k0^4)}, 3, 11, 1]
Bessel transform mathematica results etc. Former-commit-id: 3dca9d0ccbfefa4c5f3867ce4ba31229646ca2d9 2018-01-15 15:14:15 +02:00			((k^8(-105 + 16Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(c - Ik0)^2])(c - Ik0)^9)/(5040k^7) - (k^8(-105 + 16Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(2c - Ik0)^2])(2c - Ik0)^9)/(1008k^7) + (k^8(-105 + 16Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(3c - Ik0)^2])(3c - Ik0)^9)/(504k^7) - (k^8(-105 + 16Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(4c - Ik0)^2])(4c - Ik0)^9)/(504k^7) + (k^8(-105 + 16Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(5c - Ik0)^2])(5c - Ik0)^9)/(1008k^7) - (k^8(-105 + 16Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0) + 8k^6(-105 + 44Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^3 + 144k^4(-14 + 9Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^5 + 320k^2(-6 + 5Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^7 + 640(-1 + Sqrt[1 + k^2/(6c - Ik0)^2])(6c - Ik0)^9)/(5040k^7))/k0^4
			SeriesData[k, Infinity, {(48c^5)/k0^4, (-2205c^6)/(2k0^4) + ((315I)c^5)/k0^3, (12160c^7)/k0^4 - ((6720I)c^6)/k0^3 - (960c^5)/k0^2, (-3465(189c^8 - (152I)c^7k0 - 42c^6k0^2 + (4I)c^5k0^3))/(8k0^4), 1920c^5 + (347840c^9)/k0^4 - ((362880I)c^8)/k0^3 - (145920c^7)/k0^2 + ((26880I)c^6)/k0, (-3003(8547c^10 - (10870I)c^9k0 - 5670c^8k0^2 + (1520I)c^7k0^3 + 210c^6k0^4 - (12I)c^5k0^5))/(32k0^4), 0, (2145(141232c^12 - (240664I)c^11k0 - 179487c^10k0^2 + (76090I)c^9k0^3 + 19845c^8k0^4 - (3192I)c^7k0^5 - 294c^6k0^6 + (12I)c^5k0^7))/(64k0^4)}, 3, 11, 1]