Context Navigation

Back to LED

LED: LED.nb

File LED.nb, 90.9 KB (added by Claude Duhr, 14 years ago)
Sample notebook

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[ 92901, 2900]
14	NotebookOptionsPosition[ 89981, 2795]
15	NotebookOutlinePosition[ 90409, 2814]
16	CellTagsIndexPosition[ 90366, 2811]
17	WindowFrame->Normal
18	ContainsDynamic->False*)
19
20	(* Beginning of Notebook Content *)
21	Notebook[{
22
23	Cell[CellGroupData[{
24	Cell["The Large Extra dimensions Model", "Title",
25	CellChangeTimes->{{3.405054966614888^9, 3.4050549767315893`^9},
26	3.4529230123333807`^9, {3.45405649584802^9, 3.4540564997867126`*^9}, {
27	3.4540565705776033`^9, 3.454056571055434^9}, {3.454057181466007*^9,
28	3.454057182797702*^9}}],
29
30	Cell[CellGroupData[{
31
32	Cell["Load of the FeynRules package", "Section",
33	CellChangeTimes->{{3.452856941348258^9, 3.452856954182706^9}}],
34
35	Cell[BoxData[
36	RowBox[{"Quit", "[", "]"}]], "Input",
37	CellChangeTimes->{{3.4521543016025457`^9, 3.452154302750087^9}}],
38
39	Cell[BoxData[{
40	RowBox[{
41	RowBox[{"$FeynRulesPath", "=",
42	RowBox[{"SetDirectory", "[", "\"\<<address of the package>\>\"", "]"}]}],
43	";"}], "\[IndentingNewLine]",
44	RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
45	RowBox[{
46	RowBox[{"SetDirectory", "[",
47	RowBox[{"$FeynRulesPath", "<>", "\"\</Models/LED\>\""}], "]"}],
48	";"}]}], "Input",
49	CellChangeTimes->{{3.41265862251538^9, 3.412658649947229^9}, {
50	3.423415585782702^9, 3.423415597189939^9}, {3.4234163173467493`*^9,
51	3.4234163227881193`^9}, {3.453613499780509^9, 3.453613524557995*^9}, {
52	3.454050520543564^9, 3.454050533398179^9}, {3.454056582682654*^9,
53	3.4540565840807753`^9}, {3.454061008970613^9, 3.4540610300313797`*^9},
54	3.4540621439628963`*^9}]
55	}, Open ]],
56
57	Cell[CellGroupData[{
58
59	Cell["Load of the full LED model", "Section",
60	CellChangeTimes->{{3.452856959806845^9, 3.452856965627877^9}, {
61	3.454050557859632^9, 3.454050559388439^9}, {3.454062198742198*^9,
62	3.454062202491016*^9}}],
63
64	Cell[CellGroupData[{
65
66	Cell[BoxData[
67	RowBox[{"LoadModel", "[", "\"\<LED.fr\>\"", "]"}]], "Input",
68	CellChangeTimes->{{3.402749737680746^9, 3.4027497378335543`^9},
69	3.405009528824724^9, 3.449909327040394^9, 3.452152811321804*^9,
70	3.4529230123338823`^9, 3.45405650276263^9}],
71
72	Cell[CellGroupData[{
73
74	Cell[BoxData[
75	FormBox["\<\"This model implementation was created by\"\>",
76	TraditionalForm]], "Print",
77	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
78	3.454061211313333^9, 3.454061645507628^9}],
79
80	Cell[BoxData[
81	FormBox["\<\"Priscila de Aquino\"\>", TraditionalForm]], "Print",
82	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
83	3.454061211313333^9, 3.454061645522756^9}],
84
85	Cell[BoxData[
86	FormBox["\<\"Claude Duhr\"\>", TraditionalForm]], "Print",
87	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
88	3.454061211313333^9, 3.454061645557837^9}],
89
90	Cell[BoxData[
91	FormBox[
92	InterpretationBox[
93	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
94	SequenceForm["Model Version: ", "1.0"],
95	Editable->False], TraditionalForm]], "Print",
96	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
97	3.454061211313333^9, 3.454061645590395^9}],
98
99	Cell[BoxData[
100	FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print",
101	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
102	3.454061211313333^9, 3.454061645623332^9}],
103
104	Cell[BoxData[
105	FormBox["\<\"Phys. Rev. D59: 105006 (1999), hep-ph/9811350\"\>",
106	TraditionalForm]], "Print",
107	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
108	3.454061211313333^9, 3.4540616456571903`^9}],
109
110	Cell[BoxData[
111	FormBox["\<\"Nucl. Phys. B544 (1999), hep-ph/9811291\"\>",
112	TraditionalForm]], "Print",
113	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
114	3.454061211313333^9, 3.454061645690363^9}],
115
116	Cell[BoxData[
117	FormBox["\<\"Eur. Phys. J. C56 (2008), hep-ph/0805.2554\"\>",
118	TraditionalForm]], "Print",
119	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
120	3.454061211313333^9, 3.4540616457235813`^9}],
121
122	Cell[BoxData[
123	FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/LED\"\>",
124	TraditionalForm]], "Print",
125	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
126	3.454061211313333^9, 3.454061645756584^9}],
127
128	Cell[BoxData[
129	FormBox["\<\"For more information, type ModelInformation[].\"\>",
130	TraditionalForm]], "Print",
131	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
132	3.454061211313333^9, 3.45406164578946^9}],
133
134	Cell[BoxData[
135	FormBox["\<\"\"\>", TraditionalForm]], "Print",
136	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
137	3.454061211313333^9, 3.4540616458229923`^9}],
138
139	Cell[BoxData[
140	FormBox["\<\" - Loading particle classes.\"\>", TraditionalForm]], "Print",\
141
142	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
143	3.454061211313333^9, 3.454061645857395^9}],
144
145	Cell[BoxData[
146	FormBox["\<\" - Loading gauge group classes.\"\>",
147	TraditionalForm]], "Print",
148	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
149	3.454061211313333^9, 3.454061645889122^9}],
150
151	Cell[BoxData[
152	FormBox["\<\" - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
153
154	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
155	3.454061211313333^9, 3.454061645922811^9}],
156
157	Cell[BoxData[
158	FormBox[
159	InterpretationBox[
160	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"LED\"\>",
161	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
162	SequenceForm["\nModel ", "LED", " loaded."],
163	Editable->False], TraditionalForm]], "Print",
164	CellChangeTimes->{{3.454061149331262^9, 3.454061153172738^9},
165	3.454061211313333^9, 3.454061645963604^9}]
166	}, Open ]]
167	}, Open ]]
168	}, Open ]],
169
170	Cell[CellGroupData[{
171
172	Cell["The full LED lagrangian", "Section",
173	CellChangeTimes->{{3.411910065227421^9, 3.411910071535137^9}, {
174	3.4540507294896593`^9, 3.4540507310208197`^9}, {3.4540567139322166`*^9,
175	3.454056718777896*^9}}],
176
177	Cell[CellGroupData[{
178
179	Cell["Gauge sector", "Subsubsection",
180	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
181	3.454057138248085^9, 3.454057139479412^9}}],
182
183	Cell[CellGroupData[{
184
185	Cell[BoxData["LagG"], "Input",
186	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
187	3.454050790694797^9, 3.454050807408856^9}, 3.454052286514977*^9, {
188	3.454057086606534^9, 3.4540570873864717`^9}, 3.454061218230431*^9}],
189
190	Cell[BoxData[
191	FormBox[
192	RowBox[{
193	RowBox[{"-",
194	FractionBox["1", "2"]}], " ",
195	FormBox["\[Kappa]",
196	TraditionalForm], " ",
197	RowBox[{
198	FormBox[
199	SubscriptBox["h",
200	RowBox[{
201	FormBox["\[Mu]",
202	TraditionalForm], ",",
203	FormBox["\[Nu]",
204	TraditionalForm]}]],
205	TraditionalForm], ".",
206	RowBox[{"(",
207	RowBox[{
208	RowBox[{
209	RowBox[{"-",
210	RowBox[{"(",
211	RowBox[{
212	FormBox[
213	RowBox[{
214	SubscriptBox["\<\"\[PartialD]\"\>",
215	FormBox["\[Mu]",
216	TraditionalForm]], "(",
217	FormBox[
218	SubscriptBox["B",
219	FormBox["\[Rho]",
220	TraditionalForm]],
221	TraditionalForm], ")"}],
222	TraditionalForm], "-",
223	FormBox[
224	RowBox[{
225	SubscriptBox["\<\"\[PartialD]\"\>",
226	FormBox["\[Rho]",
227	TraditionalForm]], "(",
228	FormBox[
229	SubscriptBox["B",
230	FormBox["\[Mu]",
231	TraditionalForm]],
232	TraditionalForm], ")"}],
233	TraditionalForm]}], ")"}]}], " ",
234	RowBox[{"(",
235	RowBox[{
236	FormBox[
237	RowBox[{
238	SubscriptBox["\<\"\[PartialD]\"\>",
239	FormBox["\[Nu]",
240	TraditionalForm]], "(",
241	FormBox[
242	SubscriptBox["B",
243	FormBox["\[Rho]",
244	TraditionalForm]],
245	TraditionalForm], ")"}],
246	TraditionalForm], "-",
247	FormBox[
248	RowBox[{
249	SubscriptBox["\<\"\[PartialD]\"\>",
250	FormBox["\[Rho]",
251	TraditionalForm]], "(",
252	FormBox[
253	SubscriptBox["B",
254	FormBox["\[Nu]",
255	TraditionalForm]],
256	TraditionalForm], ")"}],
257	TraditionalForm]}], ")"}]}], "-",
258	RowBox[{
259	FormBox[
260	SubscriptBox["\[Eta]",
261	RowBox[{
262	FormBox[
263	FormBox["\[Mu]",
264	TraditionalForm],
265	TraditionalForm], ",",
266	FormBox[
267	FormBox["\[Nu]",
268	TraditionalForm],
269	TraditionalForm]}]],
270	TraditionalForm], ".",
271	RowBox[{"(",
272	RowBox[{
273	RowBox[{
274	RowBox[{"-",
275	FractionBox["1", "4"]}], " ",
276	SuperscriptBox[
277	RowBox[{"(",
278	RowBox[{
279	FormBox[
280	RowBox[{
281	SubscriptBox["\<\"\[PartialD]\"\>",
282	FormBox["\[Rho]",
283	TraditionalForm]], "(",
284	FormBox[
285	SubscriptBox["B", "sig"],
286	TraditionalForm], ")"}],
287	TraditionalForm], "-",
288	FormBox[
289	RowBox[{
290	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
291	FormBox[
292	SubscriptBox["B",
293	FormBox["\[Rho]",
294	TraditionalForm]],
295	TraditionalForm], ")"}],
296	TraditionalForm]}], ")"}], "2"]}], "-",
297	RowBox[{
298	FractionBox["1", "4"], " ",
299	RowBox[{"(",
300	RowBox[{
301	RowBox[{"-",
302	FormBox[
303	RowBox[{
304	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
305	FormBox[
306	SubscriptBox["G",
307	RowBox[{
308	FormBox["\[Rho]",
309	TraditionalForm], ",", "a1"}]],
310	TraditionalForm], ")"}],
311	TraditionalForm]}], "+",
312	FormBox[
313	RowBox[{
314	SubscriptBox["\<\"\[PartialD]\"\>",
315	FormBox["\[Rho]",
316	TraditionalForm]], "(",
317	FormBox[
318	SubscriptBox["G",
319	RowBox[{"sig", ",", "a1"}]],
320	TraditionalForm], ")"}],
321	TraditionalForm], "+",
322	RowBox[{
323	FormBox[
324	SubscriptBox["g", "s"],
325	TraditionalForm], " ",
326	FormBox[
327	SubscriptBox["f",
328	RowBox[{"a1", ",", "a2", ",", "a3"}]],
329	TraditionalForm], " ",
330	FormBox[
331	SubscriptBox["G",
332	RowBox[{
333	FormBox["\[Rho]",
334	TraditionalForm], ",", "a2"}]],
335	TraditionalForm], " ",
336	FormBox[
337	SubscriptBox["G",
338	RowBox[{"sig", ",", "a3"}]],
339	TraditionalForm]}]}], ")"}], " ",
340	RowBox[{"(",
341	RowBox[{
342	RowBox[{"-",
343	FormBox[
344	RowBox[{
345	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
346	FormBox[
347	SubscriptBox["G",
348	RowBox[{
349	FormBox["\[Rho]",
350	TraditionalForm], ",", "a1"}]],
351	TraditionalForm], ")"}],
352	TraditionalForm]}], "+",
353	FormBox[
354	RowBox[{
355	SubscriptBox["\<\"\[PartialD]\"\>",
356	FormBox["\[Rho]",
357	TraditionalForm]], "(",
358	FormBox[
359	SubscriptBox["G",
360	RowBox[{"sig", ",", "a1"}]],
361	TraditionalForm], ")"}],
362	TraditionalForm], "+",
363	RowBox[{
364	FormBox[
365	SubscriptBox["g", "s"],
366	TraditionalForm], " ",
367	FormBox[
368	SubscriptBox["f",
369	RowBox[{"a1", ",", "a4", ",", "a5"}]],
370	TraditionalForm], " ",
371	FormBox[
372	SubscriptBox["G",
373	RowBox[{
374	FormBox["\[Rho]",
375	TraditionalForm], ",", "a4"}]],
376	TraditionalForm], " ",
377	FormBox[
378	SubscriptBox["G",
379	RowBox[{"sig", ",", "a5"}]],
380	TraditionalForm]}]}], ")"}]}], "-",
381	RowBox[{
382	FractionBox["1", "4"], " ",
383	RowBox[{"(",
384	RowBox[{
385	RowBox[{"-",
386	FormBox[
387	RowBox[{
388	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
389	FormBox[
390	SubscriptBox["Wi",
391	RowBox[{
392	FormBox["\[Rho]",
393	TraditionalForm], ",", "i1"}]],
394	TraditionalForm], ")"}],
395	TraditionalForm]}], "+",
396	FormBox[
397	RowBox[{
398	SubscriptBox["\<\"\[PartialD]\"\>",
399	FormBox["\[Rho]",
400	TraditionalForm]], "(",
401	FormBox[
402	SubscriptBox["Wi",
403	RowBox[{"sig", ",", "i1"}]],
404	TraditionalForm], ")"}],
405	TraditionalForm], "+",
406	FractionBox[
407	RowBox[{
408	FormBox["e",
409	TraditionalForm], " ",
410	FormBox[
411	SubscriptBox["\[Epsilon]",
412	RowBox[{"i1", ",", "i2", ",", "i3"}]],
413	TraditionalForm], " ",
414	FormBox[
415	SubscriptBox["Wi",
416	RowBox[{
417	FormBox["\[Rho]",
418	TraditionalForm], ",", "i2"}]],
419	TraditionalForm], " ",
420	FormBox[
421	SubscriptBox["Wi",
422	RowBox[{"sig", ",", "i3"}]],
423	TraditionalForm]}],
424	FormBox[
425	SubscriptBox["s", "w"],
426	TraditionalForm]]}], ")"}], " ",
427	RowBox[{"(",
428	RowBox[{
429	RowBox[{"-",
430	FormBox[
431	RowBox[{
432	SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
433	FormBox[
434	SubscriptBox["Wi",
435	RowBox[{
436	FormBox["\[Rho]",
437	TraditionalForm], ",", "i1"}]],
438	TraditionalForm], ")"}],
439	TraditionalForm]}], "+",
440	FormBox[
441	RowBox[{
442	SubscriptBox["\<\"\[PartialD]\"\>",
443	FormBox["\[Rho]",
444	TraditionalForm]], "(",
445	FormBox[
446	SubscriptBox["Wi",
447	RowBox[{"sig", ",", "i1"}]],
448	TraditionalForm], ")"}],
449	TraditionalForm], "+",
450	FractionBox[
451	RowBox[{
452	FormBox["e",
453	TraditionalForm], " ",
454	FormBox[
455	SubscriptBox["\[Epsilon]",
456	RowBox[{"i1", ",", "i4", ",", "i5"}]],
457	TraditionalForm], " ",
458	FormBox[
459	SubscriptBox["Wi",
460	RowBox[{
461	FormBox["\[Rho]",
462	TraditionalForm], ",", "i4"}]],
463	TraditionalForm], " ",
464	FormBox[
465	SubscriptBox["Wi",
466	RowBox[{"sig", ",", "i5"}]],
467	TraditionalForm]}],
468	FormBox[
469	SubscriptBox["s", "w"],
470	TraditionalForm]]}], ")"}]}]}], ")"}]}], "-",
471	RowBox[{
472	RowBox[{"(",
473	RowBox[{
474	RowBox[{"-",
475	FormBox[
476	RowBox[{
477	SubscriptBox["\<\"\[PartialD]\"\>",
478	FormBox["\[Rho]",
479	TraditionalForm]], "(",
480	FormBox[
481	SubscriptBox["G",
482	RowBox[{
483	FormBox["\[Mu]",
484	TraditionalForm], ",", "a1"}]],
485	TraditionalForm], ")"}],
486	TraditionalForm]}], "+",
487	FormBox[
488	RowBox[{
489	SubscriptBox["\<\"\[PartialD]\"\>",
490	FormBox["\[Mu]",
491	TraditionalForm]], "(",
492	FormBox[
493	SubscriptBox["G",
494	RowBox[{
495	FormBox["\[Rho]",
496	TraditionalForm], ",", "a1"}]],
497	TraditionalForm], ")"}],
498	TraditionalForm], "+",
499	RowBox[{
500	FormBox[
501	SubscriptBox["g", "s"],
502	TraditionalForm], " ",
503	FormBox[
504	SubscriptBox["f",
505	RowBox[{"a1", ",", "a2", ",", "a3"}]],
506	TraditionalForm], " ",
507	FormBox[
508	SubscriptBox["G",
509	RowBox[{
510	FormBox["\[Mu]",
511	TraditionalForm], ",", "a2"}]],
512	TraditionalForm], " ",
513	FormBox[
514	SubscriptBox["G",
515	RowBox[{
516	FormBox["\[Rho]",
517	TraditionalForm], ",", "a3"}]],
518	TraditionalForm]}]}], ")"}], " ",
519	RowBox[{"(",
520	RowBox[{
521	RowBox[{"-",
522	FormBox[
523	RowBox[{
524	SubscriptBox["\<\"\[PartialD]\"\>",
525	FormBox["\[Rho]",
526	TraditionalForm]], "(",
527	FormBox[
528	SubscriptBox["G",
529	RowBox[{
530	FormBox["\[Nu]",
531	TraditionalForm], ",", "a1"}]],
532	TraditionalForm], ")"}],
533	TraditionalForm]}], "+",
534	FormBox[
535	RowBox[{
536	SubscriptBox["\<\"\[PartialD]\"\>",
537	FormBox["\[Nu]",
538	TraditionalForm]], "(",
539	FormBox[
540	SubscriptBox["G",
541	RowBox[{
542	FormBox["\[Rho]",
543	TraditionalForm], ",", "a1"}]],
544	TraditionalForm], ")"}],
545	TraditionalForm], "+",
546	RowBox[{
547	FormBox[
548	SubscriptBox["g", "s"],
549	TraditionalForm], " ",
550	FormBox[
551	SubscriptBox["f",
552	RowBox[{"a1", ",", "a2", ",", "a3"}]],
553	TraditionalForm], " ",
554	FormBox[
555	SubscriptBox["G",
556	RowBox[{
557	FormBox["\[Nu]",
558	TraditionalForm], ",", "a2"}]],
559	TraditionalForm], " ",
560	FormBox[
561	SubscriptBox["G",
562	RowBox[{
563	FormBox["\[Rho]",
564	TraditionalForm], ",", "a3"}]],
565	TraditionalForm]}]}], ")"}]}], "-",
566	RowBox[{
567	RowBox[{"(",
568	RowBox[{
569	RowBox[{"-",
570	FormBox[
571	RowBox[{
572	SubscriptBox["\<\"\[PartialD]\"\>",
573	FormBox["\[Rho]",
574	TraditionalForm]], "(",
575	FormBox[
576	SubscriptBox["Wi",
577	RowBox[{
578	FormBox["\[Mu]",
579	TraditionalForm], ",", "i1"}]],
580	TraditionalForm], ")"}],
581	TraditionalForm]}], "+",
582	FormBox[
583	RowBox[{
584	SubscriptBox["\<\"\[PartialD]\"\>",
585	FormBox["\[Mu]",
586	TraditionalForm]], "(",
587	FormBox[
588	SubscriptBox["Wi",
589	RowBox[{
590	FormBox["\[Rho]",
591	TraditionalForm], ",", "i1"}]],
592	TraditionalForm], ")"}],
593	TraditionalForm], "+",
594	FractionBox[
595	RowBox[{
596	FormBox["e",
597	TraditionalForm], " ",
598	FormBox[
599	SubscriptBox["\[Epsilon]",
600	RowBox[{"i1", ",", "i2", ",", "i3"}]],
601	TraditionalForm], " ",
602	FormBox[
603	SubscriptBox["Wi",
604	RowBox[{
605	FormBox["\[Mu]",
606	TraditionalForm], ",", "i2"}]],
607	TraditionalForm], " ",
608	FormBox[
609	SubscriptBox["Wi",
610	RowBox[{
611	FormBox["\[Rho]",
612	TraditionalForm], ",", "i3"}]],
613	TraditionalForm]}],
614	FormBox[
615	SubscriptBox["s", "w"],
616	TraditionalForm]]}], ")"}], " ",
617	RowBox[{"(",
618	RowBox[{
619	RowBox[{"-",
620	FormBox[
621	RowBox[{
622	SubscriptBox["\<\"\[PartialD]\"\>",
623	FormBox["\[Rho]",
624	TraditionalForm]], "(",
625	FormBox[
626	SubscriptBox["Wi",
627	RowBox[{
628	FormBox["\[Nu]",
629	TraditionalForm], ",", "i1"}]],
630	TraditionalForm], ")"}],
631	TraditionalForm]}], "+",
632	FormBox[
633	RowBox[{
634	SubscriptBox["\<\"\[PartialD]\"\>",
635	FormBox["\[Nu]",
636	TraditionalForm]], "(",
637	FormBox[
638	SubscriptBox["Wi",
639	RowBox[{
640	FormBox["\[Rho]",
641	TraditionalForm], ",", "i1"}]],
642	TraditionalForm], ")"}],
643	TraditionalForm], "+",
644	FractionBox[
645	RowBox[{
646	FormBox["e",
647	TraditionalForm], " ",
648	FormBox[
649	SubscriptBox["\[Epsilon]",
650	RowBox[{"i1", ",", "i4", ",", "i5"}]],
651	TraditionalForm], " ",
652	FormBox[
653	SubscriptBox["Wi",
654	RowBox[{
655	FormBox["\[Nu]",
656	TraditionalForm], ",", "i4"}]],
657	TraditionalForm], " ",
658	FormBox[
659	SubscriptBox["Wi",
660	RowBox[{
661	FormBox["\[Rho]",
662	TraditionalForm], ",", "i5"}]],
663	TraditionalForm]}],
664	FormBox[
665	SubscriptBox["s", "w"],
666	TraditionalForm]]}], ")"}]}]}], ")"}]}]}],
667	TraditionalForm]], "Output",
668	CellChangeTimes->{3.4540612188923187`*^9}]
669	}, Closed]]
670	}, Open ]],
671
672	Cell[CellGroupData[{
673
674	Cell["Scalar sector", "Subsubsection",
675	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
676	3.411910274288354^9, 3.41191027703699^9}}],
677
678	Cell[CellGroupData[{
679
680	Cell[BoxData["LagH"], "Input",
681	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
682	3.411910290186841^9, 3.411910292005392^9}, 3.454052293282386*^9, {
683	3.454057094128326^9, 3.454057094642251^9}, 3.45406122079182*^9}],
684
685	Cell[BoxData[
686	FormBox[
687	RowBox[{
688	RowBox[{"-",
689	FractionBox["1", "2"]}], " ",
690	FormBox["\[Kappa]",
691	TraditionalForm], " ",
692	RowBox[{
693	FormBox[
694	SubscriptBox["h",
695	RowBox[{
696	FormBox["\[Mu]",
697	TraditionalForm], ",",
698	FormBox["\[Nu]",
699	TraditionalForm]}]],
700	TraditionalForm], ".",
701	RowBox[{"(",
702	RowBox[{
703	RowBox[{
704	RowBox[{"-",
705	FractionBox["1", "4"]}], " ", "\[Lambda]", " ",
706	SuperscriptBox[
707	RowBox[{"(",
708	RowBox[{"H", "+", "v"}], ")"}], "4"]}], "+",
709	RowBox[{
710	FractionBox["1", "2"], " ",
711	SuperscriptBox[
712	FormBox["\[Mu]",
713	TraditionalForm], "2"], " ",
714	SuperscriptBox[
715	RowBox[{"(",
716	RowBox[{"H", "+", "v"}], ")"}], "2"]}], "+",
717	FractionBox[
718	RowBox[{
719	SuperscriptBox[
720	FormBox["e",
721	TraditionalForm], "2"], " ",
722	RowBox[{"(",
723	RowBox[{
724	FormBox[
725	SubscriptBox["Wi",
726	RowBox[{
727	FormBox["\[Mu]",
728	TraditionalForm], ",", "1"}]],
729	TraditionalForm], "+",
730	RowBox[{"\[ImaginaryI]", " ",
731	FormBox[
732	SubscriptBox["Wi",
733	RowBox[{
734	FormBox["\[Mu]",
735	TraditionalForm], ",", "2"}]],
736	TraditionalForm]}]}], ")"}], " ",
737	RowBox[{"(",
738	RowBox[{
739	FormBox[
740	SubscriptBox["Wi",
741	RowBox[{
742	FormBox["\[Nu]",
743	TraditionalForm], ",", "1"}]],
744	TraditionalForm], "-",
745	RowBox[{"\[ImaginaryI]", " ",
746	FormBox[
747	SubscriptBox["Wi",
748	RowBox[{
749	FormBox["\[Nu]",
750	TraditionalForm], ",", "2"}]],
751	TraditionalForm]}]}], ")"}], " ",
752	SuperscriptBox[
753	RowBox[{"(",
754	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
755	RowBox[{"8", " ",
756	SuperscriptBox[
757	FormBox[
758	SubscriptBox["s", "w"],
759	TraditionalForm], "2"]}]], "+",
760	FractionBox[
761	RowBox[{
762	SuperscriptBox[
763	FormBox["e",
764	TraditionalForm], "2"], " ",
765	RowBox[{"(",
766	RowBox[{
767	FormBox[
768	SubscriptBox["Wi",
769	RowBox[{
770	FormBox["\[Mu]",
771	TraditionalForm], ",", "1"}]],
772	TraditionalForm], "-",
773	RowBox[{"\[ImaginaryI]", " ",
774	FormBox[
775	SubscriptBox["Wi",
776	RowBox[{
777	FormBox["\[Mu]",
778	TraditionalForm], ",", "2"}]],
779	TraditionalForm]}]}], ")"}], " ",
780	RowBox[{"(",
781	RowBox[{
782	FormBox[
783	SubscriptBox["Wi",
784	RowBox[{
785	FormBox["\[Nu]",
786	TraditionalForm], ",", "1"}]],
787	TraditionalForm], "+",
788	RowBox[{"\[ImaginaryI]", " ",
789	FormBox[
790	SubscriptBox["Wi",
791	RowBox[{
792	FormBox["\[Nu]",
793	TraditionalForm], ",", "2"}]],
794	TraditionalForm]}]}], ")"}], " ",
795	SuperscriptBox[
796	RowBox[{"(",
797	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
798	RowBox[{"8", " ",
799	SuperscriptBox[
800	FormBox[
801	SubscriptBox["s", "w"],
802	TraditionalForm], "2"]}]], "-",
803	RowBox[{
804	FormBox[
805	SubscriptBox["\[Eta]",
806	RowBox[{
807	FormBox[
808	FormBox["\[Mu]",
809	TraditionalForm],
810	TraditionalForm], ",",
811	FormBox[
812	FormBox["\[Nu]",
813	TraditionalForm],
814	TraditionalForm]}]],
815	TraditionalForm], ".",
816	RowBox[{"(",
817	RowBox[{
818	FractionBox[
819	RowBox[{
820	SuperscriptBox[
821	FormBox["e",
822	TraditionalForm], "2"], " ",
823	RowBox[{"(",
824	RowBox[{
825	FormBox[
826	SubscriptBox["Wi",
827	RowBox[{
828	FormBox["\[Rho]",
829	TraditionalForm], ",", "1"}]],
830	TraditionalForm], "-",
831	RowBox[{"\[ImaginaryI]", " ",
832	FormBox[
833	SubscriptBox["Wi",
834	RowBox[{
835	FormBox["\[Rho]",
836	TraditionalForm], ",", "2"}]],
837	TraditionalForm]}]}], ")"}], " ",
838	RowBox[{"(",
839	RowBox[{
840	FormBox[
841	SubscriptBox["Wi",
842	RowBox[{
843	FormBox["\[Rho]",
844	TraditionalForm], ",", "1"}]],
845	TraditionalForm], "+",
846	RowBox[{"\[ImaginaryI]", " ",
847	FormBox[
848	SubscriptBox["Wi",
849	RowBox[{
850	FormBox["\[Rho]",
851	TraditionalForm], ",", "2"}]],
852	TraditionalForm]}]}], ")"}], " ",
853	SuperscriptBox[
854	RowBox[{"(",
855	RowBox[{"H", "+", "v"}], ")"}], "2"]}],
856	RowBox[{"8", " ",
857	SuperscriptBox[
858	FormBox[
859	SubscriptBox["s", "w"],
860	TraditionalForm], "2"]}]], "+",
861	RowBox[{
862	RowBox[{"(",
863	RowBox[{
864	FractionBox[
865	RowBox[{
866	FormBox["e",
867	TraditionalForm], " ",
868	RowBox[{"(",
869	RowBox[{"H", "+", "v"}], ")"}], " ",
870	FormBox[
871	SubscriptBox["B",
872	FormBox["\[Rho]",
873	TraditionalForm]],
874	TraditionalForm]}],
875	RowBox[{"2", " ",
876	SqrtBox["2"], " ",
877	FormBox[
878	SubscriptBox["c", "w"],
879	TraditionalForm]}]], "-",
880	FractionBox[
881	RowBox[{"\[ImaginaryI]", " ",
882	FormBox[
883	RowBox[{
884	SubscriptBox["\<\"\[PartialD]\"\>",
885	FormBox["\[Rho]",
886	TraditionalForm]], "(", "H", ")"}],
887	TraditionalForm]}],
888	SqrtBox["2"]], "-",
889	FractionBox[
890	RowBox[{
891	FormBox["e",
892	TraditionalForm], " ",
893	RowBox[{"(",
894	RowBox[{"H", "+", "v"}], ")"}], " ",
895	FormBox[
896	SubscriptBox["Wi",
897	RowBox[{
898	FormBox["\[Rho]",
899	TraditionalForm], ",", "3"}]],
900	TraditionalForm]}],
901	RowBox[{"2", " ",
902	SqrtBox["2"], " ",
903	FormBox[
904	SubscriptBox["s", "w"],
905	TraditionalForm]}]]}], ")"}], " ",
906	RowBox[{"(",
907	RowBox[{
908	FractionBox[
909	RowBox[{
910	FormBox["e",
911	TraditionalForm], " ",
912	RowBox[{"(",
913	RowBox[{"H", "+", "v"}], ")"}], " ",
914	FormBox[
915	SubscriptBox["B",
916	FormBox["\[Rho]",
917	TraditionalForm]],
918	TraditionalForm]}],
919	RowBox[{"2", " ",
920	SqrtBox["2"], " ",
921	FormBox[
922	SubscriptBox["c", "w"],
923	TraditionalForm]}]], "+",
924	FractionBox[
925	RowBox[{"\[ImaginaryI]", " ",
926	FormBox[
927	RowBox[{
928	SubscriptBox["\<\"\[PartialD]\"\>",
929	FormBox["\[Rho]",
930	TraditionalForm]], "(", "H", ")"}],
931	TraditionalForm]}],
932	SqrtBox["2"]], "-",
933	FractionBox[
934	RowBox[{
935	FormBox["e",
936	TraditionalForm], " ",
937	RowBox[{"(",
938	RowBox[{"H", "+", "v"}], ")"}], " ",
939	FormBox[
940	SubscriptBox["Wi",
941	RowBox[{
942	FormBox["\[Rho]",
943	TraditionalForm], ",", "3"}]],
944	TraditionalForm]}],
945	RowBox[{"2", " ",
946	SqrtBox["2"], " ",
947	FormBox[
948	SubscriptBox["s", "w"],
949	TraditionalForm]}]]}], ")"}]}]}], ")"}]}], "+",
950	RowBox[{
951	RowBox[{"(",
952	RowBox[{
953	FractionBox[
954	RowBox[{
955	FormBox["e",
956	TraditionalForm], " ",
957	RowBox[{"(",
958	RowBox[{"H", "+", "v"}], ")"}], " ",
959	FormBox[
960	SubscriptBox["B",
961	FormBox["\[Mu]",
962	TraditionalForm]],
963	TraditionalForm]}],
964	RowBox[{"2", " ",
965	SqrtBox["2"], " ",
966	FormBox[
967	SubscriptBox["c", "w"],
968	TraditionalForm]}]], "+",
969	FractionBox[
970	RowBox[{"\[ImaginaryI]", " ",
971	FormBox[
972	RowBox[{
973	SubscriptBox["\<\"\[PartialD]\"\>",
974	FormBox["\[Mu]",
975	TraditionalForm]], "(", "H", ")"}],
976	TraditionalForm]}],
977	SqrtBox["2"]], "-",
978	FractionBox[
979	RowBox[{
980	FormBox["e",
981	TraditionalForm], " ",
982	RowBox[{"(",
983	RowBox[{"H", "+", "v"}], ")"}], " ",
984	FormBox[
985	SubscriptBox["Wi",
986	RowBox[{
987	FormBox["\[Mu]",
988	TraditionalForm], ",", "3"}]],
989	TraditionalForm]}],
990	RowBox[{"2", " ",
991	SqrtBox["2"], " ",
992	FormBox[
993	SubscriptBox["s", "w"],
994	TraditionalForm]}]]}], ")"}], " ",
995	RowBox[{"(",
996	RowBox[{
997	FractionBox[
998	RowBox[{
999	FormBox["e",
1000	TraditionalForm], " ",
1001	RowBox[{"(",
1002	RowBox[{"H", "+", "v"}], ")"}], " ",
1003	FormBox[
1004	SubscriptBox["B",
1005	FormBox["\[Nu]",
1006	TraditionalForm]],
1007	TraditionalForm]}],
1008	RowBox[{"2", " ",
1009	SqrtBox["2"], " ",
1010	FormBox[
1011	SubscriptBox["c", "w"],
1012	TraditionalForm]}]], "-",
1013	FractionBox[
1014	RowBox[{"\[ImaginaryI]", " ",
1015	FormBox[
1016	RowBox[{
1017	SubscriptBox["\<\"\[PartialD]\"\>",
1018	FormBox["\[Nu]",
1019	TraditionalForm]], "(", "H", ")"}],
1020	TraditionalForm]}],
1021	SqrtBox["2"]], "-",
1022	FractionBox[
1023	RowBox[{
1024	FormBox["e",
1025	TraditionalForm], " ",
1026	RowBox[{"(",
1027	RowBox[{"H", "+", "v"}], ")"}], " ",
1028	FormBox[
1029	SubscriptBox["Wi",
1030	RowBox[{
1031	FormBox["\[Nu]",
1032	TraditionalForm], ",", "3"}]],
1033	TraditionalForm]}],
1034	RowBox[{"2", " ",
1035	SqrtBox["2"], " ",
1036	FormBox[
1037	SubscriptBox["s", "w"],
1038	TraditionalForm]}]]}], ")"}]}], "+",
1039	RowBox[{
1040	RowBox[{"(",
1041	RowBox[{
1042	FractionBox[
1043	RowBox[{
1044	FormBox["e",
1045	TraditionalForm], " ",
1046	RowBox[{"(",
1047	RowBox[{"H", "+", "v"}], ")"}], " ",
1048	FormBox[
1049	SubscriptBox["B",
1050	FormBox["\[Mu]",
1051	TraditionalForm]],
1052	TraditionalForm]}],
1053	RowBox[{"2", " ",
1054	SqrtBox["2"], " ",
1055	FormBox[
1056	SubscriptBox["c", "w"],
1057	TraditionalForm]}]], "-",
1058	FractionBox[
1059	RowBox[{"\[ImaginaryI]", " ",
1060	FormBox[
1061	RowBox[{
1062	SubscriptBox["\<\"\[PartialD]\"\>",
1063	FormBox["\[Mu]",
1064	TraditionalForm]], "(", "H", ")"}],
1065	TraditionalForm]}],
1066	SqrtBox["2"]], "-",
1067	FractionBox[
1068	RowBox[{
1069	FormBox["e",
1070	TraditionalForm], " ",
1071	RowBox[{"(",
1072	RowBox[{"H", "+", "v"}], ")"}], " ",
1073	FormBox[
1074	SubscriptBox["Wi",
1075	RowBox[{
1076	FormBox["\[Mu]",
1077	TraditionalForm], ",", "3"}]],
1078	TraditionalForm]}],
1079	RowBox[{"2", " ",
1080	SqrtBox["2"], " ",
1081	FormBox[
1082	SubscriptBox["s", "w"],
1083	TraditionalForm]}]]}], ")"}], " ",
1084	RowBox[{"(",
1085	RowBox[{
1086	FractionBox[
1087	RowBox[{
1088	FormBox["e",
1089	TraditionalForm], " ",
1090	RowBox[{"(",
1091	RowBox[{"H", "+", "v"}], ")"}], " ",
1092	FormBox[
1093	SubscriptBox["B",
1094	FormBox["\[Nu]",
1095	TraditionalForm]],
1096	TraditionalForm]}],
1097	RowBox[{"2", " ",
1098	SqrtBox["2"], " ",
1099	FormBox[
1100	SubscriptBox["c", "w"],
1101	TraditionalForm]}]], "+",
1102	FractionBox[
1103	RowBox[{"\[ImaginaryI]", " ",
1104	FormBox[
1105	RowBox[{
1106	SubscriptBox["\<\"\[PartialD]\"\>",
1107	FormBox["\[Nu]",
1108	TraditionalForm]], "(", "H", ")"}],
1109	TraditionalForm]}],
1110	SqrtBox["2"]], "-",
1111	FractionBox[
1112	RowBox[{
1113	FormBox["e",
1114	TraditionalForm], " ",
1115	RowBox[{"(",
1116	RowBox[{"H", "+", "v"}], ")"}], " ",
1117	FormBox[
1118	SubscriptBox["Wi",
1119	RowBox[{
1120	FormBox["\[Nu]",
1121	TraditionalForm], ",", "3"}]],
1122	TraditionalForm]}],
1123	RowBox[{"2", " ",
1124	SqrtBox["2"], " ",
1125	FormBox[
1126	SubscriptBox["s", "w"],
1127	TraditionalForm]}]]}], ")"}]}]}], ")"}]}]}],
1128	TraditionalForm]], "Output",
1129	CellChangeTimes->{3.454061221137125*^9}]
1130	}, Closed]]
1131	}, Open ]],
1132
1133	Cell[CellGroupData[{
1134
1135	Cell["Fermion sector", "Subsubsection",
1136	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
1137	3.4119103528868923`^9, 3.411910357404933^9}}],
1138
1139	Cell[CellGroupData[{
1140
1141	Cell[BoxData["LagF"], "Input",
1142	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
1143	3.411910379677638^9, 3.4119103807255^9}, {3.454050812632284*^9,
1144	3.4540508182235947`^9}, 3.4540522991223593`^9, {3.454057102034585*^9,
1145	3.454057104921763^9}, 3.454061223464816^9}],
1146
1147	Cell[BoxData[
1148	FormBox[
1149	RowBox[{
1150	RowBox[{"-",
1151	FractionBox["1", "2"]}], " ",
1152	FormBox["\[Kappa]",
1153	TraditionalForm], " ",
1154	RowBox[{
1155	FormBox[
1156	SubscriptBox["h",
1157	RowBox[{
1158	FormBox["\[Mu]",
1159	TraditionalForm], ",",
1160	FormBox["\[Nu]",
1161	TraditionalForm]}]],
1162	TraditionalForm], ".",
1163	RowBox[{"(",
1164	RowBox[{
1165	RowBox[{
1166	RowBox[{"-",
1167	FractionBox["1", "4"]}], " ", "\[ImaginaryI]", " ",
1168	FormBox[
1169	RowBox[{
1170	SubscriptBox["\<\"\[PartialD]\"\>",
1171	FormBox["\[Nu]",
1172	TraditionalForm]], "(",
1173	RowBox[{
1174	FormBox[
1175	SuperscriptBox["dq", "\[Dagger]"],
1176	TraditionalForm], ".",
1177	FormBox[
1178	SuperscriptBox["\[Gamma]",
1179	FormBox["\[Mu]",
1180	TraditionalForm]],
1181	TraditionalForm], ".", "dq"}], ")"}],
1182	TraditionalForm]}], "-",
1183	RowBox[{
1184	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1185	FormBox[
1186	RowBox[{
1187	SubscriptBox["\<\"\[PartialD]\"\>",
1188	FormBox["\[Mu]",
1189	TraditionalForm]], "(",
1190	RowBox[{
1191	FormBox[
1192	SuperscriptBox["dq", "\[Dagger]"],
1193	TraditionalForm], ".",
1194	FormBox[
1195	SuperscriptBox["\[Gamma]",
1196	FormBox["\[Nu]",
1197	TraditionalForm]],
1198	TraditionalForm], ".", "dq"}], ")"}],
1199	TraditionalForm]}], "-",
1200	RowBox[{
1201	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1202	FormBox[
1203	RowBox[{
1204	SubscriptBox["\<\"\[PartialD]\"\>",
1205	FormBox["\[Nu]",
1206	TraditionalForm]], "(",
1207	RowBox[{
1208	FormBox[
1209	SuperscriptBox["l", "\[Dagger]"],
1210	TraditionalForm], ".",
1211	FormBox[
1212	SuperscriptBox["\[Gamma]",
1213	FormBox["\[Mu]",
1214	TraditionalForm]],
1215	TraditionalForm], ".", "l"}], ")"}],
1216	TraditionalForm]}], "-",
1217	RowBox[{
1218	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1219	FormBox[
1220	RowBox[{
1221	SubscriptBox["\<\"\[PartialD]\"\>",
1222	FormBox["\[Mu]",
1223	TraditionalForm]], "(",
1224	RowBox[{
1225	FormBox[
1226	SuperscriptBox["l", "\[Dagger]"],
1227	TraditionalForm], ".",
1228	FormBox[
1229	SuperscriptBox["\[Gamma]",
1230	FormBox["\[Nu]",
1231	TraditionalForm]],
1232	TraditionalForm], ".", "l"}], ")"}],
1233	TraditionalForm]}], "-",
1234	RowBox[{
1235	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1236	FormBox[
1237	RowBox[{
1238	SubscriptBox["\<\"\[PartialD]\"\>",
1239	FormBox["\[Nu]",
1240	TraditionalForm]], "(",
1241	RowBox[{
1242	FormBox[
1243	SuperscriptBox["uq", "\[Dagger]"],
1244	TraditionalForm], ".",
1245	FormBox[
1246	SuperscriptBox["\[Gamma]",
1247	FormBox["\[Mu]",
1248	TraditionalForm]],
1249	TraditionalForm], ".", "uq"}], ")"}],
1250	TraditionalForm]}], "-",
1251	RowBox[{
1252	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1253	FormBox[
1254	RowBox[{
1255	SubscriptBox["\<\"\[PartialD]\"\>",
1256	FormBox["\[Mu]",
1257	TraditionalForm]], "(",
1258	RowBox[{
1259	FormBox[
1260	SuperscriptBox["uq", "\[Dagger]"],
1261	TraditionalForm], ".",
1262	FormBox[
1263	SuperscriptBox["\[Gamma]",
1264	FormBox["\[Nu]",
1265	TraditionalForm]],
1266	TraditionalForm], ".", "uq"}], ")"}],
1267	TraditionalForm]}], "-",
1268	RowBox[{
1269	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1270	FormBox[
1271	RowBox[{
1272	SubscriptBox["\<\"\[PartialD]\"\>",
1273	FormBox["\[Nu]",
1274	TraditionalForm]], "(",
1275	RowBox[{
1276	FormBox[
1277	SuperscriptBox["vl", "\[Dagger]"],
1278	TraditionalForm], ".",
1279	FormBox[
1280	SuperscriptBox["\[Gamma]",
1281	FormBox["\[Mu]",
1282	TraditionalForm]],
1283	TraditionalForm], ".", "vl"}], ")"}],
1284	TraditionalForm]}], "-",
1285	RowBox[{
1286	FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
1287	FormBox[
1288	RowBox[{
1289	SubscriptBox["\<\"\[PartialD]\"\>",
1290	FormBox["\[Mu]",
1291	TraditionalForm]], "(",
1292	RowBox[{
1293	FormBox[
1294	SuperscriptBox["vl", "\[Dagger]"],
1295	TraditionalForm], ".",
1296	FormBox[
1297	SuperscriptBox["\[Gamma]",
1298	FormBox["\[Nu]",
1299	TraditionalForm]],
1300	TraditionalForm], ".", "vl"}], ")"}],
1301	TraditionalForm]}], "-",
1302	RowBox[{
1303	FormBox[
1304	SubscriptBox["\[Eta]",
1305	RowBox[{
1306	FormBox[
1307	FormBox["\[Mu]",
1308	TraditionalForm],
1309	TraditionalForm], ",",
1310	FormBox[
1311	FormBox["\[Nu]",
1312	TraditionalForm],
1313	TraditionalForm]}]],
1314	TraditionalForm], ".",
1315	RowBox[{"(",
1316	RowBox[{
1317	RowBox[{
1318	RowBox[{"-",
1319	FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ",
1320	FormBox[
1321	RowBox[{
1322	SubscriptBox["\<\"\[PartialD]\"\>",
1323	FormBox["\[Rho]",
1324	TraditionalForm]], "(",
1325	RowBox[{
1326	FormBox[
1327	SuperscriptBox["dq", "\[Dagger]"],
1328	TraditionalForm], ".",
1329	FormBox[
1330	SuperscriptBox["\[Gamma]",
1331	FormBox["\[Rho]",
1332	TraditionalForm]],
1333	TraditionalForm], ".", "dq"}], ")"}],
1334	TraditionalForm]}], "-",
1335	RowBox[{
1336	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1337	FormBox[
1338	RowBox[{
1339	SubscriptBox["\<\"\[PartialD]\"\>",
1340	FormBox["\[Rho]",
1341	TraditionalForm]], "(",
1342	RowBox[{
1343	FormBox[
1344	SuperscriptBox["l", "\[Dagger]"],
1345	TraditionalForm], ".",
1346	FormBox[
1347	SuperscriptBox["\[Gamma]",
1348	FormBox["\[Rho]",
1349	TraditionalForm]],
1350	TraditionalForm], ".", "l"}], ")"}],
1351	TraditionalForm]}], "-",
1352	RowBox[{
1353	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1354	FormBox[
1355	RowBox[{
1356	SubscriptBox["\<\"\[PartialD]\"\>",
1357	FormBox["\[Rho]",
1358	TraditionalForm]], "(",
1359	RowBox[{
1360	FormBox[
1361	SuperscriptBox["uq", "\[Dagger]"],
1362	TraditionalForm], ".",
1363	FormBox[
1364	SuperscriptBox["\[Gamma]",
1365	FormBox["\[Rho]",
1366	TraditionalForm]],
1367	TraditionalForm], ".", "uq"}], ")"}],
1368	TraditionalForm]}], "-",
1369	RowBox[{
1370	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1371	FormBox[
1372	RowBox[{
1373	SubscriptBox["\<\"\[PartialD]\"\>",
1374	FormBox["\[Rho]",
1375	TraditionalForm]], "(",
1376	RowBox[{
1377	FormBox[
1378	SuperscriptBox["vl", "\[Dagger]"],
1379	TraditionalForm], ".",
1380	FormBox[
1381	SuperscriptBox["\[Gamma]",
1382	FormBox["\[Rho]",
1383	TraditionalForm]],
1384	TraditionalForm], ".", "vl"}], ")"}],
1385	TraditionalForm]}], "+",
1386	RowBox[{"\[ImaginaryI]", " ",
1387	RowBox[{
1388	FormBox[
1389	SuperscriptBox["dq", "\[Dagger]"],
1390	TraditionalForm], ".",
1391	FormBox[
1392	SuperscriptBox["\[Gamma]",
1393	FormBox["\[Rho]",
1394	TraditionalForm]],
1395	TraditionalForm], ".",
1396	RowBox[{"(",
1397	RowBox[{
1398	FormBox[
1399	RowBox[{
1400	SubscriptBox["\<\"\[PartialD]\"\>",
1401	FormBox["\[Rho]",
1402	TraditionalForm]], "(", "dq", ")"}],
1403	TraditionalForm], "-",
1404	FractionBox[
1405	RowBox[{"\[ImaginaryI]", " ",
1406	FormBox["e",
1407	TraditionalForm], " ",
1408	FormBox[
1409	SubscriptBox["B",
1410	FormBox["\[Rho]",
1411	TraditionalForm]],
1412	TraditionalForm], " ",
1413	RowBox[{
1414	FormBox[
1415	SubscriptBox["P", "\<\"-\"\>"],
1416	TraditionalForm], ".", "dq"}]}],
1417	RowBox[{"6", " ",
1418	FormBox[
1419	SubscriptBox["c", "w"],
1420	TraditionalForm]}]], "+",
1421	FractionBox[
1422	RowBox[{"\[ImaginaryI]", " ",
1423	FormBox["e",
1424	TraditionalForm], " ",
1425	FormBox[
1426	SubscriptBox["B",
1427	FormBox["\[Rho]",
1428	TraditionalForm]],
1429	TraditionalForm], " ",
1430	RowBox[{
1431	FormBox[
1432	SubscriptBox["P", "\<\"+\"\>"],
1433	TraditionalForm], ".", "dq"}]}],
1434	RowBox[{"3", " ",
1435	FormBox[
1436	SubscriptBox["c", "w"],
1437	TraditionalForm]}]], "-",
1438	RowBox[{"\[ImaginaryI]", " ",
1439	FormBox[
1440	SubscriptBox["g", "s"],
1441	TraditionalForm], " ",
1442	RowBox[{
1443	FormBox[
1444	SuperscriptBox["T", "a$182"],
1445	TraditionalForm], ".", "dq"}], " ",
1446	FormBox[
1447	SubscriptBox["G",
1448	RowBox[{
1449	FormBox["\[Rho]",
1450	TraditionalForm], ",", "a$182"}]],
1451	TraditionalForm]}], "+",
1452	FractionBox[
1453	RowBox[{"\[ImaginaryI]", " ",
1454	FormBox["e",
1455	TraditionalForm], " ",
1456	RowBox[{
1457	FormBox[
1458	SubscriptBox["P", "\<\"-\"\>"],
1459	TraditionalForm], ".", "dq"}], " ",
1460	FormBox[
1461	SubscriptBox["Wi",
1462	RowBox[{
1463	FormBox["\[Rho]",
1464	TraditionalForm], ",", "3"}]],
1465	TraditionalForm]}],
1466	RowBox[{"2", " ",
1467	FormBox[
1468	SubscriptBox["s", "w"],
1469	TraditionalForm]}]]}], ")"}]}]}], "+",
1470	RowBox[{"\[ImaginaryI]", " ",
1471	RowBox[{
1472	FormBox[
1473	SuperscriptBox["l", "\[Dagger]"],
1474	TraditionalForm], ".",
1475	FormBox[
1476	SuperscriptBox["\[Gamma]",
1477	FormBox["\[Rho]",
1478	TraditionalForm]],
1479	TraditionalForm], ".",
1480	RowBox[{"(",
1481	RowBox[{
1482	FormBox[
1483	RowBox[{
1484	SubscriptBox["\<\"\[PartialD]\"\>",
1485	FormBox["\[Rho]",
1486	TraditionalForm]], "(", "l", ")"}],
1487	TraditionalForm], "-",
1488	FractionBox[
1489	RowBox[{"\[ImaginaryI]", " ",
1490	FormBox["e",
1491	TraditionalForm], " ",
1492	FormBox[
1493	SubscriptBox["B",
1494	FormBox["\[Rho]",
1495	TraditionalForm]],
1496	TraditionalForm], " ",
1497	RowBox[{
1498	FormBox[
1499	SubscriptBox["P", "\<\"-\"\>"],
1500	TraditionalForm], ".", "l"}]}],
1501	RowBox[{"2", " ",
1502	FormBox[
1503	SubscriptBox["c", "w"],
1504	TraditionalForm]}]], "+",
1505	FractionBox[
1506	RowBox[{"\[ImaginaryI]", " ",
1507	FormBox["e",
1508	TraditionalForm], " ",
1509	FormBox[
1510	SubscriptBox["B",
1511	FormBox["\[Rho]",
1512	TraditionalForm]],
1513	TraditionalForm], " ",
1514	RowBox[{
1515	FormBox[
1516	SubscriptBox["P", "\<\"+\"\>"],
1517	TraditionalForm], ".", "l"}]}],
1518	FormBox[
1519	SubscriptBox["c", "w"],
1520	TraditionalForm]], "+",
1521	FractionBox[
1522	RowBox[{"\[ImaginaryI]", " ",
1523	FormBox["e",
1524	TraditionalForm], " ",
1525	RowBox[{
1526	FormBox[
1527	SubscriptBox["P", "\<\"-\"\>"],
1528	TraditionalForm], ".", "l"}], " ",
1529	FormBox[
1530	SubscriptBox["Wi",
1531	RowBox[{
1532	FormBox["\[Rho]",
1533	TraditionalForm], ",", "3"}]],
1534	TraditionalForm]}],
1535	RowBox[{"2", " ",
1536	FormBox[
1537	SubscriptBox["s", "w"],
1538	TraditionalForm]}]]}], ")"}]}]}], "+",
1539	RowBox[{"\[ImaginaryI]", " ",
1540	RowBox[{
1541	FormBox[
1542	SuperscriptBox["uq", "\[Dagger]"],
1543	TraditionalForm], ".",
1544	FormBox[
1545	SuperscriptBox["\[Gamma]",
1546	FormBox["\[Rho]",
1547	TraditionalForm]],
1548	TraditionalForm], ".",
1549	RowBox[{"(",
1550	RowBox[{
1551	FormBox[
1552	RowBox[{
1553	SubscriptBox["\<\"\[PartialD]\"\>",
1554	FormBox["\[Rho]",
1555	TraditionalForm]], "(", "uq", ")"}],
1556	TraditionalForm], "-",
1557	FractionBox[
1558	RowBox[{"\[ImaginaryI]", " ",
1559	FormBox["e",
1560	TraditionalForm], " ",
1561	FormBox[
1562	SubscriptBox["B",
1563	FormBox["\[Rho]",
1564	TraditionalForm]],
1565	TraditionalForm], " ",
1566	RowBox[{
1567	FormBox[
1568	SubscriptBox["P", "\<\"-\"\>"],
1569	TraditionalForm], ".", "uq"}]}],
1570	RowBox[{"6", " ",
1571	FormBox[
1572	SubscriptBox["c", "w"],
1573	TraditionalForm]}]], "-",
1574	FractionBox[
1575	RowBox[{"2", " ", "\[ImaginaryI]", " ",
1576	FormBox["e",
1577	TraditionalForm], " ",
1578	FormBox[
1579	SubscriptBox["B",
1580	FormBox["\[Rho]",
1581	TraditionalForm]],
1582	TraditionalForm], " ",
1583	RowBox[{
1584	FormBox[
1585	SubscriptBox["P", "\<\"+\"\>"],
1586	TraditionalForm], ".", "uq"}]}],
1587	RowBox[{"3", " ",
1588	FormBox[
1589	SubscriptBox["c", "w"],
1590	TraditionalForm]}]], "-",
1591	RowBox[{"\[ImaginaryI]", " ",
1592	FormBox[
1593	SubscriptBox["g", "s"],
1594	TraditionalForm], " ",
1595	RowBox[{
1596	FormBox[
1597	SuperscriptBox["T", "a$181"],
1598	TraditionalForm], ".", "uq"}], " ",
1599	FormBox[
1600	SubscriptBox["G",
1601	RowBox[{
1602	FormBox["\[Rho]",
1603	TraditionalForm], ",", "a$181"}]],
1604	TraditionalForm]}], "-",
1605	FractionBox[
1606	RowBox[{"\[ImaginaryI]", " ",
1607	FormBox["e",
1608	TraditionalForm], " ",
1609	RowBox[{
1610	FormBox[
1611	SubscriptBox["P", "\<\"-\"\>"],
1612	TraditionalForm], ".", "uq"}], " ",
1613	FormBox[
1614	SubscriptBox["Wi",
1615	RowBox[{
1616	FormBox["\[Rho]",
1617	TraditionalForm], ",", "3"}]],
1618	TraditionalForm]}],
1619	RowBox[{"2", " ",
1620	FormBox[
1621	SubscriptBox["s", "w"],
1622	TraditionalForm]}]]}], ")"}]}]}], "+",
1623	RowBox[{"\[ImaginaryI]", " ",
1624	RowBox[{
1625	FormBox[
1626	SuperscriptBox["vl", "\[Dagger]"],
1627	TraditionalForm], ".",
1628	FormBox[
1629	SuperscriptBox["\[Gamma]",
1630	FormBox["\[Rho]",
1631	TraditionalForm]],
1632	TraditionalForm], ".",
1633	RowBox[{"(",
1634	RowBox[{
1635	FormBox[
1636	RowBox[{
1637	SubscriptBox["\<\"\[PartialD]\"\>",
1638	FormBox["\[Rho]",
1639	TraditionalForm]], "(", "vl", ")"}],
1640	TraditionalForm], "+",
1641	FractionBox[
1642	RowBox[{"\[ImaginaryI]", " ",
1643	FormBox["e",
1644	TraditionalForm], " ",
1645	FormBox[
1646	SubscriptBox["B",
1647	FormBox["\[Rho]",
1648	TraditionalForm]],
1649	TraditionalForm], " ",
1650	RowBox[{
1651	FormBox[
1652	SubscriptBox["P", "\<\"-\"\>"],
1653	TraditionalForm], ".", "vl"}]}],
1654	RowBox[{"2", " ",
1655	FormBox[
1656	SubscriptBox["c", "w"],
1657	TraditionalForm]}]], "-",
1658	FractionBox[
1659	RowBox[{"\[ImaginaryI]", " ",
1660	FormBox["e",
1661	TraditionalForm], " ",
1662	RowBox[{
1663	FormBox[
1664	SubscriptBox["P", "\<\"-\"\>"],
1665	TraditionalForm], ".", "vl"}], " ",
1666	FormBox[
1667	SubscriptBox["Wi",
1668	RowBox[{
1669	FormBox["\[Rho]",
1670	TraditionalForm], ",", "3"}]],
1671	TraditionalForm]}],
1672	RowBox[{"2", " ",
1673	FormBox[
1674	SubscriptBox["s", "w"],
1675	TraditionalForm]}]]}], ")"}]}]}], "-",
1676	FractionBox[
1677	RowBox[{
1678	FormBox["e",
1679	TraditionalForm], " ",
1680	RowBox[{"(",
1681	RowBox[{
1682	RowBox[{"CKM", " ",
1683	RowBox[{
1684	FormBox[
1685	SuperscriptBox["uq", "\[Dagger]"],
1686	TraditionalForm], ".",
1687	FormBox[
1688	SuperscriptBox["\[Gamma]",
1689	FormBox["\[Rho]",
1690	TraditionalForm]],
1691	TraditionalForm], ".",
1692	FormBox[
1693	SubscriptBox["P", "\<\"-\"\>"],
1694	TraditionalForm], ".", "dq"}], " ",
1695	FormBox[
1696	SubscriptBox["W",
1697	FormBox["\[Rho]",
1698	TraditionalForm]],
1699	TraditionalForm]}], "+",
1700	RowBox[{
1701	RowBox[{
1702	FormBox[
1703	SuperscriptBox["vl", "\[Dagger]"],
1704	TraditionalForm], ".",
1705	FormBox[
1706	SuperscriptBox["\[Gamma]",
1707	FormBox["\[Rho]",
1708	TraditionalForm]],
1709	TraditionalForm], ".",
1710	FormBox[
1711	SubscriptBox["P", "\<\"-\"\>"],
1712	TraditionalForm], ".", "l"}], " ",
1713	FormBox[
1714	SubscriptBox["W",
1715	FormBox["\[Rho]",
1716	TraditionalForm]],
1717	TraditionalForm]}], "+",
1718	RowBox[{
1719	RowBox[{
1720	FormBox[
1721	SuperscriptBox["l", "\[Dagger]"],
1722	TraditionalForm], ".",
1723	FormBox[
1724	SuperscriptBox["\[Gamma]",
1725	FormBox["\[Rho]",
1726	TraditionalForm]],
1727	TraditionalForm], ".",
1728	FormBox[
1729	SubscriptBox["P", "\<\"-\"\>"],
1730	TraditionalForm], ".", "vl"}], " ",
1731	FormBox[
1732	SubsuperscriptBox["W",
1733	FormBox["\[Rho]",
1734	TraditionalForm], "\[Dagger]"],
1735	TraditionalForm]}], "+",
1736	RowBox[{
1737	RowBox[{
1738	FormBox[
1739	SuperscriptBox["dq", "\[Dagger]"],
1740	TraditionalForm], ".",
1741	FormBox[
1742	SuperscriptBox["\[Gamma]",
1743	FormBox["\[Rho]",
1744	TraditionalForm]],
1745	TraditionalForm], ".",
1746	FormBox[
1747	SubscriptBox["P", "\<\"-\"\>"],
1748	TraditionalForm], ".", "uq"}], " ",
1749	FormBox[
1750	SuperscriptBox["CKM", "\[Dagger]"],
1751	TraditionalForm], " ",
1752	FormBox[
1753	SubsuperscriptBox["W",
1754	FormBox["\[Rho]",
1755	TraditionalForm], "\[Dagger]"],
1756	TraditionalForm]}]}], ")"}]}],
1757	RowBox[{
1758	SqrtBox["2"], " ",
1759	FormBox[
1760	SubscriptBox["s", "w"],
1761	TraditionalForm]}]]}], ")"}]}], "+",
1762	RowBox[{
1763	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1764	RowBox[{
1765	FormBox[
1766	SuperscriptBox["dq", "\[Dagger]"],
1767	TraditionalForm], ".",
1768	FormBox[
1769	SuperscriptBox["\[Gamma]",
1770	FormBox["\[Mu]",
1771	TraditionalForm]],
1772	TraditionalForm], ".",
1773	RowBox[{"(",
1774	RowBox[{
1775	FormBox[
1776	RowBox[{
1777	SubscriptBox["\<\"\[PartialD]\"\>",
1778	FormBox["\[Nu]",
1779	TraditionalForm]], "(", "dq", ")"}],
1780	TraditionalForm], "-",
1781	FractionBox[
1782	RowBox[{"\[ImaginaryI]", " ",
1783	FormBox["e",
1784	TraditionalForm], " ",
1785	FormBox[
1786	SubscriptBox["B",
1787	FormBox["\[Nu]",
1788	TraditionalForm]],
1789	TraditionalForm], " ",
1790	RowBox[{
1791	FormBox[
1792	SubscriptBox["P", "\<\"-\"\>"],
1793	TraditionalForm], ".", "dq"}]}],
1794	RowBox[{"6", " ",
1795	FormBox[
1796	SubscriptBox["c", "w"],
1797	TraditionalForm]}]], "+",
1798	FractionBox[
1799	RowBox[{"\[ImaginaryI]", " ",
1800	FormBox["e",
1801	TraditionalForm], " ",
1802	FormBox[
1803	SubscriptBox["B",
1804	FormBox["\[Nu]",
1805	TraditionalForm]],
1806	TraditionalForm], " ",
1807	RowBox[{
1808	FormBox[
1809	SubscriptBox["P", "\<\"+\"\>"],
1810	TraditionalForm], ".", "dq"}]}],
1811	RowBox[{"3", " ",
1812	FormBox[
1813	SubscriptBox["c", "w"],
1814	TraditionalForm]}]], "-",
1815	RowBox[{"\[ImaginaryI]", " ",
1816	FormBox[
1817	SubscriptBox["g", "s"],
1818	TraditionalForm], " ",
1819	RowBox[{
1820	FormBox[
1821	SuperscriptBox["T", "a$187"],
1822	TraditionalForm], ".", "dq"}], " ",
1823	FormBox[
1824	SubscriptBox["G",
1825	RowBox[{
1826	FormBox["\[Nu]",
1827	TraditionalForm], ",", "a$187"}]],
1828	TraditionalForm]}], "+",
1829	FractionBox[
1830	RowBox[{"\[ImaginaryI]", " ",
1831	FormBox["e",
1832	TraditionalForm], " ",
1833	RowBox[{
1834	FormBox[
1835	SubscriptBox["P", "\<\"-\"\>"],
1836	TraditionalForm], ".", "dq"}], " ",
1837	FormBox[
1838	SubscriptBox["Wi",
1839	RowBox[{
1840	FormBox["\[Nu]",
1841	TraditionalForm], ",", "3"}]],
1842	TraditionalForm]}],
1843	RowBox[{"2", " ",
1844	FormBox[
1845	SubscriptBox["s", "w"],
1846	TraditionalForm]}]]}], ")"}]}]}], "+",
1847	RowBox[{
1848	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1849	RowBox[{
1850	FormBox[
1851	SuperscriptBox["dq", "\[Dagger]"],
1852	TraditionalForm], ".",
1853	FormBox[
1854	SuperscriptBox["\[Gamma]",
1855	FormBox["\[Nu]",
1856	TraditionalForm]],
1857	TraditionalForm], ".",
1858	RowBox[{"(",
1859	RowBox[{
1860	FormBox[
1861	RowBox[{
1862	SubscriptBox["\<\"\[PartialD]\"\>",
1863	FormBox["\[Mu]",
1864	TraditionalForm]], "(", "dq", ")"}],
1865	TraditionalForm], "-",
1866	FractionBox[
1867	RowBox[{"\[ImaginaryI]", " ",
1868	FormBox["e",
1869	TraditionalForm], " ",
1870	FormBox[
1871	SubscriptBox["B",
1872	FormBox["\[Mu]",
1873	TraditionalForm]],
1874	TraditionalForm], " ",
1875	RowBox[{
1876	FormBox[
1877	SubscriptBox["P", "\<\"-\"\>"],
1878	TraditionalForm], ".", "dq"}]}],
1879	RowBox[{"6", " ",
1880	FormBox[
1881	SubscriptBox["c", "w"],
1882	TraditionalForm]}]], "+",
1883	FractionBox[
1884	RowBox[{"\[ImaginaryI]", " ",
1885	FormBox["e",
1886	TraditionalForm], " ",
1887	FormBox[
1888	SubscriptBox["B",
1889	FormBox["\[Mu]",
1890	TraditionalForm]],
1891	TraditionalForm], " ",
1892	RowBox[{
1893	FormBox[
1894	SubscriptBox["P", "\<\"+\"\>"],
1895	TraditionalForm], ".", "dq"}]}],
1896	RowBox[{"3", " ",
1897	FormBox[
1898	SubscriptBox["c", "w"],
1899	TraditionalForm]}]], "-",
1900	RowBox[{"\[ImaginaryI]", " ",
1901	FormBox[
1902	SubscriptBox["g", "s"],
1903	TraditionalForm], " ",
1904	RowBox[{
1905	FormBox[
1906	SuperscriptBox["T", "a$188"],
1907	TraditionalForm], ".", "dq"}], " ",
1908	FormBox[
1909	SubscriptBox["G",
1910	RowBox[{
1911	FormBox["\[Mu]",
1912	TraditionalForm], ",", "a$188"}]],
1913	TraditionalForm]}], "+",
1914	FractionBox[
1915	RowBox[{"\[ImaginaryI]", " ",
1916	FormBox["e",
1917	TraditionalForm], " ",
1918	RowBox[{
1919	FormBox[
1920	SubscriptBox["P", "\<\"-\"\>"],
1921	TraditionalForm], ".", "dq"}], " ",
1922	FormBox[
1923	SubscriptBox["Wi",
1924	RowBox[{
1925	FormBox["\[Mu]",
1926	TraditionalForm], ",", "3"}]],
1927	TraditionalForm]}],
1928	RowBox[{"2", " ",
1929	FormBox[
1930	SubscriptBox["s", "w"],
1931	TraditionalForm]}]]}], ")"}]}]}], "+",
1932	RowBox[{
1933	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1934	RowBox[{
1935	FormBox[
1936	SuperscriptBox["l", "\[Dagger]"],
1937	TraditionalForm], ".",
1938	FormBox[
1939	SuperscriptBox["\[Gamma]",
1940	FormBox["\[Mu]",
1941	TraditionalForm]],
1942	TraditionalForm], ".",
1943	RowBox[{"(",
1944	RowBox[{
1945	FormBox[
1946	RowBox[{
1947	SubscriptBox["\<\"\[PartialD]\"\>",
1948	FormBox["\[Nu]",
1949	TraditionalForm]], "(", "l", ")"}],
1950	TraditionalForm], "-",
1951	FractionBox[
1952	RowBox[{"\[ImaginaryI]", " ",
1953	FormBox["e",
1954	TraditionalForm], " ",
1955	FormBox[
1956	SubscriptBox["B",
1957	FormBox["\[Nu]",
1958	TraditionalForm]],
1959	TraditionalForm], " ",
1960	RowBox[{
1961	FormBox[
1962	SubscriptBox["P", "\<\"-\"\>"],
1963	TraditionalForm], ".", "l"}]}],
1964	RowBox[{"2", " ",
1965	FormBox[
1966	SubscriptBox["c", "w"],
1967	TraditionalForm]}]], "+",
1968	FractionBox[
1969	RowBox[{"\[ImaginaryI]", " ",
1970	FormBox["e",
1971	TraditionalForm], " ",
1972	FormBox[
1973	SubscriptBox["B",
1974	FormBox["\[Nu]",
1975	TraditionalForm]],
1976	TraditionalForm], " ",
1977	RowBox[{
1978	FormBox[
1979	SubscriptBox["P", "\<\"+\"\>"],
1980	TraditionalForm], ".", "l"}]}],
1981	FormBox[
1982	SubscriptBox["c", "w"],
1983	TraditionalForm]], "+",
1984	FractionBox[
1985	RowBox[{"\[ImaginaryI]", " ",
1986	FormBox["e",
1987	TraditionalForm], " ",
1988	RowBox[{
1989	FormBox[
1990	SubscriptBox["P", "\<\"-\"\>"],
1991	TraditionalForm], ".", "l"}], " ",
1992	FormBox[
1993	SubscriptBox["Wi",
1994	RowBox[{
1995	FormBox["\[Nu]",
1996	TraditionalForm], ",", "3"}]],
1997	TraditionalForm]}],
1998	RowBox[{"2", " ",
1999	FormBox[
2000	SubscriptBox["s", "w"],
2001	TraditionalForm]}]]}], ")"}]}]}], "+",
2002	RowBox[{
2003	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2004	RowBox[{
2005	FormBox[
2006	SuperscriptBox["l", "\[Dagger]"],
2007	TraditionalForm], ".",
2008	FormBox[
2009	SuperscriptBox["\[Gamma]",
2010	FormBox["\[Nu]",
2011	TraditionalForm]],
2012	TraditionalForm], ".",
2013	RowBox[{"(",
2014	RowBox[{
2015	FormBox[
2016	RowBox[{
2017	SubscriptBox["\<\"\[PartialD]\"\>",
2018	FormBox["\[Mu]",
2019	TraditionalForm]], "(", "l", ")"}],
2020	TraditionalForm], "-",
2021	FractionBox[
2022	RowBox[{"\[ImaginaryI]", " ",
2023	FormBox["e",
2024	TraditionalForm], " ",
2025	FormBox[
2026	SubscriptBox["B",
2027	FormBox["\[Mu]",
2028	TraditionalForm]],
2029	TraditionalForm], " ",
2030	RowBox[{
2031	FormBox[
2032	SubscriptBox["P", "\<\"-\"\>"],
2033	TraditionalForm], ".", "l"}]}],
2034	RowBox[{"2", " ",
2035	FormBox[
2036	SubscriptBox["c", "w"],
2037	TraditionalForm]}]], "+",
2038	FractionBox[
2039	RowBox[{"\[ImaginaryI]", " ",
2040	FormBox["e",
2041	TraditionalForm], " ",
2042	FormBox[
2043	SubscriptBox["B",
2044	FormBox["\[Mu]",
2045	TraditionalForm]],
2046	TraditionalForm], " ",
2047	RowBox[{
2048	FormBox[
2049	SubscriptBox["P", "\<\"+\"\>"],
2050	TraditionalForm], ".", "l"}]}],
2051	FormBox[
2052	SubscriptBox["c", "w"],
2053	TraditionalForm]], "+",
2054	FractionBox[
2055	RowBox[{"\[ImaginaryI]", " ",
2056	FormBox["e",
2057	TraditionalForm], " ",
2058	RowBox[{
2059	FormBox[
2060	SubscriptBox["P", "\<\"-\"\>"],
2061	TraditionalForm], ".", "l"}], " ",
2062	FormBox[
2063	SubscriptBox["Wi",
2064	RowBox[{
2065	FormBox["\[Mu]",
2066	TraditionalForm], ",", "3"}]],
2067	TraditionalForm]}],
2068	RowBox[{"2", " ",
2069	FormBox[
2070	SubscriptBox["s", "w"],
2071	TraditionalForm]}]]}], ")"}]}]}], "+",
2072	RowBox[{
2073	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2074	RowBox[{
2075	FormBox[
2076	SuperscriptBox["uq", "\[Dagger]"],
2077	TraditionalForm], ".",
2078	FormBox[
2079	SuperscriptBox["\[Gamma]",
2080	FormBox["\[Mu]",
2081	TraditionalForm]],
2082	TraditionalForm], ".",
2083	RowBox[{"(",
2084	RowBox[{
2085	FormBox[
2086	RowBox[{
2087	SubscriptBox["\<\"\[PartialD]\"\>",
2088	FormBox["\[Nu]",
2089	TraditionalForm]], "(", "uq", ")"}],
2090	TraditionalForm], "-",
2091	FractionBox[
2092	RowBox[{"\[ImaginaryI]", " ",
2093	FormBox["e",
2094	TraditionalForm], " ",
2095	FormBox[
2096	SubscriptBox["B",
2097	FormBox["\[Nu]",
2098	TraditionalForm]],
2099	TraditionalForm], " ",
2100	RowBox[{
2101	FormBox[
2102	SubscriptBox["P", "\<\"-\"\>"],
2103	TraditionalForm], ".", "uq"}]}],
2104	RowBox[{"6", " ",
2105	FormBox[
2106	SubscriptBox["c", "w"],
2107	TraditionalForm]}]], "-",
2108	FractionBox[
2109	RowBox[{"2", " ", "\[ImaginaryI]", " ",
2110	FormBox["e",
2111	TraditionalForm], " ",
2112	FormBox[
2113	SubscriptBox["B",
2114	FormBox["\[Nu]",
2115	TraditionalForm]],
2116	TraditionalForm], " ",
2117	RowBox[{
2118	FormBox[
2119	SubscriptBox["P", "\<\"+\"\>"],
2120	TraditionalForm], ".", "uq"}]}],
2121	RowBox[{"3", " ",
2122	FormBox[
2123	SubscriptBox["c", "w"],
2124	TraditionalForm]}]], "-",
2125	RowBox[{"\[ImaginaryI]", " ",
2126	FormBox[
2127	SubscriptBox["g", "s"],
2128	TraditionalForm], " ",
2129	RowBox[{
2130	FormBox[
2131	SuperscriptBox["T", "a$185"],
2132	TraditionalForm], ".", "uq"}], " ",
2133	FormBox[
2134	SubscriptBox["G",
2135	RowBox[{
2136	FormBox["\[Nu]",
2137	TraditionalForm], ",", "a$185"}]],
2138	TraditionalForm]}], "-",
2139	FractionBox[
2140	RowBox[{"\[ImaginaryI]", " ",
2141	FormBox["e",
2142	TraditionalForm], " ",
2143	RowBox[{
2144	FormBox[
2145	SubscriptBox["P", "\<\"-\"\>"],
2146	TraditionalForm], ".", "uq"}], " ",
2147	FormBox[
2148	SubscriptBox["Wi",
2149	RowBox[{
2150	FormBox["\[Nu]",
2151	TraditionalForm], ",", "3"}]],
2152	TraditionalForm]}],
2153	RowBox[{"2", " ",
2154	FormBox[
2155	SubscriptBox["s", "w"],
2156	TraditionalForm]}]]}], ")"}]}]}], "+",
2157	RowBox[{
2158	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2159	RowBox[{
2160	FormBox[
2161	SuperscriptBox["uq", "\[Dagger]"],
2162	TraditionalForm], ".",
2163	FormBox[
2164	SuperscriptBox["\[Gamma]",
2165	FormBox["\[Nu]",
2166	TraditionalForm]],
2167	TraditionalForm], ".",
2168	RowBox[{"(",
2169	RowBox[{
2170	FormBox[
2171	RowBox[{
2172	SubscriptBox["\<\"\[PartialD]\"\>",
2173	FormBox["\[Mu]",
2174	TraditionalForm]], "(", "uq", ")"}],
2175	TraditionalForm], "-",
2176	FractionBox[
2177	RowBox[{"\[ImaginaryI]", " ",
2178	FormBox["e",
2179	TraditionalForm], " ",
2180	FormBox[
2181	SubscriptBox["B",
2182	FormBox["\[Mu]",
2183	TraditionalForm]],
2184	TraditionalForm], " ",
2185	RowBox[{
2186	FormBox[
2187	SubscriptBox["P", "\<\"-\"\>"],
2188	TraditionalForm], ".", "uq"}]}],
2189	RowBox[{"6", " ",
2190	FormBox[
2191	SubscriptBox["c", "w"],
2192	TraditionalForm]}]], "-",
2193	FractionBox[
2194	RowBox[{"2", " ", "\[ImaginaryI]", " ",
2195	FormBox["e",
2196	TraditionalForm], " ",
2197	FormBox[
2198	SubscriptBox["B",
2199	FormBox["\[Mu]",
2200	TraditionalForm]],
2201	TraditionalForm], " ",
2202	RowBox[{
2203	FormBox[
2204	SubscriptBox["P", "\<\"+\"\>"],
2205	TraditionalForm], ".", "uq"}]}],
2206	RowBox[{"3", " ",
2207	FormBox[
2208	SubscriptBox["c", "w"],
2209	TraditionalForm]}]], "-",
2210	RowBox[{"\[ImaginaryI]", " ",
2211	FormBox[
2212	SubscriptBox["g", "s"],
2213	TraditionalForm], " ",
2214	RowBox[{
2215	FormBox[
2216	SuperscriptBox["T", "a$186"],
2217	TraditionalForm], ".", "uq"}], " ",
2218	FormBox[
2219	SubscriptBox["G",
2220	RowBox[{
2221	FormBox["\[Mu]",
2222	TraditionalForm], ",", "a$186"}]],
2223	TraditionalForm]}], "-",
2224	FractionBox[
2225	RowBox[{"\[ImaginaryI]", " ",
2226	FormBox["e",
2227	TraditionalForm], " ",
2228	RowBox[{
2229	FormBox[
2230	SubscriptBox["P", "\<\"-\"\>"],
2231	TraditionalForm], ".", "uq"}], " ",
2232	FormBox[
2233	SubscriptBox["Wi",
2234	RowBox[{
2235	FormBox["\[Mu]",
2236	TraditionalForm], ",", "3"}]],
2237	TraditionalForm]}],
2238	RowBox[{"2", " ",
2239	FormBox[
2240	SubscriptBox["s", "w"],
2241	TraditionalForm]}]]}], ")"}]}]}], "+",
2242	RowBox[{
2243	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2244	RowBox[{
2245	FormBox[
2246	SuperscriptBox["vl", "\[Dagger]"],
2247	TraditionalForm], ".",
2248	FormBox[
2249	SuperscriptBox["\[Gamma]",
2250	FormBox["\[Mu]",
2251	TraditionalForm]],
2252	TraditionalForm], ".",
2253	RowBox[{"(",
2254	RowBox[{
2255	FormBox[
2256	RowBox[{
2257	SubscriptBox["\<\"\[PartialD]\"\>",
2258	FormBox["\[Nu]",
2259	TraditionalForm]], "(", "vl", ")"}],
2260	TraditionalForm], "+",
2261	FractionBox[
2262	RowBox[{"\[ImaginaryI]", " ",
2263	FormBox["e",
2264	TraditionalForm], " ",
2265	FormBox[
2266	SubscriptBox["B",
2267	FormBox["\[Nu]",
2268	TraditionalForm]],
2269	TraditionalForm], " ",
2270	RowBox[{
2271	FormBox[
2272	SubscriptBox["P", "\<\"-\"\>"],
2273	TraditionalForm], ".", "vl"}]}],
2274	RowBox[{"2", " ",
2275	FormBox[
2276	SubscriptBox["c", "w"],
2277	TraditionalForm]}]], "-",
2278	FractionBox[
2279	RowBox[{"\[ImaginaryI]", " ",
2280	FormBox["e",
2281	TraditionalForm], " ",
2282	RowBox[{
2283	FormBox[
2284	SubscriptBox["P", "\<\"-\"\>"],
2285	TraditionalForm], ".", "vl"}], " ",
2286	FormBox[
2287	SubscriptBox["Wi",
2288	RowBox[{
2289	FormBox["\[Nu]",
2290	TraditionalForm], ",", "3"}]],
2291	TraditionalForm]}],
2292	RowBox[{"2", " ",
2293	FormBox[
2294	SubscriptBox["s", "w"],
2295	TraditionalForm]}]]}], ")"}]}]}], "+",
2296	RowBox[{
2297	FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2298	RowBox[{
2299	FormBox[
2300	SuperscriptBox["vl", "\[Dagger]"],
2301	TraditionalForm], ".",
2302	FormBox[
2303	SuperscriptBox["\[Gamma]",
2304	FormBox["\[Nu]",
2305	TraditionalForm]],
2306	TraditionalForm], ".",
2307	RowBox[{"(",
2308	RowBox[{
2309	FormBox[
2310	RowBox[{
2311	SubscriptBox["\<\"\[PartialD]\"\>",
2312	FormBox["\[Mu]",
2313	TraditionalForm]], "(", "vl", ")"}],
2314	TraditionalForm], "+",
2315	FractionBox[
2316	RowBox[{"\[ImaginaryI]", " ",
2317	FormBox["e",
2318	TraditionalForm], " ",
2319	FormBox[
2320	SubscriptBox["B",
2321	FormBox["\[Mu]",
2322	TraditionalForm]],
2323	TraditionalForm], " ",
2324	RowBox[{
2325	FormBox[
2326	SubscriptBox["P", "\<\"-\"\>"],
2327	TraditionalForm], ".", "vl"}]}],
2328	RowBox[{"2", " ",
2329	FormBox[
2330	SubscriptBox["c", "w"],
2331	TraditionalForm]}]], "-",
2332	FractionBox[
2333	RowBox[{"\[ImaginaryI]", " ",
2334	FormBox["e",
2335	TraditionalForm], " ",
2336	RowBox[{
2337	FormBox[
2338	SubscriptBox["P", "\<\"-\"\>"],
2339	TraditionalForm], ".", "vl"}], " ",
2340	FormBox[
2341	SubscriptBox["Wi",
2342	RowBox[{
2343	FormBox["\[Mu]",
2344	TraditionalForm], ",", "3"}]],
2345	TraditionalForm]}],
2346	RowBox[{"2", " ",
2347	FormBox[
2348	SubscriptBox["s", "w"],
2349	TraditionalForm]}]]}], ")"}]}]}], "-",
2350	RowBox[{
2351	FractionBox["1",
2352	RowBox[{
2353	SqrtBox["2"], " ",
2354	FormBox[
2355	SubscriptBox["s", "w"],
2356	TraditionalForm]}]],
2357	RowBox[{
2358	FormBox["e",
2359	TraditionalForm], " ",
2360	RowBox[{"(",
2361	RowBox[{
2362	RowBox[{"CKM", " ",
2363	RowBox[{
2364	FormBox[
2365	SuperscriptBox["uq", "\[Dagger]"],
2366	TraditionalForm], ".",
2367	FormBox[
2368	SuperscriptBox["\[Gamma]",
2369	FormBox["\[Nu]",
2370	TraditionalForm]],
2371	TraditionalForm], ".",
2372	FormBox[
2373	SubscriptBox["P", "\<\"-\"\>"],
2374	TraditionalForm], ".", "dq"}], " ",
2375	FormBox[
2376	SubscriptBox["W",
2377	FormBox["\[Mu]",
2378	TraditionalForm]],
2379	TraditionalForm]}], "+",
2380	RowBox[{
2381	RowBox[{
2382	FormBox[
2383	SuperscriptBox["vl", "\[Dagger]"],
2384	TraditionalForm], ".",
2385	FormBox[
2386	SuperscriptBox["\[Gamma]",
2387	FormBox["\[Nu]",
2388	TraditionalForm]],
2389	TraditionalForm], ".",
2390	FormBox[
2391	SubscriptBox["P", "\<\"-\"\>"],
2392	TraditionalForm], ".", "l"}], " ",
2393	FormBox[
2394	SubscriptBox["W",
2395	FormBox["\[Mu]",
2396	TraditionalForm]],
2397	TraditionalForm]}], "+",
2398	RowBox[{"CKM", " ",
2399	RowBox[{
2400	FormBox[
2401	SuperscriptBox["uq", "\[Dagger]"],
2402	TraditionalForm], ".",
2403	FormBox[
2404	SuperscriptBox["\[Gamma]",
2405	FormBox["\[Mu]",
2406	TraditionalForm]],
2407	TraditionalForm], ".",
2408	FormBox[
2409	SubscriptBox["P", "\<\"-\"\>"],
2410	TraditionalForm], ".", "dq"}], " ",
2411	FormBox[
2412	SubscriptBox["W",
2413	FormBox["\[Nu]",
2414	TraditionalForm]],
2415	TraditionalForm]}], "+",
2416	RowBox[{
2417	RowBox[{
2418	FormBox[
2419	SuperscriptBox["vl", "\[Dagger]"],
2420	TraditionalForm], ".",
2421	FormBox[
2422	SuperscriptBox["\[Gamma]",
2423	FormBox["\[Mu]",
2424	TraditionalForm]],
2425	TraditionalForm], ".",
2426	FormBox[
2427	SubscriptBox["P", "\<\"-\"\>"],
2428	TraditionalForm], ".", "l"}], " ",
2429	FormBox[
2430	SubscriptBox["W",
2431	FormBox["\[Nu]",
2432	TraditionalForm]],
2433	TraditionalForm]}], "+",
2434	RowBox[{
2435	RowBox[{
2436	FormBox[
2437	SuperscriptBox["l", "\[Dagger]"],
2438	TraditionalForm], ".",
2439	FormBox[
2440	SuperscriptBox["\[Gamma]",
2441	FormBox["\[Nu]",
2442	TraditionalForm]],
2443	TraditionalForm], ".",
2444	FormBox[
2445	SubscriptBox["P", "\<\"-\"\>"],
2446	TraditionalForm], ".", "vl"}], " ",
2447	FormBox[
2448	SubsuperscriptBox["W",
2449	FormBox["\[Mu]",
2450	TraditionalForm], "\[Dagger]"],
2451	TraditionalForm]}], "+",
2452	RowBox[{
2453	RowBox[{
2454	FormBox[
2455	SuperscriptBox["dq", "\[Dagger]"],
2456	TraditionalForm], ".",
2457	FormBox[
2458	SuperscriptBox["\[Gamma]",
2459	FormBox["\[Nu]",
2460	TraditionalForm]],
2461	TraditionalForm], ".",
2462	FormBox[
2463	SubscriptBox["P", "\<\"-\"\>"],
2464	TraditionalForm], ".", "uq"}], " ",
2465	FormBox[
2466	SuperscriptBox["CKM", "\[Dagger]"],
2467	TraditionalForm], " ",
2468	FormBox[
2469	SubsuperscriptBox["W",
2470	FormBox["\[Mu]",
2471	TraditionalForm], "\[Dagger]"],
2472	TraditionalForm]}], "+",
2473	RowBox[{
2474	RowBox[{
2475	FormBox[
2476	SuperscriptBox["l", "\[Dagger]"],
2477	TraditionalForm], ".",
2478	FormBox[
2479	SuperscriptBox["\[Gamma]",
2480	FormBox["\[Mu]",
2481	TraditionalForm]],
2482	TraditionalForm], ".",
2483	FormBox[
2484	SubscriptBox["P", "\<\"-\"\>"],
2485	TraditionalForm], ".", "vl"}], " ",
2486	FormBox[
2487	SubsuperscriptBox["W",
2488	FormBox["\[Nu]",
2489	TraditionalForm], "\[Dagger]"],
2490	TraditionalForm]}], "+",
2491	RowBox[{
2492	RowBox[{
2493	FormBox[
2494	SuperscriptBox["dq", "\[Dagger]"],
2495	TraditionalForm], ".",
2496	FormBox[
2497	SuperscriptBox["\[Gamma]",
2498	FormBox["\[Mu]",
2499	TraditionalForm]],
2500	TraditionalForm], ".",
2501	FormBox[
2502	SubscriptBox["P", "\<\"-\"\>"],
2503	TraditionalForm], ".", "uq"}], " ",
2504	FormBox[
2505	SuperscriptBox["CKM", "\[Dagger]"],
2506	TraditionalForm], " ",
2507	FormBox[
2508	SubsuperscriptBox["W",
2509	FormBox["\[Nu]",
2510	TraditionalForm], "\[Dagger]"],
2511	TraditionalForm]}]}], ")"}]}]}]}], ")"}]}]}],
2512	TraditionalForm]], "Output",
2513	CellChangeTimes->{3.45406122390963*^9}]
2514	}, Closed]]
2515	}, Open ]],
2516
2517	Cell[CellGroupData[{
2518
2519	Cell["Yukawa sector", "Subsubsection",
2520	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2521	3.411910393742139^9, 3.411910394852953^9}}],
2522
2523	Cell[CellGroupData[{
2524
2525	Cell[BoxData["LagY"], "Input",
2526	CellChangeTimes->{{3.411910181169772^9, 3.411910184667088^9}, {
2527	3.4119104032372026`^9, 3.411910404165523^9}, 3.4540523167591047`*^9, {
2528	3.454057108491197^9, 3.4540571095455637`^9}, 3.454061225806781*^9}],
2529
2530	Cell[BoxData[
2531	FormBox[
2532	RowBox[{
2533	RowBox[{"-",
2534	FractionBox["1", "2"]}], " ",
2535	FormBox["\[Kappa]",
2536	TraditionalForm], " ",
2537	RowBox[{
2538	FormBox[
2539	SubscriptBox["h",
2540	RowBox[{
2541	FormBox["\[Mu]",
2542	TraditionalForm], ",",
2543	FormBox["\[Nu]",
2544	TraditionalForm]}]],
2545	TraditionalForm], ".",
2546	RowBox[{"(",
2547	RowBox[{"-",
2548	RowBox[{
2549	FormBox[
2550	SubscriptBox["\[Eta]",
2551	RowBox[{
2552	FormBox[
2553	FormBox["\[Mu]",
2554	TraditionalForm],
2555	TraditionalForm], ",",
2556	FormBox[
2557	FormBox["\[Nu]",
2558	TraditionalForm],
2559	TraditionalForm]}]],
2560	TraditionalForm], ".",
2561	RowBox[{"(",
2562	RowBox[{
2563	RowBox[{"-",
2564	FractionBox[
2565	RowBox[{
2566	RowBox[{"(",
2567	RowBox[{"H", "+", "v"}], ")"}], " ",
2568	RowBox[{
2569	FormBox[
2570	SubsuperscriptBox["dq",
2571	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2572	TraditionalForm], ".",
2573	FormBox[
2574	SubscriptBox["dq",
2575	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2576	TraditionalForm]}], " ",
2577	FormBox[
2578	SubscriptBox[
2579	RowBox[{"(",
2580	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2581	RowBox[{"s$194", ",", "r$194"}]],
2582	TraditionalForm], " ",
2583	FormBox[
2584	SubscriptBox["yd", "n$194"],
2585	TraditionalForm]}],
2586	SqrtBox["2"]]}], "-",
2587	FractionBox[
2588	RowBox[{
2589	RowBox[{"(",
2590	RowBox[{"H", "+", "v"}], ")"}], " ",
2591	RowBox[{
2592	FormBox[
2593	SubsuperscriptBox["dq",
2594	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2595	TraditionalForm], ".",
2596	FormBox[
2597	SubscriptBox["dq",
2598	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2599	TraditionalForm]}], " ",
2600	FormBox[
2601	SubscriptBox[
2602	RowBox[{"(",
2603	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2604	RowBox[{"r$195", ",", "s$195"}]],
2605	TraditionalForm], " ",
2606	FormBox[
2607	SubscriptBox["yd", "n$195"],
2608	TraditionalForm]}],
2609	SqrtBox["2"]], "-",
2610	FractionBox[
2611	RowBox[{
2612	RowBox[{"(",
2613	RowBox[{"H", "+", "v"}], ")"}], " ",
2614	RowBox[{
2615	FormBox[
2616	SubsuperscriptBox["l",
2617	RowBox[{"s$194", ",", "n$194"}], "\[Dagger]"],
2618	TraditionalForm], ".",
2619	FormBox[
2620	SubscriptBox["l",
2621	RowBox[{"r$194", ",", "n$194"}]],
2622	TraditionalForm]}], " ",
2623	FormBox[
2624	SubscriptBox[
2625	RowBox[{"(",
2626	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2627	RowBox[{"s$194", ",", "r$194"}]],
2628	TraditionalForm], " ",
2629	FormBox[
2630	SubscriptBox["yl", "n$194"],
2631	TraditionalForm]}],
2632	SqrtBox["2"]], "-",
2633	FractionBox[
2634	RowBox[{
2635	RowBox[{"(",
2636	RowBox[{"H", "+", "v"}], ")"}], " ",
2637	RowBox[{
2638	FormBox[
2639	SubsuperscriptBox["l",
2640	RowBox[{"r$195", ",", "n$195"}], "\[Dagger]"],
2641	TraditionalForm], ".",
2642	FormBox[
2643	SubscriptBox["l",
2644	RowBox[{"s$195", ",", "n$195"}]],
2645	TraditionalForm]}], " ",
2646	FormBox[
2647	SubscriptBox[
2648	RowBox[{"(",
2649	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2650	RowBox[{"r$195", ",", "s$195"}]],
2651	TraditionalForm], " ",
2652	FormBox[
2653	SubscriptBox["yl", "n$195"],
2654	TraditionalForm]}],
2655	SqrtBox["2"]], "-",
2656	FractionBox[
2657	RowBox[{
2658	RowBox[{"(",
2659	RowBox[{"H", "+", "v"}], ")"}], " ",
2660	RowBox[{
2661	FormBox[
2662	SubsuperscriptBox["uq",
2663	RowBox[{"s$194", ",", "n$194", ",", "i$194"}], "\[Dagger]"],
2664	TraditionalForm], ".",
2665	FormBox[
2666	SubscriptBox["uq",
2667	RowBox[{"r$194", ",", "n$194", ",", "i$194"}]],
2668	TraditionalForm]}], " ",
2669	FormBox[
2670	SubscriptBox[
2671	RowBox[{"(",
2672	SubscriptBox["P", "\<\"+\"\>"], ")"}],
2673	RowBox[{"s$194", ",", "r$194"}]],
2674	TraditionalForm], " ",
2675	FormBox[
2676	SubscriptBox["yu", "n$194"],
2677	TraditionalForm]}],
2678	SqrtBox["2"]], "-",
2679	FractionBox[
2680	RowBox[{
2681	RowBox[{"(",
2682	RowBox[{"H", "+", "v"}], ")"}], " ",
2683	RowBox[{
2684	FormBox[
2685	SubsuperscriptBox["uq",
2686	RowBox[{"r$195", ",", "n$195", ",", "i$195"}], "\[Dagger]"],
2687	TraditionalForm], ".",
2688	FormBox[
2689	SubscriptBox["uq",
2690	RowBox[{"s$195", ",", "n$195", ",", "i$195"}]],
2691	TraditionalForm]}], " ",
2692	FormBox[
2693	SubscriptBox[
2694	RowBox[{"(",
2695	SubscriptBox["P", "\<\"-\"\>"], ")"}],
2696	RowBox[{"r$195", ",", "s$195"}]],
2697	TraditionalForm], " ",
2698	FormBox[
2699	SubscriptBox["yu", "n$195"],
2700	TraditionalForm]}],
2701	SqrtBox["2"]]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output",
2702	CellChangeTimes->{3.454061226531508*^9}]
2703	}, Closed]]
2704	}, Open ]],
2705
2706	Cell[CellGroupData[{
2707
2708	Cell["The MUED total Lagrangian", "Subsubsection",
2709	CellChangeTimes->{{3.452857023659556^9, 3.452857026196998^9}, {
2710	3.454050603115306^9, 3.454050604633585^9}, {3.4540508481103973`*^9,
2711	3.454050850614224*^9}}],
2712
2713	Cell[BoxData[
2714	RowBox[{
2715	RowBox[{"LagLED", ":=",
2716	RowBox[{"LagH", "+", "LagG", "+", "LagF", "+", "LagY"}]}], ";"}]], "Input",\
2717
2718	CellChangeTimes->{{3.454056821219754^9, 3.4540568403918133`^9}, {
2719	3.454057126321587^9, 3.454057148256241^9}}]
2720	}, Open ]]
2721	}, Open ]],
2722
2723	Cell[CellGroupData[{
2724
2725	Cell["Calculation of the Feynman Rules", "Section",
2726	CellChangeTimes->{{3.4050095696734943`^9, 3.4050095702696466`^9}, {
2727	3.449909557093049^9, 3.449909562576384^9}, 3.452923012401949*^9, {
2728	3.45405673743528^9, 3.4540567428169327`^9}}],
2729
2730	Cell[CellGroupData[{
2731
2732	Cell["Gauge sector", "Subsubsection",
2733	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2734	3.454057138248085^9, 3.454057139479412^9}}],
2735
2736	Cell[BoxData[
2737	RowBox[{"FeynmanRules", "[",
2738	RowBox[{"LagG", ",", " ",
2739	RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
2740	CellChangeTimes->{{3.45406138410235^9, 3.454061389893989^9}}]
2741	}, Open ]],
2742
2743	Cell[CellGroupData[{
2744
2745	Cell["Scalar sector", "Subsubsection",
2746	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2747	3.411910274288354^9, 3.41191027703699^9}}],
2748
2749	Cell[BoxData[
2750	RowBox[{"FeynmanRules", "[", "LagH", "]"}]], "Input",
2751	CellChangeTimes->{{3.454061456389081^9, 3.454061463346387^9}}]
2752	}, Open ]],
2753
2754	Cell[CellGroupData[{
2755
2756	Cell["Fermion sector", "Subsubsection",
2757	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2758	3.4119103528868923`^9, 3.411910357404933^9}}],
2759
2760	Cell[BoxData[
2761	RowBox[{"FeynmanRules", "[", "LagF", "]"}]], "Input",
2762	CellChangeTimes->{{3.454056857284236^9, 3.4540568672993917`^9},
2763	3.4540569533264227`^9, {3.4540571289311743`^9, 3.4540571290168457`*^9}, {
2764	3.454061235719533^9, 3.45406124186089^9}}]
2765	}, Open ]],
2766
2767	Cell[CellGroupData[{
2768
2769	Cell["Yukawa sector", "Subsubsection",
2770	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2771	3.411910393742139^9, 3.411910394852953^9}}],
2772
2773	Cell[BoxData[
2774	RowBox[{"FeynmanRules", "[", "LagY", "]"}]], "Input",
2775	CellChangeTimes->{{3.454061488319646^9, 3.454061493153029^9}}]
2776	}, Open ]],
2777
2778	Cell[CellGroupData[{
2779
2780	Cell["The MUED total Lagrangian", "Subsubsection",
2781	CellChangeTimes->{{3.452857023659556^9, 3.452857026196998^9}, {
2782	3.454050603115306^9, 3.454050604633585^9}, {3.4540508481103973`*^9,
2783	3.454050850614224*^9}}],
2784
2785	Cell[BoxData[
2786	RowBox[{"FeynmanRules", "[",
2787	RowBox[{"LagLED", ",", " ",
2788	RowBox[{"ScreenOutput", "\[Rule]", " ", "False"}]}], "]"}]], "Input",
2789	CellChangeTimes->{{3.454056821219754^9, 3.4540568403918133`^9}, {
2790	3.454057126321587^9, 3.454057148256241^9}, {3.454061660010816*^9,
2791	3.454061677201768*^9}}]
2792	}, Open ]]
2793	}, Open ]]
2794	}, Open ]]
2795	},
2796	WindowSize->{823, 679},
2797	WindowMargins->{{8, Automatic}, {Automatic, 0}},
2798	PrintingCopies->1,
2799	PrintingPageRange->{1, Automatic},
2800	ShowSelection->True,
2801	Magnification->1.,
2802	FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
2803	StyleDefinitions->"Default.nb"
2804	]
2805	(* End of Notebook Content *)
2806
2807	(* Internal cache information *)
2808	(*CellTagsOutline
2809	CellTagsIndex->{}
2810	*)
2811	(*CellTagsIndex
2812	CellTagsIndex->{}
2813	*)
2814	(*NotebookFileOutline
2815	Notebook[{
2816	Cell[CellGroupData[{
2817	Cell[590, 23, 294, 4, 76, "Title"],
2818	Cell[CellGroupData[{
2819	Cell[909, 31, 114, 1, 67, "Section"],
2820	Cell[1026, 34, 120, 2, 31, "Input"],
2821	Cell[1149, 38, 747, 15, 72, "Input"]
2822	}, Open ]],
2823	Cell[CellGroupData[{
2824	Cell[1933, 58, 209, 3, 67, "Section"],
2825	Cell[CellGroupData[{
2826	Cell[2167, 65, 262, 4, 31, "Input"],
2827	Cell[CellGroupData[{
2828	Cell[2454, 73, 219, 4, 24, "Print"],
2829	Cell[2676, 79, 194, 3, 24, "Print"],
2830	Cell[2873, 84, 187, 3, 24, "Print"],
2831	Cell[3063, 89, 326, 7, 24, "Print"],
2832	Cell[3392, 98, 187, 3, 24, "Print"],
2833	Cell[3582, 103, 226, 4, 24, "Print"],
2834	Cell[3811, 109, 218, 4, 24, "Print"],
2835	Cell[4032, 115, 223, 4, 24, "Print"],
2836	Cell[4258, 121, 224, 4, 24, "Print"],
2837	Cell[4485, 127, 224, 4, 24, "Print"],
2838	Cell[4712, 133, 178, 3, 24, "Print"],
2839	Cell[4893, 138, 208, 4, 24, "Print"],
2840	Cell[5104, 144, 212, 4, 24, "Print"],
2841	Cell[5319, 150, 209, 4, 24, "Print"],
2842	Cell[5531, 156, 371, 8, 45, "Print"]
2843	}, Open ]]
2844	}, Open ]]
2845	}, Open ]],
2846	Cell[CellGroupData[{
2847	Cell[5963, 171, 212, 3, 67, "Section"],
2848	Cell[CellGroupData[{
2849	Cell[6200, 178, 154, 2, 25, "Subsubsection"],
2850	Cell[CellGroupData[{
2851	Cell[6379, 184, 242, 3, 31, "Input"],
2852	Cell[6624, 189, 15096, 478, 316, "Output"]
2853	}, Closed]]
2854	}, Open ]],
2855	Cell[CellGroupData[{
2856	Cell[21769, 673, 154, 2, 25, "Subsubsection"],
2857	Cell[CellGroupData[{
2858	Cell[21948, 679, 239, 3, 31, "Input"],
2859	Cell[22190, 684, 13615, 444, 346, "Output"]
2860	}, Closed]]
2861	}, Open ]],
2862	Cell[CellGroupData[{
2863	Cell[35854, 1134, 158, 2, 25, "Subsubsection"],
2864	Cell[CellGroupData[{
2865	Cell[36037, 1140, 292, 4, 31, "Input"],
2866	Cell[36332, 1146, 44635, 1366, 898, "Output"]
2867	}, Closed]]
2868	}, Open ]],
2869	Cell[CellGroupData[{
2870	Cell[81016, 2518, 155, 2, 25, "Subsubsection"],
2871	Cell[CellGroupData[{
2872	Cell[81196, 2524, 246, 3, 31, "Input"],
2873	Cell[81445, 2529, 5607, 172, 375, "Output"]
2874	}, Closed]]
2875	}, Open ]],
2876	Cell[CellGroupData[{
2877	Cell[87101, 2707, 216, 3, 25, "Subsubsection"],
2878	Cell[87320, 2712, 248, 6, 31, "Input"]
2879	}, Open ]]
2880	}, Open ]],
2881	Cell[CellGroupData[{
2882	Cell[87617, 2724, 244, 3, 67, "Section"],
2883	Cell[CellGroupData[{
2884	Cell[87886, 2731, 154, 2, 25, "Subsubsection"],
2885	Cell[88043, 2735, 210, 4, 31, "Input"]
2886	}, Open ]],
2887	Cell[CellGroupData[{
2888	Cell[88290, 2744, 154, 2, 25, "Subsubsection"],
2889	Cell[88447, 2748, 134, 2, 31, "Input"]
2890	}, Open ]],
2891	Cell[CellGroupData[{
2892	Cell[88618, 2755, 158, 2, 25, "Subsubsection"],
2893	Cell[88779, 2759, 263, 4, 31, "Input"]
2894	}, Open ]],
2895	Cell[CellGroupData[{
2896	Cell[89079, 2768, 155, 2, 25, "Subsubsection"],
2897	Cell[89237, 2772, 134, 2, 31, "Input"]
2898	}, Open ]],
2899	Cell[CellGroupData[{
2900	Cell[89408, 2779, 216, 3, 25, "Subsubsection"],
2901	Cell[89627, 2784, 314, 6, 31, "Input"]
2902	}, Open ]]
2903	}, Open ]]
2904	}, Open ]]
2905	}
2906	]
2907	*)
2908
2909	(* End of internal cache information *)

Download in other formats:

Original Format