Ewald 1D in 3D: jdu spát
[qpms.git] / besseltransforms / 5-3-3
blobcf02c586c355827f33d726f1ec6fe25a271e5f7a
1 ((3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0)^4)/(24*k^3) - (5*(3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0)^4))/(24*k^3) + (5*(3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0)^4))/(12*k^3) - (5*(3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0)^4))/(12*k^3) + (5*(3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0)^4))/(24*k^3) - (3*k^4 + 4*k^2*(3 - 2*Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^2 - 8*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0)^4)/(24*k^3))/k0^3
2 SeriesData[k, Infinity, {(15*c^5)/k0^3, 0, (-35*(38*c^7 - (21*I)*c^6*k0 - 3*c^5*k0^2))/(2*k0^3), 0, (315*(1087*c^9 - (1134*I)*c^8*k0 - 456*c^7*k0^2 + (84*I)*c^6*k0^3 + 6*c^5*k0^4))/(16*k0^3), 0, (-165*(120332*c^11 - (179487*I)*c^10*k0 - 114135*c^9*k0^2 + (39690*I)*c^8*k0^3 + 7980*c^7*k0^4 - (882*I)*c^6*k0^5 - 42*c^5*k0^6))/(32*k0^3)}, 4, 11, 1]