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:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 145, 7]
|
---|
13 | NotebookDataLength[ 9082, 244]
|
---|
14 | NotebookOptionsPosition[ 8149, 208]
|
---|
15 | NotebookOutlinePosition[ 8473, 223]
|
---|
16 | CellTagsIndexPosition[ 8430, 220]
|
---|
17 | WindowFrame->Generic
|
---|
18 | ContainsDynamic->False*)
|
---|
19 |
|
---|
20 | (* Beginning of Notebook Content *)
|
---|
21 | Notebook[{
|
---|
22 |
|
---|
23 | Cell[CellGroupData[{
|
---|
24 | Cell["Load of the FeynRules package", "Subsubsection",
|
---|
25 | CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],
|
---|
26 |
|
---|
27 | Cell[BoxData[
|
---|
28 | RowBox[{
|
---|
29 | RowBox[{"Quit", "[", "]"}], ";"}]], "Input"],
|
---|
30 |
|
---|
31 | Cell[BoxData[{
|
---|
32 | RowBox[{
|
---|
33 | RowBox[{"$OldDir", "=",
|
---|
34 | RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
35 | RowBox[{
|
---|
36 | RowBox[{"$FeynRulesPath", "=",
|
---|
37 | RowBox[{"SetDirectory", "[", "\"\<<address of the package>\>\"", "]"}]}],
|
---|
38 | ";"}], "\[IndentingNewLine]",
|
---|
39 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
40 | RowBox[{
|
---|
41 | RowBox[{"SetDirectory", "[",
|
---|
42 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SUSY\>\""}], "]"}],
|
---|
43 | ";"}]}], "Input",
|
---|
44 | CellChangeTimes->{{3.452856878024516*^9, 3.452856928463471*^9}, {
|
---|
45 | 3.452856988363124*^9, 3.452856989785912*^9}, {3.452857076867489*^9,
|
---|
46 | 3.452857099728827*^9}, {3.452857430586068*^9, 3.452857430902748*^9}, {
|
---|
47 | 3.452858460022266*^9, 3.452858483332158*^9}, {3.452923951757038*^9,
|
---|
48 | 3.452923956045692*^9}, {3.453004697938979*^9, 3.453004700346866*^9}}]
|
---|
49 | }, Open ]],
|
---|
50 |
|
---|
51 | Cell[CellGroupData[{
|
---|
52 |
|
---|
53 | Cell["Load of the SUSY model", "Subsubsection",
|
---|
54 | CellChangeTimes->{{3.452856959806845*^9, 3.452856965627877*^9}}],
|
---|
55 |
|
---|
56 | Cell[BoxData[{
|
---|
57 | RowBox[{
|
---|
58 | RowBox[{"LoadModel", "[", "\"\<SUSY.fr\>\"", "]"}],
|
---|
59 | ";"}], "\[IndentingNewLine]",
|
---|
60 | RowBox[{
|
---|
61 | RowBox[{"SetDirectory", "[", "\"\<<address of the paramcard>\>\"", "]"}],
|
---|
62 | ";"}], "\[IndentingNewLine]",
|
---|
63 | RowBox[{
|
---|
64 | RowBox[{"ReadLHAFile", "[",
|
---|
65 | RowBox[{"Input", "\[Rule]", "\"\<<ParamCardname>\>\""}], "]"}],
|
---|
66 | ";"}], "\n",
|
---|
67 | RowBox[{
|
---|
68 | RowBox[{
|
---|
69 | "SetDirectory", "[", "\"\<<address of the restriction file>\>\"", "]"}],
|
---|
70 | ";"}], "\[IndentingNewLine]",
|
---|
71 | RowBox[{
|
---|
72 | RowBox[{"LoadRestriction", "[", "\"\<<restriction filename>\>\"", "]"}],
|
---|
73 | ";"}]}], "Input",
|
---|
74 | CellChangeTimes->{{3.452857003470079*^9, 3.452857007620697*^9}, {
|
---|
75 | 3.452857260410897*^9, 3.452857418156492*^9}, {3.453004704521001*^9,
|
---|
76 | 3.453004712282562*^9}}]
|
---|
77 | }, Open ]],
|
---|
78 |
|
---|
79 | Cell[CellGroupData[{
|
---|
80 |
|
---|
81 | Cell["The SUSY Lagrangian", "Subsubsection",
|
---|
82 | CellChangeTimes->{{3.452857023659556*^9, 3.452857026196998*^9}}],
|
---|
83 |
|
---|
84 | Cell[BoxData[{
|
---|
85 | RowBox[{
|
---|
86 | RowBox[{"LSUSY", " ", "=", " ",
|
---|
87 | RowBox[{
|
---|
88 | "LGauge", "+", "LFermions", "+", "LScalars", "+", "LInos", "+", "LFterms",
|
---|
89 | "+", "LDtermA", "+", "LDtermZ", "+", "LDtermW", "+", "LDtermG", "+",
|
---|
90 | "LSoft", "+", "LGhosts"}]}], ";"}], "\[IndentingNewLine]",
|
---|
91 | RowBox[{
|
---|
92 | RowBox[{"Lag", "=",
|
---|
93 | RowBox[{"{", " ",
|
---|
94 | RowBox[{
|
---|
95 | "LGauge", ",", "LFermions", ",", "LScalars", ",", "LInos", ",", "LFterms",
|
---|
96 | ",", "LDtermA", ",", "LDtermZ", ",", "LDtermW", ",", "LDtermG", ",",
|
---|
97 | "LSoft", ",", "LGhosts"}], "}"}]}], ";"}]}], "Input",
|
---|
98 | CellChangeTimes->{{3.452857029986314*^9, 3.452857039998457*^9}, {
|
---|
99 | 3.452857124828374*^9, 3.452857167392163*^9}, {3.452857563614544*^9,
|
---|
100 | 3.452857586213094*^9}, 3.452857969768442*^9, 3.452858533666945*^9, {
|
---|
101 | 3.452859257186238*^9, 3.452859266460517*^9}, 3.452923989843652*^9, {
|
---|
102 | 3.452924354189201*^9, 3.452924357661318*^9}, {3.452924391590787*^9,
|
---|
103 | 3.452924391722917*^9}, {3.452925894748932*^9, 3.452925897330111*^9}, {
|
---|
104 | 3.452934929992417*^9, 3.452934932014801*^9}, {3.452936731497861*^9,
|
---|
105 | 3.452936741287869*^9}, {3.452937606924066*^9, 3.452937607485066*^9}, {
|
---|
106 | 3.452939547635921*^9, 3.45293955544589*^9}, {3.452943605630234*^9,
|
---|
107 | 3.452943605985477*^9}}]
|
---|
108 | }, Open ]],
|
---|
109 |
|
---|
110 | Cell[CellGroupData[{
|
---|
111 |
|
---|
112 | Cell["Feynman rules calculation", "Subsubsection",
|
---|
113 | CellChangeTimes->{{3.452857190090434*^9, 3.452857193319125*^9}, {
|
---|
114 | 3.452943611413307*^9, 3.452943611857323*^9}}],
|
---|
115 |
|
---|
116 | Cell[BoxData[
|
---|
117 | RowBox[{
|
---|
118 | RowBox[{"vertices", "=",
|
---|
119 | RowBox[{"MergeVertices", "@@",
|
---|
120 | RowBox[{"(",
|
---|
121 | RowBox[{
|
---|
122 | RowBox[{
|
---|
123 | RowBox[{"FeynmanRules", "[",
|
---|
124 | RowBox[{"#", ",", " ",
|
---|
125 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}], ",", " ",
|
---|
126 | RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], "&"}], "/@",
|
---|
127 | "Lag"}], ")"}]}]}], ";"}]], "Input",
|
---|
128 | CellChangeTimes->{{3.45285719561273*^9, 3.452857216042376*^9}, {
|
---|
129 | 3.452857464515128*^9, 3.452857464873751*^9}, {3.452858229856731*^9,
|
---|
130 | 3.452858230970621*^9}, {3.452858270238452*^9, 3.452858290985826*^9}, {
|
---|
131 | 3.452858357504966*^9, 3.452858375281214*^9}, {3.452858949496504*^9,
|
---|
132 | 3.452858949783153*^9}, {3.452859319005252*^9, 3.452859332722344*^9}}]
|
---|
133 | }, Open ]],
|
---|
134 |
|
---|
135 | Cell[CellGroupData[{
|
---|
136 |
|
---|
137 | Cell["Interfaces", "Subsubsection",
|
---|
138 | CellChangeTimes->{{3.452857468672501*^9, 3.452857498210647*^9}}],
|
---|
139 |
|
---|
140 | Cell[BoxData[{
|
---|
141 | RowBox[{
|
---|
142 | RowBox[{"SetDirectory", "[", "$OldDir", "]"}],
|
---|
143 | ";"}], "\[IndentingNewLine]",
|
---|
144 | RowBox[{
|
---|
145 | RowBox[{"WriteLaTeXOutput", "[", " ",
|
---|
146 | RowBox[{
|
---|
147 | "LGauge", ",", "LFermions", ",", "LScalars", ",", "LInos", ",", "LFterms",
|
---|
148 | ",", "LDtermA", ",", "LDtermZ", ",", "LDtermW", ",", "LDtermG", ",",
|
---|
149 | "LSoft", ",", "LGhosts", ",",
|
---|
150 | RowBox[{"Overwrite", "\[Rule]", "True"}], ",", " ",
|
---|
151 | RowBox[{"Paper", "\[Rule]", "\"\<a4\>\""}], ",",
|
---|
152 | RowBox[{"Compile", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input",
|
---|
153 | CellChangeTimes->{{3.452857506251116*^9, 3.452857541190844*^9}, {
|
---|
154 | 3.452857820921334*^9, 3.452857821671475*^9}, {3.452858053621613*^9,
|
---|
155 | 3.45285807446853*^9}, 3.452858105035074*^9, {3.452858177877387*^9,
|
---|
156 | 3.452858251390167*^9}, {3.452858368378816*^9, 3.452858441089047*^9}, {
|
---|
157 | 3.452858475248516*^9, 3.452858480104423*^9}, {3.452924101180317*^9,
|
---|
158 | 3.452924106042222*^9}, {3.452924151248084*^9, 3.452924220150279*^9}, {
|
---|
159 | 3.452924438169908*^9, 3.452924439220121*^9}, {3.452924497957293*^9,
|
---|
160 | 3.452924498451558*^9}, {3.45292453834359*^9, 3.452924556659153*^9}, {
|
---|
161 | 3.45292464630318*^9, 3.452924666672789*^9}, {3.452925899808819*^9,
|
---|
162 | 3.452925902075311*^9}, {3.452934918688813*^9, 3.452934919012029*^9}, {
|
---|
163 | 3.452943645743657*^9, 3.452943651628573*^9}, {3.453004726648206*^9,
|
---|
164 | 3.453004727367808*^9}, {3.453886955506265*^9, 3.453886961884928*^9}}],
|
---|
165 |
|
---|
166 | Cell[BoxData[{
|
---|
167 | RowBox[{
|
---|
168 | RowBox[{"SetDirectory", "[", "$OldDir", "]"}],
|
---|
169 | ";"}], "\[IndentingNewLine]",
|
---|
170 | RowBox[{
|
---|
171 | RowBox[{"WriteFeynArtsOutput", "[",
|
---|
172 | RowBox[{"LSUSY", ",",
|
---|
173 | RowBox[{"FlavorExpand", "\[Rule]", "SU2W"}]}], "]"}], ";"}]}], "Input",
|
---|
174 | CellChangeTimes->{{3.452857546252849*^9, 3.45285755508552*^9}, {
|
---|
175 | 3.452857591279305*^9, 3.4528575932905*^9}, {3.452857828650335*^9,
|
---|
176 | 3.452857830068159*^9}, 3.452934957372618*^9, {3.452938103275687*^9,
|
---|
177 | 3.452938103853579*^9}, {3.452940077650317*^9, 3.452940079608851*^9}}],
|
---|
178 |
|
---|
179 | Cell[BoxData[{
|
---|
180 | RowBox[{
|
---|
181 | RowBox[{"SetDirectory", "[", "$OldDir", "]"}],
|
---|
182 | ";"}], "\[IndentingNewLine]",
|
---|
183 | RowBox[{
|
---|
184 | RowBox[{"WriteMGOutput", "[",
|
---|
185 | RowBox[{"Lag", ",", " ",
|
---|
186 | RowBox[{"DialogBox", "->", "Off"}], ",", " ",
|
---|
187 | RowBox[{"MaxVertices", "->", "15"}], ",", " ",
|
---|
188 | RowBox[{"Exclude4Scalars", "\[Rule]", "True"}]}], "]"}], ";"}]}], "Input",\
|
---|
189 |
|
---|
190 | CellChangeTimes->{{3.452857642650016*^9, 3.452857644085292*^9}, {
|
---|
191 | 3.452857716651955*^9, 3.452857717277575*^9}, {3.45285777233076*^9,
|
---|
192 | 3.452857772579779*^9}, {3.452943597521537*^9, 3.452943597818438*^9}}],
|
---|
193 |
|
---|
194 | Cell[BoxData[{
|
---|
195 | RowBox[{
|
---|
196 | RowBox[{"SetDirectory", "[", "$OldDir", "]"}],
|
---|
197 | ";"}], "\[IndentingNewLine]",
|
---|
198 | RowBox[{"WriteCHOutput", "[",
|
---|
199 | RowBox[{"Lag", ",", " ",
|
---|
200 | RowBox[{"MaxExpressionLength", "->", "2500"}], ",", " ",
|
---|
201 | RowBox[{"CHSimplify", "->", "True"}], ",", " ",
|
---|
202 | RowBox[{"CHAutoWidths", "->", "False"}], ",", " ",
|
---|
203 | RowBox[{"Exclude4Scalars", "\[Rule]", "True"}]}], "]"}]}], "Input",
|
---|
204 | CellChangeTimes->{{3.452857619048966*^9, 3.452857678880736*^9}, {
|
---|
205 | 3.452857710693795*^9, 3.452857711291925*^9}, {3.45285777624413*^9,
|
---|
206 | 3.452857776495399*^9}, {3.452943598588369*^9, 3.452943598916852*^9}}]
|
---|
207 | }, Open ]]
|
---|
208 | },
|
---|
209 | WindowSize->{1439, 824},
|
---|
210 | WindowMargins->{{5, 5}, {5, Automatic}},
|
---|
211 | FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 19, 2007)",
|
---|
212 | StyleDefinitions->"Default.nb"
|
---|
213 | ]
|
---|
214 | (* End of Notebook Content *)
|
---|
215 |
|
---|
216 | (* Internal cache information *)
|
---|
217 | (*CellTagsOutline
|
---|
218 | CellTagsIndex->{}
|
---|
219 | *)
|
---|
220 | (*CellTagsIndex
|
---|
221 | CellTagsIndex->{}
|
---|
222 | *)
|
---|
223 | (*NotebookFileOutline
|
---|
224 | Notebook[{
|
---|
225 | Cell[CellGroupData[{
|
---|
226 | Cell[591, 23, 120, 1, 30, "Subsubsection"],
|
---|
227 | Cell[714, 26, 70, 2, 32, "Input"],
|
---|
228 | Cell[787, 30, 815, 17, 99, "Input"]
|
---|
229 | }, Open ]],
|
---|
230 | Cell[CellGroupData[{
|
---|
231 | Cell[1639, 52, 113, 1, 30, "Subsubsection"],
|
---|
232 | Cell[1755, 55, 757, 20, 121, "Input"]
|
---|
233 | }, Open ]],
|
---|
234 | Cell[CellGroupData[{
|
---|
235 | Cell[2549, 80, 110, 1, 30, "Subsubsection"],
|
---|
236 | Cell[2662, 83, 1243, 23, 55, "Input"]
|
---|
237 | }, Open ]],
|
---|
238 | Cell[CellGroupData[{
|
---|
239 | Cell[3942, 111, 165, 2, 30, "Subsubsection"],
|
---|
240 | Cell[4110, 115, 741, 16, 32, "Input"]
|
---|
241 | }, Open ]],
|
---|
242 | Cell[CellGroupData[{
|
---|
243 | Cell[4888, 136, 101, 1, 30, "Subsubsection"],
|
---|
244 | Cell[4992, 139, 1406, 24, 55, "Input"],
|
---|
245 | Cell[6401, 165, 539, 11, 55, "Input"],
|
---|
246 | Cell[6943, 178, 572, 13, 55, "Input"],
|
---|
247 | Cell[7518, 193, 615, 12, 55, "Input"]
|
---|
248 | }, Open ]]
|
---|
249 | }
|
---|
250 | ]
|
---|
251 | *)
|
---|
252 |
|
---|
253 | (* End of internal cache information *)
|
---|
254 |
|
---|