1 | (* Content-type: application/mathematica *)
|
---|
2 |
|
---|
3 | (*** Wolfram Notebook File ***)
|
---|
4 | (* http://www.wolfram.com/nb *)
|
---|
5 |
|
---|
6 | (* CreatedBy='Mathematica 7.0' *)
|
---|
7 |
|
---|
8 | (*CacheID: 234*)
|
---|
9 | (* Internal cache information:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 145, 7]
|
---|
13 | NotebookDataLength[ 3374, 117]
|
---|
14 | NotebookOptionsPosition[ 2710, 88]
|
---|
15 | NotebookOutlinePosition[ 3067, 104]
|
---|
16 | CellTagsIndexPosition[ 3024, 101]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 |
|
---|
22 | Cell[CellGroupData[{
|
---|
23 | Cell["Setup", "Section",
|
---|
24 | CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}],
|
---|
25 |
|
---|
26 | Cell[BoxData[{
|
---|
27 | RowBox[{
|
---|
28 | RowBox[{"olddir", "=",
|
---|
29 | RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
30 | RowBox[{
|
---|
31 | RowBox[{"$FeynRulesPath", "=",
|
---|
32 | RowBox[{
|
---|
33 | "SetDirectory", "[", "\"\<~/FeynRules/trunk/feynrules-development\>\"",
|
---|
34 | "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
35 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
36 | RowBox[{
|
---|
37 | RowBox[{"SetDirectory", "[", "olddir", "]"}],
|
---|
38 | ";"}], "\[IndentingNewLine]",
|
---|
39 | RowBox[{
|
---|
40 | RowBox[{"LoadModel", "[",
|
---|
41 | RowBox[{
|
---|
42 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
|
---|
43 | RowBox[{"olddir", "<>", "\"\</monotops.fr\>\""}]}], "]"}],
|
---|
44 | ";"}]}], "Input",
|
---|
45 | CellChangeTimes->{{3.500793438723139*^9, 3.500793441143552*^9}, {
|
---|
46 | 3.503666867066519*^9, 3.503666869077112*^9}, {3.518892141094482*^9,
|
---|
47 | 3.518892168024193*^9}}]
|
---|
48 | }, Open ]],
|
---|
49 |
|
---|
50 | Cell[CellGroupData[{
|
---|
51 |
|
---|
52 | Cell["Additionnal Feymman rules", "Section",
|
---|
53 | CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}],
|
---|
54 |
|
---|
55 | Cell[BoxData[
|
---|
56 | RowBox[{"FeynmanRules", "[",
|
---|
57 | RowBox[{"LMono", ",",
|
---|
58 | RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]], "Input",
|
---|
59 | CellChangeTimes->{
|
---|
60 | 3.500881935063075*^9, {3.500887802095841*^9, 3.500887868868883*^9}, {
|
---|
61 | 3.5008879030484743`*^9, 3.500887906007085*^9}, {3.500889419665913*^9,
|
---|
62 | 3.5008894198304033`*^9}}]
|
---|
63 | }, Open ]],
|
---|
64 |
|
---|
65 | Cell[CellGroupData[{
|
---|
66 |
|
---|
67 | Cell["Generating the UFO model files", "Section",
|
---|
68 | CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
|
---|
69 |
|
---|
70 | Cell[BoxData[
|
---|
71 | RowBox[{"WriteUFO", "[",
|
---|
72 | RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input",
|
---|
73 | CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, {
|
---|
74 | 3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9,
|
---|
75 | 3.518892237775363*^9}}]
|
---|
76 | }, Open ]],
|
---|
77 |
|
---|
78 | Cell[CellGroupData[{
|
---|
79 |
|
---|
80 | Cell["Generating the FeynArts model files", "Section",
|
---|
81 | CellChangeTimes->{{3.518892794840085*^9, 3.51889279885506*^9}}],
|
---|
82 |
|
---|
83 | Cell[BoxData[
|
---|
84 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
85 | RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input",
|
---|
86 | CellChangeTimes->{{3.518892801141994*^9, 3.518892813463686*^9}}]
|
---|
87 | }, Open ]]
|
---|
88 | },
|
---|
89 | WindowSize->{1440, 825},
|
---|
90 | WindowMargins->{{0, Automatic}, {Automatic, 0}},
|
---|
91 | ShowSelection->True,
|
---|
92 | FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
|
---|
93 | StyleDefinitions->"Default.nb"
|
---|
94 | ]
|
---|
95 | (* End of Notebook Content *)
|
---|
96 |
|
---|
97 | (* Internal cache information *)
|
---|
98 | (*CellTagsOutline
|
---|
99 | CellTagsIndex->{}
|
---|
100 | *)
|
---|
101 | (*CellTagsIndex
|
---|
102 | CellTagsIndex->{}
|
---|
103 | *)
|
---|
104 | (*NotebookFileOutline
|
---|
105 | Notebook[{
|
---|
106 | Cell[CellGroupData[{
|
---|
107 | Cell[567, 22, 90, 1, 73, "Section"],
|
---|
108 | Cell[660, 25, 813, 21, 121, "Input"]
|
---|
109 | }, Open ]],
|
---|
110 | Cell[CellGroupData[{
|
---|
111 | Cell[1510, 51, 110, 1, 73, "Section"],
|
---|
112 | Cell[1623, 54, 332, 7, 32, "Input"]
|
---|
113 | }, Open ]],
|
---|
114 | Cell[CellGroupData[{
|
---|
115 | Cell[1992, 66, 115, 1, 73, "Section"],
|
---|
116 | Cell[2110, 69, 258, 5, 32, "Input"]
|
---|
117 | }, Open ]],
|
---|
118 | Cell[CellGroupData[{
|
---|
119 | Cell[2405, 79, 119, 1, 73, "Section"],
|
---|
120 | Cell[2527, 82, 167, 3, 32, "Input"]
|
---|
121 | }, Open ]]
|
---|
122 | }
|
---|
123 | ]
|
---|
124 | *)
|
---|
125 |
|
---|
126 | (* End of internal cache information *)
|
---|