(* ::Package:: *)
localbasis[GGGG[d]] = {{M[GGGG[d], {1, FULLSYM}], HGram},
{M[GGGG[d], {2, SUSYM}], H[1, 4]^2*H[2, 3]^2},
{M[GGGG[d], {2, SUSYM}, tus], H[1, 3]^2*H[2, 4]^2},
{M[GGGG[d], {2, SUSYM}, ust], H[1, 2]^2*H[3, 4]^2},
{M[GGGG[d], {3, SUSYM}], H[1, 2]*H[1, 3]*H[2, 4]*H[3, 4]},
{M[GGGG[d], {3, SUSYM}, tus], H[1, 2]*H[1, 4]*H[2, 3]*H[3, 4]},
{M[GGGG[d], {3, SUSYM}, ust], H[1, 3]*H[1, 4]*H[2, 3]*H[2, 4]},
{M[GGGG[d], {4, SUSYM}], H[1, 4]*H[2, 3]*(-X[1, 2, 3, 4] +
X[1, 2, 4, 3] - X[1, 3, 2, 4])}, {M[GGGG[d], {4, SUSYM}, tus],
H[1, 3]*H[2, 4]*(X[1, 2, 3, 4] - X[1, 2, 4, 3] - X[1, 3, 2, 4])},
{M[GGGG[d], {4, SUSYM}, ust], H[1, 2]*H[3, 4]*(-X[1, 2, 3, 4] -
X[1, 2, 4, 3] + X[1, 3, 2, 4])}, {M[GGGG[d], {5, NOSYM}],
H[1, 2]*H[3, 4]*X[1, 2, 4, 3]}, {M[GGGG[d], {5, NOSYM}, tus],
H[1, 4]*H[2, 3]*X[1, 2, 3, 4]}, {M[GGGG[d], {5, NOSYM}, ust],
H[1, 3]*H[2, 4]*X[1, 3, 2, 4]}, {M[GGGG[d], {5, NOSYM}, tsu],
H[1, 4]*H[2, 3]*X[1, 3, 2, 4]}, {M[GGGG[d], {5, NOSYM}, uts],
H[1, 3]*H[2, 4]*X[1, 2, 4, 3]}, {M[GGGG[d], {5, NOSYM}, sut],
H[1, 2]*H[3, 4]*X[1, 2, 3, 4]}, {M[GGGG[d], {6, SUSYM}],
X[1, 2, 4, 3]^2}, {M[GGGG[d], {6, SUSYM}, tus], X[1, 2, 3, 4]^2},
{M[GGGG[d], {6, SUSYM}, ust], X[1, 3, 2, 4]^2},
{M[GGGG[d], {7, SUSYM}], X[1, 2, 3, 4]*X[1, 3, 2, 4]},
{M[GGGG[d], {7, SUSYM}, tus], X[1, 2, 4, 3]*X[1, 3, 2, 4]},
{M[GGGG[d], {7, SUSYM}, ust], X[1, 2, 3, 4]*X[1, 2, 4, 3]},
{M[GGGG[d], {8, SUSYM}], HS*H[1, 4]*H[2, 3]},
{M[GGGG[d], {8, SUSYM}, tus], HS*H[1, 3]*H[2, 4]},
{M[GGGG[d], {8, SUSYM}, ust], HS*H[1, 2]*H[3, 4]},
{M[GGGG[d], {9, SUSYM}], HS*X[1, 2, 4, 3]},
{M[GGGG[d], {9, SUSYM}, tus], HS*X[1, 2, 3, 4]},
{M[GGGG[d], {9, SUSYM}, ust], HS*X[1, 3, 2, 4]},
{M[GGGG[d], {10, FULLSYM}], HS^2}}
vertices[GG[d]] = {Sqrt[2]*Sqrt[1/((-3 + d)*d)]*dot[ep[1], ep[2]]^2*
Tableau[{evenn^J}], 2*(-2 + d)*
Sqrt[((-1 + J)*J)/((-4 + d)*(-3 + d)*(2 + d)*(-3 + d + J)*
(-2 + d + J))]*dot[ep[1], ep[2]]*
((dot[ep[1], ep[2]]*Tableau[{evenn^J}])/(-2 + d) +
Tableau[{ep[1]}, {ep[2]}, {evenn^(-2 + J)}]),
Sqrt[(d*(2 + d)*(-3 + J)*(-2 + J)*(-1 + J)*J)/((-3 + d)*(-1 + d)*
(-3 + d + J)*(-2 + d + J)*(-1 + d + J)*(d + J))]*
((2*dot[ep[1], ep[2]]^2*Tableau[{evenn^J}])/(d*(2 + d)) +
(4*dot[ep[1], ep[2]]*Tableau[{ep[1]}, {ep[2]}, {evenn^(-2 + J)}])/
(2 + d) + Tableau[{ep[1]}, {ep[1]}, {ep[2]}, {ep[2]},
{evenn^(-4 + J)}]), I*Sqrt[2]*J*Sqrt[1/(d*(1 + J)*(-4 + d + J))]*
dot[ep[1], ep[2]]*Tableau[{ep[1], ep[2]}, {n}, {evenn^(-2 + J)}],
I*J*Sqrt[((-2 + d)*d*(-2 + J)*(-1 + J))/((-4 + d)*(-1 + d)*(1 + J)*
(-4 + d + J)*(-2 + d + J)*(-1 + d + J))]*
((2*dot[ep[1], ep[2]]*Tableau[{ep[1], ep[2]}, {n}, {evenn^(-2 + J)}])/
d + Tableau[{ep[1], ep[2]}, {ep[1]}, {ep[2]}, {n},
{evenn^(-4 + J)}]),
(Sqrt[2]*J*Sqrt[((-2 + d)*(-1 + J))/((-4 + d)*(2 + d)*(-2 + d + J))]*
dot[ep[1], ep[2]]*(Tableau[{ep[1], n}, {ep[2]}, {n},
{evenn^(-3 + J)}] + Tableau[{ep[2], n}, {ep[1]}, {n},
{evenn^(-3 + J)}]))/(1 + J),
(J*Sqrt[((2 + d)*(-3 + J)*(-2 + J)*(-1 + J))/((-1 + d)*(-2 + d + J)*
(-1 + d + J)*(d + J))]*
((2*dot[ep[1], ep[2]]*(Tableau[{ep[1], n}, {ep[2]}, {n},
{evenn^(-3 + J)}] + Tableau[{ep[2], n}, {ep[1]}, {n},
{evenn^(-3 + J)}]))/(2 + d) + Tableau[{ep[1], n}, {ep[1]},
{ep[2]}, {ep[2]}, {n}, {evenn^(-5 + J)}] + Tableau[{ep[2], n},
{ep[2]}, {ep[1]}, {ep[1]}, {n}, {evenn^(-5 + J)}]))/(1 + J),
(2*Sqrt[(-2 + d)/((-4 + d)*(2 + d))]*(-1 + J)*dot[ep[1], ep[2]]*
Tableau[{ep[1], n}, {ep[2], n}, {evenn^(-2 + J)}])/(1 + J),
((-1 + J)*Sqrt[((-4 + d)*J)/((-5 + d)*(1 + J)*(-4 + d + J)*
(-3 + d + J))]*((-2*dot[ep[1], ep[2]]*Tableau[{ep[1], n},
{ep[2], n}, {evenn^(-2 + J)}])/(-4 + d) + Tableau[{ep[1], ep[2]},
{ep[1], ep[2]}, {evenn^(-2 + J)}]))/Sqrt[3],
(Sqrt[6]*(-1 + J)*Sqrt[((2 + d)*(-3 + J)*(-2 + J))/((1 + d)*(-1 + d + J)*
(d + J))]*((2*dot[ep[1], ep[2]]*Tableau[{ep[1], n}, {ep[2], n},
{evenn^(-2 + J)}])/(3*(2 + d)) + Tableau[{ep[1], ep[2]},
{ep[1], ep[2]}, {evenn^(-2 + J)}]/6 + Tableau[{ep[1], n},
{ep[2], n}, {ep[1]}, {ep[2]}, {evenn^(-4 + J)}]))/(1 + J),
(I*(-1 + J)*Sqrt[((-2 + d)*(-2 + J))/((-3 + d)*(1 + J)*(-4 + d + J)*
(-1 + d + J))]*(Tableau[{ep[1], ep[2]}, {ep[1], n}, {ep[2]},
{evenn^(-3 + J)}] + Tableau[{ep[1], ep[2]}, {ep[2], n}, {ep[1]},
{evenn^(-3 + J)}]))/Sqrt[2],
(I*(-2 + J)*Tableau[{ep[1], ep[2]}, {ep[1], n}, {ep[2], n}, {n},
{evenn^(-4 + J)}])/Sqrt[(1 + J)*(-4 + d + J)],
((-2 + J)*Sqrt[(-3 + J)/(d + J)]*(Tableau[{ep[1], n}, {ep[1], n},
{ep[2], n}, {ep[2]}, {n}, {evenn^(-5 + J)}] + Tableau[{ep[2], n},
{ep[2], n}, {ep[1], n}, {ep[1]}, {n}, {evenn^(-5 + J)}]))/(1 + J),
((-3 + J)*Tableau[{ep[1], n}, {ep[1], n}, {ep[2], n}, {ep[2], n},
{evenn^(-4 + J)}])/(1 + J), (I*J*dot[ep[1], ep[2]]*
Tableau[{ep[1], ep[2], n}, {evenn^(-1 + J)}])/(Sqrt[d]*(2 + J)),
(I*J*Sqrt[(d*(-2 + J)*(-1 + J))/((-1 + d)*(-2 + d + J)*(-1 + d + J))]*
((dot[ep[1], ep[2]]*Tableau[{ep[1], ep[2], n}, {evenn^(-1 + J)}])/d +
Tableau[{ep[1], ep[2], n}, {ep[1]}, {ep[2]}, {evenn^(-3 + J)}]))/
(2 + J), (2*(-1 + J)*Sqrt[J/(-3 + d + J)]*Tableau[{ep[1], ep[2], n},
{ep[1], ep[2]}, {n}, {evenn^(-3 + J)}])/(3*(2 + J)),
(((2*I)/3)*(-1 + J)*Sqrt[(-2 + J)/(-1 + d + J)]*
(Tableau[{ep[1], ep[2], n}, {ep[1], n}, {ep[2]}, {n},
{evenn^(-4 + J)}] + Tableau[{ep[1], ep[2], n}, {ep[2], n}, {ep[1]},
{n}, {evenn^(-4 + J)}]))/(2 + J),
((I/2)*Sqrt[3]*(-2 + J)*Tableau[{ep[1], ep[2], n}, {ep[1], n},
{ep[2], n}, {evenn^(-3 + J)}])/(2 + J),
((-1 + J)*J*Tableau[{ep[1], ep[2], n}, {ep[1], ep[2], n},
{evenn^(-2 + J)}])/(3*(1 + J)*(2 + J))}
amplow[GGG[d]] = 2 Sqrt[G8\[Pi]] (\[Alpha]4 dot[p[1],e[3]]^2 dot[p[2],e[1]]^2 dot[p[3],e[2]]^2+
\[Alpha]2 dot[p[1],e[3]] dot[p[2],e[1]] dot[p[3],e[2]] (dot[e[1],e[2]] dot[p[1],e[3]]
+dot[e[2],e[3]] dot[p[2],e[1]]+dot[e[1],e[3]] dot[p[3],e[2]])+
(dot[e[1],e[2]] dot[p[1],e[3]]+dot[e[2],e[3]] dot[p[2],e[1]]+
dot[e[1],e[3]] dot[p[3],e[2]])^2)
amplow[GGGG[d]] = {g[3, 0, {GGGG[d], 1}] +
(s^2 + t^2 + u^2)*g[5, 0, {GGGG[d], 1}] + s*t*u*g[6, 0, {GGGG[d], 1}] +
(s^2 + t^2 + u^2)^2*g[7, 0, {GGGG[d], 1}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[8, 0, {GGGG[d], 1}] + s^2*t^2*u^2*g[9, 1, {GGGG[d], 1}],
-(G8\[Pi]/(s*t*(s + t))) - ((-4 + d)*G8\[Pi]*\[Alpha]2^2)/
(8*(-2 + d)*t) - (G8\[Pi]*s*(s + t)*\[Alpha]4^2)/(16*t) +
g[4, 0, {GGGG[d], 2}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 2}] +
s*t*u*g[7, 0, {GGGG[d], 2}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 2}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 2}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 2}] +
t*g[5, T, 0, {GGGG[d], 2}] + t^2*g[6, T^2, 0, {GGGG[d], 2}] +
t*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 2}] +
s*t^2*u*g[8, T, 0, {GGGG[d], 2}], -(G8\[Pi]/(s*t*(s + t))) +
((-4 + d)*G8\[Pi]*\[Alpha]2^2)/(8*(-2 + d)*(s + t)) -
(G8\[Pi]*s*t*\[Alpha]4^2)/(16*(s + t)) + g[4, 0, {GGGG[d], 2}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 2}] + s*t*u*g[7, 0, {GGGG[d], 2}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 2}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 2}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 2}] +
u*g[5, T, 0, {GGGG[d], 2}] + u^2*g[6, T^2, 0, {GGGG[d], 2}] +
u*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 2}] +
s*t*u^2*g[8, T, 0, {GGGG[d], 2}], -(G8\[Pi]/(s*t*(s + t))) -
((-4 + d)*G8\[Pi]*\[Alpha]2^2)/(8*(-2 + d)*s) -
(G8\[Pi]*t*(s + t)*\[Alpha]4^2)/(16*s) + g[4, 0, {GGGG[d], 2}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 2}] + s*t*u*g[7, 0, {GGGG[d], 2}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 2}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 2}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 2}] +
s*g[5, T, 0, {GGGG[d], 2}] + s^2*g[6, T^2, 0, {GGGG[d], 2}] +
s*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 2}] +
s^2*t*u*g[8, T, 0, {GGGG[d], 2}], (-2*G8\[Pi])/(s*t*(s + t)) -
(G8\[Pi]*t*\[Alpha]2^2)/(4*s*(s + t)) + (G8\[Pi]*t*\[Alpha]4)/
(2*s*(s + t)) + g[4, 0, {GGGG[d], 3}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 3}] + s*t*u*g[7, 0, {GGGG[d], 3}] +
2*s*t*u*(s^2 + t^2 + u^2)*g[9, 0, {GGGG[d], 3}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 3}] + t*g[5, T, 0, {GGGG[d], 3}] +
t^2*g[6, T^2, 0, {GGGG[d], 3}] + t*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 3}] + s*t^2*u*g[8, T, 0, {GGGG[d], 3}] +
t^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 3}] +
s*t^3*u*g[9, T^2, 0, {GGGG[d], 3}], (-2*G8\[Pi])/(s*t*(s + t)) -
(G8\[Pi]*(s + t)*\[Alpha]2^2)/(4*s*t) + (G8\[Pi]*(s + t)*\[Alpha]4)/
(2*s*t) + g[4, 0, {GGGG[d], 3}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 3}] + s*t*u*g[7, 0, {GGGG[d], 3}] +
2*s*t*u*(s^2 + t^2 + u^2)*g[9, 0, {GGGG[d], 3}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 3}] + u*g[5, T, 0, {GGGG[d], 3}] +
u^2*g[6, T^2, 0, {GGGG[d], 3}] + u*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 3}] + s*t*u^2*g[8, T, 0, {GGGG[d], 3}] +
u^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 3}] +
s*t*u^3*g[9, T^2, 0, {GGGG[d], 3}], (-2*G8\[Pi])/(s*t*(s + t)) -
(G8\[Pi]*s*\[Alpha]2^2)/(4*t*(s + t)) + (G8\[Pi]*s*\[Alpha]4)/
(2*t*(s + t)) + g[4, 0, {GGGG[d], 3}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 3}] + s*t*u*g[7, 0, {GGGG[d], 3}] +
2*s*t*u*(s^2 + t^2 + u^2)*g[9, 0, {GGGG[d], 3}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 3}] + s*g[5, T, 0, {GGGG[d], 3}] +
s^2*g[6, T^2, 0, {GGGG[d], 3}] + s*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 3}] + s^2*t*u*g[8, T, 0, {GGGG[d], 3}] +
s^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 3}] +
s^3*t*u*g[9, T^2, 0, {GGGG[d], 3}], (-4*G8\[Pi])/(s*t*(s + t)) +
(2*G8\[Pi]*\[Alpha]2)/(s*(s + t)) - (G8\[Pi]*\[Alpha]4)/t +
g[4, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 4}] +
s*t*u*g[7, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 4}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 4}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 4}] + t*g[5, T, 0, {GGGG[d], 4}] +
t^2*g[6, T^2, 0, {GGGG[d], 4}] + t*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 4}] + s*t^2*u*g[8, T, 0, {GGGG[d], 4}] +
t^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 4}] +
s*t^3*u*g[9, T^2, 0, {GGGG[d], 4}], (-4*G8\[Pi])/(s*t*(s + t)) -
(2*G8\[Pi]*\[Alpha]2)/(s*t) + (G8\[Pi]*\[Alpha]4)/(s + t) +
g[4, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 4}] +
s*t*u*g[7, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 4}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 4}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 4}] + u*g[5, T, 0, {GGGG[d], 4}] +
u^2*g[6, T^2, 0, {GGGG[d], 4}] + u*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 4}] + s*t*u^2*g[8, T, 0, {GGGG[d], 4}] +
u^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 4}] +
s*t*u^3*g[9, T^2, 0, {GGGG[d], 4}], (-4*G8\[Pi])/(s*t*(s + t)) +
(2*G8\[Pi]*\[Alpha]2)/(t*(s + t)) - (G8\[Pi]*\[Alpha]4)/s +
g[4, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 4}] +
s*t*u*g[7, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 4}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 4}] + (s^2 + t^2 + u^2)^3*g[10, 0, {GGGG[d], 4}] +
s^2*t^2*u^2*g[10, 1, {GGGG[d], 4}] + s*g[5, T, 0, {GGGG[d], 4}] +
s^2*g[6, T^2, 0, {GGGG[d], 4}] + s*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 4}] + s^2*t*u*g[8, T, 0, {GGGG[d], 4}] +
s^2*(s^2 + t^2 + u^2)*g[8, T^2, 0, {GGGG[d], 4}] +
s^3*t*u*g[9, T^2, 0, {GGGG[d], 4}], (-8*G8\[Pi])/(s*t*(s + t)) -
(G8\[Pi]*\[Alpha]2^2)/(2*s) + \[Alpha]2*((2*G8\[Pi])/(s*t) +
(G8\[Pi]*(s + t)*\[Alpha]4)/(2*s)) + g[4, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 5}] + s*t*u*g[7, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(s - u)*g[5, SmU, 0, {GGGG[d], 5}] + t*g[5, T, 0, {GGGG[d], 5}] +
t*(s - u)*g[6, SmU*T, 0, {GGGG[d], 5}] +
t^2*g[6, T^2, 0, {GGGG[d], 5}] + (s^2*(t - u) + (s - t)*u^2 +
t^2*(-s + u))*g[7, Odd3, 0, {GGGG[d], 5}] + (s - u)*(s^2 + t^2 + u^2)*
g[7, SmU, 0, {GGGG[d], 5}] + t*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 5}] + s*t*(s - u)*u*g[8, SmU, 0, {GGGG[d], 5}] +
s*t^2*u*g[8, T, 0, {GGGG[d], 5}] + t*(s - u)*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(s^2*(t - u) + (s - t)*u^2 + t^2*(-s + u))*g[9, Odd3, 0,
{GGGG[d], 5}] + s*t^2*(s - u)*u*g[9, SmU*T, 0, {GGGG[d], 5}],
(-8*G8\[Pi])/(s*t*(s + t)) - (G8\[Pi]*\[Alpha]2^2)/(2*t) +
\[Alpha]2*((-2*G8\[Pi])/(t*(s + t)) - (G8\[Pi]*s*\[Alpha]4)/(2*t)) +
g[4, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 5}] +
s*t*u*g[7, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(-s + t)*g[5, SmU, 0, {GGGG[d], 5}] + u*g[5, T, 0, {GGGG[d], 5}] +
(-s + t)*u*g[6, SmU*T, 0, {GGGG[d], 5}] +
u^2*g[6, T^2, 0, {GGGG[d], 5}] + (s^2*(t - u) + (s - t)*u^2 +
t^2*(-s + u))*g[7, Odd3, 0, {GGGG[d], 5}] +
(-s + t)*(s^2 + t^2 + u^2)*g[7, SmU, 0, {GGGG[d], 5}] +
u*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 5}] +
s*t*(-s + t)*u*g[8, SmU, 0, {GGGG[d], 5}] +
s*t*u^2*g[8, T, 0, {GGGG[d], 5}] + (-s + t)*u*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(s^2*(t - u) + (s - t)*u^2 + t^2*(-s + u))*g[9, Odd3, 0,
{GGGG[d], 5}] + s*t*(-s + t)*u^2*g[9, SmU*T, 0, {GGGG[d], 5}],
(-8*G8\[Pi])/(s*t*(s + t)) + (G8\[Pi]*\[Alpha]2^2)/(2*(s + t)) +
\[Alpha]2*((-2*G8\[Pi])/(s*(s + t)) + (G8\[Pi]*t*\[Alpha]4)/
(2*(s + t))) + g[4, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 5}] + s*t*u*g[7, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(-t + u)*g[5, SmU, 0, {GGGG[d], 5}] + s*g[5, T, 0, {GGGG[d], 5}] +
s*(-t + u)*g[6, SmU*T, 0, {GGGG[d], 5}] +
s^2*g[6, T^2, 0, {GGGG[d], 5}] + (s^2*(t - u) + (s - t)*u^2 +
t^2*(-s + u))*g[7, Odd3, 0, {GGGG[d], 5}] +
(-t + u)*(s^2 + t^2 + u^2)*g[7, SmU, 0, {GGGG[d], 5}] +
s*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 5}] +
s*t*u*(-t + u)*g[8, SmU, 0, {GGGG[d], 5}] +
s^2*t*u*g[8, T, 0, {GGGG[d], 5}] + s*(-t + u)*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(s^2*(t - u) + (s - t)*u^2 + t^2*(-s + u))*g[9, Odd3, 0,
{GGGG[d], 5}] + s^2*t*u*(-t + u)*g[9, SmU*T, 0, {GGGG[d], 5}],
(-8*G8\[Pi])/(s*t*(s + t)) - (G8\[Pi]*\[Alpha]2^2)/(2*t) +
\[Alpha]2*((2*G8\[Pi])/(s*t) + (G8\[Pi]*(s + t)*\[Alpha]4)/(2*t)) +
g[4, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 5}] +
s*t*u*g[7, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(t - u)*g[5, SmU, 0, {GGGG[d], 5}] + s*g[5, T, 0, {GGGG[d], 5}] +
s*(t - u)*g[6, SmU*T, 0, {GGGG[d], 5}] +
s^2*g[6, T^2, 0, {GGGG[d], 5}] + (t^2*(s - u) + (-s + t)*u^2 +
s^2*(-t + u))*g[7, Odd3, 0, {GGGG[d], 5}] + (t - u)*(s^2 + t^2 + u^2)*
g[7, SmU, 0, {GGGG[d], 5}] + s*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 5}] + s*t*(t - u)*u*g[8, SmU, 0, {GGGG[d], 5}] +
s^2*t*u*g[8, T, 0, {GGGG[d], 5}] + s*(t - u)*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(t^2*(s - u) + (-s + t)*u^2 + s^2*(-t + u))*
g[9, Odd3, 0, {GGGG[d], 5}] + s^2*t*(t - u)*u*
g[9, SmU*T, 0, {GGGG[d], 5}], (-8*G8\[Pi])/(s*t*(s + t)) +
(G8\[Pi]*\[Alpha]2^2)/(2*(s + t)) +
\[Alpha]2*((-2*G8\[Pi])/(t*(s + t)) + (G8\[Pi]*s*\[Alpha]4)/
(2*(s + t))) + g[4, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 5}] + s*t*u*g[7, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(-s + u)*g[5, SmU, 0, {GGGG[d], 5}] + t*g[5, T, 0, {GGGG[d], 5}] +
t*(-s + u)*g[6, SmU*T, 0, {GGGG[d], 5}] +
t^2*g[6, T^2, 0, {GGGG[d], 5}] + (t^2*(s - u) + (-s + t)*u^2 +
s^2*(-t + u))*g[7, Odd3, 0, {GGGG[d], 5}] +
(-s + u)*(s^2 + t^2 + u^2)*g[7, SmU, 0, {GGGG[d], 5}] +
t*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 5}] +
s*t*u*(-s + u)*g[8, SmU, 0, {GGGG[d], 5}] +
s*t^2*u*g[8, T, 0, {GGGG[d], 5}] + t*(-s + u)*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(t^2*(s - u) + (-s + t)*u^2 + s^2*(-t + u))*
g[9, Odd3, 0, {GGGG[d], 5}] + s*t^2*u*(-s + u)*
g[9, SmU*T, 0, {GGGG[d], 5}], (-8*G8\[Pi])/(s*t*(s + t)) -
(G8\[Pi]*\[Alpha]2^2)/(2*s) + \[Alpha]2*((-2*G8\[Pi])/(s*(s + t)) -
(G8\[Pi]*t*\[Alpha]4)/(2*s)) + g[4, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 5}] + s*t*u*g[7, 0, {GGGG[d], 5}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 5}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 5}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 5}] +
(s - t)*g[5, SmU, 0, {GGGG[d], 5}] + u*g[5, T, 0, {GGGG[d], 5}] +
(s - t)*u*g[6, SmU*T, 0, {GGGG[d], 5}] +
u^2*g[6, T^2, 0, {GGGG[d], 5}] + (t^2*(s - u) + (-s + t)*u^2 +
s^2*(-t + u))*g[7, Odd3, 0, {GGGG[d], 5}] + (s - t)*(s^2 + t^2 + u^2)*
g[7, SmU, 0, {GGGG[d], 5}] + u*(s^2 + t^2 + u^2)*
g[7, T, 0, {GGGG[d], 5}] + s*(s - t)*t*u*g[8, SmU, 0, {GGGG[d], 5}] +
s*t*u^2*g[8, T, 0, {GGGG[d], 5}] + (s - t)*u*(s^2 + t^2 + u^2)*
g[8, SmU*T, 0, {GGGG[d], 5}] + (s^2 + t^2 + u^2)*
(t^2*(s - u) + (-s + t)*u^2 + s^2*(-t + u))*
g[9, Odd3, 0, {GGGG[d], 5}] + s*(s - t)*t*u^2*
g[9, SmU*T, 0, {GGGG[d], 5}], (-4*G8\[Pi])/(s*t*(s + t)) +
(4*G8\[Pi]*\[Alpha]2)/(s*(s + t)) - (4*G8\[Pi]*t*\[Alpha]4)/
(s*(s + t)) + g[4, 0, {GGGG[d], 6}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 6}] + s*t*u*g[7, 0, {GGGG[d], 6}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 6}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 6}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 6}] +
t*g[5, T, 0, {GGGG[d], 6}] + t^2*g[6, T^2, 0, {GGGG[d], 6}] +
t*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 6}] +
s*t^2*u*g[8, T, 0, {GGGG[d], 6}], (-4*G8\[Pi])/(s*t*(s + t)) -
(4*G8\[Pi]*\[Alpha]2)/(s*t) - (4*G8\[Pi]*(s + t)*\[Alpha]4)/(s*t) +
g[4, 0, {GGGG[d], 6}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 6}] +
s*t*u*g[7, 0, {GGGG[d], 6}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 6}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 6}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 6}] +
u*g[5, T, 0, {GGGG[d], 6}] + u^2*g[6, T^2, 0, {GGGG[d], 6}] +
u*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 6}] +
s*t*u^2*g[8, T, 0, {GGGG[d], 6}], (-4*G8\[Pi])/(s*t*(s + t)) +
(4*G8\[Pi]*\[Alpha]2)/(t*(s + t)) - (4*G8\[Pi]*s*\[Alpha]4)/
(t*(s + t)) + g[4, 0, {GGGG[d], 6}] + (s^2 + t^2 + u^2)*
g[6, 0, {GGGG[d], 6}] + s*t*u*g[7, 0, {GGGG[d], 6}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 6}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 6}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 6}] +
s*g[5, T, 0, {GGGG[d], 6}] + s^2*g[6, T^2, 0, {GGGG[d], 6}] +
s*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 6}] +
s^2*t*u*g[8, T, 0, {GGGG[d], 6}], (-8*G8\[Pi])/(s*t*(s + t)) -
(4*G8\[Pi]*\[Alpha]2)/(s*(s + t)) + (8*G8\[Pi]*\[Alpha]4)/t +
g[4, 0, {GGGG[d], 7}] + (s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 7}] +
s*t*u*g[7, 0, {GGGG[d], 7}] + (s^2 + t^2 + u^2)^2*
g[8, 0, {GGGG[d], 7}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 7}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 7}] +
t*g[5, T, 0, {GGGG[d], 7}] + t^2*g[6, T^2, 0, {GGGG[d], 7}] +
t*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 7}] +
s*t^2*u*g[8, T, 0, {GGGG[d], 7}] + t^2*(s^2 + t^2 + u^2)*
g[8, T^2, 0, {GGGG[d], 7}] + t*(s^2 + t^2 + u^2)^2*
g[9, T, 0, {GGGG[d], 7}] + s*t^3*u*g[9, T^2, 0, {GGGG[d], 7}],
(-8*G8\[Pi])/(s*t*(s + t)) + (4*G8\[Pi]*\[Alpha]2)/(s*t) -
(8*G8\[Pi]*\[Alpha]4)/(s + t) + g[4, 0, {GGGG[d], 7}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 7}] + s*t*u*g[7, 0, {GGGG[d], 7}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 7}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 7}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 7}] +
u*g[5, T, 0, {GGGG[d], 7}] + u^2*g[6, T^2, 0, {GGGG[d], 7}] +
u*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 7}] +
s*t*u^2*g[8, T, 0, {GGGG[d], 7}] + u^2*(s^2 + t^2 + u^2)*
g[8, T^2, 0, {GGGG[d], 7}] + u*(s^2 + t^2 + u^2)^2*
g[9, T, 0, {GGGG[d], 7}] + s*t*u^3*g[9, T^2, 0, {GGGG[d], 7}],
(-8*G8\[Pi])/(s*t*(s + t)) - (4*G8\[Pi]*\[Alpha]2)/(t*(s + t)) +
(8*G8\[Pi]*\[Alpha]4)/s + g[4, 0, {GGGG[d], 7}] +
(s^2 + t^2 + u^2)*g[6, 0, {GGGG[d], 7}] + s*t*u*g[7, 0, {GGGG[d], 7}] +
(s^2 + t^2 + u^2)^2*g[8, 0, {GGGG[d], 7}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[9, 0, {GGGG[d], 7}] + s^2*t^2*u^2*g[10, 1, {GGGG[d], 7}] +
s*g[5, T, 0, {GGGG[d], 7}] + s^2*g[6, T^2, 0, {GGGG[d], 7}] +
s*(s^2 + t^2 + u^2)*g[7, T, 0, {GGGG[d], 7}] +
s^2*t*u*g[8, T, 0, {GGGG[d], 7}] + s^2*(s^2 + t^2 + u^2)*
g[8, T^2, 0, {GGGG[d], 7}] + s*(s^2 + t^2 + u^2)^2*
g[9, T, 0, {GGGG[d], 7}] + s^3*t*u*g[9, T^2, 0, {GGGG[d], 7}],
\[Alpha]2*((2*G8\[Pi])/(s*t*(s + t)) + (G8\[Pi]*\[Alpha]4)/(2*t)) +
g[5, 0, {GGGG[d], 8}] + (s^2 + t^2 + u^2)*g[7, 0, {GGGG[d], 8}] +
s*t*u*g[8, 0, {GGGG[d], 8}] + (s^2 + t^2 + u^2)^2*
g[9, 0, {GGGG[d], 8}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 8}] + t*g[6, T, 0, {GGGG[d], 8}] +
t^2*g[7, T^2, 0, {GGGG[d], 8}] + t*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 8}] + s*t^2*u*g[9, T, 0, {GGGG[d], 8}],
\[Alpha]2*((2*G8\[Pi])/(s*t*(s + t)) - (G8\[Pi]*\[Alpha]4)/
(2*(s + t))) + g[5, 0, {GGGG[d], 8}] + (s^2 + t^2 + u^2)*
g[7, 0, {GGGG[d], 8}] + s*t*u*g[8, 0, {GGGG[d], 8}] +
(s^2 + t^2 + u^2)^2*g[9, 0, {GGGG[d], 8}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 8}] + u*g[6, T, 0, {GGGG[d], 8}] +
u^2*g[7, T^2, 0, {GGGG[d], 8}] + u*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 8}] + s*t*u^2*g[9, T, 0, {GGGG[d], 8}],
\[Alpha]2*((2*G8\[Pi])/(s*t*(s + t)) + (G8\[Pi]*\[Alpha]4)/(2*s)) +
g[5, 0, {GGGG[d], 8}] + (s^2 + t^2 + u^2)*g[7, 0, {GGGG[d], 8}] +
s*t*u*g[8, 0, {GGGG[d], 8}] + (s^2 + t^2 + u^2)^2*
g[9, 0, {GGGG[d], 8}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 8}] + s*g[6, T, 0, {GGGG[d], 8}] +
s^2*g[7, T^2, 0, {GGGG[d], 8}] + s*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 8}] + s^2*t*u*g[9, T, 0, {GGGG[d], 8}],
(4*G8\[Pi]*\[Alpha]2)/(s*t*(s + t)) - (8*G8\[Pi]*\[Alpha]4)/
(s*(s + t)) + g[5, 0, {GGGG[d], 9}] + (s^2 + t^2 + u^2)*
g[7, 0, {GGGG[d], 9}] + s*t*u*g[8, 0, {GGGG[d], 9}] +
(s^2 + t^2 + u^2)^2*g[9, 0, {GGGG[d], 9}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 9}] + t*g[6, T, 0, {GGGG[d], 9}] +
t^2*g[7, T^2, 0, {GGGG[d], 9}] + t*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 9}] + s*t^2*u*g[9, T, 0, {GGGG[d], 9}],
(4*G8\[Pi]*\[Alpha]2)/(s*t*(s + t)) + (8*G8\[Pi]*\[Alpha]4)/(s*t) +
g[5, 0, {GGGG[d], 9}] + (s^2 + t^2 + u^2)*g[7, 0, {GGGG[d], 9}] +
s*t*u*g[8, 0, {GGGG[d], 9}] + (s^2 + t^2 + u^2)^2*
g[9, 0, {GGGG[d], 9}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 9}] + u*g[6, T, 0, {GGGG[d], 9}] +
u^2*g[7, T^2, 0, {GGGG[d], 9}] + u*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 9}] + s*t*u^2*g[9, T, 0, {GGGG[d], 9}],
(4*G8\[Pi]*\[Alpha]2)/(s*t*(s + t)) - (8*G8\[Pi]*\[Alpha]4)/
(t*(s + t)) + g[5, 0, {GGGG[d], 9}] + (s^2 + t^2 + u^2)*
g[7, 0, {GGGG[d], 9}] + s*t*u*g[8, 0, {GGGG[d], 9}] +
(s^2 + t^2 + u^2)^2*g[9, 0, {GGGG[d], 9}] + 2*s*t*u*(s^2 + t^2 + u^2)*
g[10, 0, {GGGG[d], 9}] + s*g[6, T, 0, {GGGG[d], 9}] +
s^2*g[7, T^2, 0, {GGGG[d], 9}] + s*(s^2 + t^2 + u^2)*
g[8, T, 0, {GGGG[d], 9}] + s^2*t*u*g[9, T, 0, {GGGG[d], 9}],
(-4*G8\[Pi]*\[Alpha]4)/(s*t*(s + t)) + g[6, 0, {GGGG[d], 10}] +
(s^2 + t^2 + u^2)*g[8, 0, {GGGG[d], 10}] + s*t*u*g[9, 0, {GGGG[d], 10}]}
partialwaves[{GG[d], GG[d]}] = {exchange[{0}, {GGGG[d], s, 1 + (2*t)/s},
{{1}}, {{{0, 0, 0, 2/((-3 + d)*d*m2^4), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}}],
exchange[{2}, {GGGG[d], s, 1 + (2*t)/s},
{{1, 1/(Sqrt[-4 + d]*Sqrt[-1 + d]*Sqrt[2 + d])},
{1/(Sqrt[-4 + d]*Sqrt[-1 + d]*Sqrt[2 + d]), 1}},
{{{0, 0, 0, (-2/((-3 + d)*(-2 + d)*d) + (2*(-1 + d)*x^2)/
((-3 + d)*(-2 + d)*d))/m2^4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, ((2*(-4 + d)*(-1 + d))/((-3 + d)*(-2 + d)*d) -
(2*(-4 + d)*(-1 + d)*x^2)/((-3 + d)*(-2 + d)*d))/m2^4, 0, 0, 0, 0,
0, (8*(-1 + d))/((-3 + d)*d*m2^4), ((8*(-1 + d))/((-3 + d)*d) +
(8*(-1 + d)*x)/((-3 + d)*d))/m2^4, 0, 0, 0, 0,
((8*(-1 + d))/((-3 + d)*d) - (8*(-1 + d)*x)/((-3 + d)*d))/m2^4, 0,
0, 0, 0, 0, 0, 0, 0, (16*(-1 + d))/((-3 + d)*d*m2^5), 0, 0, 0, 0}},
{{0, 0, 0, ((2*(-4 + d)*(-1 + d))/((-3 + d)*(-2 + d)*d) -
(2*(-4 + d)*(-1 + d)*x^2)/((-3 + d)*(-2 + d)*d))/m2^4, 0, 0, 0, 0,
0, (8*(-1 + d))/((-3 + d)*d*m2^4), ((8*(-1 + d))/((-3 + d)*d) +
(8*(-1 + d)*x)/((-3 + d)*d))/m2^4, 0, 0, 0, 0,
((8*(-1 + d))/((-3 + d)*d) - (8*(-1 + d)*x)/((-3 + d)*d))/m2^4, 0,
0, 0, 0, 0, 0, 0, 0, (16*(-1 + d))/((-3 + d)*d*m2^5), 0, 0, 0, 0},
{0, 0, 0, (2/((-3 + d)*(-2 + d)*(2 + d)) + (2*(-4 + d)*x^2)/
((-3 + d)*(-2 + d)*d*(2 + d)))/m2^4, (8*(-2 + d))/
((-4 + d)*(-3 + d)*d*(2 + d)*m2^4), (8*(-2 + d))/
((-4 + d)*(-3 + d)*d*(2 + d)*m2^4), 0, 0, 0,
-16/((-3 + d)*d*(2 + d)*m2^4), (32/((-4 + d)*(-3 + d)*d*(2 + d)) -
(16*x)/((-3 + d)*d*(2 + d)))/m2^4, 0, 0, 0, 0,
(32/((-4 + d)*(-3 + d)*d*(2 + d)) + (16*x)/((-3 + d)*d*(2 + d)))/
m2^4, 0, 0, 0, 0, 0, 0, 0, 0, -32/((-3 + d)*d*(2 + d)*m2^5), 0, 0,
0, 0}}}], exchange[{4 + 2*m}, {GGGG[d], s, 1 + (2*t)/s},
{{2/((-3 + d)*d*m2^4), Sqrt[2]/(Sqrt[-4 + d]*(-3 + d)*Sqrt[d]*
Sqrt[2 + d]*Sqrt[-1 + J]*Sqrt[J]*Sqrt[-3 + d + J]*Sqrt[-2 + d + J]*
m2^5), 1/(2*Sqrt[2]*(-3 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*
Sqrt[-3 + J]*Sqrt[-2 + J]*Sqrt[-1 + J]*Sqrt[J]*Sqrt[-3 + d + J]*
Sqrt[-2 + d + J]*Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6)},
{Sqrt[2]/(Sqrt[-4 + d]*(-3 + d)*Sqrt[d]*Sqrt[2 + d]*Sqrt[-1 + J]*
Sqrt[J]*Sqrt[-3 + d + J]*Sqrt[-2 + d + J]*m2^5),
1/((-4 + d)*(-3 + d)*(2 + d)*(-1 + J)*J*(-3 + d + J)*(-2 + d + J)*
m2^5), 1/(4*Sqrt[-4 + d]*(-3 + d)*Sqrt[-1 + d]*Sqrt[d]*(2 + d)*
Sqrt[-3 + J]*Sqrt[-2 + J]*(-1 + J)*J*(-3 + d + J)*(-2 + d + J)*
Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6)},
{1/(2*Sqrt[2]*(-3 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*Sqrt[-3 + J]*
Sqrt[-2 + J]*Sqrt[-1 + J]*Sqrt[J]*Sqrt[-3 + d + J]*Sqrt[-2 + d + J]*
Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6), 1/(4*Sqrt[-4 + d]*(-3 + d)*
Sqrt[-1 + d]*Sqrt[d]*(2 + d)*Sqrt[-3 + J]*Sqrt[-2 + J]*(-1 + J)*J*
(-3 + d + J)*(-2 + d + J)*Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6),
1/(16*(-3 + d)*(-1 + d)*d*(2 + d)*(-3 + J)*(-2 + J)*(-1 + J)*J*
(-3 + d + J)*(-2 + d + J)*(-1 + d + J)*(d + J)*m2^6)}},
{{{0, 0, 0, pj[J, x, d, 0], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
m2*(-((-4 + d)*J*(-3 + d + J)*pj[J, x, d, 0]) + (-4 + d)*(-2 + d)*x*
pj[J, x, d, 1]), 0, 0, 0, 0, 0, 4*(-2 + d)*m2*pj[J, x, d, 2],
m2*(4*(-2 + d) + 4*(-2 + d)*x)*pj[J, x, d, 2], 0, 0, 0, 0,
m2*(4*(-2 + d) - 4*(-2 + d)*x)*pj[J, x, d, 2], 0, 0, 0, 0, 0, 0, 0,
0, 8*(-2 + d)*pj[J, x, d, 2], 0, 0, 0, 0},
{0, 0, 0, m2^2*((-4 + d)*(-2 + d)*J*(-3 + d + J)*(2 + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 0] - (-4 + d)*(-2 + d)*d*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 1] +
(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 2]),
m2^2*(-4*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
4*d*(2 + d)^2*x*pj[J, x, d, 3] + (-8*d*(2 + d) + 8*d*(2 + d)*x)*
pj[J, x, d, 4]), m2^2*(-4*d*(2 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 4*d*(2 + d)^2*x*pj[J, x, d, 3] +
(-8*d*(2 + d) - 8*d*(2 + d)*x)*pj[J, x, d, 4]), 0, 0, 0,
m2^2*(32*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)*x*pj[J, x, d, 3]),
m2^2*(8*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-8*(-2 + d)*d*(-2 + J)*(-1 + d + J) - 8*(-2 + d)*d*
(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-2 + d)*d*(2 + d) + 8*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
0, 0, 0, 0, m2^2*(-8*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (-8*(-2 + d)*d*(-2 + J)*(-1 + d + J) +
8*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*d*(2 + d) + 8*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
m2^2*(32*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)^2*x*pj[J, x, d, 3] + 32*d*(2 + d)*pj[J, x, d, 4]),
m2^2*(32*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)^2*x*pj[J, x, d, 3] + 32*d*(2 + d)*pj[J, x, d, 4]),
32*d*(2 + d)*m2^2*pj[J, x, d, 4], -64*d*(2 + d)*m2^2*x*
pj[J, x, d, 4], 64*d*(2 + d)*m2^2*x*pj[J, x, d, 4],
m2^2*(-64*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
64*d*(2 + d)^2*x*pj[J, x, d, 3] - 64*d*(2 + d)*pj[J, x, d, 4]), 0,
0, m2*(-16*(-2 + d)*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*(2 + d)*x*pj[J, x, d, 3]), 128*d*(2 + d)*m2*x*
pj[J, x, d, 4], -128*d*(2 + d)*m2*x*pj[J, x, d, 4],
128*d*(2 + d)*m2*pj[J, x, d, 4], 128*d*(2 + d)*pj[J, x, d, 4]}},
{{0, 0, 0, m2*(-((-4 + d)*J*(-3 + d + J)*pj[J, x, d, 0]) +
(-4 + d)*(-2 + d)*x*pj[J, x, d, 1]), 0, 0, 0, 0, 0,
4*(-2 + d)*m2*pj[J, x, d, 2], m2*(4*(-2 + d) + 4*(-2 + d)*x)*
pj[J, x, d, 2], 0, 0, 0, 0, m2*(4*(-2 + d) - 4*(-2 + d)*x)*
pj[J, x, d, 2], 0, 0, 0, 0, 0, 0, 0, 0, 8*(-2 + d)*pj[J, x, d, 2],
0, 0, 0, 0}, {0, 0, 0, m2*((-4 + d)^2*J*(-3 + d + J)*
(4 - 4*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 0] -
(-4 + d)^2*(-2 + d)*(6 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 1] + (-4 + d)*(-2 + d)^3*pj[J, x, d, 2]),
m2*(4*(-2 + d)^2*(4 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-16*(-2 + d)^2 - 4*(-2 + d)^3*x)*pj[J, x, d, 3] +
(8*(-2 + d)^2 - 8*(-2 + d)^2*x)*pj[J, x, d, 4]),
m2*(4*(-2 + d)^2*(4 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(16*(-2 + d)^2 - 4*(-2 + d)^3*x)*pj[J, x, d, 3] +
(8*(-2 + d)^2 + 8*(-2 + d)^2*x)*pj[J, x, d, 4]), 0, 0, 0,
m2*(-16*(-2 + d)*(-10 + 9*d - 2*d^2 + 9*J - 6*d*J + d^2*J - 3*J^2 +
d*J^2)*pj[J, x, d, 2] + 16*(-2 + d)^3*x*pj[J, x, d, 3]),
m2*(8*(-4 + d)*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-8*(-2 + d)*(-12 + 10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2) - 8*(-4 + d)*(-2 + d)*(4 - 4*d + d^2 - 3*J + d*J + J^2)*
x)*pj[J, x, d, 2] + (8*(-2 + d)^3 + 8*(-2 + d)^3*x)*
pj[J, x, d, 3]), 0, 0, 0, 0, m2*(-8*(-4 + d)*(-2 + d)^2*(-1 + J)*
(-2 + d + J)*pj[J, x, d, 1] +
(-8*(-2 + d)*(-12 + 10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2) + 8*(-4 + d)*(-2 + d)*(4 - 4*d + d^2 - 3*J + d*J + J^2)*
x)*pj[J, x, d, 2] + (-8*(-2 + d)^3 + 8*(-2 + d)^3*x)*
pj[J, x, d, 3]), 0, 0, 0, 0, 0, 0, 0, 0,
-16*(-4 + d)*(-2 + d)*(4 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
16*(-4 + d)*(-2 + d)^2*x*pj[J, x, d, 3], 0, 0, 0, 0},
{64*(-2 + d)*d*(2 + d)*m2^3*pj[J, x, d, 4], 0, 0,
m2^2*(-((-4 + d)^2*(-2 + d)*J*(-3 + d + J)*(-4*d + 8*d^2 - 5*d^3 +
d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*J^2 +
4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 0]) +
(-4 + d)^2*(-2 + d)*(12*d - 28*d^2 + 23*d^3 - 8*d^4 + d^5 + 12*J -
52*d*J + 61*d^2*J - 27*d^3*J + 4*d^4*J - 22*J^2 + 55*d*J^2 -
35*d^2*J^2 + 7*d^3*J^2 + 12*J^3 - 22*d*J^3 + 6*d^2*J^3 - 2*J^4 +
3*d*J^4)*x*pj[J, x, d, 1] - (-4 + d)*(-2 + d)*d^2*
(-12 + 20*d - 9*d^2 + d^3 + 30*J - 19*d*J + 3*d^2*J - 10*J^2 +
3*d*J^2)*pj[J, x, d, 2] + (-4 + d)*(-2 + d)^2*d^2*(2 + d)*x*
pj[J, x, d, 3]), m2^2*(-4*d*(16 - 6*d + d^2)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-8*(-2 + d)*d*(8 - 2*d + d^2)*(-3 + J)*(d + J) +
4*d^2*(16 - 6*d + d^2)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-4*d*(32 - 48*d + 36*d^2 - 12*d^3 + d^4 - 96*
J + 68*d*J - 18*d^2*J + 2*d^3*J + 32*J^2 - 12*d*J^2 + 2*d^2*
J^2) + 8*d*(16 - 32*d + 16*d^2 - 4*d^3 + d^4 - 48*J + 34*d*
J - 9*d^2*J + d^3*J + 16*J^2 - 6*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 4] + (-8*(-2 + d)*d^2*(2 + d) + 8*(-2 + d)*d^2*
(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-4*d*(16 - 6*d + d^2)*(-2 + J)*(-1 + d + J)*
(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(-2 + d)*d*(8 - 2*d + d^2)*(-3 + J)*(d + J) +
4*d^2*(16 - 6*d + d^2)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-4*d*(32 - 48*d + 36*d^2 - 12*d^3 + d^4 - 96*
J + 68*d*J - 18*d^2*J + 2*d^3*J + 32*J^2 - 12*d*J^2 + 2*d^2*
J^2) - 8*d*(16 - 32*d + 16*d^2 - 4*d^3 + d^4 - 48*J + 34*d*
J - 9*d^2*J + d^3*J + 16*J^2 - 6*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 4] + (8*(-2 + d)*d^2*(2 + d) + 8*(-2 + d)*d^2*(2 + d)*
x)*pj[J, x, d, 5]), 0, m2^2*(-16*(-2 + d)^2*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (32*(-2 + d)*d*(2 + d)*(-4 + J)*
(1 + d + J) + 16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 4] + (-16*(-2 + d)^2*d*(2 + d) -
32*(-2 + d)*d*(2 + d)^2*x)*pj[J, x, d, 5] +
(32*(-2 + d)*d*(2 + d) + 32*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(16*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(32*(-2 + d)*d*(2 + d)*(-4 + J)*(1 + d + J) - 16*(-2 + d)*d*
(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(-2 + d)^2*d*(2 + d) - 32*(-2 + d)*d*(2 + d)^2*x)*
pj[J, x, d, 5] + (32*(-2 + d)*d*(2 + d) - 32*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 6]), m2^2*(4*(-2 + J)*(-1 + d + J)*
(64*d - 152*d^2 + 108*d^3 - 34*d^4 + 5*d^5 + 48*J - 220*d*J +
164*d^2*J - 47*d^3*J + 5*d^4*J - 16*J^2 + 68*d*J^2 -
32*d^2*J^2 + 5*d^3*J^2)*pj[J, x, d, 2] -
4*d*(32 + 120*d - 236*d^2 + 142*d^3 - 39*d^4 + 5*d^5 - 312*d*J +
272*d^2*J - 86*d^3*J + 10*d^4*J + 104*d*J^2 - 56*d^2*J^2 +
10*d^3*J^2)*x*pj[J, x, d, 3] + 4*(-2 + d)*d*(2 + d)*
(16 - 14*d + 5*d^2)*pj[J, x, d, 4]),
m2^2*(-4*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(-1 + J)*(-2 + d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-32*d + 28*d^2 - 12*d^3 + 3*
d^4 - 24*J + 50*d*J - 23*d^2*J + 3*d^3*J + 8*J^2 - 14*d*J^2 +
3*d^2*J^2) + 4*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-4*d + 8*d^2 - 5*
d^3 + d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*
J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*d*(16 - 4*d + 32*d^2 - 23*d^3 + 3*d^4 + 60*d*J - 38*
d^2*J + 6*d^3*J - 20*d*J^2 + 6*d^2*J^2) - 4*(-2 + d)*d*
(-16 - 36*d + 40*d^2 - 15*d^3 + 3*d^4 + 60*d*J - 38*d^2*J + 6*
d^3*J - 20*d*J^2 + 6*d^2*J^2)*x)*pj[J, x, d, 3] +
(12*(-2 + d)^2*d^2*(2 + d) + 12*(-2 + d)^2*d^2*(2 + d)*x)*
pj[J, x, d, 4]), 0, m2^2*(16*(-2 + d)^2*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (48*(-2 + d)*d*(2 + d)*(-4*d - 3*J + d*
J + J^2) - 16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 4] + (16*(-10 + d)*(-2 + d)*d*(2 + d) -
16*(-2 + d)*d*(2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5] +
(64*(-2 + d)*d*(2 + d) - 64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-16*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-2 + d)*d*(2 + d)*(-4*d - 3*J + d*J + J^2) +
16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-16*(-10 + d)*(-2 + d)*d*(2 + d) -
16*(-2 + d)*d*(2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5] +
(64*(-2 + d)*d*(2 + d) + 64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
0, m2^2*(4*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(-1 + J)*(-2 + d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-32*d + 28*d^2 - 12*d^3 + 3*
d^4 - 24*J + 50*d*J - 23*d^2*J + 3*d^3*J + 8*J^2 - 14*d*J^2 +
3*d^2*J^2) - 4*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-4*d + 8*d^2 - 5*
d^3 + d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*
J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(4*(-2 + d)*d*(16 - 4*d + 32*d^2 - 23*d^3 + 3*d^4 + 60*d*J - 38*
d^2*J + 6*d^3*J - 20*d*J^2 + 6*d^2*J^2) - 4*(-2 + d)*d*
(-16 - 36*d + 40*d^2 - 15*d^3 + 3*d^4 + 60*d*J - 38*d^2*J + 6*
d^3*J - 20*d*J^2 + 6*d^2*J^2)*x)*pj[J, x, d, 3] +
(12*(-2 + d)^2*d^2*(2 + d) - 12*(-2 + d)^2*d^2*(2 + d)*x)*
pj[J, x, d, 4]), m2^2*(-32*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-32*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J) + 32*(-4 + d)*d^2*
(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-32*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J - 7*
d*J + d^2*J - 4*J^2 + d*J^2) + 32*(-2 + d)*d*(2 + d)*
(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-32*(-2 + d)^2*d*(2 + d) + 32*(-2 + d)*d^2*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-32*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(32*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J) + 32*(-4 + d)*d^2*
(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-32*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J - 7*
d*J + d^2*J - 4*J^2 + d*J^2) - 32*(-2 + d)*d*(2 + d)*
(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(-2 + d)^2*d*(2 + d) + 32*(-2 + d)*d^2*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-64*d*(2 + d)*(-14 + 15*d - 4*d^2 + 9*J -
6*d*J + d^2*J - 3*J^2 + d*J^2)*pj[J, x, d, 4] +
64*(-2 + d)*(-1 + d)*d*(2 + d)*x*pj[J, x, d, 5]),
m2^2*(-96*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2) +
32*d*(2 + d)*(-8 + 16*d - 12*d^2 + 3*d^3 + 30*J - 19*d*J + 3*d^2*
J - 10*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(-32*(-2 + d)*d*(2 + d)*(-2 + 3*d) - 32*(-2 + d)^2*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(96*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^
2) - 32*d*(2 + d)*(-8 + 16*d - 12*d^2 + 3*d^3 + 30*J - 19*d*
J + 3*d^2*J - 10*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(32*(-2 + d)*d*(2 + d)*(-2 + 3*d) - 32*(-2 + d)^2*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(64*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] -
64*(-4 + d)*d^2*(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 3] + 64*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J -
7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 4] -
64*(-2 + d)*d^2*(2 + d)*x*pj[J, x, d, 5]),
m2*(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (256*(-2 + d)*d*(2 + d) - 32*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5] + (64*(-2 + d)*d*(2 + d) +
64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2*(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (-256*(-2 + d)*d*(2 + d) - 32*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5] + (64*(-2 + d)*d*(2 + d) -
64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2*(8*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-2 + J)*(-1 + d + J)*
(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] -
8*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(2 - 3*d + d^2 - 6*J + 2*d*J +
2*J^2)*x*pj[J, x, d, 3] + 8*(-2 + d)^2*d*(2 + d)*(-8 + 3*d)*
pj[J, x, d, 4]), m2*(128*(-4 + d)*(-2 + d)*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (64*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J +
d*J + J^2) - 128*(-4 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (128*(-2 + d)^2*d*(2 + d) -
64*(-2 + d)^2*d*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-128*(-4 + d)*(-2 + d)*d*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (64*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^
2) + 128*(-4 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-128*(-2 + d)^2*d*(2 + d) - 64*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5]),
m2*(-64*d*(2 + d)*(-56 + 52*d - 12*d^2 + 30*J - 19*d*J + 3*d^2*J -
10*J^2 + 3*d*J^2)*pj[J, x, d, 4] + 192*(-2 + d)^2*d*(2 + d)*x*
pj[J, x, d, 5]), -128*(-4 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J +
J^2)*pj[J, x, d, 4] + 128*(-4 + d)*(-2 + d)*d*(2 + d)*x*
pj[J, x, d, 5]}},
{{0, 0, 0, m2^2*((-4 + d)*(-2 + d)*J*(-3 + d + J)*(2 + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 0] - (-4 + d)*(-2 + d)*d*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 1] +
(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 2]),
m2^2*(-4*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
4*d*(2 + d)^2*x*pj[J, x, d, 3] + (-8*d*(2 + d) + 8*d*(2 + d)*x)*
pj[J, x, d, 4]), m2^2*(-4*d*(2 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 4*d*(2 + d)^2*x*pj[J, x, d, 3] +
(-8*d*(2 + d) - 8*d*(2 + d)*x)*pj[J, x, d, 4]), 0, 0, 0,
m2^2*(32*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)*x*pj[J, x, d, 3]),
m2^2*(8*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-8*(-2 + d)*d*(-2 + J)*(-1 + d + J) - 8*(-2 + d)*d*
(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-2 + d)*d*(2 + d) + 8*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
0, 0, 0, 0, m2^2*(-8*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (-8*(-2 + d)*d*(-2 + J)*(-1 + d + J) +
8*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*d*(2 + d) + 8*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
m2^2*(32*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)^2*x*pj[J, x, d, 3] + 32*d*(2 + d)*pj[J, x, d, 4]),
m2^2*(32*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
32*d*(2 + d)^2*x*pj[J, x, d, 3] + 32*d*(2 + d)*pj[J, x, d, 4]),
32*d*(2 + d)*m2^2*pj[J, x, d, 4], -64*d*(2 + d)*m2^2*x*
pj[J, x, d, 4], 64*d*(2 + d)*m2^2*x*pj[J, x, d, 4],
m2^2*(-64*d*(2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
64*d*(2 + d)^2*x*pj[J, x, d, 3] - 64*d*(2 + d)*pj[J, x, d, 4]), 0,
0, m2*(-16*(-2 + d)*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*(2 + d)*x*pj[J, x, d, 3]), 128*d*(2 + d)*m2*x*
pj[J, x, d, 4], -128*d*(2 + d)*m2*x*pj[J, x, d, 4],
128*d*(2 + d)*m2*pj[J, x, d, 4], 128*d*(2 + d)*pj[J, x, d, 4]},
{64*(-2 + d)*d*(2 + d)*m2^3*pj[J, x, d, 4], 0, 0,
m2^2*(-((-4 + d)^2*(-2 + d)*J*(-3 + d + J)*(-4*d + 8*d^2 - 5*d^3 +
d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*J^2 +
4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 0]) +
(-4 + d)^2*(-2 + d)*(12*d - 28*d^2 + 23*d^3 - 8*d^4 + d^5 + 12*J -
52*d*J + 61*d^2*J - 27*d^3*J + 4*d^4*J - 22*J^2 + 55*d*J^2 -
35*d^2*J^2 + 7*d^3*J^2 + 12*J^3 - 22*d*J^3 + 6*d^2*J^3 - 2*J^4 +
3*d*J^4)*x*pj[J, x, d, 1] - (-4 + d)*(-2 + d)*d^2*
(-12 + 20*d - 9*d^2 + d^3 + 30*J - 19*d*J + 3*d^2*J - 10*J^2 +
3*d*J^2)*pj[J, x, d, 2] + (-4 + d)*(-2 + d)^2*d^2*(2 + d)*x*
pj[J, x, d, 3]), m2^2*(-4*d*(16 - 6*d + d^2)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-8*(-2 + d)*d*(8 - 2*d + d^2)*(-3 + J)*(d + J) +
4*d^2*(16 - 6*d + d^2)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-4*d*(32 - 48*d + 36*d^2 - 12*d^3 + d^4 - 96*
J + 68*d*J - 18*d^2*J + 2*d^3*J + 32*J^2 - 12*d*J^2 + 2*d^2*
J^2) + 8*d*(16 - 32*d + 16*d^2 - 4*d^3 + d^4 - 48*J + 34*d*
J - 9*d^2*J + d^3*J + 16*J^2 - 6*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 4] + (-8*(-2 + d)*d^2*(2 + d) + 8*(-2 + d)*d^2*
(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-4*d*(16 - 6*d + d^2)*(-2 + J)*(-1 + d + J)*
(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(-2 + d)*d*(8 - 2*d + d^2)*(-3 + J)*(d + J) +
4*d^2*(16 - 6*d + d^2)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-4*d*(32 - 48*d + 36*d^2 - 12*d^3 + d^4 - 96*
J + 68*d*J - 18*d^2*J + 2*d^3*J + 32*J^2 - 12*d*J^2 + 2*d^2*
J^2) - 8*d*(16 - 32*d + 16*d^2 - 4*d^3 + d^4 - 48*J + 34*d*
J - 9*d^2*J + d^3*J + 16*J^2 - 6*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 4] + (8*(-2 + d)*d^2*(2 + d) + 8*(-2 + d)*d^2*(2 + d)*
x)*pj[J, x, d, 5]), 0, m2^2*(-16*(-2 + d)^2*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (32*(-2 + d)*d*(2 + d)*(-4 + J)*
(1 + d + J) + 16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 4] + (-16*(-2 + d)^2*d*(2 + d) -
32*(-2 + d)*d*(2 + d)^2*x)*pj[J, x, d, 5] +
(32*(-2 + d)*d*(2 + d) + 32*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(16*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(32*(-2 + d)*d*(2 + d)*(-4 + J)*(1 + d + J) - 16*(-2 + d)*d*
(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(-2 + d)^2*d*(2 + d) - 32*(-2 + d)*d*(2 + d)^2*x)*
pj[J, x, d, 5] + (32*(-2 + d)*d*(2 + d) - 32*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 6]), m2^2*(4*(-2 + J)*(-1 + d + J)*
(64*d - 152*d^2 + 108*d^3 - 34*d^4 + 5*d^5 + 48*J - 220*d*J +
164*d^2*J - 47*d^3*J + 5*d^4*J - 16*J^2 + 68*d*J^2 -
32*d^2*J^2 + 5*d^3*J^2)*pj[J, x, d, 2] -
4*d*(32 + 120*d - 236*d^2 + 142*d^3 - 39*d^4 + 5*d^5 - 312*d*J +
272*d^2*J - 86*d^3*J + 10*d^4*J + 104*d*J^2 - 56*d^2*J^2 +
10*d^3*J^2)*x*pj[J, x, d, 3] + 4*(-2 + d)*d*(2 + d)*
(16 - 14*d + 5*d^2)*pj[J, x, d, 4]),
m2^2*(-4*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(-1 + J)*(-2 + d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-32*d + 28*d^2 - 12*d^3 + 3*
d^4 - 24*J + 50*d*J - 23*d^2*J + 3*d^3*J + 8*J^2 - 14*d*J^2 +
3*d^2*J^2) + 4*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-4*d + 8*d^2 - 5*
d^3 + d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*
J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*d*(16 - 4*d + 32*d^2 - 23*d^3 + 3*d^4 + 60*d*J - 38*
d^2*J + 6*d^3*J - 20*d*J^2 + 6*d^2*J^2) - 4*(-2 + d)*d*
(-16 - 36*d + 40*d^2 - 15*d^3 + 3*d^4 + 60*d*J - 38*d^2*J + 6*
d^3*J - 20*d*J^2 + 6*d^2*J^2)*x)*pj[J, x, d, 3] +
(12*(-2 + d)^2*d^2*(2 + d) + 12*(-2 + d)^2*d^2*(2 + d)*x)*
pj[J, x, d, 4]), 0, m2^2*(16*(-2 + d)^2*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (48*(-2 + d)*d*(2 + d)*(-4*d - 3*J + d*
J + J^2) - 16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 4] + (16*(-10 + d)*(-2 + d)*d*(2 + d) -
16*(-2 + d)*d*(2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5] +
(64*(-2 + d)*d*(2 + d) - 64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-16*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-2 + d)*d*(2 + d)*(-4*d - 3*J + d*J + J^2) +
16*(-2 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-16*(-10 + d)*(-2 + d)*d*(2 + d) -
16*(-2 + d)*d*(2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5] +
(64*(-2 + d)*d*(2 + d) + 64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
0, m2^2*(4*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(-1 + J)*(-2 + d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-32*d + 28*d^2 - 12*d^3 + 3*
d^4 - 24*J + 50*d*J - 23*d^2*J + 3*d^3*J + 8*J^2 - 14*d*J^2 +
3*d^2*J^2) - 4*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-4*d + 8*d^2 - 5*
d^3 + d^4 - 6*J + 14*d*J - 13*d^2*J + 3*d^3*J + 11*J^2 - 10*d*
J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(4*(-2 + d)*d*(16 - 4*d + 32*d^2 - 23*d^3 + 3*d^4 + 60*d*J - 38*
d^2*J + 6*d^3*J - 20*d*J^2 + 6*d^2*J^2) - 4*(-2 + d)*d*
(-16 - 36*d + 40*d^2 - 15*d^3 + 3*d^4 + 60*d*J - 38*d^2*J + 6*
d^3*J - 20*d*J^2 + 6*d^2*J^2)*x)*pj[J, x, d, 3] +
(12*(-2 + d)^2*d^2*(2 + d) - 12*(-2 + d)^2*d^2*(2 + d)*x)*
pj[J, x, d, 4]), m2^2*(-32*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-32*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J) + 32*(-4 + d)*d^2*
(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-32*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J - 7*
d*J + d^2*J - 4*J^2 + d*J^2) + 32*(-2 + d)*d*(2 + d)*
(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-32*(-2 + d)^2*d*(2 + d) + 32*(-2 + d)*d^2*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-32*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(32*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J) + 32*(-4 + d)*d^2*
(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-32*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J - 7*
d*J + d^2*J - 4*J^2 + d*J^2) - 32*(-2 + d)*d*(2 + d)*
(-2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(-2 + d)^2*d*(2 + d) + 32*(-2 + d)*d^2*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-64*d*(2 + d)*(-14 + 15*d - 4*d^2 + 9*J -
6*d*J + d^2*J - 3*J^2 + d*J^2)*pj[J, x, d, 4] +
64*(-2 + d)*(-1 + d)*d*(2 + d)*x*pj[J, x, d, 5]),
m2^2*(-96*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2) +
32*d*(2 + d)*(-8 + 16*d - 12*d^2 + 3*d^3 + 30*J - 19*d*J + 3*d^2*
J - 10*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(-32*(-2 + d)*d*(2 + d)*(-2 + 3*d) - 32*(-2 + d)^2*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(96*(-2 + d)^2*d*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^
2) - 32*d*(2 + d)*(-8 + 16*d - 12*d^2 + 3*d^3 + 30*J - 19*d*
J + 3*d^2*J - 10*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(32*(-2 + d)*d*(2 + d)*(-2 + 3*d) - 32*(-2 + d)^2*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(64*(-4 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] -
64*(-4 + d)*d^2*(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 3] + 64*d*(2 + d)*(4 + 6*d - 6*d^2 + d^3 + 12*J -
7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 4] -
64*(-2 + d)*d^2*(2 + d)*x*pj[J, x, d, 5]),
m2*(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (256*(-2 + d)*d*(2 + d) - 32*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5] + (64*(-2 + d)*d*(2 + d) +
64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2*(32*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (-256*(-2 + d)*d*(2 + d) - 32*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5] + (64*(-2 + d)*d*(2 + d) -
64*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2*(8*(-4 + d)*(-2 + d)*(-2 + 3*d)*(-2 + J)*(-1 + d + J)*
(-2*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] -
8*(-4 + d)*(-2 + d)*d*(-2 + 3*d)*(2 - 3*d + d^2 - 6*J + 2*d*J +
2*J^2)*x*pj[J, x, d, 3] + 8*(-2 + d)^2*d*(2 + d)*(-8 + 3*d)*
pj[J, x, d, 4]), m2*(128*(-4 + d)*(-2 + d)*d*(2 + d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (64*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J +
d*J + J^2) - 128*(-4 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (128*(-2 + d)^2*d*(2 + d) -
64*(-2 + d)^2*d*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-128*(-4 + d)*(-2 + d)*d*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (64*(-2 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J + J^
2) + 128*(-4 + d)*d*(2 + d)*(-2*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-128*(-2 + d)^2*d*(2 + d) - 64*(-2 + d)^2*d*
(2 + d)*x)*pj[J, x, d, 5]),
m2*(-64*d*(2 + d)*(-56 + 52*d - 12*d^2 + 30*J - 19*d*J + 3*d^2*J -
10*J^2 + 3*d*J^2)*pj[J, x, d, 4] + 192*(-2 + d)^2*d*(2 + d)*x*
pj[J, x, d, 5]), -128*(-4 + d)*d*(2 + d)*(8 - 4*d - 3*J + d*J +
J^2)*pj[J, x, d, 4] + 128*(-4 + d)*(-2 + d)*d*(2 + d)*x*
pj[J, x, d, 5]}, {m2^3*(1024*d^2*(2 + d)*(-2 - 4*d - 3*J + d*J +
J^2)*pj[J, x, d, 4] - 1024*d^2*(2 + d)^2*x*pj[J, x, d, 5]),
m2^2*(16*d^2*(2 + d)^2*(-8*d + 12*d^2 - 4*d^3 - 6*J + 26*d*J -
11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-64*d^2*(2 + d)^2*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*
J^2) - 16*d^3*(2 + d)^2*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 5] + (16*d^2*(2 + d)^2*(-48 - 46*d + d^2 - 24*
J + 8*d*J + 8*J^2) + 64*d^2*(2 + d)^2*(2 + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 6] + (-64*(-6 + d)*d^2*(2 + d)^2 -
128*d^2*(2 + d)^3*x)*pj[J, x, d, 7] +
(128*d^2*(2 + d)^2 + 128*d^2*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*(16*d^2*(2 + d)^2*(-8*d + 12*d^2 - 4*d^3 - 6*J + 26*d*J -
11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(64*d^2*(2 + d)^2*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*
J^2) - 16*d^3*(2 + d)^2*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 5] + (16*d^2*(2 + d)^2*(-48 - 46*d + d^2 - 24*
J + 8*d*J + 8*J^2) - 64*d^2*(2 + d)^2*(2 + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 6] + (64*(-6 + d)*d^2*(2 + d)^2 -
128*d^2*(2 + d)^3*x)*pj[J, x, d, 7] +
(128*d^2*(2 + d)^2 - 128*d^2*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*((-4 + d)^2*(-2 + d)^2*J*(-3 + d + J)*(4*d^2 - 12*d^3 +
13*d^4 - 6*d^5 + d^6 - 12*J + 4*d*J - 36*d^2*J + 48*d^3*J -
27*d^4*J + 5*d^5*J + 40*J^2 - 24*d*J^2 + 70*d^2*J^2 -
48*d^3*J^2 + 11*d^4*J^2 - 51*J^3 + 35*d*J^3 - 45*d^2*J^3 +
13*d^3*J^3 + 31*J^4 - 18*d*J^4 + 9*d^2*J^4 - 9*J^5 + 3*d*J^5 +
J^6)*pj[J, x, d, 0] - (-4 + d)^2*(-2 + d)^2*d*(2 - 3*d + d^2 -
6*J + 2*d*J + 2*J^2)*(-6*d + 11*d^2 - 6*d^3 + d^4 - 12*J +
22*d*J - 18*d^2*J + 4*d^3*J + 22*J^2 - 18*d*J^2 + 6*d^2*J^2 -
12*J^3 + 4*d*J^3 + 2*J^4)*x*pj[J, x, d, 1] + (-4 + d)*(-2 + d)^2*
d*(48*d - 4*d^2 - 56*d^3 + 23*d^4 - 12*d^5 + d^6 + 96*J -
104*d*J - 108*d^2*J + 116*d^3*J - 42*d^4*J + 6*d^5*J - 176*J^2 +
12*d*J^2 + 154*d^2*J^2 - 72*d^3*J^2 + 12*d^4*J^2 + 96*J^3 +
40*d*J^3 - 60*d^2*J^3 + 12*d^3*J^3 - 16*J^4 - 12*d*J^4 +
6*d^2*J^4)*pj[J, x, d, 2] - 2*(-4 + d)*(-2 + d)^2*d^3*(2 + d)*
(6 - d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 3] +
(-4 + d)*(-2 + d)*d^3*(2 + d)^3*pj[J, x, d, 4]),
m2^2*(8*(-2 + d)*d*(8 - 2*d + d^2)*(-2 + J)*(-1 + d + J)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 -
6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(16*(-2 + d)*d^2*(-3 + J)*(d + J)*(-20*d + 8*d^2 - d^3 + d^4 - 24*
J + 8*d*J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) -
8*(-2 + d)*d*(8 - 2*d + d^2)*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*
J - 8*d*J + 13*d^2*J - 15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*
J^2 - 19*d^2*J^2 + 7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*
J^3 + 2*J^4 + 3*d*J^4)*x)*pj[J, x, d, 3] +
(8*d*(-224*d^2 + 136*d^3 - 108*d^4 - 6*d^5 - 15*d^6 + d^7 + 192*
J - 496*d*J + 456*d^2*J - 272*d^3*J + 86*d^4*J - 25*d^5*J + 5*
d^6*J - 352*J^2 + 552*d*J^2 - 352*d^2*J^2 + 146*d^3*J^2 - 30*
d^4*J^2 + 7*d^5*J^2 + 192*J^3 - 208*d*J^3 + 96*d^2*J^3 - 28*
d^3*J^3 + 4*d^4*J^3 - 32*J^4 + 24*d*J^4 - 8*d^2*J^4 + 2*d^3*
J^4) - 16*(-2 + d)*d*(-48*d + 24*d^2 - 20*d^3 + 8*d^4 - d^
5 + d^6 - 48*J + 100*d*J - 94*d^2*J + 16*d^3*J - 7*d^4*J + 3*
d^5*J + 88*J^2 - 94*d*J^2 + 51*d^2*J^2 - 6*d^3*J^2 + 4*d^4*
J^2 - 48*J^3 + 28*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 8*J^4 - 2*
d*J^4 + d^2*J^4)*x)*pj[J, x, d, 4] +
(16*d^3*(2 + d)*(-20 - 5*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*
J^2 + 2*d*J^2) - 8*d^3*(2 + d)*(-16 + 28*d + 3*d^3 + 24*J -
20*d*J + 4*d^2*J - 8*J^2 + 4*d*J^2)*x)*pj[J, x, d, 5] +
(16*d^3*(2 + d)^3 - 16*d^3*(2 + d)^3*x)*pj[J, x, d, 6]),
m2^2*(8*(-2 + d)*d*(8 - 2*d + d^2)*(-2 + J)*(-1 + d + J)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 -
6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-16*(-2 + d)*d^2*(-3 + J)*(d + J)*(-20*d + 8*d^2 - d^3 + d^4 - 24*
J + 8*d*J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) -
8*(-2 + d)*d*(8 - 2*d + d^2)*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*
J - 8*d*J + 13*d^2*J - 15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*
J^2 - 19*d^2*J^2 + 7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*
J^3 + 2*J^4 + 3*d*J^4)*x)*pj[J, x, d, 3] +
(8*d*(-224*d^2 + 136*d^3 - 108*d^4 - 6*d^5 - 15*d^6 + d^7 + 192*
J - 496*d*J + 456*d^2*J - 272*d^3*J + 86*d^4*J - 25*d^5*J + 5*
d^6*J - 352*J^2 + 552*d*J^2 - 352*d^2*J^2 + 146*d^3*J^2 - 30*
d^4*J^2 + 7*d^5*J^2 + 192*J^3 - 208*d*J^3 + 96*d^2*J^3 - 28*
d^3*J^3 + 4*d^4*J^3 - 32*J^4 + 24*d*J^4 - 8*d^2*J^4 + 2*d^3*
J^4) + 16*(-2 + d)*d*(-48*d + 24*d^2 - 20*d^3 + 8*d^4 - d^
5 + d^6 - 48*J + 100*d*J - 94*d^2*J + 16*d^3*J - 7*d^4*J + 3*
d^5*J + 88*J^2 - 94*d*J^2 + 51*d^2*J^2 - 6*d^3*J^2 + 4*d^4*
J^2 - 48*J^3 + 28*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 8*J^4 - 2*
d*J^4 + d^2*J^4)*x)*pj[J, x, d, 4] +
(-16*d^3*(2 + d)*(-20 - 5*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*
J^2 + 2*d*J^2) - 8*d^3*(2 + d)*(-16 + 28*d + 3*d^3 + 24*J -
20*d*J + 4*d^2*J - 8*J^2 + 4*d*J^2)*x)*pj[J, x, d, 5] +
(16*d^3*(2 + d)^3 + 16*d^3*(2 + d)^3*x)*pj[J, x, d, 6]),
m2^2*(32*d^2*(2 + d)^2*(-8*d + 12*d^2 - 4*d^3 - 6*J + 26*d*J -
11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] - 32*d^3*(2 + d)^2*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 5] +
32*d^3*(2 + d)^3*pj[J, x, d, 6]),
m2^2*(64*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*(2 - 3*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-64*d^2*(2 + d)*(32 + 32*d - 16*d^2 + 4*d^3 - 4*d^4 - 12*J - 74*d*
J + 44*d^2*J - 9*d^3*J + d^4*J - 50*J^2 + 71*d*J^2 - 18*d^2*
J^2 + 2*d^3*J^2 + 36*J^3 - 18*d*J^3 + 2*d^2*J^3 - 6*J^4 + d*
J^4) - 64*(-2 + d)*d^2*(2 + d)*(2*d^2 - 3*d^3 + d^4 - 6*J + 2*
d*J - 9*d^2*J + 3*d^3*J + 11*J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(64*d^2*(2 + d)*(64 - 12*d - 12*d^2 - 5*d^3 + d^4 - 24*J + 8*d*
J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) +
64*d^2*(2 + d)^2*(-16 + 10*d - 3*d^2 + d^3 + 24*J - 14*d*J + 2*
d^2*J - 8*J^2 + 2*d*J^2)*x)*pj[J, x, d, 5] +
(-64*d^2*(2 + d)*(-32 + 12*d + 4*d^2 + d^3 + 24*J - 8*d*J - 8*
J^2) - 64*d^2*(2 + d)*(-32 + 12*d + 4*d^2 + d^3 + 24*J - 8*d*
J - 8*J^2)*x)*pj[J, x, d, 6]),
m2^2*(-64*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*(2 - 3*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-64*d^2*(2 + d)*(32 + 32*d - 16*d^2 + 4*d^3 - 4*d^4 - 12*J - 74*d*
J + 44*d^2*J - 9*d^3*J + d^4*J - 50*J^2 + 71*d*J^2 - 18*d^2*
J^2 + 2*d^3*J^2 + 36*J^3 - 18*d*J^3 + 2*d^2*J^3 - 6*J^4 + d*
J^4) + 64*(-2 + d)*d^2*(2 + d)*(2*d^2 - 3*d^3 + d^4 - 6*J + 2*
d*J - 9*d^2*J + 3*d^3*J + 11*J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-64*d^2*(2 + d)*(64 - 12*d - 12*d^2 - 5*d^3 + d^4 - 24*J + 8*d*
J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) +
64*d^2*(2 + d)^2*(-16 + 10*d - 3*d^2 + d^3 + 24*J - 14*d*J + 2*
d^2*J - 8*J^2 + 2*d*J^2)*x)*pj[J, x, d, 5] +
(-64*d^2*(2 + d)*(-32 + 12*d + 4*d^2 + d^3 + 24*J - 8*d*J - 8*
J^2) + 64*d^2*(2 + d)*(-32 + 12*d + 4*d^2 + d^3 + 24*J - 8*d*
J - 8*J^2)*x)*pj[J, x, d, 6]),
m2^2*(-32*(-2 + d)*d*(-2 + J)*(-1 + d + J)*(-24*d + 20*d^2 -
28*d^3 + 18*d^4 - 5*d^5 + d^6 - 48*J + 76*d*J - 92*d^2*J +
48*d^3*J - 17*d^4*J + 3*d^5*J + 88*J^2 - 104*d*J^2 +
65*d^2*J^2 - 18*d^3*J^2 + 4*d^4*J^2 - 48*J^3 + 40*d*J^3 -
14*d^2*J^3 + 2*d^3*J^3 + 8*J^4 - 4*d*J^4 + d^2*J^4)*
pj[J, x, d, 2] + 32*(-2 + d)*d*(-48*d - 8*d^2 + 48*d^3 - 46*d^4 +
23*d^5 - 6*d^6 + d^7 - 96*J + 80*d*J + 92*d^2*J - 168*d^3*J +
83*d^4*J - 25*d^5*J + 4*d^6*J + 176*J^2 - 4*d*J^2 -
164*d^2*J^2 + 131*d^3*J^2 - 39*d^4*J^2 + 7*d^5*J^2 - 96*J^3 -
40*d*J^3 + 72*d^2*J^3 - 34*d^3*J^3 + 6*d^4*J^3 + 16*J^4 +
12*d*J^4 - 8*d^2*J^4 + 3*d^3*J^4)*x*pj[J, x, d, 3] -
32*d^2*(2 + d)*(-48 + 48*d - 68*d^2 + 22*d^3 - 9*d^4 + d^5 +
48*J - 88*d*J + 54*d^2*J - 19*d^3*J + 3*d^4*J - 16*J^2 +
24*d*J^2 - 10*d^2*J^2 + 3*d^3*J^2)*pj[J, x, d, 4] +
32*d^3*(2 + d)^2*(4 + d^2)*x*pj[J, x, d, 5]),
m2^2*(16*(-4 + d)*(-2 + d)^2*d*(-1 + J)*(-2 + d + J)*
(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J - 8*d*J + 13*d^2*J -
15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 - 19*d^2*J^2 +
7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 + 3*d*J^4)*
pj[J, x, d, 1] + (-16*(-2 + d)^2*d*(-2 + J)*(-1 + d + J)*
(24*d + 14*d^3 - 3*d^4 + d^5 + 24*J - 50*d*J + 26*d^2*J - 13*
d^3*J + 3*d^4*J - 44*J^2 + 47*d*J^2 - 14*d^2*J^2 + 4*d^3*
J^2 + 24*J^3 - 14*d*J^3 + 2*d^2*J^3 - 4*J^4 + d*J^4) -
16*(-4 + d)*(-2 + d)^2*d*(4*d^2 - 12*d^3 + 13*d^4 - 6*d^5 + d^
6 - 12*J + 4*d*J - 36*d^2*J + 48*d^3*J - 27*d^4*J + 5*d^5*
J + 40*J^2 - 24*d*J^2 + 70*d^2*J^2 - 48*d^3*J^2 + 11*d^4*
J^2 - 51*J^3 + 35*d*J^3 - 45*d^2*J^3 + 13*d^3*J^3 + 31*J^4 -
18*d*J^4 + 9*d^2*J^4 - 9*J^5 + 3*d*J^5 + J^6)*x)*
pj[J, x, d, 2] + (16*(-2 + d)^2*d*(-40*d^2 - 46*d^3 - 3*d^4 - 11*
d^5 + d^6 + 48*J - 28*d*J - 32*d^2*J + 45*d^3*J - 26*d^4*J +
5*d^5*J - 88*J^2 - 2*d*J^2 + 67*d^2*J^2 - 35*d^3*J^2 + 8*d^4*
J^2 + 48*J^3 + 20*d*J^3 - 30*d^2*J^3 + 6*d^3*J^3 - 8*J^4 - 6*
d*J^4 + 3*d^2*J^4) + 16*(-2 + d)^2*d*(48*d + 24*d^2 - 14*
d^3 + 17*d^4 - 4*d^5 + d^6 + 48*J - 76*d*J - 76*d^2*J + 53*
d^3*J - 19*d^4*J + 4*d^5*J - 88*J^2 + 14*d*J^2 + 87*d^2*J^2 -
31*d^3*J^2 + 7*d^4*J^2 + 48*J^3 + 20*d*J^3 - 30*d^2*J^3 + 6*
d^3*J^3 - 8*J^4 - 6*d*J^4 + 3*d^2*J^4)*x)*pj[J, x, d, 3] +
(-16*(-2 + d)*d^3*(2 + d)*(-16 + 10*d - 7*d^2 + d^3 + 18*J - 15*d*
J + 3*d^2*J - 6*J^2 + 3*d*J^2) - 16*(-2 + d)^2*d^3*(2 + d)*
(12 + d + 2*d^2 - 9*J + 3*d*J + 3*J^2)*x)*pj[J, x, d, 4] +
(16*(-2 + d)*d^3*(2 + d)^3 + 16*(-2 + d)*d^3*(2 + d)^3*x)*
pj[J, x, d, 5]), m2^2*(128*d^2*(2 + d)^2*(-8*d + 12*d^2 - 4*d^3 -
6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-256*d^2*(2 + d)^2*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*
J^2) - 128*d^3*(2 + d)^2*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*
J^2)*x)*pj[J, x, d, 5] + (128*d^2*(2 + d)^2*(-12 - 10*d + d^
2 - 6*J + 2*d*J + 2*J^2) + 256*d^2*(2 + d)^2*(2 + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 6] +
(-256*d^2*(2 + d)^3 - 256*d^2*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-64*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*(2 - 3*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-64*d^2*(2 + d)*(16 + 24*d - 64*d^2 + 12*d^3 - 12*d^4 + 12*J -
106*d*J + 88*d^2*J - 27*d^3*J + 3*d^4*J - 58*J^2 + 97*d*J^2 -
42*d^2*J^2 + 6*d^3*J^2 + 36*J^3 - 30*d*J^3 + 6*d^2*J^3 - 6*
J^4 + 3*d*J^4) + 64*(-2 + d)*d^2*(2 + d)*(2*d^2 - 3*d^3 + d^
4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 - 6*d*J^2 + 4*
d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-64*d^2*(2 + d)*(-140*d - 52*d^2 - 25*d^3 + d^4 - 72*J + 24*d*
J - 18*d^2*J + 6*d^3*J + 24*J^2 + 6*d^2*J^2) +
64*d^2*(2 + d)*(-16 + 12*d + 16*d^2 - 3*d^3 + 3*d^4 + 24*J - 8*d*
J - 18*d^2*J + 6*d^3*J - 8*J^2 + 6*d^2*J^2)*x)*
pj[J, x, d, 5] + (-64*d^2*(2 + d)*(-64 - 20*d - 12*d^2 + 3*d^3 +
24*J - 20*d*J + 4*d^2*J - 8*J^2 + 4*d*J^2) +
64*d^2*(2 + d)*(52*d + 12*d^2 + 5*d^3 + 24*J - 20*d*J + 4*d^2*
J - 8*J^2 + 4*d*J^2)*x)*pj[J, x, d, 6] +
(-256*d^2*(2 + d)^3 + 256*d^2*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(64*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*(2 - 3*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-64*d^2*(2 + d)*(16 + 24*d - 64*d^2 + 12*d^3 - 12*d^4 + 12*J -
106*d*J + 88*d^2*J - 27*d^3*J + 3*d^4*J - 58*J^2 + 97*d*J^2 -
42*d^2*J^2 + 6*d^3*J^2 + 36*J^3 - 30*d*J^3 + 6*d^2*J^3 - 6*
J^4 + 3*d*J^4) - 64*(-2 + d)*d^2*(2 + d)*(2*d^2 - 3*d^3 + d^
4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 - 6*d*J^2 + 4*
d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(64*d^2*(2 + d)*(-140*d - 52*d^2 - 25*d^3 + d^4 - 72*J + 24*d*J -
18*d^2*J + 6*d^3*J + 24*J^2 + 6*d^2*J^2) + 64*d^2*(2 + d)*
(-16 + 12*d + 16*d^2 - 3*d^3 + 3*d^4 + 24*J - 8*d*J - 18*d^2*
J + 6*d^3*J - 8*J^2 + 6*d^2*J^2)*x)*pj[J, x, d, 5] +
(-64*d^2*(2 + d)*(-64 - 20*d - 12*d^2 + 3*d^3 + 24*J - 20*d*J + 4*
d^2*J - 8*J^2 + 4*d*J^2) - 64*d^2*(2 + d)*(52*d + 12*d^2 + 5*
d^3 + 24*J - 20*d*J + 4*d^2*J - 8*J^2 + 4*d*J^2)*x)*
pj[J, x, d, 6] + (256*d^2*(2 + d)^3 + 256*d^2*(2 + d)^3*x)*
pj[J, x, d, 7]), m2^2*(128*d^2*(2 + d)^2*(-8*d + 12*d^2 - 4*d^3 -
6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(256*d^2*(2 + d)^2*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*
J^2) - 128*d^3*(2 + d)^2*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*
J^2)*x)*pj[J, x, d, 5] + (128*d^2*(2 + d)^2*(-12 - 10*d + d^
2 - 6*J + 2*d*J + 2*J^2) - 256*d^2*(2 + d)^2*(2 + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 6] +
(256*d^2*(2 + d)^3 - 256*d^2*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-16*(-4 + d)*(-2 + d)^2*d*(-1 + J)*(-2 + d + J)*
(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J - 8*d*J + 13*d^2*J -
15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 - 19*d^2*J^2 +
7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 + 3*d*J^4)*
pj[J, x, d, 1] + (-16*(-2 + d)^2*d*(-2 + J)*(-1 + d + J)*
(24*d + 14*d^3 - 3*d^4 + d^5 + 24*J - 50*d*J + 26*d^2*J - 13*
d^3*J + 3*d^4*J - 44*J^2 + 47*d*J^2 - 14*d^2*J^2 + 4*d^3*
J^2 + 24*J^3 - 14*d*J^3 + 2*d^2*J^3 - 4*J^4 + d*J^4) +
16*(-4 + d)*(-2 + d)^2*d*(4*d^2 - 12*d^3 + 13*d^4 - 6*d^5 + d^
6 - 12*J + 4*d*J - 36*d^2*J + 48*d^3*J - 27*d^4*J + 5*d^5*
J + 40*J^2 - 24*d*J^2 + 70*d^2*J^2 - 48*d^3*J^2 + 11*d^4*
J^2 - 51*J^3 + 35*d*J^3 - 45*d^2*J^3 + 13*d^3*J^3 + 31*J^4 -
18*d*J^4 + 9*d^2*J^4 - 9*J^5 + 3*d*J^5 + J^6)*x)*
pj[J, x, d, 2] + (-16*(-2 + d)^2*d*(-40*d^2 - 46*d^3 - 3*d^4 - 11*
d^5 + d^6 + 48*J - 28*d*J - 32*d^2*J + 45*d^3*J - 26*d^4*J +
5*d^5*J - 88*J^2 - 2*d*J^2 + 67*d^2*J^2 - 35*d^3*J^2 + 8*d^4*
J^2 + 48*J^3 + 20*d*J^3 - 30*d^2*J^3 + 6*d^3*J^3 - 8*J^4 - 6*
d*J^4 + 3*d^2*J^4) + 16*(-2 + d)^2*d*(48*d + 24*d^2 - 14*
d^3 + 17*d^4 - 4*d^5 + d^6 + 48*J - 76*d*J - 76*d^2*J + 53*
d^3*J - 19*d^4*J + 4*d^5*J - 88*J^2 + 14*d*J^2 + 87*d^2*J^2 -
31*d^3*J^2 + 7*d^4*J^2 + 48*J^3 + 20*d*J^3 - 30*d^2*J^3 + 6*
d^3*J^3 - 8*J^4 - 6*d*J^4 + 3*d^2*J^4)*x)*pj[J, x, d, 3] +
(-16*(-2 + d)*d^3*(2 + d)*(-16 + 10*d - 7*d^2 + d^3 + 18*J - 15*d*
J + 3*d^2*J - 6*J^2 + 3*d*J^2) + 16*(-2 + d)^2*d^3*(2 + d)*
(12 + d + 2*d^2 - 9*J + 3*d*J + 3*J^2)*x)*pj[J, x, d, 4] +
(-16*(-2 + d)*d^3*(2 + d)^3 + 16*(-2 + d)*d^3*(2 + d)^3*x)*
pj[J, x, d, 5]), m2^2*(64*(-4 + d)*(-2 + d)*d*(2 + d)*(-2 + J)*
(-1 + d + J)*(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J +
3*d^3*J + 11*J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 2] + (128*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2) - 64*(-4 + d)*(-2 + d)*d*
(2 + d)*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J - 8*d*J + 13*d^2*
J - 15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 - 19*d^2*J^2 + 7*
d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 + 3*d*J^4)*x)*
pj[J, x, d, 3] + (64*d*(2 + d)*(48*d + 56*d^2 - 4*d^3 + 12*d^4 -
17*d^5 + d^6 - 48*J + 64*d*J - 28*d^2*J + 64*d^3*J - 35*d^4*
J + 5*d^5*J + 88*J^2 - 100*d*J^2 + 54*d^2*J^2 - 36*d^3*J^2 +
7*d^4*J^2 - 48*J^3 + 40*d*J^3 - 20*d^2*J^3 + 4*d^3*J^3 + 8*
J^4 - 4*d*J^4 + 2*d^2*J^4) - 128*(-2 + d)*d^2*(2 + d)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*
J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (128*d^2*(2 + d)*(-32 - 60*d - 12*d^2 - 5*d^3 +
d^4 - 24*J + 8*d*J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) -
64*d^3*(2 + d)*(-24 + 3*d^3 - 12*d*J + 4*d^2*J + 4*d*J^2)*x)*
pj[J, x, d, 5] + (128*d^3*(2 + d)^3 - 128*d^2*(2 + d)^2*
(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(64*(-4 + d)*(-2 + d)*d*(2 + d)*(-2 + J)*(-1 + d + J)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 -
6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-128*(-2 + d)*d^3*(2 + d)*(-3 + J)*(d + J)*(2 - 3*d + d^2 - 6*
J + 2*d*J + 2*J^2) - 64*(-4 + d)*(-2 + d)*d*(2 + d)*
(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J - 8*d*J + 13*d^2*J - 15*
d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 - 19*d^2*J^2 + 7*d^3*
J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 + 3*d*J^4)*x)*
pj[J, x, d, 3] + (64*d*(2 + d)*(48*d + 56*d^2 - 4*d^3 + 12*d^4 -
17*d^5 + d^6 - 48*J + 64*d*J - 28*d^2*J + 64*d^3*J - 35*d^4*
J + 5*d^5*J + 88*J^2 - 100*d*J^2 + 54*d^2*J^2 - 36*d^3*J^2 +
7*d^4*J^2 - 48*J^3 + 40*d*J^3 - 20*d^2*J^3 + 4*d^3*J^3 + 8*
J^4 - 4*d*J^4 + 2*d^2*J^4) + 128*(-2 + d)*d^2*(2 + d)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*
J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-128*d^2*(2 + d)*(-32 - 60*d - 12*d^2 - 5*d^3 +
d^4 - 24*J + 8*d*J - 6*d^2*J + 2*d^3*J + 8*J^2 + 2*d^2*J^2) -
64*d^3*(2 + d)*(-24 + 3*d^3 - 12*d*J + 4*d^2*J + 4*d*J^2)*x)*
pj[J, x, d, 5] + (128*d^3*(2 + d)^3 + 128*d^2*(2 + d)^2*
(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(256*d*(2 + d)*(-20*d + 18*d^2 - 52*d^3 + 4*d^4 - 4*d^5 -
12*J + 58*d*J - 75*d^2*J + 37*d^3*J - 9*d^4*J + d^5*J + 22*J^2 -
48*d*J^2 + 42*d^2*J^2 - 14*d^3*J^2 + 2*d^4*J^2 - 12*J^3 +
16*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 2*J^4 - 2*d*J^4 + d^2*J^4)*
pj[J, x, d, 4] - 256*d^2*(2 + d)*(8 + 6*d + 13*d^2 - d^3 + d^4 -
12*J + 4*d*J - 6*d^2*J + 2*d^3*J + 4*J^2 + 2*d^2*J^2)*x*
pj[J, x, d, 5] + 256*d^2*(2 + d)^2*(4 + 2*d + d^2)*
pj[J, x, d, 6]), m2^2*(256*(-2 + d)*d^2*(2 + d)*(-3 + J)*(d + J)*
(8*d - 3*d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*
pj[J, x, d, 3] + (-256*d^2*(2 + d)*(-8 - 4*d - 24*d^2 + 4*d^3 - 4*
d^4 + 12*J - 16*d*J + 22*d^2*J - 9*d^3*J + d^4*J - 4*J^2 + 13*
d*J^2 - 12*d^2*J^2 + 2*d^3*J^2 - 6*d*J^3 + 2*d^2*J^3 + d*
J^4) - 256*(-2 + d)*d*(2 + d)*(12*d + 8*d^3 - 3*d^4 + d^5 +
12*J - 28*d*J + 14*d^2*J - 11*d^3*J + 3*d^4*J - 22*J^2 + 29*d*
J^2 - 10*d^2*J^2 + 4*d^3*J^2 + 12*J^3 - 10*d*J^3 + 2*d^2*
J^3 - 2*J^4 + d*J^4)*x)*pj[J, x, d, 4] +
(256*d^2*(2 + d)*(-16 - 40*d - 6*d^2 - 5*d^3 + d^4 - 12*J + 10*d*
J - 8*d^2*J + 2*d^3*J + 4*J^2 - 2*d*J^2 + 2*d^2*J^2) +
256*d^2*(2 + d)*(8 + 4*d + 6*d^2 - d^3 + d^4 - 12*J - 2*d*J - 4*
d^2*J + 2*d^3*J + 4*J^2 + 2*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 5] + (-256*d^2*(2 + d)^2*(4 + 2*d + d^2) -
256*d^2*(2 + d)^2*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-256*(-2 + d)*d^2*(2 + d)*(-3 + J)*(d + J)*(8*d - 3*d^2 +
d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*pj[J, x, d, 3] +
(-256*d^2*(2 + d)*(-8 - 4*d - 24*d^2 + 4*d^3 - 4*d^4 + 12*J - 16*d*
J + 22*d^2*J - 9*d^3*J + d^4*J - 4*J^2 + 13*d*J^2 - 12*d^2*
J^2 + 2*d^3*J^2 - 6*d*J^3 + 2*d^2*J^3 + d*J^4) +
256*(-2 + d)*d*(2 + d)*(12*d + 8*d^3 - 3*d^4 + d^5 + 12*J - 28*d*
J + 14*d^2*J - 11*d^3*J + 3*d^4*J - 22*J^2 + 29*d*J^2 - 10*
d^2*J^2 + 4*d^3*J^2 + 12*J^3 - 10*d*J^3 + 2*d^2*J^3 - 2*J^4 +
d*J^4)*x)*pj[J, x, d, 4] +
(-256*d^2*(2 + d)*(-16 - 40*d - 6*d^2 - 5*d^3 + d^4 - 12*J + 10*d*
J - 8*d^2*J + 2*d^3*J + 4*J^2 - 2*d*J^2 + 2*d^2*J^2) +
256*d^2*(2 + d)*(8 + 4*d + 6*d^2 - d^3 + d^4 - 12*J - 2*d*J - 4*
d^2*J + 2*d^3*J + 4*J^2 + 2*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 5] + (-256*d^2*(2 + d)^2*(4 + 2*d + d^2) +
256*d^2*(2 + d)^2*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-128*(-4 + d)*(-2 + d)*d*(2 + d)*(-2 + J)*(-1 + d + J)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 -
6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
128*(-4 + d)*(-2 + d)*d*(2 + d)*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 -
12*J - 8*d*J + 13*d^2*J - 15*d^3*J + 4*d^4*J + 22*J^2 +
19*d*J^2 - 19*d^2*J^2 + 7*d^3*J^2 - 12*J^3 - 14*d*J^3 +
6*d^2*J^3 + 2*J^4 + 3*d*J^4)*x*pj[J, x, d, 3] -
128*d*(2 + d)*(48*d + 88*d^2 - 36*d^3 + 4*d^4 - 9*d^5 + d^6 -
48*J + 88*d*J - 120*d^2*J + 56*d^3*J - 17*d^4*J + 3*d^5*J +
88*J^2 - 144*d*J^2 + 88*d^2*J^2 - 16*d^3*J^2 + 3*d^4*J^2 -
48*J^3 + 64*d*J^3 - 16*d^2*J^3 + 8*J^4 - 8*d*J^4)*
pj[J, x, d, 4] + 128*d^3*(2 + d)*(-32 + 8*d + 2*d^2 + d^3 +
24*J - 8*d*J - 8*J^2)*x*pj[J, x, d, 5]),
m2*(-128*(-2 + d)*d^2*(2 + d)*(-8*d + 12*d^2 - 4*d^3 - 6*J +
26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(256*(-2 + d)*d^2*(2 + d)*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*
J^2 + d*J^2) + 128*(-2 + d)*d^3*(2 + d)*(2 - 3*d + d^2 - 6*
J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(-128*(-2 + d)*d^2*(2 + d)*(-12 - 10*d + d^2 - 6*J + 2*d*J + 2*
J^2) - 256*(-2 + d)*d^2*(2 + d)*(2 + d^2 - 3*J + d*J + J^2)*
x)*pj[J, x, d, 6] + (256*(-2 + d)*d^2*(2 + d)^2 +
256*(-2 + d)*d^2*(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(-128*(-2 + d)*d^2*(2 + d)*(-8*d + 12*d^2 - 4*d^3 - 6*J +
26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-256*(-2 + d)*d^2*(2 + d)*(-4 - 5*d^2 + 6*J - 5*d*J + d^2*J - 2*
J^2 + d*J^2) + 128*(-2 + d)*d^3*(2 + d)*(2 - 3*d + d^2 - 6*
J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(-128*(-2 + d)*d^2*(2 + d)*(-12 - 10*d + d^2 - 6*J + 2*d*J + 2*
J^2) + 256*(-2 + d)*d^2*(2 + d)*(2 + d^2 - 3*J + d*J + J^2)*
x)*pj[J, x, d, 6] + (-256*(-2 + d)*d^2*(2 + d)^2 +
256*(-2 + d)*d^2*(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(-32*(-4 + d)*(-2 + d)^2*d*(-2 + J)*(-1 + d + J)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*J^2 -
6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
32*(-4 + d)*(-2 + d)^2*d*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J -
8*d*J + 13*d^2*J - 15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 -
19*d^2*J^2 + 7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 +
3*d*J^4)*x*pj[J, x, d, 3] - 32*(-2 + d)^2*d^2*(2 + d)*
(-24 + 8*d - 9*d^2 + d^3 + 24*J - 17*d*J + 3*d^2*J - 8*J^2 +
3*d*J^2)*pj[J, x, d, 4] + 32*(-2 + d)^2*d^3*(2 + d)^2*x*
pj[J, x, d, 5]), m2*(-256*(-4 + d)*(-2 + d)*d^2*(2 + d)*(-3 + J)*
(d + J)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-256*(-2 + d)*d^2*(2 + d)*(-8*d + 12*d^2 - 4*d^3 - 6*J + 26*d*
J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4) + 256*(-4 + d)*(-2 + d)*d*(2 + d)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*
J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-256*(-2 + d)*d^2*(2 + d)*(-24 - 6*d - 7*d^2 +
d^3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2) +
256*(-2 + d)*d^3*(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 5] + (-256*(-2 + d)*d^3*(2 + d)^2 +
256*(-2 + d)*d^3*(2 + d)^2*x)*pj[J, x, d, 6]),
m2*(256*(-4 + d)*(-2 + d)*d^2*(2 + d)*(-3 + J)*(d + J)*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-256*(-2 + d)*d^2*(2 + d)*(-8*d + 12*d^2 - 4*d^3 - 6*J + 26*d*
J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4) - 256*(-4 + d)*(-2 + d)*d*(2 + d)*
(2*d^2 - 3*d^3 + d^4 - 6*J + 2*d*J - 9*d^2*J + 3*d^3*J + 11*
J^2 - 6*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (256*(-2 + d)*d^2*(2 + d)*(-24 - 6*d - 7*d^2 + d^
3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2) +
256*(-2 + d)*d^3*(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 5] + (-256*(-2 + d)*d^3*(2 + d)^2 -
256*(-2 + d)*d^3*(2 + d)^2*x)*pj[J, x, d, 6]),
m2*(512*(-2 + d)*d*(2 + d)*(12*d - 32*d^2 + 12*d^3 - 4*d^4 + 12*J -
52*d*J + 40*d^2*J - 11*d^3*J + d^4*J - 22*J^2 + 37*d*J^2 -
16*d^2*J^2 + 2*d^3*J^2 + 12*J^3 - 10*d*J^3 + 2*d^2*J^3 - 2*J^4 +
d*J^4)*pj[J, x, d, 4] - 512*(-2 + d)*d^2*(2 + d)*
(8*d - 3*d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*x*
pj[J, x, d, 5] + 512*(-2 + d)*d^3*(2 + d)^2*pj[J, x, d, 6]),
256*(-4 + d)*(-2 + d)*d*(2 + d)*(-8*d + 12*d^2 - 4*d^3 - 6*J +
26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] - 256*(-4 + d)*(-2 + d)*d^2*
(2 + d)*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 5] +
256*(-4 + d)*(-2 + d)*d^2*(2 + d)^2*pj[J, x, d, 6]}}}],
exchange[{2, 1}, {GGGG[d], s, 1 + (2*t)/s}, {{1}},
{{{0, 0, 0, ((-4*(-1 + d))/(3*(-2 + d)^2*d) + (4*(-1 + d)*x^2)/
((-2 + d)^2*d))/m2^4, 0, 0, 0, 0, 0, (-16*(-1 + d))/
(3*(-2 + d)^2*d*m2^4), ((-16*(-1 + d))/(3*(-2 + d)^2*d) -
(16*(-1 + d)*x)/((-2 + d)^2*d))/m2^4, 0, 0, 0, 0,
((-16*(-1 + d))/(3*(-2 + d)^2*d) + (16*(-1 + d)*x)/((-2 + d)^2*d))/
m2^4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}}}],
exchange[{2, 2}, {GGGG[d], s, 1 + (2*t)/s},
{{1, Sqrt[2]/(Sqrt[-5 + d]*Sqrt[-1 + d]*Sqrt[2 + d])},
{Sqrt[2]/(Sqrt[-5 + d]*Sqrt[-1 + d]*Sqrt[2 + d]),
2/(9*(-5 + d)*(-4 + d)*(-2 + d)*(-1 + d))}},
{{{0, 0, 0, (((-6 + d)*(-1 + d))/(3*(-3 + d)*(-2 + d)*(2 + d)) +
((-1 + d)*x^2)/(3*(-3 + d)*(2 + d)))/m2^4,
(4*(-1 + d))/(3*(-3 + d)*(2 + d)*m2^4), (4*(-1 + d))/
(3*(-3 + d)*(2 + d)*m2^4), 0, 0, 0, (8*(-1 + d)*(-7 + 2*d))/
(3*(-4 + d)*(-3 + d)*(2 + d)*m2^4),
((8*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)*(2 + d)) -
(8*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)*(2 + d)))/m2^4, 0, 0, 0, 0,
((8*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)*(2 + d)) +
(8*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)*(2 + d)))/m2^4, 0, 0, 0, 0, 0,
0, 0, 0, (16*(-1 + d))/(3*(-3 + d)*(2 + d)*m2^5), 0, 0, 0, 0},
{(8*(-1 + d))/(3*(-2 + d)*m2^3), 0, 0,
(-1/3*((-5 + d)*(-1 + d))/((-3 + d)*(-2 + d)) +
((-5 + d)*(-1 + d)*x^2)/(3*(-3 + d)*(-2 + d)))/m2^4, 0, 0, 0, 0,
0, (4*(-1 + d)*(26 - 11*d + d^2))/(3*(-4 + d)*(-3 + d)*(-2 + d)*
m2^4), ((-4*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)) -
(4*(-5 + d)*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)))/m2^4, 0, 0, 0, 0,
((-4*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)) +
(4*(-5 + d)*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)))/m2^4,
(8*(-1 + d))/(3*(-2 + d)*m2^4), (8*(-1 + d))/(3*(-2 + d)*m2^4),
(-8*(-1 + d))/(3*(-2 + d)*m2^4), 0, 0, (-16*(-1 + d))/
(3*(-2 + d)*m2^4), 0, 0, (8*(-5 + d)*(-1 + d))/(3*(-3 + d)*(-2 + d)*
m2^5), 0, 0, 0, 0}}, {{(8*(-1 + d))/(3*(-2 + d)*m2^3), 0, 0,
(-1/3*((-5 + d)*(-1 + d))/((-3 + d)*(-2 + d)) +
((-5 + d)*(-1 + d)*x^2)/(3*(-3 + d)*(-2 + d)))/m2^4, 0, 0, 0, 0,
0, (4*(-1 + d)*(26 - 11*d + d^2))/(3*(-4 + d)*(-3 + d)*(-2 + d)*
m2^4), ((-4*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)) -
(4*(-5 + d)*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)))/m2^4, 0, 0, 0, 0,
((-4*(-5 + d)*(-1 + d))/(3*(-4 + d)*(-3 + d)) +
(4*(-5 + d)*(-1 + d)*x)/(3*(-4 + d)*(-3 + d)))/m2^4,
(8*(-1 + d))/(3*(-2 + d)*m2^4), (8*(-1 + d))/(3*(-2 + d)*m2^4),
(-8*(-1 + d))/(3*(-2 + d)*m2^4), 0, 0, (-16*(-1 + d))/
(3*(-2 + d)*m2^4), 0, 0, (8*(-5 + d)*(-1 + d))/(3*(-3 + d)*(-2 + d)*
m2^5), 0, 0, 0, 0}, {(-48*(-4 + d)*(-1 + d))/((-2 + d)*m2^3), 0,
0, ((3*(-5 + d)*(-4 + d)*(-1 + d))/((-3 + d)*(-2 + d)) +
(3*(-5 + d)^2*(-4 + d)*(-1 + d)*x^2)/((-3 + d)*(-2 + d)))/m2^4,
(-12*(-4 + d)*(-1 + d))/((-2 + d)*m2^4), (-12*(-4 + d)*(-1 + d))/
((-2 + d)*m2^4), 0, 0, 0, (24*(-1 + d))/((-2 + d)*m2^4),
((24*(-5 + d)*(-1 + d))/(-2 + d) - (24*(-5 + d)^2*(-1 + d)*x)/
(-2 + d))/m2^4, 0, 0, 0, 0, ((24*(-5 + d)*(-1 + d))/(-2 + d) +
(24*(-5 + d)^2*(-1 + d)*x)/(-2 + d))/m2^4,
(48*(-5 + d)*(-4 + d)*(-1 + d))/((-2 + d)*m2^4),
(48*(-5 + d)*(-4 + d)*(-1 + d))/((-2 + d)*m2^4),
(48*(-4 + d)*(-1 + d))/((-2 + d)*m2^4), 0, 0,
(-96*(-5 + d)*(-4 + d)*(-1 + d))/((-2 + d)*m2^4), 0, 0, 0, 0, 0, 0,
0}}}], exchange[{3, 1}, {GGGG[d], s, 1 + (2*t)/s}, {{1}},
{{{0, 0, 0, (-3/(2*(-1 + d)*(2 + d)) + (9*x^2)/(2*(-1 + d)*(2 + d)))/
m2^4, ((-6*d)/((-4 + d)*(-1 + d)*(2 + d)) +
(12*x)/((-4 + d)*(2 + d)))/m2^4,
((-6*d)/((-4 + d)*(-1 + d)*(2 + d)) - (12*x)/((-4 + d)*(2 + d)))/
m2^4, 0, 0, 0, ((-12*(-5 + 2*d))/((-4 + d)*(-1 + d)*(2 + d)) +
(12*x^2)/((-4 + d)*(2 + d)))/m2^4,
((-12*(-3 + d))/((-4 + d)*(-1 + d)*(2 + d)) -
(12*x)/((-1 + d)*(2 + d)) + (12*x^2)/((-4 + d)*(2 + d)))/m2^4, 0,
0, 0, 0, ((-12*(-3 + d))/((-4 + d)*(-1 + d)*(2 + d)) +
(12*x)/((-1 + d)*(2 + d)) + (12*x^2)/((-4 + d)*(2 + d)))/m2^4, 0,
0, 0, 0, 0, 0, 0, 0, -24/((-1 + d)*(2 + d)*m2^5), 0, 0, 0, 0}}}],
exchange[{3 + 2*m, 2}, {GGGG[d], s, 1 + (2*t)/s},
{{(-2 + d)/(4*(-3 + d)*(-2 + J)*J*(1 + J)*(-4 + d + J)*(-3 + d + J)*
(-1 + d + J)*m2^5)}},
{{{0, 0, 0, m2*((-4 + d)*(-1 + J)*(-2 + d + J)*(4 - 5*d + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 1] - (-4 + d)*(-2 + d)*(4 - 5*d + d^2 -
6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 2] + (-4 + d)*(-2 + d)*d*
pj[J, x, d, 3]), m2*(8*(-2 + J)*(-1 + d + J)*(-2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (4*(8*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*
J^2 + d*J^2) - 8*(-4 - 3*d*J + d^2*J + d*J^2)*x)*
pj[J, x, d, 3] + (16*(-2 - d - 3*J + d*J + J^2) -
4*(-8 + d^2 - 12*J + 4*d*J + 4*J^2)*x)*pj[J, x, d, 4] +
(8*d - 8*d*x)*pj[J, x, d, 5]),
m2*(-8*(-2 + J)*(-1 + d + J)*(-2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(4*(8*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2) +
8*(-4 - 3*d*J + d^2*J + d*J^2)*x)*pj[J, x, d, 3] +
(-16*(-2 - d - 3*J + d*J + J^2) - 4*(-8 + d^2 - 12*J + 4*d*J + 4*
J^2)*x)*pj[J, x, d, 4] + (8*d + 8*d*x)*pj[J, x, d, 5]), 0,
m2*(64*(-d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(16*(2 - 2*d - 9*J + 3*d*J + 3*J^2) + 32*(-2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (128 - 16*(-2 + d)*x)*pj[J, x, d, 5] +
(32 + 32*x)*pj[J, x, d, 6]), m2*(64*(-d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + (-16*(2 - 2*d - 9*J + 3*d*J + 3*J^2) +
32*(-2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(128 + 16*(-2 + d)*x)*pj[J, x, d, 5] + (-32 + 32*x)*
pj[J, x, d, 6]), m2*(-4*(-1 + J)*(-2 + d + J)*(-4 - 3*d*J +
d^2*J + d*J^2)*pj[J, x, d, 1] + 4*(-4 + 6*d*J - 5*d^2*J +
d^3*J + 9*J^2 - 8*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*
pj[J, x, d, 2] - 4*(-20 + 20*d - 15*d^2 + 24*J - 26*d*J +
6*d^2*J - 8*J^2 + 6*d*J^2)*pj[J, x, d, 3] + 4*(8 - 6*d + 5*d^2)*
x*pj[J, x, d, 4]), m2*(-4*(-1 + J)*(-2 + d + J)*
(-4 - 3*d*J + d^2*J + d*J^2)*pj[J, x, d, 1] +
(4*(-2 + J)*(-1 + d + J)*(18 - 16*d + 3*d^2 - 3*J + d*J + J^2) +
4*(-4 + 6*d*J - 5*d^2*J + d^3*J + 9*J^2 - 8*d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*(10 - 9*d - 12*J + 4*d*J + 4*J^2) -
4*(-2 + d)*(6 - 13*d + 3*d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 3] + (12*(-2 + d)*d + 12*(-2 + d)*d*x)*
pj[J, x, d, 4]), 0, m2*(32*(-d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + (-16*(-2 - 6*d - 9*J + 3*d*J + 3*J^2) +
16*(-2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(10 + d) + 16*(2 + d)*x)*pj[J, x, d, 5] +
(-64 + 64*x)*pj[J, x, d, 6]), m2*(32*(-d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + (16*(-2 - 6*d - 9*J + 3*d*J + 3*J^2) +
16*(-2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(10 + d) - 16*(2 + d)*x)*pj[J, x, d, 5] +
(64 + 64*x)*pj[J, x, d, 6]), 0,
m2*(-4*(-1 + J)*(-2 + d + J)*(-4 - 3*d*J + d^2*J + d*J^2)*
pj[J, x, d, 1] + (-4*(-2 + J)*(-1 + d + J)*(18 - 16*d + 3*d^2 - 3*
J + d*J + J^2) + 4*(-4 + 6*d*J - 5*d^2*J + d^3*J + 9*J^2 - 8*
d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 2] + (-4*(-2 + d)*(10 - 9*d - 12*J + 4*d*J + 4*J^2) +
4*(-2 + d)*(6 - 13*d + 3*d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 3] + (-12*(-2 + d)*d + 12*(-2 + d)*d*x)*
pj[J, x, d, 4]), m2*(32*(10*d - 3*d^2 + 6*J - 5*d*J + d^2*J -
2*J^2 + d*J^2)*pj[J, x, d, 3] +
(-32*(2 + 6*d - 3*J + d*J + J^2) - 32*(2 - 4*d + d^2)*x)*
pj[J, x, d, 4] + (32*d - 32*(2 + d)*x)*pj[J, x, d, 5]),
m2*(32*(10*d - 3*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*J^2)*
pj[J, x, d, 3] + (32*(2 + 6*d - 3*J + d*J + J^2) -
32*(2 - 4*d + d^2)*x)*pj[J, x, d, 4] + (32*d + 32*(2 + d)*x)*
pj[J, x, d, 5]), m2*(128*(-2*d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + 32*(-8 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*(1 + d)*pj[J, x, d, 5]), m2*(-64*(-d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + (-32*(-6 + 14*d - 3*J + d*J + J^2) -
32*(-2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-32*(2 + d) - 32*(2 + 3*d)*x)*pj[J, x, d, 5]),
m2*(-64*(-d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(32*(-6 + 14*d - 3*J + d*J + J^2) - 32*(-2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-32*(2 + d) + 32*(2 + 3*d)*x)*pj[J, x, d, 5]),
m2*(-64*(10*d - 3*d^2 + 6*J - 5*d*J + d^2*J - 2*J^2 + d*J^2)*
pj[J, x, d, 3] + 64*(2 - 4*d + d^2)*x*pj[J, x, d, 4] -
64*d*pj[J, x, d, 5]), 0, 0, -16*(8*d - 3*d^2 + 12*J - 7*d*J +
d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] + 16*(-2 + d)^2*x*
pj[J, x, d, 4], 64*(-14 + 6*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
64*(-2 + d)*x*pj[J, x, d, 5], -64*(-14 + 6*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] - 64*(-2 + d)*x*pj[J, x, d, 5],
128*(-d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
64*(-2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*(-2 + d)*pj[J, x, d, 5], 0}}}], exchange[{4 + 2*m, 1},
{GGGG[d], s, 1 + (2*t)/s}, {{2/(d*(1 + J)*(-4 + d + J)*m2^4),
Sqrt[-2 + d]/(Sqrt[2]*Sqrt[-4 + d]*Sqrt[-1 + d]*d*Sqrt[-2 + J]*
Sqrt[-1 + J]*(1 + J)*(-4 + d + J)*Sqrt[-2 + d + J]*Sqrt[-1 + d + J]*
m2^5)}, {Sqrt[-2 + d]/(Sqrt[2]*Sqrt[-4 + d]*Sqrt[-1 + d]*d*
Sqrt[-2 + J]*Sqrt[-1 + J]*(1 + J)*(-4 + d + J)*Sqrt[-2 + d + J]*
Sqrt[-1 + d + J]*m2^5), (-2 + d)/(4*(-4 + d)*(-1 + d)*d*(-2 + J)*
(-1 + J)*(1 + J)*(-4 + d + J)*(-2 + d + J)*(-1 + d + J)*m2^5)}},
{{{0, 0, 0, J*(-3 + d + J)*pj[J, x, d, 0] + (4 - d)*x*pj[J, x, d, 1],
0, 0, 0, 0, 0, -4*pj[J, x, d, 2], -8*pj[J, x, d, 1] +
(-4 - 4*x)*pj[J, x, d, 2], 0, 0, 0, 0, 8*pj[J, x, d, 1] +
(-4 + 4*x)*pj[J, x, d, 2], 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, m2*(-((-4 + d)*J*(-3 + d + J)*(2 - 4*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 0]) + (-4 + d)*(-2 + d)*(4 - 5*d + d^2 - 6*J +
2*d*J + 2*J^2)*x*pj[J, x, d, 1] - (-4 + d)*(-2 + d)*d*
pj[J, x, d, 2]), 0, 0, 0, 0, 0,
m2*(8*(-2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
8*(-2 + d)*d*x*pj[J, x, d, 3]),
m2*(-8*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-2 + d)*(-2 + J)*(-1 + d + J) + 8*(-2 + d)*(2 - 4*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*d - 8*(-2 + d)*d*x)*pj[J, x, d, 3]), 0, 0, 0, 0,
m2*(8*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-2 + d)*(-2 + J)*(-1 + d + J) - 8*(-2 + d)*(2 - 4*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-2 + d)*d - 8*(-2 + d)*d*x)*pj[J, x, d, 3]),
m2*(-16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*x*pj[J, x, d, 3] - 16*d*pj[J, x, d, 4]),
m2*(-16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*x*pj[J, x, d, 3] - 16*d*pj[J, x, d, 4]),
-16*d*m2*pj[J, x, d, 4], m2*(64*d*pj[J, x, d, 3] +
32*d*x*pj[J, x, d, 4]), m2*(-64*d*pj[J, x, d, 3] -
32*d*x*pj[J, x, d, 4]), m2*(32*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 32*(-2 + d)*d*x*pj[J, x, d, 3] +
32*d*pj[J, x, d, 4]), 0, 0, 8*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(-2 + d)*d*x*pj[J, x, d, 3],
-128*d*pj[J, x, d, 3] - 32*d*x*pj[J, x, d, 4],
128*d*pj[J, x, d, 3] + 32*d*x*pj[J, x, d, 4], -32*d*pj[J, x, d, 4],
0}}, {{0, 0, 0, m2*(-((-4 + d)*J*(-3 + d + J)*(2 - 4*d + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 0]) + (-4 + d)*(-2 + d)*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 1] -
(-4 + d)*(-2 + d)*d*pj[J, x, d, 2]), 0, 0, 0, 0, 0,
m2*(8*(-2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
8*(-2 + d)*d*x*pj[J, x, d, 3]),
m2*(-8*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-2 + d)*(-2 + J)*(-1 + d + J) + 8*(-2 + d)*(2 - 4*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*d - 8*(-2 + d)*d*x)*pj[J, x, d, 3]), 0, 0, 0, 0,
m2*(8*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-2 + d)*(-2 + J)*(-1 + d + J) - 8*(-2 + d)*(2 - 4*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-2 + d)*d - 8*(-2 + d)*d*x)*pj[J, x, d, 3]),
m2*(-16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*x*pj[J, x, d, 3] - 16*d*pj[J, x, d, 4]),
m2*(-16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
16*(-2 + d)*d*x*pj[J, x, d, 3] - 16*d*pj[J, x, d, 4]),
-16*d*m2*pj[J, x, d, 4], m2*(64*d*pj[J, x, d, 3] +
32*d*x*pj[J, x, d, 4]), m2*(-64*d*pj[J, x, d, 3] -
32*d*x*pj[J, x, d, 4]), m2*(32*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 32*(-2 + d)*d*x*pj[J, x, d, 3] +
32*d*pj[J, x, d, 4]), 0, 0, 8*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(-2 + d)*d*x*pj[J, x, d, 3],
-128*d*pj[J, x, d, 3] - 32*d*x*pj[J, x, d, 4],
128*d*pj[J, x, d, 3] + 32*d*x*pj[J, x, d, 4], -32*d*pj[J, x, d, 4],
0}, {0, 0, 0, m2*((-4 + d)^2*J*(-3 + d + J)*(4 - 16*d + 16*d^2 -
7*d^3 + d^4 - 12*J + 28*d*J - 17*d^2*J + 3*d^3*J + 13*J^2 -
14*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 0] -
(-4 + d)^2*(-16 + 52*d - 64*d^2 + 37*d^3 - 10*d^4 + d^5 + 48*J -
112*d*J + 95*d^2*J - 33*d^3*J + 4*d^4*J - 52*J^2 + 83*d*J^2 -
43*d^2*J^2 + 7*d^3*J^2 + 24*J^3 - 26*d*J^3 + 6*d^2*J^3 - 4*J^4 +
3*d*J^4)*x*pj[J, x, d, 1] + (-4 + d)*(-2 + d)*d*
(-16 + 18*d - 9*d^2 + d^3 + 24*J - 17*d*J + 3*d^2*J - 8*J^2 +
3*d*J^2)*pj[J, x, d, 2] - (-4 + d)*(-2 + d)*d^3*x*
pj[J, x, d, 3]), m2*(4*d^2*(-2 + J)*(-1 + d + J)*
(2 - 4*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(-2 + d)*d^2*(-3 + J)*(d + J) - 4*d^2*(-4 + 6*d - 5*d^2 + d^
3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 3] + (4*d^2*(-4 - 8*d + d^2 - 6*J + 2*d*J + 2*J^2) -
8*d^2*(-2 - 2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(8*d^3 - 8*d^3*x)*pj[J, x, d, 5]),
m2*(4*d^2*(-2 + J)*(-1 + d + J)*(2 - 4*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-8*(-2 + d)*d^2*(-3 + J)*(d + J) -
4*d^2*(-4 + 6*d - 5*d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 +
2*d*J^2)*x)*pj[J, x, d, 3] +
(4*d^2*(-4 - 8*d + d^2 - 6*J + 2*d*J + 2*J^2) +
8*d^2*(-2 - 2*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-8*d^3 - 8*d^3*x)*pj[J, x, d, 5]), 0,
m2*(16*d^2*(-8 + 12*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2)*pj[J, x, d, 3] + (-32*d^2*(6 - 4*d - 3*J + d*J + J^2) -
16*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(-10 + d)*d^2 + 32*(-2 + d)*d^2*x)*pj[J, x, d, 5] +
(-32*d^2 - 32*d^2*x)*pj[J, x, d, 6]),
m2*(-16*d^2*(-8 + 12*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2)*pj[J, x, d, 3] + (-32*d^2*(6 - 4*d - 3*J + d*J + J^2) +
16*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(-10 + d)*d^2 + 32*(-2 + d)*d^2*x)*pj[J, x, d, 5] +
(-32*d^2 + 32*d^2*x)*pj[J, x, d, 6]),
m2*(-4*(-2 + J)*(-1 + d + J)*(32 - 64*d + 54*d^2 - 26*d^3 + 5*d^4 -
48*J + 64*d*J - 31*d^2*J + 5*d^3*J + 16*J^2 - 16*d*J^2 +
5*d^2*J^2)*pj[J, x, d, 2] + 4*d*(64 - 116*d + 80*d^2 - 31*d^3 +
5*d^4 - 96*J + 128*d*J - 62*d^2*J + 10*d^3*J + 32*J^2 -
32*d*J^2 + 10*d^2*J^2)*x*pj[J, x, d, 3] -
4*d^2*(8 - 6*d + 5*d^2)*pj[J, x, d, 4]),
m2*(4*(-4 + d)*(-4 + 3*d)*(-1 + J)*(-2 + d + J)*(-4 + 6*d - 5*d^2 +
d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*pj[J, x, d, 1] +
(-4*(-2 + J)*(-1 + d + J)*(32 - 64*d + 50*d^2 - 18*d^3 + 3*d^4 -
48*J + 64*d*J - 25*d^2*J + 3*d^3*J + 16*J^2 - 16*d*J^2 + 3*d^2*
J^2) - 4*(-4 + d)*(-4 + 3*d)*(4 - 16*d + 16*d^2 - 7*d^3 + d^
4 - 12*J + 28*d*J - 17*d^2*J + 3*d^3*J + 13*J^2 - 14*d*J^2 +
4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(4*(-2 + d)*d*(-32 + 34*d - 25*d^2 + 3*d^3 + 48*J - 34*d*J + 6*d^2*
J - 16*J^2 + 6*d*J^2) + 4*(-2 + d)*d*(-32 + 38*d - 15*d^2 + 3*
d^3 + 48*J - 34*d*J + 6*d^2*J - 16*J^2 + 6*d*J^2)*x)*
pj[J, x, d, 3] + (-12*(-2 + d)*d^3 - 12*(-2 + d)*d^3*x)*
pj[J, x, d, 4]), 0, m2*(-16*d^2*(-8 + 12*d - 3*d^2 + 12*J -
7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(-16*d^2*(10 - 12*d - 9*J + 3*d*J + 3*J^2) +
16*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(-14 + d)*d^2 + 16*d^2*(-2 + 3*d)*x)*pj[J, x, d, 5] +
(-64*d^2 + 64*d^2*x)*pj[J, x, d, 6]),
m2*(16*d^2*(-8 + 12*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2)*pj[J, x, d, 3] + (-16*d^2*(10 - 12*d - 9*J + 3*d*J + 3*
J^2) - 16*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (16*(-14 + d)*d^2 + 16*d^2*(-2 + 3*d)*x)*
pj[J, x, d, 5] + (-64*d^2 - 64*d^2*x)*pj[J, x, d, 6]), 0,
m2*(-4*(-4 + d)*(-4 + 3*d)*(-1 + J)*(-2 + d + J)*(-4 + 6*d - 5*d^2 +
d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*pj[J, x, d, 1] +
(-4*(-2 + J)*(-1 + d + J)*(32 - 64*d + 50*d^2 - 18*d^3 + 3*d^4 -
48*J + 64*d*J - 25*d^2*J + 3*d^3*J + 16*J^2 - 16*d*J^2 + 3*d^2*
J^2) + 4*(-4 + d)*(-4 + 3*d)*(4 - 16*d + 16*d^2 - 7*d^3 + d^
4 - 12*J + 28*d*J - 17*d^2*J + 3*d^3*J + 13*J^2 - 14*d*J^2 +
4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*d*(-32 + 34*d - 25*d^2 + 3*d^3 + 48*J - 34*d*J + 6*
d^2*J - 16*J^2 + 6*d*J^2) + 4*(-2 + d)*d*(-32 + 38*d - 15*
d^2 + 3*d^3 + 48*J - 34*d*J + 6*d^2*J - 16*J^2 + 6*d*J^2)*x)*
pj[J, x, d, 3] + (-12*(-2 + d)*d^3 + 12*(-2 + d)*d^3*x)*
pj[J, x, d, 4]), m2*(32*(-4 + d)*d*(-2 + J)*(-1 + d + J)*
(2 - 4*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(32*d^2*(-8 + 12*d - 3*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*
J^2) - 32*(-4 + d)*d*(-4 + 6*d - 5*d^2 + d^3 + 6*J - 8*d*J +
2*d^2*J - 2*J^2 + 2*d*J^2)*x)*pj[J, x, d, 3] +
(32*d*(-8 + 8*d - 8*d^2 + d^3 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*
J^2) - 32*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (32*d^2*(2 + d) - 32*d^3*x)*pj[J, x, d, 5]),
m2*(32*(-4 + d)*d*(-2 + J)*(-1 + d + J)*(2 - 4*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (-32*d^2*(-8 + 12*d - 3*d^2 + 12*J - 7*d*
J + d^2*J - 4*J^2 + d*J^2) - 32*(-4 + d)*d*(-4 + 6*d - 5*
d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J - 2*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 3] + (32*d*(-8 + 8*d - 8*d^2 + d^3 + 12*J - 7*d*J +
d^2*J - 4*J^2 + d*J^2) + 32*d^2*(2 - 4*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 4] + (-32*d^2*(2 + d) - 32*d^3*x)*
pj[J, x, d, 5]), m2*(64*d*(-4 + 5*d - 4*d^2 + 6*J - 5*d*J +
d^2*J - 2*J^2 + d*J^2)*pj[J, x, d, 4] - 64*d^2*(1 + d)*x*
pj[J, x, d, 5]), m2*(32*d*(32 - 56*d + 36*d^2 - 9*d^3 - 48*J +
52*d*J - 21*d^2*J + 3*d^3*J + 16*J^2 - 12*d*J^2 + 3*d^2*J^2)*
pj[J, x, d, 3] + (-32*d^2*(-2 - 4*d - 3*J + d*J + J^2) -
32*d*(-16 + 22*d - 12*d^2 + 3*d^3 + 24*J - 17*d*J + 3*d^2*J - 8*
J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(32*d^2*(2 + 3*d) + 32*d^2*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-32*d*(32 - 56*d + 36*d^2 - 9*d^3 - 48*J + 52*d*J - 21*d^2*J +
3*d^3*J + 16*J^2 - 12*d*J^2 + 3*d^2*J^2)*pj[J, x, d, 3] +
(-32*d^2*(-2 - 4*d - 3*J + d*J + J^2) + 32*d*(-16 + 22*d - 12*
d^2 + 3*d^3 + 24*J - 17*d*J + 3*d^2*J - 8*J^2 + 3*d*J^2)*x)*
pj[J, x, d, 4] + (-32*d^2*(2 + 3*d) + 32*d^2*(2 + d)*x)*
pj[J, x, d, 5]), m2*(-64*(-4 + d)*d*(-2 + J)*(-1 + d + J)*
(2 - 4*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
64*(-4 + d)*d*(-4 + 6*d - 5*d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J -
2*J^2 + 2*d*J^2)*x*pj[J, x, d, 3] - 64*d*(-8 + 8*d - 8*d^2 +
d^3 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 4] +
64*d^3*x*pj[J, x, d, 5]), 0, 0, -16*(-4 + d)*d*(-2 + J)*
(-1 + d + J)*(2 - 4*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
16*(-4 + d)*d*(-4 + 6*d - 5*d^2 + d^3 + 6*J - 8*d*J + 2*d^2*J -
2*J^2 + 2*d*J^2)*x*pj[J, x, d, 3] - 16*(-2 + d)^2*d^2*
pj[J, x, d, 4], -64*(-4 + d)*d*(-8 + 12*d - 3*d^2 + 12*J - 7*d*J +
d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] + 64*(-4 + d)*d*
(2 - 4*d + d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
64*(-2 + d)*d^2*pj[J, x, d, 5], 64*(-4 + d)*d*(-8 + 12*d - 3*d^2 +
12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] -
64*(-4 + d)*d*(2 - 4*d + d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*(-2 + d)*d^2*pj[J, x, d, 5], 64*d*(-8 + 14*d - 4*d^2 + 12*J -
7*d*J + d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 4] -
64*(-2 + d)*d^2*x*pj[J, x, d, 5], 0}}}], exchange[{4 + 2*m, 2},
{GGGG[d], s, 1 + (2*t)/s},
{{(-2 + d)/((-4 + d)*(-3 + d)*(2 + d)*J*(1 + J)*(-4 + d + J)*
(-3 + d + J)*m2^5), Sqrt[-2 + d]/(Sqrt[3]*Sqrt[-5 + d]*(-4 + d)*
(-3 + d)*Sqrt[2 + d]*Sqrt[J]*Sqrt[1 + J]*Sqrt[-4 + d + J]*
Sqrt[-3 + d + J]*m2^5), Sqrt[-2 + d]/(2*Sqrt[6]*Sqrt[-4 + d]*
(-3 + d)*Sqrt[1 + d]*(2 + d)*Sqrt[-3 + J]*Sqrt[-2 + J]*J*(1 + J)*
(-4 + d + J)*(-3 + d + J)*Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6)},
{Sqrt[-2 + d]/(Sqrt[3]*Sqrt[-5 + d]*(-4 + d)*(-3 + d)*Sqrt[2 + d]*
Sqrt[J]*Sqrt[1 + J]*Sqrt[-4 + d + J]*Sqrt[-3 + d + J]*m2^5),
1/(3*(-5 + d)*(-4 + d)*(-3 + d)*J*(1 + J)*(-4 + d + J)*(-3 + d + J)*
m2^4), 1/(6*Sqrt[2]*Sqrt[-5 + d]*Sqrt[-4 + d]*(-3 + d)*Sqrt[1 + d]*
Sqrt[2 + d]*Sqrt[-3 + J]*Sqrt[-2 + J]*Sqrt[J]*Sqrt[1 + J]*
Sqrt[-4 + d + J]*Sqrt[-3 + d + J]*Sqrt[-1 + d + J]*Sqrt[d + J]*
m2^6)}, {Sqrt[-2 + d]/(2*Sqrt[6]*Sqrt[-4 + d]*(-3 + d)*Sqrt[1 + d]*
(2 + d)*Sqrt[-3 + J]*Sqrt[-2 + J]*J*(1 + J)*(-4 + d + J)*
(-3 + d + J)*Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6),
1/(6*Sqrt[2]*Sqrt[-5 + d]*Sqrt[-4 + d]*(-3 + d)*Sqrt[1 + d]*
Sqrt[2 + d]*Sqrt[-3 + J]*Sqrt[-2 + J]*Sqrt[J]*Sqrt[1 + J]*
Sqrt[-4 + d + J]*Sqrt[-3 + d + J]*Sqrt[-1 + d + J]*Sqrt[d + J]*
m2^6), 1/(24*(-3 + d)*(1 + d)*(2 + d)*(-3 + J)*(-2 + J)*J*(1 + J)*
(-4 + d + J)*(-3 + d + J)*(-1 + d + J)*(d + J)*m2^6)}},
{{{0, 0, 0, m2*((-4 + d)*J*(-3 + d + J)*(4 - d - 3*J + d*J + J^2)*
pj[J, x, d, 0] - 2*(-4 + d)*J*(-3 + d + J)*x*pj[J, x, d, 1] +
(-4 + d)^2*(-2 + d)*pj[J, x, d, 2]),
m2*(4*(-4 + d)*(4 - 5*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-8*(-4 + d)*(-1 + d) + 4*(-4 + d)^2*x)*pj[J, x, d, 3] +
(8*(-4 + d) - 8*(-4 + d)*x)*pj[J, x, d, 4]),
m2*(4*(-4 + d)*(4 - 5*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(-4 + d)*(-1 + d) + 4*(-4 + d)^2*x)*pj[J, x, d, 3] +
(8*(-4 + d) + 8*(-4 + d)*x)*pj[J, x, d, 4]), 0, 0, 0,
m2*(8*(-20 + 33*d - 15*d^2 + 2*d^3 + 9*J - 6*d*J + d^2*J - 3*J^2 +
d*J^2)*pj[J, x, d, 2] + 16*(-4 + d)*(-2 + d)*x*pj[J, x, d, 3]),
m2*(-8*(-4 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-12 + 19*d - 8*d^2 + d^3 + 3*J - d*J - J^2) -
8*(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-4 + d)*(-2 + d) + 8*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 3]), 0,
0, 0, 0, m2*(8*(-4 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(8*(-12 + 19*d - 8*d^2 + d^3 + 3*J - d*J - J^2) +
8*(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-4 + d)*(-2 + d) + 8*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 3]), 0,
0, 0, 0, 0, 0, 0, 0, 16*(-4 + d)*(4 - 5*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 16*(-4 + d)^2*x*pj[J, x, d, 3], 0, 0, 0, 0},
{8*(-4 + d)*(-3 + d)*m2^2*pj[J, x, d, 2], 0, 0,
m2*((-5 + d)*(-4 + d)*J*(-3 + d + J)*pj[J, x, d, 0] -
(-5 + d)*(-4 + d)*(-2 + d)*x*pj[J, x, d, 1]), 0, 0, 0, 0, 0,
4*(26 - 11*d + d^2)*m2*pj[J, x, d, 2],
m2*(-4*(-5 + d)*(-2 + d) - 4*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 2], 0,
0, 0, 0, m2*(-4*(-5 + d)*(-2 + d) + 4*(-5 + d)*(-2 + d)*x)*
pj[J, x, d, 2], 8*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2],
8*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2], -8*(-4 + d)*(-3 + d)*m2*
pj[J, x, d, 2], 0, 0, -16*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2], 0,
0, 8*(-5 + d)*(-4 + d)*pj[J, x, d, 2], 0, 0, 0, 0},
{m2^3*(16*(-3 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] - 96*(-3 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] + 192*(-4 + d)*(2 + d)*
pj[J, x, d, 4]), 0, 0, m2^2*(-((-4 + d)*(-2 + d)*J*(-3 + d + J)*
(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 0]) + (-4 + d)*(-2 + d)*J*
(-3 + d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 1] - 3*(-4 + d)*(-2 + d)*d*(8*d - 2*d^2 + 6*J -
5*d*J + d^2*J - 2*J^2 + d*J^2)*pj[J, x, d, 2] +
3*(-4 + d)^2*(-2 + d)*d*(2 + d)*x*pj[J, x, d, 3]),
m2^2*(-12*(-4 - 4*d + d^2)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (-24*(-4 + d)*(2 + 3*d)*(-3 + J)*
(d + J) + 72*(-4 - 4*d + d^2)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 3] + (12*(32 + 24*d - 24*d^2 + d^4 - 24*J - 16*d*J +
14*d^2*J - 2*d^3*J + 8*J^2 + 8*d*J^2 - 2*d^2*J^2) +
24*(-16 - 28*d + 4*d^2 + d^3 + 12*J + 8*d*J - 7*d^2*J + d^3*J -
4*J^2 - 4*d*J^2 + d^2*J^2)*x)*pj[J, x, d, 4] +
(-24*(-4 + d)*d*(2 + d) + 24*(-4 + d)*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-12*(-4 - 4*d + d^2)*(-2 + J)*(-1 + d + J)*
(12 - 3*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(24*(-4 + d)*(2 + 3*d)*(-3 + J)*(d + J) + 72*(-4 - 4*d + d^2)*
(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 3] +
(12*(32 + 24*d - 24*d^2 + d^4 - 24*J - 16*d*J + 14*d^2*J - 2*d^3*
J + 8*J^2 + 8*d*J^2 - 2*d^2*J^2) - 24*(-16 - 28*d + 4*d^2 + d^
3 + 12*J + 8*d*J - 7*d^2*J + d^3*J - 4*J^2 - 4*d*J^2 + d^2*
J^2)*x)*pj[J, x, d, 4] + (24*(-4 + d)*d*(2 + d) +
24*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]), 0,
m2^2*(48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(96*(-4 + d)*(2 + d)*(-4 + J)*(1 + d + J) + 48*(-4 + d)*(2 + d)*
(12 - 3*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(48*(-4 + d)^2*(2 + d) - 480*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(96*(-4 + d)*(2 + d) + 96*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(96*(-4 + d)*(2 + d)*(-4 + J)*(1 + d + J) - 48*(-4 + d)*(2 + d)*
(12 - 3*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-48*(-4 + d)^2*(2 + d) - 480*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(96*(-4 + d)*(2 + d) - 96*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-4*(-2 + J)*(-1 + d + J)*(192 - 168*d + 138*d^2 - 27*d^3 -
96*J + 38*d*J - 5*d^2*J + d^3*J + 32*J^2 - 2*d*J^2 + d^2*J^2)*
pj[J, x, d, 2] - 24*(-64 + 64*d - 44*d^2 + 4*d^3 + d^4 + 72*J -
36*d*J + 22*d^2*J - 9*d^3*J + d^4*J - 24*J^2 + 4*d*J^2 -
6*d^2*J^2 + d^3*J^2)*x*pj[J, x, d, 3] + 12*(-4 + d)*(2 + d)*
(16 - 14*d + 5*d^2)*pj[J, x, d, 4]),
m2^2*(-24*(-2 + d)*(4 + d)*(-1 + J)*(-2 + d + J)*(4 - d - 3*J +
d*J + J^2)*pj[J, x, d, 1] + (4*(-2 + d)*(-2 + J)*(-1 + d + J)*
(-48 - 72*d + 21*d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2) +
4*(-2 + d)*(4 + d)*(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 -
5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-24*(-2 + d)*(16 + 12*d + 8*d^2 - 3*d^3 + 6*d*J - 5*d^2*J + d^3*
J - 2*d*J^2 + d^2*J^2) - 24*(-2 + d)*(-16 - 28*d + 4*d^2 + d^
3 + 6*d*J - 5*d^2*J + d^3*J - 2*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 3] + (36*(-4 + d)*(-2 + d)*d*(2 + d) +
36*(-4 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]), 0,
m2^2*(-48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-4 + d)*(2 + d)*(-12 - 11*d + d^2 - 9*J + 3*d*J + 3*J^2) -
48*(-4 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-48*(-4 + d)*(2 + d)*(-2 + 3*d) +
48*(-14 + d)*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) - 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-4 + d)*(2 + d)*(-12 - 11*d + d^2 - 9*J + 3*d*J + 3*J^2) +
48*(-4 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (48*(-4 + d)*(2 + d)*(-2 + 3*d) +
48*(-14 + d)*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) + 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
0, m2^2*(24*(-2 + d)*(4 + d)*(-1 + J)*(-2 + d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-48 - 72*d + 21*d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2) - 4*(-2 + d)*(4 + d)*
(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 - 5*d*J^2 + d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(24*(-2 + d)*(16 + 12*d + 8*d^2 - 3*d^3 + 6*d*J - 5*d^2*J + d^3*
J - 2*d*J^2 + d^2*J^2) - 24*(-2 + d)*(-16 - 28*d + 4*d^2 + d^
3 + 6*d*J - 5*d^2*J + d^3*J - 2*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 3] + (36*(-4 + d)*(-2 + d)*d*(2 + d) -
36*(-4 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(16*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (-96*(-4 + d)*(-2 + d)*(2 + d)*
(-3 + J)*(d + J) - 96*(-9 + d)*(2 + d)*(4 - d - 3*J + d*J + J^
2)*x)*pj[J, x, d, 3] + (-96*(2 + d)*(20 - 5*d - 3*J + d*J + J^
2) - 96*(-2 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-96*(-4 + d)*(-2 + d)*(2 + d) +
96*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(16*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (96*(-4 + d)*(-2 + d)*(2 + d)*
(-3 + J)*(d + J) - 96*(-9 + d)*(2 + d)*(4 - d - 3*J + d*J + J^
2)*x)*pj[J, x, d, 3] + (-96*(2 + d)*(20 - 5*d - 3*J + d*J + J^
2) + 96*(-2 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (96*(-4 + d)*(-2 + d)*(2 + d) +
96*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-16*(-3 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 96*(-3 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] +
96*(2 + d)*(20 - d - 9*d^2 + 2*d^3 + 9*J - 6*d*J + d^2*J - 3*J^2 +
d*J^2)*pj[J, x, d, 4] + 192*(-4 + d)*(-1 + d)*(2 + d)*x*
pj[J, x, d, 5]), m2^2*(-96*(-4 + d)*(2 + d)*(-3 + 2*d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (-96*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 -
3*J + d*J + J^2) - 96*(-4 + d)*(2 + d)*(8 - 7*d - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (-96*(-4 + d)*(2 + d)*(-2 + 3*d) -
96*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(96*(-4 + d)*(2 + d)*(-3 + 2*d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (-96*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*
J + J^2) + 96*(-4 + d)*(2 + d)*(8 - 7*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (96*(-4 + d)*(2 + d)*(-2 + 3*d) -
96*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-32*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 192*(-9 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] +
192*(2 + d)*(20 - 5*d - 3*J + d*J + J^2)*pj[J, x, d, 4] -
192*(-4 + d)*d*(2 + d)*x*pj[J, x, d, 5]),
m2*(96*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (192*(-4 + d)*(1 + d)*(2 + d) +
96*(-4 + d)^2*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) + 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2*(96*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (-192*(-4 + d)*(1 + d)*(2 + d) +
96*(-4 + d)^2*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) - 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2*(-8*(-10 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 48*(-10 + d)*(-2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] + 24*(-4 + d)*(-2 + d)*
(2 + d)*(-8 + 3*d)*pj[J, x, d, 4]),
m2*(192*(-5 + d)*(-4 + d)*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-192*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2) +
192*(-5 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (384*(-4 + d)*(-2 + d)*(2 + d) -
192*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-192*(-5 + d)*(-4 + d)*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-192*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2) -
192*(-5 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-384*(-4 + d)*(-2 + d)*(2 + d) -
192*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(192*(2 + d)*(28 + 9*d - 16*d^2 + 3*d^3 + 21*J - 13*d*J +
2*d^2*J - 7*J^2 + 2*d*J^2)*pj[J, x, d, 4] +
576*(-4 + d)*(-2 + d)*(2 + d)*x*pj[J, x, d, 5]),
384*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + 384*(-4 + d)^2*(2 + d)*x*pj[J, x, d, 5]}},
{{8*(-4 + d)*(-3 + d)*m2^2*pj[J, x, d, 2], 0, 0,
m2*((-5 + d)*(-4 + d)*J*(-3 + d + J)*pj[J, x, d, 0] -
(-5 + d)*(-4 + d)*(-2 + d)*x*pj[J, x, d, 1]), 0, 0, 0, 0, 0,
4*(26 - 11*d + d^2)*m2*pj[J, x, d, 2],
m2*(-4*(-5 + d)*(-2 + d) - 4*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 2], 0,
0, 0, 0, m2*(-4*(-5 + d)*(-2 + d) + 4*(-5 + d)*(-2 + d)*x)*
pj[J, x, d, 2], 8*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2],
8*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2], -8*(-4 + d)*(-3 + d)*m2*
pj[J, x, d, 2], 0, 0, -16*(-4 + d)*(-3 + d)*m2*pj[J, x, d, 2], 0,
0, 8*(-5 + d)*(-4 + d)*pj[J, x, d, 2], 0, 0, 0, 0},
{m2*(-16*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 16*(-4 + d)^2*(-3 + d)*x*pj[J, x, d, 3]), 0, 0,
(-5 + d)^2*(-4 + d)*J*(-3 + d + J)*(8 - 6*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 0] - (-5 + d)^2*(-4 + d)*(-3 + d)*(8 - 6*d + d^2 -
6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 1] + (-5 + d)*(-4 + d)^2*
(-3 + d)*(-2 + d)*pj[J, x, d, 2], -4*(-4 + d)*(-3 + d)*
(8 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(24*(-4 + d)*(-3 + d) + 4*(-4 + d)^2*(-3 + d)*x)*pj[J, x, d, 3] +
(-8*(-4 + d)*(-3 + d) + 8*(-4 + d)*(-3 + d)*x)*pj[J, x, d, 4],
-4*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-24*(-4 + d)*(-3 + d) + 4*(-4 + d)^2*(-3 + d)*x)*pj[J, x, d, 3] +
(-8*(-4 + d)*(-3 + d) - 8*(-4 + d)*(-3 + d)*x)*pj[J, x, d, 4], 0,
0, 0, -8*(-3 + d)*(32 - 56*d + 20*d^2 - 2*d^3 - 57*J + 46*d*J -
12*d^2*J + d^3*J + 19*J^2 - 9*d*J^2 + d^2*J^2)*pj[J, x, d, 2] +
8*(-4 + d)*(-3 + d)*(4 - 6*d + d^2)*x*pj[J, x, d, 3],
8*(-5 + d)^2*(-4 + d)*(-3 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (-8*(-5 + d)*(-3 + d)*(-16 + 12*d - 2*d^2 +
15*J - 8*d*J + d^2*J - 5*J^2 + d*J^2) - 8*(-5 + d)^2*(-3 + d)*
(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(8*(-5 + d)*(-4 + d)*(-3 + d)*(-2 + d) + 8*(-5 + d)*(-4 + d)*
(-3 + d)*(-2 + d)*x)*pj[J, x, d, 3], 0, 0, 0, 0,
-8*(-5 + d)^2*(-4 + d)*(-3 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (-8*(-5 + d)*(-3 + d)*(-16 + 12*d - 2*d^2 +
15*J - 8*d*J + d^2*J - 5*J^2 + d*J^2) + 8*(-5 + d)^2*(-3 + d)*
(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-5 + d)*(-4 + d)*(-3 + d)*(-2 + d) + 8*(-5 + d)*(-4 + d)*
(-3 + d)*(-2 + d)*x)*pj[J, x, d, 3],
16*(-5 + d)*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J + d*J + J^2)*
pj[J, x, d, 2] - 16*(-5 + d)*(-4 + d)^2*(-3 + d)*x*
pj[J, x, d, 3] + 16*(-4 + d)^2*(-3 + d)*pj[J, x, d, 4],
16*(-5 + d)*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J + d*J + J^2)*
pj[J, x, d, 2] - 16*(-5 + d)*(-4 + d)^2*(-3 + d)*x*
pj[J, x, d, 3] + 16*(-4 + d)^2*(-3 + d)*pj[J, x, d, 4],
16*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] -
16*(-4 + d)^2*(-3 + d)*x*pj[J, x, d, 3] + 16*(-4 + d)^2*(-3 + d)*
pj[J, x, d, 4], -96*(-4 + d)^2*(-3 + d)*pj[J, x, d, 3] -
32*(-4 + d)^2*(-3 + d)*x*pj[J, x, d, 4],
96*(-4 + d)^2*(-3 + d)*pj[J, x, d, 3] + 32*(-4 + d)^2*(-3 + d)*x*
pj[J, x, d, 4], -32*(-5 + d)*(-4 + d)*(-3 + d)*(8 - 2*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 32*(-5 + d)*(-4 + d)^2*(-3 + d)*x*
pj[J, x, d, 3] - 32*(-4 + d)^2*(-3 + d)*pj[J, x, d, 4], 0, 0, 0,
0, 0, 0, 0}, {m2^3*(16*(-10 + d)*(-3 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 16*(-10 + d)*(-3 + d)*(2 + d)*x*pj[J, x, d, 3]),
0, 0, m2^2*(-((-5 + d)*(-4 + d)*(-2 + d)*J*(-3 + d + J)*
(2 + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 0]) +
(-5 + d)*(-4 + d)*(-2 + d)*d*(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*
x*pj[J, x, d, 1] - (-5 + d)*(-4 + d)*(-2 + d)*d*(2 + d)*
pj[J, x, d, 2]), m2^2*(-4*(2 + d)*(54 - 25*d + 3*d^2)*(-2 + J)*
(-1 + d + J)*pj[J, x, d, 2] + 4*(2 + d)^2*(54 - 25*d + 3*d^2)*x*
pj[J, x, d, 3] + (-8*(2 + d)*(54 - 25*d + 3*d^2) +
8*(2 + d)*(54 - 25*d + 3*d^2)*x)*pj[J, x, d, 4]),
m2^2*(-4*(2 + d)*(54 - 25*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 4*(2 + d)^2*(54 - 25*d + 3*d^2)*x*
pj[J, x, d, 3] + (-8*(2 + d)*(54 - 25*d + 3*d^2) -
8*(2 + d)*(54 - 25*d + 3*d^2)*x)*pj[J, x, d, 4]),
-96*(-4 + d)*(-3 + d)*(2 + d)*m2^2*pj[J, x, d, 4],
m2^2*(48*(-4 + d)*(-3 + d)*(2 + d) + 48*(-4 + d)*(-3 + d)*(2 + d)*x)*
pj[J, x, d, 4], m2^2*(48*(-4 + d)*(-3 + d)*(2 + d) -
48*(-4 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4],
m2^2*(8*(84 - 20*d - 3*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(84 - 20*d - 3*d^2 + d^3)*x*
pj[J, x, d, 3]), m2^2*(-8*(-5 + d)*(-2 + d)*d*(2 + d)*(-1 + J)*
(-2 + d + J)*pj[J, x, d, 1] + (8*(-5 + d)*(-2 + d)*d*(-2 + J)*
(-1 + d + J) + 8*(-5 + d)*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 2] + (-8*(-5 + d)*(-2 + d)*d*(2 + d) -
8*(-5 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]), 0, 0, 0, 0,
m2^2*(8*(-5 + d)*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (8*(-5 + d)*(-2 + d)*d*(-2 + J)*(-1 + d + J) -
8*(-5 + d)*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (8*(-5 + d)*(-2 + d)*d*(2 + d) -
8*(-5 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
m2^2*(8*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + (32*(2 + d)*(63 - 31*d + 4*d^2) -
96*(-6 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(8*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + (32*(2 + d)*(63 - 31*d + 4*d^2) +
96*(-6 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(8*(-3 + d)*(-4 - 8*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(-3 + d)*(2 + d)*(-4 - 8*d + 3*d^2)*x*
pj[J, x, d, 3] + 32*(2 + d)*(117 - 58*d + 7*d^2)*pj[J, x, d, 4]),
m2^2*(-96*(-3 + d)*(2 + d)*(-14 + 3*d) - 32*(-4 + d)*(2 + d)*
(-27 + 5*d)*x)*pj[J, x, d, 4],
m2^2*(-96*(-3 + d)*(2 + d)*(-14 + 3*d) + 32*(-4 + d)*(2 + d)*
(-27 + 5*d)*x)*pj[J, x, d, 4],
m2^2*(-16*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 16*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + 64*(-1 + d)*(2 + d)*(-9 + 2*d)*pj[J, x, d, 4]),
0, 0, m2*(48*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 48*(-5 + d)*(-2 + d)*(2 + d)*x*pj[J, x, d, 3]),
m2*(-384*(-5 + d)*(-3 + d)*(2 + d) + 192*(-5 + d)^2*(2 + d)*x)*
pj[J, x, d, 4], m2*(-384*(-5 + d)*(-3 + d)*(2 + d) -
192*(-5 + d)^2*(2 + d)*x)*pj[J, x, d, 4], 192*(-5 + d)*(2 + d)*
(-11 + 3*d)*m2*pj[J, x, d, 4], 384*(-5 + d)*(-4 + d)*(2 + d)*
pj[J, x, d, 4]}}, {{m2^3*(16*(-3 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*
(12 - 3*d - 3*J + d*J + J^2)*pj[J, x, d, 2] - 96*(-3 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] + 192*(-4 + d)*(2 + d)*
pj[J, x, d, 4]), 0, 0, m2^2*(-((-4 + d)*(-2 + d)*J*(-3 + d + J)*
(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 0]) + (-4 + d)*(-2 + d)*J*
(-3 + d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 1] - 3*(-4 + d)*(-2 + d)*d*(8*d - 2*d^2 + 6*J -
5*d*J + d^2*J - 2*J^2 + d*J^2)*pj[J, x, d, 2] +
3*(-4 + d)^2*(-2 + d)*d*(2 + d)*x*pj[J, x, d, 3]),
m2^2*(-12*(-4 - 4*d + d^2)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (-24*(-4 + d)*(2 + 3*d)*(-3 + J)*
(d + J) + 72*(-4 - 4*d + d^2)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 3] + (12*(32 + 24*d - 24*d^2 + d^4 - 24*J - 16*d*J +
14*d^2*J - 2*d^3*J + 8*J^2 + 8*d*J^2 - 2*d^2*J^2) +
24*(-16 - 28*d + 4*d^2 + d^3 + 12*J + 8*d*J - 7*d^2*J + d^3*J -
4*J^2 - 4*d*J^2 + d^2*J^2)*x)*pj[J, x, d, 4] +
(-24*(-4 + d)*d*(2 + d) + 24*(-4 + d)*d*(2 + d)*x)*
pj[J, x, d, 5]), m2^2*(-12*(-4 - 4*d + d^2)*(-2 + J)*(-1 + d + J)*
(12 - 3*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(24*(-4 + d)*(2 + 3*d)*(-3 + J)*(d + J) + 72*(-4 - 4*d + d^2)*
(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 3] +
(12*(32 + 24*d - 24*d^2 + d^4 - 24*J - 16*d*J + 14*d^2*J - 2*d^3*
J + 8*J^2 + 8*d*J^2 - 2*d^2*J^2) - 24*(-16 - 28*d + 4*d^2 + d^
3 + 12*J + 8*d*J - 7*d^2*J + d^3*J - 4*J^2 - 4*d*J^2 + d^2*
J^2)*x)*pj[J, x, d, 4] + (24*(-4 + d)*d*(2 + d) +
24*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]), 0,
m2^2*(48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(96*(-4 + d)*(2 + d)*(-4 + J)*(1 + d + J) + 48*(-4 + d)*(2 + d)*
(12 - 3*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(48*(-4 + d)^2*(2 + d) - 480*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(96*(-4 + d)*(2 + d) + 96*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(96*(-4 + d)*(2 + d)*(-4 + J)*(1 + d + J) - 48*(-4 + d)*(2 + d)*
(12 - 3*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-48*(-4 + d)^2*(2 + d) - 480*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(96*(-4 + d)*(2 + d) - 96*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-4*(-2 + J)*(-1 + d + J)*(192 - 168*d + 138*d^2 - 27*d^3 -
96*J + 38*d*J - 5*d^2*J + d^3*J + 32*J^2 - 2*d*J^2 + d^2*J^2)*
pj[J, x, d, 2] - 24*(-64 + 64*d - 44*d^2 + 4*d^3 + d^4 + 72*J -
36*d*J + 22*d^2*J - 9*d^3*J + d^4*J - 24*J^2 + 4*d*J^2 -
6*d^2*J^2 + d^3*J^2)*x*pj[J, x, d, 3] + 12*(-4 + d)*(2 + d)*
(16 - 14*d + 5*d^2)*pj[J, x, d, 4]),
m2^2*(-24*(-2 + d)*(4 + d)*(-1 + J)*(-2 + d + J)*(4 - d - 3*J +
d*J + J^2)*pj[J, x, d, 1] + (4*(-2 + d)*(-2 + J)*(-1 + d + J)*
(-48 - 72*d + 21*d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2) +
4*(-2 + d)*(4 + d)*(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 -
5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-24*(-2 + d)*(16 + 12*d + 8*d^2 - 3*d^3 + 6*d*J - 5*d^2*J + d^3*
J - 2*d*J^2 + d^2*J^2) - 24*(-2 + d)*(-16 - 28*d + 4*d^2 + d^
3 + 6*d*J - 5*d^2*J + d^3*J - 2*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 3] + (36*(-4 + d)*(-2 + d)*d*(2 + d) +
36*(-4 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]), 0,
m2^2*(-48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-4 + d)*(2 + d)*(-12 - 11*d + d^2 - 9*J + 3*d*J + 3*J^2) -
48*(-4 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-48*(-4 + d)*(2 + d)*(-2 + 3*d) +
48*(-14 + d)*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) - 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(48*(-4 + d)^2*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(-4 + d)*(2 + d)*(-12 - 11*d + d^2 - 9*J + 3*d*J + 3*J^2) +
48*(-4 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (48*(-4 + d)*(2 + d)*(-2 + 3*d) +
48*(-14 + d)*(-4 + d)*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) + 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
0, m2^2*(24*(-2 + d)*(4 + d)*(-1 + J)*(-2 + d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-48 - 72*d + 21*d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2) - 4*(-2 + d)*(4 + d)*
(24 - 6*d - 42*J + 11*d*J + d^2*J + 23*J^2 - 5*d*J^2 + d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(24*(-2 + d)*(16 + 12*d + 8*d^2 - 3*d^3 + 6*d*J - 5*d^2*J + d^3*
J - 2*d*J^2 + d^2*J^2) - 24*(-2 + d)*(-16 - 28*d + 4*d^2 + d^
3 + 6*d*J - 5*d^2*J + d^3*J - 2*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 3] + (36*(-4 + d)*(-2 + d)*d*(2 + d) -
36*(-4 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(16*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (-96*(-4 + d)*(-2 + d)*(2 + d)*
(-3 + J)*(d + J) - 96*(-9 + d)*(2 + d)*(4 - d - 3*J + d*J + J^
2)*x)*pj[J, x, d, 3] + (-96*(2 + d)*(20 - 5*d - 3*J + d*J + J^
2) - 96*(-2 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-96*(-4 + d)*(-2 + d)*(2 + d) +
96*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(16*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + (96*(-4 + d)*(-2 + d)*(2 + d)*
(-3 + J)*(d + J) - 96*(-9 + d)*(2 + d)*(4 - d - 3*J + d*J + J^
2)*x)*pj[J, x, d, 3] + (-96*(2 + d)*(20 - 5*d - 3*J + d*J + J^
2) + 96*(-2 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (96*(-4 + d)*(-2 + d)*(2 + d) +
96*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-16*(-3 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 96*(-3 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] +
96*(2 + d)*(20 - d - 9*d^2 + 2*d^3 + 9*J - 6*d*J + d^2*J - 3*J^2 +
d*J^2)*pj[J, x, d, 4] + 192*(-4 + d)*(-1 + d)*(2 + d)*x*
pj[J, x, d, 5]), m2^2*(-96*(-4 + d)*(2 + d)*(-3 + 2*d)*(-3 + J)*
(d + J)*pj[J, x, d, 3] + (-96*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 -
3*J + d*J + J^2) - 96*(-4 + d)*(2 + d)*(8 - 7*d - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (-96*(-4 + d)*(2 + d)*(-2 + 3*d) -
96*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(96*(-4 + d)*(2 + d)*(-3 + 2*d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (-96*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*
J + J^2) + 96*(-4 + d)*(2 + d)*(8 - 7*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (96*(-4 + d)*(2 + d)*(-2 + 3*d) -
96*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-32*(-9 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 192*(-9 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] +
192*(2 + d)*(20 - 5*d - 3*J + d*J + J^2)*pj[J, x, d, 4] -
192*(-4 + d)*d*(2 + d)*x*pj[J, x, d, 5]),
m2*(96*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (192*(-4 + d)*(1 + d)*(2 + d) +
96*(-4 + d)^2*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) + 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2*(96*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (-192*(-4 + d)*(1 + d)*(2 + d) +
96*(-4 + d)^2*(2 + d)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(2 + d) - 192*(-4 + d)*(2 + d)*x)*pj[J, x, d, 6]),
m2*(-8*(-10 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*(12 - 3*d - 3*J +
d*J + J^2)*pj[J, x, d, 2] + 48*(-10 + d)*(-2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] + 24*(-4 + d)*(-2 + d)*
(2 + d)*(-8 + 3*d)*pj[J, x, d, 4]),
m2*(192*(-5 + d)*(-4 + d)*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-192*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2) +
192*(-5 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (384*(-4 + d)*(-2 + d)*(2 + d) -
192*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-192*(-5 + d)*(-4 + d)*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-192*(-2 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2) -
192*(-5 + d)*(2 + d)*(12 - 3*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-384*(-4 + d)*(-2 + d)*(2 + d) -
192*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(192*(2 + d)*(28 + 9*d - 16*d^2 + 3*d^3 + 21*J - 13*d*J +
2*d^2*J - 7*J^2 + 2*d*J^2)*pj[J, x, d, 4] +
576*(-4 + d)*(-2 + d)*(2 + d)*x*pj[J, x, d, 5]),
384*(-4 + d)*(2 + d)*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + 384*(-4 + d)^2*(2 + d)*x*pj[J, x, d, 5]},
{m2^3*(16*(-10 + d)*(-3 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
16*(-10 + d)*(-3 + d)*(2 + d)*x*pj[J, x, d, 3]), 0, 0,
m2^2*(-((-5 + d)*(-4 + d)*(-2 + d)*J*(-3 + d + J)*(2 + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 0]) + (-5 + d)*(-4 + d)*(-2 + d)*d*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 1] -
(-5 + d)*(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 2]),
m2^2*(-4*(2 + d)*(54 - 25*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 4*(2 + d)^2*(54 - 25*d + 3*d^2)*x*
pj[J, x, d, 3] + (-8*(2 + d)*(54 - 25*d + 3*d^2) +
8*(2 + d)*(54 - 25*d + 3*d^2)*x)*pj[J, x, d, 4]),
m2^2*(-4*(2 + d)*(54 - 25*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 4*(2 + d)^2*(54 - 25*d + 3*d^2)*x*
pj[J, x, d, 3] + (-8*(2 + d)*(54 - 25*d + 3*d^2) -
8*(2 + d)*(54 - 25*d + 3*d^2)*x)*pj[J, x, d, 4]),
-96*(-4 + d)*(-3 + d)*(2 + d)*m2^2*pj[J, x, d, 4],
m2^2*(48*(-4 + d)*(-3 + d)*(2 + d) + 48*(-4 + d)*(-3 + d)*(2 + d)*x)*
pj[J, x, d, 4], m2^2*(48*(-4 + d)*(-3 + d)*(2 + d) -
48*(-4 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4],
m2^2*(8*(84 - 20*d - 3*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(84 - 20*d - 3*d^2 + d^3)*x*
pj[J, x, d, 3]), m2^2*(-8*(-5 + d)*(-2 + d)*d*(2 + d)*(-1 + J)*
(-2 + d + J)*pj[J, x, d, 1] + (8*(-5 + d)*(-2 + d)*d*(-2 + J)*
(-1 + d + J) + 8*(-5 + d)*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 2] + (-8*(-5 + d)*(-2 + d)*d*(2 + d) -
8*(-5 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]), 0, 0, 0, 0,
m2^2*(8*(-5 + d)*(-2 + d)*d*(2 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (8*(-5 + d)*(-2 + d)*d*(-2 + J)*(-1 + d + J) -
8*(-5 + d)*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (8*(-5 + d)*(-2 + d)*d*(2 + d) -
8*(-5 + d)*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 3]),
m2^2*(8*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + (32*(2 + d)*(63 - 31*d + 4*d^2) -
96*(-6 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(8*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + (32*(2 + d)*(63 - 31*d + 4*d^2) +
96*(-6 + d)*(-3 + d)*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(8*(-3 + d)*(-4 - 8*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 8*(-3 + d)*(2 + d)*(-4 - 8*d + 3*d^2)*x*
pj[J, x, d, 3] + 32*(2 + d)*(117 - 58*d + 7*d^2)*pj[J, x, d, 4]),
m2^2*(-96*(-3 + d)*(2 + d)*(-14 + 3*d) - 32*(-4 + d)*(2 + d)*
(-27 + 5*d)*x)*pj[J, x, d, 4],
m2^2*(-96*(-3 + d)*(2 + d)*(-14 + 3*d) + 32*(-4 + d)*(2 + d)*
(-27 + 5*d)*x)*pj[J, x, d, 4],
m2^2*(-16*(204 + 8*d - 15*d^2 + d^3)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 16*(2 + d)*(204 + 8*d - 15*d^2 + d^3)*x*
pj[J, x, d, 3] + 64*(-1 + d)*(2 + d)*(-9 + 2*d)*pj[J, x, d, 4]),
0, 0, m2*(48*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - 48*(-5 + d)*(-2 + d)*(2 + d)*x*pj[J, x, d, 3]),
m2*(-384*(-5 + d)*(-3 + d)*(2 + d) + 192*(-5 + d)^2*(2 + d)*x)*
pj[J, x, d, 4], m2*(-384*(-5 + d)*(-3 + d)*(2 + d) -
192*(-5 + d)^2*(2 + d)*x)*pj[J, x, d, 4], 192*(-5 + d)*(2 + d)*
(-11 + 3*d)*m2*pj[J, x, d, 4], 384*(-5 + d)*(-4 + d)*(2 + d)*
pj[J, x, d, 4]}, {m2^3*(128*(-3 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] - 128*(-3 + d)*(2 + d)*
(144 - 36*d - 228*J + 64*d*J + d^2*J + d^3*J + 148*J^2 -
35*d*J^2 + 3*d^2*J^2 + d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 +
8*J^4 + d*J^4)*x*pj[J, x, d, 3] + 2304*(2 + d)*
(8 + 34*d + 3*d^2 - 3*d^3 + 30*J - 7*d*J - 4*d^2*J + d^3*J -
10*J^2 - d*J^2 + d^2*J^2)*pj[J, x, d, 4] - 9216*(-4 + d)*
(2 + d)^2*x*pj[J, x, d, 5]), m2^2*(144*(-4 + d)*(2 + d)^2*
(-24 - 18*d + 6*d^2 - 6*J + 17*d*J - 5*d^2*J + 11*J^2 -
11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(288*(-4 + d)*(2 + d)^2*(56 + 23*d - 3*d^2 + 15*J - 8*d*J + d^2*
J - 5*J^2 + d*J^2) - 864*(-4 + d)*(2 + d)^2*(4 - d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 5] +
(144*(-4 + d)*(2 + d)^2*(-96 - 30*d + d^2 - 24*J + 8*d*J + 8*
J^2) + 576*(-4 + d)*(2 + d)^2*(14 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (576*(-4 + d)*d*(2 + d)^2 - 5760*(-4 + d)*
(2 + d)^2*x)*pj[J, x, d, 7] + (1152*(-4 + d)*(2 + d)^2 +
1152*(-4 + d)*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*(144*(-4 + d)*(2 + d)^2*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J -
5*d^2*J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (-288*(-4 + d)*(2 + d)^2*(56 + 23*d - 3*d^2 + 15*
J - 8*d*J + d^2*J - 5*J^2 + d*J^2) - 864*(-4 + d)*(2 + d)^2*
(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 5] +
(144*(-4 + d)*(2 + d)^2*(-96 - 30*d + d^2 - 24*J + 8*d*J + 8*
J^2) - 576*(-4 + d)*(2 + d)^2*(14 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-576*(-4 + d)*d*(2 + d)^2 - 5760*(-4 + d)*
(2 + d)^2*x)*pj[J, x, d, 7] + (1152*(-4 + d)*(2 + d)^2 -
1152*(-4 + d)*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*((-4 + d)*(-2 + d)^2*J*(-3 + d + J)*(144 - 36*d - 372*J +
100*d*J + 2*d^2*J - d^3*J + d^4*J + 376*J^2 - 97*d*J^2 -
3*d^2*J^2 + 2*d^3*J^2 + d^4*J^2 - 195*J^3 + 41*d*J^3 - d^2*J^3 +
3*d^3*J^3 + 55*J^4 - 11*d*J^4 + 4*d^2*J^4 - 9*J^5 + 3*d*J^5 +
J^6)*pj[J, x, d, 0] - (-4 + d)*(-2 + d)^2*J*(-3 + d + J)*
(48 + 4*d + 2*d^2 - d^3 + d^4 - 108*J - 3*d^2*J + 2*d^3*J +
d^4*J + 90*J^2 - 6*d*J^2 - d^2*J^2 + 3*d^3*J^2 - 36*J^3 +
4*d^2*J^3 + 6*J^4 + 2*d*J^4)*x*pj[J, x, d, 1] +
(-4 + d)*(-2 + d)*(-288*d^2 + 72*d^3 + 72*d^4 + 54*d^5 - 18*d^6 +
288*J - 216*d*J + 124*d^2*J - 34*d^3*J + 107*d^4*J - 62*d^5*J +
9*d^6*J - 528*J^2 - 32*d*J^2 + 56*d^2*J^2 + 124*d^3*J^2 -
107*d^4*J^2 + 19*d^5*J^2 + 288*J^3 + 144*d*J^3 - 8*d^2*J^3 -
84*d^3*J^3 + 20*d^4*J^3 - 48*J^4 - 40*d*J^4 - 12*d^2*J^4 +
10*d^3*J^4)*pj[J, x, d, 2] - 9*(-4 + d)*(-2 + d)*d*(2 + d)*
(-8*d + 6*d^2 - 5*d^3 + d^4 + 12*J + 14*d*J - 12*d^2*J +
2*d^3*J - 4*J^2 - 6*d*J^2 + 2*d^2*J^2)*x*pj[J, x, d, 3] +
9*(-4 + d)^2*(-2 + d)*d*(2 + d)^3*pj[J, x, d, 4]),
m2^2*(8*(24 - 4*d - 14*d^2 + 3*d^3)*(-2 + J)*(-1 + d + J)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(24*(-3 + J)*(d + J)*(-384 - 208*d + 44*d^2 + 44*d^3 - 21*d^4 + 3*
d^5 - 144*J + 108*d*J + 136*d^2*J - 61*d^3*J - 6*d^4*J + 3*
d^5*J + 48*J^2 - 20*d*J^2 - 52*d^2*J^2 + 3*d^3*J^2 + 3*d^4*
J^2) - 8*(24 - 4*d - 14*d^2 + 3*d^3)*(144 - 36*d - 228*J + 64*
d*J + d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 + d^3*
J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x)*
pj[J, x, d, 3] + (8*(3456 + 2592*d + 1440*d^2 + 1728*d^3 + 360*
d^4 - 90*d^5 - 36*d^6 - 288*J + 1584*d*J + 1136*d^2*J - 496*
d^3*J - 34*d^4*J - 21*d^5*J + 9*d^6*J + 528*J^2 - 856*d*J^2 -
700*d^2*J^2 + 198*d^3*J^2 - 58*d^4*J^2 + 15*d^5*J^2 - 288*
J^3 + 144*d*J^3 + 152*d^2*J^3 - 92*d^3*J^3 + 12*d^4*J^3 + 48*
J^4 - 8*d*J^4 - 28*d^2*J^4 + 6*d^3*J^4) -
8*(-3456 - 2016*d + 288*d^2 + 540*d^3 - 144*d^4 - 27*d^5 + 9*
d^6 - 288*J + 1152*d*J + 1172*d^2*J - 460*d^3*J - 61*d^4*J -
12*d^5*J + 9*d^6*J + 528*J^2 - 712*d*J^2 - 664*d^2*J^2 + 198*
d^3*J^2 - 49*d^4*J^2 + 15*d^5*J^2 - 288*J^3 + 144*d*J^3 + 152*
d^2*J^3 - 92*d^3*J^3 + 12*d^4*J^3 + 48*J^4 - 8*d*J^4 - 28*d^2*
J^4 + 6*d^3*J^4)*x)*pj[J, x, d, 4] +
(144*d*(2 + d)*(8 + 10*d + 9*d^2 - 3*d^3 + 6*J + 7*d*J - 6*d^2*
J + d^3*J - 2*J^2 - 3*d*J^2 + d^2*J^2) - 72*d*(2 + d)*
(-80 - 68*d + 6*d^2 + d^4 + 12*J + 14*d*J - 12*d^2*J + 2*d^3*
J - 4*J^2 - 6*d*J^2 + 2*d^2*J^2)*x)*pj[J, x, d, 5] +
(144*(-4 + d)*d*(2 + d)^3 - 144*(-4 + d)*d*(2 + d)^3*x)*
pj[J, x, d, 6]), m2^2*(8*(24 - 4*d - 14*d^2 + 3*d^3)*(-2 + J)*
(-1 + d + J)*(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 -
5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-24*(-3 + J)*(d + J)*(-384 - 208*d + 44*d^2 + 44*d^3 - 21*d^4 + 3*
d^5 - 144*J + 108*d*J + 136*d^2*J - 61*d^3*J - 6*d^4*J + 3*
d^5*J + 48*J^2 - 20*d*J^2 - 52*d^2*J^2 + 3*d^3*J^2 + 3*d^4*
J^2) - 8*(24 - 4*d - 14*d^2 + 3*d^3)*(144 - 36*d - 228*J + 64*
d*J + d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 + d^3*
J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x)*
pj[J, x, d, 3] + (8*(3456 + 2592*d + 1440*d^2 + 1728*d^3 + 360*
d^4 - 90*d^5 - 36*d^6 - 288*J + 1584*d*J + 1136*d^2*J - 496*
d^3*J - 34*d^4*J - 21*d^5*J + 9*d^6*J + 528*J^2 - 856*d*J^2 -
700*d^2*J^2 + 198*d^3*J^2 - 58*d^4*J^2 + 15*d^5*J^2 - 288*
J^3 + 144*d*J^3 + 152*d^2*J^3 - 92*d^3*J^3 + 12*d^4*J^3 + 48*
J^4 - 8*d*J^4 - 28*d^2*J^4 + 6*d^3*J^4) +
8*(-3456 - 2016*d + 288*d^2 + 540*d^3 - 144*d^4 - 27*d^5 + 9*
d^6 - 288*J + 1152*d*J + 1172*d^2*J - 460*d^3*J - 61*d^4*J -
12*d^5*J + 9*d^6*J + 528*J^2 - 712*d*J^2 - 664*d^2*J^2 + 198*
d^3*J^2 - 49*d^4*J^2 + 15*d^5*J^2 - 288*J^3 + 144*d*J^3 + 152*
d^2*J^3 - 92*d^3*J^3 + 12*d^4*J^3 + 48*J^4 - 8*d*J^4 - 28*d^2*
J^4 + 6*d^3*J^4)*x)*pj[J, x, d, 4] +
(-144*d*(2 + d)*(8 + 10*d + 9*d^2 - 3*d^3 + 6*J + 7*d*J - 6*d^2*
J + d^3*J - 2*J^2 - 3*d*J^2 + d^2*J^2) - 72*d*(2 + d)*
(-80 - 68*d + 6*d^2 + d^4 + 12*J + 14*d*J - 12*d^2*J + 2*d^3*
J - 4*J^2 - 6*d*J^2 + 2*d^2*J^2)*x)*pj[J, x, d, 5] +
(144*(-4 + d)*d*(2 + d)^3 + 144*(-4 + d)*d*(2 + d)^3*x)*
pj[J, x, d, 6]), m2^2*(-96*d*(2 + d)^2*(-24 - 18*d + 6*d^2 -
6*J + 17*d*J - 5*d^2*J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] + 576*d*(2 + d)^2*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 5] + 288*(-4 + d)*d*
(2 + d)^3*pj[J, x, d, 6]), m2^2*(576*(-6 + d)*(-1 + d)*(2 + d)*
(-3 + J)*(d + J)*(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(-192*(2 + d)*(-384 - 144*d + 276*d^2 + 18*d^3 - 18*d^4 - 216*J +
246*d*J - 73*d^2*J + 17*d^3*J - 4*d^4*J + 126*J^2 - 139*d*
J^2 + 59*d^2*J^2 - 21*d^3*J^2 + 2*d^4*J^2 - 36*J^3 + 42*d*
J^3 - 22*d^2*J^3 + 4*d^3*J^3 + 6*J^4 - 5*d*J^4 + 2*d^2*J^4) -
96*(-6 + d)*(-1 + d)*(2 + d)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (288*(2 + d)*(-80 - 76*d + 100*d^2 + 9*d^3 - 7*
d^4 - 60*J + 92*d*J - 15*d^2*J - 6*d^3*J + d^4*J + 20*J^2 -
24*d*J^2 - 3*d^2*J^2 + d^3*J^2) + 576*(2 + d)*(128 - 72*d - 10*
d^2 + d^3 + d^4 - 48*J + 58*d*J - 17*d^2*J - 2*d^3*J + d^4*
J + 16*J^2 - 14*d*J^2 + d^2*J^2 + d^3*J^2)*x)*
pj[J, x, d, 5] + (-576*(2 + d)*(56 - 26*d - 17*d^2 + d^3 + d^4 -
6*J + 5*d*J - 4*d^2*J + d^3*J + 2*J^2 - d*J^2 + d^2*J^2) -
576*(2 + d)*(56 - 26*d - 17*d^2 + d^3 + d^4 - 6*J + 5*d*J - 4*
d^2*J + d^3*J + 2*J^2 - d*J^2 + d^2*J^2)*x)*pj[J, x, d, 6]),
m2^2*(-576*(-6 + d)*(-1 + d)*(2 + d)*(-3 + J)*(d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(-192*(2 + d)*(-384 - 144*d + 276*d^2 + 18*d^3 - 18*d^4 - 216*J +
246*d*J - 73*d^2*J + 17*d^3*J - 4*d^4*J + 126*J^2 - 139*d*
J^2 + 59*d^2*J^2 - 21*d^3*J^2 + 2*d^4*J^2 - 36*J^3 + 42*d*
J^3 - 22*d^2*J^3 + 4*d^3*J^3 + 6*J^4 - 5*d*J^4 + 2*d^2*J^4) +
96*(-6 + d)*(-1 + d)*(2 + d)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-288*(2 + d)*(-80 - 76*d + 100*d^2 + 9*d^3 - 7*
d^4 - 60*J + 92*d*J - 15*d^2*J - 6*d^3*J + d^4*J + 20*J^2 -
24*d*J^2 - 3*d^2*J^2 + d^3*J^2) + 576*(2 + d)*(128 - 72*d - 10*
d^2 + d^3 + d^4 - 48*J + 58*d*J - 17*d^2*J - 2*d^3*J + d^4*
J + 16*J^2 - 14*d*J^2 + d^2*J^2 + d^3*J^2)*x)*
pj[J, x, d, 5] + (-576*(2 + d)*(56 - 26*d - 17*d^2 + d^3 + d^4 -
6*J + 5*d*J - 4*d^2*J + d^3*J + 2*J^2 - d*J^2 + d^2*J^2) +
576*(2 + d)*(56 - 26*d - 17*d^2 + d^3 + d^4 - 6*J + 5*d*J - 4*
d^2*J + d^3*J + 2*J^2 - d*J^2 + d^2*J^2)*x)*pj[J, x, d, 6]),
m2^2*(-8*(-2 + J)*(-1 + d + J)*(864 - 1368*d + 1224*d^2 - 594*d^3 +
54*d^4 - 27*d^5 + 9*d^6 - 2376*J + 1740*d*J - 418*d^2*J +
649*d^3*J - 235*d^4*J - 17*d^5*J + 9*d^6*J + 1116*J^2 -
820*d*J^2 + 235*d^2*J^2 - 210*d^3*J^2 + d^4*J^2 + 10*d^5*J^2 -
216*J^3 + 264*d*J^3 - 46*d^2*J^3 - 12*d^3*J^3 + 2*d^4*J^3 +
36*J^4 - 32*d*J^4 - 3*d^2*J^4 + d^3*J^4)*pj[J, x, d, 2] +
8*(1728 - 2736*d + 2304*d^2 - 1296*d^3 + 252*d^4 - 9*d^5 -
36*d^6 + 9*d^7 - 5616*J + 4560*d*J - 2456*d^2*J + 2224*d^3*J -
319*d^4*J - 113*d^5*J - 17*d^6*J + 9*d^7*J + 4464*J^2 -
3848*d*J^2 + 1120*d^2*J^2 - 674*d^3*J^2 + 155*d^4*J^2 -
84*d^5*J^2 + 19*d^6*J^2 - 1728*J^3 + 1392*d*J^3 + 64*d^2*J^3 +
92*d^3*J^3 - 128*d^4*J^3 + 20*d^5*J^3 + 288*J^4 - 136*d*J^4 -
56*d^2*J^4 - 34*d^3*J^4 + 10*d^4*J^4)*x*pj[J, x, d, 3] -
72*(2 + d)*(192 + 96*d + 188*d^2 - 92*d^3 + 69*d^4 - 15*d^5 -
48*J + 220*d*J - 140*d^2*J + 93*d^3*J - 38*d^4*J + 5*d^5*J +
16*J^2 - 68*d*J^2 + 24*d^2*J^2 - 23*d^3*J^2 + 5*d^4*J^2)*
pj[J, x, d, 4] + 288*(-4 + d)*d*(2 + d)^2*(4 + d^2)*x*
pj[J, x, d, 5]), m2^2*(8*(-2 + d)^2*(3 + d)*(-1 + J)*(-2 + d + J)*
(144 - 36*d - 228*J + 64*d*J + d^2*J + d^3*J + 148*J^2 -
35*d*J^2 + 3*d^2*J^2 + d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 +
8*J^4 + d*J^4)*pj[J, x, d, 1] +
(-8*(-2 + d)*(-2 + J)*(-1 + d + J)*(432 - 180*d - 558*d^2 + 36*
d^3 - 9*d^4 + 9*d^5 + 252*J + 468*d*J + 257*d^2*J - 231*d^3*
J + d^4*J + 9*d^5*J - 138*J^2 - 139*d*J^2 - 150*d^2*J^2 + 23*
d^3*J^2 + 10*d^4*J^2 + 36*J^3 - 18*d*J^3 - 4*d^2*J^3 + 2*d^3*
J^3 - 6*J^4 + d*J^4 + d^2*J^4) - 8*(-2 + d)^2*(3 + d)*
(144 - 36*d - 372*J + 100*d*J + 2*d^2*J - d^3*J + d^4*J + 376*
J^2 - 97*d*J^2 - 3*d^2*J^2 + 2*d^3*J^2 + d^4*J^2 - 195*J^3 +
41*d*J^3 - d^2*J^3 + 3*d^3*J^3 + 55*J^4 - 11*d*J^4 + 4*d^2*
J^4 - 9*J^5 + 3*d*J^5 + J^6)*x)*pj[J, x, d, 2] +
(8*(-2 + d)*(-864 - 504*d - 612*d^2 + 378*d^3 + 495*d^4 + 81*d^5 -
54*d^6 + 504*J - 1044*d*J + 106*d^2*J + 353*d^3*J + 62*d^4*
J - 107*d^5*J + 18*d^6*J - 600*J^2 + 220*d*J^2 + 146*d^2*
J^2 + 25*d^3*J^2 - 125*d^4*J^2 + 28*d^5*J^2 + 288*J^3 + 144*d*
J^3 - 8*d^2*J^3 - 84*d^3*J^3 + 20*d^4*J^3 - 48*J^4 - 40*d*
J^4 - 12*d^2*J^4 + 10*d^3*J^4) + 8*(-2 + d)*(864 - 360*d -
1044*d^2 + 162*d^3 - 45*d^4 - 18*d^5 + 9*d^6 + 72*J + 1260*d*
J + 1330*d^2*J - 511*d^3*J - 109*d^4*J + d^5*J + 9*d^6*J -
456*J^2 - 500*d*J^2 - 502*d^2*J^2 + 97*d^3*J^2 - 44*d^4*J^2 +
19*d^5*J^2 + 288*J^3 + 144*d*J^3 - 8*d^2*J^3 - 84*d^3*J^3 + 20*
d^4*J^3 - 48*J^4 - 40*d*J^4 - 12*d^2*J^4 + 10*d^3*J^4)*x)*
pj[J, x, d, 3] + (-72*(-2 + d)*d*(2 + d)*(-40 - 2*d + 31*d^2 - 7*
d^3 + 18*J + 21*d*J - 18*d^2*J + 3*d^3*J - 6*J^2 - 9*d*J^2 +
3*d^2*J^2) - 72*(-2 + d)*d*(2 + d)*(24 - 18*d - d^2 - 7*d^3 +
2*d^4 + 18*J + 21*d*J - 18*d^2*J + 3*d^3*J - 6*J^2 - 9*d*J^2 +
3*d^2*J^2)*x)*pj[J, x, d, 4] +
(144*(-4 + d)*(-2 + d)*d*(2 + d)^3 + 144*(-4 + d)*(-2 + d)*d*
(2 + d)^3*x)*pj[J, x, d, 5]),
m2^2*(-1152*(2 + d)^2*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J - 5*d^2*J +
11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (-1152*(2 + d)^2*(80 + 48*d - 5*d^2 - 3*d^3 + 24*
J - 5*d*J - 4*d^2*J + d^3*J - 8*J^2 - d*J^2 + d^2*J^2) +
6912*(2 + d)^2*(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 5] +
(-1152*(2 + d)^2*(-24 - 18*d + 2*d^2 + d^3 - 6*J + 2*d*J + 2*
J^2) + 2304*(2 + d)^2*(-20 - 3*d + 2*d^2 + 3*J - d*J - J^2)*
x)*pj[J, x, d, 6] + (-2304*(-4 + d)*(2 + d)^3 -
2304*(-4 + d)*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-1728*(2 + d)*(-2 - 3*d + d^2)*(-3 + J)*(d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(-288*(2 + d)*(496 + 892*d + 290*d^2 - 112*d^3 - 6*d^4 + 300*J - 4*
d*J - 185*d^2*J + 84*d^3*J - 11*d^4*J - 154*J^2 - 77*d*J^2 +
126*d^2*J^2 - 38*d^3*J^2 + 3*d^4*J^2 + 36*J^3 + 42*d*J^3 - 36*
d^2*J^3 + 6*d^3*J^3 - 6*J^4 - 9*d*J^4 + 3*d^2*J^4) +
288*(2 + d)*(-2 - 3*d + d^2)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-288*(2 + d)*(816 + 980*d + 308*d^2 - 75*d^3 -
19*d^4 + 324*J + 156*d*J - 115*d^2*J - 6*d^3*J + 5*d^4*J - 108*
J^2 - 88*d*J^2 + 9*d^2*J^2 + 5*d^3*J^2) + 288*(2 + d)*
(-496 - 388*d + 100*d^2 - 5*d^3 + 3*d^4 + 204*J + 172*d*J - 125*
d^2*J + 6*d^3*J + 3*d^4*J - 68*J^2 - 80*d*J^2 + 15*d^2*J^2 +
3*d^3*J^2)*x)*pj[J, x, d, 5] +
(576*(2 + d)*(-16 - 36*d - 30*d^2 + 6*d^3 + d^4 - 12*J - 14*d*J +
12*d^2*J - 2*d^3*J + 4*J^2 + 6*d*J^2 - 2*d^2*J^2) +
576*(2 + d)*(-240 - 188*d + 6*d^2 + 10*d^3 + d^4 + 12*J + 14*d*
J - 12*d^2*J + 2*d^3*J - 4*J^2 - 6*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 6] + (-2304*(-4 + d)*(2 + d)^3 + 2304*(-4 + d)*
(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(1728*(2 + d)*(-2 - 3*d + d^2)*(-3 + J)*(d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(-288*(2 + d)*(496 + 892*d + 290*d^2 - 112*d^3 - 6*d^4 + 300*J - 4*
d*J - 185*d^2*J + 84*d^3*J - 11*d^4*J - 154*J^2 - 77*d*J^2 +
126*d^2*J^2 - 38*d^3*J^2 + 3*d^4*J^2 + 36*J^3 + 42*d*J^3 - 36*
d^2*J^3 + 6*d^3*J^3 - 6*J^4 - 9*d*J^4 + 3*d^2*J^4) -
288*(2 + d)*(-2 - 3*d + d^2)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (288*(2 + d)*(816 + 980*d + 308*d^2 - 75*d^3 -
19*d^4 + 324*J + 156*d*J - 115*d^2*J - 6*d^3*J + 5*d^4*J - 108*
J^2 - 88*d*J^2 + 9*d^2*J^2 + 5*d^3*J^2) + 288*(2 + d)*
(-496 - 388*d + 100*d^2 - 5*d^3 + 3*d^4 + 204*J + 172*d*J - 125*
d^2*J + 6*d^3*J + 3*d^4*J - 68*J^2 - 80*d*J^2 + 15*d^2*J^2 +
3*d^3*J^2)*x)*pj[J, x, d, 5] +
(576*(2 + d)*(-16 - 36*d - 30*d^2 + 6*d^3 + d^4 - 12*J - 14*d*J +
12*d^2*J - 2*d^3*J + 4*J^2 + 6*d*J^2 - 2*d^2*J^2) -
576*(2 + d)*(-240 - 188*d + 6*d^2 + 10*d^3 + d^4 + 12*J + 14*d*
J - 12*d^2*J + 2*d^3*J - 4*J^2 - 6*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 6] + (2304*(-4 + d)*(2 + d)^3 + 2304*(-4 + d)*
(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-1152*(2 + d)^2*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J - 5*d^2*J +
11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (1152*(2 + d)^2*(80 + 48*d - 5*d^2 - 3*d^3 + 24*
J - 5*d*J - 4*d^2*J + d^3*J - 8*J^2 - d*J^2 + d^2*J^2) +
6912*(2 + d)^2*(4 - d - 3*J + d*J + J^2)*x)*pj[J, x, d, 5] +
(-1152*(2 + d)^2*(-24 - 18*d + 2*d^2 + d^3 - 6*J + 2*d*J + 2*
J^2) - 2304*(2 + d)^2*(-20 - 3*d + 2*d^2 + 3*J - d*J - J^2)*
x)*pj[J, x, d, 6] + (2304*(-4 + d)*(2 + d)^3 -
2304*(-4 + d)*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-8*(-2 + d)^2*(3 + d)*(-1 + J)*(-2 + d + J)*
(144 - 36*d - 228*J + 64*d*J + d^2*J + d^3*J + 148*J^2 -
35*d*J^2 + 3*d^2*J^2 + d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 +
8*J^4 + d*J^4)*pj[J, x, d, 1] +
(-8*(-2 + d)*(-2 + J)*(-1 + d + J)*(432 - 180*d - 558*d^2 + 36*
d^3 - 9*d^4 + 9*d^5 + 252*J + 468*d*J + 257*d^2*J - 231*d^3*
J + d^4*J + 9*d^5*J - 138*J^2 - 139*d*J^2 - 150*d^2*J^2 + 23*
d^3*J^2 + 10*d^4*J^2 + 36*J^3 - 18*d*J^3 - 4*d^2*J^3 + 2*d^3*
J^3 - 6*J^4 + d*J^4 + d^2*J^4) + 8*(-2 + d)^2*(3 + d)*
(144 - 36*d - 372*J + 100*d*J + 2*d^2*J - d^3*J + d^4*J + 376*
J^2 - 97*d*J^2 - 3*d^2*J^2 + 2*d^3*J^2 + d^4*J^2 - 195*J^3 +
41*d*J^3 - d^2*J^3 + 3*d^3*J^3 + 55*J^4 - 11*d*J^4 + 4*d^2*
J^4 - 9*J^5 + 3*d*J^5 + J^6)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*(-864 - 504*d - 612*d^2 + 378*d^3 + 495*d^4 + 81*
d^5 - 54*d^6 + 504*J - 1044*d*J + 106*d^2*J + 353*d^3*J + 62*
d^4*J - 107*d^5*J + 18*d^6*J - 600*J^2 + 220*d*J^2 + 146*d^2*
J^2 + 25*d^3*J^2 - 125*d^4*J^2 + 28*d^5*J^2 + 288*J^3 + 144*d*
J^3 - 8*d^2*J^3 - 84*d^3*J^3 + 20*d^4*J^3 - 48*J^4 - 40*d*
J^4 - 12*d^2*J^4 + 10*d^3*J^4) + 8*(-2 + d)*(864 - 360*d -
1044*d^2 + 162*d^3 - 45*d^4 - 18*d^5 + 9*d^6 + 72*J + 1260*d*
J + 1330*d^2*J - 511*d^3*J - 109*d^4*J + d^5*J + 9*d^6*J -
456*J^2 - 500*d*J^2 - 502*d^2*J^2 + 97*d^3*J^2 - 44*d^4*J^2 +
19*d^5*J^2 + 288*J^3 + 144*d*J^3 - 8*d^2*J^3 - 84*d^3*J^3 + 20*
d^4*J^3 - 48*J^4 - 40*d*J^4 - 12*d^2*J^4 + 10*d^3*J^4)*x)*
pj[J, x, d, 3] + (-72*(-2 + d)*d*(2 + d)*(-40 - 2*d + 31*d^2 - 7*
d^3 + 18*J + 21*d*J - 18*d^2*J + 3*d^3*J - 6*J^2 - 9*d*J^2 +
3*d^2*J^2) + 72*(-2 + d)*d*(2 + d)*(24 - 18*d - d^2 - 7*d^3 +
2*d^4 + 18*J + 21*d*J - 18*d^2*J + 3*d^3*J - 6*J^2 - 9*d*J^2 +
3*d^2*J^2)*x)*pj[J, x, d, 4] +
(-144*(-4 + d)*(-2 + d)*d*(2 + d)^3 + 144*(-4 + d)*(-2 + d)*d*
(2 + d)^3*x)*pj[J, x, d, 5]),
m2^2*(-32*(-9 + d)*(-2 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-1152*(2 + d)*(6 - 3*d + d^2)*(-3 + J)*(d + J)*(4 - d - 3*J + d*
J + J^2) + 32*(-9 + d)*(-2 + d)*(2 + d)*(144 - 36*d - 228*
J + 64*d*J + d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 +
d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x)*
pj[J, x, d, 3] + (64*(2 + d)*(-1296 - 108*d + 216*d^2 + 441*d^3 +
27*d^4 - 36*d^5 + 180*J - 612*d*J + 361*d^2*J - 26*d^3*J - 38*
d^4*J + 9*d^5*J - 168*J^2 + 220*d*J^2 - 65*d^2*J^2 - 3*d^3*
J^2 + 7*d^4*J^2 + 72*J^3 + 4*d^2*J^3 - 4*d^3*J^3 - 12*J^4 - 4*
d*J^4 - 2*d^2*J^4) + 192*(2 + d)*(6 - 3*d + d^2)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(576*(2 + d)*(112 + 260*d + 68*d^2 - 7*d^3 - 7*d^4 + 84*J - 4*d*
J + d^2*J - 6*d^3*J + d^4*J - 28*J^2 - 8*d*J^2 - 3*d^2*J^2 +
d^3*J^2) - 576*d*(2 + d)*(24 - 18*d - 9*d^2 - d^3 + d^4 + 18*
J + 9*d*J - 8*d^2*J + d^3*J - 6*J^2 - 5*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 5] + (1152*(-4 + d)*d*(2 + d)^3 - 1152*(-4 + d)*
(2 + d)^2*(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-32*(-9 + d)*(-2 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(1152*(2 + d)*(6 - 3*d + d^2)*(-3 + J)*(d + J)*(4 - d - 3*J + d*
J + J^2) + 32*(-9 + d)*(-2 + d)*(2 + d)*(144 - 36*d - 228*
J + 64*d*J + d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 +
d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x)*
pj[J, x, d, 3] + (64*(2 + d)*(-1296 - 108*d + 216*d^2 + 441*d^3 +
27*d^4 - 36*d^5 + 180*J - 612*d*J + 361*d^2*J - 26*d^3*J - 38*
d^4*J + 9*d^5*J - 168*J^2 + 220*d*J^2 - 65*d^2*J^2 - 3*d^3*
J^2 + 7*d^4*J^2 + 72*J^3 + 4*d^2*J^3 - 4*d^3*J^3 - 12*J^4 - 4*
d*J^4 - 2*d^2*J^4) - 192*(2 + d)*(6 - 3*d + d^2)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-576*(2 + d)*(112 + 260*d + 68*d^2 - 7*d^3 - 7*d^4 + 84*J - 4*d*
J + d^2*J - 6*d^3*J + d^4*J - 28*J^2 - 8*d*J^2 - 3*d^2*J^2 +
d^3*J^2) - 576*d*(2 + d)*(24 - 18*d - 9*d^2 - d^3 + d^4 + 18*
J + 9*d*J - 8*d^2*J + d^3*J - 6*J^2 - 5*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 5] + (1152*(-4 + d)*d*(2 + d)^3 + 1152*(-4 + d)*
(2 + d)^2*(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(32*(-3 + d)*(2 + d)*(2 + 3*d)*(-2 + J)*(-1 + d + J)*
(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] - 32*(-3 + d)*(2 + d)*
(2 + 3*d)*(144 - 36*d - 228*J + 64*d*J + d^2*J + d^3*J +
148*J^2 - 35*d*J^2 + 3*d^2*J^2 + d^3*J^2 - 48*J^3 + 10*d*J^3 +
2*d^2*J^3 + 8*J^4 + d*J^4)*x*pj[J, x, d, 3] -
64*(2 + d)*(-2016 - 4320*d - 3150*d^2 - 315*d^3 + 351*d^4 -
1584*J - 1296*d*J + 224*d^2*J + 464*d^3*J - 112*d^4*J +
798*J^2 + 383*d*J^2 + 233*d^2*J^2 - 147*d^3*J^2 + 5*d^4*J^2 -
180*J^3 + 90*d*J^3 - 40*d^2*J^3 + 10*d^3*J^3 + 30*J^4 -
5*d*J^4 + 5*d^2*J^4)*pj[J, x, d, 4] - 1152*(2 + d)*
(-136 - 146*d - 43*d^2 + 18*d^3 + d^4 + 42*J + 7*d*J + 5*d^2*J -
7*d^3*J + d^4*J - 14*J^2 - 7*d*J^2 - 4*d^2*J^2 + d^3*J^2)*x*
pj[J, x, d, 5] + 2304*(-4 + d)*(2 + d)^2*(4 + 2*d + d^2)*
pj[J, x, d, 6]), m2^2*(192*(2 + d)*(-3 + J)*(d + J)*
(48 + 116*d - 172*d^2 + 23*d^3 + 3*d^4 + 180*J - 108*d*J +
55*d^2*J - 22*d^3*J + 3*d^4*J - 60*J^2 + 16*d*J^2 - 13*d^2*J^2 +
3*d^3*J^2)*pj[J, x, d, 3] + (192*(2 + d)*(-816 - 1356*d - 618*
d^2 - 12*d^3 + 66*d^4 - 540*J - 132*d*J + 101*d^2*J + 82*d^3*
J - 27*d^4*J + 234*J^2 + 77*d*J^2 + 28*d^2*J^2 - 44*d^3*J^2 +
3*d^4*J^2 - 36*J^3 + 6*d*J^3 - 16*d^2*J^3 + 6*d^3*J^3 + 6*
J^4 + d*J^4 + 3*d^2*J^4) - 64*(2 + d)*(432 + 1116*d - 1458*
d^2 + 180*d^3 - 9*d^4 + 9*d^5 + 1548*J - 1044*d*J + 989*d^2*
J - 349*d^3*J - d^4*J + 9*d^5*J - 894*J^2 + 545*d*J^2 - 400*
d^2*J^2 + 45*d^3*J^2 + 8*d^4*J^2 + 252*J^3 - 162*d*J^3 + 32*
d^2*J^3 - 2*d^3*J^3 - 42*J^4 + 13*d*J^4 - d^2*J^4)*x)*
pj[J, x, d, 4] + (576*(2 + d)*(112 + 276*d + 88*d^2 + 11*d^3 - 13*
d^4 + 84*J + 8*d*J + 15*d^2*J - 18*d^3*J + 3*d^4*J - 28*J^2 -
12*d*J^2 - 9*d^2*J^2 + 3*d^3*J^2) + 576*(2 + d)*
(-272 - 188*d - 36*d^2 + 21*d^3 + d^4 + 84*J + 20*d*J + 5*d^2*
J - 10*d^3*J + d^4*J - 28*J^2 - 16*d*J^2 - 7*d^2*J^2 + d^3*
J^2)*x)*pj[J, x, d, 5] + (-2304*(-4 + d)*(2 + d)^2*
(4 + 2*d + d^2) - 2304*(-4 + d)*(2 + d)^2*(4 + 2*d + d^2)*x)*
pj[J, x, d, 6]), m2^2*(-192*(2 + d)*(-3 + J)*(d + J)*
(48 + 116*d - 172*d^2 + 23*d^3 + 3*d^4 + 180*J - 108*d*J +
55*d^2*J - 22*d^3*J + 3*d^4*J - 60*J^2 + 16*d*J^2 - 13*d^2*J^2 +
3*d^3*J^2)*pj[J, x, d, 3] + (192*(2 + d)*(-816 - 1356*d - 618*
d^2 - 12*d^3 + 66*d^4 - 540*J - 132*d*J + 101*d^2*J + 82*d^3*
J - 27*d^4*J + 234*J^2 + 77*d*J^2 + 28*d^2*J^2 - 44*d^3*J^2 +
3*d^4*J^2 - 36*J^3 + 6*d*J^3 - 16*d^2*J^3 + 6*d^3*J^3 + 6*
J^4 + d*J^4 + 3*d^2*J^4) + 64*(2 + d)*(432 + 1116*d - 1458*
d^2 + 180*d^3 - 9*d^4 + 9*d^5 + 1548*J - 1044*d*J + 989*d^2*
J - 349*d^3*J - d^4*J + 9*d^5*J - 894*J^2 + 545*d*J^2 - 400*
d^2*J^2 + 45*d^3*J^2 + 8*d^4*J^2 + 252*J^3 - 162*d*J^3 + 32*
d^2*J^3 - 2*d^3*J^3 - 42*J^4 + 13*d*J^4 - d^2*J^4)*x)*
pj[J, x, d, 4] + (-576*(2 + d)*(112 + 276*d + 88*d^2 + 11*d^3 -
13*d^4 + 84*J + 8*d*J + 15*d^2*J - 18*d^3*J + 3*d^4*J - 28*
J^2 - 12*d*J^2 - 9*d^2*J^2 + 3*d^3*J^2) + 576*(2 + d)*
(-272 - 188*d - 36*d^2 + 21*d^3 + d^4 + 84*J + 20*d*J + 5*d^2*
J - 10*d^3*J + d^4*J - 28*J^2 - 16*d*J^2 - 7*d^2*J^2 + d^3*
J^2)*x)*pj[J, x, d, 5] + (-2304*(-4 + d)*(2 + d)^2*
(4 + 2*d + d^2) + 2304*(-4 + d)*(2 + d)^2*(4 + 2*d + d^2)*x)*
pj[J, x, d, 6]), m2^2*(64*(-9 + d)*(-2 + d)*(2 + d)*(-2 + J)*
(-1 + d + J)*(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 -
5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] -
64*(-9 + d)*(-2 + d)*(2 + d)*(144 - 36*d - 228*J + 64*d*J +
d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 + d^3*J^2 -
48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x*
pj[J, x, d, 3] - 128*(2 + d)*(-1296 - 396*d - 144*d^2 + 405*d^3 +
63*d^4 - 36*d^5 + 180*J - 684*d*J + 529*d^2*J + 16*d^3*J -
68*d^4*J + 9*d^5*J - 168*J^2 + 352*d*J^2 - 131*d^2*J^2 -
57*d^3*J^2 + 13*d^4*J^2 + 72*J^3 - 72*d*J^3 - 8*d^2*J^3 +
8*d^3*J^3 - 12*J^4 + 8*d*J^4 + 4*d^2*J^4)*pj[J, x, d, 4] +
1152*d*(2 + d)*(56 - 10*d - 13*d^2 - d^3 + d^4 - 6*J + 5*d*J -
4*d^2*J + d^3*J + 2*J^2 - d*J^2 + d^2*J^2)*x*pj[J, x, d, 5]),
m2*(1152*(-2 + d)*(2 + d)*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J -
5*d^2*J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (1152*(-2 + d)*(2 + d)*(80 + 48*d - 5*d^2 - 3*
d^3 + 24*J - 5*d*J - 4*d^2*J + d^3*J - 8*J^2 - d*J^2 + d^2*
J^2) - 6912*(-2 + d)*(2 + d)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (1152*(-2 + d)*(2 + d)*(-24 - 18*d + 2*d^2 + d^
3 - 6*J + 2*d*J + 2*J^2) - 2304*(-2 + d)*(2 + d)*
(-20 - 3*d + 2*d^2 + 3*J - d*J - J^2)*x)*pj[J, x, d, 6] +
(2304*(-4 + d)*(-2 + d)*(2 + d)^2 + 2304*(-4 + d)*(-2 + d)*
(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(1152*(-2 + d)*(2 + d)*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J -
5*d^2*J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (-1152*(-2 + d)*(2 + d)*(80 + 48*d - 5*d^2 - 3*
d^3 + 24*J - 5*d*J - 4*d^2*J + d^3*J - 8*J^2 - d*J^2 + d^2*
J^2) - 6912*(-2 + d)*(2 + d)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (1152*(-2 + d)*(2 + d)*(-24 - 18*d + 2*d^2 + d^
3 - 6*J + 2*d*J + 2*J^2) + 2304*(-2 + d)*(2 + d)*
(-20 - 3*d + 2*d^2 + 3*J - d*J - J^2)*x)*pj[J, x, d, 6] +
(-2304*(-4 + d)*(-2 + d)*(2 + d)^2 + 2304*(-4 + d)*(-2 + d)*
(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(-96*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(72 - 18*d - 78*J +
23*d*J + d^2*J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 +
J^4)*pj[J, x, d, 2] + 96*(-2 + d)^2*(144 - 36*d - 228*J +
64*d*J + d^2*J + d^3*J + 148*J^2 - 35*d*J^2 + 3*d^2*J^2 +
d^3*J^2 - 48*J^3 + 10*d*J^3 + 2*d^2*J^3 + 8*J^4 + d*J^4)*x*
pj[J, x, d, 3] - 288*(-2 + d)^2*(2 + d)*(24 + 10*d + 12*d^2 -
4*d^3 - 6*J + 14*d*J - 7*d^2*J + d^3*J + 2*J^2 - 4*d*J^2 +
d^2*J^2)*pj[J, x, d, 4] + 288*(-4 + d)*(-2 + d)^2*d*(2 + d)^2*x*
pj[J, x, d, 5]), m2*(2304*(-5 + d)*(-2 + d)*(2 + d)*(-3 + J)*
(d + J)*(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(768*(-2 + d)*d*(2 + d)*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J - 5*d^2*
J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4) -
384*(-5 + d)*(-2 + d)*(2 + d)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-1152*(-2 + d)*(2 + d)*(120 + 54*d + 7*d^2 - 7*
d^3 - 6*J + 17*d*J - 8*d^2*J + d^3*J + 2*J^2 - 5*d*J^2 + d^2*
J^2) - 4608*(-2 + d)*d*(2 + d)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (-2304*(-4 + d)*(-2 + d)*d*(2 + d)^2 +
2304*(-4 + d)*(-2 + d)*d*(2 + d)^2*x)*pj[J, x, d, 6]),
m2*(-2304*(-5 + d)*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*
(4 - d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(768*(-2 + d)*d*(2 + d)*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J - 5*d^2*
J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4) +
384*(-5 + d)*(-2 + d)*(2 + d)*(72 - 18*d - 78*J + 23*d*J + d^2*
J + 35*J^2 - 5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (1152*(-2 + d)*(2 + d)*(120 + 54*d + 7*d^2 - 7*
d^3 - 6*J + 17*d*J - 8*d^2*J + d^3*J + 2*J^2 - 5*d*J^2 + d^2*
J^2) - 4608*(-2 + d)*d*(2 + d)*(4 - d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (-2304*(-4 + d)*(-2 + d)*d*(2 + d)^2 -
2304*(-4 + d)*(-2 + d)*d*(2 + d)^2*x)*pj[J, x, d, 6]),
m2*(-384*(-2 + d)*(2 + d)*(-216 - 426*d - 144*d^2 + 66*d^3 - 222*J -
91*d*J + 136*d^2*J - 27*d^3*J + 29*J^2 + 112*d*J^2 -
50*d^2*J^2 + 3*d^3*J^2 + 30*J^3 - 28*d*J^3 + 6*d^2*J^3 - 5*J^4 +
3*d*J^4)*pj[J, x, d, 4] - 1152*(-2 + d)*(2 + d)*
(-72 - 74*d + 19*d^2 + d^3 - 6*J + 29*d*J - 12*d^2*J + d^3*J +
2*J^2 - 9*d*J^2 + d^2*J^2)*x*pj[J, x, d, 5] +
4608*(-4 + d)*(-2 + d)*d*(2 + d)^2*pj[J, x, d, 6]),
-768*(-4 + d)*(-2 + d)*(2 + d)*(-24 - 18*d + 6*d^2 - 6*J + 17*d*J -
5*d^2*J + 11*J^2 - 11*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + 4608*(-4 + d)*(-2 + d)*(2 + d)*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 5] + 2304*(-4 + d)^2*
(-2 + d)*(2 + d)^2*pj[J, x, d, 6]}}}], exchange[{4 + 2*m, 3},
{GGGG[d], s, 1 + (2*t)/s},
{{1/(12*(-1 + d)*(-1 + J)*J*(1 + J)*(-4 + d + J)*(-3 + d + J)*
(-2 + d + J)*m2^5)}},
{{{0, 0, 0, m2*(3*(-4 + d)*(-1 + J)*J*(-3 + d + J)*(-2 + d + J)*
(-2 - 3*J + d*J + J^2)*pj[J, x, d, 0] - 3*(-4 + d)*(-2 + d)*
(-1 + J)*J*(-3 + d + J)*(-2 + d + J)*x*pj[J, x, d, 1] +
(-4 + d)*(-2 + d)*(8 - 2*d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*
pj[J, x, d, 2] - (-4 + d)*(-2 + d)^2*d*x*pj[J, x, d, 3]),
m2*(4*(-4 + 3*d)*(-2 + J)*(-1 + d + J)*(-2 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-8*(8*d - 6*d^2 + d^3 + 12*J - 10*d*J - d^2*
J + d^3*J - 4*J^2 + 2*d*J^2 + d^2*J^2) - 8*(-2 + d)*
(-4 + 3*d)*x)*pj[J, x, d, 3] +
(-4*(-16 + 4*d + d^3 - 24*J + 26*d*J - 6*d^2*J + 8*J^2 - 6*d*
J^2) - 8*(8 - 6*d + d^2 + 12*J - 13*d*J + 3*d^2*J - 4*J^2 + 3*
d*J^2)*x)*pj[J, x, d, 4] + (8*(-2 + d)*d - 8*(-2 + d)*d*x)*
pj[J, x, d, 5]), m2*(4*(-4 + 3*d)*(-2 + J)*(-1 + d + J)*
(-2 + d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(8*d - 6*d^2 + d^3 + 12*J - 10*d*J - d^2*J + d^3*J - 4*J^2 + 2*
d*J^2 + d^2*J^2) - 8*(-2 + d)*(-4 + 3*d)*x)*pj[J, x, d, 3] +
(-4*(-16 + 4*d + d^3 - 24*J + 26*d*J - 6*d^2*J + 8*J^2 - 6*d*
J^2) + 8*(8 - 6*d + d^2 + 12*J - 13*d*J + 3*d^2*J - 4*J^2 + 3*
d*J^2)*x)*pj[J, x, d, 4] + (-8*(-2 + d)*d - 8*(-2 + d)*d*x)*
pj[J, x, d, 5]), 0, m2*(-16*(-4 + 3*d)*(-2*d + d^2 - 6*J - d*J +
d^2*J + 2*J^2 + d*J^2)*pj[J, x, d, 3] +
(-32*(-2 - d + d^2 + 9*J - 9*d*J + 2*d^2*J - 3*J^2 + 2*d*J^2) -
16*(-4 + 3*d)*(-2 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(-2 + d)*(8 + d) - 32*(-2 + d)*x)*pj[J, x, d, 5] +
(-32*(-2 + d) - 32*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(16*(-4 + 3*d)*(-2*d + d^2 - 6*J - d*J + d^2*J + 2*J^2 + d*J^2)*
pj[J, x, d, 3] + (-32*(-2 - d + d^2 + 9*J - 9*d*J + 2*d^2*J - 3*
J^2 + 2*d*J^2) + 16*(-4 + 3*d)*(-2 + d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (16*(-2 + d)*(8 + d) - 32*(-2 + d)*x)*
pj[J, x, d, 5] + (-32*(-2 + d) + 32*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(4*(-2 + J)*(-1 + d + J)*(20 - 28*d + 9*d^2 - 6*J - 7*d*J +
3*d^2*J + 2*J^2 + 3*d*J^2)*pj[J, x, d, 2] +
8*(-2 + d)*(10 - 9*d - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 3] - 4*(-2 + d)*(8 - 6*d + 5*d^2)*pj[J, x, d, 4]),
m2*(24*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-12*(-2 + d)*(-2 + J)*(-1 + J)*(-2 + d + J)*(-1 + d + J) -
12*(-2 + d)*(-1 + J)*(-2 + d + J)*(-2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (8*(-2 + d)*(10 + 5*d - 5*d^2 - 12*J + d*J + d^2*
J + 4*J^2 + d*J^2) + 8*(-2 + d)*(6 - 3*d - 12*J + d*J + d^2*
J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 3] +
(-12*(-2 + d)^2*d - 12*(-2 + d)^2*d*x)*pj[J, x, d, 4]), 0,
m2*(16*(-2 + d)*(-2*d + d^2 - 6*J - d*J + d^2*J + 2*J^2 + d*J^2)*
pj[J, x, d, 3] + (-16*(-2 + d)*(-2 - d + d^2 - 9*J + 3*d*J + 3*
J^2) + 16*(-2 + d)*(-2 + d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (16*(-2 + d)*(10 + 3*d) - 16*(-2 + d)^2*x)*
pj[J, x, d, 5] + (-64*(-2 + d) + 64*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(-16*(-2 + d)*(-2*d + d^2 - 6*J - d*J + d^2*J + 2*J^2 + d*J^2)*
pj[J, x, d, 3] + (-16*(-2 + d)*(-2 - d + d^2 - 9*J + 3*d*J + 3*
J^2) - 16*(-2 + d)*(-2 + d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-16*(-2 + d)*(10 + 3*d) - 16*(-2 + d)^2*x)*
pj[J, x, d, 5] + (-64*(-2 + d) - 64*(-2 + d)*x)*pj[J, x, d, 6]),
0, m2*(-24*(-2 + d)^2*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-12*(-2 + d)*(-2 + J)*(-1 + J)*(-2 + d + J)*(-1 + d + J) +
12*(-2 + d)*(-1 + J)*(-2 + d + J)*(-2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (-8*(-2 + d)*(10 + 5*d - 5*d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2) + 8*(-2 + d)*(6 - 3*d - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 3] +
(-12*(-2 + d)^2*d + 12*(-2 + d)^2*d*x)*pj[J, x, d, 4]),
m2*(96*(-2 + J)*(-1 + d + J)*(-2 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (32*(-2 + 3*d)*(-2*d + d^2 - 6*J - d*J + d^2*
J + 2*J^2 + d*J^2) - 192*(-2 + d)*x)*pj[J, x, d, 3] +
(-32*(-4 - 8*d + 5*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2) +
32*(-2 + 3*d)*(-2 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(-2 + d)*(2 + d) - 32*(-2 + d)*d*x)*pj[J, x, d, 5]),
m2*(96*(-2 + J)*(-1 + d + J)*(-2 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-32*(-2 + 3*d)*(-2*d + d^2 - 6*J - d*J + d^2*
J + 2*J^2 + d*J^2) - 192*(-2 + d)*x)*pj[J, x, d, 3] +
(-32*(-4 - 8*d + 5*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2) -
32*(-2 + 3*d)*(-2 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-32*(-2 + d)*(2 + d) - 32*(-2 + d)*d*x)*pj[J, x, d, 5]),
m2*(-32*(-1 + d)*(-2 + J)*(-1 + d + J)*(-2 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 64*(-2 + d)*(-1 + d)*x*pj[J, x, d, 3] -
64*(-4*d + d^3 + 9*J - 9*d*J + 2*d^2*J - 3*J^2 + 2*d*J^2)*
pj[J, x, d, 4] - 64*(-2 + d)*(1 + d)*x*pj[J, x, d, 5]),
m2*(32*(4*d - 12*d^2 + 5*d^3 + 36*J - 12*d*J - 15*d^2*J + 5*d^3*J -
12*J^2 + 5*d^2*J^2)*pj[J, x, d, 3] +
(32*(-4 - 4*d + d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*
J^2) + 32*(-2 + d)*(-2 + 5*d - 15*J + 5*d*J + 5*J^2)*x)*
pj[J, x, d, 4] + (32*(-2 + d)*(2 + 3*d) + 32*(-2 + d)*(2 + d)*x)*
pj[J, x, d, 5]), m2*(-32*(4*d - 12*d^2 + 5*d^3 + 36*J - 12*d*J -
15*d^2*J + 5*d^3*J - 12*J^2 + 5*d^2*J^2)*pj[J, x, d, 3] +
(32*(-4 - 4*d + d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*
J^2) - 32*(-2 + d)*(-2 + 5*d - 15*J + 5*d*J + 5*J^2)*x)*
pj[J, x, d, 4] + (-32*(-2 + d)*(2 + 3*d) + 32*(-2 + d)*(2 + d)*x)*
pj[J, x, d, 5]), m2*(-192*(-2 + J)*(-1 + d + J)*
(-2 + d - 3*J + d*J + J^2)*pj[J, x, d, 2] + 384*(-2 + d)*x*
pj[J, x, d, 3] + 64*(-4 - 8*d + 5*d^2 + 12*J - 7*d*J + d^2*J -
4*J^2 + d*J^2)*pj[J, x, d, 4] + 64*(-2 + d)*d*x*pj[J, x, d, 5]),
0, 0, 48*(-2 + d)*(-2 + J)*(-1 + d + J)*(-2 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] - 96*(-2 + d)^2*x*pj[J, x, d, 3] -
16*(-2 + d)^3*pj[J, x, d, 4], -192*(-2 + d)*(-2*d + d^2 - 6*J -
d*J + d^2*J + 2*J^2 + d*J^2)*pj[J, x, d, 3] -
192*(-2 + d)*(-2 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
64*(-2 + d)^2*pj[J, x, d, 5], 192*(-2 + d)*(-2*d + d^2 - 6*J -
d*J + d^2*J + 2*J^2 + d*J^2)*pj[J, x, d, 3] +
192*(-2 + d)*(-2 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*(-2 + d)^2*pj[J, x, d, 5], -64*(-2 + d)*(-2 - d + d^2 - 9*J +
3*d*J + 3*J^2)*pj[J, x, d, 4] - 64*(-2 + d)^2*x*pj[J, x, d, 5],
0}}}], exchange[{4 + 2*m, 4}, {GGGG[d], s, 1 + (2*t)/s},
{{1/(48*(-1 + d)*(1 + d)*(-2 + J)*(-1 + J)*J*(1 + J)*(-4 + d + J)*
(-3 + d + J)*(-2 + d + J)*(-1 + d + J)*m2^6)}},
{{{m2^3*(-256*(-1 + d)*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] -
256*(-1 + d)*(-2 + J)*(-1 + d + J)*(-24 + 18*d - 3*d^2 + 18*J -
9*d*J + d^2*J - 6*J^2 + d*J^2)*x*pj[J, x, d, 3] +
1536*(-2 + d)*(4 + 11*d - 3*d^2 + 9*J - 6*d*J + d^2*J - 3*J^2 +
d*J^2)*pj[J, x, d, 4] - 3072*(-4 + d)*(-2 + d)*x*
pj[J, x, d, 5]), m2^2*(48*(-4 + d)*(-2 + d)*(-8 + 6*d + 7*d^2 -
6*d^3 + d^4 + 6*J + 16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 -
12*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(192*(-4 + d)*(-2 + d)*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*
d^2*J - J^2 + 2*d*J^2) + 48*(-4 + d)*(-2 + d)^2*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(48*(-4 + d)*(-2 + d)*(-88 - 14*d + 9*d^2 - 24*J + 8*d*J + 8*
J^2) + 192*(-4 + d)*(-2 + d)*(8 - 6*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 6] + (192*(-4 + d)*(-2 + d)*(2 + 3*d) +
384*(-4 + d)^2*(-2 + d)*x)*pj[J, x, d, 7] +
(384*(-4 + d)*(-2 + d) + 384*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 8]),
m2^2*(48*(-4 + d)*(-2 + d)*(-8 + 6*d + 7*d^2 - 6*d^3 + d^4 + 6*J +
16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*J^2 + 4*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-192*(-4 + d)*(-2 + d)*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*
d^2*J - J^2 + 2*d*J^2) + 48*(-4 + d)*(-2 + d)^2*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(48*(-4 + d)*(-2 + d)*(-88 - 14*d + 9*d^2 - 24*J + 8*d*J + 8*
J^2) - 192*(-4 + d)*(-2 + d)*(8 - 6*d + d^2 - 3*J + d*J + J^
2)*x)*pj[J, x, d, 6] + (-192*(-4 + d)*(-2 + d)*(2 + 3*d) +
384*(-4 + d)^2*(-2 + d)*x)*pj[J, x, d, 7] +
(384*(-4 + d)*(-2 + d) - 384*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 8]),
m2^2*(3*(-4 + d)*(-2 + d)*(-2 + J)*(-1 + J)*J*(-3 + d + J)*
(-2 + d + J)*(-1 + d + J)*(12 - 3*d - 3*J + d*J + J^2)*
pj[J, x, d, 0] - 12*(-4 + d)*(-2 + d)*(-2 + J)*(-1 + J)*J*
(-3 + d + J)*(-2 + d + J)*(-1 + d + J)*x*pj[J, x, d, 1] +
2*(-4 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*(-24*d + 18*d^2 -
3*d^3 - 36*J + 18*d*J - 5*d^2*J + d^3*J + 12*J^2 - 2*d*J^2 +
d^2*J^2)*pj[J, x, d, 2] - 12*(-4 + d)*(-2 + d)^2*d*
(4 - d - 3*J + d*J + J^2)*x*pj[J, x, d, 3] +
3*(-4 + d)^2*(-2 + d)^2*d*(2 + d)*pj[J, x, d, 4]),
m2^2*(8*(-12 + 2*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J +
23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 2] + (-16*(-2 + d)*(-3 + J)*(d + J)*(48 - 44*d + 8*
d^2 + 36*J - 9*d*J - 10*d^2*J + 3*d^3*J - 12*J^2 - d*J^2 + 3*
d^2*J^2) + 8*(-12 + 2*d + 3*d^2)*(-2 + J)*(-1 + d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (8*(-576 + 432*d - 72*d^2 - 24*d^3 + 42*d^4 - 21*
d^5 + 3*d^6 + 144*J - 288*d*J - 4*d^2*J + 136*d^3*J - 45*d^4*
J + 3*d^5*J - 264*J^2 + 260*d*J^2 + 34*d^2*J^2 - 68*d^3*J^2 +
9*d^4*J^2 + 144*J^3 - 72*d*J^3 - 28*d^2*J^3 + 12*d^3*J^3 - 24*
J^4 + 4*d*J^4 + 6*d^2*J^4) - 16*(288 - 408*d + 180*d^2 - 24*
d^3 + 72*J - 86*d^2*J + 53*d^3*J - 9*d^4*J - 132*J^2 + 82*d*
J^2 + 29*d^2*J^2 - 25*d^3*J^2 + 3*d^4*J^2 + 72*J^3 - 36*d*
J^3 - 14*d^2*J^3 + 6*d^3*J^3 - 12*J^4 + 2*d*J^4 + 3*d^2*J^4)*
x)*pj[J, x, d, 4] + (-48*(-2 + d)*d*(-16 - 8*d - d^2 + d^3 + 6*
J - 2*d*J - 2*J^2) + 24*(-2 + d)*d*(16 + 4*d - 6*d^2 + d^3 +
12*J - 4*d*J - 4*J^2)*x)*pj[J, x, d, 5] +
(48*(-4 + d)*(-2 + d)*d*(2 + d) - 48*(-4 + d)*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 6]), m2^2*(8*(-12 + 2*d + 3*d^2)*(-2 + J)*
(-1 + d + J)*(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J -
13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] + (16*(-2 + d)*(-3 + J)*(d + J)*
(48 - 44*d + 8*d^2 + 36*J - 9*d*J - 10*d^2*J + 3*d^3*J - 12*
J^2 - d*J^2 + 3*d^2*J^2) + 8*(-12 + 2*d + 3*d^2)*(-2 + J)*
(-1 + d + J)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*
J^2 + d*J^2)*x)*pj[J, x, d, 3] +
(8*(-576 + 432*d - 72*d^2 - 24*d^3 + 42*d^4 - 21*d^5 + 3*d^6 + 144*
J - 288*d*J - 4*d^2*J + 136*d^3*J - 45*d^4*J + 3*d^5*J - 264*
J^2 + 260*d*J^2 + 34*d^2*J^2 - 68*d^3*J^2 + 9*d^4*J^2 + 144*
J^3 - 72*d*J^3 - 28*d^2*J^3 + 12*d^3*J^3 - 24*J^4 + 4*d*J^4 +
6*d^2*J^4) + 16*(288 - 408*d + 180*d^2 - 24*d^3 + 72*J - 86*
d^2*J + 53*d^3*J - 9*d^4*J - 132*J^2 + 82*d*J^2 + 29*d^2*
J^2 - 25*d^3*J^2 + 3*d^4*J^2 + 72*J^3 - 36*d*J^3 - 14*d^2*
J^3 + 6*d^3*J^3 - 12*J^4 + 2*d*J^4 + 3*d^2*J^4)*x)*
pj[J, x, d, 4] + (48*(-2 + d)*d*(-16 - 8*d - d^2 + d^3 + 6*J - 2*
d*J - 2*J^2) + 24*(-2 + d)*d*(16 + 4*d - 6*d^2 + d^3 + 12*
J - 4*d*J - 4*J^2)*x)*pj[J, x, d, 5] +
(48*(-4 + d)*(-2 + d)*d*(2 + d) + 48*(-4 + d)*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 6]), m2^2*(96*d*(2 + d)*(-8 + 6*d + 7*d^2 -
6*d^3 + d^4 + 6*J + 16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 -
12*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
96*(-2 + d)*d*(2 + d)*(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 5] + 96*(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 6]),
m2^2*(-192*(-2 + d)*(-4 + 3*d)*(-3 + J)*(d + J)*(4 - 5*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-192*(176 - 84*d - 134*d^2 + 112*d^3 - 19*d^4 - 4*d^5 + d^6 + 12*
J - 244*d*J + 248*d^2*J - 62*d^3*J - 7*d^4*J + 3*d^5*J - 94*
J^2 + 176*d*J^2 - 81*d^2*J^2 + 4*d^4*J^2 + 60*J^3 - 44*d*
J^3 + 2*d^2*J^3 + 2*d^3*J^3 - 10*J^4 + 4*d*J^4 + d^2*J^4) -
192*(-4 + 3*d)*(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J - 13*
d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*
J^3 + J^4)*x)*pj[J, x, d, 4] +
(-192*(-2 + d)*(32 + 36*d - 35*d^2 + 2*d^3 + d^4 + 24*J - 53*d*
J + 6*d^2*J + 3*d^3*J - 8*J^2 + 15*d*J^2 + 3*d^2*J^2) -
192*(-2 + d)*(-88 + 86*d - 20*d^2 - 3*d^3 + d^4 + 78*J - 44*d*
J + 2*d^3*J - 26*J^2 + 6*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 5] + (-192*(-2 + d)*(40 - 26*d + d^3 - 18*J + 2*d^2*
J + 6*J^2 + 2*d*J^2) - 192*(-2 + d)*(40 - 26*d + d^3 - 18*
J + 2*d^2*J + 6*J^2 + 2*d*J^2)*x)*pj[J, x, d, 6]),
m2^2*(192*(-2 + d)*(-4 + 3*d)*(-3 + J)*(d + J)*(4 - 5*d + d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-192*(176 - 84*d - 134*d^2 + 112*d^3 - 19*d^4 - 4*d^5 + d^6 + 12*
J - 244*d*J + 248*d^2*J - 62*d^3*J - 7*d^4*J + 3*d^5*J - 94*
J^2 + 176*d*J^2 - 81*d^2*J^2 + 4*d^4*J^2 + 60*J^3 - 44*d*
J^3 + 2*d^2*J^3 + 2*d^3*J^3 - 10*J^4 + 4*d*J^4 + d^2*J^4) +
192*(-4 + 3*d)*(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J - 13*
d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*
J^3 + J^4)*x)*pj[J, x, d, 4] +
(192*(-2 + d)*(32 + 36*d - 35*d^2 + 2*d^3 + d^4 + 24*J - 53*d*J +
6*d^2*J + 3*d^3*J - 8*J^2 + 15*d*J^2 + 3*d^2*J^2) -
192*(-2 + d)*(-88 + 86*d - 20*d^2 - 3*d^3 + d^4 + 78*J - 44*d*
J + 2*d^3*J - 26*J^2 + 6*d*J^2 + 2*d^2*J^2)*x)*
pj[J, x, d, 5] + (-192*(-2 + d)*(40 - 26*d + d^3 - 18*J + 2*d^2*
J + 6*J^2 + 2*d*J^2) + 192*(-2 + d)*(40 - 26*d + d^3 - 18*
J + 2*d^2*J + 6*J^2 + 2*d*J^2)*x)*pj[J, x, d, 6]),
m2^2*(16*(-2 + J)*(-1 + d + J)*(144 - 612*d + 756*d^2 - 429*d^3 +
117*d^4 - 12*d^5 - 540*J + 1002*d*J - 778*d^2*J + 312*d^3*J -
60*d^4*J + 4*d^5*J + 342*J^2 - 481*d*J^2 + 279*d^2*J^2 -
77*d^3*J^2 + 7*d^4*J^2 - 108*J^3 + 102*d*J^3 - 40*d^2*J^3 +
6*d^3*J^3 + 18*J^4 - 11*d*J^4 + 3*d^2*J^4)*pj[J, x, d, 2] +
32*(-144 + 612*d - 756*d^2 + 429*d^3 - 117*d^4 + 12*d^5 + 612*J -
1332*d*J + 1171*d^2*J - 529*d^3*J + 118*d^4*J - 10*d^5*J -
636*J^2 + 1006*d*J^2 - 676*d^2*J^2 + 234*d^3*J^2 - 37*d^4*J^2 +
2*d^5*J^2 + 288*J^3 - 324*d*J^3 + 166*d^2*J^3 - 42*d^3*J^3 +
4*d^4*J^3 - 48*J^4 + 38*d*J^4 - 15*d^2*J^4 + 2*d^3*J^4)*x*
pj[J, x, d, 3] + 48*(-2 + d)*(-96 + 48*d - 66*d^2 + 11*d^3 -
7*d^4 + 2*d^5 + 72*J - 126*d*J + 61*d^2*J - 12*d^3*J + d^4*J -
24*J^2 + 34*d*J^2 - 9*d^2*J^2 + d^3*J^2)*pj[J, x, d, 4] +
96*(-4 + d)*(-2 + d)*d*(4 + d^2)*x*pj[J, x, d, 5]),
m2^2*(-48*(-2 + d)*(-2 + J)*(-1 + J)*(-2 + d + J)*(-1 + d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*
pj[J, x, d, 1] + (16*(-2 + d)*(-2 + J)*(-1 + d + J)*
(72 - 6*d - 51*d^2 + 24*d^3 - 3*d^4 + 18*J - 60*d*J + 42*d^2*
J - 11*d^3*J + d^4*J - 33*J^2 + 36*d*J^2 - 11*d^2*J^2 + d^3*
J^2 + 18*J^3 - 6*d*J^3 - 3*J^4) - 48*(-2 + d)*(-2 + J)*
(-1 + J)*(-2 + d + J)*(-1 + d + J)*(12 - 3*d - 3*J + d*J + J^2)*
x)*pj[J, x, d, 2] + (16*(-2 + d)*(144 - 108*d + 138*d^2 - 90*
d^3 + 15*d^4 - 180*J + 306*d*J - 190*d^2*J + 60*d^3*J - 8*d^4*
J + 168*J^2 - 172*d*J^2 + 69*d^2*J^2 - 16*d^3*J^2 + d^4*J^2 -
72*J^3 + 36*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 12*J^4 - 2*d*
J^4 + d^2*J^4) + 16*(-2 + d)*(-144 + 12*d + 102*d^2 - 48*
d^3 + 6*d^4 + 36*J + 126*d*J - 136*d^2*J + 45*d^3*J - 5*d^4*
J + 96*J^2 - 136*d*J^2 + 63*d^2*J^2 - 13*d^3*J^2 + d^4*J^2 -
72*J^3 + 36*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 12*J^4 - 2*d*
J^4 + d^2*J^4)*x)*pj[J, x, d, 3] +
(48*(-2 + d)^2*d*(-4 - 7*d - 2*d^2 + d^3 + 9*J - 3*d*J - 3*J^2) -
48*(-2 + d)^2*d*(20 - 5*d - 9*J + 3*d*J + 3*J^2)*x)*
pj[J, x, d, 4] + (48*(-4 + d)*(-2 + d)^2*d*(2 + d) +
48*(-4 + d)*(-2 + d)^2*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-384*(-2 + d)*(2 + d)*(-8 + 6*d + 7*d^2 - 6*d^3 + d^4 + 6*J +
16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*J^2 + 4*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-768*(-2 + d)*(2 + d)*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*
d^2*J - J^2 + 2*d*J^2) - 384*(-2 + d)^2*(2 + d)*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(-384*(-2 + d)*(2 + d)*(-16 - 8*d + 3*d^2 - 6*J + 2*d*J + 2*J^2) -
768*(-2 + d)*(2 + d)*(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(-2 + d)*(2 + d) -
768*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 7]),
m2^2*(192*(-2 + d)^2*(-3 + J)*(d + J)*(4 - 5*d + d^2 - 6*J + 2*d*J +
2*J^2)*pj[J, x, d, 3] + (192*(-2 + d)*(-24 - 22*d + 19*d^2 + 9*
d^3 - 7*d^4 + d^5 - 54*J + 6*d*J + 31*d^2*J - 15*d^3*J + 2*
d^4*J - 9*J^2 + 22*d*J^2 - 12*d^2*J^2 + 2*d^3*J^2 + 18*J^3 -
6*d*J^3 - 3*J^4) + 192*(-2 + d)*(24 - 42*d + 21*d^2 - 3*d^3 -
42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-192*(-2 + d)*(184 + 70*d - 29*d^2 - 12*d^3 + 3*d^4 + 66*J + 11*d*
J - 20*d^2*J + 3*d^3*J - 22*J^2 - 11*d*J^2 + 3*d^2*J^2) +
192*(-3 + d)*(-2 + d)^2*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (192*(-2 + d)*(-48 - 44*d - 6*d^2 + 5*d^3 + 12*
J - 4*d*J - 4*J^2) - 192*(-2 + d)*(80 + 4*d - 18*d^2 + 3*
d^3 + 12*J - 4*d*J - 4*J^2)*x)*pj[J, x, d, 6] +
(-768*(-4 + d)*(-2 + d)*(2 + d) + 768*(-4 + d)*(-2 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(-192*(-2 + d)^2*(-3 + J)*(d + J)*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(192*(-2 + d)*(-24 - 22*d + 19*d^2 + 9*d^3 - 7*d^4 + d^5 - 54*J +
6*d*J + 31*d^2*J - 15*d^3*J + 2*d^4*J - 9*J^2 + 22*d*J^2 - 12*
d^2*J^2 + 2*d^3*J^2 + 18*J^3 - 6*d*J^3 - 3*J^4) -
192*(-2 + d)*(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J - 13*
d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*
J^3 + J^4)*x)*pj[J, x, d, 4] +
(192*(-2 + d)*(184 + 70*d - 29*d^2 - 12*d^3 + 3*d^4 + 66*J + 11*d*
J - 20*d^2*J + 3*d^3*J - 22*J^2 - 11*d*J^2 + 3*d^2*J^2) +
192*(-3 + d)*(-2 + d)^2*(-4 - 3*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 5] + (192*(-2 + d)*(-48 - 44*d - 6*d^2 + 5*d^3 + 12*
J - 4*d*J - 4*J^2) + 192*(-2 + d)*(80 + 4*d - 18*d^2 + 3*
d^3 + 12*J - 4*d*J - 4*J^2)*x)*pj[J, x, d, 6] +
(768*(-4 + d)*(-2 + d)*(2 + d) + 768*(-4 + d)*(-2 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(-384*(-2 + d)*(2 + d)*(-8 + 6*d + 7*d^2 -
6*d^3 + d^4 + 6*J + 16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 -
12*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(768*(-2 + d)*(2 + d)*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*
d^2*J - J^2 + 2*d*J^2) - 384*(-2 + d)^2*(2 + d)*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(-384*(-2 + d)*(2 + d)*(-16 - 8*d + 3*d^2 - 6*J + 2*d*J + 2*J^2) +
768*(-2 + d)*(2 + d)*(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (768*(-4 + d)*(-2 + d)*(2 + d) -
768*(-4 + d)*(-2 + d)*(2 + d)*x)*pj[J, x, d, 7]),
m2^2*(48*(-2 + d)*(-2 + J)*(-1 + J)*(-2 + d + J)*(-1 + d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*
pj[J, x, d, 1] + (16*(-2 + d)*(-2 + J)*(-1 + d + J)*
(72 - 6*d - 51*d^2 + 24*d^3 - 3*d^4 + 18*J - 60*d*J + 42*d^2*
J - 11*d^3*J + d^4*J - 33*J^2 + 36*d*J^2 - 11*d^2*J^2 + d^3*
J^2 + 18*J^3 - 6*d*J^3 - 3*J^4) + 48*(-2 + d)*(-2 + J)*
(-1 + J)*(-2 + d + J)*(-1 + d + J)*(12 - 3*d - 3*J + d*J + J^2)*
x)*pj[J, x, d, 2] + (-16*(-2 + d)*(144 - 108*d + 138*d^2 - 90*
d^3 + 15*d^4 - 180*J + 306*d*J - 190*d^2*J + 60*d^3*J - 8*d^4*
J + 168*J^2 - 172*d*J^2 + 69*d^2*J^2 - 16*d^3*J^2 + d^4*J^2 -
72*J^3 + 36*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 12*J^4 - 2*d*
J^4 + d^2*J^4) + 16*(-2 + d)*(-144 + 12*d + 102*d^2 - 48*
d^3 + 6*d^4 + 36*J + 126*d*J - 136*d^2*J + 45*d^3*J - 5*d^4*
J + 96*J^2 - 136*d*J^2 + 63*d^2*J^2 - 13*d^3*J^2 + d^4*J^2 -
72*J^3 + 36*d*J^3 - 10*d^2*J^3 + 2*d^3*J^3 + 12*J^4 - 2*d*
J^4 + d^2*J^4)*x)*pj[J, x, d, 3] +
(48*(-2 + d)^2*d*(-4 - 7*d - 2*d^2 + d^3 + 9*J - 3*d*J - 3*J^2) +
48*(-2 + d)^2*d*(20 - 5*d - 9*J + 3*d*J + 3*J^2)*x)*
pj[J, x, d, 4] + (-48*(-4 + d)*(-2 + d)^2*d*(2 + d) +
48*(-4 + d)*(-2 + d)^2*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-192*(-4 + d)*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(384*(-2 + d)*(-2 + 3*d)*(-3 + J)*(d + J)*(4 - 5*d + d^2 - 6*J + 2*
d*J + 2*J^2) - 192*(-4 + d)*(-2 + J)*(-1 + d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (64*(576 - 432*d + 216*d^2 - 84*d^3 + 24*d^4 -
15*d^5 + 3*d^6 - 288*J + 540*d*J - 208*d^2*J + 50*d^3*J - 37*
d^4*J + 9*d^5*J + 204*J^2 - 184*d*J^2 + 26*d^2*J^2 - 18*d^3*
J^2 + 11*d^4*J^2 - 72*J^3 - 4*d^2*J^3 + 4*d^3*J^3 + 12*J^4 +
4*d*J^4 + 2*d^2*J^4) + 384*(-2 + 3*d)*(24 - 42*d + 21*d^2 - 3*
d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-384*(-2 + d)*(-40 - 74*d + 5*d^2 + d^4 - 30*J + 13*d*J - 4*d^2*
J + d^3*J + 10*J^2 - d*J^2 + d^2*J^2) + 192*(-2 + d)*d*
(-24 + 6*d - 4*d^2 + d^3 - 6*J - 4*d*J + 2*d^2*J + 2*J^2 + 2*d*
J^2)*x)*pj[J, x, d, 5] + (384*(-4 + d)*(-2 + d)*d*(2 + d) -
384*(-4 + d)*(-2 + d)*(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-192*(-4 + d)*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-384*(-2 + d)*(-2 + 3*d)*(-3 + J)*(d + J)*(4 - 5*d + d^2 - 6*J +
2*d*J + 2*J^2) - 192*(-4 + d)*(-2 + J)*(-1 + d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (64*(576 - 432*d + 216*d^2 - 84*d^3 + 24*d^4 -
15*d^5 + 3*d^6 - 288*J + 540*d*J - 208*d^2*J + 50*d^3*J - 37*
d^4*J + 9*d^5*J + 204*J^2 - 184*d*J^2 + 26*d^2*J^2 - 18*d^3*
J^2 + 11*d^4*J^2 - 72*J^3 - 4*d^2*J^3 + 4*d^3*J^3 + 12*J^4 +
4*d*J^4 + 2*d^2*J^4) - 384*(-2 + 3*d)*(24 - 42*d + 21*d^2 - 3*
d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(384*(-2 + d)*(-40 - 74*d + 5*d^2 + d^4 - 30*J + 13*d*J - 4*d^2*
J + d^3*J + 10*J^2 - d*J^2 + d^2*J^2) + 192*(-2 + d)*d*
(-24 + 6*d - 4*d^2 + d^3 - 6*J - 4*d*J + 2*d^2*J + 2*J^2 + 2*d*
J^2)*x)*pj[J, x, d, 5] + (384*(-4 + d)*(-2 + d)*d*(2 + d) +
384*(-4 + d)*(-2 + d)*(8 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-64*(-1 + d)*d*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] -
64*(-1 + d)*d*(-2 + J)*(-1 + d + J)*(-24 + 18*d - 3*d^2 + 18*J -
9*d*J + d^2*J - 6*J^2 + d*J^2)*x*pj[J, x, d, 3] +
128*(-336 - 204*d + 132*d^2 + 117*d^3 - 9*d^4 - 30*d^5 + 6*d^6 -
108*J + 96*d*J + 4*d^2*J + 52*d^3*J - 56*d^4*J + 12*d^5*J +
144*J^2 - 155*d*J^2 + 55*d^2*J^2 - 33*d^3*J^2 + 13*d^4*J^2 -
72*J^3 + 66*d*J^3 - 20*d^2*J^3 + 2*d^3*J^3 + 12*J^4 - 7*d*J^4 +
d^2*J^4)*pj[J, x, d, 4] + 768*(-2 + d)*(28 + 5*d - 3*d^2 -
4*d^3 + d^4 - 15*J + 5*d*J - 3*d^2*J + d^3*J + 5*J^2 + d^2*J^2)*
x*pj[J, x, d, 5] + 768*(-4 + d)*(-2 + d)*(4 + 2*d + d^2)*
pj[J, x, d, 6]), m2^2*(128*(-2 + d)*(-3 + J)*(d + J)*
(24 + 70*d - 71*d^2 + 13*d^3 + 72*J - 93*d*J + 20*d^2*J + d^3*J -
24*J^2 + 23*d*J^2 + d^2*J^2)*pj[J, x, d, 3] +
(-384*(-112 - 36*d + 76*d^2 + 9*d^3 - 2*d^4 - 9*d^5 + 2*d^6 - 60*
J + 98*d*J - 14*d^2*J + 11*d^3*J - 20*d^4*J + 5*d^5*J + 38*
J^2 - 47*d*J^2 + 13*d^2*J^2 - 12*d^3*J^2 + 6*d^4*J^2 - 12*
J^3 + 10*d*J^3 - 8*d^2*J^3 + 2*d^3*J^3 + 2*J^4 - d*J^4 + d^2*
J^4) + 128*(144 + 348*d - 636*d^2 + 291*d^3 - 39*d^4 + 324*
J - 858*d*J + 616*d^2*J - 152*d^3*J + 10*d^4*J - 270*J^2 +
457*d*J^2 - 197*d^2*J^2 + 15*d^3*J^2 + d^4*J^2 + 108*J^3 - 102*
d*J^3 + 16*d^2*J^3 + 2*d^3*J^3 - 18*J^4 + 11*d*J^4 + d^2*J^4)*
x)*pj[J, x, d, 4] + (-384*(-2 + d)*(-40 - 90*d - 3*d^2 - d^3 +
2*d^4 - 30*J + 19*d*J - 6*d^2*J + d^3*J + 10*J^2 - 3*d*J^2 +
d^2*J^2) - 384*(-2 + d)*(56 - 10*d - 5*d^2 - 7*d^3 + 2*d^4 -
30*J + d*J - 6*d^2*J + 3*d^3*J + 10*J^2 + 3*d*J^2 + 3*d^2*J^2)*
x)*pj[J, x, d, 5] + (-768*(-4 + d)*(-2 + d)*(4 + 2*d + d^2) -
768*(-4 + d)*(-2 + d)*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-128*(-2 + d)*(-3 + J)*(d + J)*(24 + 70*d - 71*d^2 + 13*d^3 +
72*J - 93*d*J + 20*d^2*J + d^3*J - 24*J^2 + 23*d*J^2 + d^2*J^2)*
pj[J, x, d, 3] + (-384*(-112 - 36*d + 76*d^2 + 9*d^3 - 2*d^4 - 9*
d^5 + 2*d^6 - 60*J + 98*d*J - 14*d^2*J + 11*d^3*J - 20*d^4*
J + 5*d^5*J + 38*J^2 - 47*d*J^2 + 13*d^2*J^2 - 12*d^3*J^2 + 6*
d^4*J^2 - 12*J^3 + 10*d*J^3 - 8*d^2*J^3 + 2*d^3*J^3 + 2*J^4 -
d*J^4 + d^2*J^4) - 128*(144 + 348*d - 636*d^2 + 291*d^3 - 39*
d^4 + 324*J - 858*d*J + 616*d^2*J - 152*d^3*J + 10*d^4*J -
270*J^2 + 457*d*J^2 - 197*d^2*J^2 + 15*d^3*J^2 + d^4*J^2 + 108*
J^3 - 102*d*J^3 + 16*d^2*J^3 + 2*d^3*J^3 - 18*J^4 + 11*d*
J^4 + d^2*J^4)*x)*pj[J, x, d, 4] +
(384*(-2 + d)*(-40 - 90*d - 3*d^2 - d^3 + 2*d^4 - 30*J + 19*d*J -
6*d^2*J + d^3*J + 10*J^2 - 3*d*J^2 + d^2*J^2) -
384*(-2 + d)*(56 - 10*d - 5*d^2 - 7*d^3 + 2*d^4 - 30*J + d*J - 6*
d^2*J + 3*d^3*J + 10*J^2 + 3*d*J^2 + 3*d^2*J^2)*x)*
pj[J, x, d, 5] + (-768*(-4 + d)*(-2 + d)*(4 + 2*d + d^2) +
768*(-4 + d)*(-2 + d)*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(384*(-4 + d)*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
384*(-4 + d)*(-2 + J)*(-1 + d + J)*(-24 + 18*d - 3*d^2 + 18*J -
9*d*J + d^2*J - 6*J^2 + d*J^2)*x*pj[J, x, d, 3] +
128*(-576 + 336*d - 192*d^2 + 204*d^3 - 54*d^4 - 9*d^5 + 3*d^6 +
288*J - 468*d*J + 436*d^2*J - 134*d^3*J - 17*d^4*J + 9*d^5*J -
204*J^2 + 268*d*J^2 - 128*d^2*J^2 - 6*d^3*J^2 + 13*d^4*J^2 +
72*J^3 - 72*d*J^3 - 8*d^2*J^3 + 8*d^3*J^3 - 12*J^4 + 8*d*J^4 +
4*d^2*J^4)*pj[J, x, d, 4] + 384*(-2 + d)*d*(40 - 18*d - 2*d^2 +
d^3 - 18*J + 2*d^2*J + 6*J^2 + 2*d*J^2)*x*pj[J, x, d, 5]),
m2*(384*(-2 + d)^2*(-8 + 6*d + 7*d^2 - 6*d^3 + d^4 + 6*J + 16*d*J -
15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*J^2 + 4*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(768*(-2 + d)^2*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*d^2*J -
J^2 + 2*d*J^2) + 384*(-2 + d)^3*(4 - 5*d + d^2 - 6*J + 2*d*
J + 2*J^2)*x)*pj[J, x, d, 5] +
(384*(-2 + d)^2*(-16 - 8*d + 3*d^2 - 6*J + 2*d*J + 2*J^2) +
768*(-2 + d)^2*(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (768*(-4 + d)*(-2 + d)^2 + 768*(-4 + d)*
(-2 + d)^2*x)*pj[J, x, d, 7]),
m2*(384*(-2 + d)^2*(-8 + 6*d + 7*d^2 - 6*d^3 + d^4 + 6*J + 16*d*J -
15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*J^2 + 4*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-768*(-2 + d)^2*(16 - 4*d - 4*d^2 + d^3 + 3*J - 7*d*J + 2*d^2*
J - J^2 + 2*d*J^2) + 384*(-2 + d)^3*(4 - 5*d + d^2 - 6*J + 2*
d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(384*(-2 + d)^2*(-16 - 8*d + 3*d^2 - 6*J + 2*d*J + 2*J^2) -
768*(-2 + d)^2*(8 - 6*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(-2 + d)^2 + 768*(-4 + d)*
(-2 + d)^2*x)*pj[J, x, d, 7]),
m2*(96*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(24 - 42*d + 21*d^2 -
3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
96*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(-24 + 18*d - 3*d^2 + 18*J -
9*d*J + d^2*J - 6*J^2 + d*J^2)*x*pj[J, x, d, 3] +
96*(-2 + d)^3*(-24 + 2*d - 3*d^2 + d^3 + 18*J - 9*d*J + d^2*J -
6*J^2 + d*J^2)*pj[J, x, d, 4] + 96*(-4 + d)*(-2 + d)^3*d*x*
pj[J, x, d, 5]), m2*(-2304*(-2 + d)^2*(-3 + J)*(d + J)*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-768*(-2 + d)*d*(-8 + 6*d + 7*d^2 - 6*d^3 + d^4 + 6*J + 16*d*J -
15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*
d*J^3 + J^4) - 2304*(-2 + d)*(24 - 42*d + 21*d^2 - 3*d^3 - 42*
J + 44*d*J - 13*d^2*J + d^3*J + 23*J^2 - 16*d*J^2 + 2*d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(768*(-2 + d)^2*(-36 + d - 2*d^2 + d^3 + 9*J - 6*d*J + d^2*J - 3*
J^2 + d*J^2) - 768*(-2 + d)^2*d*(4 - 5*d + d^2 - 6*J + 2*d*
J + 2*J^2)*x)*pj[J, x, d, 5] + (-768*(-4 + d)*(-2 + d)^2*d +
768*(-4 + d)*(-2 + d)^2*d*x)*pj[J, x, d, 6]),
m2*(2304*(-2 + d)^2*(-3 + J)*(d + J)*(4 - 5*d + d^2 - 6*J + 2*d*J +
2*J^2)*pj[J, x, d, 3] + (-768*(-2 + d)*d*(-8 + 6*d + 7*d^2 - 6*
d^3 + d^4 + 6*J + 16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 - 12*d*
J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4) + 2304*(-2 + d)*
(24 - 42*d + 21*d^2 - 3*d^3 - 42*J + 44*d*J - 13*d^2*J + d^3*
J + 23*J^2 - 16*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (-768*(-2 + d)^2*(-36 + d - 2*d^2 + d^3 + 9*J -
6*d*J + d^2*J - 3*J^2 + d*J^2) - 768*(-2 + d)^2*d*
(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x)*pj[J, x, d, 5] +
(-768*(-4 + d)*(-2 + d)^2*d - 768*(-4 + d)*(-2 + d)^2*d*x)*
pj[J, x, d, 6]), m2*(768*(-2 + d)*(-24 - 30*d + 25*d^2 + 16*d^3 -
13*d^4 + 2*d^5 - 54*J + 12*d*J + 47*d^2*J - 30*d^3*J + 5*d^4*J -
9*J^2 + 29*d*J^2 - 24*d^2*J^2 + 6*d^3*J^2 + 18*J^3 - 12*d*J^3 +
2*d^2*J^3 - 3*J^4 + d*J^4)*pj[J, x, d, 4] + 768*(-2 + d)^2*
(12 + 9*d - 11*d^2 + 2*d^3 + 9*J - 12*d*J + 3*d^2*J - 3*J^2 +
3*d*J^2)*x*pj[J, x, d, 5] + 1536*(-4 + d)*(-2 + d)^2*d*
pj[J, x, d, 6]), 768*(-4 + d)*(-2 + d)*(-8 + 6*d + 7*d^2 -
6*d^3 + d^4 + 6*J + 16*d*J - 15*d^2*J + 3*d^3*J + 7*J^2 -
12*d*J^2 + 4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
768*(-4 + d)*(-2 + d)^2*(4 - 5*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 5] + 768*(-4 + d)^2*(-2 + d)^2*pj[J, x, d, 6]}}}],
exchange[{5 + 2*m, 1}, {GGGG[d], s, 1 + (2*t)/s},
{{(2*(-2 + d))/((-4 + d)*(2 + d)*(-1 + J)*(1 + J)*(-4 + d + J)*
(-2 + d + J)*m2^5), Sqrt[-2 + d]/(Sqrt[2]*Sqrt[-4 + d]*Sqrt[-1 + d]*
(2 + d)*Sqrt[-3 + J]*Sqrt[-2 + J]*(-1 + J)*(1 + J)*(-4 + d + J)*
(-2 + d + J)*Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6)},
{Sqrt[-2 + d]/(Sqrt[2]*Sqrt[-4 + d]*Sqrt[-1 + d]*(2 + d)*Sqrt[-3 + J]*
Sqrt[-2 + J]*(-1 + J)*(1 + J)*(-4 + d + J)*(-2 + d + J)*
Sqrt[-1 + d + J]*Sqrt[d + J]*m2^6), 1/(4*(-1 + d)*(2 + d)*(-3 + J)*
(-2 + J)*(-1 + J)*(1 + J)*(-4 + d + J)*(-2 + d + J)*(-1 + d + J)*
(d + J)*m2^6)}},
{{{0, 0, 0, m2*((-4 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] -
(-4 + d)*(-2 + d)*x*pj[J, x, d, 2]),
m2*(4*(-d - 3*J + d*J + J^2)*pj[J, x, d, 2] + (-4*d - 8*x)*
pj[J, x, d, 3] + (8 - 8*x)*pj[J, x, d, 4]),
m2*(-4*(-d - 3*J + d*J + J^2)*pj[J, x, d, 2] + (-4*d + 8*x)*
pj[J, x, d, 3] + (-8 - 8*x)*pj[J, x, d, 4]), 0, 0, 0,
m2*(-8*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
4*(d - 3*J + d*J + J^2)*x*pj[J, x, d, 2] - 16*(-2 + d)*
pj[J, x, d, 3]), m2*(-8*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(4*(4 - 3*d - 3*J + d*J + J^2) + 4*(d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (-8*(-2 + d) - 8*(-2 + d)*x)*pj[J, x, d, 3]), 0,
0, 0, 0, m2*(-8*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-4*(4 - 3*d - 3*J + d*J + J^2) + 4*(d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 2] + (-8*(-2 + d) + 8*(-2 + d)*x)*pj[J, x, d, 3]), 0,
0, 0, 0, 0, 0, 0, 0, -16*(-4 + d)*pj[J, x, d, 3], 0, 0, 0, 0},
{m2^3*(16*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] -
64*(2 + d)*x*pj[J, x, d, 4]), 0, 0,
m2^2*(-((-4 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(-d + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 1]) + (-4 + d)*(-2 + d)*d*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 2] -
(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 3]),
m2^2*(-4*(-2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-4*(-4 + 4*d + d^2)*(-3 + J)*(d + J) +
4*(-2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (-8*(-2 + d)*(-3 + J)*(d + J) +
4*(20*d + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (-8*d*(2 + d) + 8*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-4*(-4 + 4*d + d^2)*(-3 + J)*(d + J) -
4*(-2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (8*(-2 + d)*(-3 + J)*(d + J) +
4*(20*d + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (-8*d*(2 + d) - 8*d*(2 + d)*x)*pj[J, x, d, 5]),
0, m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-32*(2 + d)*(-4 + J)*(1 + d + J) - 16*(2 + d)*(4 + d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 4] + (32*(2 + d) + 16*(2 + d)*(8 + d)*
x)*pj[J, x, d, 5] + (-32*(2 + d) - 32*(2 + d)*x)*
pj[J, x, d, 6]), m2^2*(32*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (32*(2 + d)*(-4 + J)*(1 + d + J) -
16*(2 + d)*(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(2 + d) - 16*(2 + d)*(8 + d)*x)*pj[J, x, d, 5] +
(32*(2 + d) - 32*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*(8 + d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] - 4*(-2 + d)*
(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*J + 15*J^2 -
3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*pj[J, x, d, 2] +
8*(-2 + d)*(4 + 12*d - 7*d^2 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 +
3*d*J^2)*pj[J, x, d, 3] - 4*(2 + d)*(16 - 14*d + 5*d^2)*x*
pj[J, x, d, 4]), m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*
(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(-4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-4 - d + 3*d^2 - 3*J + d*J + J^
2) - 4*(-2 + d)*(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*
J + 15*J^2 - 3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 2] + (16*(-2 + d)*(2 + 3*d - 2*d^2 - 3*d*J + d^2*J +
d*J^2) + 4*(-2 + d)*(-8 - 4*d^2 + 3*d^3 - 12*d*J + 4*d^2*J + 4*
d*J^2)*x)*pj[J, x, d, 3] + (-12*(-2 + d)*d*(2 + d) -
12*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]), 0,
m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(2 + d)*(-4 - 3*d - 3*J + d*J + J^2) - 16*(2 + d)*
(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2 - 16*(2 + d)*(10 + d)*x)*pj[J, x, d, 5] +
(64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-48*(2 + d)*(-4 - 3*d - 3*J + d*J + J^2) - 16*(2 + d)*
(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2 + 16*(2 + d)*(10 + d)*x)*pj[J, x, d, 5] +
(-64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]), 0,
m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*(8 + d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-4 - d + 3*d^2 - 3*J + d*J + J^
2) - 4*(-2 + d)*(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*
J + 15*J^2 - 3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 2] + (16*(-2 + d)*(2 + 3*d - 2*d^2 - 3*d*J + d^2*J +
d*J^2) - 4*(-2 + d)*(-8 - 4*d^2 + 3*d^3 - 12*d*J + 4*d^2*J + 4*
d*J^2)*x)*pj[J, x, d, 3] + (12*(-2 + d)*d*(2 + d) -
12*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(-16*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
(-32*d*(2 + d) + 32*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-16*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
(-32*d*(2 + d) - 32*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-48*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(8 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
64*(-1 + d)*(2 + d)*pj[J, x, d, 5]),
m2^2*(-16*(2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 16*(2 + d)*(8 + d^2 - 12*J + d*J + d^2*J +
4*J^2 + d*J^2)*x*pj[J, x, d, 3] - 32*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 4] + (32*(-2 + d)*(2 + d) + 32*(2 + d)*(-2 + 3*d)*x)*
pj[J, x, d, 5]), m2^2*(16*(2 + d)*(-2 + J)*(-1 + d + J)*
(4 + d - 3*J + d*J + J^2)*pj[J, x, d, 2] -
16*(2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 3] + 32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 4] +
(32*(-2 + d)*(2 + d) - 32*(2 + d)*(-2 + 3*d)*x)*pj[J, x, d, 5]),
m2^2*(32*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] -
32*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*d*(2 + d)*pj[J, x, d, 5]),
m2*(-32*(2 + d)*(-4 - d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(-32*(2 + d)*(4 + d) + 64*(2 + d)*x)*pj[J, x, d, 5] +
(-64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2*(32*(2 + d)*(-4 - d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(-32*(2 + d)*(4 + d) - 64*(2 + d)*x)*pj[J, x, d, 5] +
(64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2*(24*(-2 + d)^2*(-3 + J)*(d + J)*pj[J, x, d, 3] -
8*(-2 + d)*(2 + d)*(-8 + 3*d)*x*pj[J, x, d, 4]),
m2*(32*(2 + d)*(-4 - 7*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(64*(-2 + d)*(2 + d) - 128*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-32*(2 + d)*(-4 - 7*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(64*(-2 + d)*(2 + d) + 128*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-64*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
32*(2 + d)*(4 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
192*(-2 + d)*(2 + d)*pj[J, x, d, 5]), -128*(-4 + d)*(2 + d)*
pj[J, x, d, 5]}},
{{m2^3*(16*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] -
64*(2 + d)*x*pj[J, x, d, 4]), 0, 0,
m2^2*(-((-4 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(-d + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 1]) + (-4 + d)*(-2 + d)*d*
(2 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*pj[J, x, d, 2] -
(-4 + d)*(-2 + d)*d*(2 + d)*pj[J, x, d, 3]),
m2^2*(-4*(-2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-4*(-4 + 4*d + d^2)*(-3 + J)*(d + J) +
4*(-2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (-8*(-2 + d)*(-3 + J)*(d + J) +
4*(20*d + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (-8*d*(2 + d) + 8*d*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-4*(-4 + 4*d + d^2)*(-3 + J)*(d + J) -
4*(-2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (8*(-2 + d)*(-3 + J)*(d + J) +
4*(20*d + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (-8*d*(2 + d) - 8*d*(2 + d)*x)*pj[J, x, d, 5]),
0, m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-32*(2 + d)*(-4 + J)*(1 + d + J) - 16*(2 + d)*(4 + d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 4] + (32*(2 + d) + 16*(2 + d)*(8 + d)*
x)*pj[J, x, d, 5] + (-32*(2 + d) - 32*(2 + d)*x)*
pj[J, x, d, 6]), m2^2*(32*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (32*(2 + d)*(-4 + J)*(1 + d + J) -
16*(2 + d)*(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(2 + d) - 16*(2 + d)*(8 + d)*x)*pj[J, x, d, 5] +
(32*(2 + d) - 32*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*(8 + d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] - 4*(-2 + d)*
(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*J + 15*J^2 -
3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*pj[J, x, d, 2] +
8*(-2 + d)*(4 + 12*d - 7*d^2 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 +
3*d*J^2)*pj[J, x, d, 3] - 4*(2 + d)*(16 - 14*d + 5*d^2)*x*
pj[J, x, d, 4]), m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*
(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(-4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-4 - d + 3*d^2 - 3*J + d*J + J^
2) - 4*(-2 + d)*(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*
J + 15*J^2 - 3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 2] + (16*(-2 + d)*(2 + 3*d - 2*d^2 - 3*d*J + d^2*J +
d*J^2) + 4*(-2 + d)*(-8 - 4*d^2 + 3*d^3 - 12*d*J + 4*d^2*J + 4*
d*J^2)*x)*pj[J, x, d, 3] + (-12*(-2 + d)*d*(2 + d) -
12*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]), 0,
m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(48*(2 + d)*(-4 - 3*d - 3*J + d*J + J^2) - 16*(2 + d)*
(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2 - 16*(2 + d)*(10 + d)*x)*pj[J, x, d, 5] +
(64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-48*(2 + d)*(-4 - 3*d - 3*J + d*J + J^2) - 16*(2 + d)*
(4 + d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2 + 16*(2 + d)*(10 + d)*x)*pj[J, x, d, 5] +
(-64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]), 0,
m2^2*(4*(-2 + d)*(-1 + J)*(-2 + d + J)*(8 + d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J)*(-4 - d + 3*d^2 - 3*J + d*J + J^
2) - 4*(-2 + d)*(8 + 2*d - 2*d^2 + d^3 - 18*J - 3*d*J + d^3*
J + 15*J^2 - 3*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 2] + (16*(-2 + d)*(2 + 3*d - 2*d^2 - 3*d*J + d^2*J +
d*J^2) - 4*(-2 + d)*(-8 - 4*d^2 + 3*d^3 - 12*d*J + 4*d^2*J + 4*
d*J^2)*x)*pj[J, x, d, 3] + (12*(-2 + d)*d*(2 + d) -
12*(-2 + d)*d*(2 + d)*x)*pj[J, x, d, 4]),
m2^2*(-16*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
(-32*d*(2 + d) + 32*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-16*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
(-32*d*(2 + d) - 32*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2^2*(-48*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
16*(2 + d)*(8 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
64*(-1 + d)*(2 + d)*pj[J, x, d, 5]),
m2^2*(-16*(2 + d)*(-2 + J)*(-1 + d + J)*(4 + d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 16*(2 + d)*(8 + d^2 - 12*J + d*J + d^2*J +
4*J^2 + d*J^2)*x*pj[J, x, d, 3] - 32*(2 + d)*(-3 + J)*(d + J)*
pj[J, x, d, 4] + (32*(-2 + d)*(2 + d) + 32*(2 + d)*(-2 + 3*d)*x)*
pj[J, x, d, 5]), m2^2*(16*(2 + d)*(-2 + J)*(-1 + d + J)*
(4 + d - 3*J + d*J + J^2)*pj[J, x, d, 2] -
16*(2 + d)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 3] + 32*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 4] +
(32*(-2 + d)*(2 + d) - 32*(2 + d)*(-2 + 3*d)*x)*pj[J, x, d, 5]),
m2^2*(32*(2 + d)*(-1 + 2*d)*(-3 + J)*(d + J)*pj[J, x, d, 3] -
32*(2 + d)*(-8 + d + 2*d^2 - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*d*(2 + d)*pj[J, x, d, 5]),
m2*(-32*(2 + d)*(-4 - d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(-32*(2 + d)*(4 + d) + 64*(2 + d)*x)*pj[J, x, d, 5] +
(-64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2*(32*(2 + d)*(-4 - d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(-32*(2 + d)*(4 + d) - 64*(2 + d)*x)*pj[J, x, d, 5] +
(64*(2 + d) - 64*(2 + d)*x)*pj[J, x, d, 6]),
m2*(24*(-2 + d)^2*(-3 + J)*(d + J)*pj[J, x, d, 3] -
8*(-2 + d)*(2 + d)*(-8 + 3*d)*x*pj[J, x, d, 4]),
m2*(32*(2 + d)*(-4 - 7*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(64*(-2 + d)*(2 + d) - 128*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-32*(2 + d)*(-4 - 7*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(64*(-2 + d)*(2 + d) + 128*(-2 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-64*(2 + d)*(-3 + J)*(d + J)*pj[J, x, d, 3] +
32*(2 + d)*(4 + d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] -
192*(-2 + d)*(2 + d)*pj[J, x, d, 5]), -128*(-4 + d)*(2 + d)*
pj[J, x, d, 5]}, {m2^3*(128*(2 + d)*(-3 + J)*(d + J)*
(8 + d - 3*J + d*J + J^2)*pj[J, x, d, 3] - 128*(2 + d)*
(24 + 2*d + d^2 - 18*J + 3*d*J + d^2*J + 6*J^2 + d*J^2)*x*
pj[J, x, d, 4] + 1024*(2 + d)^2*pj[J, x, d, 5]),
m2^2*(-16*(2 + d)^2*(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J +
7*J^2 - 9*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (16*(2 + d)^2*(-64 - 48*d - 5*d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2) + 16*(2 + d)^2*(8 + d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-128*(2 + d)^2*(-11 - 4*d - 3*J + d*J + J^2) - 16*(2 + d)^2*
(32 + 6*d + d^2 - 12*J + 4*d*J + 4*J^2)*x)*pj[J, x, d, 6] +
(-128*(2 + d)^2 + 64*(2 + d)^2*(8 + d)*x)*pj[J, x, d, 7] +
(-128*(2 + d)^2 - 128*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*(16*(2 + d)^2*(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J +
7*J^2 - 9*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (16*(2 + d)^2*(-64 - 48*d - 5*d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2) - 16*(2 + d)^2*(8 + d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(128*(2 + d)^2*(-11 - 4*d - 3*J + d*J + J^2) - 16*(2 + d)^2*
(32 + 6*d + d^2 - 12*J + 4*d*J + 4*J^2)*x)*pj[J, x, d, 6] +
(-128*(2 + d)^2 - 64*(2 + d)^2*(8 + d)*x)*pj[J, x, d, 7] +
(128*(2 + d)^2 - 128*(2 + d)^2*x)*pj[J, x, d, 8]),
m2^2*((-4 + d)*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(d^2 - 2*d^3 + d^4 -
12*J - 2*d*J - 7*d^2*J + 3*d^3*J + 13*J^2 - 4*d*J^2 +
4*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 1] -
(-4 + d)*(-2 + d)^2*(-2*d^2 + 5*d^3 - 4*d^4 + d^5 - 12*J - 8*d*J +
13*d^2*J - 15*d^3*J + 4*d^4*J + 22*J^2 + 19*d*J^2 - 19*d^2*J^2 +
7*d^3*J^2 - 12*J^3 - 14*d*J^3 + 6*d^2*J^3 + 2*J^4 + 3*d*J^4)*x*
pj[J, x, d, 2] + (-4 + d)*(-2 + d)*d*(2 + d)*(-12 + 2*d - 6*d^2 +
d^3 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*pj[J, x, d, 3] -
(-4 + d)*(-2 + d)*d*(2 + d)^3*x*pj[J, x, d, 4]),
m2^2*(4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(24 + 2*d + d^3 - 42*J -
d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] +
(8*(-3 + J)*(d + J)*(-32 - 40*d + 40*d^2 + 10*d^3 + d^5 - 24*J +
32*d*J - 14*d^2*J - 4*d^3*J + 2*d^4*J + 8*J^2 - 8*d*J^2 + 2*
d^2*J^2 + 2*d^3*J^2) - 4*(-2 + d)^2*(48 + 4*d + 2*d^2 - d^
3 + d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*
J^2 - d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*
J^4)*x)*pj[J, x, d, 3] + (4*(192 - 16*d - 144*d^2 - 240*d^3 -
56*d^4 - 15*d^5 - 48*J + 136*d*J - 232*d^2*J + 46*d^3*J - 9*
d^4*J + 5*d^5*J + 88*J^2 - 160*d*J^2 + 138*d^2*J^2 - 14*d^3*
J^2 + 7*d^4*J^2 - 48*J^3 + 64*d*J^3 - 28*d^2*J^3 + 4*d^3*
J^3 + 8*J^4 - 8*d*J^4 + 2*d^2*J^4) - 8*(-96 - 104*d + 104*
d^2 + 22*d^3 + 10*d^4 + d^6 - 24*J + 116*d*J - 114*d^2*J + 11*
d^3*J - 4*d^4*J + 3*d^5*J + 44*J^2 - 96*d*J^2 + 63*d^2*J^2 -
5*d^3*J^2 + 4*d^4*J^2 - 24*J^3 + 32*d*J^3 - 14*d^2*J^3 + 2*d^3*
J^3 + 4*J^4 - 4*d*J^4 + d^2*J^4)*x)*pj[J, x, d, 4] +
(8*d*(2 + d)*(-16 - 2*d - 7*d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J - 2*
J^2 + 3*d*J^2) - 8*d*(2 + d)*(8 + 26*d + 3*d^2 + 2*d^3 + 6*
J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 5] +
(16*d*(2 + d)^3 - 16*d*(2 + d)^3*x)*pj[J, x, d, 6]),
m2^2*(-4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(24 + 2*d + d^3 - 42*J -
d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] +
(8*(-3 + J)*(d + J)*(-32 - 40*d + 40*d^2 + 10*d^3 + d^5 - 24*J +
32*d*J - 14*d^2*J - 4*d^3*J + 2*d^4*J + 8*J^2 - 8*d*J^2 + 2*
d^2*J^2 + 2*d^3*J^2) + 4*(-2 + d)^2*(48 + 4*d + 2*d^2 - d^
3 + d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*
J^2 - d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*
J^4)*x)*pj[J, x, d, 3] + (-4*(192 - 16*d - 144*d^2 - 240*
d^3 - 56*d^4 - 15*d^5 - 48*J + 136*d*J - 232*d^2*J + 46*d^3*
J - 9*d^4*J + 5*d^5*J + 88*J^2 - 160*d*J^2 + 138*d^2*J^2 - 14*
d^3*J^2 + 7*d^4*J^2 - 48*J^3 + 64*d*J^3 - 28*d^2*J^3 + 4*d^3*
J^3 + 8*J^4 - 8*d*J^4 + 2*d^2*J^4) - 8*(-96 - 104*d + 104*
d^2 + 22*d^3 + 10*d^4 + d^6 - 24*J + 116*d*J - 114*d^2*J + 11*
d^3*J - 4*d^4*J + 3*d^5*J + 44*J^2 - 96*d*J^2 + 63*d^2*J^2 -
5*d^3*J^2 + 4*d^4*J^2 - 24*J^3 + 32*d*J^3 - 14*d^2*J^3 + 2*d^3*
J^3 + 4*J^4 - 4*d*J^4 + d^2*J^4)*x)*pj[J, x, d, 4] +
(8*d*(2 + d)*(-16 - 2*d - 7*d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J - 2*
J^2 + 3*d*J^2) + 8*d*(2 + d)*(8 + 26*d + 3*d^2 + 2*d^3 + 6*
J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 5] +
(-16*d*(2 + d)^3 - 16*d*(2 + d)^3*x)*pj[J, x, d, 6]),
m2^2*(32*d*(2 + d)^2*(-4 - 5*d - 3*J + d*J + J^2)*pj[J, x, d, 5] -
32*d*(2 + d)^3*x*pj[J, x, d, 6]),
m2^2*(-32*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*(8 + d^2 - 12*J + d*J +
d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(16*(2 + d)*(176 + 76*d - 94*d^2 - 28*d^3 - 16*d^4 + 12*J - 136*d*
J + 71*d^2*J - 21*d^3*J + 4*d^4*J - 94*J^2 + 131*d*J^2 - 37*
d^2*J^2 + 7*d^3*J^2 + 60*J^3 - 38*d*J^3 + 6*d^2*J^3 - 10*
J^4 + 3*d*J^4) + 32*(-2 + d)*(2 + d)*(24 + 2*d + d^3 - 42*
J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-32*(2 + d)*(32 + 16*d - 30*d^2 - 9*d^3 + 24*J - 26*d*J - 3*d^2*
J + 3*d^3*J - 8*J^2 + 6*d*J^2 + 3*d^2*J^2) -
16*(2 + d)*(-176 + 92*d + 16*d^2 + 7*d^3 + 4*d^4 + 156*J - 88*d*
J - 9*d^2*J + 7*d^3*J - 52*J^2 + 12*d*J^2 + 7*d^2*J^2)*x)*
pj[J, x, d, 5] + (32*(2 + d)*(-40 + 14*d + 9*d^2 + 2*d^3 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2) + 32*(2 + d)*
(-40 + 14*d + 9*d^2 + 2*d^3 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*
J^2)*x)*pj[J, x, d, 6]), m2^2*(-32*(-2 + d)*(2 + d)*(-3 + J)*
(d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*
pj[J, x, d, 3] + (-16*(2 + d)*(176 + 76*d - 94*d^2 - 28*d^3 - 16*
d^4 + 12*J - 136*d*J + 71*d^2*J - 21*d^3*J + 4*d^4*J - 94*
J^2 + 131*d*J^2 - 37*d^2*J^2 + 7*d^3*J^2 + 60*J^3 - 38*d*
J^3 + 6*d^2*J^3 - 10*J^4 + 3*d*J^4) + 32*(-2 + d)*(2 + d)*
(24 + 2*d + d^3 - 42*J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*
J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-32*(2 + d)*(32 + 16*d - 30*d^2 - 9*d^3 + 24*J - 26*d*J - 3*d^2*
J + 3*d^3*J - 8*J^2 + 6*d*J^2 + 3*d^2*J^2) +
16*(2 + d)*(-176 + 92*d + 16*d^2 + 7*d^3 + 4*d^4 + 156*J - 88*d*
J - 9*d^2*J + 7*d^3*J - 52*J^2 + 12*d*J^2 + 7*d^2*J^2)*x)*
pj[J, x, d, 5] + (-32*(2 + d)*(-40 + 14*d + 9*d^2 + 2*d^3 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2) + 32*(2 + d)*
(-40 + 14*d + 9*d^2 + 2*d^3 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*
J^2)*x)*pj[J, x, d, 6]), m2^2*(-4*(-2 + d)^2*(-1 + J)*
(-2 + d + J)*(48 + 4*d + 2*d^2 - d^3 + d^4 - 108*J - 3*d^2*J +
2*d^3*J + d^4*J + 90*J^2 - 6*d*J^2 - d^2*J^2 + 3*d^3*J^2 -
36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*J^4)*pj[J, x, d, 1] +
4*(-2 + d)^2*(48 + 4*d + 4*d^3 - 3*d^4 + d^5 - 156*J - 8*d*J +
8*d^2*J - 8*d^3*J + d^4*J + d^5*J + 196*J^2 + 5*d*J^2 -
7*d^2*J^2 - 5*d^3*J^2 + 4*d^4*J^2 - 123*J^3 + 5*d*J^3 -
9*d^2*J^3 + 7*d^3*J^3 + 43*J^4 - 9*d*J^4 + 6*d^2*J^4 - 9*J^5 +
3*d*J^5 + J^6)*x*pj[J, x, d, 2] - 4*(192 + 400*d - 272*d^2 +
160*d^3 - 260*d^4 + 19*d^5 - 23*d^6 + 144*J - 288*d*J +
728*d^2*J - 672*d^3*J + 245*d^4*J - 58*d^5*J + 9*d^6*J -
48*J^2 + 440*d*J^2 - 672*d^2*J^2 + 426*d^3*J^2 - 115*d^4*J^2 +
19*d^5*J^2 - 240*d*J^3 + 224*d^2*J^3 - 108*d^3*J^3 +
20*d^4*J^3 + 40*d*J^4 - 24*d^2*J^4 + 10*d^3*J^4)*
pj[J, x, d, 3] + 4*(2 + d)*(-192 + 224*d - 180*d^2 + 136*d^3 -
23*d^4 + 8*d^5 + 144*J - 324*d*J + 200*d^2*J - 87*d^3*J +
17*d^4*J - 48*J^2 + 92*d*J^2 - 36*d^2*J^2 + 17*d^3*J^2)*x*
pj[J, x, d, 4] - 32*d*(2 + d)^2*(4 + d^2)*pj[J, x, d, 5]),
m2^2*(-4*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(48 + 4*d + 2*d^2 - d^3 +
d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*J^2 -
d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*J^4)*
pj[J, x, d, 1] + (4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*
(-24 - 2*d - 2*d^2 - 3*d^3 + 4*d^4 - 6*J - 31*d*J - 16*d^2*J +
9*d^3*J + 11*J^2 + 5*d*J^2 + 10*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^
4) + 4*(-2 + d)^2*(48 + 4*d + 4*d^3 - 3*d^4 + d^5 - 156*J - 8*
d*J + 8*d^2*J - 8*d^3*J + d^4*J + d^5*J + 196*J^2 + 5*d*J^2 -
7*d^2*J^2 - 5*d^3*J^2 + 4*d^4*J^2 - 123*J^3 + 5*d*J^3 - 9*d^2*
J^3 + 7*d^3*J^3 + 43*J^4 - 9*d*J^4 + 6*d^2*J^4 - 9*J^5 + 3*d*
J^5 + J^6)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*(-96 - 56*d - 60*d^2 - 158*d^3 - 15*d^4 - 11*d^5 +
120*J - 100*d*J - 238*d^2*J + 101*d^3*J - 20*d^4*J + 5*d^5*
J - 112*J^2 - 4*d*J^2 + 180*d^2*J^2 - 49*d^3*J^2 + 11*d^4*
J^2 + 48*J^3 + 32*d*J^3 - 52*d^2*J^3 + 12*d^3*J^3 - 8*J^4 - 8*
d*J^4 + 6*d^2*J^4) - 4*(-2 + d)^2*(-48 - 4*d + d^3 - 7*d^4 +
4*d^5 + 12*J - 52*d*J - 17*d^2*J - 28*d^3*J + 13*d^4*J + 32*
J^2 + 46*d*J^2 - 21*d^2*J^2 + 19*d^3*J^2 - 24*J^3 - 28*d*
J^3 + 12*d^2*J^3 + 4*J^4 + 6*d*J^4)*x)*pj[J, x, d, 3] +
(4*(-2 + d)*d*(2 + d)*(-72 - 18*d - 19*d^2 + 4*d^3 + 18*J - 33*d*
J + 9*d^2*J - 6*J^2 + 9*d*J^2) + 4*(-2 + d)*d*(2 + d)*
(24 + 62*d - 3*d^2 + 4*d^3 + 18*J - 33*d*J + 9*d^2*J - 6*J^2 +
9*d*J^2)*x)*pj[J, x, d, 4] + (-16*(-2 + d)*d*(2 + d)^3 -
16*(-2 + d)*d*(2 + d)^3*x)*pj[J, x, d, 5]),
m2^2*(-64*(2 + d)^2*(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J +
7*J^2 - 9*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (128*(2 + d)^2*(-16 - 15*d - 5*d^2 - 3*J - 2*d*
J + d^2*J + J^2 + d*J^2) + 64*(2 + d)^2*(8 + d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-128*(2 + d)^2*(-8 - 7*d - 3*J + d*J + J^2) - 128*(2 + d)^2*
(8 + 3*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 6] +
(256*(2 + d)^3 + 256*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-16*(2 + d)*(-2 + 3*d)*(-3 + J)*(d + J)*(8 + d^2 - 12*J +
d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(-16*(2 + d)*(-48 - 332*d - 266*d^2 - 52*d^3 - 16*d^4 - 108*J - 96*
d*J + 125*d^2*J - 39*d^3*J + 4*d^4*J - 18*J^2 + 161*d*J^2 -
87*d^2*J^2 + 13*d^3*J^2 + 36*J^3 - 66*d*J^3 + 18*d^2*J^3 - 6*
J^4 + 9*d*J^4) + 16*(2 + d)*(-2 + 3*d)*(24 + 2*d + d^3 - 42*
J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2*(-184 - 182*d - 57*d^2 - 66*J - 23*d*J + 15*d^2*
J + 22*J^2 + 15*d*J^2) + 16*(2 + d)*(48 + 260*d + 32*d^2 + 13*
d^3 + 4*d^4 + 36*J - 168*d*J + 13*d^2*J + 13*d^3*J - 12*J^2 +
52*d*J^2 + 13*d^2*J^2)*x)*pj[J, x, d, 5] +
(-64*(2 + d)*(-24 - 10*d - 9*d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J -
2*J^2 + 3*d*J^2) + 64*(2 + d)*(40 + 62*d + 15*d^2 + 3*d^3 + 6*
J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 6] +
(-256*(2 + d)^3 + 256*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-16*(2 + d)*(-2 + 3*d)*(-3 + J)*(d + J)*(8 + d^2 - 12*J +
d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(16*(2 + d)*(-48 - 332*d - 266*d^2 - 52*d^3 - 16*d^4 - 108*J - 96*
d*J + 125*d^2*J - 39*d^3*J + 4*d^4*J - 18*J^2 + 161*d*J^2 -
87*d^2*J^2 + 13*d^3*J^2 + 36*J^3 - 66*d*J^3 + 18*d^2*J^3 - 6*
J^4 + 9*d*J^4) + 16*(2 + d)*(-2 + 3*d)*(24 + 2*d + d^3 - 42*
J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-16*(2 + d)^2*(-184 - 182*d - 57*d^2 - 66*J - 23*d*J + 15*d^2*
J + 22*J^2 + 15*d*J^2) - 16*(2 + d)*(48 + 260*d + 32*d^2 + 13*
d^3 + 4*d^4 + 36*J - 168*d*J + 13*d^2*J + 13*d^3*J - 12*J^2 +
52*d*J^2 + 13*d^2*J^2)*x)*pj[J, x, d, 5] +
(64*(2 + d)*(-24 - 10*d - 9*d^2 + d^3 + 6*J - 11*d*J + 3*d^2*J - 2*
J^2 + 3*d*J^2) + 64*(2 + d)*(40 + 62*d + 15*d^2 + 3*d^3 + 6*
J - 11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 6] +
(-256*(2 + d)^3 - 256*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(64*(2 + d)^2*(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J +
7*J^2 - 9*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (128*(2 + d)^2*(-16 - 15*d - 5*d^2 - 3*J - 2*d*
J + d^2*J + J^2 + d*J^2) - 64*(2 + d)^2*(8 + d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(128*(2 + d)^2*(-8 - 7*d - 3*J + d*J + J^2) - 128*(2 + d)^2*
(8 + 3*d + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 6] +
(256*(2 + d)^3 - 256*(2 + d)^3*x)*pj[J, x, d, 7]),
m2^2*(-4*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(48 + 4*d + 2*d^2 - d^3 +
d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*J^2 -
d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*J^4)*
pj[J, x, d, 1] + (-4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*
(-24 - 2*d - 2*d^2 - 3*d^3 + 4*d^4 - 6*J - 31*d*J - 16*d^2*J +
9*d^3*J + 11*J^2 + 5*d*J^2 + 10*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^
4) + 4*(-2 + d)^2*(48 + 4*d + 4*d^3 - 3*d^4 + d^5 - 156*J - 8*
d*J + 8*d^2*J - 8*d^3*J + d^4*J + d^5*J + 196*J^2 + 5*d*J^2 -
7*d^2*J^2 - 5*d^3*J^2 + 4*d^4*J^2 - 123*J^3 + 5*d*J^3 - 9*d^2*
J^3 + 7*d^3*J^3 + 43*J^4 - 9*d*J^4 + 6*d^2*J^4 - 9*J^5 + 3*d*
J^5 + J^6)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)*(-96 - 56*d - 60*d^2 - 158*d^3 - 15*d^4 - 11*d^5 +
120*J - 100*d*J - 238*d^2*J + 101*d^3*J - 20*d^4*J + 5*d^5*
J - 112*J^2 - 4*d*J^2 + 180*d^2*J^2 - 49*d^3*J^2 + 11*d^4*
J^2 + 48*J^3 + 32*d*J^3 - 52*d^2*J^3 + 12*d^3*J^3 - 8*J^4 - 8*
d*J^4 + 6*d^2*J^4) + 4*(-2 + d)^2*(-48 - 4*d + d^3 - 7*d^4 +
4*d^5 + 12*J - 52*d*J - 17*d^2*J - 28*d^3*J + 13*d^4*J + 32*
J^2 + 46*d*J^2 - 21*d^2*J^2 + 19*d^3*J^2 - 24*J^3 - 28*d*
J^3 + 12*d^2*J^3 + 4*J^4 + 6*d*J^4)*x)*pj[J, x, d, 3] +
(-4*(-2 + d)*d*(2 + d)*(-72 - 18*d - 19*d^2 + 4*d^3 + 18*J - 33*d*
J + 9*d^2*J - 6*J^2 + 9*d*J^2) + 4*(-2 + d)*d*(2 + d)*
(24 + 62*d - 3*d^2 + 4*d^3 + 18*J - 33*d*J + 9*d^2*J - 6*J^2 +
9*d*J^2)*x)*pj[J, x, d, 4] + (-16*(-2 + d)*d*(2 + d)^3 +
16*(-2 + d)*d*(2 + d)^3*x)*pj[J, x, d, 5]),
m2^2*(32*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*(-16 - 3*d - d^2 +
2*d^3 - 3*J - 8*d*J + 3*d^2*J + J^2 + 3*d*J^2)*pj[J, x, d, 3] +
(32*(2 + d)^2*(-56 - 34*d + 12*d^2 - 16*d^3 - 30*J + 43*d*J - 23*
d^2*J + 4*d^3*J + 19*J^2 - 17*d*J^2 + 5*d^2*J^2 - 6*J^3 + 2*d*
J^3 + J^4) - 32*(-2 + d)*(2 + d)*(-48 - 4*d - 3*d^2 - d^3 + 2*
d^4 + 12*J - 22*d*J - 9*d^2*J + 5*d^3*J + 5*J^2 + 6*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(32*d*(2 + d)*(-72 - 50*d - 15*d^2 + 2*d^3 - 6*J - 13*d*J + 5*d^2*
J + 2*J^2 + 5*d*J^2) - 32*(2 + d)*(112 + 4*d + 16*d^2 + 5*
d^3 + 4*d^4 - 60*J + 8*d*J - 11*d^2*J + 5*d^3*J + 20*J^2 + 4*
d*J^2 + 5*d^2*J^2)*x)*pj[J, x, d, 5] +
(128*(2 + d)^2*(8 + 2*d + d^2) - 128*d*(2 + d)^3*x)*
pj[J, x, d, 6]), m2^2*(32*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*
(-16 - 3*d - d^2 + 2*d^3 - 3*J - 8*d*J + 3*d^2*J + J^2 + 3*d*J^2)*
pj[J, x, d, 3] + (-32*(2 + d)^2*(-56 - 34*d + 12*d^2 - 16*d^3 -
30*J + 43*d*J - 23*d^2*J + 4*d^3*J + 19*J^2 - 17*d*J^2 + 5*d^2*
J^2 - 6*J^3 + 2*d*J^3 + J^4) - 32*(-2 + d)*(2 + d)*
(-48 - 4*d - 3*d^2 - d^3 + 2*d^4 + 12*J - 22*d*J - 9*d^2*J + 5*
d^3*J + 5*J^2 + 6*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*
pj[J, x, d, 4] + (32*d*(2 + d)*(-72 - 50*d - 15*d^2 + 2*d^3 - 6*
J - 13*d*J + 5*d^2*J + 2*J^2 + 5*d*J^2) +
32*(2 + d)*(112 + 4*d + 16*d^2 + 5*d^3 + 4*d^4 - 60*J + 8*d*J -
11*d^2*J + 5*d^3*J + 20*J^2 + 4*d*J^2 + 5*d^2*J^2)*x)*
pj[J, x, d, 5] + (-128*(2 + d)^2*(8 + 2*d + d^2) -
128*d*(2 + d)^3*x)*pj[J, x, d, 6]),
m2^2*(32*(2 + d)*(-3 + J)*(d + J)*(16 + 42*d + 3*d^2 + 2*d^3 - 6*J -
31*d*J + 5*d^2*J + 2*d^3*J + 2*J^2 + 11*d*J^2 + 2*d^2*J^2)*
pj[J, x, d, 3] - 32*(2 + d)*(48 + 124*d + 12*d^2 + 3*d^3 +
2*d^4 - 36*J - 132*d*J + 9*d^2*J + 7*d^3*J + 2*d^4*J + 12*J^2 +
66*d*J^2 + d^2*J^2 + 4*d^3*J^2 - 12*d*J^3 + 4*d^2*J^3 + 2*d*J^4)*
x*pj[J, x, d, 4] + 64*(2 + d)*(-40 - 42*d - 13*d^2 - 19*d^3 -
30*J + d*J - 12*d^2*J + 5*d^3*J + 10*J^2 + 3*d*J^2 + 5*d^2*J^2)*
pj[J, x, d, 5] - 256*(2 + d)^2*(4 + 2*d + d^2)*x*pj[J, x, d, 6]),
m2^2*(32*(-2 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(24 + 2*d + d^3 -
42*J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-32*(2 + d)^2*(-3 + J)*(d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*
J^2 + d*J^2) - 32*(-2 + d)*(2 + d)*(48 + 4*d + 2*d^2 - d^3 +
d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*J^2 -
d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*J^4)*x)*
pj[J, x, d, 3] + (32*(2 + d)*(-208 - 196*d - 78*d^2 - 42*d^3 - 31*
d^4 - 36*J - 24*d*J + 21*d^2*J - 30*d^3*J + 9*d^4*J - 6*J^2 +
51*d*J^2 - 23*d^2*J^2 + 12*d^3*J^2 + 12*J^3 - 22*d*J^3 + 6*d^2*
J^3 - 2*J^4 + 3*d*J^4) + 32*(2 + d)^2*(24 + 2*d + d^3 - 42*
J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*
J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-32*(2 + d)*(-80 - 124*d - 72*d^2 - 39*d^3 - 60*J - 16*d*J - 15*
d^2*J + 9*d^3*J + 20*J^2 + 12*d*J^2 + 9*d^2*J^2) -
32*(2 + d)*(112 + 20*d + 68*d^2 + 11*d^3 + 8*d^4 - 60*J + 20*d*
J - 33*d^2*J + 11*d^3*J + 20*J^2 + 11*d^2*J^2)*x)*
pj[J, x, d, 5] + (256*(2 + d)^2*(4 + 2*d + d^2) +
256*(2 + d)^2*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-32*(-2 + d)*(2 + d)*(-2 + J)*(-1 + d + J)*(24 + 2*d + d^3 -
42*J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-32*(2 + d)^2*(-3 + J)*(d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*
J^2 + d*J^2) + 32*(-2 + d)*(2 + d)*(48 + 4*d + 2*d^2 - d^3 +
d^4 - 108*J - 3*d^2*J + 2*d^3*J + d^4*J + 90*J^2 - 6*d*J^2 -
d^2*J^2 + 3*d^3*J^2 - 36*J^3 + 4*d^2*J^3 + 6*J^4 + 2*d*J^4)*x)*
pj[J, x, d, 3] + (-32*(2 + d)*(-208 - 196*d - 78*d^2 - 42*d^3 -
31*d^4 - 36*J - 24*d*J + 21*d^2*J - 30*d^3*J + 9*d^4*J - 6*
J^2 + 51*d*J^2 - 23*d^2*J^2 + 12*d^3*J^2 + 12*J^3 - 22*d*
J^3 + 6*d^2*J^3 - 2*J^4 + 3*d*J^4) + 32*(2 + d)^2*
(24 + 2*d + d^3 - 42*J - d*J + 2*d^2*J + d^3*J + 23*J^2 - d*
J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(-32*(2 + d)*(-80 - 124*d - 72*d^2 - 39*d^3 - 60*J - 16*d*J - 15*
d^2*J + 9*d^3*J + 20*J^2 + 12*d*J^2 + 9*d^2*J^2) +
32*(2 + d)*(112 + 20*d + 68*d^2 + 11*d^3 + 8*d^4 - 60*J + 20*d*
J - 33*d^2*J + 11*d^3*J + 20*J^2 + 11*d^2*J^2)*x)*
pj[J, x, d, 5] + (-256*(2 + d)^2*(4 + 2*d + d^2) +
256*(2 + d)^2*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-64*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*(-16 - 3*d - d^2 +
2*d^3 - 3*J - 8*d*J + 3*d^2*J + J^2 + 3*d*J^2)*pj[J, x, d, 3] +
64*(-2 + d)*(2 + d)*(-48 - 4*d - 3*d^2 - d^3 + 2*d^4 + 12*J -
22*d*J - 9*d^2*J + 5*d^3*J + 5*J^2 + 6*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*x*pj[J, x, d, 4] - 64*d*(2 + d)*
(-40 + 6*d + 5*d^2 + 2*d^3 + 18*J - 9*d*J + d^2*J - 6*J^2 +
d*J^2)*pj[J, x, d, 5]), m2*(64*(-2 + d)*(2 + d)*
(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J + 7*J^2 - 9*d*J^2 +
d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-128*(-2 + d)*(2 + d)*(-16 - 15*d - 5*d^2 - 3*J - 2*d*J + d^2*
J + J^2 + d*J^2) - 64*(-2 + d)*(2 + d)*(8 + d^2 - 12*J + d*
J + d^2*J + 4*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(128*(-2 + d)*(2 + d)*(-8 - 7*d - 3*J + d*J + J^2) +
128*(-2 + d)*(2 + d)*(8 + 3*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-256*(-2 + d)*(2 + d)^2 - 256*(-2 + d)*
(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(-64*(-2 + d)*(2 + d)*(-8 - 6*d - 4*d^2 + 6*J + 7*d*J - 3*d^2*J +
7*J^2 - 9*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
pj[J, x, d, 4] + (-128*(-2 + d)*(2 + d)*(-16 - 15*d - 5*d^2 - 3*
J - 2*d*J + d^2*J + J^2 + d*J^2) + 64*(-2 + d)*(2 + d)*
(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 5] + (-128*(-2 + d)*(2 + d)*(-8 - 7*d - 3*J + d*J + J^
2) + 128*(-2 + d)*(2 + d)*(8 + 3*d + d^2 - 3*J + d*J + J^2)*
x)*pj[J, x, d, 6] + (-256*(-2 + d)*(2 + d)^2 +
256*(-2 + d)*(2 + d)^2*x)*pj[J, x, d, 7]),
m2*(-32*(-2 + d)^2*(-3 + J)*(d + J)*(-8 - d - d^2 + d^3 + 3*J -
4*d*J + d^2*J - J^2 + d*J^2)*pj[J, x, d, 3] +
32*(-2 + d)^2*(2 + d)*(-12 + 5*d - 3*d^2 + d^3 + 9*J - 9*d*J +
2*d^2*J - 3*J^2 + 2*d*J^2)*x*pj[J, x, d, 4] -
32*(-2 + d)^2*d*(2 + d)^2*pj[J, x, d, 5]),
m2*(-64*(-2 + d)*(2 + d)*(72 + 94*d + 12*d^2 - 16*d^3 + 66*J +
11*d*J - 23*d^2*J + 4*d^3*J - 13*J^2 - 17*d*J^2 + 5*d^2*J^2 -
6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-256*(-2 + d)*d*(2 + d)*(-4 - 5*d - 3*J + d*J + J^2) +
64*(-2 + d)*(2 + d)*(-72 - 10*d - 3*d^2 + 4*d^3 + 18*J - 21*d*
J + 5*d^2*J - 6*J^2 + 5*d*J^2)*x)*pj[J, x, d, 5] +
(-256*(-2 + d)*d*(2 + d)^2 + 256*(-2 + d)*d*(2 + d)^2*x)*
pj[J, x, d, 6]), m2*(64*(-2 + d)*(2 + d)*(72 + 94*d + 12*d^2 -
16*d^3 + 66*J + 11*d*J - 23*d^2*J + 4*d^3*J - 13*J^2 -
17*d*J^2 + 5*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-256*(-2 + d)*d*(2 + d)*(-4 - 5*d - 3*J + d*J + J^2) -
64*(-2 + d)*(2 + d)*(-72 - 10*d - 3*d^2 + 4*d^3 + 18*J - 21*d*
J + 5*d^2*J - 6*J^2 + 5*d*J^2)*x)*pj[J, x, d, 5] +
(256*(-2 + d)*d*(2 + d)^2 + 256*(-2 + d)*d*(2 + d)^2*x)*
pj[J, x, d, 6]), m2*(64*(-2 + d)*(2 + d)*(-3 + J)*(d + J)*
(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 3] -
64*(-2 + d)*(2 + d)*(24 + 2*d + d^3 - 42*J - d*J + 2*d^2*J +
d^3*J + 23*J^2 - d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*
pj[J, x, d, 4] + 192*(-2 + d)*(2 + d)*(8 + 2*d - 13*d^2 + 6*J -
11*d*J + 3*d^2*J - 2*J^2 + 3*d*J^2)*pj[J, x, d, 5] -
512*(-2 + d)*d*(2 + d)^2*x*pj[J, x, d, 6]),
256*(-4 + d)*(-2 + d)*(2 + d)*(-4 - 5*d - 3*J + d*J + J^2)*
pj[J, x, d, 5] - 256*(-4 + d)*(-2 + d)*(2 + d)^2*x*
pj[J, x, d, 6]}}}], exchange[{5 + 2*m, 3},
{GGGG[d], s, 1 + (2*t)/s},
{{1/(12*(-1 + d)*(-3 + J)*(-1 + J)*J*(1 + J)*(-4 + d + J)*(-3 + d + J)*
(-2 + d + J)*(d + J)*m2^6)}},
{{{m2^3*(128*(-4 + d)*(-3 + J)*(d + J)*(14 - 5*d - 3*J + d*J + J^2)*
pj[J, x, d, 3] - 384*(-56 + 34*d - 5*d^2 + 30*J - 19*d*J +
3*d^2*J - 10*J^2 + 3*d*J^2)*x*pj[J, x, d, 4] +
3072*(-4 + d)*pj[J, x, d, 5]),
m2^2*(-48*(-4 + d)*(-24 - 6*d + 15*d^2 - 3*d^3 - 6*J + 26*d*J -
11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-48*(-4 + d)*(112 + 20*d - 16*d^2 + d^3 + 30*J - 25*d*J + 5*d^2*
J - 10*J^2 + 5*d*J^2) - 48*(-4 + d)*(-24 + 18*d - 3*d^2 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-192*(-4 + d)*(-24 - 7*d + d^2 - 6*J + 2*d*J + 2*J^2) -
48*(-4 + d)*(56 - 18*d + d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 6] + (-384*(-4 + d)*d - 192*(-10 + d)*(-4 + d)*x)*
pj[J, x, d, 7] + (-384*(-4 + d) - 384*(-4 + d)*x)*
pj[J, x, d, 8]), m2^2*(48*(-4 + d)*(-24 - 6*d + 15*d^2 - 3*d^3 -
6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-48*(-4 + d)*(112 + 20*d - 16*d^2 + d^3 + 30*J - 25*d*J + 5*d^2*
J - 10*J^2 + 5*d*J^2) + 48*(-4 + d)*(-24 + 18*d - 3*d^2 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(192*(-4 + d)*(-24 - 7*d + d^2 - 6*J + 2*d*J + 2*J^2) -
48*(-4 + d)*(56 - 18*d + d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 6] + (-384*(-4 + d)*d + 192*(-10 + d)*(-4 + d)*x)*
pj[J, x, d, 7] + (384*(-4 + d) - 384*(-4 + d)*x)*pj[J, x, d, 8]),
m2^2*((-4 + d)*(-2 + d)*(-1 + J)*J*(-3 + d + J)*(-2 + d + J)*
(8 + d - 3*J + d*J + J^2)*pj[J, x, d, 1] - (-4 + d)*(-2 + d)*J*
(-3 + d + J)*(8 + d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x*
pj[J, x, d, 2] + 3*(-4 + d)*(-2 + d)*d*(8 + 10*d - 3*d^2 + 6*J -
5*d*J + d^2*J - 2*J^2 + d*J^2)*pj[J, x, d, 3] -
3*(-4 + d)^2*(-2 + d)*d*(2 + d)*x*pj[J, x, d, 4]),
m2^2*(4*(-4 + 3*d)*(-2 + J)*(-1 + d + J)*(72 - 54*d + 9*d^2 - 78*J +
44*d*J - 6*d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] +
(8*(-3 + J)*(d + J)*(96 - 80*d + 2*d^2 + 3*d^3 + 36*J - 36*d*J + 8*
d^2*J - 12*J^2 + 8*d*J^2) - 8*(-4 + 3*d)*(72 - 54*d + 9*d^2 -
114*J + 71*d*J - 11*d^2*J + 74*J^2 - 35*d*J^2 + 4*d^2*J^2 - 24*
J^3 + 8*d*J^3 + 4*J^4)*x)*pj[J, x, d, 3] +
(4*(-576 + 672*d + 252*d^2 - 60*d^3 - 9*d^4 + 48*J + 44*d*J + 34*
d^2*J - 27*d^3*J + 3*d^4*J - 88*J^2 + 82*d*J^2 - 62*d^2*J^2 +
9*d^3*J^2 + 48*J^3 - 52*d*J^3 + 12*d^2*J^3 - 8*J^4 + 6*d*
J^4) - 8*(288 - 240*d + 6*d^2 + 9*d^3 + 24*J - 14*d*J + 2*d^2*
J - 44*J^2 + 53*d*J^2 - 22*d^2*J^2 + 3*d^3*J^2 + 24*J^3 - 26*
d*J^3 + 6*d^2*J^3 - 4*J^4 + 3*d*J^4)*x)*pj[J, x, d, 4] +
(-24*d*(-8 - 18*d + d^2 + d^3 - 6*J + 5*d*J - d^2*J + 2*J^2 - d*
J^2) - 24*d*(-40 - 2*d + 3*d^2 + 6*J - 5*d*J + d^2*J - 2*
J^2 + d*J^2)*x)*pj[J, x, d, 5] + (48*(-4 + d)*d*(2 + d) -
48*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-4*(-4 + 3*d)*(-2 + J)*(-1 + d + J)*(72 - 54*d + 9*d^2 -
78*J + 44*d*J - 6*d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] +
(8*(-3 + J)*(d + J)*(96 - 80*d + 2*d^2 + 3*d^3 + 36*J - 36*d*J + 8*
d^2*J - 12*J^2 + 8*d*J^2) + 8*(-4 + 3*d)*(72 - 54*d + 9*d^2 -
114*J + 71*d*J - 11*d^2*J + 74*J^2 - 35*d*J^2 + 4*d^2*J^2 - 24*
J^3 + 8*d*J^3 + 4*J^4)*x)*pj[J, x, d, 3] +
(-4*(-576 + 672*d + 252*d^2 - 60*d^3 - 9*d^4 + 48*J + 44*d*J + 34*
d^2*J - 27*d^3*J + 3*d^4*J - 88*J^2 + 82*d*J^2 - 62*d^2*J^2 +
9*d^3*J^2 + 48*J^3 - 52*d*J^3 + 12*d^2*J^3 - 8*J^4 + 6*d*
J^4) - 8*(288 - 240*d + 6*d^2 + 9*d^3 + 24*J - 14*d*J + 2*d^2*
J - 44*J^2 + 53*d*J^2 - 22*d^2*J^2 + 3*d^3*J^2 + 24*J^3 - 26*
d*J^3 + 6*d^2*J^3 - 4*J^4 + 3*d*J^4)*x)*pj[J, x, d, 4] +
(-24*d*(-8 - 18*d + d^2 + d^3 - 6*J + 5*d*J - d^2*J + 2*J^2 - d*
J^2) + 24*d*(-40 - 2*d + 3*d^2 + 6*J - 5*d*J + d^2*J - 2*
J^2 + d*J^2)*x)*pj[J, x, d, 5] + (-48*(-4 + d)*d*(2 + d) -
48*(-4 + d)*d*(2 + d)*x)*pj[J, x, d, 6]),
m2^2*(-96*d*(2 + d)*(-8 - 2*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 5] - 96*(-4 + d)*d*(2 + d)*x*pj[J, x, d, 6]),
m2^2*(96*(-3 + J)*(d + J)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*J +
d^2*J - 6*J^2 + d*J^2)*pj[J, x, d, 3] +
(48*(-256 - 24*d + 202*d^2 - 33*d^3 - 3*d^4 - 144*J + 294*d*J - 76*
d^2*J - 5*d^3*J + d^4*J + 84*J^2 - 79*d*J^2 - 16*d^2*J^2 + 4*
d^3*J^2 - 24*J^3 - 10*d*J^3 + 6*d^2*J^3 + 4*J^4 + 3*d*J^4) +
96*(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*d^2*J + 35*J^2 - 12*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(96*(40 + 2*d - 35*d^2 + 2*d^4 + 30*J - 37*d*J + 3*d^2*J + 2*d^3*
J - 10*J^2 + 9*d*J^2 + 2*d^2*J^2) + 48*(-256 + 232*d - 30*
d^2 - 3*d^3 + 96*J - 26*d*J - 5*d^2*J + d^3*J - 32*J^2 - 2*d*
J^2 + d^2*J^2)*x)*pj[J, x, d, 5] +
(96*(56 - 42*d - d^2 + 2*d^3 - 6*J - 7*d*J + 3*d^2*J + 2*J^2 + 3*d*
J^2) + 96*(56 - 42*d - d^2 + 2*d^3 - 6*J - 7*d*J + 3*d^2*J +
2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 6]),
m2^2*(96*(-3 + J)*(d + J)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*J +
d^2*J - 6*J^2 + d*J^2)*pj[J, x, d, 3] +
(-48*(-256 - 24*d + 202*d^2 - 33*d^3 - 3*d^4 - 144*J + 294*d*J -
76*d^2*J - 5*d^3*J + d^4*J + 84*J^2 - 79*d*J^2 - 16*d^2*J^2 +
4*d^3*J^2 - 24*J^3 - 10*d*J^3 + 6*d^2*J^3 + 4*J^4 + 3*d*J^4) +
96*(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*d^2*J + 35*J^2 - 12*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(96*(40 + 2*d - 35*d^2 + 2*d^4 + 30*J - 37*d*J + 3*d^2*J + 2*d^3*
J - 10*J^2 + 9*d*J^2 + 2*d^2*J^2) - 48*(-256 + 232*d - 30*
d^2 - 3*d^3 + 96*J - 26*d*J - 5*d^2*J + d^3*J - 32*J^2 - 2*d*
J^2 + d^2*J^2)*x)*pj[J, x, d, 5] +
(-96*(56 - 42*d - d^2 + 2*d^3 - 6*J - 7*d*J + 3*d^2*J + 2*J^2 + 3*
d*J^2) + 96*(56 - 42*d - d^2 + 2*d^3 - 6*J - 7*d*J + 3*d^2*
J + 2*J^2 + 3*d*J^2)*x)*pj[J, x, d, 6]),
m2^2*(-8*(-2 + d)*(-1 + J)*(-2 + d + J)*(72 - 54*d + 9*d^2 - 114*J +
71*d*J - 11*d^2*J + 74*J^2 - 35*d*J^2 + 4*d^2*J^2 - 24*J^3 +
8*d*J^3 + 4*J^4)*pj[J, x, d, 1] + 4*(-2 + d)*(-1 + J)*
(-2 + d + J)*(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 -
5*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*pj[J, x, d, 2] -
8*(-144 - 252*d + 276*d^2 + 33*d^3 - 21*d^4 - 204*J + 236*d*J -
89*d^2*J - d^3*J + 4*d^4*J - 4*J^2 - 62*d*J^2 + 48*d^2*J^2 -
8*d^3*J^2 + d^4*J^2 + 48*J^3 + 20*d*J^3 - 18*d^2*J^3 +
2*d^3*J^3 - 8*J^4 - 6*d*J^4 + d^2*J^4)*pj[J, x, d, 3] +
12*(192 - 160*d - 4*d^2 - 4*d^3 + 3*d^4 - 48*J + 124*d*J -
12*d^2*J - 17*d^3*J + 3*d^4*J + 16*J^2 - 36*d*J^2 - 8*d^2*J^2 +
3*d^3*J^2)*x*pj[J, x, d, 4] - 96*(-4 + d)*d*(4 + d^2)*
pj[J, x, d, 5]), m2^2*(-8*(-2 + d)*(-1 + J)*(-2 + d + J)*
(72 - 54*d + 9*d^2 - 114*J + 71*d*J - 11*d^2*J + 74*J^2 -
35*d*J^2 + 4*d^2*J^2 - 24*J^3 + 8*d*J^3 + 4*J^4)*
pj[J, x, d, 1] + (4*(-2 + d)*(-2 + J)*(-1 + d + J)*
(-72 + 54*d - 9*d^2 - 42*J - 10*d*J + 8*d^2*J + 23*J^2 + 2*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4) + 4*(-2 + d)*(-1 + J)*
(-2 + d + J)*(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*(72 + 18*d + 147*d^2 - 39*d^3 - 42*J + 185*d*J - 87*
d^2*J + 10*d^3*J + 50*J^2 - 72*d*J^2 + 8*d^2*J^2 + d^3*J^2 -
24*J^3 + 2*d*J^3 + 2*d^2*J^3 + 4*J^4 + d*J^4) -
8*(-2 + d)*(-72 + 54*d - 9*d^2 - 6*J - 43*d*J + 12*d^2*J + d^3*
J + 38*J^2 - d^2*J^2 + d^3*J^2 - 24*J^3 + 2*d*J^3 + 2*d^2*
J^3 + 4*J^4 + d*J^4)*x)*pj[J, x, d, 3] +
(12*(-2 + d)*d*(88 + 30*d - 13*d^2 + 18*J - 15*d*J + 3*d^2*J - 6*
J^2 + 3*d*J^2) + 12*(-2 + d)*d*(-104 + 14*d + 3*d^2 + 18*J -
15*d*J + 3*d^2*J - 6*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(-48*(-4 + d)*(-2 + d)*d*(2 + d) - 48*(-4 + d)*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 5]), m2^2*(192*(2 + d)*(-24 - 6*d + 15*d^2 -
3*d^3 - 6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(384*(2 + d)*(40 + 2*d - 7*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*
J^2 + 2*d*J^2) + 192*(2 + d)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*
J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(384*(2 + d)*(-12 - 5*d + 2*d^2 - 3*J + d*J + J^2) +
384*(2 + d)*(20 - 9*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (768*(-4 + d)*(2 + d) + 768*(-4 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(48*(-2 + d)*(-3 + J)*(d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*
pj[J, x, d, 3] + (48*(-496 - 388*d + 148*d^2 + 31*d^3 - 9*d^4 -
300*J + 238*d*J - 46*d^2*J - 9*d^3*J + 3*d^4*J + 154*J^2 - 109*
d*J^2 + 24*d^2*J^2 - 36*J^3 + 30*d*J^3 - 6*d^2*J^3 + 6*J^4 -
3*d*J^4) + 48*(-2 + d)*(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*
d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
x)*pj[J, x, d, 4] + (-48*(816 + 580*d - 88*d^2 - 43*d^3 + 4*
d^4 + 324*J - 72*d*J - 39*d^2*J + 9*d^3*J - 108*J^2 - 12*d*
J^2 + 9*d^2*J^2) + 48*(-496 + 108*d + 40*d^2 - 9*d^3 + 204*
J - 104*d*J + 3*d^2*J + 3*d^3*J - 68*J^2 + 12*d*J^2 + 3*d^2*
J^2)*x)*pj[J, x, d, 5] + (192*(-8 - 34*d - 3*d^2 + 3*d^3 - 6*
J + 5*d*J - d^2*J + 2*J^2 - d*J^2) - 192*(120 + 14*d - 15*
d^2 + d^3 - 6*J + 5*d*J - d^2*J + 2*J^2 - d*J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(2 + d) + 768*(-4 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(48*(-2 + d)*(-3 + J)*(d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*
pj[J, x, d, 3] + (-48*(-496 - 388*d + 148*d^2 + 31*d^3 - 9*d^4 -
300*J + 238*d*J - 46*d^2*J - 9*d^3*J + 3*d^4*J + 154*J^2 - 109*
d*J^2 + 24*d^2*J^2 - 36*J^3 + 30*d*J^3 - 6*d^2*J^3 + 6*J^4 -
3*d*J^4) + 48*(-2 + d)*(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*
d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
x)*pj[J, x, d, 4] + (-48*(816 + 580*d - 88*d^2 - 43*d^3 + 4*
d^4 + 324*J - 72*d*J - 39*d^2*J + 9*d^3*J - 108*J^2 - 12*d*
J^2 + 9*d^2*J^2) - 48*(-496 + 108*d + 40*d^2 - 9*d^3 + 204*
J - 104*d*J + 3*d^2*J + 3*d^3*J - 68*J^2 + 12*d*J^2 + 3*d^2*
J^2)*x)*pj[J, x, d, 5] + (-192*(-8 - 34*d - 3*d^2 + 3*d^3 - 6*
J + 5*d*J - d^2*J + 2*J^2 - d*J^2) - 192*(120 + 14*d - 15*
d^2 + d^3 - 6*J + 5*d*J - d^2*J + 2*J^2 - d*J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(2 + d) - 768*(-4 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(-192*(2 + d)*(-24 - 6*d + 15*d^2 - 3*d^3 -
6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(384*(2 + d)*(40 + 2*d - 7*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*J - 4*
J^2 + 2*d*J^2) - 192*(2 + d)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*
J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-384*(2 + d)*(-12 - 5*d + 2*d^2 - 3*J + d*J + J^2) +
384*(2 + d)*(20 - 9*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (768*(-4 + d)*(2 + d) - 768*(-4 + d)*(2 + d)*x)*
pj[J, x, d, 7]), m2^2*(-8*(-2 + d)*(-1 + J)*(-2 + d + J)*
(72 - 54*d + 9*d^2 - 114*J + 71*d*J - 11*d^2*J + 74*J^2 -
35*d*J^2 + 4*d^2*J^2 - 24*J^3 + 8*d*J^3 + 4*J^4)*
pj[J, x, d, 1] + (-4*(-2 + d)*(-2 + J)*(-1 + d + J)*
(-72 + 54*d - 9*d^2 - 42*J - 10*d*J + 8*d^2*J + 23*J^2 + 2*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4) + 4*(-2 + d)*(-1 + J)*
(-2 + d + J)*(72 - 18*d - 78*J + 23*d*J + d^2*J + 35*J^2 - 5*d*
J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-8*(-2 + d)*(72 + 18*d + 147*d^2 - 39*d^3 - 42*J + 185*d*J - 87*
d^2*J + 10*d^3*J + 50*J^2 - 72*d*J^2 + 8*d^2*J^2 + d^3*J^2 -
24*J^3 + 2*d*J^3 + 2*d^2*J^3 + 4*J^4 + d*J^4) +
8*(-2 + d)*(-72 + 54*d - 9*d^2 - 6*J - 43*d*J + 12*d^2*J + d^3*
J + 38*J^2 - d^2*J^2 + d^3*J^2 - 24*J^3 + 2*d*J^3 + 2*d^2*
J^3 + 4*J^4 + d*J^4)*x)*pj[J, x, d, 3] +
(-12*(-2 + d)*d*(88 + 30*d - 13*d^2 + 18*J - 15*d*J + 3*d^2*J - 6*
J^2 + 3*d*J^2) + 12*(-2 + d)*d*(-104 + 14*d + 3*d^2 + 18*J -
15*d*J + 3*d^2*J - 6*J^2 + 3*d*J^2)*x)*pj[J, x, d, 4] +
(-48*(-4 + d)*(-2 + d)*d*(2 + d) + 48*(-4 + d)*(-2 + d)*d*(2 + d)*
x)*pj[J, x, d, 5]), m2^2*(192*(-3 + J)*(d + J)*
(-24 + 18*d - 3*d^2 - 6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(96*(272 + 108*d - 128*d^2 + 33*d^3 - 3*d^4 + 180*J - 222*d*J + 66*
d^2*J - 7*d^3*J + d^4*J - 78*J^2 + 57*d*J^2 + 12*J^3 + 2*d*
J^3 - 2*d^2*J^3 - 2*J^4 - d*J^4) + 32*(432 - 324*d + 54*d^2 -
12*J + 82*d*J - 29*d^2*J + d^3*J - 32*J^2 + 7*d*J^2 - 9*d^2*
J^2 + d^3*J^2 + 24*J^3 - 14*d*J^3 + 2*d^2*J^3 - 4*J^4 + d*
J^4)*x)*pj[J, x, d, 4] + (-96*d*(-120 - 22*d + 5*d^2 + 2*
d^3 - 18*J + 3*d*J + d^2*J + 6*J^2 + d*J^2) +
96*(272 - 164*d + 36*d^2 - 3*d^3 - 84*J + 28*d*J - 3*d^2*J + d^3*
J + 28*J^2 + d^2*J^2)*x)*pj[J, x, d, 5] +
(384*(-4 + d)*(8 + 2*d + d^2) - 384*(-4 + d)*d*(2 + d)*x)*
pj[J, x, d, 6]), m2^2*(192*(-3 + J)*(d + J)*(-24 + 18*d - 3*d^2 -
6*J + 2*d*J + 2*J^2)*pj[J, x, d, 3] +
(-96*(272 + 108*d - 128*d^2 + 33*d^3 - 3*d^4 + 180*J - 222*d*J +
66*d^2*J - 7*d^3*J + d^4*J - 78*J^2 + 57*d*J^2 + 12*J^3 + 2*d*
J^3 - 2*d^2*J^3 - 2*J^4 - d*J^4) + 32*(432 - 324*d + 54*d^2 -
12*J + 82*d*J - 29*d^2*J + d^3*J - 32*J^2 + 7*d*J^2 - 9*d^2*
J^2 + d^3*J^2 + 24*J^3 - 14*d*J^3 + 2*d^2*J^3 - 4*J^4 + d*
J^4)*x)*pj[J, x, d, 4] + (-96*d*(-120 - 22*d + 5*d^2 + 2*
d^3 - 18*J + 3*d*J + d^2*J + 6*J^2 + d*J^2) -
96*(272 - 164*d + 36*d^2 - 3*d^3 - 84*J + 28*d*J - 3*d^2*J + d^3*
J + 28*J^2 + d^2*J^2)*x)*pj[J, x, d, 5] +
(-384*(-4 + d)*(8 + 2*d + d^2) - 384*(-4 + d)*d*(2 + d)*x)*
pj[J, x, d, 6]), m2^2*(32*(-3 + J)*(d + J)*(-192 - 104*d +
130*d^2 - 23*d^3 + 72*J + 60*d*J - 49*d^2*J + 7*d^3*J - 24*J^2 -
28*d*J^2 + 7*d^2*J^2)*pj[J, x, d, 3] +
32*(576 + 312*d - 390*d^2 + 69*d^3 - 408*J - 272*d*J + 277*d^2*J -
47*d^3*J + 154*J^2 + 160*d*J^2 - 69*d^2*J^2 + 4*d^3*J^2 -
12*J^3 - 20*d*J^3 + 8*d^2*J^3 + 2*J^4 + 4*d*J^4)*x*
pj[J, x, d, 4] - 192*(-56 - 14*d - 45*d^2 - 3*d^3 + 4*d^4 -
42*J + 5*d*J + d^3*J + 14*J^2 + 3*d*J^2 + d^2*J^2)*
pj[J, x, d, 5] - 768*(-4 + d)*(4 + 2*d + d^2)*x*pj[J, x, d, 6]),
m2^2*(-32*(-4 + d)*(-2 + J)*(-1 + d + J)*(72 - 54*d + 9*d^2 - 78*J +
44*d*J - 6*d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 2] + (-96*(2 + d)*(-3 + J)*(d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2) +
64*(-4 + d)*(72 - 54*d + 9*d^2 - 114*J + 71*d*J - 11*d^2*J + 74*
J^2 - 35*d*J^2 + 4*d^2*J^2 - 24*J^3 + 8*d*J^3 + 4*J^4)*x)*
pj[J, x, d, 3] + (32*(1392 + 420*d - 204*d^2 + 75*d^3 - 18*d^4 +
492*J - 374*d*J + 76*d^2*J - 20*d^3*J + 6*d^4*J - 146*J^2 + 13*
d*J^2 + 30*d^2*J^2 + d^3*J^2 - 12*J^3 + 34*d*J^3 - 10*d^2*
J^3 + 2*J^4 - 5*d*J^4) - 96*(2 + d)*(72 - 54*d + 9*d^2 - 78*
J + 44*d*J - 6*d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*x)*pj[J, x, d, 4] +
(96*(-112 - 132*d - 76*d^2 - 3*d^3 + 8*d^4 - 84*J + 4*d*J - 7*d^2*
J + 5*d^3*J + 28*J^2 + 8*d*J^2 + 5*d^2*J^2) -
96*(-272 + 84*d - 40*d^2 + 9*d^3 + 84*J - 16*d*J - 7*d^2*J + d^3*
J - 28*J^2 - 4*d*J^2 + d^2*J^2)*x)*pj[J, x, d, 5] +
(768*(-4 + d)*(4 + 2*d + d^2) + 768*(-4 + d)*(4 + 2*d + d^2)*x)*
pj[J, x, d, 6]), m2^2*(32*(-4 + d)*(-2 + J)*(-1 + d + J)*
(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*d^2*J + 35*J^2 -
12*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 2] +
(-96*(2 + d)*(-3 + J)*(d + J)*(-24 + 18*d - 3*d^2 + 18*J - 9*d*
J + d^2*J - 6*J^2 + d*J^2) - 64*(-4 + d)*(72 - 54*d + 9*d^2 -
114*J + 71*d*J - 11*d^2*J + 74*J^2 - 35*d*J^2 + 4*d^2*J^2 - 24*
J^3 + 8*d*J^3 + 4*J^4)*x)*pj[J, x, d, 3] +
(-32*(1392 + 420*d - 204*d^2 + 75*d^3 - 18*d^4 + 492*J - 374*d*
J + 76*d^2*J - 20*d^3*J + 6*d^4*J - 146*J^2 + 13*d*J^2 + 30*
d^2*J^2 + d^3*J^2 - 12*J^3 + 34*d*J^3 - 10*d^2*J^3 + 2*J^4 -
5*d*J^4) - 96*(2 + d)*(72 - 54*d + 9*d^2 - 78*J + 44*d*J - 6*
d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*
x)*pj[J, x, d, 4] + (96*(-112 - 132*d - 76*d^2 - 3*d^3 + 8*
d^4 - 84*J + 4*d*J - 7*d^2*J + 5*d^3*J + 28*J^2 + 8*d*J^2 + 5*
d^2*J^2) + 96*(-272 + 84*d - 40*d^2 + 9*d^3 + 84*J - 16*d*
J - 7*d^2*J + d^3*J - 28*J^2 - 4*d*J^2 + d^2*J^2)*x)*
pj[J, x, d, 5] + (-768*(-4 + d)*(4 + 2*d + d^2) +
768*(-4 + d)*(4 + 2*d + d^2)*x)*pj[J, x, d, 6]),
m2^2*(-384*(-3 + J)*(d + J)*(-24 + 18*d - 3*d^2 - 6*J + 2*d*J +
2*J^2)*pj[J, x, d, 3] - 64*(432 - 324*d + 54*d^2 - 12*J +
82*d*J - 29*d^2*J + d^3*J - 32*J^2 + 7*d*J^2 - 9*d^2*J^2 +
d^3*J^2 + 24*J^3 - 14*d*J^3 + 2*d^2*J^3 - 4*J^4 + d*J^4)*x*
pj[J, x, d, 4] - 192*d*(56 - 26*d - 5*d^2 + 2*d^3 - 6*J - 7*d*J +
3*d^2*J + 2*J^2 + 3*d*J^2)*pj[J, x, d, 5]),
m2*(-192*(-2 + d)*(-24 - 6*d + 15*d^2 - 3*d^3 - 6*J + 26*d*J -
11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 + 2*d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-384*(-2 + d)*(40 + 2*d - 7*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*
J - 4*J^2 + 2*d*J^2) - 192*(-2 + d)*(-24 + 18*d - 3*d^2 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-384*(-2 + d)*(-12 - 5*d + 2*d^2 - 3*J + d*J + J^2) -
384*(-2 + d)*(20 - 9*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(-2 + d) - 768*(-4 + d)*(-2 + d)*
x)*pj[J, x, d, 7]), m2*(192*(-2 + d)*(-24 - 6*d + 15*d^2 -
3*d^3 - 6*J + 26*d*J - 11*d^2*J + d^3*J + 11*J^2 - 14*d*J^2 +
2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*pj[J, x, d, 4] +
(-384*(-2 + d)*(40 + 2*d - 7*d^2 + d^3 + 12*J - 10*d*J + 2*d^2*
J - 4*J^2 + 2*d*J^2) + 192*(-2 + d)*(-24 + 18*d - 3*d^2 + 18*
J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(384*(-2 + d)*(-12 - 5*d + 2*d^2 - 3*J + d*J + J^2) -
384*(-2 + d)*(20 - 9*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 6] + (-768*(-4 + d)*(-2 + d) + 768*(-4 + d)*(-2 + d)*
x)*pj[J, x, d, 7]), m2*(96*(-4 + d)*(-2 + d)^2*(-3 + J)*(d + J)*
pj[J, x, d, 3] + 96*(-2 + d)^2*(12 - 3*d - 3*J + d*J + J^2)*x*
pj[J, x, d, 4] - 96*(-4 + d)*(-2 + d)^2*d*pj[J, x, d, 5]),
m2*(-192*(-2 + d)*(-120 - 78*d + 39*d^2 - 3*d^3 - 102*J + 52*d*J -
9*d^2*J + d^3*J + 25*J^2 + 6*J^3 - 2*d*J^3 - J^4)*
pj[J, x, d, 4] + (768*(-2 + d)*d*(-8 - 2*d + d^2 - 3*J + d*J + J^
2) - 192*(-2 + d)*(-120 + 42*d - 3*d^2 + 6*J - 5*d*J + d^2*
J - 2*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(-768*(-4 + d)*(-2 + d)*d + 768*(-4 + d)*(-2 + d)*d*x)*
pj[J, x, d, 6]), m2*(192*(-2 + d)*(-120 - 78*d + 39*d^2 - 3*d^3 -
102*J + 52*d*J - 9*d^2*J + d^3*J + 25*J^2 + 6*J^3 - 2*d*J^3 -
J^4)*pj[J, x, d, 4] + (768*(-2 + d)*d*(-8 - 2*d + d^2 - 3*J + d*
J + J^2) + 192*(-2 + d)*(-120 + 42*d - 3*d^2 + 6*J - 5*d*J +
d^2*J - 2*J^2 + d*J^2)*x)*pj[J, x, d, 5] +
(768*(-4 + d)*(-2 + d)*d + 768*(-4 + d)*(-2 + d)*d*x)*
pj[J, x, d, 6]), m2*(192*(-2 + d)*(-3 + J)*(d + J)*
(-24 + 18*d - 3*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*
pj[J, x, d, 3] + 192*(-2 + d)*(72 - 54*d + 9*d^2 - 78*J +
44*d*J - 6*d^2*J + 35*J^2 - 12*d*J^2 + d^2*J^2 - 6*J^3 +
2*d*J^3 + J^4)*x*pj[J, x, d, 4] - 192*(-2 + d)*
(72 - 70*d - 19*d^2 + 8*d^3 + 6*J - 17*d*J + 5*d^2*J - 2*J^2 +
5*d*J^2)*pj[J, x, d, 5] - 1536*(-4 + d)*(-2 + d)*d*x*
pj[J, x, d, 6]), -768*(-4 + d)*(-2 + d)*(-8 - 2*d + d^2 - 3*J +
d*J + J^2)*pj[J, x, d, 5] - 768*(-4 + d)^2*(-2 + d)*x*
pj[J, x, d, 6]}}}], exchange[{1, 1, 1}, {GGGG[d], s, 1 + (2*t)/s},
{{1}}, {{{0, 0, 0, 2/(3*d*m2^4), 0, 0, 0, 0, 0, 8/(3*d*m2^4),
8/(3*d*m2^4), 0, 0, 0, 0, 8/(3*d*m2^4), 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0}}}], exchange[{2 + 2*m, 2, 2}, {GGGG[d], s, 1 + (2*t)/s},
{{1/(3*(-5 + d)*(-4 + d)*(1 + J)*(2 + J)*(-5 + d + J)*(-4 + d + J)*
m2^4)}}, {{{m2*(16*(-4 + d)*(8 - 7*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 16*(-6 + d)*(-4 + d)*x*pj[J, x, d, 3]), 0, 0,
(-6 + d)*(-5 + d)*(-4 + d)*(-2 + d)*pj[J, x, d, 2],
-4*(-6 + d)*(8 - 7*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(8*(-6 + d)*(-2 + d) - 4*(-6 + d)^2*x)*pj[J, x, d, 3] +
(-8*(-6 + d) + 8*(-6 + d)*x)*pj[J, x, d, 4],
-4*(-6 + d)*(8 - 7*d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-8*(-6 + d)*(-2 + d) - 4*(-6 + d)^2*x)*pj[J, x, d, 3] +
(-8*(-6 + d) - 8*(-6 + d)*x)*pj[J, x, d, 4], 0, 0, 0,
8*(-6 + d)*(-22 + 24*d - 9*d^2 + d^3 - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 8*(-6 + d)*(4 - 6*d + d^2)*x*pj[J, x, d, 3],
8*(-6 + d)*(-5 + d)*(-3 + d)*(-2 + d)*pj[J, x, d, 2] +
(8*(-6 + d)*(-5 + d)*(-2 + d) + 8*(-6 + d)*(-5 + d)*(-2 + d)*x)*
pj[J, x, d, 3], 0, 0, 0, 0, 8*(-6 + d)*(-5 + d)*(-3 + d)*(-2 + d)*
pj[J, x, d, 2] + (-8*(-6 + d)*(-5 + d)*(-2 + d) +
8*(-6 + d)*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 3],
16*(-6 + d)*(-4 + d)*pj[J, x, d, 4], 16*(-6 + d)*(-4 + d)*
pj[J, x, d, 4], 16*(-6 + d)*(-4 + d)*(8 - 7*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + 16*(-6 + d)^2*(-4 + d)*x*pj[J, x, d, 3] +
16*(-6 + d)*(-4 + d)*pj[J, x, d, 4], -32*(-6 + d)*(-4 + d)*(-2 + d)*
pj[J, x, d, 3] - 32*(-6 + d)*(-4 + d)*x*pj[J, x, d, 4],
32*(-6 + d)*(-4 + d)*(-2 + d)*pj[J, x, d, 3] + 32*(-6 + d)*(-4 + d)*
x*pj[J, x, d, 4], -32*(-6 + d)*(-4 + d)*pj[J, x, d, 4], 0, 0, 0,
0, 0, 0, 0}}}], exchange[{3 + 2*m, 1, 1}, {GGGG[d], s, 1 + (2*t)/s},
{{2/(d*(2 + J)*(-5 + d + J)*m2^4), 1/(Sqrt[-1 + d]*d*Sqrt[-2 + J]*
Sqrt[-1 + J]*(2 + J)*(-5 + d + J)*Sqrt[-2 + d + J]*Sqrt[-1 + d + J]*
m2^5)}, {1/(Sqrt[-1 + d]*d*Sqrt[-2 + J]*Sqrt[-1 + J]*(2 + J)*
(-5 + d + J)*Sqrt[-2 + d + J]*Sqrt[-1 + d + J]*m2^5),
1/(2*(-1 + d)*d*(-2 + J)*(-1 + J)*(2 + J)*(-5 + d + J)*(-2 + d + J)*
(-1 + d + J)*m2^5)}}, {{{0, 0, 0, (-4 + d)*pj[J, x, d, 1], 0, 0, 0,
0, 0, 4*(-4 + d)*pj[J, x, d, 1] + 4*x*pj[J, x, d, 2],
4*(-4 + d)*pj[J, x, d, 1] + (4 + 4*x)*pj[J, x, d, 2], 0, 0, 0, 0,
4*(-4 + d)*pj[J, x, d, 1] + (-4 + 4*x)*pj[J, x, d, 2], 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0,
m2*(-((-4 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1]) +
(-4 + d)*(-2 + d)*d*x*pj[J, x, d, 2]), 0, 0, 0, 0, 0,
m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] -
4*(-2 + d)*(2 + 2*d - 3*J + d*J + J^2)*x*pj[J, x, d, 2] +
8*(-2 + d)*d*pj[J, x, d, 3]),
m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-4*(-2 + d)*(-2 + J)*(-1 + d + J) - 4*(-2 + d)*(2 + 2*d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 2] + (8*(-2 + d)*d + 8*(-2 + d)*d*x)*
pj[J, x, d, 3]), 0, 0, 0, 0,
m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J) - 4*(-2 + d)*(2 + 2*d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 2] + (8*(-2 + d)*d - 8*(-2 + d)*d*x)*
pj[J, x, d, 3]), 16*d*m2*x*pj[J, x, d, 4],
16*d*m2*x*pj[J, x, d, 4], m2*(16*(-2 + d)*d*pj[J, x, d, 3] +
16*d*x*pj[J, x, d, 4]), m2*(-16*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 64*d*x*pj[J, x, d, 3] - 32*d*pj[J, x, d, 4]),
m2*(16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
64*d*x*pj[J, x, d, 3] + 32*d*pj[J, x, d, 4]),
-32*d*m2*x*pj[J, x, d, 4], 0, 0, 8*(-2 + d)*d*pj[J, x, d, 3],
32*d*pj[J, x, d, 4], -32*d*pj[J, x, d, 4],
32*(-2 + d)*d*pj[J, x, d, 3] + 32*d*x*pj[J, x, d, 4], 0}},
{{0, 0, 0, m2*(-((-4 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1]) + (-4 + d)*(-2 + d)*d*x*pj[J, x, d, 2]), 0, 0,
0, 0, 0, m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] -
4*(-2 + d)*(2 + 2*d - 3*J + d*J + J^2)*x*pj[J, x, d, 2] +
8*(-2 + d)*d*pj[J, x, d, 3]),
m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-4*(-2 + d)*(-2 + J)*(-1 + d + J) - 4*(-2 + d)*(2 + 2*d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 2] + (8*(-2 + d)*d + 8*(-2 + d)*d*x)*
pj[J, x, d, 3]), 0, 0, 0, 0,
m2*(16*(-2 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(4*(-2 + d)*(-2 + J)*(-1 + d + J) - 4*(-2 + d)*(2 + 2*d - 3*J + d*
J + J^2)*x)*pj[J, x, d, 2] + (8*(-2 + d)*d - 8*(-2 + d)*d*x)*
pj[J, x, d, 3]), 16*d*m2*x*pj[J, x, d, 4],
16*d*m2*x*pj[J, x, d, 4], m2*(16*(-2 + d)*d*pj[J, x, d, 3] +
16*d*x*pj[J, x, d, 4]), m2*(-16*d*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] + 64*d*x*pj[J, x, d, 3] - 32*d*pj[J, x, d, 4]),
m2*(16*d*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] -
64*d*x*pj[J, x, d, 3] + 32*d*pj[J, x, d, 4]),
-32*d*m2*x*pj[J, x, d, 4], 0, 0, 8*(-2 + d)*d*pj[J, x, d, 3],
32*d*pj[J, x, d, 4], -32*d*pj[J, x, d, 4],
32*(-2 + d)*d*pj[J, x, d, 3] + 32*d*x*pj[J, x, d, 4], 0},
{0, 0, 0, m2*((-4 + d)*(-2 + d)^2*(-1 + J)*(-2 + d + J)*
(2 - d + d^2 - 3*J + d*J + J^2)*pj[J, x, d, 1] -
(-4 + d)*(-2 + d)^2*d*(4 - 3*d + d^2 - 6*J + 2*d*J + 2*J^2)*x*
pj[J, x, d, 2] + (-4 + d)*(-2 + d)*d^3*pj[J, x, d, 3]),
m2*(4*d^2*(-4 + 2*d - 3*d^2 - 3*d*J + d^2*J + d*J^2)*
pj[J, x, d, 3] + (-16*(-1 + d)*d^2 - 4*d^2*(4 + d^2)*x)*
pj[J, x, d, 4] + (8*d^3 - 8*d^3*x)*pj[J, x, d, 5]),
m2*(4*d^2*(-4 + 2*d - 3*d^2 - 3*d*J + d^2*J + d*J^2)*
pj[J, x, d, 3] + (16*(-1 + d)*d^2 - 4*d^2*(4 + d^2)*x)*
pj[J, x, d, 4] + (8*d^3 + 8*d^3*x)*pj[J, x, d, 5]), 0,
m2*(16*d^2*(-2 - 4*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
(64*d^2 - 16*d^2*(2 + d)*x)*pj[J, x, d, 5] + (32*d^2 + 32*d^2*x)*
pj[J, x, d, 6]), m2*(-16*d^2*(-2 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 4] + (64*d^2 + 16*d^2*(2 + d)*x)*pj[J, x, d, 5] +
(-32*d^2 + 32*d^2*x)*pj[J, x, d, 6]),
m2*(-4*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(8 - 2*d + 2*d^2 - 12*J +
d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
4*(-2 + d)^2*(4 + 8*d - 6*d^2 + 2*d^3 - 12*J - 8*d*J + d^2*J +
d^3*J + 13*J^2 - 2*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*d*J^3 + J^4)*x*
pj[J, x, d, 2] - 4*d*(32 - 68*d + 40*d^2 - 13*d^3 - 48*J +
64*d*J - 34*d^2*J + 6*d^3*J + 16*J^2 - 16*d*J^2 + 6*d^2*J^2)*
pj[J, x, d, 3] + 4*d^2*(8 - 6*d + 5*d^2)*x*pj[J, x, d, 4]),
m2*(-4*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(8 - 2*d + 2*d^2 - 12*J +
d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(2 - 2*d + 3*d^2 - 3*J + d*
J + J^2) + 4*(-2 + d)^2*(4 + 8*d - 6*d^2 + 2*d^3 - 12*J - 8*d*
J + d^2*J + d^3*J + 13*J^2 - 2*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*
d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)^2*d*(8 - 7*d - 12*J + 4*d*J + 4*J^2) -
4*(-2 + d)^2*d*(8 - 5*d + 3*d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 3] + (12*(-2 + d)*d^3 + 12*(-2 + d)*d^3*x)*
pj[J, x, d, 4]), 0, m2*(-32*d^2*(2 - 4*d - 3*J + d*J + J^2)*
pj[J, x, d, 3] + (-16*d^2*(-14 - 8*d - 9*J + 3*d*J + 3*J^2) +
16*d^2*(2 + 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*d^2*(2 + d) + 16*d^2*(10 + d)*x)*pj[J, x, d, 5] +
(-64*d^2 + 64*d^2*x)*pj[J, x, d, 6]),
m2*(-32*d^2*(2 - 4*d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
(16*d^2*(-14 - 8*d - 9*J + 3*d*J + 3*J^2) +
16*d^2*(2 + 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*d^2*(2 + d) - 16*d^2*(10 + d)*x)*pj[J, x, d, 5] +
(64*d^2 + 64*d^2*x)*pj[J, x, d, 6]), 0,
m2*(-4*(-2 + d)^2*(-1 + J)*(-2 + d + J)*(8 - 2*d + 2*d^2 - 12*J +
d*J + d^2*J + 4*J^2 + d*J^2)*pj[J, x, d, 1] +
(-4*(-2 + d)^2*(-2 + J)*(-1 + d + J)*(2 - 2*d + 3*d^2 - 3*J + d*
J + J^2) + 4*(-2 + d)^2*(4 + 8*d - 6*d^2 + 2*d^3 - 12*J - 8*d*
J + d^2*J + d^3*J + 13*J^2 - 2*d*J^2 + 2*d^2*J^2 - 6*J^3 + 2*
d*J^3 + J^4)*x)*pj[J, x, d, 2] +
(-4*(-2 + d)^2*d*(8 - 7*d - 12*J + 4*d*J + 4*J^2) +
4*(-2 + d)^2*d*(8 - 5*d + 3*d^2 - 12*J + 4*d*J + 4*J^2)*x)*
pj[J, x, d, 3] + (-12*(-2 + d)*d^3 + 12*(-2 + d)*d^3*x)*
pj[J, x, d, 4]), m2*(32*(-2 + d)*d^2*(-3 + J)*(d + J)*
pj[J, x, d, 3] + (32*d^2*(-2 - 4*d - 3*J + d*J + J^2) -
32*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*d^3 - 32*d^2*(2 + d)*x)*pj[J, x, d, 5]),
m2*(32*(-2 + d)*d^2*(-3 + J)*(d + J)*pj[J, x, d, 3] +
(-32*d^2*(-2 - 4*d - 3*J + d*J + J^2) - 32*(-2 + d)*d*
(2 + d^2 - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*d^3 + 32*d^2*(2 + d)*x)*pj[J, x, d, 5]),
m2*(64*d*(-4 + 10*d - 10*d^2 + 6*J - 11*d*J + 3*d^2*J - 2*J^2 +
3*d*J^2)*pj[J, x, d, 3] - 64*d*(-2 + 4*d + 2*d^2 + 3*J - 4*d*J +
d^2*J - J^2 + d*J^2)*x*pj[J, x, d, 4] + 64*d^2*(1 + d)*
pj[J, x, d, 5]), m2*(32*(-2 + d)*d*(-2 + J)*(-1 + d + J)*
(2 + 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-64*d^2*(2 - 4*d - 3*J + d*J + J^2) - 32*(-2 + d)*d*
(8 - 2*d + 2*d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (32*d*(-8 + 6*d - 8*d^2 + 12*J - 13*d*J + 3*d^2*
J - 4*J^2 + 3*d*J^2) + 32*d^2*(2 + 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-32*d^2*(2 + d) - 32*d^2*(2 + 3*d)*x)*
pj[J, x, d, 5]), m2*(-32*(-2 + d)*d*(-2 + J)*(-1 + d + J)*
(2 + 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(-64*d^2*(2 - 4*d - 3*J + d*J + J^2) + 32*(-2 + d)*d*
(8 - 2*d + 2*d^2 - 12*J + d*J + d^2*J + 4*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (-32*d*(-8 + 6*d - 8*d^2 + 12*J - 13*d*J + 3*d^2*
J - 4*J^2 + 3*d*J^2) + 32*d^2*(2 + 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-32*d^2*(2 + d) + 32*d^2*(2 + 3*d)*x)*
pj[J, x, d, 5]), m2*(-64*(-2 + d)*d^2*(-3 + J)*(d + J)*
pj[J, x, d, 3] + 64*(-2 + d)*d*(2 + d^2 - 3*J + d*J + J^2)*x*
pj[J, x, d, 4] - 64*d^3*pj[J, x, d, 5]), 0, 0,
-16*(-2 + d)^2*d*(2 - 3*d - 3*J + d*J + J^2)*pj[J, x, d, 3] +
16*(-2 + d)^2*d^2*x*pj[J, x, d, 4],
-64*(-2 + d)*d*(2 - 4*d - 3*J + d*J + J^2)*pj[J, x, d, 4] +
64*(-2 + d)*d^2*x*pj[J, x, d, 5],
64*(-2 + d)*d*(2 - 4*d - 3*J + d*J + J^2)*pj[J, x, d, 4] -
64*(-2 + d)*d^2*x*pj[J, x, d, 5],
128*(-2 + d)*d*(2 - 4*d - 3*J + d*J + J^2)*pj[J, x, d, 3] -
64*(-2 + d)*d*(2 + 2*d - 3*J + d*J + J^2)*x*pj[J, x, d, 4] +
64*(-2 + d)*d^2*pj[J, x, d, 5], 0}}}], exchange[{3 + 2*m, 2, 1},
{GGGG[d], s, 1 + (2*t)/s},
{{2/(3*(-4 + d)*J*(2 + J)*(-5 + d + J)*(-3 + d + J)*m2^4)}},
{{{-16*(-4 + d)*m2*pj[J, x, d, 3], 0, 0, (-5 + d)*(-4 + d)*(-1 + J)*
(-2 + d + J)*pj[J, x, d, 1] - (-5 + d)*(-4 + d)*(-2 + d)*x*
pj[J, x, d, 2], -4*(-4 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
(4*d + 8*x)*pj[J, x, d, 3] + (-8 + 8*x)*pj[J, x, d, 4],
4*(-4 - 3*J + d*J + J^2)*pj[J, x, d, 2] + (4*d - 8*x)*
pj[J, x, d, 3] + (8 + 8*x)*pj[J, x, d, 4], 0, 0, 0,
-8*(-5 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
4*(-5 + d)*(-4 + 2*d - 3*J + d*J + J^2)*x*pj[J, x, d, 2] -
8*(4 - 6*d + d^2)*pj[J, x, d, 3], -8*(-5 + d)*(-1 + J)*(-2 + d + J)*
pj[J, x, d, 1] + (4*(-5 + d)*(8 - 4*d - 3*J + d*J + J^2) +
4*(-5 + d)*(-4 + 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-5 + d)*(-2 + d) - 8*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 3], 0,
0, 0, 0, -8*(-5 + d)*(-1 + J)*(-2 + d + J)*pj[J, x, d, 1] +
(-4*(-5 + d)*(8 - 4*d - 3*J + d*J + J^2) + 4*(-5 + d)*
(-4 + 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(-8*(-5 + d)*(-2 + d) + 8*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 3],
-48*(-4 + d)*pj[J, x, d, 3] - 16*(-4 + d)*x*pj[J, x, d, 4],
-48*(-4 + d)*pj[J, x, d, 3] - 16*(-4 + d)*x*pj[J, x, d, 4],
-16*(-4 + d)*(-3 + d)*pj[J, x, d, 3] - 16*(-4 + d)*x*pj[J, x, d, 4],
16*(-4 + d)*(-4 - 3*J + d*J + J^2)*pj[J, x, d, 2] -
32*(-4 + d)*x*pj[J, x, d, 3] + 32*(-4 + d)*pj[J, x, d, 4],
-16*(-4 + d)*(-4 - 3*J + d*J + J^2)*pj[J, x, d, 2] +
32*(-4 + d)*x*pj[J, x, d, 3] - 32*(-4 + d)*pj[J, x, d, 4],
96*(-4 + d)*pj[J, x, d, 3] + 32*(-4 + d)*x*pj[J, x, d, 4], 0, 0, 0,
0, 0, 0, 0}}}], exchange[{3 + 2*m, 3, 1}, {GGGG[d], s, 1 + (2*t)/s},
{{1/(4*(-3 + d)*(-1 + d)*(-1 + J)*J*(2 + J)*(-5 + d + J)*(-3 + d + J)*
(-2 + d + J)*m2^5)}},
{{{0, 0, 0, m2*((-5 + d)*(-4 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*
(4 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 1] - 2*(-5 + d)*(-4 + d)*
(-2 + d)*(-1 + J)*(-2 + d + J)*x*pj[J, x, d, 2] +
(-5 + d)*(-4 + d)*(-2 + d)^2*d*pj[J, x, d, 3]),
m2*(-8*(-1 + d)*(-2 + J)*(-1 + d + J)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (4*(-2 + d)*(20*d + 6*d^2 - 7*d^3 + d^4 +
12*J - d*J - 4*d^2*J + d^3*J - 4*J^2 - d*J^2 + d^2*J^2) -
8*(-1 + d)*(-20 + 14*d - 2*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 +
d*J^2)*x)*pj[J, x, d, 3] +
(-8*(-1 + d)*(20 - 4*d - 5*d^2 + d^3 - 6*J + 2*d*J + 2*J^2) +
4*(-40 + 8*d + 20*d^2 - 9*d^3 + d^4 + 12*J - 16*d*J + 4*d^2*J -
4*J^2 + 4*d*J^2)*x)*pj[J, x, d, 4] +
(8*(-5 + d)*(-2 + d)*d - 8*(-5 + d)*(-2 + d)*d*x)*pj[J, x, d, 5]),
m2*(8*(-1 + d)*(-2 + J)*(-1 + d + J)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (4*(-2 + d)*(20*d + 6*d^2 - 7*d^3 + d^4 +
12*J - d*J - 4*d^2*J + d^3*J - 4*J^2 - d*J^2 + d^2*J^2) +
8*(-1 + d)*(-20 + 14*d - 2*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 +
d*J^2)*x)*pj[J, x, d, 3] +
(8*(-1 + d)*(20 - 4*d - 5*d^2 + d^3 - 6*J + 2*d*J + 2*J^2) +
4*(-40 + 8*d + 20*d^2 - 9*d^3 + d^4 + 12*J - 16*d*J + 4*d^2*J -
4*J^2 + 4*d*J^2)*x)*pj[J, x, d, 4] +
(8*(-5 + d)*(-2 + d)*d + 8*(-5 + d)*(-2 + d)*d*x)*pj[J, x, d, 5]),
0, m2*(-32*(-2 + d)*(-1 + d)*(-5*d + d^2 - 6*J + 2*d*J + 2*J^2)*
pj[J, x, d, 3] + (16*(-40 - 2*d + 27*d^2 - 10*d^3 + d^4 - 36*J +
39*d*J - 12*d^2*J + d^3*J + 12*J^2 - 9*d*J^2 + d^2*J^2) -
32*(-1 + d)*(10 - 7*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (32*(-5 + d)*(-2 + d)*(1 + d) +
16*(-5 + d)*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 5] +
(32*(-5 + d)*(-2 + d) + 32*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(-32*(-2 + d)*(-1 + d)*(-5*d + d^2 - 6*J + 2*d*J + 2*J^2)*
pj[J, x, d, 3] + (-16*(-40 - 2*d + 27*d^2 - 10*d^3 + d^4 - 36*
J + 39*d*J - 12*d^2*J + d^3*J + 12*J^2 - 9*d*J^2 + d^2*J^2) -
32*(-1 + d)*(10 - 7*d + d^2 - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (32*(-5 + d)*(-2 + d)*(1 + d) -
16*(-5 + d)*(-4 + d)*(-2 + d)*x)*pj[J, x, d, 5] +
(-32*(-5 + d)*(-2 + d) + 32*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(-20 + 14*d - 2*d^2 +
18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*pj[J, x, d, 1] +
4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(10 - 2*d - 3*J + d*J +
J^2)*x*pj[J, x, d, 2] + 4*(-2 + d)*(20 - 94*d + 68*d^2 -
35*d^3 + 5*d^4 - 96*J + 62*d*J - 16*d^2*J + 2*d^3*J + 32*J^2 -
10*d*J^2 + 2*d^2*J^2)*pj[J, x, d, 3] + 4*(-5 + d)*(-2 + d)*
(8 - 6*d + 5*d^2)*x*pj[J, x, d, 4]),
m2*(4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(-20 + 14*d - 2*d^2 +
18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*pj[J, x, d, 1] +
(4*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*(6 - 3*d - 3*J + d*J +
J^2) + 4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*
(10 - 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(4*(-5 + d)*(-2 + d)*(-4 + 10*d - 10*d^2 + 3*d^3 + 12*J - 4*d*J -
4*J^2) - 8*(-5 + d)*(-2 + d)*(6 - 3*d - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 3] + (12*(-5 + d)*(-2 + d)^2*d +
12*(-5 + d)*(-2 + d)^2*d*x)*pj[J, x, d, 4]), 0,
m2*(16*(-5 + d)*(-2 + d)^2*(-5*d + d^2 - 6*J + 2*d*J + 2*J^2)*
pj[J, x, d, 3] + (-16*(-5 + d)*(-2 + d)*(-14 - 11*d + 3*d^2 - 9*
J + 3*d*J + 3*J^2) + 16*(-5 + d)*(-2 + d)*(10 - 7*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(-5 + d)*(-2 + d)*(-2 + 5*d) - 16*(-5 + d)*(-2 + d)*
(-14 + 3*d)*x)*pj[J, x, d, 5] + (-64*(-5 + d)*(-2 + d) +
64*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 6]),
m2*(16*(-5 + d)*(-2 + d)^2*(-5*d + d^2 - 6*J + 2*d*J + 2*J^2)*
pj[J, x, d, 3] + (16*(-5 + d)*(-2 + d)*(-14 - 11*d + 3*d^2 - 9*
J + 3*d*J + 3*J^2) + 16*(-5 + d)*(-2 + d)*(10 - 7*d + d^2 - 3*
J + d*J + J^2)*x)*pj[J, x, d, 4] +
(16*(-5 + d)*(-2 + d)*(-2 + 5*d) + 16*(-5 + d)*(-2 + d)*
(-14 + 3*d)*x)*pj[J, x, d, 5] + (64*(-5 + d)*(-2 + d) +
64*(-5 + d)*(-2 + d)*x)*pj[J, x, d, 6]), 0,
m2*(4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*(-20 + 14*d - 2*d^2 +
18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*pj[J, x, d, 1] +
(-4*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*(6 - 3*d - 3*J + d*
J + J^2) + 4*(-5 + d)*(-2 + d)*(-1 + J)*(-2 + d + J)*
(10 - 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 2] +
(4*(-5 + d)*(-2 + d)*(-4 + 10*d - 10*d^2 + 3*d^3 + 12*J - 4*d*J -
4*J^2) + 8*(-5 + d)*(-2 + d)*(6 - 3*d - 6*J + 2*d*J + 2*J^2)*
x)*pj[J, x, d, 3] + (-12*(-5 + d)*(-2 + d)^2*d +
12*(-5 + d)*(-2 + d)^2*d*x)*pj[J, x, d, 4]),
m2*(-32*(-2 + d)*(20*d - 9*d^2 + d^3 + 21*J - 16*d*J + 3*d^2*J -
7*J^2 + 3*d*J^2)*pj[J, x, d, 3] +
(-32*(20 + 16*d - 9*d^2 - 4*d^3 + d^4 + 6*J + 7*d*J - 6*d^2*J +
d^3*J - 2*J^2 - 3*d*J^2 + d^2*J^2) - 32*(-40 + 38*d - 11*d^2 +
d^3 + 18*J - 12*d*J + 2*d^2*J - 6*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (32*(-5 + d)*(-2 + d)*d - 32*(-5 + d)*(-2 + d)*
(2 + d)*x)*pj[J, x, d, 5]),
m2*(-32*(-2 + d)*(20*d - 9*d^2 + d^3 + 21*J - 16*d*J + 3*d^2*J -
7*J^2 + 3*d*J^2)*pj[J, x, d, 3] +
(32*(20 + 16*d - 9*d^2 - 4*d^3 + d^4 + 6*J + 7*d*J - 6*d^2*J + d^3*
J - 2*J^2 - 3*d*J^2 + d^2*J^2) - 32*(-40 + 38*d - 11*d^2 + d^
3 + 18*J - 12*d*J + 2*d^2*J - 6*J^2 + 2*d*J^2)*x)*
pj[J, x, d, 4] + (32*(-5 + d)*(-2 + d)*d + 32*(-5 + d)*(-2 + d)*
(2 + d)*x)*pj[J, x, d, 5]),
m2*(32*(-2 + d)*(10*d + 38*d^2 - 18*d^3 + 2*d^4 - 3*J + 37*d*J -
21*d^2*J + 3*d^3*J + J^2 - 12*d*J^2 + 3*d^2*J^2)*
pj[J, x, d, 3] + 32*(-20 - 66*d + 74*d^2 - 22*d^3 + 2*d^4 -
12*J + 19*d*J - 8*d^2*J + d^3*J + 4*J^2 - 5*d*J^2 + d^2*J^2)*x*
pj[J, x, d, 4] + 64*(-5 + d)*(-2 + d)*(1 + d)*pj[J, x, d, 5]),
m2*(64*(-3 + d)*(-2 + J)*(-1 + d + J)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (-32*(-2 + d)*(-2 - 3*d + d^2)*
(-5*d + d^2 - 6*J + 2*d*J + 2*J^2) + 64*(-3 + d)*
(-20 + 14*d - 2*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (-32*(-5 + d)*(-2 + d)*(6 + d + 3*d^2 - 3*J + d*
J + J^2) - 32*(-2 - 3*d + d^2)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (-32*(-5 + d)*(-2 + d)*(2 + d) -
32*(-5 + d)*(-2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5]),
m2*(-64*(-3 + d)*(-2 + J)*(-1 + d + J)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*pj[J, x, d, 2] + (-32*(-2 + d)*(-2 - 3*d + d^2)*
(-5*d + d^2 - 6*J + 2*d*J + 2*J^2) - 64*(-3 + d)*
(-20 + 14*d - 2*d^2 + 18*J - 9*d*J + d^2*J - 6*J^2 + d*J^2)*x)*
pj[J, x, d, 3] + (32*(-5 + d)*(-2 + d)*(6 + d + 3*d^2 - 3*J + d*
J + J^2) - 32*(-2 - 3*d + d^2)*(10 - 7*d + d^2 - 3*J + d*J +
J^2)*x)*pj[J, x, d, 4] + (-32*(-5 + d)*(-2 + d)*(2 + d) +
32*(-5 + d)*(-2 + d)*(2 + 3*d)*x)*pj[J, x, d, 5]),
m2*(64*(-2 + d)*(20*d - 9*d^2 + d^3 + 21*J - 16*d*J + 3*d^2*J -
7*J^2 + 3*d*J^2)*pj[J, x, d, 3] + 64*(-40 + 38*d - 11*d^2 +
d^3 + 18*J - 12*d*J + 2*d^2*J - 6*J^2 + 2*d*J^2)*x*
pj[J, x, d, 4] - 64*(-5 + d)*(-2 + d)*d*pj[J, x, d, 5]), 0, 0,
16*(-5 + d)*(-2 + d)^2*(-2*d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 3] + 16*(-5 + d)*(-2 + d)^3*x*pj[J, x, d, 4],
64*(-5 + d)*(-2 + d)*(-2 - d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] + 64*(-5 + d)*(-2 + d)^2*x*pj[J, x, d, 5],
-64*(-5 + d)*(-2 + d)*(-2 - d + d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 4] - 64*(-5 + d)*(-2 + d)^2*x*pj[J, x, d, 5],
64*(-5 + d)*(-2 + d)^2*(-5*d + d^2 - 6*J + 2*d*J + 2*J^2)*
pj[J, x, d, 3] + 64*(-5 + d)*(-2 + d)*(10 - 7*d + d^2 - 3*J +
d*J + J^2)*x*pj[J, x, d, 4] + 64*(-5 + d)*(-2 + d)^2*
pj[J, x, d, 5], 0}}}], exchange[{4 + 2*m, 2, 1},
{GGGG[d], s, 1 + (2*t)/s},
{{2/(3*(-4 + d)*(-2 + J)*J*(2 + J)*(-5 + d + J)*(-3 + d + J)*
(-1 + d + J)*m2^5)}},
{{{0, 0, 0, m2*((-5 + d)*(-4 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*
pj[J, x, d, 2] - (-5 + d)*(-4 + d)*(-2 + d)*d*x*pj[J, x, d, 3]),
m2*(-4*(-2 + J)*(-1 + d + J)*(10 - 2*d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (4*(20*d + 6*d^2 - 2*d^3 + 12*J + 8*d*J - 7*d^2*
J + d^3*J - 4*J^2 - 4*d*J^2 + d^2*J^2) +
8*(10 - 2*d - 9*J + 3*d*J + 3*J^2)*x)*pj[J, x, d, 3] +
(-4*(20 - 14*d - 3*d^2 + d^3 - 6*J + 2*d*J + 2*J^2) -
8*(-10 - 3*d + d^2 + 3*J - d*J - J^2)*x)*pj[J, x, d, 4] +
(8*(-5 + d)*d - 8*(-5 + d)*d*x)*pj[J, x, d, 5]),
m2*(-4*(-2 + J)*(-1 + d + J)*(10 - 2*d - 3*J + d*J + J^2)*
pj[J, x, d, 2] + (-4*(20*d + 6*d^2 - 2*d^3 + 12*J + 8*d*J - 7*d^2*
J + d^3*J - 4*J^2 - 4*d*J^2 + d^2*J^2) +
8*(10 - 2*d - 9*J + 3*d*J + 3*J^2)*x)*pj[J, x, d, 3] +
(-4*(20 - 14*d - 3*d^2 + d^3 - 6*J + 2*d*J + 2*J^2) +
8*(-10 - 3*d + d^2 + 3*J - d*J - J^2)*x)*pj[J, x, d, 4] +
(-8*(-5 + d)*d - 8*(-5 + d)*d*x)*pj[J, x, d, 5]), 0,
m2*(16*(10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*
pj[J, x, d, 3] + (-16*(20 + 16*d - 4*d^2 + 18*J - 9*d*J + d^2*
J - 6*J^2 + d*J^2) + 16*(10 - 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-16*(-5 + d)*(2 + d) + 64*(-5 + d)*x)*
pj[J, x, d, 5] + (-32*(-5 + d) - 32*(-5 + d)*x)*pj[J, x, d, 6]),
m2*(-16*(10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*
pj[J, x, d, 3] + (-16*(20 + 16*d - 4*d^2 + 18*J - 9*d*J + d^2*
J - 6*J^2 + d*J^2) - 16*(10 - 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (16*(-5 + d)*(2 + d) + 64*(-5 + d)*x)*
pj[J, x, d, 5] + (-32*(-5 + d) + 32*(-5 + d)*x)*pj[J, x, d, 6]),
m2*(8*(-2 + J)*(-1 + d + J)*(-20 + 19*d - 3*d^2 - 3*J + d*J + J^2)*
pj[J, x, d, 2] + 4*(20 - 4*d - 15*d^2 + 3*d^3 - 24*J + 50*d*J -
20*d^2*J + 2*d^3*J + 8*J^2 - 14*d*J^2 + 2*d^2*J^2)*x*
pj[J, x, d, 3] - 4*(-5 + d)*(8 - 6*d + 5*d^2)*pj[J, x, d, 4]),
m2*(-24*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
(4*(-5 + d)*(-2 + d)*(2 - 7*d - 6*J + 2*d*J + 2*J^2) +
4*(-5 + d)*(-2 + d)*(6 + 3*d - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-12*(-5 + d)*(-2 + d)*d - 12*(-5 + d)*(-2 + d)*
d*x)*pj[J, x, d, 4]), 0,
m2*(16*(-5 + d)*(10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 +
d*J^2)*pj[J, x, d, 3] + (-16*(-5 + d)*(-14 - 10*d + d^2 - 9*J +
3*d*J + 3*J^2) + 16*(-5 + d)*(10 - 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (16*(-5 + d)*(-2 + 3*d) - 16*(-14 + d)*(-5 + d)*
x)*pj[J, x, d, 5] + (-64*(-5 + d) + 64*(-5 + d)*x)*
pj[J, x, d, 6]), m2*(-16*(-5 + d)*(10*d - 2*d^2 + 12*J - 7*d*J +
d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(-16*(-5 + d)*(-14 - 10*d + d^2 - 9*J + 3*d*J + 3*J^2) -
16*(-5 + d)*(10 - 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-16*(-5 + d)*(-2 + 3*d) - 16*(-14 + d)*(-5 + d)*x)*
pj[J, x, d, 5] + (-64*(-5 + d) - 64*(-5 + d)*x)*pj[J, x, d, 6]),
0, m2*(-24*(-5 + d)*(-2 + d)*(-2 + J)*(-1 + d + J)*pj[J, x, d, 2] +
(-4*(-5 + d)*(-2 + d)*(2 - 7*d - 6*J + 2*d*J + 2*J^2) +
4*(-5 + d)*(-2 + d)*(6 + 3*d - 6*J + 2*d*J + 2*J^2)*x)*
pj[J, x, d, 3] + (-12*(-5 + d)*(-2 + d)*d + 12*(-5 + d)*(-2 + d)*
d*x)*pj[J, x, d, 4]), m2*(32*(10*d - 2*d^2 + 12*J - 7*d*J +
d^2*J - 4*J^2 + d*J^2)*pj[J, x, d, 3] +
(16*(20 + 16*d - 4*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2) +
32*(10 - 2*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(-5 + d)*(2 + d) - 32*(-5 + d)*d*x)*pj[J, x, d, 5]),
m2*(-32*(10*d - 2*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*
pj[J, x, d, 3] + (16*(20 + 16*d - 4*d^2 + 12*J - 7*d*J + d^2*J -
4*J^2 + d*J^2) - 32*(10 - 2*d - 3*J + d*J + J^2)*x)*
pj[J, x, d, 4] + (-32*(-5 + d)*(2 + d) - 32*(-5 + d)*d*x)*
pj[J, x, d, 5]), m2*(16*(-4 + d)*(-2 + J)*(-1 + d + J)*
(10 - 2*d - 3*J + d*J + J^2)*pj[J, x, d, 2] -
32*(-4 + d)*(10 - 2*d - 9*J + 3*d*J + 3*J^2)*x*pj[J, x, d, 3] -
16*(20*d - 24*d^2 + 4*d^3 - 18*J + 9*d*J - d^2*J + 6*J^2 - d*J^2)*
pj[J, x, d, 4] - 64*(-5 + d)*(1 + d)*x*pj[J, x, d, 5]),
m2*(16*(80*d - 6*d^2 - 2*d^3 + 72*J - 24*d*J - 3*d^2*J + d^3*J -
24*J^2 + d^2*J^2)*pj[J, x, d, 3] +
(32*(-10 + 2*d - 5*d^2 + d^3 - 3*J + d*J + J^2) -
32*(-5 + d)*(2 + 4*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(32*(-5 + d)*(2 + 3*d) + 32*(-5 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-16*(80*d - 6*d^2 - 2*d^3 + 72*J - 24*d*J - 3*d^2*J + d^3*J -
24*J^2 + d^2*J^2)*pj[J, x, d, 3] +
(32*(-10 + 2*d - 5*d^2 + d^3 - 3*J + d*J + J^2) +
32*(-5 + d)*(2 + 4*d - 3*J + d*J + J^2)*x)*pj[J, x, d, 4] +
(-32*(-5 + d)*(2 + 3*d) + 32*(-5 + d)*(2 + d)*x)*pj[J, x, d, 5]),
m2*(-32*(20 + 16*d - 4*d^2 + 12*J - 7*d*J + d^2*J - 4*J^2 + d*J^2)*
pj[J, x, d, 4] + 64*(-5 + d)*d*x*pj[J, x, d, 5]), 0, 0,
-16*(-5 + d)*(-2 + d)^2*pj[J, x, d, 4], -64*(-5 + d)*(-2 + d)*
pj[J, x, d, 5], 64*(-5 + d)*(-2 + d)*pj[J, x, d, 5],
-64*(-5 + d)*(-2 + d)^2*pj[J, x, d, 4] - 64*(-5 + d)*(-2 + d)*x*
pj[J, x, d, 5], 0}}}]}
sumrules[bkimp[GGGG[d], 2]] = {(2*m2 - p2)*M[GGGG[d], {3, SUSYM}][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {10, FULLSYM}][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {2, SUSYM}, ust][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {8, SUSYM}, ust][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {9, SUSYM}, tus][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {9, SUSYM}, ust][s, -t][p2],
(2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][p2] +
(2*m2 - p2)*M[GGGG[d], {6, SUSYM}, ust][s, -t][p2],
M[GGGG[d], {4, SUSYM}, tus][s, -t][p2] -
M[GGGG[d], {4, SUSYM}, ust][s, -t][p2],
M[GGGG[d], {6, SUSYM}, tus][s, -t][p2] -
M[GGGG[d], {6, SUSYM}, ust][s, -t][p2],
M[GGGG[d], {9, SUSYM}, tus][s, -t][p2] -
M[GGGG[d], {9, SUSYM}, ust][s, -t][p2],
M[GGGG[d], {5, NOSYM}][s, -t][p2] - M[GGGG[d], {5, NOSYM}, uts][s, -t][
p2], (-2*p2^2*M[GGGG[d], {1, FULLSYM}][s, -t][0])/
(m2*(m2 - p2)*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {1, FULLSYM}][s, -t][p2])/(m2*(m2 - p2)),
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}][s, -t][p2])/(m2*(m2 - p2)) -
M[GGGG[d], {7, SUSYM}][s, -t][0]/m2 -
M[GGGG[d], {6, SUSYM}, tus][s, -t][0]/(m2 - p2) -
M[GGGG[d], {6, SUSYM}, ust][s, -t][0]/(m2 + p2) +
M[GGGG[d], {7, SUSYM}, tus][s, -t][0]/(2*m2) +
M[GGGG[d], {7, SUSYM}, ust][s, -t][0]/(2*m2),
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2])/(m2*(m2 - p2)) -
M[GGGG[d], {7, SUSYM}, tus][s, -t][0]/(m2 - p2) -
M[GGGG[d], {7, SUSYM}, ust][s, -t][0]/(m2 + p2),
(-4*p2^3*Derivative[1][M[GGGG[d], {8, SUSYM}][s, -t]][0])/(3*m2^3) +
(2*p2^3*Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][0])/
(3*m2^3) + (2*p2^3*Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s, -t]][
0])/(3*m2^3) - (2*p2^3*M[GGGG[d], {8, SUSYM}][s, -t][0])/m2^4 +
((2*m2 - p2)*M[GGGG[d], {8, SUSYM}][s, -t][p2])/(m2*(m2 - p2)) -
((m2^4 - 2*m2*p2^3 + 2*p2^4)*M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/
(m2^4*(m2 - p2)) - M[GGGG[d], {8, SUSYM}, ust][s, -t][0]/(m2 + p2),
(-2*(2*m2^2 - p2^2)*M[GGGG[d], {3, SUSYM}][s, -t][0])/
(m2*(m2 - p2)*(m2 + p2)) + (p2*M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/
(m2*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, tus][s, -t][p2])/
(m2*(m2 - p2)) - (p2*M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/
(m2*(m2 - p2)) + ((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, ust][s, -t][p2])/
(m2*(m2 - p2)), (-2*(2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/
(m2*(m2 - p2)) - M[GGGG[d], {5, NOSYM}][s, -t][0]/(m2 + p2) +
(2*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2 - p2) +
(2*M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2 + p2) -
M[GGGG[d], {5, NOSYM}, sut][s, -t][0]/(m2 + p2) +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2])/(m2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
M[GGGG[d], {5, NOSYM}, ust][s, -t][0]/(m2 - p2) -
M[GGGG[d], {5, NOSYM}, uts][s, -t][0]/(m2 - p2),
-(M[GGGG[d], {5, NOSYM}][s, -t][0]/(m2*(m2 + p2))) +
M[GGGG[d], {5, NOSYM}, sut][s, -t][0]/(m2*(m2 + p2)) +
M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2]/(m2*(m2 - p2)) -
M[GGGG[d], {5, NOSYM}, tus][s, -t][p2]/(m2*(m2 - p2)) -
M[GGGG[d], {5, NOSYM}, ust][s, -t][0]/(m2*(m2 - p2)) +
M[GGGG[d], {5, NOSYM}, uts][s, -t][0]/(m2*(m2 - p2)),
-(Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0]/(m2*(m2 - p2))) +
Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0]/(m2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/(m2^2*(m2 - p2)^2)}
sumrules[bkimp[GGGG[d], 3]] = {M[GGGG[d], {2, SUSYM}, tus][s, -t][p2] -
M[GGGG[d], {2, SUSYM}, ust][s, -t][p2],
M[GGGG[d], {5, NOSYM}, sut][s, -t][p2] -
M[GGGG[d], {5, NOSYM}, ust][s, -t][p2],
M[GGGG[d], {8, SUSYM}, tus][s, -t][p2] -
M[GGGG[d], {8, SUSYM}, ust][s, -t][p2],
(-2*Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/m2 -
((m2^2 + 2*m2*p2 - p2^2)*M[GGGG[d], {3, SUSYM}][s, -t][0])/
(m2^2*(m2 - p2)*(m2 + p2)) + (p2*M[GGGG[d], {3, SUSYM}, tus][s, -t][
0])/(m2^2*(m2 + p2)) + M[GGGG[d], {3, SUSYM}, tus][s, -t][p2]/
(m2*(m2 - p2)) + (p2*M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/
(m2^2*(m2 - p2)) - M[GGGG[d], {3, SUSYM}, ust][s, -t][p2]/
(m2*(m2 - p2)), (-2*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
m2 - (2*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/m2 -
(2*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/m2 -
((m2^2 + 2*m2*p2 - p2^2)*M[GGGG[d], {7, SUSYM}][s, -t][0])/
(m2^2*(m2 - p2)*(m2 + p2)) - (2*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/
m2^2 + (p2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
M[GGGG[d], {7, SUSYM}, tus][s, -t][p2]/(m2*(m2 - p2)) +
(p2*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) -
M[GGGG[d], {7, SUSYM}, ust][s, -t][p2]/(m2*(m2 - p2)),
(p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^2 -
(p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^2 -
(2*p2^2*M[GGGG[d], {4, SUSYM}][s, -t][0])/(m2*(m2 - p2)*(m2 + p2)) -
(p2^2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^3 +
(p2*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
(p2*M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, ust][s, -t][p2])/(m2*(m2 - p2)) +
(p2^2*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^3 +
(p2^2*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/m2^3 +
(p2^2*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/m2^3 -
(p2^2*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^3 -
(p2^2*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^3,
(2*p2*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/m2 +
(2*p2*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/m2 +
(2*p2*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/m2 -
((4*m2^3 - m2^2*p2 - 2*m2*p2^2 + p2^3)*M[GGGG[d], {7, SUSYM}][s, -t][
0])/(m2^2*(m2 - p2)*(m2 + p2)) -
(2*(2*m2 - p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/m2^2 -
(4*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2 -
(p2^2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, ust][s, -t][p2])/(m2*(m2 - p2)),
(p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^2 -
(p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^2 +
((m2 - p2)*p2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^3 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}][s, -t][p2])/(m2*(m2 - p2)) -
((2*m2^3 - 2*m2*p2^2 + p2^3)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
(m2^3*(m2 - p2)) + (p2^3*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/
(m2^3*(m2 + p2)) - (p2^3*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/
(m2^3*(m2 - p2)) - ((2*m2^3 + p2^3)*M[GGGG[d], {5, NOSYM}, ust][s, -t][
0])/(m2^3*(m2 + p2)) -
(p2*(m2 + p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^3 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][p2])/(m2*(m2 - p2)),
(p2^3*Derivative[1][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/m2^3 +
(p2^3*Derivative[1][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/m2^3 +
(p2^3*Derivative[2][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/(2*m2^2) +
(p2^3*Derivative[2][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/(2*m2^2) +
(p2^3*Derivative[3][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/(3*m2) +
(p2^3*Derivative[3][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/(3*m2) +
((2*m2 - p2)*M[GGGG[d], {9, SUSYM}][s, -t][p2])/(m2*(m2 - p2)) -
((m2^4 - 2*m2*p2^3 + 2*p2^4)*M[GGGG[d], {9, SUSYM}, tus][s, -t][0])/
(m2^4*(m2 - p2)) - M[GGGG[d], {9, SUSYM}, ust][s, -t][0]/(m2 + p2),
-(Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0]/(m2*(m2 - p2))) +
Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0]/(m2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2^2*(m2 - p2)^2)}
sumrules[bkimp[GGGG[d], 4]] = {(-2*p2^2*M[GGGG[d], {3, SUSYM}][s, -t][0])/
m2^3 + ((2*m2 - p2)*M[GGGG[d], {3, SUSYM}][s, -t][p2])/
(m2*(m2 - p2)) - (p2^3*M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/
(m2^3*(m2 - p2)) + (p2^3*M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/
(m2^3*(m2 + p2)), (-2*p2^2*M[GGGG[d], {10, FULLSYM}][s, -t][0])/
(m2*(m2 - p2)*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {10, FULLSYM}][s, -t][p2])/(m2*(m2 - p2)),
-((p2^2*(m2^2 + 2*p2^2)*Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s,
-t]][0])/m2^4) + ((m2 - p2)*p2^2*(m2 + p2)*
Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/m2^4 -
(p2^4*Derivative[2][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/(2*m2^3) -
(p2^4*Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/(2*m2^3) -
(2*p2^6*M[GGGG[d], {2, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)*(m2 + p2)) +
(p2*(m2^4 - 2*m2^3*p2 - 2*m2^2*p2^2 - 2*m2*p2^3 - 2*p2^4)*
M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/(m2^5*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
(p2*M[GGGG[d], {2, SUSYM}, ust][s, -t][0])/(m2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, ust][s, -t][p2])/(m2*(m2 - p2)),
(p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^3 +
((m2 - p2)*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
m2^3 - (p2^2*(m2 + p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s,
-t]][0])/m2^3 +
(p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^3 -
(p2^2*(2*m2^2 - 3*m2*p2 + 2*p2^2)*M[GGGG[d], {5, NOSYM}][s, -t][0])/
(m2^4*(m2 - p2)) + ((m2 - p2)*p2*(m2 + 2*p2)*
M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^4 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][p2])/(m2*(m2 - p2)) -
(p2^4*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/(m2^4*(m2 - p2)) -
(p2^4*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/(m2^4*(m2 + p2)) -
(p2*(m2^2 + m2*p2 + p2^2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^4 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*(2*m2^2 - p2^2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/
(m2^4*(m2 + p2)),
-((p2^2*Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][0])/m2^2) +
(p2^2*Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0])/m2^2 -
(2*p2^4*M[GGGG[d], {8, SUSYM}][s, -t][0])/(m2^3*(m2 - p2)*(m2 + p2)) +
(p2*(m2^2 - 2*m2*p2 - 2*p2^2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/
(m2^3*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][
p2])/(m2*(m2 - p2)) - (p2*M[GGGG[d], {8, SUSYM}, ust][s, -t][0])/
(m2*(m2 - p2)) + ((2*m2 - p2)*M[GGGG[d], {8, SUSYM}, ust][s, -t][p2])/
(m2*(m2 - p2)), (-2*p2^2*M[GGGG[d], {9, SUSYM}][s, -t][0])/
(m2*(m2 - p2)*(m2 + p2)) - (p2^2*M[GGGG[d], {9, SUSYM}, tus][s, -t][
0])/(m2^2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {9, SUSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*M[GGGG[d], {9, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {9, SUSYM}, ust][s, -t][p2])/(m2*(m2 - p2)),
(-2*p2^4*M[GGGG[d], {6, SUSYM}][s, -t][0])/(m2^3*(m2 - p2)*(m2 + p2)) -
(p2^2*M[GGGG[d], {7, SUSYM}][s, -t][0])/m2^3 +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) +
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}, ust][s, -t][p2])/(m2*(m2 - p2)) -
(p2^2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(m2^2*(m2 - p2)) -
(p2^2*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^2*(m2 + p2)),
(-2*p2^3*M[GGGG[d], {4, SUSYM}][s, -t][0])/(m2^3*(m2 - p2)*(m2 + p2)) +
(p2*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
M[GGGG[d], {4, SUSYM}, tus][s, -t][p2]/(m2*(m2 - p2)) +
(p2*M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) -
M[GGGG[d], {4, SUSYM}, ust][s, -t][p2]/(m2*(m2 - p2)),
(-2*p2^3*M[GGGG[d], {6, SUSYM}][s, -t][0])/(m2^3*(m2 - p2)*(m2 + p2)) +
(p2*M[GGGG[d], {7, SUSYM}][s, -t][0])/m2^3 +
(p2*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
M[GGGG[d], {6, SUSYM}, tus][s, -t][p2]/(m2*(m2 - p2)) +
(p2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) -
M[GGGG[d], {6, SUSYM}, ust][s, -t][p2]/(m2*(m2 - p2)),
(-2*p2*M[GGGG[d], {9, SUSYM}][s, -t][0])/(m2*(m2 - p2)*(m2 + p2)) +
(p2*M[GGGG[d], {9, SUSYM}, tus][s, -t][0])/(m2^2*(m2 + p2)) +
M[GGGG[d], {9, SUSYM}, tus][s, -t][p2]/(m2*(m2 - p2)) +
(p2*M[GGGG[d], {9, SUSYM}, ust][s, -t][0])/(m2^2*(m2 - p2)) -
M[GGGG[d], {9, SUSYM}, ust][s, -t][p2]/(m2*(m2 - p2)),
(p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^3 -
(p2*(m2 + p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
m2^3 + ((m2 - p2)*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][
0])/m2^3 + (p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][
0])/m2^3 + (p2*(m2 + 2*p2)*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^4 +
M[GGGG[d], {5, NOSYM}][s, -t][p2]/(m2*(m2 - p2)) -
(p2*(2*m2^2 + m2*p2 - 2*p2^2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
(m2^4*(m2 - p2)) + (p2^3*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/
(m2^4*(m2 + p2)) + (p2^3*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/
(m2^4*(m2 - p2)) - (p2^3*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/
(m2^4*(m2 + p2)) + (p2*(m2 + p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][
0])/m2^4 - M[GGGG[d], {5, NOSYM}, uts][s, -t][p2]/(m2*(m2 - p2)),
(-2*p2^3*Derivative[1][M[GGGG[d], {1, FULLSYM}][s, -t]][0])/
(m2^3*(m2 - p2)*(m2 + p2)) - ((4*m2 - 3*p2)*p2^2*
M[GGGG[d], {1, FULLSYM}][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {1, FULLSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2),
-((p2*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/m2^3) -
(p2*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
(m2^2*(m2 - p2)) - (p2*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/(m2^2*(m2 + p2)) +
(p2*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/(2*m2^3) +
(p2*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/(2*m2^3) +
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
(3*p2*M[GGGG[d], {7, SUSYM}][s, -t][0])/(2*m2^4) -
((3*m2 - 2*p2)*p2*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/
(m2^3*(m2 - p2)^2) + (3*p2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/
(2*m2^4), -((p2*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/
(m2^2*(m2 - p2))) -
(p2*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(m2^2*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2])/
(m2^2*(m2 - p2)^2) - ((3*m2 - 2*p2)*p2*M[GGGG[d], {7, SUSYM}, tus][s,
-t][0])/(m2^3*(m2 - p2)^2),
-(Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][0]/(m2*(m2 - p2))) +
Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0]/(m2*(m2 + p2)) +
((2*m2 - p2)*M[GGGG[d], {8, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
((2*m2 - p2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/(m2^2*(m2 - p2)^2),
(-2*p2*(2*m2^2 - p2^2)*Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(m2^3*(m2 - p2)*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {3, SUSYM}, tus][s, -t]][0])/
(m2^3*(m2 + p2)) - (p2^2*Derivative[1][M[GGGG[d], {3, SUSYM}, ust][s,
-t]][0])/(m2^3*(m2 - p2)) -
((4*m2^3 - 2*m2^2*p2 - 4*m2*p2^2 + 3*p2^3)*
M[GGGG[d], {3, SUSYM}][s, -t][0])/(m2^4*(m2 - p2)^2) +
(3*p2*M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/m2^4 +
((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - ((3*m2 - 2*p2)*p2*M[GGGG[d], {3, SUSYM}, ust][s,
-t][0])/(m2^3*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2),
-((p2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
(m2^2*(m2 + p2))) +
(2*p2*Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^2*(m2 - p2)) + (2*p2*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s,
-t]][0])/(m2^2*(m2 + p2)) +
((2*m2 + p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(m2^2*(m2 + p2)) -
((2*m2 - p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^2*(m2 - p2)) - (p2*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s,
-t]][0])/(m2^2*(m2 - p2)) -
(2*(2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
(2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^3 +
(2*(3*m2 - 2*p2)*p2*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/
(m2^3*(m2 - p2)^2) + (2*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^3 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2])/
(m2^2*(m2 - p2)^2) + ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tus][s, -t][
p2])/(m2^2*(m2 - p2)^2) -
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/
(m2^2*(m2 - p2)^2) - ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][
0])/(m2^2*(m2 - p2)^2), Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][
0]/(m2^2*(m2 + p2)) - Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s,
-t]][0]/(m2^2*(m2 + p2)) -
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0]/(m2^2*(m2 - p2)) +
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0]/(m2^2*(m2 - p2)) +
(2*M[GGGG[d], {5, NOSYM}][s, -t][0])/(m2^3*(m2 + p2)) -
(2*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/(m2^3*(m2 + p2)) +
M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2]/(m2^2*(m2 - p2)^2) -
M[GGGG[d], {5, NOSYM}, tus][s, -t][p2]/(m2^2*(m2 - p2)^2) -
M[GGGG[d], {5, NOSYM}, ust][s, -t][0]/(m2^2*(m2 - p2)^2) +
M[GGGG[d], {5, NOSYM}, uts][s, -t][0]/(m2^2*(m2 - p2)^2),
-(((2*m2 - p2)*Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/
(m2^3*(m2 - p2)^2)) - Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s,
-t]][0]/(m2^3*(m2 + p2)) -
Derivative[2][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0]/
(2*m2^2*(m2 - p2)) - Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s, -t]][
0]/(2*m2^2*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {2, SUSYM}][s, -t][
p2])/(m2^3*(m2 - p2)^3) -
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/(m2^3*(m2 - p2)^3)}
sumrules[bkimp[GGGG[d], 5]] =
{(-2*p2^3*Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/m2^4 -
(p2^3*Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/m2^4 -
(p2^3*Derivative[2][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/(2*m2^3) -
(p2^3*Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/(2*m2^3) -
(2*p2^5*M[GGGG[d], {2, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)*(m2 + p2)) +
(p2*(m2^3 - 2*m2*p2^2 - 2*p2^3)*M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/
(m2^5*(m2 + p2)) + M[GGGG[d], {2, SUSYM}, tus][s, -t][p2]/
(m2*(m2 - p2)) + (p2*M[GGGG[d], {2, SUSYM}, ust][s, -t][0])/
(m2^2*(m2 - p2)) - M[GGGG[d], {2, SUSYM}, ust][s, -t][p2]/
(m2*(m2 - p2)), -((p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][
0])/m2^4) + (2*p2^2*(m2 + p2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^4 +
(p2^2*(2*m2 + p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
m2^4 + (p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
m2^4 + (p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^3) + (p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(2*m2^3) - (p2^2*(2*m2^2 + 2*m2*p2 - 3*p2^2)*
M[GGGG[d], {5, NOSYM}][s, -t][0])/(m2^5*(m2 - p2)) +
(p2*(m2^2 + 3*m2*p2 + 3*p2^2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
m2^5 + M[GGGG[d], {5, NOSYM}, sut][s, -t][p2]/(m2*(m2 - p2)) +
(p2^4*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/(m2^5*(m2 - p2)) -
(p2^4*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/(m2^5*(m2 + p2)) +
(p2*(m2^2 + 3*m2*p2 + p2^2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/
m2^5 - M[GGGG[d], {5, NOSYM}, ust][s, -t][p2]/(m2*(m2 - p2)) +
(p2^2*(2*m2^2 + 2*m2*p2 + p2^2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/
(m2^5*(m2 + p2)), (-2*p2^3*M[GGGG[d], {8, SUSYM}][s, -t][0])/
(m2^3*(m2 - p2)*(m2 + p2)) + (p2*M[GGGG[d], {8, SUSYM}, tus][s, -t][
0])/(m2^2*(m2 + p2)) + M[GGGG[d], {8, SUSYM}, tus][s, -t][p2]/
(m2*(m2 - p2)) + (p2*M[GGGG[d], {8, SUSYM}, ust][s, -t][0])/
(m2^2*(m2 - p2)) - M[GGGG[d], {8, SUSYM}, ust][s, -t][p2]/
(m2*(m2 - p2)), -(((2*m2^3 + 3*m2^2*p2 - 3*p2^3)*
Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(m2^4*(m2 - p2)*(m2 + p2))) +
(p2^2*Derivative[1][M[GGGG[d], {3, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) + (p2^2*Derivative[1][M[GGGG[d], {3, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) -
(p2*Derivative[2][M[GGGG[d], {3, SUSYM}][s, -t]][0])/m2^3 -
((3*m2^4 + m2^3*p2 - 2*m2^2*p2^2 - 4*m2*p2^3 + 4*p2^4)*
M[GGGG[d], {3, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)^2*(m2 + p2)) +
(2*p2*(m2 + 2*p2)*M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/
(m2^5*(m2 + p2)) + M[GGGG[d], {3, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + ((2*m2 - p2)*p2*M[GGGG[d], {3, SUSYM}, ust][s,
-t][0])/(m2^4*(m2 - p2)^2) - M[GGGG[d], {3, SUSYM}, ust][s, -t][p2]/
(m2^2*(m2 - p2)^2),
-(((2*m2^3 + 3*m2^2*p2 - 3*p2^3)*Derivative[1][M[GGGG[d], {7, SUSYM}][s,
-t]][0])/(m2^4*(m2 - p2)*(m2 + p2))) -
(2*(m2 + 2*p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
m2^4 - (2*(m2 + p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][
0])/m2^4 + (p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][
0])/(m2^4*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(m2^4*(m2 - p2)) - (p2*Derivative[2][M[GGGG[d], {7, SUSYM}][s, -t]][
0])/m2^3 - (p2*Derivative[2][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
m2^3 - (p2*Derivative[2][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/
m2^3 + (4*p2*M[GGGG[d], {6, SUSYM}][s, -t][0])/m2^5 -
((3*m2^4 + m2^3*p2 - 2*m2^2*p2^2 - 4*m2*p2^3 + 4*p2^4)*
M[GGGG[d], {7, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)^2*(m2 + p2)) -
(4*(m2 + p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/m2^5 -
(2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2^4 +
(2*p2*(m2 + 2*p2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/
(m2^5*(m2 + p2)) + M[GGGG[d], {7, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + ((2*m2 - p2)*p2*M[GGGG[d], {7, SUSYM}, ust][s,
-t][0])/(m2^4*(m2 - p2)^2) - M[GGGG[d], {7, SUSYM}, ust][s, -t][p2]/
(m2^2*(m2 - p2)^2),
(-2*p2^5*Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) +
(2*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^4 +
(p2^2*(m2^2 - 3*m2*p2 - 3*p2^2)*
Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^5*(m2 + p2)) - (p2^2*(m2^2 - m2*p2 + p2^2)*
Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 - p2)) - (4*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][
s, -t]][0])/m2^4 -
(2*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^4 -
(2*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^4 -
(p2^3*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/(2*m2^4) +
(p2^3*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/(2*m2^4) -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^3 -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^3 -
(p2^2*(4*m2^3 - 8*m2^2*p2 + 10*m2*p2^2 - 5*p2^3)*
M[GGGG[d], {4, SUSYM}][s, -t][0])/(m2^6*(m2 - p2)^2) +
(6*p2^2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^5 +
(p2*(m2^2 - 5*p2^2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/m2^6 +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2*(m2^2 + 2*m2*p2 - 2*p2^2)*
M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (6*p2^2*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
m2^5 + (2*p2^2*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/m2^5 +
(2*p2^2*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/m2^5 -
(2*p2^2*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^5 -
(2*p2^2*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^5,
(p2*(2*m2^3 + 3*m2^2*p2 - 4*m2*p2^2 - 3*p2^3)*
Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
(m2^4*(m2 - p2)*(m2 + p2)) +
(2*p2*(m2 + 2*p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
m2^4 + (2*p2*(m2 + p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/m2^4 -
(p2^3*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) - (p2^3*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) +
(p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}][s, -t]][0])/m2^3 +
(p2^2*Derivative[2][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/m2^3 +
(p2^2*Derivative[2][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/m2^3 -
(4*p2^2*M[GGGG[d], {6, SUSYM}][s, -t][0])/m2^5 +
((m2 - 2*p2)*p2*(3*m2^2 - 2*p2^2)*M[GGGG[d], {7, SUSYM}][s, -t][0])/
(m2^5*(m2 - p2)^2) + (4*p2*(m2 + p2)*M[GGGG[d], {6, SUSYM}, tus][s,
-t][0])/m2^5 + (2*p2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2^4 -
(4*p2^2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/m2^5 +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - ((4*m2 - 3*p2)*p2^2*
M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2),
(2*p2^3*Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/m2^5 +
(3*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^4 -
(3*p2^3*Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/m2^5 +
(p2^3*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/m2^5 +
(p2*(2*m2^2 - 8*m2*p2 + 5*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(m2^4*(m2 - p2)) - (p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s,
-t]][0])/(m2^4*(m2 + p2)) -
(p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/
(m2^4*(m2 - p2)) + (p2*(2*m2^2 + 2*m2*p2 - p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^4*(m2 + p2)) - (3*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][
s, -t]][0])/m2^4 -
(p2^3*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/(2*m2^4) +
(p2^3*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/(2*m2^4) -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^3 -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^3 +
(5*p2^3*M[GGGG[d], {4, SUSYM}][s, -t][0])/m2^6 -
((m2 - 8*p2)*p2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^5 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
(5*p2^3*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/m2^6 +
(p2*(2*m2^3 - 16*m2^2*p2 + 21*m2*p2^2 - 8*p2^3)*
M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/(m2^5*(m2 - p2)^2) -
((5*m2 - 4*p2)*p2^3*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/
(m2^5*(m2 - p2)^2) + (4*p2*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/
m2^4 + ((m2 - 4*p2)*p2*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^5 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][p2])/
(m2^2*(m2 - p2)^2),
-((p2*Derivative[1][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/
(m2^2*(m2 - p2))) -
(p2*Derivative[1][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/
(m2^2*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {9, SUSYM}][s, -t][p2])/
(m2^2*(m2 - p2)^2) - ((3*m2 - 2*p2)*p2*M[GGGG[d], {9, SUSYM}, tus][s,
-t][0])/(m2^3*(m2 - p2)^2),
Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0]/m2^4 -
((3*m2 - 2*p2)*p2*Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 - p2)^2) +
(p2*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^4*(m2 + p2)) - (2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s,
-t]][0])/m2^4 - Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][
0]/m2^4 - Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0]/m2^4 -
(p2*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(2*m2^3*(m2 - p2)) +
(p2*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(2*m2^3*(m2 + p2)) - Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][
0]/(2*m2^3) - Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0]/
(2*m2^3) - (2*M[GGGG[d], {4, SUSYM}][s, -t][0])/m2^5 +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/(m2^3*(m2 - p2)^3) +
(3*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^5 -
(p2*(5*m2^2 - 6*m2*p2 + 2*p2^2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/
(m2^5*(m2 - p2)^3) - (3*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^5 +
M[GGGG[d], {5, NOSYM}, tsu][s, -t][0]/m2^5 +
M[GGGG[d], {5, NOSYM}, tus][s, -t][0]/m2^5 -
M[GGGG[d], {5, NOSYM}, ust][s, -t][0]/m2^5 -
M[GGGG[d], {5, NOSYM}, uts][s, -t][0]/m2^5}
sumrules[bkimp[GGGG[d], 6]] =
{(-2*p2^3*Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/m2^5 -
(p2^4*Derivative[1][M[GGGG[d], {3, SUSYM}, tus][s, -t]][0])/
(m2^5*(m2 - p2)) + (p2^4*Derivative[1][M[GGGG[d], {3, SUSYM}, ust][s,
-t]][0])/(m2^5*(m2 + p2)) -
(p2^2*(4*m2 + 5*p2)*M[GGGG[d], {3, SUSYM}][s, -t][0])/m2^6 +
((2*m2 - p2)*M[GGGG[d], {3, SUSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2) -
(p2^3*(m2^2 + 4*m2*p2 - 4*p2^2)*M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/
(m2^6*(m2 - p2)^2) + (p2^3*M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/
m2^6, (-2*p2^3*Derivative[1][M[GGGG[d], {10, FULLSYM}][s, -t]][0])/
(m2^3*(m2 - p2)*(m2 + p2)) - ((4*m2 - 3*p2)*p2^2*
M[GGGG[d], {10, FULLSYM}][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {10, FULLSYM}][s, -t][p2])/(m2^2*(m2 - p2)^2),
(-2*p2^7*Derivative[1][M[GGGG[d], {2, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)*(m2 + p2)) + (p2^2*(m2^4 - 3*m2^3*p2 - 9*m2^2*p2^2 -
11*m2*p2^3 - 5*p2^4)*Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s,
-t]][0])/(m2^7*(m2 + p2)) -
(p2^2*(m2^4 - m2^3*p2 - 5*m2^2*p2^2 + 8*m2*p2^3 - 2*p2^4)*
Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/
(m2^7*(m2 - p2)) - (p2^3*(m2^2 + 6*m2*p2 + 3*p2^2)*
Derivative[2][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/(2*m2^6) +
(p2^3*(m2^2 + 6*m2*p2 - 2*p2^2)*
Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/(2*m2^6) -
(p2^4*(3*m2 + p2)*Derivative[3][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/
(6*m2^5) + ((3*m2 - p2)*p2^4*Derivative[3][M[GGGG[d], {2, SUSYM}, ust][
s, -t]][0])/(6*m2^5) - ((8*m2 - 7*p2)*p2^6*
M[GGGG[d], {2, SUSYM}][s, -t][0])/(m2^8*(m2 - p2)^2) +
(p2*(m2^4 - 5*m2^2*p2^2 - 6*m2*p2^3 - 7*p2^4)*
M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/m2^8 +
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2*(m2^2 + 2*m2*p2 - 2*p2^2)*
M[GGGG[d], {2, SUSYM}, ust][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2),
(p2^3*(2*m2^2 - 3*p2^2)*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
(m2^6*(m2 - p2)) + ((m2 - p2)*p2^2*(m2 + 3*p2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^6 -
(p2^5*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/
(m2^6*(m2 - p2)) - (p2^5*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s,
-t]][0])/(m2^6*(m2 + p2)) - (p2^2*(m2^2 + 2*m2*p2 + 2*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^6 +
(p2^3*(2*m2 + p2)*(m2 + 2*p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][
s, -t]][0])/(m2^6*(m2 + p2)) +
(p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/(2*m2^5) +
((m2 - p2)*p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^5) - (p2^3*(m2 + p2)*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][
s, -t]][0])/(2*m2^5) +
(p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/(2*m2^5) -
(p2^2*(2*m2^4 - 6*m2^3*p2 + 6*m2^2*p2^2 + 5*m2*p2^3 - 6*p2^4)*
M[GGGG[d], {5, NOSYM}][s, -t][0])/(m2^7*(m2 - p2)^2) +
(p2*(m2^3 + m2*p2^2 - 6*p2^3)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
m2^7 + ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^4*(3*m2^2 + m2*p2 - 3*p2^2)*
M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/(m2^7*(m2 - p2)^2) -
(3*p2^4*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/m2^7 -
(p2*(m2^3 + 4*m2^2*p2 + m2*p2^2 + 3*p2^3)*
M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^7 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^2*(2*m2^2 - 8*m2*p2 - 3*p2^2)*
M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^7,
(-2*p2^5*Derivative[1][M[GGGG[d], {8, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) + (p2^2*(m2^2 - 3*m2*p2 - 3*p2^2)*
Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][0])/
(m2^5*(m2 + p2)) - (p2^2*(m2^2 - m2*p2 + p2^2)*
Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 - p2)) - (p2^3*Derivative[2][M[GGGG[d], {8, SUSYM}, tus][s,
-t]][0])/(2*m2^4) +
(p2^3*Derivative[2][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0])/(2*m2^4) -
((6*m2 - 5*p2)*p2^4*M[GGGG[d], {8, SUSYM}][s, -t][0])/
(m2^6*(m2 - p2)^2) + (p2*(m2^2 - 5*p2^2)*
M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/m2^6 +
((2*m2 - p2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2*(m2^2 + 2*m2*p2 - 2*p2^2)*
M[GGGG[d], {8, SUSYM}, ust][s, -t][0])/(m2^4*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {8, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2),
(-2*p2^3*Derivative[1][M[GGGG[d], {9, SUSYM}][s, -t]][0])/
(m2^3*(m2 - p2)*(m2 + p2)) -
(p2^3*Derivative[1][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) - (p2^3*Derivative[1][M[GGGG[d], {9, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) - (p2^2*(2*m2^2 + m2*p2 - 2*p2^2)*
M[GGGG[d], {9, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)^2) -
(3*p2^2*M[GGGG[d], {9, SUSYM}, tus][s, -t][0])/m2^5 +
((2*m2 - p2)*M[GGGG[d], {9, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^2*(3*m2^2 - m2*p2 - p2^2)*
M[GGGG[d], {9, SUSYM}, ust][s, -t][0])/(m2^5*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {9, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2),
(-2*p2^5*Derivative[1][M[GGGG[d], {6, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) -
(p2^3*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/m2^5 -
(p2^3*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) - (p2^3*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) -
(p2^3*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 - p2)) - (p2^3*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 + p2)) -
((6*m2 - 5*p2)*p2^4*M[GGGG[d], {6, SUSYM}][s, -t][0])/
(m2^6*(m2 - p2)^2) - (p2^2*(6*m2 + 5*p2)*M[GGGG[d], {7, SUSYM}][s, -t][
0])/(2*m2^6) + ((2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^2*(3*m2 + p2)*M[GGGG[d], {6, SUSYM}, tus][s,
-t][0])/m2^6 + ((2*m2 - p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^2*(3*m2^3 - 2*m2^2*p2 + m2*p2^2 - p2^3)*
M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^2) +
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}, ust][s, -t][p2])/
(m2^2*(m2 - p2)^2) - (p2^2*(2*m2^3 + 5*m2^2*p2 - 4*m2*p2^2 - p2^3)*
M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(2*m2^6*(m2 - p2)^2) -
(p2^2*(2*m2 + p2)*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(2*m2^6),
(-2*p2^4*Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) + (p2^2*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) - (p2^3*(2*m2^2 + 5*m2*p2 - 5*p2^2)*
M[GGGG[d], {4, SUSYM}][s, -t][0])/(m2^6*(m2 - p2)^2*(m2 + p2)) +
(p2*(m2^2 + 2*m2*p2 - p2^2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/
(m2^6*(m2 + p2)) + M[GGGG[d], {4, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + (p2*(m2^3 + 2*m2^2*p2 - 3*m2*p2^2 + p2^3)*
M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^2) -
M[GGGG[d], {4, SUSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2),
(-2*p2^4*Derivative[1][M[GGGG[d], {6, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/m2^5 +
(p2^2*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) + (p2^2*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) - (p2^3*(2*m2^2 + 5*m2*p2 - 5*p2^2)*
M[GGGG[d], {6, SUSYM}][s, -t][0])/(m2^6*(m2 - p2)^2*(m2 + p2)) +
(p2*(2*m2 + 5*p2)*M[GGGG[d], {7, SUSYM}][s, -t][0])/(2*m2^6) +
(p2*(m2^2 + 2*m2*p2 - p2^2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/
(m2^6*(m2 + p2)) + M[GGGG[d], {6, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + (p2*(m2^3 + 2*m2^2*p2 - 3*m2*p2^2 + p2^3)*
M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^2) -
M[GGGG[d], {6, SUSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2) -
(p2^2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(2*m2^6) +
(p2^2*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(2*m2^6),
(-2*p2^2*Derivative[1][M[GGGG[d], {9, SUSYM}][s, -t]][0])/
(m2^3*(m2 - p2)*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {9, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) + (p2^2*Derivative[1][M[GGGG[d], {9, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) -
(p2*(2*m2^3 + 3*m2^2*p2 - 5*m2*p2^2 + 2*p2^3)*
M[GGGG[d], {9, SUSYM}][s, -t][0])/(m2^5*(m2 - p2)^2*(m2 + p2)) +
(p2*(m2 + 3*p2)*M[GGGG[d], {9, SUSYM}, tus][s, -t][0])/
(m2^5*(m2 + p2)) + M[GGGG[d], {9, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + (p2*(m2^2 + m2*p2 - p2^2)*
M[GGGG[d], {9, SUSYM}, ust][s, -t][0])/(m2^5*(m2 - p2)^2) -
M[GGGG[d], {9, SUSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2),
(3*p2^2*(m2 + p2)*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
m2^6 - (p2*(m2^3 + 2*m2^2*p2 + m2*p2^2 - 3*p2^3)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(m2^6*(m2 - p2)) + (p2^4*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s,
-t]][0])/(m2^6*(m2 + p2)) +
(p2^4*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/
(m2^6*(m2 - p2)) + (p2*(m2^3 + 2*m2^2*p2 - 2*p2^3)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^6*(m2 + p2)) + (p2^2*(3*m2 + 2*p2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^6 +
(p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/(2*m2^5) -
(p2^2*(m2 + p2)*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^5) + ((m2 - p2)*p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][
s, -t]][0])/(2*m2^5) +
(p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/(2*m2^5) +
(p2*(m2^2 + 8*m2*p2 + 6*p2^2)*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^7 +
M[GGGG[d], {5, NOSYM}][s, -t][p2]/(m2^2*(m2 - p2)^2) -
(p2*(3*m2^4 + m2^3*p2 - m2^2*p2^2 - 8*m2*p2^3 + 6*p2^4)*
M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/(m2^7*(m2 - p2)^2) +
(p2^3*(m2 + 3*p2)*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/
(m2^7*(m2 + p2)) + (p2^3*(m2^2 + 3*m2*p2 - 3*p2^2)*
M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/(m2^7*(m2 - p2)^2) +
(p2*(m2^3 + 3*m2^2*p2 + m2*p2^2 - 3*p2^3)*
M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/(m2^7*(m2 + p2)) +
(p2*(m2^2 + 7*m2*p2 + 3*p2^2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/
m2^7 - M[GGGG[d], {5, NOSYM}, uts][s, -t][p2]/(m2^2*(m2 - p2)^2),
-((p2^3*(4*m2^2 + 3*m2*p2 - 5*p2^2)*
Derivative[1][M[GGGG[d], {1, FULLSYM}][s, -t]][0])/
(m2^6*(m2 - p2)^2*(m2 + p2))) -
(p2^4*Derivative[2][M[GGGG[d], {1, FULLSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) - (p2^2*(6*m2^3 - 4*m2^2*p2 - 4*m2*p2^2 +
3*p2^3)*M[GGGG[d], {1, FULLSYM}][s, -t][0])/(m2^7*(m2 - p2)^3) +
((2*m2 - p2)*M[GGGG[d], {1, FULLSYM}][s, -t][p2])/(m2^3*(m2 - p2)^3),
(-5*p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/(2*m2^6) -
((4*m2 - 3*p2)*p2^2*Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][
0])/(m2^5*(m2 - p2)^2) -
(p2^2*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 + p2)) + (2*p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][
s, -t]][0])/m2^6 +
(p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/(2*m2^6) -
(p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}][s, -t]][0])/(2*m2^5) -
(p2^2*Derivative[2][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
(2*m2^4*(m2 - p2)) -
(p2^2*Derivative[2][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/
(2*m2^4*(m2 + p2)) +
(p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/(4*m2^5) +
(p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/(4*m2^5) +
((2*m2 - p2)*M[GGGG[d], {6, SUSYM}][s, -t][p2])/(m2^3*(m2 - p2)^3) -
(9*p2^2*M[GGGG[d], {7, SUSYM}][s, -t][0])/(2*m2^7) -
(p2*(m2^3 + 6*m2^2*p2 - 10*m2*p2^2 + 4*p2^3)*
M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/(m2^6*(m2 - p2)^3) +
(p2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2^6 +
(9*p2^2*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(2*m2^7),
-(((4*m2 - 3*p2)*p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][s, -t]][
0])/(m2^5*(m2 - p2)^2)) -
(p2^2*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 + p2)) - (p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}, tus][s,
-t]][0])/(2*m2^4*(m2 - p2)) -
(p2^2*Derivative[2][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(2*m2^4*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {7, SUSYM}][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2*(m2^3 + 6*m2^2*p2 - 10*m2*p2^2 + 4*p2^3)*
M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/(m2^6*(m2 - p2)^3) +
(p2*M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/m2^6,
-(((3*m2 - 2*p2)*p2*Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][
0])/(m2^4*(m2 - p2)^2)) +
(p2*Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0])/
(m2^4*(m2 + p2)) - (p2*Derivative[2][M[GGGG[d], {8, SUSYM}, tus][s,
-t]][0])/(2*m2^3*(m2 - p2)) +
(p2*Derivative[2][M[GGGG[d], {8, SUSYM}, ust][s, -t]][0])/
(2*m2^3*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {8, SUSYM}][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2*(5*m2^2 - 6*m2*p2 + 2*p2^2)*
M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/(m2^5*(m2 - p2)^3),
-((p2*(4*m2^4 + 6*m2^3*p2 - 10*m2^2*p2^2 - 3*m2*p2^3 + 5*p2^4)*
Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(m2^6*(m2 - p2)^2*(m2 + p2))) +
(p2^2*(3*m2 + 4*p2)*Derivative[1][M[GGGG[d], {3, SUSYM}, tus][s, -t]][
0])/(m2^6*(m2 + p2)) - (p2^2*(3*m2^2 - m2*p2 - p2^2)*
Derivative[1][M[GGGG[d], {3, SUSYM}, ust][s, -t]][0])/
(m2^6*(m2 - p2)^2) - (p2^2*(2*m2^2 - p2^2)*
Derivative[2][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) +
(p2^3*Derivative[2][M[GGGG[d], {3, SUSYM}, tus][s, -t]][0])/
(2*m2^5*(m2 + p2)) -
(p2^3*Derivative[2][M[GGGG[d], {3, SUSYM}, ust][s, -t]][0])/
(2*m2^5*(m2 - p2)) - ((4*m2^5 - 2*m2^4*p2 - 14*m2^2*p2^3 +
22*m2*p2^4 - 9*p2^5)*M[GGGG[d], {3, SUSYM}][s, -t][0])/
(m2^7*(m2 - p2)^3) + (3*p2*(m2 + 3*p2)*M[GGGG[d], {3, SUSYM}, tus][s,
-t][0])/m2^7 + ((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, tus][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2*(3*m2^3 - 4*m2*p2^2 + 2*p2^3)*
M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^3) +
((2*m2 - p2)*M[GGGG[d], {3, SUSYM}, ust][s, -t][p2])/
(m2^3*(m2 - p2)^3),
-((p2*(4*m2 + 5*p2)*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
(m2^5*(m2 + p2))) + (2*(4*m2 - 3*p2)*p2^2*
Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^5*(m2 - p2)^2) +
(2*p2^2*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 + p2)) + ((2*m2^2 + 6*m2*p2 + 3*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(m2^5*(m2 + p2)) - ((2*m2^3 - 2*m2*p2^2 + p2^3)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^5*(m2 - p2)^2) - ((2*m2 - p2)^2*p2*
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(m2^5*(m2 - p2)^2) -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
(2*m2^4*(m2 + p2)) +
(p2^2*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 - p2)) + (p2^2*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 + p2)) +
(p2*(2*m2 + p2)*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^4*(m2 + p2)) - ((2*m2 - p2)*p2*
Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(2*m2^4*(m2 - p2)) -
(p2^2*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(2*m2^4*(m2 - p2)) - (2*(2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/
(m2^3*(m2 - p2)^3) - ((2*m2 + 11*p2)*M[GGGG[d], {5, NOSYM}][s, -t][0])/
m2^6 + (2*p2*(m2^3 + 6*m2^2*p2 - 10*m2*p2^2 + 4*p2^3)*
M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2^6*(m2 - p2)^3) -
(2*p2*M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/m2^6 +
((4*m2 + 7*p2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^6 +
((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2])/
(m2^3*(m2 - p2)^3) + ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, tus][s, -t][
p2])/(m2^3*(m2 - p2)^3) - ((4*m2^4 - 5*m2^3*p2 + 4*m2*p2^3 - 2*p2^4)*
M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^3) -
((2*m2^4 + 3*m2^3*p2 - 12*m2^2*p2^2 + 12*m2*p2^3 - 4*p2^4)*
M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/(m2^6*(m2 - p2)^3),
((2*m2 + 5*p2)*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
(m2^5*(m2 + p2)) - (3*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s,
-t]][0])/(m2^5*(m2 + p2)) -
((2*m2 - p2)*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^5*(m2 - p2)^2) + ((2*m2^2 - 2*m2*p2 + p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(m2^5*(m2 - p2)^2) + (p2*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][
0])/(2*m2^4*(m2 + p2)) -
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^4*(m2 + p2)) -
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(2*m2^4*(m2 - p2)) +
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(2*m2^4*(m2 - p2)) + ((5*m2 + 11*p2)*M[GGGG[d], {5, NOSYM}][s, -t][0])/
(m2^6*(m2 + p2)) - ((m2 + 7*p2)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
(m2^6*(m2 + p2)) + M[GGGG[d], {5, NOSYM}, tsu][s, -t][p2]/
(m2^3*(m2 - p2)^3) - M[GGGG[d], {5, NOSYM}, tus][s, -t][p2]/
(m2^3*(m2 - p2)^3) + ((m2^3 - 6*m2^2*p2 + 6*m2*p2^2 - 2*p2^3)*
M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^3) +
((5*m2^3 - 12*m2^2*p2 + 12*m2*p2^2 - 4*p2^3)*
M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/(m2^6*(m2 - p2)^3),
-(((2*m2 - p2)*Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 - p2)^3)) +
(2*Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 + p2)) -
((2*m2 - p2)*Derivative[2][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/
(2*m2^4*(m2 - p2)^2) + Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s,
-t]][0]/(m2^4*(m2 + p2)) -
Derivative[3][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0]/
(6*m2^3*(m2 - p2)) + Derivative[3][M[GGGG[d], {2, SUSYM}, ust][s, -t]][
0]/(6*m2^3*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {2, SUSYM}][s, -t][
p2])/(m2^4*(m2 - p2)^4) -
((2*m2 - p2)*M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/(m2^4*(m2 - p2)^4)}
sumrules[bkimp[GGGG[d], 7]] =
{(-2*p2^6*Derivative[1][M[GGGG[d], {2, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)*(m2 + p2)) + (p2^2*(m2^3 - 5*m2*p2^2 - 5*p2^3)*
Derivative[1][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/
(m2^7*(m2 + p2)) + (p2^2*(m2^3 - 2*m2*p2^2 + 2*p2^3)*
Derivative[1][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/
(m2^7*(m2 - p2)) - (3*p2^4*Derivative[2][M[GGGG[d], {2, SUSYM}, tus][
s, -t]][0])/(2*m2^6) -
(p2^4*Derivative[2][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/m2^6 -
(p2^4*Derivative[3][M[GGGG[d], {2, SUSYM}, tus][s, -t]][0])/(6*m2^5) -
(p2^4*Derivative[3][M[GGGG[d], {2, SUSYM}, ust][s, -t]][0])/(6*m2^5) -
(p2^5*(4*m2^2 + 5*m2*p2 - 7*p2^2)*M[GGGG[d], {2, SUSYM}][s, -t][0])/
(m2^8*(m2 - p2)^2*(m2 + p2)) +
(p2*(m2^4 + 2*m2^3*p2 - m2^2*p2^2 - 7*m2*p2^3 - 7*p2^4)*
M[GGGG[d], {2, SUSYM}, tus][s, -t][0])/(m2^8*(m2 + p2)) +
M[GGGG[d], {2, SUSYM}, tus][s, -t][p2]/(m2^2*(m2 - p2)^2) +
(p2*(m2^3 + 2*m2^2*p2 - 3*m2*p2^2 + p2^3)*
M[GGGG[d], {2, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^2) -
M[GGGG[d], {2, SUSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2),
-((p2^3*(2*m2^2 + 3*m2*p2 - 4*p2^2)*Derivative[1][M[GGGG[d], {5, NOSYM}][
s, -t]][0])/(m2^7*(m2 - p2))) +
(p2^2*(m2 + 2*p2)*(m2 + 3*p2)*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][
s, -t]][0])/m2^7 +
(p2^5*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/
(m2^7*(m2 - p2)) - (p2^5*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s,
-t]][0])/(m2^7*(m2 + p2)) + (p2^2*(m2^2 + 5*m2*p2 + 3*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^7 +
(p2^3*(2*m2^2 + 3*m2*p2 + 2*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(m2^7*(m2 + p2)) - (p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][
0])/(2*m2^6) + (p2^3*(2*m2 + 3*p2)*
Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/(2*m2^6) +
(p2^3*(m2 + p2)*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
m2^6 + (p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(2*m2^6) + (p2^4*Derivative[3][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(6*m2^5) + (p2^4*Derivative[3][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(6*m2^5) + (2*p2^3*M[GGGG[d], {4, SUSYM}][s, -t][0])/m2^7 -
(p2^2*(m2^4 + 7*m2^3*p2 - 2*m2^2*p2^2 - 15*m2*p2^3 + 10*p2^4)*
M[GGGG[d], {5, NOSYM}][s, -t][0])/(m2^8*(m2 - p2)^2) +
(p2*(m2^3 + m2^2*p2 + 7*m2*p2^2 + 10*p2^3)*
M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^8 +
M[GGGG[d], {5, NOSYM}, sut][s, -t][p2]/(m2^2*(m2 - p2)^2) -
(p2^3*(m2^3 - 3*m2^2*p2 - 3*m2*p2^2 + 4*p2^3)*
M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/(m2^8*(m2 - p2)^2) -
(p2^3*(m2^2 + 2*m2*p2 + 3*p2^2)*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/
(m2^8*(m2 + p2)) + (p2*(m2 + p2)*(m2^2 + 3*m2*p2 + 4*p2^2)*
M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^8 -
M[GGGG[d], {5, NOSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2) +
(p2^2*(m2 + 3*p2)*(m2^2 + m2*p2 + p2^2)*M[GGGG[d], {5, NOSYM}, uts][s,
-t][0])/(m2^8*(m2 + p2)),
(-2*p2^4*Derivative[1][M[GGGG[d], {8, SUSYM}][s, -t]][0])/
(m2^5*(m2 - p2)*(m2 + p2)) +
(p2^2*Derivative[1][M[GGGG[d], {8, SUSYM}, tus][s, -t]][0])/
(m2^4*(m2 + p2)) + (p2^2*Derivative[1][M[GGGG[d], {8, SUSYM}, ust][s,
-t]][0])/(m2^4*(m2 - p2)) - (p2^3*(2*m2^2 + 5*m2*p2 - 5*p2^2)*
M[GGGG[d], {8, SUSYM}][s, -t][0])/(m2^6*(m2 - p2)^2*(m2 + p2)) +
(p2*(m2^2 + 2*m2*p2 - p2^2)*M[GGGG[d], {8, SUSYM}, tus][s, -t][0])/
(m2^6*(m2 + p2)) + M[GGGG[d], {8, SUSYM}, tus][s, -t][p2]/
(m2^2*(m2 - p2)^2) + (p2*(m2^3 + 2*m2^2*p2 - 3*m2*p2^2 + p2^3)*
M[GGGG[d], {8, SUSYM}, ust][s, -t][0])/(m2^6*(m2 - p2)^2) -
M[GGGG[d], {8, SUSYM}, ust][s, -t][p2]/(m2^2*(m2 - p2)^2),
-(((2*m2^5 + 3*m2^4*p2 + 2*m2^3*p2^2 - 5*m2^2*p2^3 - 9*m2*p2^4 + 9*p2^5)*
Derivative[1][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)^2*(m2 + p2))) +
(p2^2*(2*m2 + 5*p2)*Derivative[1][M[GGGG[d], {3, SUSYM}, tus][s, -t]][
0])/(m2^7*(m2 + p2)) + (p2^2*(2*m2^2 - p2^2)*
Derivative[1][M[GGGG[d], {3, SUSYM}, ust][s, -t]][0])/
(m2^7*(m2 - p2)^2) - (p2*(2*m2^3 + 5*m2^2*p2 - 5*p2^3)*
Derivative[2][M[GGGG[d], {3, SUSYM}][s, -t]][0])/
(2*m2^6*(m2 - p2)*(m2 + p2)) +
(p2^3*Derivative[2][M[GGGG[d], {3, SUSYM}, tus][s, -t]][0])/
(2*m2^6*(m2 + p2)) +
(p2^3*Derivative[2][M[GGGG[d], {3, SUSYM}, ust][s, -t]][0])/
(2*m2^6*(m2 - p2)) -
(p2^2*Derivative[3][M[GGGG[d], {3, SUSYM}][s, -t]][0])/(3*m2^5) -
((5*m2^6 - 3*m2^5*p2 - 2*m2^3*p2^3 - 14*m2^2*p2^4 + 30*m2*p2^5 -
14*p2^6)*M[GGGG[d], {3, SUSYM}][s, -t][0])/(m2^8*(m2 - p2)^3*
(m2 + p2)) + (2*p2*(m2^2 + 5*m2*p2 + 7*p2^2)*
M[GGGG[d], {3, SUSYM}, tus][s, -t][0])/(m2^8*(m2 + p2)) +
M[GGGG[d], {3, SUSYM}, tus][s, -t][p2]/(m2^3*(m2 - p2)^3) +
(p2*(2*m2^3 - 2*m2*p2^2 + p2^3)*M[GGGG[d], {3, SUSYM}, ust][s, -t][0])/
(m2^7*(m2 - p2)^3) - M[GGGG[d], {3, SUSYM}, ust][s, -t][p2]/
(m2^3*(m2 - p2)^3),
(4*p2^2*Derivative[1][M[GGGG[d], {6, SUSYM}][s, -t]][0])/m2^7 -
(p2*(5*m2^4 + 4*m2^3*p2 - 7*m2^2*p2^2 - 9*m2*p2^3 + 9*p2^4)*
Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)^2*(m2 + p2)) - (2*p2*(3*m2 + 5*p2)*
Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/m2^7 -
(4*p2*(m2 + p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/
m2^7 + (p2^2*(2*m2 + 5*p2)*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][
s, -t]][0])/(m2^7*(m2 + p2)) +
(p2^2*(2*m2^2 - p2^2)*Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][
0])/(m2^7*(m2 - p2)^2) - (p2*(2*m2^3 + 5*m2^2*p2 - 5*p2^3)*
Derivative[2][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
(2*m2^6*(m2 - p2)*(m2 + p2)) -
(p2*(m2 + 3*p2)*Derivative[2][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
m2^6 - (p2*(m2 + 2*p2)*Derivative[2][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/m2^6 +
(p2^3*Derivative[2][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/
(2*m2^6*(m2 + p2)) +
(p2^3*Derivative[2][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(2*m2^6*(m2 - p2)) -
(p2^2*Derivative[3][M[GGGG[d], {7, SUSYM}][s, -t]][0])/(3*m2^5) -
(p2^2*Derivative[3][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/(3*m2^5) -
(p2^2*Derivative[3][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/(3*m2^5) +
(2*p2*(2*m2 + 7*p2)*M[GGGG[d], {6, SUSYM}][s, -t][0])/m2^8 -
(p2*(7*m2^5 - 12*m2^3*p2^2 - 9*m2^2*p2^3 + 30*m2*p2^4 - 14*p2^5)*
M[GGGG[d], {7, SUSYM}][s, -t][0])/(m2^8*(m2 - p2)^3*(m2 + p2)) -
(2*p2*(4*m2 + 7*p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/m2^8 -
(2*p2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2^7 +
(2*p2*(m2^2 + 5*m2*p2 + 7*p2^2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/
(m2^8*(m2 + p2)) + M[GGGG[d], {7, SUSYM}, tus][s, -t][p2]/
(m2^3*(m2 - p2)^3) + (p2*(2*m2^3 - 2*m2*p2^2 + p2^3)*
M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^7*(m2 - p2)^3) -
M[GGGG[d], {7, SUSYM}, ust][s, -t][p2]/(m2^3*(m2 - p2)^3),
-((p2^3*(4*m2^4 - 4*m2^3*p2 + 2*m2^2*p2^2 + 7*m2*p2^3 - 7*p2^4)*
Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/
(m2^8*(m2 - p2)^2*(m2 + p2))) +
(8*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^7 +
(p2^2*(m2^3 + 2*m2^2*p2 - 9*m2*p2^2 - 9*p2^3)*
Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^8*(m2 + p2)) - (p2^2*(m2^4 + 3*m2^3*p2 - 5*m2^2*p2^2 + 4*m2*p2^3 -
2*p2^4)*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^8*(m2 - p2)^2) -
(12*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^7 +
(2*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/m2^7 +
(2*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/m2^7 -
(6*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^7 -
(4*p2^3*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^7 -
(p2^6*Derivative[2][M[GGGG[d], {4, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)*(m2 + p2)) +
(p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^6 +
(p2^3*(m2^2 - 4*m2*p2 - 4*p2^2)*
Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(2*m2^7*(m2 + p2)) - (p2^3*(m2^2 - 2*m2*p2 + 2*p2^2)*
Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(2*m2^7*(m2 - p2)) -
(3*p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/m2^6 -
(2*p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^6 -
(p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^6 -
(p2^4*Derivative[3][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/(6*m2^6) +
(p2^4*Derivative[3][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/(6*m2^6) -
(p2^3*Derivative[3][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/(3*m2^5) -
(p2^3*Derivative[3][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/(3*m2^5) -
(p2^3*(14*m2^4 - 38*m2^3*p2 + 57*m2^2*p2^2 - 48*m2*p2^3 + 16*p2^4)*
M[GGGG[d], {4, SUSYM}][s, -t][0])/(m2^9*(m2 - p2)^3) +
(20*p2^3*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^8 +
(p2*(m2^3 - m2^2*p2 - 16*p2^3)*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/
m2^9 + ((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, tus][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2*(m2^4 + 4*m2^3*p2 - 4*m2^2*p2^2 - 2*m2*p2^3 +
2*p2^4)*M[GGGG[d], {4, SUSYM}, ust][s, -t][0])/(m2^7*(m2 - p2)^3) +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}, ust][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (20*p2^3*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
m2^8 + (8*p2^3*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/m2^8 +
(6*p2^3*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/m2^8 -
(8*p2^3*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^8 -
(6*p2^3*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^8,
(-4*p2^3*Derivative[1][M[GGGG[d], {6, SUSYM}][s, -t]][0])/m2^7 +
(p2^2*(5*m2^4 - 17*m2^2*p2^2 + m2*p2^3 + 9*p2^4)*
Derivative[1][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
(m2^7*(m2 - p2)^2*(m2 + p2)) + (2*p2^2*(3*m2 + 5*p2)*
Derivative[1][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/m2^7 +
(4*p2^2*(m2 + p2)*Derivative[1][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/
m2^7 - (p2^3*(4*m2 + 5*p2)*Derivative[1][M[GGGG[d], {7, SUSYM}, tus][
s, -t]][0])/(m2^7*(m2 + p2)) - (p2^3*(4*m2^2 - 2*m2*p2 - p2^2)*
Derivative[1][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(m2^7*(m2 - p2)^2) + (p2^2*(2*m2^3 + 5*m2^2*p2 - 4*m2*p2^2 - 5*p2^3)*
Derivative[2][M[GGGG[d], {7, SUSYM}][s, -t]][0])/
(2*m2^6*(m2 - p2)*(m2 + p2)) +
(p2^2*(m2 + 3*p2)*Derivative[2][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/
m2^6 + (p2^2*(m2 + 2*p2)*Derivative[2][M[GGGG[d], {6, SUSYM}, ust][s,
-t]][0])/m2^6 -
(p2^4*Derivative[2][M[GGGG[d], {7, SUSYM}, tus][s, -t]][0])/
(2*m2^6*(m2 + p2)) -
(p2^4*Derivative[2][M[GGGG[d], {7, SUSYM}, ust][s, -t]][0])/
(2*m2^6*(m2 - p2)) +
(p2^3*Derivative[3][M[GGGG[d], {7, SUSYM}][s, -t]][0])/(3*m2^5) +
(p2^3*Derivative[3][M[GGGG[d], {6, SUSYM}, tus][s, -t]][0])/(3*m2^5) +
(p2^3*Derivative[3][M[GGGG[d], {6, SUSYM}, ust][s, -t]][0])/(3*m2^5) -
(2*p2^2*(2*m2 + 7*p2)*M[GGGG[d], {6, SUSYM}][s, -t][0])/m2^8 +
(p2^2*(3*m2^4 - 9*m2^3*p2 - 11*m2^2*p2^2 + 30*m2*p2^3 - 14*p2^4)*
M[GGGG[d], {7, SUSYM}][s, -t][0])/(m2^8*(m2 - p2)^3) +
(2*p2^2*(4*m2 + 7*p2)*M[GGGG[d], {6, SUSYM}, tus][s, -t][0])/m2^8 +
(2*p2^2*M[GGGG[d], {6, SUSYM}, ust][s, -t][0])/m2^7 -
(2*p2^2*(3*m2 + 7*p2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][0])/m2^8 +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, tus][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2^2*(6*m2^3 - 4*m2^2*p2 - 4*m2*p2^2 + 3*p2^3)*
M[GGGG[d], {7, SUSYM}, ust][s, -t][0])/(m2^7*(m2 - p2)^3) +
((2*m2 - p2)*M[GGGG[d], {7, SUSYM}, ust][s, -t][p2])/
(m2^3*(m2 - p2)^3),
(7*p2^4*Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/m2^8 -
((m2 - 11*p2)*p2^2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/
m2^7 - (9*p2^4*Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
m2^8 + (2*p2^4*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
m2^8 + (p2^2*(4*m2^3 - 28*m2^2*p2 + 38*m2*p2^2 - 15*p2^3)*
Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(m2^7*(m2 - p2)^2) -
(p2^4*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/
(m2^7*(m2 + p2)) - ((6*m2 - 5*p2)*p2^4*
Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/
(m2^7*(m2 - p2)^2) + (p2^2*(6*m2^2 + 4*m2*p2 - 3*p2^2)*
Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(m2^7*(m2 + p2)) + ((m2 - 7*p2)*p2^2*
Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^7 +
(p2^4*Derivative[2][M[GGGG[d], {4, SUSYM}][s, -t]][0])/m2^7 +
(3*p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/(2*m2^6) -
(2*p2^4*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/m2^7 +
(p2^4*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/m2^7 +
(p2^2*(2*m2^2 - 10*m2*p2 + 7*p2^2)*
Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(2*m2^6*(m2 - p2)) -
(p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/
(2*m2^6*(m2 + p2)) -
(p2^4*Derivative[2][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/
(2*m2^6*(m2 - p2)) + (p2^2*(2*m2^2 - 3*p2^2)*
Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(2*m2^6*(m2 + p2)) -
(3*p2^3*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/
(2*m2^6) - (p2^4*Derivative[3][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(6*m2^6) + (p2^4*Derivative[3][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(6*m2^6) - (p2^3*Derivative[3][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/
(3*m2^5) - (p2^3*Derivative[3][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/
(3*m2^5) + (8*p2^2*(m2^2 + 2*p2^2)*M[GGGG[d], {4, SUSYM}][s, -t][0])/
m2^9 + (p2*(m2^2 - 7*m2*p2 + 26*p2^2)*M[GGGG[d], {5, NOSYM}][s, -t][
0])/m2^8 + ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (16*p2^4*M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/
m2^9 - (p2*(2*m2^5 - 8*m2^4*p2 + 52*m2^3*p2^2 - 108*m2^2*p2^3 +
89*m2*p2^4 - 26*p2^5)*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/
(m2^8*(m2 - p2)^3) - (2*(2*m2 - p2)*p2^2*
M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/m2^8 -
(p2^2*(4*m2^4 - 10*m2^3*p2 + 26*m2^2*p2^2 - 31*m2*p2^3 + 12*p2^4)*
M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/(m2^8*(m2 - p2)^3) +
(2*p2*(m2^2 + 4*m2*p2 - p2^2)*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/
m2^8 - (p2*(m2^2 + m2*p2 + 12*p2^2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][
0])/m2^8 + ((2*m2 - p2)*M[GGGG[d], {5, NOSYM}, uts][s, -t][p2])/
(m2^3*(m2 - p2)^3),
-(((4*m2 - 3*p2)*p2^2*Derivative[1][M[GGGG[d], {9, SUSYM}, tus][s, -t]][
0])/(m2^5*(m2 - p2)^2)) -
(p2^2*Derivative[1][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/
(m2^5*(m2 + p2)) - (p2^2*Derivative[2][M[GGGG[d], {9, SUSYM}, tus][s,
-t]][0])/(2*m2^4*(m2 - p2)) -
(p2^2*Derivative[2][M[GGGG[d], {9, SUSYM}, ust][s, -t]][0])/
(2*m2^4*(m2 + p2)) + ((2*m2 - p2)*M[GGGG[d], {9, SUSYM}][s, -t][p2])/
(m2^3*(m2 - p2)^3) - (p2*(m2^3 + 6*m2^2*p2 - 10*m2*p2^2 + 4*p2^3)*
M[GGGG[d], {9, SUSYM}, tus][s, -t][0])/(m2^6*(m2 - p2)^3) +
(p2*M[GGGG[d], {9, SUSYM}, ust][s, -t][0])/m2^6,
(-2*p2*Derivative[1][M[GGGG[d], {4, SUSYM}][s, -t]][0])/m2^7 +
(4*p2*Derivative[1][M[GGGG[d], {5, NOSYM}][s, -t]][0])/m2^7 -
(p2^2*(9*m2^2 - 13*m2*p2 + 5*p2^2)*
Derivative[1][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(m2^7*(m2 - p2)^3) +
(2*p2^2*Derivative[1][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^7*(m2 + p2)) - (6*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, sut][s,
-t]][0])/m2^7 +
(p2*Derivative[1][M[GGGG[d], {5, NOSYM}, tsu][s, -t]][0])/m2^7 +
(p2*Derivative[1][M[GGGG[d], {5, NOSYM}, tus][s, -t]][0])/m2^7 -
(3*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^7 -
(2*p2*Derivative[1][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/m2^7 +
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}][s, -t]][0])/(2*m2^6) -
((4*m2 - 3*p2)*p2^2*Derivative[2][M[GGGG[d], {4, SUSYM}, tus][s, -t]][
0])/(2*m2^6*(m2 - p2)^2) +
(p2^2*Derivative[2][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(m2^6*(m2 + p2)) - (3*p2*Derivative[2][M[GGGG[d], {5, NOSYM}, sut][s,
-t]][0])/(2*m2^6) -
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/m2^6 -
(p2*Derivative[2][M[GGGG[d], {5, NOSYM}, uts][s, -t]][0])/(2*m2^6) -
(p2^2*Derivative[3][M[GGGG[d], {4, SUSYM}, tus][s, -t]][0])/
(6*m2^5*(m2 - p2)) +
(p2^2*Derivative[3][M[GGGG[d], {4, SUSYM}, ust][s, -t]][0])/
(6*m2^5*(m2 + p2)) -
(p2*Derivative[3][M[GGGG[d], {5, NOSYM}, sut][s, -t]][0])/(6*m2^5) -
(p2*Derivative[3][M[GGGG[d], {5, NOSYM}, ust][s, -t]][0])/(6*m2^5) -
(7*p2*M[GGGG[d], {4, SUSYM}][s, -t][0])/m2^8 +
((2*m2 - p2)*M[GGGG[d], {4, SUSYM}][s, -t][p2])/(m2^4*(m2 - p2)^4) +
(10*p2*M[GGGG[d], {5, NOSYM}][s, -t][0])/m2^8 -
(p2^2*(16*m2^3 - 34*m2^2*p2 + 26*m2*p2^2 - 7*p2^3)*
M[GGGG[d], {4, SUSYM}, tus][s, -t][0])/(m2^8*(m2 - p2)^4) -
(10*p2*M[GGGG[d], {5, NOSYM}, sut][s, -t][0])/m2^8 +
(4*p2*M[GGGG[d], {5, NOSYM}, tsu][s, -t][0])/m2^8 +
(3*p2*M[GGGG[d], {5, NOSYM}, tus][s, -t][0])/m2^8 -
(4*p2*M[GGGG[d], {5, NOSYM}, ust][s, -t][0])/m2^8 -
(3*p2*M[GGGG[d], {5, NOSYM}, uts][s, -t][0])/m2^8}
Attributes[Derivative] = {NHoldAll}
sumruleslow[bkimp[GGGG[d], 2]] =
{(2*G8\[Pi])/p2 + (G8\[Pi]*p2*\[Alpha]2^2)/4 - (G8\[Pi]*p2*\[Alpha]4)/2,
(4*G8\[Pi]*\[Alpha]4)/p2, (2*G8\[Pi])/p2 +
((-4 + d)*G8\[Pi]*p2*\[Alpha]2^2)/(8*(-2 + d)) +
(G8\[Pi]*p2^3*\[Alpha]4^2)/16, (16*G8\[Pi])/p2 +
(G8\[Pi]*p2*\[Alpha]2^2)/2 + \[Alpha]2*(-4*G8\[Pi] -
(G8\[Pi]*p2^2*\[Alpha]4)/2), \[Alpha]2*((-4*G8\[Pi])/p2 -
(G8\[Pi]*p2*\[Alpha]4)/2), (-8*G8\[Pi]*\[Alpha]2)/p2 +
8*G8\[Pi]*\[Alpha]4, (16*G8\[Pi])/p2 - 8*G8\[Pi]*\[Alpha]2 +
4*G8\[Pi]*p2*\[Alpha]4, (2*G8\[Pi]*\[Alpha]2)/p2 + G8\[Pi]*\[Alpha]4,
(4*G8\[Pi]*\[Alpha]2)/p2 - 4*G8\[Pi]*\[Alpha]4,
(-8*G8\[Pi]*\[Alpha]4)/p2, -1/2*(G8\[Pi]*\[Alpha]2^2) +
\[Alpha]2*((-2*G8\[Pi])/p2 - (G8\[Pi]*p2*\[Alpha]4)/2),
g[3, 0, {GGGG[d], 1}], 0,
(-8*G8\[Pi]*\[Alpha]4)/p2, -1/2*(G8\[Pi]*\[Alpha]2*\[Alpha]4)/p2,
(G8\[Pi]*\[Alpha]2^2)/(2*p2) - (G8\[Pi]*\[Alpha]4)/p2,
(G8\[Pi]*\[Alpha]2^2)/p2 - (2*G8\[Pi]*\[Alpha]4)/p2,
-1/2*(G8\[Pi]*\[Alpha]2*\[Alpha]4)/p2, (G8\[Pi]*\[Alpha]4^2)/(16*p2)}
sumruleslow[bkimp[GGGG[d], 3]] =
{((-4 + d)*G8\[Pi]*\[Alpha]2^2)/(8*(-2 + d)) + (G8\[Pi]*p2^2*\[Alpha]4^2)/
16, -1/2*(G8\[Pi]*\[Alpha]2^2) + (G8\[Pi]*p2*\[Alpha]2*\[Alpha]4)/2,
-1/2*(G8\[Pi]*\[Alpha]2*\[Alpha]4), 0, 0, 2*g[4, 0, {GGGG[d], 4}],
-4*g[4, 0, {GGGG[d], 6}], G8\[Pi]*\[Alpha]2*\[Alpha]4, 0, 0}
sumruleslow[bkimp[GGGG[d], 4]] = {g[4, 0, {GGGG[d], 3}] -
p2*g[5, T, 0, {GGGG[d], 3}] + p2^2*g[6, T^2, 0, {GGGG[d], 3}],
g[6, 0, {GGGG[d], 10}], (G8\[Pi]*p2*\[Alpha]4^2)/8 +
2*g[4, 0, {GGGG[d], 2}], 2*g[4, 0, {GGGG[d], 5}] +
4*p2*g[5, SmU, 0, {GGGG[d], 5}], 2*g[5, 0, {GGGG[d], 8}],
2*g[5, 0, {GGGG[d], 9}] + p2*g[6, T, 0, {GGGG[d], 9}],
2*g[4, 0, {GGGG[d], 6}] + g[4, 0, {GGGG[d], 7}] +
2*p2^2*g[6, 0, {GGGG[d], 6}] - p2^2*g[6, 0, {GGGG[d], 7}] +
p2*g[5, T, 0, {GGGG[d], 6}] - p2*g[5, T, 0, {GGGG[d], 7}],
2*p2*g[6, 0, {GGGG[d], 4}] - g[5, T, 0, {GGGG[d], 4}],
2*p2*g[6, 0, {GGGG[d], 6}] + p2*g[6, 0, {GGGG[d], 7}] -
g[5, T, 0, {GGGG[d], 6}], -g[6, T, 0, {GGGG[d], 9}],
2*g[5, SmU, 0, {GGGG[d], 5}], 2*g[5, 0, {GGGG[d], 1}] +
p2*g[6, 0, {GGGG[d], 1}], 2*g[6, 0, {GGGG[d], 6}],
2*g[6, 0, {GGGG[d], 7}], 0, 2*g[6, T^2, 0, {GGGG[d], 3}],
-4*g[6, 0, {GGGG[d], 4}], 0, 0}
sumruleslow[bkimp[GGGG[d], 5]] = {2*p2*g[6, 0, {GGGG[d], 2}] -
g[5, T, 0, {GGGG[d], 2}], 2*p2*g[6, 0, {GGGG[d], 5}] +
2*p2^2*g[7, 0, {GGGG[d], 5}] + g[5, SmU, 0, {GGGG[d], 5}] -
g[5, T, 0, {GGGG[d], 5}] - 2*p2*g[6, SmU*T, 0, {GGGG[d], 5}],
2*p2*g[7, 0, {GGGG[d], 8}] - g[6, T, 0, {GGGG[d], 8}],
-g[7, 0, {GGGG[d], 3}], -2*g[7, 0, {GGGG[d], 6}] -
g[7, 0, {GGGG[d], 7}], 4*g[6, 0, {GGGG[d], 4}] +
2*p2*g[7, 0, {GGGG[d], 4}] + 2*g[6, T^2, 0, {GGGG[d], 4}],
4*g[6, 0, {GGGG[d], 7}] + 2*p2*g[7, 0, {GGGG[d], 6}] +
3*p2*g[7, 0, {GGGG[d], 7}] + 2*g[6, T^2, 0, {GGGG[d], 7}],
4*g[6, 0, {GGGG[d], 5}] + 4*p2*g[7, 0, {GGGG[d], 5}],
2*g[7, 0, {GGGG[d], 9}], 0}
sumruleslow[bkimp[GGGG[d], 6]] = {2*g[6, 0, {GGGG[d], 3}] +
p2*g[7, 0, {GGGG[d], 3}] - 2*p2*g[7, T, 0, {GGGG[d], 3}] -
p2^2*g[8, T, 0, {GGGG[d], 3}] + 2*p2^2*g[8, T^2, 0, {GGGG[d], 3}] +
p2^3*g[9, T^2, 0, {GGGG[d], 3}], 2*g[8, 0, {GGGG[d], 10}] +
p2*g[9, 0, {GGGG[d], 10}], 4*g[6, 0, {GGGG[d], 2}] +
2*p2*g[7, 0, {GGGG[d], 2}] + 8*p2^2*g[8, 0, {GGGG[d], 2}] +
2*g[6, T^2, 0, {GGGG[d], 2}], 4*g[6, 0, {GGGG[d], 5}] +
2*p2*g[7, 0, {GGGG[d], 5}] + 16*p2^3*g[9, 0, {GGGG[d], 5}] -
2*g[6, SmU*T, 0, {GGGG[d], 5}] + 2*g[6, T^2, 0, {GGGG[d], 5}] -
2*p2*g[7, Odd3, 0, {GGGG[d], 5}] + 8*p2*g[7, SmU, 0, {GGGG[d], 5}] +
4*p2^2*g[8, SmU, 0, {GGGG[d], 5}], 4*g[7, 0, {GGGG[d], 8}] +
2*p2*g[8, 0, {GGGG[d], 8}] + 8*p2^2*g[9, 0, {GGGG[d], 8}] +
2*g[7, T^2, 0, {GGGG[d], 8}], 4*g[7, 0, {GGGG[d], 9}] +
2*p2*g[8, 0, {GGGG[d], 9}] + 2*g[7, T^2, 0, {GGGG[d], 9}] +
2*p2*g[8, T, 0, {GGGG[d], 9}] + p2^2*g[9, T, 0, {GGGG[d], 9}],
4*g[6, 0, {GGGG[d], 6}] + 2*g[6, 0, {GGGG[d], 7}] +
2*p2*g[7, 0, {GGGG[d], 6}] + p2*g[7, 0, {GGGG[d], 7}] +
4*p2^2*g[8, 0, {GGGG[d], 6}] - 2*p2^2*g[8, 0, {GGGG[d], 7}] +
4*p2^3*g[9, 0, {GGGG[d], 6}] - 2*p2^3*g[9, 0, {GGGG[d], 7}] +
2*g[6, T^2, 0, {GGGG[d], 6}] + 2*p2*g[7, T, 0, {GGGG[d], 6}] -
2*p2*g[7, T, 0, {GGGG[d], 7}] + p2^2*g[8, T, 0, {GGGG[d], 6}] -
p2^2*g[8, T, 0, {GGGG[d], 7}], 4*p2*g[8, 0, {GGGG[d], 4}] +
4*p2^2*g[9, 0, {GGGG[d], 4}] - 2*g[7, T, 0, {GGGG[d], 4}] -
p2*g[8, T, 0, {GGGG[d], 4}], 4*p2*g[8, 0, {GGGG[d], 6}] +
2*p2*g[8, 0, {GGGG[d], 7}] + 4*p2^2*g[9, 0, {GGGG[d], 6}] +
2*p2^2*g[9, 0, {GGGG[d], 7}] - 2*g[7, T, 0, {GGGG[d], 6}] -
p2*g[8, T, 0, {GGGG[d], 6}], -2*g[8, T, 0, {GGGG[d], 9}] -
p2*g[9, T, 0, {GGGG[d], 9}], 8*p2^2*g[9, 0, {GGGG[d], 5}] +
2*g[7, Odd3, 0, {GGGG[d], 5}] + 4*g[7, SmU, 0, {GGGG[d], 5}] +
p2*g[8, SmU, 0, {GGGG[d], 5}] + p2*g[8, T, 0, {GGGG[d], 5}],
4*g[7, 0, {GGGG[d], 1}] + 4*p2*g[8, 0, {GGGG[d], 1}] +
p2^2*g[9, 1, {GGGG[d], 1}], 4*g[8, 0, {GGGG[d], 6}] +
4*p2*g[9, 0, {GGGG[d], 6}], 4*g[8, 0, {GGGG[d], 7}] +
4*p2*g[9, 0, {GGGG[d], 7}], 4*g[9, 0, {GGGG[d], 8}],
4*g[8, T^2, 0, {GGGG[d], 3}] + 2*p2*g[9, T^2, 0, {GGGG[d], 3}],
-8*g[8, 0, {GGGG[d], 4}] - 8*p2*g[9, 0, {GGGG[d], 4}] -
8*p2*g[9, 0, {GGGG[d], 5}] + 2*g[8, SmU, 0, {GGGG[d], 5}] -
2*g[8, T, 0, {GGGG[d], 5}], 8*g[9, 0, {GGGG[d], 5}], 0}
sumruleslow[bkimp[GGGG[d], 7]] = {4*p2*g[8, 0, {GGGG[d], 2}] +
4*p2^2*g[9, 0, {GGGG[d], 2}] + 8*p2^3*g[10, 0, {GGGG[d], 2}] -
2*g[7, T, 0, {GGGG[d], 2}] - p2*g[8, T, 0, {GGGG[d], 2}],
4*p2*g[8, 0, {GGGG[d], 5}] + 4*p2^2*g[9, 0, {GGGG[d], 5}] +
8*p2^3*g[10, 0, {GGGG[d], 4}] + 2*p2^3*g[10, 1, {GGGG[d], 5}] -
2*g[7, Odd3, 0, {GGGG[d], 5}] + 2*g[7, SmU, 0, {GGGG[d], 5}] -
2*g[7, T, 0, {GGGG[d], 5}] + p2*g[8, SmU, 0, {GGGG[d], 5}] -
p2*g[8, T, 0, {GGGG[d], 5}] - 4*p2*g[8, SmU*T, 0, {GGGG[d], 5}] +
6*p2^2*g[9, Odd3, 0, {GGGG[d], 5}] -
2*p2^2*g[9, SmU*T, 0, {GGGG[d], 5}], 4*p2*g[9, 0, {GGGG[d], 8}] +
4*p2^2*g[10, 0, {GGGG[d], 8}] - 2*g[8, T, 0, {GGGG[d], 8}] -
p2*g[9, T, 0, {GGGG[d], 8}], -4*g[9, 0, {GGGG[d], 3}] -
p2*g[10, 1, {GGGG[d], 3}], -2*p2*g[10, 1, {GGGG[d], 6}] -
p2*g[10, 1, {GGGG[d], 7}] - 4*g[9, T, 0, {GGGG[d], 7}],
8*g[8, 0, {GGGG[d], 4}] + 8*p2*g[9, 0, {GGGG[d], 4}] +
16*p2^2*g[10, 0, {GGGG[d], 4}] + 2*p2^2*g[10, 1, {GGGG[d], 4}] +
4*g[8, T^2, 0, {GGGG[d], 4}] + 2*p2*g[9, T^2, 0, {GGGG[d], 4}],
8*g[8, 0, {GGGG[d], 7}] + 8*p2*g[9, 0, {GGGG[d], 7}] +
2*p2^2*g[10, 1, {GGGG[d], 6}] + 3*p2^2*g[10, 1, {GGGG[d], 7}] +
4*g[8, T^2, 0, {GGGG[d], 7}] + 4*p2*g[9, T, 0, {GGGG[d], 7}] +
2*p2*g[9, T^2, 0, {GGGG[d], 7}], 8*g[8, 0, {GGGG[d], 5}] +
8*p2*g[9, 0, {GGGG[d], 5}] + 32*p2^2*g[10, 0, {GGGG[d], 4}] +
4*p2^2*g[10, 1, {GGGG[d], 5}] + 12*p2*g[9, Odd3, 0, {GGGG[d], 5}],
4*g[9, 0, {GGGG[d], 9}] + 4*p2*g[10, 0, {GGGG[d], 9}],
8*g[10, 0, {GGGG[d], 4}]}
sumrulesKK[bkimp[GGGG[d], 2], {GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{0}}, {{(2*(2*m2 - p2))/((-3 + d)*d)}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}}], exchange[{2},
{{{0, 0}, {0, (8*(-2 + d)*m2^2*(2*m2 - p2))/((-4 + d)*(-3 + d)*d*
(2 + d))}}, {{0, 0}, {0, 0}},
{{(2*(-4*m2^3 + 2*d*m2^3 + 10*m2^2*p2 - 9*d*m2^2*p2 - 12*m2*p2^2 +
12*d*m2*p2^2 + 4*p2^3 - 4*d*p2^3))/((-3 + d)*(-2 + d)*d),
(8*(4 - 5*d + d^2)*p2*(2*m2^2 - 3*m2*p2 + p2^2))/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d])},
{(8*(4 - 5*d + d^2)*p2*(2*m2^2 - 3*m2*p2 + p2^2))/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]),
(4*(-4*m2^3 + 2*d*m2^3 + 18*m2^2*p2 - 5*d*m2^2*p2 - 24*m2*p2^2 +
6*d*m2*p2^2 + 8*p2^3 - 2*d*p2^3))/((-3 + d)*(-2 + d)*d*
(2 + d))}}, {{0, (16*m2*(2*m2 - p2)*p2)/((-3 + d)*
Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d])},
{(16*m2*(2*m2 - p2)*p2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]), (16*m2*(-4*m2^2 + 2*d*m2^2 + 18*m2*p2 - 5*d*m2*p2 -
8*p2^2 + 2*d*p2^2))/((-4 + d)*(-3 + d)*d*(2 + d))}},
{{0, (16*m2*(2*m2 - p2))/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d])}, {(16*m2*(2*m2 - p2))/((-3 + d)*
Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]), (-32*m2*(2*m2 - p2))/
((-3 + d)*d*(2 + d))}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, (-8*m2^2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d])},
{(-8*m2^2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]),
(16*m2^2)/((-3 + d)*d*(2 + d))}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, (16*m2*(m2 - p2))/((-3 + d)*
Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d])},
{(16*m2*(m2 - p2))/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]),
(-16*m2*((-6 + d)*m2 - 2*(-4 + d)*p2))/((-4 + d)*(-3 + d)*d*
(2 + d))}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, (-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
(m2 + p2))}, {(-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*(m2 + p2)), (32*m2)/((-3 + d)*d*(2 + d)*(m2 + p2))}},
{{0, 0}, {0, (-16*(-2 + d)*m2^2)/((-4 + d)*(-3 + d)*d*(2 + d)*
(m2 + p2))}}, {{0, 0}, {0, (-32*(-2 + d)*m2^2)/
((-4 + d)*(-3 + d)*d*(2 + d)*(m2 + p2))}},
{{0, (-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
(m2 + p2))}, {(-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*(m2 + p2)), (32*m2)/((-3 + d)*d*(2 + d)*(m2 + p2))}},
{{(-8*(-1 + d))/((-3 + d)*(-2 + d)*d*(m2 + p2)), (8*(4 - 5*d + d^2))/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*
(m2 + p2))}, {(8*(4 - 5*d + d^2))/(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*
Sqrt[-1 + d]*d*Sqrt[2 + d]*(m2 + p2)), (-8*(-4 + d))/
((-3 + d)*(-2 + d)*d*(2 + d)*(m2 + p2))}}}],
exchange[{1, 1, 1}, {{{0}}, {{0}}, {{(2*(2*m2 - p2))/(3*d)}},
{{(8*(2*m2 - p2))/(3*d)}}, {{0}}, {{0}}, {{0}}, {{-8/(3*d)}}, {{0}},
{{0}}, {{8/(3*d)}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}}]}
sumrulesKK[bkimp[GGGG[d], 3], {GG[d], GG[d]}] =
{exchange[{0}, {{{-2/((-3 + d)*d)}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}}], exchange[{2},
{{{(-2*(-2*m2^2 + d*m2^2 + 4*m2*p2 - 4*d*m2*p2 - 4*p2^2 + 4*d*p2^2))/
((-3 + d)*(-2 + d)*d), (-8*(4*m2*p2 - 5*d*m2*p2 + d^2*m2*p2 -
4*p2^2 + 5*d*p2^2 - d^2*p2^2))/(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*
Sqrt[-1 + d]*d*Sqrt[2 + d])},
{(-8*(4*m2*p2 - 5*d*m2*p2 + d^2*m2*p2 - 4*p2^2 + 5*d*p2^2 -
d^2*p2^2))/(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*
Sqrt[2 + d]), (-4*(-2*m2^2 + d*m2^2 + 8*m2*p2 - 2*d*m2*p2 -
8*p2^2 + 2*d*p2^2))/((-3 + d)*(-2 + d)*d*(2 + d))}},
{{0, (16*m2*p2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d])},
{(16*m2*p2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]),
(16*m2*(-2*m2 + d*m2 + 8*p2 - 2*d*p2))/((-4 + d)*(-3 + d)*d*
(2 + d))}}, {{0, (-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d])}, {(-16*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]), (32*m2)/((-3 + d)*d*(2 + d))}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, (32*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d])},
{(32*m2)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]),
(-64*m2)/((-3 + d)*d*(2 + d))}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}}], exchange[{1, 1, 1}, {{{-2/(3*d)}}, {{8/(3*d)}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}}]}
sumrulesKK[bkimp[GGGG[d], 4], {GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}}], exchange[{2}, {{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{(-16*(-1 + d)*p2)/((-3 + d)*(-2 + d)*d), (16*(4 - 5*d + d^2)*p2)/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d])},
{(16*(4 - 5*d + d^2)*p2)/(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*
d*Sqrt[2 + d]), (-16*(-4 + d)*p2)/((-3 + d)*(-2 + d)*d*(2 + d))}},
{{0, 0}, {0, (64*m2)/((-3 + d)*d*(2 + d))}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}], exchange[{1, 1, 1},
{{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}}]}
sumrulesKK[bkimp[GGGG[d], 5], {GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}}], exchange[{2}, {{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}], exchange[{1, 1, 1},
{{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}}]}
sumrulesKK[bkimp[GGGG[d], 6], {GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}}], exchange[{2}, {{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}], exchange[{1, 1, 1},
{{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}}]}
sumrulesKK[bkimp[GGGG[d], 7], {GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}}], exchange[{2}, {{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}], exchange[{1, 1, 1},
{{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}}]}
ampKK[{GG[d], GG[d]}] =
{exchange[{0}, {{{0}}, {{-2/((-3 + d)*d*mh2^4*(-mh2 + t))}},
{{-2/((-3 + d)*d*mh2^4*(-mh2 - s - t))}},
{{-2/((-3 + d)*d*mh2^4*(-mh2 + s))}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}}], exchange[{2}, {{{0, 0}, {0, 0}},
{{-((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*s*(-s - t))/((-3 + d)*(-2 + d)*
d*mh2^6))/(-mh2 + t)), (-8*(4 - 5*d + d^2)*s*(-s - t))/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*
(-mh2 + t))}, {(-8*(4 - 5*d + d^2)*s*(-s - t))/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*
(-mh2 + t)), -((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*s*(-s - t))/
((-3 + d)*(-2 + d)*d*mh2^6))/(-mh2 + t)) -
(-2/((-3 + d)*(2 + d)*mh2^4) + (8*(2 + d^2)*s*(-s - t))/
((-3 + d)*(-2 + d)*d*(2 + d)*mh2^6))/(-mh2 + t)}},
{{-((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*s*t)/((-3 + d)*(-2 + d)*d*
mh2^6))/(-mh2 - s - t)), (-8*(4 - 5*d + d^2)*s*t)/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*
(-mh2 - s - t))}, {(-8*(4 - 5*d + d^2)*s*t)/(Sqrt[-4 + d]*(-3 + d)*
(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*(-mh2 - s - t)),
-((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*s*t)/((-3 + d)*(-2 + d)*d*
mh2^6))/(-mh2 - s - t)) - (-2/((-3 + d)*(2 + d)*mh2^4) +
(8*(2 + d^2)*s*t)/((-3 + d)*(-2 + d)*d*(2 + d)*mh2^6))/
(-mh2 - s - t)}},
{{-((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*(-s - t)*t)/((-3 + d)*(-2 + d)*
d*mh2^6))/(-mh2 + s)), (-8*(4 - 5*d + d^2)*(-s - t)*t)/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*
(-mh2 + s))}, {(-8*(4 - 5*d + d^2)*(-s - t)*t)/
(Sqrt[-4 + d]*(-3 + d)*(-2 + d)*Sqrt[-1 + d]*d*Sqrt[2 + d]*mh2^6*
(-mh2 + s)), -((2/((-3 + d)*d*mh2^4) - (8*(-1 + d)*(-s - t)*t)/
((-3 + d)*(-2 + d)*d*mh2^6))/(-mh2 + s)) -
(-2/((-3 + d)*(2 + d)*mh2^4) + (8*(2 + d^2)*(-s - t)*t)/
((-3 + d)*(-2 + d)*d*(2 + d)*mh2^6))/(-mh2 + s)}},
{{0, 0}, {0, (-8*(-2 + d)*((-mh2 + s)^(-1) + (-mh2 - s - t)^(-1)))/
((-4 + d)*(-3 + d)*d*(2 + d)*mh2^4)}},
{{0, 0}, {0, (-8*(-2 + d)*((-mh2 + s)^(-1) + (-mh2 + t)^(-1)))/
((-4 + d)*(-3 + d)*d*(2 + d)*mh2^4)}},
{{0, 0}, {0, (-8*(-2 + d)*((-mh2 - s - t)^(-1) + (-mh2 + t)^(-1)))/
((-4 + d)*(-3 + d)*d*(2 + d)*mh2^4)}},
{{0, -8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^4*
(-mh2 + t))}, {-8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
mh2^4*(-mh2 + t)), 16/((-3 + d)*d*(2 + d)*mh2^4*(-mh2 + t))}},
{{0, -8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^4*
(-mh2 - s - t))}, {-8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^4*(-mh2 - s - t)), 16/((-3 + d)*d*(2 + d)*mh2^4*
(-mh2 - s - t))}}, {{0, -8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^4*(-mh2 + s))},
{-8/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^4*(-mh2 + s)),
16/((-3 + d)*d*(2 + d)*mh2^4*(-mh2 + s))}},
{{0, (16*(-s - t))/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
mh2^5*(-mh2 + s))}, {(16*(-s - t))/((-3 + d)*
Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*(-mh2 + s)),
(16*((-6 + d)*mh2 + 2*(-4 + d)*t))/((-4 + d)*(-3 + d)*d*(2 + d)*mh2^5*
(-mh2 + s))}}, {{0, (16*s)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 + t))},
{(16*s)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 + t)), (16*((-6 + d)*mh2 + 2*(-4 + d)*(-s - t)))/
((-4 + d)*(-3 + d)*d*(2 + d)*mh2^5*(-mh2 + t))}},
{{0, (16*t)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 - s - t))}, {(16*t)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 - s - t)),
(16*((-6 + d)*mh2 + 2*(-4 + d)*s))/((-4 + d)*(-3 + d)*d*(2 + d)*mh2^5*
(-mh2 - s - t))}},
{{0, (16*(-s - t))/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
mh2^5*(-mh2 + t))}, {(16*(-s - t))/((-3 + d)*
Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*(-mh2 + t)),
(16*((-6 + d)*mh2 + 2*(-4 + d)*s))/((-4 + d)*(-3 + d)*d*(2 + d)*mh2^5*
(-mh2 + t))}}, {{0, (16*s)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 - s - t))},
{(16*s)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 - s - t)), (16*((-6 + d)*mh2 + 2*(-4 + d)*t))/
((-4 + d)*(-3 + d)*d*(2 + d)*mh2^5*(-mh2 - s - t))}},
{{0, (16*t)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 + s))}, {(16*t)/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 + s)),
(16*((-6 + d)*mh2 + 2*(-4 + d)*(-s - t)))/((-4 + d)*(-3 + d)*d*
(2 + d)*mh2^5*(-mh2 + s))}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}},
{{0, -16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 + t))}, {-16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*
mh2^5*(-mh2 + t)), 32/((-3 + d)*d*(2 + d)*mh2^5*(-mh2 + t))}},
{{0, -16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 - s - t))}, {-16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 - s - t)), 32/((-3 + d)*d*(2 + d)*mh2^5*
(-mh2 - s - t))}}, {{0, -16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*
Sqrt[2 + d]*mh2^5*(-mh2 + s))},
{-16/((-3 + d)*Sqrt[(-4 + d)/(-1 + d)]*d*Sqrt[2 + d]*mh2^5*
(-mh2 + s)), 32/((-3 + d)*d*(2 + d)*mh2^5*(-mh2 + s))}}, {{0, 0},
{0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}, {{0, 0}, {0, 0}}}],
exchange[{1, 1, 1}, {{{0}}, {{-2/(3*d*mh2^4*(-mh2 + t))}},
{{-2/(3*d*mh2^4*(-mh2 - s - t))}}, {{-2/(3*d*mh2^4*(-mh2 + s))}},
{{0}}, {{0}}, {{0}}, {{-8/(3*d*mh2^4*(-mh2 + t))}},
{{-8/(3*d*mh2^4*(-mh2 - s - t))}}, {{-8/(3*d*mh2^4*(-mh2 + s))}},
{{-8/(3*d*mh2^4*(-mh2 + s))}}, {{-8/(3*d*mh2^4*(-mh2 + t))}},
{{-8/(3*d*mh2^4*(-mh2 - s - t))}}, {{-8/(3*d*mh2^4*(-mh2 + t))}},
{{-8/(3*d*mh2^4*(-mh2 - s - t))}}, {{-8/(3*d*mh2^4*(-mh2 + s))}},
{{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}}, {{0}},
{{0}}, {{0}}, {{0}}}]}