LED: LED.nb

File LED.nb, 90.9 KB (added by claudeduhr, 8 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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[     92901,       2900]
14NotebookOptionsPosition[     89981,       2795]
15NotebookOutlinePosition[     90409,       2814]
16CellTagsIndexPosition[     90366,       2811]
17WindowFrame->Normal
18ContainsDynamic->False*)
19
20(* Beginning of Notebook Content *)
21Notebook[{
22
23Cell[CellGroupData[{
24Cell["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
30Cell[CellGroupData[{
31
32Cell["Load of the FeynRules package", "Section",
33 CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],
34
35Cell[BoxData[
36 RowBox[{"Quit", "[", "]"}]], "Input",
37 CellChangeTimes->{{3.4521543016025457`*^9, 3.452154302750087*^9}}],
38
39Cell[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
57Cell[CellGroupData[{
58
59Cell["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
64Cell[CellGroupData[{
65
66Cell[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
72Cell[CellGroupData[{
73
74Cell[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
80Cell[BoxData[
81 FormBox["\<\"Priscila de Aquino\"\>", TraditionalForm]], "Print",
82 CellChangeTimes->{{3.454061149331262*^9, 3.454061153172738*^9},
83   3.454061211313333*^9, 3.454061645522756*^9}],
84
85Cell[BoxData[
86 FormBox["\<\"Claude Duhr\"\>", TraditionalForm]], "Print",
87 CellChangeTimes->{{3.454061149331262*^9, 3.454061153172738*^9},
88   3.454061211313333*^9, 3.454061645557837*^9}],
89
90Cell[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
99Cell[BoxData[
100 FormBox["\<\"Please cite\"\>", TraditionalForm]], "Print",
101 CellChangeTimes->{{3.454061149331262*^9, 3.454061153172738*^9},
102   3.454061211313333*^9, 3.454061645623332*^9}],
103
104Cell[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
110Cell[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
116Cell[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
122Cell[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
128Cell[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
134Cell[BoxData[
135 FormBox["\<\"\"\>", TraditionalForm]], "Print",
136 CellChangeTimes->{{3.454061149331262*^9, 3.454061153172738*^9},
137   3.454061211313333*^9, 3.4540616458229923`*^9}],
138
139Cell[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
145Cell[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
151Cell[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
157Cell[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
170Cell[CellGroupData[{
171
172Cell["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
177Cell[CellGroupData[{
178
179Cell["Gauge sector", "Subsubsection",
180 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
181  3.454057138248085*^9, 3.454057139479412*^9}}],
182
183Cell[CellGroupData[{
184
185Cell[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
190Cell[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
672Cell[CellGroupData[{
673
674Cell["Scalar sector", "Subsubsection",
675 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
676  3.411910274288354*^9, 3.41191027703699*^9}}],
677
678Cell[CellGroupData[{
679
680Cell[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
685Cell[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
1133Cell[CellGroupData[{
1134
1135Cell["Fermion sector", "Subsubsection",
1136 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
1137  3.4119103528868923`*^9, 3.411910357404933*^9}}],
1138
1139Cell[CellGroupData[{
1140
1141Cell[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
1147Cell[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
2517Cell[CellGroupData[{
2518
2519Cell["Yukawa sector", "Subsubsection",
2520 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2521  3.411910393742139*^9, 3.411910394852953*^9}}],
2522
2523Cell[CellGroupData[{
2524
2525Cell[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
2530Cell[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
2706Cell[CellGroupData[{
2707
2708Cell["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
2713Cell[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
2723Cell[CellGroupData[{
2724
2725Cell["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
2730Cell[CellGroupData[{
2731
2732Cell["Gauge sector", "Subsubsection",
2733 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2734  3.454057138248085*^9, 3.454057139479412*^9}}],
2735
2736Cell[BoxData[
2737 RowBox[{"FeynmanRules", "[",
2738  RowBox[{"LagG", ",", " ",
2739   RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
2740 CellChangeTimes->{{3.45406138410235*^9, 3.454061389893989*^9}}]
2741}, Open  ]],
2742
2743Cell[CellGroupData[{
2744
2745Cell["Scalar sector", "Subsubsection",
2746 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2747  3.411910274288354*^9, 3.41191027703699*^9}}],
2748
2749Cell[BoxData[
2750 RowBox[{"FeynmanRules", "[", "LagH", "]"}]], "Input",
2751 CellChangeTimes->{{3.454061456389081*^9, 3.454061463346387*^9}}]
2752}, Open  ]],
2753
2754Cell[CellGroupData[{
2755
2756Cell["Fermion sector", "Subsubsection",
2757 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2758  3.4119103528868923`*^9, 3.411910357404933*^9}}],
2759
2760Cell[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
2767Cell[CellGroupData[{
2768
2769Cell["Yukawa sector", "Subsubsection",
2770 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2771  3.411910393742139*^9, 3.411910394852953*^9}}],
2772
2773Cell[BoxData[
2774 RowBox[{"FeynmanRules", "[", "LagY", "]"}]], "Input",
2775 CellChangeTimes->{{3.454061488319646*^9, 3.454061493153029*^9}}]
2776}, Open  ]],
2777
2778Cell[CellGroupData[{
2779
2780Cell["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
2785Cell[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},
2796WindowSize->{823, 679},
2797WindowMargins->{{8, Automatic}, {Automatic, 0}},
2798PrintingCopies->1,
2799PrintingPageRange->{1, Automatic},
2800ShowSelection->True,
2801Magnification->1.,
2802FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
2803StyleDefinitions->"Default.nb"
2804]
2805(* End of Notebook Content *)
2806
2807(* Internal cache information *)
2808(*CellTagsOutline
2809CellTagsIndex->{}
2810*)
2811(*CellTagsIndex
2812CellTagsIndex->{}
2813*)
2814(*NotebookFileOutline
2815Notebook[{
2816Cell[CellGroupData[{
2817Cell[590, 23, 294, 4, 76, "Title"],
2818Cell[CellGroupData[{
2819Cell[909, 31, 114, 1, 67, "Section"],
2820Cell[1026, 34, 120, 2, 31, "Input"],
2821Cell[1149, 38, 747, 15, 72, "Input"]
2822}, Open  ]],
2823Cell[CellGroupData[{
2824Cell[1933, 58, 209, 3, 67, "Section"],
2825Cell[CellGroupData[{
2826Cell[2167, 65, 262, 4, 31, "Input"],
2827Cell[CellGroupData[{
2828Cell[2454, 73, 219, 4, 24, "Print"],
2829Cell[2676, 79, 194, 3, 24, "Print"],
2830Cell[2873, 84, 187, 3, 24, "Print"],
2831Cell[3063, 89, 326, 7, 24, "Print"],
2832Cell[3392, 98, 187, 3, 24, "Print"],
2833Cell[3582, 103, 226, 4, 24, "Print"],
2834Cell[3811, 109, 218, 4, 24, "Print"],
2835Cell[4032, 115, 223, 4, 24, "Print"],
2836Cell[4258, 121, 224, 4, 24, "Print"],
2837Cell[4485, 127, 224, 4, 24, "Print"],
2838Cell[4712, 133, 178, 3, 24, "Print"],
2839Cell[4893, 138, 208, 4, 24, "Print"],
2840Cell[5104, 144, 212, 4, 24, "Print"],
2841Cell[5319, 150, 209, 4, 24, "Print"],
2842Cell[5531, 156, 371, 8, 45, "Print"]
2843}, Open  ]]
2844}, Open  ]]
2845}, Open  ]],
2846Cell[CellGroupData[{
2847Cell[5963, 171, 212, 3, 67, "Section"],
2848Cell[CellGroupData[{
2849Cell[6200, 178, 154, 2, 25, "Subsubsection"],
2850Cell[CellGroupData[{
2851Cell[6379, 184, 242, 3, 31, "Input"],
2852Cell[6624, 189, 15096, 478, 316, "Output"]
2853}, Closed]]
2854}, Open  ]],
2855Cell[CellGroupData[{
2856Cell[21769, 673, 154, 2, 25, "Subsubsection"],
2857Cell[CellGroupData[{
2858Cell[21948, 679, 239, 3, 31, "Input"],
2859Cell[22190, 684, 13615, 444, 346, "Output"]
2860}, Closed]]
2861}, Open  ]],
2862Cell[CellGroupData[{
2863Cell[35854, 1134, 158, 2, 25, "Subsubsection"],
2864Cell[CellGroupData[{
2865Cell[36037, 1140, 292, 4, 31, "Input"],
2866Cell[36332, 1146, 44635, 1366, 898, "Output"]
2867}, Closed]]
2868}, Open  ]],
2869Cell[CellGroupData[{
2870Cell[81016, 2518, 155, 2, 25, "Subsubsection"],
2871Cell[CellGroupData[{
2872Cell[81196, 2524, 246, 3, 31, "Input"],
2873Cell[81445, 2529, 5607, 172, 375, "Output"]
2874}, Closed]]
2875}, Open  ]],
2876Cell[CellGroupData[{
2877Cell[87101, 2707, 216, 3, 25, "Subsubsection"],
2878Cell[87320, 2712, 248, 6, 31, "Input"]
2879}, Open  ]]
2880}, Open  ]],
2881Cell[CellGroupData[{
2882Cell[87617, 2724, 244, 3, 67, "Section"],
2883Cell[CellGroupData[{
2884Cell[87886, 2731, 154, 2, 25, "Subsubsection"],
2885Cell[88043, 2735, 210, 4, 31, "Input"]
2886}, Open  ]],
2887Cell[CellGroupData[{
2888Cell[88290, 2744, 154, 2, 25, "Subsubsection"],
2889Cell[88447, 2748, 134, 2, 31, "Input"]
2890}, Open  ]],
2891Cell[CellGroupData[{
2892Cell[88618, 2755, 158, 2, 25, "Subsubsection"],
2893Cell[88779, 2759, 263, 4, 31, "Input"]
2894}, Open  ]],
2895Cell[CellGroupData[{
2896Cell[89079, 2768, 155, 2, 25, "Subsubsection"],
2897Cell[89237, 2772, 134, 2, 31, "Input"]
2898}, Open  ]],
2899Cell[CellGroupData[{
2900Cell[89408, 2779, 216, 3, 25, "Subsubsection"],
2901Cell[89627, 2784, 314, 6, 31, "Input"]
2902}, Open  ]]
2903}, Open  ]]
2904}, Open  ]]
2905}
2906]
2907*)
2908
2909(* End of internal cache information *)