(* ::Package:: *)

(*
Tct[i,j,k]=\[ImaginaryI]*f^abc\!\(
\*SubsuperscriptBox[\(T\), \(i\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(j\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(k\), \(c\)]\) with i!=j!=k
Tct[i,j]=\!\(
\*SubsuperscriptBox[\(T\), \(i\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(j\), \(a\)]\)
Tct[i,j,i,j]=(\!\(
\*SubsuperscriptBox[\(T\), \(i\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(j\), \(a\)]\))(\!\(
\*SubsuperscriptBox[\(T\), \(i\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(j\), \(b\)]\)) with i!=j
Tct[i,i,j,j]=(\!\(
\*SubsuperscriptBox[\(T\), \(i\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(i\), \(a\)]\))(\!\(
\*SubsuperscriptBox[\(T\), \(j\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(j\), \(b\)]\)) with i!=j
Tct[1, 1, 3, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(1\), \(b\)]\)}Subsuperscript[T, 3, a]Subsuperscript[T, 4, b]
Tct[2, 2, 3, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(2\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(2\), \(b\)]\)}Subsuperscript[T, 3, a]Subsuperscript[T, 4, b]
Tct[1, 3, 3, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(3\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(3\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 4, b]
Tct[2, 3, 3, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(3\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(3\), \(b\)]\)}Subsuperscript[T, 2, a]Subsuperscript[T, 4, b]
Tct[1, 3, 4, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(4\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(4\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 3, b]
Tct[2, 3, 4, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(4\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(4\), \(b\)]\)}Subsuperscript[T, 2, a]Subsuperscript[T, 3, b]
Tct[1, 1, 2, 3]={\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(1\), \(b\)]\)}Subsuperscript[T, 2, a]Subsuperscript[T, 3, b]
Tct[1, 1, 2, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(1\), \(b\)]\)}Subsuperscript[T, 2, a]Subsuperscript[T, 4, b]
Tct[1, 2, 2, 3]={\!\(
\*SubsuperscriptBox[\(T\), \(2\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(2\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 3, b]
Tct[1, 2, 2, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(2\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(2\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 4, b]
Tct[1, 2, 3, 3]={\!\(
\*SubsuperscriptBox[\(T\), \(3\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(3\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 2, b]
Tct[1, 2, 4, 4]={\!\(
\*SubsuperscriptBox[\(T\), \(4\), \(a\)], 
\*SubsuperscriptBox[\(T\), \(4\), \(b\)]\)}Subsuperscript[T, 1, a]Subsuperscript[T, 2, b]
Tct[1, 2, 3, 4]=(\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(2\), \(a\)]\))(\!\(
\*SubsuperscriptBox[\(T\), \(3\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(4\), \(b\)]\))
Tct[1, 3, 2, 4]=(\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(3\), \(a\)]\))(\!\(
\*SubsuperscriptBox[\(T\), \(2\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(4\), \(b\)]\))
Tct[1, 4, 2, 3]=(\!\(
\*SubsuperscriptBox[\(T\), \(1\), \(a\)] . 
\*SubsuperscriptBox[\(T\), \(4\), \(a\)]\))(\!\(
\*SubsuperscriptBox[\(T\), \(2\), \(b\)] . 
\*SubsuperscriptBox[\(T\), \(3\), \(b\)]\))
*)


(* Created with the Wolfram Language : www.wolfram.com *)
{{Tct[1, 3, 4] -> {{0, (-1 + Nc^2)/8}, {(1 - Nc^2)/8, 0}}, 
  Tct[2, 3, 4] -> {{0, (1 - Nc^2)/8}, {(-1 + Nc^2)/8, 0}}, 
  Tct[1, 2, 3] -> {{0, (-1 + Nc^2)/8}, {(1 - Nc^2)/8, 0}}, 
  Tct[1, 2, 4] -> {{0, (1 - Nc^2)/8}, {(-1 + Nc^2)/8, 0}}, 
  Tct[1, 1, 3, 4] -> {{-1/2*(-1 + Nc^2)/Nc, -1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2, (3 - 4*Nc^2 + Nc^4)/(8*Nc^3)}}, 
  Tct[2, 2, 3, 4] -> {{-1/2*(-1 + Nc^2)/Nc, -1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2, (3 - 4*Nc^2 + Nc^4)/(8*Nc^3)}}, 
  Tct[1, 3, 3, 4] -> {{0, -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2, -1/4*(-1 + Nc^2)/Nc^3}}, 
  Tct[2, 3, 3, 4] -> {{0, (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^3}}, 
  Tct[1, 3, 4, 4] -> {{0, (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^3}}, 
  Tct[2, 3, 4, 4] -> {{0, -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2, -1/4*(-1 + Nc^2)/Nc^3}}, 
  Tct[1, 1, 2, 3] -> {{0, -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2, -1/4*(-1 + Nc^2)/Nc^3}}, 
  Tct[1, 1, 2, 4] -> {{0, (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^3}}, 
  Tct[1, 2, 2, 3] -> {{0, (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^3}}, 
  Tct[1, 2, 2, 4] -> {{0, -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2, -1/4*(-1 + Nc^2)/Nc^3}}, 
  Tct[1, 2, 3, 3] -> {{-1/2*(-1 + Nc^2)/Nc, -1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2, (3 - 4*Nc^2 + Nc^4)/(8*Nc^3)}}, 
  Tct[1, 2, 4, 4] -> {{-1/2*(-1 + Nc^2)/Nc, -1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2}, 
    {-1/8*(4 - 5*Nc^2 + Nc^4)/Nc^2, (3 - 4*Nc^2 + Nc^4)/(8*Nc^3)}}, 
  Tct[1, 2, 1, 2] -> {{(-1 + Nc^2)^2/(4*Nc), 0}, {0, (-1 + Nc^2)/(16*Nc^3)}}, 
  Tct[1, 3, 1, 3] -> {{(-1 + Nc^2)/(4*Nc), (-1 + Nc^(-2))/4}, 
    {(-1 + Nc^(-2))/4, (-3 + 2*Nc^2 + Nc^4)/(16*Nc^3)}}, 
  Tct[3, 4, 3, 4] -> {{(-1 + Nc^2)^2/(4*Nc), 0}, {0, (-1 + Nc^2)/(16*Nc^3)}}, 
  Tct[1, 4, 1, 4] -> {{(-1 + Nc^2)/(4*Nc), (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), (-3 + 6*Nc^2 - 4*Nc^4 + Nc^6)/(16*Nc^3)}}, 
  Tct[2, 3, 2, 3] -> {{(-1 + Nc^2)/(4*Nc), (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), (-3 + 6*Nc^2 - 4*Nc^4 + Nc^6)/(16*Nc^3)}}, 
  Tct[2, 4, 2, 4] -> {{(-1 + Nc^2)/(4*Nc), (-1 + Nc^(-2))/4}, 
    {(-1 + Nc^(-2))/4, (-3 + 2*Nc^2 + Nc^4)/(16*Nc^3)}}, 
  Tct[1, 2] -> {{1/2 - Nc^2/2, 0}, {0, (1 - Nc^(-2))/8}}, 
  Tct[1, 3] -> {{0, (-1 + Nc^2)/(4*Nc)}, {(-1 + Nc^2)/(4*Nc), 
     (-1 + Nc^(-2))/4}}, Tct[3, 4] -> {{1/2 - Nc^2/2, 0}, 
    {0, (1 - Nc^(-2))/8}}, Tct[1, 4] -> {{0, -1/4*(-1 + Nc^2)/Nc}, 
    {-1/4*(-1 + Nc^2)/Nc, -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}}, 
  Tct[2, 3] -> {{0, -1/4*(-1 + Nc^2)/Nc}, {-1/4*(-1 + Nc^2)/Nc, 
     -1/8*(2 - 3*Nc^2 + Nc^4)/Nc^2}}, 
  Tct[2, 4] -> {{0, (-1 + Nc^2)/(4*Nc)}, {(-1 + Nc^2)/(4*Nc), 
     (-1 + Nc^(-2))/4}}, Tct[1, 1] -> {{(-1 + Nc^2)/2, 0}, 
    {0, (-1 + Nc^2)^2/(8*Nc^2)}}, Tct[2, 2] -> {{(-1 + Nc^2)/2, 0}, 
    {0, (-1 + Nc^2)^2/(8*Nc^2)}}, Tct[3, 3] -> {{(-1 + Nc^2)/2, 0}, 
    {0, (-1 + Nc^2)^2/(8*Nc^2)}}, Tct[4, 4] -> {{(-1 + Nc^2)/2, 0}, 
    {0, (-1 + Nc^2)^2/(8*Nc^2)}}, Tct[1, 1, 2, 2] -> 
   {{(-1 + Nc^2)^2/(4*Nc), 0}, {0, (-1 + Nc^2)^3/(16*Nc^3)}}, 
  Tct[1, 1, 3, 3] -> {{(-1 + Nc^2)^2/(4*Nc), 0}, 
    {0, (-1 + Nc^2)^3/(16*Nc^3)}}, Tct[3, 3, 4, 4] -> 
   {{(-1 + Nc^2)^2/(4*Nc), 0}, {0, (-1 + Nc^2)^3/(16*Nc^3)}}, 
  Tct[1, 2, 3, 4] -> {{(-1 + Nc^2)^2/(4*Nc), 0}, {0, (-1 + Nc^2)/(16*Nc^3)}}, 
  Tct[1, 3, 2, 4] -> {{(-1 + Nc^2)/(4*Nc), (-1 + Nc^(-2))/4}, 
    {(-1 + Nc^(-2))/4, (-3 + 2*Nc^2 + Nc^4)/(16*Nc^3)}}, 
  Tct[1, 4, 2, 3] -> {{(-1 + Nc^2)/(4*Nc), (2 - 3*Nc^2 + Nc^4)/(8*Nc^2)}, 
    {(2 - 3*Nc^2 + Nc^4)/(8*Nc^2), (-3 + 6*Nc^2 - 4*Nc^4 + Nc^6)/(16*Nc^3)}}, 
  IdMat -> {{Nc, 0}, {0, (-1 + Nc^2)/(4*Nc)}}}, 
 {Tct[1, 3, 4] -> {{0, -1/4*Nc^2, 0}, {Nc^2/4, 0, 0}, {0, 0, 0}}, 
  Tct[2, 3, 4] -> {{0, Nc^2/4, 0}, {-1/4*Nc^2, 0, 0}, {0, 0, 0}}, 
  Tct[1, 2, 3] -> {{0, -1/4*Nc^2, 0}, {Nc^2/4, 0, 0}, {0, 0, 0}}, 
  Tct[1, 2, 4] -> {{0, Nc^2/4, 0}, {-1/4*Nc^2, 0, 0}, {0, 0, 0}}, 
  Tct[1, 1, 3, 4] -> {{-Nc, 0, (4 - Nc^2)/4}, {0, -1/4*Nc, 0}, 
    {(4 - Nc^2)/4, 0, (-4 + Nc^2)/(4*Nc)}}, Tct[2, 2, 3, 4] -> 
   {{-Nc, 0, (4 - Nc^2)/4}, {0, -1/4*Nc, 0}, {(4 - Nc^2)/4, 0, 
     (-4 + Nc^2)/(4*Nc)}}, Tct[1, 3, 3, 4] -> {{0, (-2 + Nc^2)/4, 0}, 
    {(-2 + Nc^2)/4, -1/8*Nc, -1/8*(-4 + Nc^2)/Nc}, 
    {0, -1/8*(-4 + Nc^2)/Nc, -1/8*(-4 + Nc^2)/Nc}}, 
  Tct[2, 3, 3, 4] -> {{0, (2 - Nc^2)/4, 0}, {(2 - Nc^2)/4, -1/8*Nc, 
     (-4 + Nc^2)/(8*Nc)}, {0, (-4 + Nc^2)/(8*Nc), -1/8*(-4 + Nc^2)/Nc}}, 
  Tct[1, 3, 4, 4] -> {{0, (2 - Nc^2)/4, 0}, {(2 - Nc^2)/4, -1/8*Nc, 
     (-4 + Nc^2)/(8*Nc)}, {0, (-4 + Nc^2)/(8*Nc), -1/8*(-4 + Nc^2)/Nc}}, 
  Tct[2, 3, 4, 4] -> {{0, (-2 + Nc^2)/4, 0}, {(-2 + Nc^2)/4, -1/8*Nc, 
     -1/8*(-4 + Nc^2)/Nc}, {0, -1/8*(-4 + Nc^2)/Nc, -1/8*(-4 + Nc^2)/Nc}}, 
  Tct[1, 1, 2, 3] -> {{0, (3*Nc^2)/4, 0}, {(3*Nc^2)/4, Nc^3/8, 
     (Nc*(-4 + Nc^2))/8}, {0, (Nc*(-4 + Nc^2))/8, (Nc*(-4 + Nc^2))/8}}, 
  Tct[1, 1, 2, 4] -> {{0, (-3*Nc^2)/4, 0}, {(-3*Nc^2)/4, Nc^3/8, 
     -1/8*(Nc*(-4 + Nc^2))}, {0, -1/8*(Nc*(-4 + Nc^2)), (Nc*(-4 + Nc^2))/8}}, 
  Tct[1, 2, 2, 3] -> {{0, (-3*Nc^2)/4, 0}, {(-3*Nc^2)/4, Nc^3/8, 
     -1/8*(Nc*(-4 + Nc^2))}, {0, -1/8*(Nc*(-4 + Nc^2)), (Nc*(-4 + Nc^2))/8}}, 
  Tct[1, 2, 2, 4] -> {{0, (3*Nc^2)/4, 0}, {(3*Nc^2)/4, Nc^3/8, 
     (Nc*(-4 + Nc^2))/8}, {0, (Nc*(-4 + Nc^2))/8, (Nc*(-4 + Nc^2))/8}}, 
  Tct[1, 2, 3, 3] -> {{-Nc, 0, (4 - Nc^2)/4}, {0, -1/4*Nc, 0}, 
    {(4 - Nc^2)/4, 0, (-4 + Nc^2)/(4*Nc)}}, Tct[1, 2, 4, 4] -> 
   {{-Nc, 0, (4 - Nc^2)/4}, {0, -1/4*Nc, 0}, {(4 - Nc^2)/4, 0, 
     (-4 + Nc^2)/(4*Nc)}}, Tct[1, 2, 1, 2] -> {{Nc^3, 0, 0}, {0, Nc^3/8, 0}, 
    {0, 0, (Nc*(-4 + Nc^2))/8}}, Tct[1, 3, 1, 3] -> 
   {{Nc/2, Nc^2/8, (-4 + Nc^2)/8}, {Nc^2/8, (Nc*(2 + Nc^2))/16, 
     (Nc*(-4 + Nc^2))/16}, {(-4 + Nc^2)/8, (Nc*(-4 + Nc^2))/16, 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, Tct[3, 4, 3, 4] -> 
   {{(-1 + Nc^2)^2/(4*Nc), 0, 0}, {0, 1/(8*Nc), 0}, 
    {0, 0, (-4 + Nc^2)/(8*Nc^3)}}, Tct[1, 4, 1, 4] -> 
   {{Nc/2, -1/8*Nc^2, (-4 + Nc^2)/8}, {-1/8*Nc^2, (Nc*(2 + Nc^2))/16, 
     -1/16*(Nc*(-4 + Nc^2))}, {(-4 + Nc^2)/8, -1/16*(Nc*(-4 + Nc^2)), 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, Tct[2, 3, 2, 3] -> 
   {{Nc/2, -1/8*Nc^2, (-4 + Nc^2)/8}, {-1/8*Nc^2, (Nc*(2 + Nc^2))/16, 
     -1/16*(Nc*(-4 + Nc^2))}, {(-4 + Nc^2)/8, -1/16*(Nc*(-4 + Nc^2)), 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, Tct[2, 4, 2, 4] -> 
   {{Nc/2, Nc^2/8, (-4 + Nc^2)/8}, {Nc^2/8, (Nc*(2 + Nc^2))/16, 
     (Nc*(-4 + Nc^2))/16}, {(-4 + Nc^2)/8, (Nc*(-4 + Nc^2))/16, 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, Tct[1, 2] -> 
   {{-Nc^2, 0, 0}, {0, -1/4*Nc^2, 0}, {0, 0, (4 - Nc^2)/4}}, 
  Tct[1, 3] -> {{0, -1/2*Nc, 0}, {-1/2*Nc, -1/8*Nc^2, (4 - Nc^2)/8}, 
    {0, (4 - Nc^2)/8, (4 - Nc^2)/8}}, 
  Tct[3, 4] -> {{1/2 - Nc^2/2, 0, 0}, {0, 1/4, 0}, 
    {0, 0, (-4 + Nc^2)/(4*Nc^2)}}, Tct[1, 4] -> 
   {{0, Nc/2, 0}, {Nc/2, -1/8*Nc^2, (-4 + Nc^2)/8}, 
    {0, (-4 + Nc^2)/8, (4 - Nc^2)/8}}, 
  Tct[2, 3] -> {{0, Nc/2, 0}, {Nc/2, -1/8*Nc^2, (-4 + Nc^2)/8}, 
    {0, (-4 + Nc^2)/8, (4 - Nc^2)/8}}, 
  Tct[2, 4] -> {{0, -1/2*Nc, 0}, {-1/2*Nc, -1/8*Nc^2, (4 - Nc^2)/8}, 
    {0, (4 - Nc^2)/8, (4 - Nc^2)/8}}, 
  Tct[1, 1] -> {{Nc^2, 0, 0}, {0, Nc^2/2, 0}, {0, 0, (-4 + Nc^2)/2}}, 
  Tct[2, 2] -> {{Nc^2, 0, 0}, {0, Nc^2/2, 0}, {0, 0, (-4 + Nc^2)/2}}, 
  Tct[3, 3] -> {{(-1 + Nc^2)/2, 0, 0}, {0, (-1 + Nc^2)/4, 0}, 
    {0, 0, (4 - 5*Nc^2 + Nc^4)/(4*Nc^2)}}, 
  Tct[4, 4] -> {{(-1 + Nc^2)/2, 0, 0}, {0, (-1 + Nc^2)/4, 0}, 
    {0, 0, (4 - 5*Nc^2 + Nc^4)/(4*Nc^2)}}, Tct[1, 1, 2, 2] -> 
   {{Nc^3, 0, 0}, {0, Nc^3/2, 0}, {0, 0, (Nc*(-4 + Nc^2))/2}}, 
  Tct[1, 1, 3, 3] -> {{(Nc*(-1 + Nc^2))/2, 0, 0}, {0, (Nc*(-1 + Nc^2))/4, 0}, 
    {0, 0, (4 - 5*Nc^2 + Nc^4)/(4*Nc)}}, Tct[3, 3, 4, 4] -> 
   {{(-1 + Nc^2)^2/(4*Nc), 0, 0}, {0, (-1 + Nc^2)^2/(8*Nc), 0}, 
    {0, 0, ((-4 + Nc^2)*(-1 + Nc^2)^2)/(8*Nc^3)}}, 
  Tct[1, 2, 3, 4] -> {{(Nc*(-1 + Nc^2))/2, 0, 0}, {0, -1/8*Nc, 0}, 
    {0, 0, -1/8*(-4 + Nc^2)/Nc}}, Tct[1, 3, 2, 4] -> 
   {{Nc/2, Nc^2/8, (-4 + Nc^2)/8}, {Nc^2/8, (Nc*(2 + Nc^2))/16, 
     (Nc*(-4 + Nc^2))/16}, {(-4 + Nc^2)/8, (Nc*(-4 + Nc^2))/16, 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, Tct[1, 4, 2, 3] -> 
   {{Nc/2, -1/8*Nc^2, (-4 + Nc^2)/8}, {-1/8*Nc^2, (Nc*(2 + Nc^2))/16, 
     -1/16*(Nc*(-4 + Nc^2))}, {(-4 + Nc^2)/8, -1/16*(Nc*(-4 + Nc^2)), 
     (8 - 6*Nc^2 + Nc^4)/(16*Nc)}}, 
  IdMat -> {{Nc, 0, 0}, {0, Nc/2, 0}, {0, 0, (-4 + Nc^2)/(2*Nc)}}}}
