Graph2Int.txt

{B[-1, -1, 2]*J[4, Subscript[g, 1], 1, 1, 0, 3, 0]*T[2 - 2/(-2 + d)] + B[-1, -1, 2]*J[2, Subscript[g, 1], 1, 1, 0, 2, 0]*T[(2*(-4 + d)*(-1 + d))/(-2 + d)^2] + B[-1, -1, 2]*J[0, Subscript[g, 1], 1, 1, 0, 1, 0]*T[(2 + (-5 + d)*d)/(-2 + d)^2] + B[0, -1, 2]*J[4, Subscript[g, 1], 1, 1, 1, 3, -1]*T[(-4*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^3)] + B[0, -1, 2]*J[2, Subscript[g, 1], 1, 1, 1, 2, -1]*T[(-2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^3)] + B[0, -1, 2]*J[4, Subscript[g, 2], 1, 1, 1, 3, -1]*T[(-2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^3)] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, 1, 2, -1]*T[-((-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3))] + B[1, -1, 2]*J[4, Subscript[g, 1], 1, 1, 1, 3, 0]*T[-((-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3))] + B[1, -1, 2]*J[4, Subscript[g, 2], 1, 1, 1, 3, 0]*T[-((-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3))] + B[1, -1, 2]*J[2, Subscript[g, 1], 1, 1, 1, 2, 0]*T[-1/2*(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3)] + B[1, -1, 2]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[-1/2*(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3)] + B[0, 0, 2]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^3)] + B[0, 0, 2]*J[4, Subscript[g, 2], 1, 1, 1, 3, 0]*T[(2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^3)] + B[-1, -1, 2]*J[0, Subscript[g, 1], 1, 1, -2, 1, 0]*T[(-3 + d)/((-2 + d)*x[2]^2)] + B[0, -1, 2]*J[0, Subscript[g, 2], 1, 1, -2, 1, 1]*T[(2*(-3 + d))/((-2 + d)*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, -2, 2, 1]*T[(4*(-3 + d))/((-2 + d)*x[2]^2)] + B[0, -1, 2]*J[4, Subscript[g, 2], 1, 1, -2, 3, 1]*T[(4*(-3 + d))/((-2 + d)*x[2]^2)] + B[0, 0, 2]*J[2, Subscript[g, 2], 1, 1, 2, 2, 0]*T[(-2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[4, Subscript[g, 1], 1, 1, 2, 3, -1]*T[(-2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[4, Subscript[g, 2], 1, 1, 2, 3, 0]*T[(-2*(-1 + (-2 + d)*y^2)^2)/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[-((-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2))] + B[1, -1, 2]*J[4, Subscript[g, 1], 1, 1, 2, 3, 0]*T[-1/2*(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[1, -1, 2]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[(-1 + (-2 + d)*y^2)^2/(4*(-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[0, Subscript[g, 2], 1, 1, 2, 1, -1]*T[(-1 + (-2 + d)*y^2)^2/(2*(-2 + d)^2*x[2]^2)] + B[0, 1, 2]*J[0, Subscript[g, 2], 1, 1, 2, 1, 1]*T[(-1 + (-2 + d)*y^2)^2/(2*(-2 + d)^2*x[2]^2)] + B[1, -1, 2]*J[2, Subscript[g, 2], 1, 1, 2, 2, 0]*T[(-1 + (-2 + d)*y^2)^2/(2*(-2 + d)^2*x[2]^2)] + B[1, -1, 2]*J[4, Subscript[g, 2], 1, 1, 2, 3, 0]*T[(-1 + (-2 + d)*y^2)^2/(2*(-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, 2, 2, -1]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[0, 1, 2]*J[2, Subscript[g, 2], 1, 1, 2, 2, 1]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[4, Subscript[g, 1], 1, 1, 2, 3, 0]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[4, Subscript[g, 2], 1, 1, 2, 3, -1]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[0, 1, 2]*J[4, Subscript[g, 2], 1, 1, 2, 3, 1]*T[(-1 + (-2 + d)*y^2)^2/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[2, Subscript[g, 2], 1, 1, 0, 2, 1]*T[(4 - 4*(-2 + d)^2*y^2)/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[4, Subscript[g, 2], 1, 1, 0, 3, 1]*T[(4 - 4*(-2 + d)^2*y^2)/((-2 + d)^2*x[2]^2)] + B[0, 0, 2]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(2 - 2*(-2 + d)^2*y^2)/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[0, Subscript[g, 1], 1, 1, 0, 1, 0]*T[(-1 + (-2 + d)^2*y^2)/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 1], 1, 1, 0, 2, 0]*T[(-2 + 2*(-2 + d)^2*y^2)/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[0, Subscript[g, 2], 1, 1, -1, 1, 1]*T[(4*y*x[1])/x[2]^2] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, -1, 2, 1]*T[(4*y*x[1])/x[2]^2] + B[0, 0, 2]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[(2*y*(1 - (-2 + d)*y^2)*x[1])/((-2 + d)*x[2]^2)] + B[0, 0, 2]*J[2, Subscript[g, 2], 1, 1, 1, 2, 1]*T[(2*y*(1 - (-2 + d)*y^2)*x[1])/((-2 + d)*x[2]^2)] + B[0, -1, 2]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[((-1 + (-2 + d)*y^2)*(2*(-2 + d)*y*x[1] - x[2]))/((-2 + d)^2*x[2]^2)] + B[-1, -1, 2]*J[2, Subscript[g, 1], 1, 1, -1, 2, 0]*T[(-2*(-3 + d))/((-2 + d)*x[2])] + B[-1, -1, 2]*J[0, Subscript[g, 1], 1, 1, -1, 1, 0]*T[(-2*(-4 + d)*(-1 + d))/((-2 + d)^2*x[2])] + B[0, -1, 2]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[(-1 + (-2 + d)*y^2)/((-2 + d)^2*x[2])] + B[0, -1, 2]*J[4, Subscript[g, 2], 1, 1, 1, 3, 0]*T[(2 + 2*(-4 + d)*(-2 + d)*y^2)/((-2 + d)^2*x[2])] + B[0, -1, 2]*J[4, Subscript[g, 1], 1, 1, 1, 3, 0]*T[(-6 + 2*(-2 + d)*d*y^2)/((-2 + d)^2*x[2])] + B[0, -1, 2]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(2*(-2 + d)*(-1 + (-2 + d)*y^2)*x[1]^2 + 8*(-2 + d)*y*x[1]*x[2] - 8*x[2]^2)/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, 0, 2, 1]*T[(4*(-((-2 + d)*x[1]^2) + 4*(-2 + d)*y*x[1]*x[2] - 4*x[2]^2))/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[4, Subscript[g, 2], 1, 1, 0, 3, 1]*T[(8*(-((-2 + d)*x[1]^2) + 2*(-2 + d)*y*x[1]*x[2] - 2*x[2]^2))/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[(x[2] + (-2 + d)*y*(2*(-1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2]))/((-2 + d)^2*x[2]^2)] + B[0, -1, 2]*J[2, Subscript[g, 1], 1, 1, 1, 2, 0]*T[(-5*x[2] + (-2 + d)*y*((2 - 2*(-2 + d)*y^2)*x[1] + (2 + d)*y*x[2]))/((-2 + d)^2*x[2]^2)] + B[-1, -1, 1]*J[4, Subscript[g, 1], 1, 2, 0, 2, 0]*T[((-3 + d)*x[3])/(-2 + d)] + B[-1, -1, 1]*J[2, Subscript[g, 1], 1, 2, 0, 1, 0]*T[((-4 + d)*(-1 + d)*x[3])/(-2 + d)^2] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 1, 0, 2, 1]*T[(-8*x[1]*x[3])/(-2 + d)] + B[0, -1, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[2*y*((-2 + d)^(-1) - (2*y*x[1])/x[2])*x[3]] + B[0, -1, 1]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[4*x[1]*(-2/(-2 + d) - (y*x[1])/x[2])*x[3]] + B[0, -1, 1]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[(y + ((2 - 2*(-2 + d)*y^2)*x[1])/((-2 + d)*x[2]))*x[3]] + B[0, -1, 1]*J[4, Subscript[g, 1], 1, 2, 1, 2, -1]*T[(-2*(-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 2, 1, 1, -1]*T[-(((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3))] + B[0, -1, 1]*J[4, Subscript[g, 2], 1, 2, 1, 2, -1]*T[-(((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3))] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, 1, 1, -1]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[1, -1, 1]*J[4, Subscript[g, 1], 1, 2, 1, 2, 0]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[1, -1, 1]*J[4, Subscript[g, 2], 1, 2, 1, 2, 0]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[1, -1, 1]*J[2, Subscript[g, 1], 1, 2, 1, 1, 0]*T[-1/4*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[-1/4*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^3)] + B[0, 0, 1]*J[4, Subscript[g, 2], 1, 2, 1, 2, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^3)] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, -2, 1, 1]*T[(2*(-3 + d)*x[3])/((-2 + d)*x[2]^2)] + B[0, -1, 1]*J[4, Subscript[g, 2], 1, 2, -2, 2, 1]*T[(2*(-3 + d)*x[3])/((-2 + d)*x[2]^2)] + B[1, -1, 1]*J[0, Subscript[g, 2], 1, 1, -1, 1, 1]*T[(-2*y*x[3])/x[2]^2] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 1, -1, 2, 1]*T[(-2*y*x[3])/x[2]^2] + B[0, 0, 1]*J[0, Subscript[g, 2], 1, 1, -1, 1, 1]*T[(2*y*x[3])/x[2]^2] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 1, -1, 2, 1]*T[(2*y*x[3])/x[2]^2] + B[1, -1, 1]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/(2*(-2 + d)*x[2]^2)] + B[0, -1, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, -1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 1, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 0, 1]*J[2, Subscript[g, 1], 1, 1, 1, 2, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 1, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[1, -1, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[(3*y*(1 - (-2 + d)*y^2)*x[3])/(2*(-2 + d)*x[2]^2)] + B[0, -1, 1]*J[0, Subscript[g, 1], 1, 1, 1, 1, -1]*T[(2*y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[1, 0, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[(y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[1, -1, 1]*J[2, Subscript[g, 1], 1, 1, 1, 2, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[1, 0, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 1]*T[(y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 0, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[(2*y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2]^2)] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 2, 2, 1, 0]*T[-(((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^2))] + B[0, -1, 1]*J[4, Subscript[g, 1], 1, 2, 2, 2, -1]*T[-(((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^2))] + B[0, 0, 1]*J[4, Subscript[g, 2], 1, 2, 2, 2, 0]*T[-(((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^2))] + B[1, -1, 1]*J[4, Subscript[g, 1], 1, 2, 2, 2, 0]*T[-1/4*((-1 + (-2 + d)*y^2)^2*x[3])/((-2 + d)^2*x[2]^2)] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 2, 2, 1, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(4*(-2 + d)^2*x[2]^2)] + B[1, -1, 1]*J[4, Subscript[g, 2], 1, 2, 2, 2, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(4*(-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, 2, 1, -1]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, 1, 1]*J[2, Subscript[g, 2], 1, 2, 2, 1, 1]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, 0, 1]*J[4, Subscript[g, 1], 1, 2, 2, 2, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[4, Subscript[g, 2], 1, 2, 2, 2, -1]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, 1, 1]*J[4, Subscript[g, 2], 1, 2, 2, 2, 1]*T[((-1 + (-2 + d)*y^2)^2*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 2, 0, 1, 1]*T[(-2*(-1 + (-2 + d)^2*y^2)*x[3])/((-2 + d)^2*x[2]^2)] + B[0, 0, 1]*J[4, Subscript[g, 2], 1, 2, 0, 2, 1]*T[(-2*(-1 + (-2 + d)^2*y^2)*x[3])/((-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 2, 0, 1, 0]*T[((-1 + (-2 + d)^2*y^2)*x[3])/((-2 + d)^2*x[2]^2)] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 1, 0, 2, 1]*T[(-2*x[1]*x[3])/((-2 + d)*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, -1, 1, 1]*T[(2*y*x[1]*x[3])/x[2]^2] + B[1, -1, 1]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(-2*y^2*x[1]*x[3])/x[2]^2] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 2, 1, 1, 1]*T[(y*(1 - (-2 + d)*y^2)*x[1]*x[3])/((-2 + d)*x[2]^2)] + B[-1, -1, 1]*J[2, Subscript[g, 1], 1, 2, -1, 1, 0]*T[-(((-3 + d)*x[3])/((-2 + d)*x[2]))] + B[1, -1, 1]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/(2*(-2 + d)*x[2])] + B[1, -1, 1]*J[2, Subscript[g, 1], 1, 1, 2, 2, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/(2*(-2 + d)*x[2])] + B[1, -1, 1]*J[2, Subscript[g, 2], 1, 1, 2, 2, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3])/(2*(-2 + d)*x[2])] + B[0, -1, 1]*J[0, Subscript[g, 2], 1, 1, 2, 1, -1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, 1, 1]*J[0, Subscript[g, 2], 1, 1, 2, 1, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 1, 2, 2, -1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, 1, 1]*J[2, Subscript[g, 2], 1, 1, 2, 2, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 1, 2, 2, -1]*T[(2*y*(1 - (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, 0, 1]*J[2, Subscript[g, 1], 1, 1, 2, 2, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, 0, 1]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[(2*y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 1, 2, 2, 0]*T[(2*y*(-1 + (-2 + d)*y^2)*x[3])/((-2 + d)*x[2])] + B[0, -1, 1]*J[4, Subscript[g, 2], 1, 2, 1, 2, 0]*T[((1 + (-4 + d)*(-2 + d)*y^2)*x[3])/((-2 + d)^2*x[2])] + B[0, -1, 1]*J[4, Subscript[g, 1], 1, 2, 1, 2, 0]*T[((-3 + (-2 + d)*d*y^2)*x[3])/((-2 + d)^2*x[2])] + B[0, -1, 1]*J[0, Subscript[g, 2], 1, 1, -1, 1, 1]*T[(-4*d*x[1]*x[3])/((-2 + d)*x[2])] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 1, -1, 2, 1]*T[(-4*d*x[1]*x[3])/((-2 + d)*x[2])] + B[0, 0, 1]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[(4*y^2*x[1]*x[3])/x[2]] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 1]*T[(2*(1 + (-2 + d)*y^2)*x[1]*x[3])/((-2 + d)*x[2])] + B[0, 0, 1]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(2*y*(y*x[1] + x[2])*x[3])/x[2]^2] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 1, 1, 2, 0]*T[-(((2*(1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2])*x[3])/((-2 + d)*x[2]))] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 1, 1, 2, 0]*T[((2*(1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2])*x[3])/((-2 + d)*x[2])] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 1, 0, 2, 0]*T[(-4*(x[1] + (-3 + d)*y*x[2])*x[3])/((-2 + d)*x[2]^2)] + B[0, -1, 1]*J[0, Subscript[g, 1], 1, 1, 0, 1, 0]*T[(-2*(x[1] + (-3 + d)*y*x[2])*x[3])/((-2 + d)*x[2]^2)] + B[0, 0, 1]*J[2, Subscript[g, 2], 1, 1, 0, 2, 1]*T[(2*(x[1] + (-2 + d)*y*x[2])*x[3])/((-2 + d)*x[2]^2)] + B[0, -1, 1]*J[4, Subscript[g, 2], 1, 2, 0, 2, 1]*T[(-4*((-2 + d)*x[1]^2 - 2*(-2 + d)*y*x[1]*x[2] + 2*x[2]^2)*x[3])/((-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, 0, 1, 1]*T[(-2*((-2 + d)*x[1]^2 - 4*(-2 + d)*y*x[1]*x[2] + 4*x[2]^2)*x[3])/((-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[((x[2] + (-2 + d)*y*(2*(-1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2]))*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, -1, 1]*J[2, Subscript[g, 1], 1, 2, 1, 1, 0]*T[((-5*x[2] + (-2 + d)*y*((2 - 2*(-2 + d)*y^2)*x[1] + (2 + d)*y*x[2]))*x[3])/(2*(-2 + d)^2*x[2]^2)] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, 0, 1, 0]*T[(2*x[3]^2)/(-2 + d)] + B[-1, -1, 0]*J[4, Subscript[g, 1], 1, 3, 0, 1, 0]*T[((-3 + d)*x[3]^2)/(2*(-2 + d))] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, 2, 1, -1]*T[((-2 + d)^(-1) - y^2)*x[3]^2] + B[0, 0, 0]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[((-2 + d)^(-1) - y^2)*x[3]^2] + B[1, -1, 0]*J[0, Subscript[g, 1], 1, 1, 2, 1, 0]*T[((1 - (-2 + d)*y^2)*x[3]^2)/(4*(-2 + d))] + B[1, -1, 0]*J[0, Subscript[g, 2], 1, 1, 2, 1, 0]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(4*(-2 + d))] + B[0, 0, 0]*J[0, Subscript[g, 1], 1, 1, 2, 1, 0]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d))] + B[0, -1, 0]*J[0, Subscript[g, 2], 1, 1, 2, 1, -1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d))] + B[0, 1, 0]*J[0, Subscript[g, 2], 1, 1, 2, 1, 1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d))] + B[0, -1, 0]*J[2, Subscript[g, 2], 1, 2, 0, 1, 1]*T[(-4*x[1]*x[3]^2)/(-2 + d)] + B[0, 0, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[-2*y*x[1]*x[3]^2] + B[0, -1, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[2*x[1]^2*x[3]^2] + B[0, -1, 0]*J[4, Subscript[g, 1], 1, 3, 1, 1, -1]*T[-(((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^3))] + B[0, -1, 0]*J[4, Subscript[g, 2], 1, 3, 1, 1, -1]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^3)] + B[1, -1, 0]*J[4, Subscript[g, 1], 1, 3, 1, 1, 0]*T[-1/4*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^3)] + B[1, -1, 0]*J[4, Subscript[g, 2], 1, 3, 1, 1, 0]*T[-1/4*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^3)] + B[0, 0, 0]*J[4, Subscript[g, 2], 1, 3, 1, 1, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3]^2)/(2*(-2 + d)^2*x[2]^3)] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, 0, 1, -1]*T[(2*x[3]^2)/((-2 + d)*x[2]^2)] + B[0, -1, 0]*J[4, Subscript[g, 2], 1, 3, -2, 1, 1]*T[((-3 + d)*x[3]^2)/((-2 + d)*x[2]^2)] + B[1, -1, 0]*J[2, Subscript[g, 2], 1, 2, -1, 1, 1]*T[-((y*x[3]^2)/x[2]^2)] + B[0, 0, 0]*J[2, Subscript[g, 2], 1, 2, -1, 1, 1]*T[(y*x[3]^2)/x[2]^2] + B[1, 0, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[((1 - (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2]^2)] + B[0, 0, 0]*J[2, Subscript[g, 1], 1, 2, 1, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[1, -1, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[0, 1, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[0, 1, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[2, -1, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[1, -1, 0]*J[2, Subscript[g, 1], 1, 2, 1, 1, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[0, 0, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[1, 0, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 1]*T[(y*(-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2]^2)] + B[0, -1, 0]*J[4, Subscript[g, 1], 1, 3, 2, 1, -1]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^2)] + B[0, 0, 0]*J[4, Subscript[g, 2], 1, 3, 2, 1, 0]*T[-1/2*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^2)] + B[1, -1, 0]*J[4, Subscript[g, 1], 1, 3, 2, 1, 0]*T[-1/8*((-1 + (-2 + d)*y^2)^2*x[3]^2)/((-2 + d)^2*x[2]^2)] + B[1, -1, 0]*J[4, Subscript[g, 2], 1, 3, 2, 1, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3]^2)/(8*(-2 + d)^2*x[2]^2)] + B[0, 0, 0]*J[4, Subscript[g, 1], 1, 3, 2, 1, 0]*T[((-1 + (-2 + d)*y^2)^2*x[3]^2)/(4*(-2 + d)^2*x[2]^2)] + B[0, -1, 0]*J[4, Subscript[g, 2], 1, 3, 2, 1, -1]*T[((-1 + (-2 + d)*y^2)^2*x[3]^2)/(4*(-2 + d)^2*x[2]^2)] + B[0, 1, 0]*J[4, Subscript[g, 2], 1, 3, 2, 1, 1]*T[((-1 + (-2 + d)*y^2)^2*x[3]^2)/(4*(-2 + d)^2*x[2]^2)] + B[0, 0, 0]*J[4, Subscript[g, 2], 1, 3, 0, 1, 1]*T[((1 - (-2 + d)^2*y^2)*x[3]^2)/((-2 + d)^2*x[2]^2)] + B[1, -1, 0]*J[2, Subscript[g, 2], 1, 2, 0, 1, 1]*T[-((x[1]*x[3]^2)/((-2 + d)*x[2]^2))] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, -1, 1, 0]*T[(-4*x[3]^2)/((-2 + d)*x[2])] + B[0, 0, 0]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[((1 - (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[1, 0, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[((1 - (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[0, 0, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[(2*(1 - (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[1, -1, 0]*J[2, Subscript[g, 1], 1, 2, 2, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(4*(-2 + d)*x[2])] + B[1, -1, 0]*J[2, Subscript[g, 2], 1, 2, 2, 1, 0]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(4*(-2 + d)*x[2])] + B[0, -1, 0]*J[2, Subscript[g, 2], 1, 2, 2, 1, -1]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2])] + B[0, 1, 0]*J[2, Subscript[g, 2], 1, 2, 2, 1, 1]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2])] + B[0, -1, 0]*J[2, Subscript[g, 1], 1, 2, 2, 1, -1]*T[(y*(1 - (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[0, -1, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, -1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[0, 1, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 1]*T[((-1 + (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, 1, 1, -1]*T[(2*(-1 + (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[0, 0, 0]*J[2, Subscript[g, 1], 1, 2, 2, 1, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2])] + B[0, 0, 0]*J[2, Subscript[g, 2], 1, 2, 2, 1, 0]*T[(y*(-1 + (-2 + d)*y^2)*x[3]^2)/((-2 + d)*x[2])] + B[1, -1, 0]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[((-2 + 3*(-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2])] + B[1, -1, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[((-2 + 3*(-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)*x[2])] + B[0, -1, 0]*J[4, Subscript[g, 2], 1, 3, 1, 1, 0]*T[((1 + (-4 + d)*(-2 + d)*y^2)*x[3]^2)/(2*(-2 + d)^2*x[2])] + B[0, -1, 0]*J[4, Subscript[g, 1], 1, 3, 1, 1, 0]*T[((-3 + (-2 + d)*d*y^2)*x[3]^2)/(2*(-2 + d)^2*x[2])] + B[0, -1, 0]*J[2, Subscript[g, 2], 1, 2, -1, 1, 1]*T[(-2*d*x[1]*x[3]^2)/((-2 + d)*x[2])] + B[0, 0, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(-2*y*x[1]*x[3]^2)/x[2]] + B[1, -1, 0]*J[0, Subscript[g, 2], 1, 1, 0, 1, 1]*T[(2*y*x[1]*x[3]^2)/x[2]] + B[0, 0, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 1]*T[((1 + (-2 + d)*y^2)*x[1]*x[3]^2)/((-2 + d)*x[2])] + B[0, -1, 0]*J[0, Subscript[g, 1], 1, 1, 1, 1, 0]*T[(2*y*x[1] - x[2]/(-2 + d))*x[3]^2] + B[0, -1, 0]*J[0, Subscript[g, 2], 1, 1, 1, 1, 0]*T[(2*y*x[1] - x[2]/(-2 + d))*x[3]^2] + B[0, -1, 0]*J[2, Subscript[g, 2], 1, 2, 1, 1, 0]*T[-1/2*((2*(1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2])*x[3]^2)/((-2 + d)*x[2])] + B[0, -1, 0]*J[2, Subscript[g, 1], 1, 2, 1, 1, 0]*T[((2*(1 + (-2 + d)*y^2)*x[1] + (-4 + d)*y*x[2])*x[3]^2)/(2*(-2 + d)*x[2])] + B[0, -1, 0]*J[2, Subscript[g, 1], 1, 2, 0, 1, 0]*T[(-2*(x[1] + (-3 + d)*y*x[2])*x[3]^2)/((-2 + d)*x[2]^2)] + B[0, 0, 0]*J[2, Subscript[g, 2], 1, 2, 0, 1, 1]*T[((x[1] + (-2 + d)*y*x[2])*x[3]^2)/((-2 + d)*x[2]^2)] + B[0, -1, 0]*J[4, Subscript[g, 2], 1, 3, 0, 1, 1]*T[(-2*((-2 + d)*x[1]^2 - 2*(-2 + d)*y*x[1]*x[2] + 2*x[2]^2)*x[3]^2)/((-2 + d)^2*x[2]^2)], {dot[q[1], q[1]], -2*dot[p[3], q[1]] + dot[q[1], q[1]], dot[q[1], F[3], v[2]]}, {{dot[l[1], l[1]], dot[l[1], v[1]], dot[l[1], v[2]] + dot[p[3], v[2]], dot[l[1], l[1]] + 2*dot[l[1], q[1]] + dot[q[1], q[1]], dot[l[1], p[3]]}, {dot[l[1], l[1]], dot[l[1], v[1]], dot[l[1], v[2]], dot[l[1], l[1]] + 2*dot[l[1], q[1]] + dot[q[1], q[1]], -2*dot[l[1], p[3]] - 2*dot[p[3], q[1]]}}}