Ewald 1D in 3D: jdu spát
[qpms.git] / besseltransforms / 4-4-6
blob9c77b7469ea82091a98bce8e03e8ef4ce9e2756c
1 ((35*k^8 + 16*k^6*(35 - 12*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 + 16*k^4*(105 - 64*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4 + 64*k^2*(28 - 23*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^6 - 640*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^8)/(6720*k^6) - (35*k^8 + 16*k^6*(35 - 12*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 + 16*k^4*(105 - 64*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4 + 64*k^2*(28 - 23*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^6 - 640*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^8)/(1680*k^6) + (35*k^8 + 16*k^6*(35 - 12*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 + 16*k^4*(105 - 64*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4 + 64*k^2*(28 - 23*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^6 - 640*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^8)/(1120*k^6) - (35*k^8 + 16*k^6*(35 - 12*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 + 16*k^4*(105 - 64*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4 + 64*k^2*(28 - 23*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^6 - 640*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^8)/(1680*k^6) + (35*k^8 + 16*k^6*(35 - 12*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 + 16*k^4*(105 - 64*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4 + 64*k^2*(28 - 23*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^6 - 640*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^8)/(6720*k^6))/k0^4
2 SeriesData[k, Infinity, {(6*c^4)/k0^4, (-105*c^5)/k0^4 + ((35*I)*c^4)/k0^3, (896*c^6)/k0^4 - ((576*I)*c^5)/k0^3 - (96*c^4)/k0^2, (-315*(30*c^7 - (28*I)*c^6*k0 - 9*c^5*k0^2 + I*c^4*k0^3))/(2*k0^4), 160*c^4 + (15888*c^8)/k0^4 - ((19200*I)*c^7)/k0^3 - (8960*c^6)/k0^2 + ((1920*I)*c^5)/k0, (-231*(2025*c^9 - (2979*I)*c^8*k0 - 1800*c^7*k0^2 + (560*I)*c^6*k0^3 + 90*c^5*k0^4 - (6*I)*c^4*k0^5))/(16*k0^4), 0, (143*(25080*c^11 - (49346*I)*c^10*k0 - 42525*c^9*k0^2 + (20853*I)*c^8*k0^3 + 6300*c^7*k0^4 - (1176*I)*c^6*k0^5 - 126*c^5*k0^6 + (6*I)*c^4*k0^7))/(32*k0^4)}, 2, 11, 1]