Context Navigation

Back to ASperGe

ASperGe: SM.nb

File SM.nb, 32.0 KB (added by Karen De Causmaecker, 7 years ago)

Line
1	(* Content-type: application/vnd.wolfram.mathematica *)
2
3	(* Wolfram Notebook File *)
4	(* http://www.wolfram.com/nb *)
5
6	(* CreatedBy='Mathematica 8.0' *)
7
8	(CacheID: 234)
9	(* Internal cache information:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 157, 7]
13	NotebookDataLength[ 32573, 851]
14	NotebookOptionsPosition[ 28844, 719]
15	NotebookOutlinePosition[ 29219, 736]
16	CellTagsIndexPosition[ 29176, 733]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21	Cell[BoxData[
22	StyleBox[
23	RowBox[{"ASperGe", ":", "\n",
24	RowBox[{"The", " ", "Standard", " ", "Model"}]}], "Title"]], "Input",
25	CellChangeTimes->{{3.5680339537906218`^9, 3.568033968185855^9}}],
26
27	Cell[BoxData[
28	RowBox[{"Quit", "[", "]"}]], "Input",
29	CellChangeTimes->{{3.568033973654759^9, 3.568033980105204^9}}],
30
31	Cell[CellGroupData[{
32
33	Cell["Set the path", "Section",
34	CellChangeTimes->{{3.568033987624649^9, 3.568033993662871^9}}],
35
36	Cell[CellGroupData[{
37
38	Cell[BoxData[{
39	RowBox[{
40	RowBox[{"$FeynRulesPath", " ", "=", " ",
41	RowBox[{
42	"SetDirectory", "[", "\"\<<< address of the package >>\>\"", "]"}]}],
43	";"}], "\[IndentingNewLine]",
44	RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
45	RowBox[{
46	RowBox[{
47	"SetDirectory", "[", "\"\<<< address of the model file>>\>\"", "]"}],
48	";"}]}], "Input",
49	CellChangeTimes->{{3.5682895637105637`^9, 3.568289566692581^9}, {
50	3.568289649203005^9, 3.568289655625462^9}, {3.568291435394949*^9,
51	3.5682914356093397`*^9}}],
52
53	Cell[CellGroupData[{
54
55	Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
56	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
57	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
58	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
59	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
60	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
61	3.5682871123683167`^9, 3.568287895271542^9}],
62
63	Cell[BoxData[
64	InterpretationBox[
65	RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.7.132\"\>",
66	"\[InvisibleSpace]",
67	RowBox[{"\<\" (\"\>", " ", "\<\"27 January 2013\"\>"}],
68	"\[InvisibleSpace]", "\<\").\"\>"}],
69	SequenceForm["Version: ", "1.7.132", " (" "27 January 2013", ")."],
70	Editable->False]], "Print",
71	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
72	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
73	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
74	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
75	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
76	3.5682871123683167`^9, 3.56828789527454^9}],
77
78	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
79	B. Fuks\"\>"], "Print",
80	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
81	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
82	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
83	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
84	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
85	3.5682871123683167`^9, 3.568287895277705^9}],
86
87	Cell[BoxData["\<\" \"\>"], "Print",
88	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
89	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
90	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
91	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
92	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
93	3.5682871123683167`^9, 3.56828789528133^9}],
94
95	Cell[BoxData["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
96	(arXiv:0806.4194).\"\>"], "Print",
97	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
98	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
99	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
100	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
101	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
102	3.5682871123683167`^9, 3.568287895284048^9}],
103
104	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
105	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
106	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
107	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
108	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
109	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
110	3.5682871123683167`^9, 3.568287895286697^9}],
111
112	Cell[BoxData["\<\" \"\>"], "Print",
113	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
114	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
115	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
116	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
117	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
118	3.5682871123683167`^9, 3.568287895291132^9}],
119
120	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
121	FRPalette[].\"\>"], "Print",
122	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
123	3.568100925694777^9, 3.568101045448378^9, 3.568101154665114*^9,
124	3.568101279129108^9, 3.568102503716906^9, 3.5681025891129093`*^9,
125	3.568103265561078^9, 3.568103693691141^9, 3.568120378681642*^9,
126	3.568286429397833^9, 3.568286566995369^9, 3.56828691128162*^9,
127	3.5682871123683167`^9, 3.5682878952950363`^9}]
128	}, Open ]]
129	}, Open ]]
130	}, Open ]],
131
132	Cell[CellGroupData[{
133
134	Cell["Import the model", "Section",
135	CellChangeTimes->{{3.568034009758786^9, 3.5680340152778673`^9}}],
136
137	Cell[CellGroupData[{
138
139	Cell[BoxData[{
140	RowBox[{
141	RowBox[{"LoadModel", "[", "\"\<SM_mix.fr\>\"", "]"}],
142	";"}], "\[IndentingNewLine]",
143	RowBox[{
144	RowBox[{"SetDirectory", "[", "$FeynRulesPath", "]"}], ";"}]}], "Input",
145	CellChangeTimes->{{3.568034045483623^9, 3.5680340463555202`^9}}],
146
147	Cell[CellGroupData[{
148
149	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
150	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
151	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
152	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
153	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
154	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
155	3.5682871177530212`^9, 3.568287900719614^9}],
156
157	Cell[BoxData["\<\"N. Christensen\"\>"], "Print",
158	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
159	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
160	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
161	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
162	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
163	3.5682871177530212`^9, 3.568287900721627^9}],
164
165	Cell[BoxData["\<\"C. Duhr\"\>"], "Print",
166	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
167	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
168	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
169	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
170	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
171	3.5682871177530212`^9, 3.568287900723536^9}],
172
173	Cell[BoxData["\<\"B. Fuks\"\>"], "Print",
174	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
175	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
176	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
177	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
178	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
179	3.5682871177530212`^9, 3.568287900725472^9}],
180
181	Cell[BoxData["\<\"A. Alloul\"\>"], "Print",
182	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
183	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
184	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
185	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
186	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
187	3.5682871177530212`^9, 3.568287900727406^9}],
188
189	Cell[BoxData[
190	InterpretationBox[
191	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0.0\"\>"}],
192	SequenceForm["Model Version: ", "1.0.0"],
193	Editable->False]], "Print",
194	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
195	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
196	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
197	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
198	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
199	3.5682871177530212`^9, 3.568287900729546^9}],
200
201	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be/view/Main/StandardModel\"\>\
202	"], "Print",
203	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
204	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
205	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
206	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
207	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
208	3.5682871177530212`^9, 3.568287900731626^9}],
209
210	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
211	"Print",
212	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
213	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
214	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
215	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
216	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
217	3.5682871177530212`^9, 3.568287900733724^9}],
218
219	Cell[BoxData["\<\"\"\>"], "Print",
220	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
221	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
222	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
223	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
224	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
225	3.5682871177530212`^9, 3.568287900735792^9}],
226
227	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
228	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
229	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
230	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
231	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
232	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
233	3.5682871177530212`^9, 3.568287900738043^9}],
234
235	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
236	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
237	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
238	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
239	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
240	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
241	3.5682871177530212`^9, 3.568287900901767^9}],
242
243	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
244	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
245	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
246	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
247	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
248	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
249	3.5682871177530212`^9, 3.568287900904603^9}],
250
251	Cell[BoxData[
252	InterpretationBox[
253	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"SM_mix\"\>",
254	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
255	SequenceForm["\nModel ", "SM_mix", " loaded."],
256	Editable->False]], "Print",
257	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
258	3.5681009310402403`^9, 3.56810105716776^9, 3.5681011600962467`*^9,
259	3.568101284277884^9, 3.56810250890549^9, 3.568102594350691*^9,
260	3.568103274473949^9, 3.568103700352043^9, 3.568120385812242*^9,
261	3.568286435570959^9, 3.568286574176463^9, 3.568286916976327*^9,
262	3.5682871177530212`^9, 3.568287900967903^9}]
263	}, Open ]]
264	}, Open ]]
265	}, Open ]],
266
267	Cell[CellGroupData[{
268
269	Cell["Compute the tree level mass matrices", "Section",
270	CellChangeTimes->{{3.568034056025237^9, 3.568034063631463^9}}],
271
272	Cell[CellGroupData[{
273
274	Cell["Compute all the mass matrices", "Subsection",
275	CellChangeTimes->{{3.5680340709677258`^9, 3.568034078079522^9}}],
276
277	Cell[CellGroupData[{
278
279	Cell[BoxData[
280	RowBox[{"ComputeMassMatrix", "[", "LSM", "]"}]], "Input",
281	CellChangeTimes->{{3.568034079329033^9, 3.56803408777775^9}, {
282	3.568034188373899^9, 3.568034193957204^9}, {3.568095980320429*^9,
283	3.568095991696084^9}, {3.568096030607581^9, 3.568096031918537*^9}, {
284	3.5682864380047293`^9, 3.568286438643549^9}}],
285
286	Cell[CellGroupData[{
287
288	Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
289	CellChangeTimes->{3.568096032659218^9, 3.568100933964387^9,
290	3.568101059710713^9, 3.56810116256713^9, 3.568101286883093*^9,
291	3.568102511819727^9, 3.568102597299^9, 3.568103279476478*^9,
292	3.568103702910067^9, 3.5681203906013813`^9, 3.568286439201359*^9,
293	3.568286576797214^9, 3.568286920833621^9, 3.568287120459396*^9,
294	3.5682879046078587`*^9}],
295
296	Cell[BoxData[
297	InterpretationBox[
298	RowBox[{"\<\" => done in \"\>", "\[InvisibleSpace]", "0.2005079999999997`",
299	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
300	SequenceForm[" => done in ", 0.2005079999999997, " seconds."],
301	Editable->False]], "Print",
302	CellChangeTimes->{3.568096032659218^9, 3.568100933964387^9,
303	3.568101059710713^9, 3.56810116256713^9, 3.568101286883093*^9,
304	3.568102511819727^9, 3.568102597299^9, 3.568103279476478*^9,
305	3.568103702910067^9, 3.5681203906013813`^9, 3.568286439201359*^9,
306	3.568286576797214^9, 3.568286920833621^9, 3.568287120459396*^9,
307	3.568287904805529*^9}],
308
309	Cell[BoxData["\<\"Tree level mass matrix computations achieved. Only the mass \
310	matrices necessary for the C++ code have been computed.\"\>"], "Print",
311	CellChangeTimes->{3.568096032659218^9, 3.568100933964387^9,
312	3.568101059710713^9, 3.56810116256713^9, 3.568101286883093*^9,
313	3.568102511819727^9, 3.568102597299^9, 3.568103279476478*^9,
314	3.568103702910067^9, 3.5681203906013813`^9, 3.568286439201359*^9,
315	3.568286576797214^9, 3.568286920833621^9, 3.568287120459396*^9,
316	3.568287904876062*^9}],
317
318	Cell[BoxData["\<\"Check FR$MassMatrices for the list of the MixingIDs.\"\>"], \
319	"Print",
320	CellChangeTimes->{3.568096032659218^9, 3.568100933964387^9,
321	3.568101059710713^9, 3.56810116256713^9, 3.568101286883093*^9,
322	3.568102511819727^9, 3.568102597299^9, 3.568103279476478*^9,
323	3.568103702910067^9, 3.5681203906013813`^9, 3.568286439201359*^9,
324	3.568286576797214^9, 3.568286920833621^9, 3.568287120459396*^9,
325	3.568287904878598*^9}],
326
327	Cell[BoxData["\<\"Use MassMatrix[ MixingID ], GaugeBasis[ MixingID ], \
328	MassBasis[ MixingID ], BlockName[ MixingID ] and MatrixSymbol[ MixingID ] for \
329	more information on the results.\"\>"], "Print",
330	CellChangeTimes->{3.568096032659218^9, 3.568100933964387^9,
331	3.568101059710713^9, 3.56810116256713^9, 3.568101286883093*^9,
332	3.568102511819727^9, 3.568102597299^9, 3.568103279476478*^9,
333	3.568103702910067^9, 3.5681203906013813`^9, 3.568286439201359*^9,
334	3.568286576797214^9, 3.568286920833621^9, 3.568287120459396*^9,
335	3.568287904881762*^9}]
336	}, Open ]]
337	}, Open ]]
338	}, Open ]],
339
340	Cell[CellGroupData[{
341
342	Cell["\<\
343	Compute all the mass matrices without generation of the output about the mass \
344	matrices\
345	\>", "Subsection",
346	CellChangeTimes->{{3.568096058356905^9, 3.568096068613702^9}}],
347
348	Cell[BoxData[
349	RowBox[{"ComputeMassMatrix", "[",
350	RowBox[{"LSM", ",", " ",
351	RowBox[{"ScreenOutput", " ", "\[Rule]", " ", "False"}]}], "]"}]], "Input",
352	CellChangeTimes->{{3.568096075110293^9, 3.5680960919641237`^9}}]
353	}, Open ]],
354
355	Cell[CellGroupData[{
356
357	Cell["\<\
358	Compute only the mass matrix of the A, Z mixing (1u)\
359	\>", "Subsection",
360	CellChangeTimes->{{3.568034091791587^9, 3.568034103135004^9}, {
361	3.568034169446822^9, 3.568034176724732^9}, {3.5680342380739393`*^9,
362	3.5680342448739557`^9}, {3.568096182769602^9, 3.568096184263101*^9}}],
363
364	Cell[CellGroupData[{
365
366	Cell[BoxData[
367	RowBox[{"ComputeMassMatrix", "[",
368	RowBox[{"LSM", ",", " ",
369	RowBox[{"Mix", "->", "\"\<1u\>\""}]}], "]"}]], "Input",
370	CellChangeTimes->{{3.568034177974084^9, 3.568034208533511^9}, {
371	3.568096100709914^9, 3.5680961058370113`^9}, {3.5680961501077957`*^9,
372	3.56809615112292*^9}}],
373
374	Cell[CellGroupData[{
375
376	Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
377	CellChangeTimes->{3.5680961517635517`^9, 3.5682879170124273`^9}],
378
379	Cell[BoxData[
380	InterpretationBox[
381	RowBox[{"\<\" => done in \"\>", "\[InvisibleSpace]",
382	"0.20047899999999963`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
383	SequenceForm[" => done in ", 0.20047899999999963`, " seconds."],
384	Editable->False]], "Print",
385	CellChangeTimes->{3.5680961517635517`^9, 3.568287917211713^9}],
386
387	Cell[BoxData["\<\"Computation of the tree level mass matrix for the mixing id \
388	1u achieved.\"\>"], "Print",
389	CellChangeTimes->{3.5680961517635517`^9, 3.568287917283279^9}],
390
391	Cell[BoxData["\<\"For the results, use MassMatrix[ 1u ], GaugeBasis[ 1u ], \
392	MassBasis[ 1u ], BlockName [ 1u ] and MatrixSymbol [ 1u ].\"\>"], "Print",
393	CellChangeTimes->{3.5680961517635517`^9, 3.568287917285993^9}],
394
395	Cell[BoxData[
396	TagBox[
397	RowBox[{"(", "\[NoBreak]", GridBox[{
398	{
399	RowBox[{
400	FractionBox["1", "4"], " ",
401	SubsuperscriptBox["g", "1", "2"], " ",
402	SuperscriptBox["vev", "2"]}],
403	RowBox[{
404	RowBox[{"-",
405	FractionBox["1", "4"]}], " ",
406	SubscriptBox["g", "1"], " ",
407	SubscriptBox["g", "w"], " ",
408	SuperscriptBox["vev", "2"]}]},
409	{
410	RowBox[{
411	RowBox[{"-",
412	FractionBox["1", "4"]}], " ",
413	SubscriptBox["g", "1"], " ",
414	SubscriptBox["g", "w"], " ",
415	SuperscriptBox["vev", "2"]}],
416	RowBox[{
417	FractionBox["1", "4"], " ",
418	SubsuperscriptBox["g", "w", "2"], " ",
419	SuperscriptBox["vev", "2"]}]}
420	},
421	GridBoxAlignment->{
422	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
423	"RowsIndexed" -> {}},
424	GridBoxSpacings->{"Columns" -> {
425	Offset[0.27999999999999997`], {
426	Offset[0.7]},
427	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
428	Offset[0.2], {
429	Offset[0.4]},
430	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
431	Function[BoxForm`e$,
432	MatrixForm[BoxForm`e$]]]], "Print",
433	CellChangeTimes->{3.5680961517635517`^9, 3.568287917319626^9}]
434	}, Open ]]
435	}, Open ]]
436	}, Open ]],
437
438	Cell[CellGroupData[{
439
440	Cell["\<\
441	Ask for all the information about the A, Z mixing (1u)\
442	\>", "Subsection",
443	CellChangeTimes->{{3.56803422194046^9, 3.56803425080986^9}, {
444	3.5680961867350807`^9, 3.568096188327422^9}}],
445
446	Cell[CellGroupData[{
447
448	Cell[BoxData[
449	RowBox[{"MixingSummary", "[", "\"\<1u\>\"", "]"}]], "Input",
450	CellChangeTimes->{{3.568034252584323^9, 3.568034259451329^9}}],
451
452	Cell[CellGroupData[{
453
454	Cell[BoxData[
455	InterpretationBox[
456	RowBox[{"\<\"Gauge basis = \"\>", "\[InvisibleSpace]",
457	RowBox[{"{",
458	RowBox[{"B", ",",
459	SubscriptBox["Wi", "3"]}], "}"}]}],
460	SequenceForm["Gauge basis = ", {$CellContext`B,
461	$CellContext`Wi[3]}],
462	Editable->False]], "Print",
463	CellChangeTimes->{3.56809618938696^9, 3.56828792117336^9}],
464
465	Cell[BoxData[
466	InterpretationBox[
467	RowBox[{"\<\"Mass basis = \"\>", "\[InvisibleSpace]",
468	RowBox[{"{",
469	RowBox[{"A", ",", "Z"}], "}"}],
470	"\[InvisibleSpace]", "\<\"\\nBlock = \"\>", "\[InvisibleSpace]", "WEAKMIX",
471	"\[InvisibleSpace]", "\<\"\\nSymbol = \"\>", "\[InvisibleSpace]", "UG"}],
472	SequenceForm[
473	"Mass basis = ", {$CellContext`A, $CellContext`Z},
474	"\nBlock = ", $CellContext`WEAKMIX, "\nSymbol = ", $CellContext`UG],
475	Editable->False]], "Print",
476	CellChangeTimes->{3.56809618938696^9, 3.568287921176338^9}],
477
478	Cell[BoxData[
479	InterpretationBox[
480	RowBox[{"\<\"Squared mass matrix = \"\>", "\[InvisibleSpace]",
481	TagBox[
482	RowBox[{"(", "\[NoBreak]", GridBox[{
483	{
484	RowBox[{
485	FractionBox["1", "4"], " ",
486	SubsuperscriptBox["g", "1", "2"], " ",
487	SuperscriptBox["vev", "2"]}],
488	RowBox[{
489	RowBox[{"-",
490	FractionBox["1", "4"]}], " ",
491	SubscriptBox["g", "1"], " ",
492	SubscriptBox["g", "w"], " ",
493	SuperscriptBox["vev", "2"]}]},
494	{
495	RowBox[{
496	RowBox[{"-",
497	FractionBox["1", "4"]}], " ",
498	SubscriptBox["g", "1"], " ",
499	SubscriptBox["g", "w"], " ",
500	SuperscriptBox["vev", "2"]}],
501	RowBox[{
502	FractionBox["1", "4"], " ",
503	SubsuperscriptBox["g", "w", "2"], " ",
504	SuperscriptBox["vev", "2"]}]}
505	},
506	GridBoxAlignment->{
507	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
508	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
509	GridBoxSpacings->{"Columns" -> {
510	Offset[0.27999999999999997`], {
511	Offset[0.7]},
512	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
513	Offset[0.2], {
514	Offset[0.4]},
515	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
516	Function[BoxForm`e$,
517	MatrixForm[BoxForm`e$]]]}],
518	SequenceForm["Squared mass matrix = ",
519	MatrixForm[{{
520	Rational[1, 4] FeynRules`g1^2 $CellContext`vev^2, Rational[-1, 4]
521	FeynRules`g1 $CellContext`gw $CellContext`vev^2}, {
522	Rational[-1, 4] FeynRules`g1 $CellContext`gw $CellContext`vev^2,
523	Rational[1, 4] $CellContext`gw^2 $CellContext`vev^2}}]],
524	Editable->False]], "Print",
525	CellChangeTimes->{3.56809618938696^9, 3.568287921179467^9}],
526
527	Cell[BoxData[
528	InterpretationBox[
529	RowBox[{"\<\"The mixing matrix = \"\>", "\[InvisibleSpace]",
530	TagBox["\<\"Please use the numerical code.\"\>",
531	Function[BoxForm`e$,
532	MatrixForm[BoxForm`e$]]]}],
533	SequenceForm["The mixing matrix = ",
534	MatrixForm["Please use the numerical code."]],
535	Editable->False]], "Print",
536	CellChangeTimes->{3.56809618938696^9, 3.568287921181972^9}]
537	}, Open ]]
538	}, Open ]]
539	}, Open ]]
540	}, Open ]],
541
542	Cell[CellGroupData[{
543
544	Cell["Write the ASperGe package", "Section",
545	CellChangeTimes->{{3.568034265705269^9, 3.568034271048539^9}}],
546
547	Cell[CellGroupData[{
548
549	Cell["\<\
550	Write the output for all mass matrices to the folder \
551	\[OpenCurlyQuote]SM_mix_MD\[CloseCurlyQuote] in $FeynRulesPath\
552	\>", "Subsection",
553	CellChangeTimes->{{3.5680962205673933`^9, 3.5680962369473886`^9}}],
554
555	Cell[CellGroupData[{
556
557	Cell[BoxData[
558	RowBox[{"WriteASperGe", "[", "LSM", "]"}]], "Input",
559	CellChangeTimes->{{3.568096225027586^9, 3.568096233868973^9}, {
560	3.568286443494081^9, 3.568286443964463^9}}],
561
562	Cell[CellGroupData[{
563
564	Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
565	They have been stored in /Users/Karen/trunk/feynrules-development/SM_mix_MD\"\
566	\>"], "Print",
567	CellChangeTimes->{
568	3.5681009412877607`^9, 3.568101064592959^9, 3.568101168769639*^9,
569	3.568101292709557^9, 3.568102533241076^9, 3.5681026016340227`*^9,
570	3.568103288476488^9, 3.5681037100204353`^9, 3.568286444830323*^9,
571	3.568286581926799^9, 3.568286925229847^9, 3.568287063527371*^9, {
572	3.568287105525797^9, 3.56828712622892^9}, 3.568287933120255*^9}],
573
574	Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
575	CellChangeTimes->{
576	3.5681009412877607`^9, 3.568101064592959^9, 3.568101168769639*^9,
577	3.568101292709557^9, 3.568102533241076^9, 3.5681026016340227`*^9,
578	3.568103288476488^9, 3.5681037100204353`^9, 3.568286444830323*^9,
579	3.568286581926799^9, 3.568286925229847^9, 3.568287063527371*^9, {
580	3.568287105525797^9, 3.56828712622892^9}, 3.568287933156661*^9}],
581
582	Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
583	CellChangeTimes->{
584	3.5681009412877607`^9, 3.568101064592959^9, 3.568101168769639*^9,
585	3.568101292709557^9, 3.568102533241076^9, 3.5681026016340227`*^9,
586	3.568103288476488^9, 3.5681037100204353`^9, 3.568286444830323*^9,
587	3.568286581926799^9, 3.568286925229847^9, 3.568287063527371*^9, {
588	3.568287105525797^9, 3.56828712622892^9}, 3.568287933161182*^9}],
589
590	Cell[BoxData["\<\"Warning: Ghost fields will be ignored.\"\>"], "Print",
591	CellChangeTimes->{
592	3.5681009412877607`^9, 3.568101064592959^9, 3.568101168769639*^9,
593	3.568101292709557^9, 3.568102533241076^9, 3.5681026016340227`*^9,
594	3.568103288476488^9, 3.5681037100204353`^9, 3.568286444830323*^9,
595	3.568286581926799^9, 3.568286925229847^9, 3.568287063527371*^9, {
596	3.568287105525797^9, 3.56828712622892^9}, 3.568287933163574*^9}],
597
598	Cell[BoxData[
599	InterpretationBox[
600	RowBox[{"\<\"Output written on \"\>",
601	"\[InvisibleSpace]", "\<\"input/externals.dat\"\>"}],
602	SequenceForm["Output written on ", "input/externals.dat"],
603	Editable->False]], "Print",
604	CellChangeTimes->{
605	3.5681009412877607`^9, 3.568101064592959^9, 3.568101168769639*^9,
606	3.568101292709557^9, 3.568102533241076^9, 3.5681026016340227`*^9,
607	3.568103288476488^9, 3.5681037100204353`^9, 3.568286444830323*^9,
608	3.568286581926799^9, 3.568286925229847^9, 3.568287063527371*^9, {
609	3.568287105525797^9, 3.56828712622892^9}, 3.5682879331660547`*^9}]
610	}, Open ]]
611	}, Open ]]
612	}, Open ]],
613
614	Cell[CellGroupData[{
615
616	Cell["\<\
617	Write the output to the folder \[OpenCurlyQuote]SM\[CloseCurlyQuote] in \
618	$FeynRulesPath only for the A,Z mixing (1u)\
619	\>", "Subsection",
620	CellChangeTimes->{{3.568096247910824^9, 3.568096269824924^9}, {
621	3.568096357314967^9, 3.568096357774859^9}}],
622
623	Cell[CellGroupData[{
624
625	Cell[BoxData[
626	RowBox[{"WriteASperGe", "[",
627	RowBox[{"LSM", ",", " ",
628	RowBox[{"Output", "\[Rule]", "\"\<SM\>\""}], ",", " ",
629	RowBox[{"Mix", "\[Rule]", " ", "\"\<1u\>\""}]}], "]"}]], "Input",
630	CellChangeTimes->{{3.5680343410263853`^9, 3.5680343452721643`^9}, {
631	3.568096361840968^9, 3.568096369463834^9}}],
632
633	Cell[CellGroupData[{
634
635	Cell[BoxData[
636	TagBox[
637	RowBox[{"(", "\[NoBreak]", GridBox[{
638	{
639	RowBox[{
640	FractionBox["1", "4"], " ",
641	SubsuperscriptBox["g", "1", "2"], " ",
642	SuperscriptBox["vev", "2"]}],
643	RowBox[{
644	RowBox[{"-",
645	FractionBox["1", "4"]}], " ",
646	SubscriptBox["g", "1"], " ",
647	SubscriptBox["g", "w"], " ",
648	SuperscriptBox["vev", "2"]}]},
649	{
650	RowBox[{
651	RowBox[{"-",
652	FractionBox["1", "4"]}], " ",
653	SubscriptBox["g", "1"], " ",
654	SubscriptBox["g", "w"], " ",
655	SuperscriptBox["vev", "2"]}],
656	RowBox[{
657	FractionBox["1", "4"], " ",
658	SubsuperscriptBox["g", "w", "2"], " ",
659	SuperscriptBox["vev", "2"]}]}
660	},
661	GridBoxAlignment->{
662	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
663	"RowsIndexed" -> {}},
664	GridBoxSpacings->{"Columns" -> {
665	Offset[0.27999999999999997`], {
666	Offset[0.7]},
667	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
668	Offset[0.2], {
669	Offset[0.4]},
670	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
671	Function[BoxForm`e$,
672	MatrixForm[BoxForm`e$]]]], "Print",
673	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
674	3.568287935301374*^9}],
675
676	Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
677	They have been stored in /Users/Karen/trunk/feynrules-development/SM\"\>"], \
678	"Print",
679	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
680	3.5682879353580027`*^9}],
681
682	Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
683	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
684	3.5682879353606567`*^9}],
685
686	Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
687	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
688	3.568287935363282*^9}],
689
690	Cell[BoxData["\<\"Warning: Ghost fields will be ignored.\"\>"], "Print",
691	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
692	3.5682879353657427`*^9}],
693
694	Cell[BoxData[
695	InterpretationBox[
696	RowBox[{"\<\"Output written on \"\>",
697	"\[InvisibleSpace]", "\<\"input/externals.dat\"\>"}],
698	SequenceForm["Output written on ", "input/externals.dat"],
699	Editable->False]], "Print",
700	CellChangeTimes->{3.568102517093158^9, 3.5681203992615223`^9,
701	3.568287935369274*^9}]
702	}, Open ]]
703	}, Open ]]
704	}, Open ]]
705	}, Open ]],
706
707	Cell[CellGroupData[{
708
709	Cell["\<\
710	Compile and excecute ASperGe and
711	load the output file back into FeynRules\
712	\>", "Section",
713	CellChangeTimes->{3.568034375175974*^9}],
714
715	Cell[BoxData[
716	RowBox[{"RunASperGe", "[", "]"}]], "Input",
717	CellChangeTimes->{{3.568034380231674^9, 3.5680343839741983`^9}}]
718	}, Open ]]
719	},
720	WindowSize->{835, 715},
721	WindowMargins->{{52, Automatic}, {Automatic, 0}},
722	ShowSelection->True,
723	FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 26, \
724	2012)",
725	StyleDefinitions->"Default.nb"
726	]
727	(* End of Notebook Content *)
728
729	(* Internal cache information *)
730	(*CellTagsOutline
731	CellTagsIndex->{}
732	*)
733	(*CellTagsIndex
734	CellTagsIndex->{}
735	*)
736	(*NotebookFileOutline
737	Notebook[{
738	Cell[557, 20, 198, 4, 99, "Input"],
739	Cell[758, 26, 118, 2, 27, "Input"],
740	Cell[CellGroupData[{
741	Cell[901, 32, 97, 1, 67, "Section"],
742	Cell[CellGroupData[{
743	Cell[1023, 37, 524, 13, 58, "Input"],
744	Cell[CellGroupData[{
745	Cell[1572, 54, 439, 6, 20, "Print"],
746	Cell[2014, 62, 719, 13, 20, "Print"],
747	Cell[2736, 77, 491, 7, 20, "Print"],
748	Cell[3230, 86, 424, 6, 20, "Print"],
749	Cell[3657, 94, 495, 7, 20, "Print"],
750	Cell[4155, 103, 455, 6, 20, "Print"],
751	Cell[4613, 111, 425, 6, 20, "Print"],
752	Cell[5041, 119, 494, 7, 20, "Print"]
753	}, Open ]]
754	}, Open ]]
755	}, Open ]],
756	Cell[CellGroupData[{
757	Cell[5596, 133, 103, 1, 67, "Section"],
758	Cell[CellGroupData[{
759	Cell[5724, 138, 266, 6, 43, "Input"],
760	Cell[CellGroupData[{
761	Cell[6015, 148, 465, 6, 20, "Print"],
762	Cell[6483, 156, 439, 6, 20, "Print"],
763	Cell[6925, 164, 432, 6, 20, "Print"],
764	Cell[7360, 172, 432, 6, 20, "Print"],
765	Cell[7795, 180, 434, 6, 20, "Print"],
766	Cell[8232, 188, 575, 10, 20, "Print"],
767	Cell[8810, 200, 482, 7, 20, "Print"],
768	Cell[9295, 209, 473, 7, 20, "Print"],
769	Cell[9771, 218, 425, 6, 20, "Print"],
770	Cell[10199, 226, 455, 6, 20, "Print"],
771	Cell[10657, 234, 458, 6, 20, "Print"],
772	Cell[11118, 242, 456, 6, 20, "Print"],
773	Cell[11577, 250, 621, 11, 36, "Print"]
774	}, Open ]]
775	}, Open ]]
776	}, Open ]],
777	Cell[CellGroupData[{
778	Cell[12259, 268, 121, 1, 67, "Section"],
779	Cell[CellGroupData[{
780	Cell[12405, 273, 119, 1, 34, "Subsection"],
781	Cell[CellGroupData[{
782	Cell[12549, 278, 332, 5, 27, "Input"],
783	Cell[CellGroupData[{
784	Cell[12906, 287, 418, 6, 20, "Print"],
785	Cell[13327, 295, 619, 11, 20, "Print"],
786	Cell[13949, 308, 514, 7, 36, "Print"],
787	Cell[14466, 317, 451, 7, 20, "Print"],
788	Cell[14920, 326, 563, 8, 36, "Print"]
789	}, Open ]]
790	}, Open ]]
791	}, Open ]],
792	Cell[CellGroupData[{
793	Cell[15544, 341, 184, 4, 34, "Subsection"],
794	Cell[15731, 347, 223, 4, 27, "Input"]
795	}, Open ]],
796	Cell[CellGroupData[{
797	Cell[15991, 356, 296, 5, 34, "Subsection"],
798	Cell[CellGroupData[{
799	Cell[16312, 365, 303, 6, 27, "Input"],
800	Cell[CellGroupData[{
801	Cell[16640, 375, 121, 1, 20, "Print"],
802	Cell[16764, 378, 325, 6, 20, "Print"],
803	Cell[17092, 386, 174, 2, 20, "Print"],
804	Cell[17269, 390, 217, 2, 36, "Print"],
805	Cell[17489, 394, 1276, 38, 56, "Print"]
806	}, Open ]]
807	}, Open ]]
808	}, Open ]],
809	Cell[CellGroupData[{
810	Cell[18826, 439, 199, 4, 34, "Subsection"],
811	Cell[CellGroupData[{
812	Cell[19050, 447, 141, 2, 27, "Input"],
813	Cell[CellGroupData[{
814	Cell[19216, 453, 341, 9, 20, "Print"],
815	Cell[19560, 464, 536, 11, 51, "Print"],
816	Cell[20099, 477, 1778, 47, 56, "Print"],
817	Cell[21880, 526, 391, 9, 20, "Print"]
818	}, Open ]]
819	}, Open ]]
820	}, Open ]]
821	}, Open ]],
822	Cell[CellGroupData[{
823	Cell[22344, 543, 110, 1, 67, "Section"],
824	Cell[CellGroupData[{
825	Cell[22479, 548, 217, 4, 35, "Subsection"],
826	Cell[CellGroupData[{
827	Cell[22721, 556, 182, 3, 27, "Input"],
828	Cell[CellGroupData[{
829	Cell[22928, 563, 546, 8, 36, "Print"],
830	Cell[23477, 573, 436, 6, 20, "Print"],
831	Cell[23916, 581, 452, 6, 20, "Print"],
832	Cell[24371, 589, 448, 6, 20, "Print"],
833	Cell[24822, 597, 600, 11, 20, "Print"]
834	}, Open ]]
835	}, Open ]]
836	}, Open ]],
837	Cell[CellGroupData[{
838	Cell[25483, 615, 262, 5, 35, "Subsection"],
839	Cell[CellGroupData[{
840	Cell[25770, 624, 319, 6, 27, "Input"],
841	Cell[CellGroupData[{
842	Cell[26114, 634, 1301, 39, 56, "Print"],
843	Cell[27418, 675, 256, 4, 36, "Print"],
844	Cell[27677, 681, 153, 2, 20, "Print"],
845	Cell[27833, 685, 167, 2, 20, "Print"],
846	Cell[28003, 689, 165, 2, 20, "Print"],
847	Cell[28171, 693, 313, 7, 20, "Print"]
848	}, Open ]]
849	}, Open ]]
850	}, Open ]]
851	}, Open ]],
852	Cell[CellGroupData[{
853	Cell[28557, 708, 142, 4, 89, "Section"],
854	Cell[28702, 714, 126, 2, 27, "Input"]
855	}, Open ]]
856	}
857	]
858	*)
859
860	(* End of internal cache information *)

Download in other formats:

Original Format