Context Navigation

Back to VLQ

VLQ: VLQ.nb

File VLQ.nb, 904.8 KB (added by Mathieu Buchkremer, 11 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 926374, 24656]
14	NotebookOptionsPosition[ 884166, 23601]
15	NotebookOutlinePosition[ 884550, 23618]
16	CellTagsIndexPosition[ 884507, 23615]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["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
29	Cell[CellGroupData[{
30
31	Cell["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
37	Cell[CellGroupData[{
38
39	Cell[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
80	Cell[BoxData[
81	FormBox["\<\"D:\\\\Logiciels\\\\Mathematica\\\\AddOns\\\\Applications\\\\\
82	FeynRules\"\>", 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
99	Cell[CellGroupData[{
100
101	Cell[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
115	Cell[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
130	Cell[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
144	Cell[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
159	Cell[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
174	Cell[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
188	Cell[BoxData[
189	FormBox["\<\"The FeynRules palette can be opened using the command \
190	FRPalette[].\"\>", 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
206	Cell[CellGroupData[{
207
208	Cell["\<\
209	VLQ.fr (with \[OpenCurlyDoubleQuote]Massless\[CloseCurlyDoubleQuote] \
210	Restriction)\
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
217	Cell[CellGroupData[{
218
219	Cell[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
249	Cell[CellGroupData[{
250
251	Cell[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
263	Cell[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
274	Cell[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
285	Cell[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
296	Cell[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
307	Cell[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
322	Cell[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
334	Cell[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
345	Cell[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
357	Cell[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
369	Cell[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
381	Cell[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
397	Cell[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
418	Cell[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
429	Cell[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
444	Cell[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
459	Cell[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
474	Cell[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
485	Cell[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
496	Cell[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
507	Cell[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
518	Cell[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
529	Cell[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
540	Cell[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
552	Cell[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
564	Cell[BoxData[
565	FormBox["\<\" University of Southampton (School of Physics and \
566	Astronomy)\"\>", 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
576	Cell[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
587	Cell[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
599	Cell[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
611	Cell[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
622	Cell[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
636	Cell[CellGroupData[{
637
638	Cell["\<\
639	Displaying 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
646	Cell[CellGroupData[{
647
648	Cell[BoxData[
649	RowBox[{"FeynmanRules", "[", "LVLQ", "]"}]], "Input",
650	FontSize->7],
651
652	Cell[CellGroupData[{
653
654	Cell[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
666	Cell[BoxData[
667	FormBox["\<\"Collecting the different structures that enter the \
668	vertex...\"\>", 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
678	Cell[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
694	Cell[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
705	Cell[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
718	Cell[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
733	Cell[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
745	Cell[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
760	Cell[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
777	Cell[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
794	Cell[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
814	Cell[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
825	Cell[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
864	Cell[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
876	Cell[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
891	Cell[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
908	Cell[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
925	Cell[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
945	Cell[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
956	Cell[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
994	Cell[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
1006	Cell[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
1021	Cell[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
1038	Cell[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
1055	Cell[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
1075	Cell[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
1086	Cell[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
1124	Cell[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
1136	Cell[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
1151	Cell[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
1168	Cell[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
1185	Cell[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
1205	Cell[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
1216	Cell[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
1255	Cell[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
1267	Cell[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
1282	Cell[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
1302	Cell[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
1319	Cell[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
1336	Cell[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
1347	Cell[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
1406	Cell[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
1418	Cell[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
1433	Cell[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
1450	Cell[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
1470	Cell[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
1487	Cell[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
1498	Cell[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
1557	Cell[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
1569	Cell[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
1584	Cell[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
1604	Cell[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
1621	Cell[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
1638	Cell[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
1649	Cell[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
1708	Cell[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
1720	Cell[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
1735	Cell[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
1755	Cell[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
1772	Cell[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
1789	Cell[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
1800	Cell[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
1859	Cell[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
1871	Cell[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
1886	Cell[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
1906	Cell[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
1923	Cell[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
1940	Cell[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
1951	Cell[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
2010	Cell[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
2022	Cell[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
2037	Cell[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
2054	Cell[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
2074	Cell[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
2091	Cell[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
2102	Cell[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
2161	Cell[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
2173	Cell[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
2188	Cell[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
2205	Cell[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
2222	Cell[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
2242	Cell[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
2253	Cell[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
2312	Cell[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
2324	Cell[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
2339	Cell[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
2356	Cell[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
2376	Cell[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
2393	Cell[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
2404	Cell[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
2463	Cell[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
2475	Cell[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
2490	Cell[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
2507	Cell[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
2524	Cell[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
2544	Cell[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
2555	Cell[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
2614	Cell[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
2626	Cell[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
2641	Cell[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
2658	Cell[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
2675	Cell[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
2695	Cell[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
2706	Cell[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
2765	Cell[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
2777	Cell[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
2792	Cell[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
2809	Cell[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
2829	Cell[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
2846	Cell[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
2857	Cell[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
2916	Cell[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
2928	Cell[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
2943	Cell[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
2960	Cell[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
2977	Cell[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
2997	Cell[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
3008	Cell[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
3067	Cell[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
3079	Cell[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
3094	Cell[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
3111	Cell[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
3131	Cell[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
3148	Cell[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
3159	Cell[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
3200	Cell[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
3212	Cell[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
3227	Cell[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
3244	Cell[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
3261	Cell[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
3281	Cell[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
3292	Cell[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
3333	Cell[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
3345	Cell[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
3360	Cell[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
3377	Cell[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
3394	Cell[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
3414	Cell[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
3425	Cell[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
3466	Cell[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
3478	Cell[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
3493	Cell[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
3510	Cell[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
3527	Cell[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
3547	Cell[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
3558	Cell[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
3599	Cell[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
3611	Cell[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
3626	Cell[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
3643	Cell[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
3663	Cell[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
3680	Cell[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
3691	Cell[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
3765	Cell[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
3777	Cell[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
3792	Cell[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
3809	Cell[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
3829	Cell[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
3846	Cell[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
3857	Cell[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
3931	Cell[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
3943	Cell[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
3958	Cell[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
3975	Cell[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
3995	Cell[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
4012	Cell[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
4023	Cell[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
4097	Cell[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
4109	Cell[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
4124	Cell[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
4141	Cell[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
4161	Cell[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
4178	Cell[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
4189	Cell[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
4263	Cell[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
4275	Cell[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
4290	Cell[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
4307	Cell[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
4324	Cell[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
4344	Cell[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
4355	Cell[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
4429	Cell[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
4441	Cell[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
4456	Cell[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
4473	Cell[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
4490	Cell[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
4510	Cell[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
4521	Cell[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
4595	Cell[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
4607	Cell[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
4622	Cell[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
4639	Cell[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
4656	Cell[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
4676	Cell[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
4687	Cell[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
4761	Cell[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
4773	Cell[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
4788	Cell[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
4808	Cell[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
4825	Cell[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
4845	Cell[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
4856	Cell[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
4930	Cell[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
4942	Cell[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
4957	Cell[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
4977	Cell[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
4994	Cell[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
5014	Cell[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
5025	Cell[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
5099	Cell[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
5111	Cell[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
5126	Cell[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
5146	Cell[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
5163	Cell[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
5183	Cell[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
5194	Cell[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
5268	Cell[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
5280	Cell[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
5295	Cell[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
5315	Cell[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
5332	Cell[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
5352	Cell[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
5363	Cell[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
5437	Cell[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
5449	Cell[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
5464	Cell[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
5484	Cell[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
5504	Cell[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
5521	Cell[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
5532	Cell[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
5606	Cell[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
5618	Cell[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
5633	Cell[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
5653	Cell[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
5670	Cell[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
5690	Cell[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
5701	Cell[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
5775	Cell[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
5787	Cell[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
5802	Cell[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
5822	Cell[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
5839	Cell[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
5859	Cell[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
5870	Cell[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
5944	Cell[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
5956	Cell[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
5971	Cell[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
5991	Cell[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
6011	Cell[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
6028	Cell[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
6039	Cell[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
6113	Cell[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
6125	Cell[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
6140	Cell[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
6160	Cell[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
6180	Cell[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
6197	Cell[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
6208	Cell[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
6282	Cell[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
6294	Cell[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
6309	Cell[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
6326	Cell[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
6346	Cell[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
6366	Cell[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
6377	Cell[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
6451	Cell[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
6463	Cell[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
6478	Cell[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
6495	Cell[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
6515	Cell[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
6535	Cell[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
6546	Cell[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
6620	Cell[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
6632	Cell[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
6647	Cell[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
6664	Cell[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
6684	Cell[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
6704	Cell[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
6715	Cell[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
6789	Cell[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
6801	Cell[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
6816	Cell[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
6836	Cell[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
6853	Cell[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
6870	Cell[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
6881	Cell[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
6955	Cell[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
6967	Cell[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
6982	Cell[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
6999	Cell[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
7019	Cell[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
7036	Cell[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
7047	Cell[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
7121	Cell[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
7133	Cell[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
7148	Cell[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
7168	Cell[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
7185	Cell[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
7202	Cell[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
7213	Cell[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
7287	Cell[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
7299	Cell[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
7314	Cell[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
7334	Cell[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
7351	Cell[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
7368	Cell[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
7379	Cell[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
7453	Cell[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
7465	Cell[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
7480	Cell[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
7500	Cell[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
7517	Cell[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
7534	Cell[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
7545	Cell[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
7619	Cell[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
7631	Cell[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
7646	Cell[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
7663	Cell[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
7683	Cell[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
7700	Cell[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
7711	Cell[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
7785	Cell[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
7797	Cell[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
7812	Cell[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
7829	Cell[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
7849	Cell[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
7866	Cell[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
7877	Cell[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
7951	Cell[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
7963	Cell[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
7978	Cell[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
7998	Cell[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
8015	Cell[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
8032	Cell[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
8043	Cell[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
8117	Cell[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
8129	Cell[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
8144	Cell[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
8161	Cell[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
8181	Cell[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
8198	Cell[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
8209	Cell[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
8283	Cell[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
8295	Cell[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
8310	Cell[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
8327	Cell[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
8347	Cell[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
8364	Cell[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
8375	Cell[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
8449	Cell[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
8461	Cell[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
8476	Cell[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
8496	Cell[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
8513	Cell[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
8530	Cell[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
8541	Cell[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
8615	Cell[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
8627	Cell[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
8642	Cell[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
8659	Cell[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
8679	Cell[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
8696	Cell[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
8707	Cell[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
8781	Cell[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
8793	Cell[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
8808	Cell[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
8828	Cell[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
8845	Cell[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
8862	Cell[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
8873	Cell[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
8947	Cell[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
8959	Cell[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
8974	Cell[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
8991	Cell[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
9011	Cell[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
9028	Cell[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
9039	Cell[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
9113	Cell[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
9125	Cell[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
9140	Cell[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
9160	Cell[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
9177	Cell[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
9194	Cell[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
9205	Cell[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
9279	Cell[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
9291	Cell[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
9306	Cell[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
9326	Cell[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
9343	Cell[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
9360	Cell[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
9371	Cell[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
9445	Cell[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
9457	Cell[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
9472	Cell[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
9489	Cell[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
9509	Cell[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
9526	Cell[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
9537	Cell[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
9611	Cell[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
9624	Cell[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`]}, "ColumnsIndexed" -> {},
9691	"Rows" -> {
9692	Offset[0.2], {
9693	Offset[0.4]},
9694	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9695	RowBox[{
9696	FractionBox["2", "3"], " ", "\[ImaginaryI]", " ",
9697	FormBox["e",
9698	TraditionalForm], " ",
9699	FormBox[
9700	SubsuperscriptBox["\[Gamma]",
9701	RowBox[{
9702	FormBox[
9703	SubscriptBox["\<\"s\"\>", "3"],
9704	TraditionalForm], ",",
9705	FormBox[
9706	SubscriptBox["\<\"s\"\>", "2"],
9707	TraditionalForm]}],
9708	FormBox[
9709	SubscriptBox["\<\"\[Mu]\"\>", "1"],
9710	TraditionalForm]],
9711	TraditionalForm], " ",
9712	FormBox[
9713	SubscriptBox["\[Delta]",
9714	RowBox[{
9715	FormBox[
9716	SubscriptBox["\<\"i\"\>", "2"],
9717	TraditionalForm], ",",
9718	FormBox[
9719	SubscriptBox["\<\"i\"\>", "3"],
9720	TraditionalForm]}]],
9721	TraditionalForm]}]},
9722	{
9723	RowBox[{"(", "\[NoBreak]", GridBox[{
9724	{"A", "1"},
9725	{"x", "2"},
9726	{
9727	FormBox[
9728	OverscriptBox["x", "\<\"-\"\>"],
9729	TraditionalForm], "3"}
9730	},
9731	GridBoxAlignment->{
9732	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9733	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9734	GridBoxSpacings->{"Columns" -> {
9735	Offset[0.27999999999999997`], {
9736	Offset[0.7]},
9737	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9738	"Rows" -> {
9739	Offset[0.2], {
9740	Offset[0.4]},
9741	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9742	RowBox[{
9743	FractionBox["5", "3"], " ", "\[ImaginaryI]", " ",
9744	FormBox["e",
9745	TraditionalForm], " ",
9746	FormBox[
9747	SubsuperscriptBox["\[Gamma]",
9748	RowBox[{
9749	FormBox[
9750	SubscriptBox["\<\"s\"\>", "3"],
9751	TraditionalForm], ",",
9752	FormBox[
9753	SubscriptBox["\<\"s\"\>", "2"],
9754	TraditionalForm]}],
9755	FormBox[
9756	SubscriptBox["\<\"\[Mu]\"\>", "1"],
9757	TraditionalForm]],
9758	TraditionalForm], " ",
9759	FormBox[
9760	SubscriptBox["\[Delta]",
9761	RowBox[{
9762	FormBox[
9763	SubscriptBox["\<\"i\"\>", "2"],
9764	TraditionalForm], ",",
9765	FormBox[
9766	SubscriptBox["\<\"i\"\>", "3"],
9767	TraditionalForm]}]],
9768	TraditionalForm]}]},
9769	{
9770	RowBox[{"(", "\[NoBreak]", GridBox[{
9771	{"A", "1"},
9772	{"y", "2"},
9773	{
9774	FormBox[
9775	OverscriptBox["y", "\<\"-\"\>"],
9776	TraditionalForm], "3"}
9777	},
9778	GridBoxAlignment->{
9779	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9780	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9781	GridBoxSpacings->{"Columns" -> {
9782	Offset[0.27999999999999997`], {
9783	Offset[0.7]},
9784	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9785	"Rows" -> {
9786	Offset[0.2], {
9787	Offset[0.4]},
9788	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9789	RowBox[{
9790	RowBox[{"-",
9791	FractionBox["4", "3"]}], " ", "\[ImaginaryI]", " ",
9792	FormBox["e",
9793	TraditionalForm], " ",
9794	FormBox[
9795	SubsuperscriptBox["\[Gamma]",
9796	RowBox[{
9797	FormBox[
9798	SubscriptBox["\<\"s\"\>", "3"],
9799	TraditionalForm], ",",
9800	FormBox[
9801	SubscriptBox["\<\"s\"\>", "2"],
9802	TraditionalForm]}],
9803	FormBox[
9804	SubscriptBox["\<\"\[Mu]\"\>", "1"],
9805	TraditionalForm]],
9806	TraditionalForm], " ",
9807	FormBox[
9808	SubscriptBox["\[Delta]",
9809	RowBox[{
9810	FormBox[
9811	SubscriptBox["\<\"i\"\>", "2"],
9812	TraditionalForm], ",",
9813	FormBox[
9814	SubscriptBox["\<\"i\"\>", "3"],
9815	TraditionalForm]}]],
9816	TraditionalForm]}]},
9817	{
9818	RowBox[{"(", "\[NoBreak]", GridBox[{
9819	{
9820	FormBox[
9821	OverscriptBox["b", "\<\"-\"\>"],
9822	TraditionalForm], "1"},
9823	{"bp", "2"},
9824	{"H", "3"}
9825	},
9826	GridBoxAlignment->{
9827	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9828	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9829	GridBoxSpacings->{"Columns" -> {
9830	Offset[0.27999999999999997`], {
9831	Offset[0.7]},
9832	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9833	"Rows" -> {
9834	Offset[0.2], {
9835	Offset[0.4]},
9836	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9837	RowBox[{"-",
9838	FractionBox[
9839	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
9840	FormBox[
9841	SubscriptBox["\[Delta]",
9842	RowBox[{
9843	FormBox[
9844	SubscriptBox["\<\"i\"\>", "1"],
9845	TraditionalForm], ",",
9846	FormBox[
9847	SubscriptBox["\<\"i\"\>", "2"],
9848	TraditionalForm]}]],
9849	TraditionalForm], " ",
9850	RowBox[{"(",
9851	RowBox[{
9852	RowBox[{"KBbLh", " ",
9853	FormBox[
9854	SubscriptBox[
9855	SubscriptBox["P", "\<\"-\"\>"],
9856	RowBox[{
9857	FormBox[
9858	SubscriptBox["\<\"s\"\>", "1"],
9859	TraditionalForm], ",",
9860	FormBox[
9861	SubscriptBox["\<\"s\"\>", "2"],
9862	TraditionalForm]}]],
9863	TraditionalForm]}], "+",
9864	RowBox[{"KBbRh", " ",
9865	FormBox[
9866	SubscriptBox[
9867	SubscriptBox["P", "\<\"+\"\>"],
9868	RowBox[{
9869	FormBox[
9870	SubscriptBox["\<\"s\"\>", "1"],
9871	TraditionalForm], ",",
9872	FormBox[
9873	SubscriptBox["\<\"s\"\>", "2"],
9874	TraditionalForm]}]],
9875	TraditionalForm]}]}], ")"}]}], "v"]}]},
9876	{
9877	RowBox[{"(", "\[NoBreak]", GridBox[{
9878	{"b", "1"},
9879	{
9880	FormBox[
9881	OverscriptBox["bp", "\<\"-\"\>"],
9882	TraditionalForm], "2"},
9883	{"H", "3"}
9884	},
9885	GridBoxAlignment->{
9886	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9887	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9888	GridBoxSpacings->{"Columns" -> {
9889	Offset[0.27999999999999997`], {
9890	Offset[0.7]},
9891	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9892	"Rows" -> {
9893	Offset[0.2], {
9894	Offset[0.4]},
9895	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9896	RowBox[{"-",
9897	FractionBox[
9898	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
9899	FormBox[
9900	SubscriptBox["\[Delta]",
9901	RowBox[{
9902	FormBox[
9903	SubscriptBox["\<\"i\"\>", "1"],
9904	TraditionalForm], ",",
9905	FormBox[
9906	SubscriptBox["\<\"i\"\>", "2"],
9907	TraditionalForm]}]],
9908	TraditionalForm], " ",
9909	RowBox[{"(",
9910	RowBox[{
9911	RowBox[{"KBbRh", " ",
9912	FormBox[
9913	SubscriptBox[
9914	SubscriptBox["P", "\<\"-\"\>"],
9915	RowBox[{
9916	FormBox[
9917	SubscriptBox["\<\"s\"\>", "2"],
9918	TraditionalForm], ",",
9919	FormBox[
9920	SubscriptBox["\<\"s\"\>", "1"],
9921	TraditionalForm]}]],
9922	TraditionalForm]}], "+",
9923	RowBox[{"KBbLh", " ",
9924	FormBox[
9925	SubscriptBox[
9926	SubscriptBox["P", "\<\"+\"\>"],
9927	RowBox[{
9928	FormBox[
9929	SubscriptBox["\<\"s\"\>", "2"],
9930	TraditionalForm], ",",
9931	FormBox[
9932	SubscriptBox["\<\"s\"\>", "1"],
9933	TraditionalForm]}]],
9934	TraditionalForm]}]}], ")"}]}], "v"]}]},
9935	{
9936	RowBox[{"(", "\[NoBreak]", GridBox[{
9937	{
9938	FormBox[
9939	OverscriptBox["bp", "\<\"-\"\>"],
9940	TraditionalForm], "1"},
9941	{"d", "2"},
9942	{"H", "3"}
9943	},
9944	GridBoxAlignment->{
9945	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
9946	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
9947	GridBoxSpacings->{"Columns" -> {
9948	Offset[0.27999999999999997`], {
9949	Offset[0.7]},
9950	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
9951	"Rows" -> {
9952	Offset[0.2], {
9953	Offset[0.4]},
9954	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
9955	RowBox[{"-",
9956	FractionBox[
9957	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
9958	FormBox[
9959	SubscriptBox["\[Delta]",
9960	RowBox[{
9961	FormBox[
9962	SubscriptBox["\<\"i\"\>", "1"],
9963	TraditionalForm], ",",
9964	FormBox[
9965	SubscriptBox["\<\"i\"\>", "2"],
9966	TraditionalForm]}]],
9967	TraditionalForm], " ",
9968	RowBox[{"(",
9969	RowBox[{
9970	RowBox[{"KBdRh", " ",
9971	FormBox[
9972	SubscriptBox[
9973	SubscriptBox["P", "\<\"-\"\>"],
9974	RowBox[{
9975	FormBox[
9976	SubscriptBox["\<\"s\"\>", "1"],
9977	TraditionalForm], ",",
9978	FormBox[
9979	SubscriptBox["\<\"s\"\>", "2"],
9980	TraditionalForm]}]],
9981	TraditionalForm]}], "+",
9982	RowBox[{"KBdLh", " ",
9983	FormBox[
9984	SubscriptBox[
9985	SubscriptBox["P", "\<\"+\"\>"],
9986	RowBox[{
9987	FormBox[
9988	SubscriptBox["\<\"s\"\>", "1"],
9989	TraditionalForm], ",",
9990	FormBox[
9991	SubscriptBox["\<\"s\"\>", "2"],
9992	TraditionalForm]}]],
9993	TraditionalForm]}]}], ")"}]}], "v"]}]},
9994	{
9995	RowBox[{"(", "\[NoBreak]", GridBox[{
9996	{
9997	FormBox[
9998	OverscriptBox["bp", "\<\"-\"\>"],
9999	TraditionalForm], "1"},
10000	{"H", "2"},
10001	{"s", "3"}
10002	},
10003	GridBoxAlignment->{
10004	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10005	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10006	GridBoxSpacings->{"Columns" -> {
10007	Offset[0.27999999999999997`], {
10008	Offset[0.7]},
10009	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10010	"Rows" -> {
10011	Offset[0.2], {
10012	Offset[0.4]},
10013	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10014	RowBox[{"-",
10015	FractionBox[
10016	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
10017	FormBox[
10018	SubscriptBox["\[Delta]",
10019	RowBox[{
10020	FormBox[
10021	SubscriptBox["\<\"i\"\>", "1"],
10022	TraditionalForm], ",",
10023	FormBox[
10024	SubscriptBox["\<\"i\"\>", "3"],
10025	TraditionalForm]}]],
10026	TraditionalForm], " ",
10027	RowBox[{"(",
10028	RowBox[{
10029	RowBox[{"KBsRh", " ",
10030	FormBox[
10031	SubscriptBox[
10032	SubscriptBox["P", "\<\"-\"\>"],
10033	RowBox[{
10034	FormBox[
10035	SubscriptBox["\<\"s\"\>", "1"],
10036	TraditionalForm], ",",
10037	FormBox[
10038	SubscriptBox["\<\"s\"\>", "3"],
10039	TraditionalForm]}]],
10040	TraditionalForm]}], "+",
10041	RowBox[{"KBsLh", " ",
10042	FormBox[
10043	SubscriptBox[
10044	SubscriptBox["P", "\<\"+\"\>"],
10045	RowBox[{
10046	FormBox[
10047	SubscriptBox["\<\"s\"\>", "1"],
10048	TraditionalForm], ",",
10049	FormBox[
10050	SubscriptBox["\<\"s\"\>", "3"],
10051	TraditionalForm]}]],
10052	TraditionalForm]}]}], ")"}]}], "v"]}]},
10053	{
10054	RowBox[{"(", "\[NoBreak]", GridBox[{
10055	{
10056	FormBox[
10057	OverscriptBox["c", "\<\"-\"\>"],
10058	TraditionalForm], "1"},
10059	{"H", "2"},
10060	{"tp", "3"}
10061	},
10062	GridBoxAlignment->{
10063	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10064	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10065	GridBoxSpacings->{"Columns" -> {
10066	Offset[0.27999999999999997`], {
10067	Offset[0.7]},
10068	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10069	"Rows" -> {
10070	Offset[0.2], {
10071	Offset[0.4]},
10072	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10073	RowBox[{"-",
10074	FractionBox[
10075	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10076	FormBox[
10077	SubscriptBox["\[Delta]",
10078	RowBox[{
10079	FormBox[
10080	SubscriptBox["\<\"i\"\>", "1"],
10081	TraditionalForm], ",",
10082	FormBox[
10083	SubscriptBox["\<\"i\"\>", "3"],
10084	TraditionalForm]}]],
10085	TraditionalForm], " ",
10086	RowBox[{"(",
10087	RowBox[{
10088	RowBox[{"KTcLh", " ",
10089	FormBox[
10090	SubscriptBox[
10091	SubscriptBox["P", "\<\"-\"\>"],
10092	RowBox[{
10093	FormBox[
10094	SubscriptBox["\<\"s\"\>", "1"],
10095	TraditionalForm], ",",
10096	FormBox[
10097	SubscriptBox["\<\"s\"\>", "3"],
10098	TraditionalForm]}]],
10099	TraditionalForm]}], "+",
10100	RowBox[{"KTcRh", " ",
10101	FormBox[
10102	SubscriptBox[
10103	SubscriptBox["P", "\<\"+\"\>"],
10104	RowBox[{
10105	FormBox[
10106	SubscriptBox["\<\"s\"\>", "1"],
10107	TraditionalForm], ",",
10108	FormBox[
10109	SubscriptBox["\<\"s\"\>", "3"],
10110	TraditionalForm]}]],
10111	TraditionalForm]}]}], ")"}]}], "v"]}]},
10112	{
10113	RowBox[{"(", "\[NoBreak]", GridBox[{
10114	{"bp", "1"},
10115	{
10116	FormBox[
10117	OverscriptBox["d", "\<\"-\"\>"],
10118	TraditionalForm], "2"},
10119	{"H", "3"}
10120	},
10121	GridBoxAlignment->{
10122	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10123	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10124	GridBoxSpacings->{"Columns" -> {
10125	Offset[0.27999999999999997`], {
10126	Offset[0.7]},
10127	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10128	"Rows" -> {
10129	Offset[0.2], {
10130	Offset[0.4]},
10131	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10132	RowBox[{"-",
10133	FractionBox[
10134	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
10135	FormBox[
10136	SubscriptBox["\[Delta]",
10137	RowBox[{
10138	FormBox[
10139	SubscriptBox["\<\"i\"\>", "1"],
10140	TraditionalForm], ",",
10141	FormBox[
10142	SubscriptBox["\<\"i\"\>", "2"],
10143	TraditionalForm]}]],
10144	TraditionalForm], " ",
10145	RowBox[{"(",
10146	RowBox[{
10147	RowBox[{"KBdLh", " ",
10148	FormBox[
10149	SubscriptBox[
10150	SubscriptBox["P", "\<\"-\"\>"],
10151	RowBox[{
10152	FormBox[
10153	SubscriptBox["\<\"s\"\>", "2"],
10154	TraditionalForm], ",",
10155	FormBox[
10156	SubscriptBox["\<\"s\"\>", "1"],
10157	TraditionalForm]}]],
10158	TraditionalForm]}], "+",
10159	RowBox[{"KBdRh", " ",
10160	FormBox[
10161	SubscriptBox[
10162	SubscriptBox["P", "\<\"+\"\>"],
10163	RowBox[{
10164	FormBox[
10165	SubscriptBox["\<\"s\"\>", "2"],
10166	TraditionalForm], ",",
10167	FormBox[
10168	SubscriptBox["\<\"s\"\>", "1"],
10169	TraditionalForm]}]],
10170	TraditionalForm]}]}], ")"}]}], "v"]}]},
10171	{
10172	RowBox[{"(", "\[NoBreak]", GridBox[{
10173	{"bp", "1"},
10174	{"H", "2"},
10175	{
10176	FormBox[
10177	OverscriptBox["s", "\<\"-\"\>"],
10178	TraditionalForm], "3"}
10179	},
10180	GridBoxAlignment->{
10181	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10182	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10183	GridBoxSpacings->{"Columns" -> {
10184	Offset[0.27999999999999997`], {
10185	Offset[0.7]},
10186	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10187	"Rows" -> {
10188	Offset[0.2], {
10189	Offset[0.4]},
10190	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10191	RowBox[{"-",
10192	FractionBox[
10193	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "MBP", " ",
10194	FormBox[
10195	SubscriptBox["\[Delta]",
10196	RowBox[{
10197	FormBox[
10198	SubscriptBox["\<\"i\"\>", "1"],
10199	TraditionalForm], ",",
10200	FormBox[
10201	SubscriptBox["\<\"i\"\>", "3"],
10202	TraditionalForm]}]],
10203	TraditionalForm], " ",
10204	RowBox[{"(",
10205	RowBox[{
10206	RowBox[{"KBsLh", " ",
10207	FormBox[
10208	SubscriptBox[
10209	SubscriptBox["P", "\<\"-\"\>"],
10210	RowBox[{
10211	FormBox[
10212	SubscriptBox["\<\"s\"\>", "3"],
10213	TraditionalForm], ",",
10214	FormBox[
10215	SubscriptBox["\<\"s\"\>", "1"],
10216	TraditionalForm]}]],
10217	TraditionalForm]}], "+",
10218	RowBox[{"KBsRh", " ",
10219	FormBox[
10220	SubscriptBox[
10221	SubscriptBox["P", "\<\"+\"\>"],
10222	RowBox[{
10223	FormBox[
10224	SubscriptBox["\<\"s\"\>", "3"],
10225	TraditionalForm], ",",
10226	FormBox[
10227	SubscriptBox["\<\"s\"\>", "1"],
10228	TraditionalForm]}]],
10229	TraditionalForm]}]}], ")"}]}], "v"]}]},
10230	{
10231	RowBox[{"(", "\[NoBreak]", GridBox[{
10232	{"H", "1"},
10233	{
10234	FormBox[
10235	OverscriptBox["t", "\<\"-\"\>"],
10236	TraditionalForm], "2"},
10237	{"tp", "3"}
10238	},
10239	GridBoxAlignment->{
10240	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10241	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10242	GridBoxSpacings->{"Columns" -> {
10243	Offset[0.27999999999999997`], {
10244	Offset[0.7]},
10245	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10246	"Rows" -> {
10247	Offset[0.2], {
10248	Offset[0.4]},
10249	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10250	RowBox[{"-",
10251	FractionBox[
10252	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10253	FormBox[
10254	SubscriptBox["\[Delta]",
10255	RowBox[{
10256	FormBox[
10257	SubscriptBox["\<\"i\"\>", "2"],
10258	TraditionalForm], ",",
10259	FormBox[
10260	SubscriptBox["\<\"i\"\>", "3"],
10261	TraditionalForm]}]],
10262	TraditionalForm], " ",
10263	RowBox[{"(",
10264	RowBox[{
10265	RowBox[{"KTtLh", " ",
10266	FormBox[
10267	SubscriptBox[
10268	SubscriptBox["P", "\<\"-\"\>"],
10269	RowBox[{
10270	FormBox[
10271	SubscriptBox["\<\"s\"\>", "2"],
10272	TraditionalForm], ",",
10273	FormBox[
10274	SubscriptBox["\<\"s\"\>", "3"],
10275	TraditionalForm]}]],
10276	TraditionalForm]}], "+",
10277	RowBox[{"KTtRh", " ",
10278	FormBox[
10279	SubscriptBox[
10280	SubscriptBox["P", "\<\"+\"\>"],
10281	RowBox[{
10282	FormBox[
10283	SubscriptBox["\<\"s\"\>", "2"],
10284	TraditionalForm], ",",
10285	FormBox[
10286	SubscriptBox["\<\"s\"\>", "3"],
10287	TraditionalForm]}]],
10288	TraditionalForm]}]}], ")"}]}], "v"]}]},
10289	{
10290	RowBox[{"(", "\[NoBreak]", GridBox[{
10291	{"c", "1"},
10292	{"H", "2"},
10293	{
10294	FormBox[
10295	OverscriptBox["tp", "\<\"-\"\>"],
10296	TraditionalForm], "3"}
10297	},
10298	GridBoxAlignment->{
10299	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10300	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10301	GridBoxSpacings->{"Columns" -> {
10302	Offset[0.27999999999999997`], {
10303	Offset[0.7]},
10304	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10305	"Rows" -> {
10306	Offset[0.2], {
10307	Offset[0.4]},
10308	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10309	RowBox[{"-",
10310	FractionBox[
10311	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10312	FormBox[
10313	SubscriptBox["\[Delta]",
10314	RowBox[{
10315	FormBox[
10316	SubscriptBox["\<\"i\"\>", "1"],
10317	TraditionalForm], ",",
10318	FormBox[
10319	SubscriptBox["\<\"i\"\>", "3"],
10320	TraditionalForm]}]],
10321	TraditionalForm], " ",
10322	RowBox[{"(",
10323	RowBox[{
10324	RowBox[{"KTcRh", " ",
10325	FormBox[
10326	SubscriptBox[
10327	SubscriptBox["P", "\<\"-\"\>"],
10328	RowBox[{
10329	FormBox[
10330	SubscriptBox["\<\"s\"\>", "3"],
10331	TraditionalForm], ",",
10332	FormBox[
10333	SubscriptBox["\<\"s\"\>", "1"],
10334	TraditionalForm]}]],
10335	TraditionalForm]}], "+",
10336	RowBox[{"KTcLh", " ",
10337	FormBox[
10338	SubscriptBox[
10339	SubscriptBox["P", "\<\"+\"\>"],
10340	RowBox[{
10341	FormBox[
10342	SubscriptBox["\<\"s\"\>", "3"],
10343	TraditionalForm], ",",
10344	FormBox[
10345	SubscriptBox["\<\"s\"\>", "1"],
10346	TraditionalForm]}]],
10347	TraditionalForm]}]}], ")"}]}], "v"]}]},
10348	{
10349	RowBox[{"(", "\[NoBreak]", GridBox[{
10350	{"H", "1"},
10351	{"t", "2"},
10352	{
10353	FormBox[
10354	OverscriptBox["tp", "\<\"-\"\>"],
10355	TraditionalForm], "3"}
10356	},
10357	GridBoxAlignment->{
10358	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10359	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10360	GridBoxSpacings->{"Columns" -> {
10361	Offset[0.27999999999999997`], {
10362	Offset[0.7]},
10363	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10364	"Rows" -> {
10365	Offset[0.2], {
10366	Offset[0.4]},
10367	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10368	RowBox[{"-",
10369	FractionBox[
10370	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10371	FormBox[
10372	SubscriptBox["\[Delta]",
10373	RowBox[{
10374	FormBox[
10375	SubscriptBox["\<\"i\"\>", "2"],
10376	TraditionalForm], ",",
10377	FormBox[
10378	SubscriptBox["\<\"i\"\>", "3"],
10379	TraditionalForm]}]],
10380	TraditionalForm], " ",
10381	RowBox[{"(",
10382	RowBox[{
10383	RowBox[{"KTtRh", " ",
10384	FormBox[
10385	SubscriptBox[
10386	SubscriptBox["P", "\<\"-\"\>"],
10387	RowBox[{
10388	FormBox[
10389	SubscriptBox["\<\"s\"\>", "3"],
10390	TraditionalForm], ",",
10391	FormBox[
10392	SubscriptBox["\<\"s\"\>", "2"],
10393	TraditionalForm]}]],
10394	TraditionalForm]}], "+",
10395	RowBox[{"KTtLh", " ",
10396	FormBox[
10397	SubscriptBox[
10398	SubscriptBox["P", "\<\"+\"\>"],
10399	RowBox[{
10400	FormBox[
10401	SubscriptBox["\<\"s\"\>", "3"],
10402	TraditionalForm], ",",
10403	FormBox[
10404	SubscriptBox["\<\"s\"\>", "2"],
10405	TraditionalForm]}]],
10406	TraditionalForm]}]}], ")"}]}], "v"]}]},
10407	{
10408	RowBox[{"(", "\[NoBreak]", GridBox[{
10409	{"H", "1"},
10410	{
10411	FormBox[
10412	OverscriptBox["tp", "\<\"-\"\>"],
10413	TraditionalForm], "2"},
10414	{"u", "3"}
10415	},
10416	GridBoxAlignment->{
10417	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10418	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10419	GridBoxSpacings->{"Columns" -> {
10420	Offset[0.27999999999999997`], {
10421	Offset[0.7]},
10422	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10423	"Rows" -> {
10424	Offset[0.2], {
10425	Offset[0.4]},
10426	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10427	RowBox[{"-",
10428	FractionBox[
10429	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10430	FormBox[
10431	SubscriptBox["\[Delta]",
10432	RowBox[{
10433	FormBox[
10434	SubscriptBox["\<\"i\"\>", "2"],
10435	TraditionalForm], ",",
10436	FormBox[
10437	SubscriptBox["\<\"i\"\>", "3"],
10438	TraditionalForm]}]],
10439	TraditionalForm], " ",
10440	RowBox[{"(",
10441	RowBox[{
10442	RowBox[{"KTuRh", " ",
10443	FormBox[
10444	SubscriptBox[
10445	SubscriptBox["P", "\<\"-\"\>"],
10446	RowBox[{
10447	FormBox[
10448	SubscriptBox["\<\"s\"\>", "2"],
10449	TraditionalForm], ",",
10450	FormBox[
10451	SubscriptBox["\<\"s\"\>", "3"],
10452	TraditionalForm]}]],
10453	TraditionalForm]}], "+",
10454	RowBox[{"KTuLh", " ",
10455	FormBox[
10456	SubscriptBox[
10457	SubscriptBox["P", "\<\"+\"\>"],
10458	RowBox[{
10459	FormBox[
10460	SubscriptBox["\<\"s\"\>", "2"],
10461	TraditionalForm], ",",
10462	FormBox[
10463	SubscriptBox["\<\"s\"\>", "3"],
10464	TraditionalForm]}]],
10465	TraditionalForm]}]}], ")"}]}], "v"]}]},
10466	{
10467	RowBox[{"(", "\[NoBreak]", GridBox[{
10468	{"H", "1"},
10469	{"tp", "2"},
10470	{
10471	FormBox[
10472	OverscriptBox["u", "\<\"-\"\>"],
10473	TraditionalForm], "3"}
10474	},
10475	GridBoxAlignment->{
10476	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10477	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10478	GridBoxSpacings->{"Columns" -> {
10479	Offset[0.27999999999999997`], {
10480	Offset[0.7]},
10481	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10482	"Rows" -> {
10483	Offset[0.2], {
10484	Offset[0.4]},
10485	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10486	RowBox[{"-",
10487	FractionBox[
10488	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "MTP", " ",
10489	FormBox[
10490	SubscriptBox["\[Delta]",
10491	RowBox[{
10492	FormBox[
10493	SubscriptBox["\<\"i\"\>", "2"],
10494	TraditionalForm], ",",
10495	FormBox[
10496	SubscriptBox["\<\"i\"\>", "3"],
10497	TraditionalForm]}]],
10498	TraditionalForm], " ",
10499	RowBox[{"(",
10500	RowBox[{
10501	RowBox[{"KTuLh", " ",
10502	FormBox[
10503	SubscriptBox[
10504	SubscriptBox["P", "\<\"-\"\>"],
10505	RowBox[{
10506	FormBox[
10507	SubscriptBox["\<\"s\"\>", "3"],
10508	TraditionalForm], ",",
10509	FormBox[
10510	SubscriptBox["\<\"s\"\>", "2"],
10511	TraditionalForm]}]],
10512	TraditionalForm]}], "+",
10513	RowBox[{"KTuRh", " ",
10514	FormBox[
10515	SubscriptBox[
10516	SubscriptBox["P", "\<\"+\"\>"],
10517	RowBox[{
10518	FormBox[
10519	SubscriptBox["\<\"s\"\>", "3"],
10520	TraditionalForm], ",",
10521	FormBox[
10522	SubscriptBox["\<\"s\"\>", "2"],
10523	TraditionalForm]}]],
10524	TraditionalForm]}]}], ")"}]}], "v"]}]},
10525	{
10526	RowBox[{"(", "\[NoBreak]", GridBox[{
10527	{"bp", "1"},
10528	{
10529	FormBox[
10530	OverscriptBox["bp", "\<\"-\"\>"],
10531	TraditionalForm], "2"},
10532	{"G", "3"}
10533	},
10534	GridBoxAlignment->{
10535	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10536	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10537	GridBoxSpacings->{"Columns" -> {
10538	Offset[0.27999999999999997`], {
10539	Offset[0.7]},
10540	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10541	"Rows" -> {
10542	Offset[0.2], {
10543	Offset[0.4]},
10544	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10545	RowBox[{"\[ImaginaryI]", " ",
10546	FormBox[
10547	SubscriptBox["g", "s"],
10548	TraditionalForm], " ",
10549	FormBox[
10550	SubsuperscriptBox["\[Gamma]",
10551	RowBox[{
10552	FormBox[
10553	SubscriptBox["\<\"s\"\>", "2"],
10554	TraditionalForm], ",",
10555	FormBox[
10556	SubscriptBox["\<\"s\"\>", "1"],
10557	TraditionalForm]}],
10558	FormBox[
10559	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10560	TraditionalForm]],
10561	TraditionalForm], " ",
10562	FormBox[
10563	SubsuperscriptBox["T",
10564	RowBox[{
10565	FormBox[
10566	SubscriptBox["\<\"i\"\>", "2"],
10567	TraditionalForm], ",",
10568	FormBox[
10569	SubscriptBox["\<\"i\"\>", "1"],
10570	TraditionalForm]}],
10571	FormBox[
10572	SubscriptBox["\<\"a\"\>", "3"],
10573	TraditionalForm]],
10574	TraditionalForm]}]},
10575	{
10576	RowBox[{"(", "\[NoBreak]", GridBox[{
10577	{"G", "1"},
10578	{"tp", "2"},
10579	{
10580	FormBox[
10581	OverscriptBox["tp", "\<\"-\"\>"],
10582	TraditionalForm], "3"}
10583	},
10584	GridBoxAlignment->{
10585	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10586	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10587	GridBoxSpacings->{"Columns" -> {
10588	Offset[0.27999999999999997`], {
10589	Offset[0.7]},
10590	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10591	"Rows" -> {
10592	Offset[0.2], {
10593	Offset[0.4]},
10594	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10595	RowBox[{"\[ImaginaryI]", " ",
10596	FormBox[
10597	SubscriptBox["g", "s"],
10598	TraditionalForm], " ",
10599	FormBox[
10600	SubsuperscriptBox["\[Gamma]",
10601	RowBox[{
10602	FormBox[
10603	SubscriptBox["\<\"s\"\>", "3"],
10604	TraditionalForm], ",",
10605	FormBox[
10606	SubscriptBox["\<\"s\"\>", "2"],
10607	TraditionalForm]}],
10608	FormBox[
10609	SubscriptBox["\<\"\[Mu]\"\>", "1"],
10610	TraditionalForm]],
10611	TraditionalForm], " ",
10612	FormBox[
10613	SubsuperscriptBox["T",
10614	RowBox[{
10615	FormBox[
10616	SubscriptBox["\<\"i\"\>", "3"],
10617	TraditionalForm], ",",
10618	FormBox[
10619	SubscriptBox["\<\"i\"\>", "2"],
10620	TraditionalForm]}],
10621	FormBox[
10622	SubscriptBox["\<\"a\"\>", "1"],
10623	TraditionalForm]],
10624	TraditionalForm]}]},
10625	{
10626	RowBox[{"(", "\[NoBreak]", GridBox[{
10627	{"G", "1"},
10628	{"x", "2"},
10629	{
10630	FormBox[
10631	OverscriptBox["x", "\<\"-\"\>"],
10632	TraditionalForm], "3"}
10633	},
10634	GridBoxAlignment->{
10635	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10636	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10637	GridBoxSpacings->{"Columns" -> {
10638	Offset[0.27999999999999997`], {
10639	Offset[0.7]},
10640	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10641	"Rows" -> {
10642	Offset[0.2], {
10643	Offset[0.4]},
10644	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10645	RowBox[{"\[ImaginaryI]", " ",
10646	FormBox[
10647	SubscriptBox["g", "s"],
10648	TraditionalForm], " ",
10649	FormBox[
10650	SubsuperscriptBox["\[Gamma]",
10651	RowBox[{
10652	FormBox[
10653	SubscriptBox["\<\"s\"\>", "3"],
10654	TraditionalForm], ",",
10655	FormBox[
10656	SubscriptBox["\<\"s\"\>", "2"],
10657	TraditionalForm]}],
10658	FormBox[
10659	SubscriptBox["\<\"\[Mu]\"\>", "1"],
10660	TraditionalForm]],
10661	TraditionalForm], " ",
10662	FormBox[
10663	SubsuperscriptBox["T",
10664	RowBox[{
10665	FormBox[
10666	SubscriptBox["\<\"i\"\>", "3"],
10667	TraditionalForm], ",",
10668	FormBox[
10669	SubscriptBox["\<\"i\"\>", "2"],
10670	TraditionalForm]}],
10671	FormBox[
10672	SubscriptBox["\<\"a\"\>", "1"],
10673	TraditionalForm]],
10674	TraditionalForm]}]},
10675	{
10676	RowBox[{"(", "\[NoBreak]", GridBox[{
10677	{"G", "1"},
10678	{"y", "2"},
10679	{
10680	FormBox[
10681	OverscriptBox["y", "\<\"-\"\>"],
10682	TraditionalForm], "3"}
10683	},
10684	GridBoxAlignment->{
10685	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10686	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10687	GridBoxSpacings->{"Columns" -> {
10688	Offset[0.27999999999999997`], {
10689	Offset[0.7]},
10690	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10691	"Rows" -> {
10692	Offset[0.2], {
10693	Offset[0.4]},
10694	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10695	RowBox[{"\[ImaginaryI]", " ",
10696	FormBox[
10697	SubscriptBox["g", "s"],
10698	TraditionalForm], " ",
10699	FormBox[
10700	SubsuperscriptBox["\[Gamma]",
10701	RowBox[{
10702	FormBox[
10703	SubscriptBox["\<\"s\"\>", "3"],
10704	TraditionalForm], ",",
10705	FormBox[
10706	SubscriptBox["\<\"s\"\>", "2"],
10707	TraditionalForm]}],
10708	FormBox[
10709	SubscriptBox["\<\"\[Mu]\"\>", "1"],
10710	TraditionalForm]],
10711	TraditionalForm], " ",
10712	FormBox[
10713	SubsuperscriptBox["T",
10714	RowBox[{
10715	FormBox[
10716	SubscriptBox["\<\"i\"\>", "3"],
10717	TraditionalForm], ",",
10718	FormBox[
10719	SubscriptBox["\<\"i\"\>", "2"],
10720	TraditionalForm]}],
10721	FormBox[
10722	SubscriptBox["\<\"a\"\>", "1"],
10723	TraditionalForm]],
10724	TraditionalForm]}]},
10725	{
10726	RowBox[{"(", "\[NoBreak]", GridBox[{
10727	{"b", "1"},
10728	{
10729	FormBox[
10730	OverscriptBox["tp", "\<\"-\"\>"],
10731	TraditionalForm], "2"},
10732	{"W", "3"}
10733	},
10734	GridBoxAlignment->{
10735	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10736	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10737	GridBoxSpacings->{"Columns" -> {
10738	Offset[0.27999999999999997`], {
10739	Offset[0.7]},
10740	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10741	"Rows" -> {
10742	Offset[0.2], {
10743	Offset[0.4]},
10744	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10745	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
10746	FormBox[
10747	SubscriptBox["\[Delta]",
10748	RowBox[{
10749	FormBox[
10750	SubscriptBox["\<\"i\"\>", "1"],
10751	TraditionalForm], ",",
10752	FormBox[
10753	SubscriptBox["\<\"i\"\>", "2"],
10754	TraditionalForm]}]],
10755	TraditionalForm], " ",
10756	RowBox[{"(",
10757	RowBox[{
10758	RowBox[{"KTtLw", " ",
10759	FormBox[
10760	SubscriptBox[
10761	RowBox[{
10762	FormBox[
10763	SuperscriptBox["\[Gamma]",
10764	FormBox[
10765	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10766	TraditionalForm]],
10767	TraditionalForm], ".",
10768	FormBox[
10769	SubscriptBox["P", "\<\"-\"\>"],
10770	TraditionalForm]}],
10771	RowBox[{
10772	FormBox[
10773	SubscriptBox["\<\"s\"\>", "2"],
10774	TraditionalForm], ",",
10775	FormBox[
10776	SubscriptBox["\<\"s\"\>", "1"],
10777	TraditionalForm]}]],
10778	TraditionalForm]}], "+",
10779	RowBox[{"KTtRw", " ",
10780	FormBox[
10781	SubscriptBox[
10782	RowBox[{
10783	FormBox[
10784	SuperscriptBox["\[Gamma]",
10785	FormBox[
10786	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10787	TraditionalForm]],
10788	TraditionalForm], ".",
10789	FormBox[
10790	SubscriptBox["P", "\<\"+\"\>"],
10791	TraditionalForm]}],
10792	RowBox[{
10793	FormBox[
10794	SubscriptBox["\<\"s\"\>", "2"],
10795	TraditionalForm], ",",
10796	FormBox[
10797	SubscriptBox["\<\"s\"\>", "1"],
10798	TraditionalForm]}]],
10799	TraditionalForm]}]}], ")"}]}]},
10800	{
10801	RowBox[{"(", "\[NoBreak]", GridBox[{
10802	{"d", "1"},
10803	{
10804	FormBox[
10805	OverscriptBox["tp", "\<\"-\"\>"],
10806	TraditionalForm], "2"},
10807	{"W", "3"}
10808	},
10809	GridBoxAlignment->{
10810	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10811	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10812	GridBoxSpacings->{"Columns" -> {
10813	Offset[0.27999999999999997`], {
10814	Offset[0.7]},
10815	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10816	"Rows" -> {
10817	Offset[0.2], {
10818	Offset[0.4]},
10819	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10820	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
10821	FormBox[
10822	SubscriptBox["\[Delta]",
10823	RowBox[{
10824	FormBox[
10825	SubscriptBox["\<\"i\"\>", "1"],
10826	TraditionalForm], ",",
10827	FormBox[
10828	SubscriptBox["\<\"i\"\>", "2"],
10829	TraditionalForm]}]],
10830	TraditionalForm], " ",
10831	RowBox[{"(",
10832	RowBox[{
10833	RowBox[{"KTuLw", " ",
10834	FormBox[
10835	SubscriptBox[
10836	RowBox[{
10837	FormBox[
10838	SuperscriptBox["\[Gamma]",
10839	FormBox[
10840	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10841	TraditionalForm]],
10842	TraditionalForm], ".",
10843	FormBox[
10844	SubscriptBox["P", "\<\"-\"\>"],
10845	TraditionalForm]}],
10846	RowBox[{
10847	FormBox[
10848	SubscriptBox["\<\"s\"\>", "2"],
10849	TraditionalForm], ",",
10850	FormBox[
10851	SubscriptBox["\<\"s\"\>", "1"],
10852	TraditionalForm]}]],
10853	TraditionalForm]}], "+",
10854	RowBox[{"KTuRw", " ",
10855	FormBox[
10856	SubscriptBox[
10857	RowBox[{
10858	FormBox[
10859	SuperscriptBox["\[Gamma]",
10860	FormBox[
10861	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10862	TraditionalForm]],
10863	TraditionalForm], ".",
10864	FormBox[
10865	SubscriptBox["P", "\<\"+\"\>"],
10866	TraditionalForm]}],
10867	RowBox[{
10868	FormBox[
10869	SubscriptBox["\<\"s\"\>", "2"],
10870	TraditionalForm], ",",
10871	FormBox[
10872	SubscriptBox["\<\"s\"\>", "1"],
10873	TraditionalForm]}]],
10874	TraditionalForm]}]}], ")"}]}]},
10875	{
10876	RowBox[{"(", "\[NoBreak]", GridBox[{
10877	{"s", "1"},
10878	{
10879	FormBox[
10880	OverscriptBox["tp", "\<\"-\"\>"],
10881	TraditionalForm], "2"},
10882	{"W", "3"}
10883	},
10884	GridBoxAlignment->{
10885	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10886	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10887	GridBoxSpacings->{"Columns" -> {
10888	Offset[0.27999999999999997`], {
10889	Offset[0.7]},
10890	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10891	"Rows" -> {
10892	Offset[0.2], {
10893	Offset[0.4]},
10894	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10895	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
10896	FormBox[
10897	SubscriptBox["\[Delta]",
10898	RowBox[{
10899	FormBox[
10900	SubscriptBox["\<\"i\"\>", "1"],
10901	TraditionalForm], ",",
10902	FormBox[
10903	SubscriptBox["\<\"i\"\>", "2"],
10904	TraditionalForm]}]],
10905	TraditionalForm], " ",
10906	RowBox[{"(",
10907	RowBox[{
10908	RowBox[{"KTcLw", " ",
10909	FormBox[
10910	SubscriptBox[
10911	RowBox[{
10912	FormBox[
10913	SuperscriptBox["\[Gamma]",
10914	FormBox[
10915	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10916	TraditionalForm]],
10917	TraditionalForm], ".",
10918	FormBox[
10919	SubscriptBox["P", "\<\"-\"\>"],
10920	TraditionalForm]}],
10921	RowBox[{
10922	FormBox[
10923	SubscriptBox["\<\"s\"\>", "2"],
10924	TraditionalForm], ",",
10925	FormBox[
10926	SubscriptBox["\<\"s\"\>", "1"],
10927	TraditionalForm]}]],
10928	TraditionalForm]}], "+",
10929	RowBox[{"KTcRw", " ",
10930	FormBox[
10931	SubscriptBox[
10932	RowBox[{
10933	FormBox[
10934	SuperscriptBox["\[Gamma]",
10935	FormBox[
10936	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10937	TraditionalForm]],
10938	TraditionalForm], ".",
10939	FormBox[
10940	SubscriptBox["P", "\<\"+\"\>"],
10941	TraditionalForm]}],
10942	RowBox[{
10943	FormBox[
10944	SubscriptBox["\<\"s\"\>", "2"],
10945	TraditionalForm], ",",
10946	FormBox[
10947	SubscriptBox["\<\"s\"\>", "1"],
10948	TraditionalForm]}]],
10949	TraditionalForm]}]}], ")"}]}]},
10950	{
10951	RowBox[{"(", "\[NoBreak]", GridBox[{
10952	{"bp", "1"},
10953	{
10954	FormBox[
10955	OverscriptBox["u", "\<\"-\"\>"],
10956	TraditionalForm], "2"},
10957	{"W", "3"}
10958	},
10959	GridBoxAlignment->{
10960	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
10961	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
10962	GridBoxSpacings->{"Columns" -> {
10963	Offset[0.27999999999999997`], {
10964	Offset[0.7]},
10965	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
10966	"Rows" -> {
10967	Offset[0.2], {
10968	Offset[0.4]},
10969	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
10970	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
10971	FormBox[
10972	SubscriptBox["\[Delta]",
10973	RowBox[{
10974	FormBox[
10975	SubscriptBox["\<\"i\"\>", "1"],
10976	TraditionalForm], ",",
10977	FormBox[
10978	SubscriptBox["\<\"i\"\>", "2"],
10979	TraditionalForm]}]],
10980	TraditionalForm], " ",
10981	RowBox[{"(",
10982	RowBox[{
10983	RowBox[{"KBdLw", " ",
10984	FormBox[
10985	SubscriptBox[
10986	RowBox[{
10987	FormBox[
10988	SuperscriptBox["\[Gamma]",
10989	FormBox[
10990	SubscriptBox["\<\"\[Mu]\"\>", "3"],
10991	TraditionalForm]],
10992	TraditionalForm], ".",
10993	FormBox[
10994	SubscriptBox["P", "\<\"-\"\>"],
10995	TraditionalForm]}],
10996	RowBox[{
10997	FormBox[
10998	SubscriptBox["\<\"s\"\>", "2"],
10999	TraditionalForm], ",",
11000	FormBox[
11001	SubscriptBox["\<\"s\"\>", "1"],
11002	TraditionalForm]}]],
11003	TraditionalForm]}], "+",
11004	RowBox[{"KBdRw", " ",
11005	FormBox[
11006	SubscriptBox[
11007	RowBox[{
11008	FormBox[
11009	SuperscriptBox["\[Gamma]",
11010	FormBox[
11011	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11012	TraditionalForm]],
11013	TraditionalForm], ".",
11014	FormBox[
11015	SubscriptBox["P", "\<\"+\"\>"],
11016	TraditionalForm]}],
11017	RowBox[{
11018	FormBox[
11019	SubscriptBox["\<\"s\"\>", "2"],
11020	TraditionalForm], ",",
11021	FormBox[
11022	SubscriptBox["\<\"s\"\>", "1"],
11023	TraditionalForm]}]],
11024	TraditionalForm]}]}], ")"}]}]},
11025	{
11026	RowBox[{"(", "\[NoBreak]", GridBox[{
11027	{"c", "1"},
11028	{"W", "2"},
11029	{
11030	FormBox[
11031	OverscriptBox["x", "\<\"-\"\>"],
11032	TraditionalForm], "3"}
11033	},
11034	GridBoxAlignment->{
11035	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11036	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11037	GridBoxSpacings->{"Columns" -> {
11038	Offset[0.27999999999999997`], {
11039	Offset[0.7]},
11040	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11041	"Rows" -> {
11042	Offset[0.2], {
11043	Offset[0.4]},
11044	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11045	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11046	FormBox[
11047	SubscriptBox["\[Delta]",
11048	RowBox[{
11049	FormBox[
11050	SubscriptBox["\<\"i\"\>", "1"],
11051	TraditionalForm], ",",
11052	FormBox[
11053	SubscriptBox["\<\"i\"\>", "3"],
11054	TraditionalForm]}]],
11055	TraditionalForm], " ",
11056	RowBox[{"(",
11057	RowBox[{
11058	RowBox[{"KXcL", " ",
11059	FormBox[
11060	SubscriptBox[
11061	RowBox[{
11062	FormBox[
11063	SuperscriptBox["\[Gamma]",
11064	FormBox[
11065	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11066	TraditionalForm]],
11067	TraditionalForm], ".",
11068	FormBox[
11069	SubscriptBox["P", "\<\"-\"\>"],
11070	TraditionalForm]}],
11071	RowBox[{
11072	FormBox[
11073	SubscriptBox["\<\"s\"\>", "3"],
11074	TraditionalForm], ",",
11075	FormBox[
11076	SubscriptBox["\<\"s\"\>", "1"],
11077	TraditionalForm]}]],
11078	TraditionalForm]}], "+",
11079	RowBox[{"KXcR", " ",
11080	FormBox[
11081	SubscriptBox[
11082	RowBox[{
11083	FormBox[
11084	SuperscriptBox["\[Gamma]",
11085	FormBox[
11086	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11087	TraditionalForm]],
11088	TraditionalForm], ".",
11089	FormBox[
11090	SubscriptBox["P", "\<\"+\"\>"],
11091	TraditionalForm]}],
11092	RowBox[{
11093	FormBox[
11094	SubscriptBox["\<\"s\"\>", "3"],
11095	TraditionalForm], ",",
11096	FormBox[
11097	SubscriptBox["\<\"s\"\>", "1"],
11098	TraditionalForm]}]],
11099	TraditionalForm]}]}], ")"}]}]},
11100	{
11101	RowBox[{"(", "\[NoBreak]", GridBox[{
11102	{"t", "1"},
11103	{"W", "2"},
11104	{
11105	FormBox[
11106	OverscriptBox["x", "\<\"-\"\>"],
11107	TraditionalForm], "3"}
11108	},
11109	GridBoxAlignment->{
11110	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11111	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11112	GridBoxSpacings->{"Columns" -> {
11113	Offset[0.27999999999999997`], {
11114	Offset[0.7]},
11115	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11116	"Rows" -> {
11117	Offset[0.2], {
11118	Offset[0.4]},
11119	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11120	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11121	FormBox[
11122	SubscriptBox["\[Delta]",
11123	RowBox[{
11124	FormBox[
11125	SubscriptBox["\<\"i\"\>", "1"],
11126	TraditionalForm], ",",
11127	FormBox[
11128	SubscriptBox["\<\"i\"\>", "3"],
11129	TraditionalForm]}]],
11130	TraditionalForm], " ",
11131	RowBox[{"(",
11132	RowBox[{
11133	RowBox[{"KXtL", " ",
11134	FormBox[
11135	SubscriptBox[
11136	RowBox[{
11137	FormBox[
11138	SuperscriptBox["\[Gamma]",
11139	FormBox[
11140	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11141	TraditionalForm]],
11142	TraditionalForm], ".",
11143	FormBox[
11144	SubscriptBox["P", "\<\"-\"\>"],
11145	TraditionalForm]}],
11146	RowBox[{
11147	FormBox[
11148	SubscriptBox["\<\"s\"\>", "3"],
11149	TraditionalForm], ",",
11150	FormBox[
11151	SubscriptBox["\<\"s\"\>", "1"],
11152	TraditionalForm]}]],
11153	TraditionalForm]}], "+",
11154	RowBox[{"KXtR", " ",
11155	FormBox[
11156	SubscriptBox[
11157	RowBox[{
11158	FormBox[
11159	SuperscriptBox["\[Gamma]",
11160	FormBox[
11161	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11162	TraditionalForm]],
11163	TraditionalForm], ".",
11164	FormBox[
11165	SubscriptBox["P", "\<\"+\"\>"],
11166	TraditionalForm]}],
11167	RowBox[{
11168	FormBox[
11169	SubscriptBox["\<\"s\"\>", "3"],
11170	TraditionalForm], ",",
11171	FormBox[
11172	SubscriptBox["\<\"s\"\>", "1"],
11173	TraditionalForm]}]],
11174	TraditionalForm]}]}], ")"}]}]},
11175	{
11176	RowBox[{"(", "\[NoBreak]", GridBox[{
11177	{"u", "1"},
11178	{"W", "2"},
11179	{
11180	FormBox[
11181	OverscriptBox["x", "\<\"-\"\>"],
11182	TraditionalForm], "3"}
11183	},
11184	GridBoxAlignment->{
11185	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11186	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11187	GridBoxSpacings->{"Columns" -> {
11188	Offset[0.27999999999999997`], {
11189	Offset[0.7]},
11190	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11191	"Rows" -> {
11192	Offset[0.2], {
11193	Offset[0.4]},
11194	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11195	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11196	FormBox[
11197	SubscriptBox["\[Delta]",
11198	RowBox[{
11199	FormBox[
11200	SubscriptBox["\<\"i\"\>", "1"],
11201	TraditionalForm], ",",
11202	FormBox[
11203	SubscriptBox["\<\"i\"\>", "3"],
11204	TraditionalForm]}]],
11205	TraditionalForm], " ",
11206	RowBox[{"(",
11207	RowBox[{
11208	RowBox[{"KXuL", " ",
11209	FormBox[
11210	SubscriptBox[
11211	RowBox[{
11212	FormBox[
11213	SuperscriptBox["\[Gamma]",
11214	FormBox[
11215	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11216	TraditionalForm]],
11217	TraditionalForm], ".",
11218	FormBox[
11219	SubscriptBox["P", "\<\"-\"\>"],
11220	TraditionalForm]}],
11221	RowBox[{
11222	FormBox[
11223	SubscriptBox["\<\"s\"\>", "3"],
11224	TraditionalForm], ",",
11225	FormBox[
11226	SubscriptBox["\<\"s\"\>", "1"],
11227	TraditionalForm]}]],
11228	TraditionalForm]}], "+",
11229	RowBox[{"KXuR", " ",
11230	FormBox[
11231	SubscriptBox[
11232	RowBox[{
11233	FormBox[
11234	SuperscriptBox["\[Gamma]",
11235	FormBox[
11236	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11237	TraditionalForm]],
11238	TraditionalForm], ".",
11239	FormBox[
11240	SubscriptBox["P", "\<\"+\"\>"],
11241	TraditionalForm]}],
11242	RowBox[{
11243	FormBox[
11244	SubscriptBox["\<\"s\"\>", "3"],
11245	TraditionalForm], ",",
11246	FormBox[
11247	SubscriptBox["\<\"s\"\>", "1"],
11248	TraditionalForm]}]],
11249	TraditionalForm]}]}], ")"}]}]},
11250	{
11251	RowBox[{"(", "\[NoBreak]", GridBox[{
11252	{
11253	FormBox[
11254	OverscriptBox["b", "\<\"-\"\>"],
11255	TraditionalForm], "1"},
11256	{"tp", "2"},
11257	{
11258	FormBox[
11259	SuperscriptBox["W", "\[Dagger]"],
11260	TraditionalForm], "3"}
11261	},
11262	GridBoxAlignment->{
11263	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11264	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11265	GridBoxSpacings->{"Columns" -> {
11266	Offset[0.27999999999999997`], {
11267	Offset[0.7]},
11268	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11269	"Rows" -> {
11270	Offset[0.2], {
11271	Offset[0.4]},
11272	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11273	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
11274	FormBox[
11275	SubscriptBox["\[Delta]",
11276	RowBox[{
11277	FormBox[
11278	SubscriptBox["\<\"i\"\>", "1"],
11279	TraditionalForm], ",",
11280	FormBox[
11281	SubscriptBox["\<\"i\"\>", "2"],
11282	TraditionalForm]}]],
11283	TraditionalForm], " ",
11284	RowBox[{"(",
11285	RowBox[{
11286	RowBox[{"KTtLw", " ",
11287	FormBox[
11288	SubscriptBox[
11289	RowBox[{
11290	FormBox[
11291	SuperscriptBox["\[Gamma]",
11292	FormBox[
11293	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11294	TraditionalForm]],
11295	TraditionalForm], ".",
11296	FormBox[
11297	SubscriptBox["P", "\<\"-\"\>"],
11298	TraditionalForm]}],
11299	RowBox[{
11300	FormBox[
11301	SubscriptBox["\<\"s\"\>", "1"],
11302	TraditionalForm], ",",
11303	FormBox[
11304	SubscriptBox["\<\"s\"\>", "2"],
11305	TraditionalForm]}]],
11306	TraditionalForm]}], "+",
11307	RowBox[{"KTtRw", " ",
11308	FormBox[
11309	SubscriptBox[
11310	RowBox[{
11311	FormBox[
11312	SuperscriptBox["\[Gamma]",
11313	FormBox[
11314	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11315	TraditionalForm]],
11316	TraditionalForm], ".",
11317	FormBox[
11318	SubscriptBox["P", "\<\"+\"\>"],
11319	TraditionalForm]}],
11320	RowBox[{
11321	FormBox[
11322	SubscriptBox["\<\"s\"\>", "1"],
11323	TraditionalForm], ",",
11324	FormBox[
11325	SubscriptBox["\<\"s\"\>", "2"],
11326	TraditionalForm]}]],
11327	TraditionalForm]}]}], ")"}]}]},
11328	{
11329	RowBox[{"(", "\[NoBreak]", GridBox[{
11330	{
11331	FormBox[
11332	OverscriptBox["bp", "\<\"-\"\>"],
11333	TraditionalForm], "1"},
11334	{"c", "2"},
11335	{
11336	FormBox[
11337	SuperscriptBox["W", "\[Dagger]"],
11338	TraditionalForm], "3"}
11339	},
11340	GridBoxAlignment->{
11341	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11342	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11343	GridBoxSpacings->{"Columns" -> {
11344	Offset[0.27999999999999997`], {
11345	Offset[0.7]},
11346	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11347	"Rows" -> {
11348	Offset[0.2], {
11349	Offset[0.4]},
11350	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11351	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
11352	FormBox[
11353	SubscriptBox["\[Delta]",
11354	RowBox[{
11355	FormBox[
11356	SubscriptBox["\<\"i\"\>", "1"],
11357	TraditionalForm], ",",
11358	FormBox[
11359	SubscriptBox["\<\"i\"\>", "2"],
11360	TraditionalForm]}]],
11361	TraditionalForm], " ",
11362	RowBox[{"(",
11363	RowBox[{
11364	RowBox[{"KBsLw", " ",
11365	FormBox[
11366	SubscriptBox[
11367	RowBox[{
11368	FormBox[
11369	SuperscriptBox["\[Gamma]",
11370	FormBox[
11371	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11372	TraditionalForm]],
11373	TraditionalForm], ".",
11374	FormBox[
11375	SubscriptBox["P", "\<\"-\"\>"],
11376	TraditionalForm]}],
11377	RowBox[{
11378	FormBox[
11379	SubscriptBox["\<\"s\"\>", "1"],
11380	TraditionalForm], ",",
11381	FormBox[
11382	SubscriptBox["\<\"s\"\>", "2"],
11383	TraditionalForm]}]],
11384	TraditionalForm]}], "+",
11385	RowBox[{"KBsRw", " ",
11386	FormBox[
11387	SubscriptBox[
11388	RowBox[{
11389	FormBox[
11390	SuperscriptBox["\[Gamma]",
11391	FormBox[
11392	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11393	TraditionalForm]],
11394	TraditionalForm], ".",
11395	FormBox[
11396	SubscriptBox["P", "\<\"+\"\>"],
11397	TraditionalForm]}],
11398	RowBox[{
11399	FormBox[
11400	SubscriptBox["\<\"s\"\>", "1"],
11401	TraditionalForm], ",",
11402	FormBox[
11403	SubscriptBox["\<\"s\"\>", "2"],
11404	TraditionalForm]}]],
11405	TraditionalForm]}]}], ")"}]}]},
11406	{
11407	RowBox[{"(", "\[NoBreak]", GridBox[{
11408	{
11409	FormBox[
11410	OverscriptBox["bp", "\<\"-\"\>"],
11411	TraditionalForm], "1"},
11412	{"t", "2"},
11413	{
11414	FormBox[
11415	SuperscriptBox["W", "\[Dagger]"],
11416	TraditionalForm], "3"}
11417	},
11418	GridBoxAlignment->{
11419	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11420	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11421	GridBoxSpacings->{"Columns" -> {
11422	Offset[0.27999999999999997`], {
11423	Offset[0.7]},
11424	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11425	"Rows" -> {
11426	Offset[0.2], {
11427	Offset[0.4]},
11428	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11429	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
11430	FormBox[
11431	SubscriptBox["\[Delta]",
11432	RowBox[{
11433	FormBox[
11434	SubscriptBox["\<\"i\"\>", "1"],
11435	TraditionalForm], ",",
11436	FormBox[
11437	SubscriptBox["\<\"i\"\>", "2"],
11438	TraditionalForm]}]],
11439	TraditionalForm], " ",
11440	RowBox[{"(",
11441	RowBox[{
11442	RowBox[{"KBbLw", " ",
11443	FormBox[
11444	SubscriptBox[
11445	RowBox[{
11446	FormBox[
11447	SuperscriptBox["\[Gamma]",
11448	FormBox[
11449	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11450	TraditionalForm]],
11451	TraditionalForm], ".",
11452	FormBox[
11453	SubscriptBox["P", "\<\"-\"\>"],
11454	TraditionalForm]}],
11455	RowBox[{
11456	FormBox[
11457	SubscriptBox["\<\"s\"\>", "1"],
11458	TraditionalForm], ",",
11459	FormBox[
11460	SubscriptBox["\<\"s\"\>", "2"],
11461	TraditionalForm]}]],
11462	TraditionalForm]}], "+",
11463	RowBox[{"KBbRw", " ",
11464	FormBox[
11465	SubscriptBox[
11466	RowBox[{
11467	FormBox[
11468	SuperscriptBox["\[Gamma]",
11469	FormBox[
11470	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11471	TraditionalForm]],
11472	TraditionalForm], ".",
11473	FormBox[
11474	SubscriptBox["P", "\<\"+\"\>"],
11475	TraditionalForm]}],
11476	RowBox[{
11477	FormBox[
11478	SubscriptBox["\<\"s\"\>", "1"],
11479	TraditionalForm], ",",
11480	FormBox[
11481	SubscriptBox["\<\"s\"\>", "2"],
11482	TraditionalForm]}]],
11483	TraditionalForm]}]}], ")"}]}]},
11484	{
11485	RowBox[{"(", "\[NoBreak]", GridBox[{
11486	{
11487	FormBox[
11488	OverscriptBox["bp", "\<\"-\"\>"],
11489	TraditionalForm], "1"},
11490	{"u", "2"},
11491	{
11492	FormBox[
11493	SuperscriptBox["W", "\[Dagger]"],
11494	TraditionalForm], "3"}
11495	},
11496	GridBoxAlignment->{
11497	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11498	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11499	GridBoxSpacings->{"Columns" -> {
11500	Offset[0.27999999999999997`], {
11501	Offset[0.7]},
11502	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11503	"Rows" -> {
11504	Offset[0.2], {
11505	Offset[0.4]},
11506	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11507	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
11508	FormBox[
11509	SubscriptBox["\[Delta]",
11510	RowBox[{
11511	FormBox[
11512	SubscriptBox["\<\"i\"\>", "1"],
11513	TraditionalForm], ",",
11514	FormBox[
11515	SubscriptBox["\<\"i\"\>", "2"],
11516	TraditionalForm]}]],
11517	TraditionalForm], " ",
11518	RowBox[{"(",
11519	RowBox[{
11520	RowBox[{"KBdLw", " ",
11521	FormBox[
11522	SubscriptBox[
11523	RowBox[{
11524	FormBox[
11525	SuperscriptBox["\[Gamma]",
11526	FormBox[
11527	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11528	TraditionalForm]],
11529	TraditionalForm], ".",
11530	FormBox[
11531	SubscriptBox["P", "\<\"-\"\>"],
11532	TraditionalForm]}],
11533	RowBox[{
11534	FormBox[
11535	SubscriptBox["\<\"s\"\>", "1"],
11536	TraditionalForm], ",",
11537	FormBox[
11538	SubscriptBox["\<\"s\"\>", "2"],
11539	TraditionalForm]}]],
11540	TraditionalForm]}], "+",
11541	RowBox[{"KBdRw", " ",
11542	FormBox[
11543	SubscriptBox[
11544	RowBox[{
11545	FormBox[
11546	SuperscriptBox["\[Gamma]",
11547	FormBox[
11548	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11549	TraditionalForm]],
11550	TraditionalForm], ".",
11551	FormBox[
11552	SubscriptBox["P", "\<\"+\"\>"],
11553	TraditionalForm]}],
11554	RowBox[{
11555	FormBox[
11556	SubscriptBox["\<\"s\"\>", "1"],
11557	TraditionalForm], ",",
11558	FormBox[
11559	SubscriptBox["\<\"s\"\>", "2"],
11560	TraditionalForm]}]],
11561	TraditionalForm]}]}], ")"}]}]},
11562	{
11563	RowBox[{"(", "\[NoBreak]", GridBox[{
11564	{
11565	FormBox[
11566	OverscriptBox["c", "\<\"-\"\>"],
11567	TraditionalForm], "1"},
11568	{
11569	FormBox[
11570	SuperscriptBox["W", "\[Dagger]"],
11571	TraditionalForm], "2"},
11572	{"x", "3"}
11573	},
11574	GridBoxAlignment->{
11575	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11576	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11577	GridBoxSpacings->{"Columns" -> {
11578	Offset[0.27999999999999997`], {
11579	Offset[0.7]},
11580	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11581	"Rows" -> {
11582	Offset[0.2], {
11583	Offset[0.4]},
11584	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11585	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11586	FormBox[
11587	SubscriptBox["\[Delta]",
11588	RowBox[{
11589	FormBox[
11590	SubscriptBox["\<\"i\"\>", "1"],
11591	TraditionalForm], ",",
11592	FormBox[
11593	SubscriptBox["\<\"i\"\>", "3"],
11594	TraditionalForm]}]],
11595	TraditionalForm], " ",
11596	RowBox[{"(",
11597	RowBox[{
11598	RowBox[{"KXcL", " ",
11599	FormBox[
11600	SubscriptBox[
11601	RowBox[{
11602	FormBox[
11603	SuperscriptBox["\[Gamma]",
11604	FormBox[
11605	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11606	TraditionalForm]],
11607	TraditionalForm], ".",
11608	FormBox[
11609	SubscriptBox["P", "\<\"-\"\>"],
11610	TraditionalForm]}],
11611	RowBox[{
11612	FormBox[
11613	SubscriptBox["\<\"s\"\>", "1"],
11614	TraditionalForm], ",",
11615	FormBox[
11616	SubscriptBox["\<\"s\"\>", "3"],
11617	TraditionalForm]}]],
11618	TraditionalForm]}], "+",
11619	RowBox[{"KXcR", " ",
11620	FormBox[
11621	SubscriptBox[
11622	RowBox[{
11623	FormBox[
11624	SuperscriptBox["\[Gamma]",
11625	FormBox[
11626	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11627	TraditionalForm]],
11628	TraditionalForm], ".",
11629	FormBox[
11630	SubscriptBox["P", "\<\"+\"\>"],
11631	TraditionalForm]}],
11632	RowBox[{
11633	FormBox[
11634	SubscriptBox["\<\"s\"\>", "1"],
11635	TraditionalForm], ",",
11636	FormBox[
11637	SubscriptBox["\<\"s\"\>", "3"],
11638	TraditionalForm]}]],
11639	TraditionalForm]}]}], ")"}]}]},
11640	{
11641	RowBox[{"(", "\[NoBreak]", GridBox[{
11642	{
11643	FormBox[
11644	OverscriptBox["d", "\<\"-\"\>"],
11645	TraditionalForm], "1"},
11646	{"tp", "2"},
11647	{
11648	FormBox[
11649	SuperscriptBox["W", "\[Dagger]"],
11650	TraditionalForm], "3"}
11651	},
11652	GridBoxAlignment->{
11653	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11654	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11655	GridBoxSpacings->{"Columns" -> {
11656	Offset[0.27999999999999997`], {
11657	Offset[0.7]},
11658	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11659	"Rows" -> {
11660	Offset[0.2], {
11661	Offset[0.4]},
11662	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11663	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
11664	FormBox[
11665	SubscriptBox["\[Delta]",
11666	RowBox[{
11667	FormBox[
11668	SubscriptBox["\<\"i\"\>", "1"],
11669	TraditionalForm], ",",
11670	FormBox[
11671	SubscriptBox["\<\"i\"\>", "2"],
11672	TraditionalForm]}]],
11673	TraditionalForm], " ",
11674	RowBox[{"(",
11675	RowBox[{
11676	RowBox[{"KTuLw", " ",
11677	FormBox[
11678	SubscriptBox[
11679	RowBox[{
11680	FormBox[
11681	SuperscriptBox["\[Gamma]",
11682	FormBox[
11683	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11684	TraditionalForm]],
11685	TraditionalForm], ".",
11686	FormBox[
11687	SubscriptBox["P", "\<\"-\"\>"],
11688	TraditionalForm]}],
11689	RowBox[{
11690	FormBox[
11691	SubscriptBox["\<\"s\"\>", "1"],
11692	TraditionalForm], ",",
11693	FormBox[
11694	SubscriptBox["\<\"s\"\>", "2"],
11695	TraditionalForm]}]],
11696	TraditionalForm]}], "+",
11697	RowBox[{"KTuRw", " ",
11698	FormBox[
11699	SubscriptBox[
11700	RowBox[{
11701	FormBox[
11702	SuperscriptBox["\[Gamma]",
11703	FormBox[
11704	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11705	TraditionalForm]],
11706	TraditionalForm], ".",
11707	FormBox[
11708	SubscriptBox["P", "\<\"+\"\>"],
11709	TraditionalForm]}],
11710	RowBox[{
11711	FormBox[
11712	SubscriptBox["\<\"s\"\>", "1"],
11713	TraditionalForm], ",",
11714	FormBox[
11715	SubscriptBox["\<\"s\"\>", "2"],
11716	TraditionalForm]}]],
11717	TraditionalForm]}]}], ")"}]}]},
11718	{
11719	RowBox[{"(", "\[NoBreak]", GridBox[{
11720	{
11721	FormBox[
11722	OverscriptBox["s", "\<\"-\"\>"],
11723	TraditionalForm], "1"},
11724	{"tp", "2"},
11725	{
11726	FormBox[
11727	SuperscriptBox["W", "\[Dagger]"],
11728	TraditionalForm], "3"}
11729	},
11730	GridBoxAlignment->{
11731	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11732	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11733	GridBoxSpacings->{"Columns" -> {
11734	Offset[0.27999999999999997`], {
11735	Offset[0.7]},
11736	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11737	"Rows" -> {
11738	Offset[0.2], {
11739	Offset[0.4]},
11740	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11741	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
11742	FormBox[
11743	SubscriptBox["\[Delta]",
11744	RowBox[{
11745	FormBox[
11746	SubscriptBox["\<\"i\"\>", "1"],
11747	TraditionalForm], ",",
11748	FormBox[
11749	SubscriptBox["\<\"i\"\>", "2"],
11750	TraditionalForm]}]],
11751	TraditionalForm], " ",
11752	RowBox[{"(",
11753	RowBox[{
11754	RowBox[{"KTcLw", " ",
11755	FormBox[
11756	SubscriptBox[
11757	RowBox[{
11758	FormBox[
11759	SuperscriptBox["\[Gamma]",
11760	FormBox[
11761	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11762	TraditionalForm]],
11763	TraditionalForm], ".",
11764	FormBox[
11765	SubscriptBox["P", "\<\"-\"\>"],
11766	TraditionalForm]}],
11767	RowBox[{
11768	FormBox[
11769	SubscriptBox["\<\"s\"\>", "1"],
11770	TraditionalForm], ",",
11771	FormBox[
11772	SubscriptBox["\<\"s\"\>", "2"],
11773	TraditionalForm]}]],
11774	TraditionalForm]}], "+",
11775	RowBox[{"KTcRw", " ",
11776	FormBox[
11777	SubscriptBox[
11778	RowBox[{
11779	FormBox[
11780	SuperscriptBox["\[Gamma]",
11781	FormBox[
11782	SubscriptBox["\<\"\[Mu]\"\>", "3"],
11783	TraditionalForm]],
11784	TraditionalForm], ".",
11785	FormBox[
11786	SubscriptBox["P", "\<\"+\"\>"],
11787	TraditionalForm]}],
11788	RowBox[{
11789	FormBox[
11790	SubscriptBox["\<\"s\"\>", "1"],
11791	TraditionalForm], ",",
11792	FormBox[
11793	SubscriptBox["\<\"s\"\>", "2"],
11794	TraditionalForm]}]],
11795	TraditionalForm]}]}], ")"}]}]},
11796	{
11797	RowBox[{"(", "\[NoBreak]", GridBox[{
11798	{
11799	FormBox[
11800	OverscriptBox["t", "\<\"-\"\>"],
11801	TraditionalForm], "1"},
11802	{
11803	FormBox[
11804	SuperscriptBox["W", "\[Dagger]"],
11805	TraditionalForm], "2"},
11806	{"x", "3"}
11807	},
11808	GridBoxAlignment->{
11809	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11810	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11811	GridBoxSpacings->{"Columns" -> {
11812	Offset[0.27999999999999997`], {
11813	Offset[0.7]},
11814	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11815	"Rows" -> {
11816	Offset[0.2], {
11817	Offset[0.4]},
11818	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11819	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11820	FormBox[
11821	SubscriptBox["\[Delta]",
11822	RowBox[{
11823	FormBox[
11824	SubscriptBox["\<\"i\"\>", "1"],
11825	TraditionalForm], ",",
11826	FormBox[
11827	SubscriptBox["\<\"i\"\>", "3"],
11828	TraditionalForm]}]],
11829	TraditionalForm], " ",
11830	RowBox[{"(",
11831	RowBox[{
11832	RowBox[{"KXtL", " ",
11833	FormBox[
11834	SubscriptBox[
11835	RowBox[{
11836	FormBox[
11837	SuperscriptBox["\[Gamma]",
11838	FormBox[
11839	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11840	TraditionalForm]],
11841	TraditionalForm], ".",
11842	FormBox[
11843	SubscriptBox["P", "\<\"-\"\>"],
11844	TraditionalForm]}],
11845	RowBox[{
11846	FormBox[
11847	SubscriptBox["\<\"s\"\>", "1"],
11848	TraditionalForm], ",",
11849	FormBox[
11850	SubscriptBox["\<\"s\"\>", "3"],
11851	TraditionalForm]}]],
11852	TraditionalForm]}], "+",
11853	RowBox[{"KXtR", " ",
11854	FormBox[
11855	SubscriptBox[
11856	RowBox[{
11857	FormBox[
11858	SuperscriptBox["\[Gamma]",
11859	FormBox[
11860	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11861	TraditionalForm]],
11862	TraditionalForm], ".",
11863	FormBox[
11864	SubscriptBox["P", "\<\"+\"\>"],
11865	TraditionalForm]}],
11866	RowBox[{
11867	FormBox[
11868	SubscriptBox["\<\"s\"\>", "1"],
11869	TraditionalForm], ",",
11870	FormBox[
11871	SubscriptBox["\<\"s\"\>", "3"],
11872	TraditionalForm]}]],
11873	TraditionalForm]}]}], ")"}]}]},
11874	{
11875	RowBox[{"(", "\[NoBreak]", GridBox[{
11876	{
11877	FormBox[
11878	OverscriptBox["u", "\<\"-\"\>"],
11879	TraditionalForm], "1"},
11880	{
11881	FormBox[
11882	SuperscriptBox["W", "\[Dagger]"],
11883	TraditionalForm], "2"},
11884	{"x", "3"}
11885	},
11886	GridBoxAlignment->{
11887	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11888	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11889	GridBoxSpacings->{"Columns" -> {
11890	Offset[0.27999999999999997`], {
11891	Offset[0.7]},
11892	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11893	"Rows" -> {
11894	Offset[0.2], {
11895	Offset[0.4]},
11896	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11897	RowBox[{"\[ImaginaryI]", " ", "KX", " ",
11898	FormBox[
11899	SubscriptBox["\[Delta]",
11900	RowBox[{
11901	FormBox[
11902	SubscriptBox["\<\"i\"\>", "1"],
11903	TraditionalForm], ",",
11904	FormBox[
11905	SubscriptBox["\<\"i\"\>", "3"],
11906	TraditionalForm]}]],
11907	TraditionalForm], " ",
11908	RowBox[{"(",
11909	RowBox[{
11910	RowBox[{"KXuL", " ",
11911	FormBox[
11912	SubscriptBox[
11913	RowBox[{
11914	FormBox[
11915	SuperscriptBox["\[Gamma]",
11916	FormBox[
11917	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11918	TraditionalForm]],
11919	TraditionalForm], ".",
11920	FormBox[
11921	SubscriptBox["P", "\<\"-\"\>"],
11922	TraditionalForm]}],
11923	RowBox[{
11924	FormBox[
11925	SubscriptBox["\<\"s\"\>", "1"],
11926	TraditionalForm], ",",
11927	FormBox[
11928	SubscriptBox["\<\"s\"\>", "3"],
11929	TraditionalForm]}]],
11930	TraditionalForm]}], "+",
11931	RowBox[{"KXuR", " ",
11932	FormBox[
11933	SubscriptBox[
11934	RowBox[{
11935	FormBox[
11936	SuperscriptBox["\[Gamma]",
11937	FormBox[
11938	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11939	TraditionalForm]],
11940	TraditionalForm], ".",
11941	FormBox[
11942	SubscriptBox["P", "\<\"+\"\>"],
11943	TraditionalForm]}],
11944	RowBox[{
11945	FormBox[
11946	SubscriptBox["\<\"s\"\>", "1"],
11947	TraditionalForm], ",",
11948	FormBox[
11949	SubscriptBox["\<\"s\"\>", "3"],
11950	TraditionalForm]}]],
11951	TraditionalForm]}]}], ")"}]}]},
11952	{
11953	RowBox[{"(", "\[NoBreak]", GridBox[{
11954	{"b", "1"},
11955	{
11956	FormBox[
11957	SuperscriptBox["W", "\[Dagger]"],
11958	TraditionalForm], "2"},
11959	{
11960	FormBox[
11961	OverscriptBox["y", "\<\"-\"\>"],
11962	TraditionalForm], "3"}
11963	},
11964	GridBoxAlignment->{
11965	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
11966	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
11967	GridBoxSpacings->{"Columns" -> {
11968	Offset[0.27999999999999997`], {
11969	Offset[0.7]},
11970	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
11971	"Rows" -> {
11972	Offset[0.2], {
11973	Offset[0.4]},
11974	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
11975	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
11976	FormBox[
11977	SubscriptBox["\[Delta]",
11978	RowBox[{
11979	FormBox[
11980	SubscriptBox["\<\"i\"\>", "1"],
11981	TraditionalForm], ",",
11982	FormBox[
11983	SubscriptBox["\<\"i\"\>", "3"],
11984	TraditionalForm]}]],
11985	TraditionalForm], " ",
11986	RowBox[{"(",
11987	RowBox[{
11988	RowBox[{"KYbL", " ",
11989	FormBox[
11990	SubscriptBox[
11991	RowBox[{
11992	FormBox[
11993	SuperscriptBox["\[Gamma]",
11994	FormBox[
11995	SubscriptBox["\<\"\[Mu]\"\>", "2"],
11996	TraditionalForm]],
11997	TraditionalForm], ".",
11998	FormBox[
11999	SubscriptBox["P", "\<\"-\"\>"],
12000	TraditionalForm]}],
12001	RowBox[{
12002	FormBox[
12003	SubscriptBox["\<\"s\"\>", "3"],
12004	TraditionalForm], ",",
12005	FormBox[
12006	SubscriptBox["\<\"s\"\>", "1"],
12007	TraditionalForm]}]],
12008	TraditionalForm]}], "+",
12009	RowBox[{"KYbR", " ",
12010	FormBox[
12011	SubscriptBox[
12012	RowBox[{
12013	FormBox[
12014	SuperscriptBox["\[Gamma]",
12015	FormBox[
12016	SubscriptBox["\<\"\[Mu]\"\>", "2"],
12017	TraditionalForm]],
12018	TraditionalForm], ".",
12019	FormBox[
12020	SubscriptBox["P", "\<\"+\"\>"],
12021	TraditionalForm]}],
12022	RowBox[{
12023	FormBox[
12024	SubscriptBox["\<\"s\"\>", "3"],
12025	TraditionalForm], ",",
12026	FormBox[
12027	SubscriptBox["\<\"s\"\>", "1"],
12028	TraditionalForm]}]],
12029	TraditionalForm]}]}], ")"}]}]},
12030	{
12031	RowBox[{"(", "\[NoBreak]", GridBox[{
12032	{"d", "1"},
12033	{
12034	FormBox[
12035	SuperscriptBox["W", "\[Dagger]"],
12036	TraditionalForm], "2"},
12037	{
12038	FormBox[
12039	OverscriptBox["y", "\<\"-\"\>"],
12040	TraditionalForm], "3"}
12041	},
12042	GridBoxAlignment->{
12043	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12044	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12045	GridBoxSpacings->{"Columns" -> {
12046	Offset[0.27999999999999997`], {
12047	Offset[0.7]},
12048	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12049	"Rows" -> {
12050	Offset[0.2], {
12051	Offset[0.4]},
12052	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12053	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
12054	FormBox[
12055	SubscriptBox["\[Delta]",
12056	RowBox[{
12057	FormBox[
12058	SubscriptBox["\<\"i\"\>", "1"],
12059	TraditionalForm], ",",
12060	FormBox[
12061	SubscriptBox["\<\"i\"\>", "3"],
12062	TraditionalForm]}]],
12063	TraditionalForm], " ",
12064	RowBox[{"(",
12065	RowBox[{
12066	RowBox[{"KYdL", " ",
12067	FormBox[
12068	SubscriptBox[
12069	RowBox[{
12070	FormBox[
12071	SuperscriptBox["\[Gamma]",
12072	FormBox[
12073	SubscriptBox["\<\"\[Mu]\"\>", "2"],
12074	TraditionalForm]],
12075	TraditionalForm], ".",
12076	FormBox[
12077	SubscriptBox["P", "\<\"-\"\>"],
12078	TraditionalForm]}],
12079	RowBox[{
12080	FormBox[
12081	SubscriptBox["\<\"s\"\>", "3"],
12082	TraditionalForm], ",",
12083	FormBox[
12084	SubscriptBox["\<\"s\"\>", "1"],
12085	TraditionalForm]}]],
12086	TraditionalForm]}], "+",
12087	RowBox[{"KYdR", " ",
12088	FormBox[
12089	SubscriptBox[
12090	RowBox[{
12091	FormBox[
12092	SuperscriptBox["\[Gamma]",
12093	FormBox[
12094	SubscriptBox["\<\"\[Mu]\"\>", "2"],
12095	TraditionalForm]],
12096	TraditionalForm], ".",
12097	FormBox[
12098	SubscriptBox["P", "\<\"+\"\>"],
12099	TraditionalForm]}],
12100	RowBox[{
12101	FormBox[
12102	SubscriptBox["\<\"s\"\>", "3"],
12103	TraditionalForm], ",",
12104	FormBox[
12105	SubscriptBox["\<\"s\"\>", "1"],
12106	TraditionalForm]}]],
12107	TraditionalForm]}]}], ")"}]}]},
12108	{
12109	RowBox[{"(", "\[NoBreak]", GridBox[{
12110	{"s", "1"},
12111	{
12112	FormBox[
12113	SuperscriptBox["W", "\[Dagger]"],
12114	TraditionalForm], "2"},
12115	{
12116	FormBox[
12117	OverscriptBox["y", "\<\"-\"\>"],
12118	TraditionalForm], "3"}
12119	},
12120	GridBoxAlignment->{
12121	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12122	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12123	GridBoxSpacings->{"Columns" -> {
12124	Offset[0.27999999999999997`], {
12125	Offset[0.7]},
12126	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12127	"Rows" -> {
12128	Offset[0.2], {
12129	Offset[0.4]},
12130	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12131	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
12132	FormBox[
12133	SubscriptBox["\[Delta]",
12134	RowBox[{
12135	FormBox[
12136	SubscriptBox["\<\"i\"\>", "1"],
12137	TraditionalForm], ",",
12138	FormBox[
12139	SubscriptBox["\<\"i\"\>", "3"],
12140	TraditionalForm]}]],
12141	TraditionalForm], " ",
12142	RowBox[{"(",
12143	RowBox[{
12144	RowBox[{"KYsL", " ",
12145	FormBox[
12146	SubscriptBox[
12147	RowBox[{
12148	FormBox[
12149	SuperscriptBox["\[Gamma]",
12150	FormBox[
12151	SubscriptBox["\<\"\[Mu]\"\>", "2"],
12152	TraditionalForm]],
12153	TraditionalForm], ".",
12154	FormBox[
12155	SubscriptBox["P", "\<\"-\"\>"],
12156	TraditionalForm]}],
12157	RowBox[{
12158	FormBox[
12159	SubscriptBox["\<\"s\"\>", "3"],
12160	TraditionalForm], ",",
12161	FormBox[
12162	SubscriptBox["\<\"s\"\>", "1"],
12163	TraditionalForm]}]],
12164	TraditionalForm]}], "+",
12165	RowBox[{"KYsR", " ",
12166	FormBox[
12167	SubscriptBox[
12168	RowBox[{
12169	FormBox[
12170	SuperscriptBox["\[Gamma]",
12171	FormBox[
12172	SubscriptBox["\<\"\[Mu]\"\>", "2"],
12173	TraditionalForm]],
12174	TraditionalForm], ".",
12175	FormBox[
12176	SubscriptBox["P", "\<\"+\"\>"],
12177	TraditionalForm]}],
12178	RowBox[{
12179	FormBox[
12180	SubscriptBox["\<\"s\"\>", "3"],
12181	TraditionalForm], ",",
12182	FormBox[
12183	SubscriptBox["\<\"s\"\>", "1"],
12184	TraditionalForm]}]],
12185	TraditionalForm]}]}], ")"}]}]},
12186	{
12187	RowBox[{"(", "\[NoBreak]", GridBox[{
12188	{
12189	FormBox[
12190	OverscriptBox["b", "\<\"-\"\>"],
12191	TraditionalForm], "1"},
12192	{"bp", "2"},
12193	{"Z", "3"}
12194	},
12195	GridBoxAlignment->{
12196	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12197	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12198	GridBoxSpacings->{"Columns" -> {
12199	Offset[0.27999999999999997`], {
12200	Offset[0.7]},
12201	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12202	"Rows" -> {
12203	Offset[0.2], {
12204	Offset[0.4]},
12205	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12206	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12207	FormBox[
12208	SubscriptBox["\[Delta]",
12209	RowBox[{
12210	FormBox[
12211	SubscriptBox["\<\"i\"\>", "1"],
12212	TraditionalForm], ",",
12213	FormBox[
12214	SubscriptBox["\<\"i\"\>", "2"],
12215	TraditionalForm]}]],
12216	TraditionalForm], " ",
12217	RowBox[{"(",
12218	RowBox[{
12219	RowBox[{"KBbLz", " ",
12220	FormBox[
12221	SubscriptBox[
12222	RowBox[{
12223	FormBox[
12224	SuperscriptBox["\[Gamma]",
12225	FormBox[
12226	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12227	TraditionalForm]],
12228	TraditionalForm], ".",
12229	FormBox[
12230	SubscriptBox["P", "\<\"-\"\>"],
12231	TraditionalForm]}],
12232	RowBox[{
12233	FormBox[
12234	SubscriptBox["\<\"s\"\>", "1"],
12235	TraditionalForm], ",",
12236	FormBox[
12237	SubscriptBox["\<\"s\"\>", "2"],
12238	TraditionalForm]}]],
12239	TraditionalForm]}], "+",
12240	RowBox[{"KBbRz", " ",
12241	FormBox[
12242	SubscriptBox[
12243	RowBox[{
12244	FormBox[
12245	SuperscriptBox["\[Gamma]",
12246	FormBox[
12247	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12248	TraditionalForm]],
12249	TraditionalForm], ".",
12250	FormBox[
12251	SubscriptBox["P", "\<\"+\"\>"],
12252	TraditionalForm]}],
12253	RowBox[{
12254	FormBox[
12255	SubscriptBox["\<\"s\"\>", "1"],
12256	TraditionalForm], ",",
12257	FormBox[
12258	SubscriptBox["\<\"s\"\>", "2"],
12259	TraditionalForm]}]],
12260	TraditionalForm]}]}], ")"}]}]},
12261	{
12262	RowBox[{"(", "\[NoBreak]", GridBox[{
12263	{"b", "1"},
12264	{
12265	FormBox[
12266	OverscriptBox["bp", "\<\"-\"\>"],
12267	TraditionalForm], "2"},
12268	{"Z", "3"}
12269	},
12270	GridBoxAlignment->{
12271	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12272	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12273	GridBoxSpacings->{"Columns" -> {
12274	Offset[0.27999999999999997`], {
12275	Offset[0.7]},
12276	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12277	"Rows" -> {
12278	Offset[0.2], {
12279	Offset[0.4]},
12280	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12281	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12282	FormBox[
12283	SubscriptBox["\[Delta]",
12284	RowBox[{
12285	FormBox[
12286	SubscriptBox["\<\"i\"\>", "1"],
12287	TraditionalForm], ",",
12288	FormBox[
12289	SubscriptBox["\<\"i\"\>", "2"],
12290	TraditionalForm]}]],
12291	TraditionalForm], " ",
12292	RowBox[{"(",
12293	RowBox[{
12294	RowBox[{"KBbLz", " ",
12295	FormBox[
12296	SubscriptBox[
12297	RowBox[{
12298	FormBox[
12299	SuperscriptBox["\[Gamma]",
12300	FormBox[
12301	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12302	TraditionalForm]],
12303	TraditionalForm], ".",
12304	FormBox[
12305	SubscriptBox["P", "\<\"-\"\>"],
12306	TraditionalForm]}],
12307	RowBox[{
12308	FormBox[
12309	SubscriptBox["\<\"s\"\>", "2"],
12310	TraditionalForm], ",",
12311	FormBox[
12312	SubscriptBox["\<\"s\"\>", "1"],
12313	TraditionalForm]}]],
12314	TraditionalForm]}], "+",
12315	RowBox[{"KBbRz", " ",
12316	FormBox[
12317	SubscriptBox[
12318	RowBox[{
12319	FormBox[
12320	SuperscriptBox["\[Gamma]",
12321	FormBox[
12322	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12323	TraditionalForm]],
12324	TraditionalForm], ".",
12325	FormBox[
12326	SubscriptBox["P", "\<\"+\"\>"],
12327	TraditionalForm]}],
12328	RowBox[{
12329	FormBox[
12330	SubscriptBox["\<\"s\"\>", "2"],
12331	TraditionalForm], ",",
12332	FormBox[
12333	SubscriptBox["\<\"s\"\>", "1"],
12334	TraditionalForm]}]],
12335	TraditionalForm]}]}], ")"}]}]},
12336	{
12337	RowBox[{"(", "\[NoBreak]", GridBox[{
12338	{
12339	FormBox[
12340	OverscriptBox["bp", "\<\"-\"\>"],
12341	TraditionalForm], "1"},
12342	{"d", "2"},
12343	{"Z", "3"}
12344	},
12345	GridBoxAlignment->{
12346	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12347	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12348	GridBoxSpacings->{"Columns" -> {
12349	Offset[0.27999999999999997`], {
12350	Offset[0.7]},
12351	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12352	"Rows" -> {
12353	Offset[0.2], {
12354	Offset[0.4]},
12355	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12356	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12357	FormBox[
12358	SubscriptBox["\[Delta]",
12359	RowBox[{
12360	FormBox[
12361	SubscriptBox["\<\"i\"\>", "1"],
12362	TraditionalForm], ",",
12363	FormBox[
12364	SubscriptBox["\<\"i\"\>", "2"],
12365	TraditionalForm]}]],
12366	TraditionalForm], " ",
12367	RowBox[{"(",
12368	RowBox[{
12369	RowBox[{"KBdLz", " ",
12370	FormBox[
12371	SubscriptBox[
12372	RowBox[{
12373	FormBox[
12374	SuperscriptBox["\[Gamma]",
12375	FormBox[
12376	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12377	TraditionalForm]],
12378	TraditionalForm], ".",
12379	FormBox[
12380	SubscriptBox["P", "\<\"-\"\>"],
12381	TraditionalForm]}],
12382	RowBox[{
12383	FormBox[
12384	SubscriptBox["\<\"s\"\>", "1"],
12385	TraditionalForm], ",",
12386	FormBox[
12387	SubscriptBox["\<\"s\"\>", "2"],
12388	TraditionalForm]}]],
12389	TraditionalForm]}], "+",
12390	RowBox[{"KBdRz", " ",
12391	FormBox[
12392	SubscriptBox[
12393	RowBox[{
12394	FormBox[
12395	SuperscriptBox["\[Gamma]",
12396	FormBox[
12397	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12398	TraditionalForm]],
12399	TraditionalForm], ".",
12400	FormBox[
12401	SubscriptBox["P", "\<\"+\"\>"],
12402	TraditionalForm]}],
12403	RowBox[{
12404	FormBox[
12405	SubscriptBox["\<\"s\"\>", "1"],
12406	TraditionalForm], ",",
12407	FormBox[
12408	SubscriptBox["\<\"s\"\>", "2"],
12409	TraditionalForm]}]],
12410	TraditionalForm]}]}], ")"}]}]},
12411	{
12412	RowBox[{"(", "\[NoBreak]", GridBox[{
12413	{
12414	FormBox[
12415	OverscriptBox["bp", "\<\"-\"\>"],
12416	TraditionalForm], "1"},
12417	{"s", "2"},
12418	{"Z", "3"}
12419	},
12420	GridBoxAlignment->{
12421	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12422	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12423	GridBoxSpacings->{"Columns" -> {
12424	Offset[0.27999999999999997`], {
12425	Offset[0.7]},
12426	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12427	"Rows" -> {
12428	Offset[0.2], {
12429	Offset[0.4]},
12430	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12431	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12432	FormBox[
12433	SubscriptBox["\[Delta]",
12434	RowBox[{
12435	FormBox[
12436	SubscriptBox["\<\"i\"\>", "1"],
12437	TraditionalForm], ",",
12438	FormBox[
12439	SubscriptBox["\<\"i\"\>", "2"],
12440	TraditionalForm]}]],
12441	TraditionalForm], " ",
12442	RowBox[{"(",
12443	RowBox[{
12444	RowBox[{"KBsLz", " ",
12445	FormBox[
12446	SubscriptBox[
12447	RowBox[{
12448	FormBox[
12449	SuperscriptBox["\[Gamma]",
12450	FormBox[
12451	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12452	TraditionalForm]],
12453	TraditionalForm], ".",
12454	FormBox[
12455	SubscriptBox["P", "\<\"-\"\>"],
12456	TraditionalForm]}],
12457	RowBox[{
12458	FormBox[
12459	SubscriptBox["\<\"s\"\>", "1"],
12460	TraditionalForm], ",",
12461	FormBox[
12462	SubscriptBox["\<\"s\"\>", "2"],
12463	TraditionalForm]}]],
12464	TraditionalForm]}], "+",
12465	RowBox[{"KBsRz", " ",
12466	FormBox[
12467	SubscriptBox[
12468	RowBox[{
12469	FormBox[
12470	SuperscriptBox["\[Gamma]",
12471	FormBox[
12472	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12473	TraditionalForm]],
12474	TraditionalForm], ".",
12475	FormBox[
12476	SubscriptBox["P", "\<\"+\"\>"],
12477	TraditionalForm]}],
12478	RowBox[{
12479	FormBox[
12480	SubscriptBox["\<\"s\"\>", "1"],
12481	TraditionalForm], ",",
12482	FormBox[
12483	SubscriptBox["\<\"s\"\>", "2"],
12484	TraditionalForm]}]],
12485	TraditionalForm]}]}], ")"}]}]},
12486	{
12487	RowBox[{"(", "\[NoBreak]", GridBox[{
12488	{
12489	FormBox[
12490	OverscriptBox["c", "\<\"-\"\>"],
12491	TraditionalForm], "1"},
12492	{"tp", "2"},
12493	{"Z", "3"}
12494	},
12495	GridBoxAlignment->{
12496	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12497	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12498	GridBoxSpacings->{"Columns" -> {
12499	Offset[0.27999999999999997`], {
12500	Offset[0.7]},
12501	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12502	"Rows" -> {
12503	Offset[0.2], {
12504	Offset[0.4]},
12505	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12506	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
12507	FormBox[
12508	SubscriptBox["\[Delta]",
12509	RowBox[{
12510	FormBox[
12511	SubscriptBox["\<\"i\"\>", "1"],
12512	TraditionalForm], ",",
12513	FormBox[
12514	SubscriptBox["\<\"i\"\>", "2"],
12515	TraditionalForm]}]],
12516	TraditionalForm], " ",
12517	RowBox[{"(",
12518	RowBox[{
12519	RowBox[{"KTcLz", " ",
12520	FormBox[
12521	SubscriptBox[
12522	RowBox[{
12523	FormBox[
12524	SuperscriptBox["\[Gamma]",
12525	FormBox[
12526	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12527	TraditionalForm]],
12528	TraditionalForm], ".",
12529	FormBox[
12530	SubscriptBox["P", "\<\"-\"\>"],
12531	TraditionalForm]}],
12532	RowBox[{
12533	FormBox[
12534	SubscriptBox["\<\"s\"\>", "1"],
12535	TraditionalForm], ",",
12536	FormBox[
12537	SubscriptBox["\<\"s\"\>", "2"],
12538	TraditionalForm]}]],
12539	TraditionalForm]}], "+",
12540	RowBox[{"KTcRz", " ",
12541	FormBox[
12542	SubscriptBox[
12543	RowBox[{
12544	FormBox[
12545	SuperscriptBox["\[Gamma]",
12546	FormBox[
12547	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12548	TraditionalForm]],
12549	TraditionalForm], ".",
12550	FormBox[
12551	SubscriptBox["P", "\<\"+\"\>"],
12552	TraditionalForm]}],
12553	RowBox[{
12554	FormBox[
12555	SubscriptBox["\<\"s\"\>", "1"],
12556	TraditionalForm], ",",
12557	FormBox[
12558	SubscriptBox["\<\"s\"\>", "2"],
12559	TraditionalForm]}]],
12560	TraditionalForm]}]}], ")"}]}]},
12561	{
12562	RowBox[{"(", "\[NoBreak]", GridBox[{
12563	{"bp", "1"},
12564	{
12565	FormBox[
12566	OverscriptBox["d", "\<\"-\"\>"],
12567	TraditionalForm], "2"},
12568	{"Z", "3"}
12569	},
12570	GridBoxAlignment->{
12571	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12572	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12573	GridBoxSpacings->{"Columns" -> {
12574	Offset[0.27999999999999997`], {
12575	Offset[0.7]},
12576	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12577	"Rows" -> {
12578	Offset[0.2], {
12579	Offset[0.4]},
12580	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12581	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12582	FormBox[
12583	SubscriptBox["\[Delta]",
12584	RowBox[{
12585	FormBox[
12586	SubscriptBox["\<\"i\"\>", "1"],
12587	TraditionalForm], ",",
12588	FormBox[
12589	SubscriptBox["\<\"i\"\>", "2"],
12590	TraditionalForm]}]],
12591	TraditionalForm], " ",
12592	RowBox[{"(",
12593	RowBox[{
12594	RowBox[{"KBdLz", " ",
12595	FormBox[
12596	SubscriptBox[
12597	RowBox[{
12598	FormBox[
12599	SuperscriptBox["\[Gamma]",
12600	FormBox[
12601	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12602	TraditionalForm]],
12603	TraditionalForm], ".",
12604	FormBox[
12605	SubscriptBox["P", "\<\"-\"\>"],
12606	TraditionalForm]}],
12607	RowBox[{
12608	FormBox[
12609	SubscriptBox["\<\"s\"\>", "2"],
12610	TraditionalForm], ",",
12611	FormBox[
12612	SubscriptBox["\<\"s\"\>", "1"],
12613	TraditionalForm]}]],
12614	TraditionalForm]}], "+",
12615	RowBox[{"KBdRz", " ",
12616	FormBox[
12617	SubscriptBox[
12618	RowBox[{
12619	FormBox[
12620	SuperscriptBox["\[Gamma]",
12621	FormBox[
12622	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12623	TraditionalForm]],
12624	TraditionalForm], ".",
12625	FormBox[
12626	SubscriptBox["P", "\<\"+\"\>"],
12627	TraditionalForm]}],
12628	RowBox[{
12629	FormBox[
12630	SubscriptBox["\<\"s\"\>", "2"],
12631	TraditionalForm], ",",
12632	FormBox[
12633	SubscriptBox["\<\"s\"\>", "1"],
12634	TraditionalForm]}]],
12635	TraditionalForm]}]}], ")"}]}]},
12636	{
12637	RowBox[{"(", "\[NoBreak]", GridBox[{
12638	{"bp", "1"},
12639	{
12640	FormBox[
12641	OverscriptBox["s", "\<\"-\"\>"],
12642	TraditionalForm], "2"},
12643	{"Z", "3"}
12644	},
12645	GridBoxAlignment->{
12646	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12647	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12648	GridBoxSpacings->{"Columns" -> {
12649	Offset[0.27999999999999997`], {
12650	Offset[0.7]},
12651	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12652	"Rows" -> {
12653	Offset[0.2], {
12654	Offset[0.4]},
12655	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12656	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
12657	FormBox[
12658	SubscriptBox["\[Delta]",
12659	RowBox[{
12660	FormBox[
12661	SubscriptBox["\<\"i\"\>", "1"],
12662	TraditionalForm], ",",
12663	FormBox[
12664	SubscriptBox["\<\"i\"\>", "2"],
12665	TraditionalForm]}]],
12666	TraditionalForm], " ",
12667	RowBox[{"(",
12668	RowBox[{
12669	RowBox[{"KBsLz", " ",
12670	FormBox[
12671	SubscriptBox[
12672	RowBox[{
12673	FormBox[
12674	SuperscriptBox["\[Gamma]",
12675	FormBox[
12676	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12677	TraditionalForm]],
12678	TraditionalForm], ".",
12679	FormBox[
12680	SubscriptBox["P", "\<\"-\"\>"],
12681	TraditionalForm]}],
12682	RowBox[{
12683	FormBox[
12684	SubscriptBox["\<\"s\"\>", "2"],
12685	TraditionalForm], ",",
12686	FormBox[
12687	SubscriptBox["\<\"s\"\>", "1"],
12688	TraditionalForm]}]],
12689	TraditionalForm]}], "+",
12690	RowBox[{"KBsRz", " ",
12691	FormBox[
12692	SubscriptBox[
12693	RowBox[{
12694	FormBox[
12695	SuperscriptBox["\[Gamma]",
12696	FormBox[
12697	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12698	TraditionalForm]],
12699	TraditionalForm], ".",
12700	FormBox[
12701	SubscriptBox["P", "\<\"+\"\>"],
12702	TraditionalForm]}],
12703	RowBox[{
12704	FormBox[
12705	SubscriptBox["\<\"s\"\>", "2"],
12706	TraditionalForm], ",",
12707	FormBox[
12708	SubscriptBox["\<\"s\"\>", "1"],
12709	TraditionalForm]}]],
12710	TraditionalForm]}]}], ")"}]}]},
12711	{
12712	RowBox[{"(", "\[NoBreak]", GridBox[{
12713	{
12714	FormBox[
12715	OverscriptBox["t", "\<\"-\"\>"],
12716	TraditionalForm], "1"},
12717	{"tp", "2"},
12718	{"Z", "3"}
12719	},
12720	GridBoxAlignment->{
12721	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12722	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12723	GridBoxSpacings->{"Columns" -> {
12724	Offset[0.27999999999999997`], {
12725	Offset[0.7]},
12726	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12727	"Rows" -> {
12728	Offset[0.2], {
12729	Offset[0.4]},
12730	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12731	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
12732	FormBox[
12733	SubscriptBox["\[Delta]",
12734	RowBox[{
12735	FormBox[
12736	SubscriptBox["\<\"i\"\>", "1"],
12737	TraditionalForm], ",",
12738	FormBox[
12739	SubscriptBox["\<\"i\"\>", "2"],
12740	TraditionalForm]}]],
12741	TraditionalForm], " ",
12742	RowBox[{"(",
12743	RowBox[{
12744	RowBox[{"KTtLz", " ",
12745	FormBox[
12746	SubscriptBox[
12747	RowBox[{
12748	FormBox[
12749	SuperscriptBox["\[Gamma]",
12750	FormBox[
12751	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12752	TraditionalForm]],
12753	TraditionalForm], ".",
12754	FormBox[
12755	SubscriptBox["P", "\<\"-\"\>"],
12756	TraditionalForm]}],
12757	RowBox[{
12758	FormBox[
12759	SubscriptBox["\<\"s\"\>", "1"],
12760	TraditionalForm], ",",
12761	FormBox[
12762	SubscriptBox["\<\"s\"\>", "2"],
12763	TraditionalForm]}]],
12764	TraditionalForm]}], "+",
12765	RowBox[{"KTtRz", " ",
12766	FormBox[
12767	SubscriptBox[
12768	RowBox[{
12769	FormBox[
12770	SuperscriptBox["\[Gamma]",
12771	FormBox[
12772	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12773	TraditionalForm]],
12774	TraditionalForm], ".",
12775	FormBox[
12776	SubscriptBox["P", "\<\"+\"\>"],
12777	TraditionalForm]}],
12778	RowBox[{
12779	FormBox[
12780	SubscriptBox["\<\"s\"\>", "1"],
12781	TraditionalForm], ",",
12782	FormBox[
12783	SubscriptBox["\<\"s\"\>", "2"],
12784	TraditionalForm]}]],
12785	TraditionalForm]}]}], ")"}]}]},
12786	{
12787	RowBox[{"(", "\[NoBreak]", GridBox[{
12788	{"c", "1"},
12789	{
12790	FormBox[
12791	OverscriptBox["tp", "\<\"-\"\>"],
12792	TraditionalForm], "2"},
12793	{"Z", "3"}
12794	},
12795	GridBoxAlignment->{
12796	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12797	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12798	GridBoxSpacings->{"Columns" -> {
12799	Offset[0.27999999999999997`], {
12800	Offset[0.7]},
12801	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12802	"Rows" -> {
12803	Offset[0.2], {
12804	Offset[0.4]},
12805	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12806	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
12807	FormBox[
12808	SubscriptBox["\[Delta]",
12809	RowBox[{
12810	FormBox[
12811	SubscriptBox["\<\"i\"\>", "1"],
12812	TraditionalForm], ",",
12813	FormBox[
12814	SubscriptBox["\<\"i\"\>", "2"],
12815	TraditionalForm]}]],
12816	TraditionalForm], " ",
12817	RowBox[{"(",
12818	RowBox[{
12819	RowBox[{"KTcLz", " ",
12820	FormBox[
12821	SubscriptBox[
12822	RowBox[{
12823	FormBox[
12824	SuperscriptBox["\[Gamma]",
12825	FormBox[
12826	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12827	TraditionalForm]],
12828	TraditionalForm], ".",
12829	FormBox[
12830	SubscriptBox["P", "\<\"-\"\>"],
12831	TraditionalForm]}],
12832	RowBox[{
12833	FormBox[
12834	SubscriptBox["\<\"s\"\>", "2"],
12835	TraditionalForm], ",",
12836	FormBox[
12837	SubscriptBox["\<\"s\"\>", "1"],
12838	TraditionalForm]}]],
12839	TraditionalForm]}], "+",
12840	RowBox[{"KTcRz", " ",
12841	FormBox[
12842	SubscriptBox[
12843	RowBox[{
12844	FormBox[
12845	SuperscriptBox["\[Gamma]",
12846	FormBox[
12847	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12848	TraditionalForm]],
12849	TraditionalForm], ".",
12850	FormBox[
12851	SubscriptBox["P", "\<\"+\"\>"],
12852	TraditionalForm]}],
12853	RowBox[{
12854	FormBox[
12855	SubscriptBox["\<\"s\"\>", "2"],
12856	TraditionalForm], ",",
12857	FormBox[
12858	SubscriptBox["\<\"s\"\>", "1"],
12859	TraditionalForm]}]],
12860	TraditionalForm]}]}], ")"}]}]},
12861	{
12862	RowBox[{"(", "\[NoBreak]", GridBox[{
12863	{"t", "1"},
12864	{
12865	FormBox[
12866	OverscriptBox["tp", "\<\"-\"\>"],
12867	TraditionalForm], "2"},
12868	{"Z", "3"}
12869	},
12870	GridBoxAlignment->{
12871	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12872	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12873	GridBoxSpacings->{"Columns" -> {
12874	Offset[0.27999999999999997`], {
12875	Offset[0.7]},
12876	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12877	"Rows" -> {
12878	Offset[0.2], {
12879	Offset[0.4]},
12880	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12881	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
12882	FormBox[
12883	SubscriptBox["\[Delta]",
12884	RowBox[{
12885	FormBox[
12886	SubscriptBox["\<\"i\"\>", "1"],
12887	TraditionalForm], ",",
12888	FormBox[
12889	SubscriptBox["\<\"i\"\>", "2"],
12890	TraditionalForm]}]],
12891	TraditionalForm], " ",
12892	RowBox[{"(",
12893	RowBox[{
12894	RowBox[{"KTtLz", " ",
12895	FormBox[
12896	SubscriptBox[
12897	RowBox[{
12898	FormBox[
12899	SuperscriptBox["\[Gamma]",
12900	FormBox[
12901	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12902	TraditionalForm]],
12903	TraditionalForm], ".",
12904	FormBox[
12905	SubscriptBox["P", "\<\"-\"\>"],
12906	TraditionalForm]}],
12907	RowBox[{
12908	FormBox[
12909	SubscriptBox["\<\"s\"\>", "2"],
12910	TraditionalForm], ",",
12911	FormBox[
12912	SubscriptBox["\<\"s\"\>", "1"],
12913	TraditionalForm]}]],
12914	TraditionalForm]}], "+",
12915	RowBox[{"KTtRz", " ",
12916	FormBox[
12917	SubscriptBox[
12918	RowBox[{
12919	FormBox[
12920	SuperscriptBox["\[Gamma]",
12921	FormBox[
12922	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12923	TraditionalForm]],
12924	TraditionalForm], ".",
12925	FormBox[
12926	SubscriptBox["P", "\<\"+\"\>"],
12927	TraditionalForm]}],
12928	RowBox[{
12929	FormBox[
12930	SubscriptBox["\<\"s\"\>", "2"],
12931	TraditionalForm], ",",
12932	FormBox[
12933	SubscriptBox["\<\"s\"\>", "1"],
12934	TraditionalForm]}]],
12935	TraditionalForm]}]}], ")"}]}]},
12936	{
12937	RowBox[{"(", "\[NoBreak]", GridBox[{
12938	{
12939	FormBox[
12940	OverscriptBox["tp", "\<\"-\"\>"],
12941	TraditionalForm], "1"},
12942	{"u", "2"},
12943	{"Z", "3"}
12944	},
12945	GridBoxAlignment->{
12946	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
12947	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
12948	GridBoxSpacings->{"Columns" -> {
12949	Offset[0.27999999999999997`], {
12950	Offset[0.7]},
12951	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
12952	"Rows" -> {
12953	Offset[0.2], {
12954	Offset[0.4]},
12955	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
12956	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
12957	FormBox[
12958	SubscriptBox["\[Delta]",
12959	RowBox[{
12960	FormBox[
12961	SubscriptBox["\<\"i\"\>", "1"],
12962	TraditionalForm], ",",
12963	FormBox[
12964	SubscriptBox["\<\"i\"\>", "2"],
12965	TraditionalForm]}]],
12966	TraditionalForm], " ",
12967	RowBox[{"(",
12968	RowBox[{
12969	RowBox[{"KTuLz", " ",
12970	FormBox[
12971	SubscriptBox[
12972	RowBox[{
12973	FormBox[
12974	SuperscriptBox["\[Gamma]",
12975	FormBox[
12976	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12977	TraditionalForm]],
12978	TraditionalForm], ".",
12979	FormBox[
12980	SubscriptBox["P", "\<\"-\"\>"],
12981	TraditionalForm]}],
12982	RowBox[{
12983	FormBox[
12984	SubscriptBox["\<\"s\"\>", "1"],
12985	TraditionalForm], ",",
12986	FormBox[
12987	SubscriptBox["\<\"s\"\>", "2"],
12988	TraditionalForm]}]],
12989	TraditionalForm]}], "+",
12990	RowBox[{"KTuRz", " ",
12991	FormBox[
12992	SubscriptBox[
12993	RowBox[{
12994	FormBox[
12995	SuperscriptBox["\[Gamma]",
12996	FormBox[
12997	SubscriptBox["\<\"\[Mu]\"\>", "3"],
12998	TraditionalForm]],
12999	TraditionalForm], ".",
13000	FormBox[
13001	SubscriptBox["P", "\<\"+\"\>"],
13002	TraditionalForm]}],
13003	RowBox[{
13004	FormBox[
13005	SubscriptBox["\<\"s\"\>", "1"],
13006	TraditionalForm], ",",
13007	FormBox[
13008	SubscriptBox["\<\"s\"\>", "2"],
13009	TraditionalForm]}]],
13010	TraditionalForm]}]}], ")"}]}]},
13011	{
13012	RowBox[{"(", "\[NoBreak]", GridBox[{
13013	{"tp", "1"},
13014	{
13015	FormBox[
13016	OverscriptBox["u", "\<\"-\"\>"],
13017	TraditionalForm], "2"},
13018	{"Z", "3"}
13019	},
13020	GridBoxAlignment->{
13021	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13022	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13023	GridBoxSpacings->{"Columns" -> {
13024	Offset[0.27999999999999997`], {
13025	Offset[0.7]},
13026	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13027	"Rows" -> {
13028	Offset[0.2], {
13029	Offset[0.4]},
13030	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13031	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
13032	FormBox[
13033	SubscriptBox["\[Delta]",
13034	RowBox[{
13035	FormBox[
13036	SubscriptBox["\<\"i\"\>", "1"],
13037	TraditionalForm], ",",
13038	FormBox[
13039	SubscriptBox["\<\"i\"\>", "2"],
13040	TraditionalForm]}]],
13041	TraditionalForm], " ",
13042	RowBox[{"(",
13043	RowBox[{
13044	RowBox[{"KTuLz", " ",
13045	FormBox[
13046	SubscriptBox[
13047	RowBox[{
13048	FormBox[
13049	SuperscriptBox["\[Gamma]",
13050	FormBox[
13051	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13052	TraditionalForm]],
13053	TraditionalForm], ".",
13054	FormBox[
13055	SubscriptBox["P", "\<\"-\"\>"],
13056	TraditionalForm]}],
13057	RowBox[{
13058	FormBox[
13059	SubscriptBox["\<\"s\"\>", "2"],
13060	TraditionalForm], ",",
13061	FormBox[
13062	SubscriptBox["\<\"s\"\>", "1"],
13063	TraditionalForm]}]],
13064	TraditionalForm]}], "+",
13065	RowBox[{"KTuRz", " ",
13066	FormBox[
13067	SubscriptBox[
13068	RowBox[{
13069	FormBox[
13070	SuperscriptBox["\[Gamma]",
13071	FormBox[
13072	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13073	TraditionalForm]],
13074	TraditionalForm], ".",
13075	FormBox[
13076	SubscriptBox["P", "\<\"+\"\>"],
13077	TraditionalForm]}],
13078	RowBox[{
13079	FormBox[
13080	SubscriptBox["\<\"s\"\>", "2"],
13081	TraditionalForm], ",",
13082	FormBox[
13083	SubscriptBox["\<\"s\"\>", "1"],
13084	TraditionalForm]}]],
13085	TraditionalForm]}]}], ")"}]}]},
13086	{
13087	RowBox[{"(", "\[NoBreak]", GridBox[{
13088	{
13089	FormBox[
13090	OverscriptBox["b", "\<\"-\"\>"],
13091	TraditionalForm], "1"},
13092	{"W", "2"},
13093	{"y", "3"}
13094	},
13095	GridBoxAlignment->{
13096	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13097	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13098	GridBoxSpacings->{"Columns" -> {
13099	Offset[0.27999999999999997`], {
13100	Offset[0.7]},
13101	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13102	"Rows" -> {
13103	Offset[0.2], {
13104	Offset[0.4]},
13105	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13106	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
13107	FormBox[
13108	SubscriptBox["\[Delta]",
13109	RowBox[{
13110	FormBox[
13111	SubscriptBox["\<\"i\"\>", "1"],
13112	TraditionalForm], ",",
13113	FormBox[
13114	SubscriptBox["\<\"i\"\>", "3"],
13115	TraditionalForm]}]],
13116	TraditionalForm], " ",
13117	RowBox[{"(",
13118	RowBox[{
13119	RowBox[{"KYbL", " ",
13120	FormBox[
13121	SubscriptBox[
13122	RowBox[{
13123	FormBox[
13124	SuperscriptBox["\[Gamma]",
13125	FormBox[
13126	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13127	TraditionalForm]],
13128	TraditionalForm], ".",
13129	FormBox[
13130	SubscriptBox["P", "\<\"-\"\>"],
13131	TraditionalForm]}],
13132	RowBox[{
13133	FormBox[
13134	SubscriptBox["\<\"s\"\>", "1"],
13135	TraditionalForm], ",",
13136	FormBox[
13137	SubscriptBox["\<\"s\"\>", "3"],
13138	TraditionalForm]}]],
13139	TraditionalForm]}], "+",
13140	RowBox[{"KYbR", " ",
13141	FormBox[
13142	SubscriptBox[
13143	RowBox[{
13144	FormBox[
13145	SuperscriptBox["\[Gamma]",
13146	FormBox[
13147	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13148	TraditionalForm]],
13149	TraditionalForm], ".",
13150	FormBox[
13151	SubscriptBox["P", "\<\"+\"\>"],
13152	TraditionalForm]}],
13153	RowBox[{
13154	FormBox[
13155	SubscriptBox["\<\"s\"\>", "1"],
13156	TraditionalForm], ",",
13157	FormBox[
13158	SubscriptBox["\<\"s\"\>", "3"],
13159	TraditionalForm]}]],
13160	TraditionalForm]}]}], ")"}]}]},
13161	{
13162	RowBox[{"(", "\[NoBreak]", GridBox[{
13163	{"bp", "1"},
13164	{
13165	FormBox[
13166	OverscriptBox["c", "\<\"-\"\>"],
13167	TraditionalForm], "2"},
13168	{"W", "3"}
13169	},
13170	GridBoxAlignment->{
13171	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13172	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13173	GridBoxSpacings->{"Columns" -> {
13174	Offset[0.27999999999999997`], {
13175	Offset[0.7]},
13176	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13177	"Rows" -> {
13178	Offset[0.2], {
13179	Offset[0.4]},
13180	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13181	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13182	FormBox[
13183	SubscriptBox["\[Delta]",
13184	RowBox[{
13185	FormBox[
13186	SubscriptBox["\<\"i\"\>", "1"],
13187	TraditionalForm], ",",
13188	FormBox[
13189	SubscriptBox["\<\"i\"\>", "2"],
13190	TraditionalForm]}]],
13191	TraditionalForm], " ",
13192	RowBox[{"(",
13193	RowBox[{
13194	RowBox[{"KBsLw", " ",
13195	FormBox[
13196	SubscriptBox[
13197	RowBox[{
13198	FormBox[
13199	SuperscriptBox["\[Gamma]",
13200	FormBox[
13201	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13202	TraditionalForm]],
13203	TraditionalForm], ".",
13204	FormBox[
13205	SubscriptBox["P", "\<\"-\"\>"],
13206	TraditionalForm]}],
13207	RowBox[{
13208	FormBox[
13209	SubscriptBox["\<\"s\"\>", "2"],
13210	TraditionalForm], ",",
13211	FormBox[
13212	SubscriptBox["\<\"s\"\>", "1"],
13213	TraditionalForm]}]],
13214	TraditionalForm]}], "+",
13215	RowBox[{"KBsRw", " ",
13216	FormBox[
13217	SubscriptBox[
13218	RowBox[{
13219	FormBox[
13220	SuperscriptBox["\[Gamma]",
13221	FormBox[
13222	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13223	TraditionalForm]],
13224	TraditionalForm], ".",
13225	FormBox[
13226	SubscriptBox["P", "\<\"+\"\>"],
13227	TraditionalForm]}],
13228	RowBox[{
13229	FormBox[
13230	SubscriptBox["\<\"s\"\>", "2"],
13231	TraditionalForm], ",",
13232	FormBox[
13233	SubscriptBox["\<\"s\"\>", "1"],
13234	TraditionalForm]}]],
13235	TraditionalForm]}]}], ")"}]}]},
13236	{
13237	RowBox[{"(", "\[NoBreak]", GridBox[{
13238	{
13239	FormBox[
13240	OverscriptBox["d", "\<\"-\"\>"],
13241	TraditionalForm], "1"},
13242	{"W", "2"},
13243	{"y", "3"}
13244	},
13245	GridBoxAlignment->{
13246	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13247	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13248	GridBoxSpacings->{"Columns" -> {
13249	Offset[0.27999999999999997`], {
13250	Offset[0.7]},
13251	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13252	"Rows" -> {
13253	Offset[0.2], {
13254	Offset[0.4]},
13255	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13256	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
13257	FormBox[
13258	SubscriptBox["\[Delta]",
13259	RowBox[{
13260	FormBox[
13261	SubscriptBox["\<\"i\"\>", "1"],
13262	TraditionalForm], ",",
13263	FormBox[
13264	SubscriptBox["\<\"i\"\>", "3"],
13265	TraditionalForm]}]],
13266	TraditionalForm], " ",
13267	RowBox[{"(",
13268	RowBox[{
13269	RowBox[{"KYdL", " ",
13270	FormBox[
13271	SubscriptBox[
13272	RowBox[{
13273	FormBox[
13274	SuperscriptBox["\[Gamma]",
13275	FormBox[
13276	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13277	TraditionalForm]],
13278	TraditionalForm], ".",
13279	FormBox[
13280	SubscriptBox["P", "\<\"-\"\>"],
13281	TraditionalForm]}],
13282	RowBox[{
13283	FormBox[
13284	SubscriptBox["\<\"s\"\>", "1"],
13285	TraditionalForm], ",",
13286	FormBox[
13287	SubscriptBox["\<\"s\"\>", "3"],
13288	TraditionalForm]}]],
13289	TraditionalForm]}], "+",
13290	RowBox[{"KYdR", " ",
13291	FormBox[
13292	SubscriptBox[
13293	RowBox[{
13294	FormBox[
13295	SuperscriptBox["\[Gamma]",
13296	FormBox[
13297	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13298	TraditionalForm]],
13299	TraditionalForm], ".",
13300	FormBox[
13301	SubscriptBox["P", "\<\"+\"\>"],
13302	TraditionalForm]}],
13303	RowBox[{
13304	FormBox[
13305	SubscriptBox["\<\"s\"\>", "1"],
13306	TraditionalForm], ",",
13307	FormBox[
13308	SubscriptBox["\<\"s\"\>", "3"],
13309	TraditionalForm]}]],
13310	TraditionalForm]}]}], ")"}]}]},
13311	{
13312	RowBox[{"(", "\[NoBreak]", GridBox[{
13313	{
13314	FormBox[
13315	OverscriptBox["s", "\<\"-\"\>"],
13316	TraditionalForm], "1"},
13317	{"W", "2"},
13318	{"y", "3"}
13319	},
13320	GridBoxAlignment->{
13321	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13322	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13323	GridBoxSpacings->{"Columns" -> {
13324	Offset[0.27999999999999997`], {
13325	Offset[0.7]},
13326	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13327	"Rows" -> {
13328	Offset[0.2], {
13329	Offset[0.4]},
13330	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13331	RowBox[{"\[ImaginaryI]", " ", "KY", " ",
13332	FormBox[
13333	SubscriptBox["\[Delta]",
13334	RowBox[{
13335	FormBox[
13336	SubscriptBox["\<\"i\"\>", "1"],
13337	TraditionalForm], ",",
13338	FormBox[
13339	SubscriptBox["\<\"i\"\>", "3"],
13340	TraditionalForm]}]],
13341	TraditionalForm], " ",
13342	RowBox[{"(",
13343	RowBox[{
13344	RowBox[{"KYsL", " ",
13345	FormBox[
13346	SubscriptBox[
13347	RowBox[{
13348	FormBox[
13349	SuperscriptBox["\[Gamma]",
13350	FormBox[
13351	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13352	TraditionalForm]],
13353	TraditionalForm], ".",
13354	FormBox[
13355	SubscriptBox["P", "\<\"-\"\>"],
13356	TraditionalForm]}],
13357	RowBox[{
13358	FormBox[
13359	SubscriptBox["\<\"s\"\>", "1"],
13360	TraditionalForm], ",",
13361	FormBox[
13362	SubscriptBox["\<\"s\"\>", "3"],
13363	TraditionalForm]}]],
13364	TraditionalForm]}], "+",
13365	RowBox[{"KYsR", " ",
13366	FormBox[
13367	SubscriptBox[
13368	RowBox[{
13369	FormBox[
13370	SuperscriptBox["\[Gamma]",
13371	FormBox[
13372	SubscriptBox["\<\"\[Mu]\"\>", "2"],
13373	TraditionalForm]],
13374	TraditionalForm], ".",
13375	FormBox[
13376	SubscriptBox["P", "\<\"+\"\>"],
13377	TraditionalForm]}],
13378	RowBox[{
13379	FormBox[
13380	SubscriptBox["\<\"s\"\>", "1"],
13381	TraditionalForm], ",",
13382	FormBox[
13383	SubscriptBox["\<\"s\"\>", "3"],
13384	TraditionalForm]}]],
13385	TraditionalForm]}]}], ")"}]}]},
13386	{
13387	RowBox[{"(", "\[NoBreak]", GridBox[{
13388	{"bp", "1"},
13389	{
13390	FormBox[
13391	OverscriptBox["t", "\<\"-\"\>"],
13392	TraditionalForm], "2"},
13393	{"W", "3"}
13394	},
13395	GridBoxAlignment->{
13396	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13397	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13398	GridBoxSpacings->{"Columns" -> {
13399	Offset[0.27999999999999997`], {
13400	Offset[0.7]},
13401	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
13402	"Rows" -> {
13403	Offset[0.2], {
13404	Offset[0.4]},
13405	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13406	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13407	FormBox[
13408	SubscriptBox["\[Delta]",
13409	RowBox[{
13410	FormBox[
13411	SubscriptBox["\<\"i\"\>", "1"],
13412	TraditionalForm], ",",
13413	FormBox[
13414	SubscriptBox["\<\"i\"\>", "2"],
13415	TraditionalForm]}]],
13416	TraditionalForm], " ",
13417	RowBox[{"(",
13418	RowBox[{
13419	RowBox[{"KBbLw", " ",
13420	FormBox[
13421	SubscriptBox[
13422	RowBox[{
13423	FormBox[
13424	SuperscriptBox["\[Gamma]",
13425	FormBox[
13426	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13427	TraditionalForm]],
13428	TraditionalForm], ".",
13429	FormBox[
13430	SubscriptBox["P", "\<\"-\"\>"],
13431	TraditionalForm]}],
13432	RowBox[{
13433	FormBox[
13434	SubscriptBox["\<\"s\"\>", "2"],
13435	TraditionalForm], ",",
13436	FormBox[
13437	SubscriptBox["\<\"s\"\>", "1"],
13438	TraditionalForm]}]],
13439	TraditionalForm]}], "+",
13440	RowBox[{"KBbRw", " ",
13441	FormBox[
13442	SubscriptBox[
13443	RowBox[{
13444	FormBox[
13445	SuperscriptBox["\[Gamma]",
13446	FormBox[
13447	SubscriptBox["\<\"\[Mu]\"\>", "3"],
13448	TraditionalForm]],
13449	TraditionalForm], ".",
13450	FormBox[
13451	SubscriptBox["P", "\<\"+\"\>"],
13452	TraditionalForm]}],
13453	RowBox[{
13454	FormBox[
13455	SubscriptBox["\<\"s\"\>", "2"],
13456	TraditionalForm], ",",
13457	FormBox[
13458	SubscriptBox["\<\"s\"\>", "1"],
13459	TraditionalForm]}]],
13460	TraditionalForm]}]}], ")"}]}]}
13461	},
13462	GridBoxAlignment->{
13463	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
13464	"RowsIndexed" -> {}},
13465	GridBoxSpacings->{"Columns" -> {
13466	Offset[0.27999999999999997`], {
13467	Offset[0.7]},
13468	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13469	Offset[0.2], {
13470	Offset[0.4]},
13471	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
13472	TraditionalForm]], "Output",
13473	CellChangeTimes->{3.5719846783263392`^9, 3.572196742032469^9,
13474	3.573066098764782^9, 3.573066864447011^9, 3.5743119602757783`*^9,
13475	3.574507185256295^9, 3.5745081944181104`^9, 3.574763460545*^9,
13476	3.574764841684997^9, 3.5750861448613863`^9, 3.575086250920354*^9,
13477	3.5750863999917836`^9, 3.5750865728462334`^9, 3.5751812254304996`*^9,
13478	3.5751848443258505`^9, 3.575189233808769^9, 3.575189503004953*^9,
13479	3.5810872154352956`^9, 3.581705758824772^9, 3.581706672652813*^9},
13480	FontSize->7]
13481	}, Open ]]
13482	}, Open ]]
13483	}, Open ]],
13484
13485	Cell[CellGroupData[{
13486
13487	Cell["Sanity checks", "Section",
13488	CellChangeTimes->{
13489	3.411910944409371^9, {3.412185514054689^9, 3.412185517014236*^9}, {
13490	3.5747635829149995`^9, 3.57476358536814^9}, {3.574763724599104*^9,
13491	3.574763728890349*^9}},
13492	FontSize->9],
13493
13494	Cell[CellGroupData[{
13495
13496	Cell["Hermiticity", "Subsection",
13497	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}, {
13498	3.5745083801218367`^9, 3.5745083815726395`^9}, {3.574763732028528*^9,
13499	3.574763733336603*^9}},
13500	FontSize->9],
13501
13502	Cell[CellGroupData[{
13503
13504	Cell[BoxData[
13505	RowBox[{"CheckHermiticity", "[", "LVLQ", "]"}]], "Input",
13506	CellChangeTimes->{{3.570637941239635^9, 3.5706379431033716`^9}},
13507	FontSize->7],
13508
13509	Cell[CellGroupData[{
13510
13511	Cell[BoxData[
13512	FormBox["\<\"Checking for hermiticity by calculating the Feynman rules \
13513	contained in L-HC[L].\"\>", TraditionalForm]], "Print",
13514	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13515	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13516	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13517	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13518	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13519	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066728103333`*^9},
13520	FontSize->7],
13521
13522	Cell[BoxData[
13523	FormBox["\<\"If the lagrangian is hermitian, then the number of vertices \
13524	should be zero.\"\>", TraditionalForm]], "Print",
13525	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13526	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13527	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13528	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13529	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13530	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066728203344`*^9},
13531	FontSize->7],
13532
13533	Cell[BoxData[
13534	FormBox["\<\"Starting Feynman rule calculation.\"\>",
13535	TraditionalForm]], "Print",
13536	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13537	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13538	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13539	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13540	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13541	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066883348045`*^9},
13542	FontSize->7],
13543
13544	Cell[BoxData[
13545	FormBox["\<\"Collecting the different structures that enter the \
13546	vertex...\"\>", TraditionalForm]], "Print",
13547	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13548	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13549	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13550	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13551	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13552	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066890518956`*^9},
13553	FontSize->7],
13554
13555	Cell[BoxData[
13556	FormBox[
13557	InterpretationBox[
13558	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"12\"\>",
13559	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
13560	SequenceForm["Found ", "12", " possible non zero vertices."],
13561	Editable->False], TraditionalForm]], "Print",
13562	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13563	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13564	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13565	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13566	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13567	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689100402*^9},
13568	FontSize->7],
13569
13570	Cell[BoxData[
13571	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
13572	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13573	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13574	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13575	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13576	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13577	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066891064024`*^9},
13578	FontSize->7],
13579
13580	Cell[BoxData[
13581	FormBox[
13582	ProgressIndicatorBox[Dynamic[PRIVATE`progress$2051]],
13583	TraditionalForm]], "Print",
13584	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13585	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13586	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13587	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13588	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13589	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689118404*^9},
13590	FontSize->7],
13591
13592	Cell[BoxData[
13593	FormBox[
13594	InterpretationBox[
13595	RowBox[{"12", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
13596	SequenceForm[12, " vertices obtained."],
13597	Editable->False], TraditionalForm]], "Print",
13598	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13599	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13600	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13601	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13602	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13603	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066896819754`*^9},
13604	FontSize->7],
13605
13606	Cell[BoxData[
13607	FormBox["\<\"The lagrangian appears not to be hermitian.\"\>",
13608	TraditionalForm]], "Print",
13609	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13610	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13611	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13612	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13613	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13614	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066898614984`*^9},
13615	FontSize->7],
13616
13617	Cell[BoxData[
13618	FormBox["\<\"Non vanishing terms during the Feynman rule calculation for L - \
13619	HC[L]:\"\>", TraditionalForm]], "Print",
13620	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13621	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13622	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13623	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13624	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13625	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689865999*^9},
13626	FontSize->7],
13627
13628	Cell[BoxData[
13629	FormBox[
13630	RowBox[{"{",
13631	RowBox[{
13632	RowBox[{"(", "\[NoBreak]", GridBox[{
13633	{
13634	FormBox[
13635	OverscriptBox["b", "\<\"-\"\>"],
13636	TraditionalForm], "1"},
13637	{"bp", "2"},
13638	{"H", "3"}
13639	},
13640	GridBoxAlignment->{
13641	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13642	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13643	GridBoxSpacings->{"Columns" -> {
13644	Offset[0.27999999999999997`], {
13645	Offset[0.7]},
13646	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13647	Offset[0.2], {
13648	Offset[0.4]},
13649	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
13650	RowBox[{"-",
13651	FractionBox[
13652	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13653	RowBox[{"(",
13654	RowBox[{"MBP", "-",
13655	FormBox[
13656	SuperscriptBox["MBP", "\[Dagger]"],
13657	TraditionalForm]}], ")"}], " ",
13658	FormBox[
13659	SubscriptBox["\[Delta]",
13660	RowBox[{
13661	FormBox[
13662	SubscriptBox["\<\"i\"\>", "1"],
13663	TraditionalForm], ",",
13664	FormBox[
13665	SubscriptBox["\<\"i\"\>", "2"],
13666	TraditionalForm]}]],
13667	TraditionalForm], " ",
13668	RowBox[{"(",
13669	RowBox[{
13670	RowBox[{"KBbLh", " ",
13671	FormBox[
13672	SubscriptBox[
13673	SubscriptBox["P", "\<\"-\"\>"],
13674	RowBox[{
13675	FormBox[
13676	SubscriptBox["\<\"s\"\>", "1"],
13677	TraditionalForm], ",",
13678	FormBox[
13679	SubscriptBox["\<\"s\"\>", "2"],
13680	TraditionalForm]}]],
13681	TraditionalForm]}], "+",
13682	RowBox[{"KBbRh", " ",
13683	FormBox[
13684	SubscriptBox[
13685	SubscriptBox["P", "\<\"+\"\>"],
13686	RowBox[{
13687	FormBox[
13688	SubscriptBox["\<\"s\"\>", "1"],
13689	TraditionalForm], ",",
13690	FormBox[
13691	SubscriptBox["\<\"s\"\>", "2"],
13692	TraditionalForm]}]],
13693	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
13694	TraditionalForm]], "Print",
13695	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13696	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13697	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13698	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13699	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13700	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689888502*^9},
13701	FontSize->7],
13702
13703	Cell[BoxData[
13704	FormBox[
13705	RowBox[{"{",
13706	RowBox[{
13707	RowBox[{"(", "\[NoBreak]", GridBox[{
13708	{"b", "1"},
13709	{
13710	FormBox[
13711	OverscriptBox["bp", "\<\"-\"\>"],
13712	TraditionalForm], "2"},
13713	{"H", "3"}
13714	},
13715	GridBoxAlignment->{
13716	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13717	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13718	GridBoxSpacings->{"Columns" -> {
13719	Offset[0.27999999999999997`], {
13720	Offset[0.7]},
13721	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13722	Offset[0.2], {
13723	Offset[0.4]},
13724	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
13725	RowBox[{"-",
13726	FractionBox[
13727	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13728	RowBox[{"(",
13729	RowBox[{"MBP", "-",
13730	FormBox[
13731	SuperscriptBox["MBP", "\[Dagger]"],
13732	TraditionalForm]}], ")"}], " ",
13733	FormBox[
13734	SubscriptBox["\[Delta]",
13735	RowBox[{
13736	FormBox[
13737	SubscriptBox["\<\"i\"\>", "1"],
13738	TraditionalForm], ",",
13739	FormBox[
13740	SubscriptBox["\<\"i\"\>", "2"],
13741	TraditionalForm]}]],
13742	TraditionalForm], " ",
13743	RowBox[{"(",
13744	RowBox[{
13745	RowBox[{"KBbRh", " ",
13746	FormBox[
13747	SubscriptBox[
13748	SubscriptBox["P", "\<\"-\"\>"],
13749	RowBox[{
13750	FormBox[
13751	SubscriptBox["\<\"s\"\>", "2"],
13752	TraditionalForm], ",",
13753	FormBox[
13754	SubscriptBox["\<\"s\"\>", "1"],
13755	TraditionalForm]}]],
13756	TraditionalForm]}], "+",
13757	RowBox[{"KBbLh", " ",
13758	FormBox[
13759	SubscriptBox[
13760	SubscriptBox["P", "\<\"+\"\>"],
13761	RowBox[{
13762	FormBox[
13763	SubscriptBox["\<\"s\"\>", "2"],
13764	TraditionalForm], ",",
13765	FormBox[
13766	SubscriptBox["\<\"s\"\>", "1"],
13767	TraditionalForm]}]],
13768	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
13769	TraditionalForm]], "Print",
13770	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13771	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13772	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13773	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13774	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13775	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689895503*^9},
13776	FontSize->7],
13777
13778	Cell[BoxData[
13779	FormBox[
13780	RowBox[{"{",
13781	RowBox[{
13782	RowBox[{"(", "\[NoBreak]", GridBox[{
13783	{
13784	FormBox[
13785	OverscriptBox["bp", "\<\"-\"\>"],
13786	TraditionalForm], "1"},
13787	{"d", "2"},
13788	{"H", "3"}
13789	},
13790	GridBoxAlignment->{
13791	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13792	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13793	GridBoxSpacings->{"Columns" -> {
13794	Offset[0.27999999999999997`], {
13795	Offset[0.7]},
13796	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13797	Offset[0.2], {
13798	Offset[0.4]},
13799	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
13800	RowBox[{"-",
13801	FractionBox[
13802	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13803	RowBox[{"(",
13804	RowBox[{"MBP", "-",
13805	FormBox[
13806	SuperscriptBox["MBP", "\[Dagger]"],
13807	TraditionalForm]}], ")"}], " ",
13808	FormBox[
13809	SubscriptBox["\[Delta]",
13810	RowBox[{
13811	FormBox[
13812	SubscriptBox["\<\"i\"\>", "1"],
13813	TraditionalForm], ",",
13814	FormBox[
13815	SubscriptBox["\<\"i\"\>", "2"],
13816	TraditionalForm]}]],
13817	TraditionalForm], " ",
13818	RowBox[{"(",
13819	RowBox[{
13820	RowBox[{"KBdRh", " ",
13821	FormBox[
13822	SubscriptBox[
13823	SubscriptBox["P", "\<\"-\"\>"],
13824	RowBox[{
13825	FormBox[
13826	SubscriptBox["\<\"s\"\>", "1"],
13827	TraditionalForm], ",",
13828	FormBox[
13829	SubscriptBox["\<\"s\"\>", "2"],
13830	TraditionalForm]}]],
13831	TraditionalForm]}], "+",
13832	RowBox[{"KBdLh", " ",
13833	FormBox[
13834	SubscriptBox[
13835	SubscriptBox["P", "\<\"+\"\>"],
13836	RowBox[{
13837	FormBox[
13838	SubscriptBox["\<\"s\"\>", "1"],
13839	TraditionalForm], ",",
13840	FormBox[
13841	SubscriptBox["\<\"s\"\>", "2"],
13842	TraditionalForm]}]],
13843	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
13844	TraditionalForm]], "Print",
13845	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13846	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13847	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13848	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13849	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13850	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689904004*^9},
13851	FontSize->7],
13852
13853	Cell[BoxData[
13854	FormBox[
13855	RowBox[{"{",
13856	RowBox[{
13857	RowBox[{"(", "\[NoBreak]", GridBox[{
13858	{
13859	FormBox[
13860	OverscriptBox["bp", "\<\"-\"\>"],
13861	TraditionalForm], "1"},
13862	{"H", "2"},
13863	{"s", "3"}
13864	},
13865	GridBoxAlignment->{
13866	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13867	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13868	GridBoxSpacings->{"Columns" -> {
13869	Offset[0.27999999999999997`], {
13870	Offset[0.7]},
13871	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13872	Offset[0.2], {
13873	Offset[0.4]},
13874	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
13875	RowBox[{"-",
13876	FractionBox[
13877	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
13878	RowBox[{"(",
13879	RowBox[{"MBP", "-",
13880	FormBox[
13881	SuperscriptBox["MBP", "\[Dagger]"],
13882	TraditionalForm]}], ")"}], " ",
13883	FormBox[
13884	SubscriptBox["\[Delta]",
13885	RowBox[{
13886	FormBox[
13887	SubscriptBox["\<\"i\"\>", "1"],
13888	TraditionalForm], ",",
13889	FormBox[
13890	SubscriptBox["\<\"i\"\>", "3"],
13891	TraditionalForm]}]],
13892	TraditionalForm], " ",
13893	RowBox[{"(",
13894	RowBox[{
13895	RowBox[{"KBsRh", " ",
13896	FormBox[
13897	SubscriptBox[
13898	SubscriptBox["P", "\<\"-\"\>"],
13899	RowBox[{
13900	FormBox[
13901	SubscriptBox["\<\"s\"\>", "1"],
13902	TraditionalForm], ",",
13903	FormBox[
13904	SubscriptBox["\<\"s\"\>", "3"],
13905	TraditionalForm]}]],
13906	TraditionalForm]}], "+",
13907	RowBox[{"KBsLh", " ",
13908	FormBox[
13909	SubscriptBox[
13910	SubscriptBox["P", "\<\"+\"\>"],
13911	RowBox[{
13912	FormBox[
13913	SubscriptBox["\<\"s\"\>", "1"],
13914	TraditionalForm], ",",
13915	FormBox[
13916	SubscriptBox["\<\"s\"\>", "3"],
13917	TraditionalForm]}]],
13918	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
13919	TraditionalForm]], "Print",
13920	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13921	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13922	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13923	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13924	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
13925	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066899170055`*^9},
13926	FontSize->7],
13927
13928	Cell[BoxData[
13929	FormBox[
13930	RowBox[{"{",
13931	RowBox[{
13932	RowBox[{"(", "\[NoBreak]", GridBox[{
13933	{
13934	FormBox[
13935	OverscriptBox["c", "\<\"-\"\>"],
13936	TraditionalForm], "1"},
13937	{"H", "2"},
13938	{"tp", "3"}
13939	},
13940	GridBoxAlignment->{
13941	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
13942	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
13943	GridBoxSpacings->{"Columns" -> {
13944	Offset[0.27999999999999997`], {
13945	Offset[0.7]},
13946	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
13947	Offset[0.2], {
13948	Offset[0.4]},
13949	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
13950	RowBox[{"-",
13951	FractionBox[
13952	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
13953	RowBox[{"(",
13954	RowBox[{"MTP", "-",
13955	FormBox[
13956	SuperscriptBox["MTP", "\[Dagger]"],
13957	TraditionalForm]}], ")"}], " ",
13958	FormBox[
13959	SubscriptBox["\[Delta]",
13960	RowBox[{
13961	FormBox[
13962	SubscriptBox["\<\"i\"\>", "1"],
13963	TraditionalForm], ",",
13964	FormBox[
13965	SubscriptBox["\<\"i\"\>", "3"],
13966	TraditionalForm]}]],
13967	TraditionalForm], " ",
13968	RowBox[{"(",
13969	RowBox[{
13970	RowBox[{"KTcLh", " ",
13971	FormBox[
13972	SubscriptBox[
13973	SubscriptBox["P", "\<\"-\"\>"],
13974	RowBox[{
13975	FormBox[
13976	SubscriptBox["\<\"s\"\>", "1"],
13977	TraditionalForm], ",",
13978	FormBox[
13979	SubscriptBox["\<\"s\"\>", "3"],
13980	TraditionalForm]}]],
13981	TraditionalForm]}], "+",
13982	RowBox[{"KTcRh", " ",
13983	FormBox[
13984	SubscriptBox[
13985	SubscriptBox["P", "\<\"+\"\>"],
13986	RowBox[{
13987	FormBox[
13988	SubscriptBox["\<\"s\"\>", "1"],
13989	TraditionalForm], ",",
13990	FormBox[
13991	SubscriptBox["\<\"s\"\>", "3"],
13992	TraditionalForm]}]],
13993	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
13994	TraditionalForm]], "Print",
13995	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
13996	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
13997	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
13998	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
13999	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14000	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689924506*^9},
14001	FontSize->7],
14002
14003	Cell[BoxData[
14004	FormBox[
14005	RowBox[{"{",
14006	RowBox[{
14007	RowBox[{"(", "\[NoBreak]", GridBox[{
14008	{"bp", "1"},
14009	{
14010	FormBox[
14011	OverscriptBox["d", "\<\"-\"\>"],
14012	TraditionalForm], "2"},
14013	{"H", "3"}
14014	},
14015	GridBoxAlignment->{
14016	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14017	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14018	GridBoxSpacings->{"Columns" -> {
14019	Offset[0.27999999999999997`], {
14020	Offset[0.7]},
14021	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14022	Offset[0.2], {
14023	Offset[0.4]},
14024	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14025	RowBox[{"-",
14026	FractionBox[
14027	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14028	RowBox[{"(",
14029	RowBox[{"MBP", "-",
14030	FormBox[
14031	SuperscriptBox["MBP", "\[Dagger]"],
14032	TraditionalForm]}], ")"}], " ",
14033	FormBox[
14034	SubscriptBox["\[Delta]",
14035	RowBox[{
14036	FormBox[
14037	SubscriptBox["\<\"i\"\>", "1"],
14038	TraditionalForm], ",",
14039	FormBox[
14040	SubscriptBox["\<\"i\"\>", "2"],
14041	TraditionalForm]}]],
14042	TraditionalForm], " ",
14043	RowBox[{"(",
14044	RowBox[{
14045	RowBox[{"KBdLh", " ",
14046	FormBox[
14047	SubscriptBox[
14048	SubscriptBox["P", "\<\"-\"\>"],
14049	RowBox[{
14050	FormBox[
14051	SubscriptBox["\<\"s\"\>", "2"],
14052	TraditionalForm], ",",
14053	FormBox[
14054	SubscriptBox["\<\"s\"\>", "1"],
14055	TraditionalForm]}]],
14056	TraditionalForm]}], "+",
14057	RowBox[{"KBdRh", " ",
14058	FormBox[
14059	SubscriptBox[
14060	SubscriptBox["P", "\<\"+\"\>"],
14061	RowBox[{
14062	FormBox[
14063	SubscriptBox["\<\"s\"\>", "2"],
14064	TraditionalForm], ",",
14065	FormBox[
14066	SubscriptBox["\<\"s\"\>", "1"],
14067	TraditionalForm]}]],
14068	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14069	TraditionalForm]], "Print",
14070	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14071	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14072	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14073	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14074	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14075	3.581087218831727^9, 3.5817057589647894`^9, 3.58170668995551*^9},
14076	FontSize->7],
14077
14078	Cell[BoxData[
14079	FormBox[
14080	RowBox[{"{",
14081	RowBox[{
14082	RowBox[{"(", "\[NoBreak]", GridBox[{
14083	{"bp", "1"},
14084	{"H", "2"},
14085	{
14086	FormBox[
14087	OverscriptBox["s", "\<\"-\"\>"],
14088	TraditionalForm], "3"}
14089	},
14090	GridBoxAlignment->{
14091	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14092	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14093	GridBoxSpacings->{"Columns" -> {
14094	Offset[0.27999999999999997`], {
14095	Offset[0.7]},
14096	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14097	Offset[0.2], {
14098	Offset[0.4]},
14099	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14100	RowBox[{"-",
14101	FractionBox[
14102	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14103	RowBox[{"(",
14104	RowBox[{"MBP", "-",
14105	FormBox[
14106	SuperscriptBox["MBP", "\[Dagger]"],
14107	TraditionalForm]}], ")"}], " ",
14108	FormBox[
14109	SubscriptBox["\[Delta]",
14110	RowBox[{
14111	FormBox[
14112	SubscriptBox["\<\"i\"\>", "1"],
14113	TraditionalForm], ",",
14114	FormBox[
14115	SubscriptBox["\<\"i\"\>", "3"],
14116	TraditionalForm]}]],
14117	TraditionalForm], " ",
14118	RowBox[{"(",
14119	RowBox[{
14120	RowBox[{"KBsLh", " ",
14121	FormBox[
14122	SubscriptBox[
14123	SubscriptBox["P", "\<\"-\"\>"],
14124	RowBox[{
14125	FormBox[
14126	SubscriptBox["\<\"s\"\>", "3"],
14127	TraditionalForm], ",",
14128	FormBox[
14129	SubscriptBox["\<\"s\"\>", "1"],
14130	TraditionalForm]}]],
14131	TraditionalForm]}], "+",
14132	RowBox[{"KBsRh", " ",
14133	FormBox[
14134	SubscriptBox[
14135	SubscriptBox["P", "\<\"+\"\>"],
14136	RowBox[{
14137	FormBox[
14138	SubscriptBox["\<\"s\"\>", "3"],
14139	TraditionalForm], ",",
14140	FormBox[
14141	SubscriptBox["\<\"s\"\>", "1"],
14142	TraditionalForm]}]],
14143	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14144	TraditionalForm]], "Print",
14145	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14146	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14147	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14148	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14149	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14150	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066899670115`*^9},
14151	FontSize->7],
14152
14153	Cell[BoxData[
14154	FormBox[
14155	RowBox[{"{",
14156	RowBox[{
14157	RowBox[{"(", "\[NoBreak]", GridBox[{
14158	{"H", "1"},
14159	{
14160	FormBox[
14161	OverscriptBox["t", "\<\"-\"\>"],
14162	TraditionalForm], "2"},
14163	{"tp", "3"}
14164	},
14165	GridBoxAlignment->{
14166	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14167	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14168	GridBoxSpacings->{"Columns" -> {
14169	Offset[0.27999999999999997`], {
14170	Offset[0.7]},
14171	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14172	Offset[0.2], {
14173	Offset[0.4]},
14174	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14175	RowBox[{"-",
14176	FractionBox[
14177	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14178	RowBox[{"(",
14179	RowBox[{"MTP", "-",
14180	FormBox[
14181	SuperscriptBox["MTP", "\[Dagger]"],
14182	TraditionalForm]}], ")"}], " ",
14183	FormBox[
14184	SubscriptBox["\[Delta]",
14185	RowBox[{
14186	FormBox[
14187	SubscriptBox["\<\"i\"\>", "2"],
14188	TraditionalForm], ",",
14189	FormBox[
14190	SubscriptBox["\<\"i\"\>", "3"],
14191	TraditionalForm]}]],
14192	TraditionalForm], " ",
14193	RowBox[{"(",
14194	RowBox[{
14195	RowBox[{"KTtLh", " ",
14196	FormBox[
14197	SubscriptBox[
14198	SubscriptBox["P", "\<\"-\"\>"],
14199	RowBox[{
14200	FormBox[
14201	SubscriptBox["\<\"s\"\>", "2"],
14202	TraditionalForm], ",",
14203	FormBox[
14204	SubscriptBox["\<\"s\"\>", "3"],
14205	TraditionalForm]}]],
14206	TraditionalForm]}], "+",
14207	RowBox[{"KTtRh", " ",
14208	FormBox[
14209	SubscriptBox[
14210	SubscriptBox["P", "\<\"+\"\>"],
14211	RowBox[{
14212	FormBox[
14213	SubscriptBox["\<\"s\"\>", "2"],
14214	TraditionalForm], ",",
14215	FormBox[
14216	SubscriptBox["\<\"s\"\>", "3"],
14217	TraditionalForm]}]],
14218	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14219	TraditionalForm]], "Print",
14220	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14221	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14222	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14223	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14224	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14225	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066899725122`*^9},
14226	FontSize->7],
14227
14228	Cell[BoxData[
14229	FormBox[
14230	RowBox[{"{",
14231	RowBox[{
14232	RowBox[{"(", "\[NoBreak]", GridBox[{
14233	{"c", "1"},
14234	{"H", "2"},
14235	{
14236	FormBox[
14237	OverscriptBox["tp", "\<\"-\"\>"],
14238	TraditionalForm], "3"}
14239	},
14240	GridBoxAlignment->{
14241	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14242	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14243	GridBoxSpacings->{"Columns" -> {
14244	Offset[0.27999999999999997`], {
14245	Offset[0.7]},
14246	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14247	Offset[0.2], {
14248	Offset[0.4]},
14249	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14250	RowBox[{"-",
14251	FractionBox[
14252	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14253	RowBox[{"(",
14254	RowBox[{"MTP", "-",
14255	FormBox[
14256	SuperscriptBox["MTP", "\[Dagger]"],
14257	TraditionalForm]}], ")"}], " ",
14258	FormBox[
14259	SubscriptBox["\[Delta]",
14260	RowBox[{
14261	FormBox[
14262	SubscriptBox["\<\"i\"\>", "1"],
14263	TraditionalForm], ",",
14264	FormBox[
14265	SubscriptBox["\<\"i\"\>", "3"],
14266	TraditionalForm]}]],
14267	TraditionalForm], " ",
14268	RowBox[{"(",
14269	RowBox[{
14270	RowBox[{"KTcRh", " ",
14271	FormBox[
14272	SubscriptBox[
14273	SubscriptBox["P", "\<\"-\"\>"],
14274	RowBox[{
14275	FormBox[
14276	SubscriptBox["\<\"s\"\>", "3"],
14277	TraditionalForm], ",",
14278	FormBox[
14279	SubscriptBox["\<\"s\"\>", "1"],
14280	TraditionalForm]}]],
14281	TraditionalForm]}], "+",
14282	RowBox[{"KTcLh", " ",
14283	FormBox[
14284	SubscriptBox[
14285	SubscriptBox["P", "\<\"+\"\>"],
14286	RowBox[{
14287	FormBox[
14288	SubscriptBox["\<\"s\"\>", "3"],
14289	TraditionalForm], ",",
14290	FormBox[
14291	SubscriptBox["\<\"s\"\>", "1"],
14292	TraditionalForm]}]],
14293	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14294	TraditionalForm]], "Print",
14295	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14296	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14297	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14298	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14299	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14300	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689980014*^9},
14301	FontSize->7],
14302
14303	Cell[BoxData[
14304	FormBox[
14305	RowBox[{"{",
14306	RowBox[{
14307	RowBox[{"(", "\[NoBreak]", GridBox[{
14308	{"H", "1"},
14309	{"t", "2"},
14310	{
14311	FormBox[
14312	OverscriptBox["tp", "\<\"-\"\>"],
14313	TraditionalForm], "3"}
14314	},
14315	GridBoxAlignment->{
14316	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14317	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14318	GridBoxSpacings->{"Columns" -> {
14319	Offset[0.27999999999999997`], {
14320	Offset[0.7]},
14321	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14322	Offset[0.2], {
14323	Offset[0.4]},
14324	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14325	RowBox[{"-",
14326	FractionBox[
14327	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14328	RowBox[{"(",
14329	RowBox[{"MTP", "-",
14330	FormBox[
14331	SuperscriptBox["MTP", "\[Dagger]"],
14332	TraditionalForm]}], ")"}], " ",
14333	FormBox[
14334	SubscriptBox["\[Delta]",
14335	RowBox[{
14336	FormBox[
14337	SubscriptBox["\<\"i\"\>", "2"],
14338	TraditionalForm], ",",
14339	FormBox[
14340	SubscriptBox["\<\"i\"\>", "3"],
14341	TraditionalForm]}]],
14342	TraditionalForm], " ",
14343	RowBox[{"(",
14344	RowBox[{
14345	RowBox[{"KTtRh", " ",
14346	FormBox[
14347	SubscriptBox[
14348	SubscriptBox["P", "\<\"-\"\>"],
14349	RowBox[{
14350	FormBox[
14351	SubscriptBox["\<\"s\"\>", "3"],
14352	TraditionalForm], ",",
14353	FormBox[
14354	SubscriptBox["\<\"s\"\>", "2"],
14355	TraditionalForm]}]],
14356	TraditionalForm]}], "+",
14357	RowBox[{"KTtLh", " ",
14358	FormBox[
14359	SubscriptBox[
14360	SubscriptBox["P", "\<\"+\"\>"],
14361	RowBox[{
14362	FormBox[
14363	SubscriptBox["\<\"s\"\>", "3"],
14364	TraditionalForm], ",",
14365	FormBox[
14366	SubscriptBox["\<\"s\"\>", "2"],
14367	TraditionalForm]}]],
14368	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14369	TraditionalForm]], "Print",
14370	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14371	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14372	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14373	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14374	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14375	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066899930153`*^9},
14376	FontSize->7],
14377
14378	Cell[BoxData[
14379	FormBox[
14380	RowBox[{"{",
14381	RowBox[{
14382	RowBox[{"(", "\[NoBreak]", GridBox[{
14383	{"H", "1"},
14384	{
14385	FormBox[
14386	OverscriptBox["tp", "\<\"-\"\>"],
14387	TraditionalForm], "2"},
14388	{"u", "3"}
14389	},
14390	GridBoxAlignment->{
14391	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14392	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14393	GridBoxSpacings->{"Columns" -> {
14394	Offset[0.27999999999999997`], {
14395	Offset[0.7]},
14396	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14397	Offset[0.2], {
14398	Offset[0.4]},
14399	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14400	RowBox[{"-",
14401	FractionBox[
14402	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14403	RowBox[{"(",
14404	RowBox[{"MTP", "-",
14405	FormBox[
14406	SuperscriptBox["MTP", "\[Dagger]"],
14407	TraditionalForm]}], ")"}], " ",
14408	FormBox[
14409	SubscriptBox["\[Delta]",
14410	RowBox[{
14411	FormBox[
14412	SubscriptBox["\<\"i\"\>", "2"],
14413	TraditionalForm], ",",
14414	FormBox[
14415	SubscriptBox["\<\"i\"\>", "3"],
14416	TraditionalForm]}]],
14417	TraditionalForm], " ",
14418	RowBox[{"(",
14419	RowBox[{
14420	RowBox[{"KTuRh", " ",
14421	FormBox[
14422	SubscriptBox[
14423	SubscriptBox["P", "\<\"-\"\>"],
14424	RowBox[{
14425	FormBox[
14426	SubscriptBox["\<\"s\"\>", "2"],
14427	TraditionalForm], ",",
14428	FormBox[
14429	SubscriptBox["\<\"s\"\>", "3"],
14430	TraditionalForm]}]],
14431	TraditionalForm]}], "+",
14432	RowBox[{"KTuLh", " ",
14433	FormBox[
14434	SubscriptBox[
14435	SubscriptBox["P", "\<\"+\"\>"],
14436	RowBox[{
14437	FormBox[
14438	SubscriptBox["\<\"s\"\>", "2"],
14439	TraditionalForm], ",",
14440	FormBox[
14441	SubscriptBox["\<\"s\"\>", "3"],
14442	TraditionalForm]}]],
14443	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14444	TraditionalForm]], "Print",
14445	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14446	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14447	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14448	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14449	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14450	3.581087218831727^9, 3.5817057589647894`^9, 3.581706689999016*^9},
14451	FontSize->7],
14452
14453	Cell[BoxData[
14454	FormBox[
14455	RowBox[{"{",
14456	RowBox[{
14457	RowBox[{"(", "\[NoBreak]", GridBox[{
14458	{"H", "1"},
14459	{"tp", "2"},
14460	{
14461	FormBox[
14462	OverscriptBox["u", "\<\"-\"\>"],
14463	TraditionalForm], "3"}
14464	},
14465	GridBoxAlignment->{
14466	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14467	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14468	GridBoxSpacings->{"Columns" -> {
14469	Offset[0.27999999999999997`], {
14470	Offset[0.7]},
14471	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
14472	Offset[0.2], {
14473	Offset[0.4]},
14474	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], ",",
14475	RowBox[{"-",
14476	FractionBox[
14477	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14478	RowBox[{"(",
14479	RowBox[{"MTP", "-",
14480	FormBox[
14481	SuperscriptBox["MTP", "\[Dagger]"],
14482	TraditionalForm]}], ")"}], " ",
14483	FormBox[
14484	SubscriptBox["\[Delta]",
14485	RowBox[{
14486	FormBox[
14487	SubscriptBox["\<\"i\"\>", "2"],
14488	TraditionalForm], ",",
14489	FormBox[
14490	SubscriptBox["\<\"i\"\>", "3"],
14491	TraditionalForm]}]],
14492	TraditionalForm], " ",
14493	RowBox[{"(",
14494	RowBox[{
14495	RowBox[{"KTuLh", " ",
14496	FormBox[
14497	SubscriptBox[
14498	SubscriptBox["P", "\<\"-\"\>"],
14499	RowBox[{
14500	FormBox[
14501	SubscriptBox["\<\"s\"\>", "3"],
14502	TraditionalForm], ",",
14503	FormBox[
14504	SubscriptBox["\<\"s\"\>", "2"],
14505	TraditionalForm]}]],
14506	TraditionalForm]}], "+",
14507	RowBox[{"KTuRh", " ",
14508	FormBox[
14509	SubscriptBox[
14510	SubscriptBox["P", "\<\"+\"\>"],
14511	RowBox[{
14512	FormBox[
14513	SubscriptBox["\<\"s\"\>", "3"],
14514	TraditionalForm], ",",
14515	FormBox[
14516	SubscriptBox["\<\"s\"\>", "2"],
14517	TraditionalForm]}]],
14518	TraditionalForm]}]}], ")"}]}], "v"]}]}], "}"}],
14519	TraditionalForm]], "Print",
14520	CellChangeTimes->{3.5719847195865784`^9, 3.572196749486415^9,
14521	3.573066117226626^9, 3.573066881174635^9, 3.574311976609007*^9,
14522	3.574507243194797^9, 3.574508199191719^9, 3.5747634944839416`*^9,
14523	3.5747648418500066`^9, 3.5750865732427835`^9, 3.575181226308111*^9,
14524	3.575184844562381^9, 3.575189234187318^9, 3.57518950329749*^9,
14525	3.581087218831727^9, 3.5817057589647894`^9, 3.5817066900045166`*^9},
14526	FontSize->7]
14527	}, Open ]],
14528
14529	Cell[BoxData[
14530	FormBox[
14531	RowBox[{"(", "\[NoBreak]", GridBox[{
14532	{
14533	RowBox[{"(", "\[NoBreak]", GridBox[{
14534	{
14535	FormBox[
14536	OverscriptBox["b", "\<\"-\"\>"],
14537	TraditionalForm], "1"},
14538	{"bp", "2"},
14539	{"H", "3"}
14540	},
14541	GridBoxAlignment->{
14542	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14543	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14544	GridBoxSpacings->{"Columns" -> {
14545	Offset[0.27999999999999997`], {
14546	Offset[0.7]},
14547	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14548	"Rows" -> {
14549	Offset[0.2], {
14550	Offset[0.4]},
14551	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14552	RowBox[{"-",
14553	FractionBox[
14554	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14555	RowBox[{"(",
14556	RowBox[{"MBP", "-",
14557	FormBox[
14558	SuperscriptBox["MBP", "\[Dagger]"],
14559	TraditionalForm]}], ")"}], " ",
14560	FormBox[
14561	SubscriptBox["\[Delta]",
14562	RowBox[{
14563	FormBox[
14564	SubscriptBox["\<\"i\"\>", "1"],
14565	TraditionalForm], ",",
14566	FormBox[
14567	SubscriptBox["\<\"i\"\>", "2"],
14568	TraditionalForm]}]],
14569	TraditionalForm], " ",
14570	RowBox[{"(",
14571	RowBox[{
14572	RowBox[{"KBbLh", " ",
14573	FormBox[
14574	SubscriptBox[
14575	SubscriptBox["P", "\<\"-\"\>"],
14576	RowBox[{
14577	FormBox[
14578	SubscriptBox["\<\"s\"\>", "1"],
14579	TraditionalForm], ",",
14580	FormBox[
14581	SubscriptBox["\<\"s\"\>", "2"],
14582	TraditionalForm]}]],
14583	TraditionalForm]}], "+",
14584	RowBox[{"KBbRh", " ",
14585	FormBox[
14586	SubscriptBox[
14587	SubscriptBox["P", "\<\"+\"\>"],
14588	RowBox[{
14589	FormBox[
14590	SubscriptBox["\<\"s\"\>", "1"],
14591	TraditionalForm], ",",
14592	FormBox[
14593	SubscriptBox["\<\"s\"\>", "2"],
14594	TraditionalForm]}]],
14595	TraditionalForm]}]}], ")"}]}], "v"]}]},
14596	{
14597	RowBox[{"(", "\[NoBreak]", GridBox[{
14598	{"b", "1"},
14599	{
14600	FormBox[
14601	OverscriptBox["bp", "\<\"-\"\>"],
14602	TraditionalForm], "2"},
14603	{"H", "3"}
14604	},
14605	GridBoxAlignment->{
14606	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14607	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14608	GridBoxSpacings->{"Columns" -> {
14609	Offset[0.27999999999999997`], {
14610	Offset[0.7]},
14611	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14612	"Rows" -> {
14613	Offset[0.2], {
14614	Offset[0.4]},
14615	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14616	RowBox[{"-",
14617	FractionBox[
14618	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14619	RowBox[{"(",
14620	RowBox[{"MBP", "-",
14621	FormBox[
14622	SuperscriptBox["MBP", "\[Dagger]"],
14623	TraditionalForm]}], ")"}], " ",
14624	FormBox[
14625	SubscriptBox["\[Delta]",
14626	RowBox[{
14627	FormBox[
14628	SubscriptBox["\<\"i\"\>", "1"],
14629	TraditionalForm], ",",
14630	FormBox[
14631	SubscriptBox["\<\"i\"\>", "2"],
14632	TraditionalForm]}]],
14633	TraditionalForm], " ",
14634	RowBox[{"(",
14635	RowBox[{
14636	RowBox[{"KBbRh", " ",
14637	FormBox[
14638	SubscriptBox[
14639	SubscriptBox["P", "\<\"-\"\>"],
14640	RowBox[{
14641	FormBox[
14642	SubscriptBox["\<\"s\"\>", "2"],
14643	TraditionalForm], ",",
14644	FormBox[
14645	SubscriptBox["\<\"s\"\>", "1"],
14646	TraditionalForm]}]],
14647	TraditionalForm]}], "+",
14648	RowBox[{"KBbLh", " ",
14649	FormBox[
14650	SubscriptBox[
14651	SubscriptBox["P", "\<\"+\"\>"],
14652	RowBox[{
14653	FormBox[
14654	SubscriptBox["\<\"s\"\>", "2"],
14655	TraditionalForm], ",",
14656	FormBox[
14657	SubscriptBox["\<\"s\"\>", "1"],
14658	TraditionalForm]}]],
14659	TraditionalForm]}]}], ")"}]}], "v"]}]},
14660	{
14661	RowBox[{"(", "\[NoBreak]", GridBox[{
14662	{
14663	FormBox[
14664	OverscriptBox["bp", "\<\"-\"\>"],
14665	TraditionalForm], "1"},
14666	{"d", "2"},
14667	{"H", "3"}
14668	},
14669	GridBoxAlignment->{
14670	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14671	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14672	GridBoxSpacings->{"Columns" -> {
14673	Offset[0.27999999999999997`], {
14674	Offset[0.7]},
14675	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14676	"Rows" -> {
14677	Offset[0.2], {
14678	Offset[0.4]},
14679	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14680	RowBox[{"-",
14681	FractionBox[
14682	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14683	RowBox[{"(",
14684	RowBox[{"MBP", "-",
14685	FormBox[
14686	SuperscriptBox["MBP", "\[Dagger]"],
14687	TraditionalForm]}], ")"}], " ",
14688	FormBox[
14689	SubscriptBox["\[Delta]",
14690	RowBox[{
14691	FormBox[
14692	SubscriptBox["\<\"i\"\>", "1"],
14693	TraditionalForm], ",",
14694	FormBox[
14695	SubscriptBox["\<\"i\"\>", "2"],
14696	TraditionalForm]}]],
14697	TraditionalForm], " ",
14698	RowBox[{"(",
14699	RowBox[{
14700	RowBox[{"KBdRh", " ",
14701	FormBox[
14702	SubscriptBox[
14703	SubscriptBox["P", "\<\"-\"\>"],
14704	RowBox[{
14705	FormBox[
14706	SubscriptBox["\<\"s\"\>", "1"],
14707	TraditionalForm], ",",
14708	FormBox[
14709	SubscriptBox["\<\"s\"\>", "2"],
14710	TraditionalForm]}]],
14711	TraditionalForm]}], "+",
14712	RowBox[{"KBdLh", " ",
14713	FormBox[
14714	SubscriptBox[
14715	SubscriptBox["P", "\<\"+\"\>"],
14716	RowBox[{
14717	FormBox[
14718	SubscriptBox["\<\"s\"\>", "1"],
14719	TraditionalForm], ",",
14720	FormBox[
14721	SubscriptBox["\<\"s\"\>", "2"],
14722	TraditionalForm]}]],
14723	TraditionalForm]}]}], ")"}]}], "v"]}]},
14724	{
14725	RowBox[{"(", "\[NoBreak]", GridBox[{
14726	{
14727	FormBox[
14728	OverscriptBox["bp", "\<\"-\"\>"],
14729	TraditionalForm], "1"},
14730	{"H", "2"},
14731	{"s", "3"}
14732	},
14733	GridBoxAlignment->{
14734	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14735	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14736	GridBoxSpacings->{"Columns" -> {
14737	Offset[0.27999999999999997`], {
14738	Offset[0.7]},
14739	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14740	"Rows" -> {
14741	Offset[0.2], {
14742	Offset[0.4]},
14743	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14744	RowBox[{"-",
14745	FractionBox[
14746	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14747	RowBox[{"(",
14748	RowBox[{"MBP", "-",
14749	FormBox[
14750	SuperscriptBox["MBP", "\[Dagger]"],
14751	TraditionalForm]}], ")"}], " ",
14752	FormBox[
14753	SubscriptBox["\[Delta]",
14754	RowBox[{
14755	FormBox[
14756	SubscriptBox["\<\"i\"\>", "1"],
14757	TraditionalForm], ",",
14758	FormBox[
14759	SubscriptBox["\<\"i\"\>", "3"],
14760	TraditionalForm]}]],
14761	TraditionalForm], " ",
14762	RowBox[{"(",
14763	RowBox[{
14764	RowBox[{"KBsRh", " ",
14765	FormBox[
14766	SubscriptBox[
14767	SubscriptBox["P", "\<\"-\"\>"],
14768	RowBox[{
14769	FormBox[
14770	SubscriptBox["\<\"s\"\>", "1"],
14771	TraditionalForm], ",",
14772	FormBox[
14773	SubscriptBox["\<\"s\"\>", "3"],
14774	TraditionalForm]}]],
14775	TraditionalForm]}], "+",
14776	RowBox[{"KBsLh", " ",
14777	FormBox[
14778	SubscriptBox[
14779	SubscriptBox["P", "\<\"+\"\>"],
14780	RowBox[{
14781	FormBox[
14782	SubscriptBox["\<\"s\"\>", "1"],
14783	TraditionalForm], ",",
14784	FormBox[
14785	SubscriptBox["\<\"s\"\>", "3"],
14786	TraditionalForm]}]],
14787	TraditionalForm]}]}], ")"}]}], "v"]}]},
14788	{
14789	RowBox[{"(", "\[NoBreak]", GridBox[{
14790	{
14791	FormBox[
14792	OverscriptBox["c", "\<\"-\"\>"],
14793	TraditionalForm], "1"},
14794	{"H", "2"},
14795	{"tp", "3"}
14796	},
14797	GridBoxAlignment->{
14798	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14799	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14800	GridBoxSpacings->{"Columns" -> {
14801	Offset[0.27999999999999997`], {
14802	Offset[0.7]},
14803	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14804	"Rows" -> {
14805	Offset[0.2], {
14806	Offset[0.4]},
14807	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14808	RowBox[{"-",
14809	FractionBox[
14810	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
14811	RowBox[{"(",
14812	RowBox[{"MTP", "-",
14813	FormBox[
14814	SuperscriptBox["MTP", "\[Dagger]"],
14815	TraditionalForm]}], ")"}], " ",
14816	FormBox[
14817	SubscriptBox["\[Delta]",
14818	RowBox[{
14819	FormBox[
14820	SubscriptBox["\<\"i\"\>", "1"],
14821	TraditionalForm], ",",
14822	FormBox[
14823	SubscriptBox["\<\"i\"\>", "3"],
14824	TraditionalForm]}]],
14825	TraditionalForm], " ",
14826	RowBox[{"(",
14827	RowBox[{
14828	RowBox[{"KTcLh", " ",
14829	FormBox[
14830	SubscriptBox[
14831	SubscriptBox["P", "\<\"-\"\>"],
14832	RowBox[{
14833	FormBox[
14834	SubscriptBox["\<\"s\"\>", "1"],
14835	TraditionalForm], ",",
14836	FormBox[
14837	SubscriptBox["\<\"s\"\>", "3"],
14838	TraditionalForm]}]],
14839	TraditionalForm]}], "+",
14840	RowBox[{"KTcRh", " ",
14841	FormBox[
14842	SubscriptBox[
14843	SubscriptBox["P", "\<\"+\"\>"],
14844	RowBox[{
14845	FormBox[
14846	SubscriptBox["\<\"s\"\>", "1"],
14847	TraditionalForm], ",",
14848	FormBox[
14849	SubscriptBox["\<\"s\"\>", "3"],
14850	TraditionalForm]}]],
14851	TraditionalForm]}]}], ")"}]}], "v"]}]},
14852	{
14853	RowBox[{"(", "\[NoBreak]", GridBox[{
14854	{"bp", "1"},
14855	{
14856	FormBox[
14857	OverscriptBox["d", "\<\"-\"\>"],
14858	TraditionalForm], "2"},
14859	{"H", "3"}
14860	},
14861	GridBoxAlignment->{
14862	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14863	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14864	GridBoxSpacings->{"Columns" -> {
14865	Offset[0.27999999999999997`], {
14866	Offset[0.7]},
14867	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14868	"Rows" -> {
14869	Offset[0.2], {
14870	Offset[0.4]},
14871	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14872	RowBox[{"-",
14873	FractionBox[
14874	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14875	RowBox[{"(",
14876	RowBox[{"MBP", "-",
14877	FormBox[
14878	SuperscriptBox["MBP", "\[Dagger]"],
14879	TraditionalForm]}], ")"}], " ",
14880	FormBox[
14881	SubscriptBox["\[Delta]",
14882	RowBox[{
14883	FormBox[
14884	SubscriptBox["\<\"i\"\>", "1"],
14885	TraditionalForm], ",",
14886	FormBox[
14887	SubscriptBox["\<\"i\"\>", "2"],
14888	TraditionalForm]}]],
14889	TraditionalForm], " ",
14890	RowBox[{"(",
14891	RowBox[{
14892	RowBox[{"KBdLh", " ",
14893	FormBox[
14894	SubscriptBox[
14895	SubscriptBox["P", "\<\"-\"\>"],
14896	RowBox[{
14897	FormBox[
14898	SubscriptBox["\<\"s\"\>", "2"],
14899	TraditionalForm], ",",
14900	FormBox[
14901	SubscriptBox["\<\"s\"\>", "1"],
14902	TraditionalForm]}]],
14903	TraditionalForm]}], "+",
14904	RowBox[{"KBdRh", " ",
14905	FormBox[
14906	SubscriptBox[
14907	SubscriptBox["P", "\<\"+\"\>"],
14908	RowBox[{
14909	FormBox[
14910	SubscriptBox["\<\"s\"\>", "2"],
14911	TraditionalForm], ",",
14912	FormBox[
14913	SubscriptBox["\<\"s\"\>", "1"],
14914	TraditionalForm]}]],
14915	TraditionalForm]}]}], ")"}]}], "v"]}]},
14916	{
14917	RowBox[{"(", "\[NoBreak]", GridBox[{
14918	{"bp", "1"},
14919	{"H", "2"},
14920	{
14921	FormBox[
14922	OverscriptBox["s", "\<\"-\"\>"],
14923	TraditionalForm], "3"}
14924	},
14925	GridBoxAlignment->{
14926	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14927	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14928	GridBoxSpacings->{"Columns" -> {
14929	Offset[0.27999999999999997`], {
14930	Offset[0.7]},
14931	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14932	"Rows" -> {
14933	Offset[0.2], {
14934	Offset[0.4]},
14935	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
14936	RowBox[{"-",
14937	FractionBox[
14938	RowBox[{"\[ImaginaryI]", " ", "KB", " ",
14939	RowBox[{"(",
14940	RowBox[{"MBP", "-",
14941	FormBox[
14942	SuperscriptBox["MBP", "\[Dagger]"],
14943	TraditionalForm]}], ")"}], " ",
14944	FormBox[
14945	SubscriptBox["\[Delta]",
14946	RowBox[{
14947	FormBox[
14948	SubscriptBox["\<\"i\"\>", "1"],
14949	TraditionalForm], ",",
14950	FormBox[
14951	SubscriptBox["\<\"i\"\>", "3"],
14952	TraditionalForm]}]],
14953	TraditionalForm], " ",
14954	RowBox[{"(",
14955	RowBox[{
14956	RowBox[{"KBsLh", " ",
14957	FormBox[
14958	SubscriptBox[
14959	SubscriptBox["P", "\<\"-\"\>"],
14960	RowBox[{
14961	FormBox[
14962	SubscriptBox["\<\"s\"\>", "3"],
14963	TraditionalForm], ",",
14964	FormBox[
14965	SubscriptBox["\<\"s\"\>", "1"],
14966	TraditionalForm]}]],
14967	TraditionalForm]}], "+",
14968	RowBox[{"KBsRh", " ",
14969	FormBox[
14970	SubscriptBox[
14971	SubscriptBox["P", "\<\"+\"\>"],
14972	RowBox[{
14973	FormBox[
14974	SubscriptBox["\<\"s\"\>", "3"],
14975	TraditionalForm], ",",
14976	FormBox[
14977	SubscriptBox["\<\"s\"\>", "1"],
14978	TraditionalForm]}]],
14979	TraditionalForm]}]}], ")"}]}], "v"]}]},
14980	{
14981	RowBox[{"(", "\[NoBreak]", GridBox[{
14982	{"H", "1"},
14983	{
14984	FormBox[
14985	OverscriptBox["t", "\<\"-\"\>"],
14986	TraditionalForm], "2"},
14987	{"tp", "3"}
14988	},
14989	GridBoxAlignment->{
14990	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
14991	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
14992	GridBoxSpacings->{"Columns" -> {
14993	Offset[0.27999999999999997`], {
14994	Offset[0.7]},
14995	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
14996	"Rows" -> {
14997	Offset[0.2], {
14998	Offset[0.4]},
14999	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15000	RowBox[{"-",
15001	FractionBox[
15002	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
15003	RowBox[{"(",
15004	RowBox[{"MTP", "-",
15005	FormBox[
15006	SuperscriptBox["MTP", "\[Dagger]"],
15007	TraditionalForm]}], ")"}], " ",
15008	FormBox[
15009	SubscriptBox["\[Delta]",
15010	RowBox[{
15011	FormBox[
15012	SubscriptBox["\<\"i\"\>", "2"],
15013	TraditionalForm], ",",
15014	FormBox[
15015	SubscriptBox["\<\"i\"\>", "3"],
15016	TraditionalForm]}]],
15017	TraditionalForm], " ",
15018	RowBox[{"(",
15019	RowBox[{
15020	RowBox[{"KTtLh", " ",
15021	FormBox[
15022	SubscriptBox[
15023	SubscriptBox["P", "\<\"-\"\>"],
15024	RowBox[{
15025	FormBox[
15026	SubscriptBox["\<\"s\"\>", "2"],
15027	TraditionalForm], ",",
15028	FormBox[
15029	SubscriptBox["\<\"s\"\>", "3"],
15030	TraditionalForm]}]],
15031	TraditionalForm]}], "+",
15032	RowBox[{"KTtRh", " ",
15033	FormBox[
15034	SubscriptBox[
15035	SubscriptBox["P", "\<\"+\"\>"],
15036	RowBox[{
15037	FormBox[
15038	SubscriptBox["\<\"s\"\>", "2"],
15039	TraditionalForm], ",",
15040	FormBox[
15041	SubscriptBox["\<\"s\"\>", "3"],
15042	TraditionalForm]}]],
15043	TraditionalForm]}]}], ")"}]}], "v"]}]},
15044	{
15045	RowBox[{"(", "\[NoBreak]", GridBox[{
15046	{"c", "1"},
15047	{"H", "2"},
15048	{
15049	FormBox[
15050	OverscriptBox["tp", "\<\"-\"\>"],
15051	TraditionalForm], "3"}
15052	},
15053	GridBoxAlignment->{
15054	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
15055	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
15056	GridBoxSpacings->{"Columns" -> {
15057	Offset[0.27999999999999997`], {
15058	Offset[0.7]},
15059	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
15060	"Rows" -> {
15061	Offset[0.2], {
15062	Offset[0.4]},
15063	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15064	RowBox[{"-",
15065	FractionBox[
15066	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
15067	RowBox[{"(",
15068	RowBox[{"MTP", "-",
15069	FormBox[
15070	SuperscriptBox["MTP", "\[Dagger]"],
15071	TraditionalForm]}], ")"}], " ",
15072	FormBox[
15073	SubscriptBox["\[Delta]",
15074	RowBox[{
15075	FormBox[
15076	SubscriptBox["\<\"i\"\>", "1"],
15077	TraditionalForm], ",",
15078	FormBox[
15079	SubscriptBox["\<\"i\"\>", "3"],
15080	TraditionalForm]}]],
15081	TraditionalForm], " ",
15082	RowBox[{"(",
15083	RowBox[{
15084	RowBox[{"KTcRh", " ",
15085	FormBox[
15086	SubscriptBox[
15087	SubscriptBox["P", "\<\"-\"\>"],
15088	RowBox[{
15089	FormBox[
15090	SubscriptBox["\<\"s\"\>", "3"],
15091	TraditionalForm], ",",
15092	FormBox[
15093	SubscriptBox["\<\"s\"\>", "1"],
15094	TraditionalForm]}]],
15095	TraditionalForm]}], "+",
15096	RowBox[{"KTcLh", " ",
15097	FormBox[
15098	SubscriptBox[
15099	SubscriptBox["P", "\<\"+\"\>"],
15100	RowBox[{
15101	FormBox[
15102	SubscriptBox["\<\"s\"\>", "3"],
15103	TraditionalForm], ",",
15104	FormBox[
15105	SubscriptBox["\<\"s\"\>", "1"],
15106	TraditionalForm]}]],
15107	TraditionalForm]}]}], ")"}]}], "v"]}]},
15108	{
15109	RowBox[{"(", "\[NoBreak]", GridBox[{
15110	{"H", "1"},
15111	{"t", "2"},
15112	{
15113	FormBox[
15114	OverscriptBox["tp", "\<\"-\"\>"],
15115	TraditionalForm], "3"}
15116	},
15117	GridBoxAlignment->{
15118	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
15119	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
15120	GridBoxSpacings->{"Columns" -> {
15121	Offset[0.27999999999999997`], {
15122	Offset[0.7]},
15123	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
15124	"Rows" -> {
15125	Offset[0.2], {
15126	Offset[0.4]},
15127	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15128	RowBox[{"-",
15129	FractionBox[
15130	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
15131	RowBox[{"(",
15132	RowBox[{"MTP", "-",
15133	FormBox[
15134	SuperscriptBox["MTP", "\[Dagger]"],
15135	TraditionalForm]}], ")"}], " ",
15136	FormBox[
15137	SubscriptBox["\[Delta]",
15138	RowBox[{
15139	FormBox[
15140	SubscriptBox["\<\"i\"\>", "2"],
15141	TraditionalForm], ",",
15142	FormBox[
15143	SubscriptBox["\<\"i\"\>", "3"],
15144	TraditionalForm]}]],
15145	TraditionalForm], " ",
15146	RowBox[{"(",
15147	RowBox[{
15148	RowBox[{"KTtRh", " ",
15149	FormBox[
15150	SubscriptBox[
15151	SubscriptBox["P", "\<\"-\"\>"],
15152	RowBox[{
15153	FormBox[
15154	SubscriptBox["\<\"s\"\>", "3"],
15155	TraditionalForm], ",",
15156	FormBox[
15157	SubscriptBox["\<\"s\"\>", "2"],
15158	TraditionalForm]}]],
15159	TraditionalForm]}], "+",
15160	RowBox[{"KTtLh", " ",
15161	FormBox[
15162	SubscriptBox[
15163	SubscriptBox["P", "\<\"+\"\>"],
15164	RowBox[{
15165	FormBox[
15166	SubscriptBox["\<\"s\"\>", "3"],
15167	TraditionalForm], ",",
15168	FormBox[
15169	SubscriptBox["\<\"s\"\>", "2"],
15170	TraditionalForm]}]],
15171	TraditionalForm]}]}], ")"}]}], "v"]}]},
15172	{
15173	RowBox[{"(", "\[NoBreak]", GridBox[{
15174	{"H", "1"},
15175	{
15176	FormBox[
15177	OverscriptBox["tp", "\<\"-\"\>"],
15178	TraditionalForm], "2"},
15179	{"u", "3"}
15180	},
15181	GridBoxAlignment->{
15182	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
15183	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
15184	GridBoxSpacings->{"Columns" -> {
15185	Offset[0.27999999999999997`], {
15186	Offset[0.7]},
15187	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
15188	"Rows" -> {
15189	Offset[0.2], {
15190	Offset[0.4]},
15191	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15192	RowBox[{"-",
15193	FractionBox[
15194	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
15195	RowBox[{"(",
15196	RowBox[{"MTP", "-",
15197	FormBox[
15198	SuperscriptBox["MTP", "\[Dagger]"],
15199	TraditionalForm]}], ")"}], " ",
15200	FormBox[
15201	SubscriptBox["\[Delta]",
15202	RowBox[{
15203	FormBox[
15204	SubscriptBox["\<\"i\"\>", "2"],
15205	TraditionalForm], ",",
15206	FormBox[
15207	SubscriptBox["\<\"i\"\>", "3"],
15208	TraditionalForm]}]],
15209	TraditionalForm], " ",
15210	RowBox[{"(",
15211	RowBox[{
15212	RowBox[{"KTuRh", " ",
15213	FormBox[
15214	SubscriptBox[
15215	SubscriptBox["P", "\<\"-\"\>"],
15216	RowBox[{
15217	FormBox[
15218	SubscriptBox["\<\"s\"\>", "2"],
15219	TraditionalForm], ",",
15220	FormBox[
15221	SubscriptBox["\<\"s\"\>", "3"],
15222	TraditionalForm]}]],
15223	TraditionalForm]}], "+",
15224	RowBox[{"KTuLh", " ",
15225	FormBox[
15226	SubscriptBox[
15227	SubscriptBox["P", "\<\"+\"\>"],
15228	RowBox[{
15229	FormBox[
15230	SubscriptBox["\<\"s\"\>", "2"],
15231	TraditionalForm], ",",
15232	FormBox[
15233	SubscriptBox["\<\"s\"\>", "3"],
15234	TraditionalForm]}]],
15235	TraditionalForm]}]}], ")"}]}], "v"]}]},
15236	{
15237	RowBox[{"(", "\[NoBreak]", GridBox[{
15238	{"H", "1"},
15239	{"tp", "2"},
15240	{
15241	FormBox[
15242	OverscriptBox["u", "\<\"-\"\>"],
15243	TraditionalForm], "3"}
15244	},
15245	GridBoxAlignment->{
15246	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
15247	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
15248	GridBoxSpacings->{"Columns" -> {
15249	Offset[0.27999999999999997`], {
15250	Offset[0.7]},
15251	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {},
15252	"Rows" -> {
15253	Offset[0.2], {
15254	Offset[0.4]},
15255	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15256	RowBox[{"-",
15257	FractionBox[
15258	RowBox[{"\[ImaginaryI]", " ", "KT", " ",
15259	RowBox[{"(",
15260	RowBox[{"MTP", "-",
15261	FormBox[
15262	SuperscriptBox["MTP", "\[Dagger]"],
15263	TraditionalForm]}], ")"}], " ",
15264	FormBox[
15265	SubscriptBox["\[Delta]",
15266	RowBox[{
15267	FormBox[
15268	SubscriptBox["\<\"i\"\>", "2"],
15269	TraditionalForm], ",",
15270	FormBox[
15271	SubscriptBox["\<\"i\"\>", "3"],
15272	TraditionalForm]}]],
15273	TraditionalForm], " ",
15274	RowBox[{"(",
15275	RowBox[{
15276	RowBox[{"KTuLh", " ",
15277	FormBox[
15278	SubscriptBox[
15279	SubscriptBox["P", "\<\"-\"\>"],
15280	RowBox[{
15281	FormBox[
15282	SubscriptBox["\<\"s\"\>", "3"],
15283	TraditionalForm], ",",
15284	FormBox[
15285	SubscriptBox["\<\"s\"\>", "2"],
15286	TraditionalForm]}]],
15287	TraditionalForm]}], "+",
15288	RowBox[{"KTuRh", " ",
15289	FormBox[
15290	SubscriptBox[
15291	SubscriptBox["P", "\<\"+\"\>"],
15292	RowBox[{
15293	FormBox[
15294	SubscriptBox["\<\"s\"\>", "3"],
15295	TraditionalForm], ",",
15296	FormBox[
15297	SubscriptBox["\<\"s\"\>", "2"],
15298	TraditionalForm]}]],
15299	TraditionalForm]}]}], ")"}]}], "v"]}]}
15300	},
15301	GridBoxAlignment->{
15302	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
15303	"RowsIndexed" -> {}},
15304	GridBoxSpacings->{"Columns" -> {
15305	Offset[0.27999999999999997`], {
15306	Offset[0.7]},
15307	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
15308	Offset[0.2], {
15309	Offset[0.4]},
15310	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
15311	TraditionalForm]], "Output",
15312	CellChangeTimes->{3.571984733741376^9, 3.5721967642922955`^9,
15313	3.5730661334836903`^9, 3.5730668970701537`^9, 3.5743119935818367`*^9,
15314	3.574507259933626^9, 3.574508216164549^9, 3.5747635121739535`*^9,
15315	3.574764858812977^9, 3.575086592161686^9, 3.575181243760827*^9,
15316	3.575184862126611^9, 3.575189256080598^9, 3.5751895218418446`*^9,
15317	3.5810872399704113`^9, 3.5817057757914267`^9, 3.581706690041521*^9},
15318	FontSize->7]
15319	}, Open ]]
15320	}, Open ]],
15321
15322	Cell[CellGroupData[{
15323
15324	Cell["Partial Widths", "Subsection",
15325	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}, {
15326	3.5745083801218367`^9, 3.5745083815726395`^9}, {3.574763732028528*^9,
15327	3.574763733336603^9}, {3.5747639342440944`^9, 3.574763936407218*^9}},
15328	FontSize->9],
15329
15330	Cell[CellGroupData[{
15331
15332	Cell[BoxData[{
15333	RowBox[{
15334	RowBox[{"Widths", "=",
15335	RowBox[{
15336	RowBox[{
15337	RowBox[{"FeynmanRules", "[", "LVLQ", "]"}], "//", "FlavorExpansion"}], "//",
15338	"ComputeWidths"}]}], ";"}], "\[IndentingNewLine]",
15339	ButtonBox["FR$PartialWidths",
15340	BaseStyle->"InformationLink",
15341	ButtonData:>{"Info3574771045-2097307", {"FR$PartialWidths", "FeynRules`"}},
15342	ButtonNote->"FeynRules`"], "\[IndentingNewLine]",
15343	RowBox[{
15344	RowBox[{"(*", "\[IndentingNewLine]",
15345	RowBox[{
15346	RowBox[{"Verts", "=",
15347	RowBox[{"FeynmanRules", "[", "LVLQ", "]"}]}], ";", "\[IndentingNewLine]",
15348	RowBox[{"VertsExp", "=",
15349	RowBox[{"FlavorExpansion", "[", "Verts", "]"}]}], ";",
15350	"\[IndentingNewLine]",
15351	RowBox[{"Results", "=",
15352	RowBox[{"ComputeWidths", "[", "VertsExp", "]"}]}]}],
15353	"\[IndentingNewLine]", "*)"}]}]}], "Input",
15354	CellChangeTimes->{{3.574317723280984^9, 3.5743177571712875`^9}, {
15355	3.5743177993721457`^9, 3.5743178016929407`^9}, {3.57431788366835*^9,
15356	3.574317884254425^9}, {3.5745083532585897`^9, 3.5745083534769897`*^9}, {
15357	3.57476379184595^9, 3.5747638529254436`^9}, {3.574763906929532*^9,
15358	3.574763921716378*^9}},
15359	FontSize->8],
15360
15361	Cell[CellGroupData[{
15362
15363	Cell[BoxData[
15364	FormBox["\<\"Starting Feynman rule calculation.\"\>",
15365	TraditionalForm]], "Print",
15366	CellChangeTimes->{3.581705775919442^9, 3.581706690160036^9}],
15367
15368	Cell[BoxData[
15369	FormBox["\<\"Collecting the different structures that enter the \
15370	vertex...\"\>", TraditionalForm]], "Print",
15371	CellChangeTimes->{3.581705775919442^9, 3.581706691668728^9}],
15372
15373	Cell[BoxData[
15374	FormBox[
15375	InterpretationBox[
15376	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"56\"\>",
15377	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
15378	SequenceForm["Found ", "56", " possible non zero vertices."],
15379	Editable->False], TraditionalForm]], "Print",
15380	CellChangeTimes->{3.581705775919442^9, 3.581706691774741^9}],
15381
15382	Cell[BoxData[
15383	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
15384	CellChangeTimes->{3.581705775919442^9, 3.5817066917797422`^9}],
15385
15386	Cell[BoxData[
15387	FormBox[
15388	ProgressIndicatorBox[Dynamic[PRIVATE`progress$2413]],
15389	TraditionalForm]], "Print",
15390	CellChangeTimes->{3.581705775919442^9, 3.5817066917907434`^9}],
15391
15392	Cell[BoxData[
15393	FormBox[
15394	InterpretationBox[
15395	RowBox[{"56", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
15396	SequenceForm[56, " vertices obtained."],
15397	Editable->False], TraditionalForm]], "Print",
15398	CellChangeTimes->{3.581705775919442^9, 3.5817066938275023`^9}],
15399
15400	Cell[BoxData[
15401	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15402	* * * *)\"\>", TraditionalForm]], "Print",
15403	CellChangeTimes->{3.581705775919442^9, 3.5817066938345027`^9}],
15404
15405	Cell[BoxData[
15406	FormBox[
15407	InterpretationBox[
15408	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "1"}],
15409	SequenceForm["Vertex ", 1],
15410	Editable->False], TraditionalForm]], "Print",
15411	CellChangeTimes->{3.581705775919442^9, 3.581706693842004^9}],
15412
15413	Cell[BoxData[
15414	FormBox[
15415	InterpretationBox[
15416	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15417	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15418	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15419	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15420	Editable->False], TraditionalForm]], "Print",
15421	CellChangeTimes->{3.581705775919442^9, 3.5817066938490047`^9}],
15422
15423	Cell[BoxData[
15424	FormBox[
15425	InterpretationBox[
15426	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15427	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15428	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
15429	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
15430	Editable->False], TraditionalForm]], "Print",
15431	CellChangeTimes->{3.581705775919442^9, 3.581706693868007^9}],
15432
15433	Cell[BoxData[
15434	FormBox[
15435	InterpretationBox[
15436	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15437	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15438	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15439	FormBox[
15440	OverscriptBox["bp", "\<\"-\"\>"],
15441	TraditionalForm]}],
15442	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bpbar],
15443	Editable->False], TraditionalForm]], "Print",
15444	CellChangeTimes->{3.581705775919442^9, 3.5817066938720074`^9}],
15445
15446	Cell[BoxData[
15447	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15448	CellChangeTimes->{3.581705775919442^9, 3.5817066938755083`^9}],
15449
15450	Cell[BoxData[
15451	FormBox[
15452	RowBox[{
15453	RowBox[{"-",
15454	FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ",
15455	FormBox["e",
15456	TraditionalForm], " ",
15457	FormBox[
15458	SubscriptBox["\[Delta]",
15459	RowBox[{
15460	FormBox[
15461	SubscriptBox["\<\"i\"\>", "2"],
15462	TraditionalForm], ",",
15463	FormBox[
15464	SubscriptBox["\<\"i\"\>", "3"],
15465	TraditionalForm]}]],
15466	TraditionalForm], " ",
15467	FormBox[
15468	SubsuperscriptBox["\[Gamma]",
15469	RowBox[{
15470	FormBox[
15471	SubscriptBox["\<\"s\"\>", "3"],
15472	TraditionalForm], ",",
15473	FormBox[
15474	SubscriptBox["\<\"s\"\>", "2"],
15475	TraditionalForm]}],
15476	FormBox[
15477	SubscriptBox["\<\"\[Mu]\"\>", "1"],
15478	TraditionalForm]],
15479	TraditionalForm]}], TraditionalForm]], "Print",
15480	CellChangeTimes->{3.581705775919442^9, 3.5817066938800087`^9}],
15481
15482	Cell[BoxData[
15483	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15484	* * * *)\"\>", TraditionalForm]], "Print",
15485	CellChangeTimes->{3.581705775919442^9, 3.58170669389051^9}],
15486
15487	Cell[BoxData[
15488	FormBox[
15489	InterpretationBox[
15490	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "2"}],
15491	SequenceForm["Vertex ", 2],
15492	Editable->False], TraditionalForm]], "Print",
15493	CellChangeTimes->{3.581705775919442^9, 3.5817066938935103`^9}],
15494
15495	Cell[BoxData[
15496	FormBox[
15497	InterpretationBox[
15498	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15499	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15500	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15501	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15502	Editable->False], TraditionalForm]], "Print",
15503	CellChangeTimes->{3.581705775919442^9, 3.581706693897011^9}],
15504
15505	Cell[BoxData[
15506	FormBox[
15507	InterpretationBox[
15508	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15509	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15510	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
15511	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
15512	Editable->False], TraditionalForm]], "Print",
15513	CellChangeTimes->{3.581705775919442^9, 3.5817066939005113`^9}],
15514
15515	Cell[BoxData[
15516	FormBox[
15517	InterpretationBox[
15518	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15519	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15520	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15521	FormBox[
15522	OverscriptBox["tp", "\<\"-\"\>"],
15523	TraditionalForm]}],
15524	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
15525	Editable->False], TraditionalForm]], "Print",
15526	CellChangeTimes->{3.581705775919442^9, 3.5817066939040117`^9}],
15527
15528	Cell[BoxData[
15529	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15530	CellChangeTimes->{3.581705775919442^9, 3.581706693913513^9}],
15531
15532	Cell[BoxData[
15533	FormBox[
15534	RowBox[{
15535	FractionBox["2", "3"], " ", "\[ImaginaryI]", " ",
15536	FormBox["e",
15537	TraditionalForm], " ",
15538	FormBox[
15539	SubscriptBox["\[Delta]",
15540	RowBox[{
15541	FormBox[
15542	SubscriptBox["\<\"i\"\>", "2"],
15543	TraditionalForm], ",",
15544	FormBox[
15545	SubscriptBox["\<\"i\"\>", "3"],
15546	TraditionalForm]}]],
15547	TraditionalForm], " ",
15548	FormBox[
15549	SubsuperscriptBox["\[Gamma]",
15550	RowBox[{
15551	FormBox[
15552	SubscriptBox["\<\"s\"\>", "3"],
15553	TraditionalForm], ",",
15554	FormBox[
15555	SubscriptBox["\<\"s\"\>", "2"],
15556	TraditionalForm]}],
15557	FormBox[
15558	SubscriptBox["\<\"\[Mu]\"\>", "1"],
15559	TraditionalForm]],
15560	TraditionalForm]}], TraditionalForm]], "Print",
15561	CellChangeTimes->{3.581705775919442^9, 3.5817066939165134`^9}],
15562
15563	Cell[BoxData[
15564	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15565	* * * *)\"\>", TraditionalForm]], "Print",
15566	CellChangeTimes->{3.581705775919442^9, 3.581706693920014^9}],
15567
15568	Cell[BoxData[
15569	FormBox[
15570	InterpretationBox[
15571	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "3"}],
15572	SequenceForm["Vertex ", 3],
15573	Editable->False], TraditionalForm]], "Print",
15574	CellChangeTimes->{3.581705775919442^9, 3.581706693923014^9}],
15575
15576	Cell[BoxData[
15577	FormBox[
15578	InterpretationBox[
15579	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15580	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15581	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15582	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15583	Editable->False], TraditionalForm]], "Print",
15584	CellChangeTimes->{3.581705775919442^9, 3.581706693926015^9}],
15585
15586	Cell[BoxData[
15587	FormBox[
15588	InterpretationBox[
15589	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15590	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15591	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
15592	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`x],
15593	Editable->False], TraditionalForm]], "Print",
15594	CellChangeTimes->{3.581705775919442^9, 3.5817066939290147`^9}],
15595
15596	Cell[BoxData[
15597	FormBox[
15598	InterpretationBox[
15599	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15600	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15601	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15602	FormBox[
15603	OverscriptBox["x", "\<\"-\"\>"],
15604	TraditionalForm]}],
15605	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
15606	Editable->False], TraditionalForm]], "Print",
15607	CellChangeTimes->{3.581705775919442^9, 3.581706693937516^9}],
15608
15609	Cell[BoxData[
15610	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15611	CellChangeTimes->{3.581705775919442^9, 3.581706693941016^9}],
15612
15613	Cell[BoxData[
15614	FormBox[
15615	RowBox[{
15616	FractionBox["5", "3"], " ", "\[ImaginaryI]", " ",
15617	FormBox["e",
15618	TraditionalForm], " ",
15619	FormBox[
15620	SubscriptBox["\[Delta]",
15621	RowBox[{
15622	FormBox[
15623	SubscriptBox["\<\"i\"\>", "2"],
15624	TraditionalForm], ",",
15625	FormBox[
15626	SubscriptBox["\<\"i\"\>", "3"],
15627	TraditionalForm]}]],
15628	TraditionalForm], " ",
15629	FormBox[
15630	SubsuperscriptBox["\[Gamma]",
15631	RowBox[{
15632	FormBox[
15633	SubscriptBox["\<\"s\"\>", "3"],
15634	TraditionalForm], ",",
15635	FormBox[
15636	SubscriptBox["\<\"s\"\>", "2"],
15637	TraditionalForm]}],
15638	FormBox[
15639	SubscriptBox["\<\"\[Mu]\"\>", "1"],
15640	TraditionalForm]],
15641	TraditionalForm]}], TraditionalForm]], "Print",
15642	CellChangeTimes->{3.581705775919442^9, 3.5817066939440165`^9}],
15643
15644	Cell[BoxData[
15645	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15646	* * * *)\"\>", TraditionalForm]], "Print",
15647	CellChangeTimes->{3.581705775919442^9, 3.5817066939475174`^9}],
15648
15649	Cell[BoxData[
15650	FormBox[
15651	InterpretationBox[
15652	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "4"}],
15653	SequenceForm["Vertex ", 4],
15654	Editable->False], TraditionalForm]], "Print",
15655	CellChangeTimes->{3.581705775919442^9, 3.5817066939510174`^9}],
15656
15657	Cell[BoxData[
15658	FormBox[
15659	InterpretationBox[
15660	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15661	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
15662	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
15663	SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
15664	Editable->False], TraditionalForm]], "Print",
15665	CellChangeTimes->{3.581705775919442^9, 3.581706693954018^9}],
15666
15667	Cell[BoxData[
15668	FormBox[
15669	InterpretationBox[
15670	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15671	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15672	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
15673	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`y],
15674	Editable->False], TraditionalForm]], "Print",
15675	CellChangeTimes->{3.581705775919442^9, 3.5817066939630194`^9}],
15676
15677	Cell[BoxData[
15678	FormBox[
15679	InterpretationBox[
15680	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15681	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15682	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15683	FormBox[
15684	OverscriptBox["y", "\<\"-\"\>"],
15685	TraditionalForm]}],
15686	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
15687	Editable->False], TraditionalForm]], "Print",
15688	CellChangeTimes->{3.581705775919442^9, 3.5817066939660196`^9}],
15689
15690	Cell[BoxData[
15691	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15692	CellChangeTimes->{3.581705775919442^9, 3.58170669396952^9}],
15693
15694	Cell[BoxData[
15695	FormBox[
15696	RowBox[{
15697	RowBox[{"-",
15698	FractionBox["4", "3"]}], " ", "\[ImaginaryI]", " ",
15699	FormBox["e",
15700	TraditionalForm], " ",
15701	FormBox[
15702	SubscriptBox["\[Delta]",
15703	RowBox[{
15704	FormBox[
15705	SubscriptBox["\<\"i\"\>", "2"],
15706	TraditionalForm], ",",
15707	FormBox[
15708	SubscriptBox["\<\"i\"\>", "3"],
15709	TraditionalForm]}]],
15710	TraditionalForm], " ",
15711	FormBox[
15712	SubsuperscriptBox["\[Gamma]",
15713	RowBox[{
15714	FormBox[
15715	SubscriptBox["\<\"s\"\>", "3"],
15716	TraditionalForm], ",",
15717	FormBox[
15718	SubscriptBox["\<\"s\"\>", "2"],
15719	TraditionalForm]}],
15720	FormBox[
15721	SubscriptBox["\<\"\[Mu]\"\>", "1"],
15722	TraditionalForm]],
15723	TraditionalForm]}], TraditionalForm]], "Print",
15724	CellChangeTimes->{3.581705775919442^9, 3.581706693974021^9}],
15725
15726	Cell[BoxData[
15727	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15728	* * * *)\"\>", TraditionalForm]], "Print",
15729	CellChangeTimes->{3.581705775919442^9, 3.581706693979021^9}],
15730
15731	Cell[BoxData[
15732	FormBox[
15733	InterpretationBox[
15734	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "5"}],
15735	SequenceForm["Vertex ", 5],
15736	Editable->False], TraditionalForm]], "Print",
15737	CellChangeTimes->{3.581705775919442^9, 3.5817066939890223`^9}],
15738
15739	Cell[BoxData[
15740	FormBox[
15741	InterpretationBox[
15742	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15743	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15744	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15745	FormBox[
15746	OverscriptBox["b", "\<\"-\"\>"],
15747	TraditionalForm]}],
15748	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
15749	Editable->False], TraditionalForm]], "Print",
15750	CellChangeTimes->{3.581705775919442^9, 3.5817066939920225`^9}],
15751
15752	Cell[BoxData[
15753	FormBox[
15754	InterpretationBox[
15755	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15756	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15757	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
15758	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
15759	Editable->False], TraditionalForm]], "Print",
15760	CellChangeTimes->{3.581705775919442^9, 3.581706693996524^9}],
15761
15762	Cell[BoxData[
15763	FormBox[
15764	InterpretationBox[
15765	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15766	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
15767	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
15768	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
15769	Editable->False], TraditionalForm]], "Print",
15770	CellChangeTimes->{3.581705775919442^9, 3.581706693999524^9}],
15771
15772	Cell[BoxData[
15773	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15774	CellChangeTimes->{3.581705775919442^9, 3.5817066940035243`^9}],
15775
15776	Cell[BoxData[
15777	FormBox[
15778	RowBox[{
15779	RowBox[{"-",
15780	FractionBox[
15781	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLh", " ", "MBP", " ",
15782	FormBox[
15783	SubscriptBox["\[Delta]",
15784	RowBox[{
15785	FormBox[
15786	SubscriptBox["\<\"i\"\>", "1"],
15787	TraditionalForm], ",",
15788	FormBox[
15789	SubscriptBox["\<\"i\"\>", "2"],
15790	TraditionalForm]}]],
15791	TraditionalForm], " ",
15792	FormBox[
15793	SubscriptBox[
15794	SubscriptBox["P", "\<\"-\"\>"],
15795	RowBox[{
15796	FormBox[
15797	SubscriptBox["\<\"s\"\>", "1"],
15798	TraditionalForm], ",",
15799	FormBox[
15800	SubscriptBox["\<\"s\"\>", "2"],
15801	TraditionalForm]}]],
15802	TraditionalForm]}], "v"]}], "-",
15803	FractionBox[
15804	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRh", " ", "MBP", " ",
15805	FormBox[
15806	SubscriptBox["\[Delta]",
15807	RowBox[{
15808	FormBox[
15809	SubscriptBox["\<\"i\"\>", "1"],
15810	TraditionalForm], ",",
15811	FormBox[
15812	SubscriptBox["\<\"i\"\>", "2"],
15813	TraditionalForm]}]],
15814	TraditionalForm], " ",
15815	FormBox[
15816	SubscriptBox[
15817	SubscriptBox["P", "\<\"+\"\>"],
15818	RowBox[{
15819	FormBox[
15820	SubscriptBox["\<\"s\"\>", "1"],
15821	TraditionalForm], ",",
15822	FormBox[
15823	SubscriptBox["\<\"s\"\>", "2"],
15824	TraditionalForm]}]],
15825	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
15826	CellChangeTimes->{3.581705775919442^9, 3.5817066940135255`^9}],
15827
15828	Cell[BoxData[
15829	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15830	* * * *)\"\>", TraditionalForm]], "Print",
15831	CellChangeTimes->{3.581705775919442^9, 3.5817066940180264`^9}],
15832
15833	Cell[BoxData[
15834	FormBox[
15835	InterpretationBox[
15836	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "6"}],
15837	SequenceForm["Vertex ", 6],
15838	Editable->False], TraditionalForm]], "Print",
15839	CellChangeTimes->{3.581705775919442^9, 3.581706694021527^9}],
15840
15841	Cell[BoxData[
15842	FormBox[
15843	InterpretationBox[
15844	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15845	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15846	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
15847	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
15848	Editable->False], TraditionalForm]], "Print",
15849	CellChangeTimes->{3.581705775919442^9, 3.581706694026027^9}],
15850
15851	Cell[BoxData[
15852	FormBox[
15853	InterpretationBox[
15854	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15855	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15856	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15857	FormBox[
15858	OverscriptBox["bp", "\<\"-\"\>"],
15859	TraditionalForm]}],
15860	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
15861	Editable->False], TraditionalForm]], "Print",
15862	CellChangeTimes->{3.581705775919442^9, 3.581706694031028^9}],
15863
15864	Cell[BoxData[
15865	FormBox[
15866	InterpretationBox[
15867	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15868	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
15869	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
15870	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
15871	Editable->False], TraditionalForm]], "Print",
15872	CellChangeTimes->{3.581705775919442^9, 3.581706694039029^9}],
15873
15874	Cell[BoxData[
15875	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15876	CellChangeTimes->{3.581705775919442^9, 3.581706694042529^9}],
15877
15878	Cell[BoxData[
15879	FormBox[
15880	RowBox[{
15881	RowBox[{"-",
15882	FractionBox[
15883	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRh", " ", "MBP", " ",
15884	FormBox[
15885	SubscriptBox["\[Delta]",
15886	RowBox[{
15887	FormBox[
15888	SubscriptBox["\<\"i\"\>", "1"],
15889	TraditionalForm], ",",
15890	FormBox[
15891	SubscriptBox["\<\"i\"\>", "2"],
15892	TraditionalForm]}]],
15893	TraditionalForm], " ",
15894	FormBox[
15895	SubscriptBox[
15896	SubscriptBox["P", "\<\"-\"\>"],
15897	RowBox[{
15898	FormBox[
15899	SubscriptBox["\<\"s\"\>", "2"],
15900	TraditionalForm], ",",
15901	FormBox[
15902	SubscriptBox["\<\"s\"\>", "1"],
15903	TraditionalForm]}]],
15904	TraditionalForm]}], "v"]}], "-",
15905	FractionBox[
15906	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLh", " ", "MBP", " ",
15907	FormBox[
15908	SubscriptBox["\[Delta]",
15909	RowBox[{
15910	FormBox[
15911	SubscriptBox["\<\"i\"\>", "1"],
15912	TraditionalForm], ",",
15913	FormBox[
15914	SubscriptBox["\<\"i\"\>", "2"],
15915	TraditionalForm]}]],
15916	TraditionalForm], " ",
15917	FormBox[
15918	SubscriptBox[
15919	SubscriptBox["P", "\<\"+\"\>"],
15920	RowBox[{
15921	FormBox[
15922	SubscriptBox["\<\"s\"\>", "2"],
15923	TraditionalForm], ",",
15924	FormBox[
15925	SubscriptBox["\<\"s\"\>", "1"],
15926	TraditionalForm]}]],
15927	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
15928	CellChangeTimes->{3.581705775919442^9, 3.5817066940455294`^9}],
15929
15930	Cell[BoxData[
15931	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
15932	* * * *)\"\>", TraditionalForm]], "Print",
15933	CellChangeTimes->{3.581705775919442^9, 3.5817066940505304`^9}],
15934
15935	Cell[BoxData[
15936	FormBox[
15937	InterpretationBox[
15938	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "7"}],
15939	SequenceForm["Vertex ", 7],
15940	Editable->False], TraditionalForm]], "Print",
15941	CellChangeTimes->{3.581705775919442^9, 3.581706694055531^9}],
15942
15943	Cell[BoxData[
15944	FormBox[
15945	InterpretationBox[
15946	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
15947	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15948	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
15949	FormBox[
15950	OverscriptBox["bp", "\<\"-\"\>"],
15951	TraditionalForm]}],
15952	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
15953	Editable->False], TraditionalForm]], "Print",
15954	CellChangeTimes->{3.581705775919442^9, 3.5817066940645323`^9}],
15955
15956	Cell[BoxData[
15957	FormBox[
15958	InterpretationBox[
15959	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
15960	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
15961	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
15962	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
15963	Editable->False], TraditionalForm]], "Print",
15964	CellChangeTimes->{3.581705775919442^9, 3.5817066940680323`^9}],
15965
15966	Cell[BoxData[
15967	FormBox[
15968	InterpretationBox[
15969	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
15970	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
15971	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
15972	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
15973	Editable->False], TraditionalForm]], "Print",
15974	CellChangeTimes->{3.581705775919442^9, 3.581706694071033^9}],
15975
15976	Cell[BoxData[
15977	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
15978	CellChangeTimes->{3.581705775919442^9, 3.5817066940750337`^9}],
15979
15980	Cell[BoxData[
15981	FormBox[
15982	RowBox[{
15983	RowBox[{"-",
15984	FractionBox[
15985	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRh", " ", "MBP", " ",
15986	FormBox[
15987	SubscriptBox["\[Delta]",
15988	RowBox[{
15989	FormBox[
15990	SubscriptBox["\<\"i\"\>", "1"],
15991	TraditionalForm], ",",
15992	FormBox[
15993	SubscriptBox["\<\"i\"\>", "2"],
15994	TraditionalForm]}]],
15995	TraditionalForm], " ",
15996	FormBox[
15997	SubscriptBox[
15998	SubscriptBox["P", "\<\"-\"\>"],
15999	RowBox[{
16000	FormBox[
16001	SubscriptBox["\<\"s\"\>", "1"],
16002	TraditionalForm], ",",
16003	FormBox[
16004	SubscriptBox["\<\"s\"\>", "2"],
16005	TraditionalForm]}]],
16006	TraditionalForm]}], "v"]}], "-",
16007	FractionBox[
16008	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLh", " ", "MBP", " ",
16009	FormBox[
16010	SubscriptBox["\[Delta]",
16011	RowBox[{
16012	FormBox[
16013	SubscriptBox["\<\"i\"\>", "1"],
16014	TraditionalForm], ",",
16015	FormBox[
16016	SubscriptBox["\<\"i\"\>", "2"],
16017	TraditionalForm]}]],
16018	TraditionalForm], " ",
16019	FormBox[
16020	SubscriptBox[
16021	SubscriptBox["P", "\<\"+\"\>"],
16022	RowBox[{
16023	FormBox[
16024	SubscriptBox["\<\"s\"\>", "1"],
16025	TraditionalForm], ",",
16026	FormBox[
16027	SubscriptBox["\<\"s\"\>", "2"],
16028	TraditionalForm]}]],
16029	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16030	CellChangeTimes->{3.581705775919442^9, 3.5817066940800343`^9}],
16031
16032	Cell[BoxData[
16033	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16034	* * * *)\"\>", TraditionalForm]], "Print",
16035	CellChangeTimes->{3.581705775919442^9, 3.581706694089535^9}],
16036
16037	Cell[BoxData[
16038	FormBox[
16039	InterpretationBox[
16040	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "8"}],
16041	SequenceForm["Vertex ", 8],
16042	Editable->False], TraditionalForm]], "Print",
16043	CellChangeTimes->{3.581705775919442^9, 3.5817066940930357`^9}],
16044
16045	Cell[BoxData[
16046	FormBox[
16047	InterpretationBox[
16048	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16049	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16050	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16051	FormBox[
16052	OverscriptBox["bp", "\<\"-\"\>"],
16053	TraditionalForm]}],
16054	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
16055	Editable->False], TraditionalForm]], "Print",
16056	CellChangeTimes->{3.581705775919442^9, 3.581706694096536^9}],
16057
16058	Cell[BoxData[
16059	FormBox[
16060	InterpretationBox[
16061	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16062	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16063	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16064	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
16065	Editable->False], TraditionalForm]], "Print",
16066	CellChangeTimes->{3.581705775919442^9, 3.5817066941000366`^9}],
16067
16068	Cell[BoxData[
16069	FormBox[
16070	InterpretationBox[
16071	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16072	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16073	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
16074	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`s],
16075	Editable->False], TraditionalForm]], "Print",
16076	CellChangeTimes->{3.581705775919442^9, 3.581706694104537^9}],
16077
16078	Cell[BoxData[
16079	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16080	CellChangeTimes->{3.581705775919442^9, 3.5817066941140385`^9}],
16081
16082	Cell[BoxData[
16083	FormBox[
16084	RowBox[{
16085	RowBox[{"-",
16086	FractionBox[
16087	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRh", " ", "MBP", " ",
16088	FormBox[
16089	SubscriptBox["\[Delta]",
16090	RowBox[{
16091	FormBox[
16092	SubscriptBox["\<\"i\"\>", "1"],
16093	TraditionalForm], ",",
16094	FormBox[
16095	SubscriptBox["\<\"i\"\>", "3"],
16096	TraditionalForm]}]],
16097	TraditionalForm], " ",
16098	FormBox[
16099	SubscriptBox[
16100	SubscriptBox["P", "\<\"-\"\>"],
16101	RowBox[{
16102	FormBox[
16103	SubscriptBox["\<\"s\"\>", "1"],
16104	TraditionalForm], ",",
16105	FormBox[
16106	SubscriptBox["\<\"s\"\>", "3"],
16107	TraditionalForm]}]],
16108	TraditionalForm]}], "v"]}], "-",
16109	FractionBox[
16110	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLh", " ", "MBP", " ",
16111	FormBox[
16112	SubscriptBox["\[Delta]",
16113	RowBox[{
16114	FormBox[
16115	SubscriptBox["\<\"i\"\>", "1"],
16116	TraditionalForm], ",",
16117	FormBox[
16118	SubscriptBox["\<\"i\"\>", "3"],
16119	TraditionalForm]}]],
16120	TraditionalForm], " ",
16121	FormBox[
16122	SubscriptBox[
16123	SubscriptBox["P", "\<\"+\"\>"],
16124	RowBox[{
16125	FormBox[
16126	SubscriptBox["\<\"s\"\>", "1"],
16127	TraditionalForm], ",",
16128	FormBox[
16129	SubscriptBox["\<\"s\"\>", "3"],
16130	TraditionalForm]}]],
16131	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16132	CellChangeTimes->{3.581705775919442^9, 3.5817066941170387`^9}],
16133
16134	Cell[BoxData[
16135	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16136	* * * *)\"\>", TraditionalForm]], "Print",
16137	CellChangeTimes->{3.581705775919442^9, 3.581706694121539^9}],
16138
16139	Cell[BoxData[
16140	FormBox[
16141	InterpretationBox[
16142	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "9"}],
16143	SequenceForm["Vertex ", 9],
16144	Editable->False], TraditionalForm]], "Print",
16145	CellChangeTimes->{3.581705775919442^9, 3.58170669412454^9}],
16146
16147	Cell[BoxData[
16148	FormBox[
16149	InterpretationBox[
16150	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16151	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16152	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16153	FormBox[
16154	OverscriptBox["c", "\<\"-\"\>"],
16155	TraditionalForm]}],
16156	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
16157	Editable->False], TraditionalForm]], "Print",
16158	CellChangeTimes->{3.581705775919442^9, 3.5817066941285405`^9}],
16159
16160	Cell[BoxData[
16161	FormBox[
16162	InterpretationBox[
16163	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16164	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16165	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16166	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
16167	Editable->False], TraditionalForm]], "Print",
16168	CellChangeTimes->{3.581705775919442^9, 3.5817066941380415`^9}],
16169
16170	Cell[BoxData[
16171	FormBox[
16172	InterpretationBox[
16173	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16174	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16175	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
16176	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tp],
16177	Editable->False], TraditionalForm]], "Print",
16178	CellChangeTimes->{3.581705775919442^9, 3.581706694141542^9}],
16179
16180	Cell[BoxData[
16181	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16182	CellChangeTimes->{3.581705775919442^9, 3.5817066941450424`^9}],
16183
16184	Cell[BoxData[
16185	FormBox[
16186	RowBox[{
16187	RowBox[{"-",
16188	FractionBox[
16189	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLh", " ", "MTP", " ",
16190	FormBox[
16191	SubscriptBox["\[Delta]",
16192	RowBox[{
16193	FormBox[
16194	SubscriptBox["\<\"i\"\>", "1"],
16195	TraditionalForm], ",",
16196	FormBox[
16197	SubscriptBox["\<\"i\"\>", "3"],
16198	TraditionalForm]}]],
16199	TraditionalForm], " ",
16200	FormBox[
16201	SubscriptBox[
16202	SubscriptBox["P", "\<\"-\"\>"],
16203	RowBox[{
16204	FormBox[
16205	SubscriptBox["\<\"s\"\>", "1"],
16206	TraditionalForm], ",",
16207	FormBox[
16208	SubscriptBox["\<\"s\"\>", "3"],
16209	TraditionalForm]}]],
16210	TraditionalForm]}], "v"]}], "-",
16211	FractionBox[
16212	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRh", " ", "MTP", " ",
16213	FormBox[
16214	SubscriptBox["\[Delta]",
16215	RowBox[{
16216	FormBox[
16217	SubscriptBox["\<\"i\"\>", "1"],
16218	TraditionalForm], ",",
16219	FormBox[
16220	SubscriptBox["\<\"i\"\>", "3"],
16221	TraditionalForm]}]],
16222	TraditionalForm], " ",
16223	FormBox[
16224	SubscriptBox[
16225	SubscriptBox["P", "\<\"+\"\>"],
16226	RowBox[{
16227	FormBox[
16228	SubscriptBox["\<\"s\"\>", "1"],
16229	TraditionalForm], ",",
16230	FormBox[
16231	SubscriptBox["\<\"s\"\>", "3"],
16232	TraditionalForm]}]],
16233	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16234	CellChangeTimes->{3.581705775919442^9, 3.5817066941480427`^9}],
16235
16236	Cell[BoxData[
16237	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16238	* * * *)\"\>", TraditionalForm]], "Print",
16239	CellChangeTimes->{3.581705775919442^9, 3.5817066941540437`^9}],
16240
16241	Cell[BoxData[
16242	FormBox[
16243	InterpretationBox[
16244	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "10"}],
16245	SequenceForm["Vertex ", 10],
16246	Editable->False], TraditionalForm]], "Print",
16247	CellChangeTimes->{3.581705775919442^9, 3.581706694164045^9}],
16248
16249	Cell[BoxData[
16250	FormBox[
16251	InterpretationBox[
16252	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16253	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16254	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
16255	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
16256	Editable->False], TraditionalForm]], "Print",
16257	CellChangeTimes->{3.581705775919442^9, 3.5817066941675453`^9}],
16258
16259	Cell[BoxData[
16260	FormBox[
16261	InterpretationBox[
16262	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16263	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16264	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16265	FormBox[
16266	OverscriptBox["d", "\<\"-\"\>"],
16267	TraditionalForm]}],
16268	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
16269	Editable->False], TraditionalForm]], "Print",
16270	CellChangeTimes->{3.581705775919442^9, 3.5817066941720457`^9}],
16271
16272	Cell[BoxData[
16273	FormBox[
16274	InterpretationBox[
16275	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16276	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16277	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16278	SequenceForm["Particle ", 3, " : ", "Scalar", " , ", FeynRules`H],
16279	Editable->False], TraditionalForm]], "Print",
16280	CellChangeTimes->{3.581705775919442^9, 3.5817066941760464`^9}],
16281
16282	Cell[BoxData[
16283	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16284	CellChangeTimes->{3.581705775919442^9, 3.581706694182047^9}],
16285
16286	Cell[BoxData[
16287	FormBox[
16288	RowBox[{
16289	RowBox[{"-",
16290	FractionBox[
16291	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLh", " ", "MBP", " ",
16292	FormBox[
16293	SubscriptBox["\[Delta]",
16294	RowBox[{
16295	FormBox[
16296	SubscriptBox["\<\"i\"\>", "1"],
16297	TraditionalForm], ",",
16298	FormBox[
16299	SubscriptBox["\<\"i\"\>", "2"],
16300	TraditionalForm]}]],
16301	TraditionalForm], " ",
16302	FormBox[
16303	SubscriptBox[
16304	SubscriptBox["P", "\<\"-\"\>"],
16305	RowBox[{
16306	FormBox[
16307	SubscriptBox["\<\"s\"\>", "2"],
16308	TraditionalForm], ",",
16309	FormBox[
16310	SubscriptBox["\<\"s\"\>", "1"],
16311	TraditionalForm]}]],
16312	TraditionalForm]}], "v"]}], "-",
16313	FractionBox[
16314	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRh", " ", "MBP", " ",
16315	FormBox[
16316	SubscriptBox["\[Delta]",
16317	RowBox[{
16318	FormBox[
16319	SubscriptBox["\<\"i\"\>", "1"],
16320	TraditionalForm], ",",
16321	FormBox[
16322	SubscriptBox["\<\"i\"\>", "2"],
16323	TraditionalForm]}]],
16324	TraditionalForm], " ",
16325	FormBox[
16326	SubscriptBox[
16327	SubscriptBox["P", "\<\"+\"\>"],
16328	RowBox[{
16329	FormBox[
16330	SubscriptBox["\<\"s\"\>", "2"],
16331	TraditionalForm], ",",
16332	FormBox[
16333	SubscriptBox["\<\"s\"\>", "1"],
16334	TraditionalForm]}]],
16335	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16336	CellChangeTimes->{3.581705775919442^9, 3.5817066941915483`^9}],
16337
16338	Cell[BoxData[
16339	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16340	* * * *)\"\>", TraditionalForm]], "Print",
16341	CellChangeTimes->{3.581705775919442^9, 3.5817066941985493`^9}],
16342
16343	Cell[BoxData[
16344	FormBox[
16345	InterpretationBox[
16346	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "11"}],
16347	SequenceForm["Vertex ", 11],
16348	Editable->False], TraditionalForm]], "Print",
16349	CellChangeTimes->{3.581705775919442^9, 3.58170669420355^9}],
16350
16351	Cell[BoxData[
16352	FormBox[
16353	InterpretationBox[
16354	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16355	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16356	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
16357	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
16358	Editable->False], TraditionalForm]], "Print",
16359	CellChangeTimes->{3.581705775919442^9, 3.581706694213051^9}],
16360
16361	Cell[BoxData[
16362	FormBox[
16363	InterpretationBox[
16364	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16365	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16366	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16367	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
16368	Editable->False], TraditionalForm]], "Print",
16369	CellChangeTimes->{3.581705775919442^9, 3.581706694216051^9}],
16370
16371	Cell[BoxData[
16372	FormBox[
16373	InterpretationBox[
16374	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16375	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16376	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16377	FormBox[
16378	OverscriptBox["s", "\<\"-\"\>"],
16379	TraditionalForm]}],
16380	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
16381	Editable->False], TraditionalForm]], "Print",
16382	CellChangeTimes->{3.581705775919442^9, 3.581706694219052^9}],
16383
16384	Cell[BoxData[
16385	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16386	CellChangeTimes->{3.581705775919442^9, 3.581706694222052^9}],
16387
16388	Cell[BoxData[
16389	FormBox[
16390	RowBox[{
16391	RowBox[{"-",
16392	FractionBox[
16393	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLh", " ", "MBP", " ",
16394	FormBox[
16395	SubscriptBox["\[Delta]",
16396	RowBox[{
16397	FormBox[
16398	SubscriptBox["\<\"i\"\>", "1"],
16399	TraditionalForm], ",",
16400	FormBox[
16401	SubscriptBox["\<\"i\"\>", "3"],
16402	TraditionalForm]}]],
16403	TraditionalForm], " ",
16404	FormBox[
16405	SubscriptBox[
16406	SubscriptBox["P", "\<\"-\"\>"],
16407	RowBox[{
16408	FormBox[
16409	SubscriptBox["\<\"s\"\>", "3"],
16410	TraditionalForm], ",",
16411	FormBox[
16412	SubscriptBox["\<\"s\"\>", "1"],
16413	TraditionalForm]}]],
16414	TraditionalForm]}], "v"]}], "-",
16415	FractionBox[
16416	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRh", " ", "MBP", " ",
16417	FormBox[
16418	SubscriptBox["\[Delta]",
16419	RowBox[{
16420	FormBox[
16421	SubscriptBox["\<\"i\"\>", "1"],
16422	TraditionalForm], ",",
16423	FormBox[
16424	SubscriptBox["\<\"i\"\>", "3"],
16425	TraditionalForm]}]],
16426	TraditionalForm], " ",
16427	FormBox[
16428	SubscriptBox[
16429	SubscriptBox["P", "\<\"+\"\>"],
16430	RowBox[{
16431	FormBox[
16432	SubscriptBox["\<\"s\"\>", "3"],
16433	TraditionalForm], ",",
16434	FormBox[
16435	SubscriptBox["\<\"s\"\>", "1"],
16436	TraditionalForm]}]],
16437	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16438	CellChangeTimes->{3.581705775919442^9, 3.5817066942255526`^9}],
16439
16440	Cell[BoxData[
16441	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16442	* * * *)\"\>", TraditionalForm]], "Print",
16443	CellChangeTimes->{3.581705775919442^9, 3.5817066942405543`^9}],
16444
16445	Cell[BoxData[
16446	FormBox[
16447	InterpretationBox[
16448	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "12"}],
16449	SequenceForm["Vertex ", 12],
16450	Editable->False], TraditionalForm]], "Print",
16451	CellChangeTimes->{3.581705775919442^9, 3.581706694243555^9}],
16452
16453	Cell[BoxData[
16454	FormBox[
16455	InterpretationBox[
16456	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16457	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16458	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16459	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
16460	Editable->False], TraditionalForm]], "Print",
16461	CellChangeTimes->{3.581705775919442^9, 3.5817066942465553`^9}],
16462
16463	Cell[BoxData[
16464	FormBox[
16465	InterpretationBox[
16466	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16467	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16468	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16469	FormBox[
16470	OverscriptBox["t", "\<\"-\"\>"],
16471	TraditionalForm]}],
16472	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
16473	Editable->False], TraditionalForm]], "Print",
16474	CellChangeTimes->{3.581705775919442^9, 3.5817066942495556`^9}],
16475
16476	Cell[BoxData[
16477	FormBox[
16478	InterpretationBox[
16479	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16480	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16481	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
16482	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tp],
16483	Editable->False], TraditionalForm]], "Print",
16484	CellChangeTimes->{3.581705775919442^9, 3.5817066942535563`^9}],
16485
16486	Cell[BoxData[
16487	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16488	CellChangeTimes->{3.581705775919442^9, 3.5817066942635574`^9}],
16489
16490	Cell[BoxData[
16491	FormBox[
16492	RowBox[{
16493	RowBox[{"-",
16494	FractionBox[
16495	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLh", " ", "MTP", " ",
16496	FormBox[
16497	SubscriptBox["\[Delta]",
16498	RowBox[{
16499	FormBox[
16500	SubscriptBox["\<\"i\"\>", "2"],
16501	TraditionalForm], ",",
16502	FormBox[
16503	SubscriptBox["\<\"i\"\>", "3"],
16504	TraditionalForm]}]],
16505	TraditionalForm], " ",
16506	FormBox[
16507	SubscriptBox[
16508	SubscriptBox["P", "\<\"-\"\>"],
16509	RowBox[{
16510	FormBox[
16511	SubscriptBox["\<\"s\"\>", "2"],
16512	TraditionalForm], ",",
16513	FormBox[
16514	SubscriptBox["\<\"s\"\>", "3"],
16515	TraditionalForm]}]],
16516	TraditionalForm]}], "v"]}], "-",
16517	FractionBox[
16518	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRh", " ", "MTP", " ",
16519	FormBox[
16520	SubscriptBox["\[Delta]",
16521	RowBox[{
16522	FormBox[
16523	SubscriptBox["\<\"i\"\>", "2"],
16524	TraditionalForm], ",",
16525	FormBox[
16526	SubscriptBox["\<\"i\"\>", "3"],
16527	TraditionalForm]}]],
16528	TraditionalForm], " ",
16529	FormBox[
16530	SubscriptBox[
16531	SubscriptBox["P", "\<\"+\"\>"],
16532	RowBox[{
16533	FormBox[
16534	SubscriptBox["\<\"s\"\>", "2"],
16535	TraditionalForm], ",",
16536	FormBox[
16537	SubscriptBox["\<\"s\"\>", "3"],
16538	TraditionalForm]}]],
16539	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16540	CellChangeTimes->{3.581705775919442^9, 3.581706694267058^9}],
16541
16542	Cell[BoxData[
16543	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16544	* * * *)\"\>", TraditionalForm]], "Print",
16545	CellChangeTimes->{3.581705775919442^9, 3.581706694271058^9}],
16546
16547	Cell[BoxData[
16548	FormBox[
16549	InterpretationBox[
16550	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "13"}],
16551	SequenceForm["Vertex ", 13],
16552	Editable->False], TraditionalForm]], "Print",
16553	CellChangeTimes->{3.581705775919442^9, 3.581706694274059^9}],
16554
16555	Cell[BoxData[
16556	FormBox[
16557	InterpretationBox[
16558	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16559	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16560	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
16561	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
16562	Editable->False], TraditionalForm]], "Print",
16563	CellChangeTimes->{3.581705775919442^9, 3.5817066942770596`^9}],
16564
16565	Cell[BoxData[
16566	FormBox[
16567	InterpretationBox[
16568	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16569	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16570	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16571	SequenceForm["Particle ", 2, " : ", "Scalar", " , ", FeynRules`H],
16572	Editable->False], TraditionalForm]], "Print",
16573	CellChangeTimes->{3.581705775919442^9, 3.58170669428656^9}],
16574
16575	Cell[BoxData[
16576	FormBox[
16577	InterpretationBox[
16578	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16579	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16580	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16581	FormBox[
16582	OverscriptBox["tp", "\<\"-\"\>"],
16583	TraditionalForm]}],
16584	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
16585	Editable->False], TraditionalForm]], "Print",
16586	CellChangeTimes->{3.581705775919442^9, 3.581706694290061^9}],
16587
16588	Cell[BoxData[
16589	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16590	CellChangeTimes->{3.581705775919442^9, 3.5817066942930613`^9}],
16591
16592	Cell[BoxData[
16593	FormBox[
16594	RowBox[{
16595	RowBox[{"-",
16596	FractionBox[
16597	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRh", " ", "MTP", " ",
16598	FormBox[
16599	SubscriptBox["\[Delta]",
16600	RowBox[{
16601	FormBox[
16602	SubscriptBox["\<\"i\"\>", "1"],
16603	TraditionalForm], ",",
16604	FormBox[
16605	SubscriptBox["\<\"i\"\>", "3"],
16606	TraditionalForm]}]],
16607	TraditionalForm], " ",
16608	FormBox[
16609	SubscriptBox[
16610	SubscriptBox["P", "\<\"-\"\>"],
16611	RowBox[{
16612	FormBox[
16613	SubscriptBox["\<\"s\"\>", "3"],
16614	TraditionalForm], ",",
16615	FormBox[
16616	SubscriptBox["\<\"s\"\>", "1"],
16617	TraditionalForm]}]],
16618	TraditionalForm]}], "v"]}], "-",
16619	FractionBox[
16620	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLh", " ", "MTP", " ",
16621	FormBox[
16622	SubscriptBox["\[Delta]",
16623	RowBox[{
16624	FormBox[
16625	SubscriptBox["\<\"i\"\>", "1"],
16626	TraditionalForm], ",",
16627	FormBox[
16628	SubscriptBox["\<\"i\"\>", "3"],
16629	TraditionalForm]}]],
16630	TraditionalForm], " ",
16631	FormBox[
16632	SubscriptBox[
16633	SubscriptBox["P", "\<\"+\"\>"],
16634	RowBox[{
16635	FormBox[
16636	SubscriptBox["\<\"s\"\>", "3"],
16637	TraditionalForm], ",",
16638	FormBox[
16639	SubscriptBox["\<\"s\"\>", "1"],
16640	TraditionalForm]}]],
16641	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16642	CellChangeTimes->{3.581705775919442^9, 3.581706694297062^9}],
16643
16644	Cell[BoxData[
16645	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16646	* * * *)\"\>", TraditionalForm]], "Print",
16647	CellChangeTimes->{3.581705775919442^9, 3.5817066943020625`^9}],
16648
16649	Cell[BoxData[
16650	FormBox[
16651	InterpretationBox[
16652	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "14"}],
16653	SequenceForm["Vertex ", 14],
16654	Editable->False], TraditionalForm]], "Print",
16655	CellChangeTimes->{3.581705775919442^9, 3.581706694312564^9}],
16656
16657	Cell[BoxData[
16658	FormBox[
16659	InterpretationBox[
16660	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16661	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16662	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16663	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
16664	Editable->False], TraditionalForm]], "Print",
16665	CellChangeTimes->{3.581705775919442^9, 3.581706694315564^9}],
16666
16667	Cell[BoxData[
16668	FormBox[
16669	InterpretationBox[
16670	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16671	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16672	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
16673	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
16674	Editable->False], TraditionalForm]], "Print",
16675	CellChangeTimes->{3.581705775919442^9, 3.581706694319064^9}],
16676
16677	Cell[BoxData[
16678	FormBox[
16679	InterpretationBox[
16680	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16681	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16682	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16683	FormBox[
16684	OverscriptBox["tp", "\<\"-\"\>"],
16685	TraditionalForm]}],
16686	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
16687	Editable->False], TraditionalForm]], "Print",
16688	CellChangeTimes->{3.581705775919442^9, 3.581706694322065^9}],
16689
16690	Cell[BoxData[
16691	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16692	CellChangeTimes->{3.581705775919442^9, 3.5817066943255653`^9}],
16693
16694	Cell[BoxData[
16695	FormBox[
16696	RowBox[{
16697	RowBox[{"-",
16698	FractionBox[
16699	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRh", " ", "MTP", " ",
16700	FormBox[
16701	SubscriptBox["\[Delta]",
16702	RowBox[{
16703	FormBox[
16704	SubscriptBox["\<\"i\"\>", "2"],
16705	TraditionalForm], ",",
16706	FormBox[
16707	SubscriptBox["\<\"i\"\>", "3"],
16708	TraditionalForm]}]],
16709	TraditionalForm], " ",
16710	FormBox[
16711	SubscriptBox[
16712	SubscriptBox["P", "\<\"-\"\>"],
16713	RowBox[{
16714	FormBox[
16715	SubscriptBox["\<\"s\"\>", "3"],
16716	TraditionalForm], ",",
16717	FormBox[
16718	SubscriptBox["\<\"s\"\>", "2"],
16719	TraditionalForm]}]],
16720	TraditionalForm]}], "v"]}], "-",
16721	FractionBox[
16722	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLh", " ", "MTP", " ",
16723	FormBox[
16724	SubscriptBox["\[Delta]",
16725	RowBox[{
16726	FormBox[
16727	SubscriptBox["\<\"i\"\>", "2"],
16728	TraditionalForm], ",",
16729	FormBox[
16730	SubscriptBox["\<\"i\"\>", "3"],
16731	TraditionalForm]}]],
16732	TraditionalForm], " ",
16733	FormBox[
16734	SubscriptBox[
16735	SubscriptBox["P", "\<\"+\"\>"],
16736	RowBox[{
16737	FormBox[
16738	SubscriptBox["\<\"s\"\>", "3"],
16739	TraditionalForm], ",",
16740	FormBox[
16741	SubscriptBox["\<\"s\"\>", "2"],
16742	TraditionalForm]}]],
16743	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16744	CellChangeTimes->{3.581705775919442^9, 3.5817066943300657`^9}],
16745
16746	Cell[BoxData[
16747	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16748	* * * *)\"\>", TraditionalForm]], "Print",
16749	CellChangeTimes->{3.581705775919442^9, 3.581706694338567^9}],
16750
16751	Cell[BoxData[
16752	FormBox[
16753	InterpretationBox[
16754	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "15"}],
16755	SequenceForm["Vertex ", 15],
16756	Editable->False], TraditionalForm]], "Print",
16757	CellChangeTimes->{3.581705775919442^9, 3.5817066943420677`^9}],
16758
16759	Cell[BoxData[
16760	FormBox[
16761	InterpretationBox[
16762	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16763	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16764	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16765	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
16766	Editable->False], TraditionalForm]], "Print",
16767	CellChangeTimes->{3.581705775919442^9, 3.581706694345068^9}],
16768
16769	Cell[BoxData[
16770	FormBox[
16771	InterpretationBox[
16772	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16773	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16774	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16775	FormBox[
16776	OverscriptBox["tp", "\<\"-\"\>"],
16777	TraditionalForm]}],
16778	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
16779	Editable->False], TraditionalForm]], "Print",
16780	CellChangeTimes->{3.581705775919442^9, 3.581706694348068^9}],
16781
16782	Cell[BoxData[
16783	FormBox[
16784	InterpretationBox[
16785	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16786	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16787	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
16788	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`u],
16789	Editable->False], TraditionalForm]], "Print",
16790	CellChangeTimes->{3.581705775919442^9, 3.5817066943515687`^9}],
16791
16792	Cell[BoxData[
16793	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16794	CellChangeTimes->{3.581705775919442^9, 3.581706694356069^9}],
16795
16796	Cell[BoxData[
16797	FormBox[
16798	RowBox[{
16799	RowBox[{"-",
16800	FractionBox[
16801	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRh", " ", "MTP", " ",
16802	FormBox[
16803	SubscriptBox["\[Delta]",
16804	RowBox[{
16805	FormBox[
16806	SubscriptBox["\<\"i\"\>", "2"],
16807	TraditionalForm], ",",
16808	FormBox[
16809	SubscriptBox["\<\"i\"\>", "3"],
16810	TraditionalForm]}]],
16811	TraditionalForm], " ",
16812	FormBox[
16813	SubscriptBox[
16814	SubscriptBox["P", "\<\"-\"\>"],
16815	RowBox[{
16816	FormBox[
16817	SubscriptBox["\<\"s\"\>", "2"],
16818	TraditionalForm], ",",
16819	FormBox[
16820	SubscriptBox["\<\"s\"\>", "3"],
16821	TraditionalForm]}]],
16822	TraditionalForm]}], "v"]}], "-",
16823	FractionBox[
16824	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLh", " ", "MTP", " ",
16825	FormBox[
16826	SubscriptBox["\[Delta]",
16827	RowBox[{
16828	FormBox[
16829	SubscriptBox["\<\"i\"\>", "2"],
16830	TraditionalForm], ",",
16831	FormBox[
16832	SubscriptBox["\<\"i\"\>", "3"],
16833	TraditionalForm]}]],
16834	TraditionalForm], " ",
16835	FormBox[
16836	SubscriptBox[
16837	SubscriptBox["P", "\<\"+\"\>"],
16838	RowBox[{
16839	FormBox[
16840	SubscriptBox["\<\"s\"\>", "2"],
16841	TraditionalForm], ",",
16842	FormBox[
16843	SubscriptBox["\<\"s\"\>", "3"],
16844	TraditionalForm]}]],
16845	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16846	CellChangeTimes->{3.581705775919442^9, 3.5817066943650703`^9}],
16847
16848	Cell[BoxData[
16849	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16850	* * * *)\"\>", TraditionalForm]], "Print",
16851	CellChangeTimes->{3.581705775919442^9, 3.5817066943695707`^9}],
16852
16853	Cell[BoxData[
16854	FormBox[
16855	InterpretationBox[
16856	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "16"}],
16857	SequenceForm["Vertex ", 16],
16858	Editable->False], TraditionalForm]], "Print",
16859	CellChangeTimes->{3.581705775919442^9, 3.581706694372571^9}],
16860
16861	Cell[BoxData[
16862	FormBox[
16863	InterpretationBox[
16864	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16865	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
16866	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "H"}],
16867	SequenceForm["Particle ", 1, " : ", "Scalar", " , ", FeynRules`H],
16868	Editable->False], TraditionalForm]], "Print",
16869	CellChangeTimes->{3.581705775919442^9, 3.581706694376072^9}],
16870
16871	Cell[BoxData[
16872	FormBox[
16873	InterpretationBox[
16874	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16875	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16876	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
16877	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
16878	Editable->False], TraditionalForm]], "Print",
16879	CellChangeTimes->{3.581705775919442^9, 3.5817066943805723`^9}],
16880
16881	Cell[BoxData[
16882	FormBox[
16883	InterpretationBox[
16884	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16885	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16886	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16887	FormBox[
16888	OverscriptBox["u", "\<\"-\"\>"],
16889	TraditionalForm]}],
16890	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
16891	Editable->False], TraditionalForm]], "Print",
16892	CellChangeTimes->{3.581705775919442^9, 3.5817066943890734`^9}],
16893
16894	Cell[BoxData[
16895	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16896	CellChangeTimes->{3.581705775919442^9, 3.5817066943920736`^9}],
16897
16898	Cell[BoxData[
16899	FormBox[
16900	RowBox[{
16901	RowBox[{"-",
16902	FractionBox[
16903	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLh", " ", "MTP", " ",
16904	FormBox[
16905	SubscriptBox["\[Delta]",
16906	RowBox[{
16907	FormBox[
16908	SubscriptBox["\<\"i\"\>", "2"],
16909	TraditionalForm], ",",
16910	FormBox[
16911	SubscriptBox["\<\"i\"\>", "3"],
16912	TraditionalForm]}]],
16913	TraditionalForm], " ",
16914	FormBox[
16915	SubscriptBox[
16916	SubscriptBox["P", "\<\"-\"\>"],
16917	RowBox[{
16918	FormBox[
16919	SubscriptBox["\<\"s\"\>", "3"],
16920	TraditionalForm], ",",
16921	FormBox[
16922	SubscriptBox["\<\"s\"\>", "2"],
16923	TraditionalForm]}]],
16924	TraditionalForm]}], "v"]}], "-",
16925	FractionBox[
16926	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRh", " ", "MTP", " ",
16927	FormBox[
16928	SubscriptBox["\[Delta]",
16929	RowBox[{
16930	FormBox[
16931	SubscriptBox["\<\"i\"\>", "2"],
16932	TraditionalForm], ",",
16933	FormBox[
16934	SubscriptBox["\<\"i\"\>", "3"],
16935	TraditionalForm]}]],
16936	TraditionalForm], " ",
16937	FormBox[
16938	SubscriptBox[
16939	SubscriptBox["P", "\<\"+\"\>"],
16940	RowBox[{
16941	FormBox[
16942	SubscriptBox["\<\"s\"\>", "3"],
16943	TraditionalForm], ",",
16944	FormBox[
16945	SubscriptBox["\<\"s\"\>", "2"],
16946	TraditionalForm]}]],
16947	TraditionalForm]}], "v"]}], TraditionalForm]], "Print",
16948	CellChangeTimes->{3.581705775919442^9, 3.581706694395074^9}],
16949
16950	Cell[BoxData[
16951	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
16952	* * * *)\"\>", TraditionalForm]], "Print",
16953	CellChangeTimes->{3.581705775919442^9, 3.5817066943995748`^9}],
16954
16955	Cell[BoxData[
16956	FormBox[
16957	InterpretationBox[
16958	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "17"}],
16959	SequenceForm["Vertex ", 17],
16960	Editable->False], TraditionalForm]], "Print",
16961	CellChangeTimes->{3.581705775919442^9, 3.5817066944055758`^9}],
16962
16963	Cell[BoxData[
16964	FormBox[
16965	InterpretationBox[
16966	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
16967	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16968	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
16969	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
16970	Editable->False], TraditionalForm]], "Print",
16971	CellChangeTimes->{3.581705775919442^9, 3.5817066944130764`^9}],
16972
16973	Cell[BoxData[
16974	FormBox[
16975	InterpretationBox[
16976	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
16977	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
16978	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
16979	FormBox[
16980	OverscriptBox["bp", "\<\"-\"\>"],
16981	TraditionalForm]}],
16982	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
16983	Editable->False], TraditionalForm]], "Print",
16984	CellChangeTimes->{3.581705775919442^9, 3.5817066944160767`^9}],
16985
16986	Cell[BoxData[
16987	FormBox[
16988	InterpretationBox[
16989	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
16990	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
16991	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
16992	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
16993	Editable->False], TraditionalForm]], "Print",
16994	CellChangeTimes->{3.581705775919442^9, 3.581706694419077^9}],
16995
16996	Cell[BoxData[
16997	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
16998	CellChangeTimes->{3.581705775919442^9, 3.5817066944220777`^9}],
16999
17000	Cell[BoxData[
17001	FormBox[
17002	RowBox[{"\[ImaginaryI]", " ",
17003	FormBox[
17004	SubscriptBox["g", "s"],
17005	TraditionalForm], " ",
17006	FormBox[
17007	SubsuperscriptBox["T",
17008	RowBox[{
17009	FormBox[
17010	SubscriptBox["\<\"i\"\>", "2"],
17011	TraditionalForm], ",",
17012	FormBox[
17013	SubscriptBox["\<\"i\"\>", "1"],
17014	TraditionalForm]}],
17015	FormBox[
17016	SubscriptBox["\<\"a\"\>", "3"],
17017	TraditionalForm]],
17018	TraditionalForm], " ",
17019	FormBox[
17020	SubsuperscriptBox["\[Gamma]",
17021	RowBox[{
17022	FormBox[
17023	SubscriptBox["\<\"s\"\>", "2"],
17024	TraditionalForm], ",",
17025	FormBox[
17026	SubscriptBox["\<\"s\"\>", "1"],
17027	TraditionalForm]}],
17028	FormBox[
17029	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17030	TraditionalForm]],
17031	TraditionalForm]}], TraditionalForm]], "Print",
17032	CellChangeTimes->{3.581705775919442^9, 3.581706694425078^9}],
17033
17034	Cell[BoxData[
17035	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17036	* * * *)\"\>", TraditionalForm]], "Print",
17037	CellChangeTimes->{3.581705775919442^9, 3.581706694429078^9}],
17038
17039	Cell[BoxData[
17040	FormBox[
17041	InterpretationBox[
17042	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "18"}],
17043	SequenceForm["Vertex ", 18],
17044	Editable->False], TraditionalForm]], "Print",
17045	CellChangeTimes->{3.581705775919442^9, 3.5817066944385796`^9}],
17046
17047	Cell[BoxData[
17048	FormBox[
17049	InterpretationBox[
17050	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17051	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17052	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
17053	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
17054	Editable->False], TraditionalForm]], "Print",
17055	CellChangeTimes->{3.581705775919442^9, 3.58170669444158^9}],
17056
17057	Cell[BoxData[
17058	FormBox[
17059	InterpretationBox[
17060	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17061	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17062	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
17063	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
17064	Editable->False], TraditionalForm]], "Print",
17065	CellChangeTimes->{3.581705775919442^9, 3.58170669444458^9}],
17066
17067	Cell[BoxData[
17068	FormBox[
17069	InterpretationBox[
17070	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17071	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17072	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17073	FormBox[
17074	OverscriptBox["tp", "\<\"-\"\>"],
17075	TraditionalForm]}],
17076	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tpbar],
17077	Editable->False], TraditionalForm]], "Print",
17078	CellChangeTimes->{3.581705775919442^9, 3.5817066944470806`^9}],
17079
17080	Cell[BoxData[
17081	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17082	CellChangeTimes->{3.581705775919442^9, 3.581706694450081^9}],
17083
17084	Cell[BoxData[
17085	FormBox[
17086	RowBox[{"\[ImaginaryI]", " ",
17087	FormBox[
17088	SubscriptBox["g", "s"],
17089	TraditionalForm], " ",
17090	FormBox[
17091	SubsuperscriptBox["T",
17092	RowBox[{
17093	FormBox[
17094	SubscriptBox["\<\"i\"\>", "3"],
17095	TraditionalForm], ",",
17096	FormBox[
17097	SubscriptBox["\<\"i\"\>", "2"],
17098	TraditionalForm]}],
17099	FormBox[
17100	SubscriptBox["\<\"a\"\>", "1"],
17101	TraditionalForm]],
17102	TraditionalForm], " ",
17103	FormBox[
17104	SubsuperscriptBox["\[Gamma]",
17105	RowBox[{
17106	FormBox[
17107	SubscriptBox["\<\"s\"\>", "3"],
17108	TraditionalForm], ",",
17109	FormBox[
17110	SubscriptBox["\<\"s\"\>", "2"],
17111	TraditionalForm]}],
17112	FormBox[
17113	SubscriptBox["\<\"\[Mu]\"\>", "1"],
17114	TraditionalForm]],
17115	TraditionalForm]}], TraditionalForm]], "Print",
17116	CellChangeTimes->{3.581705775919442^9, 3.581706694453582^9}],
17117
17118	Cell[BoxData[
17119	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17120	* * * *)\"\>", TraditionalForm]], "Print",
17121	CellChangeTimes->{3.581705775919442^9, 3.581706694463583^9}],
17122
17123	Cell[BoxData[
17124	FormBox[
17125	InterpretationBox[
17126	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "19"}],
17127	SequenceForm["Vertex ", 19],
17128	Editable->False], TraditionalForm]], "Print",
17129	CellChangeTimes->{3.581705775919442^9, 3.5817066944665833`^9}],
17130
17131	Cell[BoxData[
17132	FormBox[
17133	InterpretationBox[
17134	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17135	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17136	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
17137	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
17138	Editable->False], TraditionalForm]], "Print",
17139	CellChangeTimes->{3.581705775919442^9, 3.5817066944695835`^9}],
17140
17141	Cell[BoxData[
17142	FormBox[
17143	InterpretationBox[
17144	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17145	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17146	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
17147	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`x],
17148	Editable->False], TraditionalForm]], "Print",
17149	CellChangeTimes->{3.581705775919442^9, 3.581706694472584^9}],
17150
17151	Cell[BoxData[
17152	FormBox[
17153	InterpretationBox[
17154	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17155	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17156	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17157	FormBox[
17158	OverscriptBox["x", "\<\"-\"\>"],
17159	TraditionalForm]}],
17160	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
17161	Editable->False], TraditionalForm]], "Print",
17162	CellChangeTimes->{3.581705775919442^9, 3.5817066944755845`^9}],
17163
17164	Cell[BoxData[
17165	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17166	CellChangeTimes->{3.581705775919442^9, 3.581706694479085^9}],
17167
17168	Cell[BoxData[
17169	FormBox[
17170	RowBox[{"\[ImaginaryI]", " ",
17171	FormBox[
17172	SubscriptBox["g", "s"],
17173	TraditionalForm], " ",
17174	FormBox[
17175	SubsuperscriptBox["T",
17176	RowBox[{
17177	FormBox[
17178	SubscriptBox["\<\"i\"\>", "3"],
17179	TraditionalForm], ",",
17180	FormBox[
17181	SubscriptBox["\<\"i\"\>", "2"],
17182	TraditionalForm]}],
17183	FormBox[
17184	SubscriptBox["\<\"a\"\>", "1"],
17185	TraditionalForm]],
17186	TraditionalForm], " ",
17187	FormBox[
17188	SubsuperscriptBox["\[Gamma]",
17189	RowBox[{
17190	FormBox[
17191	SubscriptBox["\<\"s\"\>", "3"],
17192	TraditionalForm], ",",
17193	FormBox[
17194	SubscriptBox["\<\"s\"\>", "2"],
17195	TraditionalForm]}],
17196	FormBox[
17197	SubscriptBox["\<\"\[Mu]\"\>", "1"],
17198	TraditionalForm]],
17199	TraditionalForm]}], TraditionalForm]], "Print",
17200	CellChangeTimes->{3.581705775919442^9, 3.581706694487086^9}],
17201
17202	Cell[BoxData[
17203	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17204	* * * *)\"\>", TraditionalForm]], "Print",
17205	CellChangeTimes->{3.581705775919442^9, 3.5817066944905863`^9}],
17206
17207	Cell[BoxData[
17208	FormBox[
17209	InterpretationBox[
17210	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "20"}],
17211	SequenceForm["Vertex ", 20],
17212	Editable->False], TraditionalForm]], "Print",
17213	CellChangeTimes->{3.581705775919442^9, 3.5817066944935865`^9}],
17214
17215	Cell[BoxData[
17216	FormBox[
17217	InterpretationBox[
17218	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17219	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17220	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
17221	SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
17222	Editable->False], TraditionalForm]], "Print",
17223	CellChangeTimes->{3.581705775919442^9, 3.581706694496587^9}],
17224
17225	Cell[BoxData[
17226	FormBox[
17227	InterpretationBox[
17228	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17229	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17230	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
17231	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`y],
17232	Editable->False], TraditionalForm]], "Print",
17233	CellChangeTimes->{3.581705775919442^9, 3.581706694499587^9}],
17234
17235	Cell[BoxData[
17236	FormBox[
17237	InterpretationBox[
17238	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17239	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17240	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17241	FormBox[
17242	OverscriptBox["y", "\<\"-\"\>"],
17243	TraditionalForm]}],
17244	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
17245	Editable->False], TraditionalForm]], "Print",
17246	CellChangeTimes->{3.581705775919442^9, 3.581706694503088^9}],
17247
17248	Cell[BoxData[
17249	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17250	CellChangeTimes->{3.581705775919442^9, 3.581706694514089^9}],
17251
17252	Cell[BoxData[
17253	FormBox[
17254	RowBox[{"\[ImaginaryI]", " ",
17255	FormBox[
17256	SubscriptBox["g", "s"],
17257	TraditionalForm], " ",
17258	FormBox[
17259	SubsuperscriptBox["T",
17260	RowBox[{
17261	FormBox[
17262	SubscriptBox["\<\"i\"\>", "3"],
17263	TraditionalForm], ",",
17264	FormBox[
17265	SubscriptBox["\<\"i\"\>", "2"],
17266	TraditionalForm]}],
17267	FormBox[
17268	SubscriptBox["\<\"a\"\>", "1"],
17269	TraditionalForm]],
17270	TraditionalForm], " ",
17271	FormBox[
17272	SubsuperscriptBox["\[Gamma]",
17273	RowBox[{
17274	FormBox[
17275	SubscriptBox["\<\"s\"\>", "3"],
17276	TraditionalForm], ",",
17277	FormBox[
17278	SubscriptBox["\<\"s\"\>", "2"],
17279	TraditionalForm]}],
17280	FormBox[
17281	SubscriptBox["\<\"\[Mu]\"\>", "1"],
17282	TraditionalForm]],
17283	TraditionalForm]}], TraditionalForm]], "Print",
17284	CellChangeTimes->{3.581705775919442^9, 3.5817066945165896`^9}],
17285
17286	Cell[BoxData[
17287	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17288	* * * *)\"\>", TraditionalForm]], "Print",
17289	CellChangeTimes->{3.581705775919442^9, 3.58170669452109^9}],
17290
17291	Cell[BoxData[
17292	FormBox[
17293	InterpretationBox[
17294	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "21"}],
17295	SequenceForm["Vertex ", 21],
17296	Editable->False], TraditionalForm]], "Print",
17297	CellChangeTimes->{3.581705775919442^9, 3.5817066945240903`^9}],
17298
17299	Cell[BoxData[
17300	FormBox[
17301	InterpretationBox[
17302	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17303	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17304	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17305	FormBox[
17306	OverscriptBox["b", "\<\"-\"\>"],
17307	TraditionalForm]}],
17308	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
17309	Editable->False], TraditionalForm]], "Print",
17310	CellChangeTimes->{3.581705775919442^9, 3.5817066945275908`^9}],
17311
17312	Cell[BoxData[
17313	FormBox[
17314	InterpretationBox[
17315	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17316	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17317	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17318	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
17319	Editable->False], TraditionalForm]], "Print",
17320	CellChangeTimes->{3.581705775919442^9, 3.581706694536592^9}],
17321
17322	Cell[BoxData[
17323	FormBox[
17324	InterpretationBox[
17325	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17326	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17327	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
17328	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
17329	Editable->False], TraditionalForm]], "Print",
17330	CellChangeTimes->{3.581705775919442^9, 3.5817066945400925`^9}],
17331
17332	Cell[BoxData[
17333	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17334	CellChangeTimes->{3.581705775919442^9, 3.5817066945430927`^9}],
17335
17336	Cell[BoxData[
17337	FormBox[
17338	RowBox[{
17339	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbL", " ",
17340	FormBox[
17341	SubscriptBox["\[Delta]",
17342	RowBox[{
17343	FormBox[
17344	SubscriptBox["\<\"i\"\>", "1"],
17345	TraditionalForm], ",",
17346	FormBox[
17347	SubscriptBox["\<\"i\"\>", "3"],
17348	TraditionalForm]}]],
17349	TraditionalForm], " ",
17350	FormBox[
17351	SubscriptBox[
17352	RowBox[{
17353	FormBox[
17354	SuperscriptBox["\[Gamma]",
17355	FormBox[
17356	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17357	TraditionalForm]],
17358	TraditionalForm], ".",
17359	FormBox[
17360	SubscriptBox["P", "\<\"-\"\>"],
17361	TraditionalForm]}],
17362	RowBox[{
17363	FormBox[
17364	SubscriptBox["\<\"s\"\>", "1"],
17365	TraditionalForm], ",",
17366	FormBox[
17367	SubscriptBox["\<\"s\"\>", "3"],
17368	TraditionalForm]}]],
17369	TraditionalForm]}], "+",
17370	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbR", " ",
17371	FormBox[
17372	SubscriptBox["\[Delta]",
17373	RowBox[{
17374	FormBox[
17375	SubscriptBox["\<\"i\"\>", "1"],
17376	TraditionalForm], ",",
17377	FormBox[
17378	SubscriptBox["\<\"i\"\>", "3"],
17379	TraditionalForm]}]],
17380	TraditionalForm], " ",
17381	FormBox[
17382	SubscriptBox[
17383	RowBox[{
17384	FormBox[
17385	SuperscriptBox["\[Gamma]",
17386	FormBox[
17387	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17388	TraditionalForm]],
17389	TraditionalForm], ".",
17390	FormBox[
17391	SubscriptBox["P", "\<\"+\"\>"],
17392	TraditionalForm]}],
17393	RowBox[{
17394	FormBox[
17395	SubscriptBox["\<\"s\"\>", "1"],
17396	TraditionalForm], ",",
17397	FormBox[
17398	SubscriptBox["\<\"s\"\>", "3"],
17399	TraditionalForm]}]],
17400	TraditionalForm]}]}], TraditionalForm]], "Print",
17401	CellChangeTimes->{3.581705775919442^9, 3.581706694546093^9}],
17402
17403	Cell[BoxData[
17404	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17405	* * * *)\"\>", TraditionalForm]], "Print",
17406	CellChangeTimes->{3.581705775919442^9, 3.5817066945505943`^9}],
17407
17408	Cell[BoxData[
17409	FormBox[
17410	InterpretationBox[
17411	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "22"}],
17412	SequenceForm["Vertex ", 22],
17413	Editable->False], TraditionalForm]], "Print",
17414	CellChangeTimes->{3.581705775919442^9, 3.5817066945540943`^9}],
17415
17416	Cell[BoxData[
17417	FormBox[
17418	InterpretationBox[
17419	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17420	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17421	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
17422	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
17423	Editable->False], TraditionalForm]], "Print",
17424	CellChangeTimes->{3.581705775919442^9, 3.581706694562095^9}],
17425
17426	Cell[BoxData[
17427	FormBox[
17428	InterpretationBox[
17429	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17430	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17431	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17432	FormBox[
17433	OverscriptBox["c", "\<\"-\"\>"],
17434	TraditionalForm]}],
17435	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
17436	Editable->False], TraditionalForm]], "Print",
17437	CellChangeTimes->{3.581705775919442^9, 3.581706694565096^9}],
17438
17439	Cell[BoxData[
17440	FormBox[
17441	InterpretationBox[
17442	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17443	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17444	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17445	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
17446	Editable->False], TraditionalForm]], "Print",
17447	CellChangeTimes->{3.581705775919442^9, 3.581706694568596^9}],
17448
17449	Cell[BoxData[
17450	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17451	CellChangeTimes->{3.581705775919442^9, 3.581706694571596^9}],
17452
17453	Cell[BoxData[
17454	FormBox[
17455	RowBox[{
17456	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLw", " ",
17457	FormBox[
17458	SubscriptBox["\[Delta]",
17459	RowBox[{
17460	FormBox[
17461	SubscriptBox["\<\"i\"\>", "1"],
17462	TraditionalForm], ",",
17463	FormBox[
17464	SubscriptBox["\<\"i\"\>", "2"],
17465	TraditionalForm]}]],
17466	TraditionalForm], " ",
17467	FormBox[
17468	SubscriptBox[
17469	RowBox[{
17470	FormBox[
17471	SuperscriptBox["\[Gamma]",
17472	FormBox[
17473	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17474	TraditionalForm]],
17475	TraditionalForm], ".",
17476	FormBox[
17477	SubscriptBox["P", "\<\"-\"\>"],
17478	TraditionalForm]}],
17479	RowBox[{
17480	FormBox[
17481	SubscriptBox["\<\"s\"\>", "2"],
17482	TraditionalForm], ",",
17483	FormBox[
17484	SubscriptBox["\<\"s\"\>", "1"],
17485	TraditionalForm]}]],
17486	TraditionalForm]}], "+",
17487	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRw", " ",
17488	FormBox[
17489	SubscriptBox["\[Delta]",
17490	RowBox[{
17491	FormBox[
17492	SubscriptBox["\<\"i\"\>", "1"],
17493	TraditionalForm], ",",
17494	FormBox[
17495	SubscriptBox["\<\"i\"\>", "2"],
17496	TraditionalForm]}]],
17497	TraditionalForm], " ",
17498	FormBox[
17499	SubscriptBox[
17500	RowBox[{
17501	FormBox[
17502	SuperscriptBox["\[Gamma]",
17503	FormBox[
17504	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17505	TraditionalForm]],
17506	TraditionalForm], ".",
17507	FormBox[
17508	SubscriptBox["P", "\<\"+\"\>"],
17509	TraditionalForm]}],
17510	RowBox[{
17511	FormBox[
17512	SubscriptBox["\<\"s\"\>", "2"],
17513	TraditionalForm], ",",
17514	FormBox[
17515	SubscriptBox["\<\"s\"\>", "1"],
17516	TraditionalForm]}]],
17517	TraditionalForm]}]}], TraditionalForm]], "Print",
17518	CellChangeTimes->{3.581705775919442^9, 3.5817066945740967`^9}],
17519
17520	Cell[BoxData[
17521	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17522	* * * *)\"\>", TraditionalForm]], "Print",
17523	CellChangeTimes->{3.581705775919442^9, 3.5817066945790977`^9}],
17524
17525	Cell[BoxData[
17526	FormBox[
17527	InterpretationBox[
17528	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "23"}],
17529	SequenceForm["Vertex ", 23],
17530	Editable->False], TraditionalForm]], "Print",
17531	CellChangeTimes->{3.581705775919442^9, 3.5817066945880985`^9}],
17532
17533	Cell[BoxData[
17534	FormBox[
17535	InterpretationBox[
17536	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17537	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17538	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17539	FormBox[
17540	OverscriptBox["d", "\<\"-\"\>"],
17541	TraditionalForm]}],
17542	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
17543	Editable->False], TraditionalForm]], "Print",
17544	CellChangeTimes->{3.581705775919442^9, 3.581706694591099^9}],
17545
17546	Cell[BoxData[
17547	FormBox[
17548	InterpretationBox[
17549	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17550	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17551	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17552	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
17553	Editable->False], TraditionalForm]], "Print",
17554	CellChangeTimes->{3.581705775919442^9, 3.581706694594099^9}],
17555
17556	Cell[BoxData[
17557	FormBox[
17558	InterpretationBox[
17559	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17560	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17561	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
17562	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
17563	Editable->False], TraditionalForm]], "Print",
17564	CellChangeTimes->{3.581705775919442^9, 3.5817066945971^9}],
17565
17566	Cell[BoxData[
17567	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17568	CellChangeTimes->{3.581705775919442^9, 3.5817066945996^9}],
17569
17570	Cell[BoxData[
17571	FormBox[
17572	RowBox[{
17573	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdL", " ",
17574	FormBox[
17575	SubscriptBox["\[Delta]",
17576	RowBox[{
17577	FormBox[
17578	SubscriptBox["\<\"i\"\>", "1"],
17579	TraditionalForm], ",",
17580	FormBox[
17581	SubscriptBox["\<\"i\"\>", "3"],
17582	TraditionalForm]}]],
17583	TraditionalForm], " ",
17584	FormBox[
17585	SubscriptBox[
17586	RowBox[{
17587	FormBox[
17588	SuperscriptBox["\[Gamma]",
17589	FormBox[
17590	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17591	TraditionalForm]],
17592	TraditionalForm], ".",
17593	FormBox[
17594	SubscriptBox["P", "\<\"-\"\>"],
17595	TraditionalForm]}],
17596	RowBox[{
17597	FormBox[
17598	SubscriptBox["\<\"s\"\>", "1"],
17599	TraditionalForm], ",",
17600	FormBox[
17601	SubscriptBox["\<\"s\"\>", "3"],
17602	TraditionalForm]}]],
17603	TraditionalForm]}], "+",
17604	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdR", " ",
17605	FormBox[
17606	SubscriptBox["\[Delta]",
17607	RowBox[{
17608	FormBox[
17609	SubscriptBox["\<\"i\"\>", "1"],
17610	TraditionalForm], ",",
17611	FormBox[
17612	SubscriptBox["\<\"i\"\>", "3"],
17613	TraditionalForm]}]],
17614	TraditionalForm], " ",
17615	FormBox[
17616	SubscriptBox[
17617	RowBox[{
17618	FormBox[
17619	SuperscriptBox["\[Gamma]",
17620	FormBox[
17621	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17622	TraditionalForm]],
17623	TraditionalForm], ".",
17624	FormBox[
17625	SubscriptBox["P", "\<\"+\"\>"],
17626	TraditionalForm]}],
17627	RowBox[{
17628	FormBox[
17629	SubscriptBox["\<\"s\"\>", "1"],
17630	TraditionalForm], ",",
17631	FormBox[
17632	SubscriptBox["\<\"s\"\>", "3"],
17633	TraditionalForm]}]],
17634	TraditionalForm]}]}], TraditionalForm]], "Print",
17635	CellChangeTimes->{3.581705775919442^9, 3.5817066946031003`^9}],
17636
17637	Cell[BoxData[
17638	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17639	* * * *)\"\>", TraditionalForm]], "Print",
17640	CellChangeTimes->{3.581705775919442^9, 3.581706694615102^9}],
17641
17642	Cell[BoxData[
17643	FormBox[
17644	InterpretationBox[
17645	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "24"}],
17646	SequenceForm["Vertex ", 24],
17647	Editable->False], TraditionalForm]], "Print",
17648	CellChangeTimes->{3.581705775919442^9, 3.5817066946186028`^9}],
17649
17650	Cell[BoxData[
17651	FormBox[
17652	InterpretationBox[
17653	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17654	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17655	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17656	FormBox[
17657	OverscriptBox["s", "\<\"-\"\>"],
17658	TraditionalForm]}],
17659	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
17660	Editable->False], TraditionalForm]], "Print",
17661	CellChangeTimes->{3.581705775919442^9, 3.581706694621603^9}],
17662
17663	Cell[BoxData[
17664	FormBox[
17665	InterpretationBox[
17666	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17667	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17668	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17669	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
17670	Editable->False], TraditionalForm]], "Print",
17671	CellChangeTimes->{3.581705775919442^9, 3.5817066946246033`^9}],
17672
17673	Cell[BoxData[
17674	FormBox[
17675	InterpretationBox[
17676	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17677	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17678	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "y"}],
17679	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`y],
17680	Editable->False], TraditionalForm]], "Print",
17681	CellChangeTimes->{3.581705775919442^9, 3.5817066946281033`^9}],
17682
17683	Cell[BoxData[
17684	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17685	CellChangeTimes->{3.581705775919442^9, 3.581706694638105^9}],
17686
17687	Cell[BoxData[
17688	FormBox[
17689	RowBox[{
17690	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsL", " ",
17691	FormBox[
17692	SubscriptBox["\[Delta]",
17693	RowBox[{
17694	FormBox[
17695	SubscriptBox["\<\"i\"\>", "1"],
17696	TraditionalForm], ",",
17697	FormBox[
17698	SubscriptBox["\<\"i\"\>", "3"],
17699	TraditionalForm]}]],
17700	TraditionalForm], " ",
17701	FormBox[
17702	SubscriptBox[
17703	RowBox[{
17704	FormBox[
17705	SuperscriptBox["\[Gamma]",
17706	FormBox[
17707	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17708	TraditionalForm]],
17709	TraditionalForm], ".",
17710	FormBox[
17711	SubscriptBox["P", "\<\"-\"\>"],
17712	TraditionalForm]}],
17713	RowBox[{
17714	FormBox[
17715	SubscriptBox["\<\"s\"\>", "1"],
17716	TraditionalForm], ",",
17717	FormBox[
17718	SubscriptBox["\<\"s\"\>", "3"],
17719	TraditionalForm]}]],
17720	TraditionalForm]}], "+",
17721	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsR", " ",
17722	FormBox[
17723	SubscriptBox["\[Delta]",
17724	RowBox[{
17725	FormBox[
17726	SubscriptBox["\<\"i\"\>", "1"],
17727	TraditionalForm], ",",
17728	FormBox[
17729	SubscriptBox["\<\"i\"\>", "3"],
17730	TraditionalForm]}]],
17731	TraditionalForm], " ",
17732	FormBox[
17733	SubscriptBox[
17734	RowBox[{
17735	FormBox[
17736	SuperscriptBox["\[Gamma]",
17737	FormBox[
17738	SubscriptBox["\<\"\[Mu]\"\>", "2"],
17739	TraditionalForm]],
17740	TraditionalForm], ".",
17741	FormBox[
17742	SubscriptBox["P", "\<\"+\"\>"],
17743	TraditionalForm]}],
17744	RowBox[{
17745	FormBox[
17746	SubscriptBox["\<\"s\"\>", "1"],
17747	TraditionalForm], ",",
17748	FormBox[
17749	SubscriptBox["\<\"s\"\>", "3"],
17750	TraditionalForm]}]],
17751	TraditionalForm]}]}], TraditionalForm]], "Print",
17752	CellChangeTimes->{3.581705775919442^9, 3.5817066946411057`^9}],
17753
17754	Cell[BoxData[
17755	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17756	* * * *)\"\>", TraditionalForm]], "Print",
17757	CellChangeTimes->{3.581705775919442^9, 3.581706694646106^9}],
17758
17759	Cell[BoxData[
17760	FormBox[
17761	InterpretationBox[
17762	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "25"}],
17763	SequenceForm["Vertex ", 25],
17764	Editable->False], TraditionalForm]], "Print",
17765	CellChangeTimes->{3.581705775919442^9, 3.5817066946491065`^9}],
17766
17767	Cell[BoxData[
17768	FormBox[
17769	InterpretationBox[
17770	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17771	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17772	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
17773	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
17774	Editable->False], TraditionalForm]], "Print",
17775	CellChangeTimes->{3.581705775919442^9, 3.581706694652607^9}],
17776
17777	Cell[BoxData[
17778	FormBox[
17779	InterpretationBox[
17780	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17781	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17782	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17783	FormBox[
17784	OverscriptBox["t", "\<\"-\"\>"],
17785	TraditionalForm]}],
17786	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
17787	Editable->False], TraditionalForm]], "Print",
17788	CellChangeTimes->{3.581705775919442^9, 3.581706694662108^9}],
17789
17790	Cell[BoxData[
17791	FormBox[
17792	InterpretationBox[
17793	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17794	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17795	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17796	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
17797	Editable->False], TraditionalForm]], "Print",
17798	CellChangeTimes->{3.581705775919442^9, 3.5817066946656084`^9}],
17799
17800	Cell[BoxData[
17801	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17802	CellChangeTimes->{3.581705775919442^9, 3.581706694668109^9}],
17803
17804	Cell[BoxData[
17805	FormBox[
17806	RowBox[{
17807	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLw", " ",
17808	FormBox[
17809	SubscriptBox["\[Delta]",
17810	RowBox[{
17811	FormBox[
17812	SubscriptBox["\<\"i\"\>", "1"],
17813	TraditionalForm], ",",
17814	FormBox[
17815	SubscriptBox["\<\"i\"\>", "2"],
17816	TraditionalForm]}]],
17817	TraditionalForm], " ",
17818	FormBox[
17819	SubscriptBox[
17820	RowBox[{
17821	FormBox[
17822	SuperscriptBox["\[Gamma]",
17823	FormBox[
17824	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17825	TraditionalForm]],
17826	TraditionalForm], ".",
17827	FormBox[
17828	SubscriptBox["P", "\<\"-\"\>"],
17829	TraditionalForm]}],
17830	RowBox[{
17831	FormBox[
17832	SubscriptBox["\<\"s\"\>", "2"],
17833	TraditionalForm], ",",
17834	FormBox[
17835	SubscriptBox["\<\"s\"\>", "1"],
17836	TraditionalForm]}]],
17837	TraditionalForm]}], "+",
17838	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRw", " ",
17839	FormBox[
17840	SubscriptBox["\[Delta]",
17841	RowBox[{
17842	FormBox[
17843	SubscriptBox["\<\"i\"\>", "1"],
17844	TraditionalForm], ",",
17845	FormBox[
17846	SubscriptBox["\<\"i\"\>", "2"],
17847	TraditionalForm]}]],
17848	TraditionalForm], " ",
17849	FormBox[
17850	SubscriptBox[
17851	RowBox[{
17852	FormBox[
17853	SuperscriptBox["\[Gamma]",
17854	FormBox[
17855	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17856	TraditionalForm]],
17857	TraditionalForm], ".",
17858	FormBox[
17859	SubscriptBox["P", "\<\"+\"\>"],
17860	TraditionalForm]}],
17861	RowBox[{
17862	FormBox[
17863	SubscriptBox["\<\"s\"\>", "2"],
17864	TraditionalForm], ",",
17865	FormBox[
17866	SubscriptBox["\<\"s\"\>", "1"],
17867	TraditionalForm]}]],
17868	TraditionalForm]}]}], TraditionalForm]], "Print",
17869	CellChangeTimes->{3.581705775919442^9, 3.581706694671109^9}],
17870
17871	Cell[BoxData[
17872	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17873	* * * *)\"\>", TraditionalForm]], "Print",
17874	CellChangeTimes->{3.581705775919442^9, 3.5817066946756096`^9}],
17875
17876	Cell[BoxData[
17877	FormBox[
17878	InterpretationBox[
17879	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "26"}],
17880	SequenceForm["Vertex ", 26],
17881	Editable->False], TraditionalForm]], "Print",
17882	CellChangeTimes->{3.581705775919442^9, 3.581706694686611^9}],
17883
17884	Cell[BoxData[
17885	FormBox[
17886	InterpretationBox[
17887	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
17888	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17889	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
17890	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
17891	Editable->False], TraditionalForm]], "Print",
17892	CellChangeTimes->{3.581705775919442^9, 3.5817066946896114`^9}],
17893
17894	Cell[BoxData[
17895	FormBox[
17896	InterpretationBox[
17897	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
17898	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
17899	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
17900	FormBox[
17901	OverscriptBox["tp", "\<\"-\"\>"],
17902	TraditionalForm]}],
17903	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
17904	Editable->False], TraditionalForm]], "Print",
17905	CellChangeTimes->{3.581705775919442^9, 3.5817066946926117`^9}],
17906
17907	Cell[BoxData[
17908	FormBox[
17909	InterpretationBox[
17910	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
17911	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
17912	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
17913	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
17914	Editable->False], TraditionalForm]], "Print",
17915	CellChangeTimes->{3.581705775919442^9, 3.5817066946956124`^9}],
17916
17917	Cell[BoxData[
17918	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
17919	CellChangeTimes->{3.581705775919442^9, 3.5817066946986127`^9}],
17920
17921	Cell[BoxData[
17922	FormBox[
17923	RowBox[{
17924	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLw", " ",
17925	FormBox[
17926	SubscriptBox["\[Delta]",
17927	RowBox[{
17928	FormBox[
17929	SubscriptBox["\<\"i\"\>", "1"],
17930	TraditionalForm], ",",
17931	FormBox[
17932	SubscriptBox["\<\"i\"\>", "2"],
17933	TraditionalForm]}]],
17934	TraditionalForm], " ",
17935	FormBox[
17936	SubscriptBox[
17937	RowBox[{
17938	FormBox[
17939	SuperscriptBox["\[Gamma]",
17940	FormBox[
17941	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17942	TraditionalForm]],
17943	TraditionalForm], ".",
17944	FormBox[
17945	SubscriptBox["P", "\<\"-\"\>"],
17946	TraditionalForm]}],
17947	RowBox[{
17948	FormBox[
17949	SubscriptBox["\<\"s\"\>", "2"],
17950	TraditionalForm], ",",
17951	FormBox[
17952	SubscriptBox["\<\"s\"\>", "1"],
17953	TraditionalForm]}]],
17954	TraditionalForm]}], "+",
17955	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRw", " ",
17956	FormBox[
17957	SubscriptBox["\[Delta]",
17958	RowBox[{
17959	FormBox[
17960	SubscriptBox["\<\"i\"\>", "1"],
17961	TraditionalForm], ",",
17962	FormBox[
17963	SubscriptBox["\<\"i\"\>", "2"],
17964	TraditionalForm]}]],
17965	TraditionalForm], " ",
17966	FormBox[
17967	SubscriptBox[
17968	RowBox[{
17969	FormBox[
17970	SuperscriptBox["\[Gamma]",
17971	FormBox[
17972	SubscriptBox["\<\"\[Mu]\"\>", "3"],
17973	TraditionalForm]],
17974	TraditionalForm], ".",
17975	FormBox[
17976	SubscriptBox["P", "\<\"+\"\>"],
17977	TraditionalForm]}],
17978	RowBox[{
17979	FormBox[
17980	SubscriptBox["\<\"s\"\>", "2"],
17981	TraditionalForm], ",",
17982	FormBox[
17983	SubscriptBox["\<\"s\"\>", "1"],
17984	TraditionalForm]}]],
17985	TraditionalForm]}]}], TraditionalForm]], "Print",
17986	CellChangeTimes->{3.581705775919442^9, 3.5817066947046137`^9}],
17987
17988	Cell[BoxData[
17989	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
17990	* * * *)\"\>", TraditionalForm]], "Print",
17991	CellChangeTimes->{3.581705775919442^9, 3.5817066947121143`^9}],
17992
17993	Cell[BoxData[
17994	FormBox[
17995	InterpretationBox[
17996	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "27"}],
17997	SequenceForm["Vertex ", 27],
17998	Editable->False], TraditionalForm]], "Print",
17999	CellChangeTimes->{3.581705775919442^9, 3.581706694715615^9}],
18000
18001	Cell[BoxData[
18002	FormBox[
18003	InterpretationBox[
18004	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18005	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18006	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
18007	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
18008	Editable->False], TraditionalForm]], "Print",
18009	CellChangeTimes->{3.581705775919442^9, 3.5817066947191153`^9}],
18010
18011	Cell[BoxData[
18012	FormBox[
18013	InterpretationBox[
18014	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18015	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18016	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18017	FormBox[
18018	OverscriptBox["tp", "\<\"-\"\>"],
18019	TraditionalForm]}],
18020	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
18021	Editable->False], TraditionalForm]], "Print",
18022	CellChangeTimes->{3.581705775919442^9, 3.5817066947221155`^9}],
18023
18024	Cell[BoxData[
18025	FormBox[
18026	InterpretationBox[
18027	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18028	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18029	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18030	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
18031	Editable->False], TraditionalForm]], "Print",
18032	CellChangeTimes->{3.581705775919442^9, 3.5817066947306166`^9}],
18033
18034	Cell[BoxData[
18035	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18036	CellChangeTimes->{3.581705775919442^9, 3.581706694738618^9}],
18037
18038	Cell[BoxData[
18039	FormBox[
18040	RowBox[{
18041	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLw", " ",
18042	FormBox[
18043	SubscriptBox["\[Delta]",
18044	RowBox[{
18045	FormBox[
18046	SubscriptBox["\<\"i\"\>", "1"],
18047	TraditionalForm], ",",
18048	FormBox[
18049	SubscriptBox["\<\"i\"\>", "2"],
18050	TraditionalForm]}]],
18051	TraditionalForm], " ",
18052	FormBox[
18053	SubscriptBox[
18054	RowBox[{
18055	FormBox[
18056	SuperscriptBox["\[Gamma]",
18057	FormBox[
18058	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18059	TraditionalForm]],
18060	TraditionalForm], ".",
18061	FormBox[
18062	SubscriptBox["P", "\<\"-\"\>"],
18063	TraditionalForm]}],
18064	RowBox[{
18065	FormBox[
18066	SubscriptBox["\<\"s\"\>", "2"],
18067	TraditionalForm], ",",
18068	FormBox[
18069	SubscriptBox["\<\"s\"\>", "1"],
18070	TraditionalForm]}]],
18071	TraditionalForm]}], "+",
18072	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRw", " ",
18073	FormBox[
18074	SubscriptBox["\[Delta]",
18075	RowBox[{
18076	FormBox[
18077	SubscriptBox["\<\"i\"\>", "1"],
18078	TraditionalForm], ",",
18079	FormBox[
18080	SubscriptBox["\<\"i\"\>", "2"],
18081	TraditionalForm]}]],
18082	TraditionalForm], " ",
18083	FormBox[
18084	SubscriptBox[
18085	RowBox[{
18086	FormBox[
18087	SuperscriptBox["\[Gamma]",
18088	FormBox[
18089	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18090	TraditionalForm]],
18091	TraditionalForm], ".",
18092	FormBox[
18093	SubscriptBox["P", "\<\"+\"\>"],
18094	TraditionalForm]}],
18095	RowBox[{
18096	FormBox[
18097	SubscriptBox["\<\"s\"\>", "2"],
18098	TraditionalForm], ",",
18099	FormBox[
18100	SubscriptBox["\<\"s\"\>", "1"],
18101	TraditionalForm]}]],
18102	TraditionalForm]}]}], TraditionalForm]], "Print",
18103	CellChangeTimes->{3.581705775919442^9, 3.581706694742118^9}],
18104
18105	Cell[BoxData[
18106	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18107	* * * *)\"\>", TraditionalForm]], "Print",
18108	CellChangeTimes->{3.581705775919442^9, 3.581706694748119^9}],
18109
18110	Cell[BoxData[
18111	FormBox[
18112	InterpretationBox[
18113	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "28"}],
18114	SequenceForm["Vertex ", 28],
18115	Editable->False], TraditionalForm]], "Print",
18116	CellChangeTimes->{3.581705775919442^9, 3.5817066947531195`^9}],
18117
18118	Cell[BoxData[
18119	FormBox[
18120	InterpretationBox[
18121	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18122	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18123	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
18124	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
18125	Editable->False], TraditionalForm]], "Print",
18126	CellChangeTimes->{3.581705775919442^9, 3.5817066947631207`^9}],
18127
18128	Cell[BoxData[
18129	FormBox[
18130	InterpretationBox[
18131	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18132	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18133	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18134	FormBox[
18135	OverscriptBox["tp", "\<\"-\"\>"],
18136	TraditionalForm]}],
18137	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
18138	Editable->False], TraditionalForm]], "Print",
18139	CellChangeTimes->{3.581705775919442^9, 3.5817066947686214`^9}],
18140
18141	Cell[BoxData[
18142	FormBox[
18143	InterpretationBox[
18144	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18145	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18146	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18147	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
18148	Editable->False], TraditionalForm]], "Print",
18149	CellChangeTimes->{3.581705775919442^9, 3.581706694772122^9}],
18150
18151	Cell[BoxData[
18152	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18153	CellChangeTimes->{3.581705775919442^9, 3.5817066947771225`^9}],
18154
18155	Cell[BoxData[
18156	FormBox[
18157	RowBox[{
18158	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLw", " ",
18159	FormBox[
18160	SubscriptBox["\[Delta]",
18161	RowBox[{
18162	FormBox[
18163	SubscriptBox["\<\"i\"\>", "1"],
18164	TraditionalForm], ",",
18165	FormBox[
18166	SubscriptBox["\<\"i\"\>", "2"],
18167	TraditionalForm]}]],
18168	TraditionalForm], " ",
18169	FormBox[
18170	SubscriptBox[
18171	RowBox[{
18172	FormBox[
18173	SuperscriptBox["\[Gamma]",
18174	FormBox[
18175	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18176	TraditionalForm]],
18177	TraditionalForm], ".",
18178	FormBox[
18179	SubscriptBox["P", "\<\"-\"\>"],
18180	TraditionalForm]}],
18181	RowBox[{
18182	FormBox[
18183	SubscriptBox["\<\"s\"\>", "2"],
18184	TraditionalForm], ",",
18185	FormBox[
18186	SubscriptBox["\<\"s\"\>", "1"],
18187	TraditionalForm]}]],
18188	TraditionalForm]}], "+",
18189	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRw", " ",
18190	FormBox[
18191	SubscriptBox["\[Delta]",
18192	RowBox[{
18193	FormBox[
18194	SubscriptBox["\<\"i\"\>", "1"],
18195	TraditionalForm], ",",
18196	FormBox[
18197	SubscriptBox["\<\"i\"\>", "2"],
18198	TraditionalForm]}]],
18199	TraditionalForm], " ",
18200	FormBox[
18201	SubscriptBox[
18202	RowBox[{
18203	FormBox[
18204	SuperscriptBox["\[Gamma]",
18205	FormBox[
18206	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18207	TraditionalForm]],
18208	TraditionalForm], ".",
18209	FormBox[
18210	SubscriptBox["P", "\<\"+\"\>"],
18211	TraditionalForm]}],
18212	RowBox[{
18213	FormBox[
18214	SubscriptBox["\<\"s\"\>", "2"],
18215	TraditionalForm], ",",
18216	FormBox[
18217	SubscriptBox["\<\"s\"\>", "1"],
18218	TraditionalForm]}]],
18219	TraditionalForm]}]}], TraditionalForm]], "Print",
18220	CellChangeTimes->{3.581705775919442^9, 3.581706694788624^9}],
18221
18222	Cell[BoxData[
18223	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18224	* * * *)\"\>", TraditionalForm]], "Print",
18225	CellChangeTimes->{3.581705775919442^9, 3.5817066947941246`^9}],
18226
18227	Cell[BoxData[
18228	FormBox[
18229	InterpretationBox[
18230	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "29"}],
18231	SequenceForm["Vertex ", 29],
18232	Editable->False], TraditionalForm]], "Print",
18233	CellChangeTimes->{3.581705775919442^9, 3.581706694797125^9}],
18234
18235	Cell[BoxData[
18236	FormBox[
18237	InterpretationBox[
18238	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18239	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18240	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
18241	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
18242	Editable->False], TraditionalForm]], "Print",
18243	CellChangeTimes->{3.581705775919442^9, 3.5817066948016253`^9}],
18244
18245	Cell[BoxData[
18246	FormBox[
18247	InterpretationBox[
18248	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18249	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18250	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18251	FormBox[
18252	OverscriptBox["u", "\<\"-\"\>"],
18253	TraditionalForm]}],
18254	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
18255	Editable->False], TraditionalForm]], "Print",
18256	CellChangeTimes->{3.581705775919442^9, 3.581706694807126^9}],
18257
18258	Cell[BoxData[
18259	FormBox[
18260	InterpretationBox[
18261	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18262	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18263	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18264	SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
18265	Editable->False], TraditionalForm]], "Print",
18266	CellChangeTimes->{3.581705775919442^9, 3.581706694816128^9}],
18267
18268	Cell[BoxData[
18269	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18270	CellChangeTimes->{3.581705775919442^9, 3.581706694819128^9}],
18271
18272	Cell[BoxData[
18273	FormBox[
18274	RowBox[{
18275	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLw", " ",
18276	FormBox[
18277	SubscriptBox["\[Delta]",
18278	RowBox[{
18279	FormBox[
18280	SubscriptBox["\<\"i\"\>", "1"],
18281	TraditionalForm], ",",
18282	FormBox[
18283	SubscriptBox["\<\"i\"\>", "2"],
18284	TraditionalForm]}]],
18285	TraditionalForm], " ",
18286	FormBox[
18287	SubscriptBox[
18288	RowBox[{
18289	FormBox[
18290	SuperscriptBox["\[Gamma]",
18291	FormBox[
18292	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18293	TraditionalForm]],
18294	TraditionalForm], ".",
18295	FormBox[
18296	SubscriptBox["P", "\<\"-\"\>"],
18297	TraditionalForm]}],
18298	RowBox[{
18299	FormBox[
18300	SubscriptBox["\<\"s\"\>", "2"],
18301	TraditionalForm], ",",
18302	FormBox[
18303	SubscriptBox["\<\"s\"\>", "1"],
18304	TraditionalForm]}]],
18305	TraditionalForm]}], "+",
18306	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRw", " ",
18307	FormBox[
18308	SubscriptBox["\[Delta]",
18309	RowBox[{
18310	FormBox[
18311	SubscriptBox["\<\"i\"\>", "1"],
18312	TraditionalForm], ",",
18313	FormBox[
18314	SubscriptBox["\<\"i\"\>", "2"],
18315	TraditionalForm]}]],
18316	TraditionalForm], " ",
18317	FormBox[
18318	SubscriptBox[
18319	RowBox[{
18320	FormBox[
18321	SuperscriptBox["\[Gamma]",
18322	FormBox[
18323	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18324	TraditionalForm]],
18325	TraditionalForm], ".",
18326	FormBox[
18327	SubscriptBox["P", "\<\"+\"\>"],
18328	TraditionalForm]}],
18329	RowBox[{
18330	FormBox[
18331	SubscriptBox["\<\"s\"\>", "2"],
18332	TraditionalForm], ",",
18333	FormBox[
18334	SubscriptBox["\<\"s\"\>", "1"],
18335	TraditionalForm]}]],
18336	TraditionalForm]}]}], TraditionalForm]], "Print",
18337	CellChangeTimes->{3.581705775919442^9, 3.5817066948226285`^9}],
18338
18339	Cell[BoxData[
18340	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18341	* * * *)\"\>", TraditionalForm]], "Print",
18342	CellChangeTimes->{3.581705775919442^9, 3.581706694829129^9}],
18343
18344	Cell[BoxData[
18345	FormBox[
18346	InterpretationBox[
18347	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "30"}],
18348	SequenceForm["Vertex ", 30],
18349	Editable->False], TraditionalForm]], "Print",
18350	CellChangeTimes->{3.581705775919442^9, 3.5817066948391304`^9}],
18351
18352	Cell[BoxData[
18353	FormBox[
18354	InterpretationBox[
18355	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18356	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18357	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
18358	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
18359	Editable->False], TraditionalForm]], "Print",
18360	CellChangeTimes->{3.581705775919442^9, 3.581706694864134^9}],
18361
18362	Cell[BoxData[
18363	FormBox[
18364	InterpretationBox[
18365	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18366	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18367	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18368	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
18369	Editable->False], TraditionalForm]], "Print",
18370	CellChangeTimes->{3.581705775919442^9, 3.5817066948691344`^9}],
18371
18372	Cell[BoxData[
18373	FormBox[
18374	InterpretationBox[
18375	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18376	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18377	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18378	FormBox[
18379	OverscriptBox["x", "\<\"-\"\>"],
18380	TraditionalForm]}],
18381	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
18382	Editable->False], TraditionalForm]], "Print",
18383	CellChangeTimes->{3.581705775919442^9, 3.581706694873635^9}],
18384
18385	Cell[BoxData[
18386	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18387	CellChangeTimes->{3.581705775919442^9, 3.581706694879636^9}],
18388
18389	Cell[BoxData[
18390	FormBox[
18391	RowBox[{
18392	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcL", " ",
18393	FormBox[
18394	SubscriptBox["\[Delta]",
18395	RowBox[{
18396	FormBox[
18397	SubscriptBox["\<\"i\"\>", "1"],
18398	TraditionalForm], ",",
18399	FormBox[
18400	SubscriptBox["\<\"i\"\>", "3"],
18401	TraditionalForm]}]],
18402	TraditionalForm], " ",
18403	FormBox[
18404	SubscriptBox[
18405	RowBox[{
18406	FormBox[
18407	SuperscriptBox["\[Gamma]",
18408	FormBox[
18409	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18410	TraditionalForm]],
18411	TraditionalForm], ".",
18412	FormBox[
18413	SubscriptBox["P", "\<\"-\"\>"],
18414	TraditionalForm]}],
18415	RowBox[{
18416	FormBox[
18417	SubscriptBox["\<\"s\"\>", "3"],
18418	TraditionalForm], ",",
18419	FormBox[
18420	SubscriptBox["\<\"s\"\>", "1"],
18421	TraditionalForm]}]],
18422	TraditionalForm]}], "+",
18423	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcR", " ",
18424	FormBox[
18425	SubscriptBox["\[Delta]",
18426	RowBox[{
18427	FormBox[
18428	SubscriptBox["\<\"i\"\>", "1"],
18429	TraditionalForm], ",",
18430	FormBox[
18431	SubscriptBox["\<\"i\"\>", "3"],
18432	TraditionalForm]}]],
18433	TraditionalForm], " ",
18434	FormBox[
18435	SubscriptBox[
18436	RowBox[{
18437	FormBox[
18438	SuperscriptBox["\[Gamma]",
18439	FormBox[
18440	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18441	TraditionalForm]],
18442	TraditionalForm], ".",
18443	FormBox[
18444	SubscriptBox["P", "\<\"+\"\>"],
18445	TraditionalForm]}],
18446	RowBox[{
18447	FormBox[
18448	SubscriptBox["\<\"s\"\>", "3"],
18449	TraditionalForm], ",",
18450	FormBox[
18451	SubscriptBox["\<\"s\"\>", "1"],
18452	TraditionalForm]}]],
18453	TraditionalForm]}]}], TraditionalForm]], "Print",
18454	CellChangeTimes->{3.581705775919442^9, 3.581706694891137^9}],
18455
18456	Cell[BoxData[
18457	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18458	* * * *)\"\>", TraditionalForm]], "Print",
18459	CellChangeTimes->{3.581705775919442^9, 3.581706694896638^9}],
18460
18461	Cell[BoxData[
18462	FormBox[
18463	InterpretationBox[
18464	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "31"}],
18465	SequenceForm["Vertex ", 31],
18466	Editable->False], TraditionalForm]], "Print",
18467	CellChangeTimes->{3.581705775919442^9, 3.5817066949016385`^9}],
18468
18469	Cell[BoxData[
18470	FormBox[
18471	InterpretationBox[
18472	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18473	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18474	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
18475	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
18476	Editable->False], TraditionalForm]], "Print",
18477	CellChangeTimes->{3.581705775919442^9, 3.58170669491364^9}],
18478
18479	Cell[BoxData[
18480	FormBox[
18481	InterpretationBox[
18482	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18483	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18484	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18485	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
18486	Editable->False], TraditionalForm]], "Print",
18487	CellChangeTimes->{3.581705775919442^9, 3.5817066949176407`^9}],
18488
18489	Cell[BoxData[
18490	FormBox[
18491	InterpretationBox[
18492	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18493	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18494	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18495	FormBox[
18496	OverscriptBox["x", "\<\"-\"\>"],
18497	TraditionalForm]}],
18498	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
18499	Editable->False], TraditionalForm]], "Print",
18500	CellChangeTimes->{3.581705775919442^9, 3.5817066949216413`^9}],
18501
18502	Cell[BoxData[
18503	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18504	CellChangeTimes->{3.581705775919442^9, 3.5817066949261417`^9}],
18505
18506	Cell[BoxData[
18507	FormBox[
18508	RowBox[{
18509	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtL", " ",
18510	FormBox[
18511	SubscriptBox["\[Delta]",
18512	RowBox[{
18513	FormBox[
18514	SubscriptBox["\<\"i\"\>", "1"],
18515	TraditionalForm], ",",
18516	FormBox[
18517	SubscriptBox["\<\"i\"\>", "3"],
18518	TraditionalForm]}]],
18519	TraditionalForm], " ",
18520	FormBox[
18521	SubscriptBox[
18522	RowBox[{
18523	FormBox[
18524	SuperscriptBox["\[Gamma]",
18525	FormBox[
18526	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18527	TraditionalForm]],
18528	TraditionalForm], ".",
18529	FormBox[
18530	SubscriptBox["P", "\<\"-\"\>"],
18531	TraditionalForm]}],
18532	RowBox[{
18533	FormBox[
18534	SubscriptBox["\<\"s\"\>", "3"],
18535	TraditionalForm], ",",
18536	FormBox[
18537	SubscriptBox["\<\"s\"\>", "1"],
18538	TraditionalForm]}]],
18539	TraditionalForm]}], "+",
18540	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtR", " ",
18541	FormBox[
18542	SubscriptBox["\[Delta]",
18543	RowBox[{
18544	FormBox[
18545	SubscriptBox["\<\"i\"\>", "1"],
18546	TraditionalForm], ",",
18547	FormBox[
18548	SubscriptBox["\<\"i\"\>", "3"],
18549	TraditionalForm]}]],
18550	TraditionalForm], " ",
18551	FormBox[
18552	SubscriptBox[
18553	RowBox[{
18554	FormBox[
18555	SuperscriptBox["\[Gamma]",
18556	FormBox[
18557	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18558	TraditionalForm]],
18559	TraditionalForm], ".",
18560	FormBox[
18561	SubscriptBox["P", "\<\"+\"\>"],
18562	TraditionalForm]}],
18563	RowBox[{
18564	FormBox[
18565	SubscriptBox["\<\"s\"\>", "3"],
18566	TraditionalForm], ",",
18567	FormBox[
18568	SubscriptBox["\<\"s\"\>", "1"],
18569	TraditionalForm]}]],
18570	TraditionalForm]}]}], TraditionalForm]], "Print",
18571	CellChangeTimes->{3.581705775919442^9, 3.5817066949316425`^9}],
18572
18573	Cell[BoxData[
18574	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18575	* * * *)\"\>", TraditionalForm]], "Print",
18576	CellChangeTimes->{3.581705775919442^9, 3.5817066949436436`^9}],
18577
18578	Cell[BoxData[
18579	FormBox[
18580	InterpretationBox[
18581	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "32"}],
18582	SequenceForm["Vertex ", 32],
18583	Editable->False], TraditionalForm]], "Print",
18584	CellChangeTimes->{3.581705775919442^9, 3.5817066949491444`^9}],
18585
18586	Cell[BoxData[
18587	FormBox[
18588	InterpretationBox[
18589	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18590	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18591	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
18592	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
18593	Editable->False], TraditionalForm]], "Print",
18594	CellChangeTimes->{3.581705775919442^9, 3.5817066949541454`^9}],
18595
18596	Cell[BoxData[
18597	FormBox[
18598	InterpretationBox[
18599	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18600	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18601	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
18602	SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
18603	Editable->False], TraditionalForm]], "Print",
18604	CellChangeTimes->{3.581705775919442^9, 3.581706694965146^9}],
18605
18606	Cell[BoxData[
18607	FormBox[
18608	InterpretationBox[
18609	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18610	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18611	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18612	FormBox[
18613	OverscriptBox["x", "\<\"-\"\>"],
18614	TraditionalForm]}],
18615	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`xbar],
18616	Editable->False], TraditionalForm]], "Print",
18617	CellChangeTimes->{3.581705775919442^9, 3.5817066949691467`^9}],
18618
18619	Cell[BoxData[
18620	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18621	CellChangeTimes->{3.581705775919442^9, 3.581706694974148^9}],
18622
18623	Cell[BoxData[
18624	FormBox[
18625	RowBox[{
18626	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuL", " ",
18627	FormBox[
18628	SubscriptBox["\[Delta]",
18629	RowBox[{
18630	FormBox[
18631	SubscriptBox["\<\"i\"\>", "1"],
18632	TraditionalForm], ",",
18633	FormBox[
18634	SubscriptBox["\<\"i\"\>", "3"],
18635	TraditionalForm]}]],
18636	TraditionalForm], " ",
18637	FormBox[
18638	SubscriptBox[
18639	RowBox[{
18640	FormBox[
18641	SuperscriptBox["\[Gamma]",
18642	FormBox[
18643	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18644	TraditionalForm]],
18645	TraditionalForm], ".",
18646	FormBox[
18647	SubscriptBox["P", "\<\"-\"\>"],
18648	TraditionalForm]}],
18649	RowBox[{
18650	FormBox[
18651	SubscriptBox["\<\"s\"\>", "3"],
18652	TraditionalForm], ",",
18653	FormBox[
18654	SubscriptBox["\<\"s\"\>", "1"],
18655	TraditionalForm]}]],
18656	TraditionalForm]}], "+",
18657	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuR", " ",
18658	FormBox[
18659	SubscriptBox["\[Delta]",
18660	RowBox[{
18661	FormBox[
18662	SubscriptBox["\<\"i\"\>", "1"],
18663	TraditionalForm], ",",
18664	FormBox[
18665	SubscriptBox["\<\"i\"\>", "3"],
18666	TraditionalForm]}]],
18667	TraditionalForm], " ",
18668	FormBox[
18669	SubscriptBox[
18670	RowBox[{
18671	FormBox[
18672	SuperscriptBox["\[Gamma]",
18673	FormBox[
18674	SubscriptBox["\<\"\[Mu]\"\>", "2"],
18675	TraditionalForm]],
18676	TraditionalForm], ".",
18677	FormBox[
18678	SubscriptBox["P", "\<\"+\"\>"],
18679	TraditionalForm]}],
18680	RowBox[{
18681	FormBox[
18682	SubscriptBox["\<\"s\"\>", "3"],
18683	TraditionalForm], ",",
18684	FormBox[
18685	SubscriptBox["\<\"s\"\>", "1"],
18686	TraditionalForm]}]],
18687	TraditionalForm]}]}], TraditionalForm]], "Print",
18688	CellChangeTimes->{3.581705775919442^9, 3.5817066949816484`^9}],
18689
18690	Cell[BoxData[
18691	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18692	* * * *)\"\>", TraditionalForm]], "Print",
18693	CellChangeTimes->{3.581705775919442^9, 3.58170669499165^9}],
18694
18695	Cell[BoxData[
18696	FormBox[
18697	InterpretationBox[
18698	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "33"}],
18699	SequenceForm["Vertex ", 33],
18700	Editable->False], TraditionalForm]], "Print",
18701	CellChangeTimes->{3.581705775919442^9, 3.5817066949956503`^9}],
18702
18703	Cell[BoxData[
18704	FormBox[
18705	InterpretationBox[
18706	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18707	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18708	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18709	FormBox[
18710	OverscriptBox["b", "\<\"-\"\>"],
18711	TraditionalForm]}],
18712	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
18713	Editable->False], TraditionalForm]], "Print",
18714	CellChangeTimes->{3.581705775919442^9, 3.581706694999651^9}],
18715
18716	Cell[BoxData[
18717	FormBox[
18718	InterpretationBox[
18719	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18720	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18721	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
18722	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
18723	Editable->False], TraditionalForm]], "Print",
18724	CellChangeTimes->{3.581705775919442^9, 3.5817066950051517`^9}],
18725
18726	Cell[BoxData[
18727	FormBox[
18728	InterpretationBox[
18729	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18730	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18731	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18732	FormBox[
18733	SuperscriptBox["W", "\[Dagger]"],
18734	TraditionalForm]}],
18735	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18736	Editable->False], TraditionalForm]], "Print",
18737	CellChangeTimes->{3.581705775919442^9, 3.5817066950156527`^9}],
18738
18739	Cell[BoxData[
18740	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18741	CellChangeTimes->{3.581705775919442^9, 3.5817066950206537`^9}],
18742
18743	Cell[BoxData[
18744	FormBox[
18745	RowBox[{
18746	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLw", " ",
18747	FormBox[
18748	SubscriptBox["\[Delta]",
18749	RowBox[{
18750	FormBox[
18751	SubscriptBox["\<\"i\"\>", "1"],
18752	TraditionalForm], ",",
18753	FormBox[
18754	SubscriptBox["\<\"i\"\>", "2"],
18755	TraditionalForm]}]],
18756	TraditionalForm], " ",
18757	FormBox[
18758	SubscriptBox[
18759	RowBox[{
18760	FormBox[
18761	SuperscriptBox["\[Gamma]",
18762	FormBox[
18763	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18764	TraditionalForm]],
18765	TraditionalForm], ".",
18766	FormBox[
18767	SubscriptBox["P", "\<\"-\"\>"],
18768	TraditionalForm]}],
18769	RowBox[{
18770	FormBox[
18771	SubscriptBox["\<\"s\"\>", "1"],
18772	TraditionalForm], ",",
18773	FormBox[
18774	SubscriptBox["\<\"s\"\>", "2"],
18775	TraditionalForm]}]],
18776	TraditionalForm]}], "+",
18777	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRw", " ",
18778	FormBox[
18779	SubscriptBox["\[Delta]",
18780	RowBox[{
18781	FormBox[
18782	SubscriptBox["\<\"i\"\>", "1"],
18783	TraditionalForm], ",",
18784	FormBox[
18785	SubscriptBox["\<\"i\"\>", "2"],
18786	TraditionalForm]}]],
18787	TraditionalForm], " ",
18788	FormBox[
18789	SubscriptBox[
18790	RowBox[{
18791	FormBox[
18792	SuperscriptBox["\[Gamma]",
18793	FormBox[
18794	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18795	TraditionalForm]],
18796	TraditionalForm], ".",
18797	FormBox[
18798	SubscriptBox["P", "\<\"+\"\>"],
18799	TraditionalForm]}],
18800	RowBox[{
18801	FormBox[
18802	SubscriptBox["\<\"s\"\>", "1"],
18803	TraditionalForm], ",",
18804	FormBox[
18805	SubscriptBox["\<\"s\"\>", "2"],
18806	TraditionalForm]}]],
18807	TraditionalForm]}]}], TraditionalForm]], "Print",
18808	CellChangeTimes->{3.581705775919442^9, 3.581706695025154^9}],
18809
18810	Cell[BoxData[
18811	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18812	* * * *)\"\>", TraditionalForm]], "Print",
18813	CellChangeTimes->{3.581705775919442^9, 3.581706695037656^9}],
18814
18815	Cell[BoxData[
18816	FormBox[
18817	InterpretationBox[
18818	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "34"}],
18819	SequenceForm["Vertex ", 34],
18820	Editable->False], TraditionalForm]], "Print",
18821	CellChangeTimes->{3.581705775919442^9, 3.5817066950416565`^9}],
18822
18823	Cell[BoxData[
18824	FormBox[
18825	InterpretationBox[
18826	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18827	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18828	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18829	FormBox[
18830	OverscriptBox["bp", "\<\"-\"\>"],
18831	TraditionalForm]}],
18832	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
18833	Editable->False], TraditionalForm]], "Print",
18834	CellChangeTimes->{3.581705775919442^9, 3.5817066950466566`^9}],
18835
18836	Cell[BoxData[
18837	FormBox[
18838	InterpretationBox[
18839	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18840	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18841	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
18842	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
18843	Editable->False], TraditionalForm]], "Print",
18844	CellChangeTimes->{3.581705775919442^9, 3.5817066950526576`^9}],
18845
18846	Cell[BoxData[
18847	FormBox[
18848	InterpretationBox[
18849	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18850	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18851	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18852	FormBox[
18853	SuperscriptBox["W", "\[Dagger]"],
18854	TraditionalForm]}],
18855	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18856	Editable->False], TraditionalForm]], "Print",
18857	CellChangeTimes->{3.581705775919442^9, 3.5817066950641594`^9}],
18858
18859	Cell[BoxData[
18860	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18861	CellChangeTimes->{3.581705775919442^9, 3.5817066950691595`^9}],
18862
18863	Cell[BoxData[
18864	FormBox[
18865	RowBox[{
18866	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLw", " ",
18867	FormBox[
18868	SubscriptBox["\[Delta]",
18869	RowBox[{
18870	FormBox[
18871	SubscriptBox["\<\"i\"\>", "1"],
18872	TraditionalForm], ",",
18873	FormBox[
18874	SubscriptBox["\<\"i\"\>", "2"],
18875	TraditionalForm]}]],
18876	TraditionalForm], " ",
18877	FormBox[
18878	SubscriptBox[
18879	RowBox[{
18880	FormBox[
18881	SuperscriptBox["\[Gamma]",
18882	FormBox[
18883	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18884	TraditionalForm]],
18885	TraditionalForm], ".",
18886	FormBox[
18887	SubscriptBox["P", "\<\"-\"\>"],
18888	TraditionalForm]}],
18889	RowBox[{
18890	FormBox[
18891	SubscriptBox["\<\"s\"\>", "1"],
18892	TraditionalForm], ",",
18893	FormBox[
18894	SubscriptBox["\<\"s\"\>", "2"],
18895	TraditionalForm]}]],
18896	TraditionalForm]}], "+",
18897	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRw", " ",
18898	FormBox[
18899	SubscriptBox["\[Delta]",
18900	RowBox[{
18901	FormBox[
18902	SubscriptBox["\<\"i\"\>", "1"],
18903	TraditionalForm], ",",
18904	FormBox[
18905	SubscriptBox["\<\"i\"\>", "2"],
18906	TraditionalForm]}]],
18907	TraditionalForm], " ",
18908	FormBox[
18909	SubscriptBox[
18910	RowBox[{
18911	FormBox[
18912	SuperscriptBox["\[Gamma]",
18913	FormBox[
18914	SubscriptBox["\<\"\[Mu]\"\>", "3"],
18915	TraditionalForm]],
18916	TraditionalForm], ".",
18917	FormBox[
18918	SubscriptBox["P", "\<\"+\"\>"],
18919	TraditionalForm]}],
18920	RowBox[{
18921	FormBox[
18922	SubscriptBox["\<\"s\"\>", "1"],
18923	TraditionalForm], ",",
18924	FormBox[
18925	SubscriptBox["\<\"s\"\>", "2"],
18926	TraditionalForm]}]],
18927	TraditionalForm]}]}], TraditionalForm]], "Print",
18928	CellChangeTimes->{3.581705775919442^9, 3.58170669507316^9}],
18929
18930	Cell[BoxData[
18931	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
18932	* * * *)\"\>", TraditionalForm]], "Print",
18933	CellChangeTimes->{3.581705775919442^9, 3.5817066950791607`^9}],
18934
18935	Cell[BoxData[
18936	FormBox[
18937	InterpretationBox[
18938	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "35"}],
18939	SequenceForm["Vertex ", 35],
18940	Editable->False], TraditionalForm]], "Print",
18941	CellChangeTimes->{3.581705775919442^9, 3.5817066950891623`^9}],
18942
18943	Cell[BoxData[
18944	FormBox[
18945	InterpretationBox[
18946	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
18947	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18948	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18949	FormBox[
18950	OverscriptBox["bp", "\<\"-\"\>"],
18951	TraditionalForm]}],
18952	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
18953	Editable->False], TraditionalForm]], "Print",
18954	CellChangeTimes->{3.581705775919442^9, 3.5817066950931625`^9}],
18955
18956	Cell[BoxData[
18957	FormBox[
18958	InterpretationBox[
18959	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
18960	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
18961	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
18962	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
18963	Editable->False], TraditionalForm]], "Print",
18964	CellChangeTimes->{3.581705775919442^9, 3.581706695097163^9}],
18965
18966	Cell[BoxData[
18967	FormBox[
18968	InterpretationBox[
18969	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
18970	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
18971	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
18972	FormBox[
18973	SuperscriptBox["W", "\[Dagger]"],
18974	TraditionalForm]}],
18975	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
18976	Editable->False], TraditionalForm]], "Print",
18977	CellChangeTimes->{3.581705775919442^9, 3.5817066951016636`^9}],
18978
18979	Cell[BoxData[
18980	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
18981	CellChangeTimes->{3.581705775919442^9, 3.5817066951056643`^9}],
18982
18983	Cell[BoxData[
18984	FormBox[
18985	RowBox[{
18986	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLw", " ",
18987	FormBox[
18988	SubscriptBox["\[Delta]",
18989	RowBox[{
18990	FormBox[
18991	SubscriptBox["\<\"i\"\>", "1"],
18992	TraditionalForm], ",",
18993	FormBox[
18994	SubscriptBox["\<\"i\"\>", "2"],
18995	TraditionalForm]}]],
18996	TraditionalForm], " ",
18997	FormBox[
18998	SubscriptBox[
18999	RowBox[{
19000	FormBox[
19001	SuperscriptBox["\[Gamma]",
19002	FormBox[
19003	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19004	TraditionalForm]],
19005	TraditionalForm], ".",
19006	FormBox[
19007	SubscriptBox["P", "\<\"-\"\>"],
19008	TraditionalForm]}],
19009	RowBox[{
19010	FormBox[
19011	SubscriptBox["\<\"s\"\>", "1"],
19012	TraditionalForm], ",",
19013	FormBox[
19014	SubscriptBox["\<\"s\"\>", "2"],
19015	TraditionalForm]}]],
19016	TraditionalForm]}], "+",
19017	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRw", " ",
19018	FormBox[
19019	SubscriptBox["\[Delta]",
19020	RowBox[{
19021	FormBox[
19022	SubscriptBox["\<\"i\"\>", "1"],
19023	TraditionalForm], ",",
19024	FormBox[
19025	SubscriptBox["\<\"i\"\>", "2"],
19026	TraditionalForm]}]],
19027	TraditionalForm], " ",
19028	FormBox[
19029	SubscriptBox[
19030	RowBox[{
19031	FormBox[
19032	SuperscriptBox["\[Gamma]",
19033	FormBox[
19034	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19035	TraditionalForm]],
19036	TraditionalForm], ".",
19037	FormBox[
19038	SubscriptBox["P", "\<\"+\"\>"],
19039	TraditionalForm]}],
19040	RowBox[{
19041	FormBox[
19042	SubscriptBox["\<\"s\"\>", "1"],
19043	TraditionalForm], ",",
19044	FormBox[
19045	SubscriptBox["\<\"s\"\>", "2"],
19046	TraditionalForm]}]],
19047	TraditionalForm]}]}], TraditionalForm]], "Print",
19048	CellChangeTimes->{3.581705775919442^9, 3.5817066951151657`^9}],
19049
19050	Cell[BoxData[
19051	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19052	* * * *)\"\>", TraditionalForm]], "Print",
19053	CellChangeTimes->{3.581705775919442^9, 3.5817066951221666`^9}],
19054
19055	Cell[BoxData[
19056	FormBox[
19057	InterpretationBox[
19058	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "36"}],
19059	SequenceForm["Vertex ", 36],
19060	Editable->False], TraditionalForm]], "Print",
19061	CellChangeTimes->{3.581705775919442^9, 3.581706695128167^9}],
19062
19063	Cell[BoxData[
19064	FormBox[
19065	InterpretationBox[
19066	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19067	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19068	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19069	FormBox[
19070	OverscriptBox["bp", "\<\"-\"\>"],
19071	TraditionalForm]}],
19072	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
19073	Editable->False], TraditionalForm]], "Print",
19074	CellChangeTimes->{3.581705775919442^9, 3.5817066951396685`^9}],
19075
19076	Cell[BoxData[
19077	FormBox[
19078	InterpretationBox[
19079	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19080	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19081	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
19082	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
19083	Editable->False], TraditionalForm]], "Print",
19084	CellChangeTimes->{3.581705775919442^9, 3.5817066951456695`^9}],
19085
19086	Cell[BoxData[
19087	FormBox[
19088	InterpretationBox[
19089	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19090	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19091	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19092	FormBox[
19093	SuperscriptBox["W", "\[Dagger]"],
19094	TraditionalForm]}],
19095	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
19096	Editable->False], TraditionalForm]], "Print",
19097	CellChangeTimes->{3.581705775919442^9, 3.5817066951516705`^9}],
19098
19099	Cell[BoxData[
19100	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19101	CellChangeTimes->{3.581705775919442^9, 3.581706695163172^9}],
19102
19103	Cell[BoxData[
19104	FormBox[
19105	RowBox[{
19106	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLw", " ",
19107	FormBox[
19108	SubscriptBox["\[Delta]",
19109	RowBox[{
19110	FormBox[
19111	SubscriptBox["\<\"i\"\>", "1"],
19112	TraditionalForm], ",",
19113	FormBox[
19114	SubscriptBox["\<\"i\"\>", "2"],
19115	TraditionalForm]}]],
19116	TraditionalForm], " ",
19117	FormBox[
19118	SubscriptBox[
19119	RowBox[{
19120	FormBox[
19121	SuperscriptBox["\[Gamma]",
19122	FormBox[
19123	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19124	TraditionalForm]],
19125	TraditionalForm], ".",
19126	FormBox[
19127	SubscriptBox["P", "\<\"-\"\>"],
19128	TraditionalForm]}],
19129	RowBox[{
19130	FormBox[
19131	SubscriptBox["\<\"s\"\>", "1"],
19132	TraditionalForm], ",",
19133	FormBox[
19134	SubscriptBox["\<\"s\"\>", "2"],
19135	TraditionalForm]}]],
19136	TraditionalForm]}], "+",
19137	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRw", " ",
19138	FormBox[
19139	SubscriptBox["\[Delta]",
19140	RowBox[{
19141	FormBox[
19142	SubscriptBox["\<\"i\"\>", "1"],
19143	TraditionalForm], ",",
19144	FormBox[
19145	SubscriptBox["\<\"i\"\>", "2"],
19146	TraditionalForm]}]],
19147	TraditionalForm], " ",
19148	FormBox[
19149	SubscriptBox[
19150	RowBox[{
19151	FormBox[
19152	SuperscriptBox["\[Gamma]",
19153	FormBox[
19154	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19155	TraditionalForm]],
19156	TraditionalForm], ".",
19157	FormBox[
19158	SubscriptBox["P", "\<\"+\"\>"],
19159	TraditionalForm]}],
19160	RowBox[{
19161	FormBox[
19162	SubscriptBox["\<\"s\"\>", "1"],
19163	TraditionalForm], ",",
19164	FormBox[
19165	SubscriptBox["\<\"s\"\>", "2"],
19166	TraditionalForm]}]],
19167	TraditionalForm]}]}], TraditionalForm]], "Print",
19168	CellChangeTimes->{3.581705775919442^9, 3.5817066951671724`^9}],
19169
19170	Cell[BoxData[
19171	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19172	* * * *)\"\>", TraditionalForm]], "Print",
19173	CellChangeTimes->{3.581705775919442^9, 3.581706695173173^9}],
19174
19175	Cell[BoxData[
19176	FormBox[
19177	InterpretationBox[
19178	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "37"}],
19179	SequenceForm["Vertex ", 37],
19180	Editable->False], TraditionalForm]], "Print",
19181	CellChangeTimes->{3.581705775919442^9, 3.5817066951786737`^9}],
19182
19183	Cell[BoxData[
19184	FormBox[
19185	InterpretationBox[
19186	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19187	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19188	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19189	FormBox[
19190	OverscriptBox["c", "\<\"-\"\>"],
19191	TraditionalForm]}],
19192	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
19193	Editable->False], TraditionalForm]], "Print",
19194	CellChangeTimes->{3.581705775919442^9, 3.581706695190175^9}],
19195
19196	Cell[BoxData[
19197	FormBox[
19198	InterpretationBox[
19199	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19200	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19201	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19202	FormBox[
19203	SuperscriptBox["W", "\[Dagger]"],
19204	TraditionalForm]}],
19205	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
19206	Editable->False], TraditionalForm]], "Print",
19207	CellChangeTimes->{3.581705775919442^9, 3.5817066951941757`^9}],
19208
19209	Cell[BoxData[
19210	FormBox[
19211	InterpretationBox[
19212	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19213	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19214	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
19215	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
19216	Editable->False], TraditionalForm]], "Print",
19217	CellChangeTimes->{3.581705775919442^9, 3.581706695198676^9}],
19218
19219	Cell[BoxData[
19220	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19221	CellChangeTimes->{3.581705775919442^9, 3.5817066952051773`^9}],
19222
19223	Cell[BoxData[
19224	FormBox[
19225	RowBox[{
19226	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcL", " ",
19227	FormBox[
19228	SubscriptBox["\[Delta]",
19229	RowBox[{
19230	FormBox[
19231	SubscriptBox["\<\"i\"\>", "1"],
19232	TraditionalForm], ",",
19233	FormBox[
19234	SubscriptBox["\<\"i\"\>", "3"],
19235	TraditionalForm]}]],
19236	TraditionalForm], " ",
19237	FormBox[
19238	SubscriptBox[
19239	RowBox[{
19240	FormBox[
19241	SuperscriptBox["\[Gamma]",
19242	FormBox[
19243	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19244	TraditionalForm]],
19245	TraditionalForm], ".",
19246	FormBox[
19247	SubscriptBox["P", "\<\"-\"\>"],
19248	TraditionalForm]}],
19249	RowBox[{
19250	FormBox[
19251	SubscriptBox["\<\"s\"\>", "1"],
19252	TraditionalForm], ",",
19253	FormBox[
19254	SubscriptBox["\<\"s\"\>", "3"],
19255	TraditionalForm]}]],
19256	TraditionalForm]}], "+",
19257	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXcR", " ",
19258	FormBox[
19259	SubscriptBox["\[Delta]",
19260	RowBox[{
19261	FormBox[
19262	SubscriptBox["\<\"i\"\>", "1"],
19263	TraditionalForm], ",",
19264	FormBox[
19265	SubscriptBox["\<\"i\"\>", "3"],
19266	TraditionalForm]}]],
19267	TraditionalForm], " ",
19268	FormBox[
19269	SubscriptBox[
19270	RowBox[{
19271	FormBox[
19272	SuperscriptBox["\[Gamma]",
19273	FormBox[
19274	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19275	TraditionalForm]],
19276	TraditionalForm], ".",
19277	FormBox[
19278	SubscriptBox["P", "\<\"+\"\>"],
19279	TraditionalForm]}],
19280	RowBox[{
19281	FormBox[
19282	SubscriptBox["\<\"s\"\>", "1"],
19283	TraditionalForm], ",",
19284	FormBox[
19285	SubscriptBox["\<\"s\"\>", "3"],
19286	TraditionalForm]}]],
19287	TraditionalForm]}]}], TraditionalForm]], "Print",
19288	CellChangeTimes->{3.581705775919442^9, 3.5817066952146783`^9}],
19289
19290	Cell[BoxData[
19291	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19292	* * * *)\"\>", TraditionalForm]], "Print",
19293	CellChangeTimes->{3.581705775919442^9, 3.5817066952206793`^9}],
19294
19295	Cell[BoxData[
19296	FormBox[
19297	InterpretationBox[
19298	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "38"}],
19299	SequenceForm["Vertex ", 38],
19300	Editable->False], TraditionalForm]], "Print",
19301	CellChangeTimes->{3.581705775919442^9, 3.58170669522468^9}],
19302
19303	Cell[BoxData[
19304	FormBox[
19305	InterpretationBox[
19306	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19307	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19308	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19309	FormBox[
19310	OverscriptBox["d", "\<\"-\"\>"],
19311	TraditionalForm]}],
19312	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
19313	Editable->False], TraditionalForm]], "Print",
19314	CellChangeTimes->{3.581705775919442^9, 3.5817066952301803`^9}],
19315
19316	Cell[BoxData[
19317	FormBox[
19318	InterpretationBox[
19319	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19320	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19321	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
19322	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
19323	Editable->False], TraditionalForm]], "Print",
19324	CellChangeTimes->{3.581705775919442^9, 3.5817066952401814`^9}],
19325
19326	Cell[BoxData[
19327	FormBox[
19328	InterpretationBox[
19329	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19330	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19331	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19332	FormBox[
19333	SuperscriptBox["W", "\[Dagger]"],
19334	TraditionalForm]}],
19335	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
19336	Editable->False], TraditionalForm]], "Print",
19337	CellChangeTimes->{3.581705775919442^9, 3.581706695244182^9}],
19338
19339	Cell[BoxData[
19340	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19341	CellChangeTimes->{3.581705775919442^9, 3.5817066952481823`^9}],
19342
19343	Cell[BoxData[
19344	FormBox[
19345	RowBox[{
19346	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLw", " ",
19347	FormBox[
19348	SubscriptBox["\[Delta]",
19349	RowBox[{
19350	FormBox[
19351	SubscriptBox["\<\"i\"\>", "1"],
19352	TraditionalForm], ",",
19353	FormBox[
19354	SubscriptBox["\<\"i\"\>", "2"],
19355	TraditionalForm]}]],
19356	TraditionalForm], " ",
19357	FormBox[
19358	SubscriptBox[
19359	RowBox[{
19360	FormBox[
19361	SuperscriptBox["\[Gamma]",
19362	FormBox[
19363	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19364	TraditionalForm]],
19365	TraditionalForm], ".",
19366	FormBox[
19367	SubscriptBox["P", "\<\"-\"\>"],
19368	TraditionalForm]}],
19369	RowBox[{
19370	FormBox[
19371	SubscriptBox["\<\"s\"\>", "1"],
19372	TraditionalForm], ",",
19373	FormBox[
19374	SubscriptBox["\<\"s\"\>", "2"],
19375	TraditionalForm]}]],
19376	TraditionalForm]}], "+",
19377	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRw", " ",
19378	FormBox[
19379	SubscriptBox["\[Delta]",
19380	RowBox[{
19381	FormBox[
19382	SubscriptBox["\<\"i\"\>", "1"],
19383	TraditionalForm], ",",
19384	FormBox[
19385	SubscriptBox["\<\"i\"\>", "2"],
19386	TraditionalForm]}]],
19387	TraditionalForm], " ",
19388	FormBox[
19389	SubscriptBox[
19390	RowBox[{
19391	FormBox[
19392	SuperscriptBox["\[Gamma]",
19393	FormBox[
19394	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19395	TraditionalForm]],
19396	TraditionalForm], ".",
19397	FormBox[
19398	SubscriptBox["P", "\<\"+\"\>"],
19399	TraditionalForm]}],
19400	RowBox[{
19401	FormBox[
19402	SubscriptBox["\<\"s\"\>", "1"],
19403	TraditionalForm], ",",
19404	FormBox[
19405	SubscriptBox["\<\"s\"\>", "2"],
19406	TraditionalForm]}]],
19407	TraditionalForm]}]}], TraditionalForm]], "Print",
19408	CellChangeTimes->{3.581705775919442^9, 3.581706695253683^9}],
19409
19410	Cell[BoxData[
19411	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19412	* * * *)\"\>", TraditionalForm]], "Print",
19413	CellChangeTimes->{3.581705775919442^9, 3.5817066952641845`^9}],
19414
19415	Cell[BoxData[
19416	FormBox[
19417	InterpretationBox[
19418	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "39"}],
19419	SequenceForm["Vertex ", 39],
19420	Editable->False], TraditionalForm]], "Print",
19421	CellChangeTimes->{3.581705775919442^9, 3.581706695269185^9}],
19422
19423	Cell[BoxData[
19424	FormBox[
19425	InterpretationBox[
19426	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19427	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19428	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19429	FormBox[
19430	OverscriptBox["s", "\<\"-\"\>"],
19431	TraditionalForm]}],
19432	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
19433	Editable->False], TraditionalForm]], "Print",
19434	CellChangeTimes->{3.581705775919442^9, 3.5817066952731857`^9}],
19435
19436	Cell[BoxData[
19437	FormBox[
19438	InterpretationBox[
19439	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19440	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19441	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
19442	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
19443	Editable->False], TraditionalForm]], "Print",
19444	CellChangeTimes->{3.581705775919442^9, 3.5817066952781863`^9}],
19445
19446	Cell[BoxData[
19447	FormBox[
19448	InterpretationBox[
19449	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19450	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19451	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19452	FormBox[
19453	SuperscriptBox["W", "\[Dagger]"],
19454	TraditionalForm]}],
19455	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
19456	Editable->False], TraditionalForm]], "Print",
19457	CellChangeTimes->{3.581705775919442^9, 3.5817066952896876`^9}],
19458
19459	Cell[BoxData[
19460	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19461	CellChangeTimes->{3.581705775919442^9, 3.5817066952941885`^9}],
19462
19463	Cell[BoxData[
19464	FormBox[
19465	RowBox[{
19466	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLw", " ",
19467	FormBox[
19468	SubscriptBox["\[Delta]",
19469	RowBox[{
19470	FormBox[
19471	SubscriptBox["\<\"i\"\>", "1"],
19472	TraditionalForm], ",",
19473	FormBox[
19474	SubscriptBox["\<\"i\"\>", "2"],
19475	TraditionalForm]}]],
19476	TraditionalForm], " ",
19477	FormBox[
19478	SubscriptBox[
19479	RowBox[{
19480	FormBox[
19481	SuperscriptBox["\[Gamma]",
19482	FormBox[
19483	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19484	TraditionalForm]],
19485	TraditionalForm], ".",
19486	FormBox[
19487	SubscriptBox["P", "\<\"-\"\>"],
19488	TraditionalForm]}],
19489	RowBox[{
19490	FormBox[
19491	SubscriptBox["\<\"s\"\>", "1"],
19492	TraditionalForm], ",",
19493	FormBox[
19494	SubscriptBox["\<\"s\"\>", "2"],
19495	TraditionalForm]}]],
19496	TraditionalForm]}], "+",
19497	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRw", " ",
19498	FormBox[
19499	SubscriptBox["\[Delta]",
19500	RowBox[{
19501	FormBox[
19502	SubscriptBox["\<\"i\"\>", "1"],
19503	TraditionalForm], ",",
19504	FormBox[
19505	SubscriptBox["\<\"i\"\>", "2"],
19506	TraditionalForm]}]],
19507	TraditionalForm], " ",
19508	FormBox[
19509	SubscriptBox[
19510	RowBox[{
19511	FormBox[
19512	SuperscriptBox["\[Gamma]",
19513	FormBox[
19514	SubscriptBox["\<\"\[Mu]\"\>", "3"],
19515	TraditionalForm]],
19516	TraditionalForm], ".",
19517	FormBox[
19518	SubscriptBox["P", "\<\"+\"\>"],
19519	TraditionalForm]}],
19520	RowBox[{
19521	FormBox[
19522	SubscriptBox["\<\"s\"\>", "1"],
19523	TraditionalForm], ",",
19524	FormBox[
19525	SubscriptBox["\<\"s\"\>", "2"],
19526	TraditionalForm]}]],
19527	TraditionalForm]}]}], TraditionalForm]], "Print",
19528	CellChangeTimes->{3.581705775919442^9, 3.5817066952996893`^9}],
19529
19530	Cell[BoxData[
19531	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19532	* * * *)\"\>", TraditionalForm]], "Print",
19533	CellChangeTimes->{3.581705775919442^9, 3.5817066953126907`^9}],
19534
19535	Cell[BoxData[
19536	FormBox[
19537	InterpretationBox[
19538	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "40"}],
19539	SequenceForm["Vertex ", 40],
19540	Editable->False], TraditionalForm]], "Print",
19541	CellChangeTimes->{3.581705775919442^9, 3.581706695317691^9}],
19542
19543	Cell[BoxData[
19544	FormBox[
19545	InterpretationBox[
19546	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19547	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19548	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19549	FormBox[
19550	OverscriptBox["t", "\<\"-\"\>"],
19551	TraditionalForm]}],
19552	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tbar],
19553	Editable->False], TraditionalForm]], "Print",
19554	CellChangeTimes->{3.581705775919442^9, 3.5817066953216915`^9}],
19555
19556	Cell[BoxData[
19557	FormBox[
19558	InterpretationBox[
19559	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19560	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19561	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19562	FormBox[
19563	SuperscriptBox["W", "\[Dagger]"],
19564	TraditionalForm]}],
19565	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
19566	Editable->False], TraditionalForm]], "Print",
19567	CellChangeTimes->{3.581705775919442^9, 3.5817066953276925`^9}],
19568
19569	Cell[BoxData[
19570	FormBox[
19571	InterpretationBox[
19572	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19573	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19574	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
19575	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
19576	Editable->False], TraditionalForm]], "Print",
19577	CellChangeTimes->{3.581705775919442^9, 3.581706695338694^9}],
19578
19579	Cell[BoxData[
19580	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19581	CellChangeTimes->{3.581705775919442^9, 3.581706695344695^9}],
19582
19583	Cell[BoxData[
19584	FormBox[
19585	RowBox[{
19586	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtL", " ",
19587	FormBox[
19588	SubscriptBox["\[Delta]",
19589	RowBox[{
19590	FormBox[
19591	SubscriptBox["\<\"i\"\>", "1"],
19592	TraditionalForm], ",",
19593	FormBox[
19594	SubscriptBox["\<\"i\"\>", "3"],
19595	TraditionalForm]}]],
19596	TraditionalForm], " ",
19597	FormBox[
19598	SubscriptBox[
19599	RowBox[{
19600	FormBox[
19601	SuperscriptBox["\[Gamma]",
19602	FormBox[
19603	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19604	TraditionalForm]],
19605	TraditionalForm], ".",
19606	FormBox[
19607	SubscriptBox["P", "\<\"-\"\>"],
19608	TraditionalForm]}],
19609	RowBox[{
19610	FormBox[
19611	SubscriptBox["\<\"s\"\>", "1"],
19612	TraditionalForm], ",",
19613	FormBox[
19614	SubscriptBox["\<\"s\"\>", "3"],
19615	TraditionalForm]}]],
19616	TraditionalForm]}], "+",
19617	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXtR", " ",
19618	FormBox[
19619	SubscriptBox["\[Delta]",
19620	RowBox[{
19621	FormBox[
19622	SubscriptBox["\<\"i\"\>", "1"],
19623	TraditionalForm], ",",
19624	FormBox[
19625	SubscriptBox["\<\"i\"\>", "3"],
19626	TraditionalForm]}]],
19627	TraditionalForm], " ",
19628	FormBox[
19629	SubscriptBox[
19630	RowBox[{
19631	FormBox[
19632	SuperscriptBox["\[Gamma]",
19633	FormBox[
19634	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19635	TraditionalForm]],
19636	TraditionalForm], ".",
19637	FormBox[
19638	SubscriptBox["P", "\<\"+\"\>"],
19639	TraditionalForm]}],
19640	RowBox[{
19641	FormBox[
19642	SubscriptBox["\<\"s\"\>", "1"],
19643	TraditionalForm], ",",
19644	FormBox[
19645	SubscriptBox["\<\"s\"\>", "3"],
19646	TraditionalForm]}]],
19647	TraditionalForm]}]}], TraditionalForm]], "Print",
19648	CellChangeTimes->{3.581705775919442^9, 3.581706695349695^9}],
19649
19650	Cell[BoxData[
19651	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19652	* * * *)\"\>", TraditionalForm]], "Print",
19653	CellChangeTimes->{3.581705775919442^9, 3.5817066953631973`^9}],
19654
19655	Cell[BoxData[
19656	FormBox[
19657	InterpretationBox[
19658	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "41"}],
19659	SequenceForm["Vertex ", 41],
19660	Editable->False], TraditionalForm]], "Print",
19661	CellChangeTimes->{3.581705775919442^9, 3.5817066953671975`^9}],
19662
19663	Cell[BoxData[
19664	FormBox[
19665	InterpretationBox[
19666	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19667	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19668	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19669	FormBox[
19670	OverscriptBox["u", "\<\"-\"\>"],
19671	TraditionalForm]}],
19672	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ubar],
19673	Editable->False], TraditionalForm]], "Print",
19674	CellChangeTimes->{3.581705775919442^9, 3.581706695371698^9}],
19675
19676	Cell[BoxData[
19677	FormBox[
19678	InterpretationBox[
19679	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19680	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19681	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19682	FormBox[
19683	SuperscriptBox["W", "\[Dagger]"],
19684	TraditionalForm]}],
19685	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
19686	Editable->False], TraditionalForm]], "Print",
19687	CellChangeTimes->{3.581705775919442^9, 3.581706695378199^9}],
19688
19689	Cell[BoxData[
19690	FormBox[
19691	InterpretationBox[
19692	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19693	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19694	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "x"}],
19695	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", FeynRules`x],
19696	Editable->False], TraditionalForm]], "Print",
19697	CellChangeTimes->{3.581705775919442^9, 3.5817066953887005`^9}],
19698
19699	Cell[BoxData[
19700	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19701	CellChangeTimes->{3.581705775919442^9, 3.581706695392701^9}],
19702
19703	Cell[BoxData[
19704	FormBox[
19705	RowBox[{
19706	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuL", " ",
19707	FormBox[
19708	SubscriptBox["\[Delta]",
19709	RowBox[{
19710	FormBox[
19711	SubscriptBox["\<\"i\"\>", "1"],
19712	TraditionalForm], ",",
19713	FormBox[
19714	SubscriptBox["\<\"i\"\>", "3"],
19715	TraditionalForm]}]],
19716	TraditionalForm], " ",
19717	FormBox[
19718	SubscriptBox[
19719	RowBox[{
19720	FormBox[
19721	SuperscriptBox["\[Gamma]",
19722	FormBox[
19723	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19724	TraditionalForm]],
19725	TraditionalForm], ".",
19726	FormBox[
19727	SubscriptBox["P", "\<\"-\"\>"],
19728	TraditionalForm]}],
19729	RowBox[{
19730	FormBox[
19731	SubscriptBox["\<\"s\"\>", "1"],
19732	TraditionalForm], ",",
19733	FormBox[
19734	SubscriptBox["\<\"s\"\>", "3"],
19735	TraditionalForm]}]],
19736	TraditionalForm]}], "+",
19737	RowBox[{"\[ImaginaryI]", " ", "KX", " ", "KXuR", " ",
19738	FormBox[
19739	SubscriptBox["\[Delta]",
19740	RowBox[{
19741	FormBox[
19742	SubscriptBox["\<\"i\"\>", "1"],
19743	TraditionalForm], ",",
19744	FormBox[
19745	SubscriptBox["\<\"i\"\>", "3"],
19746	TraditionalForm]}]],
19747	TraditionalForm], " ",
19748	FormBox[
19749	SubscriptBox[
19750	RowBox[{
19751	FormBox[
19752	SuperscriptBox["\[Gamma]",
19753	FormBox[
19754	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19755	TraditionalForm]],
19756	TraditionalForm], ".",
19757	FormBox[
19758	SubscriptBox["P", "\<\"+\"\>"],
19759	TraditionalForm]}],
19760	RowBox[{
19761	FormBox[
19762	SubscriptBox["\<\"s\"\>", "1"],
19763	TraditionalForm], ",",
19764	FormBox[
19765	SubscriptBox["\<\"s\"\>", "3"],
19766	TraditionalForm]}]],
19767	TraditionalForm]}]}], TraditionalForm]], "Print",
19768	CellChangeTimes->{3.581705775919442^9, 3.581706695396701^9}],
19769
19770	Cell[BoxData[
19771	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19772	* * * *)\"\>", TraditionalForm]], "Print",
19773	CellChangeTimes->{3.581705775919442^9, 3.5817066954042025`^9}],
19774
19775	Cell[BoxData[
19776	FormBox[
19777	InterpretationBox[
19778	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "42"}],
19779	SequenceForm["Vertex ", 42],
19780	Editable->False], TraditionalForm]], "Print",
19781	CellChangeTimes->{3.581705775919442^9, 3.5817066954142036`^9}],
19782
19783	Cell[BoxData[
19784	FormBox[
19785	InterpretationBox[
19786	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19787	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19788	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
19789	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
19790	Editable->False], TraditionalForm]], "Print",
19791	CellChangeTimes->{3.581705775919442^9, 3.5817066954207044`^9}],
19792
19793	Cell[BoxData[
19794	FormBox[
19795	InterpretationBox[
19796	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19797	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19798	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19799	FormBox[
19800	SuperscriptBox["W", "\[Dagger]"],
19801	TraditionalForm]}],
19802	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
19803	Editable->False], TraditionalForm]], "Print",
19804	CellChangeTimes->{3.581705775919442^9, 3.5817066954267054`^9}],
19805
19806	Cell[BoxData[
19807	FormBox[
19808	InterpretationBox[
19809	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19810	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19811	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19812	FormBox[
19813	OverscriptBox["y", "\<\"-\"\>"],
19814	TraditionalForm]}],
19815	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
19816	Editable->False], TraditionalForm]], "Print",
19817	CellChangeTimes->{3.581705775919442^9, 3.5817066954377065`^9}],
19818
19819	Cell[BoxData[
19820	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19821	CellChangeTimes->{3.581705775919442^9, 3.5817066954422073`^9}],
19822
19823	Cell[BoxData[
19824	FormBox[
19825	RowBox[{
19826	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbL", " ",
19827	FormBox[
19828	SubscriptBox["\[Delta]",
19829	RowBox[{
19830	FormBox[
19831	SubscriptBox["\<\"i\"\>", "1"],
19832	TraditionalForm], ",",
19833	FormBox[
19834	SubscriptBox["\<\"i\"\>", "3"],
19835	TraditionalForm]}]],
19836	TraditionalForm], " ",
19837	FormBox[
19838	SubscriptBox[
19839	RowBox[{
19840	FormBox[
19841	SuperscriptBox["\[Gamma]",
19842	FormBox[
19843	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19844	TraditionalForm]],
19845	TraditionalForm], ".",
19846	FormBox[
19847	SubscriptBox["P", "\<\"-\"\>"],
19848	TraditionalForm]}],
19849	RowBox[{
19850	FormBox[
19851	SubscriptBox["\<\"s\"\>", "3"],
19852	TraditionalForm], ",",
19853	FormBox[
19854	SubscriptBox["\<\"s\"\>", "1"],
19855	TraditionalForm]}]],
19856	TraditionalForm]}], "+",
19857	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYbR", " ",
19858	FormBox[
19859	SubscriptBox["\[Delta]",
19860	RowBox[{
19861	FormBox[
19862	SubscriptBox["\<\"i\"\>", "1"],
19863	TraditionalForm], ",",
19864	FormBox[
19865	SubscriptBox["\<\"i\"\>", "3"],
19866	TraditionalForm]}]],
19867	TraditionalForm], " ",
19868	FormBox[
19869	SubscriptBox[
19870	RowBox[{
19871	FormBox[
19872	SuperscriptBox["\[Gamma]",
19873	FormBox[
19874	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19875	TraditionalForm]],
19876	TraditionalForm], ".",
19877	FormBox[
19878	SubscriptBox["P", "\<\"+\"\>"],
19879	TraditionalForm]}],
19880	RowBox[{
19881	FormBox[
19882	SubscriptBox["\<\"s\"\>", "3"],
19883	TraditionalForm], ",",
19884	FormBox[
19885	SubscriptBox["\<\"s\"\>", "1"],
19886	TraditionalForm]}]],
19887	TraditionalForm]}]}], TraditionalForm]], "Print",
19888	CellChangeTimes->{3.581705775919442^9, 3.581706695447708^9}],
19889
19890	Cell[BoxData[
19891	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
19892	* * * *)\"\>", TraditionalForm]], "Print",
19893	CellChangeTimes->{3.581705775919442^9, 3.5817066954617095`^9}],
19894
19895	Cell[BoxData[
19896	FormBox[
19897	InterpretationBox[
19898	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "43"}],
19899	SequenceForm["Vertex ", 43],
19900	Editable->False], TraditionalForm]], "Print",
19901	CellChangeTimes->{3.581705775919442^9, 3.5817066954657097`^9}],
19902
19903	Cell[BoxData[
19904	FormBox[
19905	InterpretationBox[
19906	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
19907	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19908	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
19909	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
19910	Editable->False], TraditionalForm]], "Print",
19911	CellChangeTimes->{3.581705775919442^9, 3.5817066954697104`^9}],
19912
19913	Cell[BoxData[
19914	FormBox[
19915	InterpretationBox[
19916	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
19917	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
19918	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19919	FormBox[
19920	SuperscriptBox["W", "\[Dagger]"],
19921	TraditionalForm]}],
19922	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
19923	Editable->False], TraditionalForm]], "Print",
19924	CellChangeTimes->{3.581705775919442^9, 3.581706695473711^9}],
19925
19926	Cell[BoxData[
19927	FormBox[
19928	InterpretationBox[
19929	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
19930	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
19931	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
19932	FormBox[
19933	OverscriptBox["y", "\<\"-\"\>"],
19934	TraditionalForm]}],
19935	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
19936	Editable->False], TraditionalForm]], "Print",
19937	CellChangeTimes->{3.581705775919442^9, 3.581706695480712^9}],
19938
19939	Cell[BoxData[
19940	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
19941	CellChangeTimes->{3.581705775919442^9, 3.581706695489713^9}],
19942
19943	Cell[BoxData[
19944	FormBox[
19945	RowBox[{
19946	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdL", " ",
19947	FormBox[
19948	SubscriptBox["\[Delta]",
19949	RowBox[{
19950	FormBox[
19951	SubscriptBox["\<\"i\"\>", "1"],
19952	TraditionalForm], ",",
19953	FormBox[
19954	SubscriptBox["\<\"i\"\>", "3"],
19955	TraditionalForm]}]],
19956	TraditionalForm], " ",
19957	FormBox[
19958	SubscriptBox[
19959	RowBox[{
19960	FormBox[
19961	SuperscriptBox["\[Gamma]",
19962	FormBox[
19963	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19964	TraditionalForm]],
19965	TraditionalForm], ".",
19966	FormBox[
19967	SubscriptBox["P", "\<\"-\"\>"],
19968	TraditionalForm]}],
19969	RowBox[{
19970	FormBox[
19971	SubscriptBox["\<\"s\"\>", "3"],
19972	TraditionalForm], ",",
19973	FormBox[
19974	SubscriptBox["\<\"s\"\>", "1"],
19975	TraditionalForm]}]],
19976	TraditionalForm]}], "+",
19977	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYdR", " ",
19978	FormBox[
19979	SubscriptBox["\[Delta]",
19980	RowBox[{
19981	FormBox[
19982	SubscriptBox["\<\"i\"\>", "1"],
19983	TraditionalForm], ",",
19984	FormBox[
19985	SubscriptBox["\<\"i\"\>", "3"],
19986	TraditionalForm]}]],
19987	TraditionalForm], " ",
19988	FormBox[
19989	SubscriptBox[
19990	RowBox[{
19991	FormBox[
19992	SuperscriptBox["\[Gamma]",
19993	FormBox[
19994	SubscriptBox["\<\"\[Mu]\"\>", "2"],
19995	TraditionalForm]],
19996	TraditionalForm], ".",
19997	FormBox[
19998	SubscriptBox["P", "\<\"+\"\>"],
19999	TraditionalForm]}],
20000	RowBox[{
20001	FormBox[
20002	SubscriptBox["\<\"s\"\>", "3"],
20003	TraditionalForm], ",",
20004	FormBox[
20005	SubscriptBox["\<\"s\"\>", "1"],
20006	TraditionalForm]}]],
20007	TraditionalForm]}]}], TraditionalForm]], "Print",
20008	CellChangeTimes->{3.581705775919442^9, 3.5817066954937134`^9}],
20009
20010	Cell[BoxData[
20011	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20012	* * * *)\"\>", TraditionalForm]], "Print",
20013	CellChangeTimes->{3.581705775919442^9, 3.5817066954987144`^9}],
20014
20015	Cell[BoxData[
20016	FormBox[
20017	InterpretationBox[
20018	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "44"}],
20019	SequenceForm["Vertex ", 44],
20020	Editable->False], TraditionalForm]], "Print",
20021	CellChangeTimes->{3.581705775919442^9, 3.5817066955042152`^9}],
20022
20023	Cell[BoxData[
20024	FormBox[
20025	InterpretationBox[
20026	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20027	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20028	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
20029	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
20030	Editable->False], TraditionalForm]], "Print",
20031	CellChangeTimes->{3.581705775919442^9, 3.581706695514716^9}],
20032
20033	Cell[BoxData[
20034	FormBox[
20035	InterpretationBox[
20036	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20037	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20038	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20039	FormBox[
20040	SuperscriptBox["W", "\[Dagger]"],
20041	TraditionalForm]}],
20042	SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
20043	Editable->False], TraditionalForm]], "Print",
20044	CellChangeTimes->{3.581705775919442^9, 3.5817066955192165`^9}],
20045
20046	Cell[BoxData[
20047	FormBox[
20048	InterpretationBox[
20049	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20050	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20051	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20052	FormBox[
20053	OverscriptBox["y", "\<\"-\"\>"],
20054	TraditionalForm]}],
20055	SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ybar],
20056	Editable->False], TraditionalForm]], "Print",
20057	CellChangeTimes->{3.581705775919442^9, 3.5817066955237174`^9}],
20058
20059	Cell[BoxData[
20060	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20061	CellChangeTimes->{3.581705775919442^9, 3.581706695528718^9}],
20062
20063	Cell[BoxData[
20064	FormBox[
20065	RowBox[{
20066	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsL", " ",
20067	FormBox[
20068	SubscriptBox["\[Delta]",
20069	RowBox[{
20070	FormBox[
20071	SubscriptBox["\<\"i\"\>", "1"],
20072	TraditionalForm], ",",
20073	FormBox[
20074	SubscriptBox["\<\"i\"\>", "3"],
20075	TraditionalForm]}]],
20076	TraditionalForm], " ",
20077	FormBox[
20078	SubscriptBox[
20079	RowBox[{
20080	FormBox[
20081	SuperscriptBox["\[Gamma]",
20082	FormBox[
20083	SubscriptBox["\<\"\[Mu]\"\>", "2"],
20084	TraditionalForm]],
20085	TraditionalForm], ".",
20086	FormBox[
20087	SubscriptBox["P", "\<\"-\"\>"],
20088	TraditionalForm]}],
20089	RowBox[{
20090	FormBox[
20091	SubscriptBox["\<\"s\"\>", "3"],
20092	TraditionalForm], ",",
20093	FormBox[
20094	SubscriptBox["\<\"s\"\>", "1"],
20095	TraditionalForm]}]],
20096	TraditionalForm]}], "+",
20097	RowBox[{"\[ImaginaryI]", " ", "KY", " ", "KYsR", " ",
20098	FormBox[
20099	SubscriptBox["\[Delta]",
20100	RowBox[{
20101	FormBox[
20102	SubscriptBox["\<\"i\"\>", "1"],
20103	TraditionalForm], ",",
20104	FormBox[
20105	SubscriptBox["\<\"i\"\>", "3"],
20106	TraditionalForm]}]],
20107	TraditionalForm], " ",
20108	FormBox[
20109	SubscriptBox[
20110	RowBox[{
20111	FormBox[
20112	SuperscriptBox["\[Gamma]",
20113	FormBox[
20114	SubscriptBox["\<\"\[Mu]\"\>", "2"],
20115	TraditionalForm]],
20116	TraditionalForm], ".",
20117	FormBox[
20118	SubscriptBox["P", "\<\"+\"\>"],
20119	TraditionalForm]}],
20120	RowBox[{
20121	FormBox[
20122	SubscriptBox["\<\"s\"\>", "3"],
20123	TraditionalForm], ",",
20124	FormBox[
20125	SubscriptBox["\<\"s\"\>", "1"],
20126	TraditionalForm]}]],
20127	TraditionalForm]}]}], TraditionalForm]], "Print",
20128	CellChangeTimes->{3.581705775919442^9, 3.5817066955407195`^9}],
20129
20130	Cell[BoxData[
20131	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20132	* * * *)\"\>", TraditionalForm]], "Print",
20133	CellChangeTimes->{3.581705775919442^9, 3.581706695549721^9}],
20134
20135	Cell[BoxData[
20136	FormBox[
20137	InterpretationBox[
20138	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "45"}],
20139	SequenceForm["Vertex ", 45],
20140	Editable->False], TraditionalForm]], "Print",
20141	CellChangeTimes->{3.581705775919442^9, 3.5817066955552216`^9}],
20142
20143	Cell[BoxData[
20144	FormBox[
20145	InterpretationBox[
20146	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20147	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20148	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20149	FormBox[
20150	OverscriptBox["b", "\<\"-\"\>"],
20151	TraditionalForm]}],
20152	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
20153	Editable->False], TraditionalForm]], "Print",
20154	CellChangeTimes->{3.581705775919442^9, 3.5817066955652227`^9}],
20155
20156	Cell[BoxData[
20157	FormBox[
20158	InterpretationBox[
20159	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20160	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20161	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
20162	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bp],
20163	Editable->False], TraditionalForm]], "Print",
20164	CellChangeTimes->{3.581705775919442^9, 3.5817066955712233`^9}],
20165
20166	Cell[BoxData[
20167	FormBox[
20168	InterpretationBox[
20169	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20170	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20171	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20172	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20173	Editable->False], TraditionalForm]], "Print",
20174	CellChangeTimes->{3.581705775919442^9, 3.581706695576724^9}],
20175
20176	Cell[BoxData[
20177	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20178	CellChangeTimes->{3.581705775919442^9, 3.5817066955887256`^9}],
20179
20180	Cell[BoxData[
20181	FormBox[
20182	RowBox[{
20183	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLz", " ",
20184	FormBox[
20185	SubscriptBox["\[Delta]",
20186	RowBox[{
20187	FormBox[
20188	SubscriptBox["\<\"i\"\>", "1"],
20189	TraditionalForm], ",",
20190	FormBox[
20191	SubscriptBox["\<\"i\"\>", "2"],
20192	TraditionalForm]}]],
20193	TraditionalForm], " ",
20194	FormBox[
20195	SubscriptBox[
20196	RowBox[{
20197	FormBox[
20198	SuperscriptBox["\[Gamma]",
20199	FormBox[
20200	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20201	TraditionalForm]],
20202	TraditionalForm], ".",
20203	FormBox[
20204	SubscriptBox["P", "\<\"-\"\>"],
20205	TraditionalForm]}],
20206	RowBox[{
20207	FormBox[
20208	SubscriptBox["\<\"s\"\>", "1"],
20209	TraditionalForm], ",",
20210	FormBox[
20211	SubscriptBox["\<\"s\"\>", "2"],
20212	TraditionalForm]}]],
20213	TraditionalForm]}], "+",
20214	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRz", " ",
20215	FormBox[
20216	SubscriptBox["\[Delta]",
20217	RowBox[{
20218	FormBox[
20219	SubscriptBox["\<\"i\"\>", "1"],
20220	TraditionalForm], ",",
20221	FormBox[
20222	SubscriptBox["\<\"i\"\>", "2"],
20223	TraditionalForm]}]],
20224	TraditionalForm], " ",
20225	FormBox[
20226	SubscriptBox[
20227	RowBox[{
20228	FormBox[
20229	SuperscriptBox["\[Gamma]",
20230	FormBox[
20231	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20232	TraditionalForm]],
20233	TraditionalForm], ".",
20234	FormBox[
20235	SubscriptBox["P", "\<\"+\"\>"],
20236	TraditionalForm]}],
20237	RowBox[{
20238	FormBox[
20239	SubscriptBox["\<\"s\"\>", "1"],
20240	TraditionalForm], ",",
20241	FormBox[
20242	SubscriptBox["\<\"s\"\>", "2"],
20243	TraditionalForm]}]],
20244	TraditionalForm]}]}], TraditionalForm]], "Print",
20245	CellChangeTimes->{3.581705775919442^9, 3.581706695593726^9}],
20246
20247	Cell[BoxData[
20248	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20249	* * * *)\"\>", TraditionalForm]], "Print",
20250	CellChangeTimes->{3.581705775919442^9, 3.581706695599727^9}],
20251
20252	Cell[BoxData[
20253	FormBox[
20254	InterpretationBox[
20255	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "46"}],
20256	SequenceForm["Vertex ", 46],
20257	Editable->False], TraditionalForm]], "Print",
20258	CellChangeTimes->{3.581705775919442^9, 3.5817066956047277`^9}],
20259
20260	Cell[BoxData[
20261	FormBox[
20262	InterpretationBox[
20263	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20264	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20265	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
20266	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
20267	Editable->False], TraditionalForm]], "Print",
20268	CellChangeTimes->{3.581705775919442^9, 3.581706695615229^9}],
20269
20270	Cell[BoxData[
20271	FormBox[
20272	InterpretationBox[
20273	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20274	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20275	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20276	FormBox[
20277	OverscriptBox["bp", "\<\"-\"\>"],
20278	TraditionalForm]}],
20279	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bpbar],
20280	Editable->False], TraditionalForm]], "Print",
20281	CellChangeTimes->{3.581705775919442^9, 3.5817066956192293`^9}],
20282
20283	Cell[BoxData[
20284	FormBox[
20285	InterpretationBox[
20286	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20287	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20288	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20289	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20290	Editable->False], TraditionalForm]], "Print",
20291	CellChangeTimes->{3.581705775919442^9, 3.5817066956237297`^9}],
20292
20293	Cell[BoxData[
20294	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20295	CellChangeTimes->{3.581705775919442^9, 3.581706695628231^9}],
20296
20297	Cell[BoxData[
20298	FormBox[
20299	RowBox[{
20300	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbLz", " ",
20301	FormBox[
20302	SubscriptBox["\[Delta]",
20303	RowBox[{
20304	FormBox[
20305	SubscriptBox["\<\"i\"\>", "1"],
20306	TraditionalForm], ",",
20307	FormBox[
20308	SubscriptBox["\<\"i\"\>", "2"],
20309	TraditionalForm]}]],
20310	TraditionalForm], " ",
20311	FormBox[
20312	SubscriptBox[
20313	RowBox[{
20314	FormBox[
20315	SuperscriptBox["\[Gamma]",
20316	FormBox[
20317	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20318	TraditionalForm]],
20319	TraditionalForm], ".",
20320	FormBox[
20321	SubscriptBox["P", "\<\"-\"\>"],
20322	TraditionalForm]}],
20323	RowBox[{
20324	FormBox[
20325	SubscriptBox["\<\"s\"\>", "2"],
20326	TraditionalForm], ",",
20327	FormBox[
20328	SubscriptBox["\<\"s\"\>", "1"],
20329	TraditionalForm]}]],
20330	TraditionalForm]}], "+",
20331	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBbRz", " ",
20332	FormBox[
20333	SubscriptBox["\[Delta]",
20334	RowBox[{
20335	FormBox[
20336	SubscriptBox["\<\"i\"\>", "1"],
20337	TraditionalForm], ",",
20338	FormBox[
20339	SubscriptBox["\<\"i\"\>", "2"],
20340	TraditionalForm]}]],
20341	TraditionalForm], " ",
20342	FormBox[
20343	SubscriptBox[
20344	RowBox[{
20345	FormBox[
20346	SuperscriptBox["\[Gamma]",
20347	FormBox[
20348	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20349	TraditionalForm]],
20350	TraditionalForm], ".",
20351	FormBox[
20352	SubscriptBox["P", "\<\"+\"\>"],
20353	TraditionalForm]}],
20354	RowBox[{
20355	FormBox[
20356	SubscriptBox["\<\"s\"\>", "2"],
20357	TraditionalForm], ",",
20358	FormBox[
20359	SubscriptBox["\<\"s\"\>", "1"],
20360	TraditionalForm]}]],
20361	TraditionalForm]}]}], TraditionalForm]], "Print",
20362	CellChangeTimes->{3.581705775919442^9, 3.581706695638232^9}],
20363
20364	Cell[BoxData[
20365	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20366	* * * *)\"\>", TraditionalForm]], "Print",
20367	CellChangeTimes->{3.581705775919442^9, 3.581706695645733^9}],
20368
20369	Cell[BoxData[
20370	FormBox[
20371	InterpretationBox[
20372	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "47"}],
20373	SequenceForm["Vertex ", 47],
20374	Editable->False], TraditionalForm]], "Print",
20375	CellChangeTimes->{3.581705775919442^9, 3.5817066956502333`^9}],
20376
20377	Cell[BoxData[
20378	FormBox[
20379	InterpretationBox[
20380	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20381	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20382	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20383	FormBox[
20384	OverscriptBox["bp", "\<\"-\"\>"],
20385	TraditionalForm]}],
20386	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
20387	Editable->False], TraditionalForm]], "Print",
20388	CellChangeTimes->{3.581705775919442^9, 3.5817066956547337`^9}],
20389
20390	Cell[BoxData[
20391	FormBox[
20392	InterpretationBox[
20393	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20394	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20395	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
20396	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
20397	Editable->False], TraditionalForm]], "Print",
20398	CellChangeTimes->{3.581705775919442^9, 3.5817066956657352`^9}],
20399
20400	Cell[BoxData[
20401	FormBox[
20402	InterpretationBox[
20403	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20404	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20405	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20406	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20407	Editable->False], TraditionalForm]], "Print",
20408	CellChangeTimes->{3.581705775919442^9, 3.581706695671236^9}],
20409
20410	Cell[BoxData[
20411	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20412	CellChangeTimes->{3.581705775919442^9, 3.581706695675737^9}],
20413
20414	Cell[BoxData[
20415	FormBox[
20416	RowBox[{
20417	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLz", " ",
20418	FormBox[
20419	SubscriptBox["\[Delta]",
20420	RowBox[{
20421	FormBox[
20422	SubscriptBox["\<\"i\"\>", "1"],
20423	TraditionalForm], ",",
20424	FormBox[
20425	SubscriptBox["\<\"i\"\>", "2"],
20426	TraditionalForm]}]],
20427	TraditionalForm], " ",
20428	FormBox[
20429	SubscriptBox[
20430	RowBox[{
20431	FormBox[
20432	SuperscriptBox["\[Gamma]",
20433	FormBox[
20434	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20435	TraditionalForm]],
20436	TraditionalForm], ".",
20437	FormBox[
20438	SubscriptBox["P", "\<\"-\"\>"],
20439	TraditionalForm]}],
20440	RowBox[{
20441	FormBox[
20442	SubscriptBox["\<\"s\"\>", "1"],
20443	TraditionalForm], ",",
20444	FormBox[
20445	SubscriptBox["\<\"s\"\>", "2"],
20446	TraditionalForm]}]],
20447	TraditionalForm]}], "+",
20448	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRz", " ",
20449	FormBox[
20450	SubscriptBox["\[Delta]",
20451	RowBox[{
20452	FormBox[
20453	SubscriptBox["\<\"i\"\>", "1"],
20454	TraditionalForm], ",",
20455	FormBox[
20456	SubscriptBox["\<\"i\"\>", "2"],
20457	TraditionalForm]}]],
20458	TraditionalForm], " ",
20459	FormBox[
20460	SubscriptBox[
20461	RowBox[{
20462	FormBox[
20463	SuperscriptBox["\[Gamma]",
20464	FormBox[
20465	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20466	TraditionalForm]],
20467	TraditionalForm], ".",
20468	FormBox[
20469	SubscriptBox["P", "\<\"+\"\>"],
20470	TraditionalForm]}],
20471	RowBox[{
20472	FormBox[
20473	SubscriptBox["\<\"s\"\>", "1"],
20474	TraditionalForm], ",",
20475	FormBox[
20476	SubscriptBox["\<\"s\"\>", "2"],
20477	TraditionalForm]}]],
20478	TraditionalForm]}]}], TraditionalForm]], "Print",
20479	CellChangeTimes->{3.581705775919442^9, 3.581706695681237^9}],
20480
20481	Cell[BoxData[
20482	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20483	* * * *)\"\>", TraditionalForm]], "Print",
20484	CellChangeTimes->{3.581705775919442^9, 3.581706695706741^9}],
20485
20486	Cell[BoxData[
20487	FormBox[
20488	InterpretationBox[
20489	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "48"}],
20490	SequenceForm["Vertex ", 48],
20491	Editable->False], TraditionalForm]], "Print",
20492	CellChangeTimes->{3.581705775919442^9, 3.581706695712241^9}],
20493
20494	Cell[BoxData[
20495	FormBox[
20496	InterpretationBox[
20497	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20498	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20499	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20500	FormBox[
20501	OverscriptBox["bp", "\<\"-\"\>"],
20502	TraditionalForm]}],
20503	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bpbar],
20504	Editable->False], TraditionalForm]], "Print",
20505	CellChangeTimes->{3.581705775919442^9, 3.581706695717742^9}],
20506
20507	Cell[BoxData[
20508	FormBox[
20509	InterpretationBox[
20510	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20511	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20512	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
20513	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
20514	Editable->False], TraditionalForm]], "Print",
20515	CellChangeTimes->{3.581705775919442^9, 3.5817066957232428`^9}],
20516
20517	Cell[BoxData[
20518	FormBox[
20519	InterpretationBox[
20520	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20521	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20522	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20523	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20524	Editable->False], TraditionalForm]], "Print",
20525	CellChangeTimes->{3.581705775919442^9, 3.581706695734744^9}],
20526
20527	Cell[BoxData[
20528	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20529	CellChangeTimes->{3.581705775919442^9, 3.581706695740245^9}],
20530
20531	Cell[BoxData[
20532	FormBox[
20533	RowBox[{
20534	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLz", " ",
20535	FormBox[
20536	SubscriptBox["\[Delta]",
20537	RowBox[{
20538	FormBox[
20539	SubscriptBox["\<\"i\"\>", "1"],
20540	TraditionalForm], ",",
20541	FormBox[
20542	SubscriptBox["\<\"i\"\>", "2"],
20543	TraditionalForm]}]],
20544	TraditionalForm], " ",
20545	FormBox[
20546	SubscriptBox[
20547	RowBox[{
20548	FormBox[
20549	SuperscriptBox["\[Gamma]",
20550	FormBox[
20551	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20552	TraditionalForm]],
20553	TraditionalForm], ".",
20554	FormBox[
20555	SubscriptBox["P", "\<\"-\"\>"],
20556	TraditionalForm]}],
20557	RowBox[{
20558	FormBox[
20559	SubscriptBox["\<\"s\"\>", "1"],
20560	TraditionalForm], ",",
20561	FormBox[
20562	SubscriptBox["\<\"s\"\>", "2"],
20563	TraditionalForm]}]],
20564	TraditionalForm]}], "+",
20565	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRz", " ",
20566	FormBox[
20567	SubscriptBox["\[Delta]",
20568	RowBox[{
20569	FormBox[
20570	SubscriptBox["\<\"i\"\>", "1"],
20571	TraditionalForm], ",",
20572	FormBox[
20573	SubscriptBox["\<\"i\"\>", "2"],
20574	TraditionalForm]}]],
20575	TraditionalForm], " ",
20576	FormBox[
20577	SubscriptBox[
20578	RowBox[{
20579	FormBox[
20580	SuperscriptBox["\[Gamma]",
20581	FormBox[
20582	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20583	TraditionalForm]],
20584	TraditionalForm], ".",
20585	FormBox[
20586	SubscriptBox["P", "\<\"+\"\>"],
20587	TraditionalForm]}],
20588	RowBox[{
20589	FormBox[
20590	SubscriptBox["\<\"s\"\>", "1"],
20591	TraditionalForm], ",",
20592	FormBox[
20593	SubscriptBox["\<\"s\"\>", "2"],
20594	TraditionalForm]}]],
20595	TraditionalForm]}]}], TraditionalForm]], "Print",
20596	CellChangeTimes->{3.581705775919442^9, 3.5817066957442455`^9}],
20597
20598	Cell[BoxData[
20599	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20600	* * * *)\"\>", TraditionalForm]], "Print",
20601	CellChangeTimes->{3.581705775919442^9, 3.5817066957512465`^9}],
20602
20603	Cell[BoxData[
20604	FormBox[
20605	InterpretationBox[
20606	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "49"}],
20607	SequenceForm["Vertex ", 49],
20608	Editable->False], TraditionalForm]], "Print",
20609	CellChangeTimes->{3.581705775919442^9, 3.5817066957612476`^9}],
20610
20611	Cell[BoxData[
20612	FormBox[
20613	InterpretationBox[
20614	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20615	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20616	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20617	FormBox[
20618	OverscriptBox["c", "\<\"-\"\>"],
20619	TraditionalForm]}],
20620	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
20621	Editable->False], TraditionalForm]], "Print",
20622	CellChangeTimes->{3.581705775919442^9, 3.5817066957667484`^9}],
20623
20624	Cell[BoxData[
20625	FormBox[
20626	InterpretationBox[
20627	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20628	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20629	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
20630	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
20631	Editable->False], TraditionalForm]], "Print",
20632	CellChangeTimes->{3.581705775919442^9, 3.581706695772249^9}],
20633
20634	Cell[BoxData[
20635	FormBox[
20636	InterpretationBox[
20637	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20638	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20639	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20640	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20641	Editable->False], TraditionalForm]], "Print",
20642	CellChangeTimes->{3.581705775919442^9, 3.5817066957772493`^9}],
20643
20644	Cell[BoxData[
20645	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20646	CellChangeTimes->{3.581705775919442^9, 3.581706695788751^9}],
20647
20648	Cell[BoxData[
20649	FormBox[
20650	RowBox[{
20651	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLz", " ",
20652	FormBox[
20653	SubscriptBox["\[Delta]",
20654	RowBox[{
20655	FormBox[
20656	SubscriptBox["\<\"i\"\>", "1"],
20657	TraditionalForm], ",",
20658	FormBox[
20659	SubscriptBox["\<\"i\"\>", "2"],
20660	TraditionalForm]}]],
20661	TraditionalForm], " ",
20662	FormBox[
20663	SubscriptBox[
20664	RowBox[{
20665	FormBox[
20666	SuperscriptBox["\[Gamma]",
20667	FormBox[
20668	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20669	TraditionalForm]],
20670	TraditionalForm], ".",
20671	FormBox[
20672	SubscriptBox["P", "\<\"-\"\>"],
20673	TraditionalForm]}],
20674	RowBox[{
20675	FormBox[
20676	SubscriptBox["\<\"s\"\>", "1"],
20677	TraditionalForm], ",",
20678	FormBox[
20679	SubscriptBox["\<\"s\"\>", "2"],
20680	TraditionalForm]}]],
20681	TraditionalForm]}], "+",
20682	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRz", " ",
20683	FormBox[
20684	SubscriptBox["\[Delta]",
20685	RowBox[{
20686	FormBox[
20687	SubscriptBox["\<\"i\"\>", "1"],
20688	TraditionalForm], ",",
20689	FormBox[
20690	SubscriptBox["\<\"i\"\>", "2"],
20691	TraditionalForm]}]],
20692	TraditionalForm], " ",
20693	FormBox[
20694	SubscriptBox[
20695	RowBox[{
20696	FormBox[
20697	SuperscriptBox["\[Gamma]",
20698	FormBox[
20699	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20700	TraditionalForm]],
20701	TraditionalForm], ".",
20702	FormBox[
20703	SubscriptBox["P", "\<\"+\"\>"],
20704	TraditionalForm]}],
20705	RowBox[{
20706	FormBox[
20707	SubscriptBox["\<\"s\"\>", "1"],
20708	TraditionalForm], ",",
20709	FormBox[
20710	SubscriptBox["\<\"s\"\>", "2"],
20711	TraditionalForm]}]],
20712	TraditionalForm]}]}], TraditionalForm]], "Print",
20713	CellChangeTimes->{3.581705775919442^9, 3.581706695794752^9}],
20714
20715	Cell[BoxData[
20716	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20717	* * * *)\"\>", TraditionalForm]], "Print",
20718	CellChangeTimes->{3.581705775919442^9, 3.581706695801253^9}],
20719
20720	Cell[BoxData[
20721	FormBox[
20722	InterpretationBox[
20723	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "50"}],
20724	SequenceForm["Vertex ", 50],
20725	Editable->False], TraditionalForm]], "Print",
20726	CellChangeTimes->{3.581705775919442^9, 3.5817066958072534`^9}],
20727
20728	Cell[BoxData[
20729	FormBox[
20730	InterpretationBox[
20731	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20732	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20733	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
20734	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
20735	Editable->False], TraditionalForm]], "Print",
20736	CellChangeTimes->{3.581705775919442^9, 3.5817066958127537`^9}],
20737
20738	Cell[BoxData[
20739	FormBox[
20740	InterpretationBox[
20741	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20742	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20743	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20744	FormBox[
20745	OverscriptBox["d", "\<\"-\"\>"],
20746	TraditionalForm]}],
20747	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
20748	Editable->False], TraditionalForm]], "Print",
20749	CellChangeTimes->{3.581705775919442^9, 3.581706695817255^9}],
20750
20751	Cell[BoxData[
20752	FormBox[
20753	InterpretationBox[
20754	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20755	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20756	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20757	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20758	Editable->False], TraditionalForm]], "Print",
20759	CellChangeTimes->{3.581705775919442^9, 3.581706695822255^9}],
20760
20761	Cell[BoxData[
20762	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20763	CellChangeTimes->{3.581705775919442^9, 3.581706695826256^9}],
20764
20765	Cell[BoxData[
20766	FormBox[
20767	RowBox[{
20768	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdLz", " ",
20769	FormBox[
20770	SubscriptBox["\[Delta]",
20771	RowBox[{
20772	FormBox[
20773	SubscriptBox["\<\"i\"\>", "1"],
20774	TraditionalForm], ",",
20775	FormBox[
20776	SubscriptBox["\<\"i\"\>", "2"],
20777	TraditionalForm]}]],
20778	TraditionalForm], " ",
20779	FormBox[
20780	SubscriptBox[
20781	RowBox[{
20782	FormBox[
20783	SuperscriptBox["\[Gamma]",
20784	FormBox[
20785	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20786	TraditionalForm]],
20787	TraditionalForm], ".",
20788	FormBox[
20789	SubscriptBox["P", "\<\"-\"\>"],
20790	TraditionalForm]}],
20791	RowBox[{
20792	FormBox[
20793	SubscriptBox["\<\"s\"\>", "2"],
20794	TraditionalForm], ",",
20795	FormBox[
20796	SubscriptBox["\<\"s\"\>", "1"],
20797	TraditionalForm]}]],
20798	TraditionalForm]}], "+",
20799	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBdRz", " ",
20800	FormBox[
20801	SubscriptBox["\[Delta]",
20802	RowBox[{
20803	FormBox[
20804	SubscriptBox["\<\"i\"\>", "1"],
20805	TraditionalForm], ",",
20806	FormBox[
20807	SubscriptBox["\<\"i\"\>", "2"],
20808	TraditionalForm]}]],
20809	TraditionalForm], " ",
20810	FormBox[
20811	SubscriptBox[
20812	RowBox[{
20813	FormBox[
20814	SuperscriptBox["\[Gamma]",
20815	FormBox[
20816	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20817	TraditionalForm]],
20818	TraditionalForm], ".",
20819	FormBox[
20820	SubscriptBox["P", "\<\"+\"\>"],
20821	TraditionalForm]}],
20822	RowBox[{
20823	FormBox[
20824	SubscriptBox["\<\"s\"\>", "2"],
20825	TraditionalForm], ",",
20826	FormBox[
20827	SubscriptBox["\<\"s\"\>", "1"],
20828	TraditionalForm]}]],
20829	TraditionalForm]}]}], TraditionalForm]], "Print",
20830	CellChangeTimes->{3.581705775919442^9, 3.5817066958317566`^9}],
20831
20832	Cell[BoxData[
20833	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20834	* * * *)\"\>", TraditionalForm]], "Print",
20835	CellChangeTimes->{3.581705775919442^9, 3.5817066958442583`^9}],
20836
20837	Cell[BoxData[
20838	FormBox[
20839	InterpretationBox[
20840	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "51"}],
20841	SequenceForm["Vertex ", 51],
20842	Editable->False], TraditionalForm]], "Print",
20843	CellChangeTimes->{3.581705775919442^9, 3.5817066958482585`^9}],
20844
20845	Cell[BoxData[
20846	FormBox[
20847	InterpretationBox[
20848	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20849	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20850	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "bp"}],
20851	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bp],
20852	Editable->False], TraditionalForm]], "Print",
20853	CellChangeTimes->{3.581705775919442^9, 3.5817066958527594`^9}],
20854
20855	Cell[BoxData[
20856	FormBox[
20857	InterpretationBox[
20858	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20859	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20860	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20861	FormBox[
20862	OverscriptBox["s", "\<\"-\"\>"],
20863	TraditionalForm]}],
20864	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
20865	Editable->False], TraditionalForm]], "Print",
20866	CellChangeTimes->{3.581705775919442^9, 3.5817066958627605`^9}],
20867
20868	Cell[BoxData[
20869	FormBox[
20870	InterpretationBox[
20871	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20872	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20873	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20874	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20875	Editable->False], TraditionalForm]], "Print",
20876	CellChangeTimes->{3.581705775919442^9, 3.5817066958782625`^9}],
20877
20878	Cell[BoxData[
20879	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20880	CellChangeTimes->{3.581705775919442^9, 3.5817066958882637`^9}],
20881
20882	Cell[BoxData[
20883	FormBox[
20884	RowBox[{
20885	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsLz", " ",
20886	FormBox[
20887	SubscriptBox["\[Delta]",
20888	RowBox[{
20889	FormBox[
20890	SubscriptBox["\<\"i\"\>", "1"],
20891	TraditionalForm], ",",
20892	FormBox[
20893	SubscriptBox["\<\"i\"\>", "2"],
20894	TraditionalForm]}]],
20895	TraditionalForm], " ",
20896	FormBox[
20897	SubscriptBox[
20898	RowBox[{
20899	FormBox[
20900	SuperscriptBox["\[Gamma]",
20901	FormBox[
20902	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20903	TraditionalForm]],
20904	TraditionalForm], ".",
20905	FormBox[
20906	SubscriptBox["P", "\<\"-\"\>"],
20907	TraditionalForm]}],
20908	RowBox[{
20909	FormBox[
20910	SubscriptBox["\<\"s\"\>", "2"],
20911	TraditionalForm], ",",
20912	FormBox[
20913	SubscriptBox["\<\"s\"\>", "1"],
20914	TraditionalForm]}]],
20915	TraditionalForm]}], "+",
20916	RowBox[{"\[ImaginaryI]", " ", "KB", " ", "KBsRz", " ",
20917	FormBox[
20918	SubscriptBox["\[Delta]",
20919	RowBox[{
20920	FormBox[
20921	SubscriptBox["\<\"i\"\>", "1"],
20922	TraditionalForm], ",",
20923	FormBox[
20924	SubscriptBox["\<\"i\"\>", "2"],
20925	TraditionalForm]}]],
20926	TraditionalForm], " ",
20927	FormBox[
20928	SubscriptBox[
20929	RowBox[{
20930	FormBox[
20931	SuperscriptBox["\[Gamma]",
20932	FormBox[
20933	SubscriptBox["\<\"\[Mu]\"\>", "3"],
20934	TraditionalForm]],
20935	TraditionalForm], ".",
20936	FormBox[
20937	SubscriptBox["P", "\<\"+\"\>"],
20938	TraditionalForm]}],
20939	RowBox[{
20940	FormBox[
20941	SubscriptBox["\<\"s\"\>", "2"],
20942	TraditionalForm], ",",
20943	FormBox[
20944	SubscriptBox["\<\"s\"\>", "1"],
20945	TraditionalForm]}]],
20946	TraditionalForm]}]}], TraditionalForm]], "Print",
20947	CellChangeTimes->{3.581705775919442^9, 3.5817066958922644`^9}],
20948
20949	Cell[BoxData[
20950	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
20951	* * * *)\"\>", TraditionalForm]], "Print",
20952	CellChangeTimes->{3.581705775919442^9, 3.581706695898265^9}],
20953
20954	Cell[BoxData[
20955	FormBox[
20956	InterpretationBox[
20957	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "52"}],
20958	SequenceForm["Vertex ", 52],
20959	Editable->False], TraditionalForm]], "Print",
20960	CellChangeTimes->{3.581705775919442^9, 3.5817066959027653`^9}],
20961
20962	Cell[BoxData[
20963	FormBox[
20964	InterpretationBox[
20965	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
20966	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20967	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
20968	FormBox[
20969	OverscriptBox["t", "\<\"-\"\>"],
20970	TraditionalForm]}],
20971	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tbar],
20972	Editable->False], TraditionalForm]], "Print",
20973	CellChangeTimes->{3.581705775919442^9, 3.5817066959162674`^9}],
20974
20975	Cell[BoxData[
20976	FormBox[
20977	InterpretationBox[
20978	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
20979	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
20980	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
20981	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tp],
20982	Editable->False], TraditionalForm]], "Print",
20983	CellChangeTimes->{3.581705775919442^9, 3.581706695920268^9}],
20984
20985	Cell[BoxData[
20986	FormBox[
20987	InterpretationBox[
20988	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
20989	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
20990	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
20991	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
20992	Editable->False], TraditionalForm]], "Print",
20993	CellChangeTimes->{3.581705775919442^9, 3.5817066959242687`^9}],
20994
20995	Cell[BoxData[
20996	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
20997	CellChangeTimes->{3.581705775919442^9, 3.581706695928769^9}],
20998
20999	Cell[BoxData[
21000	FormBox[
21001	RowBox[{
21002	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLz", " ",
21003	FormBox[
21004	SubscriptBox["\[Delta]",
21005	RowBox[{
21006	FormBox[
21007	SubscriptBox["\<\"i\"\>", "1"],
21008	TraditionalForm], ",",
21009	FormBox[
21010	SubscriptBox["\<\"i\"\>", "2"],
21011	TraditionalForm]}]],
21012	TraditionalForm], " ",
21013	FormBox[
21014	SubscriptBox[
21015	RowBox[{
21016	FormBox[
21017	SuperscriptBox["\[Gamma]",
21018	FormBox[
21019	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21020	TraditionalForm]],
21021	TraditionalForm], ".",
21022	FormBox[
21023	SubscriptBox["P", "\<\"-\"\>"],
21024	TraditionalForm]}],
21025	RowBox[{
21026	FormBox[
21027	SubscriptBox["\<\"s\"\>", "1"],
21028	TraditionalForm], ",",
21029	FormBox[
21030	SubscriptBox["\<\"s\"\>", "2"],
21031	TraditionalForm]}]],
21032	TraditionalForm]}], "+",
21033	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRz", " ",
21034	FormBox[
21035	SubscriptBox["\[Delta]",
21036	RowBox[{
21037	FormBox[
21038	SubscriptBox["\<\"i\"\>", "1"],
21039	TraditionalForm], ",",
21040	FormBox[
21041	SubscriptBox["\<\"i\"\>", "2"],
21042	TraditionalForm]}]],
21043	TraditionalForm], " ",
21044	FormBox[
21045	SubscriptBox[
21046	RowBox[{
21047	FormBox[
21048	SuperscriptBox["\[Gamma]",
21049	FormBox[
21050	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21051	TraditionalForm]],
21052	TraditionalForm], ".",
21053	FormBox[
21054	SubscriptBox["P", "\<\"+\"\>"],
21055	TraditionalForm]}],
21056	RowBox[{
21057	FormBox[
21058	SubscriptBox["\<\"s\"\>", "1"],
21059	TraditionalForm], ",",
21060	FormBox[
21061	SubscriptBox["\<\"s\"\>", "2"],
21062	TraditionalForm]}]],
21063	TraditionalForm]}]}], TraditionalForm]], "Print",
21064	CellChangeTimes->{3.581705775919442^9, 3.58170669593927^9}],
21065
21066	Cell[BoxData[
21067	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21068	* * * *)\"\>", TraditionalForm]], "Print",
21069	CellChangeTimes->{3.581705775919442^9, 3.581706695944771^9}],
21070
21071	Cell[BoxData[
21072	FormBox[
21073	InterpretationBox[
21074	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "53"}],
21075	SequenceForm["Vertex ", 53],
21076	Editable->False], TraditionalForm]], "Print",
21077	CellChangeTimes->{3.581705775919442^9, 3.5817066959487715`^9}],
21078
21079	Cell[BoxData[
21080	FormBox[
21081	InterpretationBox[
21082	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21083	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21084	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
21085	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
21086	Editable->False], TraditionalForm]], "Print",
21087	CellChangeTimes->{3.581705775919442^9, 3.581706695962273^9}],
21088
21089	Cell[BoxData[
21090	FormBox[
21091	InterpretationBox[
21092	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21093	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21094	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21095	FormBox[
21096	OverscriptBox["tp", "\<\"-\"\>"],
21097	TraditionalForm]}],
21098	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
21099	Editable->False], TraditionalForm]], "Print",
21100	CellChangeTimes->{3.581705775919442^9, 3.5817066959662733`^9}],
21101
21102	Cell[BoxData[
21103	FormBox[
21104	InterpretationBox[
21105	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21106	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21107	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21108	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
21109	Editable->False], TraditionalForm]], "Print",
21110	CellChangeTimes->{3.581705775919442^9, 3.581706695970774^9}],
21111
21112	Cell[BoxData[
21113	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
21114	CellChangeTimes->{3.581705775919442^9, 3.5817066959742746`^9}],
21115
21116	Cell[BoxData[
21117	FormBox[
21118	RowBox[{
21119	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcLz", " ",
21120	FormBox[
21121	SubscriptBox["\[Delta]",
21122	RowBox[{
21123	FormBox[
21124	SubscriptBox["\<\"i\"\>", "1"],
21125	TraditionalForm], ",",
21126	FormBox[
21127	SubscriptBox["\<\"i\"\>", "2"],
21128	TraditionalForm]}]],
21129	TraditionalForm], " ",
21130	FormBox[
21131	SubscriptBox[
21132	RowBox[{
21133	FormBox[
21134	SuperscriptBox["\[Gamma]",
21135	FormBox[
21136	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21137	TraditionalForm]],
21138	TraditionalForm], ".",
21139	FormBox[
21140	SubscriptBox["P", "\<\"-\"\>"],
21141	TraditionalForm]}],
21142	RowBox[{
21143	FormBox[
21144	SubscriptBox["\<\"s\"\>", "2"],
21145	TraditionalForm], ",",
21146	FormBox[
21147	SubscriptBox["\<\"s\"\>", "1"],
21148	TraditionalForm]}]],
21149	TraditionalForm]}], "+",
21150	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTcRz", " ",
21151	FormBox[
21152	SubscriptBox["\[Delta]",
21153	RowBox[{
21154	FormBox[
21155	SubscriptBox["\<\"i\"\>", "1"],
21156	TraditionalForm], ",",
21157	FormBox[
21158	SubscriptBox["\<\"i\"\>", "2"],
21159	TraditionalForm]}]],
21160	TraditionalForm], " ",
21161	FormBox[
21162	SubscriptBox[
21163	RowBox[{
21164	FormBox[
21165	SuperscriptBox["\[Gamma]",
21166	FormBox[
21167	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21168	TraditionalForm]],
21169	TraditionalForm], ".",
21170	FormBox[
21171	SubscriptBox["P", "\<\"+\"\>"],
21172	TraditionalForm]}],
21173	RowBox[{
21174	FormBox[
21175	SubscriptBox["\<\"s\"\>", "2"],
21176	TraditionalForm], ",",
21177	FormBox[
21178	SubscriptBox["\<\"s\"\>", "1"],
21179	TraditionalForm]}]],
21180	TraditionalForm]}]}], TraditionalForm]], "Print",
21181	CellChangeTimes->{3.581705775919442^9, 3.581706695986276^9}],
21182
21183	Cell[BoxData[
21184	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21185	* * * *)\"\>", TraditionalForm]], "Print",
21186	CellChangeTimes->{3.581705775919442^9, 3.581706695992777^9}],
21187
21188	Cell[BoxData[
21189	FormBox[
21190	InterpretationBox[
21191	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "54"}],
21192	SequenceForm["Vertex ", 54],
21193	Editable->False], TraditionalForm]], "Print",
21194	CellChangeTimes->{3.581705775919442^9, 3.5817066959967775`^9}],
21195
21196	Cell[BoxData[
21197	FormBox[
21198	InterpretationBox[
21199	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21200	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21201	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
21202	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
21203	Editable->False], TraditionalForm]], "Print",
21204	CellChangeTimes->{3.581705775919442^9, 3.581706696000278^9}],
21205
21206	Cell[BoxData[
21207	FormBox[
21208	InterpretationBox[
21209	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21210	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21211	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21212	FormBox[
21213	OverscriptBox["tp", "\<\"-\"\>"],
21214	TraditionalForm]}],
21215	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tpbar],
21216	Editable->False], TraditionalForm]], "Print",
21217	CellChangeTimes->{3.581705775919442^9, 3.5817066960127797`^9}],
21218
21219	Cell[BoxData[
21220	FormBox[
21221	InterpretationBox[
21222	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21223	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21224	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21225	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
21226	Editable->False], TraditionalForm]], "Print",
21227	CellChangeTimes->{3.581705775919442^9, 3.58170669601678^9}],
21228
21229	Cell[BoxData[
21230	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
21231	CellChangeTimes->{3.581705775919442^9, 3.5817066960207806`^9}],
21232
21233	Cell[BoxData[
21234	FormBox[
21235	RowBox[{
21236	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtLz", " ",
21237	FormBox[
21238	SubscriptBox["\[Delta]",
21239	RowBox[{
21240	FormBox[
21241	SubscriptBox["\<\"i\"\>", "1"],
21242	TraditionalForm], ",",
21243	FormBox[
21244	SubscriptBox["\<\"i\"\>", "2"],
21245	TraditionalForm]}]],
21246	TraditionalForm], " ",
21247	FormBox[
21248	SubscriptBox[
21249	RowBox[{
21250	FormBox[
21251	SuperscriptBox["\[Gamma]",
21252	FormBox[
21253	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21254	TraditionalForm]],
21255	TraditionalForm], ".",
21256	FormBox[
21257	SubscriptBox["P", "\<\"-\"\>"],
21258	TraditionalForm]}],
21259	RowBox[{
21260	FormBox[
21261	SubscriptBox["\<\"s\"\>", "2"],
21262	TraditionalForm], ",",
21263	FormBox[
21264	SubscriptBox["\<\"s\"\>", "1"],
21265	TraditionalForm]}]],
21266	TraditionalForm]}], "+",
21267	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTtRz", " ",
21268	FormBox[
21269	SubscriptBox["\[Delta]",
21270	RowBox[{
21271	FormBox[
21272	SubscriptBox["\<\"i\"\>", "1"],
21273	TraditionalForm], ",",
21274	FormBox[
21275	SubscriptBox["\<\"i\"\>", "2"],
21276	TraditionalForm]}]],
21277	TraditionalForm], " ",
21278	FormBox[
21279	SubscriptBox[
21280	RowBox[{
21281	FormBox[
21282	SuperscriptBox["\[Gamma]",
21283	FormBox[
21284	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21285	TraditionalForm]],
21286	TraditionalForm], ".",
21287	FormBox[
21288	SubscriptBox["P", "\<\"+\"\>"],
21289	TraditionalForm]}],
21290	RowBox[{
21291	FormBox[
21292	SubscriptBox["\<\"s\"\>", "2"],
21293	TraditionalForm], ",",
21294	FormBox[
21295	SubscriptBox["\<\"s\"\>", "1"],
21296	TraditionalForm]}]],
21297	TraditionalForm]}]}], TraditionalForm]], "Print",
21298	CellChangeTimes->{3.581705775919442^9, 3.581706696024781^9}],
21299
21300	Cell[BoxData[
21301	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21302	* * * *)\"\>", TraditionalForm]], "Print",
21303	CellChangeTimes->{3.581705775919442^9, 3.5817066960362825`^9}],
21304
21305	Cell[BoxData[
21306	FormBox[
21307	InterpretationBox[
21308	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "55"}],
21309	SequenceForm["Vertex ", 55],
21310	Editable->False], TraditionalForm]], "Print",
21311	CellChangeTimes->{3.581705775919442^9, 3.581706696040783^9}],
21312
21313	Cell[BoxData[
21314	FormBox[
21315	InterpretationBox[
21316	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21317	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21318	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21319	FormBox[
21320	OverscriptBox["tp", "\<\"-\"\>"],
21321	TraditionalForm]}],
21322	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tpbar],
21323	Editable->False], TraditionalForm]], "Print",
21324	CellChangeTimes->{3.581705775919442^9, 3.5817066960447836`^9}],
21325
21326	Cell[BoxData[
21327	FormBox[
21328	InterpretationBox[
21329	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21330	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21331	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
21332	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
21333	Editable->False], TraditionalForm]], "Print",
21334	CellChangeTimes->{3.581705775919442^9, 3.581706696048284^9}],
21335
21336	Cell[BoxData[
21337	FormBox[
21338	InterpretationBox[
21339	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21340	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21341	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21342	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
21343	Editable->False], TraditionalForm]], "Print",
21344	CellChangeTimes->{3.581705775919442^9, 3.5817066960532846`^9}],
21345
21346	Cell[BoxData[
21347	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
21348	CellChangeTimes->{3.581705775919442^9, 3.581706696063286^9}],
21349
21350	Cell[BoxData[
21351	FormBox[
21352	RowBox[{
21353	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLz", " ",
21354	FormBox[
21355	SubscriptBox["\[Delta]",
21356	RowBox[{
21357	FormBox[
21358	SubscriptBox["\<\"i\"\>", "1"],
21359	TraditionalForm], ",",
21360	FormBox[
21361	SubscriptBox["\<\"i\"\>", "2"],
21362	TraditionalForm]}]],
21363	TraditionalForm], " ",
21364	FormBox[
21365	SubscriptBox[
21366	RowBox[{
21367	FormBox[
21368	SuperscriptBox["\[Gamma]",
21369	FormBox[
21370	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21371	TraditionalForm]],
21372	TraditionalForm], ".",
21373	FormBox[
21374	SubscriptBox["P", "\<\"-\"\>"],
21375	TraditionalForm]}],
21376	RowBox[{
21377	FormBox[
21378	SubscriptBox["\<\"s\"\>", "1"],
21379	TraditionalForm], ",",
21380	FormBox[
21381	SubscriptBox["\<\"s\"\>", "2"],
21382	TraditionalForm]}]],
21383	TraditionalForm]}], "+",
21384	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRz", " ",
21385	FormBox[
21386	SubscriptBox["\[Delta]",
21387	RowBox[{
21388	FormBox[
21389	SubscriptBox["\<\"i\"\>", "1"],
21390	TraditionalForm], ",",
21391	FormBox[
21392	SubscriptBox["\<\"i\"\>", "2"],
21393	TraditionalForm]}]],
21394	TraditionalForm], " ",
21395	FormBox[
21396	SubscriptBox[
21397	RowBox[{
21398	FormBox[
21399	SuperscriptBox["\[Gamma]",
21400	FormBox[
21401	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21402	TraditionalForm]],
21403	TraditionalForm], ".",
21404	FormBox[
21405	SubscriptBox["P", "\<\"+\"\>"],
21406	TraditionalForm]}],
21407	RowBox[{
21408	FormBox[
21409	SubscriptBox["\<\"s\"\>", "1"],
21410	TraditionalForm], ",",
21411	FormBox[
21412	SubscriptBox["\<\"s\"\>", "2"],
21413	TraditionalForm]}]],
21414	TraditionalForm]}]}], TraditionalForm]], "Print",
21415	CellChangeTimes->{3.581705775919442^9, 3.5817066960672865`^9}],
21416
21417	Cell[BoxData[
21418	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21419	* * * *)\"\>", TraditionalForm]], "Print",
21420	CellChangeTimes->{3.581705775919442^9, 3.581706696072287^9}],
21421
21422	Cell[BoxData[
21423	FormBox[
21424	InterpretationBox[
21425	RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "56"}],
21426	SequenceForm["Vertex ", 56],
21427	Editable->False], TraditionalForm]], "Print",
21428	CellChangeTimes->{3.581705775919442^9, 3.581706696076788^9}],
21429
21430	Cell[BoxData[
21431	FormBox[
21432	InterpretationBox[
21433	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
21434	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21435	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "tp"}],
21436	SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tp],
21437	Editable->False], TraditionalForm]], "Print",
21438	CellChangeTimes->{3.581705775919442^9, 3.5817066960877895`^9}],
21439
21440	Cell[BoxData[
21441	FormBox[
21442	InterpretationBox[
21443	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
21444	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
21445	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
21446	FormBox[
21447	OverscriptBox["u", "\<\"-\"\>"],
21448	TraditionalForm]}],
21449	SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
21450	Editable->False], TraditionalForm]], "Print",
21451	CellChangeTimes->{3.581705775919442^9, 3.58170669609229^9}],
21452
21453	Cell[BoxData[
21454	FormBox[
21455	InterpretationBox[
21456	RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
21457	"\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
21458	"\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
21459	SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
21460	Editable->False], TraditionalForm]], "Print",
21461	CellChangeTimes->{3.581705775919442^9, 3.58170669609629^9}],
21462
21463	Cell[BoxData[
21464	FormBox["\<\"Vertex:\"\>", TraditionalForm]], "Print",
21465	CellChangeTimes->{3.581705775919442^9, 3.5817066960997906`^9}],
21466
21467	Cell[BoxData[
21468	FormBox[
21469	RowBox[{
21470	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuLz", " ",
21471	FormBox[
21472	SubscriptBox["\[Delta]",
21473	RowBox[{
21474	FormBox[
21475	SubscriptBox["\<\"i\"\>", "1"],
21476	TraditionalForm], ",",
21477	FormBox[
21478	SubscriptBox["\<\"i\"\>", "2"],
21479	TraditionalForm]}]],
21480	TraditionalForm], " ",
21481	FormBox[
21482	SubscriptBox[
21483	RowBox[{
21484	FormBox[
21485	SuperscriptBox["\[Gamma]",
21486	FormBox[
21487	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21488	TraditionalForm]],
21489	TraditionalForm], ".",
21490	FormBox[
21491	SubscriptBox["P", "\<\"-\"\>"],
21492	TraditionalForm]}],
21493	RowBox[{
21494	FormBox[
21495	SubscriptBox["\<\"s\"\>", "2"],
21496	TraditionalForm], ",",
21497	FormBox[
21498	SubscriptBox["\<\"s\"\>", "1"],
21499	TraditionalForm]}]],
21500	TraditionalForm]}], "+",
21501	RowBox[{"\[ImaginaryI]", " ", "KT", " ", "KTuRz", " ",
21502	FormBox[
21503	SubscriptBox["\[Delta]",
21504	RowBox[{
21505	FormBox[
21506	SubscriptBox["\<\"i\"\>", "1"],
21507	TraditionalForm], ",",
21508	FormBox[
21509	SubscriptBox["\<\"i\"\>", "2"],
21510	TraditionalForm]}]],
21511	TraditionalForm], " ",
21512	FormBox[
21513	SubscriptBox[
21514	RowBox[{
21515	FormBox[
21516	SuperscriptBox["\[Gamma]",
21517	FormBox[
21518	SubscriptBox["\<\"\[Mu]\"\>", "3"],
21519	TraditionalForm]],
21520	TraditionalForm], ".",
21521	FormBox[
21522	SubscriptBox["P", "\<\"+\"\>"],
21523	TraditionalForm]}],
21524	RowBox[{
21525	FormBox[
21526	SubscriptBox["\<\"s\"\>", "2"],
21527	TraditionalForm], ",",
21528	FormBox[
21529	SubscriptBox["\<\"s\"\>", "1"],
21530	TraditionalForm]}]],
21531	TraditionalForm]}]}], TraditionalForm]], "Print",
21532	CellChangeTimes->{3.581705775919442^9, 3.581706696111292^9}],
21533
21534	Cell[BoxData[
21535	FormBox["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
21536	* * * *)\"\>", TraditionalForm]], "Print",
21537	CellChangeTimes->{3.581705775919442^9, 3.5817066961167927`^9}]
21538	}, Open ]],
21539
21540	Cell[BoxData[
21541	FormBox[
21542	ButtonBox["FR$PartialWidths",
21543	Appearance->Automatic,
21544	BaseStyle->"InformationLink",
21545	ButtonData:>{"Info3574771045-2097307", {"FR$PartialWidths", "FeynRules`"}},
21546
21547	ButtonNote->"FeynRules`",
21548	Evaluator->Automatic,
21549	Method->"Preemptive"], TraditionalForm]], "Output",
21550	CellChangeTimes->{3.574763861772949^9, 3.574764868977558^9,
21551	3.5750866033956127`^9, 3.575181249516058^9, 3.575184870442667*^9,
21552	3.5751892624494066`^9, 3.5751895274715595`^9, 3.5817057819677105`*^9,
21553	3.581706696121293*^9},
21554	FontSize->6]
21555	}, Open ]]
21556	}, Open ]],
21557
21558	Cell[CellGroupData[{
21559
21560	Cell["\<\
21561	Check if the quadratic parts are diagonal\
21562	\>", "Subsection",
21563	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}, {
21564	3.5745083801218367`^9, 3.5745083815726395`^9}, {3.574763732028528*^9,
21565	3.574763733336603^9}, {3.5747640154917417`^9, 3.574764021864106*^9}},
21566	FontSize->9],
21567
21568	Cell[CellGroupData[{
21569
21570	Cell[BoxData[{
21571	RowBox[{"CheckDiagonalQuadraticTerms", "[", "LVLQ",
21572	"]"}], "\[IndentingNewLine]",
21573	RowBox[{"CheckDiagonalKineticTerms", "[", "LVLQ",
21574	"]"}], "\[IndentingNewLine]",
21575	RowBox[{"CheckDiagonalMassTerms", "[", "LVLQ", "]"}]}], "Input",
21576	CellChangeTimes->{{3.57476402298317^9, 3.574764081076493^9}, {
21577	3.5747641281091833`^9, 3.574764128265192^9}, 3.5747641693945446`*^9},
21578	FontSize->9],
21579
21580	Cell[CellGroupData[{
21581
21582	Cell[BoxData[
21583	FormBox[
21584	InterpretationBox[
21585	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21586	"\[InvisibleSpace]", "\<\"2\"\>",
21587	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21588	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21589	Editable->False], TraditionalForm]], "Print",
21590	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21591	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21592	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21593	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21594	3.581705782153234^9, 3.581706696267812^9}],
21595
21596	Cell[BoxData[
21597	FormBox[
21598	InterpretationBox[
21599	RowBox[{"\<\"Neglecting all terms with less than \"\>",
21600	"\[InvisibleSpace]", "\<\"2\"\>",
21601	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21602	SequenceForm["Neglecting all terms with less than ", "2", " particles."],
21603	Editable->False], TraditionalForm]], "Print",
21604	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21605	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21606	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21607	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21608	3.581705782153234^9, 3.581706696306317^9}],
21609
21610	Cell[BoxData[
21611	FormBox["\<\"All quadratic terms are diagonal.\"\>",
21612	TraditionalForm]], "Print",
21613	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21614	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21615	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21616	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21617	3.581705782153234^9, 3.5817066963663244`^9}]
21618	}, Open ]],
21619
21620	Cell[BoxData[
21621	FormBox["True", TraditionalForm]], "Output",
21622	CellChangeTimes->{{3.574764059942284^9, 3.574764083212615^9},
21623	3.574764131147357^9, 3.5747641717246776`^9, 3.5747648708396645`*^9,
21624	3.575086605480377^9, 3.575181249837099^9, 3.575184870733204*^9,
21625	3.575189262769447^9, 3.575189527747095^9, 3.5810872443919725`*^9,
21626	3.5817057822682486`^9, 3.581706696371825^9}],
21627
21628	Cell[CellGroupData[{
21629
21630	Cell[BoxData[
21631	FormBox[
21632	InterpretationBox[
21633	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21634	"\[InvisibleSpace]", "\<\"2\"\>",
21635	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21636	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21637	Editable->False], TraditionalForm]], "Print",
21638	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21639	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21640	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21641	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21642	3.581705782153234^9, 3.581706696457836^9}],
21643
21644	Cell[BoxData[
21645	FormBox["\<\"All kinetic terms are diagonal.\"\>", TraditionalForm]], "Print",\
21646
21647	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21648	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21649	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21650	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21651	3.581705782153234^9, 3.581706696557849^9}]
21652	}, Open ]],
21653
21654	Cell[BoxData[
21655	FormBox["True", TraditionalForm]], "Output",
21656	CellChangeTimes->{{3.574764059942284^9, 3.574764083212615^9},
21657	3.574764131147357^9, 3.5747641717246776`^9, 3.5747648708396645`*^9,
21658	3.575086605480377^9, 3.575181249837099^9, 3.575184870733204*^9,
21659	3.575189262769447^9, 3.575189527747095^9, 3.5810872443919725`*^9,
21660	3.5817057822682486`^9, 3.581706696561849^9}],
21661
21662	Cell[CellGroupData[{
21663
21664	Cell[BoxData[
21665	FormBox[
21666	InterpretationBox[
21667	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21668	"\[InvisibleSpace]", "\<\"2\"\>",
21669	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21670	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21671	Editable->False], TraditionalForm]], "Print",
21672	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21673	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21674	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21675	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21676	3.581705782153234^9, 3.58170669664686^9}],
21677
21678	Cell[BoxData[
21679	FormBox["\<\"All mass terms are diagonal.\"\>", TraditionalForm]], "Print",
21680	CellChangeTimes->{{3.5747640598952813`^9, 3.574764083165612^9},
21681	3.5747641311033545`^9, 3.5747641716836753`^9, 3.5747648707966623`*^9,
21682	3.5750866054493732`^9, 3.5751812497370863`^9, 3.5751848706191893`*^9,
21683	3.5751892626399307`^9, 3.575189527638081^9, 3.58108724428996*^9,
21684	3.581705782153234^9, 3.5817066967493734`^9}]
21685	}, Open ]],
21686
21687	Cell[BoxData[
21688	FormBox["True", TraditionalForm]], "Output",
21689	CellChangeTimes->{{3.574764059942284^9, 3.574764083212615^9},
21690	3.574764131147357^9, 3.5747641717246776`^9, 3.5747648708396645`*^9,
21691	3.575086605480377^9, 3.575181249837099^9, 3.575184870733204*^9,
21692	3.575189262769447^9, 3.575189527747095^9, 3.5810872443919725`*^9,
21693	3.5817057822682486`^9, 3.581706696753874^9}]
21694	}, Open ]]
21695	}, Open ]],
21696
21697	Cell[CellGroupData[{
21698
21699	Cell["\<\
21700	Check normalisation & mass spectrum\
21701	\>", "Subsection",
21702	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}, {
21703	3.5745083801218367`^9, 3.5745083815726395`^9}, {3.574763732028528*^9,
21704	3.574763733336603^9}, {3.5747640154917417`^9, 3.574764021864106*^9}, {
21705	3.574764161644101^9, 3.5747641663523703`^9}},
21706	FontSize->9],
21707
21708	Cell[CellGroupData[{
21709
21710	Cell[BoxData[{
21711	RowBox[{"CheckKineticTermNormalisation", "[", "LVLQ",
21712	"]"}], "\[IndentingNewLine]",
21713	RowBox[{"CheckMassSpectrum", "[", "LVLQ", "]"}]}], "Input",
21714	CellChangeTimes->{{3.5747641591359577`^9, 3.574764186922547^9}},
21715	FontSize->9],
21716
21717	Cell[CellGroupData[{
21718
21719	Cell[BoxData[
21720	FormBox[
21721	InterpretationBox[
21722	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21723	"\[InvisibleSpace]", "\<\"2\"\>",
21724	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21725	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21726	Editable->False], TraditionalForm]], "Print",
21727	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21728	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21729	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21730	3.5817057828018165`^9, 3.5817066968828897`^9}],
21731
21732	Cell[BoxData[
21733	FormBox["\<\"All kinetic terms are diagonal.\"\>", TraditionalForm]], "Print",\
21734
21735	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21736	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21737	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21738	3.5817057828018165`^9, 3.5817066969588995`^9}],
21739
21740	Cell[BoxData[
21741	FormBox[
21742	InterpretationBox[
21743	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21744	"\[InvisibleSpace]", "\<\"2\"\>",
21745	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21746	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21747	Editable->False], TraditionalForm]], "Print",
21748	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21749	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21750	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21751	3.5817057828018165`^9, 3.5817066970499115`^9}],
21752
21753	Cell[BoxData[
21754	FormBox["\<\"All kinetic terms are correctly normalized.\"\>",
21755	TraditionalForm]], "Print",
21756	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21757	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21758	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21759	3.5817057828018165`^9, 3.581706697148924^9}]
21760	}, Open ]],
21761
21762	Cell[BoxData[
21763	FormBox["True", TraditionalForm]], "Output",
21764	CellChangeTimes->{3.5747641905887566`^9, 3.5747648783860965`^9,
21765	3.575086613315872^9, 3.5751812506111975`^9, 3.5751848715123034`*^9,
21766	3.575189263681563^9, 3.575189528881239^9, 3.5810872495036216`*^9,
21767	3.5817057830898533`^9, 3.5817066971529245`^9}],
21768
21769	Cell[CellGroupData[{
21770
21771	Cell[BoxData[
21772	FormBox[
21773	InterpretationBox[
21774	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21775	"\[InvisibleSpace]", "\<\"2\"\>",
21776	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21777	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21778	Editable->False], TraditionalForm]], "Print",
21779	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21780	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21781	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21782	3.5817057828018165`^9, 3.5817066972484365`^9}],
21783
21784	Cell[BoxData[
21785	FormBox["\<\"All mass terms are diagonal.\"\>", TraditionalForm]], "Print",
21786	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21787	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21788	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21789	3.5817057828018165`^9, 3.5817066973474493`^9}],
21790
21791	Cell[BoxData[
21792	FormBox[
21793	InterpretationBox[
21794	RowBox[{"\<\"Neglecting all terms with more than \"\>",
21795	"\[InvisibleSpace]", "\<\"2\"\>",
21796	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
21797	SequenceForm["Neglecting all terms with more than ", "2", " particles."],
21798	Editable->False], TraditionalForm]], "Print",
21799	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21800	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21801	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21802	3.5817057828018165`^9, 3.5817066974389606`^9}],
21803
21804	Cell[BoxData[
21805	FormBox[
21806	InterpretationBox[
21807	RowBox[{"\<\"Warning: non numerical value encountered for \"\>",
21808	"\[InvisibleSpace]", "\<\"{bp, bpbar}\"\>",
21809	"\[InvisibleSpace]", "\<\". Unable to get numerical value.\"\>"}],
21810	SequenceForm[
21811	"Warning: non numerical value encountered for ", "{bp, bpbar}",
21812	". Unable to get numerical value."],
21813	Editable->False], TraditionalForm]], "Print",
21814	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21815	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21816	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21817	3.5817057828018165`^9, 3.5817066975704775`^9}],
21818
21819	Cell[BoxData[
21820	FormBox[
21821	InterpretationBox[
21822	RowBox[{"\<\"Warning: non numerical value encountered for \"\>",
21823	"\[InvisibleSpace]", "\<\"{tp, tpbar}\"\>",
21824	"\[InvisibleSpace]", "\<\". Unable to get numerical value.\"\>"}],
21825	SequenceForm[
21826	"Warning: non numerical value encountered for ", "{tp, tpbar}",
21827	". Unable to get numerical value."],
21828	Editable->False], TraditionalForm]], "Print",
21829	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21830	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21831	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21832	3.5817057828018165`^9, 3.581706697574478^9}],
21833
21834	Cell[BoxData[
21835	FormBox[
21836	InterpretationBox[
21837	RowBox[{"\<\"Warning: non numerical value encountered for \"\>",
21838	"\[InvisibleSpace]", "\<\"{x, xbar}\"\>",
21839	"\[InvisibleSpace]", "\<\". Unable to get numerical value.\"\>"}],
21840	SequenceForm[
21841	"Warning: non numerical value encountered for ", "{x, xbar}",
21842	". Unable to get numerical value."],
21843	Editable->False], TraditionalForm]], "Print",
21844	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21845	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21846	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21847	3.5817057828018165`^9, 3.5817066975789785`^9}],
21848
21849	Cell[BoxData[
21850	FormBox[
21851	InterpretationBox[
21852	RowBox[{"\<\"Warning: non numerical value encountered for \"\>",
21853	"\[InvisibleSpace]", "\<\"{y, ybar}\"\>",
21854	"\[InvisibleSpace]", "\<\". Unable to get numerical value.\"\>"}],
21855	SequenceForm[
21856	"Warning: non numerical value encountered for ", "{y, ybar}",
21857	". Unable to get numerical value."],
21858	Editable->False], TraditionalForm]], "Print",
21859	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21860	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21861	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21862	3.5817057828018165`^9, 3.58170669759098^9}],
21863
21864	Cell[BoxData[
21865	FormBox["\<\"Getting mass spectrum.\"\>", TraditionalForm]], "Print",
21866	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21867	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21868	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21869	3.5817057828018165`^9, 3.5817066975944805`^9}],
21870
21871	Cell[BoxData[
21872	FormBox["\<\"Checking for less then 0.1% agreement with model file values.\"\
21873	\>", TraditionalForm]], "Print",
21874	CellChangeTimes->{3.5747641888936596`^9, 3.5747648765139894`^9,
21875	3.575086611198103^9, 3.575181250364666^9, 3.5751848712357683`*^9,
21876	3.575189263378024^9, 3.5751895282581596`^9, 3.5810872491090717`*^9,
21877	3.5817057828018165`^9, 3.5817066975984807`^9}]
21878	}, Open ]],
21879
21880	Cell[BoxData[
21881	FormBox[
21882	InterpretationBox[GridBox[{
21883	{"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical \
21884	value\"\>", "\<\"Model-file value\"\>", "\<\"\"\>"},
21885	{"bp",
21886	RowBox[{"MBP", ".", "1"}],
21887	RowBox[{"If", "[",
21888	RowBox[{
21889	RowBox[{
21890	RowBox[{"Im", "(",
21891	RowBox[{"NumericalValue", "(",
21892	RowBox[{"MBP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
21893	RowBox[{"Re", "(",
21894	RowBox[{"NumericalValue", "(",
21895	RowBox[{"MBP", ".", "1"}], ")"}], ")"}]}], "]"}], "600.`",
21896	RowBox[{"If", "[",
21897	RowBox[{
21898	RowBox[{
21899	RowBox[{
21900	RowBox[{"If", "[",
21901	RowBox[{
21902	RowBox[{
21903	RowBox[{"Im", "(",
21904	RowBox[{"NumericalValue", "(",
21905	RowBox[{"MBP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}],
21906	",",
21907	RowBox[{"Re", "(",
21908	RowBox[{"NumericalValue", "(",
21909	RowBox[{"MBP", ".", "1"}], ")"}], ")"}]}], "]"}], ">",
21910	"599.4`"}], "\[And]",
21911	RowBox[{
21912	RowBox[{"If", "[",
21913	RowBox[{
21914	RowBox[{
21915	RowBox[{"Im", "(",
21916	RowBox[{"NumericalValue", "(",
21917	RowBox[{"MBP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}],
21918	",",
21919	RowBox[{"Re", "(",
21920	RowBox[{"NumericalValue", "(",
21921	RowBox[{"MBP", ".", "1"}], ")"}], ")"}]}], "]"}], "<",
21922	"600.5999999999999`"}]}], ",", "\<\"OK\"\>", ",",
21923	TagBox[
21924	StyleBox["\<\"Discrepency!\"\>",
21925	FontColor->RGBColor[1, 0, 0]],
21926	StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]}], "]"}]},
21927	{"tp",
21928	RowBox[{"MTP", ".", "1"}],
21929	RowBox[{"If", "[",
21930	RowBox[{
21931	RowBox[{
21932	RowBox[{"Im", "(",
21933	RowBox[{"NumericalValue", "(",
21934	RowBox[{"MTP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
21935	RowBox[{"Re", "(",
21936	RowBox[{"NumericalValue", "(",
21937	RowBox[{"MTP", ".", "1"}], ")"}], ")"}]}], "]"}], "600.`",
21938	RowBox[{"If", "[",
21939	RowBox[{
21940	RowBox[{
21941	RowBox[{
21942	RowBox[{"If", "[",
21943	RowBox[{
21944	RowBox[{
21945	RowBox[{"Im", "(",
21946	RowBox[{"NumericalValue", "(",
21947	RowBox[{"MTP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}],
21948	",",
21949	RowBox[{"Re", "(",
21950	RowBox[{"NumericalValue", "(",
21951	RowBox[{"MTP", ".", "1"}], ")"}], ")"}]}], "]"}], ">",
21952	"599.4`"}], "\[And]",
21953	RowBox[{
21954	RowBox[{"If", "[",
21955	RowBox[{
21956	RowBox[{
21957	RowBox[{"Im", "(",
21958	RowBox[{"NumericalValue", "(",
21959	RowBox[{"MTP", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}],
21960	",",
21961	RowBox[{"Re", "(",
21962	RowBox[{"NumericalValue", "(",
21963	RowBox[{"MTP", ".", "1"}], ")"}], ")"}]}], "]"}], "<",
21964	"600.5999999999999`"}]}], ",", "\<\"OK\"\>", ",",
21965	TagBox[
21966	StyleBox["\<\"Discrepency!\"\>",
21967	FontColor->RGBColor[1, 0, 0]],
21968	StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]}], "]"}]},
21969	{"x",
21970	RowBox[{"MX", ".", "1"}],
21971	RowBox[{"If", "[",
21972	RowBox[{
21973	RowBox[{
21974	RowBox[{"Im", "(",
21975	RowBox[{"NumericalValue", "(",
21976	RowBox[{"MX", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
21977	RowBox[{"Re", "(",
21978	RowBox[{"NumericalValue", "(",
21979	RowBox[{"MX", ".", "1"}], ")"}], ")"}]}], "]"}], "600.`",
21980	RowBox[{"If", "[",
21981	RowBox[{
21982	RowBox[{
21983	RowBox[{
21984	RowBox[{"If", "[",
21985	RowBox[{
21986	RowBox[{
21987	RowBox[{"Im", "(",
21988	RowBox[{"NumericalValue", "(",
21989	RowBox[{"MX", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
21990	RowBox[{"Re", "(",
21991	RowBox[{"NumericalValue", "(",
21992	RowBox[{"MX", ".", "1"}], ")"}], ")"}]}], "]"}], ">",
21993	"599.4`"}], "\[And]",
21994	RowBox[{
21995	RowBox[{"If", "[",
21996	RowBox[{
21997	RowBox[{
21998	RowBox[{"Im", "(",
21999	RowBox[{"NumericalValue", "(",
22000	RowBox[{"MX", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
22001	RowBox[{"Re", "(",
22002	RowBox[{"NumericalValue", "(",
22003	RowBox[{"MX", ".", "1"}], ")"}], ")"}]}], "]"}], "<",
22004	"600.5999999999999`"}]}], ",", "\<\"OK\"\>", ",",
22005	TagBox[
22006	StyleBox["\<\"Discrepency!\"\>",
22007	FontColor->RGBColor[1, 0, 0]],
22008	StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]}], "]"}]},
22009	{"y",
22010	RowBox[{"MY", ".", "1"}],
22011	RowBox[{"If", "[",
22012	RowBox[{
22013	RowBox[{
22014	RowBox[{"Im", "(",
22015	RowBox[{"NumericalValue", "(",
22016	RowBox[{"MY", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
22017	RowBox[{"Re", "(",
22018	RowBox[{"NumericalValue", "(",
22019	RowBox[{"MY", ".", "1"}], ")"}], ")"}]}], "]"}], "600.`",
22020	RowBox[{"If", "[",
22021	RowBox[{
22022	RowBox[{
22023	RowBox[{
22024	RowBox[{"If", "[",
22025	RowBox[{
22026	RowBox[{
22027	RowBox[{"Im", "(",
22028	RowBox[{"NumericalValue", "(",
22029	RowBox[{"MY", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
22030	RowBox[{"Re", "(",
22031	RowBox[{"NumericalValue", "(",
22032	RowBox[{"MY", ".", "1"}], ")"}], ")"}]}], "]"}], ">",
22033	"599.4`"}], "\[And]",
22034	RowBox[{
22035	RowBox[{"If", "[",
22036	RowBox[{
22037	RowBox[{
22038	RowBox[{"Im", "(",
22039	RowBox[{"NumericalValue", "(",
22040	RowBox[{"MY", ".", "1"}], ")"}], ")"}], "<", "1.`*^-13"}], ",",
22041	RowBox[{"Re", "(",
22042	RowBox[{"NumericalValue", "(",
22043	RowBox[{"MY", ".", "1"}], ")"}], ")"}]}], "]"}], "<",
22044	"600.5999999999999`"}]}], ",", "\<\"OK\"\>", ",",
22045	TagBox[
22046	StyleBox["\<\"Discrepency!\"\>",
22047	FontColor->RGBColor[1, 0, 0]],
22048	StyleForm[#, FontColor -> RGBColor[1, 0, 0]]& ]}], "]"}]}
22049	},
22050	GridBoxAlignment->{
22051	"Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
22052	"RowsIndexed" -> {}},
22053	GridBoxSpacings->{"Columns" -> {
22054	Offset[0.27999999999999997`], {
22055	Offset[2.0999999999999996`]},
22056	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
22057	Offset[0.2], {
22058	Offset[0.4]},
22059	Offset[0.2]}, "RowsIndexed" -> {}}],
22060	TableForm[{{
22061	"Particle", "Analytic value", "Numerical value",
22062	"Model-file value"}, {$CellContext`bp,
22063	Dot[$CellContext`MBP, 1],
22064	If[Im[
22065	FeynRules`NumericalValue[
22066	Dot[$CellContext`MBP, 1]]] < 1.*^-13,
22067	Re[
22068	FeynRules`NumericalValue[
22069	Dot[$CellContext`MBP, 1]]]], 600.,
22070	If[
22071	And[If[Im[
22072	FeynRules`NumericalValue[
22073	Dot[$CellContext`MBP, 1]]] < 1.*^-13,
22074	Re[
22075	FeynRules`NumericalValue[
22076	Dot[$CellContext`MBP, 1]]]] > 599.4, If[Im[
22077	FeynRules`NumericalValue[
22078	Dot[$CellContext`MBP, 1]]] < 1.*^-13,
22079	Re[
22080	FeynRules`NumericalValue[
22081	Dot[$CellContext`MBP, 1]]]] < 600.5999999999999], "OK",
22082	StyleForm[
22083	"Discrepency!", FontColor -> RGBColor[1, 0, 0]]]}, {$CellContext`tp,
22084	Dot[$CellContext`MTP, 1],
22085	If[Im[
22086	FeynRules`NumericalValue[
22087	Dot[$CellContext`MTP, 1]]] < 1.*^-13,
22088	Re[
22089	FeynRules`NumericalValue[
22090	Dot[$CellContext`MTP, 1]]]], 600.,
22091	If[
22092	And[If[Im[
22093	FeynRules`NumericalValue[
22094	Dot[$CellContext`MTP, 1]]] < 1.*^-13,
22095	Re[
22096	FeynRules`NumericalValue[
22097	Dot[$CellContext`MTP, 1]]]] > 599.4, If[Im[
22098	FeynRules`NumericalValue[
22099	Dot[$CellContext`MTP, 1]]] < 1.*^-13,
22100	Re[
22101	FeynRules`NumericalValue[
22102	Dot[$CellContext`MTP, 1]]]] < 600.5999999999999], "OK",
22103	StyleForm["Discrepency!", FontColor -> RGBColor[1, 0, 0]]]}, {
22104	FeynRules`x,
22105	Dot[$CellContext`MX, 1],
22106	If[Im[
22107	FeynRules`NumericalValue[
22108	Dot[$CellContext`MX, 1]]] < 1.*^-13,
22109	Re[
22110	FeynRules`NumericalValue[
22111	Dot[$CellContext`MX, 1]]]], 600.,
22112	If[
22113	And[If[Im[
22114	FeynRules`NumericalValue[
22115	Dot[$CellContext`MX, 1]]] < 1.*^-13,
22116	Re[
22117	FeynRules`NumericalValue[
22118	Dot[$CellContext`MX, 1]]]] > 599.4, If[Im[
22119	FeynRules`NumericalValue[
22120	Dot[$CellContext`MX, 1]]] < 1.*^-13,
22121	Re[
22122	FeynRules`NumericalValue[
22123	Dot[$CellContext`MX, 1]]]] < 600.5999999999999], "OK",
22124	StyleForm["Discrepency!", FontColor -> RGBColor[1, 0, 0]]]}, {
22125	FeynRules`y,
22126	Dot[$CellContext`MY, 1],
22127	If[Im[
22128	FeynRules`NumericalValue[
22129	Dot[$CellContext`MY, 1]]] < 1.*^-13,
22130	Re[
22131	FeynRules`NumericalValue[
22132	Dot[$CellContext`MY, 1]]]], 600.,
22133	If[
22134	And[If[Im[
22135	FeynRules`NumericalValue[
22136	Dot[$CellContext`MY, 1]]] < 1.*^-13,
22137	Re[
22138	FeynRules`NumericalValue[
22139	Dot[$CellContext`MY, 1]]]] > 599.4, If[Im[
22140	FeynRules`NumericalValue[
22141	Dot[$CellContext`MY, 1]]] < 1.*^-13,
22142	Re[
22143	FeynRules`NumericalValue[
22144	Dot[$CellContext`MY, 1]]]] < 600.5999999999999], "OK",
22145	StyleForm["Discrepency!", FontColor -> RGBColor[1, 0, 0]]]}}]],
22146	TraditionalForm]], "Output",
22147	CellChangeTimes->{3.5747641905887566`^9, 3.5747648783860965`^9,
22148	3.575086613315872^9, 3.5751812506111975`^9, 3.5751848715123034`*^9,
22149	3.575189263681563^9, 3.575189528881239^9, 3.5810872495036216`*^9,
22150	3.5817057830898533`^9, 3.5817066976034813`^9}]
22151	}, Open ]]
22152	}, Open ]]
22153	}, Open ]],
22154
22155	Cell[CellGroupData[{
22156
22157	Cell["Outputs and interfaces", "Section",
22158	CellChangeTimes->{
22159	3.411910944409371^9, {3.412185514054689^9, 3.412185517014236*^9}},
22160	FontSize->9],
22161
22162	Cell[CellGroupData[{
22163
22164	Cell["CalcHep output", "Subsection",
22165	CellChangeTimes->{{3.4119110460271273`^9, 3.411911049405038^9}, {
22166	3.411911150323291^9, 3.4119111515122623`^9}},
22167	FontSize->10],
22168
22169	Cell[CellGroupData[{
22170
22171	Cell[BoxData[{
22172	RowBox[{
22173	RowBox[{"FeynmanGauge", "=", "True"}], ";"}], "\[IndentingNewLine]",
22174	RowBox[{
22175	RowBox[{"WriteCHOutput", "[", "L", "]"}], ";"}]}], "Input",
22176	CellChangeTimes->{{3.57518471886992^9, 3.5751847190109377`^9}, {
22177	3.5751847979554625`^9, 3.5751848086533213`^9}, {3.5751849572211866`*^9,
22178	3.5751849627703915`^9}, {3.5751894185427275`^9, 3.5751894200289164`*^9}},
22179	FontSize->8],
22180
22181	Cell[CellGroupData[{
22182
22183	Cell[BoxData[
22184	FormBox["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>",
22185	TraditionalForm]], "Print",
22186	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22187	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22188	3.581706774979307*^9}],
22189
22190	Cell[BoxData[
22191	FormBox[
22192	InterpretationBox[
22193	RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
22194	StyleBox["\<\"Authors:\"\>",
22195	StripOnInput->False,
22196	LineColor->RGBColor[0, 0, 1],
22197	FrontFaceColor->RGBColor[0, 0, 1],
22198	BackFaceColor->RGBColor[0, 0, 1],
22199	GraphicsColor->RGBColor[0, 0, 1],
22200	FontColor->RGBColor[0, 0, 1]],
22201	"\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
22202	SequenceForm[" - - - ",
22203	Style["Authors:",
22204	RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
22205	Editable->False], TraditionalForm]], "Print",
22206	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22207	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22208	3.581706775012811*^9}],
22209
22210	Cell[BoxData[
22211	FormBox[
22212	InterpretationBox[
22213	RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
22214	StyleBox["\<\"Please cite:\"\>",
22215	StripOnInput->False,
22216	LineColor->RGBColor[0, 0, 1],
22217	FrontFaceColor->RGBColor[0, 0, 1],
22218	BackFaceColor->RGBColor[0, 0, 1],
22219	GraphicsColor->RGBColor[0, 0, 1],
22220	FontColor->RGBColor[0, 0, 1]],
22221	"\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
22222	SequenceForm[" - - - ",
22223	Style["Please cite:",
22224	RGBColor[0, 0, 1]], " arXiv:0906.2474"],
22225	Editable->False], TraditionalForm]], "Print",
22226	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22227	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22228	3.581706775017812*^9}],
22229
22230	Cell[BoxData[
22231	FormBox[
22232	InterpretationBox[
22233	RowBox[{
22234	StyleBox["\<\"\\nWriting\"\>",
22235	StripOnInput->False,
22236	LineColor->RGBColor[0, 0, 1],
22237	FrontFaceColor->RGBColor[0, 0, 1],
22238	BackFaceColor->RGBColor[0, 0, 1],
22239	GraphicsColor->RGBColor[0, 0, 1],
22240	FontColor->RGBColor[0, 0, 1]],
22241	"\[InvisibleSpace]", "\<\" files to \
22242	D:\\\\Logiciels\\\\Mathematica\\\\AddOns\\\\Applications\\\\FeynRules\\\\\
22243	Models\\\\VLQ\\\\VLQ-CH.\"\>"}],
22244	SequenceForm[
22245	Style["\nWriting",
22246	RGBColor[0, 0, 1]],
22247	" files to \
22248	D:\\Logiciels\\Mathematica\\AddOns\\Applications\\FeynRules\\Models\\VLQ\\VLQ-\
22249	CH."],
22250	Editable->False], TraditionalForm]], "Print",
22251	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22252	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22253	3.5817067750228124`*^9}],
22254
22255	Cell[BoxData[
22256	FormBox[
22257	InterpretationBox[
22258	RowBox[{
22259	StyleBox["\<\"\\nWriting\"\>",
22260	StripOnInput->False,
22261	LineColor->RGBColor[0, 0, 1],
22262	FrontFaceColor->RGBColor[0, 0, 1],
22263	BackFaceColor->RGBColor[0, 0, 1],
22264	GraphicsColor->RGBColor[0, 0, 1],
22265	FontColor->RGBColor[0, 0, 1]],
22266	"\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
22267	SequenceForm[
22268	Style["\nWriting",
22269	RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
22270	Editable->False], TraditionalForm]], "Print",
22271	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22272	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22273	3.581706775026813*^9}],
22274
22275	Cell[BoxData[
22276	FormBox[
22277	InterpretationBox[
22278	RowBox[{
22279	StyleBox["\<\"\\nWriting\"\>",
22280	StripOnInput->False,
22281	LineColor->RGBColor[0, 0, 1],
22282	FrontFaceColor->RGBColor[0, 0, 1],
22283	BackFaceColor->RGBColor[0, 0, 1],
22284	GraphicsColor->RGBColor[0, 0, 1],
22285	FontColor->RGBColor[0, 0, 1]],
22286	"\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
22287	SequenceForm[
22288	Style["\nWriting",
22289	RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
22290	Editable->False], TraditionalForm]], "Print",
22291	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22292	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22293	3.58170677508432*^9}],
22294
22295	Cell[BoxData[
22296	FormBox[
22297	InterpretationBox[
22298	RowBox[{
22299	StyleBox["\<\"\\nWriting\"\>",
22300	StripOnInput->False,
22301	LineColor->RGBColor[0, 0, 1],
22302	FrontFaceColor->RGBColor[0, 0, 1],
22303	BackFaceColor->RGBColor[0, 0, 1],
22304	GraphicsColor->RGBColor[0, 0, 1],
22305	FontColor->RGBColor[0, 0, 1]],
22306	"\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
22307	SequenceForm[
22308	Style["\nWriting",
22309	RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
22310	Editable->False], TraditionalForm]], "Print",
22311	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22312	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22313	3.581706775101322*^9}],
22314
22315	Cell[BoxData[
22316	FormBox[
22317	InterpretationBox[
22318	RowBox[{
22319	StyleBox["\<\"\\nWriting\"\>",
22320	StripOnInput->False,
22321	LineColor->RGBColor[0, 0, 1],
22322	FrontFaceColor->RGBColor[0, 0, 1],
22323	BackFaceColor->RGBColor[0, 0, 1],
22324	GraphicsColor->RGBColor[0, 0, 1],
22325	FontColor->RGBColor[0, 0, 1]],
22326	"\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
22327	SequenceForm[
22328	Style["\nWriting",
22329	RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
22330	Editable->False], TraditionalForm]], "Print",
22331	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22332	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22333	3.5817067751638308`*^9}],
22334
22335	Cell[BoxData[
22336	FormBox["\<\"\"\>", TraditionalForm]], "Print",
22337	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22338	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22339	3.581706775177332*^9}],
22340
22341	Cell[BoxData[
22342	FormBox[
22343	InterpretationBox[
22344	RowBox[{"\<\"Calculating Feynman rules for \"\>",
22345	"\[InvisibleSpace]", "\<\"L1\"\>"}],
22346	SequenceForm["Calculating Feynman rules for ", "L1"],
22347	Editable->False], TraditionalForm]], "Print",
22348	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22349	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22350	3.581706775180833*^9}],
22351
22352	Cell[BoxData[
22353	FormBox[
22354	InterpretationBox[
22355	RowBox[{"\<\"Starting Feynman rule calculation for \"\>",
22356	"\[InvisibleSpace]", "\<\"L1\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
22357	SequenceForm["Starting Feynman rule calculation for ", "L1", "."],
22358	Editable->False], TraditionalForm]], "Print",
22359	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22360	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22361	3.5817067754328647`*^9}],
22362
22363	Cell[BoxData[
22364	FormBox[
22365	InterpretationBox[
22366	RowBox[{"\<\"Neglecting all terms with more than \"\>",
22367	"\[InvisibleSpace]", "\<\"4\"\>",
22368	"\[InvisibleSpace]", "\<\" particles.\"\>"}],
22369	SequenceForm["Neglecting all terms with more than ", "4", " particles."],
22370	Editable->False], TraditionalForm]], "Print",
22371	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22372	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22373	3.581706775879421*^9}],
22374
22375	Cell[BoxData[
22376	FormBox["\<\"Collecting the different structures that enter the \
22377	vertex...\"\>", TraditionalForm]], "Print",
22378	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22379	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22380	3.581706786557277*^9}],
22381
22382	Cell[BoxData[
22383	FormBox[
22384	InterpretationBox[
22385	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"149\"\>",
22386	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
22387	SequenceForm["Found ", "149", " possible non zero vertices."],
22388	Editable->False], TraditionalForm]], "Print",
22389	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22390	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22391	3.581706786809809*^9}],
22392
22393	Cell[BoxData[
22394	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
22395	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22396	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22397	3.58170678681381*^9}],
22398
22399	Cell[BoxData[
22400	FormBox[
22401	ProgressIndicatorBox[Dynamic[PRIVATE`progress$11775]],
22402	TraditionalForm]], "Print",
22403	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22404	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22405	3.58170678681781*^9}],
22406
22407	Cell[BoxData[
22408	FormBox[
22409	InterpretationBox[
22410	RowBox[{"149", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
22411	SequenceForm[149, " vertices obtained."],
22412	Editable->False], TraditionalForm]], "Print",
22413	CellChangeTimes->{3.5751849126225233`^9, 3.5751893072655973`^9,
22414	3.575189443747428^9, 3.5751895292967916`^9, 3.5817061617169323`*^9,
22415	3.581706791466901*^9}]
22416	}, Open ]]
22417	}, Open ]]
22418	}, Open ]],
22419
22420	Cell[CellGroupData[{
22421
22422	Cell["UFO output", "Subsection",
22423	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}, {
22424	3.5745083801218367`^9, 3.5745083815726395`^9}},
22425	FontSize->9],
22426
22427	Cell["\<\
22428	The FeynRules output for the SM can be obtained via\
22429	\>", "Text",
22430	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
22431	3.411911062212926^9, 3.4119110634765463`^9}, {3.5745083846458445`*^9,
22432	3.5745083861746473`*^9}},
22433	FontSize->9],
22434
22435	Cell[CellGroupData[{
22436
22437	Cell[BoxData[{
22438	RowBox[{
22439	RowBox[{"FeynmanGauge", " ", "=", " ", "False"}],
22440	";"}], "\[IndentingNewLine]",
22441	RowBox[{"L", "//", "WriteUFO"}]}], "Input",
22442	CellChangeTimes->{{3.5705189929967775`^9, 3.570519000011668^9},
22443	3.5705192098938203`^9, {3.5705192814649086`^9, 3.570519281656433*^9}, {
22444	3.5705193273207316`^9, 3.570519333615531^9}, {3.570521451647987*^9,
22445	3.570521531465122^9}, {3.571326951698388^9, 3.5713269550678167`*^9}, {
22446	3.5743121975149927`^9, 3.574312200204996^9}, 3.5745073225521364`*^9},
22447	FontSize->8],
22448
22449	Cell[CellGroupData[{
22450
22451	Cell[BoxData[
22452	FormBox["\<\" --- Universal FeynRules Output (UFO) v 0.1 ---\"\>",
22453	TraditionalForm]], "Print",
22454	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22455	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22456	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22457	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067042463255`*^9}],
22458
22459	Cell[BoxData[
22460	FormBox["\<\"Starting Feynman rule calculation.\"\>",
22461	TraditionalForm]], "Print",
22462	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22463	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22464	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22465	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067048238983`*^9}],
22466
22467	Cell[BoxData[
22468	FormBox["\<\"Collecting the different structures that enter the \
22469	vertex...\"\>", TraditionalForm]], "Print",
22470	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22471	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22472	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22473	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067130489426`*^9}],
22474
22475	Cell[BoxData[
22476	FormBox[
22477	InterpretationBox[
22478	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"87\"\>",
22479	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
22480	SequenceForm["Found ", "87", " possible non zero vertices."],
22481	Editable->False], TraditionalForm]], "Print",
22482	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22483	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22484	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22485	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067132384667`*^9}],
22486
22487	Cell[BoxData[
22488	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
22489	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22490	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22491	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22492	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067132424674`*^9}],
22493
22494	Cell[BoxData[
22495	FormBox[
22496	ProgressIndicatorBox[Dynamic[PRIVATE`progress$4612]],
22497	TraditionalForm]], "Print",
22498	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22499	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22500	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22501	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067132509685`*^9}],
22502
22503	Cell[BoxData[
22504	FormBox[
22505	InterpretationBox[
22506	RowBox[{"87", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
22507	SequenceForm[87, " vertices obtained."],
22508	Editable->False], TraditionalForm]], "Print",
22509	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22510	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22511	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22512	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067176870317`*^9}],
22513
22514	Cell[BoxData[
22515	FormBox["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>",
22516	TraditionalForm]], "Print",
22517	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22518	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22519	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22520	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067196767845`*^9}],
22521
22522	Cell[BoxData[
22523	FormBox["\<\"Preparing Python output.\"\>", TraditionalForm]], "Print",
22524	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22525	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22526	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22527	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067196907864`*^9}],
22528
22529	Cell[BoxData[
22530	FormBox["\<\" - Splitting vertices into building blocks.\"\>",
22531	TraditionalForm]], "Print",
22532	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22533	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22534	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22535	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067198018007`*^9}],
22536
22537	Cell[BoxData[
22538	FormBox[
22539	InterpretationBox[
22540	RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
22541	DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, TraditionalForm],
22542	ImageSizeCache->{253., {4., 13.}}], "\[InvisibleSpace]", "\<\"/\"\>",
22543	"\[InvisibleSpace]", "125", "\[InvisibleSpace]", "\<\" .\"\>"}],
22544	SequenceForm[" - Optimizing: ",
22545	Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 125, " ."],
22546	Editable->False], TraditionalForm]], "Print",
22547	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22548	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22549	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22550	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067206349063`*^9}],
22551
22552	Cell[BoxData[
22553	FormBox["\<\" - Writing files.\"\>", TraditionalForm]], "Print",
22554	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22555	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22556	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22557	3.581087259444384^9, 3.5817058299503036`^9, 3.5817067208734365`*^9}],
22558
22559	Cell[BoxData[
22560	FormBox["\<\"Done!\"\>", TraditionalForm]], "Print",
22561	CellChangeTimes->{3.574508395004263^9, 3.574764359475416^9,
22562	3.5747648822643185`^9, 3.575086618727559^9, 3.575181251271781*^9,
22563	3.5751848720748744`^9, 3.575189264533671^9, 3.575189551840154*^9,
22564	3.581087259444384^9, 3.5817058299503036`^9, 3.581706721108466*^9}]
22565	}, Open ]]
22566	}, Open ]]
22567	}, Open ]],
22568
22569	Cell[CellGroupData[{
22570
22571	Cell["FeynArts output", "Subsection",
22572	CellChangeTimes->{{3.411911000132907^9, 3.411911005135379^9}},
22573	FontSize->9],
22574
22575	Cell["The FeynArts output for the SM can be obtained via", "Text",
22576	CellChangeTimes->{{3.411910955110715^9, 3.4119109690877657`^9}, {
22577	3.411911062212926^9, 3.4119110634765463`^9}},
22578	FontSize->9],
22579
22580	Cell[CellGroupData[{
22581
22582	Cell[BoxData[{
22583	RowBox[{
22584	RowBox[{"FeynmanGauge", " ", "=", " ", "False"}],
22585	";"}], "\[IndentingNewLine]",
22586	RowBox[{"WriteFeynArtsOutput", "[", "L", "]"}]}], "Input",
22587	CellChangeTimes->{{3.411911018354619^9, 3.4119110196967573`^9}, {
22588	3.412185470680571^9, 3.412185480912915^9}, {3.41245048911446*^9,
22589	3.4124504892674522`^9}, 3.414315634453483^9, {3.423416180751266*^9,
22590	3.423416182892613^9}, {3.5745076371682897`^9, 3.574507647635908*^9},
22591	3.575092129385824*^9},
22592	FontSize->9],
22593
22594	Cell[CellGroupData[{
22595
22596	Cell[BoxData[
22597	FormBox["\<\" - - - FeynRules interface to FeynArts - - -\"\>",
22598	TraditionalForm]], "Print",
22599	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22600	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22601	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22602	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22603	3.5817067499846334`*^9}],
22604
22605	Cell[BoxData[
22606	FormBox["\<\" C. Degrande C. Duhr, 2010\"\>", TraditionalForm]], "Print",\
22607
22608	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22609	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22610	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22611	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22612	3.5817067499896336`*^9}],
22613
22614	Cell[BoxData[
22615	FormBox[
22616	InterpretationBox[
22617	RowBox[{"\<\"Calculating Feynman rules for \"\>",
22618	"\[InvisibleSpace]", "\<\"L1\"\>"}],
22619	SequenceForm["Calculating Feynman rules for ", "L1"],
22620	Editable->False], TraditionalForm]], "Print",
22621	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22622	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22623	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22624	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22625	3.5817067500031357`*^9}],
22626
22627	Cell[BoxData[
22628	FormBox[
22629	InterpretationBox[
22630	RowBox[{"\<\"Starting Feynman rule calculation for \"\>",
22631	"\[InvisibleSpace]", "\<\"L1\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
22632	SequenceForm["Starting Feynman rule calculation for ", "L1", "."],
22633	Editable->False], TraditionalForm]], "Print",
22634	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22635	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22636	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22637	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22638	3.581706750189659*^9}],
22639
22640	Cell[BoxData[
22641	FormBox["\<\"Collecting the different structures that enter the \
22642	vertex...\"\>", TraditionalForm]], "Print",
22643	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22644	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22645	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22646	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22647	3.581706756442953*^9}],
22648
22649	Cell[BoxData[
22650	FormBox["\<\"Warning: Encountered class members in the lagrangian! This is \
22651	not supported by FeynArts.\"\>", TraditionalForm]], "Print",
22652	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22653	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22654	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22655	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22656	3.581706756593972*^9}],
22657
22658	Cell[BoxData[
22659	FormBox["\<\"1 vertex obtained.\"\>", TraditionalForm]], "Print",
22660	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22661	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22662	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22663	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22664	3.581706756597473*^9}],
22665
22666	Cell[BoxData[
22667	FormBox["\<\"Redefining classes in such a way that each particle is in a \
22668	separate FeynArts class.\"\>", TraditionalForm]], "Print",
22669	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22670	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22671	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22672	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22673	3.5817067566019735`*^9}],
22674
22675	Cell[BoxData[
22676	FormBox["\<\"See NewFeynArtsClasses[] for more information on the new \
22677	classes\"\>", TraditionalForm]], "Print",
22678	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22679	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22680	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22681	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22682	3.5817067566069736`*^9}],
22683
22684	Cell[BoxData[
22685	FormBox["\<\"Restarting Feynman rule calculation, setting FlavorExpand -> \
22686	True.\"\>", TraditionalForm]], "Print",
22687	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22688	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22689	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22690	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22691	3.5817067566109743`*^9}],
22692
22693	Cell[BoxData[
22694	FormBox[
22695	InterpretationBox[
22696	RowBox[{"\<\"Calculating Feynman rules for \"\>",
22697	"\[InvisibleSpace]", "\<\"L1\"\>"}],
22698	SequenceForm["Calculating Feynman rules for ", "L1"],
22699	Editable->False], TraditionalForm]], "Print",
22700	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22701	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22702	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22703	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22704	3.581706756614975*^9}],
22705
22706	Cell[BoxData[
22707	FormBox[
22708	InterpretationBox[
22709	RowBox[{"\<\"Starting Feynman rule calculation for \"\>",
22710	"\[InvisibleSpace]", "\<\"L1\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
22711	SequenceForm["Starting Feynman rule calculation for ", "L1", "."],
22712	Editable->False], TraditionalForm]], "Print",
22713	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22714	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22715	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22716	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22717	3.5817067567999983`*^9}],
22718
22719	Cell[BoxData[
22720	FormBox["\<\"Collecting the different structures that enter the \
22721	vertex...\"\>", TraditionalForm]], "Print",
22722	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22723	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22724	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22725	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22726	3.581706765701129*^9}],
22727
22728	Cell[BoxData[
22729	FormBox[
22730	InterpretationBox[
22731	RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"125\"\>",
22732	"\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
22733	SequenceForm["Found ", "125", " possible non zero vertices."],
22734	Editable->False], TraditionalForm]], "Print",
22735	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22736	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22737	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22738	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22739	3.581706765940159*^9}],
22740
22741	Cell[BoxData[
22742	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
22743	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22744	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22745	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22746	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22747	3.5817067659441595`*^9}],
22748
22749	Cell[BoxData[
22750	FormBox[
22751	ProgressIndicatorBox[Dynamic[PRIVATE`progress$7381]],
22752	TraditionalForm]], "Print",
22753	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22754	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22755	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22756	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22757	3.5817067659486604`*^9}],
22758
22759	Cell[BoxData[
22760	FormBox[
22761	InterpretationBox[
22762	RowBox[{"125", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
22763	SequenceForm[125, " vertices obtained."],
22764	Editable->False], TraditionalForm]], "Print",
22765	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
22766	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
22767	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
22768	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
22769	3.5817067706722603`*^9}],
22770
22771	Cell[BoxData[
22772	FormBox[
22773	RowBox[{"(", "\[NoBreak]", GridBox[{
22774	{"\<\"FFS\"\>",
22775	RowBox[{"{",
22776	RowBox[{
22777	RowBox[{"1", "\[Rule]", "1"}], ",",
22778	RowBox[{"2", "\[Rule]", "2"}], ",",
22779	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
22780	RowBox[{"{",
22781	RowBox[{
22782	FormBox[
22783	SubscriptBox[
22784	SubscriptBox["P", "\<\"-\"\>"],
22785	RowBox[{
22786	FormBox[
22787	SubscriptBox["\<\"s\"\>", "1"],
22788	TraditionalForm], ",",
22789	FormBox[
22790	SubscriptBox["\<\"s\"\>", "2"],
22791	TraditionalForm]}]],
22792	TraditionalForm], ",",
22793	FormBox[
22794	SubscriptBox[
22795	SubscriptBox["P", "\<\"+\"\>"],
22796	RowBox[{
22797	FormBox[
22798	SubscriptBox["\<\"s\"\>", "1"],
22799	TraditionalForm], ",",
22800	FormBox[
22801	SubscriptBox["\<\"s\"\>", "2"],
22802	TraditionalForm]}]],
22803	TraditionalForm]}], "}"}]},
22804	{"\<\"FFV\"\>",
22805	RowBox[{"{",
22806	RowBox[{
22807	RowBox[{"3", "\[Rule]", "1"}], ",",
22808	RowBox[{"2", "\[Rule]", "2"}], ",",
22809	RowBox[{"1", "\[Rule]", "3"}]}], "}"}],
22810	RowBox[{"{",
22811	RowBox[{
22812	FormBox[
22813	SubscriptBox[
22814	RowBox[{
22815	FormBox[
22816	SuperscriptBox["\[Gamma]",
22817	FormBox[
22818	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22819	TraditionalForm]],
22820	TraditionalForm], ".",
22821	FormBox[
22822	SubscriptBox["P", "\<\"-\"\>"],
22823	TraditionalForm]}],
22824	RowBox[{
22825	FormBox[
22826	SubscriptBox["\<\"s\"\>", "3"],
22827	TraditionalForm], ",",
22828	FormBox[
22829	SubscriptBox["\<\"s\"\>", "2"],
22830	TraditionalForm]}]],
22831	TraditionalForm], ",",
22832	FormBox[
22833	SubscriptBox[
22834	RowBox[{
22835	FormBox[
22836	SuperscriptBox["\[Gamma]",
22837	FormBox[
22838	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22839	TraditionalForm]],
22840	TraditionalForm], ".",
22841	FormBox[
22842	SubscriptBox["P", "\<\"+\"\>"],
22843	TraditionalForm]}],
22844	RowBox[{
22845	FormBox[
22846	SubscriptBox["\<\"s\"\>", "3"],
22847	TraditionalForm], ",",
22848	FormBox[
22849	SubscriptBox["\<\"s\"\>", "2"],
22850	TraditionalForm]}]],
22851	TraditionalForm]}], "}"}]},
22852	{"\<\"SSS\"\>",
22853	RowBox[{"{",
22854	RowBox[{
22855	RowBox[{"1", "\[Rule]", "1"}], ",",
22856	RowBox[{"2", "\[Rule]", "2"}], ",",
22857	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
22858	RowBox[{"{", "1", "}"}]},
22859	{"\<\"SSSS\"\>",
22860	RowBox[{"{",
22861	RowBox[{
22862	RowBox[{"1", "\[Rule]", "1"}], ",",
22863	RowBox[{"2", "\[Rule]", "2"}], ",",
22864	RowBox[{"3", "\[Rule]", "3"}], ",",
22865	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
22866	RowBox[{"{", "1", "}"}]},
22867	{"\<\"SSVV\"\>",
22868	RowBox[{"{",
22869	RowBox[{
22870	RowBox[{"1", "\[Rule]", "1"}], ",",
22871	RowBox[{"2", "\[Rule]", "2"}], ",",
22872	RowBox[{"3", "\[Rule]", "3"}], ",",
22873	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
22874	RowBox[{"{",
22875	FormBox[
22876	SubscriptBox["\[Eta]",
22877	RowBox[{
22878	FormBox[
22879	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22880	TraditionalForm], ",",
22881	FormBox[
22882	SubscriptBox["\<\"\[Mu]\"\>", "4"],
22883	TraditionalForm]}]],
22884	TraditionalForm], "}"}]},
22885	{"\<\"SVV\"\>",
22886	RowBox[{"{",
22887	RowBox[{
22888	RowBox[{"1", "\[Rule]", "1"}], ",",
22889	RowBox[{"2", "\[Rule]", "2"}], ",",
22890	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
22891	RowBox[{"{",
22892	FormBox[
22893	SubscriptBox["\[Eta]",
22894	RowBox[{
22895	FormBox[
22896	SubscriptBox["\<\"\[Mu]\"\>", "2"],
22897	TraditionalForm], ",",
22898	FormBox[
22899	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22900	TraditionalForm]}]],
22901	TraditionalForm], "}"}]},
22902	{"\<\"UUV\"\>",
22903	RowBox[{"{",
22904	RowBox[{
22905	RowBox[{"2", "\[Rule]", "1"}], ",",
22906	RowBox[{"3", "\[Rule]", "2"}], ",",
22907	RowBox[{"1", "\[Rule]", "3"}]}], "}"}],
22908	RowBox[{"{",
22909	RowBox[{
22910	FormBox[
22911	SubsuperscriptBox["\<\"p\"\>", "1",
22912	FormBox[
22913	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22914	TraditionalForm]],
22915	TraditionalForm], ",",
22916	FormBox[
22917	SubsuperscriptBox["\<\"p\"\>", "3",
22918	FormBox[
22919	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22920	TraditionalForm]],
22921	TraditionalForm]}], "}"}]},
22922	{"\<\"VVV\"\>",
22923	RowBox[{"{",
22924	RowBox[{
22925	RowBox[{"1", "\[Rule]", "1"}], ",",
22926	RowBox[{"2", "\[Rule]", "2"}], ",",
22927	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
22928	RowBox[{"{",
22929	RowBox[{
22930	RowBox[{
22931	FormBox[
22932	SubsuperscriptBox["\<\"p\"\>", "1",
22933	FormBox[
22934	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22935	TraditionalForm]],
22936	TraditionalForm], " ",
22937	FormBox[
22938	SubscriptBox["\[Eta]",
22939	RowBox[{
22940	FormBox[
22941	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22942	TraditionalForm], ",",
22943	FormBox[
22944	SubscriptBox["\<\"\[Mu]\"\>", "2"],
22945	TraditionalForm]}]],
22946	TraditionalForm]}], ",",
22947	RowBox[{
22948	FormBox[
22949	SubsuperscriptBox["\<\"p\"\>", "2",
22950	FormBox[
22951	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22952	TraditionalForm]],
22953	TraditionalForm], " ",
22954	FormBox[
22955	SubscriptBox["\[Eta]",
22956	RowBox[{
22957	FormBox[
22958	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22959	TraditionalForm], ",",
22960	FormBox[
22961	SubscriptBox["\<\"\[Mu]\"\>", "2"],
22962	TraditionalForm]}]],
22963	TraditionalForm]}], ",",
22964	RowBox[{
22965	FormBox[
22966	SubsuperscriptBox["\<\"p\"\>", "1",
22967	FormBox[
22968	SubscriptBox["\<\"\[Mu]\"\>", "2"],
22969	TraditionalForm]],
22970	TraditionalForm], " ",
22971	FormBox[
22972	SubscriptBox["\[Eta]",
22973	RowBox[{
22974	FormBox[
22975	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22976	TraditionalForm], ",",
22977	FormBox[
22978	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22979	TraditionalForm]}]],
22980	TraditionalForm]}], ",",
22981	RowBox[{
22982	FormBox[
22983	SubsuperscriptBox["\<\"p\"\>", "3",
22984	FormBox[
22985	SubscriptBox["\<\"\[Mu]\"\>", "2"],
22986	TraditionalForm]],
22987	TraditionalForm], " ",
22988	FormBox[
22989	SubscriptBox["\[Eta]",
22990	RowBox[{
22991	FormBox[
22992	SubscriptBox["\<\"\[Mu]\"\>", "1"],
22993	TraditionalForm], ",",
22994	FormBox[
22995	SubscriptBox["\<\"\[Mu]\"\>", "3"],
22996	TraditionalForm]}]],
22997	TraditionalForm]}], ",",
22998	RowBox[{
22999	FormBox[
23000	SubsuperscriptBox["\<\"p\"\>", "2",
23001	FormBox[
23002	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23003	TraditionalForm]],
23004	TraditionalForm], " ",
23005	FormBox[
23006	SubscriptBox["\[Eta]",
23007	RowBox[{
23008	FormBox[
23009	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23010	TraditionalForm], ",",
23011	FormBox[
23012	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23013	TraditionalForm]}]],
23014	TraditionalForm]}], ",",
23015	RowBox[{
23016	FormBox[
23017	SubsuperscriptBox["\<\"p\"\>", "3",
23018	FormBox[
23019	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23020	TraditionalForm]],
23021	TraditionalForm], " ",
23022	FormBox[
23023	SubscriptBox["\[Eta]",
23024	RowBox[{
23025	FormBox[
23026	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23027	TraditionalForm], ",",
23028	FormBox[
23029	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23030	TraditionalForm]}]],
23031	TraditionalForm]}]}], "}"}]},
23032	{"\<\"VVVV\"\>",
23033	RowBox[{"{",
23034	RowBox[{
23035	RowBox[{"1", "\[Rule]", "1"}], ",",
23036	RowBox[{"2", "\[Rule]", "2"}], ",",
23037	RowBox[{"3", "\[Rule]", "3"}], ",",
23038	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
23039	RowBox[{"{",
23040	RowBox[{
23041	RowBox[{
23042	FormBox[
23043	SubscriptBox["\[Eta]",
23044	RowBox[{
23045	FormBox[
23046	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23047	TraditionalForm], ",",
23048	FormBox[
23049	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23050	TraditionalForm]}]],
23051	TraditionalForm], " ",
23052	FormBox[
23053	SubscriptBox["\[Eta]",
23054	RowBox[{
23055	FormBox[
23056	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23057	TraditionalForm], ",",
23058	FormBox[
23059	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23060	TraditionalForm]}]],
23061	TraditionalForm]}], ",",
23062	RowBox[{
23063	FormBox[
23064	SubscriptBox["\[Eta]",
23065	RowBox[{
23066	FormBox[
23067	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23068	TraditionalForm], ",",
23069	FormBox[
23070	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23071	TraditionalForm]}]],
23072	TraditionalForm], " ",
23073	FormBox[
23074	SubscriptBox["\[Eta]",
23075	RowBox[{
23076	FormBox[
23077	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23078	TraditionalForm], ",",
23079	FormBox[
23080	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23081	TraditionalForm]}]],
23082	TraditionalForm]}], ",",
23083	RowBox[{
23084	FormBox[
23085	SubscriptBox["\[Eta]",
23086	RowBox[{
23087	FormBox[
23088	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23089	TraditionalForm], ",",
23090	FormBox[
23091	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23092	TraditionalForm]}]],
23093	TraditionalForm], " ",
23094	FormBox[
23095	SubscriptBox["\[Eta]",
23096	RowBox[{
23097	FormBox[
23098	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23099	TraditionalForm], ",",
23100	FormBox[
23101	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23102	TraditionalForm]}]],
23103	TraditionalForm]}]}], "}"}]}
23104	},
23105	GridBoxAlignment->{
23106	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
23107	"RowsIndexed" -> {}},
23108	GridBoxSpacings->{"Columns" -> {
23109	Offset[0.27999999999999997`], {
23110	Offset[0.7]},
23111	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
23112	Offset[0.2], {
23113	Offset[0.4]},
23114	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
23115	TraditionalForm]], "Print",
23116	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
23117	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
23118	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
23119	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
23120	3.5817067717228937`*^9}],
23121
23122	Cell[BoxData[
23123	FormBox[
23124	RowBox[{"(", "\[NoBreak]", GridBox[{
23125	{"\<\"FFS\"\>",
23126	RowBox[{"{",
23127	RowBox[{
23128	RowBox[{"1", "\[Rule]", "1"}], ",",
23129	RowBox[{"2", "\[Rule]", "2"}], ",",
23130	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
23131	RowBox[{"{",
23132	RowBox[{
23133	FormBox[
23134	SubscriptBox[
23135	SubscriptBox["P", "\<\"-\"\>"],
23136	RowBox[{
23137	FormBox[
23138	SubscriptBox["\<\"s\"\>", "1"],
23139	TraditionalForm], ",",
23140	FormBox[
23141	SubscriptBox["\<\"s\"\>", "2"],
23142	TraditionalForm]}]],
23143	TraditionalForm], ",",
23144	FormBox[
23145	SubscriptBox[
23146	SubscriptBox["P", "\<\"+\"\>"],
23147	RowBox[{
23148	FormBox[
23149	SubscriptBox["\<\"s\"\>", "1"],
23150	TraditionalForm], ",",
23151	FormBox[
23152	SubscriptBox["\<\"s\"\>", "2"],
23153	TraditionalForm]}]],
23154	TraditionalForm]}], "}"}]},
23155	{"\<\"FFV\"\>",
23156	RowBox[{"{",
23157	RowBox[{
23158	RowBox[{"3", "\[Rule]", "1"}], ",",
23159	RowBox[{"2", "\[Rule]", "2"}], ",",
23160	RowBox[{"1", "\[Rule]", "3"}]}], "}"}],
23161	RowBox[{"{",
23162	RowBox[{
23163	FormBox[
23164	SubscriptBox[
23165	RowBox[{
23166	FormBox[
23167	SuperscriptBox["\[Gamma]",
23168	FormBox[
23169	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23170	TraditionalForm]],
23171	TraditionalForm], ".",
23172	FormBox[
23173	SubscriptBox["P", "\<\"-\"\>"],
23174	TraditionalForm]}],
23175	RowBox[{
23176	FormBox[
23177	SubscriptBox["\<\"s\"\>", "3"],
23178	TraditionalForm], ",",
23179	FormBox[
23180	SubscriptBox["\<\"s\"\>", "2"],
23181	TraditionalForm]}]],
23182	TraditionalForm], ",",
23183	FormBox[
23184	SubscriptBox[
23185	RowBox[{
23186	FormBox[
23187	SuperscriptBox["\[Gamma]",
23188	FormBox[
23189	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23190	TraditionalForm]],
23191	TraditionalForm], ".",
23192	FormBox[
23193	SubscriptBox["P", "\<\"+\"\>"],
23194	TraditionalForm]}],
23195	RowBox[{
23196	FormBox[
23197	SubscriptBox["\<\"s\"\>", "3"],
23198	TraditionalForm], ",",
23199	FormBox[
23200	SubscriptBox["\<\"s\"\>", "2"],
23201	TraditionalForm]}]],
23202	TraditionalForm]}], "}"}]},
23203	{"\<\"SSS\"\>",
23204	RowBox[{"{",
23205	RowBox[{
23206	RowBox[{"1", "\[Rule]", "1"}], ",",
23207	RowBox[{"2", "\[Rule]", "2"}], ",",
23208	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
23209	RowBox[{"{", "1", "}"}]},
23210	{"\<\"SSSS\"\>",
23211	RowBox[{"{",
23212	RowBox[{
23213	RowBox[{"1", "\[Rule]", "1"}], ",",
23214	RowBox[{"2", "\[Rule]", "2"}], ",",
23215	RowBox[{"3", "\[Rule]", "3"}], ",",
23216	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
23217	RowBox[{"{", "1", "}"}]},
23218	{"\<\"SSVV\"\>",
23219	RowBox[{"{",
23220	RowBox[{
23221	RowBox[{"1", "\[Rule]", "1"}], ",",
23222	RowBox[{"2", "\[Rule]", "2"}], ",",
23223	RowBox[{"3", "\[Rule]", "3"}], ",",
23224	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
23225	RowBox[{"{",
23226	FormBox[
23227	SubscriptBox["\[Eta]",
23228	RowBox[{
23229	FormBox[
23230	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23231	TraditionalForm], ",",
23232	FormBox[
23233	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23234	TraditionalForm]}]],
23235	TraditionalForm], "}"}]},
23236	{"\<\"SVV\"\>",
23237	RowBox[{"{",
23238	RowBox[{
23239	RowBox[{"1", "\[Rule]", "1"}], ",",
23240	RowBox[{"2", "\[Rule]", "2"}], ",",
23241	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
23242	RowBox[{"{",
23243	FormBox[
23244	SubscriptBox["\[Eta]",
23245	RowBox[{
23246	FormBox[
23247	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23248	TraditionalForm], ",",
23249	FormBox[
23250	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23251	TraditionalForm]}]],
23252	TraditionalForm], "}"}]},
23253	{"\<\"UUV\"\>",
23254	RowBox[{"{",
23255	RowBox[{
23256	RowBox[{"2", "\[Rule]", "1"}], ",",
23257	RowBox[{"3", "\[Rule]", "2"}], ",",
23258	RowBox[{"1", "\[Rule]", "3"}]}], "}"}],
23259	RowBox[{"{",
23260	RowBox[{
23261	FormBox[
23262	SubsuperscriptBox["\<\"p\"\>", "1",
23263	FormBox[
23264	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23265	TraditionalForm]],
23266	TraditionalForm], ",",
23267	FormBox[
23268	SubsuperscriptBox["\<\"p\"\>", "3",
23269	FormBox[
23270	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23271	TraditionalForm]],
23272	TraditionalForm], ",",
23273	FormBox[
23274	SubsuperscriptBox["\<\"p\"\>", "2",
23275	FormBox[
23276	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23277	TraditionalForm]],
23278	TraditionalForm]}], "}"}]},
23279	{"\<\"VVV\"\>",
23280	RowBox[{"{",
23281	RowBox[{
23282	RowBox[{"1", "\[Rule]", "1"}], ",",
23283	RowBox[{"2", "\[Rule]", "2"}], ",",
23284	RowBox[{"3", "\[Rule]", "3"}]}], "}"}],
23285	RowBox[{"{",
23286	RowBox[{
23287	RowBox[{
23288	FormBox[
23289	SubsuperscriptBox["\<\"p\"\>", "1",
23290	FormBox[
23291	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23292	TraditionalForm]],
23293	TraditionalForm], " ",
23294	FormBox[
23295	SubscriptBox["\[Eta]",
23296	RowBox[{
23297	FormBox[
23298	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23299	TraditionalForm], ",",
23300	FormBox[
23301	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23302	TraditionalForm]}]],
23303	TraditionalForm]}], ",",
23304	RowBox[{
23305	FormBox[
23306	SubsuperscriptBox["\<\"p\"\>", "2",
23307	FormBox[
23308	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23309	TraditionalForm]],
23310	TraditionalForm], " ",
23311	FormBox[
23312	SubscriptBox["\[Eta]",
23313	RowBox[{
23314	FormBox[
23315	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23316	TraditionalForm], ",",
23317	FormBox[
23318	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23319	TraditionalForm]}]],
23320	TraditionalForm]}], ",",
23321	RowBox[{
23322	FormBox[
23323	SubsuperscriptBox["\<\"p\"\>", "1",
23324	FormBox[
23325	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23326	TraditionalForm]],
23327	TraditionalForm], " ",
23328	FormBox[
23329	SubscriptBox["\[Eta]",
23330	RowBox[{
23331	FormBox[
23332	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23333	TraditionalForm], ",",
23334	FormBox[
23335	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23336	TraditionalForm]}]],
23337	TraditionalForm]}], ",",
23338	RowBox[{
23339	FormBox[
23340	SubsuperscriptBox["\<\"p\"\>", "3",
23341	FormBox[
23342	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23343	TraditionalForm]],
23344	TraditionalForm], " ",
23345	FormBox[
23346	SubscriptBox["\[Eta]",
23347	RowBox[{
23348	FormBox[
23349	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23350	TraditionalForm], ",",
23351	FormBox[
23352	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23353	TraditionalForm]}]],
23354	TraditionalForm]}], ",",
23355	RowBox[{
23356	FormBox[
23357	SubsuperscriptBox["\<\"p\"\>", "2",
23358	FormBox[
23359	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23360	TraditionalForm]],
23361	TraditionalForm], " ",
23362	FormBox[
23363	SubscriptBox["\[Eta]",
23364	RowBox[{
23365	FormBox[
23366	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23367	TraditionalForm], ",",
23368	FormBox[
23369	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23370	TraditionalForm]}]],
23371	TraditionalForm]}], ",",
23372	RowBox[{
23373	FormBox[
23374	SubsuperscriptBox["\<\"p\"\>", "3",
23375	FormBox[
23376	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23377	TraditionalForm]],
23378	TraditionalForm], " ",
23379	FormBox[
23380	SubscriptBox["\[Eta]",
23381	RowBox[{
23382	FormBox[
23383	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23384	TraditionalForm], ",",
23385	FormBox[
23386	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23387	TraditionalForm]}]],
23388	TraditionalForm]}]}], "}"}]},
23389	{"\<\"VVVV\"\>",
23390	RowBox[{"{",
23391	RowBox[{
23392	RowBox[{"1", "\[Rule]", "1"}], ",",
23393	RowBox[{"2", "\[Rule]", "2"}], ",",
23394	RowBox[{"3", "\[Rule]", "3"}], ",",
23395	RowBox[{"4", "\[Rule]", "4"}]}], "}"}],
23396	RowBox[{"{",
23397	RowBox[{
23398	RowBox[{
23399	FormBox[
23400	SubscriptBox["\[Eta]",
23401	RowBox[{
23402	FormBox[
23403	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23404	TraditionalForm], ",",
23405	FormBox[
23406	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23407	TraditionalForm]}]],
23408	TraditionalForm], " ",
23409	FormBox[
23410	SubscriptBox["\[Eta]",
23411	RowBox[{
23412	FormBox[
23413	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23414	TraditionalForm], ",",
23415	FormBox[
23416	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23417	TraditionalForm]}]],
23418	TraditionalForm]}], ",",
23419	RowBox[{
23420	FormBox[
23421	SubscriptBox["\[Eta]",
23422	RowBox[{
23423	FormBox[
23424	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23425	TraditionalForm], ",",
23426	FormBox[
23427	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23428	TraditionalForm]}]],
23429	TraditionalForm], " ",
23430	FormBox[
23431	SubscriptBox["\[Eta]",
23432	RowBox[{
23433	FormBox[
23434	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23435	TraditionalForm], ",",
23436	FormBox[
23437	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23438	TraditionalForm]}]],
23439	TraditionalForm]}], ",",
23440	RowBox[{
23441	FormBox[
23442	SubscriptBox["\[Eta]",
23443	RowBox[{
23444	FormBox[
23445	SubscriptBox["\<\"\[Mu]\"\>", "1"],
23446	TraditionalForm], ",",
23447	FormBox[
23448	SubscriptBox["\<\"\[Mu]\"\>", "2"],
23449	TraditionalForm]}]],
23450	TraditionalForm], " ",
23451	FormBox[
23452	SubscriptBox["\[Eta]",
23453	RowBox[{
23454	FormBox[
23455	SubscriptBox["\<\"\[Mu]\"\>", "3"],
23456	TraditionalForm], ",",
23457	FormBox[
23458	SubscriptBox["\<\"\[Mu]\"\>", "4"],
23459	TraditionalForm]}]],
23460	TraditionalForm]}]}], "}"}]}
23461	},
23462	GridBoxAlignment->{
23463	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
23464	"RowsIndexed" -> {}},
23465	GridBoxSpacings->{"Columns" -> {
23466	Offset[0.27999999999999997`], {
23467	Offset[0.7]},
23468	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
23469	Offset[0.2], {
23470	Offset[0.4]},
23471	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
23472	TraditionalForm]], "Print",
23473	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
23474	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
23475	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
23476	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
23477	3.5817067717673993`*^9}],
23478
23479	Cell[BoxData[
23480	FormBox[
23481	InterpretationBox[
23482	RowBox[{"\<\"Writing FeynArts model file into directory \"\>",
23483	"\[InvisibleSpace]", "\<\"VLQ_FA\"\>"}],
23484	SequenceForm["Writing FeynArts model file into directory ", "VLQ_FA"],
23485	Editable->False], TraditionalForm]], "Print",
23486	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
23487	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
23488	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
23489	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
23490	3.5817067726780148`*^9}],
23491
23492	Cell[BoxData[
23493	FormBox[
23494	InterpretationBox[
23495	RowBox[{"\<\"Writing FeynArts generic file on \"\>",
23496	"\[InvisibleSpace]", "\<\"VLQ_FA.gen\"\>",
23497	"\[InvisibleSpace]", "\<\".\"\>"}],
23498	SequenceForm["Writing FeynArts generic file on ", "VLQ_FA.gen", "."],
23499	Editable->False], TraditionalForm]], "Print",
23500	CellChangeTimes->{3.574507550744138^9, 3.574507649227111^9,
23501	3.57450842217951^9, 3.574764376235375^9, 3.5747648968341513`*^9,
23502	3.5750866345365667`^9, 3.5750921299453955`^9, 3.575181267842885*^9,
23503	3.5751848882909336`^9, 3.5751892827569847`^9, 3.575189568062214*^9,
23504	3.581706772853037*^9}]
23505	}, Open ]]
23506	}, Open ]],
23507
23508	Cell[CellGroupData[{
23509
23510	Cell[BoxData[
23511	RowBox[{"NewFeynArtsClasses", "[", "]"}]], "Input",
23512	CellChangeTimes->{{3.575092157608408^9, 3.5750921634096446`^9}},
23513	FontSize->8],
23514
23515	Cell[BoxData[
23516	FormBox[
23517	RowBox[{"{",
23518	RowBox[{
23519	RowBox[{"ve", "\[Rule]",
23520	RowBox[{"F", "(", "1", ")"}]}], ",",
23521	RowBox[{"vm", "\[Rule]",
23522	RowBox[{"F", "(", "2", ")"}]}], ",",
23523	RowBox[{"vt", "\[Rule]",
23524	RowBox[{"F", "(", "3", ")"}]}], ",",
23525	RowBox[{"e", "\[Rule]",
23526	RowBox[{"F", "(", "4", ")"}]}], ",",
23527	RowBox[{"m", "\[Rule]",
23528	RowBox[{"F", "(", "5", ")"}]}], ",",
23529	RowBox[{"tt", "\[Rule]",
23530	RowBox[{"F", "(", "6", ")"}]}], ",",
23531	RowBox[{"u", "\[Rule]",
23532	RowBox[{"F", "(", "7", ")"}]}], ",",
23533	RowBox[{"c", "\[Rule]",
23534	RowBox[{"F", "(", "8", ")"}]}], ",",
23535	RowBox[{"t", "\[Rule]",
23536	RowBox[{"F", "(", "9", ")"}]}], ",",
23537	RowBox[{"d", "\[Rule]",
23538	RowBox[{"F", "(", "10", ")"}]}], ",",
23539	RowBox[{"s", "\[Rule]",
23540	RowBox[{"F", "(", "11", ")"}]}], ",",
23541	RowBox[{"b", "\[Rule]",
23542	RowBox[{"F", "(", "12", ")"}]}], ",",
23543	RowBox[{"x", "\[Rule]",
23544	RowBox[{"F", "(", "13", ")"}]}], ",",
23545	RowBox[{"tp", "\[Rule]",
23546	RowBox[{"F", "(", "14", ")"}]}], ",",
23547	RowBox[{"bp", "\[Rule]",
23548	RowBox[{"F", "(", "15", ")"}]}], ",",
23549	RowBox[{"y", "\[Rule]",
23550	RowBox[{"F", "(", "16", ")"}]}], ",",
23551	RowBox[{"ghA", "\[Rule]",
23552	RowBox[{"U", "(", "1", ")"}]}], ",",
23553	RowBox[{"ghZ", "\[Rule]",
23554	RowBox[{"U", "(", "2", ")"}]}], ",",
23555	RowBox[{"ghWp", "\[Rule]",
23556	RowBox[{"U", "(", "3", ")"}]}], ",",
23557	RowBox[{"ghWm", "\[Rule]",
23558	RowBox[{"U", "(", "4", ")"}]}], ",",
23559	RowBox[{"ghG", "\[Rule]",
23560	RowBox[{"U", "(", "5", ")"}]}], ",",
23561	RowBox[{"A", "\[Rule]",
23562	RowBox[{"V", "(", "1", ")"}]}], ",",
23563	RowBox[{"Z", "\[Rule]",
23564	RowBox[{"V", "(", "2", ")"}]}], ",",
23565	RowBox[{"W", "\[Rule]",
23566	RowBox[{"V", "(", "3", ")"}]}], ",",
23567	RowBox[{"G", "\[Rule]",
23568	RowBox[{"V", "(", "4", ")"}]}], ",",
23569	RowBox[{"H", "\[Rule]",
23570	RowBox[{"S", "(", "1", ")"}]}], ",",
23571	RowBox[{"phi", "\[Rule]",
23572	RowBox[{"S", "(", "2", ")"}]}], ",",
23573	RowBox[{"phi2", "\[Rule]",
23574	RowBox[{"S", "(", "3", ")"}]}]}], "}"}], TraditionalForm]], "Output",
23575	CellChangeTimes->{3.5750921639157085`^9, 3.57518129355215^9,
23576	3.575184912537513^9, 3.5751893072055893`^9, 3.5751895925018177`*^9}]
23577	}, Open ]],
23578
23579	Cell["FeynArts also supports the Feynman gauge", "Text",
23580	CellChangeTimes->{{3.4121854851672792`^9, 3.412185494183435^9}},
23581	FontSize->9],
23582
23583	Cell[BoxData[
23584	RowBox[{"(*", "\[IndentingNewLine]",
23585	RowBox[{
23586	RowBox[{"FeynmanGauge", " ", "=", " ", "True"}], ";",
23587	"\[IndentingNewLine]",
23588	RowBox[{"WriteFeynArtsOutput", "[",
23589	RowBox[{
23590	"LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
23591	",",
23592	RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",",
23593	RowBox[{"Output", "\[Rule]", "\"\<SM.mod\>\""}]}], "]"}]}],
23594	"\[IndentingNewLine]", "*)"}]], "Input",
23595	CellChangeTimes->{{3.411911018354619^9, 3.4119110196967573`^9}, {
23596	3.412185470680571^9, 3.412185506240796^9}, {3.4234161971513453`*^9,
23597	3.423416209716672^9}, {3.574507563816961^9, 3.574507568637369*^9}},
23598	FontSize->9]
23599	}, Open ]]
23600	}, Open ]]
23601	},
23602	WindowSize->{667, 690},
23603	WindowMargins->{{Automatic, 0}, {Automatic, 0}},
23604	ShowSelection->True,
23605	Magnification->1.5,
23606	FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)",
23607	StyleDefinitions->"Default.nb"
23608	]
23609	(* End of Notebook Content *)
23610
23611	(* Internal cache information *)
23612	(*CellTagsOutline
23613	CellTagsIndex->{}
23614	*)
23615	(*CellTagsIndex
23616	CellTagsIndex->{}
23617	*)
23618	(*NotebookFileOutline
23619	Notebook[{
23620	Cell[CellGroupData[{
23621	Cell[567, 22, 192, 4, 86, "Section"],
23622	Cell[CellGroupData[{
23623	Cell[784, 30, 215, 4, 46, "Subsection"],
23624	Cell[CellGroupData[{
23625	Cell[1024, 38, 2333, 39, 109, "Input"],
23626	Cell[3360, 79, 1077, 17, 36, "Output"],
23627	Cell[CellGroupData[{
23628	Cell[4462, 100, 806, 12, 26, "Print"],
23629	Cell[5271, 114, 835, 13, 26, "Print"],
23630	Cell[6109, 129, 792, 12, 26, "Print"],
23631	Cell[6904, 143, 862, 13, 26, "Print"],
23632	Cell[7769, 158, 822, 13, 26, "Print"],
23633	Cell[8594, 173, 792, 12, 26, "Print"],
23634	Cell[9389, 187, 857, 13, 26, "Print"]
23635	}, Open ]]
23636	}, Open ]]
23637	}, Open ]],
23638	Cell[CellGroupData[{
23639	Cell[10307, 207, 347, 7, 46, "Subsection"],
23640	Cell[CellGroupData[{
23641	Cell[10679, 218, 1154, 28, 179, "Input"],
23642	Cell[CellGroupData[{
23643	Cell[11858, 250, 613, 10, 26, "Print"],
23644	Cell[12474, 262, 586, 9, 26, "Print"],
23645	Cell[13063, 273, 586, 9, 26, "Print"],
23646	Cell[13652, 284, 582, 9, 26, "Print"],
23647	Cell[14237, 295, 583, 9, 26, "Print"],
23648	Cell[14823, 306, 727, 13, 26, "Print"],
23649	Cell[15553, 321, 620, 10, 26, "Print"],
23650	Cell[16176, 333, 571, 9, 26, "Print"],
23651	Cell[16750, 344, 605, 10, 26, "Print"],
23652	Cell[17358, 356, 607, 10, 26, "Print"],
23653	Cell[17968, 368, 604, 10, 26, "Print"],
23654	Cell[18575, 380, 768, 14, 45, "Print"],
23655	Cell[19346, 396, 1073, 19, 26, "Print"],
23656	Cell[20422, 417, 593, 9, 26, "Print"],
23657	Cell[21018, 428, 717, 13, 26, "Print"],
23658	Cell[21738, 443, 725, 13, 26, "Print"],
23659	Cell[22466, 458, 723, 13, 26, "Print"],
23660	Cell[23192, 473, 580, 9, 26, "Print"],
23661	Cell[23775, 484, 589, 9, 26, "Print"],
23662	Cell[24367, 495, 589, 9, 26, "Print"],
23663	Cell[24959, 506, 585, 9, 26, "Print"],
23664	Cell[25547, 517, 586, 9, 26, "Print"],
23665	Cell[26136, 528, 587, 9, 26, "Print"],
23666	Cell[26726, 539, 615, 10, 26, "Print"],
23667	Cell[27344, 551, 610, 10, 26, "Print"],
23668	Cell[27957, 563, 637, 10, 26, "Print"],
23669	Cell[28597, 575, 579, 9, 26, "Print"],
23670	Cell[29179, 586, 610, 10, 26, "Print"],
23671	Cell[29792, 598, 604, 10, 26, "Print"],
23672	Cell[30399, 610, 598, 9, 26, "Print"],
23673	Cell[31000, 621, 597, 9, 26, "Print"]
23674	}, Open ]]
23675	}, Open ]]
23676	}, Open ]],
23677	Cell[CellGroupData[{
23678	Cell[31658, 637, 267, 6, 46, "Subsection"],
23679	Cell[CellGroupData[{
23680	Cell[31950, 647, 82, 2, 36, "Input"],
23681	Cell[CellGroupData[{
23682	Cell[32057, 653, 610, 10, 26, "Print"],
23683	Cell[32670, 665, 633, 10, 26, "Print"],
23684	Cell[33306, 677, 801, 14, 26, "Print"],
23685	Cell[34110, 693, 602, 9, 26, "Print"],
23686	Cell[34715, 704, 620, 11, 38, "Print"],
23687	Cell[35338, 717, 719, 13, 26, "Print"],
23688	Cell[36060, 732, 646, 10, 26, "Print"],
23689	Cell[36709, 744, 691, 13, 26, "Print"],
23690	Cell[37403, 759, 881, 15, 26, "Print"],
23691	Cell[38287, 776, 882, 15, 26, "Print"],
23692	Cell[39172, 793, 957, 18, 33, "Print"],
23693	Cell[40132, 813, 578, 9, 26, "Print"],
23694	Cell[40713, 824, 1275, 37, 46, "Print"],
23695	Cell[41991, 863, 644, 10, 26, "Print"],
23696	Cell[42638, 875, 693, 13, 26, "Print"],
23697	Cell[43334, 890, 884, 15, 26, "Print"],
23698	Cell[44221, 907, 884, 15, 26, "Print"],
23699	Cell[45108, 924, 955, 18, 32, "Print"],
23700	Cell[46066, 944, 580, 9, 26, "Print"],
23701	Cell[46649, 955, 1253, 36, 46, "Print"],
23702	Cell[47905, 993, 646, 10, 26, "Print"],
23703	Cell[48554, 1005, 691, 13, 26, "Print"],
23704	Cell[49248, 1020, 884, 15, 26, "Print"],
23705	Cell[50135, 1037, 877, 15, 26, "Print"],
23706	Cell[51015, 1054, 955, 18, 30, "Print"],
23707	Cell[51973, 1074, 578, 9, 26, "Print"],
23708	Cell[52554, 1085, 1255, 36, 46, "Print"],
23709	Cell[53812, 1123, 644, 10, 26, "Print"],
23710	Cell[54459, 1135, 693, 13, 26, "Print"],
23711	Cell[55155, 1150, 882, 15, 26, "Print"],
23712	Cell[56040, 1167, 879, 15, 26, "Print"],
23713	Cell[56922, 1184, 955, 18, 30, "Print"],
23714	Cell[57880, 1204, 577, 9, 26, "Print"],
23715	Cell[58460, 1215, 1273, 37, 46, "Print"],
23716	Cell[59736, 1254, 644, 10, 26, "Print"],
23717	Cell[60383, 1266, 691, 13, 26, "Print"],
23718	Cell[61077, 1281, 955, 18, 33, "Print"],
23719	Cell[62035, 1301, 882, 15, 26, "Print"],
23720	Cell[62920, 1318, 881, 15, 26, "Print"],
23721	Cell[63804, 1335, 580, 9, 26, "Print"],
23722	Cell[64387, 1346, 1943, 57, 49, "Print"],
23723	Cell[66333, 1405, 646, 10, 26, "Print"],
23724	Cell[66982, 1417, 691, 13, 26, "Print"],
23725	Cell[67676, 1432, 877, 15, 26, "Print"],
23726	Cell[68556, 1449, 957, 18, 33, "Print"],
23727	Cell[69516, 1469, 879, 15, 26, "Print"],
23728	Cell[70398, 1486, 578, 9, 26, "Print"],
23729	Cell[70979, 1497, 1941, 57, 49, "Print"],
23730	Cell[72923, 1556, 646, 10, 26, "Print"],
23731	Cell[73572, 1568, 693, 13, 26, "Print"],
23732	Cell[74268, 1583, 957, 18, 33, "Print"],
23733	Cell[75228, 1603, 879, 15, 26, "Print"],
23734	Cell[76110, 1620, 881, 15, 26, "Print"],
23735	Cell[76994, 1637, 580, 9, 26, "Print"],
23736	Cell[77577, 1648, 1943, 57, 49, "Print"],
23737	Cell[79523, 1707, 644, 10, 26, "Print"],
23738	Cell[80170, 1719, 691, 13, 26, "Print"],
23739	Cell[80864, 1734, 957, 18, 33, "Print"],
23740	Cell[81824, 1754, 879, 15, 26, "Print"],
23741	Cell[82706, 1771, 877, 15, 26, "Print"],
23742	Cell[83586, 1788, 577, 9, 26, "Print"],
23743	Cell[84166, 1799, 1941, 57, 49, "Print"],
23744	Cell[86110, 1858, 644, 10, 26, "Print"],
23745	Cell[86757, 1870, 693, 13, 26, "Print"],
23746	Cell[87453, 1885, 953, 18, 30, "Print"],
23747	Cell[88409, 1905, 881, 15, 26, "Print"],
23748	Cell[89293, 1922, 884, 15, 26, "Print"],
23749	Cell[90180, 1939, 578, 9, 26, "Print"],
23750	Cell[90761, 1950, 1939, 57, 49, "Print"],
23751	Cell[92703, 2009, 644, 10, 26, "Print"],
23752	Cell[93350, 2021, 695, 13, 26, "Print"],
23753	Cell[94048, 2036, 884, 15, 26, "Print"],
23754	Cell[94935, 2053, 955, 18, 33, "Print"],
23755	Cell[95893, 2073, 881, 15, 26, "Print"],
23756	Cell[96777, 2090, 580, 9, 26, "Print"],
23757	Cell[97360, 2101, 1941, 57, 49, "Print"],
23758	Cell[99304, 2160, 646, 10, 26, "Print"],
23759	Cell[99953, 2172, 695, 13, 26, "Print"],
23760	Cell[100651, 2187, 882, 15, 26, "Print"],
23761	Cell[101536, 2204, 881, 15, 26, "Print"],
23762	Cell[102420, 2221, 955, 18, 30, "Print"],
23763	Cell[103378, 2241, 578, 9, 26, "Print"],
23764	Cell[103959, 2252, 1941, 57, 49, "Print"],
23765	Cell[105903, 2311, 644, 10, 26, "Print"],
23766	Cell[106550, 2323, 693, 13, 26, "Print"],
23767	Cell[107246, 2338, 879, 15, 26, "Print"],
23768	Cell[108128, 2355, 953, 18, 31, "Print"],
23769	Cell[109084, 2375, 882, 15, 26, "Print"],
23770	Cell[109969, 2392, 577, 9, 26, "Print"],
23771	Cell[110549, 2403, 1943, 57, 49, "Print"],
23772	Cell[112495, 2462, 644, 10, 26, "Print"],
23773	Cell[113142, 2474, 695, 13, 26, "Print"],
23774	Cell[113840, 2489, 879, 15, 26, "Print"],
23775	Cell[114722, 2506, 881, 15, 26, "Print"],
23776	Cell[115606, 2523, 957, 18, 32, "Print"],
23777	Cell[116566, 2543, 578, 9, 26, "Print"],
23778	Cell[117147, 2554, 1941, 57, 49, "Print"],
23779	Cell[119091, 2613, 644, 10, 26, "Print"],
23780	Cell[119738, 2625, 693, 13, 26, "Print"],
23781	Cell[120434, 2640, 881, 15, 26, "Print"],
23782	Cell[121318, 2657, 877, 15, 26, "Print"],
23783	Cell[122198, 2674, 957, 18, 32, "Print"],
23784	Cell[123158, 2694, 577, 9, 26, "Print"],
23785	Cell[123738, 2705, 1943, 57, 49, "Print"],
23786	Cell[125684, 2764, 646, 10, 26, "Print"],
23787	Cell[126333, 2776, 695, 13, 26, "Print"],
23788	Cell[127031, 2791, 879, 15, 26, "Print"],
23789	Cell[127913, 2808, 955, 18, 32, "Print"],
23790	Cell[128871, 2828, 877, 15, 26, "Print"],
23791	Cell[129751, 2845, 578, 9, 26, "Print"],
23792	Cell[130332, 2856, 1941, 57, 49, "Print"],
23793	Cell[132276, 2915, 644, 10, 26, "Print"],
23794	Cell[132923, 2927, 693, 13, 26, "Print"],
23795	Cell[133619, 2942, 881, 15, 26, "Print"],
23796	Cell[134503, 2959, 884, 15, 26, "Print"],
23797	Cell[135390, 2976, 955, 18, 30, "Print"],
23798	Cell[136348, 2996, 577, 9, 26, "Print"],
23799	Cell[136928, 3007, 1940, 57, 49, "Print"],
23800	Cell[138871, 3066, 644, 10, 26, "Print"],
23801	Cell[139518, 3078, 695, 13, 26, "Print"],
23802	Cell[140216, 3093, 882, 15, 26, "Print"],
23803	Cell[141101, 3110, 955, 18, 33, "Print"],
23804	Cell[142059, 3130, 879, 15, 26, "Print"],
23805	Cell[142941, 3147, 580, 9, 26, "Print"],
23806	Cell[143524, 3158, 1320, 39, 38, "Print"],
23807	Cell[144847, 3199, 646, 10, 26, "Print"],
23808	Cell[145496, 3211, 693, 13, 26, "Print"],
23809	Cell[146192, 3226, 881, 15, 26, "Print"],
23810	Cell[147076, 3243, 882, 15, 26, "Print"],
23811	Cell[147961, 3260, 955, 18, 32, "Print"],
23812	Cell[148919, 3280, 580, 9, 26, "Print"],
23813	Cell[149502, 3291, 1322, 39, 38, "Print"],
23814	Cell[150827, 3332, 644, 10, 26, "Print"],
23815	Cell[151474, 3344, 695, 13, 26, "Print"],
23816	Cell[152172, 3359, 879, 15, 26, "Print"],
23817	Cell[153054, 3376, 879, 15, 26, "Print"],
23818	Cell[153936, 3393, 955, 18, 30, "Print"],
23819	Cell[154894, 3413, 580, 9, 26, "Print"],
23820	Cell[155477, 3424, 1320, 39, 38, "Print"],
23821	Cell[156800, 3465, 646, 10, 26, "Print"],
23822	Cell[157449, 3477, 693, 13, 26, "Print"],
23823	Cell[158145, 3492, 879, 15, 26, "Print"],
23824	Cell[159027, 3509, 877, 15, 26, "Print"],
23825	Cell[159907, 3526, 955, 18, 30, "Print"],
23826	Cell[160865, 3546, 577, 9, 26, "Print"],
23827	Cell[161445, 3557, 1320, 39, 38, "Print"],
23828	Cell[162768, 3598, 644, 10, 26, "Print"],
23829	Cell[163415, 3610, 695, 13, 26, "Print"],
23830	Cell[164113, 3625, 877, 15, 26, "Print"],
23831	Cell[164993, 3642, 957, 18, 32, "Print"],
23832	Cell[165953, 3662, 881, 15, 26, "Print"],
23833	Cell[166837, 3679, 580, 9, 26, "Print"],
23834	Cell[167420, 3690, 2265, 72, 34, "Print"],
23835	Cell[169688, 3764, 644, 10, 26, "Print"],
23836	Cell[170335, 3776, 695, 13, 26, "Print"],
23837	Cell[171033, 3791, 879, 15, 26, "Print"],
23838	Cell[171915, 3808, 955, 18, 32, "Print"],
23839	Cell[172873, 3828, 879, 15, 26, "Print"],
23840	Cell[173755, 3845, 578, 9, 26, "Print"],
23841	Cell[174336, 3856, 2265, 72, 34, "Print"],
23842	Cell[176604, 3930, 644, 10, 26, "Print"],
23843	Cell[177251, 3942, 693, 13, 26, "Print"],
23844	Cell[177947, 3957, 877, 15, 26, "Print"],
23845	Cell[178827, 3974, 957, 18, 32, "Print"],
23846	Cell[179787, 3994, 881, 15, 26, "Print"],
23847	Cell[180671, 4011, 578, 9, 26, "Print"],
23848	Cell[181252, 4022, 2262, 72, 34, "Print"],
23849	Cell[183517, 4096, 644, 10, 26, "Print"],
23850	Cell[184164, 4108, 695, 13, 26, "Print"],
23851	Cell[184862, 4123, 882, 15, 26, "Print"],
23852	Cell[185747, 4140, 955, 18, 30, "Print"],
23853	Cell[186705, 4160, 879, 15, 26, "Print"],
23854	Cell[187587, 4177, 580, 9, 26, "Print"],
23855	Cell[188170, 4188, 2265, 72, 34, "Print"],
23856	Cell[190438, 4262, 646, 10, 26, "Print"],
23857	Cell[191087, 4274, 693, 13, 26, "Print"],
23858	Cell[191783, 4289, 879, 15, 26, "Print"],
23859	Cell[192665, 4306, 879, 15, 26, "Print"],
23860	Cell[193547, 4323, 955, 18, 30, "Print"],
23861	Cell[194505, 4343, 577, 9, 26, "Print"],
23862	Cell[195085, 4354, 2263, 72, 34, "Print"],
23863	Cell[197351, 4428, 646, 10, 26, "Print"],
23864	Cell[198000, 4440, 695, 13, 26, "Print"],
23865	Cell[198698, 4455, 879, 15, 26, "Print"],
23866	Cell[199580, 4472, 879, 15, 26, "Print"],
23867	Cell[200462, 4489, 955, 18, 30, "Print"],
23868	Cell[201420, 4509, 580, 9, 26, "Print"],
23869	Cell[202003, 4520, 2263, 72, 34, "Print"],
23870	Cell[204269, 4594, 646, 10, 26, "Print"],
23871	Cell[204918, 4606, 695, 13, 26, "Print"],
23872	Cell[205616, 4621, 877, 15, 26, "Print"],
23873	Cell[206496, 4638, 878, 15, 26, "Print"],
23874	Cell[207377, 4655, 955, 18, 30, "Print"],
23875	Cell[208335, 4675, 580, 9, 26, "Print"],
23876	Cell[208918, 4686, 2261, 72, 34, "Print"],
23877	Cell[211182, 4760, 646, 10, 26, "Print"],
23878	Cell[211831, 4772, 695, 13, 26, "Print"],
23879	Cell[212529, 4787, 953, 18, 33, "Print"],
23880	Cell[213485, 4807, 884, 15, 26, "Print"],
23881	Cell[214372, 4824, 956, 18, 29, "Print"],
23882	Cell[215331, 4844, 578, 9, 26, "Print"],
23883	Cell[215912, 4855, 2263, 72, 34, "Print"],
23884	Cell[218178, 4929, 646, 10, 26, "Print"],
23885	Cell[218827, 4941, 693, 13, 26, "Print"],
23886	Cell[219523, 4956, 957, 18, 33, "Print"],
23887	Cell[220483, 4976, 879, 15, 26, "Print"],
23888	Cell[221365, 4993, 958, 18, 29, "Print"],
23889	Cell[222326, 5013, 578, 9, 26, "Print"],
23890	Cell[222907, 5024, 2263, 72, 34, "Print"],
23891	Cell[225173, 5098, 646, 10, 26, "Print"],
23892	Cell[225822, 5110, 693, 13, 26, "Print"],
23893	Cell[226518, 5125, 955, 18, 33, "Print"],
23894	Cell[227476, 5145, 877, 15, 26, "Print"],
23895	Cell[228356, 5162, 958, 18, 29, "Print"],
23896	Cell[229317, 5182, 580, 9, 26, "Print"],
23897	Cell[229900, 5193, 2265, 72, 34, "Print"],
23898	Cell[232168, 5267, 644, 10, 26, "Print"],
23899	Cell[232815, 5279, 695, 13, 26, "Print"],
23900	Cell[233513, 5294, 957, 18, 33, "Print"],
23901	Cell[234473, 5314, 877, 15, 26, "Print"],
23902	Cell[235353, 5331, 958, 18, 29, "Print"],
23903	Cell[236314, 5351, 580, 9, 26, "Print"],
23904	Cell[236897, 5362, 2263, 72, 34, "Print"],
23905	Cell[239163, 5436, 644, 10, 26, "Print"],
23906	Cell[239810, 5448, 693, 13, 26, "Print"],
23907	Cell[240506, 5463, 953, 18, 30, "Print"],
23908	Cell[241462, 5483, 956, 18, 29, "Print"],
23909	Cell[242421, 5503, 879, 15, 26, "Print"],
23910	Cell[243303, 5520, 580, 9, 26, "Print"],
23911	Cell[243886, 5531, 2261, 72, 34, "Print"],
23912	Cell[246150, 5605, 646, 10, 26, "Print"],
23913	Cell[246799, 5617, 695, 13, 26, "Print"],
23914	Cell[247497, 5632, 955, 18, 33, "Print"],
23915	Cell[248455, 5652, 882, 15, 26, "Print"],
23916	Cell[249340, 5669, 958, 18, 29, "Print"],
23917	Cell[250301, 5689, 578, 9, 26, "Print"],
23918	Cell[250882, 5700, 2265, 72, 34, "Print"],
23919	Cell[253150, 5774, 646, 10, 26, "Print"],
23920	Cell[253799, 5786, 695, 13, 26, "Print"],
23921	Cell[254497, 5801, 953, 18, 30, "Print"],
23922	Cell[255453, 5821, 882, 15, 26, "Print"],
23923	Cell[256338, 5838, 956, 18, 29, "Print"],
23924	Cell[257297, 5858, 580, 9, 26, "Print"],
23925	Cell[257880, 5869, 2263, 72, 34, "Print"],
23926	Cell[260146, 5943, 646, 10, 26, "Print"],
23927	Cell[260795, 5955, 692, 13, 26, "Print"],
23928	Cell[261490, 5970, 953, 18, 31, "Print"],
23929	Cell[262446, 5990, 956, 18, 29, "Print"],
23930	Cell[263405, 6010, 879, 15, 26, "Print"],
23931	Cell[264287, 6027, 578, 9, 26, "Print"],
23932	Cell[264868, 6038, 2261, 72, 34, "Print"],
23933	Cell[267132, 6112, 644, 10, 26, "Print"],
23934	Cell[267779, 6124, 695, 13, 26, "Print"],
23935	Cell[268477, 6139, 955, 18, 30, "Print"],
23936	Cell[269435, 6159, 958, 18, 29, "Print"],
23937	Cell[270396, 6179, 877, 15, 26, "Print"],
23938	Cell[271276, 6196, 580, 9, 26, "Print"],
23939	Cell[271859, 6207, 2263, 72, 34, "Print"],
23940	Cell[274125, 6281, 646, 10, 26, "Print"],
23941	Cell[274774, 6293, 695, 13, 26, "Print"],
23942	Cell[275472, 6308, 879, 15, 26, "Print"],
23943	Cell[276354, 6325, 958, 18, 29, "Print"],
23944	Cell[277315, 6345, 955, 18, 30, "Print"],
23945	Cell[278273, 6365, 578, 9, 26, "Print"],
23946	Cell[278854, 6376, 2263, 72, 34, "Print"],
23947	Cell[281120, 6450, 644, 10, 26, "Print"],
23948	Cell[281767, 6462, 695, 13, 26, "Print"],
23949	Cell[282465, 6477, 879, 15, 26, "Print"],
23950	Cell[283347, 6494, 956, 18, 29, "Print"],
23951	Cell[284306, 6514, 955, 18, 30, "Print"],
23952	Cell[285264, 6534, 580, 9, 26, "Print"],
23953	Cell[285847, 6545, 2263, 72, 34, "Print"],
23954	Cell[288113, 6619, 644, 10, 26, "Print"],
23955	Cell[288760, 6631, 695, 13, 26, "Print"],
23956	Cell[289458, 6646, 877, 15, 26, "Print"],
23957	Cell[290338, 6663, 956, 18, 29, "Print"],
23958	Cell[291297, 6683, 955, 18, 30, "Print"],
23959	Cell[292255, 6703, 580, 9, 26, "Print"],
23960	Cell[292838, 6714, 2263, 72, 34, "Print"],
23961	Cell[295104, 6788, 646, 10, 26, "Print"],
23962	Cell[295753, 6800, 693, 13, 26, "Print"],
23963	Cell[296449, 6815, 953, 18, 33, "Print"],
23964	Cell[297405, 6835, 884, 15, 26, "Print"],
23965	Cell[298292, 6852, 884, 15, 26, "Print"],
23966	Cell[299179, 6869, 580, 9, 26, "Print"],
23967	Cell[299762, 6880, 2263, 72, 34, "Print"],
23968	Cell[302028, 6954, 646, 10, 26, "Print"],
23969	Cell[302677, 6966, 695, 13, 26, "Print"],
23970	Cell[303375, 6981, 877, 15, 26, "Print"],
23971	Cell[304255, 6998, 957, 18, 33, "Print"],
23972	Cell[305215, 7018, 884, 15, 26, "Print"],
23973	Cell[306102, 7035, 580, 9, 26, "Print"],
23974	Cell[306685, 7046, 2265, 72, 34, "Print"],
23975	Cell[308953, 7120, 644, 10, 26, "Print"],
23976	Cell[309600, 7132, 693, 13, 26, "Print"],
23977	Cell[310296, 7147, 957, 18, 33, "Print"],
23978	Cell[311256, 7167, 879, 15, 26, "Print"],
23979	Cell[312138, 7184, 882, 15, 26, "Print"],
23980	Cell[313023, 7201, 580, 9, 26, "Print"],
23981	Cell[313606, 7212, 2263, 72, 34, "Print"],
23982	Cell[315872, 7286, 646, 10, 26, "Print"],
23983	Cell[316521, 7298, 695, 13, 26, "Print"],
23984	Cell[317219, 7313, 957, 18, 33, "Print"],
23985	Cell[318179, 7333, 876, 15, 26, "Print"],
23986	Cell[319058, 7350, 882, 15, 26, "Print"],
23987	Cell[319943, 7367, 580, 9, 26, "Print"],
23988	Cell[320526, 7378, 2265, 72, 34, "Print"],
23989	Cell[322794, 7452, 644, 10, 26, "Print"],
23990	Cell[323441, 7464, 695, 13, 26, "Print"],
23991	Cell[324139, 7479, 953, 18, 30, "Print"],
23992	Cell[325095, 7499, 884, 15, 26, "Print"],
23993	Cell[325982, 7516, 884, 15, 26, "Print"],
23994	Cell[326869, 7533, 580, 9, 26, "Print"],
23995	Cell[327452, 7544, 2265, 72, 34, "Print"],
23996	Cell[329720, 7618, 646, 10, 26, "Print"],
23997	Cell[330369, 7630, 695, 13, 26, "Print"],
23998	Cell[331067, 7645, 884, 15, 26, "Print"],
23999	Cell[331954, 7662, 953, 18, 33, "Print"],
24000	Cell[332910, 7682, 884, 15, 26, "Print"],
24001	Cell[333797, 7699, 578, 9, 26, "Print"],
24002	Cell[334378, 7710, 2265, 72, 34, "Print"],
24003	Cell[336646, 7784, 646, 10, 26, "Print"],
24004	Cell[337295, 7796, 693, 13, 26, "Print"],
24005	Cell[337991, 7811, 882, 15, 26, "Print"],
24006	Cell[338876, 7828, 953, 18, 30, "Print"],
24007	Cell[339832, 7848, 882, 15, 26, "Print"],
24008	Cell[340717, 7865, 578, 9, 26, "Print"],
24009	Cell[341298, 7876, 2263, 72, 34, "Print"],
24010	Cell[343564, 7950, 646, 10, 26, "Print"],
24011	Cell[344213, 7962, 693, 13, 26, "Print"],
24012	Cell[344909, 7977, 953, 18, 31, "Print"],
24013	Cell[345865, 7997, 884, 15, 26, "Print"],
24014	Cell[346752, 8014, 884, 15, 26, "Print"],
24015	Cell[347639, 8031, 580, 9, 26, "Print"],
24016	Cell[348222, 8042, 2265, 72, 34, "Print"],
24017	Cell[350490, 8116, 646, 10, 26, "Print"],
24018	Cell[351139, 8128, 693, 13, 26, "Print"],
24019	Cell[351835, 8143, 879, 15, 26, "Print"],
24020	Cell[352717, 8160, 957, 18, 32, "Print"],
24021	Cell[353677, 8180, 884, 15, 26, "Print"],
24022	Cell[354564, 8197, 578, 9, 26, "Print"],
24023	Cell[355145, 8208, 2265, 72, 34, "Print"],
24024	Cell[357413, 8282, 644, 10, 26, "Print"],
24025	Cell[358060, 8294, 693, 13, 26, "Print"],
24026	Cell[358756, 8309, 877, 15, 26, "Print"],
24027	Cell[359636, 8326, 957, 18, 32, "Print"],
24028	Cell[360596, 8346, 884, 15, 26, "Print"],
24029	Cell[361483, 8363, 578, 9, 26, "Print"],
24030	Cell[362064, 8374, 2265, 72, 34, "Print"],
24031	Cell[364332, 8448, 644, 10, 26, "Print"],
24032	Cell[364979, 8460, 692, 13, 26, "Print"],
24033	Cell[365674, 8475, 957, 18, 32, "Print"],
24034	Cell[366634, 8495, 877, 15, 26, "Print"],
24035	Cell[367514, 8512, 884, 15, 26, "Print"],
24036	Cell[368401, 8529, 580, 9, 26, "Print"],
24037	Cell[368984, 8540, 2265, 72, 34, "Print"],
24038	Cell[371252, 8614, 644, 10, 26, "Print"],
24039	Cell[371899, 8626, 695, 13, 26, "Print"],
24040	Cell[372597, 8641, 882, 15, 26, "Print"],
24041	Cell[373482, 8658, 953, 18, 30, "Print"],
24042	Cell[374438, 8678, 884, 15, 26, "Print"],
24043	Cell[375325, 8695, 578, 9, 26, "Print"],
24044	Cell[375906, 8706, 2265, 72, 34, "Print"],
24045	Cell[378174, 8780, 646, 10, 26, "Print"],
24046	Cell[378823, 8792, 695, 13, 26, "Print"],
24047	Cell[379521, 8807, 953, 18, 33, "Print"],
24048	Cell[380477, 8827, 881, 15, 26, "Print"],
24049	Cell[381361, 8844, 877, 15, 26, "Print"],
24050	Cell[382241, 8861, 578, 9, 26, "Print"],
24051	Cell[382822, 8872, 2261, 72, 34, "Print"],
24052	Cell[385086, 8946, 646, 10, 26, "Print"],
24053	Cell[385735, 8958, 693, 13, 26, "Print"],
24054	Cell[386431, 8973, 884, 15, 26, "Print"],
24055	Cell[387318, 8990, 953, 18, 30, "Print"],
24056	Cell[388274, 9010, 881, 15, 26, "Print"],
24057	Cell[389158, 9027, 578, 9, 26, "Print"],
24058	Cell[389739, 9038, 2265, 72, 34, "Print"],
24059	Cell[392007, 9112, 643, 10, 26, "Print"],
24060	Cell[392653, 9124, 695, 13, 26, "Print"],
24061	Cell[393351, 9139, 953, 18, 33, "Print"],
24062	Cell[394307, 9159, 881, 15, 26, "Print"],
24063	Cell[395191, 9176, 877, 15, 26, "Print"],
24064	Cell[396071, 9193, 580, 9, 26, "Print"],
24065	Cell[396654, 9204, 2261, 72, 34, "Print"],
24066	Cell[398918, 9278, 644, 10, 26, "Print"],
24067	Cell[399565, 9290, 693, 13, 26, "Print"],
24068	Cell[400261, 9305, 953, 18, 30, "Print"],
24069	Cell[401217, 9325, 881, 15, 26, "Print"],
24070	Cell[402101, 9342, 877, 15, 26, "Print"],
24071	Cell[402981, 9359, 580, 9, 26, "Print"],
24072	Cell[403564, 9370, 2259, 72, 34, "Print"],
24073	Cell[405826, 9444, 644, 10, 26, "Print"],
24074	Cell[406473, 9456, 693, 13, 26, "Print"],
24075	Cell[407169, 9471, 882, 15, 26, "Print"],
24076	Cell[408054, 9488, 953, 18, 31, "Print"],
24077	Cell[409010, 9508, 881, 15, 26, "Print"],
24078	Cell[409894, 9525, 580, 9, 26, "Print"],
24079	Cell[410477, 9536, 2263, 72, 34, "Print"],
24080	Cell[412743, 9610, 644, 10, 26, "Print"]
24081	}, Open ]],
24082	Cell[413402, 9623, 125407, 3856, 2872, "Output"]
24083	}, Open ]]
24084	}, Open ]]
24085	}, Open ]],
24086	Cell[CellGroupData[{
24087	Cell[538870, 13486, 238, 5, 86, "Section"],
24088	Cell[CellGroupData[{
24089	Cell[539133, 13495, 215, 4, 46, "Subsection"],
24090	Cell[CellGroupData[{
24091	Cell[539373, 13503, 154, 3, 36, "Input"],
24092	Cell[CellGroupData[{
24093	Cell[539552, 13510, 577, 9, 26, "Print"],
24094	Cell[540132, 13521, 573, 9, 26, "Print"],
24095	Cell[540708, 13532, 533, 9, 26, "Print"],
24096	Cell[541244, 13543, 558, 9, 26, "Print"],
24097	Cell[541805, 13554, 722, 13, 26, "Print"],
24098	Cell[542530, 13569, 525, 8, 26, "Print"],
24099	Cell[543058, 13579, 542, 10, 38, "Print"],
24100	Cell[543603, 13591, 642, 12, 26, "Print"],
24101	Cell[544248, 13605, 542, 9, 26, "Print"],
24102	Cell[544793, 13616, 566, 9, 26, "Print"],
24103	Cell[545362, 13627, 2517, 73, 61, "Print"],
24104	Cell[547882, 13702, 2517, 73, 61, "Print"],
24105	Cell[550402, 13777, 2517, 73, 61, "Print"],
24106	Cell[552922, 13852, 2519, 73, 61, "Print"],
24107	Cell[555444, 13927, 2517, 73, 60, "Print"],
24108	Cell[557964, 14002, 2516, 73, 61, "Print"],
24109	Cell[560483, 14077, 2519, 73, 60, "Print"],
24110	Cell[563005, 14152, 2519, 73, 60, "Print"],
24111	Cell[565527, 14227, 2517, 73, 61, "Print"],
24112	Cell[568047, 14302, 2519, 73, 61, "Print"],
24113	Cell[570569, 14377, 2517, 73, 61, "Print"],
24114	Cell[573089, 14452, 2519, 73, 60, "Print"]
24115	}, Open ]],
24116	Cell[575623, 14528, 26543, 789, 624, "Output"]
24117	}, Open ]]
24118	}, Open ]],
24119	Cell[CellGroupData[{
24120	Cell[602215, 15323, 266, 4, 46, "Subsection"],
24121	Cell[CellGroupData[{
24122	Cell[602506, 15331, 1163, 27, 159, "Input"],
24123	Cell[CellGroupData[{
24124	Cell[603694, 15362, 163, 3, 32, "Print"],
24125	Cell[603860, 15367, 188, 3, 32, "Print"],
24126	Cell[604051, 15372, 354, 7, 32, "Print"],
24127	Cell[604408, 15381, 157, 2, 32, "Print"],
24128	Cell[604568, 15385, 176, 4, 38, "Print"],
24129	Cell[604747, 15391, 274, 6, 32, "Print"],
24130	Cell[605024, 15399, 201, 3, 32, "Print"],
24131	Cell[605228, 15404, 246, 6, 32, "Print"],
24132	Cell[605477, 15412, 439, 8, 32, "Print"],
24133	Cell[605919, 15422, 437, 8, 32, "Print"],
24134	Cell[606359, 15432, 512, 11, 43, "Print"],
24135	Cell[606874, 15445, 135, 2, 32, "Print"],
24136	Cell[607012, 15449, 830, 30, 55, "Print"],
24137	Cell[607845, 15481, 198, 3, 32, "Print"],
24138	Cell[608046, 15486, 248, 6, 32, "Print"],
24139	Cell[608297, 15494, 437, 8, 32, "Print"],
24140	Cell[608737, 15504, 439, 8, 32, "Print"],
24141	Cell[609179, 15514, 512, 11, 41, "Print"],
24142	Cell[609694, 15527, 133, 2, 32, "Print"],
24143	Cell[609830, 15531, 810, 29, 55, "Print"],
24144	Cell[610643, 15562, 199, 3, 32, "Print"],
24145	Cell[610845, 15567, 246, 6, 32, "Print"],
24146	Cell[611094, 15575, 437, 8, 32, "Print"],
24147	Cell[611534, 15585, 434, 8, 32, "Print"],
24148	Cell[611971, 15595, 508, 11, 38, "Print"],
24149	Cell[612482, 15608, 133, 2, 32, "Print"],
24150	Cell[612618, 15612, 810, 29, 55, "Print"],
24151	Cell[613431, 15643, 201, 3, 32, "Print"],
24152	Cell[613635, 15648, 248, 6, 32, "Print"],
24153	Cell[613886, 15656, 437, 8, 32, "Print"],
24154	Cell[614326, 15666, 434, 8, 32, "Print"],
24155	Cell[614763, 15676, 510, 11, 38, "Print"],
24156	Cell[615276, 15689, 132, 2, 32, "Print"],
24157	Cell[615411, 15693, 828, 30, 55, "Print"],
24158	Cell[616242, 15725, 199, 3, 32, "Print"],
24159	Cell[616444, 15730, 248, 6, 32, "Print"],
24160	Cell[616695, 15738, 510, 11, 43, "Print"],
24161	Cell[617208, 15751, 437, 8, 32, "Print"],
24162	Cell[617648, 15761, 434, 8, 32, "Print"],
24163	Cell[618085, 15771, 135, 2, 32, "Print"],
24164	Cell[618223, 15775, 1498, 50, 115, "Print"],
24165	Cell[619724, 15827, 201, 3, 32, "Print"],
24166	Cell[619928, 15832, 246, 6, 32, "Print"],
24167	Cell[620177, 15840, 432, 8, 32, "Print"],
24168	Cell[620612, 15850, 510, 11, 43, "Print"],
24169	Cell[621125, 15863, 434, 8, 32, "Print"],
24170	Cell[621562, 15873, 133, 2, 32, "Print"],
24171	Cell[621698, 15877, 1498, 50, 115, "Print"],
24172	Cell[623199, 15929, 201, 3, 32, "Print"],
24173	Cell[623403, 15934, 246, 6, 32, "Print"],
24174	Cell[623652, 15942, 512, 11, 43, "Print"],
24175	Cell[624167, 15955, 434, 8, 32, "Print"],
24176	Cell[624604, 15965, 434, 8, 32, "Print"],
24177	Cell[625041, 15975, 135, 2, 32, "Print"],
24178	Cell[625179, 15979, 1498, 50, 115, "Print"],
24179	Cell[626680, 16031, 199, 3, 32, "Print"],
24180	Cell[626882, 16036, 248, 6, 32, "Print"],
24181	Cell[627133, 16044, 510, 11, 43, "Print"],
24182	Cell[627646, 16057, 436, 8, 32, "Print"],
24183	Cell[628085, 16067, 432, 8, 32, "Print"],
24184	Cell[628520, 16077, 135, 2, 32, "Print"],
24185	Cell[628658, 16081, 1498, 50, 115, "Print"],
24186	Cell[630159, 16133, 199, 3, 32, "Print"],
24187	Cell[630361, 16138, 245, 6, 32, "Print"],
24188	Cell[630609, 16146, 510, 11, 38, "Print"],
24189	Cell[631122, 16159, 436, 8, 32, "Print"],
24190	Cell[631561, 16169, 437, 8, 32, "Print"],
24191	Cell[632001, 16179, 135, 2, 32, "Print"],
24192	Cell[632139, 16183, 1498, 50, 115, "Print"],
24193	Cell[633640, 16235, 201, 3, 32, "Print"],
24194	Cell[633844, 16240, 248, 6, 32, "Print"],
24195	Cell[634095, 16248, 439, 8, 32, "Print"],
24196	Cell[634537, 16258, 510, 11, 43, "Print"],
24197	Cell[635050, 16271, 436, 8, 32, "Print"],
24198	Cell[635489, 16281, 133, 2, 32, "Print"],
24199	Cell[635625, 16285, 1498, 50, 115, "Print"],
24200	Cell[637126, 16337, 201, 3, 32, "Print"],
24201	Cell[637330, 16342, 247, 6, 32, "Print"],
24202	Cell[637580, 16350, 437, 8, 32, "Print"],
24203	Cell[638020, 16360, 434, 8, 32, "Print"],
24204	Cell[638457, 16370, 508, 11, 38, "Print"],
24205	Cell[638968, 16383, 133, 2, 32, "Print"],
24206	Cell[639104, 16387, 1498, 50, 115, "Print"],
24207	Cell[640605, 16439, 201, 3, 32, "Print"],
24208	Cell[640809, 16444, 248, 6, 32, "Print"],
24209	Cell[641060, 16452, 436, 8, 32, "Print"],
24210	Cell[641499, 16462, 510, 11, 40, "Print"],
24211	Cell[642012, 16475, 439, 8, 32, "Print"],
24212	Cell[642454, 16485, 135, 2, 32, "Print"],
24213	Cell[642592, 16489, 1496, 50, 59, "Print"],
24214	Cell[644091, 16541, 199, 3, 32, "Print"],
24215	Cell[644293, 16546, 248, 6, 32, "Print"],
24216	Cell[644544, 16554, 434, 8, 32, "Print"],
24217	Cell[644981, 16564, 433, 8, 32, "Print"],
24218	Cell[645417, 16574, 510, 11, 41, "Print"],
24219	Cell[645930, 16587, 135, 2, 32, "Print"],
24220	Cell[646068, 16591, 1496, 50, 115, "Print"],
24221	Cell[647567, 16643, 201, 3, 32, "Print"],
24222	Cell[647771, 16648, 248, 6, 32, "Print"],
24223	Cell[648022, 16656, 434, 8, 32, "Print"],
24224	Cell[648459, 16666, 432, 8, 32, "Print"],
24225	Cell[648894, 16676, 510, 11, 41, "Print"],
24226	Cell[649407, 16689, 135, 2, 32, "Print"],
24227	Cell[649545, 16693, 1498, 50, 59, "Print"],
24228	Cell[651046, 16745, 199, 3, 32, "Print"],
24229	Cell[651248, 16750, 250, 6, 32, "Print"],
24230	Cell[651501, 16758, 434, 8, 32, "Print"],
24231	Cell[651938, 16768, 510, 11, 41, "Print"],
24232	Cell[652451, 16781, 434, 8, 32, "Print"],
24233	Cell[652888, 16791, 133, 2, 32, "Print"],
24234	Cell[653024, 16795, 1498, 50, 115, "Print"],
24235	Cell[654525, 16847, 201, 3, 32, "Print"],
24236	Cell[654729, 16852, 248, 6, 32, "Print"],
24237	Cell[654980, 16860, 434, 8, 32, "Print"],
24238	Cell[655417, 16870, 439, 8, 32, "Print"],
24239	Cell[655859, 16880, 510, 11, 38, "Print"],
24240	Cell[656372, 16893, 135, 2, 32, "Print"],
24241	Cell[656510, 16897, 1496, 50, 115, "Print"],
24242	Cell[658009, 16949, 201, 3, 32, "Print"],
24243	Cell[658213, 16954, 250, 6, 32, "Print"],
24244	Cell[658466, 16962, 439, 8, 32, "Print"],
24245	Cell[658908, 16972, 512, 11, 43, "Print"],
24246	Cell[659423, 16985, 434, 8, 32, "Print"],
24247	Cell[659860, 16995, 135, 2, 32, "Print"],
24248	Cell[659998, 16999, 875, 32, 44, "Print"],
24249	Cell[660876, 17033, 199, 3, 32, "Print"],
24250	Cell[661078, 17038, 250, 6, 32, "Print"],
24251	Cell[661331, 17046, 433, 8, 32, "Print"],
24252	Cell[661767, 17056, 436, 8, 32, "Print"],
24253	Cell[662206, 17066, 512, 11, 41, "Print"],
24254	Cell[662721, 17079, 133, 2, 32, "Print"],
24255	Cell[662857, 17083, 875, 32, 44, "Print"],
24256	Cell[663735, 17117, 199, 3, 32, "Print"],
24257	Cell[663937, 17122, 250, 6, 32, "Print"],
24258	Cell[664190, 17130, 436, 8, 32, "Print"],
24259	Cell[664629, 17140, 432, 8, 32, "Print"],
24260	Cell[665064, 17150, 510, 11, 38, "Print"],
24261	Cell[665577, 17163, 133, 2, 32, "Print"],
24262	Cell[665713, 17167, 875, 32, 44, "Print"],
24263	Cell[666591, 17201, 201, 3, 32, "Print"],
24264	Cell[666795, 17206, 250, 6, 32, "Print"],
24265	Cell[667048, 17214, 434, 8, 32, "Print"],
24266	Cell[667485, 17224, 432, 8, 32, "Print"],
24267	Cell[667920, 17234, 508, 11, 38, "Print"],
24268	Cell[668431, 17247, 133, 2, 32, "Print"],
24269	Cell[668567, 17251, 877, 32, 44, "Print"],
24270	Cell[669447, 17285, 198, 3, 32, "Print"],
24271	Cell[669648, 17290, 250, 6, 32, "Print"],
24272	Cell[669901, 17298, 510, 11, 43, "Print"],
24273	Cell[670414, 17311, 434, 8, 32, "Print"],
24274	Cell[670851, 17321, 434, 8, 32, "Print"],
24275	Cell[671288, 17331, 135, 2, 32, "Print"],
24276	Cell[671426, 17335, 1816, 65, 38, "Print"],
24277	Cell[673245, 17402, 201, 3, 32, "Print"],
24278	Cell[673449, 17407, 250, 6, 32, "Print"],
24279	Cell[673702, 17415, 437, 8, 32, "Print"],
24280	Cell[674142, 17425, 508, 11, 38, "Print"],
24281	Cell[674653, 17438, 434, 8, 32, "Print"],
24282	Cell[675090, 17448, 133, 2, 32, "Print"],
24283	Cell[675226, 17452, 1820, 65, 38, "Print"],
24284	Cell[677049, 17519, 201, 3, 32, "Print"],
24285	Cell[677253, 17524, 250, 6, 32, "Print"],
24286	Cell[677506, 17532, 508, 11, 43, "Print"],
24287	Cell[678017, 17545, 434, 8, 32, "Print"],
24288	Cell[678454, 17555, 430, 8, 32, "Print"],
24289	Cell[678887, 17565, 131, 2, 32, "Print"],
24290	Cell[679021, 17569, 1818, 65, 38, "Print"],
24291	Cell[680842, 17636, 199, 3, 32, "Print"],
24292	Cell[681044, 17641, 250, 6, 32, "Print"],
24293	Cell[681297, 17649, 508, 11, 38, "Print"],
24294	Cell[681808, 17662, 436, 8, 32, "Print"],
24295	Cell[682247, 17672, 434, 8, 32, "Print"],
24296	Cell[682684, 17682, 133, 2, 32, "Print"],
24297	Cell[682820, 17686, 1818, 65, 38, "Print"],
24298	Cell[684641, 17753, 199, 3, 32, "Print"],
24299	Cell[684843, 17758, 250, 6, 32, "Print"],
24300	Cell[685096, 17766, 437, 8, 32, "Print"],
24301	Cell[685536, 17776, 508, 11, 40, "Print"],
24302	Cell[686047, 17789, 436, 8, 32, "Print"],
24303	Cell[686486, 17799, 133, 2, 32, "Print"],
24304	Cell[686622, 17803, 1818, 65, 38, "Print"],
24305	Cell[688443, 17870, 201, 3, 32, "Print"],
24306	Cell[688647, 17875, 248, 6, 32, "Print"],
24307	Cell[688898, 17883, 434, 8, 32, "Print"],
24308	Cell[689335, 17893, 512, 11, 41, "Print"],
24309	Cell[689850, 17906, 436, 8, 32, "Print"],
24310	Cell[690289, 17916, 135, 2, 32, "Print"],
24311	Cell[690427, 17920, 1820, 65, 38, "Print"],
24312	Cell[692250, 17987, 201, 3, 32, "Print"],
24313	Cell[692454, 17992, 248, 6, 32, "Print"],
24314	Cell[692705, 18000, 434, 8, 32, "Print"],
24315	Cell[693142, 18010, 512, 11, 41, "Print"],
24316	Cell[693657, 18023, 436, 8, 32, "Print"],
24317	Cell[694096, 18033, 133, 2, 32, "Print"],
24318	Cell[694232, 18037, 1818, 65, 38, "Print"],
24319	Cell[696053, 18104, 199, 3, 32, "Print"],
24320	Cell[696255, 18109, 250, 6, 32, "Print"],
24321	Cell[696508, 18117, 434, 8, 32, "Print"],
24322	Cell[696945, 18127, 512, 11, 41, "Print"],
24323	Cell[697460, 18140, 434, 8, 32, "Print"],
24324	Cell[697897, 18150, 135, 2, 32, "Print"],
24325	Cell[698035, 18154, 1818, 65, 38, "Print"],
24326	Cell[699856, 18221, 201, 3, 32, "Print"],
24327	Cell[700060, 18226, 248, 6, 32, "Print"],
24328	Cell[700311, 18234, 439, 8, 32, "Print"],
24329	Cell[700753, 18244, 508, 11, 38, "Print"],
24330	Cell[701264, 18257, 434, 8, 32, "Print"],
24331	Cell[701701, 18267, 133, 2, 32, "Print"],
24332	Cell[701837, 18271, 1820, 65, 38, "Print"],
24333	Cell[703660, 18338, 199, 3, 32, "Print"],
24334	Cell[703862, 18343, 250, 6, 32, "Print"],
24335	Cell[704115, 18351, 432, 8, 32, "Print"],
24336	Cell[704550, 18361, 436, 8, 32, "Print"],
24337	Cell[704989, 18371, 508, 11, 38, "Print"],
24338	Cell[705500, 18384, 133, 2, 32, "Print"],
24339	Cell[705636, 18388, 1816, 65, 38, "Print"],
24340	Cell[707455, 18455, 199, 3, 32, "Print"],
24341	Cell[707657, 18460, 250, 6, 32, "Print"],
24342	Cell[707910, 18468, 431, 8, 32, "Print"],
24343	Cell[708344, 18478, 436, 8, 32, "Print"],
24344	Cell[708783, 18488, 510, 11, 38, "Print"],
24345	Cell[709296, 18501, 135, 2, 32, "Print"],
24346	Cell[709434, 18505, 1818, 65, 38, "Print"],
24347	Cell[711255, 18572, 201, 3, 32, "Print"],
24348	Cell[711459, 18577, 250, 6, 32, "Print"],
24349	Cell[711712, 18585, 434, 8, 32, "Print"],
24350	Cell[712149, 18595, 434, 8, 32, "Print"],
24351	Cell[712586, 18605, 510, 11, 38, "Print"],
24352	Cell[713099, 18618, 133, 2, 32, "Print"],
24353	Cell[713235, 18622, 1818, 65, 38, "Print"],
24354	Cell[715056, 18689, 198, 3, 32, "Print"],
24355	Cell[715257, 18694, 250, 6, 32, "Print"],
24356	Cell[715510, 18702, 508, 11, 43, "Print"],
24357	Cell[716021, 18715, 439, 8, 32, "Print"],
24358	Cell[716463, 18725, 513, 11, 35, "Print"],
24359	Cell[716979, 18738, 135, 2, 32, "Print"],
24360	Cell[717117, 18742, 1818, 65, 38, "Print"],
24361	Cell[718938, 18809, 199, 3, 32, "Print"],
24362	Cell[719140, 18814, 250, 6, 32, "Print"],
24363	Cell[719393, 18822, 512, 11, 43, "Print"],
24364	Cell[719908, 18835, 434, 8, 32, "Print"],
24365	Cell[720345, 18845, 513, 11, 35, "Print"],
24366	Cell[720861, 18858, 135, 2, 32, "Print"],
24367	Cell[720999, 18862, 1817, 65, 38, "Print"],
24368	Cell[722819, 18929, 201, 3, 32, "Print"],
24369	Cell[723023, 18934, 250, 6, 32, "Print"],
24370	Cell[723276, 18942, 512, 11, 43, "Print"],
24371	Cell[723791, 18955, 432, 8, 32, "Print"],
24372	Cell[724226, 18965, 513, 11, 35, "Print"],
24373	Cell[724742, 18978, 135, 2, 32, "Print"],
24374	Cell[724880, 18982, 1820, 65, 38, "Print"],
24375	Cell[726703, 19049, 201, 3, 32, "Print"],
24376	Cell[726907, 19054, 248, 6, 32, "Print"],
24377	Cell[727158, 19062, 512, 11, 43, "Print"],
24378	Cell[727673, 19075, 434, 8, 32, "Print"],
24379	Cell[728110, 19085, 513, 11, 35, "Print"],
24380	Cell[728626, 19098, 133, 2, 32, "Print"],
24381	Cell[728762, 19102, 1820, 65, 38, "Print"],
24382	Cell[730585, 19169, 199, 3, 32, "Print"],
24383	Cell[730787, 19174, 250, 6, 32, "Print"],
24384	Cell[731040, 19182, 508, 11, 38, "Print"],
24385	Cell[731551, 19195, 513, 11, 35, "Print"],
24386	Cell[732067, 19208, 432, 8, 32, "Print"],
24387	Cell[732502, 19218, 135, 2, 32, "Print"],
24388	Cell[732640, 19222, 1818, 65, 38, "Print"],
24389	Cell[734461, 19289, 201, 3, 32, "Print"],
24390	Cell[734665, 19294, 247, 6, 32, "Print"],
24391	Cell[734915, 19302, 510, 11, 43, "Print"],
24392	Cell[735428, 19315, 439, 8, 32, "Print"],
24393	Cell[735870, 19325, 511, 11, 35, "Print"],
24394	Cell[736384, 19338, 135, 2, 32, "Print"],
24395	Cell[736522, 19342, 1818, 65, 38, "Print"],
24396	Cell[738343, 19409, 201, 3, 32, "Print"],
24397	Cell[738547, 19414, 248, 6, 32, "Print"],
24398	Cell[738798, 19422, 510, 11, 38, "Print"],
24399	Cell[739311, 19435, 439, 8, 32, "Print"],
24400	Cell[739753, 19445, 513, 11, 35, "Print"],
24401	Cell[740269, 19458, 135, 2, 32, "Print"],
24402	Cell[740407, 19462, 1820, 65, 38, "Print"],
24403	Cell[742230, 19529, 201, 3, 32, "Print"],
24404	Cell[742434, 19534, 248, 6, 32, "Print"],
24405	Cell[742685, 19542, 510, 11, 40, "Print"],
24406	Cell[743198, 19555, 513, 11, 35, "Print"],
24407	Cell[743714, 19568, 432, 8, 32, "Print"],
24408	Cell[744149, 19578, 133, 2, 32, "Print"],
24409	Cell[744285, 19582, 1816, 65, 38, "Print"],
24410	Cell[746104, 19649, 201, 3, 32, "Print"],
24411	Cell[746308, 19654, 250, 6, 32, "Print"],
24412	Cell[746561, 19662, 508, 11, 38, "Print"],
24413	Cell[747072, 19675, 511, 11, 35, "Print"],
24414	Cell[747586, 19688, 434, 8, 32, "Print"],
24415	Cell[748023, 19698, 133, 2, 32, "Print"],
24416	Cell[748159, 19702, 1816, 65, 38, "Print"],
24417	Cell[749978, 19769, 201, 3, 32, "Print"],
24418	Cell[750182, 19774, 250, 6, 32, "Print"],
24419	Cell[750435, 19782, 434, 8, 32, "Print"],
24420	Cell[750872, 19792, 513, 11, 35, "Print"],
24421	Cell[751388, 19805, 510, 11, 38, "Print"],
24422	Cell[751901, 19818, 135, 2, 32, "Print"],
24423	Cell[752039, 19822, 1816, 65, 38, "Print"],
24424	Cell[753858, 19889, 201, 3, 32, "Print"],
24425	Cell[754062, 19894, 250, 6, 32, "Print"],
24426	Cell[754315, 19902, 434, 8, 32, "Print"],
24427	Cell[754752, 19912, 511, 11, 35, "Print"],
24428	Cell[755266, 19925, 508, 11, 38, "Print"],
24429	Cell[755777, 19938, 133, 2, 32, "Print"],
24430	Cell[755913, 19942, 1818, 65, 38, "Print"],
24431	Cell[757734, 20009, 201, 3, 32, "Print"],
24432	Cell[757938, 20014, 250, 6, 32, "Print"],
24433	Cell[758191, 20022, 432, 8, 32, "Print"],
24434	Cell[758626, 20032, 513, 11, 35, "Print"],
24435	Cell[759142, 20045, 510, 11, 38, "Print"],
24436	Cell[759655, 20058, 133, 2, 32, "Print"],
24437	Cell[759791, 20062, 1818, 65, 38, "Print"],
24438	Cell[761612, 20129, 199, 3, 32, "Print"],
24439	Cell[761814, 20134, 250, 6, 32, "Print"],
24440	Cell[762067, 20142, 510, 11, 43, "Print"],
24441	Cell[762580, 20155, 439, 8, 32, "Print"],
24442	Cell[763022, 20165, 437, 8, 32, "Print"],
24443	Cell[763462, 20175, 135, 2, 32, "Print"],
24444	Cell[763600, 20179, 1818, 65, 38, "Print"],
24445	Cell[765421, 20246, 199, 3, 32, "Print"],
24446	Cell[765623, 20251, 250, 6, 32, "Print"],
24447	Cell[765876, 20259, 432, 8, 32, "Print"],
24448	Cell[766311, 20269, 512, 11, 43, "Print"],
24449	Cell[766826, 20282, 439, 8, 32, "Print"],
24450	Cell[767268, 20292, 133, 2, 32, "Print"],
24451	Cell[767404, 20296, 1818, 65, 38, "Print"],
24452	Cell[769225, 20363, 199, 3, 32, "Print"],
24453	Cell[769427, 20368, 250, 6, 32, "Print"],
24454	Cell[769680, 20376, 512, 11, 43, "Print"],
24455	Cell[770195, 20389, 434, 8, 32, "Print"],
24456	Cell[770632, 20399, 437, 8, 32, "Print"],
24457	Cell[771072, 20409, 133, 2, 32, "Print"],
24458	Cell[771208, 20413, 1818, 65, 38, "Print"],
24459	Cell[773029, 20480, 199, 3, 32, "Print"],
24460	Cell[773231, 20485, 248, 6, 32, "Print"],
24461	Cell[773482, 20493, 510, 11, 43, "Print"],
24462	Cell[773995, 20506, 434, 8, 32, "Print"],
24463	Cell[774432, 20516, 437, 8, 32, "Print"],
24464	Cell[774872, 20526, 133, 2, 32, "Print"],
24465	Cell[775008, 20530, 1820, 65, 38, "Print"],
24466	Cell[776831, 20597, 201, 3, 32, "Print"],
24467	Cell[777035, 20602, 250, 6, 32, "Print"],
24468	Cell[777288, 20610, 510, 11, 38, "Print"],
24469	Cell[777801, 20623, 437, 8, 32, "Print"],
24470	Cell[778241, 20633, 439, 8, 32, "Print"],
24471	Cell[778683, 20643, 133, 2, 32, "Print"],
24472	Cell[778819, 20647, 1818, 65, 38, "Print"],
24473	Cell[780640, 20714, 199, 3, 32, "Print"],
24474	Cell[780842, 20719, 250, 6, 32, "Print"],
24475	Cell[781095, 20727, 439, 8, 32, "Print"],
24476	Cell[781537, 20737, 508, 11, 43, "Print"],
24477	Cell[782048, 20750, 437, 8, 32, "Print"],
24478	Cell[782488, 20760, 133, 2, 32, "Print"],
24479	Cell[782624, 20764, 1820, 65, 38, "Print"],
24480	Cell[784447, 20831, 201, 3, 32, "Print"],
24481	Cell[784651, 20836, 250, 6, 32, "Print"],
24482	Cell[784904, 20844, 439, 8, 32, "Print"],
24483	Cell[785346, 20854, 510, 11, 38, "Print"],
24484	Cell[785859, 20867, 439, 8, 32, "Print"],
24485	Cell[786301, 20877, 135, 2, 32, "Print"],
24486	Cell[786439, 20881, 1820, 65, 38, "Print"],
24487	Cell[788262, 20948, 199, 3, 32, "Print"],
24488	Cell[788464, 20953, 250, 6, 32, "Print"],
24489	Cell[788717, 20961, 510, 11, 40, "Print"],
24490	Cell[789230, 20974, 437, 8, 32, "Print"],
24491	Cell[789670, 20984, 439, 8, 32, "Print"],
24492	Cell[790112, 20994, 133, 2, 32, "Print"],
24493	Cell[790248, 20998, 1817, 65, 38, "Print"],
24494	Cell[792068, 21065, 199, 3, 32, "Print"],
24495	Cell[792270, 21070, 250, 6, 32, "Print"],
24496	Cell[792523, 21078, 432, 8, 32, "Print"],
24497	Cell[792958, 21088, 512, 11, 41, "Print"],
24498	Cell[793473, 21101, 437, 8, 32, "Print"],
24499	Cell[793913, 21111, 135, 2, 32, "Print"],
24500	Cell[794051, 21115, 1818, 65, 38, "Print"],
24501	Cell[795872, 21182, 199, 3, 32, "Print"],
24502	Cell[796074, 21187, 250, 6, 32, "Print"],
24503	Cell[796327, 21195, 432, 8, 32, "Print"],
24504	Cell[796762, 21205, 512, 11, 41, "Print"],
24505	Cell[797277, 21218, 436, 8, 32, "Print"],
24506	Cell[797716, 21228, 135, 2, 32, "Print"],
24507	Cell[797854, 21232, 1818, 65, 38, "Print"],
24508	Cell[799675, 21299, 201, 3, 32, "Print"],
24509	Cell[799879, 21304, 248, 6, 32, "Print"],
24510	Cell[800130, 21312, 512, 11, 41, "Print"],
24511	Cell[800645, 21325, 432, 8, 32, "Print"],
24512	Cell[801080, 21335, 439, 8, 32, "Print"],
24513	Cell[801522, 21345, 133, 2, 32, "Print"],
24514	Cell[801658, 21349, 1820, 65, 38, "Print"],
24515	Cell[803481, 21416, 199, 3, 32, "Print"],
24516	Cell[803683, 21421, 248, 6, 32, "Print"],
24517	Cell[803934, 21429, 439, 8, 32, "Print"],
24518	Cell[804376, 21439, 507, 11, 38, "Print"],
24519	Cell[804886, 21452, 436, 8, 32, "Print"],
24520	Cell[805325, 21462, 135, 2, 32, "Print"],
24521	Cell[805463, 21466, 1818, 65, 38, "Print"],
24522	Cell[807284, 21533, 201, 3, 32, "Print"]
24523	}, Open ]],
24524	Cell[807500, 21539, 555, 14, 48, "Output"]
24525	}, Open ]]
24526	}, Open ]],
24527	Cell[CellGroupData[{
24528	Cell[808104, 21559, 301, 6, 46, "Subsection"],
24529	Cell[CellGroupData[{
24530	Cell[808430, 21569, 407, 8, 79, "Input"],
24531	Cell[CellGroupData[{
24532	Cell[808862, 21581, 658, 12, 32, "Print"],
24533	Cell[809523, 21595, 658, 12, 32, "Print"],
24534	Cell[810184, 21609, 439, 7, 32, "Print"]
24535	}, Open ]],
24536	Cell[810638, 21619, 391, 6, 42, "Output"],
24537	Cell[CellGroupData[{
24538	Cell[811054, 21629, 658, 12, 32, "Print"],
24539	Cell[811715, 21643, 434, 7, 32, "Print"]
24540	}, Open ]],
24541	Cell[812164, 21653, 391, 6, 42, "Output"],
24542	Cell[CellGroupData[{
24543	Cell[812580, 21663, 657, 12, 32, "Print"],
24544	Cell[813240, 21677, 431, 6, 32, "Print"]
24545	}, Open ]],
24546	Cell[813686, 21686, 391, 6, 42, "Output"]
24547	}, Open ]]
24548	}, Open ]],
24549	Cell[CellGroupData[{
24550	Cell[814126, 21698, 346, 7, 46, "Subsection"],
24551	Cell[CellGroupData[{
24552	Cell[814497, 21709, 246, 5, 59, "Input"],
24553	Cell[CellGroupData[{
24554	Cell[814768, 21718, 582, 11, 32, "Print"],
24555	Cell[815353, 21731, 358, 6, 32, "Print"],
24556	Cell[815714, 21739, 582, 11, 32, "Print"],
24557	Cell[816299, 21752, 369, 6, 32, "Print"]
24558	}, Open ]],
24559	Cell[816683, 21761, 322, 5, 42, "Output"],
24560	Cell[CellGroupData[{
24561	Cell[817030, 21770, 582, 11, 32, "Print"],
24562	Cell[817615, 21783, 353, 5, 32, "Print"],
24563	Cell[817971, 21790, 582, 11, 32, "Print"],
24564	Cell[818556, 21803, 671, 13, 58, "Print"],
24565	Cell[819230, 21818, 669, 13, 58, "Print"],
24566	Cell[819902, 21833, 667, 13, 58, "Print"],
24567	Cell[820572, 21848, 664, 13, 58, "Print"],
24568	Cell[821239, 21863, 347, 5, 32, "Print"],
24569	Cell[821589, 21870, 388, 6, 32, "Print"]
24570	}, Open ]],
24571	Cell[821992, 21879, 10012, 270, 212, "Output"]
24572	}, Open ]]
24573	}, Open ]]
24574	}, Open ]],
24575	Cell[CellGroupData[{
24576	Cell[832065, 22156, 146, 3, 86, "Section"],
24577	Cell[CellGroupData[{
24578	Cell[832236, 22163, 170, 3, 48, "Subsection"],
24579	Cell[CellGroupData[{
24580	Cell[832431, 22170, 405, 8, 59, "Input"],
24581	Cell[CellGroupData[{
24582	Cell[832861, 22182, 276, 5, 32, "Print"],
24583	Cell[833140, 22189, 728, 18, 32, "Print"],
24584	Cell[833871, 22209, 720, 18, 32, "Print"],
24585	Cell[834594, 22229, 845, 23, 108, "Print"],
24586	Cell[835442, 22254, 692, 18, 58, "Print"],
24587	Cell[836137, 22274, 705, 18, 58, "Print"],
24588	Cell[836845, 22294, 706, 18, 58, "Print"],
24589	Cell[837554, 22314, 708, 18, 58, "Print"],
24590	Cell[838265, 22334, 228, 4, 32, "Print"],
24591	Cell[838496, 22340, 411, 9, 32, "Print"],
24592	Cell[838910, 22351, 468, 9, 32, "Print"],
24593	Cell[839381, 22362, 485, 10, 32, "Print"],
24594	Cell[839869, 22374, 290, 5, 32, "Print"],
24595	Cell[840162, 22381, 458, 9, 32, "Print"],
24596	Cell[840623, 22392, 256, 4, 32, "Print"],
24597	Cell[840882, 22398, 276, 6, 38, "Print"],
24598	Cell[841161, 22406, 376, 8, 32, "Print"]
24599	}, Open ]]
24600	}, Open ]]
24601	}, Open ]],
24602	Cell[CellGroupData[{
24603	Cell[841598, 22421, 165, 3, 46, "Subsection"],
24604	Cell[841766, 22426, 261, 6, 37, "Text"],
24605	Cell[CellGroupData[{
24606	Cell[842052, 22436, 539, 10, 59, "Input"],
24607	Cell[CellGroupData[{
24608	Cell[842616, 22450, 391, 6, 32, "Print"],
24609	Cell[843010, 22458, 378, 6, 32, "Print"],
24610	Cell[843391, 22466, 403, 6, 32, "Print"],
24611	Cell[843797, 22474, 569, 10, 32, "Print"],
24612	Cell[844369, 22486, 370, 5, 32, "Print"],
24613	Cell[844742, 22493, 389, 7, 38, "Print"],
24614	Cell[845134, 22502, 487, 9, 32, "Print"],
24615	Cell[845624, 22513, 385, 6, 32, "Print"],
24616	Cell[846012, 22521, 365, 5, 32, "Print"],
24617	Cell[846380, 22528, 390, 6, 32, "Print"],
24618	Cell[846773, 22536, 752, 13, 32, "Print"],
24619	Cell[847528, 22551, 361, 5, 32, "Print"],
24620	Cell[847892, 22558, 344, 5, 32, "Print"]
24621	}, Open ]]
24622	}, Open ]]
24623	}, Open ]],
24624	Cell[CellGroupData[{
24625	Cell[848297, 22570, 117, 2, 46, "Subsection"],
24626	Cell[848417, 22574, 199, 3, 37, "Text"],
24627	Cell[CellGroupData[{
24628	Cell[848641, 22581, 499, 10, 59, "Input"],
24629	Cell[CellGroupData[{
24630	Cell[849165, 22595, 416, 7, 32, "Print"],
24631	Cell[849584, 22604, 402, 7, 32, "Print"],
24632	Cell[849989, 22613, 552, 11, 32, "Print"],
24633	Cell[850544, 22626, 605, 11, 32, "Print"],
24634	Cell[851152, 22639, 429, 7, 32, "Print"],
24635	Cell[851584, 22648, 457, 7, 58, "Print"],
24636	Cell[852044, 22657, 385, 6, 32, "Print"],
24637	Cell[852432, 22665, 455, 7, 58, "Print"],
24638	Cell[852890, 22674, 435, 7, 32, "Print"],
24639	Cell[853328, 22683, 437, 7, 32, "Print"],
24640	Cell[853768, 22692, 550, 11, 32, "Print"],
24641	Cell[854321, 22705, 607, 11, 32, "Print"],
24642	Cell[854931, 22718, 429, 7, 32, "Print"],
24643	Cell[855363, 22727, 597, 11, 32, "Print"],
24644	Cell[855963, 22740, 398, 6, 32, "Print"],
24645	Cell[856364, 22748, 417, 8, 38, "Print"],
24646	Cell[856784, 22758, 517, 10, 32, "Print"],
24647	Cell[857304, 22770, 11062, 349, 283, "Print"],
24648	Cell[868369, 23121, 11254, 355, 283, "Print"],
24649	Cell[879626, 23478, 586, 11, 32, "Print"],
24650	Cell[880215, 23491, 616, 12, 32, "Print"]
24651	}, Open ]]
24652	}, Open ]],
24653	Cell[CellGroupData[{
24654	Cell[880880, 23509, 148, 3, 38, "Input"],
24655	Cell[881031, 23514, 2267, 61, 168, "Output"]
24656	}, Open ]],
24657	Cell[883313, 23578, 138, 2, 37, "Text"],
24658	Cell[883454, 23582, 684, 15, 119, "Input"]
24659	}, Open ]]
24660	}, Open ]]
24661	}
24662	]
24663	*)
24664
24665	(* End of internal cache information *)

Download in other formats:

Original Format