(* ::Package:: *)

(* ::Title:: *)
(*This file contains the charge conjugation invariant vectors for 5 gluons*)


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


CMCNMBq0g5 = {Vector8a11, Vector188a, 
     Vector8s8s8a, Vector8s8a8s, 
     Vector8a8s8s, Vector8a8a8a, 
     Vector2788a, Vector1088sand10bar88s, 
     Vector1088aand10bar88a, Vector088a, 
     Vector8a2727, Vector2727a27, 
     Vector102727and10bar2727, 
     Vector8s1010and8s10bar10bar, 
     Vector8a1010and8a10bar10bar, 
     Vector271010and2710bar10bar, 
     Vector1010f10and10bar10barf10bar, 
     Vector1010fd10and10bar10barfd10bar, 
     Vector01010and010bar10bar, Vector8a00, 
     Vector1000and10bar00, Vector00a0};
Basis5g=CMCNMBq0g5;


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


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[Vector188a, {G1_, G2_, G3_, G4_, G5_}] := 
    -((Nc*Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], 
         {G1, G2}])/(Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2))) + 
     (Nc*Superscript[o, {G3, G5, G4}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(-1 + Nc^2)*(Nc*TR)^(3/2))
 
Subscript[Vector8s8s8a, {G1_, G2_, G3_, G4_, G5_}] := 
    -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, 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, 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]) - 
     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, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) + 
     (Sqrt[2]*Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc]) - 
     (Sqrt[2]*Superscript[o, {G3, G5, G4}]*Superscript[\[CapitalDelta], 
        {G1, G2}])/(Nc*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc])
 
Subscript[Vector8s8a8s, {G1_, G2_, G3_, G4_, G5_}] := 
    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, 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, 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]) - 
     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, G5, G4, G3, G2}]/(2*Sqrt[2]*TR*
       Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR^3)/Nc])
 
Subscript[Vector8a8s8s, {G1_, G2_, G3_, G4_, G5_}] := 
    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, 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, 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]) - 
     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, G5, G4, G3, 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[Vector8a8a8a, {G1_, G2_, G3_, G4_, G5_}] := 
    -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, 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, 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]) - 
     Superscript[o, {G1, G4, G5, G3, G2}]/(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])
 
Subscript[Vector2788a, {G1_, G2_, G3_, G4_, G5_}] := 
    (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, 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) - 
     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, 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, 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) + 
     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) - 
     (Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 + 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G3, G5, G4}]*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[Vector1088sand10bar88s, {G1_, G2_, G3_, G4_, G5_}] := 
    Superscript[o, {G1, G3, G2, G4, G5}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G1, G3, G2}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector1088aand10bar88a, {G1_, G2_, G3_, G4_, G5_}] := 
    Superscript[o, {G1, G2, G3, G4, G5}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector088a, {G1_, G2_, G3_, G4_, G5_}] := 
    (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, 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) + 
     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, 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, 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) - 
     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) - 
     (Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Sqrt[2]*(2 - 3*Nc + Nc^2)*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G3, G5, G4}]*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[Vector8a2727, {G1_, G2_, G3_, G4_, G5_}] := 
    -(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, 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, G4, G5, 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, 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, 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, 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, G4, G5, 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, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(-6 + Nc + 4*Nc^2 + Nc^3)*TR^3) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 + 2*Nc + Nc^2)*TR]) + 
     (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])
 
Subscript[Vector2727a27, {G1_, G2_, G3_, G4_, G5_}] := 
    -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, 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, 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, G2, G4}]/
      (4*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, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc^2*(-3 - Nc + 3*Nc^2 + Nc^3)*TR]) - 
     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, G3, G2, 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, G5, G2, G3, G4}]/
      (4*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, G3, G2, G4}]/
      (4*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, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*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, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (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, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (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, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (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])
 
Subscript[Vector102727and10bar2727, {G1_, G2_, G3_, G4_, G5_}] := 
    -(Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*Superscript[o, 
         {G1, G2, G3, G4, G5}])/(4*Nc^2*(1 + 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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(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*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      (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}])/
      (Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR])
 
Subscript[Vector8s1010and8s10bar10bar, {G1_, G2_, G3_, G4_, 
      G5_}] := -Superscript[o, {G1, G2, G4, G3, G5}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/
      (2*TR^2*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) - 
     (Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc]) + 
     (Superscript[o, {G3, G5, G4}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Nc*TR*Sqrt[((-4 + Nc^2)^2*(-1 + Nc^2)*TR)/Nc])
 
Subscript[Vector8a1010and8a10bar10bar, {G1_, G2_, G3_, G4_, 
      G5_}] := Superscript[o, {G1, G2, G3, G4, G5}]/
      (2*Nc*TR^2*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G3, G5, G4}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G2, G4, G5, G3}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G2, G5, G4, G3}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G5, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G5, G4, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G5, G3, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G3, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector271010and2710bar10bar, {G1_, G2_, G3_, G4_, 
      G5_}] := (Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]*
       Superscript[o, {G1, G2, G3, G4, G5}])/(4*Nc^2*(1 + 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}])/(4*Nc^2*(1 + Nc)*
       (6 - 7*Nc + Nc^3)*TR^3) - Superscript[o, {G1, G2, G4, G3, G5}]/
      (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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*(2 + Nc)*TR^2*
       Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(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}])/(4*Nc^2*(1 + Nc)*(6 - 7*Nc + Nc^3)*TR^3) - 
     (Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G3, G5, G4}]*Superscript[\[CapitalDelta], {G1, G2}])/
      (Nc*(2 + Nc)*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (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*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (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*Nc*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 - Nc - 7*Nc^2 + Nc^3 + Nc^4)*TR])
 
Subscript[Vector1010f10and10bar10barf10bar, 
     {G1_, G2_, G3_, G4_, G5_}] := 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, 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, 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, G4, G5, G3, G2}]/(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, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc*(4 - 5*Nc^2 + Nc^4)*TR])
 
Subscript[Vector1010fd10and10bar10barfd10bar, 
     {G1_, G2_, G3_, G4_, G5_}] := 
    (-3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G4, G5}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) + 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G3, G5, G4}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) + 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G4, G5, G3}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) - 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G2, G5, G4, G3}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) - Superscript[o, {G1, G3, G4, G2, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G4, G5, G2}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) + Superscript[o, {G1, G3, G5, G2, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G3, G5, G4, G2}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) - Superscript[o, {G1, G4, G2, G3, G5}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G2, G5, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     Superscript[o, {G1, G4, G3, G2, G5}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G4, G5, G3, G2}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) + Superscript[o, {G1, G5, G2, G3, G4}]/
      (2*Sqrt[2]*TR^2*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G2, G4, G3}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/(2*Sqrt[2]*TR^2*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (3*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]*
       Superscript[o, {G1, G5, G4, G3, G2}])/(2*Sqrt[2]*(-3 + Nc)*Nc*(3 + Nc)*
       (4 - 5*Nc^2 + Nc^4)*TR^3) - (Superscript[o, {G2, G4, G5}]*
       Superscript[\[CapitalDelta], {G1, G3}])/(Sqrt[2]*Nc*TR*
       Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G2, G5, G4}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G4}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (2*Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (Sqrt[2]*Nc*TR*Sqrt[((-36 + 49*Nc^2 - 14*Nc^4 + Nc^6)*TR)/Nc])
 
Subscript[Vector01010and010bar10bar, {G1_, G2_, G3_, G4_, G5_}] := 
    (Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
        {G1, G2, G3, G4, G5}])/(4*(-1 + 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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G2, G4, G3, G5}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G3, G2, G4, G5}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G2, G5, G4}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G4, G2, G3}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     (Superscript[o, {G3, G4, G5}]*Superscript[\[CapitalDelta], {G1, G2}])/
      ((-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G3, G5, G4}]*Superscript[\[CapitalDelta], {G1, G2}])/
      ((-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G5}]*Superscript[\[CapitalDelta], {G1, G3}])/
      (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*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G5}]*Superscript[\[CapitalDelta], {G2, G3}])/
      (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*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR])
 
Subscript[Vector8a00, {G1_, G2_, G3_, G4_, G5_}] := 
    -(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, 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, G4, G5, 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, 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, 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, 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, G4, G5, 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, G5, G4, G3, G2}])/
      (2*Sqrt[2]*Nc^3*(6 + Nc - 4*Nc^2 + Nc^3)*TR^3) + 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) - 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Sqrt[2]*TR*Sqrt[Nc^3*(-3 - 2*Nc + Nc^2)*TR]) + 
     (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])
 
Subscript[Vector1000and10bar00, {G1_, G2_, G3_, G4_, G5_}] := 
    -(Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]*Superscript[o, 
         {G1, G2, G3, G4, G5}])/(4*(-1 + 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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G4, G3, G5}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G2, G5, G3, G4}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G3, G2, G4, G5}]/(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*(-2 + Nc)*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G3, G4, G2, G5}]/
      (4*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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     Superscript[o, {G1, G3, G5, G2, G4}]/
      (4*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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G2, G5, G3}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G4, G3, G2, G5}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G3, G5, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G4, G5, G2, G3}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) - 
     Superscript[o, {G1, G5, G2, G3, G4}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G2, G4, G3}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     Superscript[o, {G1, G5, G3, G2, G4}]/
      (4*TR^2*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G3, G4, G2}]/(2*Nc*TR^2*
       Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     Superscript[o, {G1, G5, G4, G2, G3}]/(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}])/(4*(-1 + Nc)*Nc^2*(-6 - 7*Nc + Nc^3)*TR^3) + 
     (Superscript[o, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G5, G3}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G2, G3, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G2, G4, G3}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G3}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G3, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G3}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (4*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G5}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G5, G2}]*Superscript[\[CapitalDelta], {G3, G4}])/
      (2*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) - 
     (Superscript[o, {G1, G2, G4}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G4, G2}]*Superscript[\[CapitalDelta], {G3, G5}])/
      (2*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR]) + 
     (Superscript[o, {G1, G2, G3}]*Superscript[\[CapitalDelta], {G4, G5}])/
      ((-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}])/
      ((-2 + Nc)*Nc*TR*Sqrt[Nc*(6 + Nc - 7*Nc^2 - Nc^3 + Nc^4)*TR])
 
Subscript[Vector00a0, {G1_, G2_, G3_, G4_, G5_}] := 
    -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, 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, 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, G2, G4}]/
      (4*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, G4, G2, G3, G5}]/
      (4*TR^2*Sqrt[Nc^2*(3 - Nc - 3*Nc^2 + Nc^3)*TR]) + 
     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, G3, G2, 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, G5, G2, G3, G4}]/
      (4*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, G3, G2, G4}]/
      (4*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, {G2, G3, G5}]*Superscript[\[CapitalDelta], {G1, G4}])/
      (4*TR*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, G4}]*Superscript[\[CapitalDelta], {G1, G5}])/
      (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, {G1, G3, G5}]*Superscript[\[CapitalDelta], {G2, G4}])/
      (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, G4}]*Superscript[\[CapitalDelta], {G2, G5}])/
      (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])


(* ::Text:: *)
(*(Private note: Created 060215 using CheckingSignsByConjugation.nb and manually removing non-wanted definitions, the notebook also contains checks for consistency with old basis (up to an overall sign) and that it behaves correctly under conjugation (gets a minus sign).)*)
