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 *) |
---|