| 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:
|
|---|
| 10 | NotebookFileLineBreakTest
|
|---|
| 11 | NotebookFileLineBreakTest
|
|---|
| 12 | NotebookDataPosition[ 145, 7]
|
|---|
| 13 | NotebookDataLength[ 5049, 175]
|
|---|
| 14 | NotebookOptionsPosition[ 3878, 128]
|
|---|
| 15 | NotebookOutlinePosition[ 4257, 145]
|
|---|
| 16 | CellTagsIndexPosition[ 4214, 142]
|
|---|
| 17 | WindowFrame->Normal*)
|
|---|
| 18 |
|
|---|
| 19 | (* Beginning of Notebook Content *)
|
|---|
| 20 | Notebook[{
|
|---|
| 21 | Cell[BoxData[
|
|---|
| 22 | RowBox[{
|
|---|
| 23 | RowBox[{"$FeynRulesPath", "=",
|
|---|
| 24 | RowBox[{"SetDirectory", "[", "\"\<< address of the package >\>\"", "]"}]}],
|
|---|
| 25 | ";"}]], "Input",
|
|---|
| 26 | CellChangeTimes->{{3.4137218511907463`*^9, 3.4137218698825417`*^9}}],
|
|---|
| 27 |
|
|---|
| 28 | Cell[BoxData[
|
|---|
| 29 | RowBox[{"<<", "FeynRules`"}]], "Input",
|
|---|
| 30 | CellChangeTimes->{{3.402749950375587*^9, 3.402749954107053*^9}, {
|
|---|
| 31 | 3.4137218725793657`*^9, 3.413721877181633*^9}}],
|
|---|
| 32 |
|
|---|
| 33 | Cell[BoxData[
|
|---|
| 34 | RowBox[{
|
|---|
| 35 | RowBox[{"SetDirectory", "[",
|
|---|
| 36 | RowBox[{"$FeynRulesPath", "<>", "\"\</../models/HEFT/\>\""}], "]"}],
|
|---|
| 37 | ";"}]], "Input",
|
|---|
| 38 | CellChangeTimes->{{3.4137218982042313`*^9, 3.413721899320479*^9}, {
|
|---|
| 39 | 3.413726035758497*^9, 3.413726045113817*^9}, {3.508650264440695*^9,
|
|---|
| 40 | 3.508650280622868*^9}}],
|
|---|
| 41 |
|
|---|
| 42 | Cell[CellGroupData[{
|
|---|
| 43 |
|
|---|
| 44 | Cell["The Higgs effective couplings", "Title"],
|
|---|
| 45 |
|
|---|
| 46 | Cell[BoxData[
|
|---|
| 47 | RowBox[{"LoadModel", "[",
|
|---|
| 48 | RowBox[{"\"\<SM.fr\>\"", ",", "\"\<HiggsEffective.fr\>\""}], "]"}]], "Input",\
|
|---|
| 49 |
|
|---|
| 50 | CellChangeTimes->{{3.402749970337049*^9, 3.4027499704999*^9}, {
|
|---|
| 51 | 3.4137219286676292`*^9, 3.413721935528274*^9}, {3.508650257479691*^9,
|
|---|
| 52 | 3.508650258438835*^9}, {3.508650300289027*^9, 3.508650326919705*^9}, {
|
|---|
| 53 | 3.5086503656743793`*^9, 3.5086503695428333`*^9}}],
|
|---|
| 54 |
|
|---|
| 55 | Cell[CellGroupData[{
|
|---|
| 56 |
|
|---|
| 57 | Cell["The lagrangian", "Section",
|
|---|
| 58 | CellChangeTimes->{{3.413722471253631*^9, 3.413722474454302*^9}}],
|
|---|
| 59 |
|
|---|
| 60 | Cell[CellGroupData[{
|
|---|
| 61 |
|
|---|
| 62 | Cell["Lagrangian for CP even couplings", "Subsection",
|
|---|
| 63 | CellChangeTimes->{{3.413722482270711*^9, 3.413722490511662*^9}}],
|
|---|
| 64 |
|
|---|
| 65 | Cell[BoxData["LCPEven"], "Input",
|
|---|
| 66 | CellChangeTimes->{{3.41372235934731*^9, 3.4137223632988443`*^9}}]
|
|---|
| 67 | }, Open ]],
|
|---|
| 68 |
|
|---|
| 69 | Cell[CellGroupData[{
|
|---|
| 70 |
|
|---|
| 71 | Cell["Lagrangian for CP odd couplings", "Subsection",
|
|---|
| 72 | CellChangeTimes->{{3.413722482270711*^9, 3.4137225051268797`*^9}}],
|
|---|
| 73 |
|
|---|
| 74 | Cell[BoxData["LCPOdd"], "Input",
|
|---|
| 75 | CellChangeTimes->{{3.4137223673255043`*^9, 3.413722368323818*^9}}]
|
|---|
| 76 | }, Open ]]
|
|---|
| 77 | }, Open ]],
|
|---|
| 78 |
|
|---|
| 79 | Cell[CellGroupData[{
|
|---|
| 80 |
|
|---|
| 81 | Cell["The FeynmanRules", "Section",
|
|---|
| 82 | CellChangeTimes->{{3.413722510122294*^9, 3.413722512045841*^9}}],
|
|---|
| 83 |
|
|---|
| 84 | Cell[CellGroupData[{
|
|---|
| 85 |
|
|---|
| 86 | Cell["CP even couplings", "Subsection",
|
|---|
| 87 | CellChangeTimes->{{3.4137225204324007`*^9, 3.413722523484172*^9}}],
|
|---|
| 88 |
|
|---|
| 89 | Cell[BoxData[
|
|---|
| 90 | RowBox[{"FeynmanRules", "[",
|
|---|
| 91 | RowBox[{"LCPEven", ",",
|
|---|
| 92 | RowBox[{"Name", "\[Rule]", "\"\<CPEven\>\""}]}], "]"}]], "Input",
|
|---|
| 93 | CellChangeTimes->{{3.413722373429627*^9, 3.41372240397196*^9}, {
|
|---|
| 94 | 3.413722528048708*^9, 3.413722537920603*^9}}]
|
|---|
| 95 | }, Open ]],
|
|---|
| 96 |
|
|---|
| 97 | Cell[CellGroupData[{
|
|---|
| 98 |
|
|---|
| 99 | Cell["CP odd couplings", "Subsection",
|
|---|
| 100 | CellChangeTimes->{{3.4137225204324007`*^9, 3.413722523484172*^9}, {
|
|---|
| 101 | 3.413722553817721*^9, 3.4137225541588573`*^9}}],
|
|---|
| 102 |
|
|---|
| 103 | Cell[BoxData[
|
|---|
| 104 | RowBox[{"FeynmanRules", "[",
|
|---|
| 105 | RowBox[{"LCPOdd", ",",
|
|---|
| 106 | RowBox[{"Name", "\[Rule]", "\"\<CPOdd\>\""}]}], "]"}]], "Input",
|
|---|
| 107 | CellChangeTimes->{{3.413722373429627*^9, 3.41372240397196*^9}, {
|
|---|
| 108 | 3.413722528048708*^9, 3.413722560423957*^9}}]
|
|---|
| 109 | }, Open ]]
|
|---|
| 110 | }, Open ]],
|
|---|
| 111 |
|
|---|
| 112 | Cell[CellGroupData[{
|
|---|
| 113 |
|
|---|
| 114 | Cell["Output", "Section",
|
|---|
| 115 | CellChangeTimes->{{3.404741379224226*^9, 3.404741384935503*^9}}],
|
|---|
| 116 |
|
|---|
| 117 | Cell[BoxData[
|
|---|
| 118 | RowBox[{"WriteTeXOutput", "[",
|
|---|
| 119 | RowBox[{"\"\<HiggsEffective.tex\>\"", ",",
|
|---|
| 120 | RowBox[{"{",
|
|---|
| 121 | RowBox[{"\"\<CPEven\>\"", ",", " ", "\"\<CPOdd\>\""}], "}"}]}],
|
|---|
| 122 | "]"}]], "Input",
|
|---|
| 123 | CellChangeTimes->{{3.402750662390603*^9, 3.402750662820114*^9}, {
|
|---|
| 124 | 3.404741397562558*^9, 3.404741419547327*^9}, {3.4137225734450397`*^9,
|
|---|
| 125 | 3.4137225883603687`*^9}}]
|
|---|
| 126 | }, Open ]]
|
|---|
| 127 | }, Open ]]
|
|---|
| 128 | },
|
|---|
| 129 | WindowSize->{1144, 677},
|
|---|
| 130 | WindowMargins->{{28, Automatic}, {Automatic, 24}},
|
|---|
| 131 | ShowSelection->True,
|
|---|
| 132 | Magnification->1.5,
|
|---|
| 133 | FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
|
|---|
| 134 | StyleDefinitions->"Default.nb"
|
|---|
| 135 | ]
|
|---|
| 136 | (* End of Notebook Content *)
|
|---|
| 137 |
|
|---|
| 138 | (* Internal cache information *)
|
|---|
| 139 | (*CellTagsOutline
|
|---|
| 140 | CellTagsIndex->{}
|
|---|
| 141 | *)
|
|---|
| 142 | (*CellTagsIndex
|
|---|
| 143 | CellTagsIndex->{}
|
|---|
| 144 | *)
|
|---|
| 145 | (*NotebookFileOutline
|
|---|
| 146 | Notebook[{
|
|---|
| 147 | Cell[545, 20, 226, 5, 46, "Input"],
|
|---|
| 148 | Cell[774, 27, 171, 3, 46, "Input"],
|
|---|
| 149 | Cell[948, 32, 313, 7, 46, "Input"],
|
|---|
| 150 | Cell[CellGroupData[{
|
|---|
| 151 | Cell[1286, 43, 46, 0, 126, "Title"],
|
|---|
| 152 | Cell[1335, 45, 386, 7, 46, "Input"],
|
|---|
| 153 | Cell[CellGroupData[{
|
|---|
| 154 | Cell[1746, 56, 99, 1, 108, "Section"],
|
|---|
| 155 | Cell[CellGroupData[{
|
|---|
| 156 | Cell[1870, 61, 120, 1, 56, "Subsection"],
|
|---|
| 157 | Cell[1993, 64, 100, 1, 46, "Input"]
|
|---|
| 158 | }, Open ]],
|
|---|
| 159 | Cell[CellGroupData[{
|
|---|
| 160 | Cell[2130, 70, 121, 1, 56, "Subsection"],
|
|---|
| 161 | Cell[2254, 73, 100, 1, 46, "Input"]
|
|---|
| 162 | }, Open ]]
|
|---|
| 163 | }, Open ]],
|
|---|
| 164 | Cell[CellGroupData[{
|
|---|
| 165 | Cell[2403, 80, 101, 1, 108, "Section"],
|
|---|
| 166 | Cell[CellGroupData[{
|
|---|
| 167 | Cell[2529, 85, 107, 1, 56, "Subsection"],
|
|---|
| 168 | Cell[2639, 88, 254, 5, 46, "Input"]
|
|---|
| 169 | }, Open ]],
|
|---|
| 170 | Cell[CellGroupData[{
|
|---|
| 171 | Cell[2930, 98, 157, 2, 56, "Subsection"],
|
|---|
| 172 | Cell[3090, 102, 252, 5, 46, "Input"]
|
|---|
| 173 | }, Open ]]
|
|---|
| 174 | }, Open ]],
|
|---|
| 175 | Cell[CellGroupData[{
|
|---|
| 176 | Cell[3391, 113, 91, 1, 108, "Section"],
|
|---|
| 177 | Cell[3485, 116, 365, 8, 46, "Input"]
|
|---|
| 178 | }, Open ]]
|
|---|
| 179 | }, Open ]]
|
|---|
| 180 | }
|
|---|
| 181 | ]
|
|---|
| 182 | *)
|
|---|
| 183 |
|
|---|
| 184 | (* End of internal cache information *)
|
|---|
