(* ::Package:: *)

(* ::Title:: *)
(*This file contains the orthonormal multiplet basis for 5 gluons*)


(* ::Subsection:: *)
(*The vectors are named and ordered as:*)


(* ::Text:: *)
(*Basis vectors for gluons G1,G2,G3 -> G4,G5. The names of the basis vectors are given by the construction history (see arXiv:1207.0609) on the "incoming" and "outgoing" side, for example, for Vector8s2727, G1 and G2 are in the symmetric octet, and are combined with G3 to a 27-plet, which is matched on the "outgoing" side by G4 and G5 forming an overall 27-plet.*)


CMNMBq0g5={Vector8s11,Vector8a11,
Vector188s,Vector188a,
Vector8s8s8s,Vector8s8s8a,Vector8s8a8s,Vector8s8a8a,
Vector8a8s8s,Vector8a8s8a,Vector8a8a8s,Vector8a8a8a,
Vector2788s,Vector2788a,Vector1088s,Vector1088a,Vector10bar88s,Vector10bar88a,Vector088s,Vector088a,
Vector8s2727,Vector8a2727,Vector2727a27,Vector2727s27,Vector102727,Vector10bar2727,
Vector8s1010,Vector8a1010,Vector271010,Vector1010a10,Vector1010s10,Vector01010,
Vector8s10bar10bar,Vector8a10bar10bar,Vector2710bar10bar,Vector10bar10bara10bar,Vector10bar10bars10bar,Vector010bar10bar,
Vector8s00,Vector8a00,Vector1000,Vector10bar00,Vector00a0,Vector00s0};

Normalized5gBasis=CMNMBq0g5;



(* ::Subsection::Closed:: *)
(*The explicit forms of the vectors are:*)


Subscript[Vector00a0 , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(4*(-2 + Nc)*TR^2*
       Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR])
 
Attributes[Superscript] = {NHoldRest, ReadProtected}
 
Subscript[Vector00s0 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G4, G5, G3, G2}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G4, G3, G5, G2}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G4, G5, G3}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G2, G4, G3, G5}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G5, G4, G3}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G2, G5, G3, G4}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G3, G4, G5}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G3, G5, G4}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G5, G4, G3, G2}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G5, G3, G4, G2}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) - (Nc*Superscript[o, {G1, G3, G4, G5, G2}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G3, G2, G4, G5}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G3, G2, G5, G4}]/
      (2*(-2 + Nc)*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - (Nc*Superscript[o, {G1, G3, G5, G4, G2}])/
      (4*(-2 + Nc)^2*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + 
           Nc^5)*TR)/(-2 + Nc)]) - Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G5, G3}]*
       Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G3, G5}]*
       Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G4, G5, G3}]*
       Superscript[\[CapitalDelta], {G1, G2}])/((-2 + Nc)^2*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G4, G3, G5}]*
       Superscript[\[CapitalDelta], {G1, G2}])/((-2 + Nc)^2*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G4, G3}]*
       Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G3, G4}]*
       Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G4, G5}]*
       Superscript[\[CapitalDelta], {G1, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G2, G5, G4}]*
       Superscript[\[CapitalDelta], {G1, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G2, G3}]*
       Superscript[\[CapitalDelta], {G4, G5}])/((-2 + Nc)^2*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G3, G2}]*
       Superscript[\[CapitalDelta], {G4, G5}])/((-2 + Nc)^2*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G2, G5}]*
       Superscript[\[CapitalDelta], {G4, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G5, G2}]*
       Superscript[\[CapitalDelta], {G4, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G5, G3}]*
       Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G3, G5}]*
       Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G4, G3}]*
       Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G3, G4}]*
       Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G4, G5}]*
       Superscript[\[CapitalDelta], {G2, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G5, G4}]*
       Superscript[\[CapitalDelta], {G2, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G4, G2}]*
       Superscript[\[CapitalDelta], {G5, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)]) + (Superscript[o, {G1, G2, G4}]*
       Superscript[\[CapitalDelta], {G5, G3}])/(2*(-2 + Nc)*TR*
       Sqrt[(Nc*(-24 + 2*Nc + 29*Nc^2 - 3*Nc^3 - 5*Nc^4 + Nc^5)*TR)/
         (-2 + Nc)])
 
Subscript[Vector01010 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G2, G3, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G3, G4, G5}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*
       Superscript[o, {G1, G2, G3, G5, G4}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*
       (-6 - 7*Nc + Nc^3)*TR^3) + Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*Sqrt[2]*Nc*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G4, G5, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G5, G4, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G3, G5, G2, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR])
 
Subscript[Vector010bar10bar , {G1_, G2_, G3_, G4_, G5_}] :=  -(-Superscript[o, {G1, G4, G2, G5, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G4, G3, G2, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G4, G5, G3}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G5, G4, G3}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G5, G4, G3, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G5, G2, G4, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]))
 
Subscript[Vector088a , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G4, G5, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G4, G5, G3}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G5, G4, G3}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G4, G5}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G5, G4}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G4, G5, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G5, G4, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 - 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 - 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR])
 
Subscript[Vector088s , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*(-1 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*
         TR]) + (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Sqrt[2]*(-2 + Nc)*(-1 + Nc)*TR*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR])
 
Subscript[Vector1000 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G2, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G3, G4, G5}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*
       Superscript[o, {G1, G2, G3, G5, G4}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*
       (-6 - 7*Nc + Nc^3)*TR^3) - Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*Sqrt[2]*(-2 + Nc)*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*
         TR]) - Superscript[o, {G1, G5, G4, G3, G2}]/
      (2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*
         TR]) - Superscript[o, {G1, G5, G2, G3, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G4, G5, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G5, G4, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G3, G5, G2, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR])
 
Subscript[Vector1010a10 , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector1010s10 , {G1_, G2_, G3_, G4_, G5_}] :=  -(Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
        Superscript[o, {G1, G4, G2, G5, G3}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G2, G3, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G5, G3, G2}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G3, G2, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G4, G5, G3}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G5, G4, G3}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G4, G5}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G5, G4}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G4, G3, G2}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G2, G4, G3}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G2, G3, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G3, G2, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4, G2, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4, G5, G2}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5, G4, G2}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5, G2, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc])
 
Subscript[Vector102727 , {G1_, G2_, G3_, G4_, G5_}] :=  -(-Superscript[o, {G1, G4, G2, G5, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G4, G3, G2, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G4, G5, G3}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G5, G4, G3}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G5, G4, G3, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G5, G2, G4, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]))
 
Subscript[Vector1088a , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector1088s , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector10bar00 , {G1_, G2_, G3_, G4_, G5_}] :=  -(Superscript[o, {G1, G4, G2, G5, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G4, G3, G2, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G4, G5, G3}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G5, G4, G3}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G5, G4, G3, G2}])/(2*Sqrt[2]*(-2 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G5, G2, G4, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(-2 + Nc)*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]))
 
Subscript[Vector10bar10bara10bar , {G1_, G2_, G3_, G4_, G5_}] :=  -(-Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(4*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]))
 
Subscript[Vector10bar10bars10bar , {G1_, G2_, G3_, G4_, G5_}] :=  (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G2, G5, G3}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G2, G3, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G5, G3, G2}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G3, G2, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G4, G5, G3}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G5, G4, G3}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G4, G5}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G5, G4}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G4, G3, G2}])/
      (4*Nc*(12 + 4*Nc - 15*Nc^2 - 5*Nc^3 + 3*Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G2, G4, G3}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G2, G3, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G3, G2, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4, G2, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4, G5, G2}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Nc*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5, G4, G2}])/
      (4*Nc*(-12 + 4*Nc + 15*Nc^2 - 5*Nc^3 - 3*Nc^4 + Nc^5)*TR^3) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5, G2, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^3) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) - 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*(36 + 36*Nc - 13*Nc^2 - 13*Nc^3 + Nc^4 + Nc^5)*TR^2) + 
     (Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*(-36 + 36*Nc + 13*Nc^2 - 13*Nc^3 - Nc^4 + Nc^5)*TR^2) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc])
 
Subscript[Vector10bar2727 , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G2, G3, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G3, G4, G5}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*
       Superscript[o, {G1, G2, G3, G5, G4}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*
       (6 - 7*Nc + Nc^3)*TR^3) - Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*Sqrt[2]*(2 + Nc)*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G4, G5, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G5, G4, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G3, G5, G2, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR])
 
Subscript[Vector10bar88a , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector10bar88s , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector188a , {G1_, G2_, G3_, G4_, G5_}] :=  -((Nc*Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], 
         {G1, G2}])/(Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2))) + 
     (Nc*Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2))
 
Subscript[Vector188s , {G1_, G2_, G3_, G4_, G5_}] :=  (Nc*Sqrt[((-4 + Nc^2)*TR)/Nc]*Superscript[o, {G4, G5, G3}]*
       Superscript[\[CapitalDelta], {G1, G2}])/(Sqrt[2]*(4 - 5*Nc^2 + Nc^4)*
       TR^2) + (Nc*Sqrt[((-4 + Nc^2)*TR)/Nc]*Superscript[o, {G4, G3, G5}]*
       Superscript[\[CapitalDelta], {G1, G2}])/(Sqrt[2]*(4 - 5*Nc^2 + Nc^4)*
       TR^2)
 
Subscript[Vector271010 , {G1_, G2_, G3_, G4_, G5_}] :=  -(Superscript[o, {G1, G4, G2, G5, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G4, G3, G2, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G4, G5, G3}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G5, G4, G3}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G5, G4, G3, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G5, G2, G4, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]))
 
Subscript[Vector2710bar10bar , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G2, G3, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G3, G4, G5}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*
       Superscript[o, {G1, G2, G3, G5, G4}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*
       (6 - 7*Nc + Nc^3)*TR^3) + Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*Sqrt[2]*Nc*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G2, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G4, G5, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) - Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G3, G5, G4, G2}])/(2*Sqrt[2]*Nc^2*(2 + Nc)*(6 - 7*Nc + Nc^3)*
       TR^3) + Superscript[o, {G1, G3, G5, G2, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR])
 
Subscript[Vector2727a27 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(4*(2 + Nc)*TR^2*
       Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR])
 
Subscript[Vector2727s27 , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G4, G5, G3, G2}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) + Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - Superscript[o, {G1, G4, G3, G5, G2}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G4, G5, G3}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - Superscript[o, {G1, G2, G4, G3, G5}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G5, G4, G3}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - Superscript[o, {G1, G2, G5, G3, G4}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G3, G4, G5}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G2, G3, G5, G4}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G5, G4, G3, G2}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) + Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - Superscript[o, {G1, G5, G3, G4, G2}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) + Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Nc*Superscript[o, {G1, G3, G4, G5, G2}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - Superscript[o, {G1, G3, G2, G4, G5}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - Superscript[o, {G1, G3, G2, G5, G4}]/
      (2*(2 + Nc)*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) - (Nc*Superscript[o, {G1, G3, G5, G4, G2}])/
      (4*(2 + Nc)^2*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + 
           Nc^5)*TR)/(2 + Nc)]) + Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*TR^2*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G2, G5, G3}]*
       Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G2, G3, G5}]*
       Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G4, G5, G3}]*
       Superscript[\[CapitalDelta], {G1, G2}])/((2 + Nc)^2*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G4, G3, G5}]*
       Superscript[\[CapitalDelta], {G1, G2}])/((2 + Nc)^2*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G2, G4, G3}]*
       Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G2, G3, G4}]*
       Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G2, G4, G5}]*
       Superscript[\[CapitalDelta], {G1, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G2, G5, G4}]*
       Superscript[\[CapitalDelta], {G1, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G2, G3}]*
       Superscript[\[CapitalDelta], {G4, G5}])/((2 + Nc)^2*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G3, G2}]*
       Superscript[\[CapitalDelta], {G4, G5}])/((2 + Nc)^2*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G2, G5}]*
       Superscript[\[CapitalDelta], {G4, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G5, G2}]*
       Superscript[\[CapitalDelta], {G4, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G5, G3}]*
       Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G3, G5}]*
       Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G4, G3}]*
       Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) + (Superscript[o, {G1, G3, G4}]*
       Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G4, G5}]*
       Superscript[\[CapitalDelta], {G2, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G5, G4}]*
       Superscript[\[CapitalDelta], {G2, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G4, G2}]*
       Superscript[\[CapitalDelta], {G5, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/
         (2 + Nc)]) - (Superscript[o, {G1, G2, G4}]*
       Superscript[\[CapitalDelta], {G5, G3}])/(2*(2 + Nc)*TR*
       Sqrt[(Nc*(24 + 2*Nc - 29*Nc^2 - 3*Nc^3 + 5*Nc^4 + Nc^5)*TR)/(2 + Nc)])
 
Subscript[Vector2788a , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G4, G5, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G4, G5, G3}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G5, G4, G3}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G4, G5}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G5, G4}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G4, G5, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G5, G4, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 + 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 + 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR])
 
Subscript[Vector2788s , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(1 + Nc)*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(1 + Nc)*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR])
 
Subscript[Vector8a00 , {G1_, G2_, G3_, G4_, G5_}] :=  (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*
       TR^3) + Superscript[o, {G1, G4, G3, G5, G2}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G4, G5, G3}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G5, G4, G3}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G4, G5}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G5, G4}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G4, G5, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G5, G4, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 - 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 - 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR])
 
Subscript[Vector8a1010 , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector8a10bar10bar , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*Nc*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector8a11 , {G1_, G2_, G3_, G4_, G5_}] :=  (Nc*Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2)) - 
     (Nc*Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2))
 
Subscript[Vector8a2727 , {G1_, G2_, G3_, G4_, G5_}] :=  (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, 
        {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*
       TR^3) - Superscript[o, {G1, G4, G3, G5, G2}]/
      (2*Sqrt[2]*TR^2*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G4, G5, G3}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G5, G4, G3}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G4, G5}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G2, G3, G5, G4}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G4, G5, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]*Superscript[o, {G1, G3, G5, G4, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 + 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(2 + 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR])
 
Subscript[Vector8a8a8a , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) - Superscript[o, {G1, G2, G5, G4, G3}]/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) + Superscript[o, {G1, G2, G3, G5, G4}]/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) + Superscript[o, {G1, G3, G4, G5, G2}]/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-1 + Nc^2)*TR^3]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc^3*(-1 + Nc^2)*TR^3])
 
Subscript[Vector8a8a8s , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3])
 
Subscript[Vector8a8s8a , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3])
 
Subscript[Vector8a8s8s , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     (Sqrt[2]*Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     (Sqrt[2]*Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc])
 
Subscript[Vector8s00 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(-2 + Nc)*TR^2*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-2 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(-2 + Nc)*(-1 + Nc)*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*
         TR]) + (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Sqrt[2]*(-2 + Nc)*(-1 + Nc)*TR*
       Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[(-2 + Nc)*Nc*(-6 - 7*Nc + Nc^3)*TR])
 
Subscript[Vector8s1010 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector8s10bar10bar , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*Nc*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*Nc*TR^2*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector8s11 , {G1_, G2_, G3_, G4_, G5_}] :=  (Nc*Sqrt[((-4 + Nc^2)*TR)/Nc]*Superscript[o, {G1, G2, G3}]*
       Superscript[\[CapitalDelta], {G4, G5}])/(Sqrt[2]*(4 - 5*Nc^2 + Nc^4)*
       TR^2) + (Nc*Sqrt[((-4 + Nc^2)*TR)/Nc]*Superscript[o, {G1, G3, G2}]*
       Superscript[\[CapitalDelta], {G4, G5}])/(Sqrt[2]*(4 - 5*Nc^2 + Nc^4)*
       TR^2)
 
Subscript[Vector8s2727 , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Sqrt[2]*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*(2 + Nc)*TR^2*
       Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     (Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) - 
     (Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(1 + Nc)*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Sqrt[2]*(1 + Nc)*(2 + Nc)*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G4, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G5, G3}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(2 + Nc)*(6 - 7*Nc + Nc^3)*TR])
 
Subscript[Vector8s8a8a , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR^3])
 
Subscript[Vector8s8a8s , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc])
 
Subscript[Vector8s8s8a , {G1_, G2_, G3_, G4_, G5_}] :=  -Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     (Sqrt[2]*Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     (Sqrt[2]*Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc])
 
Subscript[Vector8s8s8s , {G1_, G2_, G3_, G4_, G5_}] :=  Superscript[o, {G1, G4, G5, G3, G2}]/
      (2*Sqrt[2]*TR*Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G2, G3, G4, G5}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) - 
     (Sqrt[2]*Superscript[o, {G4, G5, G3}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) - 
     (Sqrt[2]*Superscript[o, {G4, G3, G5}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) - 
     (Sqrt[2]*Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Nc*Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3]) - 
     (Sqrt[2]*Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], 
        {G4, G5}])/(Nc*Sqrt[((-4 + Nc^2)^3*(-1 + Nc^2)*TR^3)/Nc^3])


(* Private note: 
Normalized basis for non-charge conjugation invariant 5 gluon vectors. 

05 03 14 MS: Created using basisVectors5gluonsJohanT.nb 

12 03 14 MS: Manually reordered basis vectors 

21 01 15 JT: Changed signs of vectors: 
102727, 271010, 10bar00, 010bar10bar and 10bar10bara10bar, 
due to redefinition of charge conjugation properties. When possible, conjugating 
a vertex now gives the vertex with conjugated representations.
Sign change under conjugation tested.

*)
