NLSM: ChiPT.nb

File ChiPT.nb, 27.2 KB (added by claudeduhr, 7 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 *)