Coefficients

singlecoeff[1] = FullSimplify[{Coefficient[single[1], Log[Abs[x]], 0], Coefficient[single[1], ... [a_] :>0, EulerGamma0, PolyGamma[0, (2 + d)/2] 0}, ExcludedFormsAbs[x]]

{-(d (3 + d) Abs[x]^2 K[α, β] - 4 x[α] x[β])/(2 (-1 + d) (2 + d)^2), ((1 + ... (-2 + d + d^2)), -((1 + d) Abs[x]^2 K[α, β] - 2 x[α] x[β])/(2 (-2 + d + d^2))}

Created by Mathematica  (March 14, 2006)