| 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:
|
|---|
| 10 | NotebookFileLineBreakTest
|
|---|
| 11 | NotebookFileLineBreakTest
|
|---|
| 12 | NotebookDataPosition[ 145, 7]
|
|---|
| 13 | NotebookDataLength[ 3568, 113]
|
|---|
| 14 | NotebookOptionsPosition[ 2938, 86]
|
|---|
| 15 | NotebookOutlinePosition[ 3296, 102]
|
|---|
| 16 | CellTagsIndexPosition[ 3253, 99]
|
|---|
| 17 | WindowFrame->Normal*)
|
|---|
| 18 |
|
|---|
| 19 | (* Beginning of Notebook Content *)
|
|---|
| 20 | Notebook[{
|
|---|
| 21 | Cell[BoxData[
|
|---|
| 22 | RowBox[{"Quit", "[", "]"}]], "Input",
|
|---|
| 23 | CellChangeTimes->{{3.540113020401739*^9, 3.5401130208992767`*^9}}],
|
|---|
| 24 |
|
|---|
| 25 | Cell[CellGroupData[{
|
|---|
| 26 |
|
|---|
| 27 | Cell["Setup", "Section",
|
|---|
| 28 | CellChangeTimes->{{3.518892288721245*^9, 3.518892291440427*^9}}],
|
|---|
| 29 |
|
|---|
| 30 | Cell[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 |
|
|---|
| 55 | Cell[CellGroupData[{
|
|---|
| 56 |
|
|---|
| 57 | Cell["Additionnal Feymman rules", "Section",
|
|---|
| 58 | CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}}],
|
|---|
| 59 |
|
|---|
| 60 | Cell[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 |
|
|---|
| 65 | Cell[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 |
|
|---|
| 73 | Cell[CellGroupData[{
|
|---|
| 74 |
|
|---|
| 75 | Cell["Generating the UFO model files", "Section",
|
|---|
| 76 | CellChangeTimes->{{3.518892302672626*^9, 3.518892305688608*^9}}],
|
|---|
| 77 |
|
|---|
| 78 | Cell[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 | },
|
|---|
| 87 | WindowSize->{1440, 825},
|
|---|
| 88 | WindowMargins->{{3, Automatic}, {Automatic, 23}},
|
|---|
| 89 | ShowSelection->True,
|
|---|
| 90 | FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
|
|---|
| 91 | StyleDefinitions->"Default.nb"
|
|---|
| 92 | ]
|
|---|
| 93 | (* End of Notebook Content *)
|
|---|
| 94 |
|
|---|
| 95 | (* Internal cache information *)
|
|---|
| 96 | (*CellTagsOutline
|
|---|
| 97 | CellTagsIndex->{}
|
|---|
| 98 | *)
|
|---|
| 99 | (*CellTagsIndex
|
|---|
| 100 | CellTagsIndex->{}
|
|---|
| 101 | *)
|
|---|
| 102 | (*NotebookFileOutline
|
|---|
| 103 | Notebook[{
|
|---|
| 104 | Cell[545, 20, 120, 2, 32, "Input"],
|
|---|
| 105 | Cell[CellGroupData[{
|
|---|
| 106 | Cell[690, 26, 90, 1, 73, "Section"],
|
|---|
| 107 | Cell[783, 29, 1022, 22, 121, "Input"]
|
|---|
| 108 | }, Open ]],
|
|---|
| 109 | Cell[CellGroupData[{
|
|---|
| 110 | Cell[1842, 56, 110, 1, 73, "Section"],
|
|---|
| 111 | Cell[1955, 59, 199, 3, 32, "Input"],
|
|---|
| 112 | Cell[2157, 64, 254, 5, 32, "Input"]
|
|---|
| 113 | }, Open ]],
|
|---|
| 114 | Cell[CellGroupData[{
|
|---|
| 115 | Cell[2448, 74, 115, 1, 73, "Section"],
|
|---|
| 116 | Cell[2566, 77, 356, 6, 32, "Input"]
|
|---|
| 117 | }, Open ]]
|
|---|
| 118 | }
|
|---|
| 119 | ]
|
|---|
| 120 | *)
|
|---|
| 121 |
|
|---|
| 122 | (* End of internal cache information *)
|
|---|
