2018-03-28 11:52:50 +03:00
|
|
|
(-2/(Sqrt[1 + k^2/(c - I*k0)^2]*(c - I*k0)) + (4*(c - I*k0))/k^2 - (4*(c - I*k0))/(k^2*Sqrt[1 + k^2/(c - I*k0)^2]) + 1/(Sqrt[1 + k^2/(2*c - I*k0)^2]*(2*c - I*k0)) + (4*c - (2*I)*k0)/(k^2*Sqrt[1 + k^2/(2*c - I*k0)^2]) + (-4*c + (2*I)*k0)/k^2 + (Sqrt[Pi]*(Piecewise[{{0, k^2/k0^2 <= 1}}, (k0*(k^2 - 2*k0^2))/(k^3*Sqrt[Pi - (k0^2*Pi)/k^2])] + I*Piecewise[{{(k0*(k^2 + 2*k0*(-k0 + Sqrt[-k^2 + k0^2])))/(k^2*Sqrt[-k^2 + k0^2]*Sqrt[Pi]), k^2/k0^2 < 1}, {(2*k0^2)/(k^2*Sqrt[Pi]), k^2/k0^2 > 1}}, 0]))/k0)/k0
|
|
|
|
|
Piecewise[{{SeriesData[k, Infinity, {(3*c^2)/(k^2*k0), 0, (-5*(7*c^4 - (12*I)*c^3*k0 - 6*c^2*k0^2))/(4*k^2*k0), 0, (7*(31*c^6 - (90*I)*c^5*k0 - 105*c^4*k0^2 + (60*I)*c^3*k0^3 + 15*c^2*k0^4))/(8*k^2*k0), 0, (-45*(127*c^8 - (504*I)*c^7*k0 - 868*c^6*k0^2 + (840*I)*c^5*k0^3 + 490*c^4*k0^4 - (168*I)*c^3*k0^5 - 28*c^2*k0^6))/(64*k^2*k0), 0, (77*(511*c^10 - (2550*I)*c^9*k0 - 5715*c^8*k0^2 + (7560*I)*c^7*k0^3 + 6510*c^6*k0^4 - (3780*I)*c^5*k0^5 - 1470*c^4*k0^6 + (360*I)*c^3*k0^7 + 45*c^2*k0^8))/(128*k^2*k0)}, 1, 11, 1], (k0 <= 0 && k^2/k0^2 > 1) || k0 > 0}}, SeriesData[k, Infinity, {(3*c^2)/(k^2*k0), 0, (-5*(7*c^4 - (12*I)*c^3*k0 - 6*c^2*k0^2))/(4*k^2*k0), 0, (7*(31*c^6 - (90*I)*c^5*k0 - 105*c^4*k0^2 + (60*I)*c^3*k0^3 + 15*c^2*k0^4))/(8*k^2*k0), 0, ((-I*(-((c - I*k0)^3*(2*c - I*k0))/(2*k^2) - ((c - I*k0)*(2*c - I*k0)^3)/(2*k^2)) - (I/2*(c - I*k0)*(2*c - I*k0)*k0^2)/k^2)*((2*I)*c^2*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0))) + 3*c*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0)))*k0 - (4*I)*c^2*(-(c - I*k0)^3/(8*(2*c - I*k0)) + ((c - I*k0)*(2*c - I*k0))/4 - (2*c - I*k0)^3/(8*(c - I*k0)))*k0^2 - I*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0)))*k0^2 - 6*c*(-(c - I*k0)^3/(8*(2*c - I*k0)) + ((c - I*k0)*(2*c - I*k0))/4 - (2*c - I*k0)^3/(8*(c - I*k0)))*k0^3 + (2*I)*(-(c - I*k0)^3/(8*(2*c - I*k0)) + ((c - I*k0)*(2*c - I*k0))/4 - (2*c - I*k0)^3/(8*(c - I*k0)))*k0^4 + 8*c^3*(-I/8*(c - I*k0)^3 - I/4*(c - I*k0)*k0^2 - (I/8*k0^4)/(c - I*k0)) - (16*I)*c^2*k0*(-I/8*(c - I*k0)^3 - I/4*(c - I*k0)*k0^2 - (I/8*k0^4)/(c - I*k0)) - 10*c*k0^2*(-I/8*(c - I*k0)^3 - I/4*(c - I*k0)*k0^2 - (I/8*k0^4)/(c - I*k0)) + (2*I)*k0^3*(-I/8*(c - I*k0)^3 - I/4*(c - I*k0)*k0^2 - (I/8*k0^4)/(c - I*k0)) - 8*c^3*(-I/8*(2*c - I*k0)^3 - I/4*(2*c - I*k0)*k0^2 - (I/8*k0^4)/(2*c - I*k0)) + (20*I)*c^2*k0*(-I/8*(2*c - I*k0)^3 - I/4*(2*c - I*k0)*k0^2 - (I/8*k0^4)/(2*c - I*k0)) + 16*c*k0^2*(-I/8*(2*c - I*k0)^3 - I/4*(2*c - I*k0)*k0^2 - (I/8*k0^4)/(2*c - I*k0)) - (4*I)*k0^3*(-I/8*(2*c - I*k0)^3 - I/4*(2*c - I*k0)*k0^2 - (I/8*k0^4)/(2*c - I*k0)) + c*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 - I/16*(c - I*k0)*k0^4 - (I/16*k0^6)/(c - I*k0)) - I*k0*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 - I/16*(c - I*k0)*k0^4 - (I/16*k0^6)/(c - I*k0)) - 4*c*(I/16*(2*c - I*k0)^5 + I/16*(2*c - I*k0)^3*k0^2 - I/16*(2*c - I*k0)*k0^4 - (I/16*k0^6)/(2*c - I*k0)) + (2*I)*k0*(I/16*(2*c - I*k0)^5 + I/16*(2*c - I*k0)^3*k0^2 - I/16*(2*c - I*k0)*k0^4 - (I/16*k0^6)/(2*c - I*k0))) - (I*(c - I*k0)*(2*c - I*k0)*((2*I)*c^2*((-5*(c - I*k0)^7)/(128*(2*c - I*k0)) + ((c - I*k0)^5*(2*c - I*k0))/32 + ((c - I*k0)^3*(2*c - I*k0)^3)/64 + ((c - I*k0)*(2*c - I*k0)^5)/32 - (5*(2*c - I*k0)^7)/(128*(c - I*k0))) + 3*c*((-5*(c - I*k0)^7)/(128*(2*c - I*k0)) + ((c - I*k0)^5*(2*c - I*k0))/32 + ((c - I*k0)^3*(2*c - I*k0)^3)/64 + ((c - I*k0)*(2*c - I*k0)^5)/32 - (5*(2*c - I*k0)^7)/(128*(c - I*k0)))*k0 - (4*I)*c^2*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0)))*k0^2 - I*((-5*(c - I*k0)^7)/(128*(2*c - I*k0)) + ((c - I*k0)^5*(2*c - I*k0))/32 + ((c - I*k0)^3*(2*c - I*k0)^3)/64 + ((c - I*k0)*(2*c - I*k0)^5)/32 - (5*(2*c - I*k0)^7)/(128*(c - I*k0)))*k0^2 - 6*c*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0)))*k0^3 + (2*I)*((c - I*k0)^5/(16*(2*c - I*k0)) - ((c - I*k0)^3*(2*c - I*k0))/16 - ((c - I*k0)*(2*c - I*k0)^3)/16 + (2*c - I*k0)^5/(16*(c - I*k0)))*k0^4 + 8*c^3*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 - I/16*(c - I*k0)*k0^4 - (I/16*k0^6)/(c - I*k0)) - (16*I)*c^2*k0*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 - I/16*(c - I*k0)*k0^4 - (I/16*k0^6)/(c - I*k0)) - 10*c*k0^2*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 - I/16*(c - I*k0)*k0^4 - (I/16*k0^6)/(c - I*k0)) + (2*I)*k0^3*(I/16*(c - I*k0)^5 + I/16*(c - I*k0)^3*k0^2 -
|
