c0terms3 = Select[Series[c0terms2, {s, 4 mPip^2, 1}] // Normal // Expand, FreeQ[Limit[#, s -> 4 mPip^2], Infinity | DirectedInfinity | ComplexInfinity] &] // Simplify

-1/(1572864 π^4 (f _ π^(ó  r ))^2) ((e^( ))^2 (4 (-78 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) log(1/(m _ π^+^(ó  r ))^2) - 256 log(1/(m _ π^+^(ó  r ))^2) + 4 log(1/2 1/(m _ π^+^(ó  r ))^2^(1/2)) (39 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 128) + log(m^2) (-78 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) - 256) + 78 i π log(s - 4 (m _ π^+^(ó  r ))^2) 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 78 i π log(4) 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 65 π^2 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) - 224 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 256 log(4) + 512 log(2) + 64) (m _ π^+^(ó  r ))^2 + s (-42 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) log(1/(m _ π^+^(ó  r ))^2) + 448 log(1/(m _ π^+^(ó  r ))^2) + 14 log(m^2) (32 - 3 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2)) + log(1/2 1/(m _ π^+^(ó  r ))^2^(1/2)) (84 i π 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) - 896) + 42 i π log(s - 4 (m _ π^+^(ó  r ))^2) 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 42 i π log(4) 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 35 π^2 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) + 416 1/(m _ π^+^(ó  r ))^2^(1/2) (s - 4 (m _ π^+^(ó  r ))^2)^(1/2) - 448 log(4) - 896 log(2) - 64)))

Converted by Mathematica  (July 10, 2003)