Wprime: WEff.nb

File WEff.nb, 3.7 KB (added by donini, 5 years ago)

this is an example Mathematica notebook that loads the model, calculates the Feynman rules and extract the model files within the UFO format.

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[      3568,        113]
14NotebookOptionsPosition[      2938,         86]
15NotebookOutlinePosition[      3296,        102]
16CellTagsIndexPosition[      3253,         99]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.540113020401739*^9, 3.5401130208992767`*^9}}],
24
25Cell[CellGroupData[{
26
27Cell["Setup", "Section",
28 CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}],
29
30Cell[BoxData[{
31 RowBox[{
32  RowBox[{"$olddir", "=",
33   RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
34 RowBox[{
35  RowBox[{"$FeynRulesPath", "=",
36   RowBox[{
37   "SetDirectory", "[", "\"\<~/FeynRules/trunk/feynrules-development\>\"",
38    "]"}]}], ";"}], "\[IndentingNewLine]",
39 RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
40 RowBox[{
41  RowBox[{"SetDirectory", "[", "$olddir", "]"}], ";"}], "\[IndentingNewLine]",
42 RowBox[{
43  RowBox[{"LoadModel", "[",
44   RowBox[{
45    RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
46    "\"\<weff.fr\>\""}], "]"}], ";"}]}], "Input",
47 CellChangeTimes->{{3.500793438723139*^9, 3.500793441143552*^9}, {
48   3.503666867066519*^9, 3.503666869077112*^9}, {3.518892141094482*^9,
49   3.518892168024193*^9}, {3.540112894489603*^9, 3.540112897923902*^9},
50   3.549599083212336*^9, {3.5502926102866373`*^9, 3.55029261102719*^9}, {
51   3.550292678153421*^9, 3.550292688594266*^9}, {3.550292930964777*^9,
52   3.5502929556915627`*^9}, 3.55029308559453*^9}]
53}, Open  ]],
54
55Cell[CellGroupData[{
56
57Cell["Additionnal Feymman rules", "Section",
58 CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}],
59
60Cell[BoxData["LWprime"], "Input",
61 CellChangeTimes->{{3.5502931353860607`*^9, 3.550293141347558*^9}, {
62  3.550293172686055*^9, 3.550293373133667*^9}, {3.550293493764401*^9,
63  3.550293495086035*^9}}],
64
65Cell[BoxData[
66 RowBox[{"FeynmanRules", "[",
67  RowBox[{"LWprime", ",",
68   RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]], "Input",
69 CellChangeTimes->{{3.550293385320056*^9, 3.550293401316181*^9}, {
70  3.550293498391491*^9, 3.550293501689383*^9}}]
71}, Open  ]],
72
73Cell[CellGroupData[{
74
75Cell["Generating the UFO model files", "Section",
76 CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
77
78Cell[BoxData[
79 RowBox[{"WriteUFO", "[",
80  RowBox[{"LSM", ",", "LWprime"}], "]"}]], "Input",
81 CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, {
82  3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9,
83  3.518892237775363*^9}, {3.540113570516355*^9, 3.54011357075742*^9}, {
84  3.5502935101903954`*^9, 3.550293511961158*^9}}]
85}, Open  ]]
86},
87WindowSize->{1440, 825},
88WindowMargins->{{3, Automatic}, {Automatic, 23}},
89ShowSelection->True,
90FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
91StyleDefinitions->"Default.nb"
92]
93(* End of Notebook Content *)
94
95(* Internal cache information *)
96(*CellTagsOutline
97CellTagsIndex->{}
98*)
99(*CellTagsIndex
100CellTagsIndex->{}
101*)
102(*NotebookFileOutline
103Notebook[{
104Cell[545, 20, 120, 2, 32, "Input"],
105Cell[CellGroupData[{
106Cell[690, 26, 90, 1, 73, "Section"],
107Cell[783, 29, 1022, 22, 121, "Input"]
108}, Open  ]],
109Cell[CellGroupData[{
110Cell[1842, 56, 110, 1, 73, "Section"],
111Cell[1955, 59, 199, 3, 32, "Input"],
112Cell[2157, 64, 254, 5, 32, "Input"]
113}, Open  ]],
114Cell[CellGroupData[{
115Cell[2448, 74, 115, 1, 73, "Section"],
116Cell[2566, 77, 356, 6, 32, "Input"]
117}, Open  ]]
118}
119]
120*)
121
122(* End of internal cache information *)