Context Navigation

Back to RSmodel

RSmodel: RS.nb

File RS.nb, 123.6 KB (added by Priscila de Aquino, 12 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 145, 7]
13	NotebookDataLength[ 126358, 3580]
14	NotebookOptionsPosition[ 122628, 3452]
15	NotebookOutlinePosition[ 123061, 3471]
16	CellTagsIndexPosition[ 123018, 3468]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["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
29	Cell[CellGroupData[{
30
31	Cell["Load of the FeynRules package", "Section",
32	CellChangeTimes->{{3.452856941348258^9, 3.452856954182706^9}}],
33
34	Cell[BoxData[
35	RowBox[{"Quit", "[", "]"}]], "Input",
36	CellChangeTimes->{{3.4521543016025457`^9, 3.452154302750087^9}}],
37
38	Cell[CellGroupData[{
39
40	Cell[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
61	Cell[CellGroupData[{
62
63	Cell[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
74	Cell[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
92	Cell[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
104	Cell[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
115	Cell[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
127	Cell[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
139	Cell[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
150	Cell[BoxData[
151	FormBox["\<\"The FeynRules palette can be opened using the command \
152	FRPalette[].\"\>", 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
165	Cell[CellGroupData[{
166
167	Cell["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
172	Cell[CellGroupData[{
173
174	Cell[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
182	Cell[CellGroupData[{
183
184	Cell[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
210	Cell[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
235	Cell[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
264	Cell[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
290	Cell[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
315	Cell[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
341	Cell[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
367	Cell[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
393	Cell[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
426	Cell[CellGroupData[{
427
428	Cell["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
433	Cell[CellGroupData[{
434
435	Cell["Gauge sector", "Subsubsection",
436	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
437	3.454057138248085^9, 3.454057139479412^9}}],
438
439	Cell[CellGroupData[{
440
441	Cell[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
446	Cell[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
921	Cell[CellGroupData[{
922
923	Cell["Scalar sector", "Subsubsection",
924	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
925	3.411910274288354^9, 3.41191027703699^9}}],
926
927	Cell[CellGroupData[{
928
929	Cell[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
934	Cell[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
1389	Cell[CellGroupData[{
1390
1391	Cell["Fermion sector", "Subsubsection",
1392	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
1393	3.4119103528868923`^9, 3.411910357404933^9}}],
1394
1395	Cell[CellGroupData[{
1396
1397	Cell[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
1403	Cell[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
2977	Cell[CellGroupData[{
2978
2979	Cell["Yukawa sector", "Subsubsection",
2980	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
2981	3.411910393742139^9, 3.411910394852953^9}}],
2982
2983	Cell[CellGroupData[{
2984
2985	Cell[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
2990	Cell[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
3170	Cell[CellGroupData[{
3171
3172	Cell["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
3178	Cell[CellGroupData[{
3179
3180	Cell[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
3195	Cell[CellGroupData[{
3196
3197	Cell[BoxData[
3198	FormBox["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>",
3199	TraditionalForm]], "Print",
3200	CellChangeTimes->CompressedData["
3201	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3202	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3203	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3204	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3205	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3206	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIO1wZud5
3207	hbJXjgDPMJ4N
3208	"]],
3209
3210	Cell[BoxData[
3211	FormBox["\<\"Starting Feynman rule calculation.\"\>",
3212	TraditionalForm]], "Print",
3213	CellChangeTimes->CompressedData["
3214	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3215	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3216	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3217	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3218	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3219	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIG0Sce68
3220	QtkrRwDMIp2i
3221	"]],
3222
3223	Cell[BoxData[
3224	FormBox["\<\"Collecting the different structures that enter the \
3225	vertex...\"\>", TraditionalForm]], "Print",
3226	CellChangeTimes->CompressedData["
3227	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3228	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3229	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3230	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3231	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3232	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfkLmamy4q
3233	lL1yBADL452O
3234	"]],
3235
3236	Cell[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["
3244	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3245	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3246	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3247	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3248	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3249	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIG2w9vJF
3250	hbJXjgDOfZ36
3251	"]],
3252
3253	Cell[BoxData[
3254	FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
3255	CellChangeTimes->CompressedData["
3256	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3257	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3258	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3259	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3260	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3261	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC0Qe+Wi
3262	QtkrRwDLU52L
3263	"]],
3264
3265	Cell[BoxData[
3266	FormBox[
3267	ProgressIndicatorBox[Dynamic[PRIVATE`progress$1066]],
3268	TraditionalForm]], "Print",
3269	CellChangeTimes->CompressedData["
3270	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3271	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3272	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3273	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3274	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3275	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIP3u/dWL
3276	CmWvHAHWR578
3277	"]],
3278
3279	Cell[BoxData[
3280	FormBox[
3281	InterpretationBox[
3282	RowBox[{"69", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3283	SequenceForm[69, " vertices obtained."],
3284	Editable->False], TraditionalForm]], "Print",
3285	CellChangeTimes->CompressedData["
3286	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3287	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3288	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3289	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3290	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3291	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIK0+Je2q
3292	QtkrRwDLDJ1v
3293	"]],
3294
3295	Cell[BoxData[
3296	FormBox["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>",
3297	TraditionalForm]], "Print",
3298	CellChangeTimes->CompressedData["
3299	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3300	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3301	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3302	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3303	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3304	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIJ3Buuqa
3305	QtkrRwDKyJ1m
3306	"]],
3307
3308	Cell[BoxData[
3309	FormBox["\<\"Preparing Python output.\"\>", TraditionalForm]], "Print",
3310	CellChangeTimes->CompressedData["
3311	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3312	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3313	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3314	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3315	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3316	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIB2Vsvqa
3317	QtkrRwDM9524
3318	"]],
3319
3320	Cell[BoxData[
3321	FormBox["\<\" - Splitting vertices into building blocks.\"\>",
3322	TraditionalForm]], "Print",
3323	CellChangeTimes->CompressedData["
3324	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3325	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3326	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3327	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3328	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3329	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIP1z/s1r
3330	CmWvHAHUoJ7A
3331	"]],
3332
3333	Cell[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["
3344	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3345	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3346	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3347	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3348	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3349	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIL3k8P9r
3350	CmWvHAHT2J61
3351	"]],
3352
3353	Cell[BoxData[
3354	FormBox["\<\" - Writing files.\"\>", TraditionalForm]], "Print",
3355	CellChangeTimes->CompressedData["
3356	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3357	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3358	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3359	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3360	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3361	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC2wle+6
3362	QtkrRwDJNZ0j
3363	"]],
3364
3365	Cell[BoxData[
3366	FormBox["\<\"Done!\"\>", TraditionalForm]], "Print",
3367	CellChangeTimes->CompressedData["
3368	1:eJxTTMoPSmVkYGDQAOJZXV4n16i/clRmm8a7Fkj/2LTdaz2QXpnN2bEBSE9o
3369	Pu+4EUgHdb8S3AykVwmxa4FordSQeSC6x9LmEoj+tn0G6xYgHVJytBRERxru
3370	7gHR793OrgTRc+r7CrYDadNl05aB6LjFCYdA9L49kx+D6HzLNew7QPZmTlTc
3371	CaT9ppdUXgfSEqVh00G08T27DSC6fUbKaRDd9zPrEYgu8ZP9A6I3iFzvc9V4
3372	5SgSNFehEUgzeFhNawPSmTtOPwXRCU8esLUD6RvNapogerd0mCeIVqn82Aii
3373	wxIXrAPRDS1zZXqB9AbLTN5NQHqK6KQd14D0DyWr+NtA+qi2vsZfIC21Qfy6
3374	QtkrRwDJmJ0x
3375	"]]
3376	}, Open ]]
3377	}, Open ]]
3378	}, Open ]],
3379
3380	Cell[CellGroupData[{
3381
3382	Cell["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
3387	Cell[CellGroupData[{
3388
3389	Cell["Gauge sector", "Subsubsection",
3390	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3391	3.454057138248085^9, 3.454057139479412^9}}],
3392
3393	Cell[BoxData[
3394	RowBox[{"FeynmanRules", "[",
3395	RowBox[{"LagG", ",", " ",
3396	RowBox[{"FlavorExpand", "\[Rule]", " ", "True"}]}], "]"}]], "Input",
3397	CellChangeTimes->{{3.45406138410235^9, 3.454061389893989^9}}]
3398	}, Open ]],
3399
3400	Cell[CellGroupData[{
3401
3402	Cell["Scalar sector", "Subsubsection",
3403	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3404	3.411910274288354^9, 3.41191027703699^9}}],
3405
3406	Cell[BoxData[
3407	RowBox[{"FeynmanRules", "[", "LagH", "]"}]], "Input",
3408	CellChangeTimes->{{3.454061456389081^9, 3.454061463346387^9}}]
3409	}, Open ]],
3410
3411	Cell[CellGroupData[{
3412
3413	Cell["Fermion sector", "Subsubsection",
3414	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3415	3.4119103528868923`^9, 3.411910357404933^9}}],
3416
3417	Cell[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
3424	Cell[CellGroupData[{
3425
3426	Cell["Yukawa sector", "Subsubsection",
3427	CellChangeTimes->{{3.4119102216473637`^9, 3.411910224608881^9}, {
3428	3.411910393742139^9, 3.411910394852953^9}}],
3429
3430	Cell[BoxData[
3431	RowBox[{"FeynmanRules", "[", "LagY", "]"}]], "Input",
3432	CellChangeTimes->{{3.454061488319646^9, 3.454061493153029^9}}]
3433	}, Open ]],
3434
3435	Cell[CellGroupData[{
3436
3437	Cell["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
3442	Cell[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	},
3453	WindowSize->{986, 674},
3454	WindowMargins->{{Automatic, 40}, {Automatic, 0}},
3455	PrintingCopies->1,
3456	PrintingPageRange->{1, Automatic},
3457	ShowSelection->True,
3458	Magnification->1.,
3459	FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
3460	StyleDefinitions->"Default.nb"
3461	]
3462	(* End of Notebook Content *)
3463
3464	(* Internal cache information *)
3465	(*CellTagsOutline
3466	CellTagsIndex->{}
3467	*)
3468	(*CellTagsIndex
3469	CellTagsIndex->{}
3470	*)
3471	(*NotebookFileOutline
3472	Notebook[{
3473	Cell[CellGroupData[{
3474	Cell[567, 22, 321, 4, 76, "Title"],
3475	Cell[CellGroupData[{
3476	Cell[913, 30, 114, 1, 67, "Section"],
3477	Cell[1030, 33, 120, 2, 31, "Input"],
3478	Cell[CellGroupData[{
3479	Cell[1175, 39, 1034, 19, 72, "Input"],
3480	Cell[CellGroupData[{
3481	Cell[2234, 62, 606, 9, 24, "Print"],
3482	Cell[2843, 73, 884, 16, 24, "Print"],
3483	Cell[3730, 91, 648, 10, 24, "Print"],
3484	Cell[4381, 103, 592, 9, 24, "Print"],
3485	Cell[4976, 114, 660, 10, 24, "Print"],
3486	Cell[5639, 126, 624, 10, 24, "Print"],
3487	Cell[6266, 138, 590, 9, 24, "Print"],
3488	Cell[6859, 149, 657, 10, 24, "Print"]
3489	}, Open ]]
3490	}, Open ]]
3491	}, Open ]],
3492	Cell[CellGroupData[{
3493	Cell[7577, 166, 209, 3, 67, "Section"],
3494	Cell[CellGroupData[{
3495	Cell[7811, 173, 415, 6, 31, "Input"],
3496	Cell[CellGroupData[{
3497	Cell[8251, 183, 1583, 24, 24, "Print"],
3498	Cell[9837, 209, 1558, 23, 24, "Print"],
3499	Cell[11398, 234, 1690, 27, 24, "Print"],
3500	Cell[13091, 263, 1589, 24, 24, "Print"],
3501	Cell[14683, 289, 1540, 23, 24, "Print"],
3502	Cell[16226, 314, 1572, 24, 24, "Print"],
3503	Cell[17801, 340, 1578, 24, 24, "Print"],
3504	Cell[19382, 366, 1573, 24, 24, "Print"],
3505	Cell[20958, 392, 1733, 28, 45, "Print"]
3506	}, Open ]]
3507	}, Open ]]
3508	}, Open ]],
3509	Cell[CellGroupData[{
3510	Cell[22752, 427, 259, 3, 67, "Section"],
3511	Cell[CellGroupData[{
3512	Cell[23036, 434, 154, 2, 28, "Subsubsection"],
3513	Cell[CellGroupData[{
3514	Cell[23215, 440, 242, 3, 31, "Input"],
3515	Cell[23460, 445, 15133, 471, 279, "Output"]
3516	}, Open ]]
3517	}, Open ]],
3518	Cell[CellGroupData[{
3519	Cell[38642, 922, 154, 2, 28, "Subsubsection"],
3520	Cell[CellGroupData[{
3521	Cell[38821, 928, 239, 3, 31, "Input"],
3522	Cell[39063, 933, 14090, 451, 351, "Output"]
3523	}, Open ]]
3524	}, Open ]],
3525	Cell[CellGroupData[{
3526	Cell[53202, 1390, 158, 2, 28, "Subsubsection"],
3527	Cell[CellGroupData[{
3528	Cell[53385, 1396, 292, 4, 31, "Input"],
3529	Cell[53680, 1402, 51950, 1570, 1058, "Output"]
3530	}, Open ]]
3531	}, Closed]],
3532	Cell[CellGroupData[{
3533	Cell[105679, 2978, 155, 2, 22, "Subsubsection"],
3534	Cell[CellGroupData[{
3535	Cell[105859, 2984, 246, 3, 31, "Input"],
3536	Cell[106108, 2989, 5267, 175, 291, "Output"]
3537	}, Open ]]
3538	}, Closed]]
3539	}, Open ]],
3540	Cell[CellGroupData[{
3541	Cell[111436, 3171, 312, 4, 67, "Section"],
3542	Cell[CellGroupData[{
3543	Cell[111773, 3179, 879, 13, 31, "Input"],
3544	Cell[CellGroupData[{
3545	Cell[112677, 3196, 534, 11, 24, "Print"],
3546	Cell[113214, 3209, 521, 11, 24, "Print"],
3547	Cell[113738, 3222, 546, 11, 24, "Print"],
3548	Cell[114287, 3235, 712, 15, 24, "Print"],
3549	Cell[115002, 3252, 513, 10, 24, "Print"],
3550	Cell[115518, 3264, 532, 12, 26, "Print"],
3551	Cell[116053, 3278, 630, 14, 24, "Print"],
3552	Cell[116686, 3294, 528, 11, 24, "Print"],
3553	Cell[117217, 3307, 508, 10, 24, "Print"],
3554	Cell[117728, 3319, 533, 11, 24, "Print"],
3555	Cell[118264, 3332, 894, 18, 24, "Print"],
3556	Cell[119161, 3352, 504, 10, 24, "Print"],
3557	Cell[119668, 3364, 489, 10, 24, "Print"]
3558	}, Open ]]
3559	}, Open ]]
3560	}, Open ]],
3561	Cell[CellGroupData[{
3562	Cell[120218, 3381, 244, 3, 67, "Section"],
3563	Cell[CellGroupData[{
3564	Cell[120487, 3388, 154, 2, 28, "Subsubsection"],
3565	Cell[120644, 3392, 210, 4, 31, "Input"]
3566	}, Open ]],
3567	Cell[CellGroupData[{
3568	Cell[120891, 3401, 154, 2, 28, "Subsubsection"],
3569	Cell[121048, 3405, 134, 2, 31, "Input"]
3570	}, Open ]],
3571	Cell[CellGroupData[{
3572	Cell[121219, 3412, 158, 2, 28, "Subsubsection"],
3573	Cell[121380, 3416, 263, 4, 31, "Input"]
3574	}, Open ]],
3575	Cell[CellGroupData[{
3576	Cell[121680, 3425, 155, 2, 28, "Subsubsection"],
3577	Cell[121838, 3429, 134, 2, 31, "Input"]
3578	}, Open ]],
3579	Cell[CellGroupData[{
3580	Cell[122009, 3436, 216, 3, 28, "Subsubsection"],
3581	Cell[122228, 3441, 360, 6, 31, "Input"]
3582	}, Open ]]
3583	}, Open ]]
3584	}, Open ]]
3585	}
3586	]
3587	*)
3588
3589	(* End of internal cache information *)

Download in other formats:

Original Format