Scalar term

velocityscalar[1] = KroeneckerRule[velocitytensor[2] K[α, β], K, d] K[α, β]/.x[a_]^2:>Abs[x]^2

(-2^(-d - z) π^(-d/2) Abs[x]^z Gamma[1 - z/2] + 2^(-1 - d - z) d π^(-d/2) Abs[x]^z Gamma[-z/2]) K[α, β]


Created by Mathematica  (March 14, 2006)