MSSM: SUSY.nb

File SUSY.nb, 9.1 KB (added by BenjF, 7 years ago)

Example 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[      9082,        244]
14NotebookOptionsPosition[      8149,        208]
15NotebookOutlinePosition[      8473,        223]
16CellTagsIndexPosition[      8430,        220]
17WindowFrame->Generic
18ContainsDynamic->False*)
19
20(* Beginning of Notebook Content *)
21Notebook[{
22
23Cell[CellGroupData[{
24Cell["Load of the FeynRules package", "Subsubsection",
25 CellChangeTimes->{{3.452856941348258*^9, 3.452856954182706*^9}}],
26
27Cell[BoxData[
28 RowBox[{
29  RowBox[{"Quit", "[", "]"}], ";"}]], "Input"],
30
31Cell[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
51Cell[CellGroupData[{
52
53Cell["Load of the SUSY model", "Subsubsection",
54 CellChangeTimes->{{3.452856959806845*^9, 3.452856965627877*^9}}],
55
56Cell[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
79Cell[CellGroupData[{
80
81Cell["The SUSY Lagrangian", "Subsubsection",
82 CellChangeTimes->{{3.452857023659556*^9, 3.452857026196998*^9}}],
83
84Cell[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
110Cell[CellGroupData[{
111
112Cell["Feynman rules calculation", "Subsubsection",
113 CellChangeTimes->{{3.452857190090434*^9, 3.452857193319125*^9}, {
114  3.452943611413307*^9, 3.452943611857323*^9}}],
115
116Cell[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
135Cell[CellGroupData[{
136
137Cell["Interfaces", "Subsubsection",
138 CellChangeTimes->{{3.452857468672501*^9, 3.452857498210647*^9}}],
139
140Cell[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
166Cell[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
179Cell[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
194Cell[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},
209WindowSize->{1439, 824},
210WindowMargins->{{5, 5}, {5, Automatic}},
211FrontEndVersion->"6.0 for Linux x86 (32-bit) (June 19, 2007)",
212StyleDefinitions->"Default.nb"
213]
214(* End of Notebook Content *)
215
216(* Internal cache information *)
217(*CellTagsOutline
218CellTagsIndex->{}
219*)
220(*CellTagsIndex
221CellTagsIndex->{}
222*)
223(*NotebookFileOutline
224Notebook[{
225Cell[CellGroupData[{
226Cell[591, 23, 120, 1, 30, "Subsubsection"],
227Cell[714, 26, 70, 2, 32, "Input"],
228Cell[787, 30, 815, 17, 99, "Input"]
229}, Open  ]],
230Cell[CellGroupData[{
231Cell[1639, 52, 113, 1, 30, "Subsubsection"],
232Cell[1755, 55, 757, 20, 121, "Input"]
233}, Open  ]],
234Cell[CellGroupData[{
235Cell[2549, 80, 110, 1, 30, "Subsubsection"],
236Cell[2662, 83, 1243, 23, 55, "Input"]
237}, Open  ]],
238Cell[CellGroupData[{
239Cell[3942, 111, 165, 2, 30, "Subsubsection"],
240Cell[4110, 115, 741, 16, 32, "Input"]
241}, Open  ]],
242Cell[CellGroupData[{
243Cell[4888, 136, 101, 1, 30, "Subsubsection"],
244Cell[4992, 139, 1406, 24, 55, "Input"],
245Cell[6401, 165, 539, 11, 55, "Input"],
246Cell[6943, 178, 572, 13, 55, "Input"],
247Cell[7518, 193, 615, 12, 55, "Input"]
248}, Open  ]]
249}
250]
251*)
252
253(* End of internal cache information *)
254