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[ 7586, 217]
|
---|
14 | NotebookOptionsPosition[ 6428, 175]
|
---|
15 | NotebookOutlinePosition[ 6866, 192]
|
---|
16 | CellTagsIndexPosition[ 6823, 189]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 |
|
---|
22 | Cell[CellGroupData[{
|
---|
23 | Cell["FeynRules Setup", "Title",
|
---|
24 | CellChangeTimes->{{3.596207285657744*^9, 3.596207286276866*^9}, {
|
---|
25 | 3.596207330352247*^9, 3.59620733250506*^9}, {3.655035967648223*^9,
|
---|
26 | 3.65503597269068*^9}}],
|
---|
27 |
|
---|
28 | Cell[BoxData[{
|
---|
29 | RowBox[{
|
---|
30 | RowBox[{"$CurrentPath", "=",
|
---|
31 | RowBox[{"Directory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
32 | RowBox[{
|
---|
33 | RowBox[{"$FeynRulesPath", "=",
|
---|
34 | RowBox[{
|
---|
35 | "SetDirectory", "[", "\"\<~/Scripts/FeynRules/feynrules-2.0.x\>\"",
|
---|
36 | "]"}]}], ";"}], "\[IndentingNewLine]",
|
---|
37 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
38 | RowBox[{
|
---|
39 | RowBox[{"SetDirectory", "[", "$CurrentPath", "]"}], ";"}]}], "Input",
|
---|
40 | CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
|
---|
41 | 3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
|
---|
42 | 3.4234163227881193`*^9}, {3.572102427116931*^9, 3.572102456206238*^9}, {
|
---|
43 | 3.572280529035656*^9, 3.572280529468644*^9}, {3.572366766720894*^9,
|
---|
44 | 3.572366773370627*^9}, {3.596207212826934*^9, 3.5962072447909603`*^9}, {
|
---|
45 | 3.596914045279478*^9, 3.5969140472383204`*^9}, 3.596914102616413*^9,
|
---|
46 | 3.596915921742405*^9, {3.596915961175353*^9, 3.59691596259039*^9}, {
|
---|
47 | 3.60744636894991*^9, 3.607446377507101*^9}, {3.6364757082312813`*^9,
|
---|
48 | 3.636475708315627*^9}, {3.655035981353272*^9, 3.655035982244761*^9}, {
|
---|
49 | 3.6550360677717857`*^9, 3.655036081259776*^9}, {3.655036117419112*^9,
|
---|
50 | 3.655036143336364*^9}, {3.655037954145546*^9, 3.6550379644813023`*^9}}],
|
---|
51 |
|
---|
52 | Cell[BoxData[
|
---|
53 | RowBox[{"(*",
|
---|
54 | RowBox[{
|
---|
55 | "Must", " ", "load", " ", "default", " ", "SM", " ", "file", " ", "with",
|
---|
56 | " ", "Heavy", " ", "N", " ",
|
---|
57 | RowBox[{"extension", "."}]}], "*)"}]], "Input",
|
---|
58 | CellChangeTimes->{{3.6550381551475554`*^9, 3.655038155711425*^9}}],
|
---|
59 |
|
---|
60 | Cell[BoxData[
|
---|
61 | RowBox[{"LoadModel", "[",
|
---|
62 | RowBox[{"\"\<sm.fr\>\"", ",", "\"\<heavyN.fr\>\""}], "]"}]], "Input",
|
---|
63 | CellChangeTimes->{{3.6550379628078337`*^9, 3.6550379664979897`*^9}}],
|
---|
64 |
|
---|
65 | Cell[BoxData[
|
---|
66 | RowBox[{"LoadRestriction", "[",
|
---|
67 | RowBox[{"\"\<diagonalCKM.rst\>\"", ",", "\"\<massless.rst\>\""}],
|
---|
68 | "]"}]], "Input"],
|
---|
69 |
|
---|
70 | Cell[CellGroupData[{
|
---|
71 |
|
---|
72 | Cell["New Lagrangian Terms", "Section",
|
---|
73 | CellChangeTimes->{{3.411910065227421*^9, 3.411910071535137*^9}, {
|
---|
74 | 3.572348211890565*^9, 3.572348234275403*^9}, {3.596207324453108*^9,
|
---|
75 | 3.596207326711195*^9}, {3.655036212669145*^9, 3.6550362220422897`*^9}, {
|
---|
76 | 3.655036282693001*^9, 3.655036287060457*^9}, {3.655037866940884*^9,
|
---|
77 | 3.6550378926486187`*^9}}],
|
---|
78 |
|
---|
79 | Cell[BoxData[
|
---|
80 | RowBox[{
|
---|
81 | RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
|
---|
82 | CellChangeTimes->{{3.572348235565138*^9, 3.572348241872657*^9}}],
|
---|
83 |
|
---|
84 | Cell[BoxData[{"LNKin", "\[IndentingNewLine]", "LNCC", "\[IndentingNewLine]", \
|
---|
85 | "LNNC", "\[IndentingNewLine]", "LNYukawa"}], "Input",
|
---|
86 | CellChangeTimes->{{3.5723482442775097`*^9, 3.572348252612296*^9}, {
|
---|
87 | 3.596212546796714*^9, 3.596212547440735*^9}, {3.655037865036394*^9,
|
---|
88 | 3.6550378653420067`*^9}}]
|
---|
89 | }, Open ]],
|
---|
90 |
|
---|
91 | Cell[CellGroupData[{
|
---|
92 |
|
---|
93 | Cell["Sanity Checks for New Lagrangian Terms", "Section",
|
---|
94 | CellChangeTimes->{{3.4234156496121893`*^9, 3.423415657027569*^9}, {
|
---|
95 | 3.655037883884348*^9, 3.655037906883815*^9}}],
|
---|
96 |
|
---|
97 | Cell[BoxData[
|
---|
98 | RowBox[{"CheckHermiticity", "[", "LN", "]"}]], "Input",
|
---|
99 | CellChangeTimes->{3.607446407230465*^9}],
|
---|
100 |
|
---|
101 | Cell[BoxData[
|
---|
102 | RowBox[{"CheckMassSpectrum", "[", "LN", "]"}]], "Input",
|
---|
103 | CellChangeTimes->{{3.607446409988699*^9, 3.6074464110954323`*^9},
|
---|
104 | 3.6550378392495413`*^9}],
|
---|
105 |
|
---|
106 | Cell[BoxData[
|
---|
107 | RowBox[{"CheckKineticTermNormalisation", "[", "LN", "]"}]], "Input",
|
---|
108 | CellChangeTimes->{{3.414763473002973*^9, 3.4147634845507174`*^9}, {
|
---|
109 | 3.572348320182221*^9, 3.572348326613598*^9}, {3.572358912362153*^9,
|
---|
110 | 3.572358917148378*^9}, {3.596207478919518*^9, 3.596207486580676*^9}, {
|
---|
111 | 3.596212578276376*^9, 3.5962125890639143`*^9}, 3.607446414234477*^9}]
|
---|
112 | }, Open ]],
|
---|
113 |
|
---|
114 | Cell[CellGroupData[{
|
---|
115 |
|
---|
116 | Cell["\<\
|
---|
117 | New Feynman Rules for Heavy N Interactions\
|
---|
118 | \>", "Section",
|
---|
119 | CellChangeTimes->{{3.411910637332127*^9, 3.41191064360071*^9}, {
|
---|
120 | 3.655037529059973*^9, 3.655037541428491*^9}, {3.6550379116719217`*^9,
|
---|
121 | 3.655037913954034*^9}}],
|
---|
122 |
|
---|
123 | Cell[BoxData[
|
---|
124 | RowBox[{"(*", " ",
|
---|
125 | RowBox[{"The", " ", "following", " ", "warnings", " ", "will", " ",
|
---|
126 | RowBox[{"appear", ":", " ",
|
---|
127 | RowBox[{"\"\<\!\(\*
|
---|
128 | StyleBox[\"QN\", \"MessageName\"]\)\!\(\*
|
---|
129 | StyleBox[\"::\", \"MessageName\"]\)\!\(\*
|
---|
130 | StyleBox[\"NonConserv\", \"MessageName\"]\): \>\"", "Warning"}], ":", " ",
|
---|
131 | RowBox[{
|
---|
132 | "non", " ", "quantum", " ", "number", " ", "conserving", " ", "vertex",
|
---|
133 | " ",
|
---|
134 | RowBox[{"encountered", "!"}],
|
---|
135 | "\"\<;\nThis is expected as Lepton Number is violated and FeynRules \
|
---|
136 | checks for this.\>"}]}]}], "*)"}]], "Input",
|
---|
137 | CellChangeTimes->{{3.6550374096249533`*^9, 3.655037447663039*^9},
|
---|
138 | 3.655037551040966*^9, {3.656940976048616*^9, 3.6569409786068287`*^9}}],
|
---|
139 |
|
---|
140 | Cell[BoxData[
|
---|
141 | RowBox[{"FeynmanRules", "[", "LN", "]"}]], "Input"]
|
---|
142 | }, Open ]],
|
---|
143 |
|
---|
144 | Cell[CellGroupData[{
|
---|
145 |
|
---|
146 | Cell["UFO Output", "Section",
|
---|
147 | CellChangeTimes->{
|
---|
148 | 3.411910944409371*^9, {3.412185514054689*^9, 3.412185517014236*^9}, {
|
---|
149 | 3.59620768137986*^9, 3.596207684212212*^9}}],
|
---|
150 |
|
---|
151 | Cell[BoxData[
|
---|
152 | RowBox[{"(*", " ",
|
---|
153 | RowBox[{"The", " ", "following", " ", "warnings", " ", "will", " ",
|
---|
154 | RowBox[{"appear", ":", " ",
|
---|
155 | RowBox[{"\"\<\!\(\*
|
---|
156 | StyleBox[\"QN\", \"MessageName\"]\)\!\(\*
|
---|
157 | StyleBox[\"::\", \"MessageName\"]\)\!\(\*
|
---|
158 | StyleBox[\"NonConserv\", \"MessageName\"]\): \>\"", "Warning"}], ":", " ",
|
---|
159 | RowBox[{
|
---|
160 | "non", " ", "quantum", " ", "number", " ", "conserving", " ", "vertex",
|
---|
161 | " ",
|
---|
162 | RowBox[{"encountered", "!"}],
|
---|
163 | "\"\<;\nThis is expected as Lepton Number is violated and FeynRules \
|
---|
164 | checks for this.\>"}]}]}], "*)"}]], "Input",
|
---|
165 | CellChangeTimes->{{3.656940935403554*^9, 3.656940952617087*^9}}],
|
---|
166 |
|
---|
167 | Cell[BoxData[
|
---|
168 | RowBox[{
|
---|
169 | RowBox[{"WriteUFO", "[",
|
---|
170 | RowBox[{
|
---|
171 | "LGauge", ",", "LHiggs", ",", "LFermions", ",", "LYukawa", ",", "LGhost",
|
---|
172 | ",", "LN"}], "]"}], ";"}]], "Input"]
|
---|
173 | }, Open ]]
|
---|
174 | }, Open ]]
|
---|
175 | },
|
---|
176 | WindowSize->{1196, 628},
|
---|
177 | WindowMargins->{{192, Automatic}, {Automatic, 64}},
|
---|
178 | PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
|
---|
179 | ShowSelection->True,
|
---|
180 | FrontEndVersion->"9.0 for Linux x86 (64-bit) (November 20, 2012)",
|
---|
181 | StyleDefinitions->"Default.nb"
|
---|
182 | ]
|
---|
183 | (* End of Notebook Content *)
|
---|
184 |
|
---|
185 | (* Internal cache information *)
|
---|
186 | (*CellTagsOutline
|
---|
187 | CellTagsIndex->{}
|
---|
188 | *)
|
---|
189 | (*CellTagsIndex
|
---|
190 | CellTagsIndex->{}
|
---|
191 | *)
|
---|
192 | (*NotebookFileOutline
|
---|
193 | Notebook[{
|
---|
194 | Cell[CellGroupData[{
|
---|
195 | Cell[567, 22, 194, 3, 93, "Title"],
|
---|
196 | Cell[764, 27, 1239, 22, 99, "Input"],
|
---|
197 | Cell[2006, 51, 269, 6, 32, "Input"],
|
---|
198 | Cell[2278, 59, 183, 3, 32, "Input"],
|
---|
199 | Cell[2464, 64, 135, 3, 32, "Input"],
|
---|
200 | Cell[CellGroupData[{
|
---|
201 | Cell[2624, 71, 351, 5, 81, "Section"],
|
---|
202 | Cell[2978, 78, 148, 3, 32, "Input"],
|
---|
203 | Cell[3129, 83, 300, 4, 99, "Input"]
|
---|
204 | }, Open ]],
|
---|
205 | Cell[CellGroupData[{
|
---|
206 | Cell[3466, 92, 174, 2, 81, "Section"],
|
---|
207 | Cell[3643, 96, 112, 2, 32, "Input"],
|
---|
208 | Cell[3758, 100, 167, 3, 32, "Input"],
|
---|
209 | Cell[3928, 105, 371, 5, 32, "Input"]
|
---|
210 | }, Open ]],
|
---|
211 | Cell[CellGroupData[{
|
---|
212 | Cell[4336, 115, 234, 5, 81, "Section"],
|
---|
213 | Cell[4573, 122, 720, 15, 77, "Input"],
|
---|
214 | Cell[5296, 139, 66, 1, 32, "Input"]
|
---|
215 | }, Open ]],
|
---|
216 | Cell[CellGroupData[{
|
---|
217 | Cell[5399, 145, 169, 3, 81, "Section"],
|
---|
218 | Cell[5571, 150, 644, 14, 77, "Input"],
|
---|
219 | Cell[6218, 166, 182, 5, 32, "Input"]
|
---|
220 | }, Open ]]
|
---|
221 | }, Open ]]
|
---|
222 | }
|
---|
223 | ]
|
---|
224 | *)
|
---|
225 |
|
---|
226 | (* End of internal cache information *)
|
---|