qpms/besseltransforms/6-4-7

3 lines
2.6 KiB
Plaintext

((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)/(840*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)/(336*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)/(252*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)/(336*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)/(840*k^7) + (k^8*(-105 + 16*Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0) + 8*k^6*(-105 + 44*Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^3 + 144*k^4*(-14 + 9*Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^5 + 320*k^2*(-6 + 5*Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^7 + 640*(-1 + Sqrt[1 + k^2/(7*c - I*k0)^2])*(7*c - I*k0)^9)/(5040*k^7))/k0^4
SeriesData[k, Infinity, {(315*c^6)/k0^4, (-7680*c^7)/k0^4 + ((1920*I)*c^6)/k0^3, (10395*(33*c^8 - (16*I)*c^7*k0 - 2*c^6*k0^2))/(4*k0^4), (-537600*c^9)/k0^4 + ((380160*I)*c^8)/k0^3 + (92160*c^7)/k0^2 - ((7680*I)*c^6)/k0, (9009*(3047*c^10 - (2800*I)*c^9*k0 - 990*c^8*k0^2 + (160*I)*c^7*k0^3 + 10*c^6*k0^4))/(16*k0^4), 0, (-2145*(259792*c^12 - (342216*I)*c^11*k0 - 191961*c^10*k0^2 + (58800*I)*c^9*k0^3 + 10395*c^8*k0^4 - (1008*I)*c^7*k0^5 - 42*c^6*k0^6))/(32*k0^4)}, 4, 11, 1]