HiggsEffectiveTheory: HiggsEffective.nb

File HiggsEffective.nb, 5.1 KB (added by claudeduhr, 8 years ago)

Sample 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[      5049,        175]
14NotebookOptionsPosition[      3878,        128]
15NotebookOutlinePosition[      4257,        145]
16CellTagsIndexPosition[      4214,        142]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{
23  RowBox[{"$FeynRulesPath", "=",
24   RowBox[{"SetDirectory", "[", "\"\<< address of the package >\>\"", "]"}]}],
25   ";"}]], "Input",
26 CellChangeTimes->{{3.4137218511907463`*^9, 3.4137218698825417`*^9}}],
27
28Cell[BoxData[
29 RowBox[{"<<", "FeynRules`"}]], "Input",
30 CellChangeTimes->{{3.402749950375587*^9, 3.402749954107053*^9}, {
31  3.4137218725793657`*^9, 3.413721877181633*^9}}],
32
33Cell[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
42Cell[CellGroupData[{
43
44Cell["The Higgs effective couplings", "Title"],
45
46Cell[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
55Cell[CellGroupData[{
56
57Cell["The lagrangian", "Section",
58 CellChangeTimes->{{3.413722471253631*^9, 3.413722474454302*^9}}],
59
60Cell[CellGroupData[{
61
62Cell["Lagrangian for CP even couplings", "Subsection",
63 CellChangeTimes->{{3.413722482270711*^9, 3.413722490511662*^9}}],
64
65Cell[BoxData["LCPEven"], "Input",
66 CellChangeTimes->{{3.41372235934731*^9, 3.4137223632988443`*^9}}]
67}, Open  ]],
68
69Cell[CellGroupData[{
70
71Cell["Lagrangian for CP odd couplings", "Subsection",
72 CellChangeTimes->{{3.413722482270711*^9, 3.4137225051268797`*^9}}],
73
74Cell[BoxData["LCPOdd"], "Input",
75 CellChangeTimes->{{3.4137223673255043`*^9, 3.413722368323818*^9}}]
76}, Open  ]]
77}, Open  ]],
78
79Cell[CellGroupData[{
80
81Cell["The FeynmanRules", "Section",
82 CellChangeTimes->{{3.413722510122294*^9, 3.413722512045841*^9}}],
83
84Cell[CellGroupData[{
85
86Cell["CP even couplings", "Subsection",
87 CellChangeTimes->{{3.4137225204324007`*^9, 3.413722523484172*^9}}],
88
89Cell[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
97Cell[CellGroupData[{
98
99Cell["CP odd couplings", "Subsection",
100 CellChangeTimes->{{3.4137225204324007`*^9, 3.413722523484172*^9}, {
101  3.413722553817721*^9, 3.4137225541588573`*^9}}],
102
103Cell[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
112Cell[CellGroupData[{
113
114Cell["Output", "Section",
115 CellChangeTimes->{{3.404741379224226*^9, 3.404741384935503*^9}}],
116
117Cell[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},
129WindowSize->{1144, 677},
130WindowMargins->{{28, Automatic}, {Automatic, 24}},
131ShowSelection->True,
132Magnification->1.5,
133FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
134StyleDefinitions->"Default.nb"
135]
136(* End of Notebook Content *)
137
138(* Internal cache information *)
139(*CellTagsOutline
140CellTagsIndex->{}
141*)
142(*CellTagsIndex
143CellTagsIndex->{}
144*)
145(*NotebookFileOutline
146Notebook[{
147Cell[545, 20, 226, 5, 46, "Input"],
148Cell[774, 27, 171, 3, 46, "Input"],
149Cell[948, 32, 313, 7, 46, "Input"],
150Cell[CellGroupData[{
151Cell[1286, 43, 46, 0, 126, "Title"],
152Cell[1335, 45, 386, 7, 46, "Input"],
153Cell[CellGroupData[{
154Cell[1746, 56, 99, 1, 108, "Section"],
155Cell[CellGroupData[{
156Cell[1870, 61, 120, 1, 56, "Subsection"],
157Cell[1993, 64, 100, 1, 46, "Input"]
158}, Open  ]],
159Cell[CellGroupData[{
160Cell[2130, 70, 121, 1, 56, "Subsection"],
161Cell[2254, 73, 100, 1, 46, "Input"]
162}, Open  ]]
163}, Open  ]],
164Cell[CellGroupData[{
165Cell[2403, 80, 101, 1, 108, "Section"],
166Cell[CellGroupData[{
167Cell[2529, 85, 107, 1, 56, "Subsection"],
168Cell[2639, 88, 254, 5, 46, "Input"]
169}, Open  ]],
170Cell[CellGroupData[{
171Cell[2930, 98, 157, 2, 56, "Subsection"],
172Cell[3090, 102, 252, 5, 46, "Input"]
173}, Open  ]]
174}, Open  ]],
175Cell[CellGroupData[{
176Cell[3391, 113, 91, 1, 108, "Section"],
177Cell[3485, 116, 365, 8, 46, "Input"]
178}, Open  ]]
179}, Open  ]]
180}
181]
182*)
183
184(* End of internal cache information *)