Monotops: MonoTops.nb

File MonoTops.nb, 3.5 KB (added by BenjF, 9 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 7.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       145,          7]
13NotebookDataLength[      3374,        117]
14NotebookOptionsPosition[      2710,         88]
15NotebookOutlinePosition[      3067,        104]
16CellTagsIndexPosition[      3024,        101]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["Setup", "Section",
24 CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}],
25
26Cell[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
50Cell[CellGroupData[{
51
52Cell["Additionnal Feymman rules", "Section",
53 CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}],
54
55Cell[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
65Cell[CellGroupData[{
66
67Cell["Generating the UFO model files", "Section",
68 CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
69
70Cell[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
78Cell[CellGroupData[{
79
80Cell["Generating the FeynArts model files", "Section",
81 CellChangeTimes->{{3.518892794840085*^9, 3.51889279885506*^9}}],
82
83Cell[BoxData[
84 RowBox[{"WriteFeynArtsOutput", "[",
85  RowBox[{"LSM", "+", "LMono"}], "]"}]], "Input",
86 CellChangeTimes->{{3.518892801141994*^9, 3.518892813463686*^9}}]
87}, Open  ]]
88},
89WindowSize->{1440, 825},
90WindowMargins->{{0, Automatic}, {Automatic, 0}},
91ShowSelection->True,
92FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
93StyleDefinitions->"Default.nb"
94]
95(* End of Notebook Content *)
96
97(* Internal cache information *)
98(*CellTagsOutline
99CellTagsIndex->{}
100*)
101(*CellTagsIndex
102CellTagsIndex->{}
103*)
104(*NotebookFileOutline
105Notebook[{
106Cell[CellGroupData[{
107Cell[567, 22, 90, 1, 73, "Section"],
108Cell[660, 25, 813, 21, 121, "Input"]
109}, Open  ]],
110Cell[CellGroupData[{
111Cell[1510, 51, 110, 1, 73, "Section"],
112Cell[1623, 54, 332, 7, 32, "Input"]
113}, Open  ]],
114Cell[CellGroupData[{
115Cell[1992, 66, 115, 1, 73, "Section"],
116Cell[2110, 69, 258, 5, 32, "Input"]
117}, Open  ]],
118Cell[CellGroupData[{
119Cell[2405, 79, 119, 1, 73, "Section"],
120Cell[2527, 82, 167, 3, 32, "Input"]
121}, Open  ]]
122}
123]
124*)
125
126(* End of internal cache information *)