RSmodel: RS.nb

File RS.nb, 123.6 KB (added by PriscilaAquino, 8 years ago)

RS Mathematica 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[    126358,       3580]
14NotebookOptionsPosition[    122628,       3452]
15NotebookOutlinePosition[    123061,       3471]
16CellTagsIndexPosition[    123018,       3468]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["The RS Model", "Title",
24 CellChangeTimes->{{3.405054966614888*^9, 3.4050549767315893`*^9},
25   3.4529230123333807`*^9, {3.45405649584802*^9, 3.4540564997867126`*^9}, {
26   3.4540565705776033`*^9, 3.454056571055434*^9}, {3.454057181466007*^9,
27   3.454057182797702*^9}, {3.50607859377206*^9, 3.5060785937981367`*^9}}],
28
29Cell[CellGroupData[{
30
31Cell["Load of the FeynRules package", "Section",
32 CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],
33
34Cell[BoxData[
35 RowBox[{"Quit", "[", "]"}]], "Input",
36 CellChangeTimes->{{3.4521543016025457`*^9, 3.452154302750087*^9}}],
37
38Cell[CellGroupData[{
39
40Cell[BoxData[{
41 RowBox[{
42  RowBox[{"$FeynRulesPath", "=",
43   RowBox[{"SetDirectory", "[", "\"\<PATH TO FEYNRULES\>\"", "]"}]}],
44  ";"}], "\[IndentingNewLine]",
45 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
46 RowBox[{
47  RowBox[{"SetDirectory", "[",
48   RowBox[{"$FeynRulesPath", "<>", "\"\</Models\>\""}], "]"}],
49  ";"}]}], "Input",
50 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
51   3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
52   3.4234163227881193`*^9}, {3.453613499780509*^9, 3.453613524557995*^9}, {
53   3.454050520543564*^9, 3.454050533398179*^9}, {3.454056582682654*^9,
54   3.4540565840807753`*^9}, {3.454061008970613*^9, 3.4540610300313797`*^9},
55   3.4540621439628963`*^9, {3.495340379593639*^9, 3.4953404218994904`*^9}, {
56   3.495340458740946*^9, 3.495340470700296*^9}, {3.495346776441216*^9,
57   3.495346778514391*^9}, {3.495346840109207*^9, 3.495346853955175*^9}, {
58   3.495346989391107*^9, 3.4953470011326303`*^9}, {3.5515944004254293`*^9,
59   3.551594406892641*^9}}],
60
61Cell[CellGroupData[{
62
63Cell[BoxData[
64 FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
65 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
66  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
67  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
68  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
69  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
70  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
71  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
72  3.511150901313452*^9, 3.5515940742919283`*^9}],
73
74Cell[BoxData[
75 FormBox[
76  InterpretationBox[
77   RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.7.50\"\>",
78    "\[InvisibleSpace]",
79    RowBox[{"\<\" (\"\>", " ", "\<\"07 July 2012\"\>"}],
80    "\[InvisibleSpace]", "\<\").\"\>"}],
81   SequenceForm["Version: ", "1.7.50", " (" "07 July 2012", ")."],
82   Editable->False], TraditionalForm]], "Print",
83 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
84  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
85  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
86  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
87  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
88  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
89  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
90  3.511150901313452*^9, 3.551594074299384*^9}],
91
92Cell[BoxData[
93 FormBox["\<\"Authors: C. Degrande, C. Duhr, N. Christensen, B. Fuks\"\>",
94  TraditionalForm]], "Print",
95 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
96  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
97  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
98  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
99  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
100  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
101  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
102  3.511150901313452*^9, 3.5515940743030577`*^9}],
103
104Cell[BoxData[
105 FormBox["\<\" \"\>", TraditionalForm]], "Print",
106 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
107  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
108  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
109  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
110  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
111  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
112  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
113  3.511150901313452*^9, 3.5515940743061543`*^9}],
114
115Cell[BoxData[
116 FormBox["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
117(arXiv:0806.4194).\"\>", TraditionalForm]], "Print",
118 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
119  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
120  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
121  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
122  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
123  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
124  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
125  3.511150901313452*^9, 3.551594074309434*^9}],
126
127Cell[BoxData[
128 FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
129
130 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
131  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
132  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
133  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
134  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
135  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
136  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
137  3.511150901313452*^9, 3.5515940743131227`*^9}],
138
139Cell[BoxData[
140 FormBox["\<\" \"\>", TraditionalForm]], "Print",
141 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
142  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
143  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
144  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
145  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
146  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
147  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
148  3.511150901313452*^9, 3.551594074316382*^9}],
149
150Cell[BoxData[
151 FormBox["\<\"The FeynRules palette can be opened using the command \
152FRPalette[].\"\>", TraditionalForm]], "Print",
153 CellChangeTimes->{3.510484752611849*^9, 3.510485034105152*^9,
154  3.5105494433649282`*^9, 3.510549675693986*^9, 3.510549881729115*^9,
155  3.510550098314848*^9, 3.51055028371528*^9, 3.510550492042159*^9,
156  3.5107748084065847`*^9, 3.510896838467969*^9, 3.510908074669107*^9,
157  3.5109087140073547`*^9, 3.510909251755891*^9, 3.510909510721971*^9,
158  3.5109099636626*^9, 3.51091032067474*^9, 3.510921436884139*^9,
159  3.510996893938015*^9, 3.511008483564971*^9, 3.511072017849297*^9,
160  3.511150901313452*^9, 3.551594074319989*^9}]
161}, Open  ]]
162}, Open  ]]
163}, Open  ]],
164
165Cell[CellGroupData[{
166
167Cell["Load of the full LED model", "Section",
168 CellChangeTimes->{{3.452856959806845*^9, 3.452856965627877*^9}, {
169  3.454050557859632*^9, 3.454050559388439*^9}, {3.454062198742198*^9,
170  3.454062202491016*^9}}],
171
172Cell[CellGroupData[{
173
174Cell[BoxData[
175 RowBox[{"LoadModel", "[", "\"\<RS.fr\>\"", "]"}]], "Input",
176 CellChangeTimes->{{3.402749737680746*^9, 3.4027497378335543`*^9},
177   3.405009528824724*^9, 3.449909327040394*^9, 3.452152811321804*^9,
178   3.4529230123338823`*^9, 3.45405650276263*^9, {3.5052226609868517`*^9,
179   3.5052226622426157`*^9}, {3.5052228699826508`*^9,
180   3.5052228711474533`*^9}, {3.505223019960236*^9, 3.505223020959083*^9}}],
181
182Cell[CellGroupData[{
183
184Cell[BoxData[
185 FormBox["\<\"This model implementation was created by\"\>",
186  TraditionalForm]], "Print",
187 CellChangeTimes->{
188  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
189   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
190   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
191   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
192   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
193   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
194   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
195   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
196   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
197   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
198   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
199   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
200   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
201   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
202   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
203   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
204   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
205   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
206   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
207   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
208   3.551594075401444*^9}],
209
210Cell[BoxData[
211 FormBox["\<\"Priscila de Aquino\"\>", TraditionalForm]], "Print",
212 CellChangeTimes->{
213  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
214   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
215   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
216   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
217   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
218   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
219   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
220   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
221   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
222   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
223   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
224   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
225   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
226   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
227   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
228   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
229   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
230   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
231   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
232   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
233   3.551594075473151*^9}],
234
235Cell[BoxData[
236 FormBox[
237  InterpretationBox[
238   RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"2.1\"\>"}],
239   SequenceForm["Model Version: ", "2.1"],
240   Editable->False], TraditionalForm]], "Print",
241 CellChangeTimes->{
242  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
243   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
244   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
245   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
246   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
247   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
248   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
249   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
250   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
251   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
252   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
253   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
254   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
255   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
256   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
257   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
258   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
259   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
260   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
261   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
262   3.551594075687133*^9}],
263
264Cell[BoxData[
265 FormBox["\<\"For more information, type ModelInformation[].\"\>",
266  TraditionalForm]], "Print",
267 CellChangeTimes->{
268  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
269   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
270   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
271   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
272   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
273   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
274   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
275   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
276   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
277   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
278   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
279   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
280   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
281   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
282   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
283   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
284   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
285   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
286   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
287   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
288   3.551594075717417*^9}],
289
290Cell[BoxData[
291 FormBox["\<\"\"\>", TraditionalForm]], "Print",
292 CellChangeTimes->{
293  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
294   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
295   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
296   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
297   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
298   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
299   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
300   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
301   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
302   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
303   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
304   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
305   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
306   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
307   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
308   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
309   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
310   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
311   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
312   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
313   3.551594075752928*^9}],
314
315Cell[BoxData[
316 FormBox["\<\"   - Loading particle classes.\"\>", TraditionalForm]], "Print",\
317
318 CellChangeTimes->{
319  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
320   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
321   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
322   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
323   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
324   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
325   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
326   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
327   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
328   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
329   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
330   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
331   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
332   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
333   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
334   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
335   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
336   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
337   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
338   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
339   3.551594075783638*^9}],
340
341Cell[BoxData[
342 FormBox["\<\"   - Loading gauge group classes.\"\>",
343  TraditionalForm]], "Print",
344 CellChangeTimes->{
345  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
346   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
347   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
348   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
349   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
350   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
351   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
352   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
353   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
354   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
355   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
356   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
357   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
358   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
359   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
360   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
361   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
362   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
363   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
364   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
365   3.5515940758209553`*^9}],
366
367Cell[BoxData[
368 FormBox["\<\"   - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
369
370 CellChangeTimes->{
371  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
372   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
373   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
374   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
375   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
376   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
377   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
378   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
379   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
380   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
381   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
382   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
383   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
384   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
385   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
386   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
387   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
388   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
389   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
390   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
391   3.551594075857312*^9}],
392
393Cell[BoxData[
394 FormBox[
395  InterpretationBox[
396   RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"RS\"\>",
397    "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
398   SequenceForm["\nModel ", "RS", " loaded."],
399   Editable->False], TraditionalForm]], "Print",
400 CellChangeTimes->{
401  3.50866599762751*^9, 3.508666845577454*^9, 3.508668321500312*^9,
402   3.508735610399456*^9, 3.508736476296989*^9, 3.508736765467557*^9,
403   3.5087373565203857`*^9, 3.5087541049636393`*^9, 3.5087597508701153`*^9,
404   3.50884139835351*^9, 3.5088426497431498`*^9, 3.508844283133127*^9,
405   3.5088445210737877`*^9, 3.508849548668971*^9, 3.508849928790103*^9,
406   3.509035692508004*^9, 3.509036039842061*^9, 3.509079897772564*^9,
407   3.5090813557726173`*^9, 3.509081619074089*^9, 3.509085092118143*^9,
408   3.5103909273405647`*^9, {3.5104001600938873`*^9, 3.510400162694624*^9},
409   3.510400355146824*^9, 3.5104004014134483`*^9, 3.510401161162257*^9,
410   3.5104017247623672`*^9, 3.510402420445574*^9, 3.510462005095992*^9,
411   3.510462564796801*^9, 3.510467153998857*^9, 3.510471049893095*^9,
412   3.510474878937703*^9, 3.5104764238969793`*^9, 3.510477734006971*^9,
413   3.510477914499457*^9, 3.510478150391626*^9, 3.5104837991334667`*^9,
414   3.510484753822405*^9, 3.510485038703555*^9, 3.510549444002864*^9,
415   3.5105496769923553`*^9, 3.510549882956607*^9, 3.510550100545282*^9,
416   3.510550287980063*^9, 3.51055049269799*^9, 3.510774809447246*^9,
417   3.5108968475367603`*^9, 3.510908075741026*^9, 3.510908714591831*^9,
418   3.510909252669683*^9, 3.510909511306642*^9, 3.5109099642213507`*^9,
419   3.5109103212601213`*^9, 3.510921439623987*^9, 3.510996896297347*^9,
420   3.5110084846821404`*^9, 3.511072019559475*^9, 3.511150901883635*^9,
421   3.551594075890205*^9}]
422}, Open  ]]
423}, Open  ]]
424}, Open  ]],
425
426Cell[CellGroupData[{
427
428Cell["The full RS lagrangian", "Section",
429 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
430  3.4540507294896593`*^9, 3.4540507310208197`*^9}, {3.4540567139322166`*^9,
431  3.454056718777896*^9}, {3.506078608080686*^9, 3.5060786082497253`*^9}}],
432
433Cell[CellGroupData[{
434
435Cell["Gauge sector", "Subsubsection",
436 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
437  3.454057138248085*^9, 3.454057139479412*^9}}],
438
439Cell[CellGroupData[{
440
441Cell[BoxData["LagG"], "Input",
442 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
443   3.454050790694797*^9, 3.454050807408856*^9}, 3.454052286514977*^9, {
444   3.454057086606534*^9, 3.4540570873864717`*^9}, 3.454061218230431*^9}],
445
446Cell[BoxData[
447 FormBox[
448  RowBox[{
449   RowBox[{"-",
450    FractionBox["1", "2"]}], " ",
451   FormBox["\[Kappa]",
452    TraditionalForm], " ",
453   RowBox[{
454    FormBox[
455     SubscriptBox["h",
456      RowBox[{
457       FormBox["\[Mu]",
458        TraditionalForm], ",",
459       FormBox["\[Nu]",
460        TraditionalForm]}]],
461     TraditionalForm], ".",
462    RowBox[{"(",
463     RowBox[{
464      RowBox[{"-",
465       RowBox[{
466        FormBox[
467         SubscriptBox["\[Eta]",
468          RowBox[{
469           FormBox[
470            FormBox["\[Mu]",
471             TraditionalForm],
472            TraditionalForm], ",",
473           FormBox[
474            FormBox["\[Nu]",
475             TraditionalForm],
476            TraditionalForm]}]],
477         TraditionalForm], ".",
478        RowBox[{"(",
479         RowBox[{
480          RowBox[{"-",
481           RowBox[{
482            FractionBox["1", "4"], " ",
483            RowBox[{"(",
484             RowBox[{
485              RowBox[{
486               FormBox[
487                SubscriptBox["g", "s"],
488                TraditionalForm], " ",
489               FormBox[
490                SubscriptBox["G",
491                 RowBox[{
492                  FormBox["\[Rho]",
493                   TraditionalForm], ",", "a2"}]],
494                TraditionalForm], " ",
495               FormBox[
496                SubscriptBox["G",
497                 RowBox[{"sig", ",", "a3"}]],
498                TraditionalForm], " ",
499               FormBox[
500                SubscriptBox["f",
501                 RowBox[{"a1", ",", "a2", ",", "a3"}]],
502                TraditionalForm]}], "-",
503              FormBox[
504               RowBox[{
505                SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
506                FormBox[
507                 SubscriptBox["G",
508                  RowBox[{
509                   FormBox["\[Rho]",
510                    TraditionalForm], ",", "a1"}]],
511                 TraditionalForm], ")"}],
512               TraditionalForm], "+",
513              FormBox[
514               RowBox[{
515                SubscriptBox["\<\"\[PartialD]\"\>",
516                 FormBox["\[Rho]",
517                  TraditionalForm]], "(",
518                FormBox[
519                 SubscriptBox["G",
520                  RowBox[{"sig", ",", "a1"}]],
521                 TraditionalForm], ")"}],
522               TraditionalForm]}], ")"}], " ",
523            RowBox[{"(",
524             RowBox[{
525              RowBox[{
526               FormBox[
527                SubscriptBox["g", "s"],
528                TraditionalForm], " ",
529               FormBox[
530                SubscriptBox["G",
531                 RowBox[{
532                  FormBox["\[Rho]",
533                   TraditionalForm], ",", "a4"}]],
534                TraditionalForm], " ",
535               FormBox[
536                SubscriptBox["G",
537                 RowBox[{"sig", ",", "a5"}]],
538                TraditionalForm], " ",
539               FormBox[
540                SubscriptBox["f",
541                 RowBox[{"a1", ",", "a4", ",", "a5"}]],
542                TraditionalForm]}], "-",
543              FormBox[
544               RowBox[{
545                SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
546                FormBox[
547                 SubscriptBox["G",
548                  RowBox[{
549                   FormBox["\[Rho]",
550                    TraditionalForm], ",", "a1"}]],
551                 TraditionalForm], ")"}],
552               TraditionalForm], "+",
553              FormBox[
554               RowBox[{
555                SubscriptBox["\<\"\[PartialD]\"\>",
556                 FormBox["\[Rho]",
557                  TraditionalForm]], "(",
558                FormBox[
559                 SubscriptBox["G",
560                  RowBox[{"sig", ",", "a1"}]],
561                 TraditionalForm], ")"}],
562               TraditionalForm]}], ")"}]}]}], "-",
563          RowBox[{
564           FractionBox["1", "4"], " ",
565           RowBox[{"(",
566            RowBox[{
567             FractionBox[
568              RowBox[{
569               FormBox["e",
570                TraditionalForm], " ",
571               FormBox[
572                SubscriptBox["Wi",
573                 RowBox[{
574                  FormBox["\[Rho]",
575                   TraditionalForm], ",", "i2"}]],
576                TraditionalForm], " ",
577               FormBox[
578                SubscriptBox["Wi",
579                 RowBox[{"sig", ",", "i3"}]],
580                TraditionalForm], " ",
581               FormBox[
582                SubscriptBox["\[Epsilon]",
583                 RowBox[{"i1", ",", "i2", ",", "i3"}]],
584                TraditionalForm]}],
585              FormBox[
586               SubscriptBox["s", "w"],
587               TraditionalForm]], "-",
588             FormBox[
589              RowBox[{
590               SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
591               FormBox[
592                SubscriptBox["Wi",
593                 RowBox[{
594                  FormBox["\[Rho]",
595                   TraditionalForm], ",", "i1"}]],
596                TraditionalForm], ")"}],
597              TraditionalForm], "+",
598             FormBox[
599              RowBox[{
600               SubscriptBox["\<\"\[PartialD]\"\>",
601                FormBox["\[Rho]",
602                 TraditionalForm]], "(",
603               FormBox[
604                SubscriptBox["Wi",
605                 RowBox[{"sig", ",", "i1"}]],
606                TraditionalForm], ")"}],
607              TraditionalForm]}], ")"}], " ",
608           RowBox[{"(",
609            RowBox[{
610             FractionBox[
611              RowBox[{
612               FormBox["e",
613                TraditionalForm], " ",
614               FormBox[
615                SubscriptBox["Wi",
616                 RowBox[{
617                  FormBox["\[Rho]",
618                   TraditionalForm], ",", "i4"}]],
619                TraditionalForm], " ",
620               FormBox[
621                SubscriptBox["Wi",
622                 RowBox[{"sig", ",", "i5"}]],
623                TraditionalForm], " ",
624               FormBox[
625                SubscriptBox["\[Epsilon]",
626                 RowBox[{"i1", ",", "i4", ",", "i5"}]],
627                TraditionalForm]}],
628              FormBox[
629               SubscriptBox["s", "w"],
630               TraditionalForm]], "-",
631             FormBox[
632              RowBox[{
633               SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
634               FormBox[
635                SubscriptBox["Wi",
636                 RowBox[{
637                  FormBox["\[Rho]",
638                   TraditionalForm], ",", "i1"}]],
639                TraditionalForm], ")"}],
640              TraditionalForm], "+",
641             FormBox[
642              RowBox[{
643               SubscriptBox["\<\"\[PartialD]\"\>",
644                FormBox["\[Rho]",
645                 TraditionalForm]], "(",
646               FormBox[
647                SubscriptBox["Wi",
648                 RowBox[{"sig", ",", "i1"}]],
649                TraditionalForm], ")"}],
650              TraditionalForm]}], ")"}]}], "-",
651          RowBox[{
652           FractionBox["1", "4"], " ",
653           SuperscriptBox[
654            RowBox[{"(",
655             RowBox[{
656              FormBox[
657               RowBox[{
658                SubscriptBox["\<\"\[PartialD]\"\>",
659                 FormBox["\[Rho]",
660                  TraditionalForm]], "(",
661                FormBox[
662                 SubscriptBox["B", "sig"],
663                 TraditionalForm], ")"}],
664               TraditionalForm], "-",
665              FormBox[
666               RowBox[{
667                SubscriptBox["\<\"\[PartialD]\"\>", "sig"], "(",
668                FormBox[
669                 SubscriptBox["B",
670                  FormBox["\[Rho]",
671                   TraditionalForm]],
672                 TraditionalForm], ")"}],
673               TraditionalForm]}], ")"}], "2"]}]}], ")"}]}]}], "-",
674      RowBox[{
675       RowBox[{"(",
676        RowBox[{
677         RowBox[{
678          FormBox[
679           SubscriptBox["g", "s"],
680           TraditionalForm], " ",
681          FormBox[
682           SubscriptBox["G",
683            RowBox[{
684             FormBox["\[Mu]",
685              TraditionalForm], ",", "a2"}]],
686           TraditionalForm], " ",
687          FormBox[
688           SubscriptBox["G",
689            RowBox[{
690             FormBox["\[Rho]",
691              TraditionalForm], ",", "a3"}]],
692           TraditionalForm], " ",
693          FormBox[
694           SubscriptBox["f",
695            RowBox[{"a1", ",", "a2", ",", "a3"}]],
696           TraditionalForm]}], "-",
697         FormBox[
698          RowBox[{
699           SubscriptBox["\<\"\[PartialD]\"\>",
700            FormBox["\[Rho]",
701             TraditionalForm]], "(",
702           FormBox[
703            SubscriptBox["G",
704             RowBox[{
705              FormBox["\[Mu]",
706               TraditionalForm], ",", "a1"}]],
707            TraditionalForm], ")"}],
708          TraditionalForm], "+",
709         FormBox[
710          RowBox[{
711           SubscriptBox["\<\"\[PartialD]\"\>",
712            FormBox["\[Mu]",
713             TraditionalForm]], "(",
714           FormBox[
715            SubscriptBox["G",
716             RowBox[{
717              FormBox["\[Rho]",
718               TraditionalForm], ",", "a1"}]],
719            TraditionalForm], ")"}],
720          TraditionalForm]}], ")"}], " ",
721       RowBox[{"(",
722        RowBox[{
723         RowBox[{
724          FormBox[
725           SubscriptBox["g", "s"],
726           TraditionalForm], " ",
727          FormBox[
728           SubscriptBox["G",
729            RowBox[{
730             FormBox["\[Nu]",
731              TraditionalForm], ",", "a2"}]],
732           TraditionalForm], " ",
733          FormBox[
734           SubscriptBox["G",
735            RowBox[{
736             FormBox["\[Rho]",
737              TraditionalForm], ",", "a3"}]],
738           TraditionalForm], " ",
739          FormBox[
740           SubscriptBox["f",
741            RowBox[{"a1", ",", "a2", ",", "a3"}]],
742           TraditionalForm]}], "-",
743         FormBox[
744          RowBox[{
745           SubscriptBox["\<\"\[PartialD]\"\>",
746            FormBox["\[Rho]",
747             TraditionalForm]], "(",
748           FormBox[
749            SubscriptBox["G",
750             RowBox[{
751              FormBox["\[Nu]",
752               TraditionalForm], ",", "a1"}]],
753            TraditionalForm], ")"}],
754          TraditionalForm], "+",
755         FormBox[
756          RowBox[{
757           SubscriptBox["\<\"\[PartialD]\"\>",
758            FormBox["\[Nu]",
759             TraditionalForm]], "(",
760           FormBox[
761            SubscriptBox["G",
762             RowBox[{
763              FormBox["\[Rho]",
764               TraditionalForm], ",", "a1"}]],
765            TraditionalForm], ")"}],
766          TraditionalForm]}], ")"}]}], "-",
767      RowBox[{
768       RowBox[{"(",
769        RowBox[{
770         FractionBox[
771          RowBox[{
772           FormBox["e",
773            TraditionalForm], " ",
774           FormBox[
775            SubscriptBox["Wi",
776             RowBox[{
777              FormBox["\[Mu]",
778               TraditionalForm], ",", "i2"}]],
779            TraditionalForm], " ",
780           FormBox[
781            SubscriptBox["Wi",
782             RowBox[{
783              FormBox["\[Rho]",
784               TraditionalForm], ",", "i3"}]],
785            TraditionalForm], " ",
786           FormBox[
787            SubscriptBox["\[Epsilon]",
788             RowBox[{"i1", ",", "i2", ",", "i3"}]],
789            TraditionalForm]}],
790          FormBox[
791           SubscriptBox["s", "w"],
792           TraditionalForm]], "-",
793         FormBox[
794          RowBox[{
795           SubscriptBox["\<\"\[PartialD]\"\>",
796            FormBox["\[Rho]",
797             TraditionalForm]], "(",
798           FormBox[
799            SubscriptBox["Wi",
800             RowBox[{
801              FormBox["\[Mu]",
802               TraditionalForm], ",", "i1"}]],
803            TraditionalForm], ")"}],
804          TraditionalForm], "+",
805         FormBox[
806          RowBox[{
807           SubscriptBox["\<\"\[PartialD]\"\>",
808            FormBox["\[Mu]",
809             TraditionalForm]], "(",
810           FormBox[
811            SubscriptBox["Wi",
812             RowBox[{
813              FormBox["\[Rho]",
814               TraditionalForm], ",", "i1"}]],
815            TraditionalForm], ")"}],
816          TraditionalForm]}], ")"}], " ",
817       RowBox[{"(",
818        RowBox[{
819         FractionBox[
820          RowBox[{
821           FormBox["e",
822            TraditionalForm], " ",
823           FormBox[
824            SubscriptBox["Wi",
825             RowBox[{
826              FormBox["\[Nu]",
827               TraditionalForm], ",", "i4"}]],
828            TraditionalForm], " ",
829           FormBox[
830            SubscriptBox["Wi",
831             RowBox[{
832              FormBox["\[Rho]",
833               TraditionalForm], ",", "i5"}]],
834            TraditionalForm], " ",
835           FormBox[
836            SubscriptBox["\[Epsilon]",
837             RowBox[{"i1", ",", "i4", ",", "i5"}]],
838            TraditionalForm]}],
839          FormBox[
840           SubscriptBox["s", "w"],
841           TraditionalForm]], "-",
842         FormBox[
843          RowBox[{
844           SubscriptBox["\<\"\[PartialD]\"\>",
845            FormBox["\[Rho]",
846             TraditionalForm]], "(",
847           FormBox[
848            SubscriptBox["Wi",
849             RowBox[{
850              FormBox["\[Nu]",
851               TraditionalForm], ",", "i1"}]],
852            TraditionalForm], ")"}],
853          TraditionalForm], "+",
854         FormBox[
855          RowBox[{
856           SubscriptBox["\<\"\[PartialD]\"\>",
857            FormBox["\[Nu]",
858             TraditionalForm]], "(",
859           FormBox[
860            SubscriptBox["Wi",
861             RowBox[{
862              FormBox["\[Rho]",
863               TraditionalForm], ",", "i1"}]],
864            TraditionalForm], ")"}],
865          TraditionalForm]}], ")"}]}], "-",
866      RowBox[{
867       RowBox[{"(",
868        RowBox[{
869         FormBox[
870          RowBox[{
871           SubscriptBox["\<\"\[PartialD]\"\>",
872            FormBox["\[Mu]",
873             TraditionalForm]], "(",
874           FormBox[
875            SubscriptBox["B",
876             FormBox["\[Rho]",
877              TraditionalForm]],
878            TraditionalForm], ")"}],
879          TraditionalForm], "-",
880         FormBox[
881          RowBox[{
882           SubscriptBox["\<\"\[PartialD]\"\>",
883            FormBox["\[Rho]",
884             TraditionalForm]], "(",
885           FormBox[
886            SubscriptBox["B",
887             FormBox["\[Mu]",
888              TraditionalForm]],
889            TraditionalForm], ")"}],
890          TraditionalForm]}], ")"}], " ",
891       RowBox[{"(",
892        RowBox[{
893         FormBox[
894          RowBox[{
895           SubscriptBox["\<\"\[PartialD]\"\>",
896            FormBox["\[Nu]",
897             TraditionalForm]], "(",
898           FormBox[
899            SubscriptBox["B",
900             FormBox["\[Rho]",
901              TraditionalForm]],
902            TraditionalForm], ")"}],
903          TraditionalForm], "-",
904         FormBox[
905          RowBox[{
906           SubscriptBox["\<\"\[PartialD]\"\>",
907            FormBox["\[Rho]",
908             TraditionalForm]], "(",
909           FormBox[
910            SubscriptBox["B",
911             FormBox["\[Nu]",
912              TraditionalForm]],
913            TraditionalForm], ")"}],
914          TraditionalForm]}], ")"}]}]}], ")"}]}]}],
915  TraditionalForm]], "Output",
916 CellChangeTimes->{3.4540612188923187`*^9, 3.4953404870443583`*^9,
917  3.495346918275885*^9, 3.4953470351248198`*^9}]
918}, Open  ]]
919}, Open  ]],
920
921Cell[CellGroupData[{
922
923Cell["Scalar sector", "Subsubsection",
924 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
925  3.411910274288354*^9, 3.41191027703699*^9}}],
926
927Cell[CellGroupData[{
928
929Cell[BoxData["LagH"], "Input",
930 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
931   3.411910290186841*^9, 3.411910292005392*^9}, 3.454052293282386*^9, {
932   3.454057094128326*^9, 3.454057094642251*^9}, 3.45406122079182*^9}],
933
934Cell[BoxData[
935 FormBox[
936  RowBox[{
937   RowBox[{"-",
938    FractionBox["1", "2"]}], " ",
939   FormBox["\[Kappa]",
940    TraditionalForm], " ",
941   RowBox[{
942    FormBox[
943     SubscriptBox["h",
944      RowBox[{
945       FormBox["\[Mu]",
946        TraditionalForm], ",",
947       FormBox["\[Nu]",
948        TraditionalForm]}]],
949     TraditionalForm], ".",
950    RowBox[{"(",
951     RowBox[{
952      RowBox[{"-",
953       RowBox[{
954        FormBox[
955         SubscriptBox["\[Eta]",
956          RowBox[{
957           FormBox[
958            FormBox["\[Mu]",
959             TraditionalForm],
960            TraditionalForm], ",",
961           FormBox[
962            FormBox["\[Nu]",
963             TraditionalForm],
964            TraditionalForm]}]],
965         TraditionalForm], ".",
966        RowBox[{"(",
967         RowBox[{
968          RowBox[{
969           RowBox[{"(",
970            RowBox[{
971             RowBox[{"-",
972              FractionBox[
973               RowBox[{
974                FormBox["e",
975                 TraditionalForm], " ",
976                RowBox[{"(",
977                 RowBox[{"H", "+", "v"}], ")"}], " ",
978                FormBox[
979                 SubscriptBox["Wi",
980                  RowBox[{
981                   FormBox["\[Rho]",
982                    TraditionalForm], ",", "3"}]],
983                 TraditionalForm]}],
984               RowBox[{"2", " ",
985                SqrtBox["2"], " ",
986                FormBox[
987                 SubscriptBox["s", "w"],
988                 TraditionalForm]}]]}], "+",
989             FractionBox[
990              RowBox[{
991               FormBox["e",
992                TraditionalForm], " ",
993               FormBox[
994                SubscriptBox["B",
995                 FormBox["\[Rho]",
996                  TraditionalForm]],
997                TraditionalForm], " ",
998               RowBox[{"(",
999                RowBox[{"H", "+", "v"}], ")"}]}],
1000              RowBox[{"2", " ",
1001               SqrtBox["2"], " ",
1002               FormBox[
1003                SubscriptBox["c", "w"],
1004                TraditionalForm]}]], "-",
1005             FractionBox[
1006              RowBox[{"\[ImaginaryI]", " ",
1007               FormBox[
1008                RowBox[{
1009                 SubscriptBox["\<\"\[PartialD]\"\>",
1010                  FormBox["\[Rho]",
1011                   TraditionalForm]], "(", "H", ")"}],
1012                TraditionalForm]}],
1013              SqrtBox["2"]]}], ")"}], " ",
1014           RowBox[{"(",
1015            RowBox[{
1016             RowBox[{"-",
1017              FractionBox[
1018               RowBox[{
1019                FormBox["e",
1020                 TraditionalForm], " ",
1021                RowBox[{"(",
1022                 RowBox[{"H", "+", "v"}], ")"}], " ",
1023                FormBox[
1024                 SubscriptBox["Wi",
1025                  RowBox[{
1026                   FormBox["\[Rho]",
1027                    TraditionalForm], ",", "3"}]],
1028                 TraditionalForm]}],
1029               RowBox[{"2", " ",
1030                SqrtBox["2"], " ",
1031                FormBox[
1032                 SubscriptBox["s", "w"],
1033                 TraditionalForm]}]]}], "+",
1034             FractionBox[
1035              RowBox[{
1036               FormBox["e",
1037                TraditionalForm], " ",
1038               FormBox[
1039                SubscriptBox["B",
1040                 FormBox["\[Rho]",
1041                  TraditionalForm]],
1042                TraditionalForm], " ",
1043               RowBox[{"(",
1044                RowBox[{"H", "+", "v"}], ")"}]}],
1045              RowBox[{"2", " ",
1046               SqrtBox["2"], " ",
1047               FormBox[
1048                SubscriptBox["c", "w"],
1049                TraditionalForm]}]], "+",
1050             FractionBox[
1051              RowBox[{"\[ImaginaryI]", " ",
1052               FormBox[
1053                RowBox[{
1054                 SubscriptBox["\<\"\[PartialD]\"\>",
1055                  FormBox["\[Rho]",
1056                   TraditionalForm]], "(", "H", ")"}],
1057                TraditionalForm]}],
1058              SqrtBox["2"]]}], ")"}]}], "+",
1059          FractionBox[
1060           RowBox[{
1061            SuperscriptBox[
1062             FormBox["e",
1063              TraditionalForm], "2"], " ",
1064            SuperscriptBox[
1065             RowBox[{"(",
1066              RowBox[{"H", "+", "v"}], ")"}], "2"], " ",
1067            RowBox[{"(",
1068             RowBox[{
1069              FormBox[
1070               SubscriptBox["Wi",
1071                RowBox[{
1072                 FormBox["\[Rho]",
1073                  TraditionalForm], ",", "1"}]],
1074               TraditionalForm], "-",
1075              RowBox[{"\[ImaginaryI]", " ",
1076               FormBox[
1077                SubscriptBox["Wi",
1078                 RowBox[{
1079                  FormBox["\[Rho]",
1080                   TraditionalForm], ",", "2"}]],
1081                TraditionalForm]}]}], ")"}], " ",
1082            RowBox[{"(",
1083             RowBox[{
1084              FormBox[
1085               SubscriptBox["Wi",
1086                RowBox[{
1087                 FormBox["\[Rho]",
1088                  TraditionalForm], ",", "1"}]],
1089               TraditionalForm], "+",
1090              RowBox[{"\[ImaginaryI]", " ",
1091               FormBox[
1092                SubscriptBox["Wi",
1093                 RowBox[{
1094                  FormBox["\[Rho]",
1095                   TraditionalForm], ",", "2"}]],
1096                TraditionalForm]}]}], ")"}]}],
1097           RowBox[{"8", " ",
1098            SuperscriptBox[
1099             FormBox[
1100              SubscriptBox["s", "w"],
1101              TraditionalForm], "2"]}]]}], ")"}]}]}], "+",
1102      RowBox[{
1103       RowBox[{"(",
1104        RowBox[{
1105         RowBox[{"-",
1106          FractionBox[
1107           RowBox[{
1108            FormBox["e",
1109             TraditionalForm], " ",
1110            RowBox[{"(",
1111             RowBox[{"H", "+", "v"}], ")"}], " ",
1112            FormBox[
1113             SubscriptBox["Wi",
1114              RowBox[{
1115               FormBox["\[Mu]",
1116                TraditionalForm], ",", "3"}]],
1117             TraditionalForm]}],
1118           RowBox[{"2", " ",
1119            SqrtBox["2"], " ",
1120            FormBox[
1121             SubscriptBox["s", "w"],
1122             TraditionalForm]}]]}], "+",
1123         FractionBox[
1124          RowBox[{
1125           FormBox["e",
1126            TraditionalForm], " ",
1127           FormBox[
1128            SubscriptBox["B",
1129             FormBox["\[Mu]",
1130              TraditionalForm]],
1131            TraditionalForm], " ",
1132           RowBox[{"(",
1133            RowBox[{"H", "+", "v"}], ")"}]}],
1134          RowBox[{"2", " ",
1135           SqrtBox["2"], " ",
1136           FormBox[
1137            SubscriptBox["c", "w"],
1138            TraditionalForm]}]], "+",
1139         FractionBox[
1140          RowBox[{"\[ImaginaryI]", " ",
1141           FormBox[
1142            RowBox[{
1143             SubscriptBox["\<\"\[PartialD]\"\>",
1144              FormBox["\[Mu]",
1145               TraditionalForm]], "(", "H", ")"}],
1146            TraditionalForm]}],
1147          SqrtBox["2"]]}], ")"}], " ",
1148       RowBox[{"(",
1149        RowBox[{
1150         RowBox[{"-",
1151          FractionBox[
1152           RowBox[{
1153            FormBox["e",
1154             TraditionalForm], " ",
1155            RowBox[{"(",
1156             RowBox[{"H", "+", "v"}], ")"}], " ",
1157            FormBox[
1158             SubscriptBox["Wi",
1159              RowBox[{
1160               FormBox["\[Nu]",
1161                TraditionalForm], ",", "3"}]],
1162             TraditionalForm]}],
1163           RowBox[{"2", " ",
1164            SqrtBox["2"], " ",
1165            FormBox[
1166             SubscriptBox["s", "w"],
1167             TraditionalForm]}]]}], "+",
1168         FractionBox[
1169          RowBox[{
1170           FormBox["e",
1171            TraditionalForm], " ",
1172           FormBox[
1173            SubscriptBox["B",
1174             FormBox["\[Nu]",
1175              TraditionalForm]],
1176            TraditionalForm], " ",
1177           RowBox[{"(",
1178            RowBox[{"H", "+", "v"}], ")"}]}],
1179          RowBox[{"2", " ",
1180           SqrtBox["2"], " ",
1181           FormBox[
1182            SubscriptBox["c", "w"],
1183            TraditionalForm]}]], "-",
1184         FractionBox[
1185          RowBox[{"\[ImaginaryI]", " ",
1186           FormBox[
1187            RowBox[{
1188             SubscriptBox["\<\"\[PartialD]\"\>",
1189              FormBox["\[Nu]",
1190               TraditionalForm]], "(", "H", ")"}],
1191            TraditionalForm]}],
1192          SqrtBox["2"]]}], ")"}]}], "+",
1193      RowBox[{
1194       RowBox[{"(",
1195        RowBox[{
1196         RowBox[{"-",
1197          FractionBox[
1198           RowBox[{
1199            FormBox["e",
1200             TraditionalForm], " ",
1201            RowBox[{"(",
1202             RowBox[{"H", "+", "v"}], ")"}], " ",
1203            FormBox[
1204             SubscriptBox["Wi",
1205              RowBox[{
1206               FormBox["\[Mu]",
1207                TraditionalForm], ",", "3"}]],
1208             TraditionalForm]}],
1209           RowBox[{"2", " ",
1210            SqrtBox["2"], " ",
1211            FormBox[
1212             SubscriptBox["s", "w"],
1213             TraditionalForm]}]]}], "+",
1214         FractionBox[
1215          RowBox[{
1216           FormBox["e",
1217            TraditionalForm], " ",
1218           FormBox[
1219            SubscriptBox["B",
1220             FormBox["\[Mu]",
1221              TraditionalForm]],
1222            TraditionalForm], " ",
1223           RowBox[{"(",
1224            RowBox[{"H", "+", "v"}], ")"}]}],
1225          RowBox[{"2", " ",
1226           SqrtBox["2"], " ",
1227           FormBox[
1228            SubscriptBox["c", "w"],
1229            TraditionalForm]}]], "-",
1230         FractionBox[
1231          RowBox[{"\[ImaginaryI]", " ",
1232           FormBox[
1233            RowBox[{
1234             SubscriptBox["\<\"\[PartialD]\"\>",
1235              FormBox["\[Mu]",
1236               TraditionalForm]], "(", "H", ")"}],
1237            TraditionalForm]}],
1238          SqrtBox["2"]]}], ")"}], " ",
1239       RowBox[{"(",
1240        RowBox[{
1241         RowBox[{"-",
1242          FractionBox[
1243           RowBox[{
1244            FormBox["e",
1245             TraditionalForm], " ",
1246            RowBox[{"(",
1247             RowBox[{"H", "+", "v"}], ")"}], " ",
1248            FormBox[
1249             SubscriptBox["Wi",
1250              RowBox[{
1251               FormBox["\[Nu]",
1252                TraditionalForm], ",", "3"}]],
1253             TraditionalForm]}],
1254           RowBox[{"2", " ",
1255            SqrtBox["2"], " ",
1256            FormBox[
1257             SubscriptBox["s", "w"],
1258             TraditionalForm]}]]}], "+",
1259         FractionBox[
1260          RowBox[{
1261           FormBox["e",
1262            TraditionalForm], " ",
1263           FormBox[
1264            SubscriptBox["B",
1265             FormBox["\[Nu]",
1266              TraditionalForm]],
1267            TraditionalForm], " ",
1268           RowBox[{"(",
1269            RowBox[{"H", "+", "v"}], ")"}]}],
1270          RowBox[{"2", " ",
1271           SqrtBox["2"], " ",
1272           FormBox[
1273            SubscriptBox["c", "w"],
1274            TraditionalForm]}]], "+",
1275         FractionBox[
1276          RowBox[{"\[ImaginaryI]", " ",
1277           FormBox[
1278            RowBox[{
1279             SubscriptBox["\<\"\[PartialD]\"\>",
1280              FormBox["\[Nu]",
1281               TraditionalForm]], "(", "H", ")"}],
1282            TraditionalForm]}],
1283          SqrtBox["2"]]}], ")"}]}], "+",
1284      FractionBox[
1285       RowBox[{
1286        SuperscriptBox[
1287         FormBox["e",
1288          TraditionalForm], "2"], " ",
1289        SuperscriptBox[
1290         RowBox[{"(",
1291          RowBox[{"H", "+", "v"}], ")"}], "2"], " ",
1292        RowBox[{"(",
1293         RowBox[{
1294          FormBox[
1295           SubscriptBox["Wi",
1296            RowBox[{
1297             FormBox["\[Mu]",
1298              TraditionalForm], ",", "1"}]],
1299           TraditionalForm], "+",
1300          RowBox[{"\[ImaginaryI]", " ",
1301           FormBox[
1302            SubscriptBox["Wi",
1303             RowBox[{
1304              FormBox["\[Mu]",
1305               TraditionalForm], ",", "2"}]],
1306            TraditionalForm]}]}], ")"}], " ",
1307        RowBox[{"(",
1308         RowBox[{
1309          FormBox[
1310           SubscriptBox["Wi",
1311            RowBox[{
1312             FormBox["\[Nu]",
1313              TraditionalForm], ",", "1"}]],
1314           TraditionalForm], "-",
1315          RowBox[{"\[ImaginaryI]", " ",
1316           FormBox[
1317            SubscriptBox["Wi",
1318             RowBox[{
1319              FormBox["\[Nu]",
1320               TraditionalForm], ",", "2"}]],
1321            TraditionalForm]}]}], ")"}]}],
1322       RowBox[{"8", " ",
1323        SuperscriptBox[
1324         FormBox[
1325          SubscriptBox["s", "w"],
1326          TraditionalForm], "2"]}]], "+",
1327      FractionBox[
1328       RowBox[{
1329        SuperscriptBox[
1330         FormBox["e",
1331          TraditionalForm], "2"], " ",
1332        SuperscriptBox[
1333         RowBox[{"(",
1334          RowBox[{"H", "+", "v"}], ")"}], "2"], " ",
1335        RowBox[{"(",
1336         RowBox[{
1337          FormBox[
1338           SubscriptBox["Wi",
1339            RowBox[{
1340             FormBox["\[Mu]",
1341              TraditionalForm], ",", "1"}]],
1342           TraditionalForm], "-",
1343          RowBox[{"\[ImaginaryI]", " ",
1344           FormBox[
1345            SubscriptBox["Wi",
1346             RowBox[{
1347              FormBox["\[Mu]",
1348               TraditionalForm], ",", "2"}]],
1349            TraditionalForm]}]}], ")"}], " ",
1350        RowBox[{"(",
1351         RowBox[{
1352          FormBox[
1353           SubscriptBox["Wi",
1354            RowBox[{
1355             FormBox["\[Nu]",
1356              TraditionalForm], ",", "1"}]],
1357           TraditionalForm], "+",
1358          RowBox[{"\[ImaginaryI]", " ",
1359           FormBox[
1360            SubscriptBox["Wi",
1361             RowBox[{
1362              FormBox["\[Nu]",
1363               TraditionalForm], ",", "2"}]],
1364            TraditionalForm]}]}], ")"}]}],
1365       RowBox[{"8", " ",
1366        SuperscriptBox[
1367         FormBox[
1368          SubscriptBox["s", "w"],
1369          TraditionalForm], "2"]}]], "-",
1370      RowBox[{
1371       FractionBox["1", "4"], " ", "\[Lambda]", " ",
1372       SuperscriptBox[
1373        RowBox[{"(",
1374         RowBox[{"H", "+", "v"}], ")"}], "4"]}], "+",
1375      RowBox[{
1376       FractionBox["1", "2"], " ",
1377       SuperscriptBox[
1378        FormBox["\[Mu]",
1379         TraditionalForm], "2"], " ",
1380       SuperscriptBox[
1381        RowBox[{"(",
1382         RowBox[{"H", "+", "v"}], ")"}], "2"]}]}], ")"}]}]}],
1383  TraditionalForm]], "Output",
1384 CellChangeTimes->{3.454061221137125*^9, 3.495340488969482*^9,
1385  3.49534692008082*^9, 3.4953470365285683`*^9}]
1386}, Open  ]]
1387}, Open  ]],
1388
1389Cell[CellGroupData[{
1390
1391Cell["Fermion sector", "Subsubsection",
1392 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
1393  3.4119103528868923`*^9, 3.411910357404933*^9}}],
1394
1395Cell[CellGroupData[{
1396
1397Cell[BoxData["LagF"], "Input",
1398 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
1399   3.411910379677638*^9, 3.4119103807255*^9}, {3.454050812632284*^9,
1400   3.4540508182235947`*^9}, 3.4540522991223593`*^9, {3.454057102034585*^9,
1401   3.454057104921763*^9}, 3.454061223464816*^9}],
1402
1403Cell[BoxData[
1404 FormBox[
1405  RowBox[{
1406   RowBox[{"-",
1407    FractionBox["1", "2"]}], " ",
1408   FormBox["\[Kappa]",
1409    TraditionalForm], " ",
1410   RowBox[{
1411    FormBox[
1412     SubscriptBox["h",
1413      RowBox[{
1414       FormBox["\[Mu]",
1415        TraditionalForm], ",",
1416       FormBox["\[Nu]",
1417        TraditionalForm]}]],
1418     TraditionalForm], ".",
1419    RowBox[{"(",
1420     RowBox[{
1421      RowBox[{"-",
1422       RowBox[{
1423        FormBox[
1424         SubscriptBox["\[Eta]",
1425          RowBox[{
1426           FormBox[
1427            FormBox["\[Mu]",
1428             TraditionalForm],
1429            TraditionalForm], ",",
1430           FormBox[
1431            FormBox["\[Nu]",
1432             TraditionalForm],
1433            TraditionalForm]}]],
1434         TraditionalForm], ".",
1435        RowBox[{"(",
1436         RowBox[{
1437          RowBox[{"\[ImaginaryI]", " ",
1438           RowBox[{
1439            FormBox[
1440             OverscriptBox["dq", "\<\"-\"\>"],
1441             TraditionalForm], ".",
1442            FormBox[
1443             SuperscriptBox["\[Gamma]",
1444              FormBox["\[Rho]",
1445               TraditionalForm]],
1446             TraditionalForm], ".",
1447            RowBox[{"(",
1448             RowBox[{
1449              FormBox[
1450               RowBox[{
1451                SubscriptBox["\<\"\[PartialD]\"\>",
1452                 FormBox["\[Rho]",
1453                  TraditionalForm]], "(", "dq", ")"}],
1454               TraditionalForm], "-",
1455              FractionBox[
1456               RowBox[{"\[ImaginaryI]", " ",
1457                FormBox["e",
1458                 TraditionalForm], " ",
1459                FormBox[
1460                 SubscriptBox["B",
1461                  FormBox["\[Rho]",
1462                   TraditionalForm]],
1463                 TraditionalForm], " ",
1464                RowBox[{
1465                 FormBox[
1466                  SubscriptBox["P", "\<\"-\"\>"],
1467                  TraditionalForm], ".", "dq"}]}],
1468               RowBox[{"6", " ",
1469                FormBox[
1470                 SubscriptBox["c", "w"],
1471                 TraditionalForm]}]], "+",
1472              FractionBox[
1473               RowBox[{"\[ImaginaryI]", " ",
1474                FormBox["e",
1475                 TraditionalForm], " ",
1476                FormBox[
1477                 SubscriptBox["B",
1478                  FormBox["\[Rho]",
1479                   TraditionalForm]],
1480                 TraditionalForm], " ",
1481                RowBox[{
1482                 FormBox[
1483                  SubscriptBox["P", "\<\"+\"\>"],
1484                  TraditionalForm], ".", "dq"}]}],
1485               RowBox[{"3", " ",
1486                FormBox[
1487                 SubscriptBox["c", "w"],
1488                 TraditionalForm]}]], "-",
1489              RowBox[{"\[ImaginaryI]", " ",
1490               FormBox[
1491                SubscriptBox["g", "s"],
1492                TraditionalForm], " ",
1493               RowBox[{
1494                FormBox[
1495                 SuperscriptBox["T", "a$861"],
1496                 TraditionalForm], ".", "dq"}], " ",
1497               FormBox[
1498                SubscriptBox["G",
1499                 RowBox[{
1500                  FormBox["\[Rho]",
1501                   TraditionalForm], ",", "a$861"}]],
1502                TraditionalForm]}], "+",
1503              FractionBox[
1504               RowBox[{"\[ImaginaryI]", " ",
1505                FormBox["e",
1506                 TraditionalForm], " ",
1507                RowBox[{
1508                 FormBox[
1509                  SubscriptBox["P", "\<\"-\"\>"],
1510                  TraditionalForm], ".", "dq"}], " ",
1511                FormBox[
1512                 SubscriptBox["Wi",
1513                  RowBox[{
1514                   FormBox["\[Rho]",
1515                    TraditionalForm], ",", "3"}]],
1516                 TraditionalForm]}],
1517               RowBox[{"2", " ",
1518                FormBox[
1519                 SubscriptBox["s", "w"],
1520                 TraditionalForm]}]]}], ")"}]}]}], "+",
1521          RowBox[{"\[ImaginaryI]", " ",
1522           RowBox[{
1523            FormBox[
1524             OverscriptBox["l", "\<\"-\"\>"],
1525             TraditionalForm], ".",
1526            FormBox[
1527             SuperscriptBox["\[Gamma]",
1528              FormBox["\[Rho]",
1529               TraditionalForm]],
1530             TraditionalForm], ".",
1531            RowBox[{"(",
1532             RowBox[{
1533              FormBox[
1534               RowBox[{
1535                SubscriptBox["\<\"\[PartialD]\"\>",
1536                 FormBox["\[Rho]",
1537                  TraditionalForm]], "(", "l", ")"}],
1538               TraditionalForm], "-",
1539              FractionBox[
1540               RowBox[{"\[ImaginaryI]", " ",
1541                FormBox["e",
1542                 TraditionalForm], " ",
1543                FormBox[
1544                 SubscriptBox["B",
1545                  FormBox["\[Rho]",
1546                   TraditionalForm]],
1547                 TraditionalForm], " ",
1548                RowBox[{
1549                 FormBox[
1550                  SubscriptBox["P", "\<\"-\"\>"],
1551                  TraditionalForm], ".", "l"}]}],
1552               RowBox[{"2", " ",
1553                FormBox[
1554                 SubscriptBox["c", "w"],
1555                 TraditionalForm]}]], "+",
1556              FractionBox[
1557               RowBox[{"\[ImaginaryI]", " ",
1558                FormBox["e",
1559                 TraditionalForm], " ",
1560                FormBox[
1561                 SubscriptBox["B",
1562                  FormBox["\[Rho]",
1563                   TraditionalForm]],
1564                 TraditionalForm], " ",
1565                RowBox[{
1566                 FormBox[
1567                  SubscriptBox["P", "\<\"+\"\>"],
1568                  TraditionalForm], ".", "l"}]}],
1569               FormBox[
1570                SubscriptBox["c", "w"],
1571                TraditionalForm]], "+",
1572              FractionBox[
1573               RowBox[{"\[ImaginaryI]", " ",
1574                FormBox["e",
1575                 TraditionalForm], " ",
1576                RowBox[{
1577                 FormBox[
1578                  SubscriptBox["P", "\<\"-\"\>"],
1579                  TraditionalForm], ".", "l"}], " ",
1580                FormBox[
1581                 SubscriptBox["Wi",
1582                  RowBox[{
1583                   FormBox["\[Rho]",
1584                    TraditionalForm], ",", "3"}]],
1585                 TraditionalForm]}],
1586               RowBox[{"2", " ",
1587                FormBox[
1588                 SubscriptBox["s", "w"],
1589                 TraditionalForm]}]]}], ")"}]}]}], "+",
1590          RowBox[{"\[ImaginaryI]", " ",
1591           RowBox[{
1592            FormBox[
1593             OverscriptBox["uq", "\<\"-\"\>"],
1594             TraditionalForm], ".",
1595            FormBox[
1596             SuperscriptBox["\[Gamma]",
1597              FormBox["\[Rho]",
1598               TraditionalForm]],
1599             TraditionalForm], ".",
1600            RowBox[{"(",
1601             RowBox[{
1602              FormBox[
1603               RowBox[{
1604                SubscriptBox["\<\"\[PartialD]\"\>",
1605                 FormBox["\[Rho]",
1606                  TraditionalForm]], "(", "uq", ")"}],
1607               TraditionalForm], "-",
1608              FractionBox[
1609               RowBox[{"\[ImaginaryI]", " ",
1610                FormBox["e",
1611                 TraditionalForm], " ",
1612                FormBox[
1613                 SubscriptBox["B",
1614                  FormBox["\[Rho]",
1615                   TraditionalForm]],
1616                 TraditionalForm], " ",
1617                RowBox[{
1618                 FormBox[
1619                  SubscriptBox["P", "\<\"-\"\>"],
1620                  TraditionalForm], ".", "uq"}]}],
1621               RowBox[{"6", " ",
1622                FormBox[
1623                 SubscriptBox["c", "w"],
1624                 TraditionalForm]}]], "-",
1625              FractionBox[
1626               RowBox[{"2", " ", "\[ImaginaryI]", " ",
1627                FormBox["e",
1628                 TraditionalForm], " ",
1629                FormBox[
1630                 SubscriptBox["B",
1631                  FormBox["\[Rho]",
1632                   TraditionalForm]],
1633                 TraditionalForm], " ",
1634                RowBox[{
1635                 FormBox[
1636                  SubscriptBox["P", "\<\"+\"\>"],
1637                  TraditionalForm], ".", "uq"}]}],
1638               RowBox[{"3", " ",
1639                FormBox[
1640                 SubscriptBox["c", "w"],
1641                 TraditionalForm]}]], "-",
1642              RowBox[{"\[ImaginaryI]", " ",
1643               FormBox[
1644                SubscriptBox["g", "s"],
1645                TraditionalForm], " ",
1646               RowBox[{
1647                FormBox[
1648                 SuperscriptBox["T", "a$860"],
1649                 TraditionalForm], ".", "uq"}], " ",
1650               FormBox[
1651                SubscriptBox["G",
1652                 RowBox[{
1653                  FormBox["\[Rho]",
1654                   TraditionalForm], ",", "a$860"}]],
1655                TraditionalForm]}], "-",
1656              FractionBox[
1657               RowBox[{"\[ImaginaryI]", " ",
1658                FormBox["e",
1659                 TraditionalForm], " ",
1660                RowBox[{
1661                 FormBox[
1662                  SubscriptBox["P", "\<\"-\"\>"],
1663                  TraditionalForm], ".", "uq"}], " ",
1664                FormBox[
1665                 SubscriptBox["Wi",
1666                  RowBox[{
1667                   FormBox["\[Rho]",
1668                    TraditionalForm], ",", "3"}]],
1669                 TraditionalForm]}],
1670               RowBox[{"2", " ",
1671                FormBox[
1672                 SubscriptBox["s", "w"],
1673                 TraditionalForm]}]]}], ")"}]}]}], "+",
1674          RowBox[{"\[ImaginaryI]", " ",
1675           RowBox[{
1676            FormBox[
1677             OverscriptBox["vl", "\<\"-\"\>"],
1678             TraditionalForm], ".",
1679            FormBox[
1680             SuperscriptBox["\[Gamma]",
1681              FormBox["\[Rho]",
1682               TraditionalForm]],
1683             TraditionalForm], ".",
1684            RowBox[{"(",
1685             RowBox[{
1686              FormBox[
1687               RowBox[{
1688                SubscriptBox["\<\"\[PartialD]\"\>",
1689                 FormBox["\[Rho]",
1690                  TraditionalForm]], "(", "vl", ")"}],
1691               TraditionalForm], "+",
1692              FractionBox[
1693               RowBox[{"\[ImaginaryI]", " ",
1694                FormBox["e",
1695                 TraditionalForm], " ",
1696                FormBox[
1697                 SubscriptBox["B",
1698                  FormBox["\[Rho]",
1699                   TraditionalForm]],
1700                 TraditionalForm], " ",
1701                RowBox[{
1702                 FormBox[
1703                  SubscriptBox["P", "\<\"-\"\>"],
1704                  TraditionalForm], ".", "vl"}]}],
1705               RowBox[{"2", " ",
1706                FormBox[
1707                 SubscriptBox["c", "w"],
1708                 TraditionalForm]}]], "-",
1709              FractionBox[
1710               RowBox[{"\[ImaginaryI]", " ",
1711                FormBox["e",
1712                 TraditionalForm], " ",
1713                RowBox[{
1714                 FormBox[
1715                  SubscriptBox["P", "\<\"-\"\>"],
1716                  TraditionalForm], ".", "vl"}], " ",
1717                FormBox[
1718                 SubscriptBox["Wi",
1719                  RowBox[{
1720                   FormBox["\[Rho]",
1721                    TraditionalForm], ",", "3"}]],
1722                 TraditionalForm]}],
1723               RowBox[{"2", " ",
1724                FormBox[
1725                 SubscriptBox["s", "w"],
1726                 TraditionalForm]}]]}], ")"}]}]}], "-",
1727          RowBox[{
1728           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1729           RowBox[{"(",
1730            RowBox[{
1731             RowBox[{
1732              FormBox[
1733               OverscriptBox["dq", "\<\"-\"\>"],
1734               TraditionalForm], ".",
1735              FormBox[
1736               SuperscriptBox["\[Gamma]",
1737                FormBox["\[Rho]",
1738                 TraditionalForm]],
1739               TraditionalForm], ".",
1740              FormBox[
1741               RowBox[{
1742                SubscriptBox["\<\"\[PartialD]\"\>",
1743                 FormBox["\[Rho]",
1744                  TraditionalForm]], "(", "dq", ")"}],
1745               TraditionalForm]}], "+",
1746             RowBox[{
1747              FormBox[
1748               RowBox[{
1749                SubscriptBox["\<\"\[PartialD]\"\>",
1750                 FormBox["\[Rho]",
1751                  TraditionalForm]], "(",
1752                FormBox[
1753                 OverscriptBox["dq", "\<\"-\"\>"],
1754                 TraditionalForm], ")"}],
1755               TraditionalForm], ".",
1756              FormBox[
1757               SuperscriptBox["\[Gamma]",
1758                FormBox["\[Rho]",
1759                 TraditionalForm]],
1760               TraditionalForm], ".", "dq"}]}], ")"}]}], "-",
1761          RowBox[{
1762           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1763           RowBox[{"(",
1764            RowBox[{
1765             RowBox[{
1766              FormBox[
1767               OverscriptBox["l", "\<\"-\"\>"],
1768               TraditionalForm], ".",
1769              FormBox[
1770               SuperscriptBox["\[Gamma]",
1771                FormBox["\[Rho]",
1772                 TraditionalForm]],
1773               TraditionalForm], ".",
1774              FormBox[
1775               RowBox[{
1776                SubscriptBox["\<\"\[PartialD]\"\>",
1777                 FormBox["\[Rho]",
1778                  TraditionalForm]], "(", "l", ")"}],
1779               TraditionalForm]}], "+",
1780             RowBox[{
1781              FormBox[
1782               RowBox[{
1783                SubscriptBox["\<\"\[PartialD]\"\>",
1784                 FormBox["\[Rho]",
1785                  TraditionalForm]], "(",
1786                FormBox[
1787                 OverscriptBox["l", "\<\"-\"\>"],
1788                 TraditionalForm], ")"}],
1789               TraditionalForm], ".",
1790              FormBox[
1791               SuperscriptBox["\[Gamma]",
1792                FormBox["\[Rho]",
1793                 TraditionalForm]],
1794               TraditionalForm], ".", "l"}]}], ")"}]}], "-",
1795          RowBox[{
1796           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1797           RowBox[{"(",
1798            RowBox[{
1799             RowBox[{
1800              FormBox[
1801               OverscriptBox["uq", "\<\"-\"\>"],
1802               TraditionalForm], ".",
1803              FormBox[
1804               SuperscriptBox["\[Gamma]",
1805                FormBox["\[Rho]",
1806                 TraditionalForm]],
1807               TraditionalForm], ".",
1808              FormBox[
1809               RowBox[{
1810                SubscriptBox["\<\"\[PartialD]\"\>",
1811                 FormBox["\[Rho]",
1812                  TraditionalForm]], "(", "uq", ")"}],
1813               TraditionalForm]}], "+",
1814             RowBox[{
1815              FormBox[
1816               RowBox[{
1817                SubscriptBox["\<\"\[PartialD]\"\>",
1818                 FormBox["\[Rho]",
1819                  TraditionalForm]], "(",
1820                FormBox[
1821                 OverscriptBox["uq", "\<\"-\"\>"],
1822                 TraditionalForm], ")"}],
1823               TraditionalForm], ".",
1824              FormBox[
1825               SuperscriptBox["\[Gamma]",
1826                FormBox["\[Rho]",
1827                 TraditionalForm]],
1828               TraditionalForm], ".", "uq"}]}], ")"}]}], "-",
1829          RowBox[{
1830           FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1831           RowBox[{"(",
1832            RowBox[{
1833             RowBox[{
1834              FormBox[
1835               OverscriptBox["vl", "\<\"-\"\>"],
1836               TraditionalForm], ".",
1837              FormBox[
1838               SuperscriptBox["\[Gamma]",
1839                FormBox["\[Rho]",
1840                 TraditionalForm]],
1841               TraditionalForm], ".",
1842              FormBox[
1843               RowBox[{
1844                SubscriptBox["\<\"\[PartialD]\"\>",
1845                 FormBox["\[Rho]",
1846                  TraditionalForm]], "(", "vl", ")"}],
1847               TraditionalForm]}], "+",
1848             RowBox[{
1849              FormBox[
1850               RowBox[{
1851                SubscriptBox["\<\"\[PartialD]\"\>",
1852                 FormBox["\[Rho]",
1853                  TraditionalForm]], "(",
1854                FormBox[
1855                 OverscriptBox["vl", "\<\"-\"\>"],
1856                 TraditionalForm], ")"}],
1857               TraditionalForm], ".",
1858              FormBox[
1859               SuperscriptBox["\[Gamma]",
1860                FormBox["\[Rho]",
1861                 TraditionalForm]],
1862               TraditionalForm], ".", "vl"}]}], ")"}]}], "-",
1863          FractionBox[
1864           RowBox[{
1865            FormBox["e",
1866             TraditionalForm], " ",
1867            RowBox[{"(",
1868             RowBox[{
1869              RowBox[{"CKM", " ",
1870               RowBox[{
1871                FormBox[
1872                 OverscriptBox["uq", "\<\"-\"\>"],
1873                 TraditionalForm], ".",
1874                FormBox[
1875                 SuperscriptBox["\[Gamma]",
1876                  FormBox["\[Rho]",
1877                   TraditionalForm]],
1878                 TraditionalForm], ".",
1879                FormBox[
1880                 SubscriptBox["P", "\<\"-\"\>"],
1881                 TraditionalForm], ".", "dq"}], " ",
1882               FormBox[
1883                SubscriptBox["W",
1884                 FormBox["\[Rho]",
1885                  TraditionalForm]],
1886                TraditionalForm]}], "+",
1887              RowBox[{
1888               RowBox[{
1889                FormBox[
1890                 OverscriptBox["vl", "\<\"-\"\>"],
1891                 TraditionalForm], ".",
1892                FormBox[
1893                 SuperscriptBox["\[Gamma]",
1894                  FormBox["\[Rho]",
1895                   TraditionalForm]],
1896                 TraditionalForm], ".",
1897                FormBox[
1898                 SubscriptBox["P", "\<\"-\"\>"],
1899                 TraditionalForm], ".", "l"}], " ",
1900               FormBox[
1901                SubscriptBox["W",
1902                 FormBox["\[Rho]",
1903                  TraditionalForm]],
1904                TraditionalForm]}], "+",
1905              RowBox[{
1906               RowBox[{
1907                FormBox[
1908                 OverscriptBox["l", "\<\"-\"\>"],
1909                 TraditionalForm], ".",
1910                FormBox[
1911                 SuperscriptBox["\[Gamma]",
1912                  FormBox["\[Rho]",
1913                   TraditionalForm]],
1914                 TraditionalForm], ".",
1915                FormBox[
1916                 SubscriptBox["P", "\<\"-\"\>"],
1917                 TraditionalForm], ".", "vl"}], " ",
1918               FormBox[
1919                SubsuperscriptBox["W",
1920                 FormBox["\[Rho]",
1921                  TraditionalForm], "\[Dagger]"],
1922                TraditionalForm]}], "+",
1923              RowBox[{
1924               RowBox[{
1925                FormBox[
1926                 OverscriptBox["dq", "\<\"-\"\>"],
1927                 TraditionalForm], ".",
1928                FormBox[
1929                 SuperscriptBox["\[Gamma]",
1930                  FormBox["\[Rho]",
1931                   TraditionalForm]],
1932                 TraditionalForm], ".",
1933                FormBox[
1934                 SubscriptBox["P", "\<\"-\"\>"],
1935                 TraditionalForm], ".", "uq"}], " ",
1936               FormBox[
1937                SuperscriptBox["CKM", "\[Dagger]"],
1938                TraditionalForm], " ",
1939               FormBox[
1940                SubsuperscriptBox["W",
1941                 FormBox["\[Rho]",
1942                  TraditionalForm], "\[Dagger]"],
1943                TraditionalForm]}]}], ")"}]}],
1944           RowBox[{
1945            SqrtBox["2"], " ",
1946            FormBox[
1947             SubscriptBox["s", "w"],
1948             TraditionalForm]}]]}], ")"}]}]}], "+",
1949      RowBox[{
1950       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1951       RowBox[{
1952        FormBox[
1953         OverscriptBox["dq", "\<\"-\"\>"],
1954         TraditionalForm], ".",
1955        FormBox[
1956         SuperscriptBox["\[Gamma]",
1957          FormBox["\[Mu]",
1958           TraditionalForm]],
1959         TraditionalForm], ".",
1960        RowBox[{"(",
1961         RowBox[{
1962          FormBox[
1963           RowBox[{
1964            SubscriptBox["\<\"\[PartialD]\"\>",
1965             FormBox["\[Nu]",
1966              TraditionalForm]], "(", "dq", ")"}],
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], ".", "dq"}]}],
1981           RowBox[{"6", " ",
1982            FormBox[
1983             SubscriptBox["c", "w"],
1984             TraditionalForm]}]], "+",
1985          FractionBox[
1986           RowBox[{"\[ImaginaryI]", " ",
1987            FormBox["e",
1988             TraditionalForm], " ",
1989            FormBox[
1990             SubscriptBox["B",
1991              FormBox["\[Nu]",
1992               TraditionalForm]],
1993             TraditionalForm], " ",
1994            RowBox[{
1995             FormBox[
1996              SubscriptBox["P", "\<\"+\"\>"],
1997              TraditionalForm], ".", "dq"}]}],
1998           RowBox[{"3", " ",
1999            FormBox[
2000             SubscriptBox["c", "w"],
2001             TraditionalForm]}]], "-",
2002          RowBox[{"\[ImaginaryI]", " ",
2003           FormBox[
2004            SubscriptBox["g", "s"],
2005            TraditionalForm], " ",
2006           RowBox[{
2007            FormBox[
2008             SuperscriptBox["T", "a$866"],
2009             TraditionalForm], ".", "dq"}], " ",
2010           FormBox[
2011            SubscriptBox["G",
2012             RowBox[{
2013              FormBox["\[Nu]",
2014               TraditionalForm], ",", "a$866"}]],
2015            TraditionalForm]}], "+",
2016          FractionBox[
2017           RowBox[{"\[ImaginaryI]", " ",
2018            FormBox["e",
2019             TraditionalForm], " ",
2020            RowBox[{
2021             FormBox[
2022              SubscriptBox["P", "\<\"-\"\>"],
2023              TraditionalForm], ".", "dq"}], " ",
2024            FormBox[
2025             SubscriptBox["Wi",
2026              RowBox[{
2027               FormBox["\[Nu]",
2028                TraditionalForm], ",", "3"}]],
2029             TraditionalForm]}],
2030           RowBox[{"2", " ",
2031            FormBox[
2032             SubscriptBox["s", "w"],
2033             TraditionalForm]}]]}], ")"}]}]}], "+",
2034      RowBox[{
2035       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2036       RowBox[{
2037        FormBox[
2038         OverscriptBox["dq", "\<\"-\"\>"],
2039         TraditionalForm], ".",
2040        FormBox[
2041         SuperscriptBox["\[Gamma]",
2042          FormBox["\[Nu]",
2043           TraditionalForm]],
2044         TraditionalForm], ".",
2045        RowBox[{"(",
2046         RowBox[{
2047          FormBox[
2048           RowBox[{
2049            SubscriptBox["\<\"\[PartialD]\"\>",
2050             FormBox["\[Mu]",
2051              TraditionalForm]], "(", "dq", ")"}],
2052           TraditionalForm], "-",
2053          FractionBox[
2054           RowBox[{"\[ImaginaryI]", " ",
2055            FormBox["e",
2056             TraditionalForm], " ",
2057            FormBox[
2058             SubscriptBox["B",
2059              FormBox["\[Mu]",
2060               TraditionalForm]],
2061             TraditionalForm], " ",
2062            RowBox[{
2063             FormBox[
2064              SubscriptBox["P", "\<\"-\"\>"],
2065              TraditionalForm], ".", "dq"}]}],
2066           RowBox[{"6", " ",
2067            FormBox[
2068             SubscriptBox["c", "w"],
2069             TraditionalForm]}]], "+",
2070          FractionBox[
2071           RowBox[{"\[ImaginaryI]", " ",
2072            FormBox["e",
2073             TraditionalForm], " ",
2074            FormBox[
2075             SubscriptBox["B",
2076              FormBox["\[Mu]",
2077               TraditionalForm]],
2078             TraditionalForm], " ",
2079            RowBox[{
2080             FormBox[
2081              SubscriptBox["P", "\<\"+\"\>"],
2082              TraditionalForm], ".", "dq"}]}],
2083           RowBox[{"3", " ",
2084            FormBox[
2085             SubscriptBox["c", "w"],
2086             TraditionalForm]}]], "-",
2087          RowBox[{"\[ImaginaryI]", " ",
2088           FormBox[
2089            SubscriptBox["g", "s"],
2090            TraditionalForm], " ",
2091           RowBox[{
2092            FormBox[
2093             SuperscriptBox["T", "a$867"],
2094             TraditionalForm], ".", "dq"}], " ",
2095           FormBox[
2096            SubscriptBox["G",
2097             RowBox[{
2098              FormBox["\[Mu]",
2099               TraditionalForm], ",", "a$867"}]],
2100            TraditionalForm]}], "+",
2101          FractionBox[
2102           RowBox[{"\[ImaginaryI]", " ",
2103            FormBox["e",
2104             TraditionalForm], " ",
2105            RowBox[{
2106             FormBox[
2107              SubscriptBox["P", "\<\"-\"\>"],
2108              TraditionalForm], ".", "dq"}], " ",
2109            FormBox[
2110             SubscriptBox["Wi",
2111              RowBox[{
2112               FormBox["\[Mu]",
2113                TraditionalForm], ",", "3"}]],
2114             TraditionalForm]}],
2115           RowBox[{"2", " ",
2116            FormBox[
2117             SubscriptBox["s", "w"],
2118             TraditionalForm]}]]}], ")"}]}]}], "+",
2119      RowBox[{
2120       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2121       RowBox[{
2122        FormBox[
2123         OverscriptBox["l", "\<\"-\"\>"],
2124         TraditionalForm], ".",
2125        FormBox[
2126         SuperscriptBox["\[Gamma]",
2127          FormBox["\[Mu]",
2128           TraditionalForm]],
2129         TraditionalForm], ".",
2130        RowBox[{"(",
2131         RowBox[{
2132          FormBox[
2133           RowBox[{
2134            SubscriptBox["\<\"\[PartialD]\"\>",
2135             FormBox["\[Nu]",
2136              TraditionalForm]], "(", "l", ")"}],
2137           TraditionalForm], "-",
2138          FractionBox[
2139           RowBox[{"\[ImaginaryI]", " ",
2140            FormBox["e",
2141             TraditionalForm], " ",
2142            FormBox[
2143             SubscriptBox["B",
2144              FormBox["\[Nu]",
2145               TraditionalForm]],
2146             TraditionalForm], " ",
2147            RowBox[{
2148             FormBox[
2149              SubscriptBox["P", "\<\"-\"\>"],
2150              TraditionalForm], ".", "l"}]}],
2151           RowBox[{"2", " ",
2152            FormBox[
2153             SubscriptBox["c", "w"],
2154             TraditionalForm]}]], "+",
2155          FractionBox[
2156           RowBox[{"\[ImaginaryI]", " ",
2157            FormBox["e",
2158             TraditionalForm], " ",
2159            FormBox[
2160             SubscriptBox["B",
2161              FormBox["\[Nu]",
2162               TraditionalForm]],
2163             TraditionalForm], " ",
2164            RowBox[{
2165             FormBox[
2166              SubscriptBox["P", "\<\"+\"\>"],
2167              TraditionalForm], ".", "l"}]}],
2168           FormBox[
2169            SubscriptBox["c", "w"],
2170            TraditionalForm]], "+",
2171          FractionBox[
2172           RowBox[{"\[ImaginaryI]", " ",
2173            FormBox["e",
2174             TraditionalForm], " ",
2175            RowBox[{
2176             FormBox[
2177              SubscriptBox["P", "\<\"-\"\>"],
2178              TraditionalForm], ".", "l"}], " ",
2179            FormBox[
2180             SubscriptBox["Wi",
2181              RowBox[{
2182               FormBox["\[Nu]",
2183                TraditionalForm], ",", "3"}]],
2184             TraditionalForm]}],
2185           RowBox[{"2", " ",
2186            FormBox[
2187             SubscriptBox["s", "w"],
2188             TraditionalForm]}]]}], ")"}]}]}], "+",
2189      RowBox[{
2190       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2191       RowBox[{
2192        FormBox[
2193         OverscriptBox["l", "\<\"-\"\>"],
2194         TraditionalForm], ".",
2195        FormBox[
2196         SuperscriptBox["\[Gamma]",
2197          FormBox["\[Nu]",
2198           TraditionalForm]],
2199         TraditionalForm], ".",
2200        RowBox[{"(",
2201         RowBox[{
2202          FormBox[
2203           RowBox[{
2204            SubscriptBox["\<\"\[PartialD]\"\>",
2205             FormBox["\[Mu]",
2206              TraditionalForm]], "(", "l", ")"}],
2207           TraditionalForm], "-",
2208          FractionBox[
2209           RowBox[{"\[ImaginaryI]", " ",
2210            FormBox["e",
2211             TraditionalForm], " ",
2212            FormBox[
2213             SubscriptBox["B",
2214              FormBox["\[Mu]",
2215               TraditionalForm]],
2216             TraditionalForm], " ",
2217            RowBox[{
2218             FormBox[
2219              SubscriptBox["P", "\<\"-\"\>"],
2220              TraditionalForm], ".", "l"}]}],
2221           RowBox[{"2", " ",
2222            FormBox[
2223             SubscriptBox["c", "w"],
2224             TraditionalForm]}]], "+",
2225          FractionBox[
2226           RowBox[{"\[ImaginaryI]", " ",
2227            FormBox["e",
2228             TraditionalForm], " ",
2229            FormBox[
2230             SubscriptBox["B",
2231              FormBox["\[Mu]",
2232               TraditionalForm]],
2233             TraditionalForm], " ",
2234            RowBox[{
2235             FormBox[
2236              SubscriptBox["P", "\<\"+\"\>"],
2237              TraditionalForm], ".", "l"}]}],
2238           FormBox[
2239            SubscriptBox["c", "w"],
2240            TraditionalForm]], "+",
2241          FractionBox[
2242           RowBox[{"\[ImaginaryI]", " ",
2243            FormBox["e",
2244             TraditionalForm], " ",
2245            RowBox[{
2246             FormBox[
2247              SubscriptBox["P", "\<\"-\"\>"],
2248              TraditionalForm], ".", "l"}], " ",
2249            FormBox[
2250             SubscriptBox["Wi",
2251              RowBox[{
2252               FormBox["\[Mu]",
2253                TraditionalForm], ",", "3"}]],
2254             TraditionalForm]}],
2255           RowBox[{"2", " ",
2256            FormBox[
2257             SubscriptBox["s", "w"],
2258             TraditionalForm]}]]}], ")"}]}]}], "+",
2259      RowBox[{
2260       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2261       RowBox[{
2262        FormBox[
2263         OverscriptBox["uq", "\<\"-\"\>"],
2264         TraditionalForm], ".",
2265        FormBox[
2266         SuperscriptBox["\[Gamma]",
2267          FormBox["\[Mu]",
2268           TraditionalForm]],
2269         TraditionalForm], ".",
2270        RowBox[{"(",
2271         RowBox[{
2272          FormBox[
2273           RowBox[{
2274            SubscriptBox["\<\"\[PartialD]\"\>",
2275             FormBox["\[Nu]",
2276              TraditionalForm]], "(", "uq", ")"}],
2277           TraditionalForm], "-",
2278          FractionBox[
2279           RowBox[{"\[ImaginaryI]", " ",
2280            FormBox["e",
2281             TraditionalForm], " ",
2282            FormBox[
2283             SubscriptBox["B",
2284              FormBox["\[Nu]",
2285               TraditionalForm]],
2286             TraditionalForm], " ",
2287            RowBox[{
2288             FormBox[
2289              SubscriptBox["P", "\<\"-\"\>"],
2290              TraditionalForm], ".", "uq"}]}],
2291           RowBox[{"6", " ",
2292            FormBox[
2293             SubscriptBox["c", "w"],
2294             TraditionalForm]}]], "-",
2295          FractionBox[
2296           RowBox[{"2", " ", "\[ImaginaryI]", " ",
2297            FormBox["e",
2298             TraditionalForm], " ",
2299            FormBox[
2300             SubscriptBox["B",
2301              FormBox["\[Nu]",
2302               TraditionalForm]],
2303             TraditionalForm], " ",
2304            RowBox[{
2305             FormBox[
2306              SubscriptBox["P", "\<\"+\"\>"],
2307              TraditionalForm], ".", "uq"}]}],
2308           RowBox[{"3", " ",
2309            FormBox[
2310             SubscriptBox["c", "w"],
2311             TraditionalForm]}]], "-",
2312          RowBox[{"\[ImaginaryI]", " ",
2313           FormBox[
2314            SubscriptBox["g", "s"],
2315            TraditionalForm], " ",
2316           RowBox[{
2317            FormBox[
2318             SuperscriptBox["T", "a$864"],
2319             TraditionalForm], ".", "uq"}], " ",
2320           FormBox[
2321            SubscriptBox["G",
2322             RowBox[{
2323              FormBox["\[Nu]",
2324               TraditionalForm], ",", "a$864"}]],
2325            TraditionalForm]}], "-",
2326          FractionBox[
2327           RowBox[{"\[ImaginaryI]", " ",
2328            FormBox["e",
2329             TraditionalForm], " ",
2330            RowBox[{
2331             FormBox[
2332              SubscriptBox["P", "\<\"-\"\>"],
2333              TraditionalForm], ".", "uq"}], " ",
2334            FormBox[
2335             SubscriptBox["Wi",
2336              RowBox[{
2337               FormBox["\[Nu]",
2338                TraditionalForm], ",", "3"}]],
2339             TraditionalForm]}],
2340           RowBox[{"2", " ",
2341            FormBox[
2342             SubscriptBox["s", "w"],
2343             TraditionalForm]}]]}], ")"}]}]}], "+",
2344      RowBox[{
2345       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2346       RowBox[{
2347        FormBox[
2348         OverscriptBox["uq", "\<\"-\"\>"],
2349         TraditionalForm], ".",
2350        FormBox[
2351         SuperscriptBox["\[Gamma]",
2352          FormBox["\[Nu]",
2353           TraditionalForm]],
2354         TraditionalForm], ".",
2355        RowBox[{"(",
2356         RowBox[{
2357          FormBox[
2358           RowBox[{
2359            SubscriptBox["\<\"\[PartialD]\"\>",
2360             FormBox["\[Mu]",
2361              TraditionalForm]], "(", "uq", ")"}],
2362           TraditionalForm], "-",
2363          FractionBox[
2364           RowBox[{"\[ImaginaryI]", " ",
2365            FormBox["e",
2366             TraditionalForm], " ",
2367            FormBox[
2368             SubscriptBox["B",
2369              FormBox["\[Mu]",
2370               TraditionalForm]],
2371             TraditionalForm], " ",
2372            RowBox[{
2373             FormBox[
2374              SubscriptBox["P", "\<\"-\"\>"],
2375              TraditionalForm], ".", "uq"}]}],
2376           RowBox[{"6", " ",
2377            FormBox[
2378             SubscriptBox["c", "w"],
2379             TraditionalForm]}]], "-",
2380          FractionBox[
2381           RowBox[{"2", " ", "\[ImaginaryI]", " ",
2382            FormBox["e",
2383             TraditionalForm], " ",
2384            FormBox[
2385             SubscriptBox["B",
2386              FormBox["\[Mu]",
2387               TraditionalForm]],
2388             TraditionalForm], " ",
2389            RowBox[{
2390             FormBox[
2391              SubscriptBox["P", "\<\"+\"\>"],
2392              TraditionalForm], ".", "uq"}]}],
2393           RowBox[{"3", " ",
2394            FormBox[
2395             SubscriptBox["c", "w"],
2396             TraditionalForm]}]], "-",
2397          RowBox[{"\[ImaginaryI]", " ",
2398           FormBox[
2399            SubscriptBox["g", "s"],
2400            TraditionalForm], " ",
2401           RowBox[{
2402            FormBox[
2403             SuperscriptBox["T", "a$865"],
2404             TraditionalForm], ".", "uq"}], " ",
2405           FormBox[
2406            SubscriptBox["G",
2407             RowBox[{
2408              FormBox["\[Mu]",
2409               TraditionalForm], ",", "a$865"}]],
2410            TraditionalForm]}], "-",
2411          FractionBox[
2412           RowBox[{"\[ImaginaryI]", " ",
2413            FormBox["e",
2414             TraditionalForm], " ",
2415            RowBox[{
2416             FormBox[
2417              SubscriptBox["P", "\<\"-\"\>"],
2418              TraditionalForm], ".", "uq"}], " ",
2419            FormBox[
2420             SubscriptBox["Wi",
2421              RowBox[{
2422               FormBox["\[Mu]",
2423                TraditionalForm], ",", "3"}]],
2424             TraditionalForm]}],
2425           RowBox[{"2", " ",
2426            FormBox[
2427             SubscriptBox["s", "w"],
2428             TraditionalForm]}]]}], ")"}]}]}], "+",
2429      RowBox[{
2430       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2431       RowBox[{
2432        FormBox[
2433         OverscriptBox["vl", "\<\"-\"\>"],
2434         TraditionalForm], ".",
2435        FormBox[
2436         SuperscriptBox["\[Gamma]",
2437          FormBox["\[Mu]",
2438           TraditionalForm]],
2439         TraditionalForm], ".",
2440        RowBox[{"(",
2441         RowBox[{
2442          FormBox[
2443           RowBox[{
2444            SubscriptBox["\<\"\[PartialD]\"\>",
2445             FormBox["\[Nu]",
2446              TraditionalForm]], "(", "vl", ")"}],
2447           TraditionalForm], "+",
2448          FractionBox[
2449           RowBox[{"\[ImaginaryI]", " ",
2450            FormBox["e",
2451             TraditionalForm], " ",
2452            FormBox[
2453             SubscriptBox["B",
2454              FormBox["\[Nu]",
2455               TraditionalForm]],
2456             TraditionalForm], " ",
2457            RowBox[{
2458             FormBox[
2459              SubscriptBox["P", "\<\"-\"\>"],
2460              TraditionalForm], ".", "vl"}]}],
2461           RowBox[{"2", " ",
2462            FormBox[
2463             SubscriptBox["c", "w"],
2464             TraditionalForm]}]], "-",
2465          FractionBox[
2466           RowBox[{"\[ImaginaryI]", " ",
2467            FormBox["e",
2468             TraditionalForm], " ",
2469            RowBox[{
2470             FormBox[
2471              SubscriptBox["P", "\<\"-\"\>"],
2472              TraditionalForm], ".", "vl"}], " ",
2473            FormBox[
2474             SubscriptBox["Wi",
2475              RowBox[{
2476               FormBox["\[Nu]",
2477                TraditionalForm], ",", "3"}]],
2478             TraditionalForm]}],
2479           RowBox[{"2", " ",
2480            FormBox[
2481             SubscriptBox["s", "w"],
2482             TraditionalForm]}]]}], ")"}]}]}], "+",
2483      RowBox[{
2484       FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
2485       RowBox[{
2486        FormBox[
2487         OverscriptBox["vl", "\<\"-\"\>"],
2488         TraditionalForm], ".",
2489        FormBox[
2490         SuperscriptBox["\[Gamma]",
2491          FormBox["\[Nu]",
2492           TraditionalForm]],
2493         TraditionalForm], ".",
2494        RowBox[{"(",
2495         RowBox[{
2496          FormBox[
2497           RowBox[{
2498            SubscriptBox["\<\"\[PartialD]\"\>",
2499             FormBox["\[Mu]",
2500              TraditionalForm]], "(", "vl", ")"}],
2501           TraditionalForm], "+",
2502          FractionBox[
2503           RowBox[{"\[ImaginaryI]", " ",
2504            FormBox["e",
2505             TraditionalForm], " ",
2506            FormBox[
2507             SubscriptBox["B",
2508              FormBox["\[Mu]",
2509               TraditionalForm]],
2510             TraditionalForm], " ",
2511            RowBox[{
2512             FormBox[
2513              SubscriptBox["P", "\<\"-\"\>"],
2514              TraditionalForm], ".", "vl"}]}],
2515           RowBox[{"2", " ",
2516            FormBox[
2517             SubscriptBox["c", "w"],
2518             TraditionalForm]}]], "-",
2519          FractionBox[
2520           RowBox[{"\[ImaginaryI]", " ",
2521            FormBox["e",
2522             TraditionalForm], " ",
2523            RowBox[{
2524             FormBox[
2525              SubscriptBox["P", "\<\"-\"\>"],
2526              TraditionalForm], ".", "vl"}], " ",
2527            FormBox[
2528             SubscriptBox["Wi",
2529              RowBox[{
2530               FormBox["\[Mu]",
2531                TraditionalForm], ",", "3"}]],
2532             TraditionalForm]}],
2533           RowBox[{"2", " ",
2534            FormBox[
2535             SubscriptBox["s", "w"],
2536             TraditionalForm]}]]}], ")"}]}]}], "-",
2537      RowBox[{
2538       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2539       RowBox[{"(",
2540        RowBox[{
2541         RowBox[{
2542          FormBox[
2543           OverscriptBox["dq", "\<\"-\"\>"],
2544           TraditionalForm], ".",
2545          FormBox[
2546           SuperscriptBox["\[Gamma]",
2547            FormBox["\[Nu]",
2548             TraditionalForm]],
2549           TraditionalForm], ".",
2550          FormBox[
2551           RowBox[{
2552            SubscriptBox["\<\"\[PartialD]\"\>",
2553             FormBox["\[Mu]",
2554              TraditionalForm]], "(", "dq", ")"}],
2555           TraditionalForm]}], "+",
2556         RowBox[{
2557          FormBox[
2558           RowBox[{
2559            SubscriptBox["\<\"\[PartialD]\"\>",
2560             FormBox["\[Mu]",
2561              TraditionalForm]], "(",
2562            FormBox[
2563             OverscriptBox["dq", "\<\"-\"\>"],
2564             TraditionalForm], ")"}],
2565           TraditionalForm], ".",
2566          FormBox[
2567           SuperscriptBox["\[Gamma]",
2568            FormBox["\[Nu]",
2569             TraditionalForm]],
2570           TraditionalForm], ".", "dq"}]}], ")"}]}], "-",
2571      RowBox[{
2572       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2573       RowBox[{"(",
2574        RowBox[{
2575         RowBox[{
2576          FormBox[
2577           OverscriptBox["dq", "\<\"-\"\>"],
2578           TraditionalForm], ".",
2579          FormBox[
2580           SuperscriptBox["\[Gamma]",
2581            FormBox["\[Mu]",
2582             TraditionalForm]],
2583           TraditionalForm], ".",
2584          FormBox[
2585           RowBox[{
2586            SubscriptBox["\<\"\[PartialD]\"\>",
2587             FormBox["\[Nu]",
2588              TraditionalForm]], "(", "dq", ")"}],
2589           TraditionalForm]}], "+",
2590         RowBox[{
2591          FormBox[
2592           RowBox[{
2593            SubscriptBox["\<\"\[PartialD]\"\>",
2594             FormBox["\[Nu]",
2595              TraditionalForm]], "(",
2596            FormBox[
2597             OverscriptBox["dq", "\<\"-\"\>"],
2598             TraditionalForm], ")"}],
2599           TraditionalForm], ".",
2600          FormBox[
2601           SuperscriptBox["\[Gamma]",
2602            FormBox["\[Mu]",
2603             TraditionalForm]],
2604           TraditionalForm], ".", "dq"}]}], ")"}]}], "-",
2605      RowBox[{
2606       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2607       RowBox[{"(",
2608        RowBox[{
2609         RowBox[{
2610          FormBox[
2611           OverscriptBox["l", "\<\"-\"\>"],
2612           TraditionalForm], ".",
2613          FormBox[
2614           SuperscriptBox["\[Gamma]",
2615            FormBox["\[Nu]",
2616             TraditionalForm]],
2617           TraditionalForm], ".",
2618          FormBox[
2619           RowBox[{
2620            SubscriptBox["\<\"\[PartialD]\"\>",
2621             FormBox["\[Mu]",
2622              TraditionalForm]], "(", "l", ")"}],
2623           TraditionalForm]}], "+",
2624         RowBox[{
2625          FormBox[
2626           RowBox[{
2627            SubscriptBox["\<\"\[PartialD]\"\>",
2628             FormBox["\[Mu]",
2629              TraditionalForm]], "(",
2630            FormBox[
2631             OverscriptBox["l", "\<\"-\"\>"],
2632             TraditionalForm], ")"}],
2633           TraditionalForm], ".",
2634          FormBox[
2635           SuperscriptBox["\[Gamma]",
2636            FormBox["\[Nu]",
2637             TraditionalForm]],
2638           TraditionalForm], ".", "l"}]}], ")"}]}], "-",
2639      RowBox[{
2640       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2641       RowBox[{"(",
2642        RowBox[{
2643         RowBox[{
2644          FormBox[
2645           OverscriptBox["l", "\<\"-\"\>"],
2646           TraditionalForm], ".",
2647          FormBox[
2648           SuperscriptBox["\[Gamma]",
2649            FormBox["\[Mu]",
2650             TraditionalForm]],
2651           TraditionalForm], ".",
2652          FormBox[
2653           RowBox[{
2654            SubscriptBox["\<\"\[PartialD]\"\>",
2655             FormBox["\[Nu]",
2656              TraditionalForm]], "(", "l", ")"}],
2657           TraditionalForm]}], "+",
2658         RowBox[{
2659          FormBox[
2660           RowBox[{
2661            SubscriptBox["\<\"\[PartialD]\"\>",
2662             FormBox["\[Nu]",
2663              TraditionalForm]], "(",
2664            FormBox[
2665             OverscriptBox["l", "\<\"-\"\>"],
2666             TraditionalForm], ")"}],
2667           TraditionalForm], ".",
2668          FormBox[
2669           SuperscriptBox["\[Gamma]",
2670            FormBox["\[Mu]",
2671             TraditionalForm]],
2672           TraditionalForm], ".", "l"}]}], ")"}]}], "-",
2673      RowBox[{
2674       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2675       RowBox[{"(",
2676        RowBox[{
2677         RowBox[{
2678          FormBox[
2679           OverscriptBox["uq", "\<\"-\"\>"],
2680           TraditionalForm], ".",
2681          FormBox[
2682           SuperscriptBox["\[Gamma]",
2683            FormBox["\[Nu]",
2684             TraditionalForm]],
2685           TraditionalForm], ".",
2686          FormBox[
2687           RowBox[{
2688            SubscriptBox["\<\"\[PartialD]\"\>",
2689             FormBox["\[Mu]",
2690              TraditionalForm]], "(", "uq", ")"}],
2691           TraditionalForm]}], "+",
2692         RowBox[{
2693          FormBox[
2694           RowBox[{
2695            SubscriptBox["\<\"\[PartialD]\"\>",
2696             FormBox["\[Mu]",
2697              TraditionalForm]], "(",
2698            FormBox[
2699             OverscriptBox["uq", "\<\"-\"\>"],
2700             TraditionalForm], ")"}],
2701           TraditionalForm], ".",
2702          FormBox[
2703           SuperscriptBox["\[Gamma]",
2704            FormBox["\[Nu]",
2705             TraditionalForm]],
2706           TraditionalForm], ".", "uq"}]}], ")"}]}], "-",
2707      RowBox[{
2708       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2709       RowBox[{"(",
2710        RowBox[{
2711         RowBox[{
2712          FormBox[
2713           OverscriptBox["uq", "\<\"-\"\>"],
2714           TraditionalForm], ".",
2715          FormBox[
2716           SuperscriptBox["\[Gamma]",
2717            FormBox["\[Mu]",
2718             TraditionalForm]],
2719           TraditionalForm], ".",
2720          FormBox[
2721           RowBox[{
2722            SubscriptBox["\<\"\[PartialD]\"\>",
2723             FormBox["\[Nu]",
2724              TraditionalForm]], "(", "uq", ")"}],
2725           TraditionalForm]}], "+",
2726         RowBox[{
2727          FormBox[
2728           RowBox[{
2729            SubscriptBox["\<\"\[PartialD]\"\>",
2730             FormBox["\[Nu]",
2731              TraditionalForm]], "(",
2732            FormBox[
2733             OverscriptBox["uq", "\<\"-\"\>"],
2734             TraditionalForm], ")"}],
2735           TraditionalForm], ".",
2736          FormBox[
2737           SuperscriptBox["\[Gamma]",
2738            FormBox["\[Mu]",
2739             TraditionalForm]],
2740           TraditionalForm], ".", "uq"}]}], ")"}]}], "-",
2741      RowBox[{
2742       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2743       RowBox[{"(",
2744        RowBox[{
2745         RowBox[{
2746          FormBox[
2747           OverscriptBox["vl", "\<\"-\"\>"],
2748           TraditionalForm], ".",
2749          FormBox[
2750           SuperscriptBox["\[Gamma]",
2751            FormBox["\[Nu]",
2752             TraditionalForm]],
2753           TraditionalForm], ".",
2754          FormBox[
2755           RowBox[{
2756            SubscriptBox["\<\"\[PartialD]\"\>",
2757             FormBox["\[Mu]",
2758              TraditionalForm]], "(", "vl", ")"}],
2759           TraditionalForm]}], "+",
2760         RowBox[{
2761          FormBox[
2762           RowBox[{
2763            SubscriptBox["\<\"\[PartialD]\"\>",
2764             FormBox["\[Mu]",
2765              TraditionalForm]], "(",
2766            FormBox[
2767             OverscriptBox["vl", "\<\"-\"\>"],
2768             TraditionalForm], ")"}],
2769           TraditionalForm], ".",
2770          FormBox[
2771           SuperscriptBox["\[Gamma]",
2772            FormBox["\[Nu]",
2773             TraditionalForm]],
2774           TraditionalForm], ".", "vl"}]}], ")"}]}], "-",
2775      RowBox[{
2776       FractionBox["1", "4"], " ", "\[ImaginaryI]", " ",
2777       RowBox[{"(",
2778        RowBox[{
2779         RowBox[{
2780          FormBox[
2781           OverscriptBox["vl", "\<\"-\"\>"],
2782           TraditionalForm], ".",
2783          FormBox[
2784           SuperscriptBox["\[Gamma]",
2785            FormBox["\[Mu]",
2786             TraditionalForm]],
2787           TraditionalForm], ".",
2788          FormBox[
2789           RowBox[{
2790            SubscriptBox["\<\"\[PartialD]\"\>",
2791             FormBox["\[Nu]",
2792              TraditionalForm]], "(", "vl", ")"}],
2793           TraditionalForm]}], "+",
2794         RowBox[{
2795          FormBox[
2796           RowBox[{
2797            SubscriptBox["\<\"\[PartialD]\"\>",
2798             FormBox["\[Nu]",
2799              TraditionalForm]], "(",
2800            FormBox[
2801             OverscriptBox["vl", "\<\"-\"\>"],
2802             TraditionalForm], ")"}],
2803           TraditionalForm], ".",
2804          FormBox[
2805           SuperscriptBox["\[Gamma]",
2806            FormBox["\[Mu]",
2807             TraditionalForm]],
2808           TraditionalForm], ".", "vl"}]}], ")"}]}], "-",
2809      RowBox[{
2810       FractionBox["1",
2811        RowBox[{
2812         SqrtBox["2"], " ",
2813         FormBox[
2814          SubscriptBox["s", "w"],
2815          TraditionalForm]}]],
2816       RowBox[{
2817        FormBox["e",
2818         TraditionalForm], " ",
2819        RowBox[{"(",
2820         RowBox[{
2821          RowBox[{"CKM", " ",
2822           RowBox[{
2823            FormBox[
2824             OverscriptBox["uq", "\<\"-\"\>"],
2825             TraditionalForm], ".",
2826            FormBox[
2827             SuperscriptBox["\[Gamma]",
2828              FormBox["\[Nu]",
2829               TraditionalForm]],
2830             TraditionalForm], ".",
2831            FormBox[
2832             SubscriptBox["P", "\<\"-\"\>"],
2833             TraditionalForm], ".", "dq"}], " ",
2834           FormBox[
2835            SubscriptBox["W",
2836             FormBox["\[Mu]",
2837              TraditionalForm]],
2838            TraditionalForm]}], "+",
2839          RowBox[{
2840           RowBox[{
2841            FormBox[
2842             OverscriptBox["vl", "\<\"-\"\>"],
2843             TraditionalForm], ".",
2844            FormBox[
2845             SuperscriptBox["\[Gamma]",
2846              FormBox["\[Nu]",
2847               TraditionalForm]],
2848             TraditionalForm], ".",
2849            FormBox[
2850             SubscriptBox["P", "\<\"-\"\>"],
2851             TraditionalForm], ".", "l"}], " ",
2852           FormBox[
2853            SubscriptBox["W",
2854             FormBox["\[Mu]",
2855              TraditionalForm]],
2856            TraditionalForm]}], "+",
2857          RowBox[{"CKM", " ",
2858           RowBox[{
2859            FormBox[
2860             OverscriptBox["uq", "\<\"-\"\>"],
2861             TraditionalForm], ".",
2862            FormBox[
2863             SuperscriptBox["\[Gamma]",
2864              FormBox["\[Mu]",
2865               TraditionalForm]],
2866             TraditionalForm], ".",
2867            FormBox[
2868             SubscriptBox["P", "\<\"-\"\>"],
2869             TraditionalForm], ".", "dq"}], " ",
2870           FormBox[
2871            SubscriptBox["W",
2872             FormBox["\[Nu]",
2873              TraditionalForm]],
2874            TraditionalForm]}], "+",
2875          RowBox[{
2876           RowBox[{
2877            FormBox[
2878             OverscriptBox["vl", "\<\"-\"\>"],
2879             TraditionalForm], ".",
2880            FormBox[
2881             SuperscriptBox["\[Gamma]",
2882              FormBox["\[Mu]",
2883               TraditionalForm]],
2884             TraditionalForm], ".",
2885            FormBox[
2886             SubscriptBox["P", "\<\"-\"\>"],
2887             TraditionalForm], ".", "l"}], " ",
2888           FormBox[
2889            SubscriptBox["W",
2890             FormBox["\[Nu]",
2891              TraditionalForm]],
2892            TraditionalForm]}], "+",
2893          RowBox[{
2894           RowBox[{
2895            FormBox[
2896             OverscriptBox["l", "\<\"-\"\>"],
2897             TraditionalForm], ".",
2898            FormBox[
2899             SuperscriptBox["\[Gamma]",
2900              FormBox["\[Nu]",
2901               TraditionalForm]],
2902             TraditionalForm], ".",
2903            FormBox[
2904             SubscriptBox["P", "\<\"-\"\>"],
2905             TraditionalForm], ".", "vl"}], " ",
2906           FormBox[
2907            SubsuperscriptBox["W",
2908             FormBox["\[Mu]",
2909              TraditionalForm], "\[Dagger]"],
2910            TraditionalForm]}], "+",
2911          RowBox[{
2912           RowBox[{
2913            FormBox[
2914             OverscriptBox["dq", "\<\"-\"\>"],
2915             TraditionalForm], ".",
2916            FormBox[
2917             SuperscriptBox["\[Gamma]",
2918              FormBox["\[Nu]",
2919               TraditionalForm]],
2920             TraditionalForm], ".",
2921            FormBox[
2922             SubscriptBox["P", "\<\"-\"\>"],
2923             TraditionalForm], ".", "uq"}], " ",
2924           FormBox[
2925            SuperscriptBox["CKM", "\[Dagger]"],
2926            TraditionalForm], " ",
2927           FormBox[
2928            SubsuperscriptBox["W",
2929             FormBox["\[Mu]",
2930              TraditionalForm], "\[Dagger]"],
2931            TraditionalForm]}], "+",
2932          RowBox[{
2933           RowBox[{
2934            FormBox[
2935             OverscriptBox["l", "\<\"-\"\>"],
2936             TraditionalForm], ".",
2937            FormBox[
2938             SuperscriptBox["\[Gamma]",
2939              FormBox["\[Mu]",
2940               TraditionalForm]],
2941             TraditionalForm], ".",
2942            FormBox[
2943             SubscriptBox["P", "\<\"-\"\>"],
2944             TraditionalForm], ".", "vl"}], " ",
2945           FormBox[
2946            SubsuperscriptBox["W",
2947             FormBox["\[Nu]",
2948              TraditionalForm], "\[Dagger]"],
2949            TraditionalForm]}], "+",
2950          RowBox[{
2951           RowBox[{
2952            FormBox[
2953             OverscriptBox["dq", "\<\"-\"\>"],
2954             TraditionalForm], ".",
2955            FormBox[
2956             SuperscriptBox["\[Gamma]",
2957              FormBox["\[Mu]",
2958               TraditionalForm]],
2959             TraditionalForm], ".",
2960            FormBox[
2961             SubscriptBox["P", "\<\"-\"\>"],
2962             TraditionalForm], ".", "uq"}], " ",
2963           FormBox[
2964            SuperscriptBox["CKM", "\[Dagger]"],
2965            TraditionalForm], " ",
2966           FormBox[
2967            SubsuperscriptBox["W",
2968             FormBox["\[Nu]",
2969              TraditionalForm], "\[Dagger]"],
2970            TraditionalForm]}]}], ")"}]}]}]}], ")"}]}]}],
2971  TraditionalForm]], "Output",
2972 CellChangeTimes->{3.45406122390963*^9, 3.4953404903989077`*^9,
2973  3.495346922245199*^9, 3.495347037742717*^9}]
2974}, Open  ]]
2975}, Closed]],
2976
2977Cell[CellGroupData[{
2978
2979Cell["Yukawa sector", "Subsubsection",
2980 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
2981  3.411910393742139*^9, 3.411910394852953*^9}}],
2982
2983Cell[CellGroupData[{
2984
2985Cell[BoxData["LagY"], "Input",
2986 CellChangeTimes->{{3.411910181169772*^9, 3.411910184667088*^9}, {
2987   3.4119104032372026`*^9, 3.411910404165523*^9}, 3.4540523167591047`*^9, {
2988   3.454057108491197*^9, 3.4540571095455637`*^9}, 3.454061225806781*^9}],
2989
2990Cell[BoxData[
2991 FormBox[
2992  RowBox[{
2993   FractionBox["1", "2"], " ",
2994   FormBox["\[Kappa]",
2995    TraditionalForm], " ",
2996   RowBox[{
2997    FormBox[
2998     SubscriptBox["h",
2999      RowBox[{
3000       FormBox["\[Mu]",
3001        TraditionalForm], ",",
3002       FormBox["\[Nu]",
3003        TraditionalForm]}]],
3004     TraditionalForm], ".",
3005    FormBox[
3006     SubscriptBox["\[Eta]",
3007      RowBox[{
3008       FormBox[
3009        FormBox["\[Mu]",
3010         TraditionalForm],
3011        TraditionalForm], ",",
3012       FormBox[
3013        FormBox["\[Nu]",
3014         TraditionalForm],
3015        TraditionalForm]}]],
3016     TraditionalForm], ".",
3017    RowBox[{"(",
3018     RowBox[{
3019      RowBox[{"-",
3020       FractionBox[
3021        RowBox[{
3022         RowBox[{"(",
3023          RowBox[{"H", "+", "v"}], ")"}], " ",
3024         FormBox[
3025          SubscriptBox["yd", "n$874"],
3026          TraditionalForm], " ",
3027         FormBox[
3028          SubscriptBox[
3029           RowBox[{"(",
3030            SubscriptBox["P", "\<\"+\"\>"], ")"}],
3031           RowBox[{"s$874", ",", "r$874"}]],
3032          TraditionalForm], " ",
3033         RowBox[{
3034          FormBox[
3035           SubscriptBox[
3036            OverscriptBox["dq", "\<\"-\"\>"],
3037            RowBox[{"s$874", ",", "n$874", ",", "i$874"}]],
3038           TraditionalForm], ".",
3039          FormBox[
3040           SubscriptBox["dq",
3041            RowBox[{"r$874", ",", "n$874", ",", "i$874"}]],
3042           TraditionalForm]}]}],
3043        SqrtBox["2"]]}], "-",
3044      FractionBox[
3045       RowBox[{
3046        RowBox[{"(",
3047         RowBox[{"H", "+", "v"}], ")"}], " ",
3048        FormBox[
3049         SubscriptBox["yu", "n$874"],
3050         TraditionalForm], " ",
3051        FormBox[
3052         SubscriptBox[
3053          RowBox[{"(",
3054           SubscriptBox["P", "\<\"+\"\>"], ")"}],
3055          RowBox[{"s$874", ",", "r$874"}]],
3056         TraditionalForm], " ",
3057        RowBox[{
3058         FormBox[
3059          SubscriptBox[
3060           OverscriptBox["uq", "\<\"-\"\>"],
3061           RowBox[{"s$874", ",", "n$874", ",", "i$874"}]],
3062          TraditionalForm], ".",
3063         FormBox[
3064          SubscriptBox["uq",
3065           RowBox[{"r$874", ",", "n$874", ",", "i$874"}]],
3066          TraditionalForm]}]}],
3067       SqrtBox["2"]], "-",
3068      FractionBox[
3069       RowBox[{
3070        RowBox[{"(",
3071         RowBox[{"H", "+", "v"}], ")"}], " ",
3072        FormBox[
3073         SubscriptBox["yl", "n$874"],
3074         TraditionalForm], " ",
3075        FormBox[
3076         SubscriptBox[
3077          RowBox[{"(",
3078           SubscriptBox["P", "\<\"+\"\>"], ")"}],
3079          RowBox[{"s$874", ",", "r$874"}]],
3080         TraditionalForm], " ",
3081        RowBox[{
3082         FormBox[
3083          SubscriptBox[
3084           OverscriptBox["l", "\<\"-\"\>"],
3085           RowBox[{"s$874", ",", "n$874"}]],
3086          TraditionalForm], ".",
3087         FormBox[
3088          SubscriptBox["l",
3089           RowBox[{"r$874", ",", "n$874"}]],
3090          TraditionalForm]}]}],
3091       SqrtBox["2"]], "-",
3092      FractionBox[
3093       RowBox[{
3094        RowBox[{"(",
3095         RowBox[{"H", "+", "v"}], ")"}], " ",
3096        FormBox[
3097         SubscriptBox["yd", "n$875"],
3098         TraditionalForm], " ",
3099        FormBox[
3100         SubscriptBox[
3101          RowBox[{"(",
3102           SubscriptBox["P", "\<\"-\"\>"], ")"}],
3103          RowBox[{"r$876", ",", "r$877"}]],
3104         TraditionalForm], " ",
3105        RowBox[{
3106         FormBox[
3107          SubscriptBox[
3108           OverscriptBox["dq", "\<\"-\"\>"],
3109           RowBox[{"r$876", ",", "n$875", ",", "i$875"}]],
3110          TraditionalForm], ".",
3111         FormBox[
3112          SubscriptBox["dq",
3113           RowBox[{"r$877", ",", "n$875", ",", "i$875"}]],
3114          TraditionalForm]}]}],
3115       SqrtBox["2"]], "-",
3116      FractionBox[
3117       RowBox[{
3118        RowBox[{"(",
3119         RowBox[{"H", "+", "v"}], ")"}], " ",
3120        FormBox[
3121         SubscriptBox["yu", "n$875"],
3122         TraditionalForm], " ",
3123        FormBox[
3124         SubscriptBox[
3125          RowBox[{"(",
3126           SubscriptBox["P", "\<\"-\"\>"], ")"}],
3127          RowBox[{"r$880", ",", "r$881"}]],
3128         TraditionalForm], " ",
3129        RowBox[{
3130         FormBox[
3131          SubscriptBox[
3132           OverscriptBox["uq", "\<\"-\"\>"],
3133           RowBox[{"r$880", ",", "n$875", ",", "i$875"}]],
3134          TraditionalForm], ".",
3135         FormBox[
3136          SubscriptBox["uq",
3137           RowBox[{"r$881", ",", "n$875", ",", "i$875"}]],
3138          TraditionalForm]}]}],
3139       SqrtBox["2"]], "-",
3140      FractionBox[
3141       RowBox[{
3142        RowBox[{"(",
3143         RowBox[{"H", "+", "v"}], ")"}], " ",
3144        FormBox[
3145         SubscriptBox["yl", "n$875"],
3146         TraditionalForm], " ",
3147        FormBox[
3148         SubscriptBox[
3149          RowBox[{"(",
3150           SubscriptBox["P", "\<\"-\"\>"], ")"}],
3151          RowBox[{"r$878", ",", "r$879"}]],
3152         TraditionalForm], " ",
3153        RowBox[{
3154         FormBox[
3155          SubscriptBox[
3156           OverscriptBox["l", "\<\"-\"\>"],
3157           RowBox[{"r$878", ",", "n$875"}]],
3158          TraditionalForm], ".",
3159         FormBox[
3160          SubscriptBox["l",
3161           RowBox[{"r$879", ",", "n$875"}]],
3162          TraditionalForm]}]}],
3163       SqrtBox["2"]]}], ")"}]}]}], TraditionalForm]], "Output",
3164 CellChangeTimes->{3.454061226531508*^9, 3.495340493136104*^9,
3165  3.495346923847036*^9, 3.495347038901807*^9}]
3166}, Open  ]]
3167}, Closed]]
3168}, Open  ]],
3169
3170Cell[CellGroupData[{
3171
3172Cell["Writing the UFO output", "Section",
3173 CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
3174  3.4540507294896593`*^9, 3.4540507310208197`*^9}, {3.4540567139322166`*^9,
3175  3.454056718777896*^9}, {3.506078608080686*^9, 3.5060786082497253`*^9}, {
3176  3.5060799230526752`*^9, 3.5060799363480167`*^9}}],
3177
3178Cell[CellGroupData[{
3179
3180Cell[BoxData[
3181 RowBox[{"WriteUFO", "[", "LagTot", "]"}]], "Input",
3182 CellChangeTimes->{{3.51046201716608*^9, 3.510462025552577*^9}, {
3183   3.510469689419868*^9, 3.510469693314324*^9}, 3.5104711819285088`*^9, {
3184   3.510474892840777*^9, 3.510474894023183*^9}, {3.510476429769678*^9,
3185   3.510476432615822*^9}, 3.510476838253001*^9, 3.51047774111578*^9, {
3186   3.5104779227496023`*^9, 3.510477924730214*^9}, {3.510483810424922*^9,
3187   3.5104838363606243`*^9}, {3.510484273529469*^9, 3.510484274820273*^9},
3188   3.51048449558997*^9, {3.5104847616969843`*^9, 3.5104847635424843`*^9}, {
3189   3.510485046614109*^9, 3.5104850520107203`*^9}, {3.510487302176343*^9,
3190   3.5104873063165283`*^9}, {3.5105496860755444`*^9,
3191   3.5105496897703333`*^9}, {3.510997086990488*^9, 3.510997096387805*^9},
3192   3.5110721954671297`*^9, {3.511081709588459*^9, 3.511081716673902*^9},
3193   3.5111509125281267`*^9}],
3194
3195Cell[CellGroupData[{
3196
3197Cell[BoxData[
3198 FormBox["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>",
3199  TraditionalForm]], "Print",
3200 CellChangeTimes->CompressedData["
32011:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3202Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32037gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3204CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32055SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3206wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIO1wZud5
3207hbJXjgDPMJ4N
3208  "]],
3209
3210Cell[BoxData[
3211 FormBox["\<\"Starting Feynman rule calculation.\"\>",
3212  TraditionalForm]], "Print",
3213 CellChangeTimes->CompressedData["
32141:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3215Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32167gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3217CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32185SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3219wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIG0Sce68
3220QtkrRwDMIp2i
3221  "]],
3222
3223Cell[BoxData[
3224 FormBox["\<\"Collecting the different structures that enter the \
3225vertex...\"\>", TraditionalForm]], "Print",
3226 CellChangeTimes->CompressedData["
32271:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3228Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32297gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3230CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32315SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3232wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfkLmamy4q
3233lL1yBADL452O
3234  "]],
3235
3236Cell[BoxData[
3237 FormBox[
3238  InterpretationBox[
3239   RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"69\"\>",
3240    "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
3241   SequenceForm["Found ", "69", " possible non zero vertices."],
3242   Editable->False], TraditionalForm]], "Print",
3243 CellChangeTimes->CompressedData["
32441:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3245Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32467gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3247CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32485SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3249wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIG2w9vJF
3250hbJXjgDOfZ36
3251  "]],
3252
3253Cell[BoxData[
3254 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
3255 CellChangeTimes->CompressedData["
32561:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3257Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32587gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3259CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32605SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3261wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC0Qe+Wi
3262QtkrRwDLU52L
3263  "]],
3264
3265Cell[BoxData[
3266 FormBox[
3267  ProgressIndicatorBox[Dynamic[PRIVATE`progress$1066]],
3268  TraditionalForm]], "Print",
3269 CellChangeTimes->CompressedData["
32701:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3271Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32727gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3273CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32745SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3275wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIP3u/dWL
3276CmWvHAHWR578
3277  "]],
3278
3279Cell[BoxData[
3280 FormBox[
3281  InterpretationBox[
3282   RowBox[{"69", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3283   SequenceForm[69, " vertices obtained."],
3284   Editable->False], TraditionalForm]], "Print",
3285 CellChangeTimes->CompressedData["
32861:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3287Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
32887gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3289CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
32905SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3291wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIK0+Je2q
3292QtkrRwDLDJ1v
3293  "]],
3294
3295Cell[BoxData[
3296 FormBox["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>",
3297  TraditionalForm]], "Print",
3298 CellChangeTimes->CompressedData["
32991:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3300Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33017gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3302CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33035SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3304wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIJ3Buuqa
3305QtkrRwDKyJ1m
3306  "]],
3307
3308Cell[BoxData[
3309 FormBox["\<\"Preparing Python output.\"\>", TraditionalForm]], "Print",
3310 CellChangeTimes->CompressedData["
33111:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3312Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33137gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3314CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33155SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3316wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIB2Vsvqa
3317QtkrRwDM9524
3318  "]],
3319
3320Cell[BoxData[
3321 FormBox["\<\"    - Splitting vertices into building blocks.\"\>",
3322  TraditionalForm]], "Print",
3323 CellChangeTimes->CompressedData["
33241:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3325Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33267gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3327CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33285SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3329wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIP1z/s1r
3330CmWvHAHUoJ7A
3331  "]],
3332
3333Cell[BoxData[
3334 FormBox[
3335  InterpretationBox[
3336   RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
3337    DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, TraditionalForm],
3338     ImageSizeCache->{24., {1., 12.}}], "\[InvisibleSpace]", "\<\"/\"\>",
3339    "\[InvisibleSpace]", "165", "\[InvisibleSpace]", "\<\" .\"\>"}],
3340   SequenceForm["    - Optimizing: ",
3341    Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 165, " ."],
3342   Editable->False], TraditionalForm]], "Print",
3343 CellChangeTimes->CompressedData["
33441:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3345Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33467gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3347CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33485SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3349wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIL3k8P9r
3350CmWvHAHT2J61
3351  "]],
3352
3353Cell[BoxData[
3354 FormBox["\<\"    - Writing files.\"\>", TraditionalForm]], "Print",
3355 CellChangeTimes->CompressedData["
33561:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3357Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33587gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3359CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33605SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3361wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC2wle+6
3362QtkrRwDJNZ0j
3363  "]],
3364
3365Cell[BoxData[
3366 FormBox["\<\"Done!\"\>", TraditionalForm]], "Print",
3367 CellChangeTimes->CompressedData["
33681:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3369Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
33707gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3371CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
33725SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3373wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC21Qfy6
3374QtkrRwDJmJ0x
3375  "]]
3376}, Open  ]]
3377}, Open  ]]
3378}, Open  ]],
3379
3380Cell[CellGroupData[{
3381
3382Cell["Calculation of the Feynman Rules", "Section",
3383 CellChangeTimes->{{3.4050095696734943`*^9, 3.4050095702696466`*^9}, {
3384   3.449909557093049*^9, 3.449909562576384*^9}, 3.452923012401949*^9, {
3385   3.45405673743528*^9, 3.4540567428169327`*^9}}],
3386
3387Cell[CellGroupData[{
3388
3389Cell["Gauge sector", "Subsubsection",
3390 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
3391  3.454057138248085*^9, 3.454057139479412*^9}}],
3392
3393Cell[BoxData[
3394 RowBox[{"FeynmanRules", "[",
3395  RowBox[{"LagG", ",", " ",
3396   RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
3397 CellChangeTimes->{{3.45406138410235*^9, 3.454061389893989*^9}}]
3398}, Open  ]],
3399
3400Cell[CellGroupData[{
3401
3402Cell["Scalar sector", "Subsubsection",
3403 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
3404  3.411910274288354*^9, 3.41191027703699*^9}}],
3405
3406Cell[BoxData[
3407 RowBox[{"FeynmanRules", "[", "LagH", "]"}]], "Input",
3408 CellChangeTimes->{{3.454061456389081*^9, 3.454061463346387*^9}}]
3409}, Open  ]],
3410
3411Cell[CellGroupData[{
3412
3413Cell["Fermion sector", "Subsubsection",
3414 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
3415  3.4119103528868923`*^9, 3.411910357404933*^9}}],
3416
3417Cell[BoxData[
3418 RowBox[{"FeynmanRules", "[", "LagF", "]"}]], "Input",
3419 CellChangeTimes->{{3.454056857284236*^9, 3.4540568672993917`*^9},
3420   3.4540569533264227`*^9, {3.4540571289311743`*^9, 3.4540571290168457`*^9}, {
3421   3.454061235719533*^9, 3.45406124186089*^9}}]
3422}, Open  ]],
3423
3424Cell[CellGroupData[{
3425
3426Cell["Yukawa sector", "Subsubsection",
3427 CellChangeTimes->{{3.4119102216473637`*^9, 3.411910224608881*^9}, {
3428  3.411910393742139*^9, 3.411910394852953*^9}}],
3429
3430Cell[BoxData[
3431 RowBox[{"FeynmanRules", "[", "LagY", "]"}]], "Input",
3432 CellChangeTimes->{{3.454061488319646*^9, 3.454061493153029*^9}}]
3433}, Open  ]],
3434
3435Cell[CellGroupData[{
3436
3437Cell["The MUED total Lagrangian", "Subsubsection",
3438 CellChangeTimes->{{3.452857023659556*^9, 3.452857026196998*^9}, {
3439  3.454050603115306*^9, 3.454050604633585*^9}, {3.4540508481103973`*^9,
3440  3.454050850614224*^9}}],
3441
3442Cell[BoxData[
3443 RowBox[{"FeynmanRules", "[",
3444  RowBox[{"LagTot", ",", " ",
3445   RowBox[{"ScreenOutput", "\[Rule]", " ", "False"}]}], "]"}]], "Input",
3446 CellChangeTimes->{{3.454056821219754*^9, 3.4540568403918133`*^9}, {
3447  3.454057126321587*^9, 3.454057148256241*^9}, {3.454061660010816*^9,
3448  3.454061677201768*^9}, {3.551594470270935*^9, 3.551594482397746*^9}}]
3449}, Open  ]]
3450}, Open  ]]
3451}, Open  ]]
3452},
3453WindowSize->{986, 674},
3454WindowMargins->{{Automatic, 40}, {Automatic, 0}},
3455PrintingCopies->1,
3456PrintingPageRange->{1, Automatic},
3457ShowSelection->True,
3458Magnification->1.,
3459FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
3460StyleDefinitions->"Default.nb"
3461]
3462(* End of Notebook Content *)
3463
3464(* Internal cache information *)
3465(*CellTagsOutline
3466CellTagsIndex->{}
3467*)
3468(*CellTagsIndex
3469CellTagsIndex->{}
3470*)
3471(*NotebookFileOutline
3472Notebook[{
3473Cell[CellGroupData[{
3474Cell[567, 22, 321, 4, 76, "Title"],
3475Cell[CellGroupData[{
3476Cell[913, 30, 114, 1, 67, "Section"],
3477Cell[1030, 33, 120, 2, 31, "Input"],
3478Cell[CellGroupData[{
3479Cell[1175, 39, 1034, 19, 72, "Input"],
3480Cell[CellGroupData[{
3481Cell[2234, 62, 606, 9, 24, "Print"],
3482Cell[2843, 73, 884, 16, 24, "Print"],
3483Cell[3730, 91, 648, 10, 24, "Print"],
3484Cell[4381, 103, 592, 9, 24, "Print"],
3485Cell[4976, 114, 660, 10, 24, "Print"],
3486Cell[5639, 126, 624, 10, 24, "Print"],
3487Cell[6266, 138, 590, 9, 24, "Print"],
3488Cell[6859, 149, 657, 10, 24, "Print"]
3489}, Open  ]]
3490}, Open  ]]
3491}, Open  ]],
3492Cell[CellGroupData[{
3493Cell[7577, 166, 209, 3, 67, "Section"],
3494Cell[CellGroupData[{
3495Cell[7811, 173, 415, 6, 31, "Input"],
3496Cell[CellGroupData[{
3497Cell[8251, 183, 1583, 24, 24, "Print"],
3498Cell[9837, 209, 1558, 23, 24, "Print"],
3499Cell[11398, 234, 1690, 27, 24, "Print"],
3500Cell[13091, 263, 1589, 24, 24, "Print"],
3501Cell[14683, 289, 1540, 23, 24, "Print"],
3502Cell[16226, 314, 1572, 24, 24, "Print"],
3503Cell[17801, 340, 1578, 24, 24, "Print"],
3504Cell[19382, 366, 1573, 24, 24, "Print"],
3505Cell[20958, 392, 1733, 28, 45, "Print"]
3506}, Open  ]]
3507}, Open  ]]
3508}, Open  ]],
3509Cell[CellGroupData[{
3510Cell[22752, 427, 259, 3, 67, "Section"],
3511Cell[CellGroupData[{
3512Cell[23036, 434, 154, 2, 28, "Subsubsection"],
3513Cell[CellGroupData[{
3514Cell[23215, 440, 242, 3, 31, "Input"],
3515Cell[23460, 445, 15133, 471, 279, "Output"]
3516}, Open  ]]
3517}, Open  ]],
3518Cell[CellGroupData[{
3519Cell[38642, 922, 154, 2, 28, "Subsubsection"],
3520Cell[CellGroupData[{
3521Cell[38821, 928, 239, 3, 31, "Input"],
3522Cell[39063, 933, 14090, 451, 351, "Output"]
3523}, Open  ]]
3524}, Open  ]],
3525Cell[CellGroupData[{
3526Cell[53202, 1390, 158, 2, 28, "Subsubsection"],
3527Cell[CellGroupData[{
3528Cell[53385, 1396, 292, 4, 31, "Input"],
3529Cell[53680, 1402, 51950, 1570, 1058, "Output"]
3530}, Open  ]]
3531}, Closed]],
3532Cell[CellGroupData[{
3533Cell[105679, 2978, 155, 2, 22, "Subsubsection"],
3534Cell[CellGroupData[{
3535Cell[105859, 2984, 246, 3, 31, "Input"],
3536Cell[106108, 2989, 5267, 175, 291, "Output"]
3537}, Open  ]]
3538}, Closed]]
3539}, Open  ]],
3540Cell[CellGroupData[{
3541Cell[111436, 3171, 312, 4, 67, "Section"],
3542Cell[CellGroupData[{
3543Cell[111773, 3179, 879, 13, 31, "Input"],
3544Cell[CellGroupData[{
3545Cell[112677, 3196, 534, 11, 24, "Print"],
3546Cell[113214, 3209, 521, 11, 24, "Print"],
3547Cell[113738, 3222, 546, 11, 24, "Print"],
3548Cell[114287, 3235, 712, 15, 24, "Print"],
3549Cell[115002, 3252, 513, 10, 24, "Print"],
3550Cell[115518, 3264, 532, 12, 26, "Print"],
3551Cell[116053, 3278, 630, 14, 24, "Print"],
3552Cell[116686, 3294, 528, 11, 24, "Print"],
3553Cell[117217, 3307, 508, 10, 24, "Print"],
3554Cell[117728, 3319, 533, 11, 24, "Print"],
3555Cell[118264, 3332, 894, 18, 24, "Print"],
3556Cell[119161, 3352, 504, 10, 24, "Print"],
3557Cell[119668, 3364, 489, 10, 24, "Print"]
3558}, Open  ]]
3559}, Open  ]]
3560}, Open  ]],
3561Cell[CellGroupData[{
3562Cell[120218, 3381, 244, 3, 67, "Section"],
3563Cell[CellGroupData[{
3564Cell[120487, 3388, 154, 2, 28, "Subsubsection"],
3565Cell[120644, 3392, 210, 4, 31, "Input"]
3566}, Open  ]],
3567Cell[CellGroupData[{
3568Cell[120891, 3401, 154, 2, 28, "Subsubsection"],
3569Cell[121048, 3405, 134, 2, 31, "Input"]
3570}, Open  ]],
3571Cell[CellGroupData[{
3572Cell[121219, 3412, 158, 2, 28, "Subsubsection"],
3573Cell[121380, 3416, 263, 4, 31, "Input"]
3574}, Open  ]],
3575Cell[CellGroupData[{
3576Cell[121680, 3425, 155, 2, 28, "Subsubsection"],
3577Cell[121838, 3429, 134, 2, 31, "Input"]
3578}, Open  ]],
3579Cell[CellGroupData[{
3580Cell[122009, 3436, 216, 3, 28, "Subsubsection"],
3581Cell[122228, 3441, 360, 6, 31, "Input"]
3582}, Open  ]]
3583}, Open  ]]
3584}, Open  ]]
3585}
3586]
3587*)
3588
3589(* End of internal cache information *)