NLSM: ChiPT.nb

File ChiPT.nb, 27.2 KB (added by Claude Duhr, 14 years ago)

Sample notebook

Line 
1(* Content-type: application/mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 6.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[ 145, 7]
13NotebookDataLength[ 27680, 609]
14NotebookOptionsPosition[ 25761, 546]
15NotebookOutlinePosition[ 26115, 562]
16CellTagsIndexPosition[ 26072, 559]
17WindowFrame->Normal
18ContainsDynamic->True *)
19
20(* Beginning of Notebook Content *)
21Notebook[{
22Cell[BoxData[
23 RowBox[{"Quit", "[", "]"}]], "Input",
24 CellChangeTimes->{{3.453803955168854*^9, 3.453803957273806*^9}}],
25
26Cell[CellGroupData[{
27
28Cell[BoxData[{
29 RowBox[{
30 RowBox[{"$FeynRulesPath", " ", "=", " ",
31 RowBox[{
32 "SetDirectory", "[", "\"\</home/degrande/FeynRules/FeynRules1.3.62\>\"",
33 "]"}]}], ";"}], "\[IndentingNewLine]",
34 RowBox[{"<<", " ", "FeynRules`"}]}], "Input",
35 CellChangeTimes->{{3.42458169630278*^9, 3.4245817333444*^9}, {
36 3.424581774594029*^9, 3.424581896572242*^9}, {3.424582024289961*^9,
37 3.424582040388545*^9}, 3.424582304079963*^9, {3.432264714494519*^9,
38 3.432264716322466*^9}, {3.432549642886071*^9, 3.432549643963343*^9}, {
39 3.432556338956436*^9, 3.432556345218597*^9}, {3.434192716766378*^9,
40 3.434192716866722*^9}, {3.453807172741582*^9, 3.453807181407354*^9}}],
41
42Cell[CellGroupData[{
43
44Cell[BoxData[
45 FormBox["\<\" - FeynRules - \"\>", TraditionalForm]], "Print",
46 CellChangeTimes->{
47 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
48 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
49 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
50 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
51 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
52 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
53 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
54 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
55 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
56 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
57 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
58 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
59 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
60 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
61 3.454038053375544*^9, 3.454038093256024*^9}],
62
63Cell[BoxData[
64 FormBox[
65 InterpretationBox[
66 RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.3.62\"\>"}],
67 SequenceForm["Version: ", "1.3.62"],
68 Editable->False], TraditionalForm]], "Print",
69 CellChangeTimes->{
70 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
71 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
72 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
73 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
74 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
75 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
76 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
77 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
78 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
79 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
80 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
81 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
82 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
83 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
84 3.454038053375544*^9, 3.45403809327221*^9}],
85
86Cell[BoxData[
87 FormBox["\<\"Authors: C. Duhr, N. Christensen, B. Fuks\"\>",
88 TraditionalForm]], "Print",
89 CellChangeTimes->{
90 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
91 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
92 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
93 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
94 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
95 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
96 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
97 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
98 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
99 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
100 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
101 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
102 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
103 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
104 3.454038053375544*^9, 3.454038093287123*^9}],
105
106Cell[BoxData[
107 FormBox["\<\" \"\>", TraditionalForm]], "Print",
108 CellChangeTimes->{
109 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
110 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
111 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
112 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
113 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
114 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
115 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
116 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
117 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
118 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
119 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
120 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
121 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
122 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
123 3.454038053375544*^9, 3.454038093299134*^9}],
124
125Cell[BoxData[
126 FormBox["\<\"Please cite: arXiv:0806.4194\"\>", TraditionalForm]], "Print",
127 CellChangeTimes->{
128 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
129 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
130 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
131 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
132 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
133 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
134 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
135 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
136 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
137 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
138 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
139 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
140 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
141 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
142 3.454038053375544*^9, 3.454038093310638*^9}],
143
144Cell[BoxData[
145 FormBox["\<\"http://feynrules.phys.ucl.ac.be\"\>", TraditionalForm]], "Print",\
146
147 CellChangeTimes->{
148 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
149 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
150 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
151 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
152 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
153 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
154 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
155 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
156 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
157 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
158 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
159 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
160 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
161 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
162 3.454038053375544*^9, 3.454038093321865*^9}],
163
164Cell[BoxData[
165 FormBox["\<\" \"\>", TraditionalForm]], "Print",
166 CellChangeTimes->{
167 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
168 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
169 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
170 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
171 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
172 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
173 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
174 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
175 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
176 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
177 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
178 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
179 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
180 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
181 3.454038053375544*^9, 3.454038093333648*^9}],
182
183Cell[BoxData[
184 FormBox["\<\"The FeynRules palette can be opened using the command \
185FRPalette[].\"\>", TraditionalForm]], "Print",
186 CellChangeTimes->{
187 3.432264717422579*^9, 3.432268605026561*^9, 3.432269091167922*^9,
188 3.432269929456278*^9, 3.432270336680413*^9, 3.432458968579054*^9,
189 3.432459551892701*^9, 3.432467157693312*^9, {3.432468934437831*^9,
190 3.432468977208092*^9}, 3.432541617160046*^9, 3.432541847500723*^9,
191 3.432544392244364*^9, 3.432549649077403*^9, {3.432556349075036*^9,
192 3.432556360658491*^9}, 3.432611154328922*^9, 3.432613872919061*^9,
193 3.433216822558382*^9, 3.433480767780664*^9, 3.433482434559652*^9,
194 3.433501454992158*^9, 3.433502566242859*^9, 3.434192705708115*^9,
195 3.434192935256364*^9, 3.453803981384959*^9, {3.453807340282323*^9,
196 3.453807348412327*^9}, 3.453807405461004*^9, 3.453807672069564*^9,
197 3.453815989728628*^9, 3.45381605610255*^9, 3.453817252815926*^9,
198 3.453817502496028*^9, 3.453817575871677*^9, 3.453817669383433*^9, {
199 3.453817846322397*^9, 3.453817857970071*^9}, 3.453819064651539*^9, {
200 3.453887253863718*^9, 3.453887282509326*^9}, 3.453889048323748*^9,
201 3.454038053375544*^9, 3.454038093345059*^9}]
202}, Open ]]
203}, Open ]],
204
205Cell[CellGroupData[{
206
207Cell[BoxData[
208 RowBox[{"LoadModel", "[", "\"\</home/degrande/FeynRules/ChiPT2.fr\>\"",
209 "]"}]], "Input",
210 CellChangeTimes->{{3.424582359045593*^9, 3.424582393705754*^9}, {
211 3.424582603721951*^9, 3.424582605309919*^9}, 3.424594461601576*^9,
212 3.42460573820072*^9, {3.425114603007863*^9, 3.425114603462077*^9}, {
213 3.425211263633476*^9, 3.425211268742935*^9}, {3.425211664664711*^9,
214 3.425211665122695*^9}, {3.42521170294849*^9, 3.425211707474547*^9}, {
215 3.425211900871643*^9, 3.425211905732752*^9}, {3.425267965307238*^9,
216 3.425267969065041*^9}, {3.425275395562021*^9, 3.425275398773094*^9},
217 3.432264761790746*^9, {3.453805825736099*^9, 3.453805833834718*^9},
218 3.453817850932205*^9, {3.453887284746709*^9, 3.453887285585045*^9}, {
219 3.453889041616455*^9, 3.453889042666326*^9}}],
220
221Cell[CellGroupData[{
222
223Cell[BoxData[
224 FormBox["\<\"This model implementation was created by\"\>",
225 TraditionalForm]], "Print",
226 CellChangeTimes->{
227 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
228 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
229 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
230 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
231 3.454038099952511*^9}],
232
233Cell[BoxData[
234 FormBox["\<\"C. Degrande\"\>", TraditionalForm]], "Print",
235 CellChangeTimes->{
236 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
237 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
238 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
239 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
240 3.454038100133032*^9}],
241
242Cell[BoxData[
243 FormBox[
244 InterpretationBox[
245 RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1\"\>"}],
246 SequenceForm["Model Version: ", "1"],
247 Editable->False], TraditionalForm]], "Print",
248 CellChangeTimes->{
249 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
250 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
251 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
252 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
253 3.45403810014468*^9}],
254
255Cell[BoxData[
256 FormBox["\<\"http://feynrules.phys.ucl.ac.be/view/Main/NLSM\"\>",
257 TraditionalForm]], "Print",
258 CellChangeTimes->{
259 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
260 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
261 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
262 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
263 3.4540381001575*^9}],
264
265Cell[BoxData[
266 FormBox["\<\"For more information, type ModelInformation[].\"\>",
267 TraditionalForm]], "Print",
268 CellChangeTimes->{
269 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
270 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
271 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
272 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
273 3.45403810017004*^9}],
274
275Cell[BoxData[
276 FormBox["\<\"\"\>", TraditionalForm]], "Print",
277 CellChangeTimes->{
278 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
279 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
280 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
281 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
282 3.454038100182327*^9}],
283
284Cell[BoxData[
285 FormBox["\<\" - Loading particle classes.\"\>", TraditionalForm]], "Print",\
286
287 CellChangeTimes->{
288 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
289 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
290 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
291 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
292 3.454038100193217*^9}],
293
294Cell[BoxData[
295 FormBox["\<\" - Loading parameter classes.\"\>", TraditionalForm]], "Print",\
296
297 CellChangeTimes->{
298 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
299 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
300 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
301 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
302 3.454038100203812*^9}],
303
304Cell[BoxData[
305 FormBox[
306 InterpretationBox[
307 RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"ChiPT\"\>",
308 "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
309 SequenceForm["\nModel ", "ChiPT", " loaded."],
310 Editable->False], TraditionalForm]], "Print",
311 CellChangeTimes->{
312 3.453807680422839*^9, 3.453815991459203*^9, 3.453816057090833*^9,
313 3.453817253922318*^9, 3.453817503594112*^9, 3.453817576779443*^9,
314 3.45381767028438*^9, {3.453817847384738*^9, 3.453817859123058*^9},
315 3.453887256213826*^9, 3.453887799057751*^9, 3.453889051332715*^9,
316 3.454038100214465*^9}]
317}, Open ]]
318}, Open ]],
319
320Cell[BoxData[{
321 RowBox[{
322 RowBox[{"L2", "=",
323 RowBox[{"L", "/.",
324 RowBox[{"f", "\[Rule]",
325 RowBox[{"1", "/", "ff"}]}]}]}], ";"}], "\n",
326 RowBox[{
327 RowBox[{"L2", "=",
328 RowBox[{"Normal", "[",
329 RowBox[{"Series", "[",
330 RowBox[{"L2", ",",
331 RowBox[{"{",
332 RowBox[{"ff", ",", "0", ",", "4"}], "}"}]}], "]"}], "]"}]}],
333 ";"}], "\n",
334 RowBox[{
335 RowBox[{"L2", "=",
336 RowBox[{"L2", "/.",
337 RowBox[{"ff", "\[Rule]",
338 RowBox[{"1", "/", "f"}]}]}]}], ";"}]}], "Input"],
339
340Cell[BoxData[
341 RowBox[{
342 RowBox[{"Verts", "=", " ",
343 RowBox[{"FeynmanRules", "[",
344 RowBox[{"L2", ",", " ",
345 RowBox[{"MaxParticles", "\[Rule]", "6"}]}], "]"}]}], ";"}]], "Input",
346 CellChangeTimes->{
347 3.432459597807316*^9, {3.432542447774186*^9, 3.432542461788995*^9}, {
348 3.43321686488114*^9, 3.433216865241912*^9}, 3.433218430558564*^9,
349 3.433481962018958*^9, {3.453807146887531*^9, 3.453807159412237*^9},
350 3.453816094739328*^9, 3.453892977034535*^9}],
351
352Cell[CellGroupData[{
353
354Cell[BoxData[
355 RowBox[{"WriteFeynArtsOutput", "[",
356 RowBox[{"L2", ",", " ",
357 RowBox[{"MaxParticles", "\[Rule]", "6"}], ",",
358 RowBox[{"Output", "\[Rule]", "\"\<ChiPT\>\""}]}], "]"}]], "Input",
359 CellChangeTimes->{{3.43168880798363*^9, 3.431688855660996*^9},
360 3.43168894096478*^9, {3.431689061108053*^9, 3.431689081128688*^9},
361 3.432549735992947*^9, {3.432611112901458*^9, 3.432611114314769*^9},
362 3.432613850807092*^9, {3.43321731097673*^9, 3.433217336993227*^9},
363 3.433220176338455*^9, 3.433495529871576*^9, {3.453807426519734*^9,
364 3.453807431834011*^9}, 3.45381642751065*^9, 3.453817283572629*^9,
365 3.453819111447512*^9, 3.453888883303853*^9}],
366
367Cell[CellGroupData[{
368
369Cell[BoxData[
370 FormBox["\<\" - - - FeynRules interface to FeynArts - - -\"\>",
371 TraditionalForm]], "Print",
372 CellChangeTimes->{
373 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
374 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
375 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
376 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
377 3.453888885618635*^9, 3.453889367511849*^9, 3.453889480347329*^9}],
378
379Cell[BoxData[
380 FormBox["\<\" C. Duhr, 2008\"\>", TraditionalForm]], "Print",
381 CellChangeTimes->{
382 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
383 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
384 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
385 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
386 3.453888885618635*^9, 3.453889367511849*^9, 3.453889480425423*^9}],
387
388Cell[BoxData[
389 FormBox["\<\"Warning: Only the generic couplings from feynrules.gen are \
390supported.\"\>", TraditionalForm]], "Print",
391 CellChangeTimes->{
392 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
393 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
394 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
395 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
396 3.453888885618635*^9, 3.453889367511849*^9, 3.453889480432102*^9}],
397
398Cell[BoxData[
399 FormBox[
400 InterpretationBox[
401 RowBox[{"\<\"Calculating Feynman rules for \"\>",
402 "\[InvisibleSpace]", "\<\"L1\"\>"}],
403 SequenceForm["Calculating Feynman rules for ", "L1"],
404 Editable->False], TraditionalForm]], "Print",
405 CellChangeTimes->{
406 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
407 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
408 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
409 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
410 3.453888885618635*^9, 3.453889367511849*^9, 3.453889480437966*^9}],
411
412Cell[BoxData[
413 FormBox[
414 InterpretationBox[
415 RowBox[{"\<\"Starting Feynman rule calculation for \"\>",
416 "\[InvisibleSpace]", "\<\"L1\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
417 SequenceForm["Starting Feynman rule calculation for ", "L1", "."],
418 Editable->False], TraditionalForm]], "Print",
419 CellChangeTimes->{
420 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
421 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
422 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
423 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
424 3.453888885618635*^9, 3.453889367511849*^9, 3.453889487702419*^9}],
425
426Cell[BoxData[
427 FormBox[
428 InterpretationBox[
429 RowBox[{"\<\"Neglecting all terms with more than \"\>",
430 "\[InvisibleSpace]", "\<\"6\"\>",
431 "\[InvisibleSpace]", "\<\" particles.\"\>"}],
432 SequenceForm["Neglecting all terms with more than ", "6", " particles."],
433 Editable->False], TraditionalForm]], "Print",
434 CellChangeTimes->{
435 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
436 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
437 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
438 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
439 3.453888885618635*^9, 3.453889367511849*^9, 3.4538894986465*^9}],
440
441Cell[BoxData[
442 FormBox["\<\"Expanding indices...\"\>", TraditionalForm]], "Print",
443 CellChangeTimes->{
444 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
445 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
446 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
447 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
448 3.453888885618635*^9, 3.453889367511849*^9, 3.45388950680307*^9}],
449
450Cell[BoxData[
451 FormBox["\<\"Collecting the different structures that enter the \
452vertex...\"\>", TraditionalForm]], "Print",
453 CellChangeTimes->{
454 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
455 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
456 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
457 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
458 3.453888885618635*^9, 3.453889367511849*^9, 3.453889613267355*^9}],
459
460Cell[BoxData[
461 FormBox[
462 InterpretationBox[
463 RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"204\"\>",
464 "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
465 SequenceForm["Found ", "204", " possible non zero vertices."],
466 Editable->False], TraditionalForm]], "Print",
467 CellChangeTimes->{
468 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
469 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
470 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
471 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
472 3.453888885618635*^9, 3.453889367511849*^9, 3.453889646018995*^9}],
473
474Cell[BoxData[
475 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
476 CellChangeTimes->{
477 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
478 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
479 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
480 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
481 3.453888885618635*^9, 3.453889367511849*^9, 3.453889646026047*^9}],
482
483Cell[BoxData[
484 FormBox["\<\"Start calculating vertices...\"\>", TraditionalForm]], "Print",
485 CellChangeTimes->{
486 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
487 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
488 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
489 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
490 3.453888885618635*^9, 3.453889367511849*^9, 3.453889646031878*^9}],
491
492Cell[BoxData[
493 FormBox[
494 ProgressIndicatorBox[Dynamic[PRIVATE`progress$7064]],
495 TraditionalForm]], "Print",
496 CellChangeTimes->{
497 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
498 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
499 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
500 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
501 3.453888885618635*^9, 3.453889367511849*^9, 3.453889646037448*^9}],
502
503Cell[BoxData[
504 FormBox[
505 InterpretationBox[
506 RowBox[{"204", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
507 SequenceForm[204, " vertices obtained."],
508 Editable->False], TraditionalForm]], "Print",
509 CellChangeTimes->{
510 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
511 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
512 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
513 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
514 3.453888885618635*^9, 3.453889367511849*^9, 3.453892074409694*^9}],
515
516Cell[BoxData[
517 FormBox[
518 InterpretationBox[
519 RowBox[{"\<\"Writing FeynArts model file on \"\>",
520 "\[InvisibleSpace]", "\<\"ChiPT.mod\"\>"}],
521 SequenceForm["Writing FeynArts model file on ", "ChiPT.mod"],
522 Editable->False], TraditionalForm]], "Print",
523 CellChangeTimes->{
524 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
525 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
526 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
527 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
528 3.453888885618635*^9, 3.453889367511849*^9, 3.453892074499119*^9}],
529
530Cell[BoxData[
531 FormBox[
532 InterpretationBox[
533 RowBox[{"\<\"FeynArts output written on \"\>",
534 "\[InvisibleSpace]", "\<\"ChiPT.mod\"\>",
535 "\[InvisibleSpace]", "\<\".\"\>"}],
536 SequenceForm["FeynArts output written on ", "ChiPT.mod", "."],
537 Editable->False], TraditionalForm]], "Print",
538 CellChangeTimes->{
539 3.433217373972226*^9, 3.433220177307874*^9, 3.433495531383148*^9,
540 3.453811464540791*^9, {3.453816413788026*^9, 3.453816428192058*^9},
541 3.453817284907814*^9, 3.453817341968021*^9, 3.453817515043746*^9,
542 3.453817587709602*^9, 3.453817684321341*^9, 3.453817871589322*^9,
543 3.453888885618635*^9, 3.453889367511849*^9, 3.453892405341523*^9}]
544}, Open ]]
545}, Open ]]
546},
547WindowSize->{1269, 943},
548WindowMargins->{{-5, Automatic}, {Automatic, 0}},
549ShowSelection->True,
550FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 19, 2007)",
551StyleDefinitions->"Default.nb"
552]
553(* End of Notebook Content *)
554
555(* Internal cache information *)
556(*CellTagsOutline
557CellTagsIndex->{}
558*)
559(*CellTagsIndex
560CellTagsIndex->{}
561*)
562(*NotebookFileOutline
563Notebook[{
564Cell[568, 21, 118, 2, 32, "Input"],
565Cell[CellGroupData[{
566Cell[711, 27, 675, 12, 55, "Input"],
567Cell[CellGroupData[{
568Cell[1411, 43, 1133, 17, 25, "Print"],
569Cell[2547, 62, 1261, 21, 25, "Print"],
570Cell[3811, 85, 1162, 18, 25, "Print"],
571Cell[4976, 105, 1119, 17, 25, "Print"],
572Cell[6098, 124, 1146, 17, 25, "Print"],
573Cell[7247, 143, 1151, 18, 25, "Print"],
574Cell[8401, 163, 1119, 17, 25, "Print"],
575Cell[9523, 182, 1186, 18, 25, "Print"]
576}, Open ]]
577}, Open ]],
578Cell[CellGroupData[{
579Cell[10758, 206, 800, 12, 32, "Input"],
580Cell[CellGroupData[{
581Cell[11583, 222, 431, 8, 25, "Print"],
582Cell[12017, 232, 399, 7, 25, "Print"],
583Cell[12419, 241, 533, 11, 25, "Print"],
584Cell[12955, 254, 435, 8, 25, "Print"],
585Cell[13393, 264, 436, 8, 25, "Print"],
586Cell[13832, 274, 388, 7, 25, "Print"],
587Cell[14223, 283, 420, 8, 25, "Print"],
588Cell[14646, 293, 421, 8, 25, "Print"],
589Cell[15070, 303, 587, 12, 48, "Print"]
590}, Open ]]
591}, Open ]],
592Cell[15684, 319, 506, 18, 77, "Input"],
593Cell[16193, 339, 473, 10, 32, "Input"],
594Cell[CellGroupData[{
595Cell[16691, 353, 667, 11, 32, "Input"],
596Cell[CellGroupData[{
597Cell[17383, 368, 480, 8, 25, "Print"],
598Cell[17866, 378, 453, 7, 25, "Print"],
599Cell[18322, 387, 504, 8, 25, "Print"],
600Cell[18829, 397, 616, 12, 25, "Print"],
601Cell[19448, 411, 671, 12, 25, "Print"],
602Cell[20122, 425, 688, 13, 25, "Print"],
603Cell[20813, 440, 452, 7, 25, "Print"],
604Cell[21268, 449, 495, 8, 25, "Print"],
605Cell[21766, 459, 663, 12, 25, "Print"],
606Cell[22432, 473, 462, 7, 25, "Print"],
607Cell[22897, 482, 462, 7, 25, "Print"],
608Cell[23362, 491, 481, 9, 25, "Print"],
609Cell[23846, 502, 581, 11, 25, "Print"],
610Cell[24430, 515, 632, 12, 25, "Print"],
611Cell[25065, 529, 668, 13, 25, "Print"]
612}, Open ]]
613}, Open ]]
614}
615]
616*)
617
618(* End of internal cache information *)