
(* description = "pp -> Vtt+jets|pp -> Vtt+jets|pp -> Wttj|On-shell W+/W- plus t t-bar plus jet production at NLO EW (including all subleading one-loop orders)." *)


(* O(as^3 a) + O(as^3 a^2) *)

(* uttxdxwg *) AddProcess[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],-V[3], V[5]}, UnitaryGauge -> False, SelectInterference -> {gQCD -> 6}, SelectCoupling -> (Exponent[#1, eQED] == 3 - 2 * #2 || Exponent[#1, eQED] == 1 + 2 * #2 &)];
(* uxttxdwxg *) AddProcess[FeynArtsProcess -> {F[4,{1}], -F[3,{1}], V[5]}  -> {F[3,{3}],-F[3,{3}],V[3]}, UnitaryGauge -> False, SelectInterference -> {gQCD -> 6}, SelectCoupling -> (Exponent[#1, eQED] == 3 - 2 * #2 || Exponent[#1, eQED] == 1 + 2 * #2 &)];

(* uttxdxwag *) AddReal[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],-V[3], V[1], V[5]}, SelectInterference -> {gQCD -> 6}];
(* uxttxdwxag *) AddReal[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],V[3], V[1], V[5]}, SelectInterference -> {gQCD -> 6}];

(* uttxdxwgg *) AddReal[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],-V[3], V[5], V[5]}, SelectInterference -> {gQCD -> 6}, SelectCoupling -> (Exponent[#1, eQED] == 1 || Exponent[#1, eQED] == 3 &)];
(* uxttxdwxgg *) AddReal[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],V[3], V[5], V[5]}, SelectInterference -> {gQCD -> 6}, SelectCoupling -> (Exponent[#1, eQED] == 1 || Exponent[#1, eQED] == 3 &)];


(* O(as^2*a^2) *)

(* uttxdxwg *) AddTree[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]} -> {F[3,{3}],-F[3,{3}],-V[3], V[5]}, SelectInterference -> {gQCD -> 4}, SelectCoupling -> (Exponent[#1, gQCD] == 3 - 2 * #2 || Exponent[#1, gQCD] == 1 + 2 * #2 &),  UnitaryGauge -> False];
(* uxttxdwxg *) AddTree[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[3], V[5]}, SelectInterference -> {gQCD -> 4}, SelectCoupling -> (Exponent[#1, gQCD] == 3 - 2 * #2 || Exponent[#1, gQCD] == 1 + 2 * #2 &),  UnitaryGauge -> False];



(* O(as a^3) + O(as^2 a^3) *)

(* uttxdxwg *) AddProcess[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],-V[3],V[5]}, UnitaryGauge -> False, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 3 - 2 * #2 || Exponent[#1, gQCD] == 1 + 2 * #2 &)];
(* uxttxdwxg *) AddProcess[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]}  -> {F[3,{3}],-F[3,{3}],V[3],V[5]}, UnitaryGauge -> False, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 3 - 2 * #2 || Exponent[#1, gQCD] == 1 + 2 * #2 &)];

(* uttxdxwag *) AddReal[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]} -> {F[3,{3}],-F[3,{3}],-V[3],V[1],V[5]}, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 1 || Exponent[#1, gQCD] == 3 &)];
(* uxttxdwxag *) AddReal[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[3],V[1],V[5]}, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 1 || Exponent[#1, gQCD] == 3 &)];

(* uttxdxgg *) AddReal[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]} -> {F[3,{3}],-F[3,{3}],-V[3],V[5],V[5]}, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 2 &)];
(* uxttxdwxgg *) AddReal[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[3],V[5],V[5]}, SelectInterference -> {eQED -> 6}, SelectCoupling -> (Exponent[#1, gQCD] == 2 &)];


(* O(as a^3) + O(as a^4) *)

(* uttxdxwg *) AddProcess[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]} -> {F[3,{3}],-F[3,{3}],-V[3],V[5]}, SelectInterference -> {gQCD -> 2}, SelectCoupling -> (Exponent[#1, eQED] == 3 + 2 * #2 &),  UnitaryGauge -> False];
(* uxttxdwxg *) AddProcess[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[3],V[5]}, SelectInterference -> {gQCD -> 2}, SelectCoupling -> (Exponent[#1, eQED] == 3 + 2 * #2 &),  UnitaryGauge -> False];

(* uttxdxwag *) AddReal[FeynArtsProcess -> {-F[4,{1}], F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[1],-V[3],V[5]}, SelectInterference -> {gQCD -> 2}];
(* uttxdxwag *) AddReal[FeynArtsProcess -> {F[4,{1}], -F[3,{1}]} -> {F[3,{3}],-F[3,{3}],V[1],V[3],V[5]}, SelectInterference -> {gQCD -> 2}];









