ASperGe: SM.nb

File SM.nb, 32.0 KB (added by Karen De Causmaecker, 5 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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[     32573,        851]
14NotebookOptionsPosition[     28844,        719]
15NotebookOutlinePosition[     29219,        736]
16CellTagsIndexPosition[     29176,        733]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 StyleBox[
23  RowBox[{"ASperGe", ":", "\n",
24   RowBox[{"The", " ", "Standard", " ", "Model"}]}], "Title"]], "Input",
25 CellChangeTimes->{{3.5680339537906218`*^9, 3.568033968185855*^9}}],
26
27Cell[BoxData[
28 RowBox[{"Quit", "[", "]"}]], "Input",
29 CellChangeTimes->{{3.568033973654759*^9, 3.568033980105204*^9}}],
30
31Cell[CellGroupData[{
32
33Cell["Set the path", "Section",
34 CellChangeTimes->{{3.568033987624649*^9, 3.568033993662871*^9}}],
35
36Cell[CellGroupData[{
37
38Cell[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
53Cell[CellGroupData[{
54
55Cell[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
63Cell[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
78Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
79B. 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
87Cell[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
95Cell[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
104Cell[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
112Cell[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
120Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
121FRPalette[].\"\>"], "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
132Cell[CellGroupData[{
133
134Cell["Import the model", "Section",
135 CellChangeTimes->{{3.568034009758786*^9, 3.5680340152778673`*^9}}],
136
137Cell[CellGroupData[{
138
139Cell[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
147Cell[CellGroupData[{
148
149Cell[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
157Cell[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
165Cell[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
173Cell[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
181Cell[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
189Cell[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
201Cell[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
210Cell[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
219Cell[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
227Cell[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
235Cell[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
243Cell[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
251Cell[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
267Cell[CellGroupData[{
268
269Cell["Compute the tree level mass matrices", "Section",
270 CellChangeTimes->{{3.568034056025237*^9, 3.568034063631463*^9}}],
271
272Cell[CellGroupData[{
273
274Cell["Compute all the mass matrices", "Subsection",
275 CellChangeTimes->{{3.5680340709677258`*^9, 3.568034078079522*^9}}],
276
277Cell[CellGroupData[{
278
279Cell[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
286Cell[CellGroupData[{
287
288Cell[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
296Cell[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
309Cell[BoxData["\<\"Tree level mass matrix computations achieved. Only the mass \
310matrices 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
318Cell[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
327Cell[BoxData["\<\"Use MassMatrix[ MixingID ], GaugeBasis[ MixingID ], \
328MassBasis[ MixingID ], BlockName[ MixingID ] and MatrixSymbol[ MixingID ] for \
329more 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
340Cell[CellGroupData[{
341
342Cell["\<\
343Compute all the mass matrices without generation of the output about the mass \
344matrices\
345\>", "Subsection",
346 CellChangeTimes->{{3.568096058356905*^9, 3.568096068613702*^9}}],
347
348Cell[BoxData[
349 RowBox[{"ComputeMassMatrix", "[",
350  RowBox[{"LSM", ",", " ",
351   RowBox[{"ScreenOutput", " ", "\[Rule]", " ", "False"}]}], "]"}]], "Input",
352 CellChangeTimes->{{3.568096075110293*^9, 3.5680960919641237`*^9}}]
353}, Open  ]],
354
355Cell[CellGroupData[{
356
357Cell["\<\
358Compute 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
364Cell[CellGroupData[{
365
366Cell[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
374Cell[CellGroupData[{
375
376Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
377 CellChangeTimes->{3.5680961517635517`*^9, 3.5682879170124273`*^9}],
378
379Cell[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
387Cell[BoxData["\<\"Computation of the tree level mass matrix for the mixing id \
3881u achieved.\"\>"], "Print",
389 CellChangeTimes->{3.5680961517635517`*^9, 3.568287917283279*^9}],
390
391Cell[BoxData["\<\"For the results, use MassMatrix[ 1u ], GaugeBasis[ 1u ], \
392MassBasis[ 1u ], BlockName [ 1u ] and MatrixSymbol [ 1u ].\"\>"], "Print",
393 CellChangeTimes->{3.5680961517635517`*^9, 3.568287917285993*^9}],
394
395Cell[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
438Cell[CellGroupData[{
439
440Cell["\<\
441Ask 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
446Cell[CellGroupData[{
447
448Cell[BoxData[
449 RowBox[{"MixingSummary", "[", "\"\<1u\>\"", "]"}]], "Input",
450 CellChangeTimes->{{3.568034252584323*^9, 3.568034259451329*^9}}],
451
452Cell[CellGroupData[{
453
454Cell[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
465Cell[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
478Cell[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
527Cell[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
542Cell[CellGroupData[{
543
544Cell["Write the ASperGe package", "Section",
545 CellChangeTimes->{{3.568034265705269*^9, 3.568034271048539*^9}}],
546
547Cell[CellGroupData[{
548
549Cell["\<\
550Write 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
555Cell[CellGroupData[{
556
557Cell[BoxData[
558 RowBox[{"WriteASperGe", "[", "LSM", "]"}]], "Input",
559 CellChangeTimes->{{3.568096225027586*^9, 3.568096233868973*^9}, {
560  3.568286443494081*^9, 3.568286443964463*^9}}],
561
562Cell[CellGroupData[{
563
564Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
565They 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
574Cell[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
582Cell[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
590Cell[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
598Cell[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
614Cell[CellGroupData[{
615
616Cell["\<\
617Write 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
623Cell[CellGroupData[{
624
625Cell[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
633Cell[CellGroupData[{
634
635Cell[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
676Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
677They 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
682Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
683 CellChangeTimes->{3.568102517093158*^9, 3.5681203992615223`*^9,
684  3.5682879353606567`*^9}],
685
686Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
687 CellChangeTimes->{3.568102517093158*^9, 3.5681203992615223`*^9,
688  3.568287935363282*^9}],
689
690Cell[BoxData["\<\"Warning: Ghost fields will be ignored.\"\>"], "Print",
691 CellChangeTimes->{3.568102517093158*^9, 3.5681203992615223`*^9,
692  3.5682879353657427`*^9}],
693
694Cell[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
707Cell[CellGroupData[{
708
709Cell["\<\
710Compile and excecute ASperGe and
711load the output file back into FeynRules\
712\>", "Section",
713 CellChangeTimes->{3.568034375175974*^9}],
714
715Cell[BoxData[
716 RowBox[{"RunASperGe", "[", "]"}]], "Input",
717 CellChangeTimes->{{3.568034380231674*^9, 3.5680343839741983`*^9}}]
718}, Open  ]]
719},
720WindowSize->{835, 715},
721WindowMargins->{{52, Automatic}, {Automatic, 0}},
722ShowSelection->True,
723FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 26, \
7242012)",
725StyleDefinitions->"Default.nb"
726]
727(* End of Notebook Content *)
728
729(* Internal cache information *)
730(*CellTagsOutline
731CellTagsIndex->{}
732*)
733(*CellTagsIndex
734CellTagsIndex->{}
735*)
736(*NotebookFileOutline
737Notebook[{
738Cell[557, 20, 198, 4, 99, "Input"],
739Cell[758, 26, 118, 2, 27, "Input"],
740Cell[CellGroupData[{
741Cell[901, 32, 97, 1, 67, "Section"],
742Cell[CellGroupData[{
743Cell[1023, 37, 524, 13, 58, "Input"],
744Cell[CellGroupData[{
745Cell[1572, 54, 439, 6, 20, "Print"],
746Cell[2014, 62, 719, 13, 20, "Print"],
747Cell[2736, 77, 491, 7, 20, "Print"],
748Cell[3230, 86, 424, 6, 20, "Print"],
749Cell[3657, 94, 495, 7, 20, "Print"],
750Cell[4155, 103, 455, 6, 20, "Print"],
751Cell[4613, 111, 425, 6, 20, "Print"],
752Cell[5041, 119, 494, 7, 20, "Print"]
753}, Open  ]]
754}, Open  ]]
755}, Open  ]],
756Cell[CellGroupData[{
757Cell[5596, 133, 103, 1, 67, "Section"],
758Cell[CellGroupData[{
759Cell[5724, 138, 266, 6, 43, "Input"],
760Cell[CellGroupData[{
761Cell[6015, 148, 465, 6, 20, "Print"],
762Cell[6483, 156, 439, 6, 20, "Print"],
763Cell[6925, 164, 432, 6, 20, "Print"],
764Cell[7360, 172, 432, 6, 20, "Print"],
765Cell[7795, 180, 434, 6, 20, "Print"],
766Cell[8232, 188, 575, 10, 20, "Print"],
767Cell[8810, 200, 482, 7, 20, "Print"],
768Cell[9295, 209, 473, 7, 20, "Print"],
769Cell[9771, 218, 425, 6, 20, "Print"],
770Cell[10199, 226, 455, 6, 20, "Print"],
771Cell[10657, 234, 458, 6, 20, "Print"],
772Cell[11118, 242, 456, 6, 20, "Print"],
773Cell[11577, 250, 621, 11, 36, "Print"]
774}, Open  ]]
775}, Open  ]]
776}, Open  ]],
777Cell[CellGroupData[{
778Cell[12259, 268, 121, 1, 67, "Section"],
779Cell[CellGroupData[{
780Cell[12405, 273, 119, 1, 34, "Subsection"],
781Cell[CellGroupData[{
782Cell[12549, 278, 332, 5, 27, "Input"],
783Cell[CellGroupData[{
784Cell[12906, 287, 418, 6, 20, "Print"],
785Cell[13327, 295, 619, 11, 20, "Print"],
786Cell[13949, 308, 514, 7, 36, "Print"],
787Cell[14466, 317, 451, 7, 20, "Print"],
788Cell[14920, 326, 563, 8, 36, "Print"]
789}, Open  ]]
790}, Open  ]]
791}, Open  ]],
792Cell[CellGroupData[{
793Cell[15544, 341, 184, 4, 34, "Subsection"],
794Cell[15731, 347, 223, 4, 27, "Input"]
795}, Open  ]],
796Cell[CellGroupData[{
797Cell[15991, 356, 296, 5, 34, "Subsection"],
798Cell[CellGroupData[{
799Cell[16312, 365, 303, 6, 27, "Input"],
800Cell[CellGroupData[{
801Cell[16640, 375, 121, 1, 20, "Print"],
802Cell[16764, 378, 325, 6, 20, "Print"],
803Cell[17092, 386, 174, 2, 20, "Print"],
804Cell[17269, 390, 217, 2, 36, "Print"],
805Cell[17489, 394, 1276, 38, 56, "Print"]
806}, Open  ]]
807}, Open  ]]
808}, Open  ]],
809Cell[CellGroupData[{
810Cell[18826, 439, 199, 4, 34, "Subsection"],
811Cell[CellGroupData[{
812Cell[19050, 447, 141, 2, 27, "Input"],
813Cell[CellGroupData[{
814Cell[19216, 453, 341, 9, 20, "Print"],
815Cell[19560, 464, 536, 11, 51, "Print"],
816Cell[20099, 477, 1778, 47, 56, "Print"],
817Cell[21880, 526, 391, 9, 20, "Print"]
818}, Open  ]]
819}, Open  ]]
820}, Open  ]]
821}, Open  ]],
822Cell[CellGroupData[{
823Cell[22344, 543, 110, 1, 67, "Section"],
824Cell[CellGroupData[{
825Cell[22479, 548, 217, 4, 35, "Subsection"],
826Cell[CellGroupData[{
827Cell[22721, 556, 182, 3, 27, "Input"],
828Cell[CellGroupData[{
829Cell[22928, 563, 546, 8, 36, "Print"],
830Cell[23477, 573, 436, 6, 20, "Print"],
831Cell[23916, 581, 452, 6, 20, "Print"],
832Cell[24371, 589, 448, 6, 20, "Print"],
833Cell[24822, 597, 600, 11, 20, "Print"]
834}, Open  ]]
835}, Open  ]]
836}, Open  ]],
837Cell[CellGroupData[{
838Cell[25483, 615, 262, 5, 35, "Subsection"],
839Cell[CellGroupData[{
840Cell[25770, 624, 319, 6, 27, "Input"],
841Cell[CellGroupData[{
842Cell[26114, 634, 1301, 39, 56, "Print"],
843Cell[27418, 675, 256, 4, 36, "Print"],
844Cell[27677, 681, 153, 2, 20, "Print"],
845Cell[27833, 685, 167, 2, 20, "Print"],
846Cell[28003, 689, 165, 2, 20, "Print"],
847Cell[28171, 693, 313, 7, 20, "Print"]
848}, Open  ]]
849}, Open  ]]
850}, Open  ]]
851}, Open  ]],
852Cell[CellGroupData[{
853Cell[28557, 708, 142, 4, 89, "Section"],
854Cell[28702, 714, 126, 2, 27, "Input"]
855}, Open  ]]
856}
857]
858*)
859
860(* End of internal cache information *)