qpms/besseltransforms/6-2-1

3 lines
2.2 KiB
Plaintext

(-12*(-1 + Sqrt[1 + k^2/(c - I*k0)^2])*(c - I*k0) + 30*(-1 + Sqrt[1 + k^2/(2*c - I*k0)^2])*(2*c - I*k0) - 40*(-1 + Sqrt[1 + k^2/(3*c - I*k0)^2])*(3*c - I*k0) + 30*(-1 + Sqrt[1 + k^2/(4*c - I*k0)^2])*(4*c - I*k0) - 12*(-1 + Sqrt[1 + k^2/(5*c - I*k0)^2])*(5*c - I*k0) + 2*(-1 + Sqrt[1 + k^2/(6*c - I*k0)^2])*(6*c - I*k0) + k*Sqrt[Pi]*(Piecewise[{{0, k^2/k0^2 <= 1}}, (2*Sqrt[k^2 - k0^2])/(k*Sqrt[Pi])] + I*Piecewise[{{(2*k0)/(k*Sqrt[Pi]), k0^2/k^2 < 1}, {(2*(k0 - Sqrt[-k^2 + k0^2]))/(k*Sqrt[Pi]), k0^2/k^2 > 1}}, 0]))/(2*k*k0^2)
Piecewise[{{SeriesData[k, Infinity, {(45*c^6)/k0^2, 0, (1575*c^6)/2 - (29925*c^8)/(4*k0^2) + ((4725*I)*c^7)/k0, 0, (6615*(1087*c^10 - (1260*I)*c^9*k0 - 570*c^8*k0^2 + (120*I)*c^7*k0^3 + 10*c^6*k0^4))/(16*k0^2)}, 6, 11, 1], (k0 <= 0 && k^2/k0^2 > 1) || k0 > 0}}, SeriesData[k, Infinity, {-k0^(-2), 0, 1/2, 0, ((3*c*(c - I*k0)^3)/4 - (15*c*(2*c - I*k0)^3)/4 + (15*c*(3*c - I*k0)^3)/2 - (15*c*(4*c - I*k0)^3)/2 + (15*c*(5*c - I*k0)^3)/4 - (3*c*(6*c - I*k0)^3)/4 - (3*I)/4*(c - I*k0)^3*k0 + (15*I)/8*(2*c - I*k0)^3*k0 - (5*I)/2*(3*c - I*k0)^3*k0 + (15*I)/8*(4*c - I*k0)^3*k0 - (3*I)/4*(5*c - I*k0)^3*k0 + I/8*(6*c - I*k0)^3*k0)/k0^2, 0, ((-3*c*(c - I*k0)^5)/8 + (15*c*(2*c - I*k0)^5)/8 - (15*c*(3*c - I*k0)^5)/4 + (15*c*(4*c - I*k0)^5)/4 - (15*c*(5*c - I*k0)^5)/8 + (3*c*(6*c - I*k0)^5)/8 + (3*I)/8*(c - I*k0)^5*k0 - (15*I)/16*(2*c - I*k0)^5*k0 + (5*I)/4*(3*c - I*k0)^5*k0 - (15*I)/16*(4*c - I*k0)^5*k0 + (3*I)/8*(5*c - I*k0)^5*k0 - I/16*(6*c - I*k0)^5*k0)/k0^2, 0, ((15*c*(c - I*k0)^7)/64 - (75*c*(2*c - I*k0)^7)/64 + (75*c*(3*c - I*k0)^7)/32 - (75*c*(4*c - I*k0)^7)/32 + (75*c*(5*c - I*k0)^7)/64 - (15*c*(6*c - I*k0)^7)/64 - (15*I)/64*(c - I*k0)^7*k0 + (75*I)/128*(2*c - I*k0)^7*k0 - (25*I)/32*(3*c - I*k0)^7*k0 + (75*I)/128*(4*c - I*k0)^7*k0 - (15*I)/64*(5*c - I*k0)^7*k0 + (5*I)/128*(6*c - I*k0)^7*k0)/k0^2, 0, ((-21*c*(c - I*k0)^9)/128 + (105*c*(2*c - I*k0)^9)/128 - (105*c*(3*c - I*k0)^9)/64 + (105*c*(4*c - I*k0)^9)/64 - (105*c*(5*c - I*k0)^9)/128 + (21*c*(6*c - I*k0)^9)/128 + (21*I)/128*(c - I*k0)^9*k0 - (105*I)/256*(2*c - I*k0)^9*k0 + (35*I)/64*(3*c - I*k0)^9*k0 - (105*I)/256*(4*c - I*k0)^9*k0 + (21*I)/128*(5*c - I*k0)^9*k0 - (7*I)/256*(6*c - I*k0)^9*k0)/k0^2}, 0, 11, 1]]