

SelectInterference = {eQED -> 10};

(*
SelectCoupling = (Exponent[#1, gQCD] == 2+2*#2);
*)


OTFColourCorrelations = False;
ColourCorrelations = False;


SetParameters = JoinOptions[{ME -> 0, MM -> 0}];

SelectInterference = {eQED -> 10};



AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];

AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tt"];




AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[F[3,{3}], {1,3,5}][##] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];

AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (HasResonance[-F[3,{3}], {1,3,5}][##] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_tw"];




(* tW *)

AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && HasResonance[-F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];

AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && HasResonance[F[3,{3}], {2,4,6}][##] &), Approximation -> "pole_tbw"];




(* nores *)

AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];
AddProcess[FeynArtsProcess -> {-F[1, {1}], F[1, {2}]} -> {-F[2, {1}], F[2, {2}], F[4, {3}], -F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[F[3,{3}], {1,3,5}][##]] && Not[HasResonance[-F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];

AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], V[5], V[5], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[4,{1}], -F[4,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];
AddProcess[FeynArtsProcess -> {F[1, {1}], -F[1, {2}]} -> {F[2, {1}], -F[2, {2}], -F[4, {3}], F[4, {3}], F[3,{1}], -F[3,{1}], S[1]}, SelectTreeDiagrams -> (Not[HasResonance[-F[3,{3}], {1,3,5}][##]] && Not[HasResonance[F[3,{3}], {2,4,6}][##]] &), Approximation -> "pole_no"];


(*
ChannelMap = {
  "nexnmemxbbxhgg" -> "nenmxexmbbxhgg[2,1,4,3,5,6,7,8,9]",
  "nexnmemxddxbbxh" -> "nenmxexmddxbbxh[2,1,4,3,5,6,7,8,9]",
  "nexnmemxuuxbbxh" -> "nenmxexmuuxbbxh[2,1,4,3,5,6,7,8,9]"
};

*)
