StandardModelScalars: SMScalars.nb

File SMScalars.nb, 4.8 KB (added by claudeduhr, 9 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[      4764,        143]
14NotebookOptionsPosition[      3928,        110]
15NotebookOutlinePosition[      4306,        127]
16CellTagsIndexPosition[      4263,        124]
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.413720861194676*^9, 3.4137208893794117`*^9}}],
27
28Cell[BoxData[
29 RowBox[{
30  RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
31  "\[IndentingNewLine]"}]], "Input",
32 CellChangeTimes->{{3.402202361365851*^9, 3.402202371944139*^9}, {
33   3.402202561319804*^9, 3.402202569273497*^9}, 3.402745522459828*^9,
34   3.402746608214861*^9, {3.402747929860508*^9, 3.402747943827011*^9}, {
35   3.403533007403466*^9, 3.403533008807395*^9}, {3.404106695164184*^9,
36   3.404106695449581*^9}, {3.405053642054455*^9, 3.4050536456262903`*^9},
37   3.4119181919913683`*^9, {3.4137208986527243`*^9, 3.4137208996123943`*^9}, {
38   3.4137242759980097`*^9, 3.413724294268169*^9}, 3.508569204008209*^9}],
39
40Cell[BoxData[
41 RowBox[{
42  RowBox[{"SetDirectory", "[",
43   RowBox[{"$FeynRulesPath", "<>", "\"\</../models/SMscalars\>\""}], "]"}],
44  ";"}]], "Input",
45 CellChangeTimes->{{3.508569210987895*^9, 3.508569240366075*^9}}],
46
47Cell[CellGroupData[{
48
49Cell["The Standard Model + Scalars", "Title",
50 CellChangeTimes->{{3.411915778286763*^9, 3.4119157817267313`*^9}, {
51  3.413720856398858*^9, 3.413720856723679*^9}}],
52
53Cell[BoxData[
54 RowBox[{"LoadModel", "[",
55  RowBox[{
56   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
57   "\"\<SMScalars.fr\>\""}], "]"}]], "Input",
58 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
59   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
60   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
61   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
62   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
63   3.403347555049163*^9}, 3.403533015351287*^9, {3.40505363437746*^9,
64   3.40505363645761*^9}, {3.411912382149088*^9, 3.4119123969228477`*^9}, {
65   3.50856924516405*^9, 3.5085692957646017`*^9}}],
66
67Cell[CellGroupData[{
68
69Cell["The lagrangian", "Section",
70 CellChangeTimes->{{3.411915790793332*^9, 3.411915793199389*^9}}],
71
72Cell[BoxData[
73 RowBox[{
74  RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
75 CellChangeTimes->{{3.411915017675109*^9, 3.411915022272778*^9},
76   3.411915800951993*^9, {3.5085697915596943`*^9, 3.508569793189657*^9}}],
77
78Cell["\<\
79The lagrangian for the SM is the same as in SM.fr.
80
81The new sector is\
82\>", "Text",
83 CellChangeTimes->{{3.411915802313404*^9, 3.411915827110655*^9}}],
84
85Cell[BoxData["LScalar"], "Input",
86 CellChangeTimes->{{3.4119143176932583`*^9, 3.411914319401045*^9}}]
87}, Open  ]],
88
89Cell[CellGroupData[{
90
91Cell["Feynman rules for the new sector", "Section",
92 CellChangeTimes->{{3.411915866249317*^9, 3.4119158716988153`*^9}}],
93
94Cell[BoxData[
95 RowBox[{"FeynmanRules", "[", "LScalar", "]"}]], "Input",
96 CellChangeTimes->{{3.411915883502528*^9, 3.411915928653887*^9}, {
97   3.4137211614912577`*^9, 3.4137211708030777`*^9}, 3.508569350492257*^9}],
98
99Cell["Or in a flavor expanded form", "Text",
100 CellChangeTimes->{{3.411915937803143*^9, 3.4119159434558887`*^9}}],
101
102Cell[BoxData[
103 RowBox[{"FeynmanRules", "[",
104  RowBox[{"LScalar", ",",
105   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
106 CellChangeTimes->{{3.411915883502528*^9, 3.411915958983838*^9}, {
107  3.508569657623721*^9, 3.508569668869379*^9}}]
108}, Open  ]]
109}, Open  ]]
110},
111WindowSize->{1272, 681},
112WindowMargins->{{0, Automatic}, {Automatic, 25}},
113ShowSelection->True,
114Magnification->1.5,
115FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
116StyleDefinitions->"Default.nb"
117]
118(* End of Notebook Content *)
119
120(* Internal cache information *)
121(*CellTagsOutline
122CellTagsIndex->{}
123*)
124(*CellTagsIndex
125CellTagsIndex->{}
126*)
127(*NotebookFileOutline
128Notebook[{
129Cell[545, 20, 233, 5, 46, "Input"],
130Cell[781, 27, 626, 10, 107, "Input"],
131Cell[1410, 39, 217, 5, 46, "Input"],
132Cell[CellGroupData[{
133Cell[1652, 48, 162, 2, 126, "Title"],
134Cell[1817, 52, 725, 12, 46, "Input"],
135Cell[CellGroupData[{
136Cell[2567, 68, 99, 1, 108, "Section"],
137Cell[2669, 71, 222, 4, 46, "Input"],
138Cell[2894, 77, 159, 5, 99, "Text"],
139Cell[3056, 84, 101, 1, 46, "Input"]
140}, Open  ]],
141Cell[CellGroupData[{
142Cell[3194, 90, 119, 1, 108, "Section"],
143Cell[3316, 93, 213, 3, 46, "Input"],
144Cell[3532, 98, 112, 1, 44, "Text"],
145Cell[3647, 101, 253, 5, 46, "Input"]
146}, Open  ]]
147}, Open  ]]
148}
149]
150*)
151
152(* End of internal cache information *)