MSSM: SUSY.nb

File SUSY.nb, 9.1 KB (added by Benjamin Fuks, 15 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