VLQ: VLQ.nb

File VLQ.nb, 904.8 KB (added by buchkremer, 6 years ago)

Mathematica notebook used to load VLQ.fr​

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[    926374,      24656]
14NotebookOptionsPosition[    884166,      23601]
15NotebookOutlinePosition[    884550,      23618]
16CellTagsIndexPosition[    884507,      23615]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["Loading the Model", "Section",
24 CellChangeTimes->{
25  3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
26   3.5747635829149995`*^9, 3.57476358536814*^9}},
27 FontSize->9],
28
29Cell[CellGroupData[{
30
31Cell["FeynRules", "Subsection",
32 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}, {
33  3.5745083801218367`*^9, 3.5745083815726395`*^9}, {3.5747636519029455`*^9,
34  3.574763653096014*^9}},
35 FontSize->9],
36
37Cell[CellGroupData[{
38
39Cell[BoxData[
40 RowBox[{
41  RowBox[{"(*",
42   RowBox[{"Development", " ", "version", " ", "of", " ", "FeynRules"}],
43   "*)"}], "\[IndentingNewLine]",
44  RowBox[{
45   RowBox[{"$FeynRulesPath", "=",
46    RowBox[{
47    "SetDirectory", "[",
48     "\"\<D:\\Logiciels\\Mathematica\\AddOns\\Applications\\FeynRules\>\"",
49     "]"}]}], "\[IndentingNewLine]",
50   RowBox[{"<<", "FeynRules`"}]}]}]], "Input",
51 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
52   3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
53   3.4234163227881193`*^9}, {3.511089776533998*^9, 3.511089890304998*^9}, {
54   3.570344357677924*^9, 3.5703443578229322`*^9}, {3.570344512008752*^9,
55   3.5703445121387587`*^9}, 3.5703446555509615`*^9, {3.570344736530594*^9,
56   3.570344736711604*^9}, {3.570344822226495*^9, 3.5703448224985104`*^9}, {
57   3.570344870967283*^9, 3.5703448712172976`*^9}, {3.570344942914398*^9,
58   3.57034494452749*^9}, 3.570345090188822*^9, 3.570345194557791*^9,
59   3.570345250109968*^9, {3.5703453456004305`*^9, 3.5703453706358624`*^9},
60   3.570345439946827*^9, {3.5703454920498066`*^9, 3.5703454921988153`*^9}, {
61   3.570346138690792*^9, 3.5703461395958443`*^9}, 3.5703463179550457`*^9,
62   3.5704279554332037`*^9, 3.5704315647245255`*^9, 3.570431832892078*^9,
63   3.570432419915621*^9, 3.5704339108589463`*^9, 3.5704393993113914`*^9, {
64   3.570441431289675*^9, 3.5704414314956865`*^9}, 3.5704588277894716`*^9,
65   3.5705147301564636`*^9, 3.5705157733421307`*^9, 3.5705194500223126`*^9,
66   3.5705210964258795`*^9, 3.5705224186222773`*^9, 3.570637608174341*^9, {
67   3.5718105955684996`*^9, 3.5718105958850393`*^9}, {3.5719846095556064`*^9,
68   3.5719846097111263`*^9}, {3.572196586126171*^9, 3.572196589630116*^9}, {
69   3.572198016392996*^9, 3.572198020120469*^9}, {3.5721988385443954`*^9,
70   3.572198838699915*^9}, {3.5730668032312374`*^9, 3.573066839596855*^9}, {
71   3.57431159696554*^9, 3.574311618353177*^9}, {3.574311650212433*^9,
72   3.5743116507116337`*^9}, {3.574311696185714*^9, 3.574311836982362*^9}, {
73   3.574311868541217*^9, 3.574311869570819*^9}, {3.574763410843158*^9,
74   3.5747634367356386`*^9}, 3.575089230788249*^9, 3.5750920968561935`*^9, {
75   3.5751899699742503`*^9, 3.5751899744723215`*^9}, {3.5810870147563124`*^9,
76   3.581087021565177*^9}},
77 EmphasizeSyntaxErrors->True,
78 FontSize->7],
79
80Cell[BoxData[
81 FormBox["\<\"D:\\\\Logiciels\\\\Mathematica\\\\AddOns\\\\Applications\\\\\
82FeynRules\"\>", TraditionalForm]], "Output",
83 CellChangeTimes->{
84  3.5730666912455173`*^9, {3.573066734017948*^9, 3.573066757883479*^9},
85   3.573066843316828*^9, {3.5743116119259663`*^9, 3.5743116225183845`*^9},
86   3.574311656452444*^9, {3.574311702924926*^9, 3.5743118723320236`*^9},
87   3.5743119211977096`*^9, 3.574506187694845*^9, 3.574506359525549*^9,
88   3.57450671996922*^9, 3.57450680096904*^9, 3.5745069969483643`*^9,
89   3.5745070275088177`*^9, 3.5745071110937653`*^9, 3.574507150858235*^9,
90   3.5745081530312376`*^9, 3.574763442671978*^9, 3.5747648311793966`*^9,
91   3.575086126206517*^9, 3.5750862345922804`*^9, 3.5750863815544424`*^9,
92   3.575086561645811*^9, 3.5750871134913864`*^9, 3.5750872267162642`*^9,
93   3.575092102509411*^9, 3.5751812131354384`*^9, 3.5751846905558243`*^9,
94   3.5751848375214868`*^9, 3.5751892208091183`*^9, 3.5751894338566723`*^9,
95   3.575189493254715*^9, 3.5810871387325554`*^9, 3.581705744532957*^9,
96   3.581706639135057*^9},
97 FontSize->7],
98
99Cell[CellGroupData[{
100
101Cell[BoxData[
102 FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
103 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
104  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
105  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
106  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
107  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
108  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
109  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
110  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
111  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
112  3.5810871393951397`*^9, 3.581705744697478*^9, 3.5817066392970777`*^9},
113 FontSize->7],
114
115Cell[BoxData[
116 FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>",
117  TraditionalForm]], "Print",
118 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
119  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
120  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
121  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
122  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
123  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
124  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
125  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
126  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
127  3.5810871393951397`*^9, 3.581705744697478*^9, 3.5817066393045783`*^9},
128 FontSize->7],
129
130Cell[BoxData[
131 FormBox["\<\" \"\>", TraditionalForm]], "Print",
132 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
133  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
134  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
135  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
136  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
137  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
138  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
139  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
140  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
141  3.5810871393951397`*^9, 3.581705744697478*^9, 3.5817066393135796`*^9},
142 FontSize->7],
143
144Cell[BoxData[
145 FormBox["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
146(arXiv:0806.4194).\"\>", TraditionalForm]], "Print",
147 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
148  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
149  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
150  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
151  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
152  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
153  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
154  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
155  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
156  3.5810871393951397`*^9, 3.581705744697478*^9, 3.5817066393255816`*^9},
157 FontSize->7],
158
159Cell[BoxData[
160 FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
161
162 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
163  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
164  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
165  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
166  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
167  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
168  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
169  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
170  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
171  3.5810871393951397`*^9, 3.581705744697478*^9, 3.581706639330082*^9},
172 FontSize->7],
173
174Cell[BoxData[
175 FormBox["\<\" \"\>", TraditionalForm]], "Print",
176 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
177  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
178  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
179  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
180  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
181  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
182  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
183  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
184  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
185  3.5810871393951397`*^9, 3.581705744697478*^9, 3.5817066393345823`*^9},
186 FontSize->7],
187
188Cell[BoxData[
189 FormBox["\<\"The FeynRules palette can be opened using the command \
190FRPalette[].\"\>", TraditionalForm]], "Print",
191 CellChangeTimes->{3.574311872347624*^9, 3.5743119211977096`*^9,
192  3.5745061877104454`*^9, 3.574506359525549*^9, 3.57450671996922*^9,
193  3.57450680096904*^9, 3.5745069969483643`*^9, 3.5745070275088177`*^9,
194  3.574507111109365*^9, 3.574507150858235*^9, 3.5745081530312376`*^9,
195  3.5747634426929793`*^9, 3.5747648311823964`*^9, 3.575086126210518*^9,
196  3.575086234596781*^9, 3.575086381558943*^9, 3.5750865616498117`*^9,
197  3.5750871135293913`*^9, 3.575087226721265*^9, 3.5750921025134115`*^9,
198  3.5751812133514657`*^9, 3.5751846906598377`*^9, 3.575184837529988*^9,
199  3.575189220834622*^9, 3.5751894339006777`*^9, 3.5751894932607155`*^9,
200  3.5810871393951397`*^9, 3.581705744697478*^9, 3.581706639339583*^9},
201 FontSize->7]
202}, Open  ]]
203}, Open  ]]
204}, Open  ]],
205
206Cell[CellGroupData[{
207
208Cell["\<\
209VLQ.fr (with \[OpenCurlyDoubleQuote]Massless\[CloseCurlyDoubleQuote] \
210Restriction)\
211\>", "Subsection",
212 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}, {
213  3.5745083801218367`*^9, 3.5745083815726395`*^9}, {3.5747636603284273`*^9,
214  3.5747636618625154`*^9}, {3.5751899838405113`*^9, 3.575189994177824*^9}},
215 FontSize->9],
216
217Cell[CellGroupData[{
218
219Cell[BoxData[{
220 RowBox[{
221  RowBox[{"SetDirectory", "[",
222   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/VLQ\>\""}], "]"}],
223  ";"}], "\[IndentingNewLine]",
224 RowBox[{"LoadModel", "[", "\"\<VLQ.fr\>\"", "]"}], "\[IndentingNewLine]",
225 RowBox[{"LoadRestriction", "[", "\"\<Massless.rst\>\"",
226  "]"}], "\[IndentingNewLine]",
227 RowBox[{
228  RowBox[{"ModelInformation", "[", "]"}], "\[IndentingNewLine]",
229  RowBox[{"(*",
230   RowBox[{
231    RowBox[{
232     RowBox[{
233     "The", " ", "massless", " ", "restriction", " ", "ensures", " ",
234      "appropriate", " ", "definitions", " ", "for", " ", "the", " ", "PDF"}],
235      " ", "&"}], " ", "light", " ", "quarks"}],
236   "*)"}]}], "\[IndentingNewLine]",
237 RowBox[{
238  RowBox[{"(*",
239   RowBox[{
240    RowBox[{"LoadRestriction", "[", "\"\<Cabibbo.rst\>\"", "]"}],
241    "\[IndentingNewLine]",
242    RowBox[{"LoadRestriction", "[", "\"\<DiagonalCKM.rst\>\"", "]"}]}],
243   "*)"}]}]}], "Input",
244 CellChangeTimes->{{3.574506706301206*^9, 3.5745067318765955`*^9}, {
245  3.5747636000559797`*^9, 3.574763622303252*^9}, {3.575089695153716*^9,
246  3.575089721000498*^9}, {3.5751899988184133`*^9, 3.575190006169347*^9}},
247 FontSize->8],
248
249Cell[CellGroupData[{
250
251Cell[BoxData[
252 FormBox["\<\"This model implementation was created by\"\>",
253  TraditionalForm]], "Print",
254 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
255  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
256  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
257  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
258  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
259  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
260  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.58170666483082*^9},
261 FontSize->7],
262
263Cell[BoxData[
264 FormBox["\<\"M. Buchkremer\"\>", TraditionalForm]], "Print",
265 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
266  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
267  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
268  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
269  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
270  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
271  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066648358207`*^9},
272 FontSize->7],
273
274Cell[BoxData[
275 FormBox["\<\"G. Cacciapaglia\"\>", TraditionalForm]], "Print",
276 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
277  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
278  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
279  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
280  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
281  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
282  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706664841821*^9},
283 FontSize->7],
284
285Cell[BoxData[
286 FormBox["\<\"A. Deandrea\"\>", TraditionalForm]], "Print",
287 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
288  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
289  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
290  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
291  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
292  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
293  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706664848322*^9},
294 FontSize->7],
295
296Cell[BoxData[
297 FormBox["\<\"L. Panizzi\"\>", TraditionalForm]], "Print",
298 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
299  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
300  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
301  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
302  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
303  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
304  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066648538227`*^9},
305 FontSize->7],
306
307Cell[BoxData[
308 FormBox[
309  InterpretationBox[
310   RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.2.5\"\>"}],
311   SequenceForm["Model Version: ", "1.2.5"],
312   Editable->False], TraditionalForm]], "Print",
313 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
314  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
315  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
316  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
317  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
318  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
319  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066648593235`*^9},
320 FontSize->7],
321
322Cell[BoxData[
323 FormBox["\<\"For more information, type ModelInformation[].\"\>",
324  TraditionalForm]], "Print",
325 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
326  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
327  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
328  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
329  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
330  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
331  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706664870325*^9},
332 FontSize->7],
333
334Cell[BoxData[
335 FormBox["\<\"\"\>", TraditionalForm]], "Print",
336 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
337  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
338  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
339  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
340  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
341  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
342  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706664875826*^9},
343 FontSize->7],
344
345Cell[BoxData[
346 FormBox["\<\"   - Loading particle classes.\"\>", TraditionalForm]], "Print",\
347
348 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
349  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
350  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
351  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
352  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
353  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
354  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066648838267`*^9},
355 FontSize->7],
356
357Cell[BoxData[
358 FormBox["\<\"   - Loading gauge group classes.\"\>",
359  TraditionalForm]], "Print",
360 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
361  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
362  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
363  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
364  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
365  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
366  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665056349*^9},
367 FontSize->7],
368
369Cell[BoxData[
370 FormBox["\<\"   - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
371
372 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
373  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
374  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
375  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
376  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
377  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
378  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665073351*^9},
379 FontSize->7],
380
381Cell[BoxData[
382 FormBox[
383  InterpretationBox[
384   RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"VLQ\"\>",
385    "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
386   SequenceForm["\nModel ", "VLQ", " loaded."],
387   Editable->False], TraditionalForm]], "Print",
388 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
389  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
390  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
391  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
392  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
393  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
394  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066652613745`*^9},
395 FontSize->7],
396
397Cell[BoxData[
398 FormBox[
399  InterpretationBox[
400   RowBox[{"\<\"Loading restrictions from \"\>",
401    "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
402    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
403    DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, TraditionalForm],
404     ImageSizeCache->{12., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
405    "\[InvisibleSpace]", "18"}],
406   SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
407    Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
408   Editable->False], TraditionalForm]], "Print",
409 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
410  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
411  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
412  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
413  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
414  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
415  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066653408847`*^9},
416 FontSize->7],
417
418Cell[BoxData[
419 FormBox["\<\"Restrictions loaded.\"\>", TraditionalForm]], "Print",
420 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
421  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
422  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
423  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
424  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
425  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
426  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066654804025`*^9},
427 FontSize->7],
428
429Cell[BoxData[
430 FormBox[
431  InterpretationBox[
432   RowBox[{"\<\"Model name: \"\>", "\[InvisibleSpace]", "\<\"VLQ\"\>"}],
433   SequenceForm["Model name: ", "VLQ"],
434   Editable->False], TraditionalForm]], "Print",
435 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
436  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
437  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
438  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
439  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
440  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
441  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066655604124`*^9},
442 FontSize->7],
443
444Cell[BoxData[
445 FormBox[
446  InterpretationBox[
447   RowBox[{"\<\"Model version: \"\>", "\[InvisibleSpace]", "\<\"1.2.5\"\>"}],
448   SequenceForm["Model version: ", "1.2.5"],
449   Editable->False], TraditionalForm]], "Print",
450 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
451  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
452  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
453  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
454  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
455  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
456  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665566413*^9},
457 FontSize->7],
458
459Cell[BoxData[
460 FormBox[
461  InterpretationBox[
462   RowBox[{"\<\"Date: \"\>", "\[InvisibleSpace]", "\<\"10. 04. 2013\"\>"}],
463   SequenceForm["Date: ", "10. 04. 2013"],
464   Editable->False], TraditionalForm]], "Print",
465 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
466  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
467  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
468  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
469  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
470  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
471  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066655719137`*^9},
472 FontSize->7],
473
474Cell[BoxData[
475 FormBox["\<\"Authors: \"\>", TraditionalForm]], "Print",
476 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
477  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
478  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
479  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
480  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
481  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
482  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665576915*^9},
483 FontSize->7],
484
485Cell[BoxData[
486 FormBox["\<\"   M. Buchkremer\"\>", TraditionalForm]], "Print",
487 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
488  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
489  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
490  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
491  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
492  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
493  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066655834155`*^9},
494 FontSize->7],
495
496Cell[BoxData[
497 FormBox["\<\"   G. Cacciapaglia\"\>", TraditionalForm]], "Print",
498 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
499  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
500  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
501  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
502  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
503  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
504  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665596917*^9},
505 FontSize->7],
506
507Cell[BoxData[
508 FormBox["\<\"   A. Deandrea\"\>", TraditionalForm]], "Print",
509 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
510  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
511  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
512  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
513  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
514  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
515  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665602418*^9},
516 FontSize->7],
517
518Cell[BoxData[
519 FormBox["\<\"   L. Panizzi\"\>", TraditionalForm]], "Print",
520 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
521  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
522  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
523  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
524  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
525  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
526  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656079187`*^9},
527 FontSize->7],
528
529Cell[BoxData[
530 FormBox["\<\"Institutions: \"\>", TraditionalForm]], "Print",
531 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
532  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
533  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
534  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
535  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
536  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
537  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656189203`*^9},
538 FontSize->7],
539
540Cell[BoxData[
541 FormBox["\<\"   Universite catholique de Louvain (CP3)\"\>",
542  TraditionalForm]], "Print",
543 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
544  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
545  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
546  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
547  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
548  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
549  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665624421*^9},
550 FontSize->7],
551
552Cell[BoxData[
553 FormBox["\<\"   Universite de Lyon (CNRS/IN2P3)\"\>",
554  TraditionalForm]], "Print",
555 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
556  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
557  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
558  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
559  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
560  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
561  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656299214`*^9},
562 FontSize->7],
563
564Cell[BoxData[
565 FormBox["\<\"   University of Southampton (School of Physics and \
566Astronomy)\"\>", TraditionalForm]], "Print",
567 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
568  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
569  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
570  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
571  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
572  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
573  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656424227`*^9},
574 FontSize->7],
575
576Cell[BoxData[
577 FormBox["\<\"Emails: \"\>", TraditionalForm]], "Print",
578 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
579  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
580  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
581  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
582  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
583  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
584  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665648424*^9},
585 FontSize->7],
586
587Cell[BoxData[
588 FormBox["\<\"   mathieu.buchkremer@uclouvain.be\"\>",
589  TraditionalForm]], "Print",
590 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
591  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
592  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
593  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
594  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
595  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
596  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656544247`*^9},
597 FontSize->7],
598
599Cell[BoxData[
600 FormBox["\<\"   g.cacciapaglia@ipnl.in2p3.fr\"\>", TraditionalForm]], "Print",\
601
602 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
603  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
604  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
605  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
606  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
607  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
608  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.581706665667426*^9},
609 FontSize->7],
610
611Cell[BoxData[
612 FormBox["\<\"   deandrea@ipnl.in2p3.fr\"\>", TraditionalForm]], "Print",
613 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
614  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
615  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
616  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
617  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
618  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
619  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656724267`*^9},
620 FontSize->7],
621
622Cell[BoxData[
623 FormBox["\<\"   l.panizzi@soton.ac.uk\"\>", TraditionalForm]], "Print",
624 CellChangeTimes->{3.574507167971465*^9, 3.574508184012892*^9,
625  3.574763448033285*^9, 3.574764835253629*^9, 3.575086134039012*^9,
626  3.5750862411286106`*^9, 3.5750863908736258`*^9, 3.5750865657613335`*^9,
627  3.5750871230456*^9, 3.5750872337986636`*^9, 3.575092119329547*^9,
628  3.5751812158267803`*^9, 3.5751846934256887`*^9, 3.5751848379560423`*^9,
629  3.5751892214291973`*^9, 3.575189435171339*^9, 3.57518949368827*^9,
630  3.5810871723968306`*^9, 3.5817057501896753`*^9, 3.5817066656779275`*^9},
631 FontSize->7]
632}, Open  ]]
633}, Open  ]]
634}, Open  ]],
635
636Cell[CellGroupData[{
637
638Cell["\<\
639Displaying the Feynman Rules for the VLQ lagrangian\
640\>", "Subsection",
641 CellChangeTimes->{{3.411911000132907*^9, 3.411911005135379*^9}, {
642  3.5745083801218367`*^9, 3.5745083815726395`*^9}, {3.5747636723761168`*^9,
643  3.5747636850628424`*^9}},
644 FontSize->9],
645
646Cell[CellGroupData[{
647
648Cell[BoxData[
649 RowBox[{"FeynmanRules", "[", "LVLQ", "]"}]], "Input",
650 FontSize->7],
651
652Cell[CellGroupData[{
653
654Cell[BoxData[
655 FormBox["\<\"Starting Feynman rule calculation.\"\>",
656  TraditionalForm]], "Print",
657 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
658  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
659  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
660  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
661  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
662  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
663  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066660564756`*^9},
664 FontSize->7],
665
666Cell[BoxData[
667 FormBox["\<\"Collecting the different structures that enter the \
668vertex...\"\>", TraditionalForm]], "Print",
669 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
670  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
671  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
672  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
673  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
674  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
675  3.581087202138607*^9, 3.581705753825637*^9, 3.581706667636176*^9},
676 FontSize->7],
677
678Cell[BoxData[
679 FormBox[
680  InterpretationBox[
681   RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"56\"\>",
682    "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
683   SequenceForm["Found ", "56", " possible non zero vertices."],
684   Editable->False], TraditionalForm]], "Print",
685 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
686  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
687  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
688  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
689  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
690  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
691  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066677356887`*^9},
692 FontSize->7],
693
694Cell[BoxData[
695 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
696 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
697  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
698  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
699  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
700  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
701  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
702  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066677406893`*^9},
703 FontSize->7],
704
705Cell[BoxData[
706 FormBox[
707  ProgressIndicatorBox[Dynamic[PRIVATE`progress$902]],
708  TraditionalForm]], "Print",
709 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
710  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
711  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
712  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
713  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
714  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
715  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066677451897`*^9},
716 FontSize->7],
717
718Cell[BoxData[
719 FormBox[
720  InterpretationBox[
721   RowBox[{"56", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
722   SequenceForm[56, " vertices obtained."],
723   Editable->False], TraditionalForm]], "Print",
724 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
725  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
726  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
727  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
728  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
729  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
730  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066696039257`*^9},
731 FontSize->7],
732
733Cell[BoxData[
734 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
735* * * *)\"\>", TraditionalForm]], "Print",
736 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
737  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
738  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
739  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
740  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
741  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
742  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066696244287`*^9},
743 FontSize->7],
744
745Cell[BoxData[
746 FormBox[
747  InterpretationBox[
748   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "1"}],
749   SequenceForm["Vertex ", 1],
750   Editable->False], TraditionalForm]], "Print",
751 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
752  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
753  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
754  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
755  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
756  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
757  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669628929*^9},
758 FontSize->7],
759
760Cell[BoxData[
761 FormBox[
762  InterpretationBox[
763   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
764    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
765     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
766   SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
767   Editable->False], TraditionalForm]], "Print",
768 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
769  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
770  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
771  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
772  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
773  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
774  3.581087202138607*^9, 3.581705753825637*^9, 3.58170666963443*^9},
775 FontSize->7],
776
777Cell[BoxData[
778 FormBox[
779  InterpretationBox[
780   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
781    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
782    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
783   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
784   Editable->False], TraditionalForm]], "Print",
785 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
786  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
787  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
788  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
789  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
790  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
791  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669644431*^9},
792 FontSize->7],
793
794Cell[BoxData[
795 FormBox[
796  InterpretationBox[
797   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
798    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
799    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
800    FormBox[
801     OverscriptBox["bp", "\<\"-\"\>"],
802     TraditionalForm]}],
803   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bpbar],
804   Editable->False], TraditionalForm]], "Print",
805 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
806  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
807  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
808  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
809  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
810  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
811  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066696479316`*^9},
812 FontSize->7],
813
814Cell[BoxData[
815 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
816 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
817  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
818  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
819  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
820  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
821  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
822  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669651432*^9},
823 FontSize->7],
824
825Cell[BoxData[
826 FormBox[
827  RowBox[{
828   RowBox[{"-",
829    FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ",
830   FormBox["e",
831    TraditionalForm], " ",
832   FormBox[
833    SubscriptBox["\[Delta]",
834     RowBox[{
835      FormBox[
836       SubscriptBox["\<\"i\"\>", "2"],
837       TraditionalForm], ",",
838      FormBox[
839       SubscriptBox["\<\"i\"\>", "3"],
840       TraditionalForm]}]],
841    TraditionalForm], " ",
842   FormBox[
843    SubsuperscriptBox["\[Gamma]",
844     RowBox[{
845      FormBox[
846       SubscriptBox["\<\"s\"\>", "3"],
847       TraditionalForm], ",",
848      FormBox[
849       SubscriptBox["\<\"s\"\>", "2"],
850       TraditionalForm]}],
851     FormBox[
852      SubscriptBox["\<\"\[Mu]\"\>", "1"],
853      TraditionalForm]],
854    TraditionalForm]}], TraditionalForm]], "Print",
855 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
856  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
857  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
858  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
859  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
860  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
861  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697139397`*^9},
862 FontSize->7],
863
864Cell[BoxData[
865 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
866* * * *)\"\>", TraditionalForm]], "Print",
867 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
868  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
869  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
870  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
871  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
872  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
873  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669719941*^9},
874 FontSize->7],
875
876Cell[BoxData[
877 FormBox[
878  InterpretationBox[
879   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "2"}],
880   SequenceForm["Vertex ", 2],
881   Editable->False], TraditionalForm]], "Print",
882 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
883  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
884  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
885  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
886  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
887  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
888  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697244415`*^9},
889 FontSize->7],
890
891Cell[BoxData[
892 FormBox[
893  InterpretationBox[
894   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
895    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
896     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
897   SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
898   Editable->False], TraditionalForm]], "Print",
899 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
900  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
901  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
902  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
903  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
904  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
905  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697279415`*^9},
906 FontSize->7],
907
908Cell[BoxData[
909 FormBox[
910  InterpretationBox[
911   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
912    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
913    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
914   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
915   Editable->False], TraditionalForm]], "Print",
916 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
917  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
918  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
919  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
920  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
921  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
922  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697334423`*^9},
923 FontSize->7],
924
925Cell[BoxData[
926 FormBox[
927  InterpretationBox[
928   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
929    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
930    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
931    FormBox[
932     OverscriptBox["tp", "\<\"-\"\>"],
933     TraditionalForm]}],
934   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
935   Editable->False], TraditionalForm]], "Print",
936 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
937  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
938  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
939  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
940  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
941  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
942  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669744444*^9},
943 FontSize->7],
944
945Cell[BoxData[
946 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
947 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
948  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
949  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
950  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
951  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
952  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
953  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697479444`*^9},
954 FontSize->7],
955
956Cell[BoxData[
957 FormBox[
958  RowBox[{
959   FractionBox["2", "3"], " ", "\[ImaginaryI]", " ",
960   FormBox["e",
961    TraditionalForm], " ",
962   FormBox[
963    SubscriptBox["\[Delta]",
964     RowBox[{
965      FormBox[
966       SubscriptBox["\<\"i\"\>", "2"],
967       TraditionalForm], ",",
968      FormBox[
969       SubscriptBox["\<\"i\"\>", "3"],
970       TraditionalForm]}]],
971    TraditionalForm], " ",
972   FormBox[
973    SubsuperscriptBox["\[Gamma]",
974     RowBox[{
975      FormBox[
976       SubscriptBox["\<\"s\"\>", "3"],
977       TraditionalForm], ",",
978      FormBox[
979       SubscriptBox["\<\"s\"\>", "2"],
980       TraditionalForm]}],
981     FormBox[
982      SubscriptBox["\<\"\[Mu]\"\>", "1"],
983      TraditionalForm]],
984    TraditionalForm]}], TraditionalForm]], "Print",
985 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
986  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
987  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
988  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
989  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
990  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
991  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669751445*^9},
992 FontSize->7],
993
994Cell[BoxData[
995 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
996* * * *)\"\>", TraditionalForm]], "Print",
997 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
998  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
999  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1000  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1001  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1002  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1003  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697579455`*^9},
1004 FontSize->7],
1005
1006Cell[BoxData[
1007 FormBox[
1008  InterpretationBox[
1009   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "3"}],
1010   SequenceForm["Vertex ", 3],
1011   Editable->False], TraditionalForm]], "Print",
1012 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1013  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1014  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1015  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1016  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1017  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1018  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669768447*^9},
1019 FontSize->7],
1020
1021Cell[BoxData[
1022 FormBox[
1023  InterpretationBox[
1024   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1025    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
1026     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
1027   SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
1028   Editable->False], TraditionalForm]], "Print",
1029 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1030  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1031  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1032  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1033  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1034  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1035  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697729473`*^9},
1036 FontSize->7],
1037
1038Cell[BoxData[
1039 FormBox[
1040  InterpretationBox[
1041   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1042    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1043    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
1044   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`x],
1045   Editable->False], TraditionalForm]], "Print",
1046 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1047  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1048  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1049  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1050  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1051  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1052  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669776948*^9},
1053 FontSize->7],
1054
1055Cell[BoxData[
1056 FormBox[
1057  InterpretationBox[
1058   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1059    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1060    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1061    FormBox[
1062     OverscriptBox["x", "\<\"-\"\>"],
1063     TraditionalForm]}],
1064   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
1065   Editable->False], TraditionalForm]], "Print",
1066 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1067  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1068  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1069  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1070  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1071  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1072  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066697929497`*^9},
1073 FontSize->7],
1074
1075Cell[BoxData[
1076 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1077 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1078  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1079  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1080  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1081  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1082  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1083  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669799451*^9},
1084 FontSize->7],
1085
1086Cell[BoxData[
1087 FormBox[
1088  RowBox[{
1089   FractionBox["5", "3"], " ", "\[ImaginaryI]", " ",
1090   FormBox["e",
1091    TraditionalForm], " ",
1092   FormBox[
1093    SubscriptBox["\[Delta]",
1094     RowBox[{
1095      FormBox[
1096       SubscriptBox["\<\"i\"\>", "2"],
1097       TraditionalForm], ",",
1098      FormBox[
1099       SubscriptBox["\<\"i\"\>", "3"],
1100       TraditionalForm]}]],
1101    TraditionalForm], " ",
1102   FormBox[
1103    SubsuperscriptBox["\[Gamma]",
1104     RowBox[{
1105      FormBox[
1106       SubscriptBox["\<\"s\"\>", "3"],
1107       TraditionalForm], ",",
1108      FormBox[
1109       SubscriptBox["\<\"s\"\>", "2"],
1110       TraditionalForm]}],
1111     FormBox[
1112      SubscriptBox["\<\"\[Mu]\"\>", "1"],
1113      TraditionalForm]],
1114    TraditionalForm]}], TraditionalForm]], "Print",
1115 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1116  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1117  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1118  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1119  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1120  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1121  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066698089523`*^9},
1122 FontSize->7],
1123
1124Cell[BoxData[
1125 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1126* * * *)\"\>", TraditionalForm]], "Print",
1127 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1128  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1129  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1130  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1131  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1132  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1133  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669824954*^9},
1134 FontSize->7],
1135
1136Cell[BoxData[
1137 FormBox[
1138  InterpretationBox[
1139   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "4"}],
1140   SequenceForm["Vertex ", 4],
1141   Editable->False], TraditionalForm]], "Print",
1142 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1143  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1144  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1145  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1146  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1147  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1148  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066698309546`*^9},
1149 FontSize->7],
1150
1151Cell[BoxData[
1152 FormBox[
1153  InterpretationBox[
1154   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1155    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
1156     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
1157   SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
1158   Editable->False], TraditionalForm]], "Print",
1159 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1160  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1161  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1162  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1163  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1164  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1165  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669845457*^9},
1166 FontSize->7],
1167
1168Cell[BoxData[
1169 FormBox[
1170  InterpretationBox[
1171   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1172    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1173    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
1174   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`y],
1175   Editable->False], TraditionalForm]], "Print",
1176 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1177  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1178  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1179  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1180  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1181  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1182  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066698509574`*^9},
1183 FontSize->7],
1184
1185Cell[BoxData[
1186 FormBox[
1187  InterpretationBox[
1188   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1189    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1190    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1191    FormBox[
1192     OverscriptBox["y", "\<\"-\"\>"],
1193     TraditionalForm]}],
1194   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
1195   Editable->False], TraditionalForm]], "Print",
1196 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1197  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1198  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1199  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1200  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1201  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1202  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066698569584`*^9},
1203 FontSize->7],
1204
1205Cell[BoxData[
1206 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1207 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1208  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1209  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1210  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1211  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1212  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1213  3.581087202138607*^9, 3.581705753825637*^9, 3.58170666987246*^9},
1214 FontSize->7],
1215
1216Cell[BoxData[
1217 FormBox[
1218  RowBox[{
1219   RowBox[{"-",
1220    FractionBox["4", "3"]}], " ", "\[ImaginaryI]", " ",
1221   FormBox["e",
1222    TraditionalForm], " ",
1223   FormBox[
1224    SubscriptBox["\[Delta]",
1225     RowBox[{
1226      FormBox[
1227       SubscriptBox["\<\"i\"\>", "2"],
1228       TraditionalForm], ",",
1229      FormBox[
1230       SubscriptBox["\<\"i\"\>", "3"],
1231       TraditionalForm]}]],
1232    TraditionalForm], " ",
1233   FormBox[
1234    SubsuperscriptBox["\[Gamma]",
1235     RowBox[{
1236      FormBox[
1237       SubscriptBox["\<\"s\"\>", "3"],
1238       TraditionalForm], ",",
1239      FormBox[
1240       SubscriptBox["\<\"s\"\>", "2"],
1241       TraditionalForm]}],
1242     FormBox[
1243      SubscriptBox["\<\"\[Mu]\"\>", "1"],
1244      TraditionalForm]],
1245    TraditionalForm]}], TraditionalForm]], "Print",
1246 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1247  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1248  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1249  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1250  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1251  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1252  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669878461*^9},
1253 FontSize->7],
1254
1255Cell[BoxData[
1256 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1257* * * *)\"\>", TraditionalForm]], "Print",
1258 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1259  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1260  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1261  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1262  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1263  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1264  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669886962*^9},
1265 FontSize->7],
1266
1267Cell[BoxData[
1268 FormBox[
1269  InterpretationBox[
1270   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "5"}],
1271   SequenceForm["Vertex ", 5],
1272   Editable->False], TraditionalForm]], "Print",
1273 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1274  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1275  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1276  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1277  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1278  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1279  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669902964*^9},
1280 FontSize->7],
1281
1282Cell[BoxData[
1283 FormBox[
1284  InterpretationBox[
1285   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1286    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1287    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1288    FormBox[
1289     OverscriptBox["b", "\<\"-\"\>"],
1290     TraditionalForm]}],
1291   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
1292   Editable->False], TraditionalForm]], "Print",
1293 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1294  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1295  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1296  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1297  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1298  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1299  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699129653`*^9},
1300 FontSize->7],
1301
1302Cell[BoxData[
1303 FormBox[
1304  InterpretationBox[
1305   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1306    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1307    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
1308   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
1309   Editable->False], TraditionalForm]], "Print",
1310 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1311  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1312  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1313  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1314  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1315  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1316  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669922967*^9},
1317 FontSize->7],
1318
1319Cell[BoxData[
1320 FormBox[
1321  InterpretationBox[
1322   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1323    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1324     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
1325   SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
1326   Editable->False], TraditionalForm]], "Print",
1327 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1328  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1329  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1330  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1331  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1332  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1333  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699274673`*^9},
1334 FontSize->7],
1335
1336Cell[BoxData[
1337 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1338 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1339  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1340  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1341  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1342  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1343  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1344  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699319677`*^9},
1345 FontSize->7],
1346
1347Cell[BoxData[
1348 FormBox[
1349  RowBox[{
1350   RowBox[{"-",
1351    FractionBox[
1352     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLh", " ", "MBP", " ",
1353      FormBox[
1354       SubscriptBox["\[Delta]",
1355        RowBox[{
1356         FormBox[
1357          SubscriptBox["\<\"i\"\>", "1"],
1358          TraditionalForm], ",",
1359         FormBox[
1360          SubscriptBox["\<\"i\"\>", "2"],
1361          TraditionalForm]}]],
1362       TraditionalForm], " ",
1363      FormBox[
1364       SubscriptBox[
1365        SubscriptBox["P", "\<\"-\"\>"],
1366        RowBox[{
1367         FormBox[
1368          SubscriptBox["\<\"s\"\>", "1"],
1369          TraditionalForm], ",",
1370         FormBox[
1371          SubscriptBox["\<\"s\"\>", "2"],
1372          TraditionalForm]}]],
1373       TraditionalForm]}], "v"]}], "-",
1374   FractionBox[
1375    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRh", " ", "MBP", " ",
1376     FormBox[
1377      SubscriptBox["\[Delta]",
1378       RowBox[{
1379        FormBox[
1380         SubscriptBox["\<\"i\"\>", "1"],
1381         TraditionalForm], ",",
1382        FormBox[
1383         SubscriptBox["\<\"i\"\>", "2"],
1384         TraditionalForm]}]],
1385      TraditionalForm], " ",
1386     FormBox[
1387      SubscriptBox[
1388       SubscriptBox["P", "\<\"+\"\>"],
1389       RowBox[{
1390        FormBox[
1391         SubscriptBox["\<\"s\"\>", "1"],
1392         TraditionalForm], ",",
1393        FormBox[
1394         SubscriptBox["\<\"s\"\>", "2"],
1395         TraditionalForm]}]],
1396      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
1397 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1398  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1399  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1400  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1401  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1402  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1403  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699444695`*^9},
1404 FontSize->7],
1405
1406Cell[BoxData[
1407 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1408* * * *)\"\>", TraditionalForm]], "Print",
1409 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1410  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1411  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1412  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1413  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1414  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1415  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699514704`*^9},
1416 FontSize->7],
1417
1418Cell[BoxData[
1419 FormBox[
1420  InterpretationBox[
1421   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "6"}],
1422   SequenceForm["Vertex ", 6],
1423   Editable->False], TraditionalForm]], "Print",
1424 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1425  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1426  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1427  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1428  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1429  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1430  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669960471*^9},
1431 FontSize->7],
1432
1433Cell[BoxData[
1434 FormBox[
1435  InterpretationBox[
1436   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1437    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1438    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
1439   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
1440   Editable->False], TraditionalForm]], "Print",
1441 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1442  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1443  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1444  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1445  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1446  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1447  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669970973*^9},
1448 FontSize->7],
1449
1450Cell[BoxData[
1451 FormBox[
1452  InterpretationBox[
1453   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1454    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1455    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1456    FormBox[
1457     OverscriptBox["bp", "\<\"-\"\>"],
1458     TraditionalForm]}],
1459   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
1460   Editable->False], TraditionalForm]], "Print",
1461 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1462  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1463  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1464  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1465  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1466  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1467  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066699769735`*^9},
1468 FontSize->7],
1469
1470Cell[BoxData[
1471 FormBox[
1472  InterpretationBox[
1473   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1474    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1475     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
1476   SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
1477   Editable->False], TraditionalForm]], "Print",
1478 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1479  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1480  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1481  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1482  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1483  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1484  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669992975*^9},
1485 FontSize->7],
1486
1487Cell[BoxData[
1488 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1489 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1490  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1491  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1492  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1493  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1494  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1495  3.581087202138607*^9, 3.581705753825637*^9, 3.581706669998976*^9},
1496 FontSize->7],
1497
1498Cell[BoxData[
1499 FormBox[
1500  RowBox[{
1501   RowBox[{"-",
1502    FractionBox[
1503     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRh", " ", "MBP", " ",
1504      FormBox[
1505       SubscriptBox["\[Delta]",
1506        RowBox[{
1507         FormBox[
1508          SubscriptBox["\<\"i\"\>", "1"],
1509          TraditionalForm], ",",
1510         FormBox[
1511          SubscriptBox["\<\"i\"\>", "2"],
1512          TraditionalForm]}]],
1513       TraditionalForm], " ",
1514      FormBox[
1515       SubscriptBox[
1516        SubscriptBox["P", "\<\"-\"\>"],
1517        RowBox[{
1518         FormBox[
1519          SubscriptBox["\<\"s\"\>", "2"],
1520          TraditionalForm], ",",
1521         FormBox[
1522          SubscriptBox["\<\"s\"\>", "1"],
1523          TraditionalForm]}]],
1524       TraditionalForm]}], "v"]}], "-",
1525   FractionBox[
1526    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLh", " ", "MBP", " ",
1527     FormBox[
1528      SubscriptBox["\[Delta]",
1529       RowBox[{
1530        FormBox[
1531         SubscriptBox["\<\"i\"\>", "1"],
1532         TraditionalForm], ",",
1533        FormBox[
1534         SubscriptBox["\<\"i\"\>", "2"],
1535         TraditionalForm]}]],
1536      TraditionalForm], " ",
1537     FormBox[
1538      SubscriptBox[
1539       SubscriptBox["P", "\<\"+\"\>"],
1540       RowBox[{
1541        FormBox[
1542         SubscriptBox["\<\"s\"\>", "2"],
1543         TraditionalForm], ",",
1544        FormBox[
1545         SubscriptBox["\<\"s\"\>", "1"],
1546         TraditionalForm]}]],
1547      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
1548 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1549  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1550  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1551  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1552  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1553  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1554  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670006977*^9},
1555 FontSize->7],
1556
1557Cell[BoxData[
1558 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1559* * * *)\"\>", TraditionalForm]], "Print",
1560 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1561  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1562  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1563  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1564  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1565  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1566  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700204787`*^9},
1567 FontSize->7],
1568
1569Cell[BoxData[
1570 FormBox[
1571  InterpretationBox[
1572   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "7"}],
1573   SequenceForm["Vertex ", 7],
1574   Editable->False], TraditionalForm]], "Print",
1575 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1576  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1577  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1578  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1579  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1580  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1581  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700244794`*^9},
1582 FontSize->7],
1583
1584Cell[BoxData[
1585 FormBox[
1586  InterpretationBox[
1587   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1588    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1589    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1590    FormBox[
1591     OverscriptBox["bp", "\<\"-\"\>"],
1592     TraditionalForm]}],
1593   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
1594   Editable->False], TraditionalForm]], "Print",
1595 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1596  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1597  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1598  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1599  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1600  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1601  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700289803`*^9},
1602 FontSize->7],
1603
1604Cell[BoxData[
1605 FormBox[
1606  InterpretationBox[
1607   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1608    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1609    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
1610   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
1611   Editable->False], TraditionalForm]], "Print",
1612 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1613  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1614  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1615  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1616  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1617  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1618  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700359807`*^9},
1619 FontSize->7],
1620
1621Cell[BoxData[
1622 FormBox[
1623  InterpretationBox[
1624   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1625    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1626     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
1627   SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
1628   Editable->False], TraditionalForm]], "Print",
1629 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1630  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1631  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1632  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1633  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1634  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1635  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700459824`*^9},
1636 FontSize->7],
1637
1638Cell[BoxData[
1639 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1640 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1641  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1642  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1643  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1644  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1645  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1646  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700509825`*^9},
1647 FontSize->7],
1648
1649Cell[BoxData[
1650 FormBox[
1651  RowBox[{
1652   RowBox[{"-",
1653    FractionBox[
1654     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRh", " ", "MBP", " ",
1655      FormBox[
1656       SubscriptBox["\[Delta]",
1657        RowBox[{
1658         FormBox[
1659          SubscriptBox["\<\"i\"\>", "1"],
1660          TraditionalForm], ",",
1661         FormBox[
1662          SubscriptBox["\<\"i\"\>", "2"],
1663          TraditionalForm]}]],
1664       TraditionalForm], " ",
1665      FormBox[
1666       SubscriptBox[
1667        SubscriptBox["P", "\<\"-\"\>"],
1668        RowBox[{
1669         FormBox[
1670          SubscriptBox["\<\"s\"\>", "1"],
1671          TraditionalForm], ",",
1672         FormBox[
1673          SubscriptBox["\<\"s\"\>", "2"],
1674          TraditionalForm]}]],
1675       TraditionalForm]}], "v"]}], "-",
1676   FractionBox[
1677    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLh", " ", "MBP", " ",
1678     FormBox[
1679      SubscriptBox["\[Delta]",
1680       RowBox[{
1681        FormBox[
1682         SubscriptBox["\<\"i\"\>", "1"],
1683         TraditionalForm], ",",
1684        FormBox[
1685         SubscriptBox["\<\"i\"\>", "2"],
1686         TraditionalForm]}]],
1687      TraditionalForm], " ",
1688     FormBox[
1689      SubscriptBox[
1690       SubscriptBox["P", "\<\"+\"\>"],
1691       RowBox[{
1692        FormBox[
1693         SubscriptBox["\<\"s\"\>", "1"],
1694         TraditionalForm], ",",
1695        FormBox[
1696         SubscriptBox["\<\"s\"\>", "2"],
1697         TraditionalForm]}]],
1698      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
1699 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1700  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1701  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1702  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1703  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1704  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1705  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700559835`*^9},
1706 FontSize->7],
1707
1708Cell[BoxData[
1709 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1710* * * *)\"\>", TraditionalForm]], "Print",
1711 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1712  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1713  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1714  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1715  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1716  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1717  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670067485*^9},
1718 FontSize->7],
1719
1720Cell[BoxData[
1721 FormBox[
1722  InterpretationBox[
1723   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "8"}],
1724   SequenceForm["Vertex ", 8],
1725   Editable->False], TraditionalForm]], "Print",
1726 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1727  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1728  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1729  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1730  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1731  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1732  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670072486*^9},
1733 FontSize->7],
1734
1735Cell[BoxData[
1736 FormBox[
1737  InterpretationBox[
1738   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1739    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1740    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1741    FormBox[
1742     OverscriptBox["bp", "\<\"-\"\>"],
1743     TraditionalForm]}],
1744   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
1745   Editable->False], TraditionalForm]], "Print",
1746 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1747  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1748  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1749  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1750  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1751  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1752  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066700779862`*^9},
1753 FontSize->7],
1754
1755Cell[BoxData[
1756 FormBox[
1757  InterpretationBox[
1758   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1759    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1760     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
1761   SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
1762   Editable->False], TraditionalForm]], "Print",
1763 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1764  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1765  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1766  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1767  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1768  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1769  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670084487*^9},
1770 FontSize->7],
1771
1772Cell[BoxData[
1773 FormBox[
1774  InterpretationBox[
1775   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1776    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1777    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
1778   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`s],
1779   Editable->False], TraditionalForm]], "Print",
1780 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1781  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1782  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1783  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1784  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1785  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1786  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670099989*^9},
1787 FontSize->7],
1788
1789Cell[BoxData[
1790 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1791 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1792  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1793  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1794  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1795  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1796  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1797  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667010899*^9},
1798 FontSize->7],
1799
1800Cell[BoxData[
1801 FormBox[
1802  RowBox[{
1803   RowBox[{"-",
1804    FractionBox[
1805     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRh", " ", "MBP", " ",
1806      FormBox[
1807       SubscriptBox["\[Delta]",
1808        RowBox[{
1809         FormBox[
1810          SubscriptBox["\<\"i\"\>", "1"],
1811          TraditionalForm], ",",
1812         FormBox[
1813          SubscriptBox["\<\"i\"\>", "3"],
1814          TraditionalForm]}]],
1815       TraditionalForm], " ",
1816      FormBox[
1817       SubscriptBox[
1818        SubscriptBox["P", "\<\"-\"\>"],
1819        RowBox[{
1820         FormBox[
1821          SubscriptBox["\<\"s\"\>", "1"],
1822          TraditionalForm], ",",
1823         FormBox[
1824          SubscriptBox["\<\"s\"\>", "3"],
1825          TraditionalForm]}]],
1826       TraditionalForm]}], "v"]}], "-",
1827   FractionBox[
1828    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLh", " ", "MBP", " ",
1829     FormBox[
1830      SubscriptBox["\[Delta]",
1831       RowBox[{
1832        FormBox[
1833         SubscriptBox["\<\"i\"\>", "1"],
1834         TraditionalForm], ",",
1835        FormBox[
1836         SubscriptBox["\<\"i\"\>", "3"],
1837         TraditionalForm]}]],
1838      TraditionalForm], " ",
1839     FormBox[
1840      SubscriptBox[
1841       SubscriptBox["P", "\<\"+\"\>"],
1842       RowBox[{
1843        FormBox[
1844         SubscriptBox["\<\"s\"\>", "1"],
1845         TraditionalForm], ",",
1846        FormBox[
1847         SubscriptBox["\<\"s\"\>", "3"],
1848         TraditionalForm]}]],
1849      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
1850 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1851  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1852  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1853  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1854  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1855  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1856  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670122492*^9},
1857 FontSize->7],
1858
1859Cell[BoxData[
1860 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
1861* * * *)\"\>", TraditionalForm]], "Print",
1862 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1863  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1864  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1865  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1866  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1867  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1868  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670130993*^9},
1869 FontSize->7],
1870
1871Cell[BoxData[
1872 FormBox[
1873  InterpretationBox[
1874   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "9"}],
1875   SequenceForm["Vertex ", 9],
1876   Editable->False], TraditionalForm]], "Print",
1877 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1878  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1879  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1880  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1881  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1882  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1883  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066701454945`*^9},
1884 FontSize->7],
1885
1886Cell[BoxData[
1887 FormBox[
1888  InterpretationBox[
1889   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
1890    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1891    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
1892    FormBox[
1893     OverscriptBox["c", "\<\"-\"\>"],
1894     TraditionalForm]}],
1895   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
1896   Editable->False], TraditionalForm]], "Print",
1897 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1898  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1899  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1900  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1901  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1902  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1903  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670153996*^9},
1904 FontSize->7],
1905
1906Cell[BoxData[
1907 FormBox[
1908  InterpretationBox[
1909   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
1910    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
1911     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
1912   SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
1913   Editable->False], TraditionalForm]], "Print",
1914 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1915  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1916  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1917  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1918  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1919  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1920  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066701679974`*^9},
1921 FontSize->7],
1922
1923Cell[BoxData[
1924 FormBox[
1925  InterpretationBox[
1926   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
1927    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
1928    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
1929   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tp],
1930   Editable->False], TraditionalForm]], "Print",
1931 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1932  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1933  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1934  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1935  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1936  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1937  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066701739984`*^9},
1938 FontSize->7],
1939
1940Cell[BoxData[
1941 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
1942 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
1943  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
1944  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
1945  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
1946  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
1947  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
1948  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670179499*^9},
1949 FontSize->7],
1950
1951Cell[BoxData[
1952 FormBox[
1953  RowBox[{
1954   RowBox[{"-",
1955    FractionBox[
1956     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLh", " ", "MTP", " ",
1957      FormBox[
1958       SubscriptBox["\[Delta]",
1959        RowBox[{
1960         FormBox[
1961          SubscriptBox["\<\"i\"\>", "1"],
1962          TraditionalForm], ",",
1963         FormBox[
1964          SubscriptBox["\<\"i\"\>", "3"],
1965          TraditionalForm]}]],
1966       TraditionalForm], " ",
1967      FormBox[
1968       SubscriptBox[
1969        SubscriptBox["P", "\<\"-\"\>"],
1970        RowBox[{
1971         FormBox[
1972          SubscriptBox["\<\"s\"\>", "1"],
1973          TraditionalForm], ",",
1974         FormBox[
1975          SubscriptBox["\<\"s\"\>", "3"],
1976          TraditionalForm]}]],
1977       TraditionalForm]}], "v"]}], "-",
1978   FractionBox[
1979    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRh", " ", "MTP", " ",
1980     FormBox[
1981      SubscriptBox["\[Delta]",
1982       RowBox[{
1983        FormBox[
1984         SubscriptBox["\<\"i\"\>", "1"],
1985         TraditionalForm], ",",
1986        FormBox[
1987         SubscriptBox["\<\"i\"\>", "3"],
1988         TraditionalForm]}]],
1989      TraditionalForm], " ",
1990     FormBox[
1991      SubscriptBox[
1992       SubscriptBox["P", "\<\"+\"\>"],
1993       RowBox[{
1994        FormBox[
1995         SubscriptBox["\<\"s\"\>", "1"],
1996         TraditionalForm], ",",
1997        FormBox[
1998         SubscriptBox["\<\"s\"\>", "3"],
1999         TraditionalForm]}]],
2000      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2001 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2002  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2003  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2004  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2005  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2006  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2007  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066701875*^9},
2008 FontSize->7],
2009
2010Cell[BoxData[
2011 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2012* * * *)\"\>", TraditionalForm]], "Print",
2013 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2014  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2015  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2016  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2017  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2018  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2019  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670202002*^9},
2020 FontSize->7],
2021
2022Cell[BoxData[
2023 FormBox[
2024  InterpretationBox[
2025   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "10"}],
2026   SequenceForm["Vertex ", 10],
2027   Editable->False], TraditionalForm]], "Print",
2028 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2029  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2030  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2031  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2032  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2033  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2034  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702090025`*^9},
2035 FontSize->7],
2036
2037Cell[BoxData[
2038 FormBox[
2039  InterpretationBox[
2040   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2041    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2042    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
2043   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
2044   Editable->False], TraditionalForm]], "Print",
2045 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2046  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2047  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2048  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2049  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2050  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2051  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702210045`*^9},
2052 FontSize->7],
2053
2054Cell[BoxData[
2055 FormBox[
2056  InterpretationBox[
2057   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2058    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2059    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2060    FormBox[
2061     OverscriptBox["d", "\<\"-\"\>"],
2062     TraditionalForm]}],
2063   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
2064   Editable->False], TraditionalForm]], "Print",
2065 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2066  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2067  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2068  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2069  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2070  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2071  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702265053`*^9},
2072 FontSize->7],
2073
2074Cell[BoxData[
2075 FormBox[
2076  InterpretationBox[
2077   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2078    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2079     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2080   SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
2081   Editable->False], TraditionalForm]], "Print",
2082 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2083  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2084  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2085  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2086  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2087  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2088  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702315054`*^9},
2089 FontSize->7],
2090
2091Cell[BoxData[
2092 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2093 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2094  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2095  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2096  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2097  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2098  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2099  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702435074`*^9},
2100 FontSize->7],
2101
2102Cell[BoxData[
2103 FormBox[
2104  RowBox[{
2105   RowBox[{"-",
2106    FractionBox[
2107     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLh", " ", "MBP", " ",
2108      FormBox[
2109       SubscriptBox["\[Delta]",
2110        RowBox[{
2111         FormBox[
2112          SubscriptBox["\<\"i\"\>", "1"],
2113          TraditionalForm], ",",
2114         FormBox[
2115          SubscriptBox["\<\"i\"\>", "2"],
2116          TraditionalForm]}]],
2117       TraditionalForm], " ",
2118      FormBox[
2119       SubscriptBox[
2120        SubscriptBox["P", "\<\"-\"\>"],
2121        RowBox[{
2122         FormBox[
2123          SubscriptBox["\<\"s\"\>", "2"],
2124          TraditionalForm], ",",
2125         FormBox[
2126          SubscriptBox["\<\"s\"\>", "1"],
2127          TraditionalForm]}]],
2128       TraditionalForm]}], "v"]}], "-",
2129   FractionBox[
2130    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRh", " ", "MBP", " ",
2131     FormBox[
2132      SubscriptBox["\[Delta]",
2133       RowBox[{
2134        FormBox[
2135         SubscriptBox["\<\"i\"\>", "1"],
2136         TraditionalForm], ",",
2137        FormBox[
2138         SubscriptBox["\<\"i\"\>", "2"],
2139         TraditionalForm]}]],
2140      TraditionalForm], " ",
2141     FormBox[
2142      SubscriptBox[
2143       SubscriptBox["P", "\<\"+\"\>"],
2144       RowBox[{
2145        FormBox[
2146         SubscriptBox["\<\"s\"\>", "2"],
2147         TraditionalForm], ",",
2148        FormBox[
2149         SubscriptBox["\<\"s\"\>", "1"],
2150         TraditionalForm]}]],
2151      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2152 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2153  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2154  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2155  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2156  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2157  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2158  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670248008*^9},
2159 FontSize->7],
2160
2161Cell[BoxData[
2162 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2163* * * *)\"\>", TraditionalForm]], "Print",
2164 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2165  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2166  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2167  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2168  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2169  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2170  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702550087`*^9},
2171 FontSize->7],
2172
2173Cell[BoxData[
2174 FormBox[
2175  InterpretationBox[
2176   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "11"}],
2177   SequenceForm["Vertex ", 11],
2178   Editable->False], TraditionalForm]], "Print",
2179 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2180  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2181  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2182  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2183  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2184  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2185  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702675104`*^9},
2186 FontSize->7],
2187
2188Cell[BoxData[
2189 FormBox[
2190  InterpretationBox[
2191   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2192    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2193    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
2194   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
2195   Editable->False], TraditionalForm]], "Print",
2196 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2197  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2198  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2199  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2200  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2201  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2202  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670273011*^9},
2203 FontSize->7],
2204
2205Cell[BoxData[
2206 FormBox[
2207  InterpretationBox[
2208   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2209    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2210     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2211   SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
2212   Editable->False], TraditionalForm]], "Print",
2213 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2214  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2215  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2216  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2217  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2218  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2219  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702785115`*^9},
2220 FontSize->7],
2221
2222Cell[BoxData[
2223 FormBox[
2224  InterpretationBox[
2225   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2226    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2227    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2228    FormBox[
2229     OverscriptBox["s", "\<\"-\"\>"],
2230     TraditionalForm]}],
2231   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
2232   Editable->False], TraditionalForm]], "Print",
2233 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2234  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2235  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2236  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2237  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2238  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2239  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066702830124`*^9},
2240 FontSize->7],
2241
2242Cell[BoxData[
2243 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2244 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2245  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2246  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2247  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2248  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2249  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2250  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670295014*^9},
2251 FontSize->7],
2252
2253Cell[BoxData[
2254 FormBox[
2255  RowBox[{
2256   RowBox[{"-",
2257    FractionBox[
2258     RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLh", " ", "MBP", " ",
2259      FormBox[
2260       SubscriptBox["\[Delta]",
2261        RowBox[{
2262         FormBox[
2263          SubscriptBox["\<\"i\"\>", "1"],
2264          TraditionalForm], ",",
2265         FormBox[
2266          SubscriptBox["\<\"i\"\>", "3"],
2267          TraditionalForm]}]],
2268       TraditionalForm], " ",
2269      FormBox[
2270       SubscriptBox[
2271        SubscriptBox["P", "\<\"-\"\>"],
2272        RowBox[{
2273         FormBox[
2274          SubscriptBox["\<\"s\"\>", "3"],
2275          TraditionalForm], ",",
2276         FormBox[
2277          SubscriptBox["\<\"s\"\>", "1"],
2278          TraditionalForm]}]],
2279       TraditionalForm]}], "v"]}], "-",
2280   FractionBox[
2281    RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRh", " ", "MBP", " ",
2282     FormBox[
2283      SubscriptBox["\[Delta]",
2284       RowBox[{
2285        FormBox[
2286         SubscriptBox["\<\"i\"\>", "1"],
2287         TraditionalForm], ",",
2288        FormBox[
2289         SubscriptBox["\<\"i\"\>", "3"],
2290         TraditionalForm]}]],
2291      TraditionalForm], " ",
2292     FormBox[
2293      SubscriptBox[
2294       SubscriptBox["P", "\<\"+\"\>"],
2295       RowBox[{
2296        FormBox[
2297         SubscriptBox["\<\"s\"\>", "3"],
2298         TraditionalForm], ",",
2299        FormBox[
2300         SubscriptBox["\<\"s\"\>", "1"],
2301         TraditionalForm]}]],
2302      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2303 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2304  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2305  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2306  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2307  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2308  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2309  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670299014*^9},
2310 FontSize->7],
2311
2312Cell[BoxData[
2313 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2314* * * *)\"\>", TraditionalForm]], "Print",
2315 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2316  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2317  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2318  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2319  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2320  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2321  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670306515*^9},
2322 FontSize->7],
2323
2324Cell[BoxData[
2325 FormBox[
2326  InterpretationBox[
2327   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "12"}],
2328   SequenceForm["Vertex ", 12],
2329   Editable->False], TraditionalForm]], "Print",
2330 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2331  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2332  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2333  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2334  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2335  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2336  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670318017*^9},
2337 FontSize->7],
2338
2339Cell[BoxData[
2340 FormBox[
2341  InterpretationBox[
2342   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2343    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2344     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2345   SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
2346   Editable->False], TraditionalForm]], "Print",
2347 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2348  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2349  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2350  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2351  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2352  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2353  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670323017*^9},
2354 FontSize->7],
2355
2356Cell[BoxData[
2357 FormBox[
2358  InterpretationBox[
2359   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2360    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2361    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2362    FormBox[
2363     OverscriptBox["t", "\<\"-\"\>"],
2364     TraditionalForm]}],
2365   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
2366   Editable->False], TraditionalForm]], "Print",
2367 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2368  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2369  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2370  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2371  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2372  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2373  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670327018*^9},
2374 FontSize->7],
2375
2376Cell[BoxData[
2377 FormBox[
2378  InterpretationBox[
2379   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2380    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2381    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
2382   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tp],
2383   Editable->False], TraditionalForm]], "Print",
2384 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2385  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2386  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2387  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2388  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2389  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2390  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670331518*^9},
2391 FontSize->7],
2392
2393Cell[BoxData[
2394 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2395 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2396  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2397  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2398  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2399  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2400  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2401  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667034202*^9},
2402 FontSize->7],
2403
2404Cell[BoxData[
2405 FormBox[
2406  RowBox[{
2407   RowBox[{"-",
2408    FractionBox[
2409     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLh", " ", "MTP", " ",
2410      FormBox[
2411       SubscriptBox["\[Delta]",
2412        RowBox[{
2413         FormBox[
2414          SubscriptBox["\<\"i\"\>", "2"],
2415          TraditionalForm], ",",
2416         FormBox[
2417          SubscriptBox["\<\"i\"\>", "3"],
2418          TraditionalForm]}]],
2419       TraditionalForm], " ",
2420      FormBox[
2421       SubscriptBox[
2422        SubscriptBox["P", "\<\"-\"\>"],
2423        RowBox[{
2424         FormBox[
2425          SubscriptBox["\<\"s\"\>", "2"],
2426          TraditionalForm], ",",
2427         FormBox[
2428          SubscriptBox["\<\"s\"\>", "3"],
2429          TraditionalForm]}]],
2430       TraditionalForm]}], "v"]}], "-",
2431   FractionBox[
2432    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRh", " ", "MTP", " ",
2433     FormBox[
2434      SubscriptBox["\[Delta]",
2435       RowBox[{
2436        FormBox[
2437         SubscriptBox["\<\"i\"\>", "2"],
2438         TraditionalForm], ",",
2439        FormBox[
2440         SubscriptBox["\<\"i\"\>", "3"],
2441         TraditionalForm]}]],
2442      TraditionalForm], " ",
2443     FormBox[
2444      SubscriptBox[
2445       SubscriptBox["P", "\<\"+\"\>"],
2446       RowBox[{
2447        FormBox[
2448         SubscriptBox["\<\"s\"\>", "2"],
2449         TraditionalForm], ",",
2450        FormBox[
2451         SubscriptBox["\<\"s\"\>", "3"],
2452         TraditionalForm]}]],
2453      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2454 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2455  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2456  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2457  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2458  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2459  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2460  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066703460207`*^9},
2461 FontSize->7],
2462
2463Cell[BoxData[
2464 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2465* * * *)\"\>", TraditionalForm]], "Print",
2466 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2467  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2468  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2469  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2470  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2471  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2472  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670351521*^9},
2473 FontSize->7],
2474
2475Cell[BoxData[
2476 FormBox[
2477  InterpretationBox[
2478   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "13"}],
2479   SequenceForm["Vertex ", 13],
2480   Editable->False], TraditionalForm]], "Print",
2481 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2482  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2483  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2484  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2485  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2486  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2487  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066703555217`*^9},
2488 FontSize->7],
2489
2490Cell[BoxData[
2491 FormBox[
2492  InterpretationBox[
2493   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2494    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2495    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
2496   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
2497   Editable->False], TraditionalForm]], "Print",
2498 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2499  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2500  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2501  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2502  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2503  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2504  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066703605223`*^9},
2505 FontSize->7],
2506
2507Cell[BoxData[
2508 FormBox[
2509  InterpretationBox[
2510   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2511    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2512     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2513   SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
2514   Editable->False], TraditionalForm]], "Print",
2515 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2516  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2517  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2518  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2519  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2520  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2521  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066703700233`*^9},
2522 FontSize->7],
2523
2524Cell[BoxData[
2525 FormBox[
2526  InterpretationBox[
2527   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2528    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2529    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2530    FormBox[
2531     OverscriptBox["tp", "\<\"-\"\>"],
2532     TraditionalForm]}],
2533   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
2534   Editable->False], TraditionalForm]], "Print",
2535 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2536  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2537  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2538  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2539  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2540  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2541  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066703735237`*^9},
2542 FontSize->7],
2543
2544Cell[BoxData[
2545 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2546 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2547  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2548  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2549  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2550  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2551  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2552  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670377024*^9},
2553 FontSize->7],
2554
2555Cell[BoxData[
2556 FormBox[
2557  RowBox[{
2558   RowBox[{"-",
2559    FractionBox[
2560     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRh", " ", "MTP", " ",
2561      FormBox[
2562       SubscriptBox["\[Delta]",
2563        RowBox[{
2564         FormBox[
2565          SubscriptBox["\<\"i\"\>", "1"],
2566          TraditionalForm], ",",
2567         FormBox[
2568          SubscriptBox["\<\"i\"\>", "3"],
2569          TraditionalForm]}]],
2570       TraditionalForm], " ",
2571      FormBox[
2572       SubscriptBox[
2573        SubscriptBox["P", "\<\"-\"\>"],
2574        RowBox[{
2575         FormBox[
2576          SubscriptBox["\<\"s\"\>", "3"],
2577          TraditionalForm], ",",
2578         FormBox[
2579          SubscriptBox["\<\"s\"\>", "1"],
2580          TraditionalForm]}]],
2581       TraditionalForm]}], "v"]}], "-",
2582   FractionBox[
2583    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLh", " ", "MTP", " ",
2584     FormBox[
2585      SubscriptBox["\[Delta]",
2586       RowBox[{
2587        FormBox[
2588         SubscriptBox["\<\"i\"\>", "1"],
2589         TraditionalForm], ",",
2590        FormBox[
2591         SubscriptBox["\<\"i\"\>", "3"],
2592         TraditionalForm]}]],
2593      TraditionalForm], " ",
2594     FormBox[
2595      SubscriptBox[
2596       SubscriptBox["P", "\<\"+\"\>"],
2597       RowBox[{
2598        FormBox[
2599         SubscriptBox["\<\"s\"\>", "3"],
2600         TraditionalForm], ",",
2601        FormBox[
2602         SubscriptBox["\<\"s\"\>", "1"],
2603         TraditionalForm]}]],
2604      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2605 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2606  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2607  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2608  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2609  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2610  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2611  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670381525*^9},
2612 FontSize->7],
2613
2614Cell[BoxData[
2615 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2616* * * *)\"\>", TraditionalForm]], "Print",
2617 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2618  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2619  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2620  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2621  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2622  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2623  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670392026*^9},
2624 FontSize->7],
2625
2626Cell[BoxData[
2627 FormBox[
2628  InterpretationBox[
2629   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "14"}],
2630   SequenceForm["Vertex ", 14],
2631   Editable->False], TraditionalForm]], "Print",
2632 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2633  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2634  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2635  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2636  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2637  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2638  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670396527*^9},
2639 FontSize->7],
2640
2641Cell[BoxData[
2642 FormBox[
2643  InterpretationBox[
2644   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2645    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2646     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2647   SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
2648   Editable->False], TraditionalForm]], "Print",
2649 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2650  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2651  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2652  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2653  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2654  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2655  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704000273`*^9},
2656 FontSize->7],
2657
2658Cell[BoxData[
2659 FormBox[
2660  InterpretationBox[
2661   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2662    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2663    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
2664   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
2665   Editable->False], TraditionalForm]], "Print",
2666 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2667  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2668  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2669  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2670  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2671  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2672  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670410528*^9},
2673 FontSize->7],
2674
2675Cell[BoxData[
2676 FormBox[
2677  InterpretationBox[
2678   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2679    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2680    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2681    FormBox[
2682     OverscriptBox["tp", "\<\"-\"\>"],
2683     TraditionalForm]}],
2684   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
2685   Editable->False], TraditionalForm]], "Print",
2686 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2687  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2688  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2689  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2690  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2691  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2692  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704190297`*^9},
2693 FontSize->7],
2694
2695Cell[BoxData[
2696 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2697 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2698  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2699  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2700  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2701  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2702  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2703  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667042303*^9},
2704 FontSize->7],
2705
2706Cell[BoxData[
2707 FormBox[
2708  RowBox[{
2709   RowBox[{"-",
2710    FractionBox[
2711     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRh", " ", "MTP", " ",
2712      FormBox[
2713       SubscriptBox["\[Delta]",
2714        RowBox[{
2715         FormBox[
2716          SubscriptBox["\<\"i\"\>", "2"],
2717          TraditionalForm], ",",
2718         FormBox[
2719          SubscriptBox["\<\"i\"\>", "3"],
2720          TraditionalForm]}]],
2721       TraditionalForm], " ",
2722      FormBox[
2723       SubscriptBox[
2724        SubscriptBox["P", "\<\"-\"\>"],
2725        RowBox[{
2726         FormBox[
2727          SubscriptBox["\<\"s\"\>", "3"],
2728          TraditionalForm], ",",
2729         FormBox[
2730          SubscriptBox["\<\"s\"\>", "2"],
2731          TraditionalForm]}]],
2732       TraditionalForm]}], "v"]}], "-",
2733   FractionBox[
2734    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLh", " ", "MTP", " ",
2735     FormBox[
2736      SubscriptBox["\[Delta]",
2737       RowBox[{
2738        FormBox[
2739         SubscriptBox["\<\"i\"\>", "2"],
2740         TraditionalForm], ",",
2741        FormBox[
2742         SubscriptBox["\<\"i\"\>", "3"],
2743         TraditionalForm]}]],
2744      TraditionalForm], " ",
2745     FormBox[
2746      SubscriptBox[
2747       SubscriptBox["P", "\<\"+\"\>"],
2748       RowBox[{
2749        FormBox[
2750         SubscriptBox["\<\"s\"\>", "3"],
2751         TraditionalForm], ",",
2752        FormBox[
2753         SubscriptBox["\<\"s\"\>", "2"],
2754         TraditionalForm]}]],
2755      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2756 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2757  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2758  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2759  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2760  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2761  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2762  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704270306`*^9},
2763 FontSize->7],
2764
2765Cell[BoxData[
2766 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2767* * * *)\"\>", TraditionalForm]], "Print",
2768 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2769  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2770  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2771  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2772  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2773  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2774  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704325314`*^9},
2775 FontSize->7],
2776
2777Cell[BoxData[
2778 FormBox[
2779  InterpretationBox[
2780   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "15"}],
2781   SequenceForm["Vertex ", 15],
2782   Editable->False], TraditionalForm]], "Print",
2783 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2784  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2785  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2786  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2787  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2788  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2789  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704430323`*^9},
2790 FontSize->7],
2791
2792Cell[BoxData[
2793 FormBox[
2794  InterpretationBox[
2795   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2796    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2797     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2798   SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
2799   Editable->False], TraditionalForm]], "Print",
2800 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2801  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2802  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2803  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2804  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2805  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2806  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670446533*^9},
2807 FontSize->7],
2808
2809Cell[BoxData[
2810 FormBox[
2811  InterpretationBox[
2812   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2813    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2814    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2815    FormBox[
2816     OverscriptBox["tp", "\<\"-\"\>"],
2817     TraditionalForm]}],
2818   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
2819   Editable->False], TraditionalForm]], "Print",
2820 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2821  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2822  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2823  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2824  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2825  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2826  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670450534*^9},
2827 FontSize->7],
2828
2829Cell[BoxData[
2830 FormBox[
2831  InterpretationBox[
2832   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2833    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2834    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
2835   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`u],
2836   Editable->False], TraditionalForm]], "Print",
2837 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2838  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2839  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2840  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2841  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2842  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2843  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670454534*^9},
2844 FontSize->7],
2845
2846Cell[BoxData[
2847 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2848 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2849  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2850  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2851  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2852  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2853  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2854  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670460035*^9},
2855 FontSize->7],
2856
2857Cell[BoxData[
2858 FormBox[
2859  RowBox[{
2860   RowBox[{"-",
2861    FractionBox[
2862     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRh", " ", "MTP", " ",
2863      FormBox[
2864       SubscriptBox["\[Delta]",
2865        RowBox[{
2866         FormBox[
2867          SubscriptBox["\<\"i\"\>", "2"],
2868          TraditionalForm], ",",
2869         FormBox[
2870          SubscriptBox["\<\"i\"\>", "3"],
2871          TraditionalForm]}]],
2872       TraditionalForm], " ",
2873      FormBox[
2874       SubscriptBox[
2875        SubscriptBox["P", "\<\"-\"\>"],
2876        RowBox[{
2877         FormBox[
2878          SubscriptBox["\<\"s\"\>", "2"],
2879          TraditionalForm], ",",
2880         FormBox[
2881          SubscriptBox["\<\"s\"\>", "3"],
2882          TraditionalForm]}]],
2883       TraditionalForm]}], "v"]}], "-",
2884   FractionBox[
2885    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLh", " ", "MTP", " ",
2886     FormBox[
2887      SubscriptBox["\[Delta]",
2888       RowBox[{
2889        FormBox[
2890         SubscriptBox["\<\"i\"\>", "2"],
2891         TraditionalForm], ",",
2892        FormBox[
2893         SubscriptBox["\<\"i\"\>", "3"],
2894         TraditionalForm]}]],
2895      TraditionalForm], " ",
2896     FormBox[
2897      SubscriptBox[
2898       SubscriptBox["P", "\<\"+\"\>"],
2899       RowBox[{
2900        FormBox[
2901         SubscriptBox["\<\"s\"\>", "2"],
2902         TraditionalForm], ",",
2903        FormBox[
2904         SubscriptBox["\<\"s\"\>", "3"],
2905         TraditionalForm]}]],
2906      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
2907 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2908  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2909  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2910  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2911  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2912  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2913  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670469536*^9},
2914 FontSize->7],
2915
2916Cell[BoxData[
2917 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
2918* * * *)\"\>", TraditionalForm]], "Print",
2919 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2920  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2921  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2922  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2923  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2924  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2925  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670474036*^9},
2926 FontSize->7],
2927
2928Cell[BoxData[
2929 FormBox[
2930  InterpretationBox[
2931   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "16"}],
2932   SequenceForm["Vertex ", 16],
2933   Editable->False], TraditionalForm]], "Print",
2934 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2935  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2936  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2937  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2938  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2939  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2940  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670478037*^9},
2941 FontSize->7],
2942
2943Cell[BoxData[
2944 FormBox[
2945  InterpretationBox[
2946   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
2947    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
2948     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
2949   SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
2950   Editable->False], TraditionalForm]], "Print",
2951 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2952  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2953  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2954  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2955  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2956  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2957  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704820375`*^9},
2958 FontSize->7],
2959
2960Cell[BoxData[
2961 FormBox[
2962  InterpretationBox[
2963   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
2964    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2965    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
2966   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
2967   Editable->False], TraditionalForm]], "Print",
2968 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2969  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2970  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2971  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2972  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2973  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2974  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704920387`*^9},
2975 FontSize->7],
2976
2977Cell[BoxData[
2978 FormBox[
2979  InterpretationBox[
2980   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
2981    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
2982    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
2983    FormBox[
2984     OverscriptBox["u", "\<\"-\"\>"],
2985     TraditionalForm]}],
2986   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
2987   Editable->False], TraditionalForm]], "Print",
2988 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
2989  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
2990  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
2991  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
2992  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
2993  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
2994  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066704960394`*^9},
2995 FontSize->7],
2996
2997Cell[BoxData[
2998 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
2999 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3000  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3001  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3002  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3003  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3004  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3005  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667050104*^9},
3006 FontSize->7],
3007
3008Cell[BoxData[
3009 FormBox[
3010  RowBox[{
3011   RowBox[{"-",
3012    FractionBox[
3013     RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLh", " ", "MTP", " ",
3014      FormBox[
3015       SubscriptBox["\[Delta]",
3016        RowBox[{
3017         FormBox[
3018          SubscriptBox["\<\"i\"\>", "2"],
3019          TraditionalForm], ",",
3020         FormBox[
3021          SubscriptBox["\<\"i\"\>", "3"],
3022          TraditionalForm]}]],
3023       TraditionalForm], " ",
3024      FormBox[
3025       SubscriptBox[
3026        SubscriptBox["P", "\<\"-\"\>"],
3027        RowBox[{
3028         FormBox[
3029          SubscriptBox["\<\"s\"\>", "3"],
3030          TraditionalForm], ",",
3031         FormBox[
3032          SubscriptBox["\<\"s\"\>", "2"],
3033          TraditionalForm]}]],
3034       TraditionalForm]}], "v"]}], "-",
3035   FractionBox[
3036    RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRh", " ", "MTP", " ",
3037     FormBox[
3038      SubscriptBox["\[Delta]",
3039       RowBox[{
3040        FormBox[
3041         SubscriptBox["\<\"i\"\>", "2"],
3042         TraditionalForm], ",",
3043        FormBox[
3044         SubscriptBox["\<\"i\"\>", "3"],
3045         TraditionalForm]}]],
3046      TraditionalForm], " ",
3047     FormBox[
3048      SubscriptBox[
3049       SubscriptBox["P", "\<\"+\"\>"],
3050       RowBox[{
3051        FormBox[
3052         SubscriptBox["\<\"s\"\>", "3"],
3053         TraditionalForm], ",",
3054        FormBox[
3055         SubscriptBox["\<\"s\"\>", "2"],
3056         TraditionalForm]}]],
3057      TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
3058 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3059  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3060  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3061  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3062  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3063  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3064  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667050504*^9},
3065 FontSize->7],
3066
3067Cell[BoxData[
3068 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3069* * * *)\"\>", TraditionalForm]], "Print",
3070 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3071  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3072  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3073  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3074  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3075  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3076  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670515542*^9},
3077 FontSize->7],
3078
3079Cell[BoxData[
3080 FormBox[
3081  InterpretationBox[
3082   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "17"}],
3083   SequenceForm["Vertex ", 17],
3084   Editable->False], TraditionalForm]], "Print",
3085 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3086  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3087  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3088  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3089  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3090  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3091  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705200424`*^9},
3092 FontSize->7],
3093
3094Cell[BoxData[
3095 FormBox[
3096  InterpretationBox[
3097   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3098    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3099    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
3100   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
3101   Editable->False], TraditionalForm]], "Print",
3102 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3103  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3104  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3105  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3106  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3107  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3108  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670523543*^9},
3109 FontSize->7],
3110
3111Cell[BoxData[
3112 FormBox[
3113  InterpretationBox[
3114   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3115    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3116    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3117    FormBox[
3118     OverscriptBox["bp", "\<\"-\"\>"],
3119     TraditionalForm]}],
3120   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
3121   Editable->False], TraditionalForm]], "Print",
3122 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3123  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3124  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3125  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3126  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3127  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3128  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670527543*^9},
3129 FontSize->7],
3130
3131Cell[BoxData[
3132 FormBox[
3133  InterpretationBox[
3134   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3135    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3136     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3137   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
3138   Editable->False], TraditionalForm]], "Print",
3139 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3140  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3141  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3142  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3143  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3144  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3145  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670532544*^9},
3146 FontSize->7],
3147
3148Cell[BoxData[
3149 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3150 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3151  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3152  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3153  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3154  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3155  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3156  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705435457`*^9},
3157 FontSize->7],
3158
3159Cell[BoxData[
3160 FormBox[
3161  RowBox[{"\[ImaginaryI]", " ",
3162   FormBox[
3163    SubscriptBox["g", "s"],
3164    TraditionalForm], " ",
3165   FormBox[
3166    SubsuperscriptBox["T",
3167     RowBox[{
3168      FormBox[
3169       SubscriptBox["\<\"i\"\>", "2"],
3170       TraditionalForm], ",",
3171      FormBox[
3172       SubscriptBox["\<\"i\"\>", "1"],
3173       TraditionalForm]}],
3174     FormBox[
3175      SubscriptBox["\<\"a\"\>", "3"],
3176      TraditionalForm]],
3177    TraditionalForm], " ",
3178   FormBox[
3179    SubsuperscriptBox["\[Gamma]",
3180     RowBox[{
3181      FormBox[
3182       SubscriptBox["\<\"s\"\>", "2"],
3183       TraditionalForm], ",",
3184      FormBox[
3185       SubscriptBox["\<\"s\"\>", "1"],
3186       TraditionalForm]}],
3187     FormBox[
3188      SubscriptBox["\<\"\[Mu]\"\>", "3"],
3189      TraditionalForm]],
3190    TraditionalForm]}], TraditionalForm]], "Print",
3191 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3192  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3193  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3194  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3195  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3196  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3197  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670547546*^9},
3198 FontSize->7],
3199
3200Cell[BoxData[
3201 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3202* * * *)\"\>", TraditionalForm]], "Print",
3203 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3204  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3205  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3206  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3207  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3208  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3209  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705525465`*^9},
3210 FontSize->7],
3211
3212Cell[BoxData[
3213 FormBox[
3214  InterpretationBox[
3215   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "18"}],
3216   SequenceForm["Vertex ", 18],
3217   Editable->False], TraditionalForm]], "Print",
3218 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3219  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3220  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3221  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3222  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3223  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3224  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670558547*^9},
3225 FontSize->7],
3226
3227Cell[BoxData[
3228 FormBox[
3229  InterpretationBox[
3230   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3231    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3232     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3233   SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
3234   Editable->False], TraditionalForm]], "Print",
3235 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3236  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3237  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3238  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3239  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3240  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3241  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705665483`*^9},
3242 FontSize->7],
3243
3244Cell[BoxData[
3245 FormBox[
3246  InterpretationBox[
3247   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3248    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3249    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
3250   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
3251   Editable->False], TraditionalForm]], "Print",
3252 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3253  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3254  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3255  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3256  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3257  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3258  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670570549*^9},
3259 FontSize->7],
3260
3261Cell[BoxData[
3262 FormBox[
3263  InterpretationBox[
3264   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3265    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3266    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3267    FormBox[
3268     OverscriptBox["tp", "\<\"-\"\>"],
3269     TraditionalForm]}],
3270   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
3271   Editable->False], TraditionalForm]], "Print",
3272 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3273  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3274  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3275  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3276  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3277  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3278  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670574049*^9},
3279 FontSize->7],
3280
3281Cell[BoxData[
3282 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3283 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3284  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3285  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3286  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3287  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3288  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3289  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705780497`*^9},
3290 FontSize->7],
3291
3292Cell[BoxData[
3293 FormBox[
3294  RowBox[{"\[ImaginaryI]", " ",
3295   FormBox[
3296    SubscriptBox["g", "s"],
3297    TraditionalForm], " ",
3298   FormBox[
3299    SubsuperscriptBox["T",
3300     RowBox[{
3301      FormBox[
3302       SubscriptBox["\<\"i\"\>", "3"],
3303       TraditionalForm], ",",
3304      FormBox[
3305       SubscriptBox["\<\"i\"\>", "2"],
3306       TraditionalForm]}],
3307     FormBox[
3308      SubscriptBox["\<\"a\"\>", "1"],
3309      TraditionalForm]],
3310    TraditionalForm], " ",
3311   FormBox[
3312    SubsuperscriptBox["\[Gamma]",
3313     RowBox[{
3314      FormBox[
3315       SubscriptBox["\<\"s\"\>", "3"],
3316       TraditionalForm], ",",
3317      FormBox[
3318       SubscriptBox["\<\"s\"\>", "2"],
3319       TraditionalForm]}],
3320     FormBox[
3321      SubscriptBox["\<\"\[Mu]\"\>", "1"],
3322      TraditionalForm]],
3323    TraditionalForm]}], TraditionalForm]], "Print",
3324 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3325  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3326  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3327  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3328  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3329  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3330  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705830507`*^9},
3331 FontSize->7],
3332
3333Cell[BoxData[
3334 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3335* * * *)\"\>", TraditionalForm]], "Print",
3336 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3337  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3338  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3339  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3340  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3341  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3342  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670595052*^9},
3343 FontSize->7],
3344
3345Cell[BoxData[
3346 FormBox[
3347  InterpretationBox[
3348   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "19"}],
3349   SequenceForm["Vertex ", 19],
3350   Editable->False], TraditionalForm]], "Print",
3351 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3352  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3353  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3354  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3355  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3356  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3357  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066705990524`*^9},
3358 FontSize->7],
3359
3360Cell[BoxData[
3361 FormBox[
3362  InterpretationBox[
3363   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3364    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3365     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3366   SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
3367   Editable->False], TraditionalForm]], "Print",
3368 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3369  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3370  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3371  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3372  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3373  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3374  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670603053*^9},
3375 FontSize->7],
3376
3377Cell[BoxData[
3378 FormBox[
3379  InterpretationBox[
3380   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3381    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3382    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
3383   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`x],
3384   Editable->False], TraditionalForm]], "Print",
3385 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3386  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3387  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3388  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3389  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3390  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3391  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706075535`*^9},
3392 FontSize->7],
3393
3394Cell[BoxData[
3395 FormBox[
3396  InterpretationBox[
3397   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3398    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3399    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3400    FormBox[
3401     OverscriptBox["x", "\<\"-\"\>"],
3402     TraditionalForm]}],
3403   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
3404   Editable->False], TraditionalForm]], "Print",
3405 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3406  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3407  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3408  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3409  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3410  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3411  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706175547`*^9},
3412 FontSize->7],
3413
3414Cell[BoxData[
3415 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3416 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3417  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3418  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3419  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3420  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3421  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3422  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706215553`*^9},
3423 FontSize->7],
3424
3425Cell[BoxData[
3426 FormBox[
3427  RowBox[{"\[ImaginaryI]", " ",
3428   FormBox[
3429    SubscriptBox["g", "s"],
3430    TraditionalForm], " ",
3431   FormBox[
3432    SubsuperscriptBox["T",
3433     RowBox[{
3434      FormBox[
3435       SubscriptBox["\<\"i\"\>", "3"],
3436       TraditionalForm], ",",
3437      FormBox[
3438       SubscriptBox["\<\"i\"\>", "2"],
3439       TraditionalForm]}],
3440     FormBox[
3441      SubscriptBox["\<\"a\"\>", "1"],
3442      TraditionalForm]],
3443    TraditionalForm], " ",
3444   FormBox[
3445    SubsuperscriptBox["\[Gamma]",
3446     RowBox[{
3447      FormBox[
3448       SubscriptBox["\<\"s\"\>", "3"],
3449       TraditionalForm], ",",
3450      FormBox[
3451       SubscriptBox["\<\"s\"\>", "2"],
3452       TraditionalForm]}],
3453     FormBox[
3454      SubscriptBox["\<\"\[Mu]\"\>", "1"],
3455      TraditionalForm]],
3456    TraditionalForm]}], TraditionalForm]], "Print",
3457 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3458  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3459  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3460  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3461  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3462  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3463  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670625556*^9},
3464 FontSize->7],
3465
3466Cell[BoxData[
3467 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3468* * * *)\"\>", TraditionalForm]], "Print",
3469 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3470  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3471  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3472  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3473  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3474  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3475  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706300564`*^9},
3476 FontSize->7],
3477
3478Cell[BoxData[
3479 FormBox[
3480  InterpretationBox[
3481   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "20"}],
3482   SequenceForm["Vertex ", 20],
3483   Editable->False], TraditionalForm]], "Print",
3484 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3485  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3486  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3487  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3488  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3489  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3490  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670634557*^9},
3491 FontSize->7],
3492
3493Cell[BoxData[
3494 FormBox[
3495  InterpretationBox[
3496   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3497    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3498     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
3499   SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
3500   Editable->False], TraditionalForm]], "Print",
3501 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3502  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3503  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3504  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3505  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3506  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3507  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670644058*^9},
3508 FontSize->7],
3509
3510Cell[BoxData[
3511 FormBox[
3512  InterpretationBox[
3513   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3514    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3515    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
3516   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`y],
3517   Editable->False], TraditionalForm]], "Print",
3518 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3519  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3520  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3521  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3522  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3523  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3524  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670649059*^9},
3525 FontSize->7],
3526
3527Cell[BoxData[
3528 FormBox[
3529  InterpretationBox[
3530   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3531    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3532    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3533    FormBox[
3534     OverscriptBox["y", "\<\"-\"\>"],
3535     TraditionalForm]}],
3536   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
3537   Editable->False], TraditionalForm]], "Print",
3538 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3539  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3540  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3541  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3542  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3543  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3544  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706540594`*^9},
3545 FontSize->7],
3546
3547Cell[BoxData[
3548 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3549 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3550  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3551  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3552  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3553  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3554  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3555  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667065956*^9},
3556 FontSize->7],
3557
3558Cell[BoxData[
3559 FormBox[
3560  RowBox[{"\[ImaginaryI]", " ",
3561   FormBox[
3562    SubscriptBox["g", "s"],
3563    TraditionalForm], " ",
3564   FormBox[
3565    SubsuperscriptBox["T",
3566     RowBox[{
3567      FormBox[
3568       SubscriptBox["\<\"i\"\>", "3"],
3569       TraditionalForm], ",",
3570      FormBox[
3571       SubscriptBox["\<\"i\"\>", "2"],
3572       TraditionalForm]}],
3573     FormBox[
3574      SubscriptBox["\<\"a\"\>", "1"],
3575      TraditionalForm]],
3576    TraditionalForm], " ",
3577   FormBox[
3578    SubsuperscriptBox["\[Gamma]",
3579     RowBox[{
3580      FormBox[
3581       SubscriptBox["\<\"s\"\>", "3"],
3582       TraditionalForm], ",",
3583      FormBox[
3584       SubscriptBox["\<\"s\"\>", "2"],
3585       TraditionalForm]}],
3586     FormBox[
3587      SubscriptBox["\<\"\[Mu]\"\>", "1"],
3588      TraditionalForm]],
3589    TraditionalForm]}], TraditionalForm]], "Print",
3590 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3591  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3592  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3593  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3594  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3595  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3596  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670668561*^9},
3597 FontSize->7],
3598
3599Cell[BoxData[
3600 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3601* * * *)\"\>", TraditionalForm]], "Print",
3602 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3603  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3604  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3605  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3606  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3607  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3608  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670673562*^9},
3609 FontSize->7],
3610
3611Cell[BoxData[
3612 FormBox[
3613  InterpretationBox[
3614   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "21"}],
3615   SequenceForm["Vertex ", 21],
3616   Editable->False], TraditionalForm]], "Print",
3617 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3618  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3619  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3620  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3621  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3622  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3623  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706775627`*^9},
3624 FontSize->7],
3625
3626Cell[BoxData[
3627 FormBox[
3628  InterpretationBox[
3629   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3630    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3631    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
3632   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
3633   Editable->False], TraditionalForm]], "Print",
3634 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3635  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3636  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3637  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3638  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3639  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3640  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670682563*^9},
3641 FontSize->7],
3642
3643Cell[BoxData[
3644 FormBox[
3645  InterpretationBox[
3646   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3647    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3648    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3649    FormBox[
3650     OverscriptBox["tp", "\<\"-\"\>"],
3651     TraditionalForm]}],
3652   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
3653   Editable->False], TraditionalForm]], "Print",
3654 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3655  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3656  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3657  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3658  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3659  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3660  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706925645`*^9},
3661 FontSize->7],
3662
3663Cell[BoxData[
3664 FormBox[
3665  InterpretationBox[
3666   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3667    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3668     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
3669   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
3670   Editable->False], TraditionalForm]], "Print",
3671 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3672  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3673  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3674  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3675  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3676  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3677  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066706965647`*^9},
3678 FontSize->7],
3679
3680Cell[BoxData[
3681 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3682 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3683  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3684  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3685  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3686  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3687  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3688  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707005653`*^9},
3689 FontSize->7],
3690
3691Cell[BoxData[
3692 FormBox[
3693  RowBox[{
3694   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLw", " ",
3695    FormBox[
3696     SubscriptBox["\[Delta]",
3697      RowBox[{
3698       FormBox[
3699        SubscriptBox["\<\"i\"\>", "1"],
3700        TraditionalForm], ",",
3701       FormBox[
3702        SubscriptBox["\<\"i\"\>", "2"],
3703        TraditionalForm]}]],
3704     TraditionalForm], " ",
3705    FormBox[
3706     SubscriptBox[
3707      RowBox[{
3708       FormBox[
3709        SuperscriptBox["\[Gamma]",
3710         FormBox[
3711          SubscriptBox["\<\"\[Mu]\"\>", "3"],
3712          TraditionalForm]],
3713        TraditionalForm], ".",
3714       FormBox[
3715        SubscriptBox["P", "\<\"-\"\>"],
3716        TraditionalForm]}],
3717      RowBox[{
3718       FormBox[
3719        SubscriptBox["\<\"s\"\>", "2"],
3720        TraditionalForm], ",",
3721       FormBox[
3722        SubscriptBox["\<\"s\"\>", "1"],
3723        TraditionalForm]}]],
3724     TraditionalForm]}], "+",
3725   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRw", " ",
3726    FormBox[
3727     SubscriptBox["\[Delta]",
3728      RowBox[{
3729       FormBox[
3730        SubscriptBox["\<\"i\"\>", "1"],
3731        TraditionalForm], ",",
3732       FormBox[
3733        SubscriptBox["\<\"i\"\>", "2"],
3734        TraditionalForm]}]],
3735     TraditionalForm], " ",
3736    FormBox[
3737     SubscriptBox[
3738      RowBox[{
3739       FormBox[
3740        SuperscriptBox["\[Gamma]",
3741         FormBox[
3742          SubscriptBox["\<\"\[Mu]\"\>", "3"],
3743          TraditionalForm]],
3744        TraditionalForm], ".",
3745       FormBox[
3746        SubscriptBox["P", "\<\"+\"\>"],
3747        TraditionalForm]}],
3748      RowBox[{
3749       FormBox[
3750        SubscriptBox["\<\"s\"\>", "2"],
3751        TraditionalForm], ",",
3752       FormBox[
3753        SubscriptBox["\<\"s\"\>", "1"],
3754        TraditionalForm]}]],
3755     TraditionalForm]}]}], TraditionalForm]], "Print",
3756 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3757  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3758  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3759  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3760  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3761  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3762  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707050657`*^9},
3763 FontSize->7],
3764
3765Cell[BoxData[
3766 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3767* * * *)\"\>", TraditionalForm]], "Print",
3768 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3769  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3770  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3771  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3772  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3773  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3774  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670715567*^9},
3775 FontSize->7],
3776
3777Cell[BoxData[
3778 FormBox[
3779  InterpretationBox[
3780   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "22"}],
3781   SequenceForm["Vertex ", 22],
3782   Editable->False], TraditionalForm]], "Print",
3783 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3784  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3785  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3786  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3787  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3788  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3789  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707195673`*^9},
3790 FontSize->7],
3791
3792Cell[BoxData[
3793 FormBox[
3794  InterpretationBox[
3795   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3796    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3797    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
3798   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
3799   Editable->False], TraditionalForm]], "Print",
3800 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3801  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3802  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3803  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3804  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3805  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3806  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707345695`*^9},
3807 FontSize->7],
3808
3809Cell[BoxData[
3810 FormBox[
3811  InterpretationBox[
3812   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3813    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3814    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3815    FormBox[
3816     OverscriptBox["tp", "\<\"-\"\>"],
3817     TraditionalForm]}],
3818   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
3819   Editable->False], TraditionalForm]], "Print",
3820 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3821  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3822  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3823  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3824  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3825  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3826  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670743571*^9},
3827 FontSize->7],
3828
3829Cell[BoxData[
3830 FormBox[
3831  InterpretationBox[
3832   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3833    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
3834     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
3835   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
3836   Editable->False], TraditionalForm]], "Print",
3837 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3838  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3839  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3840  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3841  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3842  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3843  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670747571*^9},
3844 FontSize->7],
3845
3846Cell[BoxData[
3847 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
3848 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3849  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3850  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3851  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3852  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3853  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3854  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670753072*^9},
3855 FontSize->7],
3856
3857Cell[BoxData[
3858 FormBox[
3859  RowBox[{
3860   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLw", " ",
3861    FormBox[
3862     SubscriptBox["\[Delta]",
3863      RowBox[{
3864       FormBox[
3865        SubscriptBox["\<\"i\"\>", "1"],
3866        TraditionalForm], ",",
3867       FormBox[
3868        SubscriptBox["\<\"i\"\>", "2"],
3869        TraditionalForm]}]],
3870     TraditionalForm], " ",
3871    FormBox[
3872     SubscriptBox[
3873      RowBox[{
3874       FormBox[
3875        SuperscriptBox["\[Gamma]",
3876         FormBox[
3877          SubscriptBox["\<\"\[Mu]\"\>", "3"],
3878          TraditionalForm]],
3879        TraditionalForm], ".",
3880       FormBox[
3881        SubscriptBox["P", "\<\"-\"\>"],
3882        TraditionalForm]}],
3883      RowBox[{
3884       FormBox[
3885        SubscriptBox["\<\"s\"\>", "2"],
3886        TraditionalForm], ",",
3887       FormBox[
3888        SubscriptBox["\<\"s\"\>", "1"],
3889        TraditionalForm]}]],
3890     TraditionalForm]}], "+",
3891   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRw", " ",
3892    FormBox[
3893     SubscriptBox["\[Delta]",
3894      RowBox[{
3895       FormBox[
3896        SubscriptBox["\<\"i\"\>", "1"],
3897        TraditionalForm], ",",
3898       FormBox[
3899        SubscriptBox["\<\"i\"\>", "2"],
3900        TraditionalForm]}]],
3901     TraditionalForm], " ",
3902    FormBox[
3903     SubscriptBox[
3904      RowBox[{
3905       FormBox[
3906        SuperscriptBox["\[Gamma]",
3907         FormBox[
3908          SubscriptBox["\<\"\[Mu]\"\>", "3"],
3909          TraditionalForm]],
3910        TraditionalForm], ".",
3911       FormBox[
3912        SubscriptBox["P", "\<\"+\"\>"],
3913        TraditionalForm]}],
3914      RowBox[{
3915       FormBox[
3916        SubscriptBox["\<\"s\"\>", "2"],
3917        TraditionalForm], ",",
3918       FormBox[
3919        SubscriptBox["\<\"s\"\>", "1"],
3920        TraditionalForm]}]],
3921     TraditionalForm]}]}], TraditionalForm]], "Print",
3922 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3923  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3924  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3925  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3926  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3927  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3928  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707570724`*^9},
3929 FontSize->7],
3930
3931Cell[BoxData[
3932 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
3933* * * *)\"\>", TraditionalForm]], "Print",
3934 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3935  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3936  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3937  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3938  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3939  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3940  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670778575*^9},
3941 FontSize->7],
3942
3943Cell[BoxData[
3944 FormBox[
3945  InterpretationBox[
3946   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "23"}],
3947   SequenceForm["Vertex ", 23],
3948   Editable->False], TraditionalForm]], "Print",
3949 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3950  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3951  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3952  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3953  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3954  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3955  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670790577*^9},
3956 FontSize->7],
3957
3958Cell[BoxData[
3959 FormBox[
3960  InterpretationBox[
3961   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
3962    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3963    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
3964   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
3965   Editable->False], TraditionalForm]], "Print",
3966 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3967  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3968  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3969  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3970  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3971  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3972  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670794577*^9},
3973 FontSize->7],
3974
3975Cell[BoxData[
3976 FormBox[
3977  InterpretationBox[
3978   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
3979    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
3980    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
3981    FormBox[
3982     OverscriptBox["tp", "\<\"-\"\>"],
3983     TraditionalForm]}],
3984   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
3985   Editable->False], TraditionalForm]], "Print",
3986 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
3987  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
3988  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
3989  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
3990  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
3991  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
3992  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066707985773`*^9},
3993 FontSize->7],
3994
3995Cell[BoxData[
3996 FormBox[
3997  InterpretationBox[
3998   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
3999    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4000     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4001   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
4002   Editable->False], TraditionalForm]], "Print",
4003 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4004  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4005  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4006  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4007  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4008  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4009  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708025784`*^9},
4010 FontSize->7],
4011
4012Cell[BoxData[
4013 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4014 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4015  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4016  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4017  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4018  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4019  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4020  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670808579*^9},
4021 FontSize->7],
4022
4023Cell[BoxData[
4024 FormBox[
4025  RowBox[{
4026   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLw", " ",
4027    FormBox[
4028     SubscriptBox["\[Delta]",
4029      RowBox[{
4030       FormBox[
4031        SubscriptBox["\<\"i\"\>", "1"],
4032        TraditionalForm], ",",
4033       FormBox[
4034        SubscriptBox["\<\"i\"\>", "2"],
4035        TraditionalForm]}]],
4036     TraditionalForm], " ",
4037    FormBox[
4038     SubscriptBox[
4039      RowBox[{
4040       FormBox[
4041        SuperscriptBox["\[Gamma]",
4042         FormBox[
4043          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4044          TraditionalForm]],
4045        TraditionalForm], ".",
4046       FormBox[
4047        SubscriptBox["P", "\<\"-\"\>"],
4048        TraditionalForm]}],
4049      RowBox[{
4050       FormBox[
4051        SubscriptBox["\<\"s\"\>", "2"],
4052        TraditionalForm], ",",
4053       FormBox[
4054        SubscriptBox["\<\"s\"\>", "1"],
4055        TraditionalForm]}]],
4056     TraditionalForm]}], "+",
4057   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRw", " ",
4058    FormBox[
4059     SubscriptBox["\[Delta]",
4060      RowBox[{
4061       FormBox[
4062        SubscriptBox["\<\"i\"\>", "1"],
4063        TraditionalForm], ",",
4064       FormBox[
4065        SubscriptBox["\<\"i\"\>", "2"],
4066        TraditionalForm]}]],
4067     TraditionalForm], " ",
4068    FormBox[
4069     SubscriptBox[
4070      RowBox[{
4071       FormBox[
4072        SuperscriptBox["\[Gamma]",
4073         FormBox[
4074          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4075          TraditionalForm]],
4076        TraditionalForm], ".",
4077       FormBox[
4078        SubscriptBox["P", "\<\"+\"\>"],
4079        TraditionalForm]}],
4080      RowBox[{
4081       FormBox[
4082        SubscriptBox["\<\"s\"\>", "2"],
4083        TraditionalForm], ",",
4084       FormBox[
4085        SubscriptBox["\<\"s\"\>", "1"],
4086        TraditionalForm]}]],
4087     TraditionalForm]}]}], TraditionalForm]], "Print",
4088 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4089  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4090  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4091  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4092  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4093  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4094  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667081708*^9},
4095 FontSize->7],
4096
4097Cell[BoxData[
4098 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4099* * * *)\"\>", TraditionalForm]], "Print",
4100 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4101  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4102  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4103  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4104  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4105  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4106  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670824081*^9},
4107 FontSize->7],
4108
4109Cell[BoxData[
4110 FormBox[
4111  InterpretationBox[
4112   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "24"}],
4113   SequenceForm["Vertex ", 24],
4114   Editable->False], TraditionalForm]], "Print",
4115 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4116  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4117  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4118  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4119  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4120  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4121  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708280816`*^9},
4122 FontSize->7],
4123
4124Cell[BoxData[
4125 FormBox[
4126  InterpretationBox[
4127   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4128    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4129    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
4130   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
4131   Editable->False], TraditionalForm]], "Print",
4132 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4133  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4134  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4135  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4136  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4137  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4138  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670832582*^9},
4139 FontSize->7],
4140
4141Cell[BoxData[
4142 FormBox[
4143  InterpretationBox[
4144   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4145    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4146    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4147    FormBox[
4148     OverscriptBox["u", "\<\"-\"\>"],
4149     TraditionalForm]}],
4150   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
4151   Editable->False], TraditionalForm]], "Print",
4152 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4153  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4154  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4155  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4156  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4157  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4158  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708430834`*^9},
4159 FontSize->7],
4160
4161Cell[BoxData[
4162 FormBox[
4163  InterpretationBox[
4164   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4165    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4166     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4167   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
4168   Editable->False], TraditionalForm]], "Print",
4169 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4170  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4171  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4172  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4173  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4174  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4175  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670847084*^9},
4176 FontSize->7],
4177
4178Cell[BoxData[
4179 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4180 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4181  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4182  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4183  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4184  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4185  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4186  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708505845`*^9},
4187 FontSize->7],
4188
4189Cell[BoxData[
4190 FormBox[
4191  RowBox[{
4192   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLw", " ",
4193    FormBox[
4194     SubscriptBox["\[Delta]",
4195      RowBox[{
4196       FormBox[
4197        SubscriptBox["\<\"i\"\>", "1"],
4198        TraditionalForm], ",",
4199       FormBox[
4200        SubscriptBox["\<\"i\"\>", "2"],
4201        TraditionalForm]}]],
4202     TraditionalForm], " ",
4203    FormBox[
4204     SubscriptBox[
4205      RowBox[{
4206       FormBox[
4207        SuperscriptBox["\[Gamma]",
4208         FormBox[
4209          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4210          TraditionalForm]],
4211        TraditionalForm], ".",
4212       FormBox[
4213        SubscriptBox["P", "\<\"-\"\>"],
4214        TraditionalForm]}],
4215      RowBox[{
4216       FormBox[
4217        SubscriptBox["\<\"s\"\>", "2"],
4218        TraditionalForm], ",",
4219       FormBox[
4220        SubscriptBox["\<\"s\"\>", "1"],
4221        TraditionalForm]}]],
4222     TraditionalForm]}], "+",
4223   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRw", " ",
4224    FormBox[
4225     SubscriptBox["\[Delta]",
4226      RowBox[{
4227       FormBox[
4228        SubscriptBox["\<\"i\"\>", "1"],
4229        TraditionalForm], ",",
4230       FormBox[
4231        SubscriptBox["\<\"i\"\>", "2"],
4232        TraditionalForm]}]],
4233     TraditionalForm], " ",
4234    FormBox[
4235     SubscriptBox[
4236      RowBox[{
4237       FormBox[
4238        SuperscriptBox["\[Gamma]",
4239         FormBox[
4240          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4241          TraditionalForm]],
4242        TraditionalForm], ".",
4243       FormBox[
4244        SubscriptBox["P", "\<\"+\"\>"],
4245        TraditionalForm]}],
4246      RowBox[{
4247       FormBox[
4248        SubscriptBox["\<\"s\"\>", "2"],
4249        TraditionalForm], ",",
4250       FormBox[
4251        SubscriptBox["\<\"s\"\>", "1"],
4252        TraditionalForm]}]],
4253     TraditionalForm]}]}], TraditionalForm]], "Print",
4254 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4255  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4256  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4257  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4258  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4259  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4260  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708545847`*^9},
4261 FontSize->7],
4262
4263Cell[BoxData[
4264 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4265* * * *)\"\>", TraditionalForm]], "Print",
4266 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4267  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4268  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4269  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4270  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4271  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4272  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708660865`*^9},
4273 FontSize->7],
4274
4275Cell[BoxData[
4276 FormBox[
4277  InterpretationBox[
4278   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "25"}],
4279   SequenceForm["Vertex ", 25],
4280   Editable->False], TraditionalForm]], "Print",
4281 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4282  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4283  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4284  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4285  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4286  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4287  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670871587*^9},
4288 FontSize->7],
4289
4290Cell[BoxData[
4291 FormBox[
4292  InterpretationBox[
4293   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4294    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4295    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
4296   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
4297   Editable->False], TraditionalForm]], "Print",
4298 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4299  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4300  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4301  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4302  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4303  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4304  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708760877`*^9},
4305 FontSize->7],
4306
4307Cell[BoxData[
4308 FormBox[
4309  InterpretationBox[
4310   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4311    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4312     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4313   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
4314   Editable->False], TraditionalForm]], "Print",
4315 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4316  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4317  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4318  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4319  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4320  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4321  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670879588*^9},
4322 FontSize->7],
4323
4324Cell[BoxData[
4325 FormBox[
4326  InterpretationBox[
4327   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4328    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4329    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4330    FormBox[
4331     OverscriptBox["x", "\<\"-\"\>"],
4332     TraditionalForm]}],
4333   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
4334   Editable->False], TraditionalForm]], "Print",
4335 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4336  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4337  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4338  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4339  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4340  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4341  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708905897`*^9},
4342 FontSize->7],
4343
4344Cell[BoxData[
4345 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4346 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4347  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4348  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4349  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4350  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4351  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4352  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667089459*^9},
4353 FontSize->7],
4354
4355Cell[BoxData[
4356 FormBox[
4357  RowBox[{
4358   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcL", " ",
4359    FormBox[
4360     SubscriptBox["\[Delta]",
4361      RowBox[{
4362       FormBox[
4363        SubscriptBox["\<\"i\"\>", "1"],
4364        TraditionalForm], ",",
4365       FormBox[
4366        SubscriptBox["\<\"i\"\>", "3"],
4367        TraditionalForm]}]],
4368     TraditionalForm], " ",
4369    FormBox[
4370     SubscriptBox[
4371      RowBox[{
4372       FormBox[
4373        SuperscriptBox["\[Gamma]",
4374         FormBox[
4375          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4376          TraditionalForm]],
4377        TraditionalForm], ".",
4378       FormBox[
4379        SubscriptBox["P", "\<\"-\"\>"],
4380        TraditionalForm]}],
4381      RowBox[{
4382       FormBox[
4383        SubscriptBox["\<\"s\"\>", "3"],
4384        TraditionalForm], ",",
4385       FormBox[
4386        SubscriptBox["\<\"s\"\>", "1"],
4387        TraditionalForm]}]],
4388     TraditionalForm]}], "+",
4389   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcR", " ",
4390    FormBox[
4391     SubscriptBox["\[Delta]",
4392      RowBox[{
4393       FormBox[
4394        SubscriptBox["\<\"i\"\>", "1"],
4395        TraditionalForm], ",",
4396       FormBox[
4397        SubscriptBox["\<\"i\"\>", "3"],
4398        TraditionalForm]}]],
4399     TraditionalForm], " ",
4400    FormBox[
4401     SubscriptBox[
4402      RowBox[{
4403       FormBox[
4404        SuperscriptBox["\[Gamma]",
4405         FormBox[
4406          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4407          TraditionalForm]],
4408        TraditionalForm], ".",
4409       FormBox[
4410        SubscriptBox["P", "\<\"+\"\>"],
4411        TraditionalForm]}],
4412      RowBox[{
4413       FormBox[
4414        SubscriptBox["\<\"s\"\>", "3"],
4415        TraditionalForm], ",",
4416       FormBox[
4417        SubscriptBox["\<\"s\"\>", "1"],
4418        TraditionalForm]}]],
4419     TraditionalForm]}]}], TraditionalForm]], "Print",
4420 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4421  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4422  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4423  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4424  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4425  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4426  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066708995905`*^9},
4427 FontSize->7],
4428
4429Cell[BoxData[
4430 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4431* * * *)\"\>", TraditionalForm]], "Print",
4432 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4433  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4434  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4435  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4436  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4437  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4438  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709085913`*^9},
4439 FontSize->7],
4440
4441Cell[BoxData[
4442 FormBox[
4443  InterpretationBox[
4444   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "26"}],
4445   SequenceForm["Vertex ", 26],
4446   Editable->False], TraditionalForm]], "Print",
4447 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4448  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4449  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4450  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4451  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4452  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4453  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709180927`*^9},
4454 FontSize->7],
4455
4456Cell[BoxData[
4457 FormBox[
4458  InterpretationBox[
4459   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4460    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4461    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
4462   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
4463   Editable->False], TraditionalForm]], "Print",
4464 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4465  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4466  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4467  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4468  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4469  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4470  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709220934`*^9},
4471 FontSize->7],
4472
4473Cell[BoxData[
4474 FormBox[
4475  InterpretationBox[
4476   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4477    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4478     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4479   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
4480   Editable->False], TraditionalForm]], "Print",
4481 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4482  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4483  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4484  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4485  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4486  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4487  3.581087202138607*^9, 3.581705753825637*^9, 3.581706670927094*^9},
4488 FontSize->7],
4489
4490Cell[BoxData[
4491 FormBox[
4492  InterpretationBox[
4493   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4494    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4495    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4496    FormBox[
4497     OverscriptBox["x", "\<\"-\"\>"],
4498     TraditionalForm]}],
4499   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
4500   Editable->False], TraditionalForm]], "Print",
4501 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4502  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4503  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4504  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4505  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4506  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4507  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709420958`*^9},
4508 FontSize->7],
4509
4510Cell[BoxData[
4511 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4512 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4513  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4514  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4515  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4516  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4517  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4518  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709630985`*^9},
4519 FontSize->7],
4520
4521Cell[BoxData[
4522 FormBox[
4523  RowBox[{
4524   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtL", " ",
4525    FormBox[
4526     SubscriptBox["\[Delta]",
4527      RowBox[{
4528       FormBox[
4529        SubscriptBox["\<\"i\"\>", "1"],
4530        TraditionalForm], ",",
4531       FormBox[
4532        SubscriptBox["\<\"i\"\>", "3"],
4533        TraditionalForm]}]],
4534     TraditionalForm], " ",
4535    FormBox[
4536     SubscriptBox[
4537      RowBox[{
4538       FormBox[
4539        SuperscriptBox["\[Gamma]",
4540         FormBox[
4541          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4542          TraditionalForm]],
4543        TraditionalForm], ".",
4544       FormBox[
4545        SubscriptBox["P", "\<\"-\"\>"],
4546        TraditionalForm]}],
4547      RowBox[{
4548       FormBox[
4549        SubscriptBox["\<\"s\"\>", "3"],
4550        TraditionalForm], ",",
4551       FormBox[
4552        SubscriptBox["\<\"s\"\>", "1"],
4553        TraditionalForm]}]],
4554     TraditionalForm]}], "+",
4555   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtR", " ",
4556    FormBox[
4557     SubscriptBox["\[Delta]",
4558      RowBox[{
4559       FormBox[
4560        SubscriptBox["\<\"i\"\>", "1"],
4561        TraditionalForm], ",",
4562       FormBox[
4563        SubscriptBox["\<\"i\"\>", "3"],
4564        TraditionalForm]}]],
4565     TraditionalForm], " ",
4566    FormBox[
4567     SubscriptBox[
4568      RowBox[{
4569       FormBox[
4570        SuperscriptBox["\[Gamma]",
4571         FormBox[
4572          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4573          TraditionalForm]],
4574        TraditionalForm], ".",
4575       FormBox[
4576        SubscriptBox["P", "\<\"+\"\>"],
4577        TraditionalForm]}],
4578      RowBox[{
4579       FormBox[
4580        SubscriptBox["\<\"s\"\>", "3"],
4581        TraditionalForm], ",",
4582       FormBox[
4583        SubscriptBox["\<\"s\"\>", "1"],
4584        TraditionalForm]}]],
4585     TraditionalForm]}]}], TraditionalForm]], "Print",
4586 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4587  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4588  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4589  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4590  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4591  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4592  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066709781003`*^9},
4593 FontSize->7],
4594
4595Cell[BoxData[
4596 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4597* * * *)\"\>", TraditionalForm]], "Print",
4598 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4599  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4600  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4601  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4602  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4603  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4604  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066710041037`*^9},
4605 FontSize->7],
4606
4607Cell[BoxData[
4608 FormBox[
4609  InterpretationBox[
4610   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "27"}],
4611   SequenceForm["Vertex ", 27],
4612   Editable->False], TraditionalForm]], "Print",
4613 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4614  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4615  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4616  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4617  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4618  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4619  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066710246067`*^9},
4620 FontSize->7],
4621
4622Cell[BoxData[
4623 FormBox[
4624  InterpretationBox[
4625   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4626    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4627    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
4628   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
4629   Editable->False], TraditionalForm]], "Print",
4630 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4631  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4632  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4633  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4634  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4635  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4636  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671046109*^9},
4637 FontSize->7],
4638
4639Cell[BoxData[
4640 FormBox[
4641  InterpretationBox[
4642   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4643    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4644     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
4645   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
4646   Editable->False], TraditionalForm]], "Print",
4647 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4648  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4649  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4650  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4651  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4652  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4653  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667105311*^9},
4654 FontSize->7],
4655
4656Cell[BoxData[
4657 FormBox[
4658  InterpretationBox[
4659   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4660    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4661    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4662    FormBox[
4663     OverscriptBox["x", "\<\"-\"\>"],
4664     TraditionalForm]}],
4665   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
4666   Editable->False], TraditionalForm]], "Print",
4667 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4668  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4669  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4670  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4671  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4672  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4673  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066710736127`*^9},
4674 FontSize->7],
4675
4676Cell[BoxData[
4677 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4678 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4679  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4680  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4681  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4682  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4683  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4684  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066710891147`*^9},
4685 FontSize->7],
4686
4687Cell[BoxData[
4688 FormBox[
4689  RowBox[{
4690   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuL", " ",
4691    FormBox[
4692     SubscriptBox["\[Delta]",
4693      RowBox[{
4694       FormBox[
4695        SubscriptBox["\<\"i\"\>", "1"],
4696        TraditionalForm], ",",
4697       FormBox[
4698        SubscriptBox["\<\"i\"\>", "3"],
4699        TraditionalForm]}]],
4700     TraditionalForm], " ",
4701    FormBox[
4702     SubscriptBox[
4703      RowBox[{
4704       FormBox[
4705        SuperscriptBox["\[Gamma]",
4706         FormBox[
4707          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4708          TraditionalForm]],
4709        TraditionalForm], ".",
4710       FormBox[
4711        SubscriptBox["P", "\<\"-\"\>"],
4712        TraditionalForm]}],
4713      RowBox[{
4714       FormBox[
4715        SubscriptBox["\<\"s\"\>", "3"],
4716        TraditionalForm], ",",
4717       FormBox[
4718        SubscriptBox["\<\"s\"\>", "1"],
4719        TraditionalForm]}]],
4720     TraditionalForm]}], "+",
4721   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuR", " ",
4722    FormBox[
4723     SubscriptBox["\[Delta]",
4724      RowBox[{
4725       FormBox[
4726        SubscriptBox["\<\"i\"\>", "1"],
4727        TraditionalForm], ",",
4728       FormBox[
4729        SubscriptBox["\<\"i\"\>", "3"],
4730        TraditionalForm]}]],
4731     TraditionalForm], " ",
4732    FormBox[
4733     SubscriptBox[
4734      RowBox[{
4735       FormBox[
4736        SuperscriptBox["\[Gamma]",
4737         FormBox[
4738          SubscriptBox["\<\"\[Mu]\"\>", "2"],
4739          TraditionalForm]],
4740        TraditionalForm], ".",
4741       FormBox[
4742        SubscriptBox["P", "\<\"+\"\>"],
4743        TraditionalForm]}],
4744      RowBox[{
4745       FormBox[
4746        SubscriptBox["\<\"s\"\>", "3"],
4747        TraditionalForm], ",",
4748       FormBox[
4749        SubscriptBox["\<\"s\"\>", "1"],
4750        TraditionalForm]}]],
4751     TraditionalForm]}]}], TraditionalForm]], "Print",
4752 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4753  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4754  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4755  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4756  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4757  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4758  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671100116*^9},
4759 FontSize->7],
4760
4761Cell[BoxData[
4762 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4763* * * *)\"\>", TraditionalForm]], "Print",
4764 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4765  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4766  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4767  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4768  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4769  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4770  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066711071167`*^9},
4771 FontSize->7],
4772
4773Cell[BoxData[
4774 FormBox[
4775  InterpretationBox[
4776   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "28"}],
4777   SequenceForm["Vertex ", 28],
4778   Editable->False], TraditionalForm]], "Print",
4779 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4780  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4781  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4782  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4783  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4784  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4785  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066711211185`*^9},
4786 FontSize->7],
4787
4788Cell[BoxData[
4789 FormBox[
4790  InterpretationBox[
4791   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4792    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4793    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4794    FormBox[
4795     OverscriptBox["b", "\<\"-\"\>"],
4796     TraditionalForm]}],
4797   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
4798   Editable->False], TraditionalForm]], "Print",
4799 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4800  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4801  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4802  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4803  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4804  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4805  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671126119*^9},
4806 FontSize->7],
4807
4808Cell[BoxData[
4809 FormBox[
4810  InterpretationBox[
4811   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4812    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4813    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
4814   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
4815   Editable->False], TraditionalForm]], "Print",
4816 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4817  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4818  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4819  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4820  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4821  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4822  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066711351204`*^9},
4823 FontSize->7],
4824
4825Cell[BoxData[
4826 FormBox[
4827  InterpretationBox[
4828   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4829    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4830     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4831    FormBox[
4832     SuperscriptBox["W", "\[Dagger]"],
4833     TraditionalForm]}],
4834   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
4835   Editable->False], TraditionalForm]], "Print",
4836 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4837  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4838  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4839  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4840  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4841  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4842  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671149122*^9},
4843 FontSize->7],
4844
4845Cell[BoxData[
4846 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
4847 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4848  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4849  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4850  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4851  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4852  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4853  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671156123*^9},
4854 FontSize->7],
4855
4856Cell[BoxData[
4857 FormBox[
4858  RowBox[{
4859   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLw", " ",
4860    FormBox[
4861     SubscriptBox["\[Delta]",
4862      RowBox[{
4863       FormBox[
4864        SubscriptBox["\<\"i\"\>", "1"],
4865        TraditionalForm], ",",
4866       FormBox[
4867        SubscriptBox["\<\"i\"\>", "2"],
4868        TraditionalForm]}]],
4869     TraditionalForm], " ",
4870    FormBox[
4871     SubscriptBox[
4872      RowBox[{
4873       FormBox[
4874        SuperscriptBox["\[Gamma]",
4875         FormBox[
4876          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4877          TraditionalForm]],
4878        TraditionalForm], ".",
4879       FormBox[
4880        SubscriptBox["P", "\<\"-\"\>"],
4881        TraditionalForm]}],
4882      RowBox[{
4883       FormBox[
4884        SubscriptBox["\<\"s\"\>", "1"],
4885        TraditionalForm], ",",
4886       FormBox[
4887        SubscriptBox["\<\"s\"\>", "2"],
4888        TraditionalForm]}]],
4889     TraditionalForm]}], "+",
4890   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRw", " ",
4891    FormBox[
4892     SubscriptBox["\[Delta]",
4893      RowBox[{
4894       FormBox[
4895        SubscriptBox["\<\"i\"\>", "1"],
4896        TraditionalForm], ",",
4897       FormBox[
4898        SubscriptBox["\<\"i\"\>", "2"],
4899        TraditionalForm]}]],
4900     TraditionalForm], " ",
4901    FormBox[
4902     SubscriptBox[
4903      RowBox[{
4904       FormBox[
4905        SuperscriptBox["\[Gamma]",
4906         FormBox[
4907          SubscriptBox["\<\"\[Mu]\"\>", "3"],
4908          TraditionalForm]],
4909        TraditionalForm], ".",
4910       FormBox[
4911        SubscriptBox["P", "\<\"+\"\>"],
4912        TraditionalForm]}],
4913      RowBox[{
4914       FormBox[
4915        SubscriptBox["\<\"s\"\>", "1"],
4916        TraditionalForm], ",",
4917       FormBox[
4918        SubscriptBox["\<\"s\"\>", "2"],
4919        TraditionalForm]}]],
4920     TraditionalForm]}]}], TraditionalForm]], "Print",
4921 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4922  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4923  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4924  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4925  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4926  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4927  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671170125*^9},
4928 FontSize->7],
4929
4930Cell[BoxData[
4931 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
4932* * * *)\"\>", TraditionalForm]], "Print",
4933 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4934  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4935  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4936  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4937  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4938  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4939  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066711776257`*^9},
4940 FontSize->7],
4941
4942Cell[BoxData[
4943 FormBox[
4944  InterpretationBox[
4945   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "29"}],
4946   SequenceForm["Vertex ", 29],
4947   Editable->False], TraditionalForm]], "Print",
4948 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4949  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4950  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4951  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4952  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4953  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4954  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671185627*^9},
4955 FontSize->7],
4956
4957Cell[BoxData[
4958 FormBox[
4959  InterpretationBox[
4960   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
4961    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4962    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
4963    FormBox[
4964     OverscriptBox["bp", "\<\"-\"\>"],
4965     TraditionalForm]}],
4966   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
4967   Editable->False], TraditionalForm]], "Print",
4968 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4969  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4970  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4971  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4972  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4973  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4974  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066711991286`*^9},
4975 FontSize->7],
4976
4977Cell[BoxData[
4978 FormBox[
4979  InterpretationBox[
4980   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
4981    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
4982    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
4983   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
4984   Editable->False], TraditionalForm]], "Print",
4985 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
4986  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
4987  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
4988  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
4989  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
4990  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
4991  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712036295`*^9},
4992 FontSize->7],
4993
4994Cell[BoxData[
4995 FormBox[
4996  InterpretationBox[
4997   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
4998    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
4999     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5000    FormBox[
5001     SuperscriptBox["W", "\[Dagger]"],
5002     TraditionalForm]}],
5003   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5004   Editable->False], TraditionalForm]], "Print",
5005 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5006  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5007  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5008  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5009  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5010  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5011  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712076297`*^9},
5012 FontSize->7],
5013
5014Cell[BoxData[
5015 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5016 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5017  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5018  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5019  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5020  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5021  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5022  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671219631*^9},
5023 FontSize->7],
5024
5025Cell[BoxData[
5026 FormBox[
5027  RowBox[{
5028   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLw", " ",
5029    FormBox[
5030     SubscriptBox["\[Delta]",
5031      RowBox[{
5032       FormBox[
5033        SubscriptBox["\<\"i\"\>", "1"],
5034        TraditionalForm], ",",
5035       FormBox[
5036        SubscriptBox["\<\"i\"\>", "2"],
5037        TraditionalForm]}]],
5038     TraditionalForm], " ",
5039    FormBox[
5040     SubscriptBox[
5041      RowBox[{
5042       FormBox[
5043        SuperscriptBox["\[Gamma]",
5044         FormBox[
5045          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5046          TraditionalForm]],
5047        TraditionalForm], ".",
5048       FormBox[
5049        SubscriptBox["P", "\<\"-\"\>"],
5050        TraditionalForm]}],
5051      RowBox[{
5052       FormBox[
5053        SubscriptBox["\<\"s\"\>", "1"],
5054        TraditionalForm], ",",
5055       FormBox[
5056        SubscriptBox["\<\"s\"\>", "2"],
5057        TraditionalForm]}]],
5058     TraditionalForm]}], "+",
5059   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRw", " ",
5060    FormBox[
5061     SubscriptBox["\[Delta]",
5062      RowBox[{
5063       FormBox[
5064        SubscriptBox["\<\"i\"\>", "1"],
5065        TraditionalForm], ",",
5066       FormBox[
5067        SubscriptBox["\<\"i\"\>", "2"],
5068        TraditionalForm]}]],
5069     TraditionalForm], " ",
5070    FormBox[
5071     SubscriptBox[
5072      RowBox[{
5073       FormBox[
5074        SuperscriptBox["\[Gamma]",
5075         FormBox[
5076          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5077          TraditionalForm]],
5078        TraditionalForm], ".",
5079       FormBox[
5080        SubscriptBox["P", "\<\"+\"\>"],
5081        TraditionalForm]}],
5082      RowBox[{
5083       FormBox[
5084        SubscriptBox["\<\"s\"\>", "1"],
5085        TraditionalForm], ",",
5086       FormBox[
5087        SubscriptBox["\<\"s\"\>", "2"],
5088        TraditionalForm]}]],
5089     TraditionalForm]}]}], TraditionalForm]], "Print",
5090 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5091  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5092  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5093  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5094  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5095  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5096  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671223632*^9},
5097 FontSize->7],
5098
5099Cell[BoxData[
5100 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5101* * * *)\"\>", TraditionalForm]], "Print",
5102 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5103  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5104  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5105  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5106  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5107  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5108  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712291327`*^9},
5109 FontSize->7],
5110
5111Cell[BoxData[
5112 FormBox[
5113  InterpretationBox[
5114   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "30"}],
5115   SequenceForm["Vertex ", 30],
5116   Editable->False], TraditionalForm]], "Print",
5117 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5118  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5119  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5120  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5121  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5122  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5123  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671233133*^9},
5124 FontSize->7],
5125
5126Cell[BoxData[
5127 FormBox[
5128  InterpretationBox[
5129   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5130    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5131    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5132    FormBox[
5133     OverscriptBox["bp", "\<\"-\"\>"],
5134     TraditionalForm]}],
5135   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
5136   Editable->False], TraditionalForm]], "Print",
5137 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5138  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5139  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5140  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5141  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5142  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5143  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671243634*^9},
5144 FontSize->7],
5145
5146Cell[BoxData[
5147 FormBox[
5148  InterpretationBox[
5149   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5150    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5151    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
5152   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
5153   Editable->False], TraditionalForm]], "Print",
5154 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5155  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5156  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5157  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5158  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5159  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5160  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671249135*^9},
5161 FontSize->7],
5162
5163Cell[BoxData[
5164 FormBox[
5165  InterpretationBox[
5166   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5167    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5168     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5169    FormBox[
5170     SuperscriptBox["W", "\[Dagger]"],
5171     TraditionalForm]}],
5172   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5173   Editable->False], TraditionalForm]], "Print",
5174 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5175  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5176  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5177  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5178  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5179  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5180  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712531357`*^9},
5181 FontSize->7],
5182
5183Cell[BoxData[
5184 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5185 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5186  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5187  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5188  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5189  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5190  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5191  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712596364`*^9},
5192 FontSize->7],
5193
5194Cell[BoxData[
5195 FormBox[
5196  RowBox[{
5197   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLw", " ",
5198    FormBox[
5199     SubscriptBox["\[Delta]",
5200      RowBox[{
5201       FormBox[
5202        SubscriptBox["\<\"i\"\>", "1"],
5203        TraditionalForm], ",",
5204       FormBox[
5205        SubscriptBox["\<\"i\"\>", "2"],
5206        TraditionalForm]}]],
5207     TraditionalForm], " ",
5208    FormBox[
5209     SubscriptBox[
5210      RowBox[{
5211       FormBox[
5212        SuperscriptBox["\[Gamma]",
5213         FormBox[
5214          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5215          TraditionalForm]],
5216        TraditionalForm], ".",
5217       FormBox[
5218        SubscriptBox["P", "\<\"-\"\>"],
5219        TraditionalForm]}],
5220      RowBox[{
5221       FormBox[
5222        SubscriptBox["\<\"s\"\>", "1"],
5223        TraditionalForm], ",",
5224       FormBox[
5225        SubscriptBox["\<\"s\"\>", "2"],
5226        TraditionalForm]}]],
5227     TraditionalForm]}], "+",
5228   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRw", " ",
5229    FormBox[
5230     SubscriptBox["\[Delta]",
5231      RowBox[{
5232       FormBox[
5233        SubscriptBox["\<\"i\"\>", "1"],
5234        TraditionalForm], ",",
5235       FormBox[
5236        SubscriptBox["\<\"i\"\>", "2"],
5237        TraditionalForm]}]],
5238     TraditionalForm], " ",
5239    FormBox[
5240     SubscriptBox[
5241      RowBox[{
5242       FormBox[
5243        SuperscriptBox["\[Gamma]",
5244         FormBox[
5245          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5246          TraditionalForm]],
5247        TraditionalForm], ".",
5248       FormBox[
5249        SubscriptBox["P", "\<\"+\"\>"],
5250        TraditionalForm]}],
5251      RowBox[{
5252       FormBox[
5253        SubscriptBox["\<\"s\"\>", "1"],
5254        TraditionalForm], ",",
5255       FormBox[
5256        SubscriptBox["\<\"s\"\>", "2"],
5257        TraditionalForm]}]],
5258     TraditionalForm]}]}], TraditionalForm]], "Print",
5259 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5260  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5261  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5262  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5263  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5264  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5265  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712686377`*^9},
5266 FontSize->7],
5267
5268Cell[BoxData[
5269 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5270* * * *)\"\>", TraditionalForm]], "Print",
5271 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5272  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5273  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5274  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5275  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5276  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5277  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671273638*^9},
5278 FontSize->7],
5279
5280Cell[BoxData[
5281 FormBox[
5282  InterpretationBox[
5283   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "31"}],
5284   SequenceForm["Vertex ", 31],
5285   Editable->False], TraditionalForm]], "Print",
5286 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5287  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5288  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5289  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5290  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5291  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5292  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712776384`*^9},
5293 FontSize->7],
5294
5295Cell[BoxData[
5296 FormBox[
5297  InterpretationBox[
5298   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5299    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5300    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5301    FormBox[
5302     OverscriptBox["bp", "\<\"-\"\>"],
5303     TraditionalForm]}],
5304   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
5305   Editable->False], TraditionalForm]], "Print",
5306 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5307  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5308  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5309  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5310  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5311  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5312  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712826395`*^9},
5313 FontSize->7],
5314
5315Cell[BoxData[
5316 FormBox[
5317  InterpretationBox[
5318   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5319    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5320    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
5321   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
5322   Editable->False], TraditionalForm]], "Print",
5323 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5324  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5325  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5326  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5327  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5328  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5329  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671295641*^9},
5330 FontSize->7],
5331
5332Cell[BoxData[
5333 FormBox[
5334  InterpretationBox[
5335   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5336    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5337     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5338    FormBox[
5339     SuperscriptBox["W", "\[Dagger]"],
5340     TraditionalForm]}],
5341   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5342   Editable->False], TraditionalForm]], "Print",
5343 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5344  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5345  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5346  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5347  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5348  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5349  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066712996416`*^9},
5350 FontSize->7],
5351
5352Cell[BoxData[
5353 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5354 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5355  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5356  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5357  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5358  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5359  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5360  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713046417`*^9},
5361 FontSize->7],
5362
5363Cell[BoxData[
5364 FormBox[
5365  RowBox[{
5366   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLw", " ",
5367    FormBox[
5368     SubscriptBox["\[Delta]",
5369      RowBox[{
5370       FormBox[
5371        SubscriptBox["\<\"i\"\>", "1"],
5372        TraditionalForm], ",",
5373       FormBox[
5374        SubscriptBox["\<\"i\"\>", "2"],
5375        TraditionalForm]}]],
5376     TraditionalForm], " ",
5377    FormBox[
5378     SubscriptBox[
5379      RowBox[{
5380       FormBox[
5381        SuperscriptBox["\[Gamma]",
5382         FormBox[
5383          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5384          TraditionalForm]],
5385        TraditionalForm], ".",
5386       FormBox[
5387        SubscriptBox["P", "\<\"-\"\>"],
5388        TraditionalForm]}],
5389      RowBox[{
5390       FormBox[
5391        SubscriptBox["\<\"s\"\>", "1"],
5392        TraditionalForm], ",",
5393       FormBox[
5394        SubscriptBox["\<\"s\"\>", "2"],
5395        TraditionalForm]}]],
5396     TraditionalForm]}], "+",
5397   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRw", " ",
5398    FormBox[
5399     SubscriptBox["\[Delta]",
5400      RowBox[{
5401       FormBox[
5402        SubscriptBox["\<\"i\"\>", "1"],
5403        TraditionalForm], ",",
5404       FormBox[
5405        SubscriptBox["\<\"i\"\>", "2"],
5406        TraditionalForm]}]],
5407     TraditionalForm], " ",
5408    FormBox[
5409     SubscriptBox[
5410      RowBox[{
5411       FormBox[
5412        SuperscriptBox["\[Gamma]",
5413         FormBox[
5414          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5415          TraditionalForm]],
5416        TraditionalForm], ".",
5417       FormBox[
5418        SubscriptBox["P", "\<\"+\"\>"],
5419        TraditionalForm]}],
5420      RowBox[{
5421       FormBox[
5422        SubscriptBox["\<\"s\"\>", "1"],
5423        TraditionalForm], ",",
5424       FormBox[
5425        SubscriptBox["\<\"s\"\>", "2"],
5426        TraditionalForm]}]],
5427     TraditionalForm]}]}], TraditionalForm]], "Print",
5428 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5429  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5430  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5431  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5432  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5433  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5434  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671309643*^9},
5435 FontSize->7],
5436
5437Cell[BoxData[
5438 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5439* * * *)\"\>", TraditionalForm]], "Print",
5440 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5441  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5442  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5443  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5444  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5445  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5446  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671320644*^9},
5447 FontSize->7],
5448
5449Cell[BoxData[
5450 FormBox[
5451  InterpretationBox[
5452   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "32"}],
5453   SequenceForm["Vertex ", 32],
5454   Editable->False], TraditionalForm]], "Print",
5455 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5456  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5457  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5458  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5459  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5460  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5461  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671324644*^9},
5462 FontSize->7],
5463
5464Cell[BoxData[
5465 FormBox[
5466  InterpretationBox[
5467   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5468    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5469    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5470    FormBox[
5471     OverscriptBox["c", "\<\"-\"\>"],
5472     TraditionalForm]}],
5473   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
5474   Editable->False], TraditionalForm]], "Print",
5475 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5476  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5477  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5478  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5479  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5480  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5481  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671328645*^9},
5482 FontSize->7],
5483
5484Cell[BoxData[
5485 FormBox[
5486  InterpretationBox[
5487   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5488    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5489     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5490    FormBox[
5491     SuperscriptBox["W", "\[Dagger]"],
5492     TraditionalForm]}],
5493   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
5494   Editable->False], TraditionalForm]], "Print",
5495 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5496  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5497  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5498  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5499  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5500  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5501  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671333646*^9},
5502 FontSize->7],
5503
5504Cell[BoxData[
5505 FormBox[
5506  InterpretationBox[
5507   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5508    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5509    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
5510   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
5511   Editable->False], TraditionalForm]], "Print",
5512 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5513  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5514  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5515  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5516  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5517  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5518  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713426466`*^9},
5519 FontSize->7],
5520
5521Cell[BoxData[
5522 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5523 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5524  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5525  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5526  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5527  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5528  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5529  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713466473`*^9},
5530 FontSize->7],
5531
5532Cell[BoxData[
5533 FormBox[
5534  RowBox[{
5535   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcL", " ",
5536    FormBox[
5537     SubscriptBox["\[Delta]",
5538      RowBox[{
5539       FormBox[
5540        SubscriptBox["\<\"i\"\>", "1"],
5541        TraditionalForm], ",",
5542       FormBox[
5543        SubscriptBox["\<\"i\"\>", "3"],
5544        TraditionalForm]}]],
5545     TraditionalForm], " ",
5546    FormBox[
5547     SubscriptBox[
5548      RowBox[{
5549       FormBox[
5550        SuperscriptBox["\[Gamma]",
5551         FormBox[
5552          SubscriptBox["\<\"\[Mu]\"\>", "2"],
5553          TraditionalForm]],
5554        TraditionalForm], ".",
5555       FormBox[
5556        SubscriptBox["P", "\<\"-\"\>"],
5557        TraditionalForm]}],
5558      RowBox[{
5559       FormBox[
5560        SubscriptBox["\<\"s\"\>", "1"],
5561        TraditionalForm], ",",
5562       FormBox[
5563        SubscriptBox["\<\"s\"\>", "3"],
5564        TraditionalForm]}]],
5565     TraditionalForm]}], "+",
5566   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcR", " ",
5567    FormBox[
5568     SubscriptBox["\[Delta]",
5569      RowBox[{
5570       FormBox[
5571        SubscriptBox["\<\"i\"\>", "1"],
5572        TraditionalForm], ",",
5573       FormBox[
5574        SubscriptBox["\<\"i\"\>", "3"],
5575        TraditionalForm]}]],
5576     TraditionalForm], " ",
5577    FormBox[
5578     SubscriptBox[
5579      RowBox[{
5580       FormBox[
5581        SuperscriptBox["\[Gamma]",
5582         FormBox[
5583          SubscriptBox["\<\"\[Mu]\"\>", "2"],
5584          TraditionalForm]],
5585        TraditionalForm], ".",
5586       FormBox[
5587        SubscriptBox["P", "\<\"+\"\>"],
5588        TraditionalForm]}],
5589      RowBox[{
5590       FormBox[
5591        SubscriptBox["\<\"s\"\>", "1"],
5592        TraditionalForm], ",",
5593       FormBox[
5594        SubscriptBox["\<\"s\"\>", "3"],
5595        TraditionalForm]}]],
5596     TraditionalForm]}]}], TraditionalForm]], "Print",
5597 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5598  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5599  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5600  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5601  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5602  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5603  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671350648*^9},
5604 FontSize->7],
5605
5606Cell[BoxData[
5607 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5608* * * *)\"\>", TraditionalForm]], "Print",
5609 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5610  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5611  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5612  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5613  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5614  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5615  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713566484`*^9},
5616 FontSize->7],
5617
5618Cell[BoxData[
5619 FormBox[
5620  InterpretationBox[
5621   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "33"}],
5622   SequenceForm["Vertex ", 33],
5623   Editable->False], TraditionalForm]], "Print",
5624 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5625  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5626  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5627  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5628  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5629  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5630  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713671503`*^9},
5631 FontSize->7],
5632
5633Cell[BoxData[
5634 FormBox[
5635  InterpretationBox[
5636   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5637    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5638    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5639    FormBox[
5640     OverscriptBox["d", "\<\"-\"\>"],
5641     TraditionalForm]}],
5642   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
5643   Editable->False], TraditionalForm]], "Print",
5644 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5645  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5646  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5647  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5648  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5649  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5650  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713716507`*^9},
5651 FontSize->7],
5652
5653Cell[BoxData[
5654 FormBox[
5655  InterpretationBox[
5656   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5657    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5658    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
5659   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
5660   Editable->False], TraditionalForm]], "Print",
5661 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5662  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5663  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5664  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5665  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5666  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5667  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671375651*^9},
5668 FontSize->7],
5669
5670Cell[BoxData[
5671 FormBox[
5672  InterpretationBox[
5673   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5674    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5675     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5676    FormBox[
5677     SuperscriptBox["W", "\[Dagger]"],
5678     TraditionalForm]}],
5679   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5680   Editable->False], TraditionalForm]], "Print",
5681 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5682  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5683  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5684  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5685  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5686  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5687  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713791513`*^9},
5688 FontSize->7],
5689
5690Cell[BoxData[
5691 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5692 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5693  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5694  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5695  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5696  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5697  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5698  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671384652*^9},
5699 FontSize->7],
5700
5701Cell[BoxData[
5702 FormBox[
5703  RowBox[{
5704   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLw", " ",
5705    FormBox[
5706     SubscriptBox["\[Delta]",
5707      RowBox[{
5708       FormBox[
5709        SubscriptBox["\<\"i\"\>", "1"],
5710        TraditionalForm], ",",
5711       FormBox[
5712        SubscriptBox["\<\"i\"\>", "2"],
5713        TraditionalForm]}]],
5714     TraditionalForm], " ",
5715    FormBox[
5716     SubscriptBox[
5717      RowBox[{
5718       FormBox[
5719        SuperscriptBox["\[Gamma]",
5720         FormBox[
5721          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5722          TraditionalForm]],
5723        TraditionalForm], ".",
5724       FormBox[
5725        SubscriptBox["P", "\<\"-\"\>"],
5726        TraditionalForm]}],
5727      RowBox[{
5728       FormBox[
5729        SubscriptBox["\<\"s\"\>", "1"],
5730        TraditionalForm], ",",
5731       FormBox[
5732        SubscriptBox["\<\"s\"\>", "2"],
5733        TraditionalForm]}]],
5734     TraditionalForm]}], "+",
5735   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRw", " ",
5736    FormBox[
5737     SubscriptBox["\[Delta]",
5738      RowBox[{
5739       FormBox[
5740        SubscriptBox["\<\"i\"\>", "1"],
5741        TraditionalForm], ",",
5742       FormBox[
5743        SubscriptBox["\<\"i\"\>", "2"],
5744        TraditionalForm]}]],
5745     TraditionalForm], " ",
5746    FormBox[
5747     SubscriptBox[
5748      RowBox[{
5749       FormBox[
5750        SuperscriptBox["\[Gamma]",
5751         FormBox[
5752          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5753          TraditionalForm]],
5754        TraditionalForm], ".",
5755       FormBox[
5756        SubscriptBox["P", "\<\"+\"\>"],
5757        TraditionalForm]}],
5758      RowBox[{
5759       FormBox[
5760        SubscriptBox["\<\"s\"\>", "1"],
5761        TraditionalForm], ",",
5762       FormBox[
5763        SubscriptBox["\<\"s\"\>", "2"],
5764        TraditionalForm]}]],
5765     TraditionalForm]}]}], TraditionalForm]], "Print",
5766 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5767  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5768  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5769  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5770  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5771  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5772  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066713946533`*^9},
5773 FontSize->7],
5774
5775Cell[BoxData[
5776 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5777* * * *)\"\>", TraditionalForm]], "Print",
5778 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5779  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5780  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5781  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5782  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5783  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5784  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066714006543`*^9},
5785 FontSize->7],
5786
5787Cell[BoxData[
5788 FormBox[
5789  InterpretationBox[
5790   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "34"}],
5791   SequenceForm["Vertex ", 34],
5792   Editable->False], TraditionalForm]], "Print",
5793 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5794  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5795  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5796  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5797  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5798  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5799  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066714046545`*^9},
5800 FontSize->7],
5801
5802Cell[BoxData[
5803 FormBox[
5804  InterpretationBox[
5805   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5806    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5807    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5808    FormBox[
5809     OverscriptBox["s", "\<\"-\"\>"],
5810     TraditionalForm]}],
5811   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
5812   Editable->False], TraditionalForm]], "Print",
5813 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5814  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5815  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5816  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5817  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5818  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5819  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671408655*^9},
5820 FontSize->7],
5821
5822Cell[BoxData[
5823 FormBox[
5824  InterpretationBox[
5825   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5826    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5827    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
5828   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
5829   Editable->False], TraditionalForm]], "Print",
5830 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5831  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5832  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5833  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5834  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5835  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5836  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671419156*^9},
5837 FontSize->7],
5838
5839Cell[BoxData[
5840 FormBox[
5841  InterpretationBox[
5842   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
5843    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5844     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5845    FormBox[
5846     SuperscriptBox["W", "\[Dagger]"],
5847     TraditionalForm]}],
5848   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
5849   Editable->False], TraditionalForm]], "Print",
5850 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5851  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5852  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5853  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5854  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5855  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5856  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671423157*^9},
5857 FontSize->7],
5858
5859Cell[BoxData[
5860 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
5861 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5862  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5863  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5864  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5865  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5866  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5867  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066714271574`*^9},
5868 FontSize->7],
5869
5870Cell[BoxData[
5871 FormBox[
5872  RowBox[{
5873   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLw", " ",
5874    FormBox[
5875     SubscriptBox["\[Delta]",
5876      RowBox[{
5877       FormBox[
5878        SubscriptBox["\<\"i\"\>", "1"],
5879        TraditionalForm], ",",
5880       FormBox[
5881        SubscriptBox["\<\"i\"\>", "2"],
5882        TraditionalForm]}]],
5883     TraditionalForm], " ",
5884    FormBox[
5885     SubscriptBox[
5886      RowBox[{
5887       FormBox[
5888        SuperscriptBox["\[Gamma]",
5889         FormBox[
5890          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5891          TraditionalForm]],
5892        TraditionalForm], ".",
5893       FormBox[
5894        SubscriptBox["P", "\<\"-\"\>"],
5895        TraditionalForm]}],
5896      RowBox[{
5897       FormBox[
5898        SubscriptBox["\<\"s\"\>", "1"],
5899        TraditionalForm], ",",
5900       FormBox[
5901        SubscriptBox["\<\"s\"\>", "2"],
5902        TraditionalForm]}]],
5903     TraditionalForm]}], "+",
5904   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRw", " ",
5905    FormBox[
5906     SubscriptBox["\[Delta]",
5907      RowBox[{
5908       FormBox[
5909        SubscriptBox["\<\"i\"\>", "1"],
5910        TraditionalForm], ",",
5911       FormBox[
5912        SubscriptBox["\<\"i\"\>", "2"],
5913        TraditionalForm]}]],
5914     TraditionalForm], " ",
5915    FormBox[
5916     SubscriptBox[
5917      RowBox[{
5918       FormBox[
5919        SuperscriptBox["\[Gamma]",
5920         FormBox[
5921          SubscriptBox["\<\"\[Mu]\"\>", "3"],
5922          TraditionalForm]],
5923        TraditionalForm], ".",
5924       FormBox[
5925        SubscriptBox["P", "\<\"+\"\>"],
5926        TraditionalForm]}],
5927      RowBox[{
5928       FormBox[
5929        SubscriptBox["\<\"s\"\>", "1"],
5930        TraditionalForm], ",",
5931       FormBox[
5932        SubscriptBox["\<\"s\"\>", "2"],
5933        TraditionalForm]}]],
5934     TraditionalForm]}]}], TraditionalForm]], "Print",
5935 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5936  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5937  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5938  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5939  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5940  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5941  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671431658*^9},
5942 FontSize->7],
5943
5944Cell[BoxData[
5945 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
5946* * * *)\"\>", TraditionalForm]], "Print",
5947 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5948  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5949  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5950  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5951  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5952  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5953  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066714431596`*^9},
5954 FontSize->7],
5955
5956Cell[BoxData[
5957 FormBox[
5958  InterpretationBox[
5959   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "35"}],
5960   SequenceForm["Vertex ", 35],
5961   Editable->False], TraditionalForm]], "Print",
5962 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5963  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5964  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5965  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5966  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5967  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5968  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667144816*^9},
5969 FontSize->7],
5970
5971Cell[BoxData[
5972 FormBox[
5973  InterpretationBox[
5974   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
5975    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
5976    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5977    FormBox[
5978     OverscriptBox["t", "\<\"-\"\>"],
5979     TraditionalForm]}],
5980   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tbar],
5981   Editable->False], TraditionalForm]], "Print",
5982 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
5983  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
5984  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
5985  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
5986  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
5987  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
5988  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671453161*^9},
5989 FontSize->7],
5990
5991Cell[BoxData[
5992 FormBox[
5993  InterpretationBox[
5994   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
5995    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
5996     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
5997    FormBox[
5998     SuperscriptBox["W", "\[Dagger]"],
5999     TraditionalForm]}],
6000   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6001   Editable->False], TraditionalForm]], "Print",
6002 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6003  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6004  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6005  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6006  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6007  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6008  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671467663*^9},
6009 FontSize->7],
6010
6011Cell[BoxData[
6012 FormBox[
6013  InterpretationBox[
6014   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6015    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6016    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
6017   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
6018   Editable->False], TraditionalForm]], "Print",
6019 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6020  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6021  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6022  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6023  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6024  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6025  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066714741635`*^9},
6026 FontSize->7],
6027
6028Cell[BoxData[
6029 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6030 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6031  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6032  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6033  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6034  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6035  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6036  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671478664*^9},
6037 FontSize->7],
6038
6039Cell[BoxData[
6040 FormBox[
6041  RowBox[{
6042   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtL", " ",
6043    FormBox[
6044     SubscriptBox["\[Delta]",
6045      RowBox[{
6046       FormBox[
6047        SubscriptBox["\<\"i\"\>", "1"],
6048        TraditionalForm], ",",
6049       FormBox[
6050        SubscriptBox["\<\"i\"\>", "3"],
6051        TraditionalForm]}]],
6052     TraditionalForm], " ",
6053    FormBox[
6054     SubscriptBox[
6055      RowBox[{
6056       FormBox[
6057        SuperscriptBox["\[Gamma]",
6058         FormBox[
6059          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6060          TraditionalForm]],
6061        TraditionalForm], ".",
6062       FormBox[
6063        SubscriptBox["P", "\<\"-\"\>"],
6064        TraditionalForm]}],
6065      RowBox[{
6066       FormBox[
6067        SubscriptBox["\<\"s\"\>", "1"],
6068        TraditionalForm], ",",
6069       FormBox[
6070        SubscriptBox["\<\"s\"\>", "3"],
6071        TraditionalForm]}]],
6072     TraditionalForm]}], "+",
6073   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtR", " ",
6074    FormBox[
6075     SubscriptBox["\[Delta]",
6076      RowBox[{
6077       FormBox[
6078        SubscriptBox["\<\"i\"\>", "1"],
6079        TraditionalForm], ",",
6080       FormBox[
6081        SubscriptBox["\<\"i\"\>", "3"],
6082        TraditionalForm]}]],
6083     TraditionalForm], " ",
6084    FormBox[
6085     SubscriptBox[
6086      RowBox[{
6087       FormBox[
6088        SuperscriptBox["\[Gamma]",
6089         FormBox[
6090          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6091          TraditionalForm]],
6092        TraditionalForm], ".",
6093       FormBox[
6094        SubscriptBox["P", "\<\"+\"\>"],
6095        TraditionalForm]}],
6096      RowBox[{
6097       FormBox[
6098        SubscriptBox["\<\"s\"\>", "1"],
6099        TraditionalForm], ",",
6100       FormBox[
6101        SubscriptBox["\<\"s\"\>", "3"],
6102        TraditionalForm]}]],
6103     TraditionalForm]}]}], TraditionalForm]], "Print",
6104 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6105  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6106  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6107  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6108  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6109  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6110  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671494166*^9},
6111 FontSize->7],
6112
6113Cell[BoxData[
6114 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6115* * * *)\"\>", TraditionalForm]], "Print",
6116 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6117  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6118  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6119  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6120  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6121  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6122  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671502167*^9},
6123 FontSize->7],
6124
6125Cell[BoxData[
6126 FormBox[
6127  InterpretationBox[
6128   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "36"}],
6129   SequenceForm["Vertex ", 36],
6130   Editable->False], TraditionalForm]], "Print",
6131 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6132  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6133  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6134  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6135  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6136  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6137  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715111685`*^9},
6138 FontSize->7],
6139
6140Cell[BoxData[
6141 FormBox[
6142  InterpretationBox[
6143   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6144    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6145    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6146    FormBox[
6147     OverscriptBox["u", "\<\"-\"\>"],
6148     TraditionalForm]}],
6149   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ubar],
6150   Editable->False], TraditionalForm]], "Print",
6151 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6152  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6153  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6154  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6155  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6156  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6157  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715246696`*^9},
6158 FontSize->7],
6159
6160Cell[BoxData[
6161 FormBox[
6162  InterpretationBox[
6163   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6164    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6165     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6166    FormBox[
6167     SuperscriptBox["W", "\[Dagger]"],
6168     TraditionalForm]}],
6169   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6170   Editable->False], TraditionalForm]], "Print",
6171 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6172  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6173  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6174  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6175  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6176  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6177  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715301704`*^9},
6178 FontSize->7],
6179
6180Cell[BoxData[
6181 FormBox[
6182  InterpretationBox[
6183   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6184    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6185    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
6186   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
6187   Editable->False], TraditionalForm]], "Print",
6188 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6189  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6190  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6191  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6192  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6193  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6194  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671546673*^9},
6195 FontSize->7],
6196
6197Cell[BoxData[
6198 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6199 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6200  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6201  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6202  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6203  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6204  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6205  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715521736`*^9},
6206 FontSize->7],
6207
6208Cell[BoxData[
6209 FormBox[
6210  RowBox[{
6211   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuL", " ",
6212    FormBox[
6213     SubscriptBox["\[Delta]",
6214      RowBox[{
6215       FormBox[
6216        SubscriptBox["\<\"i\"\>", "1"],
6217        TraditionalForm], ",",
6218       FormBox[
6219        SubscriptBox["\<\"i\"\>", "3"],
6220        TraditionalForm]}]],
6221     TraditionalForm], " ",
6222    FormBox[
6223     SubscriptBox[
6224      RowBox[{
6225       FormBox[
6226        SuperscriptBox["\[Gamma]",
6227         FormBox[
6228          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6229          TraditionalForm]],
6230        TraditionalForm], ".",
6231       FormBox[
6232        SubscriptBox["P", "\<\"-\"\>"],
6233        TraditionalForm]}],
6234      RowBox[{
6235       FormBox[
6236        SubscriptBox["\<\"s\"\>", "1"],
6237        TraditionalForm], ",",
6238       FormBox[
6239        SubscriptBox["\<\"s\"\>", "3"],
6240        TraditionalForm]}]],
6241     TraditionalForm]}], "+",
6242   RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuR", " ",
6243    FormBox[
6244     SubscriptBox["\[Delta]",
6245      RowBox[{
6246       FormBox[
6247        SubscriptBox["\<\"i\"\>", "1"],
6248        TraditionalForm], ",",
6249       FormBox[
6250        SubscriptBox["\<\"i\"\>", "3"],
6251        TraditionalForm]}]],
6252     TraditionalForm], " ",
6253    FormBox[
6254     SubscriptBox[
6255      RowBox[{
6256       FormBox[
6257        SuperscriptBox["\[Gamma]",
6258         FormBox[
6259          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6260          TraditionalForm]],
6261        TraditionalForm], ".",
6262       FormBox[
6263        SubscriptBox["P", "\<\"+\"\>"],
6264        TraditionalForm]}],
6265      RowBox[{
6266       FormBox[
6267        SubscriptBox["\<\"s\"\>", "1"],
6268        TraditionalForm], ",",
6269       FormBox[
6270        SubscriptBox["\<\"s\"\>", "3"],
6271        TraditionalForm]}]],
6272     TraditionalForm]}]}], TraditionalForm]], "Print",
6273 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6274  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6275  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6276  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6277  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6278  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6279  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715596743`*^9},
6280 FontSize->7],
6281
6282Cell[BoxData[
6283 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6284* * * *)\"\>", TraditionalForm]], "Print",
6285 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6286  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6287  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6288  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6289  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6290  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6291  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715766764`*^9},
6292 FontSize->7],
6293
6294Cell[BoxData[
6295 FormBox[
6296  InterpretationBox[
6297   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "37"}],
6298   SequenceForm["Vertex ", 37],
6299   Editable->False], TraditionalForm]], "Print",
6300 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6301  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6302  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6303  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6304  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6305  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6306  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715936785`*^9},
6307 FontSize->7],
6308
6309Cell[BoxData[
6310 FormBox[
6311  InterpretationBox[
6312   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6313    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6314    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
6315   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
6316   Editable->False], TraditionalForm]], "Print",
6317 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6318  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6319  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6320  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6321  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6322  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6323  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066715986795`*^9},
6324 FontSize->7],
6325
6326Cell[BoxData[
6327 FormBox[
6328  InterpretationBox[
6329   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6330    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6331     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6332    FormBox[
6333     SuperscriptBox["W", "\[Dagger]"],
6334     TraditionalForm]}],
6335   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6336   Editable->False], TraditionalForm]], "Print",
6337 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6338  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6339  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6340  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6341  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6342  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6343  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716056805`*^9},
6344 FontSize->7],
6345
6346Cell[BoxData[
6347 FormBox[
6348  InterpretationBox[
6349   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6350    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6351    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6352    FormBox[
6353     OverscriptBox["y", "\<\"-\"\>"],
6354     TraditionalForm]}],
6355   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
6356   Editable->False], TraditionalForm]], "Print",
6357 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6358  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6359  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6360  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6361  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6362  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6363  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716236825`*^9},
6364 FontSize->7],
6365
6366Cell[BoxData[
6367 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6368 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6369  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6370  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6371  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6372  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6373  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6374  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671628683*^9},
6375 FontSize->7],
6376
6377Cell[BoxData[
6378 FormBox[
6379  RowBox[{
6380   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbL", " ",
6381    FormBox[
6382     SubscriptBox["\[Delta]",
6383      RowBox[{
6384       FormBox[
6385        SubscriptBox["\<\"i\"\>", "1"],
6386        TraditionalForm], ",",
6387       FormBox[
6388        SubscriptBox["\<\"i\"\>", "3"],
6389        TraditionalForm]}]],
6390     TraditionalForm], " ",
6391    FormBox[
6392     SubscriptBox[
6393      RowBox[{
6394       FormBox[
6395        SuperscriptBox["\[Gamma]",
6396         FormBox[
6397          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6398          TraditionalForm]],
6399        TraditionalForm], ".",
6400       FormBox[
6401        SubscriptBox["P", "\<\"-\"\>"],
6402        TraditionalForm]}],
6403      RowBox[{
6404       FormBox[
6405        SubscriptBox["\<\"s\"\>", "3"],
6406        TraditionalForm], ",",
6407       FormBox[
6408        SubscriptBox["\<\"s\"\>", "1"],
6409        TraditionalForm]}]],
6410     TraditionalForm]}], "+",
6411   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbR", " ",
6412    FormBox[
6413     SubscriptBox["\[Delta]",
6414      RowBox[{
6415       FormBox[
6416        SubscriptBox["\<\"i\"\>", "1"],
6417        TraditionalForm], ",",
6418       FormBox[
6419        SubscriptBox["\<\"i\"\>", "3"],
6420        TraditionalForm]}]],
6421     TraditionalForm], " ",
6422    FormBox[
6423     SubscriptBox[
6424      RowBox[{
6425       FormBox[
6426        SuperscriptBox["\[Gamma]",
6427         FormBox[
6428          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6429          TraditionalForm]],
6430        TraditionalForm], ".",
6431       FormBox[
6432        SubscriptBox["P", "\<\"+\"\>"],
6433        TraditionalForm]}],
6434      RowBox[{
6435       FormBox[
6436        SubscriptBox["\<\"s\"\>", "3"],
6437        TraditionalForm], ",",
6438       FormBox[
6439        SubscriptBox["\<\"s\"\>", "1"],
6440        TraditionalForm]}]],
6441     TraditionalForm]}]}], TraditionalForm]], "Print",
6442 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6443  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6444  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6445  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6446  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6447  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6448  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716451855`*^9},
6449 FontSize->7],
6450
6451Cell[BoxData[
6452 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6453* * * *)\"\>", TraditionalForm]], "Print",
6454 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6455  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6456  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6457  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6458  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6459  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6460  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671652186*^9},
6461 FontSize->7],
6462
6463Cell[BoxData[
6464 FormBox[
6465  InterpretationBox[
6466   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "38"}],
6467   SequenceForm["Vertex ", 38],
6468   Editable->False], TraditionalForm]], "Print",
6469 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6470  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6471  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6472  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6473  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6474  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6475  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716576867`*^9},
6476 FontSize->7],
6477
6478Cell[BoxData[
6479 FormBox[
6480  InterpretationBox[
6481   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6482    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6483    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
6484   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
6485   Editable->False], TraditionalForm]], "Print",
6486 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6487  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6488  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6489  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6490  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6491  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6492  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716701884`*^9},
6493 FontSize->7],
6494
6495Cell[BoxData[
6496 FormBox[
6497  InterpretationBox[
6498   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6499    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6500     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6501    FormBox[
6502     SuperscriptBox["W", "\[Dagger]"],
6503     TraditionalForm]}],
6504   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6505   Editable->False], TraditionalForm]], "Print",
6506 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6507  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6508  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6509  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6510  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6511  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6512  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671675689*^9},
6513 FontSize->7],
6514
6515Cell[BoxData[
6516 FormBox[
6517  InterpretationBox[
6518   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6519    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6520    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6521    FormBox[
6522     OverscriptBox["y", "\<\"-\"\>"],
6523     TraditionalForm]}],
6524   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
6525   Editable->False], TraditionalForm]], "Print",
6526 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6527  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6528  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6529  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6530  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6531  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6532  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716811895`*^9},
6533 FontSize->7],
6534
6535Cell[BoxData[
6536 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6537 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6538  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6539  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6540  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6541  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6542  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6543  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066716956916`*^9},
6544 FontSize->7],
6545
6546Cell[BoxData[
6547 FormBox[
6548  RowBox[{
6549   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdL", " ",
6550    FormBox[
6551     SubscriptBox["\[Delta]",
6552      RowBox[{
6553       FormBox[
6554        SubscriptBox["\<\"i\"\>", "1"],
6555        TraditionalForm], ",",
6556       FormBox[
6557        SubscriptBox["\<\"i\"\>", "3"],
6558        TraditionalForm]}]],
6559     TraditionalForm], " ",
6560    FormBox[
6561     SubscriptBox[
6562      RowBox[{
6563       FormBox[
6564        SuperscriptBox["\[Gamma]",
6565         FormBox[
6566          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6567          TraditionalForm]],
6568        TraditionalForm], ".",
6569       FormBox[
6570        SubscriptBox["P", "\<\"-\"\>"],
6571        TraditionalForm]}],
6572      RowBox[{
6573       FormBox[
6574        SubscriptBox["\<\"s\"\>", "3"],
6575        TraditionalForm], ",",
6576       FormBox[
6577        SubscriptBox["\<\"s\"\>", "1"],
6578        TraditionalForm]}]],
6579     TraditionalForm]}], "+",
6580   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdR", " ",
6581    FormBox[
6582     SubscriptBox["\[Delta]",
6583      RowBox[{
6584       FormBox[
6585        SubscriptBox["\<\"i\"\>", "1"],
6586        TraditionalForm], ",",
6587       FormBox[
6588        SubscriptBox["\<\"i\"\>", "3"],
6589        TraditionalForm]}]],
6590     TraditionalForm], " ",
6591    FormBox[
6592     SubscriptBox[
6593      RowBox[{
6594       FormBox[
6595        SuperscriptBox["\[Gamma]",
6596         FormBox[
6597          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6598          TraditionalForm]],
6599        TraditionalForm], ".",
6600       FormBox[
6601        SubscriptBox["P", "\<\"+\"\>"],
6602        TraditionalForm]}],
6603      RowBox[{
6604       FormBox[
6605        SubscriptBox["\<\"s\"\>", "3"],
6606        TraditionalForm], ",",
6607       FormBox[
6608        SubscriptBox["\<\"s\"\>", "1"],
6609        TraditionalForm]}]],
6610     TraditionalForm]}]}], TraditionalForm]], "Print",
6611 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6612  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6613  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6614  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6615  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6616  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6617  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066717011924`*^9},
6618 FontSize->7],
6619
6620Cell[BoxData[
6621 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6622* * * *)\"\>", TraditionalForm]], "Print",
6623 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6624  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6625  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6626  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6627  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6628  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6629  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671720195*^9},
6630 FontSize->7],
6631
6632Cell[BoxData[
6633 FormBox[
6634  InterpretationBox[
6635   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "39"}],
6636   SequenceForm["Vertex ", 39],
6637   Editable->False], TraditionalForm]], "Print",
6638 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6639  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6640  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6641  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6642  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6643  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6644  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066717261953`*^9},
6645 FontSize->7],
6646
6647Cell[BoxData[
6648 FormBox[
6649  InterpretationBox[
6650   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6651    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6652    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
6653   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
6654   Editable->False], TraditionalForm]], "Print",
6655 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6656  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6657  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6658  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6659  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6660  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6661  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671731696*^9},
6662 FontSize->7],
6663
6664Cell[BoxData[
6665 FormBox[
6666  InterpretationBox[
6667   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6668    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6669     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6670    FormBox[
6671     SuperscriptBox["W", "\[Dagger]"],
6672     TraditionalForm]}],
6673   SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
6674   Editable->False], TraditionalForm]], "Print",
6675 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6676  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6677  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6678  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6679  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6680  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6681  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671748698*^9},
6682 FontSize->7],
6683
6684Cell[BoxData[
6685 FormBox[
6686  InterpretationBox[
6687   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6688    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6689    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6690    FormBox[
6691     OverscriptBox["y", "\<\"-\"\>"],
6692     TraditionalForm]}],
6693   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
6694   Editable->False], TraditionalForm]], "Print",
6695 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6696  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6697  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6698  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6699  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6700  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6701  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066717737017`*^9},
6702 FontSize->7],
6703
6704Cell[BoxData[
6705 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6706 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6707  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6708  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6709  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6710  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6711  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6712  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066717792025`*^9},
6713 FontSize->7],
6714
6715Cell[BoxData[
6716 FormBox[
6717  RowBox[{
6718   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsL", " ",
6719    FormBox[
6720     SubscriptBox["\[Delta]",
6721      RowBox[{
6722       FormBox[
6723        SubscriptBox["\<\"i\"\>", "1"],
6724        TraditionalForm], ",",
6725       FormBox[
6726        SubscriptBox["\<\"i\"\>", "3"],
6727        TraditionalForm]}]],
6728     TraditionalForm], " ",
6729    FormBox[
6730     SubscriptBox[
6731      RowBox[{
6732       FormBox[
6733        SuperscriptBox["\[Gamma]",
6734         FormBox[
6735          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6736          TraditionalForm]],
6737        TraditionalForm], ".",
6738       FormBox[
6739        SubscriptBox["P", "\<\"-\"\>"],
6740        TraditionalForm]}],
6741      RowBox[{
6742       FormBox[
6743        SubscriptBox["\<\"s\"\>", "3"],
6744        TraditionalForm], ",",
6745       FormBox[
6746        SubscriptBox["\<\"s\"\>", "1"],
6747        TraditionalForm]}]],
6748     TraditionalForm]}], "+",
6749   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsR", " ",
6750    FormBox[
6751     SubscriptBox["\[Delta]",
6752      RowBox[{
6753       FormBox[
6754        SubscriptBox["\<\"i\"\>", "1"],
6755        TraditionalForm], ",",
6756       FormBox[
6757        SubscriptBox["\<\"i\"\>", "3"],
6758        TraditionalForm]}]],
6759     TraditionalForm], " ",
6760    FormBox[
6761     SubscriptBox[
6762      RowBox[{
6763       FormBox[
6764        SuperscriptBox["\[Gamma]",
6765         FormBox[
6766          SubscriptBox["\<\"\[Mu]\"\>", "2"],
6767          TraditionalForm]],
6768        TraditionalForm], ".",
6769       FormBox[
6770        SubscriptBox["P", "\<\"+\"\>"],
6771        TraditionalForm]}],
6772      RowBox[{
6773       FormBox[
6774        SubscriptBox["\<\"s\"\>", "3"],
6775        TraditionalForm], ",",
6776       FormBox[
6777        SubscriptBox["\<\"s\"\>", "1"],
6778        TraditionalForm]}]],
6779     TraditionalForm]}]}], TraditionalForm]], "Print",
6780 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6781  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6782  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6783  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6784  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6785  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6786  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066717847033`*^9},
6787 FontSize->7],
6788
6789Cell[BoxData[
6790 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6791* * * *)\"\>", TraditionalForm]], "Print",
6792 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6793  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6794  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6795  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6796  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6797  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6798  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718027053`*^9},
6799 FontSize->7],
6800
6801Cell[BoxData[
6802 FormBox[
6803  InterpretationBox[
6804   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "40"}],
6805   SequenceForm["Vertex ", 40],
6806   Editable->False], TraditionalForm]], "Print",
6807 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6808  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6809  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6810  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6811  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6812  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6813  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671809206*^9},
6814 FontSize->7],
6815
6816Cell[BoxData[
6817 FormBox[
6818  InterpretationBox[
6819   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6820    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6821    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
6822    FormBox[
6823     OverscriptBox["b", "\<\"-\"\>"],
6824     TraditionalForm]}],
6825   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
6826   Editable->False], TraditionalForm]], "Print",
6827 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6828  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6829  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6830  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6831  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6832  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6833  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671823208*^9},
6834 FontSize->7],
6835
6836Cell[BoxData[
6837 FormBox[
6838  InterpretationBox[
6839   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
6840    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6841    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
6842   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
6843   Editable->False], TraditionalForm]], "Print",
6844 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6845  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6846  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6847  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6848  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6849  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6850  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718287086`*^9},
6851 FontSize->7],
6852
6853Cell[BoxData[
6854 FormBox[
6855  InterpretationBox[
6856   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
6857    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
6858     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
6859   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
6860   Editable->False], TraditionalForm]], "Print",
6861 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6862  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6863  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6864  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6865  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6866  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6867  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718447104`*^9},
6868 FontSize->7],
6869
6870Cell[BoxData[
6871 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
6872 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6873  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6874  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6875  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6876  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6877  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6878  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718497114`*^9},
6879 FontSize->7],
6880
6881Cell[BoxData[
6882 FormBox[
6883  RowBox[{
6884   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLz", " ",
6885    FormBox[
6886     SubscriptBox["\[Delta]",
6887      RowBox[{
6888       FormBox[
6889        SubscriptBox["\<\"i\"\>", "1"],
6890        TraditionalForm], ",",
6891       FormBox[
6892        SubscriptBox["\<\"i\"\>", "2"],
6893        TraditionalForm]}]],
6894     TraditionalForm], " ",
6895    FormBox[
6896     SubscriptBox[
6897      RowBox[{
6898       FormBox[
6899        SuperscriptBox["\[Gamma]",
6900         FormBox[
6901          SubscriptBox["\<\"\[Mu]\"\>", "3"],
6902          TraditionalForm]],
6903        TraditionalForm], ".",
6904       FormBox[
6905        SubscriptBox["P", "\<\"-\"\>"],
6906        TraditionalForm]}],
6907      RowBox[{
6908       FormBox[
6909        SubscriptBox["\<\"s\"\>", "1"],
6910        TraditionalForm], ",",
6911       FormBox[
6912        SubscriptBox["\<\"s\"\>", "2"],
6913        TraditionalForm]}]],
6914     TraditionalForm]}], "+",
6915   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRz", " ",
6916    FormBox[
6917     SubscriptBox["\[Delta]",
6918      RowBox[{
6919       FormBox[
6920        SubscriptBox["\<\"i\"\>", "1"],
6921        TraditionalForm], ",",
6922       FormBox[
6923        SubscriptBox["\<\"i\"\>", "2"],
6924        TraditionalForm]}]],
6925     TraditionalForm], " ",
6926    FormBox[
6927     SubscriptBox[
6928      RowBox[{
6929       FormBox[
6930        SuperscriptBox["\[Gamma]",
6931         FormBox[
6932          SubscriptBox["\<\"\[Mu]\"\>", "3"],
6933          TraditionalForm]],
6934        TraditionalForm], ".",
6935       FormBox[
6936        SubscriptBox["P", "\<\"+\"\>"],
6937        TraditionalForm]}],
6938      RowBox[{
6939       FormBox[
6940        SubscriptBox["\<\"s\"\>", "1"],
6941        TraditionalForm], ",",
6942       FormBox[
6943        SubscriptBox["\<\"s\"\>", "2"],
6944        TraditionalForm]}]],
6945     TraditionalForm]}]}], TraditionalForm]], "Print",
6946 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6947  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6948  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6949  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6950  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6951  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6952  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671854212*^9},
6953 FontSize->7],
6954
6955Cell[BoxData[
6956 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
6957* * * *)\"\>", TraditionalForm]], "Print",
6958 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6959  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6960  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6961  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6962  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6963  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6964  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718737144`*^9},
6965 FontSize->7],
6966
6967Cell[BoxData[
6968 FormBox[
6969  InterpretationBox[
6970   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "41"}],
6971   SequenceForm["Vertex ", 41],
6972   Editable->False], TraditionalForm]], "Print",
6973 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6974  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6975  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6976  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6977  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6978  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6979  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066718792152`*^9},
6980 FontSize->7],
6981
6982Cell[BoxData[
6983 FormBox[
6984  InterpretationBox[
6985   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
6986    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
6987    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
6988   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
6989   Editable->False], TraditionalForm]], "Print",
6990 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
6991  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
6992  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
6993  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
6994  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
6995  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
6996  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671895217*^9},
6997 FontSize->7],
6998
6999Cell[BoxData[
7000 FormBox[
7001  InterpretationBox[
7002   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7003    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7004    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7005    FormBox[
7006     OverscriptBox["bp", "\<\"-\"\>"],
7007     TraditionalForm]}],
7008   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
7009   Editable->False], TraditionalForm]], "Print",
7010 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7011  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7012  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7013  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7014  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7015  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7016  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719007177`*^9},
7017 FontSize->7],
7018
7019Cell[BoxData[
7020 FormBox[
7021  InterpretationBox[
7022   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7023    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7024     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7025   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7026   Editable->False], TraditionalForm]], "Print",
7027 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7028  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7029  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7030  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7031  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7032  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7033  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719072185`*^9},
7034 FontSize->7],
7035
7036Cell[BoxData[
7037 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7038 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7039  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7040  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7041  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7042  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7043  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7044  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719212203`*^9},
7045 FontSize->7],
7046
7047Cell[BoxData[
7048 FormBox[
7049  RowBox[{
7050   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLz", " ",
7051    FormBox[
7052     SubscriptBox["\[Delta]",
7053      RowBox[{
7054       FormBox[
7055        SubscriptBox["\<\"i\"\>", "1"],
7056        TraditionalForm], ",",
7057       FormBox[
7058        SubscriptBox["\<\"i\"\>", "2"],
7059        TraditionalForm]}]],
7060     TraditionalForm], " ",
7061    FormBox[
7062     SubscriptBox[
7063      RowBox[{
7064       FormBox[
7065        SuperscriptBox["\[Gamma]",
7066         FormBox[
7067          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7068          TraditionalForm]],
7069        TraditionalForm], ".",
7070       FormBox[
7071        SubscriptBox["P", "\<\"-\"\>"],
7072        TraditionalForm]}],
7073      RowBox[{
7074       FormBox[
7075        SubscriptBox["\<\"s\"\>", "2"],
7076        TraditionalForm], ",",
7077       FormBox[
7078        SubscriptBox["\<\"s\"\>", "1"],
7079        TraditionalForm]}]],
7080     TraditionalForm]}], "+",
7081   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRz", " ",
7082    FormBox[
7083     SubscriptBox["\[Delta]",
7084      RowBox[{
7085       FormBox[
7086        SubscriptBox["\<\"i\"\>", "1"],
7087        TraditionalForm], ",",
7088       FormBox[
7089        SubscriptBox["\<\"i\"\>", "2"],
7090        TraditionalForm]}]],
7091     TraditionalForm], " ",
7092    FormBox[
7093     SubscriptBox[
7094      RowBox[{
7095       FormBox[
7096        SuperscriptBox["\[Gamma]",
7097         FormBox[
7098          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7099          TraditionalForm]],
7100        TraditionalForm], ".",
7101       FormBox[
7102        SubscriptBox["P", "\<\"+\"\>"],
7103        TraditionalForm]}],
7104      RowBox[{
7105       FormBox[
7106        SubscriptBox["\<\"s\"\>", "2"],
7107        TraditionalForm], ",",
7108       FormBox[
7109        SubscriptBox["\<\"s\"\>", "1"],
7110        TraditionalForm]}]],
7111     TraditionalForm]}]}], TraditionalForm]], "Print",
7112 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7113  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7114  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7115  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7116  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7117  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7118  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719257207`*^9},
7119 FontSize->7],
7120
7121Cell[BoxData[
7122 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7123* * * *)\"\>", TraditionalForm]], "Print",
7124 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7125  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7126  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7127  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7128  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7129  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7130  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671933722*^9},
7131 FontSize->7],
7132
7133Cell[BoxData[
7134 FormBox[
7135  InterpretationBox[
7136   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "42"}],
7137   SequenceForm["Vertex ", 42],
7138   Editable->False], TraditionalForm]], "Print",
7139 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7140  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7141  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7142  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7143  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7144  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7145  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671946724*^9},
7146 FontSize->7],
7147
7148Cell[BoxData[
7149 FormBox[
7150  InterpretationBox[
7151   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7152    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7153    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7154    FormBox[
7155     OverscriptBox["bp", "\<\"-\"\>"],
7156     TraditionalForm]}],
7157   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
7158   Editable->False], TraditionalForm]], "Print",
7159 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7160  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7161  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7162  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7163  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7164  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7165  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719507236`*^9},
7166 FontSize->7],
7167
7168Cell[BoxData[
7169 FormBox[
7170  InterpretationBox[
7171   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7172    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7173    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
7174   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
7175   Editable->False], TraditionalForm]], "Print",
7176 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7177  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7178  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7179  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7180  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7181  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7182  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719547243`*^9},
7183 FontSize->7],
7184
7185Cell[BoxData[
7186 FormBox[
7187  InterpretationBox[
7188   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7189    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7190     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7191   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7192   Editable->False], TraditionalForm]], "Print",
7193 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7194  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7195  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7196  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7197  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7198  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7199  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671959225*^9},
7200 FontSize->7],
7201
7202Cell[BoxData[
7203 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7204 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7205  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7206  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7207  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7208  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7209  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7210  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719702263`*^9},
7211 FontSize->7],
7212
7213Cell[BoxData[
7214 FormBox[
7215  RowBox[{
7216   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLz", " ",
7217    FormBox[
7218     SubscriptBox["\[Delta]",
7219      RowBox[{
7220       FormBox[
7221        SubscriptBox["\<\"i\"\>", "1"],
7222        TraditionalForm], ",",
7223       FormBox[
7224        SubscriptBox["\<\"i\"\>", "2"],
7225        TraditionalForm]}]],
7226     TraditionalForm], " ",
7227    FormBox[
7228     SubscriptBox[
7229      RowBox[{
7230       FormBox[
7231        SuperscriptBox["\[Gamma]",
7232         FormBox[
7233          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7234          TraditionalForm]],
7235        TraditionalForm], ".",
7236       FormBox[
7237        SubscriptBox["P", "\<\"-\"\>"],
7238        TraditionalForm]}],
7239      RowBox[{
7240       FormBox[
7241        SubscriptBox["\<\"s\"\>", "1"],
7242        TraditionalForm], ",",
7243       FormBox[
7244        SubscriptBox["\<\"s\"\>", "2"],
7245        TraditionalForm]}]],
7246     TraditionalForm]}], "+",
7247   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRz", " ",
7248    FormBox[
7249     SubscriptBox["\[Delta]",
7250      RowBox[{
7251       FormBox[
7252        SubscriptBox["\<\"i\"\>", "1"],
7253        TraditionalForm], ",",
7254       FormBox[
7255        SubscriptBox["\<\"i\"\>", "2"],
7256        TraditionalForm]}]],
7257     TraditionalForm], " ",
7258    FormBox[
7259     SubscriptBox[
7260      RowBox[{
7261       FormBox[
7262        SuperscriptBox["\[Gamma]",
7263         FormBox[
7264          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7265          TraditionalForm]],
7266        TraditionalForm], ".",
7267       FormBox[
7268        SubscriptBox["P", "\<\"+\"\>"],
7269        TraditionalForm]}],
7270      RowBox[{
7271       FormBox[
7272        SubscriptBox["\<\"s\"\>", "1"],
7273        TraditionalForm], ",",
7274       FormBox[
7275        SubscriptBox["\<\"s\"\>", "2"],
7276        TraditionalForm]}]],
7277     TraditionalForm]}]}], TraditionalForm]], "Print",
7278 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7279  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7280  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7281  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7282  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7283  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7284  3.581087202138607*^9, 3.581705753825637*^9, 3.581706671974227*^9},
7285 FontSize->7],
7286
7287Cell[BoxData[
7288 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7289* * * *)\"\>", TraditionalForm]], "Print",
7290 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7291  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7292  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7293  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7294  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7295  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7296  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719802275`*^9},
7297 FontSize->7],
7298
7299Cell[BoxData[
7300 FormBox[
7301  InterpretationBox[
7302   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "43"}],
7303   SequenceForm["Vertex ", 43],
7304   Editable->False], TraditionalForm]], "Print",
7305 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7306  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7307  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7308  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7309  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7310  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7311  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719907293`*^9},
7312 FontSize->7],
7313
7314Cell[BoxData[
7315 FormBox[
7316  InterpretationBox[
7317   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7318    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7319    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7320    FormBox[
7321     OverscriptBox["bp", "\<\"-\"\>"],
7322     TraditionalForm]}],
7323   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
7324   Editable->False], TraditionalForm]], "Print",
7325 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7326  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7327  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7328  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7329  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7330  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7331  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066719947295`*^9},
7332 FontSize->7],
7333
7334Cell[BoxData[
7335 FormBox[
7336  InterpretationBox[
7337   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7338    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7339    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
7340   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
7341   Editable->False], TraditionalForm]], "Print",
7342 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7343  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7344  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7345  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7346  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7347  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7348  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667199973*^9},
7349 FontSize->7],
7350
7351Cell[BoxData[
7352 FormBox[
7353  InterpretationBox[
7354   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7355    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7356     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7357   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7358   Editable->False], TraditionalForm]], "Print",
7359 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7360  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7361  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7362  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7363  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7364  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7365  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672003731*^9},
7366 FontSize->7],
7367
7368Cell[BoxData[
7369 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7370 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7371  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7372  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7373  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7374  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7375  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7376  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720097313`*^9},
7377 FontSize->7],
7378
7379Cell[BoxData[
7380 FormBox[
7381  RowBox[{
7382   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLz", " ",
7383    FormBox[
7384     SubscriptBox["\[Delta]",
7385      RowBox[{
7386       FormBox[
7387        SubscriptBox["\<\"i\"\>", "1"],
7388        TraditionalForm], ",",
7389       FormBox[
7390        SubscriptBox["\<\"i\"\>", "2"],
7391        TraditionalForm]}]],
7392     TraditionalForm], " ",
7393    FormBox[
7394     SubscriptBox[
7395      RowBox[{
7396       FormBox[
7397        SuperscriptBox["\[Gamma]",
7398         FormBox[
7399          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7400          TraditionalForm]],
7401        TraditionalForm], ".",
7402       FormBox[
7403        SubscriptBox["P", "\<\"-\"\>"],
7404        TraditionalForm]}],
7405      RowBox[{
7406       FormBox[
7407        SubscriptBox["\<\"s\"\>", "1"],
7408        TraditionalForm], ",",
7409       FormBox[
7410        SubscriptBox["\<\"s\"\>", "2"],
7411        TraditionalForm]}]],
7412     TraditionalForm]}], "+",
7413   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRz", " ",
7414    FormBox[
7415     SubscriptBox["\[Delta]",
7416      RowBox[{
7417       FormBox[
7418        SubscriptBox["\<\"i\"\>", "1"],
7419        TraditionalForm], ",",
7420       FormBox[
7421        SubscriptBox["\<\"i\"\>", "2"],
7422        TraditionalForm]}]],
7423     TraditionalForm], " ",
7424    FormBox[
7425     SubscriptBox[
7426      RowBox[{
7427       FormBox[
7428        SuperscriptBox["\[Gamma]",
7429         FormBox[
7430          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7431          TraditionalForm]],
7432        TraditionalForm], ".",
7433       FormBox[
7434        SubscriptBox["P", "\<\"+\"\>"],
7435        TraditionalForm]}],
7436      RowBox[{
7437       FormBox[
7438        SubscriptBox["\<\"s\"\>", "1"],
7439        TraditionalForm], ",",
7440       FormBox[
7441        SubscriptBox["\<\"s\"\>", "2"],
7442        TraditionalForm]}]],
7443     TraditionalForm]}]}], TraditionalForm]], "Print",
7444 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7445  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7446  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7447  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7448  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7449  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7450  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720197325`*^9},
7451 FontSize->7],
7452
7453Cell[BoxData[
7454 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7455* * * *)\"\>", TraditionalForm]], "Print",
7456 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7457  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7458  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7459  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7460  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7461  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7462  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672025734*^9},
7463 FontSize->7],
7464
7465Cell[BoxData[
7466 FormBox[
7467  InterpretationBox[
7468   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "44"}],
7469   SequenceForm["Vertex ", 44],
7470   Editable->False], TraditionalForm]], "Print",
7471 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7472  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7473  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7474  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7475  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7476  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7477  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720297337`*^9},
7478 FontSize->7],
7479
7480Cell[BoxData[
7481 FormBox[
7482  InterpretationBox[
7483   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7484    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7485    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7486    FormBox[
7487     OverscriptBox["c", "\<\"-\"\>"],
7488     TraditionalForm]}],
7489   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
7490   Editable->False], TraditionalForm]], "Print",
7491 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7492  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7493  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7494  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7495  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7496  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7497  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672034235*^9},
7498 FontSize->7],
7499
7500Cell[BoxData[
7501 FormBox[
7502  InterpretationBox[
7503   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7504    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7505    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
7506   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
7507   Editable->False], TraditionalForm]], "Print",
7508 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7509  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7510  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7511  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7512  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7513  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7514  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720457363`*^9},
7515 FontSize->7],
7516
7517Cell[BoxData[
7518 FormBox[
7519  InterpretationBox[
7520   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7521    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7522     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7523   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7524   Editable->False], TraditionalForm]], "Print",
7525 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7526  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7527  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7528  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7529  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7530  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7531  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720497365`*^9},
7532 FontSize->7],
7533
7534Cell[BoxData[
7535 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7536 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7537  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7538  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7539  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7540  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7541  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7542  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720542374`*^9},
7543 FontSize->7],
7544
7545Cell[BoxData[
7546 FormBox[
7547  RowBox[{
7548   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLz", " ",
7549    FormBox[
7550     SubscriptBox["\[Delta]",
7551      RowBox[{
7552       FormBox[
7553        SubscriptBox["\<\"i\"\>", "1"],
7554        TraditionalForm], ",",
7555       FormBox[
7556        SubscriptBox["\<\"i\"\>", "2"],
7557        TraditionalForm]}]],
7558     TraditionalForm], " ",
7559    FormBox[
7560     SubscriptBox[
7561      RowBox[{
7562       FormBox[
7563        SuperscriptBox["\[Gamma]",
7564         FormBox[
7565          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7566          TraditionalForm]],
7567        TraditionalForm], ".",
7568       FormBox[
7569        SubscriptBox["P", "\<\"-\"\>"],
7570        TraditionalForm]}],
7571      RowBox[{
7572       FormBox[
7573        SubscriptBox["\<\"s\"\>", "1"],
7574        TraditionalForm], ",",
7575       FormBox[
7576        SubscriptBox["\<\"s\"\>", "2"],
7577        TraditionalForm]}]],
7578     TraditionalForm]}], "+",
7579   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRz", " ",
7580    FormBox[
7581     SubscriptBox["\[Delta]",
7582      RowBox[{
7583       FormBox[
7584        SubscriptBox["\<\"i\"\>", "1"],
7585        TraditionalForm], ",",
7586       FormBox[
7587        SubscriptBox["\<\"i\"\>", "2"],
7588        TraditionalForm]}]],
7589     TraditionalForm], " ",
7590    FormBox[
7591     SubscriptBox[
7592      RowBox[{
7593       FormBox[
7594        SuperscriptBox["\[Gamma]",
7595         FormBox[
7596          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7597          TraditionalForm]],
7598        TraditionalForm], ".",
7599       FormBox[
7600        SubscriptBox["P", "\<\"+\"\>"],
7601        TraditionalForm]}],
7602      RowBox[{
7603       FormBox[
7604        SubscriptBox["\<\"s\"\>", "1"],
7605        TraditionalForm], ",",
7606       FormBox[
7607        SubscriptBox["\<\"s\"\>", "2"],
7608        TraditionalForm]}]],
7609     TraditionalForm]}]}], TraditionalForm]], "Print",
7610 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7611  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7612  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7613  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7614  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7615  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7616  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720587378`*^9},
7617 FontSize->7],
7618
7619Cell[BoxData[
7620 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7621* * * *)\"\>", TraditionalForm]], "Print",
7622 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7623  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7624  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7625  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7626  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7627  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7628  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720707393`*^9},
7629 FontSize->7],
7630
7631Cell[BoxData[
7632 FormBox[
7633  InterpretationBox[
7634   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "45"}],
7635   SequenceForm["Vertex ", 45],
7636   Editable->False], TraditionalForm]], "Print",
7637 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7638  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7639  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7640  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7641  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7642  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7643  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720747395`*^9},
7644 FontSize->7],
7645
7646Cell[BoxData[
7647 FormBox[
7648  InterpretationBox[
7649   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7650    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7651    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
7652   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
7653   Editable->False], TraditionalForm]], "Print",
7654 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7655  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7656  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7657  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7658  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7659  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7660  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720792403`*^9},
7661 FontSize->7],
7662
7663Cell[BoxData[
7664 FormBox[
7665  InterpretationBox[
7666   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7667    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7668    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7669    FormBox[
7670     OverscriptBox["d", "\<\"-\"\>"],
7671     TraditionalForm]}],
7672   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
7673   Editable->False], TraditionalForm]], "Print",
7674 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7675  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7676  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7677  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7678  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7679  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7680  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672090742*^9},
7681 FontSize->7],
7682
7683Cell[BoxData[
7684 FormBox[
7685  InterpretationBox[
7686   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7687    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7688     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7689   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7690   Editable->False], TraditionalForm]], "Print",
7691 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7692  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7693  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7694  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7695  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7696  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7697  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066720962424`*^9},
7698 FontSize->7],
7699
7700Cell[BoxData[
7701 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7702 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7703  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7704  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7705  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7706  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7707  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7708  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672101243*^9},
7709 FontSize->7],
7710
7711Cell[BoxData[
7712 FormBox[
7713  RowBox[{
7714   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLz", " ",
7715    FormBox[
7716     SubscriptBox["\[Delta]",
7717      RowBox[{
7718       FormBox[
7719        SubscriptBox["\<\"i\"\>", "1"],
7720        TraditionalForm], ",",
7721       FormBox[
7722        SubscriptBox["\<\"i\"\>", "2"],
7723        TraditionalForm]}]],
7724     TraditionalForm], " ",
7725    FormBox[
7726     SubscriptBox[
7727      RowBox[{
7728       FormBox[
7729        SuperscriptBox["\[Gamma]",
7730         FormBox[
7731          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7732          TraditionalForm]],
7733        TraditionalForm], ".",
7734       FormBox[
7735        SubscriptBox["P", "\<\"-\"\>"],
7736        TraditionalForm]}],
7737      RowBox[{
7738       FormBox[
7739        SubscriptBox["\<\"s\"\>", "2"],
7740        TraditionalForm], ",",
7741       FormBox[
7742        SubscriptBox["\<\"s\"\>", "1"],
7743        TraditionalForm]}]],
7744     TraditionalForm]}], "+",
7745   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRz", " ",
7746    FormBox[
7747     SubscriptBox["\[Delta]",
7748      RowBox[{
7749       FormBox[
7750        SubscriptBox["\<\"i\"\>", "1"],
7751        TraditionalForm], ",",
7752       FormBox[
7753        SubscriptBox["\<\"i\"\>", "2"],
7754        TraditionalForm]}]],
7755     TraditionalForm], " ",
7756    FormBox[
7757     SubscriptBox[
7758      RowBox[{
7759       FormBox[
7760        SuperscriptBox["\[Gamma]",
7761         FormBox[
7762          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7763          TraditionalForm]],
7764        TraditionalForm], ".",
7765       FormBox[
7766        SubscriptBox["P", "\<\"+\"\>"],
7767        TraditionalForm]}],
7768      RowBox[{
7769       FormBox[
7770        SubscriptBox["\<\"s\"\>", "2"],
7771        TraditionalForm], ",",
7772       FormBox[
7773        SubscriptBox["\<\"s\"\>", "1"],
7774        TraditionalForm]}]],
7775     TraditionalForm]}]}], TraditionalForm]], "Print",
7776 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7777  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7778  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7779  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7780  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7781  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7782  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066721057434`*^9},
7783 FontSize->7],
7784
7785Cell[BoxData[
7786 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7787* * * *)\"\>", TraditionalForm]], "Print",
7788 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7789  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7790  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7791  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7792  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7793  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7794  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066721187453`*^9},
7795 FontSize->7],
7796
7797Cell[BoxData[
7798 FormBox[
7799  InterpretationBox[
7800   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "46"}],
7801   SequenceForm["Vertex ", 46],
7802   Editable->False], TraditionalForm]], "Print",
7803 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7804  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7805  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7806  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7807  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7808  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7809  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672122746*^9},
7810 FontSize->7],
7811
7812Cell[BoxData[
7813 FormBox[
7814  InterpretationBox[
7815   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7816    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7817    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
7818   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
7819   Editable->False], TraditionalForm]], "Print",
7820 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7821  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7822  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7823  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7824  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7825  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7826  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672126746*^9},
7827 FontSize->7],
7828
7829Cell[BoxData[
7830 FormBox[
7831  InterpretationBox[
7832   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
7833    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7834    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7835    FormBox[
7836     OverscriptBox["s", "\<\"-\"\>"],
7837     TraditionalForm]}],
7838   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
7839   Editable->False], TraditionalForm]], "Print",
7840 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7841  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7842  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7843  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7844  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7845  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7846  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672132747*^9},
7847 FontSize->7],
7848
7849Cell[BoxData[
7850 FormBox[
7851  InterpretationBox[
7852   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
7853    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
7854     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
7855   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
7856   Editable->False], TraditionalForm]], "Print",
7857 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7858  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7859  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7860  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7861  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7862  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7863  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672142248*^9},
7864 FontSize->7],
7865
7866Cell[BoxData[
7867 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
7868 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7869  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7870  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7871  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7872  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7873  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7874  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672146249*^9},
7875 FontSize->7],
7876
7877Cell[BoxData[
7878 FormBox[
7879  RowBox[{
7880   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLz", " ",
7881    FormBox[
7882     SubscriptBox["\[Delta]",
7883      RowBox[{
7884       FormBox[
7885        SubscriptBox["\<\"i\"\>", "1"],
7886        TraditionalForm], ",",
7887       FormBox[
7888        SubscriptBox["\<\"i\"\>", "2"],
7889        TraditionalForm]}]],
7890     TraditionalForm], " ",
7891    FormBox[
7892     SubscriptBox[
7893      RowBox[{
7894       FormBox[
7895        SuperscriptBox["\[Gamma]",
7896         FormBox[
7897          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7898          TraditionalForm]],
7899        TraditionalForm], ".",
7900       FormBox[
7901        SubscriptBox["P", "\<\"-\"\>"],
7902        TraditionalForm]}],
7903      RowBox[{
7904       FormBox[
7905        SubscriptBox["\<\"s\"\>", "2"],
7906        TraditionalForm], ",",
7907       FormBox[
7908        SubscriptBox["\<\"s\"\>", "1"],
7909        TraditionalForm]}]],
7910     TraditionalForm]}], "+",
7911   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRz", " ",
7912    FormBox[
7913     SubscriptBox["\[Delta]",
7914      RowBox[{
7915       FormBox[
7916        SubscriptBox["\<\"i\"\>", "1"],
7917        TraditionalForm], ",",
7918       FormBox[
7919        SubscriptBox["\<\"i\"\>", "2"],
7920        TraditionalForm]}]],
7921     TraditionalForm], " ",
7922    FormBox[
7923     SubscriptBox[
7924      RowBox[{
7925       FormBox[
7926        SuperscriptBox["\[Gamma]",
7927         FormBox[
7928          SubscriptBox["\<\"\[Mu]\"\>", "3"],
7929          TraditionalForm]],
7930        TraditionalForm], ".",
7931       FormBox[
7932        SubscriptBox["P", "\<\"+\"\>"],
7933        TraditionalForm]}],
7934      RowBox[{
7935       FormBox[
7936        SubscriptBox["\<\"s\"\>", "2"],
7937        TraditionalForm], ",",
7938       FormBox[
7939        SubscriptBox["\<\"s\"\>", "1"],
7940        TraditionalForm]}]],
7941     TraditionalForm]}]}], TraditionalForm]], "Print",
7942 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7943  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7944  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7945  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7946  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7947  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7948  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672150749*^9},
7949 FontSize->7],
7950
7951Cell[BoxData[
7952 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
7953* * * *)\"\>", TraditionalForm]], "Print",
7954 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7955  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7956  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7957  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7958  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7959  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7960  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066721572504`*^9},
7961 FontSize->7],
7962
7963Cell[BoxData[
7964 FormBox[
7965  InterpretationBox[
7966   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "47"}],
7967   SequenceForm["Vertex ", 47],
7968   Editable->False], TraditionalForm]], "Print",
7969 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7970  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7971  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7972  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7973  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7974  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7975  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672166752*^9},
7976 FontSize->7],
7977
7978Cell[BoxData[
7979 FormBox[
7980  InterpretationBox[
7981   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
7982    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
7983    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
7984    FormBox[
7985     OverscriptBox["t", "\<\"-\"\>"],
7986     TraditionalForm]}],
7987   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tbar],
7988   Editable->False], TraditionalForm]], "Print",
7989 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
7990  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
7991  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
7992  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
7993  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
7994  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
7995  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672171752*^9},
7996 FontSize->7],
7997
7998Cell[BoxData[
7999 FormBox[
8000  InterpretationBox[
8001   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8002    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8003    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
8004   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
8005   Editable->False], TraditionalForm]], "Print",
8006 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8007  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8008  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8009  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8010  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8011  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8012  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066721757526`*^9},
8013 FontSize->7],
8014
8015Cell[BoxData[
8016 FormBox[
8017  InterpretationBox[
8018   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8019    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8020     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
8021   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
8022   Editable->False], TraditionalForm]], "Print",
8023 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8024  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8025  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8026  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8027  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8028  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8029  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066721797533`*^9},
8030 FontSize->7],
8031
8032Cell[BoxData[
8033 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8034 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8035  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8036  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8037  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8038  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8039  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8040  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722067566`*^9},
8041 FontSize->7],
8042
8043Cell[BoxData[
8044 FormBox[
8045  RowBox[{
8046   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLz", " ",
8047    FormBox[
8048     SubscriptBox["\[Delta]",
8049      RowBox[{
8050       FormBox[
8051        SubscriptBox["\<\"i\"\>", "1"],
8052        TraditionalForm], ",",
8053       FormBox[
8054        SubscriptBox["\<\"i\"\>", "2"],
8055        TraditionalForm]}]],
8056     TraditionalForm], " ",
8057    FormBox[
8058     SubscriptBox[
8059      RowBox[{
8060       FormBox[
8061        SuperscriptBox["\[Gamma]",
8062         FormBox[
8063          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8064          TraditionalForm]],
8065        TraditionalForm], ".",
8066       FormBox[
8067        SubscriptBox["P", "\<\"-\"\>"],
8068        TraditionalForm]}],
8069      RowBox[{
8070       FormBox[
8071        SubscriptBox["\<\"s\"\>", "1"],
8072        TraditionalForm], ",",
8073       FormBox[
8074        SubscriptBox["\<\"s\"\>", "2"],
8075        TraditionalForm]}]],
8076     TraditionalForm]}], "+",
8077   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRz", " ",
8078    FormBox[
8079     SubscriptBox["\[Delta]",
8080      RowBox[{
8081       FormBox[
8082        SubscriptBox["\<\"i\"\>", "1"],
8083        TraditionalForm], ",",
8084       FormBox[
8085        SubscriptBox["\<\"i\"\>", "2"],
8086        TraditionalForm]}]],
8087     TraditionalForm], " ",
8088    FormBox[
8089     SubscriptBox[
8090      RowBox[{
8091       FormBox[
8092        SuperscriptBox["\[Gamma]",
8093         FormBox[
8094          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8095          TraditionalForm]],
8096        TraditionalForm], ".",
8097       FormBox[
8098        SubscriptBox["P", "\<\"+\"\>"],
8099        TraditionalForm]}],
8100      RowBox[{
8101       FormBox[
8102        SubscriptBox["\<\"s\"\>", "1"],
8103        TraditionalForm], ",",
8104       FormBox[
8105        SubscriptBox["\<\"s\"\>", "2"],
8106        TraditionalForm]}]],
8107     TraditionalForm]}]}], TraditionalForm]], "Print",
8108 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8109  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8110  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8111  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8112  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8113  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8114  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722142577`*^9},
8115 FontSize->7],
8116
8117Cell[BoxData[
8118 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8119* * * *)\"\>", TraditionalForm]], "Print",
8120 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8121  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8122  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8123  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8124  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8125  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8126  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722202587`*^9},
8127 FontSize->7],
8128
8129Cell[BoxData[
8130 FormBox[
8131  InterpretationBox[
8132   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "48"}],
8133   SequenceForm["Vertex ", 48],
8134   Editable->False], TraditionalForm]], "Print",
8135 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8136  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8137  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8138  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8139  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8140  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8141  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672224759*^9},
8142 FontSize->7],
8143
8144Cell[BoxData[
8145 FormBox[
8146  InterpretationBox[
8147   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8148    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8149    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
8150   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
8151   Editable->False], TraditionalForm]], "Print",
8152 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8153  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8154  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8155  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8156  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8157  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8158  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722297597`*^9},
8159 FontSize->7],
8160
8161Cell[BoxData[
8162 FormBox[
8163  InterpretationBox[
8164   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8165    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8166    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8167    FormBox[
8168     OverscriptBox["tp", "\<\"-\"\>"],
8169     TraditionalForm]}],
8170   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
8171   Editable->False], TraditionalForm]], "Print",
8172 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8173  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8174  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8175  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8176  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8177  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8178  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722392607`*^9},
8179 FontSize->7],
8180
8181Cell[BoxData[
8182 FormBox[
8183  InterpretationBox[
8184   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8185    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8186     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
8187   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
8188   Editable->False], TraditionalForm]], "Print",
8189 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8190  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8191  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8192  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8193  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8194  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8195  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722447615`*^9},
8196 FontSize->7],
8197
8198Cell[BoxData[
8199 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8200 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8201  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8202  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8203  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8204  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8205  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8206  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672249262*^9},
8207 FontSize->7],
8208
8209Cell[BoxData[
8210 FormBox[
8211  RowBox[{
8212   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLz", " ",
8213    FormBox[
8214     SubscriptBox["\[Delta]",
8215      RowBox[{
8216       FormBox[
8217        SubscriptBox["\<\"i\"\>", "1"],
8218        TraditionalForm], ",",
8219       FormBox[
8220        SubscriptBox["\<\"i\"\>", "2"],
8221        TraditionalForm]}]],
8222     TraditionalForm], " ",
8223    FormBox[
8224     SubscriptBox[
8225      RowBox[{
8226       FormBox[
8227        SuperscriptBox["\[Gamma]",
8228         FormBox[
8229          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8230          TraditionalForm]],
8231        TraditionalForm], ".",
8232       FormBox[
8233        SubscriptBox["P", "\<\"-\"\>"],
8234        TraditionalForm]}],
8235      RowBox[{
8236       FormBox[
8237        SubscriptBox["\<\"s\"\>", "2"],
8238        TraditionalForm], ",",
8239       FormBox[
8240        SubscriptBox["\<\"s\"\>", "1"],
8241        TraditionalForm]}]],
8242     TraditionalForm]}], "+",
8243   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRz", " ",
8244    FormBox[
8245     SubscriptBox["\[Delta]",
8246      RowBox[{
8247       FormBox[
8248        SubscriptBox["\<\"i\"\>", "1"],
8249        TraditionalForm], ",",
8250       FormBox[
8251        SubscriptBox["\<\"i\"\>", "2"],
8252        TraditionalForm]}]],
8253     TraditionalForm], " ",
8254    FormBox[
8255     SubscriptBox[
8256      RowBox[{
8257       FormBox[
8258        SuperscriptBox["\[Gamma]",
8259         FormBox[
8260          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8261          TraditionalForm]],
8262        TraditionalForm], ".",
8263       FormBox[
8264        SubscriptBox["P", "\<\"+\"\>"],
8265        TraditionalForm]}],
8266      RowBox[{
8267       FormBox[
8268        SubscriptBox["\<\"s\"\>", "2"],
8269        TraditionalForm], ",",
8270       FormBox[
8271        SubscriptBox["\<\"s\"\>", "1"],
8272        TraditionalForm]}]],
8273     TraditionalForm]}]}], TraditionalForm]], "Print",
8274 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8275  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8276  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8277  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8278  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8279  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8280  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722537622`*^9},
8281 FontSize->7],
8282
8283Cell[BoxData[
8284 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8285* * * *)\"\>", TraditionalForm]], "Print",
8286 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8287  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8288  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8289  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8290  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8291  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8292  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672264764*^9},
8293 FontSize->7],
8294
8295Cell[BoxData[
8296 FormBox[
8297  InterpretationBox[
8298   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "49"}],
8299   SequenceForm["Vertex ", 49],
8300   Editable->False], TraditionalForm]], "Print",
8301 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8302  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8303  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8304  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8305  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8306  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8307  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672269264*^9},
8308 FontSize->7],
8309
8310Cell[BoxData[
8311 FormBox[
8312  InterpretationBox[
8313   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8314    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8315    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
8316   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
8317   Editable->False], TraditionalForm]], "Print",
8318 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8319  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8320  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8321  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8322  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8323  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8324  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672273265*^9},
8325 FontSize->7],
8326
8327Cell[BoxData[
8328 FormBox[
8329  InterpretationBox[
8330   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8331    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8332    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8333    FormBox[
8334     OverscriptBox["tp", "\<\"-\"\>"],
8335     TraditionalForm]}],
8336   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
8337   Editable->False], TraditionalForm]], "Print",
8338 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8339  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8340  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8341  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8342  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8343  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8344  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722777653`*^9},
8345 FontSize->7],
8346
8347Cell[BoxData[
8348 FormBox[
8349  InterpretationBox[
8350   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8351    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8352     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
8353   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
8354   Editable->False], TraditionalForm]], "Print",
8355 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8356  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8357  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8358  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8359  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8360  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8361  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722837667`*^9},
8362 FontSize->7],
8363
8364Cell[BoxData[
8365 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8366 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8367  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8368  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8369  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8370  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8371  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8372  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672293768*^9},
8373 FontSize->7],
8374
8375Cell[BoxData[
8376 FormBox[
8377  RowBox[{
8378   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLz", " ",
8379    FormBox[
8380     SubscriptBox["\[Delta]",
8381      RowBox[{
8382       FormBox[
8383        SubscriptBox["\<\"i\"\>", "1"],
8384        TraditionalForm], ",",
8385       FormBox[
8386        SubscriptBox["\<\"i\"\>", "2"],
8387        TraditionalForm]}]],
8388     TraditionalForm], " ",
8389    FormBox[
8390     SubscriptBox[
8391      RowBox[{
8392       FormBox[
8393        SuperscriptBox["\[Gamma]",
8394         FormBox[
8395          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8396          TraditionalForm]],
8397        TraditionalForm], ".",
8398       FormBox[
8399        SubscriptBox["P", "\<\"-\"\>"],
8400        TraditionalForm]}],
8401      RowBox[{
8402       FormBox[
8403        SubscriptBox["\<\"s\"\>", "2"],
8404        TraditionalForm], ",",
8405       FormBox[
8406        SubscriptBox["\<\"s\"\>", "1"],
8407        TraditionalForm]}]],
8408     TraditionalForm]}], "+",
8409   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRz", " ",
8410    FormBox[
8411     SubscriptBox["\[Delta]",
8412      RowBox[{
8413       FormBox[
8414        SubscriptBox["\<\"i\"\>", "1"],
8415        TraditionalForm], ",",
8416       FormBox[
8417        SubscriptBox["\<\"i\"\>", "2"],
8418        TraditionalForm]}]],
8419     TraditionalForm], " ",
8420    FormBox[
8421     SubscriptBox[
8422      RowBox[{
8423       FormBox[
8424        SuperscriptBox["\[Gamma]",
8425         FormBox[
8426          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8427          TraditionalForm]],
8428        TraditionalForm], ".",
8429       FormBox[
8430        SubscriptBox["P", "\<\"+\"\>"],
8431        TraditionalForm]}],
8432      RowBox[{
8433       FormBox[
8434        SubscriptBox["\<\"s\"\>", "2"],
8435        TraditionalForm], ",",
8436       FormBox[
8437        SubscriptBox["\<\"s\"\>", "1"],
8438        TraditionalForm]}]],
8439     TraditionalForm]}]}], TraditionalForm]], "Print",
8440 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8441  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8442  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8443  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8444  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8445  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8446  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066722982683`*^9},
8447 FontSize->7],
8448
8449Cell[BoxData[
8450 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8451* * * *)\"\>", TraditionalForm]], "Print",
8452 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8453  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8454  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8455  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8456  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8457  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8458  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672307269*^9},
8459 FontSize->7],
8460
8461Cell[BoxData[
8462 FormBox[
8463  InterpretationBox[
8464   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "50"}],
8465   SequenceForm["Vertex ", 50],
8466   Editable->False], TraditionalForm]], "Print",
8467 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8468  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8469  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8470  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8471  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8472  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8473  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667231227*^9},
8474 FontSize->7],
8475
8476Cell[BoxData[
8477 FormBox[
8478  InterpretationBox[
8479   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8480    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8481    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8482    FormBox[
8483     OverscriptBox["tp", "\<\"-\"\>"],
8484     TraditionalForm]}],
8485   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tpbar],
8486   Editable->False], TraditionalForm]], "Print",
8487 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8488  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8489  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8490  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8491  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8492  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8493  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723172703`*^9},
8494 FontSize->7],
8495
8496Cell[BoxData[
8497 FormBox[
8498  InterpretationBox[
8499   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8500    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8501    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
8502   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
8503   Editable->False], TraditionalForm]], "Print",
8504 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8505  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8506  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8507  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8508  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8509  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8510  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672321771*^9},
8511 FontSize->7],
8512
8513Cell[BoxData[
8514 FormBox[
8515  InterpretationBox[
8516   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8517    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8518     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
8519   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
8520   Editable->False], TraditionalForm]], "Print",
8521 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8522  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8523  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8524  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8525  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8526  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8527  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723262715`*^9},
8528 FontSize->7],
8529
8530Cell[BoxData[
8531 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8532 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8533  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8534  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8535  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8536  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8537  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8538  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723307724`*^9},
8539 FontSize->7],
8540
8541Cell[BoxData[
8542 FormBox[
8543  RowBox[{
8544   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLz", " ",
8545    FormBox[
8546     SubscriptBox["\[Delta]",
8547      RowBox[{
8548       FormBox[
8549        SubscriptBox["\<\"i\"\>", "1"],
8550        TraditionalForm], ",",
8551       FormBox[
8552        SubscriptBox["\<\"i\"\>", "2"],
8553        TraditionalForm]}]],
8554     TraditionalForm], " ",
8555    FormBox[
8556     SubscriptBox[
8557      RowBox[{
8558       FormBox[
8559        SuperscriptBox["\[Gamma]",
8560         FormBox[
8561          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8562          TraditionalForm]],
8563        TraditionalForm], ".",
8564       FormBox[
8565        SubscriptBox["P", "\<\"-\"\>"],
8566        TraditionalForm]}],
8567      RowBox[{
8568       FormBox[
8569        SubscriptBox["\<\"s\"\>", "1"],
8570        TraditionalForm], ",",
8571       FormBox[
8572        SubscriptBox["\<\"s\"\>", "2"],
8573        TraditionalForm]}]],
8574     TraditionalForm]}], "+",
8575   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRz", " ",
8576    FormBox[
8577     SubscriptBox["\[Delta]",
8578      RowBox[{
8579       FormBox[
8580        SubscriptBox["\<\"i\"\>", "1"],
8581        TraditionalForm], ",",
8582       FormBox[
8583        SubscriptBox["\<\"i\"\>", "2"],
8584        TraditionalForm]}]],
8585     TraditionalForm], " ",
8586    FormBox[
8587     SubscriptBox[
8588      RowBox[{
8589       FormBox[
8590        SuperscriptBox["\[Gamma]",
8591         FormBox[
8592          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8593          TraditionalForm]],
8594        TraditionalForm], ".",
8595       FormBox[
8596        SubscriptBox["P", "\<\"+\"\>"],
8597        TraditionalForm]}],
8598      RowBox[{
8599       FormBox[
8600        SubscriptBox["\<\"s\"\>", "1"],
8601        TraditionalForm], ",",
8602       FormBox[
8603        SubscriptBox["\<\"s\"\>", "2"],
8604        TraditionalForm]}]],
8605     TraditionalForm]}]}], TraditionalForm]], "Print",
8606 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8607  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8608  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8609  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8610  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8611  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8612  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723357725`*^9},
8613 FontSize->7],
8614
8615Cell[BoxData[
8616 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8617* * * *)\"\>", TraditionalForm]], "Print",
8618 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8619  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8620  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8621  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8622  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8623  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8624  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672346774*^9},
8625 FontSize->7],
8626
8627Cell[BoxData[
8628 FormBox[
8629  InterpretationBox[
8630   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "51"}],
8631   SequenceForm["Vertex ", 51],
8632   Editable->False], TraditionalForm]], "Print",
8633 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8634  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8635  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8636  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8637  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8638  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8639  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723512745`*^9},
8640 FontSize->7],
8641
8642Cell[BoxData[
8643 FormBox[
8644  InterpretationBox[
8645   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8646    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8647    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
8648   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tp],
8649   Editable->False], TraditionalForm]], "Print",
8650 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8651  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8652  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8653  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8654  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8655  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8656  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672355275*^9},
8657 FontSize->7],
8658
8659Cell[BoxData[
8660 FormBox[
8661  InterpretationBox[
8662   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8663    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8664    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8665    FormBox[
8666     OverscriptBox["u", "\<\"-\"\>"],
8667     TraditionalForm]}],
8668   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
8669   Editable->False], TraditionalForm]], "Print",
8670 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8671  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8672  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8673  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8674  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8675  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8676  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672359776*^9},
8677 FontSize->7],
8678
8679Cell[BoxData[
8680 FormBox[
8681  InterpretationBox[
8682   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8683    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8684     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
8685   SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
8686   Editable->False], TraditionalForm]], "Print",
8687 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8688  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8689  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8690  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8691  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8692  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8693  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723702774`*^9},
8694 FontSize->7],
8695
8696Cell[BoxData[
8697 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8698 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8699  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8700  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8701  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8702  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8703  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8704  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672374278*^9},
8705 FontSize->7],
8706
8707Cell[BoxData[
8708 FormBox[
8709  RowBox[{
8710   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLz", " ",
8711    FormBox[
8712     SubscriptBox["\[Delta]",
8713      RowBox[{
8714       FormBox[
8715        SubscriptBox["\<\"i\"\>", "1"],
8716        TraditionalForm], ",",
8717       FormBox[
8718        SubscriptBox["\<\"i\"\>", "2"],
8719        TraditionalForm]}]],
8720     TraditionalForm], " ",
8721    FormBox[
8722     SubscriptBox[
8723      RowBox[{
8724       FormBox[
8725        SuperscriptBox["\[Gamma]",
8726         FormBox[
8727          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8728          TraditionalForm]],
8729        TraditionalForm], ".",
8730       FormBox[
8731        SubscriptBox["P", "\<\"-\"\>"],
8732        TraditionalForm]}],
8733      RowBox[{
8734       FormBox[
8735        SubscriptBox["\<\"s\"\>", "2"],
8736        TraditionalForm], ",",
8737       FormBox[
8738        SubscriptBox["\<\"s\"\>", "1"],
8739        TraditionalForm]}]],
8740     TraditionalForm]}], "+",
8741   RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRz", " ",
8742    FormBox[
8743     SubscriptBox["\[Delta]",
8744      RowBox[{
8745       FormBox[
8746        SubscriptBox["\<\"i\"\>", "1"],
8747        TraditionalForm], ",",
8748       FormBox[
8749        SubscriptBox["\<\"i\"\>", "2"],
8750        TraditionalForm]}]],
8751     TraditionalForm], " ",
8752    FormBox[
8753     SubscriptBox[
8754      RowBox[{
8755       FormBox[
8756        SuperscriptBox["\[Gamma]",
8757         FormBox[
8758          SubscriptBox["\<\"\[Mu]\"\>", "3"],
8759          TraditionalForm]],
8760        TraditionalForm], ".",
8761       FormBox[
8762        SubscriptBox["P", "\<\"+\"\>"],
8763        TraditionalForm]}],
8764      RowBox[{
8765       FormBox[
8766        SubscriptBox["\<\"s\"\>", "2"],
8767        TraditionalForm], ",",
8768       FormBox[
8769        SubscriptBox["\<\"s\"\>", "1"],
8770        TraditionalForm]}]],
8771     TraditionalForm]}]}], TraditionalForm]], "Print",
8772 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8773  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8774  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8775  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8776  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8777  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8778  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723782787`*^9},
8779 FontSize->7],
8780
8781Cell[BoxData[
8782 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8783* * * *)\"\>", TraditionalForm]], "Print",
8784 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8785  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8786  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8787  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8788  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8789  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8790  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723842793`*^9},
8791 FontSize->7],
8792
8793Cell[BoxData[
8794 FormBox[
8795  InterpretationBox[
8796   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "52"}],
8797   SequenceForm["Vertex ", 52],
8798   Editable->False], TraditionalForm]], "Print",
8799 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8800  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8801  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8802  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8803  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8804  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8805  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066723942804`*^9},
8806 FontSize->7],
8807
8808Cell[BoxData[
8809 FormBox[
8810  InterpretationBox[
8811   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8812    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8813    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8814    FormBox[
8815     OverscriptBox["b", "\<\"-\"\>"],
8816     TraditionalForm]}],
8817   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
8818   Editable->False], TraditionalForm]], "Print",
8819 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8820  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8821  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8822  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8823  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8824  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8825  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672398781*^9},
8826 FontSize->7],
8827
8828Cell[BoxData[
8829 FormBox[
8830  InterpretationBox[
8831   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8832    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
8833     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
8834   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
8835   Editable->False], TraditionalForm]], "Print",
8836 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8837  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8838  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8839  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8840  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8841  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8842  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724027815`*^9},
8843 FontSize->7],
8844
8845Cell[BoxData[
8846 FormBox[
8847  InterpretationBox[
8848   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
8849    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8850    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
8851   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
8852   Editable->False], TraditionalForm]], "Print",
8853 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8854  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8855  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8856  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8857  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8858  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8859  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672406782*^9},
8860 FontSize->7],
8861
8862Cell[BoxData[
8863 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
8864 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8865  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8866  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8867  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8868  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8869  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8870  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672417283*^9},
8871 FontSize->7],
8872
8873Cell[BoxData[
8874 FormBox[
8875  RowBox[{
8876   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbL", " ",
8877    FormBox[
8878     SubscriptBox["\[Delta]",
8879      RowBox[{
8880       FormBox[
8881        SubscriptBox["\<\"i\"\>", "1"],
8882        TraditionalForm], ",",
8883       FormBox[
8884        SubscriptBox["\<\"i\"\>", "3"],
8885        TraditionalForm]}]],
8886     TraditionalForm], " ",
8887    FormBox[
8888     SubscriptBox[
8889      RowBox[{
8890       FormBox[
8891        SuperscriptBox["\[Gamma]",
8892         FormBox[
8893          SubscriptBox["\<\"\[Mu]\"\>", "2"],
8894          TraditionalForm]],
8895        TraditionalForm], ".",
8896       FormBox[
8897        SubscriptBox["P", "\<\"-\"\>"],
8898        TraditionalForm]}],
8899      RowBox[{
8900       FormBox[
8901        SubscriptBox["\<\"s\"\>", "1"],
8902        TraditionalForm], ",",
8903       FormBox[
8904        SubscriptBox["\<\"s\"\>", "3"],
8905        TraditionalForm]}]],
8906     TraditionalForm]}], "+",
8907   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbR", " ",
8908    FormBox[
8909     SubscriptBox["\[Delta]",
8910      RowBox[{
8911       FormBox[
8912        SubscriptBox["\<\"i\"\>", "1"],
8913        TraditionalForm], ",",
8914       FormBox[
8915        SubscriptBox["\<\"i\"\>", "3"],
8916        TraditionalForm]}]],
8917     TraditionalForm], " ",
8918    FormBox[
8919     SubscriptBox[
8920      RowBox[{
8921       FormBox[
8922        SuperscriptBox["\[Gamma]",
8923         FormBox[
8924          SubscriptBox["\<\"\[Mu]\"\>", "2"],
8925          TraditionalForm]],
8926        TraditionalForm], ".",
8927       FormBox[
8928        SubscriptBox["P", "\<\"+\"\>"],
8929        TraditionalForm]}],
8930      RowBox[{
8931       FormBox[
8932        SubscriptBox["\<\"s\"\>", "1"],
8933        TraditionalForm], ",",
8934       FormBox[
8935        SubscriptBox["\<\"s\"\>", "3"],
8936        TraditionalForm]}]],
8937     TraditionalForm]}]}], TraditionalForm]], "Print",
8938 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8939  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8940  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8941  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8942  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8943  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8944  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672421784*^9},
8945 FontSize->7],
8946
8947Cell[BoxData[
8948 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
8949* * * *)\"\>", TraditionalForm]], "Print",
8950 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8951  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8952  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8953  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8954  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8955  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8956  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724267845`*^9},
8957 FontSize->7],
8958
8959Cell[BoxData[
8960 FormBox[
8961  InterpretationBox[
8962   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "53"}],
8963   SequenceForm["Vertex ", 53],
8964   Editable->False], TraditionalForm]], "Print",
8965 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8966  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8967  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8968  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8969  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8970  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8971  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672431785*^9},
8972 FontSize->7],
8973
8974Cell[BoxData[
8975 FormBox[
8976  InterpretationBox[
8977   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
8978    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8979    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
8980   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
8981   Editable->False], TraditionalForm]], "Print",
8982 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
8983  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
8984  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
8985  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
8986  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
8987  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
8988  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724422865`*^9},
8989 FontSize->7],
8990
8991Cell[BoxData[
8992 FormBox[
8993  InterpretationBox[
8994   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
8995    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
8996    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
8997    FormBox[
8998     OverscriptBox["c", "\<\"-\"\>"],
8999     TraditionalForm]}],
9000   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
9001   Editable->False], TraditionalForm]], "Print",
9002 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9003  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9004  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9005  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9006  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9007  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9008  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672446787*^9},
9009 FontSize->7],
9010
9011Cell[BoxData[
9012 FormBox[
9013  InterpretationBox[
9014   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9015    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
9016     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
9017   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
9018   Editable->False], TraditionalForm]], "Print",
9019 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9020  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9021  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9022  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9023  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9024  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9025  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724507875`*^9},
9026 FontSize->7],
9027
9028Cell[BoxData[
9029 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
9030 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9031  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9032  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9033  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9034  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9035  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9036  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672454788*^9},
9037 FontSize->7],
9038
9039Cell[BoxData[
9040 FormBox[
9041  RowBox[{
9042   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLw", " ",
9043    FormBox[
9044     SubscriptBox["\[Delta]",
9045      RowBox[{
9046       FormBox[
9047        SubscriptBox["\<\"i\"\>", "1"],
9048        TraditionalForm], ",",
9049       FormBox[
9050        SubscriptBox["\<\"i\"\>", "2"],
9051        TraditionalForm]}]],
9052     TraditionalForm], " ",
9053    FormBox[
9054     SubscriptBox[
9055      RowBox[{
9056       FormBox[
9057        SuperscriptBox["\[Gamma]",
9058         FormBox[
9059          SubscriptBox["\<\"\[Mu]\"\>", "3"],
9060          TraditionalForm]],
9061        TraditionalForm], ".",
9062       FormBox[
9063        SubscriptBox["P", "\<\"-\"\>"],
9064        TraditionalForm]}],
9065      RowBox[{
9066       FormBox[
9067        SubscriptBox["\<\"s\"\>", "2"],
9068        TraditionalForm], ",",
9069       FormBox[
9070        SubscriptBox["\<\"s\"\>", "1"],
9071        TraditionalForm]}]],
9072     TraditionalForm]}], "+",
9073   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRw", " ",
9074    FormBox[
9075     SubscriptBox["\[Delta]",
9076      RowBox[{
9077       FormBox[
9078        SubscriptBox["\<\"i\"\>", "1"],
9079        TraditionalForm], ",",
9080       FormBox[
9081        SubscriptBox["\<\"i\"\>", "2"],
9082        TraditionalForm]}]],
9083     TraditionalForm], " ",
9084    FormBox[
9085     SubscriptBox[
9086      RowBox[{
9087       FormBox[
9088        SuperscriptBox["\[Gamma]",
9089         FormBox[
9090          SubscriptBox["\<\"\[Mu]\"\>", "3"],
9091          TraditionalForm]],
9092        TraditionalForm], ".",
9093       FormBox[
9094        SubscriptBox["P", "\<\"+\"\>"],
9095        TraditionalForm]}],
9096      RowBox[{
9097       FormBox[
9098        SubscriptBox["\<\"s\"\>", "2"],
9099        TraditionalForm], ",",
9100       FormBox[
9101        SubscriptBox["\<\"s\"\>", "1"],
9102        TraditionalForm]}]],
9103     TraditionalForm]}]}], TraditionalForm]], "Print",
9104 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9105  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9106  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9107  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9108  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9109  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9110  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724592886`*^9},
9111 FontSize->7],
9112
9113Cell[BoxData[
9114 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9115* * * *)\"\>", TraditionalForm]], "Print",
9116 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9117  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9118  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9119  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9120  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9121  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9122  3.581087202138607*^9, 3.581705753825637*^9, 3.58170667247079*^9},
9123 FontSize->7],
9124
9125Cell[BoxData[
9126 FormBox[
9127  InterpretationBox[
9128   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "54"}],
9129   SequenceForm["Vertex ", 54],
9130   Editable->False], TraditionalForm]], "Print",
9131 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9132  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9133  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9134  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9135  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9136  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9137  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724747906`*^9},
9138 FontSize->7],
9139
9140Cell[BoxData[
9141 FormBox[
9142  InterpretationBox[
9143   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9144    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9145    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9146    FormBox[
9147     OverscriptBox["d", "\<\"-\"\>"],
9148     TraditionalForm]}],
9149   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
9150   Editable->False], TraditionalForm]], "Print",
9151 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9152  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9153  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9154  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9155  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9156  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9157  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672479291*^9},
9158 FontSize->7],
9159
9160Cell[BoxData[
9161 FormBox[
9162  InterpretationBox[
9163   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9164    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
9165     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
9166   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
9167   Editable->False], TraditionalForm]], "Print",
9168 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9169  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9170  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9171  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9172  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9173  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9174  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724837914`*^9},
9175 FontSize->7],
9176
9177Cell[BoxData[
9178 FormBox[
9179  InterpretationBox[
9180   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9181    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9182    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
9183   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
9184   Editable->False], TraditionalForm]], "Print",
9185 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9186  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9187  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9188  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9189  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9190  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9191  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672493293*^9},
9192 FontSize->7],
9193
9194Cell[BoxData[
9195 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
9196 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9197  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9198  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9199  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9200  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9201  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9202  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066724977937`*^9},
9203 FontSize->7],
9204
9205Cell[BoxData[
9206 FormBox[
9207  RowBox[{
9208   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdL", " ",
9209    FormBox[
9210     SubscriptBox["\[Delta]",
9211      RowBox[{
9212       FormBox[
9213        SubscriptBox["\<\"i\"\>", "1"],
9214        TraditionalForm], ",",
9215       FormBox[
9216        SubscriptBox["\<\"i\"\>", "3"],
9217        TraditionalForm]}]],
9218     TraditionalForm], " ",
9219    FormBox[
9220     SubscriptBox[
9221      RowBox[{
9222       FormBox[
9223        SuperscriptBox["\[Gamma]",
9224         FormBox[
9225          SubscriptBox["\<\"\[Mu]\"\>", "2"],
9226          TraditionalForm]],
9227        TraditionalForm], ".",
9228       FormBox[
9229        SubscriptBox["P", "\<\"-\"\>"],
9230        TraditionalForm]}],
9231      RowBox[{
9232       FormBox[
9233        SubscriptBox["\<\"s\"\>", "1"],
9234        TraditionalForm], ",",
9235       FormBox[
9236        SubscriptBox["\<\"s\"\>", "3"],
9237        TraditionalForm]}]],
9238     TraditionalForm]}], "+",
9239   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdR", " ",
9240    FormBox[
9241     SubscriptBox["\[Delta]",
9242      RowBox[{
9243       FormBox[
9244        SubscriptBox["\<\"i\"\>", "1"],
9245        TraditionalForm], ",",
9246       FormBox[
9247        SubscriptBox["\<\"i\"\>", "3"],
9248        TraditionalForm]}]],
9249     TraditionalForm], " ",
9250    FormBox[
9251     SubscriptBox[
9252      RowBox[{
9253       FormBox[
9254        SuperscriptBox["\[Gamma]",
9255         FormBox[
9256          SubscriptBox["\<\"\[Mu]\"\>", "2"],
9257          TraditionalForm]],
9258        TraditionalForm], ".",
9259       FormBox[
9260        SubscriptBox["P", "\<\"+\"\>"],
9261        TraditionalForm]}],
9262      RowBox[{
9263       FormBox[
9264        SubscriptBox["\<\"s\"\>", "1"],
9265        TraditionalForm], ",",
9266       FormBox[
9267        SubscriptBox["\<\"s\"\>", "3"],
9268        TraditionalForm]}]],
9269     TraditionalForm]}]}], TraditionalForm]], "Print",
9270 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9271  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9272  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9273  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9274  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9275  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9276  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672501794*^9},
9277 FontSize->7],
9278
9279Cell[BoxData[
9280 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9281* * * *)\"\>", TraditionalForm]], "Print",
9282 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9283  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9284  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9285  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9286  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9287  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9288  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672507795*^9},
9289 FontSize->7],
9290
9291Cell[BoxData[
9292 FormBox[
9293  InterpretationBox[
9294   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "55"}],
9295   SequenceForm["Vertex ", 55],
9296   Editable->False], TraditionalForm]], "Print",
9297 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9298  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9299  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9300  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9301  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9302  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9303  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672519296*^9},
9304 FontSize->7],
9305
9306Cell[BoxData[
9307 FormBox[
9308  InterpretationBox[
9309   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9310    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9311    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9312    FormBox[
9313     OverscriptBox["s", "\<\"-\"\>"],
9314     TraditionalForm]}],
9315   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
9316   Editable->False], TraditionalForm]], "Print",
9317 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9318  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9319  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9320  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9321  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9322  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9323  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672523797*^9},
9324 FontSize->7],
9325
9326Cell[BoxData[
9327 FormBox[
9328  InterpretationBox[
9329   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9330    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
9331     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
9332   SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
9333   Editable->False], TraditionalForm]], "Print",
9334 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9335  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9336  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9337  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9338  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9339  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9340  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066725287976`*^9},
9341 FontSize->7],
9342
9343Cell[BoxData[
9344 FormBox[
9345  InterpretationBox[
9346   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9347    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9348    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
9349   SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
9350   Editable->False], TraditionalForm]], "Print",
9351 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9352  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9353  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9354  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9355  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9356  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9357  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672540799*^9},
9358 FontSize->7],
9359
9360Cell[BoxData[
9361 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
9362 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9363  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9364  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9365  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9366  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9367  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9368  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066725452995`*^9},
9369 FontSize->7],
9370
9371Cell[BoxData[
9372 FormBox[
9373  RowBox[{
9374   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsL", " ",
9375    FormBox[
9376     SubscriptBox["\[Delta]",
9377      RowBox[{
9378       FormBox[
9379        SubscriptBox["\<\"i\"\>", "1"],
9380        TraditionalForm], ",",
9381       FormBox[
9382        SubscriptBox["\<\"i\"\>", "3"],
9383        TraditionalForm]}]],
9384     TraditionalForm], " ",
9385    FormBox[
9386     SubscriptBox[
9387      RowBox[{
9388       FormBox[
9389        SuperscriptBox["\[Gamma]",
9390         FormBox[
9391          SubscriptBox["\<\"\[Mu]\"\>", "2"],
9392          TraditionalForm]],
9393        TraditionalForm], ".",
9394       FormBox[
9395        SubscriptBox["P", "\<\"-\"\>"],
9396        TraditionalForm]}],
9397      RowBox[{
9398       FormBox[
9399        SubscriptBox["\<\"s\"\>", "1"],
9400        TraditionalForm], ",",
9401       FormBox[
9402        SubscriptBox["\<\"s\"\>", "3"],
9403        TraditionalForm]}]],
9404     TraditionalForm]}], "+",
9405   RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsR", " ",
9406    FormBox[
9407     SubscriptBox["\[Delta]",
9408      RowBox[{
9409       FormBox[
9410        SubscriptBox["\<\"i\"\>", "1"],
9411        TraditionalForm], ",",
9412       FormBox[
9413        SubscriptBox["\<\"i\"\>", "3"],
9414        TraditionalForm]}]],
9415     TraditionalForm], " ",
9416    FormBox[
9417     SubscriptBox[
9418      RowBox[{
9419       FormBox[
9420        SuperscriptBox["\[Gamma]",
9421         FormBox[
9422          SubscriptBox["\<\"\[Mu]\"\>", "2"],
9423          TraditionalForm]],
9424        TraditionalForm], ".",
9425       FormBox[
9426        SubscriptBox["P", "\<\"+\"\>"],
9427        TraditionalForm]}],
9428      RowBox[{
9429       FormBox[
9430        SubscriptBox["\<\"s\"\>", "1"],
9431        TraditionalForm], ",",
9432       FormBox[
9433        SubscriptBox["\<\"s\"\>", "3"],
9434        TraditionalForm]}]],
9435     TraditionalForm]}]}], TraditionalForm]], "Print",
9436 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9437  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9438  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9439  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9440  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9441  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9442  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066725493*^9},
9443 FontSize->7],
9444
9445Cell[BoxData[
9446 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9447* * * *)\"\>", TraditionalForm]], "Print",
9448 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9449  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9450  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9451  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9452  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9453  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9454  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672554801*^9},
9455 FontSize->7],
9456
9457Cell[BoxData[
9458 FormBox[
9459  InterpretationBox[
9460   RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "56"}],
9461   SequenceForm["Vertex ", 56],
9462   Editable->False], TraditionalForm]], "Print",
9463 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9464  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9465  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9466  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9467  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9468  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9469  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672568302*^9},
9470 FontSize->7],
9471
9472Cell[BoxData[
9473 FormBox[
9474  InterpretationBox[
9475   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
9476    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9477    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
9478   SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
9479   Editable->False], TraditionalForm]], "Print",
9480 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9481  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9482  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9483  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9484  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9485  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9486  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672573303*^9},
9487 FontSize->7],
9488
9489Cell[BoxData[
9490 FormBox[
9491  InterpretationBox[
9492   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
9493    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
9494    "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
9495    FormBox[
9496     OverscriptBox["t", "\<\"-\"\>"],
9497     TraditionalForm]}],
9498   SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
9499   Editable->False], TraditionalForm]], "Print",
9500 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9501  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9502  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9503  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9504  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9505  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9506  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672577304*^9},
9507 FontSize->7],
9508
9509Cell[BoxData[
9510 FormBox[
9511  InterpretationBox[
9512   RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
9513    "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
9514     "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
9515   SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
9516   Editable->False], TraditionalForm]], "Print",
9517 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9518  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9519  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9520  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9521  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9522  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9523  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066725828047`*^9},
9524 FontSize->7],
9525
9526Cell[BoxData[
9527 FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
9528 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9529  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9530  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9531  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9532  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9533  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9534  3.581087202138607*^9, 3.581705753825637*^9, 3.5817066725938053`*^9},
9535 FontSize->7],
9536
9537Cell[BoxData[
9538 FormBox[
9539  RowBox[{
9540   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLw", " ",
9541    FormBox[
9542     SubscriptBox["\[Delta]",
9543      RowBox[{
9544       FormBox[
9545        SubscriptBox["\<\"i\"\>", "1"],
9546        TraditionalForm], ",",
9547       FormBox[
9548        SubscriptBox["\<\"i\"\>", "2"],
9549        TraditionalForm]}]],
9550     TraditionalForm], " ",
9551    FormBox[
9552     SubscriptBox[
9553      RowBox[{
9554       FormBox[
9555        SuperscriptBox["\[Gamma]",
9556         FormBox[
9557          SubscriptBox["\<\"\[Mu]\"\>", "3"],
9558          TraditionalForm]],
9559        TraditionalForm], ".",
9560       FormBox[
9561        SubscriptBox["P", "\<\"-\"\>"],
9562        TraditionalForm]}],
9563      RowBox[{
9564       FormBox[
9565        SubscriptBox["\<\"s\"\>", "2"],
9566        TraditionalForm], ",",
9567       FormBox[
9568        SubscriptBox["\<\"s\"\>", "1"],
9569        TraditionalForm]}]],
9570     TraditionalForm]}], "+",
9571   RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRw", " ",
9572    FormBox[
9573     SubscriptBox["\[Delta]",
9574      RowBox[{
9575       FormBox[
9576        SubscriptBox["\<\"i\"\>", "1"],
9577        TraditionalForm], ",",
9578       FormBox[
9579        SubscriptBox["\<\"i\"\>", "2"],
9580        TraditionalForm]}]],
9581     TraditionalForm], " ",
9582    FormBox[
9583     SubscriptBox[
9584      RowBox[{
9585       FormBox[
9586        SuperscriptBox["\[Gamma]",
9587         FormBox[
9588          SubscriptBox["\<\"\[Mu]\"\>", "3"],
9589          TraditionalForm]],
9590        TraditionalForm], ".",
9591       FormBox[
9592        SubscriptBox["P", "\<\"+\"\>"],
9593        TraditionalForm]}],
9594      RowBox[{
9595       FormBox[
9596        SubscriptBox["\<\"s\"\>", "2"],
9597        TraditionalForm], ",",
9598       FormBox[
9599        SubscriptBox["\<\"s\"\>", "1"],
9600        TraditionalForm]}]],
9601     TraditionalForm]}]}], TraditionalForm]], "Print",
9602 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9603  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9604  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9605  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9606  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9607  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9608  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672597806*^9},
9609 FontSize->7],
9610
9611Cell[BoxData[
9612 FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9613* * * *)\"\>", TraditionalForm]], "Print",
9614 CellChangeTimes->{3.5719846736677475`*^9, 3.5721967373743773`*^9,
9615  3.5730660940666847`*^9, 3.573066860069955*^9, 3.5743119552681694`*^9,
9616  3.5745071808726873`*^9, 3.574508189441702*^9, 3.574763456091746*^9,
9617  3.5747648368577213`*^9, 3.5750861401467876`*^9, 3.575086246151248*^9,
9618  3.57508639531619*^9, 3.5750865675570617`*^9, 3.575181221513502*^9,
9619  3.575184839116189*^9, 3.5751892227703676`*^9, 3.575189494963432*^9,
9620  3.581087202138607*^9, 3.581705753825637*^9, 3.581706672603307*^9},
9621 FontSize->7]
9622}, Open  ]],
9623
9624Cell[BoxData[
9625 FormBox[
9626  RowBox[{"(", "\[NoBreak]", GridBox[{
9627     {
9628      RowBox[{"(", "\[NoBreak]", GridBox[{
9629         {"A", "1"},
9630         {"bp", "2"},
9631         {
9632          FormBox[
9633           OverscriptBox["bp", "\<\"-\"\>"],
9634           TraditionalForm], "3"}
9635        },
9636        GridBoxAlignment->{
9637         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9638          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9639        GridBoxSpacings->{"Columns" -> {
9640            Offset[0.27999999999999997`], {
9641             Offset[0.7]},
9642            Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9643          "Rows" -> {
9644            Offset[0.2], {
9645             Offset[0.4]},
9646            Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9647      RowBox[{
9648       RowBox[{"-",
9649        FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ",
9650       FormBox["e",
9651        TraditionalForm], " ",
9652       FormBox[
9653        SubsuperscriptBox["\[Gamma]",
9654         RowBox[{
9655          FormBox[
9656           SubscriptBox["\<\"s\"\>", "3"],
9657           TraditionalForm], ",",
9658          FormBox[
9659           SubscriptBox["\<\"s\"\>", "2"],
9660           TraditionalForm]}],
9661         FormBox[
9662          SubscriptBox["\<\"\[Mu]\"\>", "1"],
9663          TraditionalForm]],
9664        TraditionalForm], " ",
9665       FormBox[
9666        SubscriptBox["\[Delta]",
9667         RowBox[{
9668          FormBox[
9669           SubscriptBox["\<\"i\"\>", "2"],
9670           TraditionalForm], ",",
9671          FormBox[
9672           SubscriptBox["\<\"i\"\>", "3"],
9673           TraditionalForm]}]],
9674        TraditionalForm]}]},
9675     {
9676      RowBox[{"(", "\[NoBreak]", GridBox[{
9677         {"A", "1"},
9678         {"tp", "2"},
9679         {
9680          FormBox[
9681           OverscriptBox["tp", "\<\"-\"\>"],
9682           TraditionalForm], "3"}
9683        },
9684        GridBoxAlignment->{
9685         "Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9686          "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9687        GridBoxSpacings->{"Columns" -> {
9688            Offset[0.27999999999999997`], {
9689             Offset[0.7]},
9690            Offset[0.27999999999999997`]}, "Columns