Triplets: SextetDiquarks.nb

File SextetDiquarks.nb, 6.9 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[      6907,        192]
14NotebookOptionsPosition[      5809,        152]
15NotebookOutlinePosition[      6187,        169]
16CellTagsIndexPosition[      6144,        166]
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/SextetDiquarks\>\""}],
44   "]"}], ";"}]], "Input",
45 CellChangeTimes->{{3.508569210987895*^9, 3.508569240366075*^9}, {
46  3.5086526985316563`*^9, 3.5086527008674803`*^9}, {3.5086537344899693`*^9,
47  3.508653736256976*^9}}],
48
49Cell[CellGroupData[{
50
51Cell["The Sextet diquark model", "Title",
52 CellChangeTimes->{{3.411915778286763*^9, 3.4119157817267313`*^9}, {
53  3.413720856398858*^9, 3.413720856723679*^9}, {3.508652686703946*^9,
54  3.5086526956245413`*^9}, {3.5086537494308853`*^9, 3.508653750046036*^9}}],
55
56Cell[BoxData[
57 RowBox[{"LoadModel", "[",
58  RowBox[{
59   RowBox[{"$FeynRulesPath", "<>", "\"\</Models/SM/SM.fr\>\""}], ",",
60   "\"\<SextetDiquarks.fr\>\""}], "]"}]], "Input",
61 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
62   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
63   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
64   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
65   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
66   3.403347555049163*^9}, 3.403533015351287*^9, {3.40505363437746*^9,
67   3.40505363645761*^9}, {3.411912382149088*^9, 3.4119123969228477`*^9}, {
68   3.50856924516405*^9, 3.5085692957646017`*^9}, {3.508652704764263*^9,
69   3.5086527148839912`*^9}, {3.508653755570479*^9, 3.508653758313497*^9}}],
70
71Cell[CellGroupData[{
72
73Cell["The lagrangian", "Section",
74 CellChangeTimes->{{3.411915790793332*^9, 3.411915793199389*^9}}],
75
76Cell[BoxData[
77 RowBox[{
78  RowBox[{"FeynmanGauge", "=", "False"}], ";"}]], "Input",
79 CellChangeTimes->{{3.411915017675109*^9, 3.411915022272778*^9},
80   3.411915800951993*^9, {3.5085697915596943`*^9, 3.508569793189657*^9}}],
81
82Cell["\<\
83The lagrangian for the SM is the same as in SM.fr.
84
85The kinetic term for the new sector is\
86\>", "Text",
87 CellChangeTimes->{{3.411915802313404*^9, 3.411915827110655*^9}, {
88  3.508652776041321*^9, 3.5086527816810417`*^9}}],
89
90Cell[BoxData["LSextetKin"], "Input",
91 CellChangeTimes->{{3.4119143176932583`*^9, 3.411914319401045*^9}, {
92  3.5086527413548803`*^9, 3.508652741850679*^9}, {3.508652785002825*^9,
93  3.508652786866547*^9}, {3.508652823258953*^9, 3.508652825786771*^9}, {
94  3.5086537855918217`*^9, 3.508653788279793*^9}}],
95
96Cell["The Yukawa couplings to quarks are given by", "Text",
97 CellChangeTimes->{{3.50865283162808*^9, 3.5086528423553133`*^9}}],
98
99Cell[BoxData["LD"], "Input",
100 CellChangeTimes->{{3.508652853955349*^9, 3.508652858923099*^9},
101   3.508653791031714*^9}],
102
103Cell["The scalar diquark potential is given by", "Text",
104 CellChangeTimes->{{3.508652867187509*^9, 3.508652875131366*^9}}],
105
106Cell[BoxData["LPot"], "Input",
107 CellChangeTimes->{{3.50865288551744*^9, 3.508652886027018*^9}}],
108
109Cell["\<\
110The whole new sector, i.e., the sum of the three previous pieces, can also be \
111called via\
112\>", "Text",
113 CellChangeTimes->{{3.508652892044424*^9, 3.5086529087571917`*^9}}],
114
115Cell[BoxData["LSextet"], "Input",
116 CellChangeTimes->{{3.5086529162762423`*^9, 3.5086529189712887`*^9}, {
117  3.5086537966638117`*^9, 3.5086537973194437`*^9}}]
118}, Open  ]],
119
120Cell[CellGroupData[{
121
122Cell["Feynman rules for the new sector", "Section",
123 CellChangeTimes->{{3.411915866249317*^9, 3.4119158716988153`*^9}}],
124
125Cell[BoxData[
126 RowBox[{"FeynmanRules", "[", "LSextet", "]"}]], "Input",
127 CellChangeTimes->{{3.411915883502528*^9, 3.411915928653887*^9}, {
128   3.4137211614912577`*^9, 3.4137211708030777`*^9}, 3.508569350492257*^9, {
129   3.5086529230279818`*^9, 3.5086529240436687`*^9}, {3.508653800616362*^9,
130   3.50865380154422*^9}}],
131
132Cell["\<\
133Note that the complaint about non conservation of the hypercharge is \
134harmless.
135It only results form the fact that in the SM implementation SM.fr, the quarks \
136hypercharge was not defined.\
137\>", "Text",
138 CellChangeTimes->{{3.508652973935788*^9, 3.5086530255775213`*^9}}],
139
140Cell["Or in a flavor expanded form", "Text",
141 CellChangeTimes->{{3.411915937803143*^9, 3.4119159434558887`*^9}}],
142
143Cell[BoxData[
144 RowBox[{"FeynmanRules", "[",
145  RowBox[{"LSextet", ",",
146   RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}]], "Input",
147 CellChangeTimes->{{3.411915883502528*^9, 3.411915958983838*^9}, {
148  3.508569657623721*^9, 3.508569668869379*^9}, {3.508653028324347*^9,
149  3.508653029012122*^9}, {3.508653853418923*^9, 3.508653854584044*^9}}]
150}, Open  ]]
151}, Open  ]]
152},
153WindowSize->{1272, 681},
154WindowMargins->{{0, Automatic}, {Automatic, 24}},
155ShowSelection->True,
156Magnification->1.5,
157FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)",
158StyleDefinitions->"Default.nb"
159]
160(* End of Notebook Content *)
161
162(* Internal cache information *)
163(*CellTagsOutline
164CellTagsIndex->{}
165*)
166(*CellTagsIndex
167CellTagsIndex->{}
168*)
169(*NotebookFileOutline
170Notebook[{
171Cell[545, 20, 233, 5, 46, "Input"],
172Cell[781, 27, 626, 10, 107, "Input"],
173Cell[1410, 39, 327, 7, 46, "Input"],
174Cell[CellGroupData[{
175Cell[1762, 50, 257, 3, 126, "Title"],
176Cell[2022, 55, 828, 13, 46, "Input"],
177Cell[CellGroupData[{
178Cell[2875, 72, 99, 1, 108, "Section"],
179Cell[2977, 75, 222, 4, 46, "Input"],
180Cell[3202, 81, 231, 6, 99, "Text"],
181Cell[3436, 89, 301, 4, 46, "Input"],
182Cell[3740, 95, 126, 1, 44, "Text"],
183Cell[3869, 98, 120, 2, 46, "Input"],
184Cell[3992, 102, 122, 1, 44, "Text"],
185Cell[4117, 105, 95, 1, 46, "Input"],
186Cell[4215, 108, 182, 4, 44, "Text"],
187Cell[4400, 114, 156, 2, 46, "Input"]
188}, Open  ]],
189Cell[CellGroupData[{
190Cell[4593, 121, 119, 1, 108, "Section"],
191Cell[4715, 124, 316, 5, 46, "Input"],
192Cell[5034, 131, 281, 6, 72, "Text"],
193Cell[5318, 139, 112, 1, 44, "Text"],
194Cell[5433, 142, 348, 6, 46, "Input"]
195}, Open  ]]
196}, Open  ]]
197}
198]
199*)
200
201(* End of internal cache information *)