{{Subscript[p, 3, j]*Subscript[x, 1, i]*Subscript[x, 2, i] - 
   (Subscript[p, 3, j]*Subscript[x, 1, j]*Subscript[x, 2, i])/
    Subscript[T, 1], 
  -((Subscript[p, 3, j]*Subscript[x, 1, i]*Subscript[x, 2, i])/
     (Subscript[T, 1]^2*Subscript[T, 2])) + 
   (Subscript[p, 3, j]*Subscript[x, 1, j]*Subscript[x, 2, i])/
    (Subscript[T, 1]*Subscript[T, 2])}, 
 {Subscript[p, 1, j]*Subscript[p, 2, i]*Subscript[x, 3, i] - 
   Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 3, i], 
  -((Subscript[p, 1, j]*Subscript[p, 2, i]*Subscript[x, 3, i])/
     Subscript[T, 1]) + (Subscript[p, 1, j]*Subscript[p, 2, j]*
     Subscript[x, 3, i])/Subscript[T, 1]}, 
 {(Subscript[T, 2]*Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 1, i]*
     Subscript[x, 2, i])/(-1 + Subscript[T, 1]*Subscript[T, 2]) - 
   (Subscript[p, 1, j]*Subscript[p, 2, i]*Subscript[x, 1, j]*
     Subscript[x, 2, i])/((-1 + Subscript[T, 1])*Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 1, j]*
     Subscript[x, 2, i])/((-1 + Subscript[T, 1])*Subscript[T, 1]) + 
   (Subscript[p, 1, i]*Subscript[p, 2, j]*Subscript[x, 1, i]*
     Subscript[x, 2, j])/((-1 + Subscript[T, 1])*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 3, j]*Subscript[x, 3, i])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   Subscript[p, 1, j]*Subscript[p, 3, j]*Subscript[x, 1, i]*
    Subscript[x, 3, i] + (Subscript[p, 1, j]*Subscript[p, 3, i]*
     Subscript[x, 1, j]*Subscript[x, 3, i])/((-1 + Subscript[T, 1])*
     Subscript[T, 1]*(-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 1, j]*Subscript[p, 3, j]*Subscript[x, 1, j]*
     Subscript[x, 3, i])/(-1 + Subscript[T, 1]) - 
   (Subscript[T, 2]*Subscript[p, 2, j]*Subscript[p, 3, j]*Subscript[x, 2, i]*
     Subscript[x, 3, i])/Subscript[T, 1] - 
   (Subscript[p, 2, j]*Subscript[p, 3, i]*Subscript[x, 2, j]*
     Subscript[x, 3, i])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 1, i]*Subscript[p, 3, j]*Subscript[x, 1, i]*
     Subscript[x, 3, j])/((-1 + Subscript[T, 1])*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[T, 2]*Subscript[p, 2, j]*Subscript[p, 3, j]*Subscript[x, 2, i]*
     Subscript[x, 3, j])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])), 
  (Subscript[p, 1, j]*Subscript[p, 2, i]*Subscript[x, 1, i]*
     Subscript[x, 2, i])/(Subscript[T, 1]^2*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   ((-1 + Subscript[T, 2])*Subscript[p, 1, i]*Subscript[p, 2, j]*
     Subscript[x, 1, i]*Subscript[x, 2, i])/((-1 + Subscript[T, 1])*
     Subscript[T, 2]*(-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   ((-Subscript[T, 1] - Subscript[T, 2] + Subscript[T, 1]*Subscript[T, 2])*
     Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 1, i]*
     Subscript[x, 2, i])/(Subscript[T, 1]^2*Subscript[T, 2]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 1, j]*Subscript[p, 2, i]*Subscript[x, 1, j]*
     Subscript[x, 2, i])/((-1 + Subscript[T, 1])*Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 1, j]*
     Subscript[x, 2, i])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 1, i]*Subscript[p, 2, j]*Subscript[x, 1, i]*
     Subscript[x, 2, j])/((-1 + Subscript[T, 1])*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 1, j]*Subscript[p, 2, j]*Subscript[x, 1, i]*
     Subscript[x, 2, j])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 3, j]*Subscript[x, 3, i])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 1, j]*Subscript[p, 3, i]*Subscript[x, 1, i]*
     Subscript[x, 3, i])/(Subscript[T, 1]^2*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 1, i]*Subscript[p, 3, j]*Subscript[x, 1, i]*
     Subscript[x, 3, i])/((-1 + Subscript[T, 1])*Subscript[T, 1]*
     Subscript[T, 2]) - (Subscript[p, 1, j]*Subscript[p, 3, j]*
     Subscript[x, 1, i]*Subscript[x, 3, i])/(Subscript[T, 1]^2*
     Subscript[T, 2]) - (Subscript[p, 1, j]*Subscript[p, 3, i]*
     Subscript[x, 1, j]*Subscript[x, 3, i])/((-1 + Subscript[T, 1])*
     Subscript[T, 1]*(-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   ((-1 + Subscript[T, 2])*Subscript[p, 2, j]*Subscript[p, 3, i]*
     Subscript[x, 2, i]*Subscript[x, 3, i])/(Subscript[T, 1]*Subscript[T, 2]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) + 
   (Subscript[p, 2, i]*Subscript[p, 3, j]*Subscript[x, 2, i]*
     Subscript[x, 3, i])/(Subscript[T, 1]^2*Subscript[T, 2]) - 
   ((-1 + 2*Subscript[T, 2])*Subscript[p, 2, j]*Subscript[p, 3, j]*
     Subscript[x, 2, i]*Subscript[x, 3, i])/(Subscript[T, 1]^2*
     Subscript[T, 2]^2) + (Subscript[p, 2, j]*Subscript[p, 3, i]*
     Subscript[x, 2, j]*Subscript[x, 3, i])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 2, j]*Subscript[p, 3, j]*Subscript[x, 2, j]*
     Subscript[x, 3, i])/(Subscript[T, 1]^2*Subscript[T, 2]) + 
   (Subscript[p, 1, i]*Subscript[p, 3, j]*Subscript[x, 1, i]*
     Subscript[x, 3, j])/((-1 + Subscript[T, 1])*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 1, j]*Subscript[p, 3, j]*Subscript[x, 1, i]*
     Subscript[x, 3, j])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2])) - 
   (Subscript[p, 2, j]*Subscript[p, 3, j]*Subscript[x, 2, i]*
     Subscript[x, 3, j])/(Subscript[T, 1]*
     (-1 + Subscript[T, 1]*Subscript[T, 2]))}, 
 -((\[CurlyPhi]*Subscript[p, 3, k]*Subscript[x, 3, k])/
   (Subscript[T, 1]*(-1 + Subscript[T, 1]*Subscript[T, 2])))}
