1 | (* Content-type: application/vnd.wolfram.mathematica *)
|
---|
2 |
|
---|
3 | (*** Wolfram Notebook File ***)
|
---|
4 | (* http://www.wolfram.com/nb *)
|
---|
5 |
|
---|
6 | (* CreatedBy='Mathematica 8.0' *)
|
---|
7 |
|
---|
8 | (*CacheID: 234*)
|
---|
9 | (* Internal cache information:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 157, 7]
|
---|
13 | NotebookDataLength[ 975642, 24556]
|
---|
14 | NotebookOptionsPosition[ 927848, 23400]
|
---|
15 | NotebookOutlinePosition[ 928278, 23419]
|
---|
16 | CellTagsIndexPosition[ 928235, 23416]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[
|
---|
22 | RowBox[{"Quit", "[", "]"}]], "Input",
|
---|
23 | CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}}],
|
---|
24 |
|
---|
25 | Cell[CellGroupData[{
|
---|
26 |
|
---|
27 | Cell[BoxData[{
|
---|
28 | RowBox[{
|
---|
29 | RowBox[{"$FeynRulesPath", "=",
|
---|
30 | RowBox[{
|
---|
31 | "SetDirectory", "[", "\"\</Users/mawatari/work/FR/v2.0.6/\>\"", "]"}]}],
|
---|
32 | ";"}], "\[IndentingNewLine]",
|
---|
33 | RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
|
---|
34 | RowBox[{
|
---|
35 | RowBox[{"SetDirectory", "[",
|
---|
36 | RowBox[{"$FeynRulesPath", "<>", "\"\</Models/HC\>\""}], "]"}],
|
---|
37 | ";"}]}], "Input",
|
---|
38 | CellChangeTimes->{{3.562493790773467*^9, 3.56249379133423*^9}, {
|
---|
39 | 3.5669854592231197`*^9, 3.566985470009097*^9}, {3.573969547023426*^9,
|
---|
40 | 3.573969552638027*^9}, {3.5763110817083693`*^9, 3.576311082380014*^9}, {
|
---|
41 | 3.577095398145216*^9, 3.577095424358136*^9}, {3.579449013242025*^9,
|
---|
42 | 3.5794490139598637`*^9}, {3.581151089241591*^9, 3.581151095405628*^9}, {
|
---|
43 | 3.591006102395862*^9, 3.591006102747958*^9}, {3.5953297894365797`*^9,
|
---|
44 | 3.595329795947875*^9}}],
|
---|
45 |
|
---|
46 | Cell[CellGroupData[{
|
---|
47 |
|
---|
48 | Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
|
---|
49 | CellChangeTimes->{
|
---|
50 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
51 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
52 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
53 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
54 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
55 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
56 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
57 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
58 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
59 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
60 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
61 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
62 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
63 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
64 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
65 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
66 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
67 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
68 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
69 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
70 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
71 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
72 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
73 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
74 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
75 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
76 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
77 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
78 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
79 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
80 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
81 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
82 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
83 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
84 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
85 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
86 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
87 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
88 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
89 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
90 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
91 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
92 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
93 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
94 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
95 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
96 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
97 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
98 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
99 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
100 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
101 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
102 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
103 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
104 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
105 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
106 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
107 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
108 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
109 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
110 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
111 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
112 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
113 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
114 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
115 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
116 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
117 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
118 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
119 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
120 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
121 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
122 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
123 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
124 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
125 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
126 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
127 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
128 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
129 | 3.595774251081539*^9, 3.5957749799360228`*^9}],
|
---|
130 |
|
---|
131 | Cell[BoxData[
|
---|
132 | InterpretationBox[
|
---|
133 | RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.0.6\"\>",
|
---|
134 | "\[InvisibleSpace]",
|
---|
135 | RowBox[{"\<\" (\"\>", " ", "\<\"26 November 2013\"\>"}],
|
---|
136 | "\[InvisibleSpace]", "\<\").\"\>"}],
|
---|
137 | SequenceForm["Version: ", "2.0.6", " (" "26 November 2013", ")."],
|
---|
138 | Editable->False]], "Print",
|
---|
139 | CellChangeTimes->{
|
---|
140 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
141 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
142 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
143 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
144 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
145 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
146 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
147 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
148 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
149 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
150 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
151 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
152 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
153 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
154 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
155 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
156 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
157 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
158 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
159 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
160 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
161 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
162 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
163 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
164 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
165 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
166 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
167 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
168 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
169 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
170 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
171 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
172 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
173 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
174 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
175 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
176 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
177 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
178 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
179 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
180 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
181 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
182 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
183 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
184 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
185 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
186 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
187 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
188 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
189 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
190 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
191 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
192 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
193 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
194 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
195 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
196 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
197 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
198 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
199 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
200 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
201 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
202 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
203 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
204 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
205 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
206 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
207 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
208 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
209 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
210 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
211 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
212 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
213 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
214 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
215 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
216 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
217 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
218 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
219 | 3.595774251081539*^9, 3.595774979941834*^9}],
|
---|
220 |
|
---|
221 | Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
|
---|
222 | B. Fuks\"\>"], "Print",
|
---|
223 | CellChangeTimes->{
|
---|
224 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
225 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
226 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
227 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
228 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
229 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
230 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
231 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
232 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
233 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
234 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
235 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
236 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
237 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
238 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
239 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
240 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
241 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
242 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
243 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
244 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
245 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
246 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
247 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
248 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
249 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
250 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
251 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
252 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
253 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
254 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
255 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
256 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
257 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
258 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
259 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
260 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
261 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
262 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
263 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
264 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
265 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
266 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
267 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
268 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
269 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
270 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
271 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
272 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
273 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
274 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
275 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
276 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
277 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
278 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
279 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
280 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
281 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
282 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
283 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
284 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
285 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
286 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
287 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
288 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
289 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
290 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
291 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
292 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
293 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
294 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
295 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
296 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
297 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
298 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
299 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
300 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
301 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
302 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
303 | 3.595774251081539*^9, 3.595774979948028*^9}],
|
---|
304 |
|
---|
305 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
306 | CellChangeTimes->{
|
---|
307 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
308 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
309 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
310 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
311 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
312 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
313 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
314 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
315 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
316 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
317 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
318 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
319 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
320 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
321 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
322 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
323 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
324 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
325 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
326 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
327 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
328 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
329 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
330 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
331 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
332 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
333 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
334 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
335 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
336 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
337 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
338 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
339 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
340 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
341 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
342 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
343 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
344 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
345 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
346 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
347 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
348 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
349 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
350 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
351 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
352 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
353 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
354 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
355 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
356 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
357 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
358 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
359 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
360 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
361 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
362 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
363 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
364 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
365 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
366 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
367 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
368 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
369 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
370 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
371 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
372 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
373 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
374 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
375 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
376 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
377 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
378 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
379 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
380 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
381 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
382 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
383 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
384 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
385 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
386 | 3.595774251081539*^9, 3.595774979953937*^9}],
|
---|
387 |
|
---|
388 | Cell[BoxData["\<\"Please cite:\"\>"], "Print",
|
---|
389 | CellChangeTimes->{
|
---|
390 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
391 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
392 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
393 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
394 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
395 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
396 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
397 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
398 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
399 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
400 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
401 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
402 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
403 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
404 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
405 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
406 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
407 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
408 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
409 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
410 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
411 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
412 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
413 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
414 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
415 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
416 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
417 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
418 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
419 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
420 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
421 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
422 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
423 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
424 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
425 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
426 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
427 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
428 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
429 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
430 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
431 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
432 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
433 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
434 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
435 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
436 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
437 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
438 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
439 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
440 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
441 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
442 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
443 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
444 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
445 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
446 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
447 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
448 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
449 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
450 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
451 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
452 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
453 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
454 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
455 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
456 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
457 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
458 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
459 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
460 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
461 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
462 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
463 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
464 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
465 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
466 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
467 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
468 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
469 | 3.595774251081539*^9, 3.595774979959601*^9}],
|
---|
470 |
|
---|
471 | Cell[BoxData["\<\" - arXiv:1310.1921;\"\>"], "Print",
|
---|
472 | CellChangeTimes->{
|
---|
473 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
474 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
475 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
476 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
477 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
478 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
479 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
480 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
481 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
482 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
483 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
484 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
485 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
486 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
487 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
488 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
489 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
490 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
491 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
492 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
493 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
494 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
495 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
496 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
497 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
498 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
499 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
500 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
501 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
502 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
503 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
504 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
505 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
506 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
507 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
508 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
509 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
510 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
511 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
512 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
513 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
514 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
515 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
516 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
517 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
518 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
519 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
520 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
521 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
522 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
523 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
524 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
525 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
526 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
527 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
528 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
529 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
530 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
531 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
532 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
533 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
534 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
535 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
536 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
537 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
538 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
539 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
540 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
541 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
542 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
543 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
544 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
545 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
546 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
547 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
548 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
549 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
550 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
551 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
552 | 3.595774251081539*^9, 3.595774979965191*^9}],
|
---|
553 |
|
---|
554 | Cell[BoxData["\<\" - Comput.Phys.Commun.180:1614-1641,2009 \
|
---|
555 | (arXiv:0806.4194).\"\>"], "Print",
|
---|
556 | CellChangeTimes->{
|
---|
557 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
558 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
559 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
560 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
561 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
562 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
563 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
564 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
565 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
566 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
567 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
568 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
569 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
570 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
571 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
572 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
573 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
574 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
575 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
576 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
577 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
578 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
579 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
580 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
581 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
582 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
583 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
584 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
585 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
586 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
587 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
588 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
589 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
590 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
591 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
592 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
593 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
594 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
595 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
596 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
597 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
598 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
599 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
600 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
601 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
602 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
603 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
604 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
605 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
606 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
607 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
608 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
609 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
610 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
611 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
612 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
613 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
614 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
615 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
616 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
617 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
618 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
619 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
620 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
621 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
622 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
623 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
624 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
625 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
626 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
627 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
628 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
629 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
630 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
631 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
632 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
633 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
634 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
635 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
636 | 3.595774251081539*^9, 3.595774979970784*^9}],
|
---|
637 |
|
---|
638 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
639 | CellChangeTimes->{
|
---|
640 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
641 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
642 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
643 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
644 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
645 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
646 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
647 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
648 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
649 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
650 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
651 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
652 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
653 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
654 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
655 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
656 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
657 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
658 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
659 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
660 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
661 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
662 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
663 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
664 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
665 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
666 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
667 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
668 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
669 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
670 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
671 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
672 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
673 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
674 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
675 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
676 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
677 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
678 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
679 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
680 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
681 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
682 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
683 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
684 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
685 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
686 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
687 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
688 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
689 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
690 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
691 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
692 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
693 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
694 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
695 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
696 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
697 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
698 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
699 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
700 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
701 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
702 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
703 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
704 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
705 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
706 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
707 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
708 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
709 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
710 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
711 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
712 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
713 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
714 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
715 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
716 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
717 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
718 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
719 | 3.595774251081539*^9, 3.595774979976643*^9}],
|
---|
720 |
|
---|
721 | Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
|
---|
722 | CellChangeTimes->{
|
---|
723 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
724 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
725 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
726 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
727 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
728 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
729 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
730 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
731 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
732 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
733 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
734 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
735 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
736 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
737 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
738 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
739 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
740 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
741 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
742 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
743 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
744 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
745 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
746 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
747 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
748 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
749 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
750 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
751 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
752 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
753 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
754 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
755 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
756 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
757 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
758 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
759 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
760 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
761 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
762 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
763 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
764 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
765 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
766 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
767 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
768 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
769 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
770 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
771 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
772 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
773 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
774 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
775 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
776 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
777 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
778 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
779 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
780 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
781 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
782 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
783 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
784 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
785 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
786 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
787 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
788 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
789 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
790 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
791 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
792 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
793 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
794 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
795 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
796 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
797 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
798 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
799 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
800 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
801 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
802 | 3.595774251081539*^9, 3.595774979982881*^9}],
|
---|
803 |
|
---|
804 | Cell[BoxData["\<\" \"\>"], "Print",
|
---|
805 | CellChangeTimes->{
|
---|
806 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
807 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
808 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
809 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
810 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
811 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
812 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
813 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
814 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
815 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
816 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
817 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
818 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
819 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
820 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
821 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
822 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
823 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
824 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
825 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
826 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
827 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
828 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
829 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
830 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
831 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
832 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
833 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
834 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
835 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
836 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
837 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
838 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
839 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
840 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
841 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
842 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
843 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
844 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
845 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
846 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
847 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
848 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
849 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
850 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
851 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
852 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
853 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
854 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
855 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
856 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
857 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
858 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
859 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
860 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
861 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
862 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
863 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
864 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
865 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
866 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
867 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
868 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
869 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
870 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
871 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
872 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
873 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
874 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
875 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
876 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
877 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
878 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
879 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
880 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
881 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
882 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
883 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
884 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
885 | 3.595774251081539*^9, 3.595774979989771*^9}],
|
---|
886 |
|
---|
887 | Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
|
---|
888 | FRPalette[].\"\>"], "Print",
|
---|
889 | CellChangeTimes->{
|
---|
890 | 3.573969561534667*^9, 3.573988921638503*^9, 3.573989128428218*^9,
|
---|
891 | 3.573990252164946*^9, 3.573990757429809*^9, 3.57399082394011*^9,
|
---|
892 | 3.574002676830162*^9, 3.574164201610569*^9, 3.574164433488543*^9,
|
---|
893 | 3.574164878470636*^9, {3.574165545972145*^9, 3.574165563408424*^9},
|
---|
894 | 3.5741656019888077`*^9, 3.574166045925473*^9, 3.574166230539588*^9, {
|
---|
895 | 3.57416732700756*^9, 3.574167355775147*^9}, 3.574167804991696*^9,
|
---|
896 | 3.5741679908243*^9, 3.5741680550586*^9, 3.574445338740305*^9,
|
---|
897 | 3.574658150803811*^9, {3.574659751483637*^9, 3.574659763196375*^9},
|
---|
898 | 3.574660235076756*^9, 3.574660928044083*^9, 3.574660965521503*^9,
|
---|
899 | 3.5746774577755737`*^9, 3.574680642599476*^9, 3.5746819309924183`*^9,
|
---|
900 | 3.574682434542107*^9, 3.574683307427603*^9, 3.574741377827265*^9,
|
---|
901 | 3.575973238845565*^9, 3.575977137229869*^9, 3.575977363038227*^9,
|
---|
902 | 3.575977647811903*^9, 3.5759776796556683`*^9, 3.575977823112645*^9,
|
---|
903 | 3.575978808354129*^9, 3.576307072711788*^9, 3.576307137575633*^9,
|
---|
904 | 3.576308001074135*^9, 3.576310726164761*^9, 3.5763107577389803`*^9,
|
---|
905 | 3.5763108327262907`*^9, 3.5763110853297157`*^9, 3.576311605838085*^9,
|
---|
906 | 3.577095431088361*^9, 3.577106315183086*^9, 3.577107420221664*^9,
|
---|
907 | 3.577109839517481*^9, 3.5771582361754427`*^9, 3.577160173939103*^9,
|
---|
908 | 3.5774271090854816`*^9, 3.579349128193363*^9, {3.579379601645918*^9,
|
---|
909 | 3.579379613905096*^9}, 3.579380479244913*^9, 3.579381230719664*^9,
|
---|
910 | 3.579381817528495*^9, 3.5793819445876513`*^9, 3.5793821086824703`*^9,
|
---|
911 | 3.579382389975662*^9, 3.579382519755333*^9, 3.579382590474183*^9,
|
---|
912 | 3.579382670424045*^9, 3.579383289177012*^9, 3.579383891841668*^9,
|
---|
913 | 3.579409938122939*^9, 3.5794103610924273`*^9, 3.579410568675372*^9,
|
---|
914 | 3.57941065262562*^9, 3.579411623549409*^9, 3.5794280314096107`*^9,
|
---|
915 | 3.5794283905734386`*^9, 3.579429046049884*^9, 3.5794291740775013`*^9,
|
---|
916 | 3.579432503227852*^9, {3.5794326123886633`*^9, 3.5794326289078693`*^9},
|
---|
917 | 3.57943280024575*^9, 3.579432855691215*^9, 3.5794333809227543`*^9,
|
---|
918 | 3.579433448211287*^9, 3.5794342469619427`*^9, 3.579434565824304*^9,
|
---|
919 | 3.579434946567897*^9, 3.579435334371467*^9, 3.579437346526101*^9,
|
---|
920 | 3.5794374101071787`*^9, 3.5794374692567883`*^9, 3.579437701867044*^9,
|
---|
921 | 3.5794433091544027`*^9, 3.579443431957872*^9, {3.5794435450520267`*^9,
|
---|
922 | 3.579443568777512*^9}, 3.5794436320897017`*^9, 3.5794484720033703`*^9,
|
---|
923 | 3.579449020569099*^9, 3.57945026805641*^9, 3.5794503447973413`*^9,
|
---|
924 | 3.579450586200161*^9, 3.579450653152474*^9, 3.5794506929516478`*^9,
|
---|
925 | 3.579450777155436*^9, 3.579450876796424*^9, 3.579451350624729*^9,
|
---|
926 | 3.5794547243567457`*^9, 3.579455888105839*^9, 3.5794560621773*^9,
|
---|
927 | 3.579509498126337*^9, 3.579510005252969*^9, 3.579510146867529*^9,
|
---|
928 | 3.579511919397335*^9, 3.579512200747849*^9, 3.579516664896183*^9,
|
---|
929 | 3.579516814757353*^9, 3.5795170252970552`*^9, 3.579517080410318*^9,
|
---|
930 | 3.5795173346221437`*^9, 3.579517403000581*^9, 3.5795175071528807`*^9,
|
---|
931 | 3.579517665410318*^9, 3.5795197785930233`*^9, 3.579539604176497*^9,
|
---|
932 | 3.57953963439496*^9, 3.5795397479080772`*^9, 3.579542435722248*^9,
|
---|
933 | 3.5795427786566067`*^9, 3.579542856961687*^9, 3.579543889539413*^9,
|
---|
934 | 3.579543982151785*^9, 3.579579824030398*^9, 3.579579988605357*^9,
|
---|
935 | 3.5795800393356867`*^9, 3.579580376076899*^9, {3.579592506097886*^9,
|
---|
936 | 3.579592532149353*^9}, 3.579592586475993*^9, 3.57959270402531*^9,
|
---|
937 | 3.579594489157303*^9, 3.57959456007439*^9, 3.579595456189417*^9,
|
---|
938 | 3.57959572848632*^9, 3.579599199589302*^9, 3.579599978576936*^9,
|
---|
939 | 3.579600693234166*^9, 3.579605907929237*^9, 3.57960630660867*^9,
|
---|
940 | 3.579606455080131*^9, 3.579608777300606*^9, 3.5796091277345037`*^9,
|
---|
941 | 3.579609300593313*^9, 3.579764692442464*^9, 3.5797648539516153`*^9,
|
---|
942 | 3.579765173494046*^9, 3.579765581901507*^9, 3.5797673295744333`*^9,
|
---|
943 | 3.5797683718417664`*^9, 3.5797684217470713`*^9, {3.5797686949262342`*^9,
|
---|
944 | 3.579768722153154*^9}, 3.5797688144328737`*^9, 3.57976886269013*^9, {
|
---|
945 | 3.579768908604993*^9, 3.579768934051848*^9}, 3.579769861079896*^9,
|
---|
946 | 3.579769902215477*^9, 3.579769932217967*^9, 3.5797699786071653`*^9,
|
---|
947 | 3.57977028562698*^9, 3.5797703195910797`*^9, 3.579770378790167*^9,
|
---|
948 | 3.5797704125899143`*^9, 3.5797704440162477`*^9, 3.579770499831688*^9,
|
---|
949 | 3.5797710518723297`*^9, {3.579771821154909*^9, 3.5797718487332582`*^9},
|
---|
950 | 3.579772239239581*^9, 3.579772859592701*^9, 3.57977301554532*^9, {
|
---|
951 | 3.579773104297743*^9, 3.579773116073043*^9}, 3.579773474557328*^9,
|
---|
952 | 3.579775158534446*^9, 3.579775201800521*^9, 3.579775596284588*^9,
|
---|
953 | 3.579775660825754*^9, 3.5797760723592043`*^9, 3.579779028527691*^9,
|
---|
954 | 3.5799537695858917`*^9, 3.580053223786955*^9, 3.5800532781940193`*^9,
|
---|
955 | 3.580069380359521*^9, 3.5801159985682*^9, 3.580127094105034*^9,
|
---|
956 | 3.580140758787333*^9, 3.5801408481083317`*^9, 3.580143601394751*^9,
|
---|
957 | 3.580277946213983*^9, 3.580278344278553*^9, 3.58073030754633*^9,
|
---|
958 | 3.5807885766559896`*^9, 3.5811511037854156`*^9, 3.581151237129856*^9,
|
---|
959 | 3.581152685289069*^9, 3.5813915287005653`*^9, 3.581924809955205*^9,
|
---|
960 | 3.581956186148337*^9, 3.581956800072421*^9, 3.581957349295961*^9,
|
---|
961 | 3.581959939424966*^9, 3.58196006313443*^9, 3.581960412127674*^9,
|
---|
962 | 3.583279495773596*^9, 3.583645080873787*^9, 3.583654930752223*^9,
|
---|
963 | 3.583655431957835*^9, 3.583655686486383*^9, 3.5836567487849903`*^9,
|
---|
964 | 3.583657122726652*^9, 3.583657186840127*^9, 3.591006105908379*^9,
|
---|
965 | 3.591006252498472*^9, 3.5910077177068243`*^9, 3.595329801210762*^9,
|
---|
966 | 3.595338853185124*^9, {3.5955896466505003`*^9, 3.595589674567102*^9},
|
---|
967 | 3.595590902012226*^9, 3.595591801261991*^9, 3.595593658865198*^9,
|
---|
968 | 3.595655159170542*^9, 3.595655744252029*^9, 3.595758711968094*^9,
|
---|
969 | 3.595774251081539*^9, 3.595774979996581*^9}]
|
---|
970 | }, Open ]]
|
---|
971 | }, Open ]],
|
---|
972 |
|
---|
973 | Cell[CellGroupData[{
|
---|
974 |
|
---|
975 | Cell["The Higgs Characterisation Model", "Title",
|
---|
976 | CellChangeTimes->{{3.563969384897138*^9, 3.563969388480772*^9}, {
|
---|
977 | 3.579542855003995*^9, 3.579542855878519*^9}, {3.580788704233615*^9,
|
---|
978 | 3.580788704402492*^9}}],
|
---|
979 |
|
---|
980 | Cell[CellGroupData[{
|
---|
981 |
|
---|
982 | Cell[BoxData[
|
---|
983 | RowBox[{"LoadModel", "[",
|
---|
984 | RowBox[{"\"\<SM_HC.fr\>\"", ",", "\"\<HC.fr\>\""}], "]"}]], "Input",
|
---|
985 | CellChangeTimes->{{3.5797689230966454`*^9, 3.579768959605196*^9}, {
|
---|
986 | 3.5797728634876137`*^9, 3.579772869622957*^9}, {3.579773022805372*^9,
|
---|
987 | 3.579773025161128*^9}, {3.580788700320038*^9, 3.58078870048149*^9}, {
|
---|
988 | 3.581956192102425*^9, 3.5819561934167557`*^9}, {3.5819604209931593`*^9,
|
---|
989 | 3.58196042170662*^9}, {3.591006112028008*^9, 3.591006115130166*^9}, {
|
---|
990 | 3.5910062552983418`*^9, 3.591006257373683*^9}, {3.595329809474881*^9,
|
---|
991 | 3.595329812689343*^9}}],
|
---|
992 |
|
---|
993 | Cell[CellGroupData[{
|
---|
994 |
|
---|
995 | Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
|
---|
996 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
997 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
998 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
999 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1000 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1001 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1002 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1003 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1004 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1005 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1006 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1007 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1008 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1009 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1010 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1011 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1012 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1013 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1014 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1015 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1016 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1017 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1018 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1019 | 3.595774258108706*^9, 3.595774986255286*^9}],
|
---|
1020 |
|
---|
1021 | Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
|
---|
1022 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1023 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1024 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1025 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1026 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1027 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1028 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1029 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1030 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1031 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1032 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1033 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1034 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1035 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1036 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1037 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1038 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1039 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1040 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1041 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1042 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1043 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1044 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1045 | 3.595774258108706*^9, 3.595774986293858*^9}],
|
---|
1046 |
|
---|
1047 | Cell[BoxData["\<\"P. de Aquino, K. Mawatari\"\>"], "Print",
|
---|
1048 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1049 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1050 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1051 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1052 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1053 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1054 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1055 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1056 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1057 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1058 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1059 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1060 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1061 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1062 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1063 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1064 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1065 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1066 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1067 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1068 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1069 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1070 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1071 | 3.595774258108706*^9, 3.59577498629998*^9}],
|
---|
1072 |
|
---|
1073 | Cell[BoxData[
|
---|
1074 | InterpretationBox[
|
---|
1075 | RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
|
---|
1076 | SequenceForm["Model Version: ", "4.0"],
|
---|
1077 | Editable->False]], "Print",
|
---|
1078 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1079 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1080 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1081 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1082 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1083 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1084 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1085 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1086 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1087 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1088 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1089 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1090 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1091 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1092 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1093 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1094 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1095 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1096 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1097 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1098 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1099 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1100 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1101 | 3.595774258108706*^9, 3.595774986305958*^9}],
|
---|
1102 |
|
---|
1103 | Cell[BoxData["\<\"Please cite\"\>"], "Print",
|
---|
1104 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1105 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1106 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1107 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1108 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1109 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1110 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1111 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1112 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1113 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1114 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1115 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1116 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1117 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1118 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1119 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1120 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1121 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1122 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1123 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1124 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1125 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1126 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1127 | 3.595774258108706*^9, 3.595774986312554*^9}],
|
---|
1128 |
|
---|
1129 | Cell[BoxData["\<\"P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
|
---|
1130 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1131 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1132 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1133 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1134 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1135 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1136 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1137 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1138 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1139 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1140 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1141 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1142 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1143 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1144 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1145 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1146 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1147 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1148 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1149 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1150 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1151 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1152 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1153 | 3.595774258108706*^9, 3.59577498631852*^9}],
|
---|
1154 |
|
---|
1155 | Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\
|
---|
1156 | \"\>"], "Print",
|
---|
1157 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1158 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1159 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1160 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1161 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1162 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1163 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1164 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1165 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1166 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1167 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1168 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1169 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1170 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1171 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1172 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1173 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1174 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1175 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1176 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1177 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1178 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1179 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1180 | 3.595774258108706*^9, 3.595774986324383*^9}],
|
---|
1181 |
|
---|
1182 | Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
|
---|
1183 | "Print",
|
---|
1184 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1185 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1186 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1187 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1188 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1189 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1190 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1191 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1192 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1193 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1194 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1195 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1196 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1197 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1198 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1199 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1200 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1201 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1202 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1203 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1204 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1205 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1206 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1207 | 3.595774258108706*^9, 3.595774986330174*^9}],
|
---|
1208 |
|
---|
1209 | Cell[BoxData["\<\"\"\>"], "Print",
|
---|
1210 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1211 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1212 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1213 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1214 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1215 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1216 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1217 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1218 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1219 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1220 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1221 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1222 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1223 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1224 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1225 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1226 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1227 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1228 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1229 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1230 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1231 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1232 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1233 | 3.595774258108706*^9, 3.59577498633589*^9}],
|
---|
1234 |
|
---|
1235 | Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
|
---|
1236 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1237 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1238 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1239 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1240 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1241 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1242 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1243 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1244 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1245 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1246 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1247 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1248 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1249 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1250 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1251 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1252 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1253 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1254 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1255 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1256 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1257 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1258 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1259 | 3.595774258108706*^9, 3.595774986341823*^9}],
|
---|
1260 |
|
---|
1261 | Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
|
---|
1262 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1263 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1264 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1265 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1266 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1267 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1268 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1269 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1270 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1271 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1272 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1273 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1274 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1275 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1276 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1277 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1278 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1279 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1280 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1281 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1282 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1283 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1284 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1285 | 3.595774258108706*^9, 3.595774986570806*^9}],
|
---|
1286 |
|
---|
1287 | Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
|
---|
1288 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1289 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1290 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1291 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1292 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1293 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1294 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1295 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1296 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1297 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1298 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1299 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1300 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1301 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1302 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1303 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1304 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1305 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1306 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1307 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1308 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1309 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1310 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1311 | 3.595774258108706*^9, 3.595774986620122*^9}],
|
---|
1312 |
|
---|
1313 | Cell[BoxData[
|
---|
1314 | InterpretationBox[
|
---|
1315 | RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"HC\"\>",
|
---|
1316 | "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
|
---|
1317 | SequenceForm["\nModel ", "HC", " loaded."],
|
---|
1318 | Editable->False]], "Print",
|
---|
1319 | CellChangeTimes->{{3.57976893707021*^9, 3.579768960276555*^9},
|
---|
1320 | 3.579769865514038*^9, 3.579769907559046*^9, 3.579769981469977*^9,
|
---|
1321 | 3.579770288264614*^9, 3.579770322423699*^9, 3.57977038141331*^9,
|
---|
1322 | 3.579770415802527*^9, 3.579770447829186*^9, 3.5797705026290627`*^9, {
|
---|
1323 | 3.579771840458057*^9, 3.579771853825611*^9}, 3.579772249535247*^9,
|
---|
1324 | 3.579772870223282*^9, 3.579773025614532*^9, 3.5797731257884703`*^9,
|
---|
1325 | 3.5797734767753468`*^9, 3.5797751608353767`*^9, 3.579775204023447*^9,
|
---|
1326 | 3.579775665887414*^9, 3.579776074687708*^9, 3.579779030756297*^9,
|
---|
1327 | 3.579953773318592*^9, 3.5800532322628*^9, 3.5800532810346203`*^9,
|
---|
1328 | 3.580069382328477*^9, 3.580116001454042*^9, 3.580127096425099*^9,
|
---|
1329 | 3.580140760993733*^9, 3.5801408520886917`*^9, 3.580143603399817*^9,
|
---|
1330 | 3.580277956444783*^9, 3.580278348519937*^9, 3.5807303113442574`*^9,
|
---|
1331 | 3.580788719949267*^9, 3.581151116188569*^9, 3.581151240713645*^9,
|
---|
1332 | 3.581152689676711*^9, 3.581391534927425*^9, 3.58192481387215*^9,
|
---|
1333 | 3.581956193898932*^9, 3.5819568028773403`*^9, 3.5819573514463243`*^9,
|
---|
1334 | 3.581959942245448*^9, 3.581960065559105*^9, 3.5819604227699623`*^9,
|
---|
1335 | 3.5832795004603767`*^9, 3.583645092589262*^9, 3.583654936231823*^9,
|
---|
1336 | 3.583655434781365*^9, 3.583655691084528*^9, 3.583656753245407*^9,
|
---|
1337 | 3.583657126329726*^9, 3.58365719091117*^9, 3.591006123036346*^9,
|
---|
1338 | 3.591006259506515*^9, 3.591007720733861*^9, 3.5953298157334213`*^9,
|
---|
1339 | 3.595338857913962*^9, {3.595589654079033*^9, 3.595589678822201*^9},
|
---|
1340 | 3.5955909082571774`*^9, 3.595591806540279*^9, 3.59559366410469*^9,
|
---|
1341 | 3.5956551649114027`*^9, 3.595655751300111*^9, 3.59575871783995*^9,
|
---|
1342 | 3.595774258108706*^9, 3.595774986855732*^9}]
|
---|
1343 | }, Open ]]
|
---|
1344 | }, Open ]],
|
---|
1345 |
|
---|
1346 | Cell[CellGroupData[{
|
---|
1347 |
|
---|
1348 | Cell[BoxData[
|
---|
1349 | RowBox[{
|
---|
1350 | RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
|
---|
1351 | CellChangeTimes->{{3.581151369501802*^9, 3.5811514013985243`*^9}}],
|
---|
1352 |
|
---|
1353 | Cell[CellGroupData[{
|
---|
1354 |
|
---|
1355 | Cell[BoxData[
|
---|
1356 | InterpretationBox[
|
---|
1357 | RowBox[{"\<\"Model name: \"\>", "\[InvisibleSpace]", "\<\"HC\"\>"}],
|
---|
1358 | SequenceForm["Model name: ", "HC"],
|
---|
1359 | Editable->False]], "Print",
|
---|
1360 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1361 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1362 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1363 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1364 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1365 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1366 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1367 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1368 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1369 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1370 | 3.5957742607433558`*^9, 3.5957749889756393`*^9}],
|
---|
1371 |
|
---|
1372 | Cell[BoxData[
|
---|
1373 | InterpretationBox[
|
---|
1374 | RowBox[{"\<\"Model version: \"\>", "\[InvisibleSpace]", "\<\"4.0\"\>"}],
|
---|
1375 | SequenceForm["Model version: ", "4.0"],
|
---|
1376 | Editable->False]], "Print",
|
---|
1377 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1378 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1379 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1380 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1381 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1382 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1383 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1384 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1385 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1386 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1387 | 3.5957742607433558`*^9, 3.595774988980631*^9}],
|
---|
1388 |
|
---|
1389 | Cell[BoxData[
|
---|
1390 | InterpretationBox[
|
---|
1391 | RowBox[{"\<\"Date: \"\>", "\[InvisibleSpace]", "\<\"11.12.2013\"\>"}],
|
---|
1392 | SequenceForm["Date: ", "11.12.2013"],
|
---|
1393 | Editable->False]], "Print",
|
---|
1394 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1395 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1396 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1397 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1398 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1399 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1400 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1401 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1402 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1403 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1404 | 3.5957742607433558`*^9, 3.595774988985696*^9}],
|
---|
1405 |
|
---|
1406 | Cell[BoxData["\<\"Authors: \"\>"], "Print",
|
---|
1407 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1408 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1409 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1410 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1411 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1412 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1413 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1414 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1415 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1416 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1417 | 3.5957742607433558`*^9, 3.595774988990439*^9}],
|
---|
1418 |
|
---|
1419 | Cell[BoxData["\<\" P. de Aquino, K. Mawatari\"\>"], "Print",
|
---|
1420 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1421 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1422 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1423 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1424 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1425 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1426 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1427 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1428 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1429 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1430 | 3.5957742607433558`*^9, 3.595774988995092*^9}],
|
---|
1431 |
|
---|
1432 | Cell[BoxData["\<\"Institutions: \"\>"], "Print",
|
---|
1433 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1434 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1435 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1436 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1437 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1438 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1439 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1440 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1441 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1442 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1443 | 3.5957742607433558`*^9, 3.595774989000292*^9}],
|
---|
1444 |
|
---|
1445 | Cell[BoxData["\<\" Vrije Universiteit Brussel\"\>"], "Print",
|
---|
1446 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1447 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1448 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1449 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1450 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1451 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1452 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1453 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1454 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1455 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1456 | 3.5957742607433558`*^9, 3.595774989005561*^9}],
|
---|
1457 |
|
---|
1458 | Cell[BoxData["\<\"Emails: \"\>"], "Print",
|
---|
1459 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1460 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1461 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1462 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1463 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1464 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1465 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1466 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1467 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1468 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1469 | 3.5957742607433558`*^9, 3.595774989010865*^9}],
|
---|
1470 |
|
---|
1471 | Cell[BoxData["\<\" kentarou.mawatari@vub.ac.be\"\>"], "Print",
|
---|
1472 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1473 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1474 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1475 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1476 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1477 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1478 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1479 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1480 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1481 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1482 | 3.5957742607433558`*^9, 3.595774989016189*^9}],
|
---|
1483 |
|
---|
1484 | Cell[BoxData["\<\"References: \"\>"], "Print",
|
---|
1485 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1486 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1487 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1488 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1489 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1490 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1491 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1492 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1493 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1494 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1495 | 3.5957742607433558`*^9, 3.5957749890215797`*^9}],
|
---|
1496 |
|
---|
1497 | Cell[BoxData["\<\" P. Artoisenet et al., arXiv:1306.6464\"\>"], "Print",
|
---|
1498 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1499 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1500 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1501 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1502 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1503 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1504 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1505 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1506 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1507 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1508 | 3.5957742607433558`*^9, 3.595774989026895*^9}],
|
---|
1509 |
|
---|
1510 | Cell[BoxData["\<\"URL's: \"\>"], "Print",
|
---|
1511 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1512 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1513 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1514 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1515 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1516 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1517 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1518 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1519 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1520 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1521 | 3.5957742607433558`*^9, 3.595774989032241*^9}],
|
---|
1522 |
|
---|
1523 | Cell[BoxData["\<\" \
|
---|
1524 | http://feynrules.irmp.ucl.ac.be/wiki/HiggsCharacterisation/\"\>"], "Print",
|
---|
1525 | CellChangeTimes->{{3.581151387531425*^9, 3.581151401883533*^9},
|
---|
1526 | 3.581152692208685*^9, 3.581391539838377*^9, 3.5819248171349382`*^9,
|
---|
1527 | 3.5819561962253103`*^9, 3.5819568059092093`*^9, 3.5819599461628304`*^9,
|
---|
1528 | 3.581960067756258*^9, 3.581960426065414*^9, 3.583279502901986*^9,
|
---|
1529 | 3.583645095838223*^9, 3.583654939280147*^9, 3.583655437406549*^9,
|
---|
1530 | 3.58365569572663*^9, 3.583656755556831*^9, 3.58365712993919*^9,
|
---|
1531 | 3.583657193191371*^9, 3.591006263291099*^9, 3.591007723310964*^9,
|
---|
1532 | 3.595329821151325*^9, 3.5953388609390182`*^9, 3.595589680916645*^9,
|
---|
1533 | 3.595590910555626*^9, 3.595591808476202*^9, 3.5955936685390673`*^9,
|
---|
1534 | 3.5956551702697287`*^9, 3.5956557541723013`*^9, 3.5957587245778217`*^9,
|
---|
1535 | 3.5957742607433558`*^9, 3.595774989037507*^9}]
|
---|
1536 | }, Open ]]
|
---|
1537 | }, Open ]],
|
---|
1538 |
|
---|
1539 | Cell[CellGroupData[{
|
---|
1540 |
|
---|
1541 | Cell[BoxData[
|
---|
1542 | RowBox[{"LoadRestriction", "[",
|
---|
1543 | RowBox[{"\"\<Cabibbo.rst\>\"", ",", "\"\<Massless.rst\>\""}],
|
---|
1544 | "]"}]], "Input",
|
---|
1545 | CellChangeTimes->{
|
---|
1546 | 3.563280223155616*^9, {3.563771875657627*^9, 3.563771912735396*^9},
|
---|
1547 | 3.5671480612443037`*^9, {3.579429036774397*^9, 3.579429037217311*^9}}],
|
---|
1548 |
|
---|
1549 | Cell[CellGroupData[{
|
---|
1550 |
|
---|
1551 | Cell[BoxData[
|
---|
1552 | InterpretationBox[
|
---|
1553 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
1554 | "\[InvisibleSpace]", "\<\"Cabibbo.rst\"\>",
|
---|
1555 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
1556 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
1557 | ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1558 | "\[InvisibleSpace]", "6"}],
|
---|
1559 | SequenceForm["Loading restrictions from ", "Cabibbo.rst", " : ",
|
---|
1560 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 6],
|
---|
1561 | Editable->False]], "Print",
|
---|
1562 | CellChangeTimes->{
|
---|
1563 | 3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9,
|
---|
1564 | 3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9,
|
---|
1565 | 3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9,
|
---|
1566 | 3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9,
|
---|
1567 | 3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9,
|
---|
1568 | 3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9,
|
---|
1569 | 3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9,
|
---|
1570 | 3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9,
|
---|
1571 | 3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9,
|
---|
1572 | 3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9,
|
---|
1573 | 3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9,
|
---|
1574 | 3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
|
---|
1575 | 3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9,
|
---|
1576 | 3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9,
|
---|
1577 | 3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9,
|
---|
1578 | 3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9,
|
---|
1579 | 3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9,
|
---|
1580 | 3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9,
|
---|
1581 | 3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9,
|
---|
1582 | 3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9,
|
---|
1583 | 3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9,
|
---|
1584 | 3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9,
|
---|
1585 | 3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9,
|
---|
1586 | 3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9,
|
---|
1587 | 3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9,
|
---|
1588 | 3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9,
|
---|
1589 | 3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9,
|
---|
1590 | 3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9,
|
---|
1591 | 3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9,
|
---|
1592 | 3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9,
|
---|
1593 | 3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9,
|
---|
1594 | 3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9,
|
---|
1595 | 3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9,
|
---|
1596 | 3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9,
|
---|
1597 | 3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9,
|
---|
1598 | 3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9,
|
---|
1599 | 3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9,
|
---|
1600 | 3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9,
|
---|
1601 | 3.59577499234085*^9}],
|
---|
1602 |
|
---|
1603 | Cell[BoxData[
|
---|
1604 | InterpretationBox[
|
---|
1605 | RowBox[{"\<\"Loading restrictions from \"\>",
|
---|
1606 | "\[InvisibleSpace]", "\<\"Massless.rst\"\>",
|
---|
1607 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]",
|
---|
1608 | DynamicBox[ToBoxes[PRIVATE`FR$restrictionCounter, StandardForm],
|
---|
1609 | ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1610 | "\[InvisibleSpace]", "18"}],
|
---|
1611 | SequenceForm["Loading restrictions from ", "Massless.rst", " : ",
|
---|
1612 | Dynamic[PRIVATE`FR$restrictionCounter], " / ", 18],
|
---|
1613 | Editable->False]], "Print",
|
---|
1614 | CellChangeTimes->{
|
---|
1615 | 3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9,
|
---|
1616 | 3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9,
|
---|
1617 | 3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9,
|
---|
1618 | 3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9,
|
---|
1619 | 3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9,
|
---|
1620 | 3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9,
|
---|
1621 | 3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9,
|
---|
1622 | 3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9,
|
---|
1623 | 3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9,
|
---|
1624 | 3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9,
|
---|
1625 | 3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9,
|
---|
1626 | 3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
|
---|
1627 | 3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9,
|
---|
1628 | 3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9,
|
---|
1629 | 3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9,
|
---|
1630 | 3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9,
|
---|
1631 | 3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9,
|
---|
1632 | 3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9,
|
---|
1633 | 3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9,
|
---|
1634 | 3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9,
|
---|
1635 | 3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9,
|
---|
1636 | 3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9,
|
---|
1637 | 3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9,
|
---|
1638 | 3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9,
|
---|
1639 | 3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9,
|
---|
1640 | 3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9,
|
---|
1641 | 3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9,
|
---|
1642 | 3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9,
|
---|
1643 | 3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9,
|
---|
1644 | 3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9,
|
---|
1645 | 3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9,
|
---|
1646 | 3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9,
|
---|
1647 | 3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9,
|
---|
1648 | 3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9,
|
---|
1649 | 3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9,
|
---|
1650 | 3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9,
|
---|
1651 | 3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9,
|
---|
1652 | 3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9,
|
---|
1653 | 3.595774992569647*^9}],
|
---|
1654 |
|
---|
1655 | Cell[BoxData["\<\"Restrictions loaded.\"\>"], "Print",
|
---|
1656 | CellChangeTimes->{
|
---|
1657 | 3.5794290509544363`*^9, 3.579429181799006*^9, 3.5794325155955677`*^9,
|
---|
1658 | 3.579432635108132*^9, 3.579432805375701*^9, 3.57943286788902*^9,
|
---|
1659 | 3.579433386148896*^9, 3.579433454039764*^9, 3.579434251113165*^9,
|
---|
1660 | 3.579434577990007*^9, 3.579434965934722*^9, 3.579435342903551*^9,
|
---|
1661 | 3.579443445016252*^9, 3.579443578275963*^9, 3.579443639507142*^9,
|
---|
1662 | 3.5794490456747837`*^9, 3.579450884987849*^9, 3.579451357270712*^9,
|
---|
1663 | 3.579454729578051*^9, 3.57945589472537*^9, 3.579456067101851*^9,
|
---|
1664 | 3.5795095050913897`*^9, 3.579510011236*^9, 3.579510161872367*^9,
|
---|
1665 | 3.5795119237125273`*^9, 3.579512205312881*^9, 3.579516670096532*^9,
|
---|
1666 | 3.5795168192418127`*^9, 3.5795397542168303`*^9, 3.579542440945209*^9,
|
---|
1667 | 3.57954278255612*^9, 3.579542860599605*^9, 3.5795439890790577`*^9,
|
---|
1668 | 3.5795798372747498`*^9, 3.579580044181732*^9, 3.579580381444313*^9, {
|
---|
1669 | 3.579592510491967*^9, 3.579592536546259*^9}, 3.579592590208592*^9,
|
---|
1670 | 3.579592708359777*^9, 3.5795944933253403`*^9, 3.579594564512615*^9,
|
---|
1671 | 3.579595461840765*^9, 3.5795957323353157`*^9, 3.57959921585903*^9,
|
---|
1672 | 3.579599983939945*^9, 3.579600698922448*^9, 3.579605912404235*^9,
|
---|
1673 | 3.5796063120910587`*^9, 3.579606459356874*^9, 3.5796087825947437`*^9,
|
---|
1674 | 3.579609132580268*^9, 3.5796093052741203`*^9, 3.57976470978084*^9,
|
---|
1675 | 3.579764858430361*^9, 3.579765178794323*^9, 3.57976559249448*^9,
|
---|
1676 | 3.5797673352274303`*^9, 3.5797705150852833`*^9, 3.579771857942809*^9,
|
---|
1677 | 3.579772253067027*^9, 3.579772874657702*^9, 3.57977303102221*^9,
|
---|
1678 | 3.5797731280541563`*^9, 3.579773478797687*^9, 3.579775163369293*^9,
|
---|
1679 | 3.5797752058287086`*^9, 3.57977567108652*^9, 3.579776076330688*^9,
|
---|
1680 | 3.579779034448839*^9, 3.579953776110952*^9, 3.5800532833299294`*^9,
|
---|
1681 | 3.580069385139514*^9, 3.5801160033896103`*^9, 3.5801270985084133`*^9,
|
---|
1682 | 3.580140763667358*^9, 3.580140854951489*^9, 3.5801436065745687`*^9,
|
---|
1683 | 3.580277959531026*^9, 3.580278353712617*^9, 3.580730313951734*^9,
|
---|
1684 | 3.580788726282175*^9, 3.581151118759831*^9, 3.581151242742681*^9,
|
---|
1685 | 3.581152695187685*^9, 3.581391547783867*^9, 3.5819248220873623`*^9,
|
---|
1686 | 3.581956200547022*^9, 3.581956808027287*^9, 3.5819573568258953`*^9,
|
---|
1687 | 3.581959949779924*^9, 3.5819600698582973`*^9, 3.581960434590064*^9,
|
---|
1688 | 3.583279508657537*^9, 3.583645099422858*^9, 3.583654945788978*^9,
|
---|
1689 | 3.583655441069084*^9, 3.583655699521132*^9, 3.583656759092362*^9,
|
---|
1690 | 3.583657136793429*^9, 3.583657196643655*^9, 3.591006128455742*^9,
|
---|
1691 | 3.591006265460855*^9, 3.591007726583241*^9, 3.595329826591722*^9,
|
---|
1692 | 3.5953388663365707`*^9, 3.595589685744636*^9, 3.5955909136452*^9,
|
---|
1693 | 3.595591812197258*^9, 3.59559367500727*^9, 3.595655228344956*^9,
|
---|
1694 | 3.595655759244561*^9, 3.595758733420156*^9, 3.595774266779652*^9,
|
---|
1695 | 3.595774992786254*^9}]
|
---|
1696 | }, Open ]]
|
---|
1697 | }, Open ]],
|
---|
1698 |
|
---|
1699 | Cell[CellGroupData[{
|
---|
1700 |
|
---|
1701 | Cell[BoxData[
|
---|
1702 | RowBox[{
|
---|
1703 | RowBox[{"CheckHermiticity", "[", "LagHC", "]"}], ";"}]], "Input",
|
---|
1704 | CellChangeTimes->{{3.579767339384638*^9, 3.579767354035263*^9}, {
|
---|
1705 | 3.5797705186463737`*^9, 3.5797705200464497`*^9}, 3.5797751925371647`*^9, {
|
---|
1706 | 3.581151245902598*^9, 3.5811512470771513`*^9}}],
|
---|
1707 |
|
---|
1708 | Cell[CellGroupData[{
|
---|
1709 |
|
---|
1710 | Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
|
---|
1711 | contained in L-HC[L].\"\>"], "Print",
|
---|
1712 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1713 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1714 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1715 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1716 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1717 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1718 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1719 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1720 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1721 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1722 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1723 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1724 | 3.5957742784099903`*^9, 3.5957749982134438`*^9}],
|
---|
1725 |
|
---|
1726 | Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
|
---|
1727 | should be zero.\"\>"], "Print",
|
---|
1728 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1729 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1730 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1731 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1732 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1733 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1734 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1735 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1736 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1737 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1738 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1739 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1740 | 3.5957742784099903`*^9, 3.595774998253516*^9}],
|
---|
1741 |
|
---|
1742 | Cell[BoxData[
|
---|
1743 | StyleBox["\<\"Starting Feynman rule calculation.\"\>",
|
---|
1744 | StripOnInput->False,
|
---|
1745 | LineColor->RGBColor[1, 0.5, 0],
|
---|
1746 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
1747 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
1748 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
1749 | FontWeight->Bold,
|
---|
1750 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
1751 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1752 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1753 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1754 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1755 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1756 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1757 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1758 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1759 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1760 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1761 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1762 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1763 | 3.5957742784099903`*^9, 3.5957751244696903`*^9}],
|
---|
1764 |
|
---|
1765 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
1766 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1767 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1768 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1769 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1770 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1771 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1772 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1773 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1774 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1775 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1776 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1777 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1778 | 3.5957742784099903`*^9, 3.595775124488041*^9}],
|
---|
1779 |
|
---|
1780 | Cell[BoxData[
|
---|
1781 | InterpretationBox[
|
---|
1782 | RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
|
---|
1783 | "\[InvisibleSpace]", "\<\" cores\"\>"}],
|
---|
1784 | SequenceForm["Expanding indices over ", 2, " cores"],
|
---|
1785 | Editable->False]], "Print",
|
---|
1786 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1787 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1788 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1789 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1790 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1791 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1792 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1793 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1794 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1795 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1796 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1797 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1798 | 3.5957742784099903`*^9, 3.59577512449396*^9}],
|
---|
1799 |
|
---|
1800 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
1801 | vertex.\"\>"], "Print",
|
---|
1802 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1803 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1804 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1805 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1806 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1807 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1808 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1809 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1810 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1811 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1812 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1813 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1814 | 3.5957742784099903`*^9, 3.5957751257934313`*^9}],
|
---|
1815 |
|
---|
1816 | Cell[BoxData[
|
---|
1817 | InterpretationBox[
|
---|
1818 | RowBox[{
|
---|
1819 | "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
|
---|
1820 | -> starting the computation: \"\>", "\[InvisibleSpace]",
|
---|
1821 | DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
|
---|
1822 | ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
1823 | "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
1824 | SequenceForm[
|
---|
1825 | 1, " possible non-zero vertices have been found -> starting the \
|
---|
1826 | computation: ",
|
---|
1827 | Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
|
---|
1828 | Editable->False]], "Print",
|
---|
1829 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1830 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1831 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1832 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1833 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1834 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1835 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1836 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1837 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1838 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1839 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1840 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1841 | 3.5957742784099903`*^9, 3.595775125849351*^9}],
|
---|
1842 |
|
---|
1843 | Cell[BoxData[
|
---|
1844 | InterpretationBox[
|
---|
1845 | RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
1846 | SequenceForm[0, " vertices obtained."],
|
---|
1847 | Editable->False]], "Print",
|
---|
1848 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1849 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1850 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1851 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1852 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1853 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1854 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1855 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1856 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1857 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1858 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1859 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1860 | 3.5957742784099903`*^9, 3.595775125970456*^9}],
|
---|
1861 |
|
---|
1862 | Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
|
---|
1863 | CellChangeTimes->{3.5797673546715527`*^9, 3.579770523301712*^9,
|
---|
1864 | 3.5797734822913513`*^9, 3.57977516651696*^9, 3.579775209619954*^9,
|
---|
1865 | 3.579775674892428*^9, 3.579776080070469*^9, 3.579779038904632*^9,
|
---|
1866 | 3.5799537803301163`*^9, 3.580053286986227*^9, 3.580116007398567*^9,
|
---|
1867 | 3.580143610329121*^9, 3.580277963501173*^9, 3.580788785106824*^9,
|
---|
1868 | 3.5811511239862127`*^9, 3.581151249348155*^9, 3.581152700061235*^9,
|
---|
1869 | 3.581391572058302*^9, 3.58196054535506*^9, 3.583279515910986*^9,
|
---|
1870 | 3.5836451031451893`*^9, 3.583654949467194*^9, 3.583655702479578*^9,
|
---|
1871 | 3.583657201223311*^9, 3.591006131902779*^9, 3.591006270454809*^9,
|
---|
1872 | 3.591007730106093*^9, 3.595329831808466*^9, 3.5953388713117847`*^9,
|
---|
1873 | 3.595589691720665*^9, 3.595590919040183*^9, 3.59559181682102*^9,
|
---|
1874 | 3.5955936796015882`*^9, 3.595655771301568*^9, 3.5957587389373426`*^9,
|
---|
1875 | 3.5957742784099903`*^9, 3.595775125976619*^9}]
|
---|
1876 | }, Open ]]
|
---|
1877 | }, Open ]],
|
---|
1878 |
|
---|
1879 | Cell[CellGroupData[{
|
---|
1880 |
|
---|
1881 | Cell[BoxData[
|
---|
1882 | RowBox[{
|
---|
1883 | RowBox[{"FeynmanRules", "[",
|
---|
1884 | RowBox[{"LagHC", ",",
|
---|
1885 | RowBox[{"FlavorExpand", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input",
|
---|
1886 | CellChangeTimes->{{3.5811514216342487`*^9, 3.581151429564769*^9}, {
|
---|
1887 | 3.58115146580645*^9, 3.581151480344983*^9}, {3.5811529367166033`*^9,
|
---|
1888 | 3.581152943600583*^9}, {3.581159363565619*^9, 3.581159365371764*^9}, {
|
---|
1889 | 3.581159413678952*^9, 3.581159413740821*^9}, {3.5811596210852633`*^9,
|
---|
1890 | 3.581159623574592*^9}}],
|
---|
1891 |
|
---|
1892 | Cell[CellGroupData[{
|
---|
1893 |
|
---|
1894 | Cell[BoxData["\<\"Starting Feynman rule calculation.\"\>"], "Print",
|
---|
1895 | CellChangeTimes->{
|
---|
1896 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1897 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1898 | 3.581159629870883*^9}],
|
---|
1899 |
|
---|
1900 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
1901 | vertex...\"\>"], "Print",
|
---|
1902 | CellChangeTimes->{
|
---|
1903 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1904 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1905 | 3.58115968449856*^9}],
|
---|
1906 |
|
---|
1907 | Cell[BoxData[
|
---|
1908 | InterpretationBox[
|
---|
1909 | RowBox[{"\<\"Found \"\>", "\[InvisibleSpace]", "\<\"139\"\>",
|
---|
1910 | "\[InvisibleSpace]", "\<\" possible non zero vertices.\"\>"}],
|
---|
1911 | SequenceForm["Found ", "139", " possible non zero vertices."],
|
---|
1912 | Editable->False]], "Print",
|
---|
1913 | CellChangeTimes->{
|
---|
1914 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1915 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1916 | 3.581159685833336*^9}],
|
---|
1917 |
|
---|
1918 | Cell[BoxData["\<\"Start calculating vertices...\"\>"], "Print",
|
---|
1919 | CellChangeTimes->{
|
---|
1920 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1921 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1922 | 3.581159685837291*^9}],
|
---|
1923 |
|
---|
1924 | Cell[BoxData[
|
---|
1925 | ProgressIndicatorBox[Dynamic[PRIVATE`progress$13502]]], "Print",
|
---|
1926 | CellChangeTimes->{
|
---|
1927 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1928 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1929 | 3.581159685842091*^9}],
|
---|
1930 |
|
---|
1931 | Cell[BoxData[
|
---|
1932 | InterpretationBox[
|
---|
1933 | RowBox[{"139", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
1934 | SequenceForm[139, " vertices obtained."],
|
---|
1935 | Editable->False]], "Print",
|
---|
1936 | CellChangeTimes->{
|
---|
1937 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1938 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1939 | 3.581159746795643*^9}],
|
---|
1940 |
|
---|
1941 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
1942 | * * * * * *)\"\>"], "Print",
|
---|
1943 | CellChangeTimes->{
|
---|
1944 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1945 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1946 | 3.581159746800058*^9}],
|
---|
1947 |
|
---|
1948 | Cell[BoxData[
|
---|
1949 | InterpretationBox[
|
---|
1950 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "1"}],
|
---|
1951 | SequenceForm["Vertex ", 1],
|
---|
1952 | Editable->False]], "Print",
|
---|
1953 | CellChangeTimes->{
|
---|
1954 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1955 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1956 | 3.581159746804309*^9}],
|
---|
1957 |
|
---|
1958 | Cell[BoxData[
|
---|
1959 | InterpretationBox[
|
---|
1960 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
1961 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
1962 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
1963 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
1964 | Editable->False]], "Print",
|
---|
1965 | CellChangeTimes->{
|
---|
1966 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1967 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1968 | 3.581159746808688*^9}],
|
---|
1969 |
|
---|
1970 | Cell[BoxData[
|
---|
1971 | InterpretationBox[
|
---|
1972 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
1973 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
1974 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
1975 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
|
---|
1976 | Editable->False]], "Print",
|
---|
1977 | CellChangeTimes->{
|
---|
1978 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1979 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1980 | 3.581159746813032*^9}],
|
---|
1981 |
|
---|
1982 | Cell[BoxData[
|
---|
1983 | InterpretationBox[
|
---|
1984 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
1985 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
1986 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
1987 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
1988 | Editable->False]], "Print",
|
---|
1989 | CellChangeTimes->{
|
---|
1990 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1991 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1992 | 3.581159746817502*^9}],
|
---|
1993 |
|
---|
1994 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
1995 | CellChangeTimes->{
|
---|
1996 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
1997 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
1998 | 3.581159746821657*^9}],
|
---|
1999 |
|
---|
2000 | Cell[BoxData[
|
---|
2001 | RowBox[{
|
---|
2002 | RowBox[{
|
---|
2003 | RowBox[{"-", "\[ImaginaryI]"}], " ",
|
---|
2004 | SubscriptBox["c", "a"], " ",
|
---|
2005 | SubscriptBox["g", "Haa"], " ",
|
---|
2006 | SubscriptBox["\[Kappa]", "Haa"], " ",
|
---|
2007 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2008 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2009 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2010 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
|
---|
2011 | RowBox[{
|
---|
2012 | FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
|
---|
2013 | SubscriptBox["g", "Aaa"], " ",
|
---|
2014 | SubscriptBox["\[Kappa]", "Aaa"], " ",
|
---|
2015 | SubscriptBox["s", "a"], " ",
|
---|
2016 | SubscriptBox["\[Epsilon]",
|
---|
2017 | RowBox[{
|
---|
2018 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2019 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2020 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
|
---|
2021 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-",
|
---|
2022 | RowBox[{
|
---|
2023 | FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
|
---|
2024 | SubscriptBox["g", "Aaa"], " ",
|
---|
2025 | SubscriptBox["\[Kappa]", "Aaa"], " ",
|
---|
2026 | SubscriptBox["s", "a"], " ",
|
---|
2027 | SubscriptBox["\[Epsilon]",
|
---|
2028 | RowBox[{
|
---|
2029 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2030 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2031 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"], " ",
|
---|
2032 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"]}], "+",
|
---|
2033 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2034 | SubscriptBox["c", "a"], " ",
|
---|
2035 | SubscriptBox["g", "Haa"], " ",
|
---|
2036 | SubscriptBox["\[Kappa]", "Haa"], " ",
|
---|
2037 | SubscriptBox["\[Eta]",
|
---|
2038 | RowBox[{
|
---|
2039 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2040 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
2041 | RowBox[{
|
---|
2042 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2043 | SubscriptBox["p", "2"]}]}]}]], "Print",
|
---|
2044 | CellChangeTimes->{
|
---|
2045 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2046 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2047 | 3.58115974682719*^9}],
|
---|
2048 |
|
---|
2049 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2050 | * * * * * *)\"\>"], "Print",
|
---|
2051 | CellChangeTimes->{
|
---|
2052 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2053 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2054 | 3.5811597468313704`*^9}],
|
---|
2055 |
|
---|
2056 | Cell[BoxData[
|
---|
2057 | InterpretationBox[
|
---|
2058 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "2"}],
|
---|
2059 | SequenceForm["Vertex ", 2],
|
---|
2060 | Editable->False]], "Print",
|
---|
2061 | CellChangeTimes->{
|
---|
2062 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2063 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2064 | 3.581159746835411*^9}],
|
---|
2065 |
|
---|
2066 | Cell[BoxData[
|
---|
2067 | InterpretationBox[
|
---|
2068 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2069 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2070 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2071 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
2072 | Editable->False]], "Print",
|
---|
2073 | CellChangeTimes->{
|
---|
2074 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2075 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2076 | 3.5811597468395853`*^9}],
|
---|
2077 |
|
---|
2078 | Cell[BoxData[
|
---|
2079 | InterpretationBox[
|
---|
2080 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2081 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2082 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2083 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
2084 | Editable->False]], "Print",
|
---|
2085 | CellChangeTimes->{
|
---|
2086 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2087 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2088 | 3.581159746843647*^9}],
|
---|
2089 |
|
---|
2090 | Cell[BoxData[
|
---|
2091 | InterpretationBox[
|
---|
2092 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2093 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2094 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
2095 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
2096 | Editable->False]], "Print",
|
---|
2097 | CellChangeTimes->{
|
---|
2098 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2099 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2100 | 3.581159746847625*^9}],
|
---|
2101 |
|
---|
2102 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2103 | CellChangeTimes->{
|
---|
2104 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2105 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2106 | 3.5811597468517227`*^9}],
|
---|
2107 |
|
---|
2108 | Cell[BoxData[
|
---|
2109 | RowBox[{
|
---|
2110 | RowBox[{
|
---|
2111 | RowBox[{"-", "\[ImaginaryI]"}], " ",
|
---|
2112 | SubscriptBox["c", "a"], " ",
|
---|
2113 | SubscriptBox["g", "Hgg"], " ",
|
---|
2114 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
2115 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2116 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2117 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2118 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2119 | SubscriptBox["\[Delta]",
|
---|
2120 | RowBox[{
|
---|
2121 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2122 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
|
---|
2123 | RowBox[{
|
---|
2124 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2125 | SubscriptBox["g", "Agg"], " ",
|
---|
2126 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2127 | SubscriptBox["s", "a"], " ",
|
---|
2128 | SubscriptBox["\[Epsilon]",
|
---|
2129 | RowBox[{
|
---|
2130 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2131 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
|
---|
2132 | " ",
|
---|
2133 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
|
---|
2134 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ",
|
---|
2135 | SubscriptBox["\[Delta]",
|
---|
2136 | RowBox[{
|
---|
2137 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2138 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
|
---|
2139 | RowBox[{
|
---|
2140 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2141 | SubscriptBox["g", "Agg"], " ",
|
---|
2142 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2143 | SubscriptBox["s", "a"], " ",
|
---|
2144 | SubscriptBox["\[Epsilon]",
|
---|
2145 | RowBox[{
|
---|
2146 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2147 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
|
---|
2148 | "\[Delta]1"}]], " ",
|
---|
2149 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ",
|
---|
2150 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Alpha]1"], " ",
|
---|
2151 | SubscriptBox["\[Delta]",
|
---|
2152 | RowBox[{
|
---|
2153 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2154 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
|
---|
2155 | RowBox[{
|
---|
2156 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2157 | SubscriptBox["g", "Agg"], " ",
|
---|
2158 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2159 | SubscriptBox["s", "a"], " ",
|
---|
2160 | SubscriptBox["\[Epsilon]",
|
---|
2161 | RowBox[{
|
---|
2162 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2163 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",", "\[Beta]1"}]],
|
---|
2164 | " ",
|
---|
2165 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
|
---|
2166 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ",
|
---|
2167 | SubscriptBox["\[Delta]",
|
---|
2168 | RowBox[{
|
---|
2169 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2170 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
|
---|
2171 | RowBox[{
|
---|
2172 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2173 | SubscriptBox["g", "Agg"], " ",
|
---|
2174 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2175 | SubscriptBox["s", "a"], " ",
|
---|
2176 | SubscriptBox["\[Epsilon]",
|
---|
2177 | RowBox[{
|
---|
2178 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2179 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
|
---|
2180 | " ",
|
---|
2181 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ",
|
---|
2182 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Beta]1"], " ",
|
---|
2183 | SubscriptBox["\[Delta]",
|
---|
2184 | RowBox[{
|
---|
2185 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2186 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
|
---|
2187 | RowBox[{
|
---|
2188 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2189 | SubscriptBox["g", "Agg"], " ",
|
---|
2190 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2191 | SubscriptBox["s", "a"], " ",
|
---|
2192 | SubscriptBox["\[Epsilon]",
|
---|
2193 | RowBox[{
|
---|
2194 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2195 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",", "\[Beta]1"}]],
|
---|
2196 | " ",
|
---|
2197 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Beta]1"], " ",
|
---|
2198 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ",
|
---|
2199 | SubscriptBox["\[Delta]",
|
---|
2200 | RowBox[{
|
---|
2201 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2202 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
|
---|
2203 | RowBox[{
|
---|
2204 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2205 | SubscriptBox["g", "Agg"], " ",
|
---|
2206 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2207 | SubscriptBox["s", "a"], " ",
|
---|
2208 | SubscriptBox["\[Epsilon]",
|
---|
2209 | RowBox[{
|
---|
2210 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2211 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",",
|
---|
2212 | "\[Delta]1"}]], " ",
|
---|
2213 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Delta]1"], " ",
|
---|
2214 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Gamma]1"], " ",
|
---|
2215 | SubscriptBox["\[Delta]",
|
---|
2216 | RowBox[{
|
---|
2217 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2218 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
|
---|
2219 | RowBox[{
|
---|
2220 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2221 | SubscriptBox["g", "Agg"], " ",
|
---|
2222 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2223 | SubscriptBox["s", "a"], " ",
|
---|
2224 | SubscriptBox["\[Epsilon]",
|
---|
2225 | RowBox[{
|
---|
2226 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2227 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Alpha]1", ",",
|
---|
2228 | "\[Delta]1"}]], " ",
|
---|
2229 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Alpha]1"], " ",
|
---|
2230 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ",
|
---|
2231 | SubscriptBox["\[Delta]",
|
---|
2232 | RowBox[{
|
---|
2233 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2234 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "-",
|
---|
2235 | RowBox[{
|
---|
2236 | FractionBox["1", "8"], " ", "\[ImaginaryI]", " ",
|
---|
2237 | SubscriptBox["g", "Agg"], " ",
|
---|
2238 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
2239 | SubscriptBox["s", "a"], " ",
|
---|
2240 | SubscriptBox["\[Epsilon]",
|
---|
2241 | RowBox[{
|
---|
2242 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2243 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "\[Gamma]1", ",",
|
---|
2244 | "\[Delta]1"}]], " ",
|
---|
2245 | SubsuperscriptBox["\<\"p\"\>", "1", "\[Gamma]1"], " ",
|
---|
2246 | SubsuperscriptBox["\<\"p\"\>", "2", "\[Delta]1"], " ",
|
---|
2247 | SubscriptBox["\[Delta]",
|
---|
2248 | RowBox[{
|
---|
2249 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2250 | SubscriptBox["\<\"a\"\>", "2"]}]]}], "+",
|
---|
2251 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2252 | SubscriptBox["c", "a"], " ",
|
---|
2253 | SubscriptBox["g", "Hgg"], " ",
|
---|
2254 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
2255 | SubscriptBox["\[Delta]",
|
---|
2256 | RowBox[{
|
---|
2257 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2258 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
2259 | SubscriptBox["\[Eta]",
|
---|
2260 | RowBox[{
|
---|
2261 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2262 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
2263 | RowBox[{
|
---|
2264 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2265 | SubscriptBox["p", "2"]}]}]}]], "Print",
|
---|
2266 | CellChangeTimes->{
|
---|
2267 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2268 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2269 | 3.58115974686061*^9}],
|
---|
2270 |
|
---|
2271 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2272 | * * * * * *)\"\>"], "Print",
|
---|
2273 | CellChangeTimes->{
|
---|
2274 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2275 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2276 | 3.58115974686405*^9}],
|
---|
2277 |
|
---|
2278 | Cell[BoxData[
|
---|
2279 | InterpretationBox[
|
---|
2280 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "3"}],
|
---|
2281 | SequenceForm["Vertex ", 3],
|
---|
2282 | Editable->False]], "Print",
|
---|
2283 | CellChangeTimes->{
|
---|
2284 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2285 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2286 | 3.581159746867771*^9}],
|
---|
2287 |
|
---|
2288 | Cell[BoxData[
|
---|
2289 | InterpretationBox[
|
---|
2290 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2291 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2292 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
2293 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
2294 | Editable->False]], "Print",
|
---|
2295 | CellChangeTimes->{
|
---|
2296 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2297 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2298 | 3.5811597468713427`*^9}],
|
---|
2299 |
|
---|
2300 | Cell[BoxData[
|
---|
2301 | InterpretationBox[
|
---|
2302 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2303 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2304 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
2305 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
2306 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
2307 | Editable->False]], "Print",
|
---|
2308 | CellChangeTimes->{
|
---|
2309 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2310 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2311 | 3.581159746875073*^9}],
|
---|
2312 |
|
---|
2313 | Cell[BoxData[
|
---|
2314 | InterpretationBox[
|
---|
2315 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2316 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2317 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
2318 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
2319 | Editable->False]], "Print",
|
---|
2320 | CellChangeTimes->{
|
---|
2321 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2322 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2323 | 3.581159746879182*^9}],
|
---|
2324 |
|
---|
2325 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2326 | CellChangeTimes->{
|
---|
2327 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2328 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2329 | 3.581159746883519*^9}],
|
---|
2330 |
|
---|
2331 | Cell[BoxData[
|
---|
2332 | RowBox[{
|
---|
2333 | RowBox[{"-",
|
---|
2334 | FractionBox[
|
---|
2335 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2336 | SubscriptBox["c", "a"], " ",
|
---|
2337 | SubscriptBox["\[Kappa]", "Hdw"], " ",
|
---|
2338 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2339 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2340 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2341 | SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"]}], "-",
|
---|
2342 | FractionBox[
|
---|
2343 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2344 | SubscriptBox["c", "a"], " ",
|
---|
2345 | SubscriptBox["\[Kappa]", "Hww"], " ",
|
---|
2346 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2347 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2348 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2349 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "\[CapitalLambda]"], "-",
|
---|
2350 | FractionBox[
|
---|
2351 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2352 | SubscriptBox["c", "a"], " ",
|
---|
2353 | SubscriptBox["\[Kappa]", "Hdw"], " ",
|
---|
2354 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2355 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2356 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2357 | SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "+",
|
---|
2358 | FractionBox[
|
---|
2359 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2360 | SubscriptBox["\[Kappa]", "Aww"], " ",
|
---|
2361 | SubscriptBox["s", "a"], " ",
|
---|
2362 | SubscriptBox["\[Epsilon]",
|
---|
2363 | RowBox[{
|
---|
2364 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2365 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2366 |
|
---|
2367 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
|
---|
2368 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "\[CapitalLambda]"], "+",
|
---|
2369 |
|
---|
2370 | FractionBox[
|
---|
2371 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2372 | SubscriptBox["c", "a"], " ",
|
---|
2373 | SuperscriptBox["e", "2"], " ",
|
---|
2374 | SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
|
---|
2375 | SubscriptBox["\[Eta]",
|
---|
2376 | RowBox[{
|
---|
2377 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2378 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
|
---|
2379 | RowBox[{"2", " ",
|
---|
2380 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
2381 | FractionBox[
|
---|
2382 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2383 | SubscriptBox["c", "a"], " ",
|
---|
2384 | SubscriptBox["\[Kappa]", "Hdw"], " ",
|
---|
2385 | SubscriptBox["\[Eta]",
|
---|
2386 | RowBox[{
|
---|
2387 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2388 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
2389 | RowBox[{
|
---|
2390 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2391 | SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+",
|
---|
2392 | FractionBox[
|
---|
2393 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2394 | SubscriptBox["c", "a"], " ",
|
---|
2395 | SubscriptBox["\[Kappa]", "Hww"], " ",
|
---|
2396 | SubscriptBox["\[Eta]",
|
---|
2397 | RowBox[{
|
---|
2398 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2399 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
2400 | RowBox[{
|
---|
2401 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2402 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
|
---|
2403 | FractionBox[
|
---|
2404 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2405 | SubscriptBox["c", "a"], " ",
|
---|
2406 | SubscriptBox["\[Kappa]", "Hdw"], " ",
|
---|
2407 | SubscriptBox["\[Eta]",
|
---|
2408 | RowBox[{
|
---|
2409 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2410 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
2411 | RowBox[{
|
---|
2412 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
2413 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
2414 | CellChangeTimes->{
|
---|
2415 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2416 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2417 | 3.5811597468887167`*^9}],
|
---|
2418 |
|
---|
2419 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2420 | * * * * * *)\"\>"], "Print",
|
---|
2421 | CellChangeTimes->{
|
---|
2422 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2423 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2424 | 3.581159746894627*^9}],
|
---|
2425 |
|
---|
2426 | Cell[BoxData[
|
---|
2427 | InterpretationBox[
|
---|
2428 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "4"}],
|
---|
2429 | SequenceForm["Vertex ", 4],
|
---|
2430 | Editable->False]], "Print",
|
---|
2431 | CellChangeTimes->{
|
---|
2432 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2433 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2434 | 3.5811597468991537`*^9}],
|
---|
2435 |
|
---|
2436 | Cell[BoxData[
|
---|
2437 | InterpretationBox[
|
---|
2438 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2439 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2440 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
2441 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
2442 | Editable->False]], "Print",
|
---|
2443 | CellChangeTimes->{
|
---|
2444 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2445 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2446 | 3.58115974690362*^9}],
|
---|
2447 |
|
---|
2448 | Cell[BoxData[
|
---|
2449 | InterpretationBox[
|
---|
2450 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2451 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2452 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
2453 | SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
2454 | Editable->False]], "Print",
|
---|
2455 | CellChangeTimes->{
|
---|
2456 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2457 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2458 | 3.581159746908063*^9}],
|
---|
2459 |
|
---|
2460 | Cell[BoxData[
|
---|
2461 | InterpretationBox[
|
---|
2462 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2463 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2464 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
2465 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
2466 | Editable->False]], "Print",
|
---|
2467 | CellChangeTimes->{
|
---|
2468 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2469 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2470 | 3.581159746912528*^9}],
|
---|
2471 |
|
---|
2472 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2473 | CellChangeTimes->{
|
---|
2474 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2475 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2476 | 3.581159746917213*^9}],
|
---|
2477 |
|
---|
2478 | Cell[BoxData[
|
---|
2479 | RowBox[{
|
---|
2480 | RowBox[{"-",
|
---|
2481 | FractionBox[
|
---|
2482 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2483 | SubscriptBox["c", "a"], " ",
|
---|
2484 | SubscriptBox["\[Kappa]", "Hda"], " ",
|
---|
2485 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2486 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2487 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2488 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-",
|
---|
2489 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2490 | SubscriptBox["c", "a"], " ",
|
---|
2491 | SubscriptBox["g", "Hza"], " ",
|
---|
2492 | SubscriptBox["\[Kappa]", "Hza"], " ",
|
---|
2493 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2494 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
2495 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2496 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
|
---|
2497 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2498 | SubscriptBox["g", "Aza"], " ",
|
---|
2499 | SubscriptBox["\[Kappa]", "Aza"], " ",
|
---|
2500 | SubscriptBox["s", "a"], " ",
|
---|
2501 | SubscriptBox["\[Epsilon]",
|
---|
2502 | RowBox[{
|
---|
2503 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2504 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2505 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$21"], " ",
|
---|
2506 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
|
---|
2507 | FractionBox[
|
---|
2508 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2509 | SubscriptBox["c", "a"], " ",
|
---|
2510 | SubscriptBox["\[Kappa]", "Hda"], " ",
|
---|
2511 | SubscriptBox["\[Eta]",
|
---|
2512 | RowBox[{
|
---|
2513 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2514 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
2515 | RowBox[{
|
---|
2516 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2517 | SubscriptBox["p", "1"]}]}], "\[CapitalLambda]"], "+",
|
---|
2518 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2519 | SubscriptBox["c", "a"], " ",
|
---|
2520 | SubscriptBox["g", "Hza"], " ",
|
---|
2521 | SubscriptBox["\[Kappa]", "Hza"], " ",
|
---|
2522 | SubscriptBox["\[Eta]",
|
---|
2523 | RowBox[{
|
---|
2524 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2525 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
2526 | RowBox[{
|
---|
2527 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
2528 | SubscriptBox["p", "3"]}]}]}]], "Print",
|
---|
2529 | CellChangeTimes->{
|
---|
2530 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2531 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2532 | 3.5811597469220533`*^9}],
|
---|
2533 |
|
---|
2534 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2535 | * * * * * *)\"\>"], "Print",
|
---|
2536 | CellChangeTimes->{
|
---|
2537 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2538 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2539 | 3.581159746927601*^9}],
|
---|
2540 |
|
---|
2541 | Cell[BoxData[
|
---|
2542 | InterpretationBox[
|
---|
2543 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "5"}],
|
---|
2544 | SequenceForm["Vertex ", 5],
|
---|
2545 | Editable->False]], "Print",
|
---|
2546 | CellChangeTimes->{
|
---|
2547 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2548 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2549 | 3.58115974693218*^9}],
|
---|
2550 |
|
---|
2551 | Cell[BoxData[
|
---|
2552 | InterpretationBox[
|
---|
2553 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2554 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2555 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
2556 | SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
2557 | Editable->False]], "Print",
|
---|
2558 | CellChangeTimes->{
|
---|
2559 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2560 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2561 | 3.5811597469367123`*^9}],
|
---|
2562 |
|
---|
2563 | Cell[BoxData[
|
---|
2564 | InterpretationBox[
|
---|
2565 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2566 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2567 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
2568 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
|
---|
2569 | Editable->False]], "Print",
|
---|
2570 | CellChangeTimes->{
|
---|
2571 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2572 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2573 | 3.581159746941125*^9}],
|
---|
2574 |
|
---|
2575 | Cell[BoxData[
|
---|
2576 | InterpretationBox[
|
---|
2577 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2578 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2579 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
2580 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
2581 | Editable->False]], "Print",
|
---|
2582 | CellChangeTimes->{
|
---|
2583 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2584 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2585 | 3.581159746945616*^9}],
|
---|
2586 |
|
---|
2587 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2588 | CellChangeTimes->{
|
---|
2589 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2590 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2591 | 3.5811597469499807`*^9}],
|
---|
2592 |
|
---|
2593 | Cell[BoxData[
|
---|
2594 | RowBox[{
|
---|
2595 | RowBox[{"-",
|
---|
2596 | FractionBox[
|
---|
2597 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2598 | SubscriptBox["c", "a"], " ",
|
---|
2599 | SubscriptBox["\[Kappa]", "Hdz"], " ",
|
---|
2600 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2601 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2602 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2603 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"]}], "-",
|
---|
2604 | FractionBox[
|
---|
2605 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2606 | SubscriptBox["c", "a"], " ",
|
---|
2607 | SubscriptBox["\[Kappa]", "Hzz"], " ",
|
---|
2608 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2609 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
2610 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2611 | SubscriptBox["\<\"\[Mu]\"\>", "2"]]}], "\[CapitalLambda]"], "-",
|
---|
2612 | FractionBox[
|
---|
2613 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2614 | SubscriptBox["c", "a"], " ",
|
---|
2615 | SubscriptBox["\[Kappa]", "Hdz"], " ",
|
---|
2616 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2617 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2618 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2619 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "\[CapitalLambda]"], "+",
|
---|
2620 | FractionBox[
|
---|
2621 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2622 | SubscriptBox["\[Kappa]", "Azz"], " ",
|
---|
2623 | SubscriptBox["s", "a"], " ",
|
---|
2624 | SubscriptBox["\[Epsilon]",
|
---|
2625 | RowBox[{
|
---|
2626 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2627 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2628 |
|
---|
2629 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$21"], " ",
|
---|
2630 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}],
|
---|
2631 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
2632 | FractionBox[
|
---|
2633 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2634 | SubscriptBox["\[Kappa]", "Azz"], " ",
|
---|
2635 | SubscriptBox["s", "a"], " ",
|
---|
2636 | SubscriptBox["\[Epsilon]",
|
---|
2637 | RowBox[{
|
---|
2638 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2639 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11", ",", "mu$21"}]], " ",
|
---|
2640 |
|
---|
2641 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"], " ",
|
---|
2642 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$21"]}],
|
---|
2643 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
2644 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2645 | SubscriptBox["c", "a"], " ",
|
---|
2646 | SuperscriptBox["e", "2"], " ",
|
---|
2647 | SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
|
---|
2648 | SubscriptBox["\[Eta]",
|
---|
2649 | RowBox[{
|
---|
2650 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2651 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
2652 | FractionBox[
|
---|
2653 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2654 | SubscriptBox["c", "a"], " ",
|
---|
2655 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
2656 | SuperscriptBox["e", "2"], " ",
|
---|
2657 | SubscriptBox["\[Kappa]", "SM"], " ", "vev", " ",
|
---|
2658 | SubscriptBox["\[Eta]",
|
---|
2659 | RowBox[{
|
---|
2660 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2661 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
2662 | RowBox[{"2", " ",
|
---|
2663 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
2664 | FractionBox[
|
---|
2665 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2666 | SubscriptBox["c", "a"], " ",
|
---|
2667 | SuperscriptBox["e", "2"], " ",
|
---|
2668 | SubscriptBox["\[Kappa]", "SM"], " ",
|
---|
2669 | SubsuperscriptBox["s", "w", "2"], " ", "vev", " ",
|
---|
2670 | SubscriptBox["\[Eta]",
|
---|
2671 | RowBox[{
|
---|
2672 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2673 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
2674 | RowBox[{"2", " ",
|
---|
2675 | SubsuperscriptBox["c", "w", "2"]}]], "+",
|
---|
2676 | FractionBox[
|
---|
2677 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2678 | SubscriptBox["c", "a"], " ",
|
---|
2679 | SubscriptBox["\[Kappa]", "Hdz"], " ",
|
---|
2680 | SubscriptBox["\[Eta]",
|
---|
2681 | RowBox[{
|
---|
2682 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2683 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
2684 | RowBox[{
|
---|
2685 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
2686 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
|
---|
2687 | FractionBox[
|
---|
2688 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2689 | SubscriptBox["c", "a"], " ",
|
---|
2690 | SubscriptBox["\[Kappa]", "Hzz"], " ",
|
---|
2691 | SubscriptBox["\[Eta]",
|
---|
2692 | RowBox[{
|
---|
2693 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2694 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
2695 | RowBox[{
|
---|
2696 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
2697 | SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+",
|
---|
2698 | FractionBox[
|
---|
2699 | RowBox[{"\[ImaginaryI]", " ",
|
---|
2700 | SubscriptBox["c", "a"], " ",
|
---|
2701 | SubscriptBox["\[Kappa]", "Hdz"], " ",
|
---|
2702 | SubscriptBox["\[Eta]",
|
---|
2703 | RowBox[{
|
---|
2704 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2705 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
2706 | RowBox[{
|
---|
2707 | SubscriptBox["\<\"p\"\>", "3"], ".",
|
---|
2708 | SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
2709 | CellChangeTimes->{
|
---|
2710 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2711 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2712 | 3.581159746955433*^9}],
|
---|
2713 |
|
---|
2714 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2715 | * * * * * *)\"\>"], "Print",
|
---|
2716 | CellChangeTimes->{
|
---|
2717 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2718 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2719 | 3.58115974696201*^9}],
|
---|
2720 |
|
---|
2721 | Cell[BoxData[
|
---|
2722 | InterpretationBox[
|
---|
2723 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "6"}],
|
---|
2724 | SequenceForm["Vertex ", 6],
|
---|
2725 | Editable->False]], "Print",
|
---|
2726 | CellChangeTimes->{
|
---|
2727 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2728 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2729 | 3.5811597469666367`*^9}],
|
---|
2730 |
|
---|
2731 | Cell[BoxData[
|
---|
2732 | InterpretationBox[
|
---|
2733 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2734 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2735 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2736 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
2737 | Editable->False]], "Print",
|
---|
2738 | CellChangeTimes->{
|
---|
2739 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2740 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2741 | 3.58115974697122*^9}],
|
---|
2742 |
|
---|
2743 | Cell[BoxData[
|
---|
2744 | InterpretationBox[
|
---|
2745 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2746 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2747 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
2748 | SuperscriptBox["ghG", "\[Dagger]"]}],
|
---|
2749 | SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`ghGbar],
|
---|
2750 | Editable->False]], "Print",
|
---|
2751 | CellChangeTimes->{
|
---|
2752 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2753 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2754 | 3.581159746975525*^9}],
|
---|
2755 |
|
---|
2756 | Cell[BoxData[
|
---|
2757 | InterpretationBox[
|
---|
2758 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2759 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
2760 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ghG"}],
|
---|
2761 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`ghG],
|
---|
2762 | Editable->False]], "Print",
|
---|
2763 | CellChangeTimes->{
|
---|
2764 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2765 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2766 | 3.581159746980186*^9}],
|
---|
2767 |
|
---|
2768 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2769 | CellChangeTimes->{
|
---|
2770 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2771 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2772 | 3.581159746984281*^9}],
|
---|
2773 |
|
---|
2774 | Cell[BoxData[
|
---|
2775 | RowBox[{
|
---|
2776 | RowBox[{
|
---|
2777 | SubscriptBox["g", "s"], " ",
|
---|
2778 | SubscriptBox["f",
|
---|
2779 | RowBox[{
|
---|
2780 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2781 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2782 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2783 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2784 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], "+",
|
---|
2785 | RowBox[{
|
---|
2786 | SubscriptBox["g", "s"], " ",
|
---|
2787 | SubscriptBox["f",
|
---|
2788 | RowBox[{
|
---|
2789 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2790 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2791 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2792 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2793 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]}]], "Print",
|
---|
2794 | CellChangeTimes->{
|
---|
2795 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2796 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2797 | 3.581159746988553*^9}],
|
---|
2798 |
|
---|
2799 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2800 | * * * * * *)\"\>"], "Print",
|
---|
2801 | CellChangeTimes->{
|
---|
2802 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2803 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2804 | 3.5811597469938583`*^9}],
|
---|
2805 |
|
---|
2806 | Cell[BoxData[
|
---|
2807 | InterpretationBox[
|
---|
2808 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "7"}],
|
---|
2809 | SequenceForm["Vertex ", 7],
|
---|
2810 | Editable->False]], "Print",
|
---|
2811 | CellChangeTimes->{
|
---|
2812 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2813 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2814 | 3.581159746997982*^9}],
|
---|
2815 |
|
---|
2816 | Cell[BoxData[
|
---|
2817 | InterpretationBox[
|
---|
2818 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2819 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2820 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2821 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
2822 | Editable->False]], "Print",
|
---|
2823 | CellChangeTimes->{
|
---|
2824 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2825 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2826 | 3.5811597470020447`*^9}],
|
---|
2827 |
|
---|
2828 | Cell[BoxData[
|
---|
2829 | InterpretationBox[
|
---|
2830 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2831 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2832 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2833 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
2834 | Editable->False]], "Print",
|
---|
2835 | CellChangeTimes->{
|
---|
2836 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2837 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2838 | 3.581159747007202*^9}],
|
---|
2839 |
|
---|
2840 | Cell[BoxData[
|
---|
2841 | InterpretationBox[
|
---|
2842 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2843 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2844 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2845 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
2846 | Editable->False]], "Print",
|
---|
2847 | CellChangeTimes->{
|
---|
2848 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2849 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2850 | 3.581159747011444*^9}],
|
---|
2851 |
|
---|
2852 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
2853 | CellChangeTimes->{
|
---|
2854 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2855 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2856 | 3.5811597470155163`*^9}],
|
---|
2857 |
|
---|
2858 | Cell[BoxData[
|
---|
2859 | RowBox[{
|
---|
2860 | RowBox[{
|
---|
2861 | SubscriptBox["g", "s"], " ",
|
---|
2862 | SubscriptBox["f",
|
---|
2863 | RowBox[{
|
---|
2864 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2865 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2866 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2867 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2868 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
2869 | SubscriptBox["\[Eta]",
|
---|
2870 | RowBox[{
|
---|
2871 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2872 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
2873 | RowBox[{
|
---|
2874 | SubscriptBox["g", "s"], " ",
|
---|
2875 | SubscriptBox["f",
|
---|
2876 | RowBox[{
|
---|
2877 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2878 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2879 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2880 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2881 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
2882 | SubscriptBox["\[Eta]",
|
---|
2883 | RowBox[{
|
---|
2884 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2885 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
2886 | RowBox[{
|
---|
2887 | SubscriptBox["g", "s"], " ",
|
---|
2888 | SubscriptBox["f",
|
---|
2889 | RowBox[{
|
---|
2890 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2891 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2892 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2893 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
2894 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2895 | SubscriptBox["\[Eta]",
|
---|
2896 | RowBox[{
|
---|
2897 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2898 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
2899 | RowBox[{
|
---|
2900 | SubscriptBox["g", "s"], " ",
|
---|
2901 | SubscriptBox["f",
|
---|
2902 | RowBox[{
|
---|
2903 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2904 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2905 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2906 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2907 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
2908 | SubscriptBox["\[Eta]",
|
---|
2909 | RowBox[{
|
---|
2910 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
2911 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
2912 | RowBox[{
|
---|
2913 | SubscriptBox["g", "s"], " ",
|
---|
2914 | SubscriptBox["f",
|
---|
2915 | RowBox[{
|
---|
2916 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2917 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2918 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2919 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
2920 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2921 | SubscriptBox["\[Eta]",
|
---|
2922 | RowBox[{
|
---|
2923 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2924 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
2925 | RowBox[{
|
---|
2926 | SubscriptBox["g", "s"], " ",
|
---|
2927 | SubscriptBox["f",
|
---|
2928 | RowBox[{
|
---|
2929 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
2930 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
2931 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
2932 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
2933 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
2934 | SubscriptBox["\[Eta]",
|
---|
2935 | RowBox[{
|
---|
2936 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
2937 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
|
---|
2938 | CellChangeTimes->{
|
---|
2939 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2940 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2941 | 3.5811597470198593`*^9}],
|
---|
2942 |
|
---|
2943 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
2944 | * * * * * *)\"\>"], "Print",
|
---|
2945 | CellChangeTimes->{
|
---|
2946 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2947 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2948 | 3.581159747025696*^9}],
|
---|
2949 |
|
---|
2950 | Cell[BoxData[
|
---|
2951 | InterpretationBox[
|
---|
2952 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "8"}],
|
---|
2953 | SequenceForm["Vertex ", 8],
|
---|
2954 | Editable->False]], "Print",
|
---|
2955 | CellChangeTimes->{
|
---|
2956 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2957 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2958 | 3.581159747029901*^9}],
|
---|
2959 |
|
---|
2960 | Cell[BoxData[
|
---|
2961 | InterpretationBox[
|
---|
2962 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
2963 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2964 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2965 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
2966 | Editable->False]], "Print",
|
---|
2967 | CellChangeTimes->{
|
---|
2968 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2969 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2970 | 3.581159747036425*^9}],
|
---|
2971 |
|
---|
2972 | Cell[BoxData[
|
---|
2973 | InterpretationBox[
|
---|
2974 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
2975 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2976 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2977 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
2978 | Editable->False]], "Print",
|
---|
2979 | CellChangeTimes->{
|
---|
2980 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2981 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2982 | 3.581159747041359*^9}],
|
---|
2983 |
|
---|
2984 | Cell[BoxData[
|
---|
2985 | InterpretationBox[
|
---|
2986 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
2987 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
2988 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
2989 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
2990 | Editable->False]], "Print",
|
---|
2991 | CellChangeTimes->{
|
---|
2992 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
2993 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
2994 | 3.581159747045637*^9}],
|
---|
2995 |
|
---|
2996 | Cell[BoxData[
|
---|
2997 | InterpretationBox[
|
---|
2998 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
2999 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3000 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3001 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
|
---|
3002 | Editable->False]], "Print",
|
---|
3003 | CellChangeTimes->{
|
---|
3004 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3005 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3006 | 3.5811597470505342`*^9}],
|
---|
3007 |
|
---|
3008 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3009 | CellChangeTimes->{
|
---|
3010 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3011 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3012 | 3.581159747054731*^9}],
|
---|
3013 |
|
---|
3014 | Cell[BoxData[
|
---|
3015 | RowBox[{
|
---|
3016 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3017 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3018 | SubscriptBox["f",
|
---|
3019 | RowBox[{
|
---|
3020 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3021 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3022 | SubscriptBox["f",
|
---|
3023 | RowBox[{
|
---|
3024 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3025 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3026 | SubscriptBox["\[Eta]",
|
---|
3027 | RowBox[{
|
---|
3028 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3029 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3030 | SubscriptBox["\[Eta]",
|
---|
3031 | RowBox[{
|
---|
3032 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3033 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3034 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3035 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3036 | SubscriptBox["f",
|
---|
3037 | RowBox[{
|
---|
3038 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3039 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
3040 | SubscriptBox["f",
|
---|
3041 | RowBox[{
|
---|
3042 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
3043 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3044 | SubscriptBox["\[Eta]",
|
---|
3045 | RowBox[{
|
---|
3046 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3047 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3048 | SubscriptBox["\[Eta]",
|
---|
3049 | RowBox[{
|
---|
3050 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3051 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3052 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3053 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3054 | SubscriptBox["f",
|
---|
3055 | RowBox[{
|
---|
3056 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3057 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3058 | SubscriptBox["f",
|
---|
3059 | RowBox[{
|
---|
3060 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3061 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3062 | SubscriptBox["\[Eta]",
|
---|
3063 | RowBox[{
|
---|
3064 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3065 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
3066 | SubscriptBox["\[Eta]",
|
---|
3067 | RowBox[{
|
---|
3068 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3069 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3070 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3071 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3072 | SubscriptBox["f",
|
---|
3073 | RowBox[{
|
---|
3074 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3075 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
3076 | SubscriptBox["f",
|
---|
3077 | RowBox[{
|
---|
3078 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
3079 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3080 | SubscriptBox["\[Eta]",
|
---|
3081 | RowBox[{
|
---|
3082 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3083 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
3084 | SubscriptBox["\[Eta]",
|
---|
3085 | RowBox[{
|
---|
3086 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3087 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3088 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3089 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3090 | SubscriptBox["f",
|
---|
3091 | RowBox[{
|
---|
3092 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3093 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3094 | SubscriptBox["f",
|
---|
3095 | RowBox[{
|
---|
3096 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3097 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3098 | SubscriptBox["\[Eta]",
|
---|
3099 | RowBox[{
|
---|
3100 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3101 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
3102 | SubscriptBox["\[Eta]",
|
---|
3103 | RowBox[{
|
---|
3104 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3105 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3106 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3107 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3108 | SubscriptBox["f",
|
---|
3109 | RowBox[{
|
---|
3110 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3111 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3112 | SubscriptBox["f",
|
---|
3113 | RowBox[{
|
---|
3114 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3115 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3116 | SubscriptBox["\[Eta]",
|
---|
3117 | RowBox[{
|
---|
3118 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3119 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
3120 | SubscriptBox["\[Eta]",
|
---|
3121 | RowBox[{
|
---|
3122 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3123 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
|
---|
3124 | CellChangeTimes->{
|
---|
3125 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3126 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3127 | 3.5811597470598173`*^9}],
|
---|
3128 |
|
---|
3129 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3130 | * * * * * *)\"\>"], "Print",
|
---|
3131 | CellChangeTimes->{
|
---|
3132 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3133 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3134 | 3.581159747066896*^9}],
|
---|
3135 |
|
---|
3136 | Cell[BoxData[
|
---|
3137 | InterpretationBox[
|
---|
3138 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "9"}],
|
---|
3139 | SequenceForm["Vertex ", 9],
|
---|
3140 | Editable->False]], "Print",
|
---|
3141 | CellChangeTimes->{
|
---|
3142 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3143 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3144 | 3.581159747071403*^9}],
|
---|
3145 |
|
---|
3146 | Cell[BoxData[
|
---|
3147 | InterpretationBox[
|
---|
3148 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3149 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3150 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3151 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
3152 | Editable->False]], "Print",
|
---|
3153 | CellChangeTimes->{
|
---|
3154 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3155 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3156 | 3.581159747075747*^9}],
|
---|
3157 |
|
---|
3158 | Cell[BoxData[
|
---|
3159 | InterpretationBox[
|
---|
3160 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3161 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3162 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3163 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
3164 | Editable->False]], "Print",
|
---|
3165 | CellChangeTimes->{
|
---|
3166 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3167 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3168 | 3.581159747080346*^9}],
|
---|
3169 |
|
---|
3170 | Cell[BoxData[
|
---|
3171 | InterpretationBox[
|
---|
3172 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
3173 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3174 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3175 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
3176 | Editable->False]], "Print",
|
---|
3177 | CellChangeTimes->{
|
---|
3178 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3179 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3180 | 3.581159747084772*^9}],
|
---|
3181 |
|
---|
3182 | Cell[BoxData[
|
---|
3183 | InterpretationBox[
|
---|
3184 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
3185 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
3186 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
3187 | SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
3188 | Editable->False]], "Print",
|
---|
3189 | CellChangeTimes->{
|
---|
3190 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3191 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3192 | 3.581159747089181*^9}],
|
---|
3193 |
|
---|
3194 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3195 | CellChangeTimes->{
|
---|
3196 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3197 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3198 | 3.5811597470934343`*^9}],
|
---|
3199 |
|
---|
3200 | Cell[BoxData[
|
---|
3201 | RowBox[{
|
---|
3202 | RowBox[{
|
---|
3203 | SubscriptBox["g", "Agg"], " ",
|
---|
3204 | SubscriptBox["g", "s"], " ",
|
---|
3205 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3206 | SubscriptBox["s", "a"], " ",
|
---|
3207 | SubscriptBox["\[Epsilon]",
|
---|
3208 | RowBox[{
|
---|
3209 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3210 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3211 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
|
---|
3212 | SubscriptBox["f",
|
---|
3213 | RowBox[{
|
---|
3214 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3215 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3216 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3217 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+",
|
---|
3218 | RowBox[{
|
---|
3219 | SubscriptBox["g", "Agg"], " ",
|
---|
3220 | SubscriptBox["g", "s"], " ",
|
---|
3221 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3222 | SubscriptBox["s", "a"], " ",
|
---|
3223 | SubscriptBox["\[Epsilon]",
|
---|
3224 | RowBox[{
|
---|
3225 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3226 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3227 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
|
---|
3228 | SubscriptBox["f",
|
---|
3229 | RowBox[{
|
---|
3230 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3231 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3232 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3233 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+",
|
---|
3234 | RowBox[{
|
---|
3235 | SubscriptBox["g", "Agg"], " ",
|
---|
3236 | SubscriptBox["g", "s"], " ",
|
---|
3237 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3238 | SubscriptBox["s", "a"], " ",
|
---|
3239 | SubscriptBox["\[Epsilon]",
|
---|
3240 | RowBox[{
|
---|
3241 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3242 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3243 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
|
---|
3244 | SubscriptBox["f",
|
---|
3245 | RowBox[{
|
---|
3246 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3247 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3248 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3249 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
|
---|
3250 | RowBox[{
|
---|
3251 | SubscriptBox["c", "a"], " ",
|
---|
3252 | SubscriptBox["g", "Hgg"], " ",
|
---|
3253 | SubscriptBox["g", "s"], " ",
|
---|
3254 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3255 | SubscriptBox["f",
|
---|
3256 | RowBox[{
|
---|
3257 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3258 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3259 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3260 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
3261 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
3262 | SubscriptBox["\[Eta]",
|
---|
3263 | RowBox[{
|
---|
3264 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3265 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
3266 | RowBox[{
|
---|
3267 | SubscriptBox["c", "a"], " ",
|
---|
3268 | SubscriptBox["g", "Hgg"], " ",
|
---|
3269 | SubscriptBox["g", "s"], " ",
|
---|
3270 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3271 | SubscriptBox["f",
|
---|
3272 | RowBox[{
|
---|
3273 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3274 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3275 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3276 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
3277 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
3278 | SubscriptBox["\[Eta]",
|
---|
3279 | RowBox[{
|
---|
3280 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3281 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
3282 | RowBox[{
|
---|
3283 | SubscriptBox["c", "a"], " ",
|
---|
3284 | SubscriptBox["g", "Hgg"], " ",
|
---|
3285 | SubscriptBox["g", "s"], " ",
|
---|
3286 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3287 | SubscriptBox["f",
|
---|
3288 | RowBox[{
|
---|
3289 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3290 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3291 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3292 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
3293 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
3294 | SubscriptBox["\[Eta]",
|
---|
3295 | RowBox[{
|
---|
3296 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3297 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3298 | RowBox[{
|
---|
3299 | SubscriptBox["c", "a"], " ",
|
---|
3300 | SubscriptBox["g", "Hgg"], " ",
|
---|
3301 | SubscriptBox["g", "s"], " ",
|
---|
3302 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3303 | SubscriptBox["f",
|
---|
3304 | RowBox[{
|
---|
3305 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3306 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3307 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3308 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
3309 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
3310 | SubscriptBox["\[Eta]",
|
---|
3311 | RowBox[{
|
---|
3312 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3313 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3314 | RowBox[{
|
---|
3315 | SubscriptBox["c", "a"], " ",
|
---|
3316 | SubscriptBox["g", "Hgg"], " ",
|
---|
3317 | SubscriptBox["g", "s"], " ",
|
---|
3318 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3319 | SubscriptBox["f",
|
---|
3320 | RowBox[{
|
---|
3321 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3322 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3323 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3324 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
3325 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
3326 | SubscriptBox["\[Eta]",
|
---|
3327 | RowBox[{
|
---|
3328 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3329 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
3330 | RowBox[{
|
---|
3331 | SubscriptBox["c", "a"], " ",
|
---|
3332 | SubscriptBox["g", "Hgg"], " ",
|
---|
3333 | SubscriptBox["g", "s"], " ",
|
---|
3334 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3335 | SubscriptBox["f",
|
---|
3336 | RowBox[{
|
---|
3337 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3338 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3339 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
3340 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
3341 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
3342 | SubscriptBox["\[Eta]",
|
---|
3343 | RowBox[{
|
---|
3344 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3345 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
|
---|
3346 | CellChangeTimes->{
|
---|
3347 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3348 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3349 | 3.5811597471143837`*^9}],
|
---|
3350 |
|
---|
3351 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3352 | * * * * * *)\"\>"], "Print",
|
---|
3353 | CellChangeTimes->{
|
---|
3354 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3355 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3356 | 3.581159747121714*^9}],
|
---|
3357 |
|
---|
3358 | Cell[BoxData[
|
---|
3359 | InterpretationBox[
|
---|
3360 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "10"}],
|
---|
3361 | SequenceForm["Vertex ", 10],
|
---|
3362 | Editable->False]], "Print",
|
---|
3363 | CellChangeTimes->{
|
---|
3364 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3365 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3366 | 3.581159747125943*^9}],
|
---|
3367 |
|
---|
3368 | Cell[BoxData[
|
---|
3369 | InterpretationBox[
|
---|
3370 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3371 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3372 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3373 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
3374 | Editable->False]], "Print",
|
---|
3375 | CellChangeTimes->{
|
---|
3376 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3377 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3378 | 3.581159747134646*^9}],
|
---|
3379 |
|
---|
3380 | Cell[BoxData[
|
---|
3381 | InterpretationBox[
|
---|
3382 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3383 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3384 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3385 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
3386 | Editable->False]], "Print",
|
---|
3387 | CellChangeTimes->{
|
---|
3388 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3389 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3390 | 3.581159747150731*^9}],
|
---|
3391 |
|
---|
3392 | Cell[BoxData[
|
---|
3393 | InterpretationBox[
|
---|
3394 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
3395 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3396 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3397 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
3398 | Editable->False]], "Print",
|
---|
3399 | CellChangeTimes->{
|
---|
3400 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3401 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3402 | 3.581159747319437*^9}],
|
---|
3403 |
|
---|
3404 | Cell[BoxData[
|
---|
3405 | InterpretationBox[
|
---|
3406 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
3407 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
3408 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
3409 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
|
---|
3410 | Editable->False]], "Print",
|
---|
3411 | CellChangeTimes->{
|
---|
3412 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3413 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3414 | 3.581159747323792*^9}],
|
---|
3415 |
|
---|
3416 | Cell[BoxData[
|
---|
3417 | InterpretationBox[
|
---|
3418 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5",
|
---|
3419 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
3420 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
3421 | SequenceForm["Particle ", 5, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
3422 | Editable->False]], "Print",
|
---|
3423 | CellChangeTimes->{
|
---|
3424 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3425 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3426 | 3.581159747328158*^9}],
|
---|
3427 |
|
---|
3428 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3429 | CellChangeTimes->{
|
---|
3430 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3431 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3432 | 3.581159747332593*^9}],
|
---|
3433 |
|
---|
3434 | Cell[BoxData[
|
---|
3435 | RowBox[{
|
---|
3436 | RowBox[{
|
---|
3437 | RowBox[{"-", "\[ImaginaryI]"}], " ",
|
---|
3438 | SubscriptBox["g", "Agg"], " ",
|
---|
3439 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3440 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3441 | SubscriptBox["s", "a"], " ",
|
---|
3442 | SubscriptBox["\[Epsilon]",
|
---|
3443 | RowBox[{
|
---|
3444 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3445 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3446 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3447 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3448 | SubscriptBox["f",
|
---|
3449 | RowBox[{
|
---|
3450 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3451 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3452 | SubscriptBox["f",
|
---|
3453 | RowBox[{
|
---|
3454 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3455 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]]}], "+",
|
---|
3456 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3457 | SubscriptBox["g", "Agg"], " ",
|
---|
3458 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3459 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3460 | SubscriptBox["s", "a"], " ",
|
---|
3461 | SubscriptBox["\[Epsilon]",
|
---|
3462 | RowBox[{
|
---|
3463 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3464 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3465 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3466 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3467 | SubscriptBox["f",
|
---|
3468 | RowBox[{
|
---|
3469 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3470 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3471 | SubscriptBox["f",
|
---|
3472 | RowBox[{
|
---|
3473 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3474 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "-",
|
---|
3475 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3476 | SubscriptBox["g", "Agg"], " ",
|
---|
3477 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3478 | SubscriptBox["\[Kappa]", "Agg"], " ",
|
---|
3479 | SubscriptBox["s", "a"], " ",
|
---|
3480 | SubscriptBox["\[Epsilon]",
|
---|
3481 | RowBox[{
|
---|
3482 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3483 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3484 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3485 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3486 | SubscriptBox["f",
|
---|
3487 | RowBox[{
|
---|
3488 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3489 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
3490 | SubscriptBox["f",
|
---|
3491 | RowBox[{
|
---|
3492 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
3493 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]]}], "+",
|
---|
3494 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3495 | SubscriptBox["c", "a"], " ",
|
---|
3496 | SubscriptBox["g", "Hgg"], " ",
|
---|
3497 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3498 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3499 | SubscriptBox["f",
|
---|
3500 | RowBox[{
|
---|
3501 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3502 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3503 | SubscriptBox["f",
|
---|
3504 | RowBox[{
|
---|
3505 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3506 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3507 | SubscriptBox["\[Eta]",
|
---|
3508 | RowBox[{
|
---|
3509 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3510 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3511 | SubscriptBox["\[Eta]",
|
---|
3512 | RowBox[{
|
---|
3513 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3514 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3515 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3516 | SubscriptBox["c", "a"], " ",
|
---|
3517 | SubscriptBox["g", "Hgg"], " ",
|
---|
3518 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3519 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3520 | SubscriptBox["f",
|
---|
3521 | RowBox[{
|
---|
3522 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3523 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
3524 | SubscriptBox["f",
|
---|
3525 | RowBox[{
|
---|
3526 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
3527 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3528 | SubscriptBox["\[Eta]",
|
---|
3529 | RowBox[{
|
---|
3530 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3531 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
3532 | SubscriptBox["\[Eta]",
|
---|
3533 | RowBox[{
|
---|
3534 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3535 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
3536 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3537 | SubscriptBox["c", "a"], " ",
|
---|
3538 | SubscriptBox["g", "Hgg"], " ",
|
---|
3539 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3540 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3541 | SubscriptBox["f",
|
---|
3542 | RowBox[{
|
---|
3543 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3544 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3545 | SubscriptBox["f",
|
---|
3546 | RowBox[{
|
---|
3547 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3548 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3549 | SubscriptBox["\[Eta]",
|
---|
3550 | RowBox[{
|
---|
3551 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3552 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
3553 | SubscriptBox["\[Eta]",
|
---|
3554 | RowBox[{
|
---|
3555 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3556 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3557 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3558 | SubscriptBox["c", "a"], " ",
|
---|
3559 | SubscriptBox["g", "Hgg"], " ",
|
---|
3560 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3561 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3562 | SubscriptBox["f",
|
---|
3563 | RowBox[{
|
---|
3564 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3565 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
3566 | SubscriptBox["f",
|
---|
3567 | RowBox[{
|
---|
3568 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
3569 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3570 | SubscriptBox["\[Eta]",
|
---|
3571 | RowBox[{
|
---|
3572 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3573 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
3574 | SubscriptBox["\[Eta]",
|
---|
3575 | RowBox[{
|
---|
3576 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
3577 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3578 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3579 | SubscriptBox["c", "a"], " ",
|
---|
3580 | SubscriptBox["g", "Hgg"], " ",
|
---|
3581 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3582 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3583 | SubscriptBox["f",
|
---|
3584 | RowBox[{
|
---|
3585 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3586 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3587 | SubscriptBox["f",
|
---|
3588 | RowBox[{
|
---|
3589 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3590 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3591 | SubscriptBox["\[Eta]",
|
---|
3592 | RowBox[{
|
---|
3593 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3594 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
3595 | SubscriptBox["\[Eta]",
|
---|
3596 | RowBox[{
|
---|
3597 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3598 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
3599 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3600 | SubscriptBox["c", "a"], " ",
|
---|
3601 | SubscriptBox["g", "Hgg"], " ",
|
---|
3602 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
3603 | SubscriptBox["\[Kappa]", "Hgg"], " ",
|
---|
3604 | SubscriptBox["f",
|
---|
3605 | RowBox[{
|
---|
3606 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
3607 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
3608 | SubscriptBox["f",
|
---|
3609 | RowBox[{
|
---|
3610 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
3611 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
3612 | SubscriptBox["\[Eta]",
|
---|
3613 | RowBox[{
|
---|
3614 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
3615 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
3616 | SubscriptBox["\[Eta]",
|
---|
3617 | RowBox[{
|
---|
3618 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
3619 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
|
---|
3620 | CellChangeTimes->{
|
---|
3621 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3622 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3623 | 3.581159747338441*^9}],
|
---|
3624 |
|
---|
3625 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3626 | * * * * * *)\"\>"], "Print",
|
---|
3627 | CellChangeTimes->{
|
---|
3628 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3629 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3630 | 3.58115974735032*^9}],
|
---|
3631 |
|
---|
3632 | Cell[BoxData[
|
---|
3633 | InterpretationBox[
|
---|
3634 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "11"}],
|
---|
3635 | SequenceForm["Vertex ", 11],
|
---|
3636 | Editable->False]], "Print",
|
---|
3637 | CellChangeTimes->{
|
---|
3638 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3639 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3640 | 3.58115974735434*^9}],
|
---|
3641 |
|
---|
3642 | Cell[BoxData[
|
---|
3643 | InterpretationBox[
|
---|
3644 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3645 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3646 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
3647 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
3648 | Editable->False]], "Print",
|
---|
3649 | CellChangeTimes->{
|
---|
3650 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3651 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3652 | 3.5811597473581142`*^9}],
|
---|
3653 |
|
---|
3654 | Cell[BoxData[
|
---|
3655 | InterpretationBox[
|
---|
3656 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3657 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3658 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
3659 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
3660 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
3661 | Editable->False]], "Print",
|
---|
3662 | CellChangeTimes->{
|
---|
3663 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3664 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3665 | 3.58115974737466*^9}],
|
---|
3666 |
|
---|
3667 | Cell[BoxData[
|
---|
3668 | InterpretationBox[
|
---|
3669 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
3670 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
3671 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
3672 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
3673 | Editable->False]], "Print",
|
---|
3674 | CellChangeTimes->{
|
---|
3675 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3676 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3677 | 3.581159747381386*^9}],
|
---|
3678 |
|
---|
3679 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3680 | CellChangeTimes->{
|
---|
3681 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3682 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3683 | 3.5811597473859997`*^9}],
|
---|
3684 |
|
---|
3685 | Cell[BoxData[
|
---|
3686 | RowBox[{
|
---|
3687 | FractionBox[
|
---|
3688 | RowBox[{
|
---|
3689 | SubscriptBox["\[Kappa]", "Abb"], " ", "MB", " ",
|
---|
3690 | SubscriptBox["s", "a"], " ",
|
---|
3691 | SubsuperscriptBox["\[Gamma]",
|
---|
3692 | RowBox[{
|
---|
3693 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3694 | SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ",
|
---|
3695 | SubscriptBox["\[Delta]",
|
---|
3696 | RowBox[{
|
---|
3697 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3698 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-",
|
---|
3699 | FractionBox[
|
---|
3700 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3701 | SubscriptBox["c", "a"], " ",
|
---|
3702 | SubscriptBox["\[Kappa]", "Hbb"], " ",
|
---|
3703 | SubsuperscriptBox[
|
---|
3704 | RowBox[{"(",
|
---|
3705 | TemplateBox[{"y","d"},
|
---|
3706 | "Superscript"], ")"}],
|
---|
3707 | RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
|
---|
3708 | SubscriptBox["\[Delta]",
|
---|
3709 | RowBox[{
|
---|
3710 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3711 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
3712 | SubscriptBox[
|
---|
3713 | SubscriptBox["P", "\<\"-\"\>"],
|
---|
3714 | RowBox[{
|
---|
3715 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3716 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
3717 | SqrtBox["2"]], "-",
|
---|
3718 | FractionBox[
|
---|
3719 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3720 | SubscriptBox["c", "a"], " ",
|
---|
3721 | SubscriptBox["\[Kappa]", "Hbb"], " ",
|
---|
3722 | SubscriptBox["\[Delta]",
|
---|
3723 | RowBox[{
|
---|
3724 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3725 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
3726 | SubscriptBox[
|
---|
3727 | SubscriptBox["P", "\<\"+\"\>"],
|
---|
3728 | RowBox[{
|
---|
3729 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3730 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
3731 | SubscriptBox[
|
---|
3732 | TemplateBox[{"y","d"},
|
---|
3733 | "Superscript"],
|
---|
3734 | RowBox[{"3", ",", "3"}]]}],
|
---|
3735 | SqrtBox["2"]]}]], "Print",
|
---|
3736 | CellChangeTimes->{
|
---|
3737 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3738 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3739 | 3.581159747391428*^9}],
|
---|
3740 |
|
---|
3741 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3742 | * * * * * *)\"\>"], "Print",
|
---|
3743 | CellChangeTimes->{
|
---|
3744 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3745 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3746 | 3.5811597473978643`*^9}],
|
---|
3747 |
|
---|
3748 | Cell[BoxData[
|
---|
3749 | InterpretationBox[
|
---|
3750 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "12"}],
|
---|
3751 | SequenceForm["Vertex ", 12],
|
---|
3752 | Editable->False]], "Print",
|
---|
3753 | CellChangeTimes->{
|
---|
3754 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3755 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3756 | 3.581159747402664*^9}],
|
---|
3757 |
|
---|
3758 | Cell[BoxData[
|
---|
3759 | InterpretationBox[
|
---|
3760 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3761 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3762 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
3763 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
3764 | Editable->False]], "Print",
|
---|
3765 | CellChangeTimes->{
|
---|
3766 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3767 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3768 | 3.581159747406969*^9}],
|
---|
3769 |
|
---|
3770 | Cell[BoxData[
|
---|
3771 | InterpretationBox[
|
---|
3772 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3773 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3774 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
3775 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
3776 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
3777 | Editable->False]], "Print",
|
---|
3778 | CellChangeTimes->{
|
---|
3779 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3780 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3781 | 3.581159747411677*^9}],
|
---|
3782 |
|
---|
3783 | Cell[BoxData[
|
---|
3784 | InterpretationBox[
|
---|
3785 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
3786 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
3787 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
3788 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
3789 | Editable->False]], "Print",
|
---|
3790 | CellChangeTimes->{
|
---|
3791 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3792 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3793 | 3.581159747416778*^9}],
|
---|
3794 |
|
---|
3795 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3796 | CellChangeTimes->{
|
---|
3797 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3798 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3799 | 3.5811597474217587`*^9}],
|
---|
3800 |
|
---|
3801 | Cell[BoxData[
|
---|
3802 | RowBox[{
|
---|
3803 | FractionBox[
|
---|
3804 | RowBox[{
|
---|
3805 | SubscriptBox["\[Kappa]", "All"], " ", "MTA", " ",
|
---|
3806 | SubscriptBox["s", "a"], " ",
|
---|
3807 | SubsuperscriptBox["\[Gamma]",
|
---|
3808 | RowBox[{
|
---|
3809 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3810 | SubscriptBox["\<\"s\"\>", "1"]}], "5"]}], "vev"], "-",
|
---|
3811 | FractionBox[
|
---|
3812 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3813 | SubscriptBox["c", "a"], " ",
|
---|
3814 | SubscriptBox["\[Kappa]", "Hll"], " ",
|
---|
3815 | SubsuperscriptBox[
|
---|
3816 | RowBox[{"(",
|
---|
3817 | TemplateBox[{"y","l"},
|
---|
3818 | "Superscript"], ")"}],
|
---|
3819 | RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
|
---|
3820 | SubscriptBox[
|
---|
3821 | SubscriptBox["P", "\<\"-\"\>"],
|
---|
3822 | RowBox[{
|
---|
3823 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3824 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
3825 | SqrtBox["2"]], "-",
|
---|
3826 | FractionBox[
|
---|
3827 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3828 | SubscriptBox["c", "a"], " ",
|
---|
3829 | SubscriptBox["\[Kappa]", "Hll"], " ",
|
---|
3830 | SubscriptBox[
|
---|
3831 | SubscriptBox["P", "\<\"+\"\>"],
|
---|
3832 | RowBox[{
|
---|
3833 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3834 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
3835 | SubscriptBox[
|
---|
3836 | TemplateBox[{"y","l"},
|
---|
3837 | "Superscript"],
|
---|
3838 | RowBox[{"3", ",", "3"}]]}],
|
---|
3839 | SqrtBox["2"]]}]], "Print",
|
---|
3840 | CellChangeTimes->{
|
---|
3841 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3842 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3843 | 3.581159747427003*^9}],
|
---|
3844 |
|
---|
3845 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3846 | * * * * * *)\"\>"], "Print",
|
---|
3847 | CellChangeTimes->{
|
---|
3848 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3849 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3850 | 3.58115974743258*^9}],
|
---|
3851 |
|
---|
3852 | Cell[BoxData[
|
---|
3853 | InterpretationBox[
|
---|
3854 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "13"}],
|
---|
3855 | SequenceForm["Vertex ", 13],
|
---|
3856 | Editable->False]], "Print",
|
---|
3857 | CellChangeTimes->{
|
---|
3858 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3859 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3860 | 3.58115974743717*^9}],
|
---|
3861 |
|
---|
3862 | Cell[BoxData[
|
---|
3863 | InterpretationBox[
|
---|
3864 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3865 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3866 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
3867 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
|
---|
3868 | Editable->False]], "Print",
|
---|
3869 | CellChangeTimes->{
|
---|
3870 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3871 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3872 | 3.5811597474426126`*^9}],
|
---|
3873 |
|
---|
3874 | Cell[BoxData[
|
---|
3875 | InterpretationBox[
|
---|
3876 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3877 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3878 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
3879 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
3880 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
3881 | Editable->False]], "Print",
|
---|
3882 | CellChangeTimes->{
|
---|
3883 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3884 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3885 | 3.581159747447309*^9}],
|
---|
3886 |
|
---|
3887 | Cell[BoxData[
|
---|
3888 | InterpretationBox[
|
---|
3889 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
3890 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
3891 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
3892 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
3893 | Editable->False]], "Print",
|
---|
3894 | CellChangeTimes->{
|
---|
3895 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3896 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3897 | 3.581159747452277*^9}],
|
---|
3898 |
|
---|
3899 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
3900 | CellChangeTimes->{
|
---|
3901 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3902 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3903 | 3.5811597474566402`*^9}],
|
---|
3904 |
|
---|
3905 | Cell[BoxData[
|
---|
3906 | RowBox[{
|
---|
3907 | FractionBox[
|
---|
3908 | RowBox[{
|
---|
3909 | SubscriptBox["\[Kappa]", "Att"], " ", "MT", " ",
|
---|
3910 | SubscriptBox["s", "a"], " ",
|
---|
3911 | SubsuperscriptBox["\[Gamma]",
|
---|
3912 | RowBox[{
|
---|
3913 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3914 | SubscriptBox["\<\"s\"\>", "1"]}], "5"], " ",
|
---|
3915 | SubscriptBox["\[Delta]",
|
---|
3916 | RowBox[{
|
---|
3917 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3918 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "vev"], "-",
|
---|
3919 | FractionBox[
|
---|
3920 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3921 | SubscriptBox["c", "a"], " ",
|
---|
3922 | SubscriptBox["\[Kappa]", "Htt"], " ",
|
---|
3923 | SubsuperscriptBox[
|
---|
3924 | RowBox[{"(",
|
---|
3925 | TemplateBox[{"y","u"},
|
---|
3926 | "Superscript"], ")"}],
|
---|
3927 | RowBox[{"3", ",", "3"}], "\<\"*\"\>"], " ",
|
---|
3928 | SubscriptBox["\[Delta]",
|
---|
3929 | RowBox[{
|
---|
3930 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3931 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
3932 | SubscriptBox[
|
---|
3933 | SubscriptBox["P", "\<\"-\"\>"],
|
---|
3934 | RowBox[{
|
---|
3935 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3936 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
3937 | SqrtBox["2"]], "-",
|
---|
3938 | FractionBox[
|
---|
3939 | RowBox[{"\[ImaginaryI]", " ",
|
---|
3940 | SubscriptBox["c", "a"], " ",
|
---|
3941 | SubscriptBox["\[Kappa]", "Htt"], " ",
|
---|
3942 | SubscriptBox["\[Delta]",
|
---|
3943 | RowBox[{
|
---|
3944 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
3945 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
3946 | SubscriptBox[
|
---|
3947 | SubscriptBox["P", "\<\"+\"\>"],
|
---|
3948 | RowBox[{
|
---|
3949 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
3950 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
3951 | SubscriptBox[
|
---|
3952 | TemplateBox[{"y","u"},
|
---|
3953 | "Superscript"],
|
---|
3954 | RowBox[{"3", ",", "3"}]]}],
|
---|
3955 | SqrtBox["2"]]}]], "Print",
|
---|
3956 | CellChangeTimes->{
|
---|
3957 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3958 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3959 | 3.581159747462173*^9}],
|
---|
3960 |
|
---|
3961 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
3962 | * * * * * *)\"\>"], "Print",
|
---|
3963 | CellChangeTimes->{
|
---|
3964 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3965 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3966 | 3.581159747467955*^9}],
|
---|
3967 |
|
---|
3968 | Cell[BoxData[
|
---|
3969 | InterpretationBox[
|
---|
3970 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "14"}],
|
---|
3971 | SequenceForm["Vertex ", 14],
|
---|
3972 | Editable->False]], "Print",
|
---|
3973 | CellChangeTimes->{
|
---|
3974 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3975 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3976 | 3.581159747472177*^9}],
|
---|
3977 |
|
---|
3978 | Cell[BoxData[
|
---|
3979 | InterpretationBox[
|
---|
3980 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
3981 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3982 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
3983 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
3984 | Editable->False]], "Print",
|
---|
3985 | CellChangeTimes->{
|
---|
3986 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
3987 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
3988 | 3.5811597474763927`*^9}],
|
---|
3989 |
|
---|
3990 | Cell[BoxData[
|
---|
3991 | InterpretationBox[
|
---|
3992 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
3993 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
3994 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
3995 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
3996 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
3997 | Editable->False]], "Print",
|
---|
3998 | CellChangeTimes->{
|
---|
3999 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4000 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4001 | 3.5811597474822893`*^9}],
|
---|
4002 |
|
---|
4003 | Cell[BoxData[
|
---|
4004 | InterpretationBox[
|
---|
4005 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4006 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4007 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4008 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
4009 | Editable->False]], "Print",
|
---|
4010 | CellChangeTimes->{
|
---|
4011 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4012 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4013 | 3.581159747487668*^9}],
|
---|
4014 |
|
---|
4015 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4016 | CellChangeTimes->{
|
---|
4017 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4018 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4019 | 3.581159747495528*^9}],
|
---|
4020 |
|
---|
4021 | Cell[BoxData[
|
---|
4022 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4023 | SubscriptBox["g", "s"], " ",
|
---|
4024 | SubsuperscriptBox["\[Gamma]",
|
---|
4025 | RowBox[{
|
---|
4026 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
4027 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
4028 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4029 | SubsuperscriptBox["T",
|
---|
4030 | RowBox[{
|
---|
4031 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
4032 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
4033 | SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
|
---|
4034 | CellChangeTimes->{
|
---|
4035 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4036 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4037 | 3.5811597475013733`*^9}],
|
---|
4038 |
|
---|
4039 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4040 | * * * * * *)\"\>"], "Print",
|
---|
4041 | CellChangeTimes->{
|
---|
4042 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4043 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4044 | 3.581159747506775*^9}],
|
---|
4045 |
|
---|
4046 | Cell[BoxData[
|
---|
4047 | InterpretationBox[
|
---|
4048 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "15"}],
|
---|
4049 | SequenceForm["Vertex ", 15],
|
---|
4050 | Editable->False]], "Print",
|
---|
4051 | CellChangeTimes->{
|
---|
4052 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4053 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4054 | 3.581159747515459*^9}],
|
---|
4055 |
|
---|
4056 | Cell[BoxData[
|
---|
4057 | InterpretationBox[
|
---|
4058 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4059 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4060 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
4061 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
4062 | Editable->False]], "Print",
|
---|
4063 | CellChangeTimes->{
|
---|
4064 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4065 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4066 | 3.58115974752065*^9}],
|
---|
4067 |
|
---|
4068 | Cell[BoxData[
|
---|
4069 | InterpretationBox[
|
---|
4070 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4071 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4072 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4073 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
4074 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
4075 | Editable->False]], "Print",
|
---|
4076 | CellChangeTimes->{
|
---|
4077 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4078 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4079 | 3.5811597475258636`*^9}],
|
---|
4080 |
|
---|
4081 | Cell[BoxData[
|
---|
4082 | InterpretationBox[
|
---|
4083 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4084 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4085 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4086 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
4087 | Editable->False]], "Print",
|
---|
4088 | CellChangeTimes->{
|
---|
4089 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4090 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4091 | 3.581159747531062*^9}],
|
---|
4092 |
|
---|
4093 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4094 | CellChangeTimes->{
|
---|
4095 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4096 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4097 | 3.581159747534914*^9}],
|
---|
4098 |
|
---|
4099 | Cell[BoxData[
|
---|
4100 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4101 | SubscriptBox["g", "s"], " ",
|
---|
4102 | SubsuperscriptBox["\[Gamma]",
|
---|
4103 | RowBox[{
|
---|
4104 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
4105 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
4106 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4107 | SubsuperscriptBox["T",
|
---|
4108 | RowBox[{
|
---|
4109 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
4110 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
4111 | SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
|
---|
4112 | CellChangeTimes->{
|
---|
4113 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4114 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4115 | 3.581159747539673*^9}],
|
---|
4116 |
|
---|
4117 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4118 | * * * * * *)\"\>"], "Print",
|
---|
4119 | CellChangeTimes->{
|
---|
4120 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4121 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4122 | 3.581159747545939*^9}],
|
---|
4123 |
|
---|
4124 | Cell[BoxData[
|
---|
4125 | InterpretationBox[
|
---|
4126 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "16"}],
|
---|
4127 | SequenceForm["Vertex ", 16],
|
---|
4128 | Editable->False]], "Print",
|
---|
4129 | CellChangeTimes->{
|
---|
4130 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4131 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4132 | 3.581159747550284*^9}],
|
---|
4133 |
|
---|
4134 | Cell[BoxData[
|
---|
4135 | InterpretationBox[
|
---|
4136 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4137 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4138 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4139 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
4140 | Editable->False]], "Print",
|
---|
4141 | CellChangeTimes->{
|
---|
4142 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4143 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4144 | 3.581159747554646*^9}],
|
---|
4145 |
|
---|
4146 | Cell[BoxData[
|
---|
4147 | InterpretationBox[
|
---|
4148 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4149 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4150 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
4151 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
4152 | Editable->False]], "Print",
|
---|
4153 | CellChangeTimes->{
|
---|
4154 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4155 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4156 | 3.581159747560543*^9}],
|
---|
4157 |
|
---|
4158 | Cell[BoxData[
|
---|
4159 | InterpretationBox[
|
---|
4160 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4161 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4162 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4163 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
4164 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
4165 | Editable->False]], "Print",
|
---|
4166 | CellChangeTimes->{
|
---|
4167 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4168 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4169 | 3.581159747572665*^9}],
|
---|
4170 |
|
---|
4171 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4172 | CellChangeTimes->{
|
---|
4173 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4174 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4175 | 3.58115974757755*^9}],
|
---|
4176 |
|
---|
4177 | Cell[BoxData[
|
---|
4178 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4179 | SubscriptBox["g", "s"], " ",
|
---|
4180 | SubsuperscriptBox["\[Gamma]",
|
---|
4181 | RowBox[{
|
---|
4182 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
4183 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
4184 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4185 | SubsuperscriptBox["T",
|
---|
4186 | RowBox[{
|
---|
4187 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
4188 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
4189 | SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
|
---|
4190 | CellChangeTimes->{
|
---|
4191 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4192 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4193 | 3.5811597475827093`*^9}],
|
---|
4194 |
|
---|
4195 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4196 | * * * * * *)\"\>"], "Print",
|
---|
4197 | CellChangeTimes->{
|
---|
4198 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4199 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4200 | 3.581159747593952*^9}],
|
---|
4201 |
|
---|
4202 | Cell[BoxData[
|
---|
4203 | InterpretationBox[
|
---|
4204 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "17"}],
|
---|
4205 | SequenceForm["Vertex ", 17],
|
---|
4206 | Editable->False]], "Print",
|
---|
4207 | CellChangeTimes->{
|
---|
4208 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4209 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4210 | 3.581159747601626*^9}],
|
---|
4211 |
|
---|
4212 | Cell[BoxData[
|
---|
4213 | InterpretationBox[
|
---|
4214 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4215 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4216 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
4217 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
4218 | Editable->False]], "Print",
|
---|
4219 | CellChangeTimes->{
|
---|
4220 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4221 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4222 | 3.5811597476057873`*^9}],
|
---|
4223 |
|
---|
4224 | Cell[BoxData[
|
---|
4225 | InterpretationBox[
|
---|
4226 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4227 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4228 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4229 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
4230 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
4231 | Editable->False]], "Print",
|
---|
4232 | CellChangeTimes->{
|
---|
4233 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4234 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4235 | 3.581159747611032*^9}],
|
---|
4236 |
|
---|
4237 | Cell[BoxData[
|
---|
4238 | InterpretationBox[
|
---|
4239 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4240 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4241 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4242 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
4243 | Editable->False]], "Print",
|
---|
4244 | CellChangeTimes->{
|
---|
4245 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4246 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4247 | 3.581159747615642*^9}],
|
---|
4248 |
|
---|
4249 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4250 | CellChangeTimes->{
|
---|
4251 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4252 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4253 | 3.581159747620447*^9}],
|
---|
4254 |
|
---|
4255 | Cell[BoxData[
|
---|
4256 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4257 | SubscriptBox["g", "s"], " ",
|
---|
4258 | SubsuperscriptBox["\[Gamma]",
|
---|
4259 | RowBox[{
|
---|
4260 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
4261 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
4262 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4263 | SubsuperscriptBox["T",
|
---|
4264 | RowBox[{
|
---|
4265 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
4266 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
4267 | SubscriptBox["\<\"a\"\>", "3"]]}]], "Print",
|
---|
4268 | CellChangeTimes->{
|
---|
4269 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4270 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4271 | 3.5811597476263742`*^9}],
|
---|
4272 |
|
---|
4273 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4274 | * * * * * *)\"\>"], "Print",
|
---|
4275 | CellChangeTimes->{
|
---|
4276 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4277 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4278 | 3.581159747630959*^9}],
|
---|
4279 |
|
---|
4280 | Cell[BoxData[
|
---|
4281 | InterpretationBox[
|
---|
4282 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "18"}],
|
---|
4283 | SequenceForm["Vertex ", 18],
|
---|
4284 | Editable->False]], "Print",
|
---|
4285 | CellChangeTimes->{
|
---|
4286 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4287 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4288 | 3.5811597476351757`*^9}],
|
---|
4289 |
|
---|
4290 | Cell[BoxData[
|
---|
4291 | InterpretationBox[
|
---|
4292 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4293 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4294 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4295 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
4296 | Editable->False]], "Print",
|
---|
4297 | CellChangeTimes->{
|
---|
4298 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4299 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4300 | 3.581159747640018*^9}],
|
---|
4301 |
|
---|
4302 | Cell[BoxData[
|
---|
4303 | InterpretationBox[
|
---|
4304 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4305 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4306 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
4307 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
4308 | Editable->False]], "Print",
|
---|
4309 | CellChangeTimes->{
|
---|
4310 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4311 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4312 | 3.581159747644957*^9}],
|
---|
4313 |
|
---|
4314 | Cell[BoxData[
|
---|
4315 | InterpretationBox[
|
---|
4316 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4317 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4318 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4319 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
4320 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
4321 | Editable->False]], "Print",
|
---|
4322 | CellChangeTimes->{
|
---|
4323 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4324 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4325 | 3.581159747653171*^9}],
|
---|
4326 |
|
---|
4327 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4328 | CellChangeTimes->{
|
---|
4329 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4330 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4331 | 3.581159747657748*^9}],
|
---|
4332 |
|
---|
4333 | Cell[BoxData[
|
---|
4334 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4335 | SubscriptBox["g", "s"], " ",
|
---|
4336 | SubsuperscriptBox["\[Gamma]",
|
---|
4337 | RowBox[{
|
---|
4338 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
4339 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
4340 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4341 | SubsuperscriptBox["T",
|
---|
4342 | RowBox[{
|
---|
4343 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
4344 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
4345 | SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
|
---|
4346 | CellChangeTimes->{
|
---|
4347 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4348 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4349 | 3.5811597476620502`*^9}],
|
---|
4350 |
|
---|
4351 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4352 | * * * * * *)\"\>"], "Print",
|
---|
4353 | CellChangeTimes->{
|
---|
4354 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4355 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4356 | 3.581159747666419*^9}],
|
---|
4357 |
|
---|
4358 | Cell[BoxData[
|
---|
4359 | InterpretationBox[
|
---|
4360 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "19"}],
|
---|
4361 | SequenceForm["Vertex ", 19],
|
---|
4362 | Editable->False]], "Print",
|
---|
4363 | CellChangeTimes->{
|
---|
4364 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4365 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4366 | 3.581159747671567*^9}],
|
---|
4367 |
|
---|
4368 | Cell[BoxData[
|
---|
4369 | InterpretationBox[
|
---|
4370 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4371 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4372 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
4373 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
4374 | Editable->False]], "Print",
|
---|
4375 | CellChangeTimes->{
|
---|
4376 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4377 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4378 | 3.5811597476766977`*^9}],
|
---|
4379 |
|
---|
4380 | Cell[BoxData[
|
---|
4381 | InterpretationBox[
|
---|
4382 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4383 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4384 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
4385 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
4386 | Editable->False]], "Print",
|
---|
4387 | CellChangeTimes->{
|
---|
4388 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4389 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4390 | 3.581159747681163*^9}],
|
---|
4391 |
|
---|
4392 | Cell[BoxData[
|
---|
4393 | InterpretationBox[
|
---|
4394 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4395 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
4396 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4397 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
4398 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
4399 | Editable->False]], "Print",
|
---|
4400 | CellChangeTimes->{
|
---|
4401 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4402 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4403 | 3.581159747709982*^9}],
|
---|
4404 |
|
---|
4405 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4406 | CellChangeTimes->{
|
---|
4407 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4408 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4409 | 3.581159747714191*^9}],
|
---|
4410 |
|
---|
4411 | Cell[BoxData[
|
---|
4412 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4413 | SubscriptBox["g", "s"], " ",
|
---|
4414 | SubsuperscriptBox["\[Gamma]",
|
---|
4415 | RowBox[{
|
---|
4416 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
4417 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
4418 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4419 | SubsuperscriptBox["T",
|
---|
4420 | RowBox[{
|
---|
4421 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
4422 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
4423 | SubscriptBox["\<\"a\"\>", "1"]]}]], "Print",
|
---|
4424 | CellChangeTimes->{
|
---|
4425 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4426 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4427 | 3.581159747718296*^9}],
|
---|
4428 |
|
---|
4429 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4430 | * * * * * *)\"\>"], "Print",
|
---|
4431 | CellChangeTimes->{
|
---|
4432 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4433 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4434 | 3.5811597477231827`*^9}],
|
---|
4435 |
|
---|
4436 | Cell[BoxData[
|
---|
4437 | InterpretationBox[
|
---|
4438 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "20"}],
|
---|
4439 | SequenceForm["Vertex ", 20],
|
---|
4440 | Editable->False]], "Print",
|
---|
4441 | CellChangeTimes->{
|
---|
4442 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4443 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4444 | 3.5811597477280273`*^9}],
|
---|
4445 |
|
---|
4446 | Cell[BoxData[
|
---|
4447 | InterpretationBox[
|
---|
4448 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4449 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4450 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
4451 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
4452 | Editable->False]], "Print",
|
---|
4453 | CellChangeTimes->{
|
---|
4454 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4455 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4456 | 3.5811597477330008`*^9}],
|
---|
4457 |
|
---|
4458 | Cell[BoxData[
|
---|
4459 | InterpretationBox[
|
---|
4460 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4461 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4462 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
4463 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
|
---|
4464 | Editable->False]], "Print",
|
---|
4465 | CellChangeTimes->{
|
---|
4466 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4467 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4468 | 3.581159747737774*^9}],
|
---|
4469 |
|
---|
4470 | Cell[BoxData[
|
---|
4471 | InterpretationBox[
|
---|
4472 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4473 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4474 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4475 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
4476 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
4477 | Editable->False]], "Print",
|
---|
4478 | CellChangeTimes->{
|
---|
4479 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4480 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4481 | 3.5811597477422123`*^9}],
|
---|
4482 |
|
---|
4483 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4484 | CellChangeTimes->{
|
---|
4485 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4486 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4487 | 3.5811597477463427`*^9}],
|
---|
4488 |
|
---|
4489 | Cell[BoxData[
|
---|
4490 | RowBox[{
|
---|
4491 | RowBox[{
|
---|
4492 | RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
|
---|
4493 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4494 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4495 | SubscriptBox["\[Eta]",
|
---|
4496 | RowBox[{
|
---|
4497 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4498 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
|
---|
4499 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
4500 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
4501 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4502 | SubscriptBox["\[Eta]",
|
---|
4503 | RowBox[{
|
---|
4504 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4505 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "+",
|
---|
4506 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
4507 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4508 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4509 | SubscriptBox["\[Eta]",
|
---|
4510 | RowBox[{
|
---|
4511 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4512 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
4513 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
4514 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4515 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4516 | SubscriptBox["\[Eta]",
|
---|
4517 | RowBox[{
|
---|
4518 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4519 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
4520 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
4521 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
4522 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4523 | SubscriptBox["\[Eta]",
|
---|
4524 | RowBox[{
|
---|
4525 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4526 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
4527 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
4528 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4529 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4530 | SubscriptBox["\[Eta]",
|
---|
4531 | RowBox[{
|
---|
4532 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4533 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
|
---|
4534 | CellChangeTimes->{
|
---|
4535 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4536 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4537 | 3.581159747750716*^9}],
|
---|
4538 |
|
---|
4539 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4540 | * * * * * *)\"\>"], "Print",
|
---|
4541 | CellChangeTimes->{
|
---|
4542 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4543 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4544 | 3.581159747755525*^9}],
|
---|
4545 |
|
---|
4546 | Cell[BoxData[
|
---|
4547 | InterpretationBox[
|
---|
4548 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "21"}],
|
---|
4549 | SequenceForm["Vertex ", 21],
|
---|
4550 | Editable->False]], "Print",
|
---|
4551 | CellChangeTimes->{
|
---|
4552 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4553 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4554 | 3.581159747759865*^9}],
|
---|
4555 |
|
---|
4556 | Cell[BoxData[
|
---|
4557 | InterpretationBox[
|
---|
4558 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4559 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4560 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
4561 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
4562 | Editable->False]], "Print",
|
---|
4563 | CellChangeTimes->{
|
---|
4564 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4565 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4566 | 3.581159747764269*^9}],
|
---|
4567 |
|
---|
4568 | Cell[BoxData[
|
---|
4569 | InterpretationBox[
|
---|
4570 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4571 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4572 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4573 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
4574 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
4575 | Editable->False]], "Print",
|
---|
4576 | CellChangeTimes->{
|
---|
4577 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4578 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4579 | 3.581159747768849*^9}],
|
---|
4580 |
|
---|
4581 | Cell[BoxData[
|
---|
4582 | InterpretationBox[
|
---|
4583 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4584 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
4585 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
4586 | SequenceForm["Particle ", 3, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
4587 | Editable->False]], "Print",
|
---|
4588 | CellChangeTimes->{
|
---|
4589 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4590 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4591 | 3.58115974777348*^9}],
|
---|
4592 |
|
---|
4593 | Cell[BoxData[
|
---|
4594 | InterpretationBox[
|
---|
4595 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
4596 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
4597 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
4598 | SequenceForm["Particle ", 4, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
4599 | Editable->False]], "Print",
|
---|
4600 | CellChangeTimes->{
|
---|
4601 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4602 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4603 | 3.581159747777966*^9}],
|
---|
4604 |
|
---|
4605 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4606 | CellChangeTimes->{
|
---|
4607 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4608 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4609 | 3.581159747782226*^9}],
|
---|
4610 |
|
---|
4611 | Cell[BoxData[
|
---|
4612 | FractionBox[
|
---|
4613 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4614 | SubsuperscriptBox["c", "a", "2"], " ",
|
---|
4615 | SuperscriptBox["e", "2"], " ",
|
---|
4616 | SubscriptBox["\[Kappa]", "SM"], " ",
|
---|
4617 | SubscriptBox["\[Eta]",
|
---|
4618 | RowBox[{
|
---|
4619 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4620 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
|
---|
4621 | RowBox[{"2", " ",
|
---|
4622 | SubsuperscriptBox["s", "w", "2"]}]]], "Print",
|
---|
4623 | CellChangeTimes->{
|
---|
4624 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4625 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4626 | 3.5811597477865868`*^9}],
|
---|
4627 |
|
---|
4628 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4629 | * * * * * *)\"\>"], "Print",
|
---|
4630 | CellChangeTimes->{
|
---|
4631 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4632 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4633 | 3.5811597477910137`*^9}],
|
---|
4634 |
|
---|
4635 | Cell[BoxData[
|
---|
4636 | InterpretationBox[
|
---|
4637 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "22"}],
|
---|
4638 | SequenceForm["Vertex ", 22],
|
---|
4639 | Editable->False]], "Print",
|
---|
4640 | CellChangeTimes->{
|
---|
4641 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4642 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4643 | 3.581159747795445*^9}],
|
---|
4644 |
|
---|
4645 | Cell[BoxData[
|
---|
4646 | InterpretationBox[
|
---|
4647 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4648 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4649 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
4650 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
4651 | Editable->False]], "Print",
|
---|
4652 | CellChangeTimes->{
|
---|
4653 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4654 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4655 | 3.581159747799802*^9}],
|
---|
4656 |
|
---|
4657 | Cell[BoxData[
|
---|
4658 | InterpretationBox[
|
---|
4659 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4660 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4661 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
4662 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
|
---|
4663 | Editable->False]], "Print",
|
---|
4664 | CellChangeTimes->{
|
---|
4665 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4666 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4667 | 3.581159747804267*^9}],
|
---|
4668 |
|
---|
4669 | Cell[BoxData[
|
---|
4670 | InterpretationBox[
|
---|
4671 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4672 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4673 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
4674 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
4675 | Editable->False]], "Print",
|
---|
4676 | CellChangeTimes->{
|
---|
4677 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4678 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4679 | 3.581159747808776*^9}],
|
---|
4680 |
|
---|
4681 | Cell[BoxData[
|
---|
4682 | InterpretationBox[
|
---|
4683 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
4684 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4685 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4686 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
4687 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
4688 | Editable->False]], "Print",
|
---|
4689 | CellChangeTimes->{
|
---|
4690 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4691 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4692 | 3.581159747813299*^9}],
|
---|
4693 |
|
---|
4694 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4695 | CellChangeTimes->{
|
---|
4696 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4697 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4698 | 3.58115974781769*^9}],
|
---|
4699 |
|
---|
4700 | Cell[BoxData[
|
---|
4701 | RowBox[{
|
---|
4702 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4703 | SuperscriptBox["e", "2"], " ",
|
---|
4704 | SubscriptBox["\[Eta]",
|
---|
4705 | RowBox[{
|
---|
4706 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4707 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
4708 | SubscriptBox["\[Eta]",
|
---|
4709 | RowBox[{
|
---|
4710 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4711 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
4712 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4713 | SuperscriptBox["e", "2"], " ",
|
---|
4714 | SubscriptBox["\[Eta]",
|
---|
4715 | RowBox[{
|
---|
4716 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4717 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
4718 | SubscriptBox["\[Eta]",
|
---|
4719 | RowBox[{
|
---|
4720 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4721 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "-",
|
---|
4722 | RowBox[{"2", " ", "\[ImaginaryI]", " ",
|
---|
4723 | SuperscriptBox["e", "2"], " ",
|
---|
4724 | SubscriptBox["\[Eta]",
|
---|
4725 | RowBox[{
|
---|
4726 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4727 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
4728 | SubscriptBox["\[Eta]",
|
---|
4729 | RowBox[{
|
---|
4730 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
4731 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}]}]], "Print",
|
---|
4732 | CellChangeTimes->{
|
---|
4733 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4734 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4735 | 3.5811597478222713`*^9}],
|
---|
4736 |
|
---|
4737 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4738 | * * * * * *)\"\>"], "Print",
|
---|
4739 | CellChangeTimes->{
|
---|
4740 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4741 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4742 | 3.581159747827116*^9}],
|
---|
4743 |
|
---|
4744 | Cell[BoxData[
|
---|
4745 | InterpretationBox[
|
---|
4746 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "23"}],
|
---|
4747 | SequenceForm["Vertex ", 23],
|
---|
4748 | Editable->False]], "Print",
|
---|
4749 | CellChangeTimes->{
|
---|
4750 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4751 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4752 | 3.581159747831627*^9}],
|
---|
4753 |
|
---|
4754 | Cell[BoxData[
|
---|
4755 | InterpretationBox[
|
---|
4756 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4757 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4758 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
4759 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
4760 | Editable->False]], "Print",
|
---|
4761 | CellChangeTimes->{
|
---|
4762 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4763 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4764 | 3.581159747835994*^9}],
|
---|
4765 |
|
---|
4766 | Cell[BoxData[
|
---|
4767 | InterpretationBox[
|
---|
4768 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4769 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4770 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4771 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
4772 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
4773 | Editable->False]], "Print",
|
---|
4774 | CellChangeTimes->{
|
---|
4775 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4776 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4777 | 3.581159747840494*^9}],
|
---|
4778 |
|
---|
4779 | Cell[BoxData[
|
---|
4780 | InterpretationBox[
|
---|
4781 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4782 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4783 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
4784 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
4785 | Editable->False]], "Print",
|
---|
4786 | CellChangeTimes->{
|
---|
4787 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4788 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4789 | 3.5811597478449697`*^9}],
|
---|
4790 |
|
---|
4791 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4792 | CellChangeTimes->{
|
---|
4793 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4794 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4795 | 3.5811597478492737`*^9}],
|
---|
4796 |
|
---|
4797 | Cell[BoxData[
|
---|
4798 | RowBox[{
|
---|
4799 | RowBox[{
|
---|
4800 | RowBox[{"-",
|
---|
4801 | SubscriptBox["\[Kappa]", "w5"]}], " ",
|
---|
4802 | SubscriptBox["\[Epsilon]",
|
---|
4803 | RowBox[{
|
---|
4804 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
4805 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4806 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
|
---|
4807 | SubsuperscriptBox["\<\"p\"\>", "1", "mu$11"]}], "+",
|
---|
4808 | RowBox[{
|
---|
4809 | SubscriptBox["\[Kappa]", "w5"], " ",
|
---|
4810 | SubscriptBox["\[Epsilon]",
|
---|
4811 | RowBox[{
|
---|
4812 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
4813 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4814 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
|
---|
4815 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "+",
|
---|
4816 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4817 | SubscriptBox["\[Kappa]", "w4"], " ",
|
---|
4818 | SubscriptBox["\[Epsilon]",
|
---|
4819 | RowBox[{
|
---|
4820 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
4821 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4822 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", "mu$11"}]], " ",
|
---|
4823 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "+",
|
---|
4824 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4825 | SubscriptBox["g", "wwz"], " ",
|
---|
4826 | SubscriptBox["\[Kappa]", "w1"], " ",
|
---|
4827 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4828 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4829 | SubscriptBox["\[Eta]",
|
---|
4830 | RowBox[{
|
---|
4831 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4832 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
4833 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4834 | SubscriptBox["g", "wwz"], " ",
|
---|
4835 | SubscriptBox["\[Kappa]", "w1"], " ",
|
---|
4836 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
4837 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4838 | SubscriptBox["\[Eta]",
|
---|
4839 | RowBox[{
|
---|
4840 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4841 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
4842 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4843 | SubscriptBox["g", "wwz"], " ",
|
---|
4844 | SubscriptBox["\[Kappa]", "w1"], " ",
|
---|
4845 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4846 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4847 | SubscriptBox["\[Eta]",
|
---|
4848 | RowBox[{
|
---|
4849 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4850 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
4851 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4852 | SubscriptBox["g", "wwz"], " ",
|
---|
4853 | SubscriptBox["\[Kappa]", "w2"], " ",
|
---|
4854 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4855 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4856 | SubscriptBox["\[Eta]",
|
---|
4857 | RowBox[{
|
---|
4858 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4859 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
4860 | RowBox[{
|
---|
4861 | SubscriptBox["\[Kappa]", "w3"], " ",
|
---|
4862 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4863 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4864 | SubscriptBox["\[Eta]",
|
---|
4865 | RowBox[{
|
---|
4866 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4867 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
4868 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4869 | SubscriptBox["g", "wwz"], " ",
|
---|
4870 | SubscriptBox["\[Kappa]", "w1"], " ",
|
---|
4871 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
4872 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4873 | SubscriptBox["\[Eta]",
|
---|
4874 | RowBox[{
|
---|
4875 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4876 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
4877 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4878 | SubscriptBox["g", "wwz"], " ",
|
---|
4879 | SubscriptBox["\[Kappa]", "w2"], " ",
|
---|
4880 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4881 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4882 | SubscriptBox["\[Eta]",
|
---|
4883 | RowBox[{
|
---|
4884 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4885 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
4886 | RowBox[{
|
---|
4887 | SubscriptBox["\[Kappa]", "w3"], " ",
|
---|
4888 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4889 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
4890 | SubscriptBox["\[Eta]",
|
---|
4891 | RowBox[{
|
---|
4892 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
4893 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
|
---|
4894 | CellChangeTimes->{
|
---|
4895 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4896 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4897 | 3.581159747854433*^9}],
|
---|
4898 |
|
---|
4899 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
4900 | * * * * * *)\"\>"], "Print",
|
---|
4901 | CellChangeTimes->{
|
---|
4902 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4903 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4904 | 3.581159747860819*^9}],
|
---|
4905 |
|
---|
4906 | Cell[BoxData[
|
---|
4907 | InterpretationBox[
|
---|
4908 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "24"}],
|
---|
4909 | SequenceForm["Vertex ", 24],
|
---|
4910 | Editable->False]], "Print",
|
---|
4911 | CellChangeTimes->{
|
---|
4912 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4913 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4914 | 3.581159747865251*^9}],
|
---|
4915 |
|
---|
4916 | Cell[BoxData[
|
---|
4917 | InterpretationBox[
|
---|
4918 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
4919 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4920 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
4921 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
4922 | Editable->False]], "Print",
|
---|
4923 | CellChangeTimes->{
|
---|
4924 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4925 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4926 | 3.581159747869482*^9}],
|
---|
4927 |
|
---|
4928 | Cell[BoxData[
|
---|
4929 | InterpretationBox[
|
---|
4930 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
4931 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4932 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
4933 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
4934 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
4935 | Editable->False]], "Print",
|
---|
4936 | CellChangeTimes->{
|
---|
4937 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4938 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4939 | 3.5811597478738337`*^9}],
|
---|
4940 |
|
---|
4941 | Cell[BoxData[
|
---|
4942 | InterpretationBox[
|
---|
4943 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
4944 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
4945 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
4946 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
4947 | Editable->False]], "Print",
|
---|
4948 | CellChangeTimes->{
|
---|
4949 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4950 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4951 | 3.58115974787816*^9}],
|
---|
4952 |
|
---|
4953 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
4954 | CellChangeTimes->{
|
---|
4955 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
4956 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
4957 | 3.581159747882481*^9}],
|
---|
4958 |
|
---|
4959 | Cell[BoxData[
|
---|
4960 | RowBox[{
|
---|
4961 | RowBox[{"-",
|
---|
4962 | FractionBox[
|
---|
4963 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4964 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
4965 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4966 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4967 | SubscriptBox["\[Eta]",
|
---|
4968 | RowBox[{
|
---|
4969 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4970 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
|
---|
4971 | SubscriptBox["s", "w"]]}], "+",
|
---|
4972 | FractionBox[
|
---|
4973 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4974 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
4975 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
4976 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
4977 | SubscriptBox["\[Eta]",
|
---|
4978 | RowBox[{
|
---|
4979 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4980 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}],
|
---|
4981 | SubscriptBox["s", "w"]], "+",
|
---|
4982 | FractionBox[
|
---|
4983 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4984 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
4985 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
4986 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4987 | SubscriptBox["\[Eta]",
|
---|
4988 | RowBox[{
|
---|
4989 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
4990 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
4991 | SubscriptBox["s", "w"]], "-",
|
---|
4992 | FractionBox[
|
---|
4993 | RowBox[{"\[ImaginaryI]", " ",
|
---|
4994 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
4995 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
4996 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
4997 | SubscriptBox["\[Eta]",
|
---|
4998 | RowBox[{
|
---|
4999 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
5000 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
5001 | SubscriptBox["s", "w"]], "-",
|
---|
5002 | FractionBox[
|
---|
5003 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5004 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
5005 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
5006 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
5007 | SubscriptBox["\[Eta]",
|
---|
5008 | RowBox[{
|
---|
5009 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
5010 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
5011 | SubscriptBox["s", "w"]], "+",
|
---|
5012 | FractionBox[
|
---|
5013 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5014 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
5015 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
5016 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
5017 | SubscriptBox["\[Eta]",
|
---|
5018 | RowBox[{
|
---|
5019 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
5020 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
5021 | SubscriptBox["s", "w"]]}]], "Print",
|
---|
5022 | CellChangeTimes->{
|
---|
5023 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5024 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5025 | 3.5811597478872747`*^9}],
|
---|
5026 |
|
---|
5027 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5028 | * * * * * *)\"\>"], "Print",
|
---|
5029 | CellChangeTimes->{
|
---|
5030 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5031 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5032 | 3.581159747893166*^9}],
|
---|
5033 |
|
---|
5034 | Cell[BoxData[
|
---|
5035 | InterpretationBox[
|
---|
5036 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "25"}],
|
---|
5037 | SequenceForm["Vertex ", 25],
|
---|
5038 | Editable->False]], "Print",
|
---|
5039 | CellChangeTimes->{
|
---|
5040 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5041 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5042 | 3.581159747901907*^9}],
|
---|
5043 |
|
---|
5044 | Cell[BoxData[
|
---|
5045 | InterpretationBox[
|
---|
5046 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5047 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5048 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
5049 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
5050 | Editable->False]], "Print",
|
---|
5051 | CellChangeTimes->{
|
---|
5052 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5053 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5054 | 3.5811597479064713`*^9}],
|
---|
5055 |
|
---|
5056 | Cell[BoxData[
|
---|
5057 | InterpretationBox[
|
---|
5058 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5059 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5060 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
5061 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
|
---|
5062 | Editable->False]], "Print",
|
---|
5063 | CellChangeTimes->{
|
---|
5064 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5065 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5066 | 3.581159747910695*^9}],
|
---|
5067 |
|
---|
5068 | Cell[BoxData[
|
---|
5069 | InterpretationBox[
|
---|
5070 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5071 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5072 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5073 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
5074 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
5075 | Editable->False]], "Print",
|
---|
5076 | CellChangeTimes->{
|
---|
5077 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5078 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5079 | 3.5811597479150343`*^9}],
|
---|
5080 |
|
---|
5081 | Cell[BoxData[
|
---|
5082 | InterpretationBox[
|
---|
5083 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
5084 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5085 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5086 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
5087 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
5088 | Editable->False]], "Print",
|
---|
5089 | CellChangeTimes->{
|
---|
5090 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5091 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5092 | 3.581159747920347*^9}],
|
---|
5093 |
|
---|
5094 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5095 | CellChangeTimes->{
|
---|
5096 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5097 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5098 | 3.58115974792479*^9}],
|
---|
5099 |
|
---|
5100 | Cell[BoxData[
|
---|
5101 | RowBox[{
|
---|
5102 | RowBox[{"-",
|
---|
5103 | FractionBox[
|
---|
5104 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5105 | SuperscriptBox["e", "2"], " ",
|
---|
5106 | SubscriptBox["\[Eta]",
|
---|
5107 | RowBox[{
|
---|
5108 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
5109 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
5110 | SubscriptBox["\[Eta]",
|
---|
5111 | RowBox[{
|
---|
5112 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
5113 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
5114 | SubsuperscriptBox["s", "w", "2"]]}], "-",
|
---|
5115 | FractionBox[
|
---|
5116 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5117 | SuperscriptBox["e", "2"], " ",
|
---|
5118 | SubscriptBox["\[Eta]",
|
---|
5119 | RowBox[{
|
---|
5120 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
5121 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
5122 | SubscriptBox["\[Eta]",
|
---|
5123 | RowBox[{
|
---|
5124 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
5125 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
5126 | SubsuperscriptBox["s", "w", "2"]], "+",
|
---|
5127 | FractionBox[
|
---|
5128 | RowBox[{"2", " ", "\[ImaginaryI]", " ",
|
---|
5129 | SuperscriptBox["e", "2"], " ",
|
---|
5130 | SubscriptBox["\[Eta]",
|
---|
5131 | RowBox[{
|
---|
5132 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
5133 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
5134 | SubscriptBox["\[Eta]",
|
---|
5135 | RowBox[{
|
---|
5136 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
5137 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
5138 | SubsuperscriptBox["s", "w", "2"]]}]], "Print",
|
---|
5139 | CellChangeTimes->{
|
---|
5140 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5141 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5142 | 3.581159747930333*^9}],
|
---|
5143 |
|
---|
5144 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5145 | * * * * * *)\"\>"], "Print",
|
---|
5146 | CellChangeTimes->{
|
---|
5147 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5148 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5149 | 3.581159747935541*^9}],
|
---|
5150 |
|
---|
5151 | Cell[BoxData[
|
---|
5152 | InterpretationBox[
|
---|
5153 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "26"}],
|
---|
5154 | SequenceForm["Vertex ", 26],
|
---|
5155 | Editable->False]], "Print",
|
---|
5156 | CellChangeTimes->{
|
---|
5157 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5158 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5159 | 3.581159747940323*^9}],
|
---|
5160 |
|
---|
5161 | Cell[BoxData[
|
---|
5162 | InterpretationBox[
|
---|
5163 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5164 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5165 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
5166 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
5167 | Editable->False]], "Print",
|
---|
5168 | CellChangeTimes->{
|
---|
5169 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5170 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5171 | 3.581159747945126*^9}],
|
---|
5172 |
|
---|
5173 | Cell[BoxData[
|
---|
5174 | InterpretationBox[
|
---|
5175 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5176 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5177 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5178 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
5179 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
5180 | Editable->False]], "Print",
|
---|
5181 | CellChangeTimes->{
|
---|
5182 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5183 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5184 | 3.5811597479503517`*^9}],
|
---|
5185 |
|
---|
5186 | Cell[BoxData[
|
---|
5187 | InterpretationBox[
|
---|
5188 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5189 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5190 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5191 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5192 | Editable->False]], "Print",
|
---|
5193 | CellChangeTimes->{
|
---|
5194 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5195 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5196 | 3.581159747954955*^9}],
|
---|
5197 |
|
---|
5198 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5199 | CellChangeTimes->{
|
---|
5200 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5201 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5202 | 3.581159747959401*^9}],
|
---|
5203 |
|
---|
5204 | Cell[BoxData[
|
---|
5205 | RowBox[{
|
---|
5206 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5207 | SubscriptBox["a", "d"], " ",
|
---|
5208 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5209 | SubsuperscriptBox["\[Gamma]",
|
---|
5210 | RowBox[{
|
---|
5211 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5212 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5213 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5214 | SubscriptBox["\[Delta]",
|
---|
5215 | RowBox[{
|
---|
5216 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5217 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5218 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5219 | SubscriptBox["b", "d"], " ",
|
---|
5220 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5221 | SubscriptBox["\[Delta]",
|
---|
5222 | RowBox[{
|
---|
5223 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5224 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5225 | SubscriptBox[
|
---|
5226 | RowBox[{
|
---|
5227 | SuperscriptBox["\[Gamma]",
|
---|
5228 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5229 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5230 | RowBox[{
|
---|
5231 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5232 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5233 | CellChangeTimes->{
|
---|
5234 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5235 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5236 | 3.5811597479637957`*^9}],
|
---|
5237 |
|
---|
5238 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5239 | * * * * * *)\"\>"], "Print",
|
---|
5240 | CellChangeTimes->{
|
---|
5241 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5242 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5243 | 3.5811597479683332`*^9}],
|
---|
5244 |
|
---|
5245 | Cell[BoxData[
|
---|
5246 | InterpretationBox[
|
---|
5247 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "27"}],
|
---|
5248 | SequenceForm["Vertex ", 27],
|
---|
5249 | Editable->False]], "Print",
|
---|
5250 | CellChangeTimes->{
|
---|
5251 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5252 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5253 | 3.581159747972917*^9}],
|
---|
5254 |
|
---|
5255 | Cell[BoxData[
|
---|
5256 | InterpretationBox[
|
---|
5257 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5258 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5259 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
5260 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
5261 | Editable->False]], "Print",
|
---|
5262 | CellChangeTimes->{
|
---|
5263 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5264 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5265 | 3.5811597479774227`*^9}],
|
---|
5266 |
|
---|
5267 | Cell[BoxData[
|
---|
5268 | InterpretationBox[
|
---|
5269 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5270 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5271 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5272 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
5273 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
5274 | Editable->False]], "Print",
|
---|
5275 | CellChangeTimes->{
|
---|
5276 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5277 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5278 | 3.5811597479821377`*^9}],
|
---|
5279 |
|
---|
5280 | Cell[BoxData[
|
---|
5281 | InterpretationBox[
|
---|
5282 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5283 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5284 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5285 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5286 | Editable->False]], "Print",
|
---|
5287 | CellChangeTimes->{
|
---|
5288 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5289 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5290 | 3.581159747986546*^9}],
|
---|
5291 |
|
---|
5292 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5293 | CellChangeTimes->{
|
---|
5294 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5295 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5296 | 3.581159747990971*^9}],
|
---|
5297 |
|
---|
5298 | Cell[BoxData[
|
---|
5299 | RowBox[{
|
---|
5300 | RowBox[{"\[ImaginaryI]", " ", "au", " ",
|
---|
5301 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5302 | SubsuperscriptBox["\[Gamma]",
|
---|
5303 | RowBox[{
|
---|
5304 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5305 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5306 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5307 | SubscriptBox["\[Delta]",
|
---|
5308 | RowBox[{
|
---|
5309 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5310 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5311 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5312 | SubscriptBox["b", "u"], " ",
|
---|
5313 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5314 | SubscriptBox["\[Delta]",
|
---|
5315 | RowBox[{
|
---|
5316 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5317 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5318 | SubscriptBox[
|
---|
5319 | RowBox[{
|
---|
5320 | SuperscriptBox["\[Gamma]",
|
---|
5321 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5322 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5323 | RowBox[{
|
---|
5324 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5325 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5326 | CellChangeTimes->{
|
---|
5327 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5328 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5329 | 3.5811597479955063`*^9}],
|
---|
5330 |
|
---|
5331 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5332 | * * * * * *)\"\>"], "Print",
|
---|
5333 | CellChangeTimes->{
|
---|
5334 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5335 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5336 | 3.581159748000359*^9}],
|
---|
5337 |
|
---|
5338 | Cell[BoxData[
|
---|
5339 | InterpretationBox[
|
---|
5340 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "28"}],
|
---|
5341 | SequenceForm["Vertex ", 28],
|
---|
5342 | Editable->False]], "Print",
|
---|
5343 | CellChangeTimes->{
|
---|
5344 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5345 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5346 | 3.581159748005156*^9}],
|
---|
5347 |
|
---|
5348 | Cell[BoxData[
|
---|
5349 | InterpretationBox[
|
---|
5350 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5351 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5352 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
5353 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
5354 | Editable->False]], "Print",
|
---|
5355 | CellChangeTimes->{
|
---|
5356 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5357 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5358 | 3.581159748009522*^9}],
|
---|
5359 |
|
---|
5360 | Cell[BoxData[
|
---|
5361 | InterpretationBox[
|
---|
5362 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5363 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5364 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5365 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
5366 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
5367 | Editable->False]], "Print",
|
---|
5368 | CellChangeTimes->{
|
---|
5369 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5370 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5371 | 3.5811597480139847`*^9}],
|
---|
5372 |
|
---|
5373 | Cell[BoxData[
|
---|
5374 | InterpretationBox[
|
---|
5375 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5376 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5377 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5378 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5379 | Editable->False]], "Print",
|
---|
5380 | CellChangeTimes->{
|
---|
5381 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5382 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5383 | 3.5811597480185633`*^9}],
|
---|
5384 |
|
---|
5385 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5386 | CellChangeTimes->{
|
---|
5387 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5388 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5389 | 3.581159748023027*^9}],
|
---|
5390 |
|
---|
5391 | Cell[BoxData[
|
---|
5392 | RowBox[{
|
---|
5393 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5394 | SubscriptBox["a", "d"], " ",
|
---|
5395 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5396 | SubsuperscriptBox["\[Gamma]",
|
---|
5397 | RowBox[{
|
---|
5398 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5399 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5400 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5401 | SubscriptBox["\[Delta]",
|
---|
5402 | RowBox[{
|
---|
5403 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5404 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5405 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5406 | SubscriptBox["b", "d"], " ",
|
---|
5407 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5408 | SubscriptBox["\[Delta]",
|
---|
5409 | RowBox[{
|
---|
5410 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5411 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5412 | SubscriptBox[
|
---|
5413 | RowBox[{
|
---|
5414 | SuperscriptBox["\[Gamma]",
|
---|
5415 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5416 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5417 | RowBox[{
|
---|
5418 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5419 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5420 | CellChangeTimes->{
|
---|
5421 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5422 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5423 | 3.581159748028042*^9}],
|
---|
5424 |
|
---|
5425 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5426 | * * * * * *)\"\>"], "Print",
|
---|
5427 | CellChangeTimes->{
|
---|
5428 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5429 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5430 | 3.5811597480327797`*^9}],
|
---|
5431 |
|
---|
5432 | Cell[BoxData[
|
---|
5433 | InterpretationBox[
|
---|
5434 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "29"}],
|
---|
5435 | SequenceForm["Vertex ", 29],
|
---|
5436 | Editable->False]], "Print",
|
---|
5437 | CellChangeTimes->{
|
---|
5438 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5439 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5440 | 3.581159748037952*^9}],
|
---|
5441 |
|
---|
5442 | Cell[BoxData[
|
---|
5443 | InterpretationBox[
|
---|
5444 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5445 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5446 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
5447 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
5448 | Editable->False]], "Print",
|
---|
5449 | CellChangeTimes->{
|
---|
5450 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5451 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5452 | 3.581159748042192*^9}],
|
---|
5453 |
|
---|
5454 | Cell[BoxData[
|
---|
5455 | InterpretationBox[
|
---|
5456 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5457 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5458 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5459 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
5460 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
5461 | Editable->False]], "Print",
|
---|
5462 | CellChangeTimes->{
|
---|
5463 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5464 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5465 | 3.581159748047283*^9}],
|
---|
5466 |
|
---|
5467 | Cell[BoxData[
|
---|
5468 | InterpretationBox[
|
---|
5469 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5470 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5471 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5472 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5473 | Editable->False]], "Print",
|
---|
5474 | CellChangeTimes->{
|
---|
5475 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5476 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5477 | 3.581159748051461*^9}],
|
---|
5478 |
|
---|
5479 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5480 | CellChangeTimes->{
|
---|
5481 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5482 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5483 | 3.581159748055236*^9}],
|
---|
5484 |
|
---|
5485 | Cell[BoxData[
|
---|
5486 | RowBox[{
|
---|
5487 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5488 | SubscriptBox["a", "l"], " ",
|
---|
5489 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5490 | SubsuperscriptBox["\[Gamma]",
|
---|
5491 | RowBox[{
|
---|
5492 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5493 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5494 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
5495 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5496 | SubscriptBox["b", "l"], " ",
|
---|
5497 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5498 | SubscriptBox[
|
---|
5499 | RowBox[{
|
---|
5500 | SuperscriptBox["\[Gamma]",
|
---|
5501 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5502 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5503 | RowBox[{
|
---|
5504 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5505 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5506 | CellChangeTimes->{
|
---|
5507 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5508 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5509 | 3.5811597480599537`*^9}],
|
---|
5510 |
|
---|
5511 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5512 | * * * * * *)\"\>"], "Print",
|
---|
5513 | CellChangeTimes->{
|
---|
5514 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5515 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5516 | 3.581159748064395*^9}],
|
---|
5517 |
|
---|
5518 | Cell[BoxData[
|
---|
5519 | InterpretationBox[
|
---|
5520 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "30"}],
|
---|
5521 | SequenceForm["Vertex ", 30],
|
---|
5522 | Editable->False]], "Print",
|
---|
5523 | CellChangeTimes->{
|
---|
5524 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5525 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5526 | 3.5811597480908957`*^9}],
|
---|
5527 |
|
---|
5528 | Cell[BoxData[
|
---|
5529 | InterpretationBox[
|
---|
5530 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5531 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5532 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
5533 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
5534 | Editable->False]], "Print",
|
---|
5535 | CellChangeTimes->{
|
---|
5536 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5537 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5538 | 3.5811597480950336`*^9}],
|
---|
5539 |
|
---|
5540 | Cell[BoxData[
|
---|
5541 | InterpretationBox[
|
---|
5542 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5543 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5544 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5545 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
5546 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
5547 | Editable->False]], "Print",
|
---|
5548 | CellChangeTimes->{
|
---|
5549 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5550 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5551 | 3.5811597480993958`*^9}],
|
---|
5552 |
|
---|
5553 | Cell[BoxData[
|
---|
5554 | InterpretationBox[
|
---|
5555 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5556 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5557 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5558 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5559 | Editable->False]], "Print",
|
---|
5560 | CellChangeTimes->{
|
---|
5561 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5562 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5563 | 3.581159748103437*^9}],
|
---|
5564 |
|
---|
5565 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5566 | CellChangeTimes->{
|
---|
5567 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5568 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5569 | 3.5811597481074057`*^9}],
|
---|
5570 |
|
---|
5571 | Cell[BoxData[
|
---|
5572 | RowBox[{
|
---|
5573 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5574 | SubscriptBox["a", "l"], " ",
|
---|
5575 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5576 | SubsuperscriptBox["\[Gamma]",
|
---|
5577 | RowBox[{
|
---|
5578 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5579 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5580 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
5581 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5582 | SubscriptBox["b", "l"], " ",
|
---|
5583 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5584 | SubscriptBox[
|
---|
5585 | RowBox[{
|
---|
5586 | SuperscriptBox["\[Gamma]",
|
---|
5587 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5588 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5589 | RowBox[{
|
---|
5590 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5591 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5592 | CellChangeTimes->{
|
---|
5593 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5594 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5595 | 3.5811597481113787`*^9}],
|
---|
5596 |
|
---|
5597 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5598 | * * * * * *)\"\>"], "Print",
|
---|
5599 | CellChangeTimes->{
|
---|
5600 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5601 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5602 | 3.5811597481156473`*^9}],
|
---|
5603 |
|
---|
5604 | Cell[BoxData[
|
---|
5605 | InterpretationBox[
|
---|
5606 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "31"}],
|
---|
5607 | SequenceForm["Vertex ", 31],
|
---|
5608 | Editable->False]], "Print",
|
---|
5609 | CellChangeTimes->{
|
---|
5610 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5611 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5612 | 3.581159748119677*^9}],
|
---|
5613 |
|
---|
5614 | Cell[BoxData[
|
---|
5615 | InterpretationBox[
|
---|
5616 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5617 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5618 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
5619 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
5620 | Editable->False]], "Print",
|
---|
5621 | CellChangeTimes->{
|
---|
5622 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5623 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5624 | 3.5811597481239*^9}],
|
---|
5625 |
|
---|
5626 | Cell[BoxData[
|
---|
5627 | InterpretationBox[
|
---|
5628 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5629 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5630 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5631 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
5632 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
5633 | Editable->False]], "Print",
|
---|
5634 | CellChangeTimes->{
|
---|
5635 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5636 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5637 | 3.581159748127965*^9}],
|
---|
5638 |
|
---|
5639 | Cell[BoxData[
|
---|
5640 | InterpretationBox[
|
---|
5641 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5642 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5643 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5644 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5645 | Editable->False]], "Print",
|
---|
5646 | CellChangeTimes->{
|
---|
5647 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5648 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5649 | 3.581159748131868*^9}],
|
---|
5650 |
|
---|
5651 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5652 | CellChangeTimes->{
|
---|
5653 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5654 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5655 | 3.5811597481362753`*^9}],
|
---|
5656 |
|
---|
5657 | Cell[BoxData[
|
---|
5658 | RowBox[{
|
---|
5659 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5660 | SubscriptBox["a", "d"], " ",
|
---|
5661 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5662 | SubsuperscriptBox["\[Gamma]",
|
---|
5663 | RowBox[{
|
---|
5664 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5665 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5666 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5667 | SubscriptBox["\[Delta]",
|
---|
5668 | RowBox[{
|
---|
5669 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5670 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5671 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5672 | SubscriptBox["b", "d"], " ",
|
---|
5673 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5674 | SubscriptBox["\[Delta]",
|
---|
5675 | RowBox[{
|
---|
5676 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5677 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5678 | SubscriptBox[
|
---|
5679 | RowBox[{
|
---|
5680 | SuperscriptBox["\[Gamma]",
|
---|
5681 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5682 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5683 | RowBox[{
|
---|
5684 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5685 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5686 | CellChangeTimes->{
|
---|
5687 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5688 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5689 | 3.5811597481409483`*^9}],
|
---|
5690 |
|
---|
5691 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5692 | * * * * * *)\"\>"], "Print",
|
---|
5693 | CellChangeTimes->{
|
---|
5694 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5695 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5696 | 3.581159748145834*^9}],
|
---|
5697 |
|
---|
5698 | Cell[BoxData[
|
---|
5699 | InterpretationBox[
|
---|
5700 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "32"}],
|
---|
5701 | SequenceForm["Vertex ", 32],
|
---|
5702 | Editable->False]], "Print",
|
---|
5703 | CellChangeTimes->{
|
---|
5704 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5705 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5706 | 3.581159748150467*^9}],
|
---|
5707 |
|
---|
5708 | Cell[BoxData[
|
---|
5709 | InterpretationBox[
|
---|
5710 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5711 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5712 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
5713 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
5714 | Editable->False]], "Print",
|
---|
5715 | CellChangeTimes->{
|
---|
5716 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5717 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5718 | 3.58115974815481*^9}],
|
---|
5719 |
|
---|
5720 | Cell[BoxData[
|
---|
5721 | InterpretationBox[
|
---|
5722 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5723 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5724 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5725 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
5726 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
5727 | Editable->False]], "Print",
|
---|
5728 | CellChangeTimes->{
|
---|
5729 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5730 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5731 | 3.581159748159151*^9}],
|
---|
5732 |
|
---|
5733 | Cell[BoxData[
|
---|
5734 | InterpretationBox[
|
---|
5735 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5736 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5737 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5738 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5739 | Editable->False]], "Print",
|
---|
5740 | CellChangeTimes->{
|
---|
5741 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5742 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5743 | 3.5811597481632137`*^9}],
|
---|
5744 |
|
---|
5745 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5746 | CellChangeTimes->{
|
---|
5747 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5748 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5749 | 3.581159748167383*^9}],
|
---|
5750 |
|
---|
5751 | Cell[BoxData[
|
---|
5752 | RowBox[{
|
---|
5753 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5754 | SubscriptBox["a", "l"], " ",
|
---|
5755 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5756 | SubsuperscriptBox["\[Gamma]",
|
---|
5757 | RowBox[{
|
---|
5758 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5759 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5760 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
5761 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5762 | SubscriptBox["b", "l"], " ",
|
---|
5763 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5764 | SubscriptBox[
|
---|
5765 | RowBox[{
|
---|
5766 | SuperscriptBox["\[Gamma]",
|
---|
5767 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5768 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5769 | RowBox[{
|
---|
5770 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5771 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5772 | CellChangeTimes->{
|
---|
5773 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5774 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5775 | 3.581159748171596*^9}],
|
---|
5776 |
|
---|
5777 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5778 | * * * * * *)\"\>"], "Print",
|
---|
5779 | CellChangeTimes->{
|
---|
5780 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5781 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5782 | 3.5811597481767483`*^9}],
|
---|
5783 |
|
---|
5784 | Cell[BoxData[
|
---|
5785 | InterpretationBox[
|
---|
5786 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "33"}],
|
---|
5787 | SequenceForm["Vertex ", 33],
|
---|
5788 | Editable->False]], "Print",
|
---|
5789 | CellChangeTimes->{
|
---|
5790 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5791 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5792 | 3.581159748181238*^9}],
|
---|
5793 |
|
---|
5794 | Cell[BoxData[
|
---|
5795 | InterpretationBox[
|
---|
5796 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5797 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5798 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
5799 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
|
---|
5800 | Editable->False]], "Print",
|
---|
5801 | CellChangeTimes->{
|
---|
5802 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5803 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5804 | 3.581159748185467*^9}],
|
---|
5805 |
|
---|
5806 | Cell[BoxData[
|
---|
5807 | InterpretationBox[
|
---|
5808 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5809 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5810 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5811 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
5812 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
5813 | Editable->False]], "Print",
|
---|
5814 | CellChangeTimes->{
|
---|
5815 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5816 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5817 | 3.581159748190037*^9}],
|
---|
5818 |
|
---|
5819 | Cell[BoxData[
|
---|
5820 | InterpretationBox[
|
---|
5821 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5822 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5823 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5824 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5825 | Editable->False]], "Print",
|
---|
5826 | CellChangeTimes->{
|
---|
5827 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5828 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5829 | 3.5811597481941853`*^9}],
|
---|
5830 |
|
---|
5831 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5832 | CellChangeTimes->{
|
---|
5833 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5834 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5835 | 3.5811597481982927`*^9}],
|
---|
5836 |
|
---|
5837 | Cell[BoxData[
|
---|
5838 | RowBox[{
|
---|
5839 | RowBox[{"\[ImaginaryI]", " ", "au", " ",
|
---|
5840 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5841 | SubsuperscriptBox["\[Gamma]",
|
---|
5842 | RowBox[{
|
---|
5843 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5844 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5845 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5846 | SubscriptBox["\[Delta]",
|
---|
5847 | RowBox[{
|
---|
5848 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5849 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5850 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5851 | SubscriptBox["b", "u"], " ",
|
---|
5852 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5853 | SubscriptBox["\[Delta]",
|
---|
5854 | RowBox[{
|
---|
5855 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5856 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5857 | SubscriptBox[
|
---|
5858 | RowBox[{
|
---|
5859 | SuperscriptBox["\[Gamma]",
|
---|
5860 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5861 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5862 | RowBox[{
|
---|
5863 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5864 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5865 | CellChangeTimes->{
|
---|
5866 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5867 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5868 | 3.5811597482029963`*^9}],
|
---|
5869 |
|
---|
5870 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5871 | * * * * * *)\"\>"], "Print",
|
---|
5872 | CellChangeTimes->{
|
---|
5873 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5874 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5875 | 3.581159748207613*^9}],
|
---|
5876 |
|
---|
5877 | Cell[BoxData[
|
---|
5878 | InterpretationBox[
|
---|
5879 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "34"}],
|
---|
5880 | SequenceForm["Vertex ", 34],
|
---|
5881 | Editable->False]], "Print",
|
---|
5882 | CellChangeTimes->{
|
---|
5883 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5884 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5885 | 3.581159748211823*^9}],
|
---|
5886 |
|
---|
5887 | Cell[BoxData[
|
---|
5888 | InterpretationBox[
|
---|
5889 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5890 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5891 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
5892 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
|
---|
5893 | Editable->False]], "Print",
|
---|
5894 | CellChangeTimes->{
|
---|
5895 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5896 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5897 | 3.581159748216073*^9}],
|
---|
5898 |
|
---|
5899 | Cell[BoxData[
|
---|
5900 | InterpretationBox[
|
---|
5901 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5902 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5903 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5904 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
5905 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
5906 | Editable->False]], "Print",
|
---|
5907 | CellChangeTimes->{
|
---|
5908 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5909 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5910 | 3.5811597482206373`*^9}],
|
---|
5911 |
|
---|
5912 | Cell[BoxData[
|
---|
5913 | InterpretationBox[
|
---|
5914 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
5915 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
5916 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
5917 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
5918 | Editable->False]], "Print",
|
---|
5919 | CellChangeTimes->{
|
---|
5920 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5921 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5922 | 3.581159748225881*^9}],
|
---|
5923 |
|
---|
5924 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
5925 | CellChangeTimes->{
|
---|
5926 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5927 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5928 | 3.581159748231205*^9}],
|
---|
5929 |
|
---|
5930 | Cell[BoxData[
|
---|
5931 | RowBox[{
|
---|
5932 | RowBox[{"\[ImaginaryI]", " ", "au", " ",
|
---|
5933 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
5934 | SubsuperscriptBox["\[Gamma]",
|
---|
5935 | RowBox[{
|
---|
5936 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5937 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
5938 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
5939 | SubscriptBox["\[Delta]",
|
---|
5940 | RowBox[{
|
---|
5941 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5942 | SubscriptBox["\<\"m\"\>", "2"]}]]}], "-",
|
---|
5943 | RowBox[{"\[ImaginaryI]", " ",
|
---|
5944 | SubscriptBox["b", "u"], " ",
|
---|
5945 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
5946 | SubscriptBox["\[Delta]",
|
---|
5947 | RowBox[{
|
---|
5948 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
5949 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
5950 | SubscriptBox[
|
---|
5951 | RowBox[{
|
---|
5952 | SuperscriptBox["\[Gamma]",
|
---|
5953 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
5954 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
5955 | RowBox[{
|
---|
5956 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
5957 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
5958 | CellChangeTimes->{
|
---|
5959 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5960 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5961 | 3.5811597482361517`*^9}],
|
---|
5962 |
|
---|
5963 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
5964 | * * * * * *)\"\>"], "Print",
|
---|
5965 | CellChangeTimes->{
|
---|
5966 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5967 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5968 | 3.581159748241089*^9}],
|
---|
5969 |
|
---|
5970 | Cell[BoxData[
|
---|
5971 | InterpretationBox[
|
---|
5972 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "35"}],
|
---|
5973 | SequenceForm["Vertex ", 35],
|
---|
5974 | Editable->False]], "Print",
|
---|
5975 | CellChangeTimes->{
|
---|
5976 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5977 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5978 | 3.5811597482455673`*^9}],
|
---|
5979 |
|
---|
5980 | Cell[BoxData[
|
---|
5981 | InterpretationBox[
|
---|
5982 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
5983 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5984 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
5985 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
5986 | Editable->False]], "Print",
|
---|
5987 | CellChangeTimes->{
|
---|
5988 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
5989 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
5990 | 3.581159748249617*^9}],
|
---|
5991 |
|
---|
5992 | Cell[BoxData[
|
---|
5993 | InterpretationBox[
|
---|
5994 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
5995 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
5996 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
5997 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
5998 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
5999 | Editable->False]], "Print",
|
---|
6000 | CellChangeTimes->{
|
---|
6001 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6002 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6003 | 3.581159748254404*^9}],
|
---|
6004 |
|
---|
6005 | Cell[BoxData[
|
---|
6006 | InterpretationBox[
|
---|
6007 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6008 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6009 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
6010 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
6011 | Editable->False]], "Print",
|
---|
6012 | CellChangeTimes->{
|
---|
6013 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6014 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6015 | 3.581159748259688*^9}],
|
---|
6016 |
|
---|
6017 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6018 | CellChangeTimes->{
|
---|
6019 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6020 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6021 | 3.581159748264234*^9}],
|
---|
6022 |
|
---|
6023 | Cell[BoxData[
|
---|
6024 | RowBox[{
|
---|
6025 | RowBox[{"\[ImaginaryI]", " ", "an", " ",
|
---|
6026 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
6027 | SubsuperscriptBox["\[Gamma]",
|
---|
6028 | RowBox[{
|
---|
6029 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6030 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
6031 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
6032 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6033 | SubscriptBox["b", "n"], " ",
|
---|
6034 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
6035 | SubscriptBox[
|
---|
6036 | RowBox[{
|
---|
6037 | SuperscriptBox["\[Gamma]",
|
---|
6038 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
6039 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
6040 | RowBox[{
|
---|
6041 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6042 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
6043 | CellChangeTimes->{
|
---|
6044 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6045 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6046 | 3.5811597482691593`*^9}],
|
---|
6047 |
|
---|
6048 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
6049 | * * * * * *)\"\>"], "Print",
|
---|
6050 | CellChangeTimes->{
|
---|
6051 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6052 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6053 | 3.581159748274413*^9}],
|
---|
6054 |
|
---|
6055 | Cell[BoxData[
|
---|
6056 | InterpretationBox[
|
---|
6057 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "36"}],
|
---|
6058 | SequenceForm["Vertex ", 36],
|
---|
6059 | Editable->False]], "Print",
|
---|
6060 | CellChangeTimes->{
|
---|
6061 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6062 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6063 | 3.581159748279188*^9}],
|
---|
6064 |
|
---|
6065 | Cell[BoxData[
|
---|
6066 | InterpretationBox[
|
---|
6067 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
6068 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
6069 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
6070 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
6071 | Editable->False]], "Print",
|
---|
6072 | CellChangeTimes->{
|
---|
6073 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6074 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6075 | 3.581159748284444*^9}],
|
---|
6076 |
|
---|
6077 | Cell[BoxData[
|
---|
6078 | InterpretationBox[
|
---|
6079 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
6080 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
6081 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
6082 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
6083 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
6084 | Editable->False]], "Print",
|
---|
6085 | CellChangeTimes->{
|
---|
6086 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6087 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6088 | 3.5811597482894087`*^9}],
|
---|
6089 |
|
---|
6090 | Cell[BoxData[
|
---|
6091 | InterpretationBox[
|
---|
6092 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6093 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6094 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
6095 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
6096 | Editable->False]], "Print",
|
---|
6097 | CellChangeTimes->{
|
---|
6098 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6099 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6100 | 3.581159748294428*^9}],
|
---|
6101 |
|
---|
6102 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6103 | CellChangeTimes->{
|
---|
6104 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6105 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6106 | 3.581159748299429*^9}],
|
---|
6107 |
|
---|
6108 | Cell[BoxData[
|
---|
6109 | RowBox[{
|
---|
6110 | RowBox[{"\[ImaginaryI]", " ", "an", " ",
|
---|
6111 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
6112 | SubsuperscriptBox["\[Gamma]",
|
---|
6113 | RowBox[{
|
---|
6114 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6115 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
6116 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
6117 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6118 | SubscriptBox["b", "n"], " ",
|
---|
6119 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
6120 | SubscriptBox[
|
---|
6121 | RowBox[{
|
---|
6122 | SuperscriptBox["\[Gamma]",
|
---|
6123 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
6124 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
6125 | RowBox[{
|
---|
6126 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6127 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
6128 | CellChangeTimes->{
|
---|
6129 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6130 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6131 | 3.581159748304678*^9}],
|
---|
6132 |
|
---|
6133 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
6134 | * * * * * *)\"\>"], "Print",
|
---|
6135 | CellChangeTimes->{
|
---|
6136 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6137 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6138 | 3.581159748311204*^9}],
|
---|
6139 |
|
---|
6140 | Cell[BoxData[
|
---|
6141 | InterpretationBox[
|
---|
6142 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "37"}],
|
---|
6143 | SequenceForm["Vertex ", 37],
|
---|
6144 | Editable->False]], "Print",
|
---|
6145 | CellChangeTimes->{
|
---|
6146 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6147 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6148 | 3.581159748317594*^9}],
|
---|
6149 |
|
---|
6150 | Cell[BoxData[
|
---|
6151 | InterpretationBox[
|
---|
6152 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
6153 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
6154 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
6155 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
6156 | Editable->False]], "Print",
|
---|
6157 | CellChangeTimes->{
|
---|
6158 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6159 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6160 | 3.581159748322857*^9}],
|
---|
6161 |
|
---|
6162 | Cell[BoxData[
|
---|
6163 | InterpretationBox[
|
---|
6164 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
6165 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
6166 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
6167 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
6168 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
6169 | Editable->False]], "Print",
|
---|
6170 | CellChangeTimes->{
|
---|
6171 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6172 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6173 | 3.581159748328124*^9}],
|
---|
6174 |
|
---|
6175 | Cell[BoxData[
|
---|
6176 | InterpretationBox[
|
---|
6177 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6178 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6179 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
6180 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`X1],
|
---|
6181 | Editable->False]], "Print",
|
---|
6182 | CellChangeTimes->{
|
---|
6183 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6184 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6185 | 3.581159748333761*^9}],
|
---|
6186 |
|
---|
6187 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6188 | CellChangeTimes->{
|
---|
6189 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6190 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6191 | 3.581159748339045*^9}],
|
---|
6192 |
|
---|
6193 | Cell[BoxData[
|
---|
6194 | RowBox[{
|
---|
6195 | RowBox[{"\[ImaginaryI]", " ", "an", " ",
|
---|
6196 | SubscriptBox["\[Kappa]", "ffa"], " ",
|
---|
6197 | SubsuperscriptBox["\[Gamma]",
|
---|
6198 | RowBox[{
|
---|
6199 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6200 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
6201 | SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], "-",
|
---|
6202 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6203 | SubscriptBox["b", "n"], " ",
|
---|
6204 | SubscriptBox["\[Kappa]", "ffb"], " ",
|
---|
6205 | SubscriptBox[
|
---|
6206 | RowBox[{
|
---|
6207 | SuperscriptBox["\[Gamma]",
|
---|
6208 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
6209 | SuperscriptBox["\[Gamma]", "5"]}],
|
---|
6210 | RowBox[{
|
---|
6211 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
6212 | SubscriptBox["\<\"s\"\>", "1"]}]]}]}]], "Print",
|
---|
6213 | CellChangeTimes->{
|
---|
6214 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6215 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6216 | 3.581159748344936*^9}],
|
---|
6217 |
|
---|
6218 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
6219 | * * * * * *)\"\>"], "Print",
|
---|
6220 | CellChangeTimes->{
|
---|
6221 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6222 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6223 | 3.581159748350876*^9}],
|
---|
6224 |
|
---|
6225 | Cell[BoxData[
|
---|
6226 | InterpretationBox[
|
---|
6227 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "38"}],
|
---|
6228 | SequenceForm["Vertex ", 38],
|
---|
6229 | Editable->False]], "Print",
|
---|
6230 | CellChangeTimes->{
|
---|
6231 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6232 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6233 | 3.581159748356264*^9}],
|
---|
6234 |
|
---|
6235 | Cell[BoxData[
|
---|
6236 | InterpretationBox[
|
---|
6237 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
6238 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6239 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
6240 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
6241 | Editable->False]], "Print",
|
---|
6242 | CellChangeTimes->{
|
---|
6243 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6244 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6245 | 3.581159748361575*^9}],
|
---|
6246 |
|
---|
6247 | Cell[BoxData[
|
---|
6248 | InterpretationBox[
|
---|
6249 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
6250 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6251 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
6252 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`A],
|
---|
6253 | Editable->False]], "Print",
|
---|
6254 | CellChangeTimes->{
|
---|
6255 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6256 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6257 | 3.581159748367374*^9}],
|
---|
6258 |
|
---|
6259 | Cell[BoxData[
|
---|
6260 | InterpretationBox[
|
---|
6261 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6262 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
6263 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
6264 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
6265 | Editable->False]], "Print",
|
---|
6266 | CellChangeTimes->{
|
---|
6267 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6268 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6269 | 3.5811597483724833`*^9}],
|
---|
6270 |
|
---|
6271 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6272 | CellChangeTimes->{
|
---|
6273 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6274 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6275 | 3.581159748377913*^9}],
|
---|
6276 |
|
---|
6277 | Cell[BoxData[
|
---|
6278 | RowBox[{
|
---|
6279 | RowBox[{"-",
|
---|
6280 | FractionBox[
|
---|
6281 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6282 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6283 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6284 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6285 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6286 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6287 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6288 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6289 | SubscriptBox["\[Eta]",
|
---|
6290 | RowBox[{
|
---|
6291 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6292 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
6293 | FractionBox[
|
---|
6294 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6295 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6296 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6297 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6298 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6299 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6300 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6301 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6302 | SubscriptBox["\[Eta]",
|
---|
6303 | RowBox[{
|
---|
6304 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6305 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
6306 | FractionBox[
|
---|
6307 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6308 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6309 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6310 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6311 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6312 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6313 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6314 | SubscriptBox["\[Eta]",
|
---|
6315 | RowBox[{
|
---|
6316 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6317 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6318 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6319 | FractionBox[
|
---|
6320 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6321 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6322 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6323 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6324 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6325 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6326 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6327 | SubscriptBox["\[Eta]",
|
---|
6328 | RowBox[{
|
---|
6329 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6330 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6331 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6332 | FractionBox[
|
---|
6333 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6334 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6335 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6336 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6337 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6338 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6339 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6340 | SubscriptBox["\[Eta]",
|
---|
6341 | RowBox[{
|
---|
6342 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6343 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6344 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6345 | FractionBox[
|
---|
6346 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6347 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6348 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6349 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6350 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6351 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6352 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6353 | SubscriptBox["\[Eta]",
|
---|
6354 | RowBox[{
|
---|
6355 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6356 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6357 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6358 | FractionBox[
|
---|
6359 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6360 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6361 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6362 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6363 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6364 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6365 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6366 | SubscriptBox["\[Eta]",
|
---|
6367 | RowBox[{
|
---|
6368 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6369 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6370 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6371 | FractionBox[
|
---|
6372 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6373 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6374 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6375 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6376 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6377 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6378 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6379 | SubscriptBox["\[Eta]",
|
---|
6380 | RowBox[{
|
---|
6381 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6382 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6383 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6384 | FractionBox[
|
---|
6385 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6386 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6387 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6388 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6389 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6390 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6391 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6392 | SubscriptBox["\[Eta]",
|
---|
6393 | RowBox[{
|
---|
6394 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6395 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6396 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6397 | FractionBox[
|
---|
6398 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6399 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6400 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6401 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6402 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6403 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6404 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6405 | SubscriptBox["\[Eta]",
|
---|
6406 | RowBox[{
|
---|
6407 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6408 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6409 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6410 | FractionBox[
|
---|
6411 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6412 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6413 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6414 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6415 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6416 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6417 | SubscriptBox["\[Eta]",
|
---|
6418 | RowBox[{
|
---|
6419 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6420 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6421 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6422 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6423 | FractionBox[
|
---|
6424 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6425 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6426 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6427 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6428 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6429 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6430 | SubscriptBox["\[Eta]",
|
---|
6431 | RowBox[{
|
---|
6432 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6433 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6434 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6435 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6436 | FractionBox[
|
---|
6437 | RowBox[{"4", " ", "\[ImaginaryI]", " ",
|
---|
6438 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6439 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6440 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6441 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6442 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6443 | SubscriptBox["\[Eta]",
|
---|
6444 | RowBox[{
|
---|
6445 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6446 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6447 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6448 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6449 | FractionBox[
|
---|
6450 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6451 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6452 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6453 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6454 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6455 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6456 | SubscriptBox["\[Eta]",
|
---|
6457 | RowBox[{
|
---|
6458 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6459 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6460 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6461 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6462 | FractionBox[
|
---|
6463 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6464 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6465 | SubscriptBox["\[Eta]",
|
---|
6466 | RowBox[{
|
---|
6467 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6468 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6469 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6470 | SubscriptBox["\[Eta]",
|
---|
6471 | RowBox[{
|
---|
6472 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6473 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6474 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
6475 | RowBox[{
|
---|
6476 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6477 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
|
---|
6478 | FractionBox[
|
---|
6479 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6480 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6481 | SubscriptBox["\[Eta]",
|
---|
6482 | RowBox[{
|
---|
6483 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6484 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6485 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
6486 | SubscriptBox["\[Eta]",
|
---|
6487 | RowBox[{
|
---|
6488 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6489 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6490 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6491 | RowBox[{
|
---|
6492 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6493 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
|
---|
6494 | FractionBox[
|
---|
6495 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6496 | SubscriptBox["\[Kappa]", "a"], " ",
|
---|
6497 | SubscriptBox["\[Eta]",
|
---|
6498 | RowBox[{
|
---|
6499 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6500 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
6501 | SubscriptBox["\[Eta]",
|
---|
6502 | RowBox[{
|
---|
6503 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6504 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6505 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6506 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6507 | RowBox[{
|
---|
6508 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6509 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
6510 | CellChangeTimes->{
|
---|
6511 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6512 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6513 | 3.58115974838443*^9}],
|
---|
6514 |
|
---|
6515 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
6516 | * * * * * *)\"\>"], "Print",
|
---|
6517 | CellChangeTimes->{
|
---|
6518 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6519 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6520 | 3.581159748393256*^9}],
|
---|
6521 |
|
---|
6522 | Cell[BoxData[
|
---|
6523 | InterpretationBox[
|
---|
6524 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "39"}],
|
---|
6525 | SequenceForm["Vertex ", 39],
|
---|
6526 | Editable->False]], "Print",
|
---|
6527 | CellChangeTimes->{
|
---|
6528 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6529 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6530 | 3.581159748397698*^9}],
|
---|
6531 |
|
---|
6532 | Cell[BoxData[
|
---|
6533 | InterpretationBox[
|
---|
6534 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
6535 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6536 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
6537 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
6538 | Editable->False]], "Print",
|
---|
6539 | CellChangeTimes->{
|
---|
6540 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6541 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6542 | 3.581159748402405*^9}],
|
---|
6543 |
|
---|
6544 | Cell[BoxData[
|
---|
6545 | InterpretationBox[
|
---|
6546 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
6547 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6548 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
6549 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
6550 | Editable->False]], "Print",
|
---|
6551 | CellChangeTimes->{
|
---|
6552 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6553 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6554 | 3.581159748407222*^9}],
|
---|
6555 |
|
---|
6556 | Cell[BoxData[
|
---|
6557 | InterpretationBox[
|
---|
6558 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6559 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
6560 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
6561 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
6562 | Editable->False]], "Print",
|
---|
6563 | CellChangeTimes->{
|
---|
6564 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6565 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6566 | 3.581159748412072*^9}],
|
---|
6567 |
|
---|
6568 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6569 | CellChangeTimes->{
|
---|
6570 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6571 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6572 | 3.5811597484168367`*^9}],
|
---|
6573 |
|
---|
6574 | Cell[BoxData[
|
---|
6575 | RowBox[{
|
---|
6576 | RowBox[{"-",
|
---|
6577 | FractionBox[
|
---|
6578 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6579 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6580 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6581 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6582 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6583 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6584 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6585 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6586 | SubscriptBox["\[Delta]",
|
---|
6587 | RowBox[{
|
---|
6588 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6589 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6590 | SubscriptBox["\[Eta]",
|
---|
6591 | RowBox[{
|
---|
6592 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6593 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
6594 | FractionBox[
|
---|
6595 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6596 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6597 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6598 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6599 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6600 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6601 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6602 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6603 | SubscriptBox["\[Delta]",
|
---|
6604 | RowBox[{
|
---|
6605 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6606 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6607 | SubscriptBox["\[Eta]",
|
---|
6608 | RowBox[{
|
---|
6609 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6610 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
6611 | FractionBox[
|
---|
6612 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6613 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6614 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6615 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6616 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6617 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6618 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6619 | SubscriptBox["\[Delta]",
|
---|
6620 | RowBox[{
|
---|
6621 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6622 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6623 | SubscriptBox["\[Eta]",
|
---|
6624 | RowBox[{
|
---|
6625 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6626 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6627 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6628 | FractionBox[
|
---|
6629 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6630 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6631 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6632 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6633 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6634 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6635 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6636 | SubscriptBox["\[Delta]",
|
---|
6637 | RowBox[{
|
---|
6638 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6639 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6640 | SubscriptBox["\[Eta]",
|
---|
6641 | RowBox[{
|
---|
6642 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6643 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6644 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6645 | FractionBox[
|
---|
6646 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6647 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6648 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6649 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6650 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6651 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6652 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6653 | SubscriptBox["\[Delta]",
|
---|
6654 | RowBox[{
|
---|
6655 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6656 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6657 | SubscriptBox["\[Eta]",
|
---|
6658 | RowBox[{
|
---|
6659 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6660 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6661 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6662 | FractionBox[
|
---|
6663 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6664 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6665 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6666 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6667 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6668 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6669 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6670 | SubscriptBox["\[Delta]",
|
---|
6671 | RowBox[{
|
---|
6672 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6673 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6674 | SubscriptBox["\[Eta]",
|
---|
6675 | RowBox[{
|
---|
6676 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6677 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6678 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6679 | FractionBox[
|
---|
6680 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6681 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6682 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6683 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6684 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6685 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6686 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6687 | SubscriptBox["\[Delta]",
|
---|
6688 | RowBox[{
|
---|
6689 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6690 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6691 | SubscriptBox["\[Eta]",
|
---|
6692 | RowBox[{
|
---|
6693 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6694 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6695 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6696 | FractionBox[
|
---|
6697 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6698 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6699 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6700 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6701 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6702 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6703 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6704 | SubscriptBox["\[Delta]",
|
---|
6705 | RowBox[{
|
---|
6706 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6707 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6708 | SubscriptBox["\[Eta]",
|
---|
6709 | RowBox[{
|
---|
6710 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6711 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6712 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6713 | FractionBox[
|
---|
6714 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6715 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6716 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6717 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6718 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6719 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6720 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6721 | SubscriptBox["\[Delta]",
|
---|
6722 | RowBox[{
|
---|
6723 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6724 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6725 | SubscriptBox["\[Eta]",
|
---|
6726 | RowBox[{
|
---|
6727 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6728 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6729 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6730 | FractionBox[
|
---|
6731 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6732 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6733 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6734 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6735 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6736 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6737 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6738 | SubscriptBox["\[Delta]",
|
---|
6739 | RowBox[{
|
---|
6740 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6741 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6742 | SubscriptBox["\[Eta]",
|
---|
6743 | RowBox[{
|
---|
6744 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6745 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6746 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6747 | FractionBox[
|
---|
6748 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6749 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6750 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6751 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6752 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6753 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6754 | SubscriptBox["\[Delta]",
|
---|
6755 | RowBox[{
|
---|
6756 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6757 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6758 | SubscriptBox["\[Eta]",
|
---|
6759 | RowBox[{
|
---|
6760 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6761 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6762 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6763 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6764 | FractionBox[
|
---|
6765 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6766 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6767 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6768 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6769 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6770 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6771 | SubscriptBox["\[Delta]",
|
---|
6772 | RowBox[{
|
---|
6773 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6774 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6775 | SubscriptBox["\[Eta]",
|
---|
6776 | RowBox[{
|
---|
6777 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6778 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6779 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6780 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6781 | FractionBox[
|
---|
6782 | RowBox[{"4", " ", "\[ImaginaryI]", " ",
|
---|
6783 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6784 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6785 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6786 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6787 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6788 | SubscriptBox["\[Delta]",
|
---|
6789 | RowBox[{
|
---|
6790 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6791 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6792 | SubscriptBox["\[Eta]",
|
---|
6793 | RowBox[{
|
---|
6794 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6795 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6796 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6797 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6798 | FractionBox[
|
---|
6799 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6800 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6801 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6802 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
6803 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6804 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6805 | SubscriptBox["\[Delta]",
|
---|
6806 | RowBox[{
|
---|
6807 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6808 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6809 | SubscriptBox["\[Eta]",
|
---|
6810 | RowBox[{
|
---|
6811 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6812 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6813 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6814 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
6815 | FractionBox[
|
---|
6816 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6817 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6818 | SubscriptBox["\[Delta]",
|
---|
6819 | RowBox[{
|
---|
6820 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6821 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6822 | SubscriptBox["\[Eta]",
|
---|
6823 | RowBox[{
|
---|
6824 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6825 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6826 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6827 | SubscriptBox["\[Eta]",
|
---|
6828 | RowBox[{
|
---|
6829 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6830 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6831 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
6832 | RowBox[{
|
---|
6833 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6834 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
|
---|
6835 | FractionBox[
|
---|
6836 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6837 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6838 | SubscriptBox["\[Delta]",
|
---|
6839 | RowBox[{
|
---|
6840 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6841 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6842 | SubscriptBox["\[Eta]",
|
---|
6843 | RowBox[{
|
---|
6844 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6845 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6846 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
6847 | SubscriptBox["\[Eta]",
|
---|
6848 | RowBox[{
|
---|
6849 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
6850 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6851 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6852 | RowBox[{
|
---|
6853 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6854 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
|
---|
6855 | FractionBox[
|
---|
6856 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6857 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
6858 | SubscriptBox["\[Delta]",
|
---|
6859 | RowBox[{
|
---|
6860 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
6861 | SubscriptBox["\<\"a\"\>", "2"]}]], " ",
|
---|
6862 | SubscriptBox["\[Eta]",
|
---|
6863 | RowBox[{
|
---|
6864 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6865 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
6866 | SubscriptBox["\[Eta]",
|
---|
6867 | RowBox[{
|
---|
6868 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6869 | RowBox[{"3", ",", "1"}]], ",",
|
---|
6870 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6871 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
6872 | RowBox[{
|
---|
6873 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
6874 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
6875 | CellChangeTimes->{
|
---|
6876 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6877 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6878 | 3.5811597484237022`*^9}],
|
---|
6879 |
|
---|
6880 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
6881 | * * * * * *)\"\>"], "Print",
|
---|
6882 | CellChangeTimes->{
|
---|
6883 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6884 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6885 | 3.5811597484342823`*^9}],
|
---|
6886 |
|
---|
6887 | Cell[BoxData[
|
---|
6888 | InterpretationBox[
|
---|
6889 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "40"}],
|
---|
6890 | SequenceForm["Vertex ", 40],
|
---|
6891 | Editable->False]], "Print",
|
---|
6892 | CellChangeTimes->{
|
---|
6893 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6894 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6895 | 3.581159748439048*^9}],
|
---|
6896 |
|
---|
6897 | Cell[BoxData[
|
---|
6898 | InterpretationBox[
|
---|
6899 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
6900 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6901 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
6902 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
6903 | Editable->False]], "Print",
|
---|
6904 | CellChangeTimes->{
|
---|
6905 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6906 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6907 | 3.5811597484437428`*^9}],
|
---|
6908 |
|
---|
6909 | Cell[BoxData[
|
---|
6910 | InterpretationBox[
|
---|
6911 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
6912 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
6913 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
6914 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
6915 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
6916 | Editable->False]], "Print",
|
---|
6917 | CellChangeTimes->{
|
---|
6918 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6919 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6920 | 3.5811597484486227`*^9}],
|
---|
6921 |
|
---|
6922 | Cell[BoxData[
|
---|
6923 | InterpretationBox[
|
---|
6924 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
6925 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
6926 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
6927 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
6928 | Editable->False]], "Print",
|
---|
6929 | CellChangeTimes->{
|
---|
6930 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6931 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6932 | 3.581159748478456*^9}],
|
---|
6933 |
|
---|
6934 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
6935 | CellChangeTimes->{
|
---|
6936 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
6937 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
6938 | 3.58115974848346*^9}],
|
---|
6939 |
|
---|
6940 | Cell[BoxData[
|
---|
6941 | RowBox[{
|
---|
6942 | RowBox[{"-",
|
---|
6943 | FractionBox[
|
---|
6944 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6945 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
6946 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6947 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6948 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6949 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6950 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6951 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6952 | SubscriptBox["\[Eta]",
|
---|
6953 | RowBox[{
|
---|
6954 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6955 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
6956 | FractionBox[
|
---|
6957 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6958 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
6959 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6960 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6961 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6962 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6963 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6964 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6965 | SubscriptBox["\[Eta]",
|
---|
6966 | RowBox[{
|
---|
6967 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6968 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
6969 | FractionBox[
|
---|
6970 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6971 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
6972 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6973 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6974 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6975 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6976 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
6977 | SubscriptBox["\[Eta]",
|
---|
6978 | RowBox[{
|
---|
6979 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6980 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6981 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6982 | FractionBox[
|
---|
6983 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6984 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
6985 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6986 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
6987 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
6988 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6989 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
6990 | SubscriptBox["\[Eta]",
|
---|
6991 | RowBox[{
|
---|
6992 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
6993 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
6994 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
6995 | FractionBox[
|
---|
6996 | RowBox[{"\[ImaginaryI]", " ",
|
---|
6997 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
6998 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
6999 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7000 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
7001 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7002 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7003 | SubscriptBox["\[Eta]",
|
---|
7004 | RowBox[{
|
---|
7005 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7006 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7007 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7008 | FractionBox[
|
---|
7009 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7010 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7011 | SubsuperscriptBox["M", "W", "2"], " ",
|
---|
7012 | SubscriptBox["\[Eta]",
|
---|
7013 | RowBox[{
|
---|
7014 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7015 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7016 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
7017 | SubscriptBox["\[Eta]",
|
---|
7018 | RowBox[{
|
---|
7019 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7020 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7021 | RowBox[{"3", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7022 | FractionBox[
|
---|
7023 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7024 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7025 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7026 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7027 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
7028 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7029 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7030 | SubscriptBox["\[Eta]",
|
---|
7031 | RowBox[{
|
---|
7032 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7033 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7034 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7035 | FractionBox[
|
---|
7036 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7037 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7038 | SubsuperscriptBox["M", "W", "2"], " ",
|
---|
7039 | SubscriptBox["\[Eta]",
|
---|
7040 | RowBox[{
|
---|
7041 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7042 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7043 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
7044 | SubscriptBox["\[Eta]",
|
---|
7045 | RowBox[{
|
---|
7046 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7047 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7048 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7049 | FractionBox[
|
---|
7050 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7051 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7052 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7053 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7054 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7055 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7056 | SubscriptBox["\[Eta]",
|
---|
7057 | RowBox[{
|
---|
7058 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7059 | RowBox[{"3", ",", "1"}]], ",",
|
---|
7060 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7061 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7062 | FractionBox[
|
---|
7063 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7064 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7065 | SubsuperscriptBox["M", "W", "2"], " ",
|
---|
7066 | SubscriptBox["\[Eta]",
|
---|
7067 | RowBox[{
|
---|
7068 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7069 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7070 | SubscriptBox["\[Eta]",
|
---|
7071 | RowBox[{
|
---|
7072 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7073 | RowBox[{"3", ",", "1"}]], ",",
|
---|
7074 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7075 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7076 | FractionBox[
|
---|
7077 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7078 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7079 | SubscriptBox["\[Eta]",
|
---|
7080 | RowBox[{
|
---|
7081 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7082 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7083 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
7084 | SubscriptBox["\[Eta]",
|
---|
7085 | RowBox[{
|
---|
7086 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7087 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7088 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
7089 | RowBox[{
|
---|
7090 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
7091 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "-",
|
---|
7092 | FractionBox[
|
---|
7093 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7094 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7095 | SubscriptBox["\[Eta]",
|
---|
7096 | RowBox[{
|
---|
7097 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7098 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7099 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
7100 | SubscriptBox["\[Eta]",
|
---|
7101 | RowBox[{
|
---|
7102 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7103 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7104 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
7105 | RowBox[{
|
---|
7106 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
7107 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"], "+",
|
---|
7108 | FractionBox[
|
---|
7109 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7110 | SubscriptBox["\[Kappa]", "w"], " ",
|
---|
7111 | SubscriptBox["\[Eta]",
|
---|
7112 | RowBox[{
|
---|
7113 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7114 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7115 | SubscriptBox["\[Eta]",
|
---|
7116 | RowBox[{
|
---|
7117 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7118 | RowBox[{"3", ",", "1"}]], ",",
|
---|
7119 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7120 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
7121 | RowBox[{
|
---|
7122 | SubscriptBox["\<\"p\"\>", "1"], ".",
|
---|
7123 | SubscriptBox["p", "2"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
7124 | CellChangeTimes->{
|
---|
7125 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7126 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7127 | 3.581159748489787*^9}],
|
---|
7128 |
|
---|
7129 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
7130 | * * * * * *)\"\>"], "Print",
|
---|
7131 | CellChangeTimes->{
|
---|
7132 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7133 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7134 | 3.581159748498128*^9}],
|
---|
7135 |
|
---|
7136 | Cell[BoxData[
|
---|
7137 | InterpretationBox[
|
---|
7138 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "41"}],
|
---|
7139 | SequenceForm["Vertex ", 41],
|
---|
7140 | Editable->False]], "Print",
|
---|
7141 | CellChangeTimes->{
|
---|
7142 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7143 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7144 | 3.581159748503084*^9}],
|
---|
7145 |
|
---|
7146 | Cell[BoxData[
|
---|
7147 | InterpretationBox[
|
---|
7148 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
7149 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
7150 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
7151 | SequenceForm["Particle ", 1, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
7152 | Editable->False]], "Print",
|
---|
7153 | CellChangeTimes->{
|
---|
7154 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7155 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7156 | 3.58115974850791*^9}],
|
---|
7157 |
|
---|
7158 | Cell[BoxData[
|
---|
7159 | InterpretationBox[
|
---|
7160 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
7161 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
7162 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
7163 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
|
---|
7164 | Editable->False]], "Print",
|
---|
7165 | CellChangeTimes->{
|
---|
7166 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7167 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7168 | 3.581159748513166*^9}],
|
---|
7169 |
|
---|
7170 | Cell[BoxData[
|
---|
7171 | InterpretationBox[
|
---|
7172 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
7173 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
7174 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
7175 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
7176 | Editable->False]], "Print",
|
---|
7177 | CellChangeTimes->{
|
---|
7178 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7179 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7180 | 3.5811597485179462`*^9}],
|
---|
7181 |
|
---|
7182 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
7183 | CellChangeTimes->{
|
---|
7184 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7185 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7186 | 3.5811597485226507`*^9}],
|
---|
7187 |
|
---|
7188 | Cell[BoxData[
|
---|
7189 | RowBox[{
|
---|
7190 | RowBox[{"-",
|
---|
7191 | FractionBox[
|
---|
7192 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7193 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7194 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7195 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7196 | RowBox[{"1", ",", "2"}]]], " ",
|
---|
7197 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7198 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7199 | RowBox[{"1", ",", "1"}]]], " ",
|
---|
7200 | SubscriptBox["\[Eta]",
|
---|
7201 | RowBox[{
|
---|
7202 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7203 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
7204 | FractionBox[
|
---|
7205 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7206 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7207 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7208 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7209 | RowBox[{"1", ",", "1"}]]], " ",
|
---|
7210 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7211 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7212 | RowBox[{"1", ",", "2"}]]], " ",
|
---|
7213 | SubscriptBox["\[Eta]",
|
---|
7214 | RowBox[{
|
---|
7215 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7216 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
|
---|
7217 | FractionBox[
|
---|
7218 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7219 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7220 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7221 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7222 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7223 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7224 | RowBox[{"1", ",", "2"}]]], " ",
|
---|
7225 | SubscriptBox["\[Eta]",
|
---|
7226 | RowBox[{
|
---|
7227 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7228 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7229 | RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7230 | FractionBox[
|
---|
7231 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7232 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7233 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7234 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7235 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7236 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7237 | RowBox[{"1", ",", "1"}]]], " ",
|
---|
7238 | SubscriptBox["\[Eta]",
|
---|
7239 | RowBox[{
|
---|
7240 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7241 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7242 | RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7243 | FractionBox[
|
---|
7244 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7245 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7246 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7247 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7248 | RowBox[{"1", ",", "2"}]]], " ",
|
---|
7249 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7250 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7251 | SubscriptBox["\[Eta]",
|
---|
7252 | RowBox[{
|
---|
7253 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7254 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7255 | RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7256 | FractionBox[
|
---|
7257 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7258 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7259 | SuperscriptBox["MZ", "2"], " ",
|
---|
7260 | SubscriptBox["\[Eta]",
|
---|
7261 | RowBox[{
|
---|
7262 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7263 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7264 | RowBox[{"1", ",", "2"}]]}]], " ",
|
---|
7265 | SubscriptBox["\[Eta]",
|
---|
7266 | RowBox[{
|
---|
7267 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7268 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7269 | RowBox[{"1", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7270 | FractionBox[
|
---|
7271 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7272 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7273 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7274 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7275 | RowBox[{"1", ",", "1"}]]], " ",
|
---|
7276 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7277 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7278 | SubscriptBox["\[Eta]",
|
---|
7279 | RowBox[{
|
---|
7280 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7281 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7282 | RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7283 | FractionBox[
|
---|
7284 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7285 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7286 | SuperscriptBox["MZ", "2"], " ",
|
---|
7287 | SubscriptBox["\[Eta]",
|
---|
7288 | RowBox[{
|
---|
7289 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7290 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7291 | RowBox[{"1", ",", "1"}]]}]], " ",
|
---|
7292 | SubscriptBox["\[Eta]",
|
---|
7293 | RowBox[{
|
---|
7294 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7295 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7296 | RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7297 | FractionBox[
|
---|
7298 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7299 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7300 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7301 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7302 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7303 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7304 | SubscriptBox["\[Eta]",
|
---|
7305 | RowBox[{
|
---|
7306 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7307 | RowBox[{"1", ",", "1"}]], ",",
|
---|
7308 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7309 | RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7310 | FractionBox[
|
---|
7311 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7312 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7313 | SuperscriptBox["MZ", "2"], " ",
|
---|
7314 | SubscriptBox["\[Eta]",
|
---|
7315 | RowBox[{
|
---|
7316 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7317 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7318 | SubscriptBox["\[Eta]",
|
---|
7319 | RowBox[{
|
---|
7320 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7321 | RowBox[{"1", ",", "1"}]], ",",
|
---|
7322 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7323 | RowBox[{"1", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7324 | FractionBox[
|
---|
7325 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7326 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7327 | SubscriptBox["\[Eta]",
|
---|
7328 | RowBox[{
|
---|
7329 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7330 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7331 | RowBox[{"1", ",", "2"}]]}]], " ",
|
---|
7332 | SubscriptBox["\[Eta]",
|
---|
7333 | RowBox[{
|
---|
7334 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7335 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7336 | RowBox[{"1", ",", "1"}]]}]], " ",
|
---|
7337 | RowBox[{
|
---|
7338 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
7339 | SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "-",
|
---|
7340 | FractionBox[
|
---|
7341 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7342 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7343 | SubscriptBox["\[Eta]",
|
---|
7344 | RowBox[{
|
---|
7345 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7346 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7347 | RowBox[{"1", ",", "1"}]]}]], " ",
|
---|
7348 | SubscriptBox["\[Eta]",
|
---|
7349 | RowBox[{
|
---|
7350 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7351 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7352 | RowBox[{"1", ",", "2"}]]}]], " ",
|
---|
7353 | RowBox[{
|
---|
7354 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
7355 | SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"], "+",
|
---|
7356 | FractionBox[
|
---|
7357 | RowBox[{"\[ImaginaryI]", " ",
|
---|
7358 | SubscriptBox["\[Kappa]", "z"], " ",
|
---|
7359 | SubscriptBox["\[Eta]",
|
---|
7360 | RowBox[{
|
---|
7361 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7362 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7363 | SubscriptBox["\[Eta]",
|
---|
7364 | RowBox[{
|
---|
7365 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7366 | RowBox[{"1", ",", "1"}]], ",",
|
---|
7367 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7368 | RowBox[{"1", ",", "2"}]]}]], " ",
|
---|
7369 | RowBox[{
|
---|
7370 | SubscriptBox["\<\"p\"\>", "2"], ".",
|
---|
7371 | SubscriptBox["p", "3"]}]}], "\[CapitalLambda]"]}]], "Print",
|
---|
7372 | CellChangeTimes->{
|
---|
7373 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7374 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7375 | 3.5811597485287447`*^9}],
|
---|
7376 |
|
---|
7377 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
7378 | * * * * * *)\"\>"], "Print",
|
---|
7379 | CellChangeTimes->{
|
---|
7380 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7381 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7382 | 3.581159748536928*^9}],
|
---|
7383 |
|
---|
7384 | Cell[BoxData[
|
---|
7385 | InterpretationBox[
|
---|
7386 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "42"}],
|
---|
7387 | SequenceForm["Vertex ", 42],
|
---|
7388 | Editable->False]], "Print",
|
---|
7389 | CellChangeTimes->{
|
---|
7390 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7391 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7392 | 3.581159748541706*^9}],
|
---|
7393 |
|
---|
7394 | Cell[BoxData[
|
---|
7395 | InterpretationBox[
|
---|
7396 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
7397 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
7398 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
7399 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
7400 | Editable->False]], "Print",
|
---|
7401 | CellChangeTimes->{
|
---|
7402 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7403 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7404 | 3.581159748546483*^9}],
|
---|
7405 |
|
---|
7406 | Cell[BoxData[
|
---|
7407 | InterpretationBox[
|
---|
7408 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
7409 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
7410 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
7411 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
7412 | Editable->False]], "Print",
|
---|
7413 | CellChangeTimes->{
|
---|
7414 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7415 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7416 | 3.581159748551306*^9}],
|
---|
7417 |
|
---|
7418 | Cell[BoxData[
|
---|
7419 | InterpretationBox[
|
---|
7420 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
7421 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
7422 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
7423 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
7424 | Editable->False]], "Print",
|
---|
7425 | CellChangeTimes->{
|
---|
7426 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7427 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7428 | 3.581159748556196*^9}],
|
---|
7429 |
|
---|
7430 | Cell[BoxData[
|
---|
7431 | InterpretationBox[
|
---|
7432 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
7433 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
7434 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
7435 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
7436 | Editable->False]], "Print",
|
---|
7437 | CellChangeTimes->{
|
---|
7438 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7439 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7440 | 3.58115974856108*^9}],
|
---|
7441 |
|
---|
7442 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
7443 | CellChangeTimes->{
|
---|
7444 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
7445 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
7446 | 3.581159748565803*^9}],
|
---|
7447 |
|
---|
7448 | Cell[BoxData[
|
---|
7449 | RowBox[{
|
---|
7450 | RowBox[{"-",
|
---|
7451 | FractionBox[
|
---|
7452 | RowBox[{
|
---|
7453 | SubscriptBox["g", "s"], " ",
|
---|
7454 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7455 | SubscriptBox["f",
|
---|
7456 | RowBox[{
|
---|
7457 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7458 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7459 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7460 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7461 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7462 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7463 | SubscriptBox["\[Eta]",
|
---|
7464 | RowBox[{
|
---|
7465 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7466 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7467 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7468 | SubscriptBox["\[Eta]",
|
---|
7469 | RowBox[{
|
---|
7470 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7471 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"]}], "+",
|
---|
7472 | FractionBox[
|
---|
7473 | RowBox[{
|
---|
7474 | SubscriptBox["g", "s"], " ",
|
---|
7475 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7476 | SubscriptBox["f",
|
---|
7477 | RowBox[{
|
---|
7478 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7479 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7480 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7481 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7482 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7483 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7484 | SubscriptBox["\[Eta]",
|
---|
7485 | RowBox[{
|
---|
7486 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7487 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7488 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7489 | SubscriptBox["\[Eta]",
|
---|
7490 | RowBox[{
|
---|
7491 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7492 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "-",
|
---|
7493 | FractionBox[
|
---|
7494 | RowBox[{
|
---|
7495 | SubscriptBox["g", "s"], " ",
|
---|
7496 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7497 | SubscriptBox["f",
|
---|
7498 | RowBox[{
|
---|
7499 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7500 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7501 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7502 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7503 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7504 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7505 | SubscriptBox["\[Eta]",
|
---|
7506 | RowBox[{
|
---|
7507 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7508 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7509 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7510 | SubscriptBox["\[Eta]",
|
---|
7511 | RowBox[{
|
---|
7512 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7513 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
|
---|
7514 | FractionBox[
|
---|
7515 | RowBox[{
|
---|
7516 | SubscriptBox["g", "s"], " ",
|
---|
7517 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7518 | SubscriptBox["f",
|
---|
7519 | RowBox[{
|
---|
7520 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7521 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7522 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7523 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7524 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7525 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7526 | SubscriptBox["\[Eta]",
|
---|
7527 | RowBox[{
|
---|
7528 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7529 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7530 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7531 | SubscriptBox["\[Eta]",
|
---|
7532 | RowBox[{
|
---|
7533 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7534 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "\[CapitalLambda]"], "+",
|
---|
7535 | FractionBox[
|
---|
7536 | RowBox[{
|
---|
7537 | SubscriptBox["g", "s"], " ",
|
---|
7538 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7539 | SubscriptBox["f",
|
---|
7540 | RowBox[{
|
---|
7541 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7542 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7543 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7544 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7545 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7546 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7547 | SubscriptBox["\[Eta]",
|
---|
7548 | RowBox[{
|
---|
7549 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7550 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7551 | SubscriptBox["\[Eta]",
|
---|
7552 | RowBox[{
|
---|
7553 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7554 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7555 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7556 | FractionBox[
|
---|
7557 | RowBox[{
|
---|
7558 | SubscriptBox["g", "s"], " ",
|
---|
7559 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7560 | SubscriptBox["f",
|
---|
7561 | RowBox[{
|
---|
7562 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7563 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7564 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7565 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7566 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7567 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7568 | SubscriptBox["\[Eta]",
|
---|
7569 | RowBox[{
|
---|
7570 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7571 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7572 | SubscriptBox["\[Eta]",
|
---|
7573 | RowBox[{
|
---|
7574 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7575 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7576 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7577 | FractionBox[
|
---|
7578 | RowBox[{
|
---|
7579 | SubscriptBox["g", "s"], " ",
|
---|
7580 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7581 | SubscriptBox["f",
|
---|
7582 | RowBox[{
|
---|
7583 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7584 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7585 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7586 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7587 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7588 | SubscriptBox["\[Eta]",
|
---|
7589 | RowBox[{
|
---|
7590 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7591 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7592 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7593 | SubscriptBox["\[Eta]",
|
---|
7594 | RowBox[{
|
---|
7595 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7596 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7597 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7598 | FractionBox[
|
---|
7599 | RowBox[{
|
---|
7600 | SubscriptBox["g", "s"], " ",
|
---|
7601 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7602 | SubscriptBox["f",
|
---|
7603 | RowBox[{
|
---|
7604 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7605 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7606 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7607 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7608 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7609 | SubscriptBox["\[Eta]",
|
---|
7610 | RowBox[{
|
---|
7611 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7612 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7613 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7614 | SubscriptBox["\[Eta]",
|
---|
7615 | RowBox[{
|
---|
7616 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7617 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7618 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7619 | FractionBox[
|
---|
7620 | RowBox[{
|
---|
7621 | SubscriptBox["g", "s"], " ",
|
---|
7622 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7623 | SubscriptBox["f",
|
---|
7624 | RowBox[{
|
---|
7625 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7626 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7627 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7628 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7629 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7630 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7631 | SubscriptBox["\[Eta]",
|
---|
7632 | RowBox[{
|
---|
7633 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7634 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7635 | SubscriptBox["\[Eta]",
|
---|
7636 | RowBox[{
|
---|
7637 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7638 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7639 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7640 | FractionBox[
|
---|
7641 | RowBox[{
|
---|
7642 | SubscriptBox["g", "s"], " ",
|
---|
7643 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7644 | SubscriptBox["f",
|
---|
7645 | RowBox[{
|
---|
7646 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7647 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7648 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7649 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7650 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7651 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7652 | SubscriptBox["\[Eta]",
|
---|
7653 | RowBox[{
|
---|
7654 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7655 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
7656 | SubscriptBox["\[Eta]",
|
---|
7657 | RowBox[{
|
---|
7658 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7659 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7660 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7661 | FractionBox[
|
---|
7662 | RowBox[{
|
---|
7663 | SubscriptBox["g", "s"], " ",
|
---|
7664 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7665 | SubscriptBox["f",
|
---|
7666 | RowBox[{
|
---|
7667 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7668 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7669 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7670 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7671 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7672 | SubscriptBox["\[Eta]",
|
---|
7673 | RowBox[{
|
---|
7674 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7675 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7676 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7677 | SubscriptBox["\[Eta]",
|
---|
7678 | RowBox[{
|
---|
7679 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7680 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7681 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7682 | FractionBox[
|
---|
7683 | RowBox[{
|
---|
7684 | SubscriptBox["g", "s"], " ",
|
---|
7685 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7686 | SubscriptBox["f",
|
---|
7687 | RowBox[{
|
---|
7688 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7689 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7690 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7691 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7692 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7693 | SubscriptBox["\[Eta]",
|
---|
7694 | RowBox[{
|
---|
7695 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7696 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7697 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7698 | SubscriptBox["\[Eta]",
|
---|
7699 | RowBox[{
|
---|
7700 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7701 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7702 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7703 | FractionBox[
|
---|
7704 | RowBox[{
|
---|
7705 | SubscriptBox["g", "s"], " ",
|
---|
7706 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7707 | SubscriptBox["f",
|
---|
7708 | RowBox[{
|
---|
7709 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7710 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7711 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7712 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7713 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7714 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7715 | SubscriptBox["\[Eta]",
|
---|
7716 | RowBox[{
|
---|
7717 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7718 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7719 | SubscriptBox["\[Eta]",
|
---|
7720 | RowBox[{
|
---|
7721 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7722 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7723 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7724 | FractionBox[
|
---|
7725 | RowBox[{
|
---|
7726 | SubscriptBox["g", "s"], " ",
|
---|
7727 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7728 | SubscriptBox["f",
|
---|
7729 | RowBox[{
|
---|
7730 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7731 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7732 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7733 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7734 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7735 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
7736 | SubscriptBox["\[Eta]",
|
---|
7737 | RowBox[{
|
---|
7738 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7739 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7740 | SubscriptBox["\[Eta]",
|
---|
7741 | RowBox[{
|
---|
7742 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7743 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7744 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7745 | FractionBox[
|
---|
7746 | RowBox[{
|
---|
7747 | SubscriptBox["g", "s"], " ",
|
---|
7748 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7749 | SubscriptBox["f",
|
---|
7750 | RowBox[{
|
---|
7751 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7752 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7753 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7754 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7755 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7756 | SubscriptBox["\[Eta]",
|
---|
7757 | RowBox[{
|
---|
7758 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7759 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7760 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7761 | SubscriptBox["\[Eta]",
|
---|
7762 | RowBox[{
|
---|
7763 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7764 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7765 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7766 | FractionBox[
|
---|
7767 | RowBox[{
|
---|
7768 | SubscriptBox["g", "s"], " ",
|
---|
7769 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7770 | SubscriptBox["f",
|
---|
7771 | RowBox[{
|
---|
7772 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7773 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7774 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7775 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7776 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7777 | SubscriptBox["\[Eta]",
|
---|
7778 | RowBox[{
|
---|
7779 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7780 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7781 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7782 | SubscriptBox["\[Eta]",
|
---|
7783 | RowBox[{
|
---|
7784 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7785 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7786 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7787 | FractionBox[
|
---|
7788 | RowBox[{
|
---|
7789 | SubscriptBox["g", "s"], " ",
|
---|
7790 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7791 | SubscriptBox["f",
|
---|
7792 | RowBox[{
|
---|
7793 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7794 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7795 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7796 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7797 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7798 | SubscriptBox["\[Eta]",
|
---|
7799 | RowBox[{
|
---|
7800 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7801 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7802 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7803 | SubscriptBox["\[Eta]",
|
---|
7804 | RowBox[{
|
---|
7805 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7806 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7807 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7808 | FractionBox[
|
---|
7809 | RowBox[{
|
---|
7810 | SubscriptBox["g", "s"], " ",
|
---|
7811 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7812 | SubscriptBox["f",
|
---|
7813 | RowBox[{
|
---|
7814 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7815 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7816 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7817 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7818 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7819 | SubscriptBox["\[Eta]",
|
---|
7820 | RowBox[{
|
---|
7821 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7822 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7823 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
7824 | SubscriptBox["\[Eta]",
|
---|
7825 | RowBox[{
|
---|
7826 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7827 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7828 | RowBox[{"4", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7829 | FractionBox[
|
---|
7830 | RowBox[{
|
---|
7831 | SubscriptBox["g", "s"], " ",
|
---|
7832 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7833 | SubscriptBox["f",
|
---|
7834 | RowBox[{
|
---|
7835 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7836 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7837 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7838 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7839 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7840 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7841 | SubscriptBox["\[Eta]",
|
---|
7842 | RowBox[{
|
---|
7843 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7844 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7845 | SubscriptBox["\[Eta]",
|
---|
7846 | RowBox[{
|
---|
7847 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7848 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7849 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7850 | FractionBox[
|
---|
7851 | RowBox[{
|
---|
7852 | SubscriptBox["g", "s"], " ",
|
---|
7853 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7854 | SubscriptBox["f",
|
---|
7855 | RowBox[{
|
---|
7856 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7857 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7858 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7859 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7860 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7861 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
7862 | SubscriptBox["\[Eta]",
|
---|
7863 | RowBox[{
|
---|
7864 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7865 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7866 | SubscriptBox["\[Eta]",
|
---|
7867 | RowBox[{
|
---|
7868 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7869 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7870 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7871 | FractionBox[
|
---|
7872 | RowBox[{
|
---|
7873 | SubscriptBox["g", "s"], " ",
|
---|
7874 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7875 | SubscriptBox["f",
|
---|
7876 | RowBox[{
|
---|
7877 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7878 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7879 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7880 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7881 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7882 | SubscriptBox["\[Eta]",
|
---|
7883 | RowBox[{
|
---|
7884 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7885 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7886 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7887 | SubscriptBox["\[Eta]",
|
---|
7888 | RowBox[{
|
---|
7889 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7890 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7891 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7892 | FractionBox[
|
---|
7893 | RowBox[{
|
---|
7894 | SubscriptBox["g", "s"], " ",
|
---|
7895 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7896 | SubscriptBox["f",
|
---|
7897 | RowBox[{
|
---|
7898 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7899 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7900 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7901 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7902 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
7903 | SubscriptBox["\[Eta]",
|
---|
7904 | RowBox[{
|
---|
7905 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7906 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7907 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7908 | SubscriptBox["\[Eta]",
|
---|
7909 | RowBox[{
|
---|
7910 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7911 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7912 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7913 | FractionBox[
|
---|
7914 | RowBox[{
|
---|
7915 | SubscriptBox["g", "s"], " ",
|
---|
7916 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7917 | SubscriptBox["f",
|
---|
7918 | RowBox[{
|
---|
7919 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7920 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7921 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7922 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7923 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7924 | SubscriptBox["\[Eta]",
|
---|
7925 | RowBox[{
|
---|
7926 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7927 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7928 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7929 | SubscriptBox["\[Eta]",
|
---|
7930 | RowBox[{
|
---|
7931 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7932 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7933 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7934 | FractionBox[
|
---|
7935 | RowBox[{
|
---|
7936 | SubscriptBox["g", "s"], " ",
|
---|
7937 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7938 | SubscriptBox["f",
|
---|
7939 | RowBox[{
|
---|
7940 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7941 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7942 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7943 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
7944 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
7945 | SubscriptBox["\[Eta]",
|
---|
7946 | RowBox[{
|
---|
7947 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
7948 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7949 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
7950 | SubscriptBox["\[Eta]",
|
---|
7951 | RowBox[{
|
---|
7952 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
7953 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7954 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
7955 | FractionBox[
|
---|
7956 | RowBox[{
|
---|
7957 | SubscriptBox["g", "s"], " ",
|
---|
7958 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7959 | SubscriptBox["f",
|
---|
7960 | RowBox[{
|
---|
7961 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7962 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7963 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7964 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
7965 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7966 | SubscriptBox["\[Eta]",
|
---|
7967 | RowBox[{
|
---|
7968 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7969 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7970 | SubscriptBox["\[Eta]",
|
---|
7971 | RowBox[{
|
---|
7972 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7973 | RowBox[{"4", ",", "1"}]], ",",
|
---|
7974 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7975 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7976 | FractionBox[
|
---|
7977 | RowBox[{
|
---|
7978 | SubscriptBox["g", "s"], " ",
|
---|
7979 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
7980 | SubscriptBox["f",
|
---|
7981 | RowBox[{
|
---|
7982 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
7983 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
7984 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
7985 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
7986 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
7987 | SubscriptBox["\[Eta]",
|
---|
7988 | RowBox[{
|
---|
7989 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
7990 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
7991 | SubscriptBox["\[Eta]",
|
---|
7992 | RowBox[{
|
---|
7993 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7994 | RowBox[{"4", ",", "1"}]], ",",
|
---|
7995 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
7996 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
7997 | FractionBox[
|
---|
7998 | RowBox[{
|
---|
7999 | SubscriptBox["g", "s"], " ",
|
---|
8000 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8001 | SubscriptBox["f",
|
---|
8002 | RowBox[{
|
---|
8003 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8004 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8005 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
8006 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
8007 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
8008 | SubscriptBox["\[Eta]",
|
---|
8009 | RowBox[{
|
---|
8010 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8011 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8012 | SubscriptBox["\[Eta]",
|
---|
8013 | RowBox[{
|
---|
8014 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8015 | RowBox[{"4", ",", "1"}]], ",",
|
---|
8016 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8017 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8018 | FractionBox[
|
---|
8019 | RowBox[{
|
---|
8020 | SubscriptBox["g", "s"], " ",
|
---|
8021 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8022 | SubscriptBox["f",
|
---|
8023 | RowBox[{
|
---|
8024 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8025 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8026 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
8027 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
8028 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
8029 | SubscriptBox["\[Eta]",
|
---|
8030 | RowBox[{
|
---|
8031 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8032 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8033 | SubscriptBox["\[Eta]",
|
---|
8034 | RowBox[{
|
---|
8035 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8036 | RowBox[{"4", ",", "1"}]], ",",
|
---|
8037 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8038 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8039 | FractionBox[
|
---|
8040 | RowBox[{
|
---|
8041 | SubscriptBox["g", "s"], " ",
|
---|
8042 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8043 | SubscriptBox["f",
|
---|
8044 | RowBox[{
|
---|
8045 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8046 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8047 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
8048 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
8049 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
8050 | SubscriptBox["\[Eta]",
|
---|
8051 | RowBox[{
|
---|
8052 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8053 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8054 | SubscriptBox["\[Eta]",
|
---|
8055 | RowBox[{
|
---|
8056 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8057 | RowBox[{"4", ",", "1"}]], ",",
|
---|
8058 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8059 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8060 | FractionBox[
|
---|
8061 | RowBox[{
|
---|
8062 | SubscriptBox["g", "s"], " ",
|
---|
8063 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8064 | SubscriptBox["f",
|
---|
8065 | RowBox[{
|
---|
8066 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8067 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8068 | SubscriptBox["\<\"a\"\>", "3"]}]], " ",
|
---|
8069 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
8070 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
8071 | SubscriptBox["\[Eta]",
|
---|
8072 | RowBox[{
|
---|
8073 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8074 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8075 | SubscriptBox["\[Eta]",
|
---|
8076 | RowBox[{
|
---|
8077 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8078 | RowBox[{"4", ",", "1"}]], ",",
|
---|
8079 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8080 | RowBox[{"4", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
8081 | CellChangeTimes->{
|
---|
8082 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8083 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8084 | 3.5811597485749397`*^9}],
|
---|
8085 |
|
---|
8086 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
8087 | * * * * * *)\"\>"], "Print",
|
---|
8088 | CellChangeTimes->{
|
---|
8089 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8090 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8091 | 3.5811597485917397`*^9}],
|
---|
8092 |
|
---|
8093 | Cell[BoxData[
|
---|
8094 | InterpretationBox[
|
---|
8095 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "43"}],
|
---|
8096 | SequenceForm["Vertex ", 43],
|
---|
8097 | Editable->False]], "Print",
|
---|
8098 | CellChangeTimes->{
|
---|
8099 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8100 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8101 | 3.581159748596613*^9}],
|
---|
8102 |
|
---|
8103 | Cell[BoxData[
|
---|
8104 | InterpretationBox[
|
---|
8105 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
8106 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
8107 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
8108 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
8109 | Editable->False]], "Print",
|
---|
8110 | CellChangeTimes->{
|
---|
8111 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8112 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8113 | 3.581159748601349*^9}],
|
---|
8114 |
|
---|
8115 | Cell[BoxData[
|
---|
8116 | InterpretationBox[
|
---|
8117 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
8118 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
8119 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
8120 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`G],
|
---|
8121 | Editable->False]], "Print",
|
---|
8122 | CellChangeTimes->{
|
---|
8123 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8124 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8125 | 3.5811597486061277`*^9}],
|
---|
8126 |
|
---|
8127 | Cell[BoxData[
|
---|
8128 | InterpretationBox[
|
---|
8129 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
8130 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
8131 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
8132 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
8133 | Editable->False]], "Print",
|
---|
8134 | CellChangeTimes->{
|
---|
8135 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8136 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8137 | 3.581159748610895*^9}],
|
---|
8138 |
|
---|
8139 | Cell[BoxData[
|
---|
8140 | InterpretationBox[
|
---|
8141 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
8142 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
8143 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
8144 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", FeynRules`G],
|
---|
8145 | Editable->False]], "Print",
|
---|
8146 | CellChangeTimes->{
|
---|
8147 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8148 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8149 | 3.581159748615778*^9}],
|
---|
8150 |
|
---|
8151 | Cell[BoxData[
|
---|
8152 | InterpretationBox[
|
---|
8153 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "5",
|
---|
8154 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
8155 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
8156 | SequenceForm["Particle ", 5, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
8157 | Editable->False]], "Print",
|
---|
8158 | CellChangeTimes->{
|
---|
8159 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8160 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8161 | 3.581159748620595*^9}],
|
---|
8162 |
|
---|
8163 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
8164 | CellChangeTimes->{
|
---|
8165 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8166 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8167 | 3.581159748625334*^9}],
|
---|
8168 |
|
---|
8169 | Cell[BoxData[
|
---|
8170 | RowBox[{
|
---|
8171 | FractionBox[
|
---|
8172 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8173 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8174 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8175 | SubscriptBox["f",
|
---|
8176 | RowBox[{
|
---|
8177 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8178 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8179 | SubscriptBox["f",
|
---|
8180 | RowBox[{
|
---|
8181 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8182 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8183 | SubscriptBox["\[Eta]",
|
---|
8184 | RowBox[{
|
---|
8185 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8186 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8187 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8188 | SubscriptBox["\[Eta]",
|
---|
8189 | RowBox[{
|
---|
8190 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8191 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8192 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8193 | SubscriptBox["\[Eta]",
|
---|
8194 | RowBox[{
|
---|
8195 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8196 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
|
---|
8197 | FractionBox[
|
---|
8198 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8199 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8200 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8201 | SubscriptBox["f",
|
---|
8202 | RowBox[{
|
---|
8203 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8204 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8205 | SubscriptBox["f",
|
---|
8206 | RowBox[{
|
---|
8207 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8208 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8209 | SubscriptBox["\[Eta]",
|
---|
8210 | RowBox[{
|
---|
8211 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8212 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8213 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8214 | SubscriptBox["\[Eta]",
|
---|
8215 | RowBox[{
|
---|
8216 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8217 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8218 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8219 | SubscriptBox["\[Eta]",
|
---|
8220 | RowBox[{
|
---|
8221 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8222 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
|
---|
8223 | FractionBox[
|
---|
8224 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8225 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8226 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8227 | SubscriptBox["f",
|
---|
8228 | RowBox[{
|
---|
8229 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8230 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8231 | SubscriptBox["f",
|
---|
8232 | RowBox[{
|
---|
8233 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8234 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8235 | SubscriptBox["\[Eta]",
|
---|
8236 | RowBox[{
|
---|
8237 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8238 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8239 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8240 | SubscriptBox["\[Eta]",
|
---|
8241 | RowBox[{
|
---|
8242 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8243 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8244 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8245 | SubscriptBox["\[Eta]",
|
---|
8246 | RowBox[{
|
---|
8247 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8248 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "+",
|
---|
8249 | FractionBox[
|
---|
8250 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8251 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8252 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8253 | SubscriptBox["f",
|
---|
8254 | RowBox[{
|
---|
8255 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8256 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8257 | SubscriptBox["f",
|
---|
8258 | RowBox[{
|
---|
8259 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8260 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8261 | SubscriptBox["\[Eta]",
|
---|
8262 | RowBox[{
|
---|
8263 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8264 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8265 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8266 | SubscriptBox["\[Eta]",
|
---|
8267 | RowBox[{
|
---|
8268 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8269 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8270 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8271 | SubscriptBox["\[Eta]",
|
---|
8272 | RowBox[{
|
---|
8273 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8274 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "\[CapitalLambda]"], "-",
|
---|
8275 | FractionBox[
|
---|
8276 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8277 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8278 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8279 | SubscriptBox["f",
|
---|
8280 | RowBox[{
|
---|
8281 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8282 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8283 | SubscriptBox["f",
|
---|
8284 | RowBox[{
|
---|
8285 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8286 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8287 | SubscriptBox["\[Eta]",
|
---|
8288 | RowBox[{
|
---|
8289 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8290 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8291 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8292 | SubscriptBox["\[Eta]",
|
---|
8293 | RowBox[{
|
---|
8294 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8295 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8296 | SubscriptBox["\[Eta]",
|
---|
8297 | RowBox[{
|
---|
8298 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8299 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8300 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8301 | FractionBox[
|
---|
8302 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8303 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8304 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8305 | SubscriptBox["f",
|
---|
8306 | RowBox[{
|
---|
8307 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8308 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8309 | SubscriptBox["f",
|
---|
8310 | RowBox[{
|
---|
8311 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8312 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8313 | SubscriptBox["\[Eta]",
|
---|
8314 | RowBox[{
|
---|
8315 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8316 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8317 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8318 | SubscriptBox["\[Eta]",
|
---|
8319 | RowBox[{
|
---|
8320 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8321 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8322 | SubscriptBox["\[Eta]",
|
---|
8323 | RowBox[{
|
---|
8324 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8325 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8326 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8327 | FractionBox[
|
---|
8328 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8329 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8330 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8331 | SubscriptBox["f",
|
---|
8332 | RowBox[{
|
---|
8333 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8334 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8335 | SubscriptBox["f",
|
---|
8336 | RowBox[{
|
---|
8337 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8338 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8339 | SubscriptBox["\[Eta]",
|
---|
8340 | RowBox[{
|
---|
8341 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8342 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8343 | SubscriptBox["\[Eta]",
|
---|
8344 | RowBox[{
|
---|
8345 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8346 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8347 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8348 | SubscriptBox["\[Eta]",
|
---|
8349 | RowBox[{
|
---|
8350 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8351 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8352 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8353 | FractionBox[
|
---|
8354 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8355 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8356 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8357 | SubscriptBox["f",
|
---|
8358 | RowBox[{
|
---|
8359 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8360 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8361 | SubscriptBox["f",
|
---|
8362 | RowBox[{
|
---|
8363 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8364 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8365 | SubscriptBox["\[Eta]",
|
---|
8366 | RowBox[{
|
---|
8367 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8368 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8369 | SubscriptBox["\[Eta]",
|
---|
8370 | RowBox[{
|
---|
8371 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8372 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8373 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8374 | SubscriptBox["\[Eta]",
|
---|
8375 | RowBox[{
|
---|
8376 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8377 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8378 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8379 | FractionBox[
|
---|
8380 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8381 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8382 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8383 | SubscriptBox["f",
|
---|
8384 | RowBox[{
|
---|
8385 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8386 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8387 | SubscriptBox["f",
|
---|
8388 | RowBox[{
|
---|
8389 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8390 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8391 | SubscriptBox["\[Eta]",
|
---|
8392 | RowBox[{
|
---|
8393 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8394 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8395 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8396 | SubscriptBox["\[Eta]",
|
---|
8397 | RowBox[{
|
---|
8398 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8399 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8400 | SubscriptBox["\[Eta]",
|
---|
8401 | RowBox[{
|
---|
8402 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8403 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8404 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8405 | FractionBox[
|
---|
8406 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8407 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8408 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8409 | SubscriptBox["f",
|
---|
8410 | RowBox[{
|
---|
8411 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8412 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8413 | SubscriptBox["f",
|
---|
8414 | RowBox[{
|
---|
8415 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8416 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8417 | SubscriptBox["\[Eta]",
|
---|
8418 | RowBox[{
|
---|
8419 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8420 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8421 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8422 | SubscriptBox["\[Eta]",
|
---|
8423 | RowBox[{
|
---|
8424 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8425 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8426 | SubscriptBox["\[Eta]",
|
---|
8427 | RowBox[{
|
---|
8428 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8429 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8430 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8431 | FractionBox[
|
---|
8432 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8433 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8434 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8435 | SubscriptBox["f",
|
---|
8436 | RowBox[{
|
---|
8437 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8438 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8439 | SubscriptBox["f",
|
---|
8440 | RowBox[{
|
---|
8441 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8442 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8443 | SubscriptBox["\[Eta]",
|
---|
8444 | RowBox[{
|
---|
8445 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8446 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8447 | SubscriptBox["\[Eta]",
|
---|
8448 | RowBox[{
|
---|
8449 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8450 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8451 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8452 | SubscriptBox["\[Eta]",
|
---|
8453 | RowBox[{
|
---|
8454 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8455 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8456 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8457 | FractionBox[
|
---|
8458 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8459 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8460 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8461 | SubscriptBox["f",
|
---|
8462 | RowBox[{
|
---|
8463 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8464 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8465 | SubscriptBox["f",
|
---|
8466 | RowBox[{
|
---|
8467 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8468 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8469 | SubscriptBox["\[Eta]",
|
---|
8470 | RowBox[{
|
---|
8471 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8472 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8473 | SubscriptBox["\[Eta]",
|
---|
8474 | RowBox[{
|
---|
8475 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8476 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8477 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8478 | SubscriptBox["\[Eta]",
|
---|
8479 | RowBox[{
|
---|
8480 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8481 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8482 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8483 | FractionBox[
|
---|
8484 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8485 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8486 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8487 | SubscriptBox["f",
|
---|
8488 | RowBox[{
|
---|
8489 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8490 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8491 | SubscriptBox["f",
|
---|
8492 | RowBox[{
|
---|
8493 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8494 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8495 | SubscriptBox["\[Eta]",
|
---|
8496 | RowBox[{
|
---|
8497 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8498 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8499 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8500 | SubscriptBox["\[Eta]",
|
---|
8501 | RowBox[{
|
---|
8502 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8503 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8504 | SubscriptBox["\[Eta]",
|
---|
8505 | RowBox[{
|
---|
8506 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8507 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8508 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8509 | FractionBox[
|
---|
8510 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8511 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8512 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8513 | SubscriptBox["f",
|
---|
8514 | RowBox[{
|
---|
8515 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8516 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8517 | SubscriptBox["f",
|
---|
8518 | RowBox[{
|
---|
8519 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8520 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8521 | SubscriptBox["\[Eta]",
|
---|
8522 | RowBox[{
|
---|
8523 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8524 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8525 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8526 | SubscriptBox["\[Eta]",
|
---|
8527 | RowBox[{
|
---|
8528 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8529 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8530 | SubscriptBox["\[Eta]",
|
---|
8531 | RowBox[{
|
---|
8532 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8533 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8534 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8535 | FractionBox[
|
---|
8536 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8537 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8538 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8539 | SubscriptBox["f",
|
---|
8540 | RowBox[{
|
---|
8541 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8542 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8543 | SubscriptBox["f",
|
---|
8544 | RowBox[{
|
---|
8545 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8546 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8547 | SubscriptBox["\[Eta]",
|
---|
8548 | RowBox[{
|
---|
8549 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8550 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8551 | SubscriptBox["\[Eta]",
|
---|
8552 | RowBox[{
|
---|
8553 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8554 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8555 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8556 | SubscriptBox["\[Eta]",
|
---|
8557 | RowBox[{
|
---|
8558 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8559 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8560 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8561 | FractionBox[
|
---|
8562 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8563 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8564 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8565 | SubscriptBox["f",
|
---|
8566 | RowBox[{
|
---|
8567 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8568 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8569 | SubscriptBox["f",
|
---|
8570 | RowBox[{
|
---|
8571 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8572 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8573 | SubscriptBox["\[Eta]",
|
---|
8574 | RowBox[{
|
---|
8575 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8576 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8577 | SubscriptBox["\[Eta]",
|
---|
8578 | RowBox[{
|
---|
8579 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8580 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8581 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8582 | SubscriptBox["\[Eta]",
|
---|
8583 | RowBox[{
|
---|
8584 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8585 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8586 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8587 | FractionBox[
|
---|
8588 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8589 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8590 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8591 | SubscriptBox["f",
|
---|
8592 | RowBox[{
|
---|
8593 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8594 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8595 | SubscriptBox["f",
|
---|
8596 | RowBox[{
|
---|
8597 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8598 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8599 | SubscriptBox["\[Eta]",
|
---|
8600 | RowBox[{
|
---|
8601 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8602 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8603 | SubscriptBox["\[Eta]",
|
---|
8604 | RowBox[{
|
---|
8605 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8606 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8607 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8608 | SubscriptBox["\[Eta]",
|
---|
8609 | RowBox[{
|
---|
8610 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8611 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8612 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8613 | FractionBox[
|
---|
8614 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8615 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8616 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8617 | SubscriptBox["f",
|
---|
8618 | RowBox[{
|
---|
8619 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8620 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8621 | SubscriptBox["f",
|
---|
8622 | RowBox[{
|
---|
8623 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8624 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8625 | SubscriptBox["\[Eta]",
|
---|
8626 | RowBox[{
|
---|
8627 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8628 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8629 | SubscriptBox["\[Eta]",
|
---|
8630 | RowBox[{
|
---|
8631 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8632 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8633 | RowBox[{"5", ",", "2"}]]}]], " ",
|
---|
8634 | SubscriptBox["\[Eta]",
|
---|
8635 | RowBox[{
|
---|
8636 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8637 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8638 | RowBox[{"5", ",", "1"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8639 | FractionBox[
|
---|
8640 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8641 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8642 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8643 | SubscriptBox["f",
|
---|
8644 | RowBox[{
|
---|
8645 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8646 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8647 | SubscriptBox["f",
|
---|
8648 | RowBox[{
|
---|
8649 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8650 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8651 | SubscriptBox["\[Eta]",
|
---|
8652 | RowBox[{
|
---|
8653 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8654 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8655 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8656 | SubscriptBox["\[Eta]",
|
---|
8657 | RowBox[{
|
---|
8658 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8659 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8660 | SubscriptBox["\[Eta]",
|
---|
8661 | RowBox[{
|
---|
8662 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8663 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8664 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8665 | FractionBox[
|
---|
8666 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8667 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8668 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8669 | SubscriptBox["f",
|
---|
8670 | RowBox[{
|
---|
8671 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8672 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8673 | SubscriptBox["f",
|
---|
8674 | RowBox[{
|
---|
8675 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8676 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8677 | SubscriptBox["\[Eta]",
|
---|
8678 | RowBox[{
|
---|
8679 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8680 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8681 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8682 | SubscriptBox["\[Eta]",
|
---|
8683 | RowBox[{
|
---|
8684 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8685 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8686 | SubscriptBox["\[Eta]",
|
---|
8687 | RowBox[{
|
---|
8688 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8689 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8690 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8691 | FractionBox[
|
---|
8692 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8693 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8694 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8695 | SubscriptBox["f",
|
---|
8696 | RowBox[{
|
---|
8697 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8698 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8699 | SubscriptBox["f",
|
---|
8700 | RowBox[{
|
---|
8701 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8702 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8703 | SubscriptBox["\[Eta]",
|
---|
8704 | RowBox[{
|
---|
8705 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8706 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8707 | SubscriptBox["\[Eta]",
|
---|
8708 | RowBox[{
|
---|
8709 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8710 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8711 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8712 | SubscriptBox["\[Eta]",
|
---|
8713 | RowBox[{
|
---|
8714 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8715 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8716 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8717 | FractionBox[
|
---|
8718 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8719 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8720 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8721 | SubscriptBox["f",
|
---|
8722 | RowBox[{
|
---|
8723 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8724 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8725 | SubscriptBox["f",
|
---|
8726 | RowBox[{
|
---|
8727 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8728 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8729 | SubscriptBox["\[Eta]",
|
---|
8730 | RowBox[{
|
---|
8731 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8732 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8733 | SubscriptBox["\[Eta]",
|
---|
8734 | RowBox[{
|
---|
8735 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8736 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8737 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8738 | SubscriptBox["\[Eta]",
|
---|
8739 | RowBox[{
|
---|
8740 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8741 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8742 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8743 | FractionBox[
|
---|
8744 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8745 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8746 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8747 | SubscriptBox["f",
|
---|
8748 | RowBox[{
|
---|
8749 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8750 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8751 | SubscriptBox["f",
|
---|
8752 | RowBox[{
|
---|
8753 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8754 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8755 | SubscriptBox["\[Eta]",
|
---|
8756 | RowBox[{
|
---|
8757 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8758 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8759 | SubscriptBox["\[Eta]",
|
---|
8760 | RowBox[{
|
---|
8761 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8762 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8763 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8764 | SubscriptBox["\[Eta]",
|
---|
8765 | RowBox[{
|
---|
8766 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8767 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8768 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8769 | FractionBox[
|
---|
8770 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8771 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8772 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8773 | SubscriptBox["f",
|
---|
8774 | RowBox[{
|
---|
8775 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8776 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8777 | SubscriptBox["f",
|
---|
8778 | RowBox[{
|
---|
8779 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8780 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8781 | SubscriptBox["\[Eta]",
|
---|
8782 | RowBox[{
|
---|
8783 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8784 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8785 | SubscriptBox["\[Eta]",
|
---|
8786 | RowBox[{
|
---|
8787 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8788 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8789 | RowBox[{"5", ",", "1"}]]}]], " ",
|
---|
8790 | SubscriptBox["\[Eta]",
|
---|
8791 | RowBox[{
|
---|
8792 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
8793 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8794 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8795 | FractionBox[
|
---|
8796 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8797 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8798 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8799 | SubscriptBox["f",
|
---|
8800 | RowBox[{
|
---|
8801 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8802 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8803 | SubscriptBox["f",
|
---|
8804 | RowBox[{
|
---|
8805 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8806 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8807 | SubscriptBox["\[Eta]",
|
---|
8808 | RowBox[{
|
---|
8809 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8810 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8811 | SubscriptBox["\[Eta]",
|
---|
8812 | RowBox[{
|
---|
8813 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8814 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8815 | SubscriptBox["\[Eta]",
|
---|
8816 | RowBox[{
|
---|
8817 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8818 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8819 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8820 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8821 | FractionBox[
|
---|
8822 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8823 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8824 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8825 | SubscriptBox["f",
|
---|
8826 | RowBox[{
|
---|
8827 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8828 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8829 | SubscriptBox["f",
|
---|
8830 | RowBox[{
|
---|
8831 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8832 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8833 | SubscriptBox["\[Eta]",
|
---|
8834 | RowBox[{
|
---|
8835 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8836 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8837 | SubscriptBox["\[Eta]",
|
---|
8838 | RowBox[{
|
---|
8839 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8840 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8841 | SubscriptBox["\[Eta]",
|
---|
8842 | RowBox[{
|
---|
8843 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8844 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8845 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8846 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
8847 | FractionBox[
|
---|
8848 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8849 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8850 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8851 | SubscriptBox["f",
|
---|
8852 | RowBox[{
|
---|
8853 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8854 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8855 | SubscriptBox["f",
|
---|
8856 | RowBox[{
|
---|
8857 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8858 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8859 | SubscriptBox["\[Eta]",
|
---|
8860 | RowBox[{
|
---|
8861 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8862 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8863 | SubscriptBox["\[Eta]",
|
---|
8864 | RowBox[{
|
---|
8865 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8866 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8867 | SubscriptBox["\[Eta]",
|
---|
8868 | RowBox[{
|
---|
8869 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8870 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8871 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8872 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8873 | FractionBox[
|
---|
8874 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8875 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8876 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8877 | SubscriptBox["f",
|
---|
8878 | RowBox[{
|
---|
8879 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8880 | SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$11"}]], " ",
|
---|
8881 | SubscriptBox["f",
|
---|
8882 | RowBox[{
|
---|
8883 | SubscriptBox["\<\"a\"\>", "3"], ",",
|
---|
8884 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8885 | SubscriptBox["\[Eta]",
|
---|
8886 | RowBox[{
|
---|
8887 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8888 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
8889 | SubscriptBox["\[Eta]",
|
---|
8890 | RowBox[{
|
---|
8891 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
8892 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8893 | SubscriptBox["\[Eta]",
|
---|
8894 | RowBox[{
|
---|
8895 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8896 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8897 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8898 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8899 | FractionBox[
|
---|
8900 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8901 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8902 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8903 | SubscriptBox["f",
|
---|
8904 | RowBox[{
|
---|
8905 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8906 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8907 | SubscriptBox["f",
|
---|
8908 | RowBox[{
|
---|
8909 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8910 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8911 | SubscriptBox["\[Eta]",
|
---|
8912 | RowBox[{
|
---|
8913 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8914 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8915 | SubscriptBox["\[Eta]",
|
---|
8916 | RowBox[{
|
---|
8917 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8918 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8919 | SubscriptBox["\[Eta]",
|
---|
8920 | RowBox[{
|
---|
8921 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8922 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8923 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8924 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"], "-",
|
---|
8925 | FractionBox[
|
---|
8926 | RowBox[{"\[ImaginaryI]", " ",
|
---|
8927 | SubsuperscriptBox["g", "s", "2"], " ",
|
---|
8928 | SubscriptBox["\[Kappa]", "g"], " ",
|
---|
8929 | SubscriptBox["f",
|
---|
8930 | RowBox[{
|
---|
8931 | SubscriptBox["\<\"a\"\>", "1"], ",",
|
---|
8932 | SubscriptBox["\<\"a\"\>", "3"], ",", "Gluon$11"}]], " ",
|
---|
8933 | SubscriptBox["f",
|
---|
8934 | RowBox[{
|
---|
8935 | SubscriptBox["\<\"a\"\>", "2"], ",",
|
---|
8936 | SubscriptBox["\<\"a\"\>", "4"], ",", "Gluon$11"}]], " ",
|
---|
8937 | SubscriptBox["\[Eta]",
|
---|
8938 | RowBox[{
|
---|
8939 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
8940 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
8941 | SubscriptBox["\[Eta]",
|
---|
8942 | RowBox[{
|
---|
8943 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
8944 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
8945 | SubscriptBox["\[Eta]",
|
---|
8946 | RowBox[{
|
---|
8947 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8948 | RowBox[{"5", ",", "1"}]], ",",
|
---|
8949 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
8950 | RowBox[{"5", ",", "2"}]]}]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
8951 | CellChangeTimes->{
|
---|
8952 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8953 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8954 | 3.5811597486458473`*^9}],
|
---|
8955 |
|
---|
8956 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
8957 | * * * * * *)\"\>"], "Print",
|
---|
8958 | CellChangeTimes->{
|
---|
8959 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8960 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8961 | 3.581159748688223*^9}],
|
---|
8962 |
|
---|
8963 | Cell[BoxData[
|
---|
8964 | InterpretationBox[
|
---|
8965 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "44"}],
|
---|
8966 | SequenceForm["Vertex ", 44],
|
---|
8967 | Editable->False]], "Print",
|
---|
8968 | CellChangeTimes->{
|
---|
8969 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8970 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8971 | 3.581159748694454*^9}],
|
---|
8972 |
|
---|
8973 | Cell[BoxData[
|
---|
8974 | InterpretationBox[
|
---|
8975 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
8976 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
8977 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
8978 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
8979 | Editable->False]], "Print",
|
---|
8980 | CellChangeTimes->{
|
---|
8981 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8982 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8983 | 3.581159748699162*^9}],
|
---|
8984 |
|
---|
8985 | Cell[BoxData[
|
---|
8986 | InterpretationBox[
|
---|
8987 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
8988 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
8989 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
8990 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
8991 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
8992 | Editable->False]], "Print",
|
---|
8993 | CellChangeTimes->{
|
---|
8994 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
8995 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
8996 | 3.581159748705668*^9}],
|
---|
8997 |
|
---|
8998 | Cell[BoxData[
|
---|
8999 | InterpretationBox[
|
---|
9000 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9001 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9002 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9003 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9004 | Editable->False]], "Print",
|
---|
9005 | CellChangeTimes->{
|
---|
9006 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9007 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9008 | 3.581159748710792*^9}],
|
---|
9009 |
|
---|
9010 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9011 | CellChangeTimes->{
|
---|
9012 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9013 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9014 | 3.581159748724504*^9}],
|
---|
9015 |
|
---|
9016 | Cell[BoxData[
|
---|
9017 | RowBox[{
|
---|
9018 | RowBox[{"-",
|
---|
9019 | FractionBox[
|
---|
9020 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9021 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9022 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9023 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9024 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9025 | SubsuperscriptBox["\[Gamma]",
|
---|
9026 | RowBox[{
|
---|
9027 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9028 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9029 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9030 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9031 | SubscriptBox["\[Delta]",
|
---|
9032 | RowBox[{
|
---|
9033 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9034 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9035 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9036 | FractionBox[
|
---|
9037 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9038 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9039 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9040 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9041 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9042 | SubsuperscriptBox["\[Gamma]",
|
---|
9043 | RowBox[{
|
---|
9044 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9045 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9046 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9047 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9048 | SubscriptBox["\[Delta]",
|
---|
9049 | RowBox[{
|
---|
9050 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9051 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9052 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9053 | FractionBox[
|
---|
9054 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9055 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9056 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9057 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9058 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9059 | SubsuperscriptBox["\[Gamma]",
|
---|
9060 | RowBox[{
|
---|
9061 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9062 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9063 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9064 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9065 | SubscriptBox["\[Delta]",
|
---|
9066 | RowBox[{
|
---|
9067 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9068 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9069 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9070 | FractionBox[
|
---|
9071 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9072 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9073 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9074 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9075 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9076 | SubsuperscriptBox["\[Gamma]",
|
---|
9077 | RowBox[{
|
---|
9078 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9079 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9080 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9081 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9082 | SubscriptBox["\[Delta]",
|
---|
9083 | RowBox[{
|
---|
9084 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9085 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9086 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9087 | FractionBox[
|
---|
9088 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9089 | SubscriptBox["\[Kappa]", "q"], " ", "MB", " ",
|
---|
9090 | SubscriptBox["\[Delta]",
|
---|
9091 | RowBox[{
|
---|
9092 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9093 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9094 | SubscriptBox["\[Delta]",
|
---|
9095 | RowBox[{
|
---|
9096 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9097 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
9098 | SubscriptBox["\[Eta]",
|
---|
9099 | RowBox[{
|
---|
9100 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9101 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9102 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9103 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
9104 | FractionBox[
|
---|
9105 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9106 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9107 | SubscriptBox["\[Delta]",
|
---|
9108 | RowBox[{
|
---|
9109 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9110 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9111 | SubscriptBox["\[Eta]",
|
---|
9112 | RowBox[{
|
---|
9113 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9114 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9115 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9116 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9117 | SubscriptBox[
|
---|
9118 | RowBox[{"\[Gamma]", ".",
|
---|
9119 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9120 | RowBox[{
|
---|
9121 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9122 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9123 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9124 | FractionBox[
|
---|
9125 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9126 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9127 | SubscriptBox["\[Delta]",
|
---|
9128 | RowBox[{
|
---|
9129 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9130 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9131 | SubscriptBox["\[Eta]",
|
---|
9132 | RowBox[{
|
---|
9133 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9134 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9135 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9136 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9137 | SubscriptBox[
|
---|
9138 | RowBox[{"\[Gamma]", ".",
|
---|
9139 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9140 | RowBox[{
|
---|
9141 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9142 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9143 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9144 | CellChangeTimes->{
|
---|
9145 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9146 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9147 | 3.581159748730384*^9}],
|
---|
9148 |
|
---|
9149 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9150 | * * * * * *)\"\>"], "Print",
|
---|
9151 | CellChangeTimes->{
|
---|
9152 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9153 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9154 | 3.581159748737555*^9}],
|
---|
9155 |
|
---|
9156 | Cell[BoxData[
|
---|
9157 | InterpretationBox[
|
---|
9158 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "45"}],
|
---|
9159 | SequenceForm["Vertex ", 45],
|
---|
9160 | Editable->False]], "Print",
|
---|
9161 | CellChangeTimes->{
|
---|
9162 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9163 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9164 | 3.581159748742529*^9}],
|
---|
9165 |
|
---|
9166 | Cell[BoxData[
|
---|
9167 | InterpretationBox[
|
---|
9168 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9169 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9170 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
9171 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
9172 | Editable->False]], "Print",
|
---|
9173 | CellChangeTimes->{
|
---|
9174 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9175 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9176 | 3.581159748747438*^9}],
|
---|
9177 |
|
---|
9178 | Cell[BoxData[
|
---|
9179 | InterpretationBox[
|
---|
9180 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
9181 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9182 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
9183 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
9184 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
9185 | Editable->False]], "Print",
|
---|
9186 | CellChangeTimes->{
|
---|
9187 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9188 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9189 | 3.581159748752425*^9}],
|
---|
9190 |
|
---|
9191 | Cell[BoxData[
|
---|
9192 | InterpretationBox[
|
---|
9193 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9194 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9195 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9196 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9197 | Editable->False]], "Print",
|
---|
9198 | CellChangeTimes->{
|
---|
9199 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9200 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9201 | 3.5811597487574453`*^9}],
|
---|
9202 |
|
---|
9203 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9204 | CellChangeTimes->{
|
---|
9205 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9206 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9207 | 3.581159748762434*^9}],
|
---|
9208 |
|
---|
9209 | Cell[BoxData[
|
---|
9210 | RowBox[{
|
---|
9211 | RowBox[{"-",
|
---|
9212 | FractionBox[
|
---|
9213 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9214 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9215 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9216 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9217 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9218 | SubsuperscriptBox["\[Gamma]",
|
---|
9219 | RowBox[{
|
---|
9220 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9221 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9222 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9223 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9224 | SubscriptBox["\[Delta]",
|
---|
9225 | RowBox[{
|
---|
9226 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9227 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9228 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9229 | FractionBox[
|
---|
9230 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9231 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9232 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9233 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9234 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9235 | SubsuperscriptBox["\[Gamma]",
|
---|
9236 | RowBox[{
|
---|
9237 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9238 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9239 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9240 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9241 | SubscriptBox["\[Delta]",
|
---|
9242 | RowBox[{
|
---|
9243 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9244 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9245 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9246 | FractionBox[
|
---|
9247 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9248 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9249 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9250 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9251 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9252 | SubsuperscriptBox["\[Gamma]",
|
---|
9253 | RowBox[{
|
---|
9254 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9255 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9256 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9257 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9258 | SubscriptBox["\[Delta]",
|
---|
9259 | RowBox[{
|
---|
9260 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9261 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9262 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9263 | FractionBox[
|
---|
9264 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9265 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9266 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9267 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9268 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9269 | SubsuperscriptBox["\[Gamma]",
|
---|
9270 | RowBox[{
|
---|
9271 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9272 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9273 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9274 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9275 | SubscriptBox["\[Delta]",
|
---|
9276 | RowBox[{
|
---|
9277 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9278 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9279 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9280 | FractionBox[
|
---|
9281 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9282 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9283 | SubscriptBox["\[Delta]",
|
---|
9284 | RowBox[{
|
---|
9285 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9286 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9287 | SubscriptBox["\[Eta]",
|
---|
9288 | RowBox[{
|
---|
9289 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9290 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9291 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9292 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9293 | SubscriptBox[
|
---|
9294 | RowBox[{"\[Gamma]", ".",
|
---|
9295 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9296 | RowBox[{
|
---|
9297 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9298 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9299 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9300 | FractionBox[
|
---|
9301 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9302 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9303 | SubscriptBox["\[Delta]",
|
---|
9304 | RowBox[{
|
---|
9305 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9306 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9307 | SubscriptBox["\[Eta]",
|
---|
9308 | RowBox[{
|
---|
9309 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9310 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9311 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9312 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9313 | SubscriptBox[
|
---|
9314 | RowBox[{"\[Gamma]", ".",
|
---|
9315 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9316 | RowBox[{
|
---|
9317 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9318 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9319 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9320 | CellChangeTimes->{
|
---|
9321 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9322 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9323 | 3.5811597487681303`*^9}],
|
---|
9324 |
|
---|
9325 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9326 | * * * * * *)\"\>"], "Print",
|
---|
9327 | CellChangeTimes->{
|
---|
9328 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9329 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9330 | 3.581159748775063*^9}],
|
---|
9331 |
|
---|
9332 | Cell[BoxData[
|
---|
9333 | InterpretationBox[
|
---|
9334 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "46"}],
|
---|
9335 | SequenceForm["Vertex ", 46],
|
---|
9336 | Editable->False]], "Print",
|
---|
9337 | CellChangeTimes->{
|
---|
9338 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9339 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9340 | 3.581159748780126*^9}],
|
---|
9341 |
|
---|
9342 | Cell[BoxData[
|
---|
9343 | InterpretationBox[
|
---|
9344 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9345 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9346 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
9347 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
9348 | Editable->False]], "Print",
|
---|
9349 | CellChangeTimes->{
|
---|
9350 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9351 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9352 | 3.581159748785063*^9}],
|
---|
9353 |
|
---|
9354 | Cell[BoxData[
|
---|
9355 | InterpretationBox[
|
---|
9356 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
9357 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9358 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
9359 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
9360 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
9361 | Editable->False]], "Print",
|
---|
9362 | CellChangeTimes->{
|
---|
9363 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9364 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9365 | 3.581159748790512*^9}],
|
---|
9366 |
|
---|
9367 | Cell[BoxData[
|
---|
9368 | InterpretationBox[
|
---|
9369 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9370 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9371 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9372 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9373 | Editable->False]], "Print",
|
---|
9374 | CellChangeTimes->{
|
---|
9375 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9376 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9377 | 3.581159748795686*^9}],
|
---|
9378 |
|
---|
9379 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9380 | CellChangeTimes->{
|
---|
9381 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9382 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9383 | 3.5811597488022003`*^9}],
|
---|
9384 |
|
---|
9385 | Cell[BoxData[
|
---|
9386 | RowBox[{
|
---|
9387 | RowBox[{"-",
|
---|
9388 | FractionBox[
|
---|
9389 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9390 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9391 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9392 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9393 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9394 | SubsuperscriptBox["\[Gamma]",
|
---|
9395 | RowBox[{
|
---|
9396 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9397 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9398 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9399 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9400 | SubscriptBox["\[Delta]",
|
---|
9401 | RowBox[{
|
---|
9402 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9403 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9404 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9405 | FractionBox[
|
---|
9406 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9407 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9408 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9409 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9410 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9411 | SubsuperscriptBox["\[Gamma]",
|
---|
9412 | RowBox[{
|
---|
9413 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9414 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9415 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9416 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9417 | SubscriptBox["\[Delta]",
|
---|
9418 | RowBox[{
|
---|
9419 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9420 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9421 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9422 | FractionBox[
|
---|
9423 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9424 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9425 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9426 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9427 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9428 | SubsuperscriptBox["\[Gamma]",
|
---|
9429 | RowBox[{
|
---|
9430 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9431 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9432 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9433 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9434 | SubscriptBox["\[Delta]",
|
---|
9435 | RowBox[{
|
---|
9436 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9437 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9438 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9439 | FractionBox[
|
---|
9440 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9441 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9442 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9443 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9444 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9445 | SubsuperscriptBox["\[Gamma]",
|
---|
9446 | RowBox[{
|
---|
9447 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9448 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9449 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9450 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9451 | SubscriptBox["\[Delta]",
|
---|
9452 | RowBox[{
|
---|
9453 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9454 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
9455 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9456 | FractionBox[
|
---|
9457 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9458 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9459 | SubscriptBox["\[Delta]",
|
---|
9460 | RowBox[{
|
---|
9461 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9462 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9463 | SubscriptBox["\[Eta]",
|
---|
9464 | RowBox[{
|
---|
9465 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9466 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9467 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9468 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9469 | SubscriptBox[
|
---|
9470 | RowBox[{"\[Gamma]", ".",
|
---|
9471 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9472 | RowBox[{
|
---|
9473 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9474 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9475 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9476 | FractionBox[
|
---|
9477 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9478 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
9479 | SubscriptBox["\[Delta]",
|
---|
9480 | RowBox[{
|
---|
9481 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
9482 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
9483 | SubscriptBox["\[Eta]",
|
---|
9484 | RowBox[{
|
---|
9485 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9486 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9487 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9488 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9489 | SubscriptBox[
|
---|
9490 | RowBox[{"\[Gamma]", ".",
|
---|
9491 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9492 | RowBox[{
|
---|
9493 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9494 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9495 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9496 | CellChangeTimes->{
|
---|
9497 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9498 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9499 | 3.581159748808201*^9}],
|
---|
9500 |
|
---|
9501 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9502 | * * * * * *)\"\>"], "Print",
|
---|
9503 | CellChangeTimes->{
|
---|
9504 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9505 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9506 | 3.581159748815176*^9}],
|
---|
9507 |
|
---|
9508 | Cell[BoxData[
|
---|
9509 | InterpretationBox[
|
---|
9510 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "47"}],
|
---|
9511 | SequenceForm["Vertex ", 47],
|
---|
9512 | Editable->False]], "Print",
|
---|
9513 | CellChangeTimes->{
|
---|
9514 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9515 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9516 | 3.581159748820221*^9}],
|
---|
9517 |
|
---|
9518 | Cell[BoxData[
|
---|
9519 | InterpretationBox[
|
---|
9520 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9521 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9522 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
9523 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
9524 | Editable->False]], "Print",
|
---|
9525 | CellChangeTimes->{
|
---|
9526 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9527 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9528 | 3.581159748825178*^9}],
|
---|
9529 |
|
---|
9530 | Cell[BoxData[
|
---|
9531 | InterpretationBox[
|
---|
9532 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
9533 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9534 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
9535 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
9536 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
9537 | Editable->False]], "Print",
|
---|
9538 | CellChangeTimes->{
|
---|
9539 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9540 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9541 | 3.581159748830227*^9}],
|
---|
9542 |
|
---|
9543 | Cell[BoxData[
|
---|
9544 | InterpretationBox[
|
---|
9545 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9546 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9547 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9548 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9549 | Editable->False]], "Print",
|
---|
9550 | CellChangeTimes->{
|
---|
9551 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9552 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9553 | 3.581159748835208*^9}],
|
---|
9554 |
|
---|
9555 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9556 | CellChangeTimes->{
|
---|
9557 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9558 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9559 | 3.581159748840168*^9}],
|
---|
9560 |
|
---|
9561 | Cell[BoxData[
|
---|
9562 | RowBox[{
|
---|
9563 | RowBox[{"-",
|
---|
9564 | FractionBox[
|
---|
9565 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9566 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9567 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9568 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9569 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9570 | SubsuperscriptBox["\[Gamma]",
|
---|
9571 | RowBox[{
|
---|
9572 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9573 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9574 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9575 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9576 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9577 | FractionBox[
|
---|
9578 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9579 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9580 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9581 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9582 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9583 | SubsuperscriptBox["\[Gamma]",
|
---|
9584 | RowBox[{
|
---|
9585 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9586 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9587 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9588 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9589 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9590 | FractionBox[
|
---|
9591 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9592 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9593 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9594 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9595 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9596 | SubsuperscriptBox["\[Gamma]",
|
---|
9597 | RowBox[{
|
---|
9598 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9599 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9600 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9601 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9602 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9603 | FractionBox[
|
---|
9604 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9605 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9606 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9607 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9608 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9609 | SubsuperscriptBox["\[Gamma]",
|
---|
9610 | RowBox[{
|
---|
9611 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9612 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9613 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9614 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9615 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9616 | FractionBox[
|
---|
9617 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9618 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9619 | SubscriptBox["\[Eta]",
|
---|
9620 | RowBox[{
|
---|
9621 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9622 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9623 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9624 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9625 | SubscriptBox[
|
---|
9626 | RowBox[{"\[Gamma]", ".",
|
---|
9627 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9628 | RowBox[{
|
---|
9629 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9630 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9631 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9632 | FractionBox[
|
---|
9633 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9634 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9635 | SubscriptBox["\[Eta]",
|
---|
9636 | RowBox[{
|
---|
9637 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9638 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9639 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9640 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9641 | SubscriptBox[
|
---|
9642 | RowBox[{"\[Gamma]", ".",
|
---|
9643 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9644 | RowBox[{
|
---|
9645 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9646 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9647 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9648 | CellChangeTimes->{
|
---|
9649 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9650 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9651 | 3.581159748846011*^9}],
|
---|
9652 |
|
---|
9653 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9654 | * * * * * *)\"\>"], "Print",
|
---|
9655 | CellChangeTimes->{
|
---|
9656 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9657 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9658 | 3.581159748852489*^9}],
|
---|
9659 |
|
---|
9660 | Cell[BoxData[
|
---|
9661 | InterpretationBox[
|
---|
9662 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "48"}],
|
---|
9663 | SequenceForm["Vertex ", 48],
|
---|
9664 | Editable->False]], "Print",
|
---|
9665 | CellChangeTimes->{
|
---|
9666 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9667 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9668 | 3.581159748857664*^9}],
|
---|
9669 |
|
---|
9670 | Cell[BoxData[
|
---|
9671 | InterpretationBox[
|
---|
9672 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9673 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9674 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
9675 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
9676 | Editable->False]], "Print",
|
---|
9677 | CellChangeTimes->{
|
---|
9678 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9679 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9680 | 3.58115974886259*^9}],
|
---|
9681 |
|
---|
9682 | Cell[BoxData[
|
---|
9683 | InterpretationBox[
|
---|
9684 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
9685 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9686 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
9687 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
9688 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
9689 | Editable->False]], "Print",
|
---|
9690 | CellChangeTimes->{
|
---|
9691 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9692 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9693 | 3.581159748892434*^9}],
|
---|
9694 |
|
---|
9695 | Cell[BoxData[
|
---|
9696 | InterpretationBox[
|
---|
9697 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9698 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9699 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9700 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9701 | Editable->False]], "Print",
|
---|
9702 | CellChangeTimes->{
|
---|
9703 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9704 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9705 | 3.581159748897635*^9}],
|
---|
9706 |
|
---|
9707 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9708 | CellChangeTimes->{
|
---|
9709 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9710 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9711 | 3.581159748903089*^9}],
|
---|
9712 |
|
---|
9713 | Cell[BoxData[
|
---|
9714 | RowBox[{
|
---|
9715 | RowBox[{"-",
|
---|
9716 | FractionBox[
|
---|
9717 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9718 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9719 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9720 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9721 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9722 | SubsuperscriptBox["\[Gamma]",
|
---|
9723 | RowBox[{
|
---|
9724 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9725 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9726 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9727 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9728 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9729 | FractionBox[
|
---|
9730 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9731 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9732 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9733 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9734 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9735 | SubsuperscriptBox["\[Gamma]",
|
---|
9736 | RowBox[{
|
---|
9737 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9738 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9739 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9740 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9741 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9742 | FractionBox[
|
---|
9743 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9744 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9745 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9746 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9747 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9748 | SubsuperscriptBox["\[Gamma]",
|
---|
9749 | RowBox[{
|
---|
9750 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9751 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9752 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9753 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9754 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9755 | FractionBox[
|
---|
9756 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9757 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9758 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9759 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9760 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9761 | SubsuperscriptBox["\[Gamma]",
|
---|
9762 | RowBox[{
|
---|
9763 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9764 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9765 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9766 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9767 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9768 | FractionBox[
|
---|
9769 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9770 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9771 | SubscriptBox["\[Eta]",
|
---|
9772 | RowBox[{
|
---|
9773 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9774 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9775 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9776 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9777 | SubscriptBox[
|
---|
9778 | RowBox[{"\[Gamma]", ".",
|
---|
9779 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9780 | RowBox[{
|
---|
9781 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9782 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9783 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9784 | FractionBox[
|
---|
9785 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9786 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9787 | SubscriptBox["\[Eta]",
|
---|
9788 | RowBox[{
|
---|
9789 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9790 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9791 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9792 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9793 | SubscriptBox[
|
---|
9794 | RowBox[{"\[Gamma]", ".",
|
---|
9795 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9796 | RowBox[{
|
---|
9797 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9798 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9799 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9800 | CellChangeTimes->{
|
---|
9801 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9802 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9803 | 3.581159748909431*^9}],
|
---|
9804 |
|
---|
9805 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9806 | * * * * * *)\"\>"], "Print",
|
---|
9807 | CellChangeTimes->{
|
---|
9808 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9809 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9810 | 3.58115974891601*^9}],
|
---|
9811 |
|
---|
9812 | Cell[BoxData[
|
---|
9813 | InterpretationBox[
|
---|
9814 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "49"}],
|
---|
9815 | SequenceForm["Vertex ", 49],
|
---|
9816 | Editable->False]], "Print",
|
---|
9817 | CellChangeTimes->{
|
---|
9818 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9819 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9820 | 3.5811597489212523`*^9}],
|
---|
9821 |
|
---|
9822 | Cell[BoxData[
|
---|
9823 | InterpretationBox[
|
---|
9824 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9825 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9826 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
9827 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
9828 | Editable->False]], "Print",
|
---|
9829 | CellChangeTimes->{
|
---|
9830 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9831 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9832 | 3.5811597489267063`*^9}],
|
---|
9833 |
|
---|
9834 | Cell[BoxData[
|
---|
9835 | InterpretationBox[
|
---|
9836 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
9837 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9838 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
9839 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
9840 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
9841 | Editable->False]], "Print",
|
---|
9842 | CellChangeTimes->{
|
---|
9843 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9844 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9845 | 3.5811597489315147`*^9}],
|
---|
9846 |
|
---|
9847 | Cell[BoxData[
|
---|
9848 | InterpretationBox[
|
---|
9849 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
9850 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
9851 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
9852 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
9853 | Editable->False]], "Print",
|
---|
9854 | CellChangeTimes->{
|
---|
9855 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9856 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9857 | 3.581159748936702*^9}],
|
---|
9858 |
|
---|
9859 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
9860 | CellChangeTimes->{
|
---|
9861 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9862 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9863 | 3.581159748941957*^9}],
|
---|
9864 |
|
---|
9865 | Cell[BoxData[
|
---|
9866 | RowBox[{
|
---|
9867 | RowBox[{"-",
|
---|
9868 | FractionBox[
|
---|
9869 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9870 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9871 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9872 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9873 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9874 | SubsuperscriptBox["\[Gamma]",
|
---|
9875 | RowBox[{
|
---|
9876 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9877 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9878 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9879 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9880 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
9881 | FractionBox[
|
---|
9882 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9883 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9884 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9885 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9886 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
9887 | SubsuperscriptBox["\[Gamma]",
|
---|
9888 | RowBox[{
|
---|
9889 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9890 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9891 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9892 | RowBox[{"3", ",", "1"}]]]}],
|
---|
9893 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9894 | FractionBox[
|
---|
9895 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9896 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9897 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
9898 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9899 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9900 | SubsuperscriptBox["\[Gamma]",
|
---|
9901 | RowBox[{
|
---|
9902 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9903 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9904 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9905 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9906 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
9907 | FractionBox[
|
---|
9908 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9909 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9910 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
9911 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9912 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
9913 | SubsuperscriptBox["\[Gamma]",
|
---|
9914 | RowBox[{
|
---|
9915 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9916 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
9917 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9918 | RowBox[{"3", ",", "2"}]]]}],
|
---|
9919 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
9920 | FractionBox[
|
---|
9921 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9922 | SubscriptBox["\[Kappa]", "l"], " ", "MTA", " ",
|
---|
9923 | SubscriptBox["\[Delta]",
|
---|
9924 | RowBox[{
|
---|
9925 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9926 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
9927 | SubscriptBox["\[Eta]",
|
---|
9928 | RowBox[{
|
---|
9929 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9930 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9931 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9932 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
9933 | FractionBox[
|
---|
9934 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9935 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9936 | SubscriptBox["\[Eta]",
|
---|
9937 | RowBox[{
|
---|
9938 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9939 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9940 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9941 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9942 | SubscriptBox[
|
---|
9943 | RowBox[{"\[Gamma]", ".",
|
---|
9944 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
9945 | RowBox[{
|
---|
9946 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9947 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9948 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
9949 | FractionBox[
|
---|
9950 | RowBox[{"\[ImaginaryI]", " ",
|
---|
9951 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
9952 | SubscriptBox["\[Eta]",
|
---|
9953 | RowBox[{
|
---|
9954 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9955 | RowBox[{"3", ",", "1"}]], ",",
|
---|
9956 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
9957 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
9958 | SubscriptBox[
|
---|
9959 | RowBox[{"\[Gamma]", ".",
|
---|
9960 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
9961 | RowBox[{
|
---|
9962 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
9963 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
9964 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
9965 | CellChangeTimes->{
|
---|
9966 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9967 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9968 | 3.581159748947865*^9}],
|
---|
9969 |
|
---|
9970 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
9971 | * * * * * *)\"\>"], "Print",
|
---|
9972 | CellChangeTimes->{
|
---|
9973 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9974 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9975 | 3.581159748954466*^9}],
|
---|
9976 |
|
---|
9977 | Cell[BoxData[
|
---|
9978 | InterpretationBox[
|
---|
9979 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "50"}],
|
---|
9980 | SequenceForm["Vertex ", 50],
|
---|
9981 | Editable->False]], "Print",
|
---|
9982 | CellChangeTimes->{
|
---|
9983 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9984 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9985 | 3.5811597489585857`*^9}],
|
---|
9986 |
|
---|
9987 | Cell[BoxData[
|
---|
9988 | InterpretationBox[
|
---|
9989 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
9990 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
9991 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
9992 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
9993 | Editable->False]], "Print",
|
---|
9994 | CellChangeTimes->{
|
---|
9995 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
9996 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
9997 | 3.581159748962462*^9}],
|
---|
9998 |
|
---|
9999 | Cell[BoxData[
|
---|
10000 | InterpretationBox[
|
---|
10001 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10002 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10003 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10004 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
10005 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
10006 | Editable->False]], "Print",
|
---|
10007 | CellChangeTimes->{
|
---|
10008 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10009 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10010 | 3.581159748966446*^9}],
|
---|
10011 |
|
---|
10012 | Cell[BoxData[
|
---|
10013 | InterpretationBox[
|
---|
10014 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10015 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10016 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10017 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10018 | Editable->False]], "Print",
|
---|
10019 | CellChangeTimes->{
|
---|
10020 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10021 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10022 | 3.58115974897044*^9}],
|
---|
10023 |
|
---|
10024 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10025 | CellChangeTimes->{
|
---|
10026 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10027 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10028 | 3.581159748974353*^9}],
|
---|
10029 |
|
---|
10030 | Cell[BoxData[
|
---|
10031 | RowBox[{
|
---|
10032 | RowBox[{"-",
|
---|
10033 | FractionBox[
|
---|
10034 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10035 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10036 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10037 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10038 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10039 | SubsuperscriptBox["\[Gamma]",
|
---|
10040 | RowBox[{
|
---|
10041 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10042 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10043 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10044 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10045 | SubscriptBox["\[Delta]",
|
---|
10046 | RowBox[{
|
---|
10047 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10048 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10049 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10050 | FractionBox[
|
---|
10051 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10052 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10053 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10054 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10055 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10056 | SubsuperscriptBox["\[Gamma]",
|
---|
10057 | RowBox[{
|
---|
10058 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10059 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10060 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10061 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10062 | SubscriptBox["\[Delta]",
|
---|
10063 | RowBox[{
|
---|
10064 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10065 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10066 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10067 | FractionBox[
|
---|
10068 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10069 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10070 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10071 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10072 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10073 | SubsuperscriptBox["\[Gamma]",
|
---|
10074 | RowBox[{
|
---|
10075 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10076 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10077 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10078 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10079 | SubscriptBox["\[Delta]",
|
---|
10080 | RowBox[{
|
---|
10081 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10082 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10083 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10084 | FractionBox[
|
---|
10085 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10086 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10087 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10088 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10089 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10090 | SubsuperscriptBox["\[Gamma]",
|
---|
10091 | RowBox[{
|
---|
10092 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10093 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10094 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10095 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10096 | SubscriptBox["\[Delta]",
|
---|
10097 | RowBox[{
|
---|
10098 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10099 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10100 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10101 | FractionBox[
|
---|
10102 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10103 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10104 | SubscriptBox["\[Delta]",
|
---|
10105 | RowBox[{
|
---|
10106 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10107 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10108 | SubscriptBox["\[Eta]",
|
---|
10109 | RowBox[{
|
---|
10110 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10111 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10112 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10113 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10114 | SubscriptBox[
|
---|
10115 | RowBox[{"\[Gamma]", ".",
|
---|
10116 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10117 | RowBox[{
|
---|
10118 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10119 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10120 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10121 | FractionBox[
|
---|
10122 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10123 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10124 | SubscriptBox["\[Delta]",
|
---|
10125 | RowBox[{
|
---|
10126 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10127 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10128 | SubscriptBox["\[Eta]",
|
---|
10129 | RowBox[{
|
---|
10130 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10131 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10132 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10133 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10134 | SubscriptBox[
|
---|
10135 | RowBox[{"\[Gamma]", ".",
|
---|
10136 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10137 | RowBox[{
|
---|
10138 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10139 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10140 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10141 | CellChangeTimes->{
|
---|
10142 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10143 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10144 | 3.581159748979004*^9}],
|
---|
10145 |
|
---|
10146 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10147 | * * * * * *)\"\>"], "Print",
|
---|
10148 | CellChangeTimes->{
|
---|
10149 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10150 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10151 | 3.581159748984864*^9}],
|
---|
10152 |
|
---|
10153 | Cell[BoxData[
|
---|
10154 | InterpretationBox[
|
---|
10155 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "51"}],
|
---|
10156 | SequenceForm["Vertex ", 51],
|
---|
10157 | Editable->False]], "Print",
|
---|
10158 | CellChangeTimes->{
|
---|
10159 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10160 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10161 | 3.581159748988859*^9}],
|
---|
10162 |
|
---|
10163 | Cell[BoxData[
|
---|
10164 | InterpretationBox[
|
---|
10165 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10166 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10167 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
10168 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
|
---|
10169 | Editable->False]], "Print",
|
---|
10170 | CellChangeTimes->{
|
---|
10171 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10172 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10173 | 3.5811597489928417`*^9}],
|
---|
10174 |
|
---|
10175 | Cell[BoxData[
|
---|
10176 | InterpretationBox[
|
---|
10177 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10178 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10179 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10180 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
10181 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
10182 | Editable->False]], "Print",
|
---|
10183 | CellChangeTimes->{
|
---|
10184 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10185 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10186 | 3.581159748996829*^9}],
|
---|
10187 |
|
---|
10188 | Cell[BoxData[
|
---|
10189 | InterpretationBox[
|
---|
10190 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10191 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10192 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10193 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10194 | Editable->False]], "Print",
|
---|
10195 | CellChangeTimes->{
|
---|
10196 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10197 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10198 | 3.581159749000778*^9}],
|
---|
10199 |
|
---|
10200 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10201 | CellChangeTimes->{
|
---|
10202 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10203 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10204 | 3.581159749004755*^9}],
|
---|
10205 |
|
---|
10206 | Cell[BoxData[
|
---|
10207 | RowBox[{
|
---|
10208 | RowBox[{"-",
|
---|
10209 | FractionBox[
|
---|
10210 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10211 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10212 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10213 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10214 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10215 | SubsuperscriptBox["\[Gamma]",
|
---|
10216 | RowBox[{
|
---|
10217 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10218 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10219 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10220 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10221 | SubscriptBox["\[Delta]",
|
---|
10222 | RowBox[{
|
---|
10223 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10224 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10225 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10226 | FractionBox[
|
---|
10227 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10228 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10229 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10230 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10231 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10232 | SubsuperscriptBox["\[Gamma]",
|
---|
10233 | RowBox[{
|
---|
10234 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10235 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10236 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10237 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10238 | SubscriptBox["\[Delta]",
|
---|
10239 | RowBox[{
|
---|
10240 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10241 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10242 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10243 | FractionBox[
|
---|
10244 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10245 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10246 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10247 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10248 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10249 | SubsuperscriptBox["\[Gamma]",
|
---|
10250 | RowBox[{
|
---|
10251 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10252 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10253 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10254 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10255 | SubscriptBox["\[Delta]",
|
---|
10256 | RowBox[{
|
---|
10257 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10258 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10259 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10260 | FractionBox[
|
---|
10261 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10262 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10263 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10264 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10265 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10266 | SubsuperscriptBox["\[Gamma]",
|
---|
10267 | RowBox[{
|
---|
10268 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10269 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10270 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10271 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10272 | SubscriptBox["\[Delta]",
|
---|
10273 | RowBox[{
|
---|
10274 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10275 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10276 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10277 | FractionBox[
|
---|
10278 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10279 | SubscriptBox["\[Kappa]", "q"], " ", "MT", " ",
|
---|
10280 | SubscriptBox["\[Delta]",
|
---|
10281 | RowBox[{
|
---|
10282 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10283 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10284 | SubscriptBox["\[Delta]",
|
---|
10285 | RowBox[{
|
---|
10286 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10287 | SubscriptBox["\<\"s\"\>", "1"]}]], " ",
|
---|
10288 | SubscriptBox["\[Eta]",
|
---|
10289 | RowBox[{
|
---|
10290 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10291 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10292 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10293 | RowBox[{"3", ",", "2"}]]}]]}], "\[CapitalLambda]"], "+",
|
---|
10294 | FractionBox[
|
---|
10295 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10296 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10297 | SubscriptBox["\[Delta]",
|
---|
10298 | RowBox[{
|
---|
10299 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10300 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10301 | SubscriptBox["\[Eta]",
|
---|
10302 | RowBox[{
|
---|
10303 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10304 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10305 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10306 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10307 | SubscriptBox[
|
---|
10308 | RowBox[{"\[Gamma]", ".",
|
---|
10309 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10310 | RowBox[{
|
---|
10311 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10312 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10313 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10314 | FractionBox[
|
---|
10315 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10316 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10317 | SubscriptBox["\[Delta]",
|
---|
10318 | RowBox[{
|
---|
10319 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10320 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10321 | SubscriptBox["\[Eta]",
|
---|
10322 | RowBox[{
|
---|
10323 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10324 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10325 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10326 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10327 | SubscriptBox[
|
---|
10328 | RowBox[{"\[Gamma]", ".",
|
---|
10329 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10330 | RowBox[{
|
---|
10331 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10332 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10333 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10334 | CellChangeTimes->{
|
---|
10335 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10336 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10337 | 3.581159749009512*^9}],
|
---|
10338 |
|
---|
10339 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10340 | * * * * * *)\"\>"], "Print",
|
---|
10341 | CellChangeTimes->{
|
---|
10342 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10343 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10344 | 3.581159749015613*^9}],
|
---|
10345 |
|
---|
10346 | Cell[BoxData[
|
---|
10347 | InterpretationBox[
|
---|
10348 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "52"}],
|
---|
10349 | SequenceForm["Vertex ", 52],
|
---|
10350 | Editable->False]], "Print",
|
---|
10351 | CellChangeTimes->{
|
---|
10352 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10353 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10354 | 3.581159749019598*^9}],
|
---|
10355 |
|
---|
10356 | Cell[BoxData[
|
---|
10357 | InterpretationBox[
|
---|
10358 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10359 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10360 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
10361 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
|
---|
10362 | Editable->False]], "Print",
|
---|
10363 | CellChangeTimes->{
|
---|
10364 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10365 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10366 | 3.581159749023573*^9}],
|
---|
10367 |
|
---|
10368 | Cell[BoxData[
|
---|
10369 | InterpretationBox[
|
---|
10370 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10371 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10372 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10373 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
10374 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
10375 | Editable->False]], "Print",
|
---|
10376 | CellChangeTimes->{
|
---|
10377 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10378 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10379 | 3.581159749027534*^9}],
|
---|
10380 |
|
---|
10381 | Cell[BoxData[
|
---|
10382 | InterpretationBox[
|
---|
10383 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10384 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10385 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10386 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10387 | Editable->False]], "Print",
|
---|
10388 | CellChangeTimes->{
|
---|
10389 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10390 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10391 | 3.581159749031636*^9}],
|
---|
10392 |
|
---|
10393 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10394 | CellChangeTimes->{
|
---|
10395 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10396 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10397 | 3.581159749035553*^9}],
|
---|
10398 |
|
---|
10399 | Cell[BoxData[
|
---|
10400 | RowBox[{
|
---|
10401 | RowBox[{"-",
|
---|
10402 | FractionBox[
|
---|
10403 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10404 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10405 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10406 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10407 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10408 | SubsuperscriptBox["\[Gamma]",
|
---|
10409 | RowBox[{
|
---|
10410 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10411 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10412 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10413 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10414 | SubscriptBox["\[Delta]",
|
---|
10415 | RowBox[{
|
---|
10416 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10417 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10418 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10419 | FractionBox[
|
---|
10420 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10421 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10422 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10423 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10424 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10425 | SubsuperscriptBox["\[Gamma]",
|
---|
10426 | RowBox[{
|
---|
10427 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10428 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10429 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10430 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10431 | SubscriptBox["\[Delta]",
|
---|
10432 | RowBox[{
|
---|
10433 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10434 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10435 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10436 | FractionBox[
|
---|
10437 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10438 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10439 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10440 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10441 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10442 | SubsuperscriptBox["\[Gamma]",
|
---|
10443 | RowBox[{
|
---|
10444 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10445 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10446 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10447 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10448 | SubscriptBox["\[Delta]",
|
---|
10449 | RowBox[{
|
---|
10450 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10451 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10452 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10453 | FractionBox[
|
---|
10454 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10455 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10456 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10457 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10458 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10459 | SubsuperscriptBox["\[Gamma]",
|
---|
10460 | RowBox[{
|
---|
10461 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10462 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10463 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10464 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10465 | SubscriptBox["\[Delta]",
|
---|
10466 | RowBox[{
|
---|
10467 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10468 | SubscriptBox["\<\"m\"\>", "2"]}]]}],
|
---|
10469 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10470 | FractionBox[
|
---|
10471 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10472 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10473 | SubscriptBox["\[Delta]",
|
---|
10474 | RowBox[{
|
---|
10475 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10476 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10477 | SubscriptBox["\[Eta]",
|
---|
10478 | RowBox[{
|
---|
10479 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10480 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10481 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10482 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10483 | SubscriptBox[
|
---|
10484 | RowBox[{"\[Gamma]", ".",
|
---|
10485 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10486 | RowBox[{
|
---|
10487 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10488 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10489 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10490 | FractionBox[
|
---|
10491 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10492 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
10493 | SubscriptBox["\[Delta]",
|
---|
10494 | RowBox[{
|
---|
10495 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
10496 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
10497 | SubscriptBox["\[Eta]",
|
---|
10498 | RowBox[{
|
---|
10499 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10500 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10501 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10502 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10503 | SubscriptBox[
|
---|
10504 | RowBox[{"\[Gamma]", ".",
|
---|
10505 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10506 | RowBox[{
|
---|
10507 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10508 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10509 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10510 | CellChangeTimes->{
|
---|
10511 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10512 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10513 | 3.5811597490401773`*^9}],
|
---|
10514 |
|
---|
10515 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10516 | * * * * * *)\"\>"], "Print",
|
---|
10517 | CellChangeTimes->{
|
---|
10518 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10519 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10520 | 3.58115974904597*^9}],
|
---|
10521 |
|
---|
10522 | Cell[BoxData[
|
---|
10523 | InterpretationBox[
|
---|
10524 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "53"}],
|
---|
10525 | SequenceForm["Vertex ", 53],
|
---|
10526 | Editable->False]], "Print",
|
---|
10527 | CellChangeTimes->{
|
---|
10528 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10529 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10530 | 3.581159749050153*^9}],
|
---|
10531 |
|
---|
10532 | Cell[BoxData[
|
---|
10533 | InterpretationBox[
|
---|
10534 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10535 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10536 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
10537 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
10538 | Editable->False]], "Print",
|
---|
10539 | CellChangeTimes->{
|
---|
10540 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10541 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10542 | 3.581159749054553*^9}],
|
---|
10543 |
|
---|
10544 | Cell[BoxData[
|
---|
10545 | InterpretationBox[
|
---|
10546 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10547 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10548 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10549 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
10550 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
10551 | Editable->False]], "Print",
|
---|
10552 | CellChangeTimes->{
|
---|
10553 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10554 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10555 | 3.581159749058736*^9}],
|
---|
10556 |
|
---|
10557 | Cell[BoxData[
|
---|
10558 | InterpretationBox[
|
---|
10559 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10560 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10561 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10562 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10563 | Editable->False]], "Print",
|
---|
10564 | CellChangeTimes->{
|
---|
10565 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10566 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10567 | 3.581159749062809*^9}],
|
---|
10568 |
|
---|
10569 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10570 | CellChangeTimes->{
|
---|
10571 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10572 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10573 | 3.5811597490672407`*^9}],
|
---|
10574 |
|
---|
10575 | Cell[BoxData[
|
---|
10576 | RowBox[{
|
---|
10577 | RowBox[{"-",
|
---|
10578 | FractionBox[
|
---|
10579 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10580 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10581 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10582 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10583 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10584 | SubsuperscriptBox["\[Gamma]",
|
---|
10585 | RowBox[{
|
---|
10586 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10587 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10588 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10589 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10590 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10591 | FractionBox[
|
---|
10592 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10593 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10594 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10595 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10596 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10597 | SubsuperscriptBox["\[Gamma]",
|
---|
10598 | RowBox[{
|
---|
10599 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10600 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10601 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10602 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10603 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10604 | FractionBox[
|
---|
10605 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10606 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10607 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10608 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10609 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10610 | SubsuperscriptBox["\[Gamma]",
|
---|
10611 | RowBox[{
|
---|
10612 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10613 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10614 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10615 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10616 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10617 | FractionBox[
|
---|
10618 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10619 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10620 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10621 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10622 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10623 | SubsuperscriptBox["\[Gamma]",
|
---|
10624 | RowBox[{
|
---|
10625 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10626 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10627 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10628 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10629 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10630 | FractionBox[
|
---|
10631 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10632 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10633 | SubscriptBox["\[Eta]",
|
---|
10634 | RowBox[{
|
---|
10635 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10636 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10637 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10638 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10639 | SubscriptBox[
|
---|
10640 | RowBox[{"\[Gamma]", ".",
|
---|
10641 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10642 | RowBox[{
|
---|
10643 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10644 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10645 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10646 | FractionBox[
|
---|
10647 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10648 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10649 | SubscriptBox["\[Eta]",
|
---|
10650 | RowBox[{
|
---|
10651 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10652 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10653 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10654 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10655 | SubscriptBox[
|
---|
10656 | RowBox[{"\[Gamma]", ".",
|
---|
10657 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10658 | RowBox[{
|
---|
10659 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10660 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10661 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10662 | CellChangeTimes->{
|
---|
10663 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10664 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10665 | 3.58115974907207*^9}],
|
---|
10666 |
|
---|
10667 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10668 | * * * * * *)\"\>"], "Print",
|
---|
10669 | CellChangeTimes->{
|
---|
10670 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10671 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10672 | 3.581159749079256*^9}],
|
---|
10673 |
|
---|
10674 | Cell[BoxData[
|
---|
10675 | InterpretationBox[
|
---|
10676 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "54"}],
|
---|
10677 | SequenceForm["Vertex ", 54],
|
---|
10678 | Editable->False]], "Print",
|
---|
10679 | CellChangeTimes->{
|
---|
10680 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10681 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10682 | 3.581159749084635*^9}],
|
---|
10683 |
|
---|
10684 | Cell[BoxData[
|
---|
10685 | InterpretationBox[
|
---|
10686 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10687 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10688 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
10689 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
10690 | Editable->False]], "Print",
|
---|
10691 | CellChangeTimes->{
|
---|
10692 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10693 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10694 | 3.581159749089931*^9}],
|
---|
10695 |
|
---|
10696 | Cell[BoxData[
|
---|
10697 | InterpretationBox[
|
---|
10698 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10699 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10700 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10701 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
10702 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
10703 | Editable->False]], "Print",
|
---|
10704 | CellChangeTimes->{
|
---|
10705 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10706 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10707 | 3.5811597490943623`*^9}],
|
---|
10708 |
|
---|
10709 | Cell[BoxData[
|
---|
10710 | InterpretationBox[
|
---|
10711 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10712 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10713 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10714 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10715 | Editable->False]], "Print",
|
---|
10716 | CellChangeTimes->{
|
---|
10717 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10718 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10719 | 3.581159749098942*^9}],
|
---|
10720 |
|
---|
10721 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10722 | CellChangeTimes->{
|
---|
10723 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10724 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10725 | 3.581159749102995*^9}],
|
---|
10726 |
|
---|
10727 | Cell[BoxData[
|
---|
10728 | RowBox[{
|
---|
10729 | RowBox[{"-",
|
---|
10730 | FractionBox[
|
---|
10731 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10732 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10733 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10734 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10735 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10736 | SubsuperscriptBox["\[Gamma]",
|
---|
10737 | RowBox[{
|
---|
10738 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10739 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10740 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10741 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10742 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10743 | FractionBox[
|
---|
10744 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10745 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10746 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10747 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10748 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10749 | SubsuperscriptBox["\[Gamma]",
|
---|
10750 | RowBox[{
|
---|
10751 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10752 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10753 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10754 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10755 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10756 | FractionBox[
|
---|
10757 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10758 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10759 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10760 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10761 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10762 | SubsuperscriptBox["\[Gamma]",
|
---|
10763 | RowBox[{
|
---|
10764 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10765 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10766 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10767 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10768 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10769 | FractionBox[
|
---|
10770 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10771 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10772 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10773 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10774 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10775 | SubsuperscriptBox["\[Gamma]",
|
---|
10776 | RowBox[{
|
---|
10777 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10778 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10779 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10780 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10781 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10782 | FractionBox[
|
---|
10783 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10784 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10785 | SubscriptBox["\[Eta]",
|
---|
10786 | RowBox[{
|
---|
10787 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10788 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10789 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10790 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10791 | SubscriptBox[
|
---|
10792 | RowBox[{"\[Gamma]", ".",
|
---|
10793 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10794 | RowBox[{
|
---|
10795 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10796 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10797 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10798 | FractionBox[
|
---|
10799 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10800 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10801 | SubscriptBox["\[Eta]",
|
---|
10802 | RowBox[{
|
---|
10803 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10804 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10805 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10806 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10807 | SubscriptBox[
|
---|
10808 | RowBox[{"\[Gamma]", ".",
|
---|
10809 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10810 | RowBox[{
|
---|
10811 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10812 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10813 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10814 | CellChangeTimes->{
|
---|
10815 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10816 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10817 | 3.581159749107958*^9}],
|
---|
10818 |
|
---|
10819 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10820 | * * * * * *)\"\>"], "Print",
|
---|
10821 | CellChangeTimes->{
|
---|
10822 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10823 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10824 | 3.5811597491135387`*^9}],
|
---|
10825 |
|
---|
10826 | Cell[BoxData[
|
---|
10827 | InterpretationBox[
|
---|
10828 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "55"}],
|
---|
10829 | SequenceForm["Vertex ", 55],
|
---|
10830 | Editable->False]], "Print",
|
---|
10831 | CellChangeTimes->{
|
---|
10832 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10833 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10834 | 3.5811597491177807`*^9}],
|
---|
10835 |
|
---|
10836 | Cell[BoxData[
|
---|
10837 | InterpretationBox[
|
---|
10838 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10839 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10840 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
10841 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
10842 | Editable->False]], "Print",
|
---|
10843 | CellChangeTimes->{
|
---|
10844 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10845 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10846 | 3.581159749121889*^9}],
|
---|
10847 |
|
---|
10848 | Cell[BoxData[
|
---|
10849 | InterpretationBox[
|
---|
10850 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
10851 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10852 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
10853 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
10854 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
10855 | Editable->False]], "Print",
|
---|
10856 | CellChangeTimes->{
|
---|
10857 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10858 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10859 | 3.581159749125967*^9}],
|
---|
10860 |
|
---|
10861 | Cell[BoxData[
|
---|
10862 | InterpretationBox[
|
---|
10863 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
10864 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
10865 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
10866 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
10867 | Editable->False]], "Print",
|
---|
10868 | CellChangeTimes->{
|
---|
10869 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10870 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10871 | 3.581159749130176*^9}],
|
---|
10872 |
|
---|
10873 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
10874 | CellChangeTimes->{
|
---|
10875 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10876 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10877 | 3.581159749134182*^9}],
|
---|
10878 |
|
---|
10879 | Cell[BoxData[
|
---|
10880 | RowBox[{
|
---|
10881 | RowBox[{"-",
|
---|
10882 | FractionBox[
|
---|
10883 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10884 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10885 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10886 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10887 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10888 | SubsuperscriptBox["\[Gamma]",
|
---|
10889 | RowBox[{
|
---|
10890 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10891 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10892 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10893 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10894 | RowBox[{"4", " ", "\[CapitalLambda]"}]]}], "+",
|
---|
10895 | FractionBox[
|
---|
10896 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10897 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10898 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10899 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10900 | RowBox[{"3", ",", "2"}]]], " ",
|
---|
10901 | SubsuperscriptBox["\[Gamma]",
|
---|
10902 | RowBox[{
|
---|
10903 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10904 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10905 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10906 | RowBox[{"3", ",", "1"}]]]}],
|
---|
10907 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "-",
|
---|
10908 | FractionBox[
|
---|
10909 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10910 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10911 | SubsuperscriptBox["\<\"p\"\>", "1",
|
---|
10912 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10913 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10914 | SubsuperscriptBox["\[Gamma]",
|
---|
10915 | RowBox[{
|
---|
10916 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10917 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10918 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10919 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10920 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10921 | FractionBox[
|
---|
10922 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10923 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10924 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
10925 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10926 | RowBox[{"3", ",", "1"}]]], " ",
|
---|
10927 | SubsuperscriptBox["\[Gamma]",
|
---|
10928 | RowBox[{
|
---|
10929 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10930 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
10931 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10932 | RowBox[{"3", ",", "2"}]]]}],
|
---|
10933 | RowBox[{"4", " ", "\[CapitalLambda]"}]], "+",
|
---|
10934 | FractionBox[
|
---|
10935 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10936 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10937 | SubscriptBox["\[Eta]",
|
---|
10938 | RowBox[{
|
---|
10939 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10940 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10941 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10942 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10943 | SubscriptBox[
|
---|
10944 | RowBox[{"\[Gamma]", ".",
|
---|
10945 | SubscriptBox["\<\"p\"\>", "1"]}],
|
---|
10946 | RowBox[{
|
---|
10947 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10948 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10949 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "-",
|
---|
10950 | FractionBox[
|
---|
10951 | RowBox[{"\[ImaginaryI]", " ",
|
---|
10952 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
10953 | SubscriptBox["\[Eta]",
|
---|
10954 | RowBox[{
|
---|
10955 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10956 | RowBox[{"3", ",", "1"}]], ",",
|
---|
10957 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
10958 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
10959 | SubscriptBox[
|
---|
10960 | RowBox[{"\[Gamma]", ".",
|
---|
10961 | SubscriptBox["\<\"p\"\>", "2"]}],
|
---|
10962 | RowBox[{
|
---|
10963 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
10964 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
10965 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
10966 | CellChangeTimes->{
|
---|
10967 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10968 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10969 | 3.5811597491387177`*^9}],
|
---|
10970 |
|
---|
10971 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
10972 | * * * * * *)\"\>"], "Print",
|
---|
10973 | CellChangeTimes->{
|
---|
10974 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10975 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10976 | 3.581159749144433*^9}],
|
---|
10977 |
|
---|
10978 | Cell[BoxData[
|
---|
10979 | InterpretationBox[
|
---|
10980 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "56"}],
|
---|
10981 | SequenceForm["Vertex ", 56],
|
---|
10982 | Editable->False]], "Print",
|
---|
10983 | CellChangeTimes->{
|
---|
10984 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10985 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10986 | 3.581159749148744*^9}],
|
---|
10987 |
|
---|
10988 | Cell[BoxData[
|
---|
10989 | InterpretationBox[
|
---|
10990 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
10991 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
10992 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
10993 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
10994 | Editable->False]], "Print",
|
---|
10995 | CellChangeTimes->{
|
---|
10996 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
10997 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
10998 | 3.58115974915285*^9}],
|
---|
10999 |
|
---|
11000 | Cell[BoxData[
|
---|
11001 | InterpretationBox[
|
---|
11002 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11003 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11004 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11005 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
11006 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
11007 | Editable->False]], "Print",
|
---|
11008 | CellChangeTimes->{
|
---|
11009 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11010 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11011 | 3.581159749157444*^9}],
|
---|
11012 |
|
---|
11013 | Cell[BoxData[
|
---|
11014 | InterpretationBox[
|
---|
11015 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11016 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11017 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11018 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
11019 | Editable->False]], "Print",
|
---|
11020 | CellChangeTimes->{
|
---|
11021 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11022 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11023 | 3.581159749161512*^9}],
|
---|
11024 |
|
---|
11025 | Cell[BoxData[
|
---|
11026 | InterpretationBox[
|
---|
11027 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11028 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11029 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11030 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11031 | Editable->False]], "Print",
|
---|
11032 | CellChangeTimes->{
|
---|
11033 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11034 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11035 | 3.581159749165744*^9}],
|
---|
11036 |
|
---|
11037 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11038 | CellChangeTimes->{
|
---|
11039 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11040 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11041 | 3.581159749169764*^9}],
|
---|
11042 |
|
---|
11043 | Cell[BoxData[
|
---|
11044 | RowBox[{
|
---|
11045 | RowBox[{"-",
|
---|
11046 | FractionBox[
|
---|
11047 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11048 | SubscriptBox["g", "s"], " ",
|
---|
11049 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11050 | SubsuperscriptBox["\[Gamma]",
|
---|
11051 | RowBox[{
|
---|
11052 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11053 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11054 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11055 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11056 | SubscriptBox["\[Eta]",
|
---|
11057 | RowBox[{
|
---|
11058 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11059 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11060 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11061 | SubsuperscriptBox["T",
|
---|
11062 | RowBox[{
|
---|
11063 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11064 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11065 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11066 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11067 | FractionBox[
|
---|
11068 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11069 | SubscriptBox["g", "s"], " ",
|
---|
11070 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11071 | SubsuperscriptBox["\[Gamma]",
|
---|
11072 | RowBox[{
|
---|
11073 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11074 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11075 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11076 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11077 | SubscriptBox["\[Eta]",
|
---|
11078 | RowBox[{
|
---|
11079 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11080 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11081 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11082 | SubsuperscriptBox["T",
|
---|
11083 | RowBox[{
|
---|
11084 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11085 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11086 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11087 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11088 | FractionBox[
|
---|
11089 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11090 | SubscriptBox["g", "s"], " ",
|
---|
11091 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11092 | SubsuperscriptBox["\[Gamma]",
|
---|
11093 | RowBox[{
|
---|
11094 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11095 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11096 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
11097 | SubscriptBox["\[Eta]",
|
---|
11098 | RowBox[{
|
---|
11099 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11100 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11101 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11102 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11103 | SubsuperscriptBox["T",
|
---|
11104 | RowBox[{
|
---|
11105 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11106 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11107 | SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11108 | CellChangeTimes->{
|
---|
11109 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11110 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11111 | 3.581159749174347*^9}],
|
---|
11112 |
|
---|
11113 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11114 | * * * * * *)\"\>"], "Print",
|
---|
11115 | CellChangeTimes->{
|
---|
11116 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11117 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11118 | 3.58115974917983*^9}],
|
---|
11119 |
|
---|
11120 | Cell[BoxData[
|
---|
11121 | InterpretationBox[
|
---|
11122 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "57"}],
|
---|
11123 | SequenceForm["Vertex ", 57],
|
---|
11124 | Editable->False]], "Print",
|
---|
11125 | CellChangeTimes->{
|
---|
11126 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11127 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11128 | 3.5811597491859426`*^9}],
|
---|
11129 |
|
---|
11130 | Cell[BoxData[
|
---|
11131 | InterpretationBox[
|
---|
11132 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11133 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11134 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11135 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
11136 | Editable->False]], "Print",
|
---|
11137 | CellChangeTimes->{
|
---|
11138 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11139 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11140 | 3.581159749191979*^9}],
|
---|
11141 |
|
---|
11142 | Cell[BoxData[
|
---|
11143 | InterpretationBox[
|
---|
11144 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11145 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11146 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
11147 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
11148 | Editable->False]], "Print",
|
---|
11149 | CellChangeTimes->{
|
---|
11150 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11151 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11152 | 3.581159749197556*^9}],
|
---|
11153 |
|
---|
11154 | Cell[BoxData[
|
---|
11155 | InterpretationBox[
|
---|
11156 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11157 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11158 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11159 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
11160 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
11161 | Editable->False]], "Print",
|
---|
11162 | CellChangeTimes->{
|
---|
11163 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11164 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11165 | 3.581159749203784*^9}],
|
---|
11166 |
|
---|
11167 | Cell[BoxData[
|
---|
11168 | InterpretationBox[
|
---|
11169 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11170 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11171 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11172 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11173 | Editable->False]], "Print",
|
---|
11174 | CellChangeTimes->{
|
---|
11175 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11176 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11177 | 3.5811597492092857`*^9}],
|
---|
11178 |
|
---|
11179 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11180 | CellChangeTimes->{
|
---|
11181 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11182 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11183 | 3.5811597492147503`*^9}],
|
---|
11184 |
|
---|
11185 | Cell[BoxData[
|
---|
11186 | RowBox[{
|
---|
11187 | RowBox[{"-",
|
---|
11188 | FractionBox[
|
---|
11189 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11190 | SubscriptBox["g", "s"], " ",
|
---|
11191 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11192 | SubsuperscriptBox["\[Gamma]",
|
---|
11193 | RowBox[{
|
---|
11194 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11195 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11196 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11197 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11198 | SubscriptBox["\[Eta]",
|
---|
11199 | RowBox[{
|
---|
11200 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11201 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11202 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11203 | SubsuperscriptBox["T",
|
---|
11204 | RowBox[{
|
---|
11205 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11206 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11207 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11208 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11209 | FractionBox[
|
---|
11210 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11211 | SubscriptBox["g", "s"], " ",
|
---|
11212 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11213 | SubsuperscriptBox["\[Gamma]",
|
---|
11214 | RowBox[{
|
---|
11215 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11216 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11217 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11218 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11219 | SubscriptBox["\[Eta]",
|
---|
11220 | RowBox[{
|
---|
11221 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11222 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11223 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11224 | SubsuperscriptBox["T",
|
---|
11225 | RowBox[{
|
---|
11226 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11227 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11228 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11229 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11230 | FractionBox[
|
---|
11231 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11232 | SubscriptBox["g", "s"], " ",
|
---|
11233 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11234 | SubsuperscriptBox["\[Gamma]",
|
---|
11235 | RowBox[{
|
---|
11236 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11237 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11238 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
11239 | SubscriptBox["\[Eta]",
|
---|
11240 | RowBox[{
|
---|
11241 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11242 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11243 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11244 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11245 | SubsuperscriptBox["T",
|
---|
11246 | RowBox[{
|
---|
11247 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11248 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11249 | SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11250 | CellChangeTimes->{
|
---|
11251 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11252 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11253 | 3.5811597492202187`*^9}],
|
---|
11254 |
|
---|
11255 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11256 | * * * * * *)\"\>"], "Print",
|
---|
11257 | CellChangeTimes->{
|
---|
11258 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11259 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11260 | 3.581159749229089*^9}],
|
---|
11261 |
|
---|
11262 | Cell[BoxData[
|
---|
11263 | InterpretationBox[
|
---|
11264 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "58"}],
|
---|
11265 | SequenceForm["Vertex ", 58],
|
---|
11266 | Editable->False]], "Print",
|
---|
11267 | CellChangeTimes->{
|
---|
11268 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11269 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11270 | 3.581159749234344*^9}],
|
---|
11271 |
|
---|
11272 | Cell[BoxData[
|
---|
11273 | InterpretationBox[
|
---|
11274 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11275 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11276 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11277 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
11278 | Editable->False]], "Print",
|
---|
11279 | CellChangeTimes->{
|
---|
11280 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11281 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11282 | 3.5811597492399597`*^9}],
|
---|
11283 |
|
---|
11284 | Cell[BoxData[
|
---|
11285 | InterpretationBox[
|
---|
11286 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11287 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11288 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
11289 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
11290 | Editable->False]], "Print",
|
---|
11291 | CellChangeTimes->{
|
---|
11292 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11293 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11294 | 3.581159749246365*^9}],
|
---|
11295 |
|
---|
11296 | Cell[BoxData[
|
---|
11297 | InterpretationBox[
|
---|
11298 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11299 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11300 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11301 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
11302 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
11303 | Editable->False]], "Print",
|
---|
11304 | CellChangeTimes->{
|
---|
11305 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11306 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11307 | 3.581159749284761*^9}],
|
---|
11308 |
|
---|
11309 | Cell[BoxData[
|
---|
11310 | InterpretationBox[
|
---|
11311 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11312 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11313 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11314 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11315 | Editable->False]], "Print",
|
---|
11316 | CellChangeTimes->{
|
---|
11317 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11318 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11319 | 3.581159749289731*^9}],
|
---|
11320 |
|
---|
11321 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11322 | CellChangeTimes->{
|
---|
11323 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11324 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11325 | 3.58115974929602*^9}],
|
---|
11326 |
|
---|
11327 | Cell[BoxData[
|
---|
11328 | RowBox[{
|
---|
11329 | RowBox[{"-",
|
---|
11330 | FractionBox[
|
---|
11331 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11332 | SubscriptBox["g", "s"], " ",
|
---|
11333 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11334 | SubsuperscriptBox["\[Gamma]",
|
---|
11335 | RowBox[{
|
---|
11336 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11337 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11338 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11339 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11340 | SubscriptBox["\[Eta]",
|
---|
11341 | RowBox[{
|
---|
11342 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11343 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11344 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11345 | SubsuperscriptBox["T",
|
---|
11346 | RowBox[{
|
---|
11347 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11348 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11349 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11350 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11351 | FractionBox[
|
---|
11352 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11353 | SubscriptBox["g", "s"], " ",
|
---|
11354 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11355 | SubsuperscriptBox["\[Gamma]",
|
---|
11356 | RowBox[{
|
---|
11357 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11358 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11359 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11360 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11361 | SubscriptBox["\[Eta]",
|
---|
11362 | RowBox[{
|
---|
11363 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11364 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11365 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11366 | SubsuperscriptBox["T",
|
---|
11367 | RowBox[{
|
---|
11368 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11369 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11370 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11371 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11372 | FractionBox[
|
---|
11373 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11374 | SubscriptBox["g", "s"], " ",
|
---|
11375 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11376 | SubsuperscriptBox["\[Gamma]",
|
---|
11377 | RowBox[{
|
---|
11378 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11379 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11380 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
11381 | SubscriptBox["\[Eta]",
|
---|
11382 | RowBox[{
|
---|
11383 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11384 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11385 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11386 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11387 | SubsuperscriptBox["T",
|
---|
11388 | RowBox[{
|
---|
11389 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11390 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11391 | SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11392 | CellChangeTimes->{
|
---|
11393 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11394 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11395 | 3.581159749302363*^9}],
|
---|
11396 |
|
---|
11397 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11398 | * * * * * *)\"\>"], "Print",
|
---|
11399 | CellChangeTimes->{
|
---|
11400 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11401 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11402 | 3.58115974931157*^9}],
|
---|
11403 |
|
---|
11404 | Cell[BoxData[
|
---|
11405 | InterpretationBox[
|
---|
11406 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "59"}],
|
---|
11407 | SequenceForm["Vertex ", 59],
|
---|
11408 | Editable->False]], "Print",
|
---|
11409 | CellChangeTimes->{
|
---|
11410 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11411 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11412 | 3.5811597493177023`*^9}],
|
---|
11413 |
|
---|
11414 | Cell[BoxData[
|
---|
11415 | InterpretationBox[
|
---|
11416 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11417 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11418 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
11419 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
11420 | Editable->False]], "Print",
|
---|
11421 | CellChangeTimes->{
|
---|
11422 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11423 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11424 | 3.581159749322588*^9}],
|
---|
11425 |
|
---|
11426 | Cell[BoxData[
|
---|
11427 | InterpretationBox[
|
---|
11428 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11429 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11430 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11431 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
11432 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
11433 | Editable->False]], "Print",
|
---|
11434 | CellChangeTimes->{
|
---|
11435 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11436 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11437 | 3.581159749328846*^9}],
|
---|
11438 |
|
---|
11439 | Cell[BoxData[
|
---|
11440 | InterpretationBox[
|
---|
11441 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11442 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11443 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11444 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
11445 | Editable->False]], "Print",
|
---|
11446 | CellChangeTimes->{
|
---|
11447 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11448 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11449 | 3.581159749336534*^9}],
|
---|
11450 |
|
---|
11451 | Cell[BoxData[
|
---|
11452 | InterpretationBox[
|
---|
11453 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11454 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11455 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11456 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11457 | Editable->False]], "Print",
|
---|
11458 | CellChangeTimes->{
|
---|
11459 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11460 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11461 | 3.581159749342958*^9}],
|
---|
11462 |
|
---|
11463 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11464 | CellChangeTimes->{
|
---|
11465 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11466 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11467 | 3.5811597493486767`*^9}],
|
---|
11468 |
|
---|
11469 | Cell[BoxData[
|
---|
11470 | RowBox[{
|
---|
11471 | RowBox[{"-",
|
---|
11472 | FractionBox[
|
---|
11473 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11474 | SubscriptBox["g", "s"], " ",
|
---|
11475 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11476 | SubsuperscriptBox["\[Gamma]",
|
---|
11477 | RowBox[{
|
---|
11478 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11479 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11480 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11481 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11482 | SubscriptBox["\[Eta]",
|
---|
11483 | RowBox[{
|
---|
11484 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11485 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11486 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11487 | SubsuperscriptBox["T",
|
---|
11488 | RowBox[{
|
---|
11489 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11490 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11491 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11492 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11493 | FractionBox[
|
---|
11494 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11495 | SubscriptBox["g", "s"], " ",
|
---|
11496 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11497 | SubsuperscriptBox["\[Gamma]",
|
---|
11498 | RowBox[{
|
---|
11499 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11500 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11501 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11502 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11503 | SubscriptBox["\[Eta]",
|
---|
11504 | RowBox[{
|
---|
11505 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11506 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11507 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11508 | SubsuperscriptBox["T",
|
---|
11509 | RowBox[{
|
---|
11510 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11511 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11512 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11513 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11514 | FractionBox[
|
---|
11515 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11516 | SubscriptBox["g", "s"], " ",
|
---|
11517 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11518 | SubsuperscriptBox["\[Gamma]",
|
---|
11519 | RowBox[{
|
---|
11520 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11521 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11522 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
11523 | SubscriptBox["\[Eta]",
|
---|
11524 | RowBox[{
|
---|
11525 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11526 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11527 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11528 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11529 | SubsuperscriptBox["T",
|
---|
11530 | RowBox[{
|
---|
11531 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11532 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11533 | SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11534 | CellChangeTimes->{
|
---|
11535 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11536 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11537 | 3.581159749354307*^9}],
|
---|
11538 |
|
---|
11539 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11540 | * * * * * *)\"\>"], "Print",
|
---|
11541 | CellChangeTimes->{
|
---|
11542 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11543 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11544 | 3.5811597493633127`*^9}],
|
---|
11545 |
|
---|
11546 | Cell[BoxData[
|
---|
11547 | InterpretationBox[
|
---|
11548 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "60"}],
|
---|
11549 | SequenceForm["Vertex ", 60],
|
---|
11550 | Editable->False]], "Print",
|
---|
11551 | CellChangeTimes->{
|
---|
11552 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11553 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11554 | 3.5811597493691483`*^9}],
|
---|
11555 |
|
---|
11556 | Cell[BoxData[
|
---|
11557 | InterpretationBox[
|
---|
11558 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11559 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11560 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
11561 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
11562 | Editable->False]], "Print",
|
---|
11563 | CellChangeTimes->{
|
---|
11564 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11565 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11566 | 3.581159749374257*^9}],
|
---|
11567 |
|
---|
11568 | Cell[BoxData[
|
---|
11569 | InterpretationBox[
|
---|
11570 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11571 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11572 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11573 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
11574 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
11575 | Editable->False]], "Print",
|
---|
11576 | CellChangeTimes->{
|
---|
11577 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11578 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11579 | 3.581159749380012*^9}],
|
---|
11580 |
|
---|
11581 | Cell[BoxData[
|
---|
11582 | InterpretationBox[
|
---|
11583 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11584 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11585 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11586 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`G],
|
---|
11587 | Editable->False]], "Print",
|
---|
11588 | CellChangeTimes->{
|
---|
11589 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11590 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11591 | 3.5811597493861427`*^9}],
|
---|
11592 |
|
---|
11593 | Cell[BoxData[
|
---|
11594 | InterpretationBox[
|
---|
11595 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11596 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11597 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11598 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11599 | Editable->False]], "Print",
|
---|
11600 | CellChangeTimes->{
|
---|
11601 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11602 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11603 | 3.5811597493926687`*^9}],
|
---|
11604 |
|
---|
11605 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11606 | CellChangeTimes->{
|
---|
11607 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11608 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11609 | 3.581159749398018*^9}],
|
---|
11610 |
|
---|
11611 | Cell[BoxData[
|
---|
11612 | RowBox[{
|
---|
11613 | RowBox[{"-",
|
---|
11614 | FractionBox[
|
---|
11615 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11616 | SubscriptBox["g", "s"], " ",
|
---|
11617 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11618 | SubsuperscriptBox["\[Gamma]",
|
---|
11619 | RowBox[{
|
---|
11620 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11621 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11622 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11623 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11624 | SubscriptBox["\[Eta]",
|
---|
11625 | RowBox[{
|
---|
11626 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11627 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11628 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11629 | SubsuperscriptBox["T",
|
---|
11630 | RowBox[{
|
---|
11631 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11632 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11633 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11634 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11635 | FractionBox[
|
---|
11636 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11637 | SubscriptBox["g", "s"], " ",
|
---|
11638 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11639 | SubsuperscriptBox["\[Gamma]",
|
---|
11640 | RowBox[{
|
---|
11641 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11642 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11643 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11644 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11645 | SubscriptBox["\[Eta]",
|
---|
11646 | RowBox[{
|
---|
11647 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11648 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11649 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11650 | SubsuperscriptBox["T",
|
---|
11651 | RowBox[{
|
---|
11652 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11653 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11654 | SubscriptBox["\<\"a\"\>", "3"]]}],
|
---|
11655 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11656 | FractionBox[
|
---|
11657 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11658 | SubscriptBox["g", "s"], " ",
|
---|
11659 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11660 | SubsuperscriptBox["\[Gamma]",
|
---|
11661 | RowBox[{
|
---|
11662 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
11663 | SubscriptBox["\<\"s\"\>", "1"]}],
|
---|
11664 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
11665 | SubscriptBox["\[Eta]",
|
---|
11666 | RowBox[{
|
---|
11667 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11668 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11669 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11670 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11671 | SubsuperscriptBox["T",
|
---|
11672 | RowBox[{
|
---|
11673 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
11674 | SubscriptBox["\<\"m\"\>", "1"]}],
|
---|
11675 | SubscriptBox["\<\"a\"\>", "3"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11676 | CellChangeTimes->{
|
---|
11677 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11678 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11679 | 3.58115974940347*^9}],
|
---|
11680 |
|
---|
11681 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11682 | * * * * * *)\"\>"], "Print",
|
---|
11683 | CellChangeTimes->{
|
---|
11684 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11685 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11686 | 3.581159749409466*^9}],
|
---|
11687 |
|
---|
11688 | Cell[BoxData[
|
---|
11689 | InterpretationBox[
|
---|
11690 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "61"}],
|
---|
11691 | SequenceForm["Vertex ", 61],
|
---|
11692 | Editable->False]], "Print",
|
---|
11693 | CellChangeTimes->{
|
---|
11694 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11695 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11696 | 3.58115974941367*^9}],
|
---|
11697 |
|
---|
11698 | Cell[BoxData[
|
---|
11699 | InterpretationBox[
|
---|
11700 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11701 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11702 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "G"}],
|
---|
11703 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`G],
|
---|
11704 | Editable->False]], "Print",
|
---|
11705 | CellChangeTimes->{
|
---|
11706 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11707 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11708 | 3.581159749418545*^9}],
|
---|
11709 |
|
---|
11710 | Cell[BoxData[
|
---|
11711 | InterpretationBox[
|
---|
11712 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11713 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11714 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
11715 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
11716 | Editable->False]], "Print",
|
---|
11717 | CellChangeTimes->{
|
---|
11718 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11719 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11720 | 3.581159749423143*^9}],
|
---|
11721 |
|
---|
11722 | Cell[BoxData[
|
---|
11723 | InterpretationBox[
|
---|
11724 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11725 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
11726 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11727 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
11728 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
11729 | Editable->False]], "Print",
|
---|
11730 | CellChangeTimes->{
|
---|
11731 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11732 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11733 | 3.5811597494274883`*^9}],
|
---|
11734 |
|
---|
11735 | Cell[BoxData[
|
---|
11736 | InterpretationBox[
|
---|
11737 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11738 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
11739 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
11740 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
11741 | Editable->False]], "Print",
|
---|
11742 | CellChangeTimes->{
|
---|
11743 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11744 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11745 | 3.5811597494318447`*^9}],
|
---|
11746 |
|
---|
11747 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11748 | CellChangeTimes->{
|
---|
11749 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11750 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11751 | 3.581159749436059*^9}],
|
---|
11752 |
|
---|
11753 | Cell[BoxData[
|
---|
11754 | RowBox[{
|
---|
11755 | RowBox[{"-",
|
---|
11756 | FractionBox[
|
---|
11757 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11758 | SubscriptBox["g", "s"], " ",
|
---|
11759 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11760 | SubsuperscriptBox["\[Gamma]",
|
---|
11761 | RowBox[{
|
---|
11762 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11763 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11764 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11765 | RowBox[{"4", ",", "2"}]]], " ",
|
---|
11766 | SubscriptBox["\[Eta]",
|
---|
11767 | RowBox[{
|
---|
11768 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11769 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11770 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
11771 | SubsuperscriptBox["T",
|
---|
11772 | RowBox[{
|
---|
11773 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11774 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11775 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11776 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
11777 | FractionBox[
|
---|
11778 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11779 | SubscriptBox["g", "s"], " ",
|
---|
11780 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11781 | SubsuperscriptBox["\[Gamma]",
|
---|
11782 | RowBox[{
|
---|
11783 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11784 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11785 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11786 | RowBox[{"4", ",", "1"}]]], " ",
|
---|
11787 | SubscriptBox["\[Eta]",
|
---|
11788 | RowBox[{
|
---|
11789 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11790 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11791 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11792 | SubsuperscriptBox["T",
|
---|
11793 | RowBox[{
|
---|
11794 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11795 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11796 | SubscriptBox["\<\"a\"\>", "1"]]}],
|
---|
11797 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
11798 | FractionBox[
|
---|
11799 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11800 | SubscriptBox["g", "s"], " ",
|
---|
11801 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
11802 | SubsuperscriptBox["\[Gamma]",
|
---|
11803 | RowBox[{
|
---|
11804 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
11805 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
11806 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
11807 | SubscriptBox["\[Eta]",
|
---|
11808 | RowBox[{
|
---|
11809 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11810 | RowBox[{"4", ",", "1"}]], ",",
|
---|
11811 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
11812 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
11813 | SubsuperscriptBox["T",
|
---|
11814 | RowBox[{
|
---|
11815 | SubscriptBox["\<\"m\"\>", "3"], ",",
|
---|
11816 | SubscriptBox["\<\"m\"\>", "2"]}],
|
---|
11817 | SubscriptBox["\<\"a\"\>", "1"]]}], "\[CapitalLambda]"]}]], "Print",
|
---|
11818 | CellChangeTimes->{
|
---|
11819 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11820 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11821 | 3.581159749440455*^9}],
|
---|
11822 |
|
---|
11823 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11824 | * * * * * *)\"\>"], "Print",
|
---|
11825 | CellChangeTimes->{
|
---|
11826 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11827 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11828 | 3.581159749445622*^9}],
|
---|
11829 |
|
---|
11830 | Cell[BoxData[
|
---|
11831 | InterpretationBox[
|
---|
11832 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "62"}],
|
---|
11833 | SequenceForm["Vertex ", 62],
|
---|
11834 | Editable->False]], "Print",
|
---|
11835 | CellChangeTimes->{
|
---|
11836 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11837 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11838 | 3.58115974945019*^9}],
|
---|
11839 |
|
---|
11840 | Cell[BoxData[
|
---|
11841 | InterpretationBox[
|
---|
11842 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11843 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11844 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
11845 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
11846 | Editable->False]], "Print",
|
---|
11847 | CellChangeTimes->{
|
---|
11848 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11849 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11850 | 3.581159749454708*^9}],
|
---|
11851 |
|
---|
11852 | Cell[BoxData[
|
---|
11853 | InterpretationBox[
|
---|
11854 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11855 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11856 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
11857 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", FeynRules`W],
|
---|
11858 | Editable->False]], "Print",
|
---|
11859 | CellChangeTimes->{
|
---|
11860 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11861 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11862 | 3.581159749459753*^9}],
|
---|
11863 |
|
---|
11864 | Cell[BoxData[
|
---|
11865 | InterpretationBox[
|
---|
11866 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11867 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11868 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
11869 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
11870 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
11871 | Editable->False]], "Print",
|
---|
11872 | CellChangeTimes->{
|
---|
11873 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11874 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11875 | 3.581159749464264*^9}],
|
---|
11876 |
|
---|
11877 | Cell[BoxData[
|
---|
11878 | InterpretationBox[
|
---|
11879 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
11880 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11881 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
11882 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
11883 | Editable->False]], "Print",
|
---|
11884 | CellChangeTimes->{
|
---|
11885 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11886 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11887 | 3.5811597494690638`*^9}],
|
---|
11888 |
|
---|
11889 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11890 | CellChangeTimes->{
|
---|
11891 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11892 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11893 | 3.581159749473524*^9}],
|
---|
11894 |
|
---|
11895 | Cell[BoxData[
|
---|
11896 | RowBox[{
|
---|
11897 | RowBox[{"-",
|
---|
11898 | FractionBox[
|
---|
11899 | RowBox[{"2", " ", "\[ImaginaryI]", " ",
|
---|
11900 | SubscriptBox["c", "w"], " ",
|
---|
11901 | SuperscriptBox["e", "2"], " ",
|
---|
11902 | SubscriptBox["\[Eta]",
|
---|
11903 | RowBox[{
|
---|
11904 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11905 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
11906 | SubscriptBox["\[Eta]",
|
---|
11907 | RowBox[{
|
---|
11908 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
11909 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
11910 | SubscriptBox["s", "w"]]}], "+",
|
---|
11911 | FractionBox[
|
---|
11912 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11913 | SubscriptBox["c", "w"], " ",
|
---|
11914 | SuperscriptBox["e", "2"], " ",
|
---|
11915 | SubscriptBox["\[Eta]",
|
---|
11916 | RowBox[{
|
---|
11917 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11918 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
11919 | SubscriptBox["\[Eta]",
|
---|
11920 | RowBox[{
|
---|
11921 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
11922 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
11923 | SubscriptBox["s", "w"]], "+",
|
---|
11924 | FractionBox[
|
---|
11925 | RowBox[{"\[ImaginaryI]", " ",
|
---|
11926 | SubscriptBox["c", "w"], " ",
|
---|
11927 | SuperscriptBox["e", "2"], " ",
|
---|
11928 | SubscriptBox["\[Eta]",
|
---|
11929 | RowBox[{
|
---|
11930 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
11931 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
11932 | SubscriptBox["\[Eta]",
|
---|
11933 | RowBox[{
|
---|
11934 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
11935 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
11936 | SubscriptBox["s", "w"]]}]], "Print",
|
---|
11937 | CellChangeTimes->{
|
---|
11938 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11939 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11940 | 3.581159749479088*^9}],
|
---|
11941 |
|
---|
11942 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
11943 | * * * * * *)\"\>"], "Print",
|
---|
11944 | CellChangeTimes->{
|
---|
11945 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11946 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11947 | 3.581159749484932*^9}],
|
---|
11948 |
|
---|
11949 | Cell[BoxData[
|
---|
11950 | InterpretationBox[
|
---|
11951 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "63"}],
|
---|
11952 | SequenceForm["Vertex ", 63],
|
---|
11953 | Editable->False]], "Print",
|
---|
11954 | CellChangeTimes->{
|
---|
11955 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11956 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11957 | 3.581159749489547*^9}],
|
---|
11958 |
|
---|
11959 | Cell[BoxData[
|
---|
11960 | InterpretationBox[
|
---|
11961 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
11962 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11963 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X1"}],
|
---|
11964 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`X1],
|
---|
11965 | Editable->False]], "Print",
|
---|
11966 | CellChangeTimes->{
|
---|
11967 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11968 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11969 | 3.581159749494001*^9}],
|
---|
11970 |
|
---|
11971 | Cell[BoxData[
|
---|
11972 | InterpretationBox[
|
---|
11973 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
11974 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11975 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
11976 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Z],
|
---|
11977 | Editable->False]], "Print",
|
---|
11978 | CellChangeTimes->{
|
---|
11979 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11980 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11981 | 3.581159749499135*^9}],
|
---|
11982 |
|
---|
11983 | Cell[BoxData[
|
---|
11984 | InterpretationBox[
|
---|
11985 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
11986 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
11987 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
11988 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
11989 | Editable->False]], "Print",
|
---|
11990 | CellChangeTimes->{
|
---|
11991 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11992 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11993 | 3.581159749503717*^9}],
|
---|
11994 |
|
---|
11995 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
11996 | CellChangeTimes->{
|
---|
11997 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
11998 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
11999 | 3.581159749508576*^9}],
|
---|
12000 |
|
---|
12001 | Cell[BoxData[
|
---|
12002 | RowBox[{
|
---|
12003 | RowBox[{
|
---|
12004 | SubscriptBox["\[Kappa]", "z5"], " ",
|
---|
12005 | SubscriptBox["\[Epsilon]",
|
---|
12006 | RowBox[{
|
---|
12007 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12008 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12009 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
|
---|
12010 | SubsuperscriptBox["\<\"p\"\>", "2", "mu$11"]}], "-",
|
---|
12011 | RowBox[{
|
---|
12012 | SubscriptBox["\[Kappa]", "z5"], " ",
|
---|
12013 | SubscriptBox["\[Epsilon]",
|
---|
12014 | RowBox[{
|
---|
12015 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12016 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12017 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", "mu$11"}]], " ",
|
---|
12018 | SubsuperscriptBox["\<\"p\"\>", "3", "mu$11"]}], "-",
|
---|
12019 | RowBox[{
|
---|
12020 | SubscriptBox["\[Kappa]", "z1"], " ",
|
---|
12021 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
12022 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
12023 | SubscriptBox["\[Eta]",
|
---|
12024 | RowBox[{
|
---|
12025 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12026 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
12027 | RowBox[{
|
---|
12028 | SubscriptBox["\[Kappa]", "z3"], " ",
|
---|
12029 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
12030 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
|
---|
12031 | SubscriptBox["\[Eta]",
|
---|
12032 | RowBox[{
|
---|
12033 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12034 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}], "-",
|
---|
12035 | RowBox[{
|
---|
12036 | SubscriptBox["\[Kappa]", "z1"], " ",
|
---|
12037 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
12038 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
12039 | SubscriptBox["\[Eta]",
|
---|
12040 | RowBox[{
|
---|
12041 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12042 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "-",
|
---|
12043 | RowBox[{
|
---|
12044 | SubscriptBox["\[Kappa]", "z3"], " ",
|
---|
12045 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
12046 | SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
|
---|
12047 | SubscriptBox["\[Eta]",
|
---|
12048 | RowBox[{
|
---|
12049 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12050 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
12051 | RowBox[{
|
---|
12052 | SubscriptBox["\[Kappa]", "z1"], " ",
|
---|
12053 | SubsuperscriptBox["\<\"p\"\>", "2",
|
---|
12054 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12055 | SubscriptBox["\[Eta]",
|
---|
12056 | RowBox[{
|
---|
12057 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12058 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}], "+",
|
---|
12059 | RowBox[{
|
---|
12060 | SubscriptBox["\[Kappa]", "z1"], " ",
|
---|
12061 | SubsuperscriptBox["\<\"p\"\>", "3",
|
---|
12062 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12063 | SubscriptBox["\[Eta]",
|
---|
12064 | RowBox[{
|
---|
12065 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12066 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}]}]], "Print",
|
---|
12067 | CellChangeTimes->{
|
---|
12068 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12069 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12070 | 3.5811597495132427`*^9}],
|
---|
12071 |
|
---|
12072 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12073 | * * * * * *)\"\>"], "Print",
|
---|
12074 | CellChangeTimes->{
|
---|
12075 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12076 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12077 | 3.5811597495185633`*^9}],
|
---|
12078 |
|
---|
12079 | Cell[BoxData[
|
---|
12080 | InterpretationBox[
|
---|
12081 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "64"}],
|
---|
12082 | SequenceForm["Vertex ", 64],
|
---|
12083 | Editable->False]], "Print",
|
---|
12084 | CellChangeTimes->{
|
---|
12085 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12086 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12087 | 3.581159749522718*^9}],
|
---|
12088 |
|
---|
12089 | Cell[BoxData[
|
---|
12090 | InterpretationBox[
|
---|
12091 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12092 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
12093 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
12094 | SequenceForm["Particle ", 1, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
12095 | Editable->False]], "Print",
|
---|
12096 | CellChangeTimes->{
|
---|
12097 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12098 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12099 | 3.581159749526729*^9}],
|
---|
12100 |
|
---|
12101 | Cell[BoxData[
|
---|
12102 | InterpretationBox[
|
---|
12103 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12104 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Scalar\"\>",
|
---|
12105 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X0"}],
|
---|
12106 | SequenceForm["Particle ", 2, " : ", "Scalar", " , ", $CellContext`X0],
|
---|
12107 | Editable->False]], "Print",
|
---|
12108 | CellChangeTimes->{
|
---|
12109 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12110 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12111 | 3.581159749531082*^9}],
|
---|
12112 |
|
---|
12113 | Cell[BoxData[
|
---|
12114 | InterpretationBox[
|
---|
12115 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12116 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12117 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
12118 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
12119 | Editable->False]], "Print",
|
---|
12120 | CellChangeTimes->{
|
---|
12121 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12122 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12123 | 3.581159749535388*^9}],
|
---|
12124 |
|
---|
12125 | Cell[BoxData[
|
---|
12126 | InterpretationBox[
|
---|
12127 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
12128 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12129 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
12130 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
12131 | Editable->False]], "Print",
|
---|
12132 | CellChangeTimes->{
|
---|
12133 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12134 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12135 | 3.581159749539523*^9}],
|
---|
12136 |
|
---|
12137 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12138 | CellChangeTimes->{
|
---|
12139 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12140 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12141 | 3.581159749543545*^9}],
|
---|
12142 |
|
---|
12143 | Cell[BoxData[
|
---|
12144 | RowBox[{
|
---|
12145 | RowBox[{"\[ImaginaryI]", " ",
|
---|
12146 | SubsuperscriptBox["c", "a", "2"], " ",
|
---|
12147 | SuperscriptBox["e", "2"], " ",
|
---|
12148 | SubscriptBox["\[Kappa]", "SM"], " ",
|
---|
12149 | SubscriptBox["\[Eta]",
|
---|
12150 | RowBox[{
|
---|
12151 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
12152 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}], "+",
|
---|
12153 | FractionBox[
|
---|
12154 | RowBox[{"\[ImaginaryI]", " ",
|
---|
12155 | SubsuperscriptBox["c", "a", "2"], " ",
|
---|
12156 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
12157 | SuperscriptBox["e", "2"], " ",
|
---|
12158 | SubscriptBox["\[Kappa]", "SM"], " ",
|
---|
12159 | SubscriptBox["\[Eta]",
|
---|
12160 | RowBox[{
|
---|
12161 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
12162 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
12163 | RowBox[{"2", " ",
|
---|
12164 | SubsuperscriptBox["s", "w", "2"]}]], "+",
|
---|
12165 | FractionBox[
|
---|
12166 | RowBox[{"\[ImaginaryI]", " ",
|
---|
12167 | SubsuperscriptBox["c", "a", "2"], " ",
|
---|
12168 | SuperscriptBox["e", "2"], " ",
|
---|
12169 | SubscriptBox["\[Kappa]", "SM"], " ",
|
---|
12170 | SubsuperscriptBox["s", "w", "2"], " ",
|
---|
12171 | SubscriptBox["\[Eta]",
|
---|
12172 | RowBox[{
|
---|
12173 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
12174 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
12175 | RowBox[{"2", " ",
|
---|
12176 | SubsuperscriptBox["c", "w", "2"]}]]}]], "Print",
|
---|
12177 | CellChangeTimes->{
|
---|
12178 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12179 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12180 | 3.581159749547854*^9}],
|
---|
12181 |
|
---|
12182 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12183 | * * * * * *)\"\>"], "Print",
|
---|
12184 | CellChangeTimes->{
|
---|
12185 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12186 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12187 | 3.581159749552376*^9}],
|
---|
12188 |
|
---|
12189 | Cell[BoxData[
|
---|
12190 | InterpretationBox[
|
---|
12191 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "65"}],
|
---|
12192 | SequenceForm["Vertex ", 65],
|
---|
12193 | Editable->False]], "Print",
|
---|
12194 | CellChangeTimes->{
|
---|
12195 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12196 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12197 | 3.5811597495566883`*^9}],
|
---|
12198 |
|
---|
12199 | Cell[BoxData[
|
---|
12200 | InterpretationBox[
|
---|
12201 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12202 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12203 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
12204 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", FeynRules`W],
|
---|
12205 | Editable->False]], "Print",
|
---|
12206 | CellChangeTimes->{
|
---|
12207 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12208 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12209 | 3.581159749560791*^9}],
|
---|
12210 |
|
---|
12211 | Cell[BoxData[
|
---|
12212 | InterpretationBox[
|
---|
12213 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12214 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12215 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12216 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
12217 | SequenceForm["Particle ", 2, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
12218 | Editable->False]], "Print",
|
---|
12219 | CellChangeTimes->{
|
---|
12220 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12221 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12222 | 3.581159749564972*^9}],
|
---|
12223 |
|
---|
12224 | Cell[BoxData[
|
---|
12225 | InterpretationBox[
|
---|
12226 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12227 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12228 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
12229 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
12230 | Editable->False]], "Print",
|
---|
12231 | CellChangeTimes->{
|
---|
12232 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12233 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12234 | 3.5811597495690527`*^9}],
|
---|
12235 |
|
---|
12236 | Cell[BoxData[
|
---|
12237 | InterpretationBox[
|
---|
12238 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
12239 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12240 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
12241 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
12242 | Editable->False]], "Print",
|
---|
12243 | CellChangeTimes->{
|
---|
12244 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12245 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12246 | 3.581159749573173*^9}],
|
---|
12247 |
|
---|
12248 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12249 | CellChangeTimes->{
|
---|
12250 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12251 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12252 | 3.581159749577325*^9}],
|
---|
12253 |
|
---|
12254 | Cell[BoxData[
|
---|
12255 | RowBox[{
|
---|
12256 | FractionBox[
|
---|
12257 | RowBox[{"\[ImaginaryI]", " ",
|
---|
12258 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
12259 | SuperscriptBox["e", "2"], " ",
|
---|
12260 | SubscriptBox["\[Eta]",
|
---|
12261 | RowBox[{
|
---|
12262 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12263 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
|
---|
12264 | SubscriptBox["\[Eta]",
|
---|
12265 | RowBox[{
|
---|
12266 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12267 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]]}],
|
---|
12268 | SubsuperscriptBox["s", "w", "2"]], "+",
|
---|
12269 | FractionBox[
|
---|
12270 | RowBox[{"\[ImaginaryI]", " ",
|
---|
12271 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
12272 | SuperscriptBox["e", "2"], " ",
|
---|
12273 | SubscriptBox["\[Eta]",
|
---|
12274 | RowBox[{
|
---|
12275 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12276 | SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
|
---|
12277 | SubscriptBox["\[Eta]",
|
---|
12278 | RowBox[{
|
---|
12279 | SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
|
---|
12280 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
12281 | SubsuperscriptBox["s", "w", "2"]], "-",
|
---|
12282 | FractionBox[
|
---|
12283 | RowBox[{"2", " ", "\[ImaginaryI]", " ",
|
---|
12284 | SubsuperscriptBox["c", "w", "2"], " ",
|
---|
12285 | SuperscriptBox["e", "2"], " ",
|
---|
12286 | SubscriptBox["\[Eta]",
|
---|
12287 | RowBox[{
|
---|
12288 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
12289 | SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
|
---|
12290 | SubscriptBox["\[Eta]",
|
---|
12291 | RowBox[{
|
---|
12292 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
12293 | SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
|
---|
12294 | SubsuperscriptBox["s", "w", "2"]]}]], "Print",
|
---|
12295 | CellChangeTimes->{
|
---|
12296 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12297 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12298 | 3.5811597495817223`*^9}],
|
---|
12299 |
|
---|
12300 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12301 | * * * * * *)\"\>"], "Print",
|
---|
12302 | CellChangeTimes->{
|
---|
12303 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12304 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12305 | 3.5811597495865793`*^9}],
|
---|
12306 |
|
---|
12307 | Cell[BoxData[
|
---|
12308 | InterpretationBox[
|
---|
12309 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "66"}],
|
---|
12310 | SequenceForm["Vertex ", 66],
|
---|
12311 | Editable->False]], "Print",
|
---|
12312 | CellChangeTimes->{
|
---|
12313 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12314 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12315 | 3.581159749590707*^9}],
|
---|
12316 |
|
---|
12317 | Cell[BoxData[
|
---|
12318 | InterpretationBox[
|
---|
12319 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12320 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12321 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12322 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12323 | Editable->False]], "Print",
|
---|
12324 | CellChangeTimes->{
|
---|
12325 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12326 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12327 | 3.581159749594844*^9}],
|
---|
12328 |
|
---|
12329 | Cell[BoxData[
|
---|
12330 | InterpretationBox[
|
---|
12331 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12332 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12333 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
12334 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
|
---|
12335 | Editable->False]], "Print",
|
---|
12336 | CellChangeTimes->{
|
---|
12337 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12338 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12339 | 3.581159749599*^9}],
|
---|
12340 |
|
---|
12341 | Cell[BoxData[
|
---|
12342 | InterpretationBox[
|
---|
12343 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12344 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12345 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12346 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
12347 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
12348 | Editable->False]], "Print",
|
---|
12349 | CellChangeTimes->{
|
---|
12350 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12351 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12352 | 3.581159749603071*^9}],
|
---|
12353 |
|
---|
12354 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12355 | CellChangeTimes->{
|
---|
12356 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12357 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12358 | 3.581159749607307*^9}],
|
---|
12359 |
|
---|
12360 | Cell[BoxData[
|
---|
12361 | RowBox[{
|
---|
12362 | RowBox[{"-",
|
---|
12363 | FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12364 | SubsuperscriptBox["\[Gamma]",
|
---|
12365 | RowBox[{
|
---|
12366 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12367 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12368 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12369 | SubscriptBox["\[Delta]",
|
---|
12370 | RowBox[{
|
---|
12371 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12372 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12373 | CellChangeTimes->{
|
---|
12374 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12375 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12376 | 3.581159749611396*^9}],
|
---|
12377 |
|
---|
12378 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12379 | * * * * * *)\"\>"], "Print",
|
---|
12380 | CellChangeTimes->{
|
---|
12381 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12382 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12383 | 3.581159749615759*^9}],
|
---|
12384 |
|
---|
12385 | Cell[BoxData[
|
---|
12386 | InterpretationBox[
|
---|
12387 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "67"}],
|
---|
12388 | SequenceForm["Vertex ", 67],
|
---|
12389 | Editable->False]], "Print",
|
---|
12390 | CellChangeTimes->{
|
---|
12391 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12392 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12393 | 3.5811597496198673`*^9}],
|
---|
12394 |
|
---|
12395 | Cell[BoxData[
|
---|
12396 | InterpretationBox[
|
---|
12397 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12398 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12399 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12400 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12401 | Editable->False]], "Print",
|
---|
12402 | CellChangeTimes->{
|
---|
12403 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12404 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12405 | 3.5811597496239557`*^9}],
|
---|
12406 |
|
---|
12407 | Cell[BoxData[
|
---|
12408 | InterpretationBox[
|
---|
12409 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12410 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12411 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
12412 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
|
---|
12413 | Editable->False]], "Print",
|
---|
12414 | CellChangeTimes->{
|
---|
12415 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12416 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12417 | 3.58115974962807*^9}],
|
---|
12418 |
|
---|
12419 | Cell[BoxData[
|
---|
12420 | InterpretationBox[
|
---|
12421 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12422 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12423 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12424 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
12425 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
12426 | Editable->False]], "Print",
|
---|
12427 | CellChangeTimes->{
|
---|
12428 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12429 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12430 | 3.581159749632379*^9}],
|
---|
12431 |
|
---|
12432 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12433 | CellChangeTimes->{
|
---|
12434 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12435 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12436 | 3.581159749636598*^9}],
|
---|
12437 |
|
---|
12438 | Cell[BoxData[
|
---|
12439 | RowBox[{
|
---|
12440 | RowBox[{"-",
|
---|
12441 | FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12442 | SubsuperscriptBox["\[Gamma]",
|
---|
12443 | RowBox[{
|
---|
12444 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12445 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12446 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12447 | SubscriptBox["\[Delta]",
|
---|
12448 | RowBox[{
|
---|
12449 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12450 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12451 | CellChangeTimes->{
|
---|
12452 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12453 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12454 | 3.581159749640788*^9}],
|
---|
12455 |
|
---|
12456 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12457 | * * * * * *)\"\>"], "Print",
|
---|
12458 | CellChangeTimes->{
|
---|
12459 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12460 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12461 | 3.581159749645069*^9}],
|
---|
12462 |
|
---|
12463 | Cell[BoxData[
|
---|
12464 | InterpretationBox[
|
---|
12465 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "68"}],
|
---|
12466 | SequenceForm["Vertex ", 68],
|
---|
12467 | Editable->False]], "Print",
|
---|
12468 | CellChangeTimes->{
|
---|
12469 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12470 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12471 | 3.5811597496493263`*^9}],
|
---|
12472 |
|
---|
12473 | Cell[BoxData[
|
---|
12474 | InterpretationBox[
|
---|
12475 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12476 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12477 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12478 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12479 | Editable->False]], "Print",
|
---|
12480 | CellChangeTimes->{
|
---|
12481 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12482 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12483 | 3.5811597496765337`*^9}],
|
---|
12484 |
|
---|
12485 | Cell[BoxData[
|
---|
12486 | InterpretationBox[
|
---|
12487 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12488 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12489 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
12490 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
12491 | Editable->False]], "Print",
|
---|
12492 | CellChangeTimes->{
|
---|
12493 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12494 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12495 | 3.58115974968089*^9}],
|
---|
12496 |
|
---|
12497 | Cell[BoxData[
|
---|
12498 | InterpretationBox[
|
---|
12499 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12500 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12501 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12502 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
12503 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
12504 | Editable->False]], "Print",
|
---|
12505 | CellChangeTimes->{
|
---|
12506 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12507 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12508 | 3.581159749685234*^9}],
|
---|
12509 |
|
---|
12510 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12511 | CellChangeTimes->{
|
---|
12512 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12513 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12514 | 3.581159749689323*^9}],
|
---|
12515 |
|
---|
12516 | Cell[BoxData[
|
---|
12517 | RowBox[{
|
---|
12518 | RowBox[{"-",
|
---|
12519 | FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12520 | SubsuperscriptBox["\[Gamma]",
|
---|
12521 | RowBox[{
|
---|
12522 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12523 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12524 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12525 | SubscriptBox["\[Delta]",
|
---|
12526 | RowBox[{
|
---|
12527 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12528 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12529 | CellChangeTimes->{
|
---|
12530 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12531 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12532 | 3.581159749693384*^9}],
|
---|
12533 |
|
---|
12534 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12535 | * * * * * *)\"\>"], "Print",
|
---|
12536 | CellChangeTimes->{
|
---|
12537 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12538 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12539 | 3.581159749697752*^9}],
|
---|
12540 |
|
---|
12541 | Cell[BoxData[
|
---|
12542 | InterpretationBox[
|
---|
12543 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "69"}],
|
---|
12544 | SequenceForm["Vertex ", 69],
|
---|
12545 | Editable->False]], "Print",
|
---|
12546 | CellChangeTimes->{
|
---|
12547 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12548 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12549 | 3.5811597497019577`*^9}],
|
---|
12550 |
|
---|
12551 | Cell[BoxData[
|
---|
12552 | InterpretationBox[
|
---|
12553 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12554 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12555 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12556 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12557 | Editable->False]], "Print",
|
---|
12558 | CellChangeTimes->{
|
---|
12559 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12560 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12561 | 3.5811597497060966`*^9}],
|
---|
12562 |
|
---|
12563 | Cell[BoxData[
|
---|
12564 | InterpretationBox[
|
---|
12565 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12566 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12567 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
12568 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
|
---|
12569 | Editable->False]], "Print",
|
---|
12570 | CellChangeTimes->{
|
---|
12571 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12572 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12573 | 3.5811597497103558`*^9}],
|
---|
12574 |
|
---|
12575 | Cell[BoxData[
|
---|
12576 | InterpretationBox[
|
---|
12577 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12578 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12579 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12580 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
12581 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
12582 | Editable->False]], "Print",
|
---|
12583 | CellChangeTimes->{
|
---|
12584 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12585 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12586 | 3.581159749714554*^9}],
|
---|
12587 |
|
---|
12588 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12589 | CellChangeTimes->{
|
---|
12590 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12591 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12592 | 3.5811597497187347`*^9}],
|
---|
12593 |
|
---|
12594 | Cell[BoxData[
|
---|
12595 | RowBox[{
|
---|
12596 | RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
|
---|
12597 | SubsuperscriptBox["\[Gamma]",
|
---|
12598 | RowBox[{
|
---|
12599 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12600 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12601 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
|
---|
12602 | CellChangeTimes->{
|
---|
12603 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12604 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12605 | 3.58115974972281*^9}],
|
---|
12606 |
|
---|
12607 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12608 | * * * * * *)\"\>"], "Print",
|
---|
12609 | CellChangeTimes->{
|
---|
12610 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12611 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12612 | 3.581159749726983*^9}],
|
---|
12613 |
|
---|
12614 | Cell[BoxData[
|
---|
12615 | InterpretationBox[
|
---|
12616 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "70"}],
|
---|
12617 | SequenceForm["Vertex ", 70],
|
---|
12618 | Editable->False]], "Print",
|
---|
12619 | CellChangeTimes->{
|
---|
12620 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12621 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12622 | 3.581159749731263*^9}],
|
---|
12623 |
|
---|
12624 | Cell[BoxData[
|
---|
12625 | InterpretationBox[
|
---|
12626 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12627 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12628 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12629 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12630 | Editable->False]], "Print",
|
---|
12631 | CellChangeTimes->{
|
---|
12632 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12633 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12634 | 3.581159749735463*^9}],
|
---|
12635 |
|
---|
12636 | Cell[BoxData[
|
---|
12637 | InterpretationBox[
|
---|
12638 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12639 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12640 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
12641 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
12642 | Editable->False]], "Print",
|
---|
12643 | CellChangeTimes->{
|
---|
12644 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12645 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12646 | 3.5811597497395897`*^9}],
|
---|
12647 |
|
---|
12648 | Cell[BoxData[
|
---|
12649 | InterpretationBox[
|
---|
12650 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12651 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12652 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12653 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
12654 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
12655 | Editable->False]], "Print",
|
---|
12656 | CellChangeTimes->{
|
---|
12657 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12658 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12659 | 3.581159749743737*^9}],
|
---|
12660 |
|
---|
12661 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12662 | CellChangeTimes->{
|
---|
12663 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12664 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12665 | 3.581159749747867*^9}],
|
---|
12666 |
|
---|
12667 | Cell[BoxData[
|
---|
12668 | RowBox[{
|
---|
12669 | RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
|
---|
12670 | SubsuperscriptBox["\[Gamma]",
|
---|
12671 | RowBox[{
|
---|
12672 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12673 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12674 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
|
---|
12675 | CellChangeTimes->{
|
---|
12676 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12677 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12678 | 3.581159749751861*^9}],
|
---|
12679 |
|
---|
12680 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12681 | * * * * * *)\"\>"], "Print",
|
---|
12682 | CellChangeTimes->{
|
---|
12683 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12684 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12685 | 3.581159749756385*^9}],
|
---|
12686 |
|
---|
12687 | Cell[BoxData[
|
---|
12688 | InterpretationBox[
|
---|
12689 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "71"}],
|
---|
12690 | SequenceForm["Vertex ", 71],
|
---|
12691 | Editable->False]], "Print",
|
---|
12692 | CellChangeTimes->{
|
---|
12693 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12694 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12695 | 3.5811597497616796`*^9}],
|
---|
12696 |
|
---|
12697 | Cell[BoxData[
|
---|
12698 | InterpretationBox[
|
---|
12699 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12700 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12701 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12702 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12703 | Editable->False]], "Print",
|
---|
12704 | CellChangeTimes->{
|
---|
12705 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12706 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12707 | 3.581159749766398*^9}],
|
---|
12708 |
|
---|
12709 | Cell[BoxData[
|
---|
12710 | InterpretationBox[
|
---|
12711 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12712 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12713 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
12714 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
12715 | Editable->False]], "Print",
|
---|
12716 | CellChangeTimes->{
|
---|
12717 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12718 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12719 | 3.581159749771188*^9}],
|
---|
12720 |
|
---|
12721 | Cell[BoxData[
|
---|
12722 | InterpretationBox[
|
---|
12723 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12724 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12725 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12726 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
12727 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
12728 | Editable->False]], "Print",
|
---|
12729 | CellChangeTimes->{
|
---|
12730 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12731 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12732 | 3.581159749775742*^9}],
|
---|
12733 |
|
---|
12734 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12735 | CellChangeTimes->{
|
---|
12736 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12737 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12738 | 3.5811597497812643`*^9}],
|
---|
12739 |
|
---|
12740 | Cell[BoxData[
|
---|
12741 | RowBox[{
|
---|
12742 | RowBox[{"-", "\[ImaginaryI]"}], " ", "e", " ",
|
---|
12743 | SubsuperscriptBox["\[Gamma]",
|
---|
12744 | RowBox[{
|
---|
12745 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12746 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12747 | SubscriptBox["\<\"\[Mu]\"\>", "1"]]}]], "Print",
|
---|
12748 | CellChangeTimes->{
|
---|
12749 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12750 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12751 | 3.581159749786356*^9}],
|
---|
12752 |
|
---|
12753 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12754 | * * * * * *)\"\>"], "Print",
|
---|
12755 | CellChangeTimes->{
|
---|
12756 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12757 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12758 | 3.581159749791419*^9}],
|
---|
12759 |
|
---|
12760 | Cell[BoxData[
|
---|
12761 | InterpretationBox[
|
---|
12762 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "72"}],
|
---|
12763 | SequenceForm["Vertex ", 72],
|
---|
12764 | Editable->False]], "Print",
|
---|
12765 | CellChangeTimes->{
|
---|
12766 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12767 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12768 | 3.581159749796747*^9}],
|
---|
12769 |
|
---|
12770 | Cell[BoxData[
|
---|
12771 | InterpretationBox[
|
---|
12772 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12773 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12774 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12775 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12776 | Editable->False]], "Print",
|
---|
12777 | CellChangeTimes->{
|
---|
12778 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12779 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12780 | 3.5811597498017673`*^9}],
|
---|
12781 |
|
---|
12782 | Cell[BoxData[
|
---|
12783 | InterpretationBox[
|
---|
12784 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12785 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12786 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
12787 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
|
---|
12788 | Editable->False]], "Print",
|
---|
12789 | CellChangeTimes->{
|
---|
12790 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12791 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12792 | 3.5811597498065968`*^9}],
|
---|
12793 |
|
---|
12794 | Cell[BoxData[
|
---|
12795 | InterpretationBox[
|
---|
12796 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12797 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12798 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12799 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
12800 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
12801 | Editable->False]], "Print",
|
---|
12802 | CellChangeTimes->{
|
---|
12803 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12804 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12805 | 3.5811597498124447`*^9}],
|
---|
12806 |
|
---|
12807 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12808 | CellChangeTimes->{
|
---|
12809 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12810 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12811 | 3.581159749816957*^9}],
|
---|
12812 |
|
---|
12813 | Cell[BoxData[
|
---|
12814 | RowBox[{
|
---|
12815 | FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12816 | SubsuperscriptBox["\[Gamma]",
|
---|
12817 | RowBox[{
|
---|
12818 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12819 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12820 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12821 | SubscriptBox["\[Delta]",
|
---|
12822 | RowBox[{
|
---|
12823 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12824 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12825 | CellChangeTimes->{
|
---|
12826 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12827 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12828 | 3.581159749822379*^9}],
|
---|
12829 |
|
---|
12830 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12831 | * * * * * *)\"\>"], "Print",
|
---|
12832 | CellChangeTimes->{
|
---|
12833 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12834 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12835 | 3.581159749829584*^9}],
|
---|
12836 |
|
---|
12837 | Cell[BoxData[
|
---|
12838 | InterpretationBox[
|
---|
12839 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "73"}],
|
---|
12840 | SequenceForm["Vertex ", 73],
|
---|
12841 | Editable->False]], "Print",
|
---|
12842 | CellChangeTimes->{
|
---|
12843 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12844 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12845 | 3.581159749835251*^9}],
|
---|
12846 |
|
---|
12847 | Cell[BoxData[
|
---|
12848 | InterpretationBox[
|
---|
12849 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12850 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12851 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12852 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12853 | Editable->False]], "Print",
|
---|
12854 | CellChangeTimes->{
|
---|
12855 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12856 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12857 | 3.581159749841764*^9}],
|
---|
12858 |
|
---|
12859 | Cell[BoxData[
|
---|
12860 | InterpretationBox[
|
---|
12861 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12862 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12863 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
12864 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
12865 | Editable->False]], "Print",
|
---|
12866 | CellChangeTimes->{
|
---|
12867 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12868 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12869 | 3.581159749846349*^9}],
|
---|
12870 |
|
---|
12871 | Cell[BoxData[
|
---|
12872 | InterpretationBox[
|
---|
12873 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12874 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12875 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12876 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
12877 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
12878 | Editable->False]], "Print",
|
---|
12879 | CellChangeTimes->{
|
---|
12880 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12881 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12882 | 3.58115974985076*^9}],
|
---|
12883 |
|
---|
12884 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12885 | CellChangeTimes->{
|
---|
12886 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12887 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12888 | 3.581159749854989*^9}],
|
---|
12889 |
|
---|
12890 | Cell[BoxData[
|
---|
12891 | RowBox[{
|
---|
12892 | FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12893 | SubsuperscriptBox["\[Gamma]",
|
---|
12894 | RowBox[{
|
---|
12895 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12896 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12897 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12898 | SubscriptBox["\[Delta]",
|
---|
12899 | RowBox[{
|
---|
12900 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12901 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12902 | CellChangeTimes->{
|
---|
12903 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12904 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12905 | 3.581159749859404*^9}],
|
---|
12906 |
|
---|
12907 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12908 | * * * * * *)\"\>"], "Print",
|
---|
12909 | CellChangeTimes->{
|
---|
12910 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12911 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12912 | 3.581159749863825*^9}],
|
---|
12913 |
|
---|
12914 | Cell[BoxData[
|
---|
12915 | InterpretationBox[
|
---|
12916 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "74"}],
|
---|
12917 | SequenceForm["Vertex ", 74],
|
---|
12918 | Editable->False]], "Print",
|
---|
12919 | CellChangeTimes->{
|
---|
12920 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12921 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12922 | 3.581159749868062*^9}],
|
---|
12923 |
|
---|
12924 | Cell[BoxData[
|
---|
12925 | InterpretationBox[
|
---|
12926 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
12927 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
12928 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
12929 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
12930 | Editable->False]], "Print",
|
---|
12931 | CellChangeTimes->{
|
---|
12932 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12933 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12934 | 3.581159749872451*^9}],
|
---|
12935 |
|
---|
12936 | Cell[BoxData[
|
---|
12937 | InterpretationBox[
|
---|
12938 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
12939 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12940 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
12941 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
12942 | Editable->False]], "Print",
|
---|
12943 | CellChangeTimes->{
|
---|
12944 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12945 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12946 | 3.5811597498769197`*^9}],
|
---|
12947 |
|
---|
12948 | Cell[BoxData[
|
---|
12949 | InterpretationBox[
|
---|
12950 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
12951 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
12952 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
12953 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
12954 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
12955 | Editable->False]], "Print",
|
---|
12956 | CellChangeTimes->{
|
---|
12957 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12958 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12959 | 3.5811597498813753`*^9}],
|
---|
12960 |
|
---|
12961 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
12962 | CellChangeTimes->{
|
---|
12963 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12964 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12965 | 3.581159749885841*^9}],
|
---|
12966 |
|
---|
12967 | Cell[BoxData[
|
---|
12968 | RowBox[{
|
---|
12969 | FractionBox["2", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
12970 | SubsuperscriptBox["\[Gamma]",
|
---|
12971 | RowBox[{
|
---|
12972 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
12973 | SubscriptBox["\<\"s\"\>", "2"]}],
|
---|
12974 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
|
---|
12975 | SubscriptBox["\[Delta]",
|
---|
12976 | RowBox[{
|
---|
12977 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
12978 | SubscriptBox["\<\"m\"\>", "3"]}]]}]], "Print",
|
---|
12979 | CellChangeTimes->{
|
---|
12980 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12981 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12982 | 3.581159749890098*^9}],
|
---|
12983 |
|
---|
12984 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
12985 | * * * * * *)\"\>"], "Print",
|
---|
12986 | CellChangeTimes->{
|
---|
12987 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12988 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12989 | 3.58115974989454*^9}],
|
---|
12990 |
|
---|
12991 | Cell[BoxData[
|
---|
12992 | InterpretationBox[
|
---|
12993 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "75"}],
|
---|
12994 | SequenceForm["Vertex ", 75],
|
---|
12995 | Editable->False]], "Print",
|
---|
12996 | CellChangeTimes->{
|
---|
12997 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
12998 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
12999 | 3.581159749898851*^9}],
|
---|
13000 |
|
---|
13001 | Cell[BoxData[
|
---|
13002 | InterpretationBox[
|
---|
13003 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13004 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13005 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13006 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
13007 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
13008 | Editable->False]], "Print",
|
---|
13009 | CellChangeTimes->{
|
---|
13010 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13011 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13012 | 3.581159749903048*^9}],
|
---|
13013 |
|
---|
13014 | Cell[BoxData[
|
---|
13015 | InterpretationBox[
|
---|
13016 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13017 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13018 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
13019 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
|
---|
13020 | Editable->False]], "Print",
|
---|
13021 | CellChangeTimes->{
|
---|
13022 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13023 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13024 | 3.5811597499073677`*^9}],
|
---|
13025 |
|
---|
13026 | Cell[BoxData[
|
---|
13027 | InterpretationBox[
|
---|
13028 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13029 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13030 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13031 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13032 | Editable->False]], "Print",
|
---|
13033 | CellChangeTimes->{
|
---|
13034 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13035 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13036 | 3.5811597499116983`*^9}],
|
---|
13037 |
|
---|
13038 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13039 | CellChangeTimes->{
|
---|
13040 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13041 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13042 | 3.581159749915832*^9}],
|
---|
13043 |
|
---|
13044 | Cell[BoxData[
|
---|
13045 | FractionBox[
|
---|
13046 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13047 | SubscriptBox[
|
---|
13048 | TemplateBox[{"V","CKM"},
|
---|
13049 | "Superscript"],
|
---|
13050 | RowBox[{"2", ",", "1"}]], " ",
|
---|
13051 | SubscriptBox["\[Delta]",
|
---|
13052 | RowBox[{
|
---|
13053 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13054 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13055 | SubscriptBox[
|
---|
13056 | RowBox[{
|
---|
13057 | SuperscriptBox["\[Gamma]",
|
---|
13058 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13059 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13060 | RowBox[{
|
---|
13061 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13062 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13063 | RowBox[{
|
---|
13064 | SqrtBox["2"], " ",
|
---|
13065 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13066 | CellChangeTimes->{
|
---|
13067 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13068 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13069 | 3.5811597499201393`*^9}],
|
---|
13070 |
|
---|
13071 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13072 | * * * * * *)\"\>"], "Print",
|
---|
13073 | CellChangeTimes->{
|
---|
13074 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13075 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13076 | 3.58115974992479*^9}],
|
---|
13077 |
|
---|
13078 | Cell[BoxData[
|
---|
13079 | InterpretationBox[
|
---|
13080 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "76"}],
|
---|
13081 | SequenceForm["Vertex ", 76],
|
---|
13082 | Editable->False]], "Print",
|
---|
13083 | CellChangeTimes->{
|
---|
13084 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13085 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13086 | 3.5811597499291477`*^9}],
|
---|
13087 |
|
---|
13088 | Cell[BoxData[
|
---|
13089 | InterpretationBox[
|
---|
13090 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13091 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13092 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13093 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
13094 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
13095 | Editable->False]], "Print",
|
---|
13096 | CellChangeTimes->{
|
---|
13097 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13098 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13099 | 3.581159749933468*^9}],
|
---|
13100 |
|
---|
13101 | Cell[BoxData[
|
---|
13102 | InterpretationBox[
|
---|
13103 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13104 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13105 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
13106 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
13107 | Editable->False]], "Print",
|
---|
13108 | CellChangeTimes->{
|
---|
13109 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13110 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13111 | 3.5811597499379053`*^9}],
|
---|
13112 |
|
---|
13113 | Cell[BoxData[
|
---|
13114 | InterpretationBox[
|
---|
13115 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13116 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13117 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13118 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13119 | Editable->False]], "Print",
|
---|
13120 | CellChangeTimes->{
|
---|
13121 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13122 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13123 | 3.581159749943172*^9}],
|
---|
13124 |
|
---|
13125 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13126 | CellChangeTimes->{
|
---|
13127 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13128 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13129 | 3.581159749947497*^9}],
|
---|
13130 |
|
---|
13131 | Cell[BoxData[
|
---|
13132 | FractionBox[
|
---|
13133 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13134 | SubscriptBox[
|
---|
13135 | TemplateBox[{"V","CKM"},
|
---|
13136 | "Superscript"],
|
---|
13137 | RowBox[{"2", ",", "2"}]], " ",
|
---|
13138 | SubscriptBox["\[Delta]",
|
---|
13139 | RowBox[{
|
---|
13140 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13141 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13142 | SubscriptBox[
|
---|
13143 | RowBox[{
|
---|
13144 | SuperscriptBox["\[Gamma]",
|
---|
13145 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13146 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13147 | RowBox[{
|
---|
13148 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13149 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13150 | RowBox[{
|
---|
13151 | SqrtBox["2"], " ",
|
---|
13152 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13153 | CellChangeTimes->{
|
---|
13154 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13155 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13156 | 3.5811597499518213`*^9}],
|
---|
13157 |
|
---|
13158 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13159 | * * * * * *)\"\>"], "Print",
|
---|
13160 | CellChangeTimes->{
|
---|
13161 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13162 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13163 | 3.581159749956505*^9}],
|
---|
13164 |
|
---|
13165 | Cell[BoxData[
|
---|
13166 | InterpretationBox[
|
---|
13167 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "77"}],
|
---|
13168 | SequenceForm["Vertex ", 77],
|
---|
13169 | Editable->False]], "Print",
|
---|
13170 | CellChangeTimes->{
|
---|
13171 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13172 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13173 | 3.5811597499610453`*^9}],
|
---|
13174 |
|
---|
13175 | Cell[BoxData[
|
---|
13176 | InterpretationBox[
|
---|
13177 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13178 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13179 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
13180 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
13181 | Editable->False]], "Print",
|
---|
13182 | CellChangeTimes->{
|
---|
13183 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13184 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13185 | 3.581159749965356*^9}],
|
---|
13186 |
|
---|
13187 | Cell[BoxData[
|
---|
13188 | InterpretationBox[
|
---|
13189 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13190 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13191 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13192 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
13193 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
13194 | Editable->False]], "Print",
|
---|
13195 | CellChangeTimes->{
|
---|
13196 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13197 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13198 | 3.5811597499696283`*^9}],
|
---|
13199 |
|
---|
13200 | Cell[BoxData[
|
---|
13201 | InterpretationBox[
|
---|
13202 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13203 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13204 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13205 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13206 | Editable->False]], "Print",
|
---|
13207 | CellChangeTimes->{
|
---|
13208 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13209 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13210 | 3.581159749973976*^9}],
|
---|
13211 |
|
---|
13212 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13213 | CellChangeTimes->{
|
---|
13214 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13215 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13216 | 3.581159749979101*^9}],
|
---|
13217 |
|
---|
13218 | Cell[BoxData[
|
---|
13219 | FractionBox[
|
---|
13220 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13221 | SubscriptBox["\[Delta]",
|
---|
13222 | RowBox[{
|
---|
13223 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13224 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13225 | SubscriptBox[
|
---|
13226 | RowBox[{
|
---|
13227 | SuperscriptBox["\[Gamma]",
|
---|
13228 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13229 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13230 | RowBox[{
|
---|
13231 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13232 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13233 | RowBox[{
|
---|
13234 | SqrtBox["2"], " ",
|
---|
13235 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13236 | CellChangeTimes->{
|
---|
13237 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13238 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13239 | 3.581159749984333*^9}],
|
---|
13240 |
|
---|
13241 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13242 | * * * * * *)\"\>"], "Print",
|
---|
13243 | CellChangeTimes->{
|
---|
13244 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13245 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13246 | 3.581159749990053*^9}],
|
---|
13247 |
|
---|
13248 | Cell[BoxData[
|
---|
13249 | InterpretationBox[
|
---|
13250 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "78"}],
|
---|
13251 | SequenceForm["Vertex ", 78],
|
---|
13252 | Editable->False]], "Print",
|
---|
13253 | CellChangeTimes->{
|
---|
13254 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13255 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13256 | 3.5811597499955606`*^9}],
|
---|
13257 |
|
---|
13258 | Cell[BoxData[
|
---|
13259 | InterpretationBox[
|
---|
13260 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13261 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13262 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
13263 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
13264 | Editable->False]], "Print",
|
---|
13265 | CellChangeTimes->{
|
---|
13266 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13267 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13268 | 3.5811597499999104`*^9}],
|
---|
13269 |
|
---|
13270 | Cell[BoxData[
|
---|
13271 | InterpretationBox[
|
---|
13272 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13273 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13274 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13275 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
13276 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
13277 | Editable->False]], "Print",
|
---|
13278 | CellChangeTimes->{
|
---|
13279 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13280 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13281 | 3.581159750004272*^9}],
|
---|
13282 |
|
---|
13283 | Cell[BoxData[
|
---|
13284 | InterpretationBox[
|
---|
13285 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13286 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13287 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13288 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13289 | Editable->False]], "Print",
|
---|
13290 | CellChangeTimes->{
|
---|
13291 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13292 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13293 | 3.581159750008762*^9}],
|
---|
13294 |
|
---|
13295 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13296 | CellChangeTimes->{
|
---|
13297 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13298 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13299 | 3.581159750013061*^9}],
|
---|
13300 |
|
---|
13301 | Cell[BoxData[
|
---|
13302 | FractionBox[
|
---|
13303 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13304 | SubscriptBox[
|
---|
13305 | TemplateBox[{"V","CKM"},
|
---|
13306 | "Superscript"],
|
---|
13307 | RowBox[{"1", ",", "1"}]], " ",
|
---|
13308 | SubscriptBox["\[Delta]",
|
---|
13309 | RowBox[{
|
---|
13310 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13311 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13312 | SubscriptBox[
|
---|
13313 | RowBox[{
|
---|
13314 | SuperscriptBox["\[Gamma]",
|
---|
13315 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13316 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13317 | RowBox[{
|
---|
13318 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13319 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13320 | RowBox[{
|
---|
13321 | SqrtBox["2"], " ",
|
---|
13322 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13323 | CellChangeTimes->{
|
---|
13324 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13325 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13326 | 3.5811597500173883`*^9}],
|
---|
13327 |
|
---|
13328 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13329 | * * * * * *)\"\>"], "Print",
|
---|
13330 | CellChangeTimes->{
|
---|
13331 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13332 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13333 | 3.5811597500220222`*^9}],
|
---|
13334 |
|
---|
13335 | Cell[BoxData[
|
---|
13336 | InterpretationBox[
|
---|
13337 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "79"}],
|
---|
13338 | SequenceForm["Vertex ", 79],
|
---|
13339 | Editable->False]], "Print",
|
---|
13340 | CellChangeTimes->{
|
---|
13341 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13342 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13343 | 3.5811597500263023`*^9}],
|
---|
13344 |
|
---|
13345 | Cell[BoxData[
|
---|
13346 | InterpretationBox[
|
---|
13347 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13348 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13349 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
13350 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
13351 | Editable->False]], "Print",
|
---|
13352 | CellChangeTimes->{
|
---|
13353 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13354 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13355 | 3.5811597500306787`*^9}],
|
---|
13356 |
|
---|
13357 | Cell[BoxData[
|
---|
13358 | InterpretationBox[
|
---|
13359 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13360 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13361 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13362 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
13363 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
13364 | Editable->False]], "Print",
|
---|
13365 | CellChangeTimes->{
|
---|
13366 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13367 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13368 | 3.581159750058373*^9}],
|
---|
13369 |
|
---|
13370 | Cell[BoxData[
|
---|
13371 | InterpretationBox[
|
---|
13372 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13373 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13374 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13375 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13376 | Editable->False]], "Print",
|
---|
13377 | CellChangeTimes->{
|
---|
13378 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13379 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13380 | 3.581159750062883*^9}],
|
---|
13381 |
|
---|
13382 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13383 | CellChangeTimes->{
|
---|
13384 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13385 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13386 | 3.581159750067244*^9}],
|
---|
13387 |
|
---|
13388 | Cell[BoxData[
|
---|
13389 | FractionBox[
|
---|
13390 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13391 | SubscriptBox[
|
---|
13392 | TemplateBox[{"V","CKM"},
|
---|
13393 | "Superscript"],
|
---|
13394 | RowBox[{"1", ",", "2"}]], " ",
|
---|
13395 | SubscriptBox["\[Delta]",
|
---|
13396 | RowBox[{
|
---|
13397 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13398 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13399 | SubscriptBox[
|
---|
13400 | RowBox[{
|
---|
13401 | SuperscriptBox["\[Gamma]",
|
---|
13402 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13403 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13404 | RowBox[{
|
---|
13405 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13406 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13407 | RowBox[{
|
---|
13408 | SqrtBox["2"], " ",
|
---|
13409 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13410 | CellChangeTimes->{
|
---|
13411 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13412 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13413 | 3.5811597500719223`*^9}],
|
---|
13414 |
|
---|
13415 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13416 | * * * * * *)\"\>"], "Print",
|
---|
13417 | CellChangeTimes->{
|
---|
13418 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13419 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13420 | 3.5811597500771637`*^9}],
|
---|
13421 |
|
---|
13422 | Cell[BoxData[
|
---|
13423 | InterpretationBox[
|
---|
13424 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "80"}],
|
---|
13425 | SequenceForm["Vertex ", 80],
|
---|
13426 | Editable->False]], "Print",
|
---|
13427 | CellChangeTimes->{
|
---|
13428 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13429 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13430 | 3.5811597500815496`*^9}],
|
---|
13431 |
|
---|
13432 | Cell[BoxData[
|
---|
13433 | InterpretationBox[
|
---|
13434 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13435 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13436 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
13437 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
13438 | Editable->False]], "Print",
|
---|
13439 | CellChangeTimes->{
|
---|
13440 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13441 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13442 | 3.581159750085987*^9}],
|
---|
13443 |
|
---|
13444 | Cell[BoxData[
|
---|
13445 | InterpretationBox[
|
---|
13446 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13447 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13448 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13449 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
13450 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
13451 | Editable->False]], "Print",
|
---|
13452 | CellChangeTimes->{
|
---|
13453 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13454 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13455 | 3.581159750090282*^9}],
|
---|
13456 |
|
---|
13457 | Cell[BoxData[
|
---|
13458 | InterpretationBox[
|
---|
13459 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13460 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13461 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13462 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13463 | Editable->False]], "Print",
|
---|
13464 | CellChangeTimes->{
|
---|
13465 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13466 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13467 | 3.581159750094572*^9}],
|
---|
13468 |
|
---|
13469 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13470 | CellChangeTimes->{
|
---|
13471 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13472 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13473 | 3.581159750098749*^9}],
|
---|
13474 |
|
---|
13475 | Cell[BoxData[
|
---|
13476 | FractionBox[
|
---|
13477 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13478 | SubscriptBox[
|
---|
13479 | RowBox[{
|
---|
13480 | SuperscriptBox["\[Gamma]",
|
---|
13481 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13482 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13483 | RowBox[{
|
---|
13484 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13485 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13486 | RowBox[{
|
---|
13487 | SqrtBox["2"], " ",
|
---|
13488 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13489 | CellChangeTimes->{
|
---|
13490 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13491 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13492 | 3.581159750102907*^9}],
|
---|
13493 |
|
---|
13494 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13495 | * * * * * *)\"\>"], "Print",
|
---|
13496 | CellChangeTimes->{
|
---|
13497 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13498 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13499 | 3.581159750107655*^9}],
|
---|
13500 |
|
---|
13501 | Cell[BoxData[
|
---|
13502 | InterpretationBox[
|
---|
13503 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "81"}],
|
---|
13504 | SequenceForm["Vertex ", 81],
|
---|
13505 | Editable->False]], "Print",
|
---|
13506 | CellChangeTimes->{
|
---|
13507 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13508 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13509 | 3.581159750112425*^9}],
|
---|
13510 |
|
---|
13511 | Cell[BoxData[
|
---|
13512 | InterpretationBox[
|
---|
13513 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13514 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13515 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
13516 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
13517 | Editable->False]], "Print",
|
---|
13518 | CellChangeTimes->{
|
---|
13519 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13520 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13521 | 3.581159750116955*^9}],
|
---|
13522 |
|
---|
13523 | Cell[BoxData[
|
---|
13524 | InterpretationBox[
|
---|
13525 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13526 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13527 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13528 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
13529 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
13530 | Editable->False]], "Print",
|
---|
13531 | CellChangeTimes->{
|
---|
13532 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13533 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13534 | 3.581159750121294*^9}],
|
---|
13535 |
|
---|
13536 | Cell[BoxData[
|
---|
13537 | InterpretationBox[
|
---|
13538 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13539 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13540 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13541 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13542 | Editable->False]], "Print",
|
---|
13543 | CellChangeTimes->{
|
---|
13544 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13545 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13546 | 3.5811597501262302`*^9}],
|
---|
13547 |
|
---|
13548 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13549 | CellChangeTimes->{
|
---|
13550 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13551 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13552 | 3.58115975013093*^9}],
|
---|
13553 |
|
---|
13554 | Cell[BoxData[
|
---|
13555 | FractionBox[
|
---|
13556 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13557 | SubscriptBox[
|
---|
13558 | RowBox[{
|
---|
13559 | SuperscriptBox["\[Gamma]",
|
---|
13560 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13561 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13562 | RowBox[{
|
---|
13563 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13564 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13565 | RowBox[{
|
---|
13566 | SqrtBox["2"], " ",
|
---|
13567 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13568 | CellChangeTimes->{
|
---|
13569 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13570 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13571 | 3.581159750135737*^9}],
|
---|
13572 |
|
---|
13573 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13574 | * * * * * *)\"\>"], "Print",
|
---|
13575 | CellChangeTimes->{
|
---|
13576 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13577 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13578 | 3.581159750140381*^9}],
|
---|
13579 |
|
---|
13580 | Cell[BoxData[
|
---|
13581 | InterpretationBox[
|
---|
13582 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "82"}],
|
---|
13583 | SequenceForm["Vertex ", 82],
|
---|
13584 | Editable->False]], "Print",
|
---|
13585 | CellChangeTimes->{
|
---|
13586 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13587 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13588 | 3.5811597501448107`*^9}],
|
---|
13589 |
|
---|
13590 | Cell[BoxData[
|
---|
13591 | InterpretationBox[
|
---|
13592 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13593 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13594 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
13595 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
13596 | Editable->False]], "Print",
|
---|
13597 | CellChangeTimes->{
|
---|
13598 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13599 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13600 | 3.581159750149132*^9}],
|
---|
13601 |
|
---|
13602 | Cell[BoxData[
|
---|
13603 | InterpretationBox[
|
---|
13604 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13605 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13606 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13607 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
13608 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
13609 | Editable->False]], "Print",
|
---|
13610 | CellChangeTimes->{
|
---|
13611 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13612 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13613 | 3.581159750153616*^9}],
|
---|
13614 |
|
---|
13615 | Cell[BoxData[
|
---|
13616 | InterpretationBox[
|
---|
13617 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13618 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13619 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
13620 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
13621 | Editable->False]], "Print",
|
---|
13622 | CellChangeTimes->{
|
---|
13623 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13624 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13625 | 3.581159750158181*^9}],
|
---|
13626 |
|
---|
13627 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13628 | CellChangeTimes->{
|
---|
13629 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13630 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13631 | 3.581159750162484*^9}],
|
---|
13632 |
|
---|
13633 | Cell[BoxData[
|
---|
13634 | FractionBox[
|
---|
13635 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13636 | SubscriptBox[
|
---|
13637 | RowBox[{
|
---|
13638 | SuperscriptBox["\[Gamma]",
|
---|
13639 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13640 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13641 | RowBox[{
|
---|
13642 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
13643 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
13644 | RowBox[{
|
---|
13645 | SqrtBox["2"], " ",
|
---|
13646 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13647 | CellChangeTimes->{
|
---|
13648 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13649 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13650 | 3.581159750166739*^9}],
|
---|
13651 |
|
---|
13652 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13653 | * * * * * *)\"\>"], "Print",
|
---|
13654 | CellChangeTimes->{
|
---|
13655 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13656 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13657 | 3.581159750171206*^9}],
|
---|
13658 |
|
---|
13659 | Cell[BoxData[
|
---|
13660 | InterpretationBox[
|
---|
13661 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "83"}],
|
---|
13662 | SequenceForm["Vertex ", 83],
|
---|
13663 | Editable->False]], "Print",
|
---|
13664 | CellChangeTimes->{
|
---|
13665 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13666 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13667 | 3.58115975017549*^9}],
|
---|
13668 |
|
---|
13669 | Cell[BoxData[
|
---|
13670 | InterpretationBox[
|
---|
13671 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13672 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13673 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13674 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
13675 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
13676 | Editable->False]], "Print",
|
---|
13677 | CellChangeTimes->{
|
---|
13678 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13679 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13680 | 3.581159750179791*^9}],
|
---|
13681 |
|
---|
13682 | Cell[BoxData[
|
---|
13683 | InterpretationBox[
|
---|
13684 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13685 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13686 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
13687 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
13688 | Editable->False]], "Print",
|
---|
13689 | CellChangeTimes->{
|
---|
13690 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13691 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13692 | 3.581159750184346*^9}],
|
---|
13693 |
|
---|
13694 | Cell[BoxData[
|
---|
13695 | InterpretationBox[
|
---|
13696 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13697 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13698 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13699 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
13700 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
13701 | Editable->False]], "Print",
|
---|
13702 | CellChangeTimes->{
|
---|
13703 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13704 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13705 | 3.581159750188902*^9}],
|
---|
13706 |
|
---|
13707 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13708 | CellChangeTimes->{
|
---|
13709 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13710 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13711 | 3.581159750193244*^9}],
|
---|
13712 |
|
---|
13713 | Cell[BoxData[
|
---|
13714 | FractionBox[
|
---|
13715 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13716 | SubscriptBox[
|
---|
13717 | RowBox[{
|
---|
13718 | SuperscriptBox["\[Gamma]",
|
---|
13719 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13720 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13721 | RowBox[{
|
---|
13722 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13723 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13724 | RowBox[{
|
---|
13725 | SqrtBox["2"], " ",
|
---|
13726 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13727 | CellChangeTimes->{
|
---|
13728 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13729 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13730 | 3.581159750197605*^9}],
|
---|
13731 |
|
---|
13732 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13733 | * * * * * *)\"\>"], "Print",
|
---|
13734 | CellChangeTimes->{
|
---|
13735 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13736 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13737 | 3.58115975020205*^9}],
|
---|
13738 |
|
---|
13739 | Cell[BoxData[
|
---|
13740 | InterpretationBox[
|
---|
13741 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "84"}],
|
---|
13742 | SequenceForm["Vertex ", 84],
|
---|
13743 | Editable->False]], "Print",
|
---|
13744 | CellChangeTimes->{
|
---|
13745 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13746 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13747 | 3.5811597502063923`*^9}],
|
---|
13748 |
|
---|
13749 | Cell[BoxData[
|
---|
13750 | InterpretationBox[
|
---|
13751 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13752 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13753 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13754 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
13755 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
13756 | Editable->False]], "Print",
|
---|
13757 | CellChangeTimes->{
|
---|
13758 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13759 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13760 | 3.58115975021087*^9}],
|
---|
13761 |
|
---|
13762 | Cell[BoxData[
|
---|
13763 | InterpretationBox[
|
---|
13764 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13765 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13766 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
13767 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
13768 | Editable->False]], "Print",
|
---|
13769 | CellChangeTimes->{
|
---|
13770 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13771 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13772 | 3.5811597502152843`*^9}],
|
---|
13773 |
|
---|
13774 | Cell[BoxData[
|
---|
13775 | InterpretationBox[
|
---|
13776 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13777 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13778 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13779 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
13780 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
13781 | Editable->False]], "Print",
|
---|
13782 | CellChangeTimes->{
|
---|
13783 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13784 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13785 | 3.581159750219615*^9}],
|
---|
13786 |
|
---|
13787 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13788 | CellChangeTimes->{
|
---|
13789 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13790 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13791 | 3.581159750223919*^9}],
|
---|
13792 |
|
---|
13793 | Cell[BoxData[
|
---|
13794 | FractionBox[
|
---|
13795 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13796 | SubscriptBox[
|
---|
13797 | RowBox[{
|
---|
13798 | SuperscriptBox["\[Gamma]",
|
---|
13799 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13800 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13801 | RowBox[{
|
---|
13802 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13803 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13804 | RowBox[{
|
---|
13805 | SqrtBox["2"], " ",
|
---|
13806 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13807 | CellChangeTimes->{
|
---|
13808 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13809 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13810 | 3.5811597502281427`*^9}],
|
---|
13811 |
|
---|
13812 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13813 | * * * * * *)\"\>"], "Print",
|
---|
13814 | CellChangeTimes->{
|
---|
13815 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13816 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13817 | 3.581159750232525*^9}],
|
---|
13818 |
|
---|
13819 | Cell[BoxData[
|
---|
13820 | InterpretationBox[
|
---|
13821 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "85"}],
|
---|
13822 | SequenceForm["Vertex ", 85],
|
---|
13823 | Editable->False]], "Print",
|
---|
13824 | CellChangeTimes->{
|
---|
13825 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13826 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13827 | 3.5811597502372026`*^9}],
|
---|
13828 |
|
---|
13829 | Cell[BoxData[
|
---|
13830 | InterpretationBox[
|
---|
13831 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13832 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13833 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13834 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
13835 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
13836 | Editable->False]], "Print",
|
---|
13837 | CellChangeTimes->{
|
---|
13838 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13839 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13840 | 3.58115975024154*^9}],
|
---|
13841 |
|
---|
13842 | Cell[BoxData[
|
---|
13843 | InterpretationBox[
|
---|
13844 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13845 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13846 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
13847 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
13848 | Editable->False]], "Print",
|
---|
13849 | CellChangeTimes->{
|
---|
13850 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13851 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13852 | 3.5811597502458973`*^9}],
|
---|
13853 |
|
---|
13854 | Cell[BoxData[
|
---|
13855 | InterpretationBox[
|
---|
13856 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13857 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13858 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13859 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
13860 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
13861 | Editable->False]], "Print",
|
---|
13862 | CellChangeTimes->{
|
---|
13863 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13864 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13865 | 3.581159750250309*^9}],
|
---|
13866 |
|
---|
13867 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13868 | CellChangeTimes->{
|
---|
13869 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13870 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13871 | 3.581159750254648*^9}],
|
---|
13872 |
|
---|
13873 | Cell[BoxData[
|
---|
13874 | FractionBox[
|
---|
13875 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13876 | SubscriptBox[
|
---|
13877 | RowBox[{
|
---|
13878 | SuperscriptBox["\[Gamma]",
|
---|
13879 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13880 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13881 | RowBox[{
|
---|
13882 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13883 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13884 | RowBox[{
|
---|
13885 | SqrtBox["2"], " ",
|
---|
13886 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13887 | CellChangeTimes->{
|
---|
13888 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13889 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13890 | 3.58115975025902*^9}],
|
---|
13891 |
|
---|
13892 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13893 | * * * * * *)\"\>"], "Print",
|
---|
13894 | CellChangeTimes->{
|
---|
13895 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13896 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13897 | 3.581159750263503*^9}],
|
---|
13898 |
|
---|
13899 | Cell[BoxData[
|
---|
13900 | InterpretationBox[
|
---|
13901 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "86"}],
|
---|
13902 | SequenceForm["Vertex ", 86],
|
---|
13903 | Editable->False]], "Print",
|
---|
13904 | CellChangeTimes->{
|
---|
13905 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13906 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13907 | 3.581159750267941*^9}],
|
---|
13908 |
|
---|
13909 | Cell[BoxData[
|
---|
13910 | InterpretationBox[
|
---|
13911 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13912 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13913 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13914 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
13915 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
13916 | Editable->False]], "Print",
|
---|
13917 | CellChangeTimes->{
|
---|
13918 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13919 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13920 | 3.581159750272429*^9}],
|
---|
13921 |
|
---|
13922 | Cell[BoxData[
|
---|
13923 | InterpretationBox[
|
---|
13924 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
13925 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13926 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
13927 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
13928 | Editable->False]], "Print",
|
---|
13929 | CellChangeTimes->{
|
---|
13930 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13931 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13932 | 3.5811597502768097`*^9}],
|
---|
13933 |
|
---|
13934 | Cell[BoxData[
|
---|
13935 | InterpretationBox[
|
---|
13936 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
13937 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
13938 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
13939 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
13940 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
13941 | Editable->False]], "Print",
|
---|
13942 | CellChangeTimes->{
|
---|
13943 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13944 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13945 | 3.581159750281142*^9}],
|
---|
13946 |
|
---|
13947 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
13948 | CellChangeTimes->{
|
---|
13949 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13950 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13951 | 3.5811597502856703`*^9}],
|
---|
13952 |
|
---|
13953 | Cell[BoxData[
|
---|
13954 | FractionBox[
|
---|
13955 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
13956 | SubscriptBox["\[Delta]",
|
---|
13957 | RowBox[{
|
---|
13958 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
13959 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
13960 | SubscriptBox[
|
---|
13961 | RowBox[{
|
---|
13962 | SuperscriptBox["\[Gamma]",
|
---|
13963 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
13964 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
13965 | RowBox[{
|
---|
13966 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
13967 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
13968 | RowBox[{
|
---|
13969 | SqrtBox["2"], " ",
|
---|
13970 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
13971 | CellChangeTimes->{
|
---|
13972 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13973 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13974 | 3.58115975029016*^9}],
|
---|
13975 |
|
---|
13976 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
13977 | * * * * * *)\"\>"], "Print",
|
---|
13978 | CellChangeTimes->{
|
---|
13979 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13980 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13981 | 3.581159750294776*^9}],
|
---|
13982 |
|
---|
13983 | Cell[BoxData[
|
---|
13984 | InterpretationBox[
|
---|
13985 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "87"}],
|
---|
13986 | SequenceForm["Vertex ", 87],
|
---|
13987 | Editable->False]], "Print",
|
---|
13988 | CellChangeTimes->{
|
---|
13989 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
13990 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
13991 | 3.581159750299302*^9}],
|
---|
13992 |
|
---|
13993 | Cell[BoxData[
|
---|
13994 | InterpretationBox[
|
---|
13995 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
13996 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
13997 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
13998 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
13999 | Editable->False]], "Print",
|
---|
14000 | CellChangeTimes->{
|
---|
14001 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14002 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14003 | 3.581159750303705*^9}],
|
---|
14004 |
|
---|
14005 | Cell[BoxData[
|
---|
14006 | InterpretationBox[
|
---|
14007 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14008 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14009 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14010 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
14011 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
14012 | Editable->False]], "Print",
|
---|
14013 | CellChangeTimes->{
|
---|
14014 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14015 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14016 | 3.58115975030816*^9}],
|
---|
14017 |
|
---|
14018 | Cell[BoxData[
|
---|
14019 | InterpretationBox[
|
---|
14020 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14021 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14022 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14023 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
14024 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
14025 | Editable->False]], "Print",
|
---|
14026 | CellChangeTimes->{
|
---|
14027 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14028 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14029 | 3.581159750312701*^9}],
|
---|
14030 |
|
---|
14031 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14032 | CellChangeTimes->{
|
---|
14033 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14034 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14035 | 3.581159750316985*^9}],
|
---|
14036 |
|
---|
14037 | Cell[BoxData[
|
---|
14038 | FractionBox[
|
---|
14039 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14040 | SubsuperscriptBox[
|
---|
14041 | RowBox[{"(",
|
---|
14042 | TemplateBox[{"V","CKM"},
|
---|
14043 | "Superscript"], ")"}],
|
---|
14044 | RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
14045 | SubscriptBox["\[Delta]",
|
---|
14046 | RowBox[{
|
---|
14047 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
14048 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
14049 | SubscriptBox[
|
---|
14050 | RowBox[{
|
---|
14051 | SuperscriptBox["\[Gamma]",
|
---|
14052 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
14053 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14054 | RowBox[{
|
---|
14055 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
14056 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
14057 | RowBox[{
|
---|
14058 | SqrtBox["2"], " ",
|
---|
14059 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
14060 | CellChangeTimes->{
|
---|
14061 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14062 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14063 | 3.581159750321453*^9}],
|
---|
14064 |
|
---|
14065 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14066 | * * * * * *)\"\>"], "Print",
|
---|
14067 | CellChangeTimes->{
|
---|
14068 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14069 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14070 | 3.58115975032627*^9}],
|
---|
14071 |
|
---|
14072 | Cell[BoxData[
|
---|
14073 | InterpretationBox[
|
---|
14074 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "88"}],
|
---|
14075 | SequenceForm["Vertex ", 88],
|
---|
14076 | Editable->False]], "Print",
|
---|
14077 | CellChangeTimes->{
|
---|
14078 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14079 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14080 | 3.581159750330873*^9}],
|
---|
14081 |
|
---|
14082 | Cell[BoxData[
|
---|
14083 | InterpretationBox[
|
---|
14084 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14085 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14086 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14087 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
14088 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
14089 | Editable->False]], "Print",
|
---|
14090 | CellChangeTimes->{
|
---|
14091 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14092 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14093 | 3.581159750336061*^9}],
|
---|
14094 |
|
---|
14095 | Cell[BoxData[
|
---|
14096 | InterpretationBox[
|
---|
14097 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14098 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14099 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
14100 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
14101 | Editable->False]], "Print",
|
---|
14102 | CellChangeTimes->{
|
---|
14103 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14104 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14105 | 3.581159750341847*^9}],
|
---|
14106 |
|
---|
14107 | Cell[BoxData[
|
---|
14108 | InterpretationBox[
|
---|
14109 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14110 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14111 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14112 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
14113 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
14114 | Editable->False]], "Print",
|
---|
14115 | CellChangeTimes->{
|
---|
14116 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14117 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14118 | 3.581159750346573*^9}],
|
---|
14119 |
|
---|
14120 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14121 | CellChangeTimes->{
|
---|
14122 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14123 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14124 | 3.5811597503509207`*^9}],
|
---|
14125 |
|
---|
14126 | Cell[BoxData[
|
---|
14127 | FractionBox[
|
---|
14128 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14129 | SubsuperscriptBox[
|
---|
14130 | RowBox[{"(",
|
---|
14131 | TemplateBox[{"V","CKM"},
|
---|
14132 | "Superscript"], ")"}],
|
---|
14133 | RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
14134 | SubscriptBox["\[Delta]",
|
---|
14135 | RowBox[{
|
---|
14136 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
14137 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
14138 | SubscriptBox[
|
---|
14139 | RowBox[{
|
---|
14140 | SuperscriptBox["\[Gamma]",
|
---|
14141 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
14142 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14143 | RowBox[{
|
---|
14144 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
14145 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14146 | RowBox[{
|
---|
14147 | SqrtBox["2"], " ",
|
---|
14148 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
14149 | CellChangeTimes->{
|
---|
14150 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14151 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14152 | 3.5811597503554163`*^9}],
|
---|
14153 |
|
---|
14154 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14155 | * * * * * *)\"\>"], "Print",
|
---|
14156 | CellChangeTimes->{
|
---|
14157 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14158 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14159 | 3.581159750361328*^9}],
|
---|
14160 |
|
---|
14161 | Cell[BoxData[
|
---|
14162 | InterpretationBox[
|
---|
14163 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "89"}],
|
---|
14164 | SequenceForm["Vertex ", 89],
|
---|
14165 | Editable->False]], "Print",
|
---|
14166 | CellChangeTimes->{
|
---|
14167 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14168 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14169 | 3.581159750366247*^9}],
|
---|
14170 |
|
---|
14171 | Cell[BoxData[
|
---|
14172 | InterpretationBox[
|
---|
14173 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14174 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14175 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
14176 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
14177 | Editable->False]], "Print",
|
---|
14178 | CellChangeTimes->{
|
---|
14179 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14180 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14181 | 3.581159750370865*^9}],
|
---|
14182 |
|
---|
14183 | Cell[BoxData[
|
---|
14184 | InterpretationBox[
|
---|
14185 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14186 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14187 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14188 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
14189 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
14190 | Editable->False]], "Print",
|
---|
14191 | CellChangeTimes->{
|
---|
14192 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14193 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14194 | 3.581159750375567*^9}],
|
---|
14195 |
|
---|
14196 | Cell[BoxData[
|
---|
14197 | InterpretationBox[
|
---|
14198 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14199 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14200 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14201 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
14202 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
14203 | Editable->False]], "Print",
|
---|
14204 | CellChangeTimes->{
|
---|
14205 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14206 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14207 | 3.5811597503811607`*^9}],
|
---|
14208 |
|
---|
14209 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14210 | CellChangeTimes->{
|
---|
14211 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14212 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14213 | 3.581159750385934*^9}],
|
---|
14214 |
|
---|
14215 | Cell[BoxData[
|
---|
14216 | FractionBox[
|
---|
14217 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14218 | SubsuperscriptBox[
|
---|
14219 | RowBox[{"(",
|
---|
14220 | TemplateBox[{"V","CKM"},
|
---|
14221 | "Superscript"], ")"}],
|
---|
14222 | RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
14223 | SubscriptBox["\[Delta]",
|
---|
14224 | RowBox[{
|
---|
14225 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
14226 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
14227 | SubscriptBox[
|
---|
14228 | RowBox[{
|
---|
14229 | SuperscriptBox["\[Gamma]",
|
---|
14230 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
14231 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14232 | RowBox[{
|
---|
14233 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
14234 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
14235 | RowBox[{
|
---|
14236 | SqrtBox["2"], " ",
|
---|
14237 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
14238 | CellChangeTimes->{
|
---|
14239 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14240 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14241 | 3.581159750390564*^9}],
|
---|
14242 |
|
---|
14243 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14244 | * * * * * *)\"\>"], "Print",
|
---|
14245 | CellChangeTimes->{
|
---|
14246 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14247 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14248 | 3.581159750395534*^9}],
|
---|
14249 |
|
---|
14250 | Cell[BoxData[
|
---|
14251 | InterpretationBox[
|
---|
14252 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "90"}],
|
---|
14253 | SequenceForm["Vertex ", 90],
|
---|
14254 | Editable->False]], "Print",
|
---|
14255 | CellChangeTimes->{
|
---|
14256 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14257 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14258 | 3.5811597504001017`*^9}],
|
---|
14259 |
|
---|
14260 | Cell[BoxData[
|
---|
14261 | InterpretationBox[
|
---|
14262 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14263 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14264 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14265 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
14266 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
14267 | Editable->False]], "Print",
|
---|
14268 | CellChangeTimes->{
|
---|
14269 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14270 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14271 | 3.581159750404489*^9}],
|
---|
14272 |
|
---|
14273 | Cell[BoxData[
|
---|
14274 | InterpretationBox[
|
---|
14275 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14276 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14277 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
14278 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
14279 | Editable->False]], "Print",
|
---|
14280 | CellChangeTimes->{
|
---|
14281 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14282 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14283 | 3.581159750409308*^9}],
|
---|
14284 |
|
---|
14285 | Cell[BoxData[
|
---|
14286 | InterpretationBox[
|
---|
14287 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14288 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14289 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14290 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
14291 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
14292 | Editable->False]], "Print",
|
---|
14293 | CellChangeTimes->{
|
---|
14294 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14295 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14296 | 3.581159750414115*^9}],
|
---|
14297 |
|
---|
14298 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14299 | CellChangeTimes->{
|
---|
14300 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14301 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14302 | 3.58115975044188*^9}],
|
---|
14303 |
|
---|
14304 | Cell[BoxData[
|
---|
14305 | FractionBox[
|
---|
14306 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14307 | SubsuperscriptBox[
|
---|
14308 | RowBox[{"(",
|
---|
14309 | TemplateBox[{"V","CKM"},
|
---|
14310 | "Superscript"], ")"}],
|
---|
14311 | RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
14312 | SubscriptBox["\[Delta]",
|
---|
14313 | RowBox[{
|
---|
14314 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
14315 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
14316 | SubscriptBox[
|
---|
14317 | RowBox[{
|
---|
14318 | SuperscriptBox["\[Gamma]",
|
---|
14319 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
14320 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14321 | RowBox[{
|
---|
14322 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
14323 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14324 | RowBox[{
|
---|
14325 | SqrtBox["2"], " ",
|
---|
14326 | SubscriptBox["s", "w"]}]]], "Print",
|
---|
14327 | CellChangeTimes->{
|
---|
14328 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14329 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14330 | 3.581159750446529*^9}],
|
---|
14331 |
|
---|
14332 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14333 | * * * * * *)\"\>"], "Print",
|
---|
14334 | CellChangeTimes->{
|
---|
14335 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14336 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14337 | 3.581159750451516*^9}],
|
---|
14338 |
|
---|
14339 | Cell[BoxData[
|
---|
14340 | InterpretationBox[
|
---|
14341 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "91"}],
|
---|
14342 | SequenceForm["Vertex ", 91],
|
---|
14343 | Editable->False]], "Print",
|
---|
14344 | CellChangeTimes->{
|
---|
14345 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14346 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14347 | 3.581159750455988*^9}],
|
---|
14348 |
|
---|
14349 | Cell[BoxData[
|
---|
14350 | InterpretationBox[
|
---|
14351 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14352 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14353 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
14354 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
14355 | Editable->False]], "Print",
|
---|
14356 | CellChangeTimes->{
|
---|
14357 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14358 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14359 | 3.5811597504604053`*^9}],
|
---|
14360 |
|
---|
14361 | Cell[BoxData[
|
---|
14362 | InterpretationBox[
|
---|
14363 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14364 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14365 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
14366 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`b],
|
---|
14367 | Editable->False]], "Print",
|
---|
14368 | CellChangeTimes->{
|
---|
14369 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14370 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14371 | 3.581159750464796*^9}],
|
---|
14372 |
|
---|
14373 | Cell[BoxData[
|
---|
14374 | InterpretationBox[
|
---|
14375 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14376 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14377 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14378 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
14379 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
14380 | Editable->False]], "Print",
|
---|
14381 | CellChangeTimes->{
|
---|
14382 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14383 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14384 | 3.581159750469158*^9}],
|
---|
14385 |
|
---|
14386 | Cell[BoxData[
|
---|
14387 | InterpretationBox[
|
---|
14388 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
14389 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
14390 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
14391 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
14392 | Editable->False]], "Print",
|
---|
14393 | CellChangeTimes->{
|
---|
14394 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14395 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14396 | 3.581159750473502*^9}],
|
---|
14397 |
|
---|
14398 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14399 | CellChangeTimes->{
|
---|
14400 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14401 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14402 | 3.58115975047775*^9}],
|
---|
14403 |
|
---|
14404 | Cell[BoxData[
|
---|
14405 | RowBox[{
|
---|
14406 | RowBox[{"-",
|
---|
14407 | FractionBox[
|
---|
14408 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14409 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14410 | SubscriptBox["\[Delta]",
|
---|
14411 | RowBox[{
|
---|
14412 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14413 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14414 | SubscriptBox["\[Eta]",
|
---|
14415 | RowBox[{
|
---|
14416 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14417 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14418 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14419 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14420 | SubscriptBox[
|
---|
14421 | RowBox[{
|
---|
14422 | SuperscriptBox["\[Gamma]",
|
---|
14423 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14424 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14425 | RowBox[{
|
---|
14426 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14427 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14428 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
14429 | FractionBox[
|
---|
14430 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14431 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14432 | SubscriptBox["\[Delta]",
|
---|
14433 | RowBox[{
|
---|
14434 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14435 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14436 | SubscriptBox["\[Eta]",
|
---|
14437 | RowBox[{
|
---|
14438 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14439 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14440 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14441 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14442 | SubscriptBox[
|
---|
14443 | RowBox[{
|
---|
14444 | SuperscriptBox["\[Gamma]",
|
---|
14445 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14446 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14447 | RowBox[{
|
---|
14448 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14449 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14450 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
14451 | FractionBox[
|
---|
14452 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14453 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14454 | SubscriptBox["\[Delta]",
|
---|
14455 | RowBox[{
|
---|
14456 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14457 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14458 | SubscriptBox["\[Eta]",
|
---|
14459 | RowBox[{
|
---|
14460 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14461 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14462 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14463 | SubscriptBox[
|
---|
14464 | RowBox[{
|
---|
14465 | SuperscriptBox["\[Gamma]",
|
---|
14466 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14467 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14468 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14469 | RowBox[{
|
---|
14470 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14471 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14472 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14473 | FractionBox[
|
---|
14474 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14475 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14476 | SubscriptBox["\[Delta]",
|
---|
14477 | RowBox[{
|
---|
14478 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14479 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14480 | SubscriptBox["\[Eta]",
|
---|
14481 | RowBox[{
|
---|
14482 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14483 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14484 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14485 | SubscriptBox[
|
---|
14486 | RowBox[{
|
---|
14487 | SuperscriptBox["\[Gamma]",
|
---|
14488 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14489 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14490 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14491 | RowBox[{
|
---|
14492 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14493 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14494 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14495 | FractionBox[
|
---|
14496 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14497 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14498 | SubscriptBox["\[Delta]",
|
---|
14499 | RowBox[{
|
---|
14500 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14501 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14502 | SubscriptBox["\[Eta]",
|
---|
14503 | RowBox[{
|
---|
14504 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14505 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14506 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14507 | SubscriptBox[
|
---|
14508 | RowBox[{
|
---|
14509 | SuperscriptBox["\[Gamma]",
|
---|
14510 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14511 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14512 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14513 | RowBox[{
|
---|
14514 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14515 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14516 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14517 | FractionBox[
|
---|
14518 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14519 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14520 | SubscriptBox["\[Delta]",
|
---|
14521 | RowBox[{
|
---|
14522 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14523 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14524 | SubscriptBox["\[Eta]",
|
---|
14525 | RowBox[{
|
---|
14526 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14527 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14528 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14529 | SubscriptBox[
|
---|
14530 | RowBox[{
|
---|
14531 | SuperscriptBox["\[Gamma]",
|
---|
14532 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14533 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14534 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14535 | RowBox[{
|
---|
14536 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14537 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14538 | RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
14539 | CellChangeTimes->{
|
---|
14540 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14541 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14542 | 3.5811597504828873`*^9}],
|
---|
14543 |
|
---|
14544 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14545 | * * * * * *)\"\>"], "Print",
|
---|
14546 | CellChangeTimes->{
|
---|
14547 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14548 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14549 | 3.581159750489628*^9}],
|
---|
14550 |
|
---|
14551 | Cell[BoxData[
|
---|
14552 | InterpretationBox[
|
---|
14553 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "92"}],
|
---|
14554 | SequenceForm["Vertex ", 92],
|
---|
14555 | Editable->False]], "Print",
|
---|
14556 | CellChangeTimes->{
|
---|
14557 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14558 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14559 | 3.581159750494062*^9}],
|
---|
14560 |
|
---|
14561 | Cell[BoxData[
|
---|
14562 | InterpretationBox[
|
---|
14563 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14564 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14565 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
14566 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
14567 | Editable->False]], "Print",
|
---|
14568 | CellChangeTimes->{
|
---|
14569 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14570 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14571 | 3.581159750498438*^9}],
|
---|
14572 |
|
---|
14573 | Cell[BoxData[
|
---|
14574 | InterpretationBox[
|
---|
14575 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14576 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14577 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
14578 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
|
---|
14579 | Editable->False]], "Print",
|
---|
14580 | CellChangeTimes->{
|
---|
14581 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14582 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14583 | 3.581159750502887*^9}],
|
---|
14584 |
|
---|
14585 | Cell[BoxData[
|
---|
14586 | InterpretationBox[
|
---|
14587 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14588 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14589 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14590 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
14591 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
14592 | Editable->False]], "Print",
|
---|
14593 | CellChangeTimes->{
|
---|
14594 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14595 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14596 | 3.581159750507255*^9}],
|
---|
14597 |
|
---|
14598 | Cell[BoxData[
|
---|
14599 | InterpretationBox[
|
---|
14600 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
14601 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
14602 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
14603 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
14604 | Editable->False]], "Print",
|
---|
14605 | CellChangeTimes->{
|
---|
14606 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14607 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14608 | 3.581159750511888*^9}],
|
---|
14609 |
|
---|
14610 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14611 | CellChangeTimes->{
|
---|
14612 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14613 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14614 | 3.581159750516334*^9}],
|
---|
14615 |
|
---|
14616 | Cell[BoxData[
|
---|
14617 | RowBox[{
|
---|
14618 | RowBox[{"-",
|
---|
14619 | FractionBox[
|
---|
14620 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14621 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14622 | SubscriptBox["\[Delta]",
|
---|
14623 | RowBox[{
|
---|
14624 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14625 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14626 | SubscriptBox["\[Eta]",
|
---|
14627 | RowBox[{
|
---|
14628 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14629 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14630 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14631 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14632 | SubscriptBox[
|
---|
14633 | RowBox[{
|
---|
14634 | SuperscriptBox["\[Gamma]",
|
---|
14635 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14636 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14637 | RowBox[{
|
---|
14638 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14639 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14640 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
14641 | FractionBox[
|
---|
14642 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14643 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14644 | SubscriptBox["\[Delta]",
|
---|
14645 | RowBox[{
|
---|
14646 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14647 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14648 | SubscriptBox["\[Eta]",
|
---|
14649 | RowBox[{
|
---|
14650 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14651 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14652 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14653 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14654 | SubscriptBox[
|
---|
14655 | RowBox[{
|
---|
14656 | SuperscriptBox["\[Gamma]",
|
---|
14657 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14658 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14659 | RowBox[{
|
---|
14660 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14661 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14662 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
14663 | FractionBox[
|
---|
14664 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14665 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14666 | SubscriptBox["\[Delta]",
|
---|
14667 | RowBox[{
|
---|
14668 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14669 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14670 | SubscriptBox["\[Eta]",
|
---|
14671 | RowBox[{
|
---|
14672 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14673 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14674 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14675 | SubscriptBox[
|
---|
14676 | RowBox[{
|
---|
14677 | SuperscriptBox["\[Gamma]",
|
---|
14678 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14679 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14680 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14681 | RowBox[{
|
---|
14682 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14683 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14684 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14685 | FractionBox[
|
---|
14686 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14687 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14688 | SubscriptBox["\[Delta]",
|
---|
14689 | RowBox[{
|
---|
14690 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14691 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14692 | SubscriptBox["\[Eta]",
|
---|
14693 | RowBox[{
|
---|
14694 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14695 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14696 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14697 | SubscriptBox[
|
---|
14698 | RowBox[{
|
---|
14699 | SuperscriptBox["\[Gamma]",
|
---|
14700 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14701 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14702 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14703 | RowBox[{
|
---|
14704 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14705 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14706 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14707 | FractionBox[
|
---|
14708 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14709 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14710 | SubscriptBox["\[Delta]",
|
---|
14711 | RowBox[{
|
---|
14712 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14713 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14714 | SubscriptBox["\[Eta]",
|
---|
14715 | RowBox[{
|
---|
14716 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14717 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14718 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14719 | SubscriptBox[
|
---|
14720 | RowBox[{
|
---|
14721 | SuperscriptBox["\[Gamma]",
|
---|
14722 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14723 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14724 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14725 | RowBox[{
|
---|
14726 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14727 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14728 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14729 | FractionBox[
|
---|
14730 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14731 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14732 | SubscriptBox["\[Delta]",
|
---|
14733 | RowBox[{
|
---|
14734 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14735 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14736 | SubscriptBox["\[Eta]",
|
---|
14737 | RowBox[{
|
---|
14738 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14739 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14740 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14741 | SubscriptBox[
|
---|
14742 | RowBox[{
|
---|
14743 | SuperscriptBox["\[Gamma]",
|
---|
14744 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14745 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14746 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14747 | RowBox[{
|
---|
14748 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14749 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14750 | RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
14751 | CellChangeTimes->{
|
---|
14752 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14753 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14754 | 3.581159750521618*^9}],
|
---|
14755 |
|
---|
14756 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14757 | * * * * * *)\"\>"], "Print",
|
---|
14758 | CellChangeTimes->{
|
---|
14759 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14760 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14761 | 3.581159750528141*^9}],
|
---|
14762 |
|
---|
14763 | Cell[BoxData[
|
---|
14764 | InterpretationBox[
|
---|
14765 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "93"}],
|
---|
14766 | SequenceForm["Vertex ", 93],
|
---|
14767 | Editable->False]], "Print",
|
---|
14768 | CellChangeTimes->{
|
---|
14769 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14770 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14771 | 3.5811597505326347`*^9}],
|
---|
14772 |
|
---|
14773 | Cell[BoxData[
|
---|
14774 | InterpretationBox[
|
---|
14775 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14776 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14777 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
14778 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
14779 | Editable->False]], "Print",
|
---|
14780 | CellChangeTimes->{
|
---|
14781 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14782 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14783 | 3.58115975053717*^9}],
|
---|
14784 |
|
---|
14785 | Cell[BoxData[
|
---|
14786 | InterpretationBox[
|
---|
14787 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
14788 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14789 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
14790 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
14791 | Editable->False]], "Print",
|
---|
14792 | CellChangeTimes->{
|
---|
14793 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14794 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14795 | 3.581159750541603*^9}],
|
---|
14796 |
|
---|
14797 | Cell[BoxData[
|
---|
14798 | InterpretationBox[
|
---|
14799 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
14800 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
14801 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
14802 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
14803 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
14804 | Editable->False]], "Print",
|
---|
14805 | CellChangeTimes->{
|
---|
14806 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14807 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14808 | 3.5811597505461273`*^9}],
|
---|
14809 |
|
---|
14810 | Cell[BoxData[
|
---|
14811 | InterpretationBox[
|
---|
14812 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
14813 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
14814 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
14815 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
14816 | Editable->False]], "Print",
|
---|
14817 | CellChangeTimes->{
|
---|
14818 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14819 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14820 | 3.581159750550605*^9}],
|
---|
14821 |
|
---|
14822 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
14823 | CellChangeTimes->{
|
---|
14824 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14825 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14826 | 3.5811597505548983`*^9}],
|
---|
14827 |
|
---|
14828 | Cell[BoxData[
|
---|
14829 | RowBox[{
|
---|
14830 | RowBox[{"-",
|
---|
14831 | FractionBox[
|
---|
14832 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14833 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14834 | SubscriptBox["\[Delta]",
|
---|
14835 | RowBox[{
|
---|
14836 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14837 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14838 | SubscriptBox["\[Eta]",
|
---|
14839 | RowBox[{
|
---|
14840 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14841 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14842 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14843 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14844 | SubscriptBox[
|
---|
14845 | RowBox[{
|
---|
14846 | SuperscriptBox["\[Gamma]",
|
---|
14847 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14848 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14849 | RowBox[{
|
---|
14850 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14851 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14852 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}], "-",
|
---|
14853 | FractionBox[
|
---|
14854 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14855 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14856 | SubscriptBox["\[Delta]",
|
---|
14857 | RowBox[{
|
---|
14858 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14859 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14860 | SubscriptBox["\[Eta]",
|
---|
14861 | RowBox[{
|
---|
14862 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14863 | RowBox[{"4", ",", "1"}]], ",",
|
---|
14864 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14865 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14866 | SubscriptBox[
|
---|
14867 | RowBox[{
|
---|
14868 | SuperscriptBox["\[Gamma]",
|
---|
14869 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
14870 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14871 | RowBox[{
|
---|
14872 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14873 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14874 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
14875 | FractionBox[
|
---|
14876 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14877 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14878 | SubscriptBox["\[Delta]",
|
---|
14879 | RowBox[{
|
---|
14880 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14881 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14882 | SubscriptBox["\[Eta]",
|
---|
14883 | RowBox[{
|
---|
14884 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14885 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14886 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14887 | SubscriptBox[
|
---|
14888 | RowBox[{
|
---|
14889 | SuperscriptBox["\[Gamma]",
|
---|
14890 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14891 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14892 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14893 | RowBox[{
|
---|
14894 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14895 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14896 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14897 | FractionBox[
|
---|
14898 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14899 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14900 | SubscriptBox["\[Delta]",
|
---|
14901 | RowBox[{
|
---|
14902 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14903 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14904 | SubscriptBox["\[Eta]",
|
---|
14905 | RowBox[{
|
---|
14906 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14907 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14908 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
14909 | SubscriptBox[
|
---|
14910 | RowBox[{
|
---|
14911 | SuperscriptBox["\[Gamma]",
|
---|
14912 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14913 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
14914 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14915 | RowBox[{
|
---|
14916 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14917 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14918 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14919 | FractionBox[
|
---|
14920 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14921 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14922 | SubscriptBox["\[Delta]",
|
---|
14923 | RowBox[{
|
---|
14924 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14925 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14926 | SubscriptBox["\[Eta]",
|
---|
14927 | RowBox[{
|
---|
14928 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14929 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14930 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14931 | SubscriptBox[
|
---|
14932 | RowBox[{
|
---|
14933 | SuperscriptBox["\[Gamma]",
|
---|
14934 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14935 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14936 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
14937 | RowBox[{
|
---|
14938 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14939 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14940 | RowBox[{"6", " ", "\[CapitalLambda]"}]], "+",
|
---|
14941 | FractionBox[
|
---|
14942 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
14943 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
14944 | SubscriptBox["\[Delta]",
|
---|
14945 | RowBox[{
|
---|
14946 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
14947 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
14948 | SubscriptBox["\[Eta]",
|
---|
14949 | RowBox[{
|
---|
14950 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
14951 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14952 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
14953 | SubscriptBox[
|
---|
14954 | RowBox[{
|
---|
14955 | SuperscriptBox["\[Gamma]",
|
---|
14956 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
14957 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
14958 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
14959 | RowBox[{
|
---|
14960 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
14961 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
14962 | RowBox[{"6", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
14963 | CellChangeTimes->{
|
---|
14964 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14965 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14966 | 3.581159750560237*^9}],
|
---|
14967 |
|
---|
14968 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
14969 | * * * * * *)\"\>"], "Print",
|
---|
14970 | CellChangeTimes->{
|
---|
14971 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14972 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14973 | 3.581159750566926*^9}],
|
---|
14974 |
|
---|
14975 | Cell[BoxData[
|
---|
14976 | InterpretationBox[
|
---|
14977 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "94"}],
|
---|
14978 | SequenceForm["Vertex ", 94],
|
---|
14979 | Editable->False]], "Print",
|
---|
14980 | CellChangeTimes->{
|
---|
14981 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14982 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14983 | 3.581159750571389*^9}],
|
---|
14984 |
|
---|
14985 | Cell[BoxData[
|
---|
14986 | InterpretationBox[
|
---|
14987 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
14988 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
14989 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
14990 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
14991 | Editable->False]], "Print",
|
---|
14992 | CellChangeTimes->{
|
---|
14993 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
14994 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
14995 | 3.581159750575742*^9}],
|
---|
14996 |
|
---|
14997 | Cell[BoxData[
|
---|
14998 | InterpretationBox[
|
---|
14999 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15000 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15001 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
15002 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`e],
|
---|
15003 | Editable->False]], "Print",
|
---|
15004 | CellChangeTimes->{
|
---|
15005 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15006 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15007 | 3.581159750580297*^9}],
|
---|
15008 |
|
---|
15009 | Cell[BoxData[
|
---|
15010 | InterpretationBox[
|
---|
15011 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15012 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15013 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15014 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
15015 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
15016 | Editable->False]], "Print",
|
---|
15017 | CellChangeTimes->{
|
---|
15018 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15019 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15020 | 3.581159750584914*^9}],
|
---|
15021 |
|
---|
15022 | Cell[BoxData[
|
---|
15023 | InterpretationBox[
|
---|
15024 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
15025 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
15026 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
15027 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
15028 | Editable->False]], "Print",
|
---|
15029 | CellChangeTimes->{
|
---|
15030 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15031 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15032 | 3.581159750589559*^9}],
|
---|
15033 |
|
---|
15034 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
15035 | CellChangeTimes->{
|
---|
15036 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15037 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15038 | 3.5811597505940313`*^9}],
|
---|
15039 |
|
---|
15040 | Cell[BoxData[
|
---|
15041 | RowBox[{
|
---|
15042 | RowBox[{"-",
|
---|
15043 | FractionBox[
|
---|
15044 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15045 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15046 | SubscriptBox["\[Eta]",
|
---|
15047 | RowBox[{
|
---|
15048 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15049 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15050 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15051 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15052 | SubscriptBox[
|
---|
15053 | RowBox[{
|
---|
15054 | SuperscriptBox["\[Gamma]",
|
---|
15055 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15056 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15057 | RowBox[{
|
---|
15058 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15059 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
15060 | FractionBox[
|
---|
15061 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15062 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15063 | SubscriptBox["\[Eta]",
|
---|
15064 | RowBox[{
|
---|
15065 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15066 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15067 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15068 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15069 | SubscriptBox[
|
---|
15070 | RowBox[{
|
---|
15071 | SuperscriptBox["\[Gamma]",
|
---|
15072 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15073 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15074 | RowBox[{
|
---|
15075 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15076 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
15077 | FractionBox[
|
---|
15078 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15079 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15080 | SubscriptBox["\[Eta]",
|
---|
15081 | RowBox[{
|
---|
15082 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15083 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15084 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15085 | SubscriptBox[
|
---|
15086 | RowBox[{
|
---|
15087 | SuperscriptBox["\[Gamma]",
|
---|
15088 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15089 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15090 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15091 | RowBox[{
|
---|
15092 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15093 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15094 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15095 | FractionBox[
|
---|
15096 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15097 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15098 | SubscriptBox["\[Eta]",
|
---|
15099 | RowBox[{
|
---|
15100 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15101 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15102 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15103 | SubscriptBox[
|
---|
15104 | RowBox[{
|
---|
15105 | SuperscriptBox["\[Gamma]",
|
---|
15106 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15107 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15108 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15109 | RowBox[{
|
---|
15110 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15111 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15112 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15113 | FractionBox[
|
---|
15114 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15115 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15116 | SubscriptBox["\[Eta]",
|
---|
15117 | RowBox[{
|
---|
15118 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15119 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15120 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15121 | SubscriptBox[
|
---|
15122 | RowBox[{
|
---|
15123 | SuperscriptBox["\[Gamma]",
|
---|
15124 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15125 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15126 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15127 | RowBox[{
|
---|
15128 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15129 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15130 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15131 | FractionBox[
|
---|
15132 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15133 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15134 | SubscriptBox["\[Eta]",
|
---|
15135 | RowBox[{
|
---|
15136 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15137 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15138 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15139 | SubscriptBox[
|
---|
15140 | RowBox[{
|
---|
15141 | SuperscriptBox["\[Gamma]",
|
---|
15142 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15143 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15144 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15145 | RowBox[{
|
---|
15146 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15147 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15148 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
15149 | CellChangeTimes->{
|
---|
15150 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15151 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15152 | 3.581159750599382*^9}],
|
---|
15153 |
|
---|
15154 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
15155 | * * * * * *)\"\>"], "Print",
|
---|
15156 | CellChangeTimes->{
|
---|
15157 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15158 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15159 | 3.581159750605576*^9}],
|
---|
15160 |
|
---|
15161 | Cell[BoxData[
|
---|
15162 | InterpretationBox[
|
---|
15163 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "95"}],
|
---|
15164 | SequenceForm["Vertex ", 95],
|
---|
15165 | Editable->False]], "Print",
|
---|
15166 | CellChangeTimes->{
|
---|
15167 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15168 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15169 | 3.581159750610371*^9}],
|
---|
15170 |
|
---|
15171 | Cell[BoxData[
|
---|
15172 | InterpretationBox[
|
---|
15173 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
15174 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
15175 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
15176 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
15177 | Editable->False]], "Print",
|
---|
15178 | CellChangeTimes->{
|
---|
15179 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15180 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15181 | 3.5811597506149054`*^9}],
|
---|
15182 |
|
---|
15183 | Cell[BoxData[
|
---|
15184 | InterpretationBox[
|
---|
15185 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15186 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15187 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
15188 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
15189 | Editable->False]], "Print",
|
---|
15190 | CellChangeTimes->{
|
---|
15191 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15192 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15193 | 3.5811597506195583`*^9}],
|
---|
15194 |
|
---|
15195 | Cell[BoxData[
|
---|
15196 | InterpretationBox[
|
---|
15197 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15198 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15199 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15200 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
15201 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
15202 | Editable->False]], "Print",
|
---|
15203 | CellChangeTimes->{
|
---|
15204 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15205 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15206 | 3.5811597506240673`*^9}],
|
---|
15207 |
|
---|
15208 | Cell[BoxData[
|
---|
15209 | InterpretationBox[
|
---|
15210 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
15211 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
15212 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
15213 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
15214 | Editable->False]], "Print",
|
---|
15215 | CellChangeTimes->{
|
---|
15216 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15217 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15218 | 3.581159750629636*^9}],
|
---|
15219 |
|
---|
15220 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
15221 | CellChangeTimes->{
|
---|
15222 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15223 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15224 | 3.581159750635553*^9}],
|
---|
15225 |
|
---|
15226 | Cell[BoxData[
|
---|
15227 | RowBox[{
|
---|
15228 | RowBox[{"-",
|
---|
15229 | FractionBox[
|
---|
15230 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15231 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15232 | SubscriptBox["\[Eta]",
|
---|
15233 | RowBox[{
|
---|
15234 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15235 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15236 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15237 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15238 | SubscriptBox[
|
---|
15239 | RowBox[{
|
---|
15240 | SuperscriptBox["\[Gamma]",
|
---|
15241 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15242 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15243 | RowBox[{
|
---|
15244 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15245 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
15246 | FractionBox[
|
---|
15247 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15248 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15249 | SubscriptBox["\[Eta]",
|
---|
15250 | RowBox[{
|
---|
15251 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15252 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15253 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15254 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15255 | SubscriptBox[
|
---|
15256 | RowBox[{
|
---|
15257 | SuperscriptBox["\[Gamma]",
|
---|
15258 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15259 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15260 | RowBox[{
|
---|
15261 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15262 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
15263 | FractionBox[
|
---|
15264 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15265 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15266 | SubscriptBox["\[Eta]",
|
---|
15267 | RowBox[{
|
---|
15268 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15269 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15270 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15271 | SubscriptBox[
|
---|
15272 | RowBox[{
|
---|
15273 | SuperscriptBox["\[Gamma]",
|
---|
15274 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15275 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15276 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15277 | RowBox[{
|
---|
15278 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15279 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15280 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15281 | FractionBox[
|
---|
15282 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15283 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15284 | SubscriptBox["\[Eta]",
|
---|
15285 | RowBox[{
|
---|
15286 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15287 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15288 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15289 | SubscriptBox[
|
---|
15290 | RowBox[{
|
---|
15291 | SuperscriptBox["\[Gamma]",
|
---|
15292 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15293 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15294 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15295 | RowBox[{
|
---|
15296 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15297 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15298 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15299 | FractionBox[
|
---|
15300 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15301 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15302 | SubscriptBox["\[Eta]",
|
---|
15303 | RowBox[{
|
---|
15304 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15305 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15306 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15307 | SubscriptBox[
|
---|
15308 | RowBox[{
|
---|
15309 | SuperscriptBox["\[Gamma]",
|
---|
15310 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15311 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15312 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15313 | RowBox[{
|
---|
15314 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15315 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15316 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15317 | FractionBox[
|
---|
15318 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15319 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15320 | SubscriptBox["\[Eta]",
|
---|
15321 | RowBox[{
|
---|
15322 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15323 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15324 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15325 | SubscriptBox[
|
---|
15326 | RowBox[{
|
---|
15327 | SuperscriptBox["\[Gamma]",
|
---|
15328 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15329 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15330 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15331 | RowBox[{
|
---|
15332 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15333 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15334 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
15335 | CellChangeTimes->{
|
---|
15336 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15337 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15338 | 3.581159750641789*^9}],
|
---|
15339 |
|
---|
15340 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
15341 | * * * * * *)\"\>"], "Print",
|
---|
15342 | CellChangeTimes->{
|
---|
15343 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15344 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15345 | 3.581159750648637*^9}],
|
---|
15346 |
|
---|
15347 | Cell[BoxData[
|
---|
15348 | InterpretationBox[
|
---|
15349 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "96"}],
|
---|
15350 | SequenceForm["Vertex ", 96],
|
---|
15351 | Editable->False]], "Print",
|
---|
15352 | CellChangeTimes->{
|
---|
15353 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15354 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15355 | 3.5811597506537046`*^9}],
|
---|
15356 |
|
---|
15357 | Cell[BoxData[
|
---|
15358 | InterpretationBox[
|
---|
15359 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
15360 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
15361 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
15362 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
15363 | Editable->False]], "Print",
|
---|
15364 | CellChangeTimes->{
|
---|
15365 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15366 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15367 | 3.5811597506587687`*^9}],
|
---|
15368 |
|
---|
15369 | Cell[BoxData[
|
---|
15370 | InterpretationBox[
|
---|
15371 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15372 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15373 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
15374 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
15375 | Editable->False]], "Print",
|
---|
15376 | CellChangeTimes->{
|
---|
15377 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15378 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15379 | 3.5811597506641207`*^9}],
|
---|
15380 |
|
---|
15381 | Cell[BoxData[
|
---|
15382 | InterpretationBox[
|
---|
15383 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15384 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15385 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15386 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
15387 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
15388 | Editable->False]], "Print",
|
---|
15389 | CellChangeTimes->{
|
---|
15390 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15391 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15392 | 3.581159750669868*^9}],
|
---|
15393 |
|
---|
15394 | Cell[BoxData[
|
---|
15395 | InterpretationBox[
|
---|
15396 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
15397 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
15398 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
15399 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
15400 | Editable->False]], "Print",
|
---|
15401 | CellChangeTimes->{
|
---|
15402 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15403 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15404 | 3.581159750674848*^9}],
|
---|
15405 |
|
---|
15406 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
15407 | CellChangeTimes->{
|
---|
15408 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15409 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15410 | 3.581159750679619*^9}],
|
---|
15411 |
|
---|
15412 | Cell[BoxData[
|
---|
15413 | RowBox[{
|
---|
15414 | RowBox[{"-",
|
---|
15415 | FractionBox[
|
---|
15416 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15417 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15418 | SubscriptBox["\[Eta]",
|
---|
15419 | RowBox[{
|
---|
15420 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15421 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15422 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15423 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15424 | SubscriptBox[
|
---|
15425 | RowBox[{
|
---|
15426 | SuperscriptBox["\[Gamma]",
|
---|
15427 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15428 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15429 | RowBox[{
|
---|
15430 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15431 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"]}], "-",
|
---|
15432 | FractionBox[
|
---|
15433 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15434 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15435 | SubscriptBox["\[Eta]",
|
---|
15436 | RowBox[{
|
---|
15437 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15438 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15439 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15440 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15441 | SubscriptBox[
|
---|
15442 | RowBox[{
|
---|
15443 | SuperscriptBox["\[Gamma]",
|
---|
15444 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15445 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15446 | RowBox[{
|
---|
15447 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15448 | SubscriptBox["\<\"s\"\>", "2"]}]]}], "\[CapitalLambda]"], "+",
|
---|
15449 | FractionBox[
|
---|
15450 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15451 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15452 | SubscriptBox["\[Eta]",
|
---|
15453 | RowBox[{
|
---|
15454 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15455 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15456 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15457 | SubscriptBox[
|
---|
15458 | RowBox[{
|
---|
15459 | SuperscriptBox["\[Gamma]",
|
---|
15460 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15461 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15462 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15463 | RowBox[{
|
---|
15464 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15465 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15466 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15467 | FractionBox[
|
---|
15468 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15469 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15470 | SubscriptBox["\[Eta]",
|
---|
15471 | RowBox[{
|
---|
15472 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15473 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15474 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15475 | SubscriptBox[
|
---|
15476 | RowBox[{
|
---|
15477 | SuperscriptBox["\[Gamma]",
|
---|
15478 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15479 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15480 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15481 | RowBox[{
|
---|
15482 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15483 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15484 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15485 | FractionBox[
|
---|
15486 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15487 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15488 | SubscriptBox["\[Eta]",
|
---|
15489 | RowBox[{
|
---|
15490 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15491 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15492 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15493 | SubscriptBox[
|
---|
15494 | RowBox[{
|
---|
15495 | SuperscriptBox["\[Gamma]",
|
---|
15496 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15497 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15498 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15499 | RowBox[{
|
---|
15500 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15501 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15502 | RowBox[{"2", " ", "\[CapitalLambda]"}]], "+",
|
---|
15503 | FractionBox[
|
---|
15504 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15505 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
15506 | SubscriptBox["\[Eta]",
|
---|
15507 | RowBox[{
|
---|
15508 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15509 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15510 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15511 | SubscriptBox[
|
---|
15512 | RowBox[{
|
---|
15513 | SuperscriptBox["\[Gamma]",
|
---|
15514 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15515 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15516 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15517 | RowBox[{
|
---|
15518 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15519 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15520 | RowBox[{"2", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
15521 | CellChangeTimes->{
|
---|
15522 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15523 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15524 | 3.5811597506851273`*^9}],
|
---|
15525 |
|
---|
15526 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
15527 | * * * * * *)\"\>"], "Print",
|
---|
15528 | CellChangeTimes->{
|
---|
15529 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15530 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15531 | 3.581159750691732*^9}],
|
---|
15532 |
|
---|
15533 | Cell[BoxData[
|
---|
15534 | InterpretationBox[
|
---|
15535 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "97"}],
|
---|
15536 | SequenceForm["Vertex ", 97],
|
---|
15537 | Editable->False]], "Print",
|
---|
15538 | CellChangeTimes->{
|
---|
15539 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15540 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15541 | 3.58115975069652*^9}],
|
---|
15542 |
|
---|
15543 | Cell[BoxData[
|
---|
15544 | InterpretationBox[
|
---|
15545 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
15546 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
15547 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
15548 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
15549 | Editable->False]], "Print",
|
---|
15550 | CellChangeTimes->{
|
---|
15551 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15552 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15553 | 3.581159750701331*^9}],
|
---|
15554 |
|
---|
15555 | Cell[BoxData[
|
---|
15556 | InterpretationBox[
|
---|
15557 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15558 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15559 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
15560 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`c],
|
---|
15561 | Editable->False]], "Print",
|
---|
15562 | CellChangeTimes->{
|
---|
15563 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15564 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15565 | 3.581159750706107*^9}],
|
---|
15566 |
|
---|
15567 | Cell[BoxData[
|
---|
15568 | InterpretationBox[
|
---|
15569 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15570 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15571 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15572 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
15573 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
15574 | Editable->False]], "Print",
|
---|
15575 | CellChangeTimes->{
|
---|
15576 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15577 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15578 | 3.581159750711006*^9}],
|
---|
15579 |
|
---|
15580 | Cell[BoxData[
|
---|
15581 | InterpretationBox[
|
---|
15582 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
15583 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
15584 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
15585 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
15586 | Editable->False]], "Print",
|
---|
15587 | CellChangeTimes->{
|
---|
15588 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15589 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15590 | 3.581159750716055*^9}],
|
---|
15591 |
|
---|
15592 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
15593 | CellChangeTimes->{
|
---|
15594 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15595 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15596 | 3.581159750720743*^9}],
|
---|
15597 |
|
---|
15598 | Cell[BoxData[
|
---|
15599 | RowBox[{
|
---|
15600 | FractionBox[
|
---|
15601 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
15602 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15603 | SubscriptBox["\[Delta]",
|
---|
15604 | RowBox[{
|
---|
15605 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15606 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15607 | SubscriptBox["\[Eta]",
|
---|
15608 | RowBox[{
|
---|
15609 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15610 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15611 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15612 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15613 | SubscriptBox[
|
---|
15614 | RowBox[{
|
---|
15615 | SuperscriptBox["\[Gamma]",
|
---|
15616 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15617 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15618 | RowBox[{
|
---|
15619 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15620 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15621 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
15622 | FractionBox[
|
---|
15623 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
15624 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15625 | SubscriptBox["\[Delta]",
|
---|
15626 | RowBox[{
|
---|
15627 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15628 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15629 | SubscriptBox["\[Eta]",
|
---|
15630 | RowBox[{
|
---|
15631 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15632 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15633 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15634 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15635 | SubscriptBox[
|
---|
15636 | RowBox[{
|
---|
15637 | SuperscriptBox["\[Gamma]",
|
---|
15638 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15639 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15640 | RowBox[{
|
---|
15641 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15642 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15643 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15644 | FractionBox[
|
---|
15645 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15646 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15647 | SubscriptBox["\[Delta]",
|
---|
15648 | RowBox[{
|
---|
15649 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15650 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15651 | SubscriptBox["\[Eta]",
|
---|
15652 | RowBox[{
|
---|
15653 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15654 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15655 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15656 | SubscriptBox[
|
---|
15657 | RowBox[{
|
---|
15658 | SuperscriptBox["\[Gamma]",
|
---|
15659 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15660 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15661 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15662 | RowBox[{
|
---|
15663 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15664 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15665 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15666 | FractionBox[
|
---|
15667 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15668 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15669 | SubscriptBox["\[Delta]",
|
---|
15670 | RowBox[{
|
---|
15671 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15672 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15673 | SubscriptBox["\[Eta]",
|
---|
15674 | RowBox[{
|
---|
15675 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15676 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15677 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15678 | SubscriptBox[
|
---|
15679 | RowBox[{
|
---|
15680 | SuperscriptBox["\[Gamma]",
|
---|
15681 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15682 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15683 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15684 | RowBox[{
|
---|
15685 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15686 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15687 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15688 | FractionBox[
|
---|
15689 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15690 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15691 | SubscriptBox["\[Delta]",
|
---|
15692 | RowBox[{
|
---|
15693 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15694 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15695 | SubscriptBox["\[Eta]",
|
---|
15696 | RowBox[{
|
---|
15697 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15698 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15699 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15700 | SubscriptBox[
|
---|
15701 | RowBox[{
|
---|
15702 | SuperscriptBox["\[Gamma]",
|
---|
15703 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15704 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15705 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15706 | RowBox[{
|
---|
15707 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15708 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15709 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15710 | FractionBox[
|
---|
15711 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15712 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15713 | SubscriptBox["\[Delta]",
|
---|
15714 | RowBox[{
|
---|
15715 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15716 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15717 | SubscriptBox["\[Eta]",
|
---|
15718 | RowBox[{
|
---|
15719 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15720 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15721 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15722 | SubscriptBox[
|
---|
15723 | RowBox[{
|
---|
15724 | SuperscriptBox["\[Gamma]",
|
---|
15725 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15726 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15727 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15728 | RowBox[{
|
---|
15729 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15730 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15731 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
15732 | CellChangeTimes->{
|
---|
15733 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15734 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15735 | 3.5811597507265253`*^9}],
|
---|
15736 |
|
---|
15737 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
15738 | * * * * * *)\"\>"], "Print",
|
---|
15739 | CellChangeTimes->{
|
---|
15740 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15741 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15742 | 3.581159750733665*^9}],
|
---|
15743 |
|
---|
15744 | Cell[BoxData[
|
---|
15745 | InterpretationBox[
|
---|
15746 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "98"}],
|
---|
15747 | SequenceForm["Vertex ", 98],
|
---|
15748 | Editable->False]], "Print",
|
---|
15749 | CellChangeTimes->{
|
---|
15750 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15751 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15752 | 3.581159750738873*^9}],
|
---|
15753 |
|
---|
15754 | Cell[BoxData[
|
---|
15755 | InterpretationBox[
|
---|
15756 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
15757 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
15758 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
15759 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
15760 | Editable->False]], "Print",
|
---|
15761 | CellChangeTimes->{
|
---|
15762 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15763 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15764 | 3.5811597507436247`*^9}],
|
---|
15765 |
|
---|
15766 | Cell[BoxData[
|
---|
15767 | InterpretationBox[
|
---|
15768 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15769 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15770 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
15771 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
15772 | Editable->False]], "Print",
|
---|
15773 | CellChangeTimes->{
|
---|
15774 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15775 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15776 | 3.5811597507487373`*^9}],
|
---|
15777 |
|
---|
15778 | Cell[BoxData[
|
---|
15779 | InterpretationBox[
|
---|
15780 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15781 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15782 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15783 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
15784 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
15785 | Editable->False]], "Print",
|
---|
15786 | CellChangeTimes->{
|
---|
15787 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15788 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15789 | 3.5811597507538023`*^9}],
|
---|
15790 |
|
---|
15791 | Cell[BoxData[
|
---|
15792 | InterpretationBox[
|
---|
15793 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
15794 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
15795 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
15796 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
15797 | Editable->False]], "Print",
|
---|
15798 | CellChangeTimes->{
|
---|
15799 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15800 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15801 | 3.581159750758645*^9}],
|
---|
15802 |
|
---|
15803 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
15804 | CellChangeTimes->{
|
---|
15805 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15806 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15807 | 3.581159750763712*^9}],
|
---|
15808 |
|
---|
15809 | Cell[BoxData[
|
---|
15810 | RowBox[{
|
---|
15811 | FractionBox[
|
---|
15812 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
15813 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15814 | SubscriptBox["\[Delta]",
|
---|
15815 | RowBox[{
|
---|
15816 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15817 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15818 | SubscriptBox["\[Eta]",
|
---|
15819 | RowBox[{
|
---|
15820 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15821 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15822 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15823 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15824 | SubscriptBox[
|
---|
15825 | RowBox[{
|
---|
15826 | SuperscriptBox["\[Gamma]",
|
---|
15827 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15828 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15829 | RowBox[{
|
---|
15830 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15831 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15832 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
15833 | FractionBox[
|
---|
15834 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
15835 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15836 | SubscriptBox["\[Delta]",
|
---|
15837 | RowBox[{
|
---|
15838 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15839 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15840 | SubscriptBox["\[Eta]",
|
---|
15841 | RowBox[{
|
---|
15842 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15843 | RowBox[{"4", ",", "1"}]], ",",
|
---|
15844 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15845 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15846 | SubscriptBox[
|
---|
15847 | RowBox[{
|
---|
15848 | SuperscriptBox["\[Gamma]",
|
---|
15849 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
15850 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15851 | RowBox[{
|
---|
15852 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15853 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15854 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15855 | FractionBox[
|
---|
15856 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15857 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15858 | SubscriptBox["\[Delta]",
|
---|
15859 | RowBox[{
|
---|
15860 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15861 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15862 | SubscriptBox["\[Eta]",
|
---|
15863 | RowBox[{
|
---|
15864 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15865 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15866 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15867 | SubscriptBox[
|
---|
15868 | RowBox[{
|
---|
15869 | SuperscriptBox["\[Gamma]",
|
---|
15870 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15871 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15872 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15873 | RowBox[{
|
---|
15874 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15875 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15876 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15877 | FractionBox[
|
---|
15878 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15879 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15880 | SubscriptBox["\[Delta]",
|
---|
15881 | RowBox[{
|
---|
15882 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15883 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15884 | SubscriptBox["\[Eta]",
|
---|
15885 | RowBox[{
|
---|
15886 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15887 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15888 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
15889 | SubscriptBox[
|
---|
15890 | RowBox[{
|
---|
15891 | SuperscriptBox["\[Gamma]",
|
---|
15892 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15893 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
15894 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15895 | RowBox[{
|
---|
15896 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15897 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15898 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15899 | FractionBox[
|
---|
15900 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15901 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15902 | SubscriptBox["\[Delta]",
|
---|
15903 | RowBox[{
|
---|
15904 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15905 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15906 | SubscriptBox["\[Eta]",
|
---|
15907 | RowBox[{
|
---|
15908 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15909 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15910 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15911 | SubscriptBox[
|
---|
15912 | RowBox[{
|
---|
15913 | SuperscriptBox["\[Gamma]",
|
---|
15914 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15915 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15916 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
15917 | RowBox[{
|
---|
15918 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15919 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15920 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
15921 | FractionBox[
|
---|
15922 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
15923 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
15924 | SubscriptBox["\[Delta]",
|
---|
15925 | RowBox[{
|
---|
15926 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
15927 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
15928 | SubscriptBox["\[Eta]",
|
---|
15929 | RowBox[{
|
---|
15930 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
15931 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15932 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
15933 | SubscriptBox[
|
---|
15934 | RowBox[{
|
---|
15935 | SuperscriptBox["\[Gamma]",
|
---|
15936 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
15937 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
15938 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
15939 | RowBox[{
|
---|
15940 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
15941 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
15942 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
15943 | CellChangeTimes->{
|
---|
15944 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15945 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15946 | 3.581159750769335*^9}],
|
---|
15947 |
|
---|
15948 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
15949 | * * * * * *)\"\>"], "Print",
|
---|
15950 | CellChangeTimes->{
|
---|
15951 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15952 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15953 | 3.5811597507764072`*^9}],
|
---|
15954 |
|
---|
15955 | Cell[BoxData[
|
---|
15956 | InterpretationBox[
|
---|
15957 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "99"}],
|
---|
15958 | SequenceForm["Vertex ", 99],
|
---|
15959 | Editable->False]], "Print",
|
---|
15960 | CellChangeTimes->{
|
---|
15961 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15962 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15963 | 3.581159750781233*^9}],
|
---|
15964 |
|
---|
15965 | Cell[BoxData[
|
---|
15966 | InterpretationBox[
|
---|
15967 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
15968 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
15969 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "A"}],
|
---|
15970 | SequenceForm["Particle ", 1, " : ", "Vector", " , ", $CellContext`A],
|
---|
15971 | Editable->False]], "Print",
|
---|
15972 | CellChangeTimes->{
|
---|
15973 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15974 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15975 | 3.581159750786201*^9}],
|
---|
15976 |
|
---|
15977 | Cell[BoxData[
|
---|
15978 | InterpretationBox[
|
---|
15979 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
15980 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15981 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
15982 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
15983 | Editable->False]], "Print",
|
---|
15984 | CellChangeTimes->{
|
---|
15985 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15986 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
15987 | 3.581159750791093*^9}],
|
---|
15988 |
|
---|
15989 | Cell[BoxData[
|
---|
15990 | InterpretationBox[
|
---|
15991 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
15992 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
15993 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
15994 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
15995 | SequenceForm["Particle ", 3, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
15996 | Editable->False]], "Print",
|
---|
15997 | CellChangeTimes->{
|
---|
15998 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
15999 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16000 | 3.581159750796041*^9}],
|
---|
16001 |
|
---|
16002 | Cell[BoxData[
|
---|
16003 | InterpretationBox[
|
---|
16004 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16005 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16006 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16007 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16008 | Editable->False]], "Print",
|
---|
16009 | CellChangeTimes->{
|
---|
16010 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16011 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16012 | 3.5811597508249407`*^9}],
|
---|
16013 |
|
---|
16014 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16015 | CellChangeTimes->{
|
---|
16016 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16017 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16018 | 3.581159750829933*^9}],
|
---|
16019 |
|
---|
16020 | Cell[BoxData[
|
---|
16021 | RowBox[{
|
---|
16022 | FractionBox[
|
---|
16023 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
16024 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16025 | SubscriptBox["\[Delta]",
|
---|
16026 | RowBox[{
|
---|
16027 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16028 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16029 | SubscriptBox["\[Eta]",
|
---|
16030 | RowBox[{
|
---|
16031 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16032 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16033 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16034 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16035 | SubscriptBox[
|
---|
16036 | RowBox[{
|
---|
16037 | SuperscriptBox["\[Gamma]",
|
---|
16038 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
16039 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16040 | RowBox[{
|
---|
16041 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16042 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16043 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "+",
|
---|
16044 | FractionBox[
|
---|
16045 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
16046 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16047 | SubscriptBox["\[Delta]",
|
---|
16048 | RowBox[{
|
---|
16049 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16050 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16051 | SubscriptBox["\[Eta]",
|
---|
16052 | RowBox[{
|
---|
16053 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16054 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16055 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16056 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16057 | SubscriptBox[
|
---|
16058 | RowBox[{
|
---|
16059 | SuperscriptBox["\[Gamma]",
|
---|
16060 | SubscriptBox["\<\"\[Mu]\"\>", "1"]], ".",
|
---|
16061 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
16062 | RowBox[{
|
---|
16063 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16064 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16065 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
16066 | FractionBox[
|
---|
16067 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16068 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16069 | SubscriptBox["\[Delta]",
|
---|
16070 | RowBox[{
|
---|
16071 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16072 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16073 | SubscriptBox["\[Eta]",
|
---|
16074 | RowBox[{
|
---|
16075 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
16076 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16077 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16078 | SubscriptBox[
|
---|
16079 | RowBox[{
|
---|
16080 | SuperscriptBox["\[Gamma]",
|
---|
16081 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16082 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16083 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16084 | RowBox[{
|
---|
16085 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16086 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16087 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
16088 | FractionBox[
|
---|
16089 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16090 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16091 | SubscriptBox["\[Delta]",
|
---|
16092 | RowBox[{
|
---|
16093 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16094 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16095 | SubscriptBox["\[Eta]",
|
---|
16096 | RowBox[{
|
---|
16097 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
16098 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16099 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16100 | SubscriptBox[
|
---|
16101 | RowBox[{
|
---|
16102 | SuperscriptBox["\[Gamma]",
|
---|
16103 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16104 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16105 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
16106 | RowBox[{
|
---|
16107 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16108 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16109 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
16110 | FractionBox[
|
---|
16111 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16112 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16113 | SubscriptBox["\[Delta]",
|
---|
16114 | RowBox[{
|
---|
16115 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16116 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16117 | SubscriptBox["\[Eta]",
|
---|
16118 | RowBox[{
|
---|
16119 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
16120 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16121 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16122 | SubscriptBox[
|
---|
16123 | RowBox[{
|
---|
16124 | SuperscriptBox["\[Gamma]",
|
---|
16125 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16126 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16127 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16128 | RowBox[{
|
---|
16129 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16130 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16131 | RowBox[{"3", " ", "\[CapitalLambda]"}]], "-",
|
---|
16132 | FractionBox[
|
---|
16133 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16134 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16135 | SubscriptBox["\[Delta]",
|
---|
16136 | RowBox[{
|
---|
16137 | SubscriptBox["\<\"m\"\>", "2"], ",",
|
---|
16138 | SubscriptBox["\<\"m\"\>", "3"]}]], " ",
|
---|
16139 | SubscriptBox["\[Eta]",
|
---|
16140 | RowBox[{
|
---|
16141 | SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
|
---|
16142 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16143 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16144 | SubscriptBox[
|
---|
16145 | RowBox[{
|
---|
16146 | SuperscriptBox["\[Gamma]",
|
---|
16147 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16148 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16149 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
16150 | RowBox[{
|
---|
16151 | SubscriptBox["\<\"s\"\>", "3"], ",",
|
---|
16152 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16153 | RowBox[{"3", " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
16154 | CellChangeTimes->{
|
---|
16155 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16156 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16157 | 3.58115975083565*^9}],
|
---|
16158 |
|
---|
16159 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16160 | * * * * * *)\"\>"], "Print",
|
---|
16161 | CellChangeTimes->{
|
---|
16162 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16163 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16164 | 3.5811597508430243`*^9}],
|
---|
16165 |
|
---|
16166 | Cell[BoxData[
|
---|
16167 | InterpretationBox[
|
---|
16168 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "100"}],
|
---|
16169 | SequenceForm["Vertex ", 100],
|
---|
16170 | Editable->False]], "Print",
|
---|
16171 | CellChangeTimes->{
|
---|
16172 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16173 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16174 | 3.581159750848928*^9}],
|
---|
16175 |
|
---|
16176 | Cell[BoxData[
|
---|
16177 | InterpretationBox[
|
---|
16178 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16179 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16180 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
16181 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
16182 | Editable->False]], "Print",
|
---|
16183 | CellChangeTimes->{
|
---|
16184 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16185 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16186 | 3.581159750854855*^9}],
|
---|
16187 |
|
---|
16188 | Cell[BoxData[
|
---|
16189 | InterpretationBox[
|
---|
16190 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16191 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16192 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16193 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
16194 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
16195 | Editable->False]], "Print",
|
---|
16196 | CellChangeTimes->{
|
---|
16197 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16198 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16199 | 3.5811597508602324`*^9}],
|
---|
16200 |
|
---|
16201 | Cell[BoxData[
|
---|
16202 | InterpretationBox[
|
---|
16203 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16204 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16205 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16206 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16207 | Editable->False]], "Print",
|
---|
16208 | CellChangeTimes->{
|
---|
16209 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16210 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16211 | 3.581159750865341*^9}],
|
---|
16212 |
|
---|
16213 | Cell[BoxData[
|
---|
16214 | InterpretationBox[
|
---|
16215 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16216 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16217 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16218 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16219 | Editable->False]], "Print",
|
---|
16220 | CellChangeTimes->{
|
---|
16221 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16222 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16223 | 3.581159750870594*^9}],
|
---|
16224 |
|
---|
16225 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16226 | CellChangeTimes->{
|
---|
16227 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16228 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16229 | 3.581159750875499*^9}],
|
---|
16230 |
|
---|
16231 | Cell[BoxData[
|
---|
16232 | RowBox[{
|
---|
16233 | FractionBox[
|
---|
16234 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16235 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16236 | SubscriptBox["\[Eta]",
|
---|
16237 | RowBox[{
|
---|
16238 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16239 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16240 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16241 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16242 | SubscriptBox[
|
---|
16243 | RowBox[{
|
---|
16244 | SuperscriptBox["\[Gamma]",
|
---|
16245 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16246 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16247 | RowBox[{
|
---|
16248 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16249 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16250 | RowBox[{
|
---|
16251 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16252 | SubscriptBox["s", "w"]}]], "-",
|
---|
16253 | FractionBox[
|
---|
16254 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16255 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16256 | SubscriptBox["\[Eta]",
|
---|
16257 | RowBox[{
|
---|
16258 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16259 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16260 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16261 | SubscriptBox[
|
---|
16262 | RowBox[{
|
---|
16263 | SuperscriptBox["\[Gamma]",
|
---|
16264 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16265 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16266 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16267 | RowBox[{
|
---|
16268 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16269 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16270 | RowBox[{"2", " ",
|
---|
16271 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16272 | SubscriptBox["s", "w"]}]], "-",
|
---|
16273 | FractionBox[
|
---|
16274 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16275 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16276 | SubscriptBox["\[Eta]",
|
---|
16277 | RowBox[{
|
---|
16278 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16279 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16280 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16281 | SubscriptBox[
|
---|
16282 | RowBox[{
|
---|
16283 | SuperscriptBox["\[Gamma]",
|
---|
16284 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16285 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16286 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16287 | RowBox[{
|
---|
16288 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16289 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16290 | RowBox[{"2", " ",
|
---|
16291 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16292 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
16293 | CellChangeTimes->{
|
---|
16294 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16295 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16296 | 3.581159750880908*^9}],
|
---|
16297 |
|
---|
16298 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16299 | * * * * * *)\"\>"], "Print",
|
---|
16300 | CellChangeTimes->{
|
---|
16301 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16302 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16303 | 3.581159750887109*^9}],
|
---|
16304 |
|
---|
16305 | Cell[BoxData[
|
---|
16306 | InterpretationBox[
|
---|
16307 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "101"}],
|
---|
16308 | SequenceForm["Vertex ", 101],
|
---|
16309 | Editable->False]], "Print",
|
---|
16310 | CellChangeTimes->{
|
---|
16311 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16312 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16313 | 3.5811597508924103`*^9}],
|
---|
16314 |
|
---|
16315 | Cell[BoxData[
|
---|
16316 | InterpretationBox[
|
---|
16317 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16318 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16319 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
16320 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
16321 | Editable->False]], "Print",
|
---|
16322 | CellChangeTimes->{
|
---|
16323 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16324 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16325 | 3.581159750897233*^9}],
|
---|
16326 |
|
---|
16327 | Cell[BoxData[
|
---|
16328 | InterpretationBox[
|
---|
16329 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16330 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16331 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16332 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
16333 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
16334 | Editable->False]], "Print",
|
---|
16335 | CellChangeTimes->{
|
---|
16336 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16337 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16338 | 3.581159750902163*^9}],
|
---|
16339 |
|
---|
16340 | Cell[BoxData[
|
---|
16341 | InterpretationBox[
|
---|
16342 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16343 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16344 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16345 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16346 | Editable->False]], "Print",
|
---|
16347 | CellChangeTimes->{
|
---|
16348 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16349 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16350 | 3.581159750907178*^9}],
|
---|
16351 |
|
---|
16352 | Cell[BoxData[
|
---|
16353 | InterpretationBox[
|
---|
16354 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16355 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16356 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16357 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16358 | Editable->False]], "Print",
|
---|
16359 | CellChangeTimes->{
|
---|
16360 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16361 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16362 | 3.581159750912505*^9}],
|
---|
16363 |
|
---|
16364 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16365 | CellChangeTimes->{
|
---|
16366 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16367 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16368 | 3.5811597509187183`*^9}],
|
---|
16369 |
|
---|
16370 | Cell[BoxData[
|
---|
16371 | RowBox[{
|
---|
16372 | FractionBox[
|
---|
16373 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16374 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16375 | SubscriptBox["\[Eta]",
|
---|
16376 | RowBox[{
|
---|
16377 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16378 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16379 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16380 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16381 | SubscriptBox[
|
---|
16382 | RowBox[{
|
---|
16383 | SuperscriptBox["\[Gamma]",
|
---|
16384 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16385 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16386 | RowBox[{
|
---|
16387 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16388 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16389 | RowBox[{
|
---|
16390 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16391 | SubscriptBox["s", "w"]}]], "-",
|
---|
16392 | FractionBox[
|
---|
16393 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16394 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16395 | SubscriptBox["\[Eta]",
|
---|
16396 | RowBox[{
|
---|
16397 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16398 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16399 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16400 | SubscriptBox[
|
---|
16401 | RowBox[{
|
---|
16402 | SuperscriptBox["\[Gamma]",
|
---|
16403 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16404 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16405 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16406 | RowBox[{
|
---|
16407 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16408 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16409 | RowBox[{"2", " ",
|
---|
16410 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16411 | SubscriptBox["s", "w"]}]], "-",
|
---|
16412 | FractionBox[
|
---|
16413 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16414 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16415 | SubscriptBox["\[Eta]",
|
---|
16416 | RowBox[{
|
---|
16417 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16418 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16419 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16420 | SubscriptBox[
|
---|
16421 | RowBox[{
|
---|
16422 | SuperscriptBox["\[Gamma]",
|
---|
16423 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16424 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16425 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16426 | RowBox[{
|
---|
16427 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16428 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16429 | RowBox[{"2", " ",
|
---|
16430 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16431 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
16432 | CellChangeTimes->{
|
---|
16433 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16434 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16435 | 3.581159750925975*^9}],
|
---|
16436 |
|
---|
16437 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16438 | * * * * * *)\"\>"], "Print",
|
---|
16439 | CellChangeTimes->{
|
---|
16440 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16441 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16442 | 3.581159750932148*^9}],
|
---|
16443 |
|
---|
16444 | Cell[BoxData[
|
---|
16445 | InterpretationBox[
|
---|
16446 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "102"}],
|
---|
16447 | SequenceForm["Vertex ", 102],
|
---|
16448 | Editable->False]], "Print",
|
---|
16449 | CellChangeTimes->{
|
---|
16450 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16451 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16452 | 3.581159750937517*^9}],
|
---|
16453 |
|
---|
16454 | Cell[BoxData[
|
---|
16455 | InterpretationBox[
|
---|
16456 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16457 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16458 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
16459 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
16460 | Editable->False]], "Print",
|
---|
16461 | CellChangeTimes->{
|
---|
16462 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16463 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16464 | 3.581159750942732*^9}],
|
---|
16465 |
|
---|
16466 | Cell[BoxData[
|
---|
16467 | InterpretationBox[
|
---|
16468 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16469 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16470 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16471 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
16472 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
16473 | Editable->False]], "Print",
|
---|
16474 | CellChangeTimes->{
|
---|
16475 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16476 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16477 | 3.581159750948492*^9}],
|
---|
16478 |
|
---|
16479 | Cell[BoxData[
|
---|
16480 | InterpretationBox[
|
---|
16481 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16482 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16483 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16484 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16485 | Editable->False]], "Print",
|
---|
16486 | CellChangeTimes->{
|
---|
16487 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16488 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16489 | 3.581159750953829*^9}],
|
---|
16490 |
|
---|
16491 | Cell[BoxData[
|
---|
16492 | InterpretationBox[
|
---|
16493 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16494 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16495 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16496 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16497 | Editable->False]], "Print",
|
---|
16498 | CellChangeTimes->{
|
---|
16499 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16500 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16501 | 3.581159750959221*^9}],
|
---|
16502 |
|
---|
16503 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16504 | CellChangeTimes->{
|
---|
16505 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16506 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16507 | 3.581159750964243*^9}],
|
---|
16508 |
|
---|
16509 | Cell[BoxData[
|
---|
16510 | RowBox[{
|
---|
16511 | FractionBox[
|
---|
16512 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16513 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16514 | SubscriptBox["\[Eta]",
|
---|
16515 | RowBox[{
|
---|
16516 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16517 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16518 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16519 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16520 | SubscriptBox[
|
---|
16521 | RowBox[{
|
---|
16522 | SuperscriptBox["\[Gamma]",
|
---|
16523 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16524 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16525 | RowBox[{
|
---|
16526 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16527 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16528 | RowBox[{
|
---|
16529 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16530 | SubscriptBox["s", "w"]}]], "-",
|
---|
16531 | FractionBox[
|
---|
16532 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16533 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16534 | SubscriptBox["\[Eta]",
|
---|
16535 | RowBox[{
|
---|
16536 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16537 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16538 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16539 | SubscriptBox[
|
---|
16540 | RowBox[{
|
---|
16541 | SuperscriptBox["\[Gamma]",
|
---|
16542 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16543 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16544 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16545 | RowBox[{
|
---|
16546 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16547 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16548 | RowBox[{"2", " ",
|
---|
16549 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16550 | SubscriptBox["s", "w"]}]], "-",
|
---|
16551 | FractionBox[
|
---|
16552 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16553 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
16554 | SubscriptBox["\[Eta]",
|
---|
16555 | RowBox[{
|
---|
16556 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16557 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16558 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16559 | SubscriptBox[
|
---|
16560 | RowBox[{
|
---|
16561 | SuperscriptBox["\[Gamma]",
|
---|
16562 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16563 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16564 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16565 | RowBox[{
|
---|
16566 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16567 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16568 | RowBox[{"2", " ",
|
---|
16569 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16570 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
16571 | CellChangeTimes->{
|
---|
16572 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16573 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16574 | 3.581159750969573*^9}],
|
---|
16575 |
|
---|
16576 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16577 | * * * * * *)\"\>"], "Print",
|
---|
16578 | CellChangeTimes->{
|
---|
16579 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16580 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16581 | 3.581159750975477*^9}],
|
---|
16582 |
|
---|
16583 | Cell[BoxData[
|
---|
16584 | InterpretationBox[
|
---|
16585 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "103"}],
|
---|
16586 | SequenceForm["Vertex ", 103],
|
---|
16587 | Editable->False]], "Print",
|
---|
16588 | CellChangeTimes->{
|
---|
16589 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16590 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16591 | 3.581159750983247*^9}],
|
---|
16592 |
|
---|
16593 | Cell[BoxData[
|
---|
16594 | InterpretationBox[
|
---|
16595 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16596 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16597 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16598 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
16599 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
16600 | Editable->False]], "Print",
|
---|
16601 | CellChangeTimes->{
|
---|
16602 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16603 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16604 | 3.581159750990361*^9}],
|
---|
16605 |
|
---|
16606 | Cell[BoxData[
|
---|
16607 | InterpretationBox[
|
---|
16608 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16609 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16610 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
16611 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`d],
|
---|
16612 | Editable->False]], "Print",
|
---|
16613 | CellChangeTimes->{
|
---|
16614 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16615 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16616 | 3.5811597510145807`*^9}],
|
---|
16617 |
|
---|
16618 | Cell[BoxData[
|
---|
16619 | InterpretationBox[
|
---|
16620 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16621 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16622 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16623 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16624 | Editable->False]], "Print",
|
---|
16625 | CellChangeTimes->{
|
---|
16626 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16627 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16628 | 3.581159751030657*^9}],
|
---|
16629 |
|
---|
16630 | Cell[BoxData[
|
---|
16631 | InterpretationBox[
|
---|
16632 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16633 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16634 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16635 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16636 | Editable->False]], "Print",
|
---|
16637 | CellChangeTimes->{
|
---|
16638 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16639 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16640 | 3.5811597510379*^9}],
|
---|
16641 |
|
---|
16642 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16643 | CellChangeTimes->{
|
---|
16644 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16645 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16646 | 3.581159751056653*^9}],
|
---|
16647 |
|
---|
16648 | Cell[BoxData[
|
---|
16649 | RowBox[{
|
---|
16650 | FractionBox[
|
---|
16651 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16652 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16653 | SubscriptBox[
|
---|
16654 | TemplateBox[{"V","CKM"},
|
---|
16655 | "Superscript"],
|
---|
16656 | RowBox[{"2", ",", "1"}]], " ",
|
---|
16657 | SubscriptBox["\[Delta]",
|
---|
16658 | RowBox[{
|
---|
16659 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16660 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16661 | SubscriptBox["\[Eta]",
|
---|
16662 | RowBox[{
|
---|
16663 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16664 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16665 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16666 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16667 | SubscriptBox[
|
---|
16668 | RowBox[{
|
---|
16669 | SuperscriptBox["\[Gamma]",
|
---|
16670 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16671 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16672 | RowBox[{
|
---|
16673 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16674 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16675 | RowBox[{
|
---|
16676 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16677 | SubscriptBox["s", "w"]}]], "-",
|
---|
16678 | FractionBox[
|
---|
16679 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16680 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16681 | SubscriptBox[
|
---|
16682 | TemplateBox[{"V","CKM"},
|
---|
16683 | "Superscript"],
|
---|
16684 | RowBox[{"2", ",", "1"}]], " ",
|
---|
16685 | SubscriptBox["\[Delta]",
|
---|
16686 | RowBox[{
|
---|
16687 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16688 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16689 | SubscriptBox["\[Eta]",
|
---|
16690 | RowBox[{
|
---|
16691 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16692 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16693 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16694 | SubscriptBox[
|
---|
16695 | RowBox[{
|
---|
16696 | SuperscriptBox["\[Gamma]",
|
---|
16697 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16698 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16699 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16700 | RowBox[{
|
---|
16701 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16702 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16703 | RowBox[{"2", " ",
|
---|
16704 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16705 | SubscriptBox["s", "w"]}]], "-",
|
---|
16706 | FractionBox[
|
---|
16707 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16708 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16709 | SubscriptBox[
|
---|
16710 | TemplateBox[{"V","CKM"},
|
---|
16711 | "Superscript"],
|
---|
16712 | RowBox[{"2", ",", "1"}]], " ",
|
---|
16713 | SubscriptBox["\[Delta]",
|
---|
16714 | RowBox[{
|
---|
16715 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16716 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16717 | SubscriptBox["\[Eta]",
|
---|
16718 | RowBox[{
|
---|
16719 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16720 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16721 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16722 | SubscriptBox[
|
---|
16723 | RowBox[{
|
---|
16724 | SuperscriptBox["\[Gamma]",
|
---|
16725 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16726 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16727 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16728 | RowBox[{
|
---|
16729 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16730 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16731 | RowBox[{"2", " ",
|
---|
16732 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16733 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
16734 | CellChangeTimes->{
|
---|
16735 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16736 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16737 | 3.581159751077548*^9}],
|
---|
16738 |
|
---|
16739 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16740 | * * * * * *)\"\>"], "Print",
|
---|
16741 | CellChangeTimes->{
|
---|
16742 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16743 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16744 | 3.581159751099436*^9}],
|
---|
16745 |
|
---|
16746 | Cell[BoxData[
|
---|
16747 | InterpretationBox[
|
---|
16748 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "104"}],
|
---|
16749 | SequenceForm["Vertex ", 104],
|
---|
16750 | Editable->False]], "Print",
|
---|
16751 | CellChangeTimes->{
|
---|
16752 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16753 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16754 | 3.5811597511043453`*^9}],
|
---|
16755 |
|
---|
16756 | Cell[BoxData[
|
---|
16757 | InterpretationBox[
|
---|
16758 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16759 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16760 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16761 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
16762 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
16763 | Editable->False]], "Print",
|
---|
16764 | CellChangeTimes->{
|
---|
16765 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16766 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16767 | 3.5811597511096487`*^9}],
|
---|
16768 |
|
---|
16769 | Cell[BoxData[
|
---|
16770 | InterpretationBox[
|
---|
16771 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16772 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16773 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
16774 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`s],
|
---|
16775 | Editable->False]], "Print",
|
---|
16776 | CellChangeTimes->{
|
---|
16777 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16778 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16779 | 3.581159751115182*^9}],
|
---|
16780 |
|
---|
16781 | Cell[BoxData[
|
---|
16782 | InterpretationBox[
|
---|
16783 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16784 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16785 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16786 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16787 | Editable->False]], "Print",
|
---|
16788 | CellChangeTimes->{
|
---|
16789 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16790 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16791 | 3.58115975112*^9}],
|
---|
16792 |
|
---|
16793 | Cell[BoxData[
|
---|
16794 | InterpretationBox[
|
---|
16795 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16796 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16797 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16798 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16799 | Editable->False]], "Print",
|
---|
16800 | CellChangeTimes->{
|
---|
16801 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16802 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16803 | 3.581159751124807*^9}],
|
---|
16804 |
|
---|
16805 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16806 | CellChangeTimes->{
|
---|
16807 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16808 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16809 | 3.581159751129573*^9}],
|
---|
16810 |
|
---|
16811 | Cell[BoxData[
|
---|
16812 | RowBox[{
|
---|
16813 | FractionBox[
|
---|
16814 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16815 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16816 | SubscriptBox[
|
---|
16817 | TemplateBox[{"V","CKM"},
|
---|
16818 | "Superscript"],
|
---|
16819 | RowBox[{"2", ",", "2"}]], " ",
|
---|
16820 | SubscriptBox["\[Delta]",
|
---|
16821 | RowBox[{
|
---|
16822 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16823 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16824 | SubscriptBox["\[Eta]",
|
---|
16825 | RowBox[{
|
---|
16826 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16827 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16828 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16829 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16830 | SubscriptBox[
|
---|
16831 | RowBox[{
|
---|
16832 | SuperscriptBox["\[Gamma]",
|
---|
16833 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16834 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16835 | RowBox[{
|
---|
16836 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16837 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16838 | RowBox[{
|
---|
16839 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16840 | SubscriptBox["s", "w"]}]], "-",
|
---|
16841 | FractionBox[
|
---|
16842 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16843 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16844 | SubscriptBox[
|
---|
16845 | TemplateBox[{"V","CKM"},
|
---|
16846 | "Superscript"],
|
---|
16847 | RowBox[{"2", ",", "2"}]], " ",
|
---|
16848 | SubscriptBox["\[Delta]",
|
---|
16849 | RowBox[{
|
---|
16850 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16851 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16852 | SubscriptBox["\[Eta]",
|
---|
16853 | RowBox[{
|
---|
16854 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16855 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16856 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16857 | SubscriptBox[
|
---|
16858 | RowBox[{
|
---|
16859 | SuperscriptBox["\[Gamma]",
|
---|
16860 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16861 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
16862 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16863 | RowBox[{
|
---|
16864 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16865 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16866 | RowBox[{"2", " ",
|
---|
16867 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16868 | SubscriptBox["s", "w"]}]], "-",
|
---|
16869 | FractionBox[
|
---|
16870 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16871 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16872 | SubscriptBox[
|
---|
16873 | TemplateBox[{"V","CKM"},
|
---|
16874 | "Superscript"],
|
---|
16875 | RowBox[{"2", ",", "2"}]], " ",
|
---|
16876 | SubscriptBox["\[Delta]",
|
---|
16877 | RowBox[{
|
---|
16878 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16879 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16880 | SubscriptBox["\[Eta]",
|
---|
16881 | RowBox[{
|
---|
16882 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
16883 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16884 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
16885 | SubscriptBox[
|
---|
16886 | RowBox[{
|
---|
16887 | SuperscriptBox["\[Gamma]",
|
---|
16888 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16889 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
16890 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16891 | RowBox[{
|
---|
16892 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
16893 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
16894 | RowBox[{"2", " ",
|
---|
16895 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16896 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
16897 | CellChangeTimes->{
|
---|
16898 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16899 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16900 | 3.581159751134987*^9}],
|
---|
16901 |
|
---|
16902 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
16903 | * * * * * *)\"\>"], "Print",
|
---|
16904 | CellChangeTimes->{
|
---|
16905 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16906 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16907 | 3.581159751143427*^9}],
|
---|
16908 |
|
---|
16909 | Cell[BoxData[
|
---|
16910 | InterpretationBox[
|
---|
16911 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "105"}],
|
---|
16912 | SequenceForm["Vertex ", 105],
|
---|
16913 | Editable->False]], "Print",
|
---|
16914 | CellChangeTimes->{
|
---|
16915 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16916 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16917 | 3.581159751150565*^9}],
|
---|
16918 |
|
---|
16919 | Cell[BoxData[
|
---|
16920 | InterpretationBox[
|
---|
16921 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
16922 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16923 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
16924 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
16925 | Editable->False]], "Print",
|
---|
16926 | CellChangeTimes->{
|
---|
16927 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16928 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16929 | 3.581159751157159*^9}],
|
---|
16930 |
|
---|
16931 | Cell[BoxData[
|
---|
16932 | InterpretationBox[
|
---|
16933 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
16934 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
16935 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
16936 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
16937 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
16938 | Editable->False]], "Print",
|
---|
16939 | CellChangeTimes->{
|
---|
16940 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16941 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16942 | 3.581159751165197*^9}],
|
---|
16943 |
|
---|
16944 | Cell[BoxData[
|
---|
16945 | InterpretationBox[
|
---|
16946 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
16947 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
16948 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
16949 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
16950 | Editable->False]], "Print",
|
---|
16951 | CellChangeTimes->{
|
---|
16952 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16953 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16954 | 3.5811597511717587`*^9}],
|
---|
16955 |
|
---|
16956 | Cell[BoxData[
|
---|
16957 | InterpretationBox[
|
---|
16958 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
16959 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
16960 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
16961 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
16962 | Editable->False]], "Print",
|
---|
16963 | CellChangeTimes->{
|
---|
16964 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16965 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16966 | 3.5811597511835957`*^9}],
|
---|
16967 |
|
---|
16968 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
16969 | CellChangeTimes->{
|
---|
16970 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
16971 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
16972 | 3.581159751189735*^9}],
|
---|
16973 |
|
---|
16974 | Cell[BoxData[
|
---|
16975 | RowBox[{
|
---|
16976 | FractionBox[
|
---|
16977 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
16978 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
16979 | SubscriptBox["\[Delta]",
|
---|
16980 | RowBox[{
|
---|
16981 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
16982 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
16983 | SubscriptBox["\[Eta]",
|
---|
16984 | RowBox[{
|
---|
16985 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16986 | RowBox[{"4", ",", "1"}]], ",",
|
---|
16987 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
16988 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
16989 | SubscriptBox[
|
---|
16990 | RowBox[{
|
---|
16991 | SuperscriptBox["\[Gamma]",
|
---|
16992 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
16993 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
16994 | RowBox[{
|
---|
16995 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
16996 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
16997 | RowBox[{
|
---|
16998 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
16999 | SubscriptBox["s", "w"]}]], "-",
|
---|
17000 | FractionBox[
|
---|
17001 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17002 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17003 | SubscriptBox["\[Delta]",
|
---|
17004 | RowBox[{
|
---|
17005 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17006 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17007 | SubscriptBox["\[Eta]",
|
---|
17008 | RowBox[{
|
---|
17009 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17010 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17011 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17012 | SubscriptBox[
|
---|
17013 | RowBox[{
|
---|
17014 | SuperscriptBox["\[Gamma]",
|
---|
17015 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17016 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17017 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17018 | RowBox[{
|
---|
17019 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17020 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17021 | RowBox[{"2", " ",
|
---|
17022 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17023 | SubscriptBox["s", "w"]}]], "-",
|
---|
17024 | FractionBox[
|
---|
17025 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17026 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17027 | SubscriptBox["\[Delta]",
|
---|
17028 | RowBox[{
|
---|
17029 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17030 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17031 | SubscriptBox["\[Eta]",
|
---|
17032 | RowBox[{
|
---|
17033 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17034 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17035 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17036 | SubscriptBox[
|
---|
17037 | RowBox[{
|
---|
17038 | SuperscriptBox["\[Gamma]",
|
---|
17039 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17040 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17041 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17042 | RowBox[{
|
---|
17043 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17044 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17045 | RowBox[{"2", " ",
|
---|
17046 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17047 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17048 | CellChangeTimes->{
|
---|
17049 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17050 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17051 | 3.581159751196775*^9}],
|
---|
17052 |
|
---|
17053 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17054 | * * * * * *)\"\>"], "Print",
|
---|
17055 | CellChangeTimes->{
|
---|
17056 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17057 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17058 | 3.581159751229733*^9}],
|
---|
17059 |
|
---|
17060 | Cell[BoxData[
|
---|
17061 | InterpretationBox[
|
---|
17062 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "106"}],
|
---|
17063 | SequenceForm["Vertex ", 106],
|
---|
17064 | Editable->False]], "Print",
|
---|
17065 | CellChangeTimes->{
|
---|
17066 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17067 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17068 | 3.581159751246744*^9}],
|
---|
17069 |
|
---|
17070 | Cell[BoxData[
|
---|
17071 | InterpretationBox[
|
---|
17072 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17073 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17074 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
17075 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
17076 | Editable->False]], "Print",
|
---|
17077 | CellChangeTimes->{
|
---|
17078 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17079 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17080 | 3.5811597512527037`*^9}],
|
---|
17081 |
|
---|
17082 | Cell[BoxData[
|
---|
17083 | InterpretationBox[
|
---|
17084 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17085 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17086 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17087 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
17088 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
17089 | Editable->False]], "Print",
|
---|
17090 | CellChangeTimes->{
|
---|
17091 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17092 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17093 | 3.581159751269352*^9}],
|
---|
17094 |
|
---|
17095 | Cell[BoxData[
|
---|
17096 | InterpretationBox[
|
---|
17097 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17098 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17099 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
17100 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
17101 | Editable->False]], "Print",
|
---|
17102 | CellChangeTimes->{
|
---|
17103 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17104 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17105 | 3.581159751285987*^9}],
|
---|
17106 |
|
---|
17107 | Cell[BoxData[
|
---|
17108 | InterpretationBox[
|
---|
17109 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17110 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17111 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17112 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17113 | Editable->False]], "Print",
|
---|
17114 | CellChangeTimes->{
|
---|
17115 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17116 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17117 | 3.581159751292186*^9}],
|
---|
17118 |
|
---|
17119 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17120 | CellChangeTimes->{
|
---|
17121 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17122 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17123 | 3.581159751308352*^9}],
|
---|
17124 |
|
---|
17125 | Cell[BoxData[
|
---|
17126 | RowBox[{
|
---|
17127 | FractionBox[
|
---|
17128 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17129 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17130 | SubscriptBox[
|
---|
17131 | TemplateBox[{"V","CKM"},
|
---|
17132 | "Superscript"],
|
---|
17133 | RowBox[{"1", ",", "1"}]], " ",
|
---|
17134 | SubscriptBox["\[Delta]",
|
---|
17135 | RowBox[{
|
---|
17136 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17137 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17138 | SubscriptBox["\[Eta]",
|
---|
17139 | RowBox[{
|
---|
17140 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17141 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17142 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17143 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17144 | SubscriptBox[
|
---|
17145 | RowBox[{
|
---|
17146 | SuperscriptBox["\[Gamma]",
|
---|
17147 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17148 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17149 | RowBox[{
|
---|
17150 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17151 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17152 | RowBox[{
|
---|
17153 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17154 | SubscriptBox["s", "w"]}]], "-",
|
---|
17155 | FractionBox[
|
---|
17156 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17157 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17158 | SubscriptBox[
|
---|
17159 | TemplateBox[{"V","CKM"},
|
---|
17160 | "Superscript"],
|
---|
17161 | RowBox[{"1", ",", "1"}]], " ",
|
---|
17162 | SubscriptBox["\[Delta]",
|
---|
17163 | RowBox[{
|
---|
17164 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17165 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17166 | SubscriptBox["\[Eta]",
|
---|
17167 | RowBox[{
|
---|
17168 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17169 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17170 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17171 | SubscriptBox[
|
---|
17172 | RowBox[{
|
---|
17173 | SuperscriptBox["\[Gamma]",
|
---|
17174 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17175 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17176 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17177 | RowBox[{
|
---|
17178 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17179 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17180 | RowBox[{"2", " ",
|
---|
17181 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17182 | SubscriptBox["s", "w"]}]], "-",
|
---|
17183 | FractionBox[
|
---|
17184 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17185 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17186 | SubscriptBox[
|
---|
17187 | TemplateBox[{"V","CKM"},
|
---|
17188 | "Superscript"],
|
---|
17189 | RowBox[{"1", ",", "1"}]], " ",
|
---|
17190 | SubscriptBox["\[Delta]",
|
---|
17191 | RowBox[{
|
---|
17192 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17193 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17194 | SubscriptBox["\[Eta]",
|
---|
17195 | RowBox[{
|
---|
17196 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17197 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17198 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17199 | SubscriptBox[
|
---|
17200 | RowBox[{
|
---|
17201 | SuperscriptBox["\[Gamma]",
|
---|
17202 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17203 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17204 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17205 | RowBox[{
|
---|
17206 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17207 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17208 | RowBox[{"2", " ",
|
---|
17209 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17210 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17211 | CellChangeTimes->{
|
---|
17212 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17213 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17214 | 3.581159751325671*^9}],
|
---|
17215 |
|
---|
17216 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17217 | * * * * * *)\"\>"], "Print",
|
---|
17218 | CellChangeTimes->{
|
---|
17219 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17220 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17221 | 3.581159751333612*^9}],
|
---|
17222 |
|
---|
17223 | Cell[BoxData[
|
---|
17224 | InterpretationBox[
|
---|
17225 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "107"}],
|
---|
17226 | SequenceForm["Vertex ", 107],
|
---|
17227 | Editable->False]], "Print",
|
---|
17228 | CellChangeTimes->{
|
---|
17229 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17230 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17231 | 3.581159751350206*^9}],
|
---|
17232 |
|
---|
17233 | Cell[BoxData[
|
---|
17234 | InterpretationBox[
|
---|
17235 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17236 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17237 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
17238 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
17239 | Editable->False]], "Print",
|
---|
17240 | CellChangeTimes->{
|
---|
17241 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17242 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17243 | 3.581159751356124*^9}],
|
---|
17244 |
|
---|
17245 | Cell[BoxData[
|
---|
17246 | InterpretationBox[
|
---|
17247 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17248 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17249 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17250 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
17251 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
17252 | Editable->False]], "Print",
|
---|
17253 | CellChangeTimes->{
|
---|
17254 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17255 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17256 | 3.581159751361368*^9}],
|
---|
17257 |
|
---|
17258 | Cell[BoxData[
|
---|
17259 | InterpretationBox[
|
---|
17260 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17261 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17262 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "W"}],
|
---|
17263 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", FeynRules`W],
|
---|
17264 | Editable->False]], "Print",
|
---|
17265 | CellChangeTimes->{
|
---|
17266 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17267 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17268 | 3.5811597513669558`*^9}],
|
---|
17269 |
|
---|
17270 | Cell[BoxData[
|
---|
17271 | InterpretationBox[
|
---|
17272 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17273 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17274 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17275 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17276 | Editable->False]], "Print",
|
---|
17277 | CellChangeTimes->{
|
---|
17278 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17279 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17280 | 3.58115975137325*^9}],
|
---|
17281 |
|
---|
17282 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17283 | CellChangeTimes->{
|
---|
17284 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17285 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17286 | 3.5811597513857403`*^9}],
|
---|
17287 |
|
---|
17288 | Cell[BoxData[
|
---|
17289 | RowBox[{
|
---|
17290 | FractionBox[
|
---|
17291 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17292 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17293 | SubscriptBox[
|
---|
17294 | TemplateBox[{"V","CKM"},
|
---|
17295 | "Superscript"],
|
---|
17296 | RowBox[{"1", ",", "2"}]], " ",
|
---|
17297 | SubscriptBox["\[Delta]",
|
---|
17298 | RowBox[{
|
---|
17299 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17300 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17301 | SubscriptBox["\[Eta]",
|
---|
17302 | RowBox[{
|
---|
17303 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17304 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17305 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17306 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17307 | SubscriptBox[
|
---|
17308 | RowBox[{
|
---|
17309 | SuperscriptBox["\[Gamma]",
|
---|
17310 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17311 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17312 | RowBox[{
|
---|
17313 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17314 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17315 | RowBox[{
|
---|
17316 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17317 | SubscriptBox["s", "w"]}]], "-",
|
---|
17318 | FractionBox[
|
---|
17319 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17320 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17321 | SubscriptBox[
|
---|
17322 | TemplateBox[{"V","CKM"},
|
---|
17323 | "Superscript"],
|
---|
17324 | RowBox[{"1", ",", "2"}]], " ",
|
---|
17325 | SubscriptBox["\[Delta]",
|
---|
17326 | RowBox[{
|
---|
17327 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17328 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17329 | SubscriptBox["\[Eta]",
|
---|
17330 | RowBox[{
|
---|
17331 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17332 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17333 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17334 | SubscriptBox[
|
---|
17335 | RowBox[{
|
---|
17336 | SuperscriptBox["\[Gamma]",
|
---|
17337 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17338 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17339 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17340 | RowBox[{
|
---|
17341 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17342 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17343 | RowBox[{"2", " ",
|
---|
17344 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17345 | SubscriptBox["s", "w"]}]], "-",
|
---|
17346 | FractionBox[
|
---|
17347 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17348 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17349 | SubscriptBox[
|
---|
17350 | TemplateBox[{"V","CKM"},
|
---|
17351 | "Superscript"],
|
---|
17352 | RowBox[{"1", ",", "2"}]], " ",
|
---|
17353 | SubscriptBox["\[Delta]",
|
---|
17354 | RowBox[{
|
---|
17355 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17356 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17357 | SubscriptBox["\[Eta]",
|
---|
17358 | RowBox[{
|
---|
17359 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17360 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17361 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17362 | SubscriptBox[
|
---|
17363 | RowBox[{
|
---|
17364 | SuperscriptBox["\[Gamma]",
|
---|
17365 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17366 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17367 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17368 | RowBox[{
|
---|
17369 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
17370 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
17371 | RowBox[{"2", " ",
|
---|
17372 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17373 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17374 | CellChangeTimes->{
|
---|
17375 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17376 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17377 | 3.581159751392658*^9}],
|
---|
17378 |
|
---|
17379 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17380 | * * * * * *)\"\>"], "Print",
|
---|
17381 | CellChangeTimes->{
|
---|
17382 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17383 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17384 | 3.581159751402533*^9}],
|
---|
17385 |
|
---|
17386 | Cell[BoxData[
|
---|
17387 | InterpretationBox[
|
---|
17388 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "108"}],
|
---|
17389 | SequenceForm["Vertex ", 108],
|
---|
17390 | Editable->False]], "Print",
|
---|
17391 | CellChangeTimes->{
|
---|
17392 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17393 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17394 | 3.581159751407576*^9}],
|
---|
17395 |
|
---|
17396 | Cell[BoxData[
|
---|
17397 | InterpretationBox[
|
---|
17398 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17399 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17400 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17401 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
17402 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
17403 | Editable->False]], "Print",
|
---|
17404 | CellChangeTimes->{
|
---|
17405 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17406 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17407 | 3.581159751414915*^9}],
|
---|
17408 |
|
---|
17409 | Cell[BoxData[
|
---|
17410 | InterpretationBox[
|
---|
17411 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17412 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17413 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
17414 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
17415 | Editable->False]], "Print",
|
---|
17416 | CellChangeTimes->{
|
---|
17417 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17418 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17419 | 3.581159751421699*^9}],
|
---|
17420 |
|
---|
17421 | Cell[BoxData[
|
---|
17422 | InterpretationBox[
|
---|
17423 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17424 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17425 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17426 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
17427 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
17428 | Editable->False]], "Print",
|
---|
17429 | CellChangeTimes->{
|
---|
17430 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17431 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17432 | 3.581159751439002*^9}],
|
---|
17433 |
|
---|
17434 | Cell[BoxData[
|
---|
17435 | InterpretationBox[
|
---|
17436 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17437 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17438 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17439 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17440 | Editable->False]], "Print",
|
---|
17441 | CellChangeTimes->{
|
---|
17442 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17443 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17444 | 3.5811597514504147`*^9}],
|
---|
17445 |
|
---|
17446 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17447 | CellChangeTimes->{
|
---|
17448 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17449 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17450 | 3.581159751456655*^9}],
|
---|
17451 |
|
---|
17452 | Cell[BoxData[
|
---|
17453 | RowBox[{
|
---|
17454 | FractionBox[
|
---|
17455 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17456 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17457 | SubscriptBox["\[Eta]",
|
---|
17458 | RowBox[{
|
---|
17459 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17460 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17461 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17462 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17463 | SubscriptBox[
|
---|
17464 | RowBox[{
|
---|
17465 | SuperscriptBox["\[Gamma]",
|
---|
17466 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17467 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17468 | RowBox[{
|
---|
17469 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17470 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17471 | RowBox[{
|
---|
17472 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17473 | SubscriptBox["s", "w"]}]], "-",
|
---|
17474 | FractionBox[
|
---|
17475 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17476 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17477 | SubscriptBox["\[Eta]",
|
---|
17478 | RowBox[{
|
---|
17479 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17480 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17481 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17482 | SubscriptBox[
|
---|
17483 | RowBox[{
|
---|
17484 | SuperscriptBox["\[Gamma]",
|
---|
17485 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17486 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17487 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17488 | RowBox[{
|
---|
17489 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17490 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17491 | RowBox[{"2", " ",
|
---|
17492 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17493 | SubscriptBox["s", "w"]}]], "-",
|
---|
17494 | FractionBox[
|
---|
17495 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17496 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17497 | SubscriptBox["\[Eta]",
|
---|
17498 | RowBox[{
|
---|
17499 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17500 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17501 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17502 | SubscriptBox[
|
---|
17503 | RowBox[{
|
---|
17504 | SuperscriptBox["\[Gamma]",
|
---|
17505 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17506 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17507 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17508 | RowBox[{
|
---|
17509 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17510 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17511 | RowBox[{"2", " ",
|
---|
17512 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17513 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17514 | CellChangeTimes->{
|
---|
17515 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17516 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17517 | 3.581159751466588*^9}],
|
---|
17518 |
|
---|
17519 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17520 | * * * * * *)\"\>"], "Print",
|
---|
17521 | CellChangeTimes->{
|
---|
17522 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17523 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17524 | 3.5811597514804087`*^9}],
|
---|
17525 |
|
---|
17526 | Cell[BoxData[
|
---|
17527 | InterpretationBox[
|
---|
17528 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "109"}],
|
---|
17529 | SequenceForm["Vertex ", 109],
|
---|
17530 | Editable->False]], "Print",
|
---|
17531 | CellChangeTimes->{
|
---|
17532 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17533 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17534 | 3.5811597514865503`*^9}],
|
---|
17535 |
|
---|
17536 | Cell[BoxData[
|
---|
17537 | InterpretationBox[
|
---|
17538 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17539 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17540 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17541 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
17542 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
17543 | Editable->False]], "Print",
|
---|
17544 | CellChangeTimes->{
|
---|
17545 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17546 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17547 | 3.58115975149284*^9}],
|
---|
17548 |
|
---|
17549 | Cell[BoxData[
|
---|
17550 | InterpretationBox[
|
---|
17551 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17552 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17553 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
17554 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
17555 | Editable->False]], "Print",
|
---|
17556 | CellChangeTimes->{
|
---|
17557 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17558 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17559 | 3.581159751498514*^9}],
|
---|
17560 |
|
---|
17561 | Cell[BoxData[
|
---|
17562 | InterpretationBox[
|
---|
17563 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17564 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17565 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17566 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
17567 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
17568 | Editable->False]], "Print",
|
---|
17569 | CellChangeTimes->{
|
---|
17570 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17571 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17572 | 3.581159751504418*^9}],
|
---|
17573 |
|
---|
17574 | Cell[BoxData[
|
---|
17575 | InterpretationBox[
|
---|
17576 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17577 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17578 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17579 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17580 | Editable->False]], "Print",
|
---|
17581 | CellChangeTimes->{
|
---|
17582 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17583 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17584 | 3.581159751510831*^9}],
|
---|
17585 |
|
---|
17586 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17587 | CellChangeTimes->{
|
---|
17588 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17589 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17590 | 3.58115975151626*^9}],
|
---|
17591 |
|
---|
17592 | Cell[BoxData[
|
---|
17593 | RowBox[{
|
---|
17594 | FractionBox[
|
---|
17595 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17596 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17597 | SubscriptBox["\[Eta]",
|
---|
17598 | RowBox[{
|
---|
17599 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17600 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17601 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17602 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17603 | SubscriptBox[
|
---|
17604 | RowBox[{
|
---|
17605 | SuperscriptBox["\[Gamma]",
|
---|
17606 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17607 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17608 | RowBox[{
|
---|
17609 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17610 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17611 | RowBox[{
|
---|
17612 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17613 | SubscriptBox["s", "w"]}]], "-",
|
---|
17614 | FractionBox[
|
---|
17615 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17616 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17617 | SubscriptBox["\[Eta]",
|
---|
17618 | RowBox[{
|
---|
17619 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17620 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17621 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17622 | SubscriptBox[
|
---|
17623 | RowBox[{
|
---|
17624 | SuperscriptBox["\[Gamma]",
|
---|
17625 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17626 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17627 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17628 | RowBox[{
|
---|
17629 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17630 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17631 | RowBox[{"2", " ",
|
---|
17632 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17633 | SubscriptBox["s", "w"]}]], "-",
|
---|
17634 | FractionBox[
|
---|
17635 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17636 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17637 | SubscriptBox["\[Eta]",
|
---|
17638 | RowBox[{
|
---|
17639 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17640 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17641 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17642 | SubscriptBox[
|
---|
17643 | RowBox[{
|
---|
17644 | SuperscriptBox["\[Gamma]",
|
---|
17645 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17646 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17647 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17648 | RowBox[{
|
---|
17649 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17650 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17651 | RowBox[{"2", " ",
|
---|
17652 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17653 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17654 | CellChangeTimes->{
|
---|
17655 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17656 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17657 | 3.5811597515216427`*^9}],
|
---|
17658 |
|
---|
17659 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17660 | * * * * * *)\"\>"], "Print",
|
---|
17661 | CellChangeTimes->{
|
---|
17662 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17663 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17664 | 3.581159751529324*^9}],
|
---|
17665 |
|
---|
17666 | Cell[BoxData[
|
---|
17667 | InterpretationBox[
|
---|
17668 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "110"}],
|
---|
17669 | SequenceForm["Vertex ", 110],
|
---|
17670 | Editable->False]], "Print",
|
---|
17671 | CellChangeTimes->{
|
---|
17672 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17673 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17674 | 3.581159751535207*^9}],
|
---|
17675 |
|
---|
17676 | Cell[BoxData[
|
---|
17677 | InterpretationBox[
|
---|
17678 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17679 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17680 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17681 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
17682 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
17683 | Editable->False]], "Print",
|
---|
17684 | CellChangeTimes->{
|
---|
17685 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17686 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17687 | 3.581159751540811*^9}],
|
---|
17688 |
|
---|
17689 | Cell[BoxData[
|
---|
17690 | InterpretationBox[
|
---|
17691 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17692 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17693 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
17694 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
17695 | Editable->False]], "Print",
|
---|
17696 | CellChangeTimes->{
|
---|
17697 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17698 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17699 | 3.581159751550469*^9}],
|
---|
17700 |
|
---|
17701 | Cell[BoxData[
|
---|
17702 | InterpretationBox[
|
---|
17703 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17704 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17705 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17706 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
17707 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
17708 | Editable->False]], "Print",
|
---|
17709 | CellChangeTimes->{
|
---|
17710 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17711 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17712 | 3.581159751555825*^9}],
|
---|
17713 |
|
---|
17714 | Cell[BoxData[
|
---|
17715 | InterpretationBox[
|
---|
17716 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17717 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17718 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17719 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17720 | Editable->False]], "Print",
|
---|
17721 | CellChangeTimes->{
|
---|
17722 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17723 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17724 | 3.581159751562154*^9}],
|
---|
17725 |
|
---|
17726 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17727 | CellChangeTimes->{
|
---|
17728 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17729 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17730 | 3.581159751570097*^9}],
|
---|
17731 |
|
---|
17732 | Cell[BoxData[
|
---|
17733 | RowBox[{
|
---|
17734 | FractionBox[
|
---|
17735 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17736 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17737 | SubscriptBox["\[Eta]",
|
---|
17738 | RowBox[{
|
---|
17739 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17740 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17741 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17742 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17743 | SubscriptBox[
|
---|
17744 | RowBox[{
|
---|
17745 | SuperscriptBox["\[Gamma]",
|
---|
17746 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17747 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17748 | RowBox[{
|
---|
17749 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17750 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17751 | RowBox[{
|
---|
17752 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17753 | SubscriptBox["s", "w"]}]], "-",
|
---|
17754 | FractionBox[
|
---|
17755 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17756 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17757 | SubscriptBox["\[Eta]",
|
---|
17758 | RowBox[{
|
---|
17759 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17760 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17761 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17762 | SubscriptBox[
|
---|
17763 | RowBox[{
|
---|
17764 | SuperscriptBox["\[Gamma]",
|
---|
17765 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17766 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17767 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17768 | RowBox[{
|
---|
17769 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17770 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17771 | RowBox[{"2", " ",
|
---|
17772 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17773 | SubscriptBox["s", "w"]}]], "-",
|
---|
17774 | FractionBox[
|
---|
17775 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17776 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
17777 | SubscriptBox["\[Eta]",
|
---|
17778 | RowBox[{
|
---|
17779 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17780 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17781 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17782 | SubscriptBox[
|
---|
17783 | RowBox[{
|
---|
17784 | SuperscriptBox["\[Gamma]",
|
---|
17785 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17786 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17787 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17788 | RowBox[{
|
---|
17789 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17790 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17791 | RowBox[{"2", " ",
|
---|
17792 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17793 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17794 | CellChangeTimes->{
|
---|
17795 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17796 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17797 | 3.58115975157541*^9}],
|
---|
17798 |
|
---|
17799 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17800 | * * * * * *)\"\>"], "Print",
|
---|
17801 | CellChangeTimes->{
|
---|
17802 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17803 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17804 | 3.581159751584022*^9}],
|
---|
17805 |
|
---|
17806 | Cell[BoxData[
|
---|
17807 | InterpretationBox[
|
---|
17808 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "111"}],
|
---|
17809 | SequenceForm["Vertex ", 111],
|
---|
17810 | Editable->False]], "Print",
|
---|
17811 | CellChangeTimes->{
|
---|
17812 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17813 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17814 | 3.5811597515902777`*^9}],
|
---|
17815 |
|
---|
17816 | Cell[BoxData[
|
---|
17817 | InterpretationBox[
|
---|
17818 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17819 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17820 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17821 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
17822 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
17823 | Editable->False]], "Print",
|
---|
17824 | CellChangeTimes->{
|
---|
17825 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17826 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17827 | 3.5811597515968027`*^9}],
|
---|
17828 |
|
---|
17829 | Cell[BoxData[
|
---|
17830 | InterpretationBox[
|
---|
17831 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17832 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17833 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
17834 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`t],
|
---|
17835 | Editable->False]], "Print",
|
---|
17836 | CellChangeTimes->{
|
---|
17837 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17838 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17839 | 3.5811597516345453`*^9}],
|
---|
17840 |
|
---|
17841 | Cell[BoxData[
|
---|
17842 | InterpretationBox[
|
---|
17843 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17844 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17845 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17846 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
17847 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
17848 | Editable->False]], "Print",
|
---|
17849 | CellChangeTimes->{
|
---|
17850 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17851 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17852 | 3.581159751639732*^9}],
|
---|
17853 |
|
---|
17854 | Cell[BoxData[
|
---|
17855 | InterpretationBox[
|
---|
17856 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
17857 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
17858 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
17859 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
17860 | Editable->False]], "Print",
|
---|
17861 | CellChangeTimes->{
|
---|
17862 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17863 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17864 | 3.581159751644875*^9}],
|
---|
17865 |
|
---|
17866 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
17867 | CellChangeTimes->{
|
---|
17868 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17869 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17870 | 3.581159751653521*^9}],
|
---|
17871 |
|
---|
17872 | Cell[BoxData[
|
---|
17873 | RowBox[{
|
---|
17874 | FractionBox[
|
---|
17875 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17876 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17877 | SubscriptBox["\[Delta]",
|
---|
17878 | RowBox[{
|
---|
17879 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17880 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17881 | SubscriptBox["\[Eta]",
|
---|
17882 | RowBox[{
|
---|
17883 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17884 | RowBox[{"4", ",", "1"}]], ",",
|
---|
17885 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17886 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17887 | SubscriptBox[
|
---|
17888 | RowBox[{
|
---|
17889 | SuperscriptBox["\[Gamma]",
|
---|
17890 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
17891 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17892 | RowBox[{
|
---|
17893 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17894 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17895 | RowBox[{
|
---|
17896 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17897 | SubscriptBox["s", "w"]}]], "-",
|
---|
17898 | FractionBox[
|
---|
17899 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17900 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17901 | SubscriptBox["\[Delta]",
|
---|
17902 | RowBox[{
|
---|
17903 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17904 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17905 | SubscriptBox["\[Eta]",
|
---|
17906 | RowBox[{
|
---|
17907 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17908 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17909 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
17910 | SubscriptBox[
|
---|
17911 | RowBox[{
|
---|
17912 | SuperscriptBox["\[Gamma]",
|
---|
17913 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17914 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
17915 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17916 | RowBox[{
|
---|
17917 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17918 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17919 | RowBox[{"2", " ",
|
---|
17920 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17921 | SubscriptBox["s", "w"]}]], "-",
|
---|
17922 | FractionBox[
|
---|
17923 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
17924 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
17925 | SubscriptBox["\[Delta]",
|
---|
17926 | RowBox[{
|
---|
17927 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
17928 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
17929 | SubscriptBox["\[Eta]",
|
---|
17930 | RowBox[{
|
---|
17931 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
17932 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17933 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
17934 | SubscriptBox[
|
---|
17935 | RowBox[{
|
---|
17936 | SuperscriptBox["\[Gamma]",
|
---|
17937 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
17938 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
17939 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
17940 | RowBox[{
|
---|
17941 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
17942 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
17943 | RowBox[{"2", " ",
|
---|
17944 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
17945 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
17946 | CellChangeTimes->{
|
---|
17947 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17948 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17949 | 3.58115975165903*^9}],
|
---|
17950 |
|
---|
17951 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
17952 | * * * * * *)\"\>"], "Print",
|
---|
17953 | CellChangeTimes->{
|
---|
17954 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17955 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17956 | 3.581159751666651*^9}],
|
---|
17957 |
|
---|
17958 | Cell[BoxData[
|
---|
17959 | InterpretationBox[
|
---|
17960 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "112"}],
|
---|
17961 | SequenceForm["Vertex ", 112],
|
---|
17962 | Editable->False]], "Print",
|
---|
17963 | CellChangeTimes->{
|
---|
17964 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17965 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17966 | 3.581159751671646*^9}],
|
---|
17967 |
|
---|
17968 | Cell[BoxData[
|
---|
17969 | InterpretationBox[
|
---|
17970 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
17971 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17972 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
17973 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
17974 | Editable->False]], "Print",
|
---|
17975 | CellChangeTimes->{
|
---|
17976 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17977 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17978 | 3.581159751676553*^9}],
|
---|
17979 |
|
---|
17980 | Cell[BoxData[
|
---|
17981 | InterpretationBox[
|
---|
17982 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
17983 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
17984 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17985 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
17986 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
17987 | Editable->False]], "Print",
|
---|
17988 | CellChangeTimes->{
|
---|
17989 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
17990 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
17991 | 3.581159751684613*^9}],
|
---|
17992 |
|
---|
17993 | Cell[BoxData[
|
---|
17994 | InterpretationBox[
|
---|
17995 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
17996 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
17997 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
17998 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
17999 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
18000 | Editable->False]], "Print",
|
---|
18001 | CellChangeTimes->{
|
---|
18002 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18003 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18004 | 3.5811597516936913`*^9}],
|
---|
18005 |
|
---|
18006 | Cell[BoxData[
|
---|
18007 | InterpretationBox[
|
---|
18008 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
18009 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
18010 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
18011 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
18012 | Editable->False]], "Print",
|
---|
18013 | CellChangeTimes->{
|
---|
18014 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18015 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18016 | 3.581159751699292*^9}],
|
---|
18017 |
|
---|
18018 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18019 | CellChangeTimes->{
|
---|
18020 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18021 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18022 | 3.581159751704177*^9}],
|
---|
18023 |
|
---|
18024 | Cell[BoxData[
|
---|
18025 | RowBox[{
|
---|
18026 | FractionBox[
|
---|
18027 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18028 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18029 | SubsuperscriptBox[
|
---|
18030 | RowBox[{"(",
|
---|
18031 | TemplateBox[{"V","CKM"},
|
---|
18032 | "Superscript"], ")"}],
|
---|
18033 | RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18034 | SubscriptBox["\[Delta]",
|
---|
18035 | RowBox[{
|
---|
18036 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18037 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18038 | SubscriptBox["\[Eta]",
|
---|
18039 | RowBox[{
|
---|
18040 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18041 | RowBox[{"4", ",", "1"}]], ",",
|
---|
18042 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18043 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18044 | SubscriptBox[
|
---|
18045 | RowBox[{
|
---|
18046 | SuperscriptBox["\[Gamma]",
|
---|
18047 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18048 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18049 | RowBox[{
|
---|
18050 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18051 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18052 | RowBox[{
|
---|
18053 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18054 | SubscriptBox["s", "w"]}]], "-",
|
---|
18055 | FractionBox[
|
---|
18056 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18057 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18058 | SubsuperscriptBox[
|
---|
18059 | RowBox[{"(",
|
---|
18060 | TemplateBox[{"V","CKM"},
|
---|
18061 | "Superscript"], ")"}],
|
---|
18062 | RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18063 | SubscriptBox["\[Delta]",
|
---|
18064 | RowBox[{
|
---|
18065 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18066 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18067 | SubscriptBox["\[Eta]",
|
---|
18068 | RowBox[{
|
---|
18069 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18070 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18071 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18072 | SubscriptBox[
|
---|
18073 | RowBox[{
|
---|
18074 | SuperscriptBox["\[Gamma]",
|
---|
18075 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18076 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
18077 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18078 | RowBox[{
|
---|
18079 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18080 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18081 | RowBox[{"2", " ",
|
---|
18082 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18083 | SubscriptBox["s", "w"]}]], "-",
|
---|
18084 | FractionBox[
|
---|
18085 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18086 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18087 | SubsuperscriptBox[
|
---|
18088 | RowBox[{"(",
|
---|
18089 | TemplateBox[{"V","CKM"},
|
---|
18090 | "Superscript"], ")"}],
|
---|
18091 | RowBox[{"2", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18092 | SubscriptBox["\[Delta]",
|
---|
18093 | RowBox[{
|
---|
18094 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18095 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18096 | SubscriptBox["\[Eta]",
|
---|
18097 | RowBox[{
|
---|
18098 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18099 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18100 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
18101 | SubscriptBox[
|
---|
18102 | RowBox[{
|
---|
18103 | SuperscriptBox["\[Gamma]",
|
---|
18104 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18105 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
18106 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18107 | RowBox[{
|
---|
18108 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18109 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18110 | RowBox[{"2", " ",
|
---|
18111 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18112 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
18113 | CellChangeTimes->{
|
---|
18114 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18115 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18116 | 3.581159751709708*^9}],
|
---|
18117 |
|
---|
18118 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18119 | * * * * * *)\"\>"], "Print",
|
---|
18120 | CellChangeTimes->{
|
---|
18121 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18122 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18123 | 3.581159751717691*^9}],
|
---|
18124 |
|
---|
18125 | Cell[BoxData[
|
---|
18126 | InterpretationBox[
|
---|
18127 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "113"}],
|
---|
18128 | SequenceForm["Vertex ", 113],
|
---|
18129 | Editable->False]], "Print",
|
---|
18130 | CellChangeTimes->{
|
---|
18131 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18132 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18133 | 3.581159751723255*^9}],
|
---|
18134 |
|
---|
18135 | Cell[BoxData[
|
---|
18136 | InterpretationBox[
|
---|
18137 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18138 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18139 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18140 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
18141 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
18142 | Editable->False]], "Print",
|
---|
18143 | CellChangeTimes->{
|
---|
18144 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18145 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18146 | 3.581159751729591*^9}],
|
---|
18147 |
|
---|
18148 | Cell[BoxData[
|
---|
18149 | InterpretationBox[
|
---|
18150 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18151 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18152 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
18153 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
18154 | Editable->False]], "Print",
|
---|
18155 | CellChangeTimes->{
|
---|
18156 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18157 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18158 | 3.581159751735382*^9}],
|
---|
18159 |
|
---|
18160 | Cell[BoxData[
|
---|
18161 | InterpretationBox[
|
---|
18162 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18163 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18164 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18165 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
18166 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
18167 | Editable->False]], "Print",
|
---|
18168 | CellChangeTimes->{
|
---|
18169 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18170 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18171 | 3.581159751741344*^9}],
|
---|
18172 |
|
---|
18173 | Cell[BoxData[
|
---|
18174 | InterpretationBox[
|
---|
18175 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
18176 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
18177 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
18178 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
18179 | Editable->False]], "Print",
|
---|
18180 | CellChangeTimes->{
|
---|
18181 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18182 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18183 | 3.581159751747066*^9}],
|
---|
18184 |
|
---|
18185 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18186 | CellChangeTimes->{
|
---|
18187 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18188 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18189 | 3.581159751752249*^9}],
|
---|
18190 |
|
---|
18191 | Cell[BoxData[
|
---|
18192 | RowBox[{
|
---|
18193 | FractionBox[
|
---|
18194 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18195 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18196 | SubsuperscriptBox[
|
---|
18197 | RowBox[{"(",
|
---|
18198 | TemplateBox[{"V","CKM"},
|
---|
18199 | "Superscript"], ")"}],
|
---|
18200 | RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18201 | SubscriptBox["\[Delta]",
|
---|
18202 | RowBox[{
|
---|
18203 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18204 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18205 | SubscriptBox["\[Eta]",
|
---|
18206 | RowBox[{
|
---|
18207 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18208 | RowBox[{"4", ",", "1"}]], ",",
|
---|
18209 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18210 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18211 | SubscriptBox[
|
---|
18212 | RowBox[{
|
---|
18213 | SuperscriptBox["\[Gamma]",
|
---|
18214 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18215 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18216 | RowBox[{
|
---|
18217 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18218 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18219 | RowBox[{
|
---|
18220 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18221 | SubscriptBox["s", "w"]}]], "-",
|
---|
18222 | FractionBox[
|
---|
18223 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18224 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18225 | SubsuperscriptBox[
|
---|
18226 | RowBox[{"(",
|
---|
18227 | TemplateBox[{"V","CKM"},
|
---|
18228 | "Superscript"], ")"}],
|
---|
18229 | RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18230 | SubscriptBox["\[Delta]",
|
---|
18231 | RowBox[{
|
---|
18232 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18233 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18234 | SubscriptBox["\[Eta]",
|
---|
18235 | RowBox[{
|
---|
18236 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18237 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18238 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18239 | SubscriptBox[
|
---|
18240 | RowBox[{
|
---|
18241 | SuperscriptBox["\[Gamma]",
|
---|
18242 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18243 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
18244 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18245 | RowBox[{
|
---|
18246 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18247 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18248 | RowBox[{"2", " ",
|
---|
18249 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18250 | SubscriptBox["s", "w"]}]], "-",
|
---|
18251 | FractionBox[
|
---|
18252 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18253 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18254 | SubsuperscriptBox[
|
---|
18255 | RowBox[{"(",
|
---|
18256 | TemplateBox[{"V","CKM"},
|
---|
18257 | "Superscript"], ")"}],
|
---|
18258 | RowBox[{"1", ",", "1"}], "\<\"*\"\>"], " ",
|
---|
18259 | SubscriptBox["\[Delta]",
|
---|
18260 | RowBox[{
|
---|
18261 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18262 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18263 | SubscriptBox["\[Eta]",
|
---|
18264 | RowBox[{
|
---|
18265 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18266 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18267 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
18268 | SubscriptBox[
|
---|
18269 | RowBox[{
|
---|
18270 | SuperscriptBox["\[Gamma]",
|
---|
18271 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18272 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
18273 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18274 | RowBox[{
|
---|
18275 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18276 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18277 | RowBox[{"2", " ",
|
---|
18278 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18279 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
18280 | CellChangeTimes->{
|
---|
18281 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18282 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18283 | 3.5811597517581463`*^9}],
|
---|
18284 |
|
---|
18285 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18286 | * * * * * *)\"\>"], "Print",
|
---|
18287 | CellChangeTimes->{
|
---|
18288 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18289 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18290 | 3.581159751765972*^9}],
|
---|
18291 |
|
---|
18292 | Cell[BoxData[
|
---|
18293 | InterpretationBox[
|
---|
18294 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "114"}],
|
---|
18295 | SequenceForm["Vertex ", 114],
|
---|
18296 | Editable->False]], "Print",
|
---|
18297 | CellChangeTimes->{
|
---|
18298 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18299 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18300 | 3.581159751771102*^9}],
|
---|
18301 |
|
---|
18302 | Cell[BoxData[
|
---|
18303 | InterpretationBox[
|
---|
18304 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18305 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18306 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
18307 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
18308 | Editable->False]], "Print",
|
---|
18309 | CellChangeTimes->{
|
---|
18310 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18311 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18312 | 3.581159751776307*^9}],
|
---|
18313 |
|
---|
18314 | Cell[BoxData[
|
---|
18315 | InterpretationBox[
|
---|
18316 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18317 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18318 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18319 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
18320 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
18321 | Editable->False]], "Print",
|
---|
18322 | CellChangeTimes->{
|
---|
18323 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18324 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18325 | 3.581159751781509*^9}],
|
---|
18326 |
|
---|
18327 | Cell[BoxData[
|
---|
18328 | InterpretationBox[
|
---|
18329 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18330 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18331 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18332 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
18333 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
18334 | Editable->False]], "Print",
|
---|
18335 | CellChangeTimes->{
|
---|
18336 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18337 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18338 | 3.5811597517872963`*^9}],
|
---|
18339 |
|
---|
18340 | Cell[BoxData[
|
---|
18341 | InterpretationBox[
|
---|
18342 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
18343 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
18344 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
18345 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
18346 | Editable->False]], "Print",
|
---|
18347 | CellChangeTimes->{
|
---|
18348 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18349 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18350 | 3.581159751794705*^9}],
|
---|
18351 |
|
---|
18352 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18353 | CellChangeTimes->{
|
---|
18354 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18355 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18356 | 3.5811597518014317`*^9}],
|
---|
18357 |
|
---|
18358 | Cell[BoxData[
|
---|
18359 | RowBox[{
|
---|
18360 | FractionBox[
|
---|
18361 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18362 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18363 | SubsuperscriptBox[
|
---|
18364 | RowBox[{"(",
|
---|
18365 | TemplateBox[{"V","CKM"},
|
---|
18366 | "Superscript"], ")"}],
|
---|
18367 | RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18368 | SubscriptBox["\[Delta]",
|
---|
18369 | RowBox[{
|
---|
18370 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18371 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18372 | SubscriptBox["\[Eta]",
|
---|
18373 | RowBox[{
|
---|
18374 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18375 | RowBox[{"4", ",", "1"}]], ",",
|
---|
18376 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18377 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18378 | SubscriptBox[
|
---|
18379 | RowBox[{
|
---|
18380 | SuperscriptBox["\[Gamma]",
|
---|
18381 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18382 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18383 | RowBox[{
|
---|
18384 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18385 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18386 | RowBox[{
|
---|
18387 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18388 | SubscriptBox["s", "w"]}]], "-",
|
---|
18389 | FractionBox[
|
---|
18390 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18391 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18392 | SubsuperscriptBox[
|
---|
18393 | RowBox[{"(",
|
---|
18394 | TemplateBox[{"V","CKM"},
|
---|
18395 | "Superscript"], ")"}],
|
---|
18396 | RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18397 | SubscriptBox["\[Delta]",
|
---|
18398 | RowBox[{
|
---|
18399 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18400 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18401 | SubscriptBox["\[Eta]",
|
---|
18402 | RowBox[{
|
---|
18403 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18404 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18405 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18406 | SubscriptBox[
|
---|
18407 | RowBox[{
|
---|
18408 | SuperscriptBox["\[Gamma]",
|
---|
18409 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18410 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
18411 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18412 | RowBox[{
|
---|
18413 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18414 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18415 | RowBox[{"2", " ",
|
---|
18416 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18417 | SubscriptBox["s", "w"]}]], "-",
|
---|
18418 | FractionBox[
|
---|
18419 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18420 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18421 | SubsuperscriptBox[
|
---|
18422 | RowBox[{"(",
|
---|
18423 | TemplateBox[{"V","CKM"},
|
---|
18424 | "Superscript"], ")"}],
|
---|
18425 | RowBox[{"2", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18426 | SubscriptBox["\[Delta]",
|
---|
18427 | RowBox[{
|
---|
18428 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18429 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18430 | SubscriptBox["\[Eta]",
|
---|
18431 | RowBox[{
|
---|
18432 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18433 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18434 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
18435 | SubscriptBox[
|
---|
18436 | RowBox[{
|
---|
18437 | SuperscriptBox["\[Gamma]",
|
---|
18438 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18439 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
18440 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18441 | RowBox[{
|
---|
18442 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18443 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18444 | RowBox[{"2", " ",
|
---|
18445 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18446 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
18447 | CellChangeTimes->{
|
---|
18448 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18449 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18450 | 3.581159751808783*^9}],
|
---|
18451 |
|
---|
18452 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18453 | * * * * * *)\"\>"], "Print",
|
---|
18454 | CellChangeTimes->{
|
---|
18455 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18456 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18457 | 3.581159751818781*^9}],
|
---|
18458 |
|
---|
18459 | Cell[BoxData[
|
---|
18460 | InterpretationBox[
|
---|
18461 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "115"}],
|
---|
18462 | SequenceForm["Vertex ", 115],
|
---|
18463 | Editable->False]], "Print",
|
---|
18464 | CellChangeTimes->{
|
---|
18465 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18466 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18467 | 3.5811597518261623`*^9}],
|
---|
18468 |
|
---|
18469 | Cell[BoxData[
|
---|
18470 | InterpretationBox[
|
---|
18471 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18472 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18473 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18474 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
18475 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
18476 | Editable->False]], "Print",
|
---|
18477 | CellChangeTimes->{
|
---|
18478 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18479 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18480 | 3.581159751831061*^9}],
|
---|
18481 |
|
---|
18482 | Cell[BoxData[
|
---|
18483 | InterpretationBox[
|
---|
18484 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18485 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18486 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
18487 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", FeynRules`u],
|
---|
18488 | Editable->False]], "Print",
|
---|
18489 | CellChangeTimes->{
|
---|
18490 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18491 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18492 | 3.581159751836133*^9}],
|
---|
18493 |
|
---|
18494 | Cell[BoxData[
|
---|
18495 | InterpretationBox[
|
---|
18496 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18497 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18498 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18499 | SuperscriptBox["W", "\[Dagger]"]}],
|
---|
18500 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Wbar],
|
---|
18501 | Editable->False]], "Print",
|
---|
18502 | CellChangeTimes->{
|
---|
18503 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18504 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18505 | 3.581159751841132*^9}],
|
---|
18506 |
|
---|
18507 | Cell[BoxData[
|
---|
18508 | InterpretationBox[
|
---|
18509 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
18510 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
18511 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
18512 | SequenceForm["Particle ", 4, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
18513 | Editable->False]], "Print",
|
---|
18514 | CellChangeTimes->{
|
---|
18515 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18516 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18517 | 3.5811597518463163`*^9}],
|
---|
18518 |
|
---|
18519 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18520 | CellChangeTimes->{
|
---|
18521 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18522 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18523 | 3.581159751852415*^9}],
|
---|
18524 |
|
---|
18525 | Cell[BoxData[
|
---|
18526 | RowBox[{
|
---|
18527 | FractionBox[
|
---|
18528 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18529 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18530 | SubsuperscriptBox[
|
---|
18531 | RowBox[{"(",
|
---|
18532 | TemplateBox[{"V","CKM"},
|
---|
18533 | "Superscript"], ")"}],
|
---|
18534 | RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18535 | SubscriptBox["\[Delta]",
|
---|
18536 | RowBox[{
|
---|
18537 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18538 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18539 | SubscriptBox["\[Eta]",
|
---|
18540 | RowBox[{
|
---|
18541 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18542 | RowBox[{"4", ",", "1"}]], ",",
|
---|
18543 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18544 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18545 | SubscriptBox[
|
---|
18546 | RowBox[{
|
---|
18547 | SuperscriptBox["\[Gamma]",
|
---|
18548 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18549 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18550 | RowBox[{
|
---|
18551 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18552 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18553 | RowBox[{
|
---|
18554 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18555 | SubscriptBox["s", "w"]}]], "-",
|
---|
18556 | FractionBox[
|
---|
18557 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18558 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18559 | SubsuperscriptBox[
|
---|
18560 | RowBox[{"(",
|
---|
18561 | TemplateBox[{"V","CKM"},
|
---|
18562 | "Superscript"], ")"}],
|
---|
18563 | RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18564 | SubscriptBox["\[Delta]",
|
---|
18565 | RowBox[{
|
---|
18566 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18567 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18568 | SubscriptBox["\[Eta]",
|
---|
18569 | RowBox[{
|
---|
18570 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18571 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18572 | RowBox[{"4", ",", "2"}]]}]], " ",
|
---|
18573 | SubscriptBox[
|
---|
18574 | RowBox[{
|
---|
18575 | SuperscriptBox["\[Gamma]",
|
---|
18576 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18577 | RowBox[{"4", ",", "1"}]]], ".",
|
---|
18578 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18579 | RowBox[{
|
---|
18580 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18581 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18582 | RowBox[{"2", " ",
|
---|
18583 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18584 | SubscriptBox["s", "w"]}]], "-",
|
---|
18585 | FractionBox[
|
---|
18586 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18587 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
18588 | SubsuperscriptBox[
|
---|
18589 | RowBox[{"(",
|
---|
18590 | TemplateBox[{"V","CKM"},
|
---|
18591 | "Superscript"], ")"}],
|
---|
18592 | RowBox[{"1", ",", "2"}], "\<\"*\"\>"], " ",
|
---|
18593 | SubscriptBox["\[Delta]",
|
---|
18594 | RowBox[{
|
---|
18595 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18596 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18597 | SubscriptBox["\[Eta]",
|
---|
18598 | RowBox[{
|
---|
18599 | SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
|
---|
18600 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18601 | RowBox[{"4", ",", "1"}]]}]], " ",
|
---|
18602 | SubscriptBox[
|
---|
18603 | RowBox[{
|
---|
18604 | SuperscriptBox["\[Gamma]",
|
---|
18605 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
18606 | RowBox[{"4", ",", "2"}]]], ".",
|
---|
18607 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18608 | RowBox[{
|
---|
18609 | SubscriptBox["\<\"s\"\>", "1"], ",",
|
---|
18610 | SubscriptBox["\<\"s\"\>", "2"]}]]}],
|
---|
18611 | RowBox[{"2", " ",
|
---|
18612 | SqrtBox["2"], " ", "\[CapitalLambda]", " ",
|
---|
18613 | SubscriptBox["s", "w"]}]]}]], "Print",
|
---|
18614 | CellChangeTimes->{
|
---|
18615 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18616 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18617 | 3.5811597518594627`*^9}],
|
---|
18618 |
|
---|
18619 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18620 | * * * * * *)\"\>"], "Print",
|
---|
18621 | CellChangeTimes->{
|
---|
18622 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18623 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18624 | 3.58115975186791*^9}],
|
---|
18625 |
|
---|
18626 | Cell[BoxData[
|
---|
18627 | InterpretationBox[
|
---|
18628 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "116"}],
|
---|
18629 | SequenceForm["Vertex ", 116],
|
---|
18630 | Editable->False]], "Print",
|
---|
18631 | CellChangeTimes->{
|
---|
18632 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18633 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18634 | 3.58115975187389*^9}],
|
---|
18635 |
|
---|
18636 | Cell[BoxData[
|
---|
18637 | InterpretationBox[
|
---|
18638 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18639 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18640 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
18641 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
18642 | Editable->False]], "Print",
|
---|
18643 | CellChangeTimes->{
|
---|
18644 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18645 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18646 | 3.5811597518800583`*^9}],
|
---|
18647 |
|
---|
18648 | Cell[BoxData[
|
---|
18649 | InterpretationBox[
|
---|
18650 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18651 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18652 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18653 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
18654 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
18655 | Editable->False]], "Print",
|
---|
18656 | CellChangeTimes->{
|
---|
18657 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18658 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18659 | 3.5811597518864*^9}],
|
---|
18660 |
|
---|
18661 | Cell[BoxData[
|
---|
18662 | InterpretationBox[
|
---|
18663 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18664 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18665 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
18666 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
18667 | Editable->False]], "Print",
|
---|
18668 | CellChangeTimes->{
|
---|
18669 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18670 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18671 | 3.5811597518921022`*^9}],
|
---|
18672 |
|
---|
18673 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18674 | CellChangeTimes->{
|
---|
18675 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18676 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18677 | 3.581159751897201*^9}],
|
---|
18678 |
|
---|
18679 | Cell[BoxData[
|
---|
18680 | RowBox[{
|
---|
18681 | RowBox[{"-",
|
---|
18682 | FractionBox[
|
---|
18683 | RowBox[{"\[ImaginaryI]", " ",
|
---|
18684 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
18685 | SubscriptBox["\[Delta]",
|
---|
18686 | RowBox[{
|
---|
18687 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18688 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18689 | SubscriptBox[
|
---|
18690 | RowBox[{
|
---|
18691 | SuperscriptBox["\[Gamma]",
|
---|
18692 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18693 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18694 | RowBox[{
|
---|
18695 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18696 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18697 | RowBox[{"2", " ",
|
---|
18698 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
18699 | FractionBox[
|
---|
18700 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18701 | SubscriptBox["s", "w"], " ",
|
---|
18702 | SubscriptBox["\[Delta]",
|
---|
18703 | RowBox[{
|
---|
18704 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18705 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18706 | SubscriptBox[
|
---|
18707 | RowBox[{
|
---|
18708 | SuperscriptBox["\[Gamma]",
|
---|
18709 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18710 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18711 | RowBox[{
|
---|
18712 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18713 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18714 | RowBox[{"6", " ",
|
---|
18715 | SubscriptBox["c", "w"]}]], "+",
|
---|
18716 | FractionBox[
|
---|
18717 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18718 | SubscriptBox["s", "w"], " ",
|
---|
18719 | SubscriptBox["\[Delta]",
|
---|
18720 | RowBox[{
|
---|
18721 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18722 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18723 | SubscriptBox[
|
---|
18724 | RowBox[{
|
---|
18725 | SuperscriptBox["\[Gamma]",
|
---|
18726 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18727 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
18728 | RowBox[{
|
---|
18729 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18730 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18731 | RowBox[{"3", " ",
|
---|
18732 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
18733 | CellChangeTimes->{
|
---|
18734 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18735 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18736 | 3.5811597519021606`*^9}],
|
---|
18737 |
|
---|
18738 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18739 | * * * * * *)\"\>"], "Print",
|
---|
18740 | CellChangeTimes->{
|
---|
18741 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18742 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18743 | 3.5811597519076633`*^9}],
|
---|
18744 |
|
---|
18745 | Cell[BoxData[
|
---|
18746 | InterpretationBox[
|
---|
18747 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "117"}],
|
---|
18748 | SequenceForm["Vertex ", 117],
|
---|
18749 | Editable->False]], "Print",
|
---|
18750 | CellChangeTimes->{
|
---|
18751 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18752 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18753 | 3.5811597519129877`*^9}],
|
---|
18754 |
|
---|
18755 | Cell[BoxData[
|
---|
18756 | InterpretationBox[
|
---|
18757 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18758 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18759 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
18760 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
18761 | Editable->False]], "Print",
|
---|
18762 | CellChangeTimes->{
|
---|
18763 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18764 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18765 | 3.5811597519179277`*^9}],
|
---|
18766 |
|
---|
18767 | Cell[BoxData[
|
---|
18768 | InterpretationBox[
|
---|
18769 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18770 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18771 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18772 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
18773 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
18774 | Editable->False]], "Print",
|
---|
18775 | CellChangeTimes->{
|
---|
18776 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18777 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18778 | 3.581159751922723*^9}],
|
---|
18779 |
|
---|
18780 | Cell[BoxData[
|
---|
18781 | InterpretationBox[
|
---|
18782 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18783 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18784 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
18785 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
18786 | Editable->False]], "Print",
|
---|
18787 | CellChangeTimes->{
|
---|
18788 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18789 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18790 | 3.581159751927472*^9}],
|
---|
18791 |
|
---|
18792 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18793 | CellChangeTimes->{
|
---|
18794 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18795 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18796 | 3.581159751932109*^9}],
|
---|
18797 |
|
---|
18798 | Cell[BoxData[
|
---|
18799 | RowBox[{
|
---|
18800 | RowBox[{"-",
|
---|
18801 | FractionBox[
|
---|
18802 | RowBox[{"\[ImaginaryI]", " ",
|
---|
18803 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
18804 | SubscriptBox["\[Delta]",
|
---|
18805 | RowBox[{
|
---|
18806 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18807 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18808 | SubscriptBox[
|
---|
18809 | RowBox[{
|
---|
18810 | SuperscriptBox["\[Gamma]",
|
---|
18811 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18812 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18813 | RowBox[{
|
---|
18814 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18815 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18816 | RowBox[{"2", " ",
|
---|
18817 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
18818 | FractionBox[
|
---|
18819 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18820 | SubscriptBox["s", "w"], " ",
|
---|
18821 | SubscriptBox["\[Delta]",
|
---|
18822 | RowBox[{
|
---|
18823 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18824 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18825 | SubscriptBox[
|
---|
18826 | RowBox[{
|
---|
18827 | SuperscriptBox["\[Gamma]",
|
---|
18828 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18829 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18830 | RowBox[{
|
---|
18831 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18832 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18833 | RowBox[{"6", " ",
|
---|
18834 | SubscriptBox["c", "w"]}]], "+",
|
---|
18835 | FractionBox[
|
---|
18836 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18837 | SubscriptBox["s", "w"], " ",
|
---|
18838 | SubscriptBox["\[Delta]",
|
---|
18839 | RowBox[{
|
---|
18840 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18841 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18842 | SubscriptBox[
|
---|
18843 | RowBox[{
|
---|
18844 | SuperscriptBox["\[Gamma]",
|
---|
18845 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18846 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
18847 | RowBox[{
|
---|
18848 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18849 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18850 | RowBox[{"3", " ",
|
---|
18851 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
18852 | CellChangeTimes->{
|
---|
18853 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18854 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18855 | 3.5811597519372396`*^9}],
|
---|
18856 |
|
---|
18857 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18858 | * * * * * *)\"\>"], "Print",
|
---|
18859 | CellChangeTimes->{
|
---|
18860 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18861 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18862 | 3.581159751943218*^9}],
|
---|
18863 |
|
---|
18864 | Cell[BoxData[
|
---|
18865 | InterpretationBox[
|
---|
18866 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "118"}],
|
---|
18867 | SequenceForm["Vertex ", 118],
|
---|
18868 | Editable->False]], "Print",
|
---|
18869 | CellChangeTimes->{
|
---|
18870 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18871 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18872 | 3.581159751949595*^9}],
|
---|
18873 |
|
---|
18874 | Cell[BoxData[
|
---|
18875 | InterpretationBox[
|
---|
18876 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18877 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18878 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
18879 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
18880 | Editable->False]], "Print",
|
---|
18881 | CellChangeTimes->{
|
---|
18882 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18883 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18884 | 3.581159751955196*^9}],
|
---|
18885 |
|
---|
18886 | Cell[BoxData[
|
---|
18887 | InterpretationBox[
|
---|
18888 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
18889 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18890 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
18891 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
18892 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
18893 | Editable->False]], "Print",
|
---|
18894 | CellChangeTimes->{
|
---|
18895 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18896 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18897 | 3.5811597519607267`*^9}],
|
---|
18898 |
|
---|
18899 | Cell[BoxData[
|
---|
18900 | InterpretationBox[
|
---|
18901 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
18902 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
18903 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
18904 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
18905 | Editable->False]], "Print",
|
---|
18906 | CellChangeTimes->{
|
---|
18907 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18908 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18909 | 3.581159751965722*^9}],
|
---|
18910 |
|
---|
18911 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
18912 | CellChangeTimes->{
|
---|
18913 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18914 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18915 | 3.5811597519715147`*^9}],
|
---|
18916 |
|
---|
18917 | Cell[BoxData[
|
---|
18918 | RowBox[{
|
---|
18919 | RowBox[{"-",
|
---|
18920 | FractionBox[
|
---|
18921 | RowBox[{"\[ImaginaryI]", " ",
|
---|
18922 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
18923 | SubscriptBox["\[Delta]",
|
---|
18924 | RowBox[{
|
---|
18925 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18926 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18927 | SubscriptBox[
|
---|
18928 | RowBox[{
|
---|
18929 | SuperscriptBox["\[Gamma]",
|
---|
18930 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18931 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18932 | RowBox[{
|
---|
18933 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18934 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18935 | RowBox[{"2", " ",
|
---|
18936 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
18937 | FractionBox[
|
---|
18938 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18939 | SubscriptBox["s", "w"], " ",
|
---|
18940 | SubscriptBox["\[Delta]",
|
---|
18941 | RowBox[{
|
---|
18942 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18943 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18944 | SubscriptBox[
|
---|
18945 | RowBox[{
|
---|
18946 | SuperscriptBox["\[Gamma]",
|
---|
18947 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18948 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
18949 | RowBox[{
|
---|
18950 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18951 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18952 | RowBox[{"6", " ",
|
---|
18953 | SubscriptBox["c", "w"]}]], "+",
|
---|
18954 | FractionBox[
|
---|
18955 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
18956 | SubscriptBox["s", "w"], " ",
|
---|
18957 | SubscriptBox["\[Delta]",
|
---|
18958 | RowBox[{
|
---|
18959 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
18960 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
18961 | SubscriptBox[
|
---|
18962 | RowBox[{
|
---|
18963 | SuperscriptBox["\[Gamma]",
|
---|
18964 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
18965 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
18966 | RowBox[{
|
---|
18967 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
18968 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
18969 | RowBox[{"3", " ",
|
---|
18970 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
18971 | CellChangeTimes->{
|
---|
18972 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18973 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18974 | 3.581159751978297*^9}],
|
---|
18975 |
|
---|
18976 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
18977 | * * * * * *)\"\>"], "Print",
|
---|
18978 | CellChangeTimes->{
|
---|
18979 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18980 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18981 | 3.581159751985441*^9}],
|
---|
18982 |
|
---|
18983 | Cell[BoxData[
|
---|
18984 | InterpretationBox[
|
---|
18985 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "119"}],
|
---|
18986 | SequenceForm["Vertex ", 119],
|
---|
18987 | Editable->False]], "Print",
|
---|
18988 | CellChangeTimes->{
|
---|
18989 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
18990 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
18991 | 3.581159751991794*^9}],
|
---|
18992 |
|
---|
18993 | Cell[BoxData[
|
---|
18994 | InterpretationBox[
|
---|
18995 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
18996 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
18997 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
18998 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
18999 | Editable->False]], "Print",
|
---|
19000 | CellChangeTimes->{
|
---|
19001 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19002 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19003 | 3.581159751997836*^9}],
|
---|
19004 |
|
---|
19005 | Cell[BoxData[
|
---|
19006 | InterpretationBox[
|
---|
19007 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19008 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19009 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19010 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
19011 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
19012 | Editable->False]], "Print",
|
---|
19013 | CellChangeTimes->{
|
---|
19014 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19015 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19016 | 3.581159752029057*^9}],
|
---|
19017 |
|
---|
19018 | Cell[BoxData[
|
---|
19019 | InterpretationBox[
|
---|
19020 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19021 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19022 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19023 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19024 | Editable->False]], "Print",
|
---|
19025 | CellChangeTimes->{
|
---|
19026 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19027 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19028 | 3.5811597520344152`*^9}],
|
---|
19029 |
|
---|
19030 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19031 | CellChangeTimes->{
|
---|
19032 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19033 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19034 | 3.581159752039545*^9}],
|
---|
19035 |
|
---|
19036 | Cell[BoxData[
|
---|
19037 | RowBox[{
|
---|
19038 | RowBox[{"-",
|
---|
19039 | FractionBox[
|
---|
19040 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19041 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19042 | SubscriptBox[
|
---|
19043 | RowBox[{
|
---|
19044 | SuperscriptBox["\[Gamma]",
|
---|
19045 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19046 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19047 | RowBox[{
|
---|
19048 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19049 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19050 | RowBox[{"2", " ",
|
---|
19051 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
19052 | FractionBox[
|
---|
19053 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19054 | SubscriptBox["s", "w"], " ",
|
---|
19055 | SubscriptBox[
|
---|
19056 | RowBox[{
|
---|
19057 | SuperscriptBox["\[Gamma]",
|
---|
19058 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19059 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19060 | RowBox[{
|
---|
19061 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19062 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19063 | RowBox[{"2", " ",
|
---|
19064 | SubscriptBox["c", "w"]}]], "+",
|
---|
19065 | FractionBox[
|
---|
19066 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19067 | SubscriptBox["s", "w"], " ",
|
---|
19068 | SubscriptBox[
|
---|
19069 | RowBox[{
|
---|
19070 | SuperscriptBox["\[Gamma]",
|
---|
19071 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19072 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19073 | RowBox[{
|
---|
19074 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19075 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19076 | SubscriptBox["c", "w"]]}]], "Print",
|
---|
19077 | CellChangeTimes->{
|
---|
19078 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19079 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19080 | 3.581159752045684*^9}],
|
---|
19081 |
|
---|
19082 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19083 | * * * * * *)\"\>"], "Print",
|
---|
19084 | CellChangeTimes->{
|
---|
19085 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19086 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19087 | 3.581159752052314*^9}],
|
---|
19088 |
|
---|
19089 | Cell[BoxData[
|
---|
19090 | InterpretationBox[
|
---|
19091 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "120"}],
|
---|
19092 | SequenceForm["Vertex ", 120],
|
---|
19093 | Editable->False]], "Print",
|
---|
19094 | CellChangeTimes->{
|
---|
19095 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19096 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19097 | 3.581159752057788*^9}],
|
---|
19098 |
|
---|
19099 | Cell[BoxData[
|
---|
19100 | InterpretationBox[
|
---|
19101 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19102 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19103 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
19104 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
19105 | Editable->False]], "Print",
|
---|
19106 | CellChangeTimes->{
|
---|
19107 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19108 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19109 | 3.581159752062625*^9}],
|
---|
19110 |
|
---|
19111 | Cell[BoxData[
|
---|
19112 | InterpretationBox[
|
---|
19113 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19114 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19115 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19116 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
19117 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
19118 | Editable->False]], "Print",
|
---|
19119 | CellChangeTimes->{
|
---|
19120 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19121 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19122 | 3.581159752067543*^9}],
|
---|
19123 |
|
---|
19124 | Cell[BoxData[
|
---|
19125 | InterpretationBox[
|
---|
19126 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19127 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19128 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19129 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19130 | Editable->False]], "Print",
|
---|
19131 | CellChangeTimes->{
|
---|
19132 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19133 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19134 | 3.581159752072631*^9}],
|
---|
19135 |
|
---|
19136 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19137 | CellChangeTimes->{
|
---|
19138 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19139 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19140 | 3.581159752077422*^9}],
|
---|
19141 |
|
---|
19142 | Cell[BoxData[
|
---|
19143 | RowBox[{
|
---|
19144 | RowBox[{"-",
|
---|
19145 | FractionBox[
|
---|
19146 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19147 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19148 | SubscriptBox[
|
---|
19149 | RowBox[{
|
---|
19150 | SuperscriptBox["\[Gamma]",
|
---|
19151 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19152 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19153 | RowBox[{
|
---|
19154 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19155 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19156 | RowBox[{"2", " ",
|
---|
19157 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
19158 | FractionBox[
|
---|
19159 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19160 | SubscriptBox["s", "w"], " ",
|
---|
19161 | SubscriptBox[
|
---|
19162 | RowBox[{
|
---|
19163 | SuperscriptBox["\[Gamma]",
|
---|
19164 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19165 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19166 | RowBox[{
|
---|
19167 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19168 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19169 | RowBox[{"2", " ",
|
---|
19170 | SubscriptBox["c", "w"]}]], "+",
|
---|
19171 | FractionBox[
|
---|
19172 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19173 | SubscriptBox["s", "w"], " ",
|
---|
19174 | SubscriptBox[
|
---|
19175 | RowBox[{
|
---|
19176 | SuperscriptBox["\[Gamma]",
|
---|
19177 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19178 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19179 | RowBox[{
|
---|
19180 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19181 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19182 | SubscriptBox["c", "w"]]}]], "Print",
|
---|
19183 | CellChangeTimes->{
|
---|
19184 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19185 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19186 | 3.581159752082458*^9}],
|
---|
19187 |
|
---|
19188 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19189 | * * * * * *)\"\>"], "Print",
|
---|
19190 | CellChangeTimes->{
|
---|
19191 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19192 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19193 | 3.5811597520877533`*^9}],
|
---|
19194 |
|
---|
19195 | Cell[BoxData[
|
---|
19196 | InterpretationBox[
|
---|
19197 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "121"}],
|
---|
19198 | SequenceForm["Vertex ", 121],
|
---|
19199 | Editable->False]], "Print",
|
---|
19200 | CellChangeTimes->{
|
---|
19201 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19202 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19203 | 3.581159752092744*^9}],
|
---|
19204 |
|
---|
19205 | Cell[BoxData[
|
---|
19206 | InterpretationBox[
|
---|
19207 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19208 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19209 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
19210 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
19211 | Editable->False]], "Print",
|
---|
19212 | CellChangeTimes->{
|
---|
19213 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19214 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19215 | 3.581159752097534*^9}],
|
---|
19216 |
|
---|
19217 | Cell[BoxData[
|
---|
19218 | InterpretationBox[
|
---|
19219 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19220 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19221 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19222 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
19223 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
19224 | Editable->False]], "Print",
|
---|
19225 | CellChangeTimes->{
|
---|
19226 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19227 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19228 | 3.5811597521034946`*^9}],
|
---|
19229 |
|
---|
19230 | Cell[BoxData[
|
---|
19231 | InterpretationBox[
|
---|
19232 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19233 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19234 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19235 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19236 | Editable->False]], "Print",
|
---|
19237 | CellChangeTimes->{
|
---|
19238 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19239 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19240 | 3.581159752108837*^9}],
|
---|
19241 |
|
---|
19242 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19243 | CellChangeTimes->{
|
---|
19244 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19245 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19246 | 3.581159752114106*^9}],
|
---|
19247 |
|
---|
19248 | Cell[BoxData[
|
---|
19249 | RowBox[{
|
---|
19250 | RowBox[{"-",
|
---|
19251 | FractionBox[
|
---|
19252 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19253 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19254 | SubscriptBox[
|
---|
19255 | RowBox[{
|
---|
19256 | SuperscriptBox["\[Gamma]",
|
---|
19257 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19258 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19259 | RowBox[{
|
---|
19260 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19261 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19262 | RowBox[{"2", " ",
|
---|
19263 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
19264 | FractionBox[
|
---|
19265 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19266 | SubscriptBox["s", "w"], " ",
|
---|
19267 | SubscriptBox[
|
---|
19268 | RowBox[{
|
---|
19269 | SuperscriptBox["\[Gamma]",
|
---|
19270 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19271 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19272 | RowBox[{
|
---|
19273 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19274 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19275 | RowBox[{"2", " ",
|
---|
19276 | SubscriptBox["c", "w"]}]], "+",
|
---|
19277 | FractionBox[
|
---|
19278 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19279 | SubscriptBox["s", "w"], " ",
|
---|
19280 | SubscriptBox[
|
---|
19281 | RowBox[{
|
---|
19282 | SuperscriptBox["\[Gamma]",
|
---|
19283 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19284 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19285 | RowBox[{
|
---|
19286 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19287 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19288 | SubscriptBox["c", "w"]]}]], "Print",
|
---|
19289 | CellChangeTimes->{
|
---|
19290 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19291 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19292 | 3.581159752119335*^9}],
|
---|
19293 |
|
---|
19294 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19295 | * * * * * *)\"\>"], "Print",
|
---|
19296 | CellChangeTimes->{
|
---|
19297 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19298 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19299 | 3.581159752124669*^9}],
|
---|
19300 |
|
---|
19301 | Cell[BoxData[
|
---|
19302 | InterpretationBox[
|
---|
19303 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "122"}],
|
---|
19304 | SequenceForm["Vertex ", 122],
|
---|
19305 | Editable->False]], "Print",
|
---|
19306 | CellChangeTimes->{
|
---|
19307 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19308 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19309 | 3.581159752130044*^9}],
|
---|
19310 |
|
---|
19311 | Cell[BoxData[
|
---|
19312 | InterpretationBox[
|
---|
19313 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19314 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19315 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
19316 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
19317 | Editable->False]], "Print",
|
---|
19318 | CellChangeTimes->{
|
---|
19319 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19320 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19321 | 3.58115975213494*^9}],
|
---|
19322 |
|
---|
19323 | Cell[BoxData[
|
---|
19324 | InterpretationBox[
|
---|
19325 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19326 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19327 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19328 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
19329 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
19330 | Editable->False]], "Print",
|
---|
19331 | CellChangeTimes->{
|
---|
19332 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19333 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19334 | 3.5811597521398907`*^9}],
|
---|
19335 |
|
---|
19336 | Cell[BoxData[
|
---|
19337 | InterpretationBox[
|
---|
19338 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19339 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19340 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19341 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19342 | Editable->False]], "Print",
|
---|
19343 | CellChangeTimes->{
|
---|
19344 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19345 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19346 | 3.581159752145172*^9}],
|
---|
19347 |
|
---|
19348 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19349 | CellChangeTimes->{
|
---|
19350 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19351 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19352 | 3.581159752150083*^9}],
|
---|
19353 |
|
---|
19354 | Cell[BoxData[
|
---|
19355 | RowBox[{
|
---|
19356 | FractionBox[
|
---|
19357 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19358 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19359 | SubscriptBox["\[Delta]",
|
---|
19360 | RowBox[{
|
---|
19361 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19362 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19363 | SubscriptBox[
|
---|
19364 | RowBox[{
|
---|
19365 | SuperscriptBox["\[Gamma]",
|
---|
19366 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19367 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19368 | RowBox[{
|
---|
19369 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19370 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19371 | RowBox[{"2", " ",
|
---|
19372 | SubscriptBox["s", "w"]}]], "-",
|
---|
19373 | FractionBox[
|
---|
19374 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19375 | SubscriptBox["s", "w"], " ",
|
---|
19376 | SubscriptBox["\[Delta]",
|
---|
19377 | RowBox[{
|
---|
19378 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19379 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19380 | SubscriptBox[
|
---|
19381 | RowBox[{
|
---|
19382 | SuperscriptBox["\[Gamma]",
|
---|
19383 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19384 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19385 | RowBox[{
|
---|
19386 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19387 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19388 | RowBox[{"6", " ",
|
---|
19389 | SubscriptBox["c", "w"]}]], "-",
|
---|
19390 | FractionBox[
|
---|
19391 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
19392 | SubscriptBox["s", "w"], " ",
|
---|
19393 | SubscriptBox["\[Delta]",
|
---|
19394 | RowBox[{
|
---|
19395 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19396 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19397 | SubscriptBox[
|
---|
19398 | RowBox[{
|
---|
19399 | SuperscriptBox["\[Gamma]",
|
---|
19400 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19401 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19402 | RowBox[{
|
---|
19403 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19404 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19405 | RowBox[{"3", " ",
|
---|
19406 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19407 | CellChangeTimes->{
|
---|
19408 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19409 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19410 | 3.581159752155547*^9}],
|
---|
19411 |
|
---|
19412 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19413 | * * * * * *)\"\>"], "Print",
|
---|
19414 | CellChangeTimes->{
|
---|
19415 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19416 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19417 | 3.5811597521611567`*^9}],
|
---|
19418 |
|
---|
19419 | Cell[BoxData[
|
---|
19420 | InterpretationBox[
|
---|
19421 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "123"}],
|
---|
19422 | SequenceForm["Vertex ", 123],
|
---|
19423 | Editable->False]], "Print",
|
---|
19424 | CellChangeTimes->{
|
---|
19425 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19426 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19427 | 3.581159752166078*^9}],
|
---|
19428 |
|
---|
19429 | Cell[BoxData[
|
---|
19430 | InterpretationBox[
|
---|
19431 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19432 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19433 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
19434 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
|
---|
19435 | Editable->False]], "Print",
|
---|
19436 | CellChangeTimes->{
|
---|
19437 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19438 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19439 | 3.581159752170896*^9}],
|
---|
19440 |
|
---|
19441 | Cell[BoxData[
|
---|
19442 | InterpretationBox[
|
---|
19443 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19444 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19445 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19446 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
19447 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
19448 | Editable->False]], "Print",
|
---|
19449 | CellChangeTimes->{
|
---|
19450 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19451 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19452 | 3.581159752175803*^9}],
|
---|
19453 |
|
---|
19454 | Cell[BoxData[
|
---|
19455 | InterpretationBox[
|
---|
19456 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19457 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19458 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19459 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19460 | Editable->False]], "Print",
|
---|
19461 | CellChangeTimes->{
|
---|
19462 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19463 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19464 | 3.5811597521810617`*^9}],
|
---|
19465 |
|
---|
19466 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19467 | CellChangeTimes->{
|
---|
19468 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19469 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19470 | 3.5811597521858377`*^9}],
|
---|
19471 |
|
---|
19472 | Cell[BoxData[
|
---|
19473 | RowBox[{
|
---|
19474 | FractionBox[
|
---|
19475 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19476 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19477 | SubscriptBox["\[Delta]",
|
---|
19478 | RowBox[{
|
---|
19479 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19480 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19481 | SubscriptBox[
|
---|
19482 | RowBox[{
|
---|
19483 | SuperscriptBox["\[Gamma]",
|
---|
19484 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19485 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19486 | RowBox[{
|
---|
19487 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19488 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19489 | RowBox[{"2", " ",
|
---|
19490 | SubscriptBox["s", "w"]}]], "-",
|
---|
19491 | FractionBox[
|
---|
19492 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19493 | SubscriptBox["s", "w"], " ",
|
---|
19494 | SubscriptBox["\[Delta]",
|
---|
19495 | RowBox[{
|
---|
19496 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19497 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19498 | SubscriptBox[
|
---|
19499 | RowBox[{
|
---|
19500 | SuperscriptBox["\[Gamma]",
|
---|
19501 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19502 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19503 | RowBox[{
|
---|
19504 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19505 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19506 | RowBox[{"6", " ",
|
---|
19507 | SubscriptBox["c", "w"]}]], "-",
|
---|
19508 | FractionBox[
|
---|
19509 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
19510 | SubscriptBox["s", "w"], " ",
|
---|
19511 | SubscriptBox["\[Delta]",
|
---|
19512 | RowBox[{
|
---|
19513 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19514 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19515 | SubscriptBox[
|
---|
19516 | RowBox[{
|
---|
19517 | SuperscriptBox["\[Gamma]",
|
---|
19518 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19519 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19520 | RowBox[{
|
---|
19521 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19522 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19523 | RowBox[{"3", " ",
|
---|
19524 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19525 | CellChangeTimes->{
|
---|
19526 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19527 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19528 | 3.58115975219106*^9}],
|
---|
19529 |
|
---|
19530 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19531 | * * * * * *)\"\>"], "Print",
|
---|
19532 | CellChangeTimes->{
|
---|
19533 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19534 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19535 | 3.5811597521968517`*^9}],
|
---|
19536 |
|
---|
19537 | Cell[BoxData[
|
---|
19538 | InterpretationBox[
|
---|
19539 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "124"}],
|
---|
19540 | SequenceForm["Vertex ", 124],
|
---|
19541 | Editable->False]], "Print",
|
---|
19542 | CellChangeTimes->{
|
---|
19543 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19544 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19545 | 3.58115975220193*^9}],
|
---|
19546 |
|
---|
19547 | Cell[BoxData[
|
---|
19548 | InterpretationBox[
|
---|
19549 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19550 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19551 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
19552 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
|
---|
19553 | Editable->False]], "Print",
|
---|
19554 | CellChangeTimes->{
|
---|
19555 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19556 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19557 | 3.581159752206717*^9}],
|
---|
19558 |
|
---|
19559 | Cell[BoxData[
|
---|
19560 | InterpretationBox[
|
---|
19561 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19562 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19563 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19564 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
19565 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
19566 | Editable->False]], "Print",
|
---|
19567 | CellChangeTimes->{
|
---|
19568 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19569 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19570 | 3.5811597522116013`*^9}],
|
---|
19571 |
|
---|
19572 | Cell[BoxData[
|
---|
19573 | InterpretationBox[
|
---|
19574 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19575 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19576 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19577 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19578 | Editable->False]], "Print",
|
---|
19579 | CellChangeTimes->{
|
---|
19580 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19581 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19582 | 3.5811597522166*^9}],
|
---|
19583 |
|
---|
19584 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19585 | CellChangeTimes->{
|
---|
19586 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19587 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19588 | 3.581159752221415*^9}],
|
---|
19589 |
|
---|
19590 | Cell[BoxData[
|
---|
19591 | RowBox[{
|
---|
19592 | FractionBox[
|
---|
19593 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19594 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19595 | SubscriptBox["\[Delta]",
|
---|
19596 | RowBox[{
|
---|
19597 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19598 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19599 | SubscriptBox[
|
---|
19600 | RowBox[{
|
---|
19601 | SuperscriptBox["\[Gamma]",
|
---|
19602 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19603 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19604 | RowBox[{
|
---|
19605 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19606 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19607 | RowBox[{"2", " ",
|
---|
19608 | SubscriptBox["s", "w"]}]], "-",
|
---|
19609 | FractionBox[
|
---|
19610 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19611 | SubscriptBox["s", "w"], " ",
|
---|
19612 | SubscriptBox["\[Delta]",
|
---|
19613 | RowBox[{
|
---|
19614 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19615 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19616 | SubscriptBox[
|
---|
19617 | RowBox[{
|
---|
19618 | SuperscriptBox["\[Gamma]",
|
---|
19619 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19620 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19621 | RowBox[{
|
---|
19622 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19623 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19624 | RowBox[{"6", " ",
|
---|
19625 | SubscriptBox["c", "w"]}]], "-",
|
---|
19626 | FractionBox[
|
---|
19627 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
19628 | SubscriptBox["s", "w"], " ",
|
---|
19629 | SubscriptBox["\[Delta]",
|
---|
19630 | RowBox[{
|
---|
19631 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
19632 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
19633 | SubscriptBox[
|
---|
19634 | RowBox[{
|
---|
19635 | SuperscriptBox["\[Gamma]",
|
---|
19636 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19637 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
19638 | RowBox[{
|
---|
19639 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19640 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19641 | RowBox[{"3", " ",
|
---|
19642 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19643 | CellChangeTimes->{
|
---|
19644 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19645 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19646 | 3.581159752226953*^9}],
|
---|
19647 |
|
---|
19648 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19649 | * * * * * *)\"\>"], "Print",
|
---|
19650 | CellChangeTimes->{
|
---|
19651 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19652 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19653 | 3.5811597522327023`*^9}],
|
---|
19654 |
|
---|
19655 | Cell[BoxData[
|
---|
19656 | InterpretationBox[
|
---|
19657 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "125"}],
|
---|
19658 | SequenceForm["Vertex ", 125],
|
---|
19659 | Editable->False]], "Print",
|
---|
19660 | CellChangeTimes->{
|
---|
19661 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19662 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19663 | 3.581159752237565*^9}],
|
---|
19664 |
|
---|
19665 | Cell[BoxData[
|
---|
19666 | InterpretationBox[
|
---|
19667 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19668 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19669 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
19670 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
19671 | Editable->False]], "Print",
|
---|
19672 | CellChangeTimes->{
|
---|
19673 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19674 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19675 | 3.581159752242515*^9}],
|
---|
19676 |
|
---|
19677 | Cell[BoxData[
|
---|
19678 | InterpretationBox[
|
---|
19679 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19680 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19681 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19682 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
19683 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
19684 | Editable->False]], "Print",
|
---|
19685 | CellChangeTimes->{
|
---|
19686 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19687 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19688 | 3.581159752247459*^9}],
|
---|
19689 |
|
---|
19690 | Cell[BoxData[
|
---|
19691 | InterpretationBox[
|
---|
19692 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19693 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19694 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19695 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19696 | Editable->False]], "Print",
|
---|
19697 | CellChangeTimes->{
|
---|
19698 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19699 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19700 | 3.5811597522522783`*^9}],
|
---|
19701 |
|
---|
19702 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19703 | CellChangeTimes->{
|
---|
19704 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19705 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19706 | 3.581159752257156*^9}],
|
---|
19707 |
|
---|
19708 | Cell[BoxData[
|
---|
19709 | RowBox[{
|
---|
19710 | FractionBox[
|
---|
19711 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19712 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19713 | SubscriptBox[
|
---|
19714 | RowBox[{
|
---|
19715 | SuperscriptBox["\[Gamma]",
|
---|
19716 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19717 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19718 | RowBox[{
|
---|
19719 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19720 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19721 | RowBox[{"2", " ",
|
---|
19722 | SubscriptBox["s", "w"]}]], "+",
|
---|
19723 | FractionBox[
|
---|
19724 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19725 | SubscriptBox["s", "w"], " ",
|
---|
19726 | SubscriptBox[
|
---|
19727 | RowBox[{
|
---|
19728 | SuperscriptBox["\[Gamma]",
|
---|
19729 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19730 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19731 | RowBox[{
|
---|
19732 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19733 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19734 | RowBox[{"2", " ",
|
---|
19735 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19736 | CellChangeTimes->{
|
---|
19737 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19738 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19739 | 3.581159752262142*^9}],
|
---|
19740 |
|
---|
19741 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19742 | * * * * * *)\"\>"], "Print",
|
---|
19743 | CellChangeTimes->{
|
---|
19744 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19745 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19746 | 3.581159752267516*^9}],
|
---|
19747 |
|
---|
19748 | Cell[BoxData[
|
---|
19749 | InterpretationBox[
|
---|
19750 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "126"}],
|
---|
19751 | SequenceForm["Vertex ", 126],
|
---|
19752 | Editable->False]], "Print",
|
---|
19753 | CellChangeTimes->{
|
---|
19754 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19755 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19756 | 3.581159752272387*^9}],
|
---|
19757 |
|
---|
19758 | Cell[BoxData[
|
---|
19759 | InterpretationBox[
|
---|
19760 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19761 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19762 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
19763 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
19764 | Editable->False]], "Print",
|
---|
19765 | CellChangeTimes->{
|
---|
19766 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19767 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19768 | 3.581159752277276*^9}],
|
---|
19769 |
|
---|
19770 | Cell[BoxData[
|
---|
19771 | InterpretationBox[
|
---|
19772 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19773 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19774 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19775 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
19776 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
19777 | Editable->False]], "Print",
|
---|
19778 | CellChangeTimes->{
|
---|
19779 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19780 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19781 | 3.581159752282116*^9}],
|
---|
19782 |
|
---|
19783 | Cell[BoxData[
|
---|
19784 | InterpretationBox[
|
---|
19785 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19786 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19787 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19788 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19789 | Editable->False]], "Print",
|
---|
19790 | CellChangeTimes->{
|
---|
19791 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19792 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19793 | 3.581159752286991*^9}],
|
---|
19794 |
|
---|
19795 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19796 | CellChangeTimes->{
|
---|
19797 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19798 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19799 | 3.581159752291872*^9}],
|
---|
19800 |
|
---|
19801 | Cell[BoxData[
|
---|
19802 | RowBox[{
|
---|
19803 | FractionBox[
|
---|
19804 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19805 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19806 | SubscriptBox[
|
---|
19807 | RowBox[{
|
---|
19808 | SuperscriptBox["\[Gamma]",
|
---|
19809 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19810 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19811 | RowBox[{
|
---|
19812 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19813 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19814 | RowBox[{"2", " ",
|
---|
19815 | SubscriptBox["s", "w"]}]], "+",
|
---|
19816 | FractionBox[
|
---|
19817 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19818 | SubscriptBox["s", "w"], " ",
|
---|
19819 | SubscriptBox[
|
---|
19820 | RowBox[{
|
---|
19821 | SuperscriptBox["\[Gamma]",
|
---|
19822 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19823 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19824 | RowBox[{
|
---|
19825 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19826 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19827 | RowBox[{"2", " ",
|
---|
19828 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19829 | CellChangeTimes->{
|
---|
19830 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19831 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19832 | 3.581159752296867*^9}],
|
---|
19833 |
|
---|
19834 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19835 | * * * * * *)\"\>"], "Print",
|
---|
19836 | CellChangeTimes->{
|
---|
19837 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19838 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19839 | 3.581159752302032*^9}],
|
---|
19840 |
|
---|
19841 | Cell[BoxData[
|
---|
19842 | InterpretationBox[
|
---|
19843 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "127"}],
|
---|
19844 | SequenceForm["Vertex ", 127],
|
---|
19845 | Editable->False]], "Print",
|
---|
19846 | CellChangeTimes->{
|
---|
19847 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19848 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19849 | 3.581159752307136*^9}],
|
---|
19850 |
|
---|
19851 | Cell[BoxData[
|
---|
19852 | InterpretationBox[
|
---|
19853 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19854 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19855 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
19856 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
19857 | Editable->False]], "Print",
|
---|
19858 | CellChangeTimes->{
|
---|
19859 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19860 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19861 | 3.581159752311952*^9}],
|
---|
19862 |
|
---|
19863 | Cell[BoxData[
|
---|
19864 | InterpretationBox[
|
---|
19865 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19866 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19867 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19868 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
19869 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
19870 | Editable->False]], "Print",
|
---|
19871 | CellChangeTimes->{
|
---|
19872 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19873 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19874 | 3.581159752316895*^9}],
|
---|
19875 |
|
---|
19876 | Cell[BoxData[
|
---|
19877 | InterpretationBox[
|
---|
19878 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19879 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19880 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19881 | SequenceForm["Particle ", 3, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19882 | Editable->False]], "Print",
|
---|
19883 | CellChangeTimes->{
|
---|
19884 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19885 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19886 | 3.581159752321907*^9}],
|
---|
19887 |
|
---|
19888 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19889 | CellChangeTimes->{
|
---|
19890 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19891 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19892 | 3.5811597523266478`*^9}],
|
---|
19893 |
|
---|
19894 | Cell[BoxData[
|
---|
19895 | RowBox[{
|
---|
19896 | FractionBox[
|
---|
19897 | RowBox[{"\[ImaginaryI]", " ",
|
---|
19898 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
19899 | SubscriptBox[
|
---|
19900 | RowBox[{
|
---|
19901 | SuperscriptBox["\[Gamma]",
|
---|
19902 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19903 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19904 | RowBox[{
|
---|
19905 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19906 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19907 | RowBox[{"2", " ",
|
---|
19908 | SubscriptBox["s", "w"]}]], "+",
|
---|
19909 | FractionBox[
|
---|
19910 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
19911 | SubscriptBox["s", "w"], " ",
|
---|
19912 | SubscriptBox[
|
---|
19913 | RowBox[{
|
---|
19914 | SuperscriptBox["\[Gamma]",
|
---|
19915 | SubscriptBox["\<\"\[Mu]\"\>", "3"]], ".",
|
---|
19916 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
19917 | RowBox[{
|
---|
19918 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
19919 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
19920 | RowBox[{"2", " ",
|
---|
19921 | SubscriptBox["c", "w"]}]]}]], "Print",
|
---|
19922 | CellChangeTimes->{
|
---|
19923 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19924 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19925 | 3.581159752331702*^9}],
|
---|
19926 |
|
---|
19927 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
19928 | * * * * * *)\"\>"], "Print",
|
---|
19929 | CellChangeTimes->{
|
---|
19930 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19931 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19932 | 3.58115975233681*^9}],
|
---|
19933 |
|
---|
19934 | Cell[BoxData[
|
---|
19935 | InterpretationBox[
|
---|
19936 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "128"}],
|
---|
19937 | SequenceForm["Vertex ", 128],
|
---|
19938 | Editable->False]], "Print",
|
---|
19939 | CellChangeTimes->{
|
---|
19940 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19941 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19942 | 3.581159752341805*^9}],
|
---|
19943 |
|
---|
19944 | Cell[BoxData[
|
---|
19945 | InterpretationBox[
|
---|
19946 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
19947 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19948 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "b"}],
|
---|
19949 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`b],
|
---|
19950 | Editable->False]], "Print",
|
---|
19951 | CellChangeTimes->{
|
---|
19952 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19953 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19954 | 3.581159752346838*^9}],
|
---|
19955 |
|
---|
19956 | Cell[BoxData[
|
---|
19957 | InterpretationBox[
|
---|
19958 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
19959 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
19960 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
19961 | OverscriptBox["b", "\<\"-\"\>"]}],
|
---|
19962 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`bbar],
|
---|
19963 | Editable->False]], "Print",
|
---|
19964 | CellChangeTimes->{
|
---|
19965 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19966 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19967 | 3.581159752351737*^9}],
|
---|
19968 |
|
---|
19969 | Cell[BoxData[
|
---|
19970 | InterpretationBox[
|
---|
19971 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
19972 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
19973 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
19974 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
19975 | Editable->False]], "Print",
|
---|
19976 | CellChangeTimes->{
|
---|
19977 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19978 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19979 | 3.581159752356605*^9}],
|
---|
19980 |
|
---|
19981 | Cell[BoxData[
|
---|
19982 | InterpretationBox[
|
---|
19983 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
19984 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
19985 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
19986 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
19987 | Editable->False]], "Print",
|
---|
19988 | CellChangeTimes->{
|
---|
19989 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19990 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19991 | 3.581159752361535*^9}],
|
---|
19992 |
|
---|
19993 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
19994 | CellChangeTimes->{
|
---|
19995 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
19996 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
19997 | 3.581159752366321*^9}],
|
---|
19998 |
|
---|
19999 | Cell[BoxData[
|
---|
20000 | RowBox[{
|
---|
20001 | RowBox[{"-",
|
---|
20002 | FractionBox[
|
---|
20003 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20004 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20005 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20006 | SubscriptBox["\[Delta]",
|
---|
20007 | RowBox[{
|
---|
20008 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20009 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20010 | SubscriptBox["\[Eta]",
|
---|
20011 | RowBox[{
|
---|
20012 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20013 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20014 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20015 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20016 | SubscriptBox[
|
---|
20017 | RowBox[{
|
---|
20018 | SuperscriptBox["\[Gamma]",
|
---|
20019 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20020 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20021 | RowBox[{
|
---|
20022 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20023 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20024 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
20025 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
20026 | FractionBox[
|
---|
20027 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20028 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20029 | SubscriptBox["s", "w"], " ",
|
---|
20030 | SubscriptBox["\[Delta]",
|
---|
20031 | RowBox[{
|
---|
20032 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20033 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20034 | SubscriptBox["\[Eta]",
|
---|
20035 | RowBox[{
|
---|
20036 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20037 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20038 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20039 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20040 | SubscriptBox[
|
---|
20041 | RowBox[{
|
---|
20042 | SuperscriptBox["\[Gamma]",
|
---|
20043 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20044 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20045 | RowBox[{
|
---|
20046 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20047 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20048 | RowBox[{"6", " ",
|
---|
20049 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20050 | FractionBox[
|
---|
20051 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20052 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20053 | SubscriptBox["s", "w"], " ",
|
---|
20054 | SubscriptBox["\[Delta]",
|
---|
20055 | RowBox[{
|
---|
20056 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20057 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20058 | SubscriptBox["\[Eta]",
|
---|
20059 | RowBox[{
|
---|
20060 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20061 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20062 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20063 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20064 | SubscriptBox[
|
---|
20065 | RowBox[{
|
---|
20066 | SuperscriptBox["\[Gamma]",
|
---|
20067 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20068 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20069 | RowBox[{
|
---|
20070 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20071 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20072 | RowBox[{"3", " ",
|
---|
20073 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20074 | FractionBox[
|
---|
20075 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20076 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20077 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20078 | SubscriptBox["\[Delta]",
|
---|
20079 | RowBox[{
|
---|
20080 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20081 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20082 | SubscriptBox["\[Eta]",
|
---|
20083 | RowBox[{
|
---|
20084 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20085 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20086 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20087 | SubscriptBox[
|
---|
20088 | RowBox[{
|
---|
20089 | SuperscriptBox["\[Gamma]",
|
---|
20090 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20091 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20092 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20093 | RowBox[{
|
---|
20094 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20095 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20096 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20097 | SubscriptBox["s", "w"]}]], "+",
|
---|
20098 | FractionBox[
|
---|
20099 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20100 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20101 | SubscriptBox["s", "w"], " ",
|
---|
20102 | SubscriptBox["\[Delta]",
|
---|
20103 | RowBox[{
|
---|
20104 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20105 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20106 | SubscriptBox["\[Eta]",
|
---|
20107 | RowBox[{
|
---|
20108 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20109 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20110 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20111 | SubscriptBox[
|
---|
20112 | RowBox[{
|
---|
20113 | SuperscriptBox["\[Gamma]",
|
---|
20114 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20115 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20116 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20117 | RowBox[{
|
---|
20118 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20119 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20120 | RowBox[{"12", " ",
|
---|
20121 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20122 | FractionBox[
|
---|
20123 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20124 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20125 | SubscriptBox["s", "w"], " ",
|
---|
20126 | SubscriptBox["\[Delta]",
|
---|
20127 | RowBox[{
|
---|
20128 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20129 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20130 | SubscriptBox["\[Eta]",
|
---|
20131 | RowBox[{
|
---|
20132 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20133 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20134 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20135 | SubscriptBox[
|
---|
20136 | RowBox[{
|
---|
20137 | SuperscriptBox["\[Gamma]",
|
---|
20138 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20139 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20140 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20141 | RowBox[{
|
---|
20142 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20143 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20144 | RowBox[{"6", " ",
|
---|
20145 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20146 | FractionBox[
|
---|
20147 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20148 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20149 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20150 | SubscriptBox["\[Delta]",
|
---|
20151 | RowBox[{
|
---|
20152 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20153 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20154 | SubscriptBox["\[Eta]",
|
---|
20155 | RowBox[{
|
---|
20156 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20157 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20158 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20159 | SubscriptBox[
|
---|
20160 | RowBox[{
|
---|
20161 | SuperscriptBox["\[Gamma]",
|
---|
20162 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20163 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20164 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20165 | RowBox[{
|
---|
20166 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20167 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20168 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20169 | SubscriptBox["s", "w"]}]], "+",
|
---|
20170 | FractionBox[
|
---|
20171 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20172 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20173 | SubscriptBox["s", "w"], " ",
|
---|
20174 | SubscriptBox["\[Delta]",
|
---|
20175 | RowBox[{
|
---|
20176 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20177 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20178 | SubscriptBox["\[Eta]",
|
---|
20179 | RowBox[{
|
---|
20180 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20181 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20182 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20183 | SubscriptBox[
|
---|
20184 | RowBox[{
|
---|
20185 | SuperscriptBox["\[Gamma]",
|
---|
20186 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20187 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20188 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20189 | RowBox[{
|
---|
20190 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20191 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20192 | RowBox[{"12", " ",
|
---|
20193 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20194 | FractionBox[
|
---|
20195 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20196 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20197 | SubscriptBox["s", "w"], " ",
|
---|
20198 | SubscriptBox["\[Delta]",
|
---|
20199 | RowBox[{
|
---|
20200 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20201 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20202 | SubscriptBox["\[Eta]",
|
---|
20203 | RowBox[{
|
---|
20204 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20205 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20206 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20207 | SubscriptBox[
|
---|
20208 | RowBox[{
|
---|
20209 | SuperscriptBox["\[Gamma]",
|
---|
20210 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20211 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20212 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20213 | RowBox[{
|
---|
20214 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20215 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20216 | RowBox[{"6", " ",
|
---|
20217 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
20218 | CellChangeTimes->{
|
---|
20219 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20220 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20221 | 3.58115975237287*^9}],
|
---|
20222 |
|
---|
20223 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
20224 | * * * * * *)\"\>"], "Print",
|
---|
20225 | CellChangeTimes->{
|
---|
20226 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20227 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20228 | 3.581159752382291*^9}],
|
---|
20229 |
|
---|
20230 | Cell[BoxData[
|
---|
20231 | InterpretationBox[
|
---|
20232 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "129"}],
|
---|
20233 | SequenceForm["Vertex ", 129],
|
---|
20234 | Editable->False]], "Print",
|
---|
20235 | CellChangeTimes->{
|
---|
20236 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20237 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20238 | 3.5811597524163857`*^9}],
|
---|
20239 |
|
---|
20240 | Cell[BoxData[
|
---|
20241 | InterpretationBox[
|
---|
20242 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
20243 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20244 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "d"}],
|
---|
20245 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`d],
|
---|
20246 | Editable->False]], "Print",
|
---|
20247 | CellChangeTimes->{
|
---|
20248 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20249 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20250 | 3.581159752422738*^9}],
|
---|
20251 |
|
---|
20252 | Cell[BoxData[
|
---|
20253 | InterpretationBox[
|
---|
20254 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
20255 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20256 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
20257 | OverscriptBox["d", "\<\"-\"\>"]}],
|
---|
20258 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`dbar],
|
---|
20259 | Editable->False]], "Print",
|
---|
20260 | CellChangeTimes->{
|
---|
20261 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20262 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20263 | 3.581159752429082*^9}],
|
---|
20264 |
|
---|
20265 | Cell[BoxData[
|
---|
20266 | InterpretationBox[
|
---|
20267 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
20268 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
20269 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
20270 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
20271 | Editable->False]], "Print",
|
---|
20272 | CellChangeTimes->{
|
---|
20273 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20274 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20275 | 3.581159752434902*^9}],
|
---|
20276 |
|
---|
20277 | Cell[BoxData[
|
---|
20278 | InterpretationBox[
|
---|
20279 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
20280 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
20281 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
20282 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
20283 | Editable->False]], "Print",
|
---|
20284 | CellChangeTimes->{
|
---|
20285 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20286 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20287 | 3.5811597524409103`*^9}],
|
---|
20288 |
|
---|
20289 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
20290 | CellChangeTimes->{
|
---|
20291 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20292 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20293 | 3.581159752446694*^9}],
|
---|
20294 |
|
---|
20295 | Cell[BoxData[
|
---|
20296 | RowBox[{
|
---|
20297 | RowBox[{"-",
|
---|
20298 | FractionBox[
|
---|
20299 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20300 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20301 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20302 | SubscriptBox["\[Delta]",
|
---|
20303 | RowBox[{
|
---|
20304 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20305 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20306 | SubscriptBox["\[Eta]",
|
---|
20307 | RowBox[{
|
---|
20308 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20309 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20310 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20311 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20312 | SubscriptBox[
|
---|
20313 | RowBox[{
|
---|
20314 | SuperscriptBox["\[Gamma]",
|
---|
20315 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20316 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20317 | RowBox[{
|
---|
20318 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20319 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20320 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
20321 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
20322 | FractionBox[
|
---|
20323 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20324 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20325 | SubscriptBox["s", "w"], " ",
|
---|
20326 | SubscriptBox["\[Delta]",
|
---|
20327 | RowBox[{
|
---|
20328 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20329 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20330 | SubscriptBox["\[Eta]",
|
---|
20331 | RowBox[{
|
---|
20332 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20333 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20334 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20335 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20336 | SubscriptBox[
|
---|
20337 | RowBox[{
|
---|
20338 | SuperscriptBox["\[Gamma]",
|
---|
20339 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20340 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20341 | RowBox[{
|
---|
20342 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20343 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20344 | RowBox[{"6", " ",
|
---|
20345 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20346 | FractionBox[
|
---|
20347 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20348 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20349 | SubscriptBox["s", "w"], " ",
|
---|
20350 | SubscriptBox["\[Delta]",
|
---|
20351 | RowBox[{
|
---|
20352 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20353 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20354 | SubscriptBox["\[Eta]",
|
---|
20355 | RowBox[{
|
---|
20356 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20357 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20358 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20359 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20360 | SubscriptBox[
|
---|
20361 | RowBox[{
|
---|
20362 | SuperscriptBox["\[Gamma]",
|
---|
20363 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20364 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20365 | RowBox[{
|
---|
20366 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20367 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20368 | RowBox[{"3", " ",
|
---|
20369 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20370 | FractionBox[
|
---|
20371 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20372 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20373 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20374 | SubscriptBox["\[Delta]",
|
---|
20375 | RowBox[{
|
---|
20376 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20377 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20378 | SubscriptBox["\[Eta]",
|
---|
20379 | RowBox[{
|
---|
20380 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20381 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20382 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20383 | SubscriptBox[
|
---|
20384 | RowBox[{
|
---|
20385 | SuperscriptBox["\[Gamma]",
|
---|
20386 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20387 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20388 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20389 | RowBox[{
|
---|
20390 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20391 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20392 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20393 | SubscriptBox["s", "w"]}]], "+",
|
---|
20394 | FractionBox[
|
---|
20395 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20396 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20397 | SubscriptBox["s", "w"], " ",
|
---|
20398 | SubscriptBox["\[Delta]",
|
---|
20399 | RowBox[{
|
---|
20400 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20401 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20402 | SubscriptBox["\[Eta]",
|
---|
20403 | RowBox[{
|
---|
20404 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20405 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20406 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20407 | SubscriptBox[
|
---|
20408 | RowBox[{
|
---|
20409 | SuperscriptBox["\[Gamma]",
|
---|
20410 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20411 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20412 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20413 | RowBox[{
|
---|
20414 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20415 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20416 | RowBox[{"12", " ",
|
---|
20417 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20418 | FractionBox[
|
---|
20419 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20420 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20421 | SubscriptBox["s", "w"], " ",
|
---|
20422 | SubscriptBox["\[Delta]",
|
---|
20423 | RowBox[{
|
---|
20424 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20425 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20426 | SubscriptBox["\[Eta]",
|
---|
20427 | RowBox[{
|
---|
20428 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20429 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20430 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20431 | SubscriptBox[
|
---|
20432 | RowBox[{
|
---|
20433 | SuperscriptBox["\[Gamma]",
|
---|
20434 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20435 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20436 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20437 | RowBox[{
|
---|
20438 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20439 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20440 | RowBox[{"6", " ",
|
---|
20441 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20442 | FractionBox[
|
---|
20443 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20444 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20445 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20446 | SubscriptBox["\[Delta]",
|
---|
20447 | RowBox[{
|
---|
20448 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20449 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20450 | SubscriptBox["\[Eta]",
|
---|
20451 | RowBox[{
|
---|
20452 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20453 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20454 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20455 | SubscriptBox[
|
---|
20456 | RowBox[{
|
---|
20457 | SuperscriptBox["\[Gamma]",
|
---|
20458 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20459 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20460 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20461 | RowBox[{
|
---|
20462 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20463 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20464 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20465 | SubscriptBox["s", "w"]}]], "+",
|
---|
20466 | FractionBox[
|
---|
20467 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20468 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20469 | SubscriptBox["s", "w"], " ",
|
---|
20470 | SubscriptBox["\[Delta]",
|
---|
20471 | RowBox[{
|
---|
20472 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20473 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20474 | SubscriptBox["\[Eta]",
|
---|
20475 | RowBox[{
|
---|
20476 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20477 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20478 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20479 | SubscriptBox[
|
---|
20480 | RowBox[{
|
---|
20481 | SuperscriptBox["\[Gamma]",
|
---|
20482 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20483 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20484 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20485 | RowBox[{
|
---|
20486 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20487 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20488 | RowBox[{"12", " ",
|
---|
20489 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20490 | FractionBox[
|
---|
20491 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20492 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20493 | SubscriptBox["s", "w"], " ",
|
---|
20494 | SubscriptBox["\[Delta]",
|
---|
20495 | RowBox[{
|
---|
20496 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20497 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20498 | SubscriptBox["\[Eta]",
|
---|
20499 | RowBox[{
|
---|
20500 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20501 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20502 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20503 | SubscriptBox[
|
---|
20504 | RowBox[{
|
---|
20505 | SuperscriptBox["\[Gamma]",
|
---|
20506 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20507 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20508 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20509 | RowBox[{
|
---|
20510 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20511 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20512 | RowBox[{"6", " ",
|
---|
20513 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
20514 | CellChangeTimes->{
|
---|
20515 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20516 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20517 | 3.581159752453549*^9}],
|
---|
20518 |
|
---|
20519 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
20520 | * * * * * *)\"\>"], "Print",
|
---|
20521 | CellChangeTimes->{
|
---|
20522 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20523 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20524 | 3.581159752462488*^9}],
|
---|
20525 |
|
---|
20526 | Cell[BoxData[
|
---|
20527 | InterpretationBox[
|
---|
20528 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "130"}],
|
---|
20529 | SequenceForm["Vertex ", 130],
|
---|
20530 | Editable->False]], "Print",
|
---|
20531 | CellChangeTimes->{
|
---|
20532 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20533 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20534 | 3.581159752467834*^9}],
|
---|
20535 |
|
---|
20536 | Cell[BoxData[
|
---|
20537 | InterpretationBox[
|
---|
20538 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
20539 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20540 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "s"}],
|
---|
20541 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`s],
|
---|
20542 | Editable->False]], "Print",
|
---|
20543 | CellChangeTimes->{
|
---|
20544 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20545 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20546 | 3.581159752473173*^9}],
|
---|
20547 |
|
---|
20548 | Cell[BoxData[
|
---|
20549 | InterpretationBox[
|
---|
20550 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
20551 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20552 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
20553 | OverscriptBox["s", "\<\"-\"\>"]}],
|
---|
20554 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`sbar],
|
---|
20555 | Editable->False]], "Print",
|
---|
20556 | CellChangeTimes->{
|
---|
20557 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20558 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20559 | 3.581159752478516*^9}],
|
---|
20560 |
|
---|
20561 | Cell[BoxData[
|
---|
20562 | InterpretationBox[
|
---|
20563 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
20564 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
20565 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
20566 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
20567 | Editable->False]], "Print",
|
---|
20568 | CellChangeTimes->{
|
---|
20569 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20570 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20571 | 3.5811597524837427`*^9}],
|
---|
20572 |
|
---|
20573 | Cell[BoxData[
|
---|
20574 | InterpretationBox[
|
---|
20575 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
20576 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
20577 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
20578 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
20579 | Editable->False]], "Print",
|
---|
20580 | CellChangeTimes->{
|
---|
20581 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20582 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20583 | 3.5811597524890947`*^9}],
|
---|
20584 |
|
---|
20585 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
20586 | CellChangeTimes->{
|
---|
20587 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20588 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20589 | 3.581159752494442*^9}],
|
---|
20590 |
|
---|
20591 | Cell[BoxData[
|
---|
20592 | RowBox[{
|
---|
20593 | RowBox[{"-",
|
---|
20594 | FractionBox[
|
---|
20595 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20596 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20597 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20598 | SubscriptBox["\[Delta]",
|
---|
20599 | RowBox[{
|
---|
20600 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20601 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20602 | SubscriptBox["\[Eta]",
|
---|
20603 | RowBox[{
|
---|
20604 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20605 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20606 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20607 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20608 | SubscriptBox[
|
---|
20609 | RowBox[{
|
---|
20610 | SuperscriptBox["\[Gamma]",
|
---|
20611 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20612 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20613 | RowBox[{
|
---|
20614 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20615 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20616 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
20617 | SubscriptBox["s", "w"]}]]}], "-",
|
---|
20618 | FractionBox[
|
---|
20619 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20620 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20621 | SubscriptBox["s", "w"], " ",
|
---|
20622 | SubscriptBox["\[Delta]",
|
---|
20623 | RowBox[{
|
---|
20624 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20625 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20626 | SubscriptBox["\[Eta]",
|
---|
20627 | RowBox[{
|
---|
20628 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20629 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20630 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20631 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20632 | SubscriptBox[
|
---|
20633 | RowBox[{
|
---|
20634 | SuperscriptBox["\[Gamma]",
|
---|
20635 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20636 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20637 | RowBox[{
|
---|
20638 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20639 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20640 | RowBox[{"6", " ",
|
---|
20641 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20642 | FractionBox[
|
---|
20643 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20644 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20645 | SubscriptBox["s", "w"], " ",
|
---|
20646 | SubscriptBox["\[Delta]",
|
---|
20647 | RowBox[{
|
---|
20648 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20649 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20650 | SubscriptBox["\[Eta]",
|
---|
20651 | RowBox[{
|
---|
20652 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20653 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20654 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20655 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20656 | SubscriptBox[
|
---|
20657 | RowBox[{
|
---|
20658 | SuperscriptBox["\[Gamma]",
|
---|
20659 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20660 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20661 | RowBox[{
|
---|
20662 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20663 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20664 | RowBox[{"3", " ",
|
---|
20665 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20666 | FractionBox[
|
---|
20667 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20668 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20669 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20670 | SubscriptBox["\[Delta]",
|
---|
20671 | RowBox[{
|
---|
20672 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20673 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20674 | SubscriptBox["\[Eta]",
|
---|
20675 | RowBox[{
|
---|
20676 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20677 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20678 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20679 | SubscriptBox[
|
---|
20680 | RowBox[{
|
---|
20681 | SuperscriptBox["\[Gamma]",
|
---|
20682 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20683 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20684 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20685 | RowBox[{
|
---|
20686 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20687 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20688 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20689 | SubscriptBox["s", "w"]}]], "+",
|
---|
20690 | FractionBox[
|
---|
20691 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20692 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20693 | SubscriptBox["s", "w"], " ",
|
---|
20694 | SubscriptBox["\[Delta]",
|
---|
20695 | RowBox[{
|
---|
20696 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20697 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20698 | SubscriptBox["\[Eta]",
|
---|
20699 | RowBox[{
|
---|
20700 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20701 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20702 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20703 | SubscriptBox[
|
---|
20704 | RowBox[{
|
---|
20705 | SuperscriptBox["\[Gamma]",
|
---|
20706 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20707 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20708 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20709 | RowBox[{
|
---|
20710 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20711 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20712 | RowBox[{"12", " ",
|
---|
20713 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20714 | FractionBox[
|
---|
20715 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20716 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20717 | SubscriptBox["s", "w"], " ",
|
---|
20718 | SubscriptBox["\[Delta]",
|
---|
20719 | RowBox[{
|
---|
20720 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20721 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20722 | SubscriptBox["\[Eta]",
|
---|
20723 | RowBox[{
|
---|
20724 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20725 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20726 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20727 | SubscriptBox[
|
---|
20728 | RowBox[{
|
---|
20729 | SuperscriptBox["\[Gamma]",
|
---|
20730 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20731 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20732 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20733 | RowBox[{
|
---|
20734 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20735 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20736 | RowBox[{"6", " ",
|
---|
20737 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20738 | FractionBox[
|
---|
20739 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20740 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20741 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20742 | SubscriptBox["\[Delta]",
|
---|
20743 | RowBox[{
|
---|
20744 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20745 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20746 | SubscriptBox["\[Eta]",
|
---|
20747 | RowBox[{
|
---|
20748 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20749 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20750 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20751 | SubscriptBox[
|
---|
20752 | RowBox[{
|
---|
20753 | SuperscriptBox["\[Gamma]",
|
---|
20754 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20755 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20756 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20757 | RowBox[{
|
---|
20758 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20759 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20760 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20761 | SubscriptBox["s", "w"]}]], "+",
|
---|
20762 | FractionBox[
|
---|
20763 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20764 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20765 | SubscriptBox["s", "w"], " ",
|
---|
20766 | SubscriptBox["\[Delta]",
|
---|
20767 | RowBox[{
|
---|
20768 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20769 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20770 | SubscriptBox["\[Eta]",
|
---|
20771 | RowBox[{
|
---|
20772 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20773 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20774 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20775 | SubscriptBox[
|
---|
20776 | RowBox[{
|
---|
20777 | SuperscriptBox["\[Gamma]",
|
---|
20778 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20779 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20780 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20781 | RowBox[{
|
---|
20782 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20783 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20784 | RowBox[{"12", " ",
|
---|
20785 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20786 | FractionBox[
|
---|
20787 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20788 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
20789 | SubscriptBox["s", "w"], " ",
|
---|
20790 | SubscriptBox["\[Delta]",
|
---|
20791 | RowBox[{
|
---|
20792 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
20793 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
20794 | SubscriptBox["\[Eta]",
|
---|
20795 | RowBox[{
|
---|
20796 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20797 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20798 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
20799 | SubscriptBox[
|
---|
20800 | RowBox[{
|
---|
20801 | SuperscriptBox["\[Gamma]",
|
---|
20802 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20803 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
20804 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20805 | RowBox[{
|
---|
20806 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20807 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20808 | RowBox[{"6", " ",
|
---|
20809 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
20810 | CellChangeTimes->{
|
---|
20811 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20812 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20813 | 3.581159752501267*^9}],
|
---|
20814 |
|
---|
20815 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
20816 | * * * * * *)\"\>"], "Print",
|
---|
20817 | CellChangeTimes->{
|
---|
20818 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20819 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20820 | 3.581159752510138*^9}],
|
---|
20821 |
|
---|
20822 | Cell[BoxData[
|
---|
20823 | InterpretationBox[
|
---|
20824 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "131"}],
|
---|
20825 | SequenceForm["Vertex ", 131],
|
---|
20826 | Editable->False]], "Print",
|
---|
20827 | CellChangeTimes->{
|
---|
20828 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20829 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20830 | 3.581159752515368*^9}],
|
---|
20831 |
|
---|
20832 | Cell[BoxData[
|
---|
20833 | InterpretationBox[
|
---|
20834 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
20835 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20836 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "e"}],
|
---|
20837 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`e],
|
---|
20838 | Editable->False]], "Print",
|
---|
20839 | CellChangeTimes->{
|
---|
20840 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20841 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20842 | 3.581159752520687*^9}],
|
---|
20843 |
|
---|
20844 | Cell[BoxData[
|
---|
20845 | InterpretationBox[
|
---|
20846 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
20847 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
20848 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
20849 | OverscriptBox["e", "\<\"-\"\>"]}],
|
---|
20850 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ebar],
|
---|
20851 | Editable->False]], "Print",
|
---|
20852 | CellChangeTimes->{
|
---|
20853 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20854 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20855 | 3.581159752527049*^9}],
|
---|
20856 |
|
---|
20857 | Cell[BoxData[
|
---|
20858 | InterpretationBox[
|
---|
20859 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
20860 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
20861 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
20862 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
20863 | Editable->False]], "Print",
|
---|
20864 | CellChangeTimes->{
|
---|
20865 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20866 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20867 | 3.581159752532419*^9}],
|
---|
20868 |
|
---|
20869 | Cell[BoxData[
|
---|
20870 | InterpretationBox[
|
---|
20871 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
20872 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
20873 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
20874 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
20875 | Editable->False]], "Print",
|
---|
20876 | CellChangeTimes->{
|
---|
20877 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20878 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20879 | 3.58115975254016*^9}],
|
---|
20880 |
|
---|
20881 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
20882 | CellChangeTimes->{
|
---|
20883 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
20884 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
20885 | 3.581159752545803*^9}],
|
---|
20886 |
|
---|
20887 | Cell[BoxData[
|
---|
20888 | RowBox[{
|
---|
20889 | RowBox[{"-",
|
---|
20890 | FractionBox[
|
---|
20891 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20892 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20893 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20894 | SubscriptBox["\[Eta]",
|
---|
20895 | RowBox[{
|
---|
20896 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20897 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20898 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20899 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20900 | SubscriptBox[
|
---|
20901 | RowBox[{
|
---|
20902 | SuperscriptBox["\[Gamma]",
|
---|
20903 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20904 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20905 | RowBox[{
|
---|
20906 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20907 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20908 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
20909 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
20910 | FractionBox[
|
---|
20911 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20912 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20913 | SubscriptBox["s", "w"], " ",
|
---|
20914 | SubscriptBox["\[Eta]",
|
---|
20915 | RowBox[{
|
---|
20916 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20917 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20918 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20919 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20920 | SubscriptBox[
|
---|
20921 | RowBox[{
|
---|
20922 | SuperscriptBox["\[Gamma]",
|
---|
20923 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20924 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20925 | RowBox[{
|
---|
20926 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20927 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20928 | RowBox[{"2", " ",
|
---|
20929 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20930 | FractionBox[
|
---|
20931 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20932 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20933 | SubscriptBox["s", "w"], " ",
|
---|
20934 | SubscriptBox["\[Eta]",
|
---|
20935 | RowBox[{
|
---|
20936 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20937 | RowBox[{"3", ",", "1"}]], ",",
|
---|
20938 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20939 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20940 | SubscriptBox[
|
---|
20941 | RowBox[{
|
---|
20942 | SuperscriptBox["\[Gamma]",
|
---|
20943 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
20944 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
20945 | RowBox[{
|
---|
20946 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20947 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20948 | RowBox[{
|
---|
20949 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
20950 | FractionBox[
|
---|
20951 | RowBox[{"\[ImaginaryI]", " ",
|
---|
20952 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
20953 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20954 | SubscriptBox["\[Eta]",
|
---|
20955 | RowBox[{
|
---|
20956 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20957 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20958 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20959 | SubscriptBox[
|
---|
20960 | RowBox[{
|
---|
20961 | SuperscriptBox["\[Gamma]",
|
---|
20962 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20963 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20964 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20965 | RowBox[{
|
---|
20966 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20967 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20968 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
20969 | SubscriptBox["s", "w"]}]], "-",
|
---|
20970 | FractionBox[
|
---|
20971 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20972 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20973 | SubscriptBox["s", "w"], " ",
|
---|
20974 | SubscriptBox["\[Eta]",
|
---|
20975 | RowBox[{
|
---|
20976 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20977 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20978 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20979 | SubscriptBox[
|
---|
20980 | RowBox[{
|
---|
20981 | SuperscriptBox["\[Gamma]",
|
---|
20982 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20983 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
20984 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
20985 | RowBox[{
|
---|
20986 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
20987 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
20988 | RowBox[{"4", " ",
|
---|
20989 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
20990 | FractionBox[
|
---|
20991 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
20992 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
20993 | SubscriptBox["s", "w"], " ",
|
---|
20994 | SubscriptBox["\[Eta]",
|
---|
20995 | RowBox[{
|
---|
20996 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
20997 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
20998 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
20999 | SubscriptBox[
|
---|
21000 | RowBox[{
|
---|
21001 | SuperscriptBox["\[Gamma]",
|
---|
21002 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21003 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21004 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21005 | RowBox[{
|
---|
21006 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21007 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21008 | RowBox[{"2", " ",
|
---|
21009 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21010 | FractionBox[
|
---|
21011 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21012 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21013 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21014 | SubscriptBox["\[Eta]",
|
---|
21015 | RowBox[{
|
---|
21016 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21017 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21018 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21019 | SubscriptBox[
|
---|
21020 | RowBox[{
|
---|
21021 | SuperscriptBox["\[Gamma]",
|
---|
21022 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21023 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21024 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21025 | RowBox[{
|
---|
21026 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21027 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21028 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21029 | SubscriptBox["s", "w"]}]], "-",
|
---|
21030 | FractionBox[
|
---|
21031 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21032 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21033 | SubscriptBox["s", "w"], " ",
|
---|
21034 | SubscriptBox["\[Eta]",
|
---|
21035 | RowBox[{
|
---|
21036 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21037 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21038 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21039 | SubscriptBox[
|
---|
21040 | RowBox[{
|
---|
21041 | SuperscriptBox["\[Gamma]",
|
---|
21042 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21043 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21044 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21045 | RowBox[{
|
---|
21046 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21047 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21048 | RowBox[{"4", " ",
|
---|
21049 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21050 | FractionBox[
|
---|
21051 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21052 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21053 | SubscriptBox["s", "w"], " ",
|
---|
21054 | SubscriptBox["\[Eta]",
|
---|
21055 | RowBox[{
|
---|
21056 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21057 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21058 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21059 | SubscriptBox[
|
---|
21060 | RowBox[{
|
---|
21061 | SuperscriptBox["\[Gamma]",
|
---|
21062 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21063 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21064 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21065 | RowBox[{
|
---|
21066 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21067 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21068 | RowBox[{"2", " ",
|
---|
21069 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
21070 | CellChangeTimes->{
|
---|
21071 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21072 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21073 | 3.581159752553585*^9}],
|
---|
21074 |
|
---|
21075 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
21076 | * * * * * *)\"\>"], "Print",
|
---|
21077 | CellChangeTimes->{
|
---|
21078 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21079 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21080 | 3.581159752567482*^9}],
|
---|
21081 |
|
---|
21082 | Cell[BoxData[
|
---|
21083 | InterpretationBox[
|
---|
21084 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "132"}],
|
---|
21085 | SequenceForm["Vertex ", 132],
|
---|
21086 | Editable->False]], "Print",
|
---|
21087 | CellChangeTimes->{
|
---|
21088 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21089 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21090 | 3.581159752579443*^9}],
|
---|
21091 |
|
---|
21092 | Cell[BoxData[
|
---|
21093 | InterpretationBox[
|
---|
21094 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
21095 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21096 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "mu"}],
|
---|
21097 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`mu],
|
---|
21098 | Editable->False]], "Print",
|
---|
21099 | CellChangeTimes->{
|
---|
21100 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21101 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21102 | 3.581159752585024*^9}],
|
---|
21103 |
|
---|
21104 | Cell[BoxData[
|
---|
21105 | InterpretationBox[
|
---|
21106 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
21107 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21108 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
21109 | OverscriptBox["mu", "\<\"-\"\>"]}],
|
---|
21110 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`mubar],
|
---|
21111 | Editable->False]], "Print",
|
---|
21112 | CellChangeTimes->{
|
---|
21113 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21114 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21115 | 3.58115975259062*^9}],
|
---|
21116 |
|
---|
21117 | Cell[BoxData[
|
---|
21118 | InterpretationBox[
|
---|
21119 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
21120 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
21121 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
21122 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
21123 | Editable->False]], "Print",
|
---|
21124 | CellChangeTimes->{
|
---|
21125 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21126 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21127 | 3.581159752596263*^9}],
|
---|
21128 |
|
---|
21129 | Cell[BoxData[
|
---|
21130 | InterpretationBox[
|
---|
21131 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
21132 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
21133 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
21134 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
21135 | Editable->False]], "Print",
|
---|
21136 | CellChangeTimes->{
|
---|
21137 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21138 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21139 | 3.58115975260179*^9}],
|
---|
21140 |
|
---|
21141 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
21142 | CellChangeTimes->{
|
---|
21143 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21144 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21145 | 3.58115975260713*^9}],
|
---|
21146 |
|
---|
21147 | Cell[BoxData[
|
---|
21148 | RowBox[{
|
---|
21149 | RowBox[{"-",
|
---|
21150 | FractionBox[
|
---|
21151 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21152 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21153 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21154 | SubscriptBox["\[Eta]",
|
---|
21155 | RowBox[{
|
---|
21156 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21157 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21158 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21159 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21160 | SubscriptBox[
|
---|
21161 | RowBox[{
|
---|
21162 | SuperscriptBox["\[Gamma]",
|
---|
21163 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21164 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21165 | RowBox[{
|
---|
21166 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21167 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21168 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
21169 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
21170 | FractionBox[
|
---|
21171 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21172 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21173 | SubscriptBox["s", "w"], " ",
|
---|
21174 | SubscriptBox["\[Eta]",
|
---|
21175 | RowBox[{
|
---|
21176 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21177 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21178 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21179 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21180 | SubscriptBox[
|
---|
21181 | RowBox[{
|
---|
21182 | SuperscriptBox["\[Gamma]",
|
---|
21183 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21184 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21185 | RowBox[{
|
---|
21186 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21187 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21188 | RowBox[{"2", " ",
|
---|
21189 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21190 | FractionBox[
|
---|
21191 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21192 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21193 | SubscriptBox["s", "w"], " ",
|
---|
21194 | SubscriptBox["\[Eta]",
|
---|
21195 | RowBox[{
|
---|
21196 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21197 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21198 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21199 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21200 | SubscriptBox[
|
---|
21201 | RowBox[{
|
---|
21202 | SuperscriptBox["\[Gamma]",
|
---|
21203 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21204 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21205 | RowBox[{
|
---|
21206 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21207 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21208 | RowBox[{
|
---|
21209 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21210 | FractionBox[
|
---|
21211 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21212 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21213 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21214 | SubscriptBox["\[Eta]",
|
---|
21215 | RowBox[{
|
---|
21216 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21217 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21218 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21219 | SubscriptBox[
|
---|
21220 | RowBox[{
|
---|
21221 | SuperscriptBox["\[Gamma]",
|
---|
21222 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21223 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21224 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21225 | RowBox[{
|
---|
21226 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21227 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21228 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21229 | SubscriptBox["s", "w"]}]], "-",
|
---|
21230 | FractionBox[
|
---|
21231 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21232 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21233 | SubscriptBox["s", "w"], " ",
|
---|
21234 | SubscriptBox["\[Eta]",
|
---|
21235 | RowBox[{
|
---|
21236 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21237 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21238 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21239 | SubscriptBox[
|
---|
21240 | RowBox[{
|
---|
21241 | SuperscriptBox["\[Gamma]",
|
---|
21242 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21243 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21244 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21245 | RowBox[{
|
---|
21246 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21247 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21248 | RowBox[{"4", " ",
|
---|
21249 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21250 | FractionBox[
|
---|
21251 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21252 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21253 | SubscriptBox["s", "w"], " ",
|
---|
21254 | SubscriptBox["\[Eta]",
|
---|
21255 | RowBox[{
|
---|
21256 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21257 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21258 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21259 | SubscriptBox[
|
---|
21260 | RowBox[{
|
---|
21261 | SuperscriptBox["\[Gamma]",
|
---|
21262 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21263 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21264 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21265 | RowBox[{
|
---|
21266 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21267 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21268 | RowBox[{"2", " ",
|
---|
21269 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21270 | FractionBox[
|
---|
21271 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21272 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21273 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21274 | SubscriptBox["\[Eta]",
|
---|
21275 | RowBox[{
|
---|
21276 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21277 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21278 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21279 | SubscriptBox[
|
---|
21280 | RowBox[{
|
---|
21281 | SuperscriptBox["\[Gamma]",
|
---|
21282 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21283 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21284 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21285 | RowBox[{
|
---|
21286 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21287 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21288 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21289 | SubscriptBox["s", "w"]}]], "-",
|
---|
21290 | FractionBox[
|
---|
21291 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21292 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21293 | SubscriptBox["s", "w"], " ",
|
---|
21294 | SubscriptBox["\[Eta]",
|
---|
21295 | RowBox[{
|
---|
21296 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21297 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21298 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21299 | SubscriptBox[
|
---|
21300 | RowBox[{
|
---|
21301 | SuperscriptBox["\[Gamma]",
|
---|
21302 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21303 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21304 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21305 | RowBox[{
|
---|
21306 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21307 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21308 | RowBox[{"4", " ",
|
---|
21309 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21310 | FractionBox[
|
---|
21311 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21312 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21313 | SubscriptBox["s", "w"], " ",
|
---|
21314 | SubscriptBox["\[Eta]",
|
---|
21315 | RowBox[{
|
---|
21316 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21317 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21318 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21319 | SubscriptBox[
|
---|
21320 | RowBox[{
|
---|
21321 | SuperscriptBox["\[Gamma]",
|
---|
21322 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21323 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21324 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21325 | RowBox[{
|
---|
21326 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21327 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21328 | RowBox[{"2", " ",
|
---|
21329 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
21330 | CellChangeTimes->{
|
---|
21331 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21332 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21333 | 3.581159752613665*^9}],
|
---|
21334 |
|
---|
21335 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
21336 | * * * * * *)\"\>"], "Print",
|
---|
21337 | CellChangeTimes->{
|
---|
21338 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21339 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21340 | 3.581159752621922*^9}],
|
---|
21341 |
|
---|
21342 | Cell[BoxData[
|
---|
21343 | InterpretationBox[
|
---|
21344 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "133"}],
|
---|
21345 | SequenceForm["Vertex ", 133],
|
---|
21346 | Editable->False]], "Print",
|
---|
21347 | CellChangeTimes->{
|
---|
21348 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21349 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21350 | 3.581159752627235*^9}],
|
---|
21351 |
|
---|
21352 | Cell[BoxData[
|
---|
21353 | InterpretationBox[
|
---|
21354 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
21355 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21356 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ta"}],
|
---|
21357 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ta],
|
---|
21358 | Editable->False]], "Print",
|
---|
21359 | CellChangeTimes->{
|
---|
21360 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21361 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21362 | 3.581159752632476*^9}],
|
---|
21363 |
|
---|
21364 | Cell[BoxData[
|
---|
21365 | InterpretationBox[
|
---|
21366 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
21367 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21368 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
21369 | OverscriptBox["ta", "\<\"-\"\>"]}],
|
---|
21370 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tabar],
|
---|
21371 | Editable->False]], "Print",
|
---|
21372 | CellChangeTimes->{
|
---|
21373 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21374 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21375 | 3.5811597526378717`*^9}],
|
---|
21376 |
|
---|
21377 | Cell[BoxData[
|
---|
21378 | InterpretationBox[
|
---|
21379 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
21380 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
21381 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
21382 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
21383 | Editable->False]], "Print",
|
---|
21384 | CellChangeTimes->{
|
---|
21385 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21386 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21387 | 3.581159752643291*^9}],
|
---|
21388 |
|
---|
21389 | Cell[BoxData[
|
---|
21390 | InterpretationBox[
|
---|
21391 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
21392 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
21393 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
21394 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
21395 | Editable->False]], "Print",
|
---|
21396 | CellChangeTimes->{
|
---|
21397 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21398 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21399 | 3.581159752648757*^9}],
|
---|
21400 |
|
---|
21401 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
21402 | CellChangeTimes->{
|
---|
21403 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21404 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21405 | 3.581159752654313*^9}],
|
---|
21406 |
|
---|
21407 | Cell[BoxData[
|
---|
21408 | RowBox[{
|
---|
21409 | RowBox[{"-",
|
---|
21410 | FractionBox[
|
---|
21411 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21412 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21413 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21414 | SubscriptBox["\[Eta]",
|
---|
21415 | RowBox[{
|
---|
21416 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21417 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21418 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21419 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21420 | SubscriptBox[
|
---|
21421 | RowBox[{
|
---|
21422 | SuperscriptBox["\[Gamma]",
|
---|
21423 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21424 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21425 | RowBox[{
|
---|
21426 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21427 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21428 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
21429 | SubscriptBox["s", "w"]}]]}], "+",
|
---|
21430 | FractionBox[
|
---|
21431 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21432 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21433 | SubscriptBox["s", "w"], " ",
|
---|
21434 | SubscriptBox["\[Eta]",
|
---|
21435 | RowBox[{
|
---|
21436 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21437 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21438 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21439 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21440 | SubscriptBox[
|
---|
21441 | RowBox[{
|
---|
21442 | SuperscriptBox["\[Gamma]",
|
---|
21443 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21444 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21445 | RowBox[{
|
---|
21446 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21447 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21448 | RowBox[{"2", " ",
|
---|
21449 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21450 | FractionBox[
|
---|
21451 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21452 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21453 | SubscriptBox["s", "w"], " ",
|
---|
21454 | SubscriptBox["\[Eta]",
|
---|
21455 | RowBox[{
|
---|
21456 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21457 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21458 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21459 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21460 | SubscriptBox[
|
---|
21461 | RowBox[{
|
---|
21462 | SuperscriptBox["\[Gamma]",
|
---|
21463 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21464 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21465 | RowBox[{
|
---|
21466 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21467 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21468 | RowBox[{
|
---|
21469 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21470 | FractionBox[
|
---|
21471 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21472 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21473 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21474 | SubscriptBox["\[Eta]",
|
---|
21475 | RowBox[{
|
---|
21476 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21477 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21478 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21479 | SubscriptBox[
|
---|
21480 | RowBox[{
|
---|
21481 | SuperscriptBox["\[Gamma]",
|
---|
21482 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21483 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21484 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21485 | RowBox[{
|
---|
21486 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21487 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21488 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21489 | SubscriptBox["s", "w"]}]], "-",
|
---|
21490 | FractionBox[
|
---|
21491 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21492 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21493 | SubscriptBox["s", "w"], " ",
|
---|
21494 | SubscriptBox["\[Eta]",
|
---|
21495 | RowBox[{
|
---|
21496 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21497 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21498 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21499 | SubscriptBox[
|
---|
21500 | RowBox[{
|
---|
21501 | SuperscriptBox["\[Gamma]",
|
---|
21502 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21503 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21504 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21505 | RowBox[{
|
---|
21506 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21507 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21508 | RowBox[{"4", " ",
|
---|
21509 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21510 | FractionBox[
|
---|
21511 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21512 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21513 | SubscriptBox["s", "w"], " ",
|
---|
21514 | SubscriptBox["\[Eta]",
|
---|
21515 | RowBox[{
|
---|
21516 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21517 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21518 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21519 | SubscriptBox[
|
---|
21520 | RowBox[{
|
---|
21521 | SuperscriptBox["\[Gamma]",
|
---|
21522 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21523 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21524 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21525 | RowBox[{
|
---|
21526 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21527 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21528 | RowBox[{"2", " ",
|
---|
21529 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21530 | FractionBox[
|
---|
21531 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21532 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21533 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21534 | SubscriptBox["\[Eta]",
|
---|
21535 | RowBox[{
|
---|
21536 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21537 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21538 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21539 | SubscriptBox[
|
---|
21540 | RowBox[{
|
---|
21541 | SuperscriptBox["\[Gamma]",
|
---|
21542 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21543 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21544 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21545 | RowBox[{
|
---|
21546 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21547 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21548 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21549 | SubscriptBox["s", "w"]}]], "-",
|
---|
21550 | FractionBox[
|
---|
21551 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21552 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21553 | SubscriptBox["s", "w"], " ",
|
---|
21554 | SubscriptBox["\[Eta]",
|
---|
21555 | RowBox[{
|
---|
21556 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21557 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21558 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21559 | SubscriptBox[
|
---|
21560 | RowBox[{
|
---|
21561 | SuperscriptBox["\[Gamma]",
|
---|
21562 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21563 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21564 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21565 | RowBox[{
|
---|
21566 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21567 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21568 | RowBox[{"4", " ",
|
---|
21569 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21570 | FractionBox[
|
---|
21571 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21572 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
21573 | SubscriptBox["s", "w"], " ",
|
---|
21574 | SubscriptBox["\[Eta]",
|
---|
21575 | RowBox[{
|
---|
21576 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21577 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21578 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21579 | SubscriptBox[
|
---|
21580 | RowBox[{
|
---|
21581 | SuperscriptBox["\[Gamma]",
|
---|
21582 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21583 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21584 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21585 | RowBox[{
|
---|
21586 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21587 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21588 | RowBox[{"2", " ",
|
---|
21589 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
21590 | CellChangeTimes->{
|
---|
21591 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21592 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21593 | 3.581159752661059*^9}],
|
---|
21594 |
|
---|
21595 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
21596 | * * * * * *)\"\>"], "Print",
|
---|
21597 | CellChangeTimes->{
|
---|
21598 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21599 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21600 | 3.5811597526693163`*^9}],
|
---|
21601 |
|
---|
21602 | Cell[BoxData[
|
---|
21603 | InterpretationBox[
|
---|
21604 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "134"}],
|
---|
21605 | SequenceForm["Vertex ", 134],
|
---|
21606 | Editable->False]], "Print",
|
---|
21607 | CellChangeTimes->{
|
---|
21608 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21609 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21610 | 3.581159752674638*^9}],
|
---|
21611 |
|
---|
21612 | Cell[BoxData[
|
---|
21613 | InterpretationBox[
|
---|
21614 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
21615 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21616 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "c"}],
|
---|
21617 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`c],
|
---|
21618 | Editable->False]], "Print",
|
---|
21619 | CellChangeTimes->{
|
---|
21620 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21621 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21622 | 3.5811597526799994`*^9}],
|
---|
21623 |
|
---|
21624 | Cell[BoxData[
|
---|
21625 | InterpretationBox[
|
---|
21626 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
21627 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21628 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
21629 | OverscriptBox["c", "\<\"-\"\>"]}],
|
---|
21630 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`cbar],
|
---|
21631 | Editable->False]], "Print",
|
---|
21632 | CellChangeTimes->{
|
---|
21633 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21634 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21635 | 3.5811597526858892`*^9}],
|
---|
21636 |
|
---|
21637 | Cell[BoxData[
|
---|
21638 | InterpretationBox[
|
---|
21639 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
21640 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
21641 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
21642 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
21643 | Editable->False]], "Print",
|
---|
21644 | CellChangeTimes->{
|
---|
21645 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21646 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21647 | 3.5811597526914682`*^9}],
|
---|
21648 |
|
---|
21649 | Cell[BoxData[
|
---|
21650 | InterpretationBox[
|
---|
21651 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
21652 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
21653 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
21654 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
21655 | Editable->False]], "Print",
|
---|
21656 | CellChangeTimes->{
|
---|
21657 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21658 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21659 | 3.581159752697114*^9}],
|
---|
21660 |
|
---|
21661 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
21662 | CellChangeTimes->{
|
---|
21663 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21664 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21665 | 3.581159752702404*^9}],
|
---|
21666 |
|
---|
21667 | Cell[BoxData[
|
---|
21668 | RowBox[{
|
---|
21669 | FractionBox[
|
---|
21670 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21671 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21672 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21673 | SubscriptBox["\[Delta]",
|
---|
21674 | RowBox[{
|
---|
21675 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21676 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21677 | SubscriptBox["\[Eta]",
|
---|
21678 | RowBox[{
|
---|
21679 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21680 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21681 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21682 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21683 | SubscriptBox[
|
---|
21684 | RowBox[{
|
---|
21685 | SuperscriptBox["\[Gamma]",
|
---|
21686 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21687 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21688 | RowBox[{
|
---|
21689 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21690 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21691 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
21692 | SubscriptBox["s", "w"]}]], "-",
|
---|
21693 | FractionBox[
|
---|
21694 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21695 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21696 | SubscriptBox["s", "w"], " ",
|
---|
21697 | SubscriptBox["\[Delta]",
|
---|
21698 | RowBox[{
|
---|
21699 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21700 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21701 | SubscriptBox["\[Eta]",
|
---|
21702 | RowBox[{
|
---|
21703 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21704 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21705 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21706 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21707 | SubscriptBox[
|
---|
21708 | RowBox[{
|
---|
21709 | SuperscriptBox["\[Gamma]",
|
---|
21710 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21711 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21712 | RowBox[{
|
---|
21713 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21714 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21715 | RowBox[{"6", " ",
|
---|
21716 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21717 | FractionBox[
|
---|
21718 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
21719 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21720 | SubscriptBox["s", "w"], " ",
|
---|
21721 | SubscriptBox["\[Delta]",
|
---|
21722 | RowBox[{
|
---|
21723 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21724 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21725 | SubscriptBox["\[Eta]",
|
---|
21726 | RowBox[{
|
---|
21727 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21728 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21729 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21730 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21731 | SubscriptBox[
|
---|
21732 | RowBox[{
|
---|
21733 | SuperscriptBox["\[Gamma]",
|
---|
21734 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21735 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21736 | RowBox[{
|
---|
21737 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21738 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21739 | RowBox[{"3", " ",
|
---|
21740 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21741 | FractionBox[
|
---|
21742 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21743 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21744 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21745 | SubscriptBox["\[Delta]",
|
---|
21746 | RowBox[{
|
---|
21747 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21748 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21749 | SubscriptBox["\[Eta]",
|
---|
21750 | RowBox[{
|
---|
21751 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21752 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21753 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21754 | SubscriptBox[
|
---|
21755 | RowBox[{
|
---|
21756 | SuperscriptBox["\[Gamma]",
|
---|
21757 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21758 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21759 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21760 | RowBox[{
|
---|
21761 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21762 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21763 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21764 | SubscriptBox["s", "w"]}]], "+",
|
---|
21765 | FractionBox[
|
---|
21766 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21767 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21768 | SubscriptBox["s", "w"], " ",
|
---|
21769 | SubscriptBox["\[Delta]",
|
---|
21770 | RowBox[{
|
---|
21771 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21772 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21773 | SubscriptBox["\[Eta]",
|
---|
21774 | RowBox[{
|
---|
21775 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21776 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21777 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21778 | SubscriptBox[
|
---|
21779 | RowBox[{
|
---|
21780 | SuperscriptBox["\[Gamma]",
|
---|
21781 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21782 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21783 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21784 | RowBox[{
|
---|
21785 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21786 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21787 | RowBox[{"12", " ",
|
---|
21788 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21789 | FractionBox[
|
---|
21790 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21791 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21792 | SubscriptBox["s", "w"], " ",
|
---|
21793 | SubscriptBox["\[Delta]",
|
---|
21794 | RowBox[{
|
---|
21795 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21796 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21797 | SubscriptBox["\[Eta]",
|
---|
21798 | RowBox[{
|
---|
21799 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21800 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21801 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21802 | SubscriptBox[
|
---|
21803 | RowBox[{
|
---|
21804 | SuperscriptBox["\[Gamma]",
|
---|
21805 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21806 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
21807 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21808 | RowBox[{
|
---|
21809 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21810 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21811 | RowBox[{"3", " ",
|
---|
21812 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
21813 | FractionBox[
|
---|
21814 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21815 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21816 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21817 | SubscriptBox["\[Delta]",
|
---|
21818 | RowBox[{
|
---|
21819 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21820 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21821 | SubscriptBox["\[Eta]",
|
---|
21822 | RowBox[{
|
---|
21823 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21824 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21825 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21826 | SubscriptBox[
|
---|
21827 | RowBox[{
|
---|
21828 | SuperscriptBox["\[Gamma]",
|
---|
21829 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21830 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21831 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21832 | RowBox[{
|
---|
21833 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21834 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21835 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
21836 | SubscriptBox["s", "w"]}]], "+",
|
---|
21837 | FractionBox[
|
---|
21838 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21839 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21840 | SubscriptBox["s", "w"], " ",
|
---|
21841 | SubscriptBox["\[Delta]",
|
---|
21842 | RowBox[{
|
---|
21843 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21844 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21845 | SubscriptBox["\[Eta]",
|
---|
21846 | RowBox[{
|
---|
21847 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21848 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21849 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21850 | SubscriptBox[
|
---|
21851 | RowBox[{
|
---|
21852 | SuperscriptBox["\[Gamma]",
|
---|
21853 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21854 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21855 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21856 | RowBox[{
|
---|
21857 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21858 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21859 | RowBox[{"12", " ",
|
---|
21860 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
21861 | FractionBox[
|
---|
21862 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21863 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21864 | SubscriptBox["s", "w"], " ",
|
---|
21865 | SubscriptBox["\[Delta]",
|
---|
21866 | RowBox[{
|
---|
21867 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21868 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21869 | SubscriptBox["\[Eta]",
|
---|
21870 | RowBox[{
|
---|
21871 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
21872 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21873 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
21874 | SubscriptBox[
|
---|
21875 | RowBox[{
|
---|
21876 | SuperscriptBox["\[Gamma]",
|
---|
21877 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21878 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
21879 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
21880 | RowBox[{
|
---|
21881 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21882 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21883 | RowBox[{"3", " ",
|
---|
21884 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
21885 | CellChangeTimes->{
|
---|
21886 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21887 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21888 | 3.5811597527091417`*^9}],
|
---|
21889 |
|
---|
21890 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
21891 | * * * * * *)\"\>"], "Print",
|
---|
21892 | CellChangeTimes->{
|
---|
21893 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21894 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21895 | 3.581159752718305*^9}],
|
---|
21896 |
|
---|
21897 | Cell[BoxData[
|
---|
21898 | InterpretationBox[
|
---|
21899 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "135"}],
|
---|
21900 | SequenceForm["Vertex ", 135],
|
---|
21901 | Editable->False]], "Print",
|
---|
21902 | CellChangeTimes->{
|
---|
21903 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21904 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21905 | 3.5811597527245407`*^9}],
|
---|
21906 |
|
---|
21907 | Cell[BoxData[
|
---|
21908 | InterpretationBox[
|
---|
21909 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
21910 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21911 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "t"}],
|
---|
21912 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`t],
|
---|
21913 | Editable->False]], "Print",
|
---|
21914 | CellChangeTimes->{
|
---|
21915 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21916 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21917 | 3.581159752730818*^9}],
|
---|
21918 |
|
---|
21919 | Cell[BoxData[
|
---|
21920 | InterpretationBox[
|
---|
21921 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
21922 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
21923 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
21924 | OverscriptBox["t", "\<\"-\"\>"]}],
|
---|
21925 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`tbar],
|
---|
21926 | Editable->False]], "Print",
|
---|
21927 | CellChangeTimes->{
|
---|
21928 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21929 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21930 | 3.581159752736656*^9}],
|
---|
21931 |
|
---|
21932 | Cell[BoxData[
|
---|
21933 | InterpretationBox[
|
---|
21934 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
21935 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
21936 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
21937 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
21938 | Editable->False]], "Print",
|
---|
21939 | CellChangeTimes->{
|
---|
21940 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21941 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21942 | 3.581159752742436*^9}],
|
---|
21943 |
|
---|
21944 | Cell[BoxData[
|
---|
21945 | InterpretationBox[
|
---|
21946 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
21947 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
21948 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
21949 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
21950 | Editable->False]], "Print",
|
---|
21951 | CellChangeTimes->{
|
---|
21952 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21953 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21954 | 3.58115975274825*^9}],
|
---|
21955 |
|
---|
21956 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
21957 | CellChangeTimes->{
|
---|
21958 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
21959 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
21960 | 3.581159752753858*^9}],
|
---|
21961 |
|
---|
21962 | Cell[BoxData[
|
---|
21963 | RowBox[{
|
---|
21964 | FractionBox[
|
---|
21965 | RowBox[{"\[ImaginaryI]", " ",
|
---|
21966 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
21967 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21968 | SubscriptBox["\[Delta]",
|
---|
21969 | RowBox[{
|
---|
21970 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21971 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21972 | SubscriptBox["\[Eta]",
|
---|
21973 | RowBox[{
|
---|
21974 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21975 | RowBox[{"3", ",", "1"}]], ",",
|
---|
21976 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21977 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
21978 | SubscriptBox[
|
---|
21979 | RowBox[{
|
---|
21980 | SuperscriptBox["\[Gamma]",
|
---|
21981 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
21982 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
21983 | RowBox[{
|
---|
21984 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
21985 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
21986 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
21987 | SubscriptBox["s", "w"]}]], "-",
|
---|
21988 | FractionBox[
|
---|
21989 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
21990 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
21991 | SubscriptBox["s", "w"], " ",
|
---|
21992 | SubscriptBox["\[Delta]",
|
---|
21993 | RowBox[{
|
---|
21994 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
21995 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
21996 | SubscriptBox["\[Eta]",
|
---|
21997 | RowBox[{
|
---|
21998 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
21999 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22000 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22001 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22002 | SubscriptBox[
|
---|
22003 | RowBox[{
|
---|
22004 | SuperscriptBox["\[Gamma]",
|
---|
22005 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22006 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22007 | RowBox[{
|
---|
22008 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22009 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22010 | RowBox[{"6", " ",
|
---|
22011 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22012 | FractionBox[
|
---|
22013 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
22014 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22015 | SubscriptBox["s", "w"], " ",
|
---|
22016 | SubscriptBox["\[Delta]",
|
---|
22017 | RowBox[{
|
---|
22018 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22019 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22020 | SubscriptBox["\[Eta]",
|
---|
22021 | RowBox[{
|
---|
22022 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22023 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22024 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22025 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22026 | SubscriptBox[
|
---|
22027 | RowBox[{
|
---|
22028 | SuperscriptBox["\[Gamma]",
|
---|
22029 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22030 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22031 | RowBox[{
|
---|
22032 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22033 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22034 | RowBox[{"3", " ",
|
---|
22035 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22036 | FractionBox[
|
---|
22037 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22038 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22039 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22040 | SubscriptBox["\[Delta]",
|
---|
22041 | RowBox[{
|
---|
22042 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22043 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22044 | SubscriptBox["\[Eta]",
|
---|
22045 | RowBox[{
|
---|
22046 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22047 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22048 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22049 | SubscriptBox[
|
---|
22050 | RowBox[{
|
---|
22051 | SuperscriptBox["\[Gamma]",
|
---|
22052 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22053 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22054 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22055 | RowBox[{
|
---|
22056 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22057 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22058 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22059 | SubscriptBox["s", "w"]}]], "+",
|
---|
22060 | FractionBox[
|
---|
22061 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22062 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22063 | SubscriptBox["s", "w"], " ",
|
---|
22064 | SubscriptBox["\[Delta]",
|
---|
22065 | RowBox[{
|
---|
22066 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22067 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22068 | SubscriptBox["\[Eta]",
|
---|
22069 | RowBox[{
|
---|
22070 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22071 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22072 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22073 | SubscriptBox[
|
---|
22074 | RowBox[{
|
---|
22075 | SuperscriptBox["\[Gamma]",
|
---|
22076 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22077 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22078 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22079 | RowBox[{
|
---|
22080 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22081 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22082 | RowBox[{"12", " ",
|
---|
22083 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
22084 | FractionBox[
|
---|
22085 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22086 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22087 | SubscriptBox["s", "w"], " ",
|
---|
22088 | SubscriptBox["\[Delta]",
|
---|
22089 | RowBox[{
|
---|
22090 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22091 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22092 | SubscriptBox["\[Eta]",
|
---|
22093 | RowBox[{
|
---|
22094 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22095 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22096 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22097 | SubscriptBox[
|
---|
22098 | RowBox[{
|
---|
22099 | SuperscriptBox["\[Gamma]",
|
---|
22100 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22101 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22102 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22103 | RowBox[{
|
---|
22104 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22105 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22106 | RowBox[{"3", " ",
|
---|
22107 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22108 | FractionBox[
|
---|
22109 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22110 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22111 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22112 | SubscriptBox["\[Delta]",
|
---|
22113 | RowBox[{
|
---|
22114 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22115 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22116 | SubscriptBox["\[Eta]",
|
---|
22117 | RowBox[{
|
---|
22118 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22119 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22120 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22121 | SubscriptBox[
|
---|
22122 | RowBox[{
|
---|
22123 | SuperscriptBox["\[Gamma]",
|
---|
22124 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22125 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22126 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22127 | RowBox[{
|
---|
22128 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22129 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22130 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22131 | SubscriptBox["s", "w"]}]], "+",
|
---|
22132 | FractionBox[
|
---|
22133 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22134 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22135 | SubscriptBox["s", "w"], " ",
|
---|
22136 | SubscriptBox["\[Delta]",
|
---|
22137 | RowBox[{
|
---|
22138 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22139 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22140 | SubscriptBox["\[Eta]",
|
---|
22141 | RowBox[{
|
---|
22142 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22143 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22144 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22145 | SubscriptBox[
|
---|
22146 | RowBox[{
|
---|
22147 | SuperscriptBox["\[Gamma]",
|
---|
22148 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22149 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22150 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22151 | RowBox[{
|
---|
22152 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22153 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22154 | RowBox[{"12", " ",
|
---|
22155 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
22156 | FractionBox[
|
---|
22157 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22158 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22159 | SubscriptBox["s", "w"], " ",
|
---|
22160 | SubscriptBox["\[Delta]",
|
---|
22161 | RowBox[{
|
---|
22162 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22163 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22164 | SubscriptBox["\[Eta]",
|
---|
22165 | RowBox[{
|
---|
22166 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22167 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22168 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22169 | SubscriptBox[
|
---|
22170 | RowBox[{
|
---|
22171 | SuperscriptBox["\[Gamma]",
|
---|
22172 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22173 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22174 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22175 | RowBox[{
|
---|
22176 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22177 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22178 | RowBox[{"3", " ",
|
---|
22179 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
22180 | CellChangeTimes->{
|
---|
22181 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22182 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22183 | 3.581159752763681*^9}],
|
---|
22184 |
|
---|
22185 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
22186 | * * * * * *)\"\>"], "Print",
|
---|
22187 | CellChangeTimes->{
|
---|
22188 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22189 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22190 | 3.581159752775873*^9}],
|
---|
22191 |
|
---|
22192 | Cell[BoxData[
|
---|
22193 | InterpretationBox[
|
---|
22194 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "136"}],
|
---|
22195 | SequenceForm["Vertex ", 136],
|
---|
22196 | Editable->False]], "Print",
|
---|
22197 | CellChangeTimes->{
|
---|
22198 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22199 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22200 | 3.581159752781117*^9}],
|
---|
22201 |
|
---|
22202 | Cell[BoxData[
|
---|
22203 | InterpretationBox[
|
---|
22204 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
22205 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22206 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "u"}],
|
---|
22207 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", FeynRules`u],
|
---|
22208 | Editable->False]], "Print",
|
---|
22209 | CellChangeTimes->{
|
---|
22210 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22211 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22212 | 3.581159752809823*^9}],
|
---|
22213 |
|
---|
22214 | Cell[BoxData[
|
---|
22215 | InterpretationBox[
|
---|
22216 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
22217 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22218 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
22219 | OverscriptBox["u", "\<\"-\"\>"]}],
|
---|
22220 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`ubar],
|
---|
22221 | Editable->False]], "Print",
|
---|
22222 | CellChangeTimes->{
|
---|
22223 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22224 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22225 | 3.581159752815258*^9}],
|
---|
22226 |
|
---|
22227 | Cell[BoxData[
|
---|
22228 | InterpretationBox[
|
---|
22229 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
22230 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
22231 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
22232 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
22233 | Editable->False]], "Print",
|
---|
22234 | CellChangeTimes->{
|
---|
22235 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22236 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22237 | 3.5811597528204536`*^9}],
|
---|
22238 |
|
---|
22239 | Cell[BoxData[
|
---|
22240 | InterpretationBox[
|
---|
22241 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
22242 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
22243 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
22244 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
22245 | Editable->False]], "Print",
|
---|
22246 | CellChangeTimes->{
|
---|
22247 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22248 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22249 | 3.581159752826549*^9}],
|
---|
22250 |
|
---|
22251 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
22252 | CellChangeTimes->{
|
---|
22253 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22254 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22255 | 3.581159752832615*^9}],
|
---|
22256 |
|
---|
22257 | Cell[BoxData[
|
---|
22258 | RowBox[{
|
---|
22259 | FractionBox[
|
---|
22260 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22261 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22262 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22263 | SubscriptBox["\[Delta]",
|
---|
22264 | RowBox[{
|
---|
22265 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22266 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22267 | SubscriptBox["\[Eta]",
|
---|
22268 | RowBox[{
|
---|
22269 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22270 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22271 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22272 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22273 | SubscriptBox[
|
---|
22274 | RowBox[{
|
---|
22275 | SuperscriptBox["\[Gamma]",
|
---|
22276 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22277 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22278 | RowBox[{
|
---|
22279 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22280 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22281 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
22282 | SubscriptBox["s", "w"]}]], "-",
|
---|
22283 | FractionBox[
|
---|
22284 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22285 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22286 | SubscriptBox["s", "w"], " ",
|
---|
22287 | SubscriptBox["\[Delta]",
|
---|
22288 | RowBox[{
|
---|
22289 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22290 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22291 | SubscriptBox["\[Eta]",
|
---|
22292 | RowBox[{
|
---|
22293 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22294 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22295 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22296 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22297 | SubscriptBox[
|
---|
22298 | RowBox[{
|
---|
22299 | SuperscriptBox["\[Gamma]",
|
---|
22300 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22301 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22302 | RowBox[{
|
---|
22303 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22304 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22305 | RowBox[{"6", " ",
|
---|
22306 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22307 | FractionBox[
|
---|
22308 | RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
|
---|
22309 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22310 | SubscriptBox["s", "w"], " ",
|
---|
22311 | SubscriptBox["\[Delta]",
|
---|
22312 | RowBox[{
|
---|
22313 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22314 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22315 | SubscriptBox["\[Eta]",
|
---|
22316 | RowBox[{
|
---|
22317 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22318 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22319 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22320 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22321 | SubscriptBox[
|
---|
22322 | RowBox[{
|
---|
22323 | SuperscriptBox["\[Gamma]",
|
---|
22324 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22325 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22326 | RowBox[{
|
---|
22327 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22328 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22329 | RowBox[{"3", " ",
|
---|
22330 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22331 | FractionBox[
|
---|
22332 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22333 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22334 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22335 | SubscriptBox["\[Delta]",
|
---|
22336 | RowBox[{
|
---|
22337 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22338 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22339 | SubscriptBox["\[Eta]",
|
---|
22340 | RowBox[{
|
---|
22341 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22342 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22343 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22344 | SubscriptBox[
|
---|
22345 | RowBox[{
|
---|
22346 | SuperscriptBox["\[Gamma]",
|
---|
22347 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22348 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22349 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22350 | RowBox[{
|
---|
22351 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22352 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22353 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22354 | SubscriptBox["s", "w"]}]], "+",
|
---|
22355 | FractionBox[
|
---|
22356 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22357 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22358 | SubscriptBox["s", "w"], " ",
|
---|
22359 | SubscriptBox["\[Delta]",
|
---|
22360 | RowBox[{
|
---|
22361 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22362 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22363 | SubscriptBox["\[Eta]",
|
---|
22364 | RowBox[{
|
---|
22365 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22366 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22367 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22368 | SubscriptBox[
|
---|
22369 | RowBox[{
|
---|
22370 | SuperscriptBox["\[Gamma]",
|
---|
22371 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22372 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22373 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22374 | RowBox[{
|
---|
22375 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22376 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22377 | RowBox[{"12", " ",
|
---|
22378 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
22379 | FractionBox[
|
---|
22380 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22381 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22382 | SubscriptBox["s", "w"], " ",
|
---|
22383 | SubscriptBox["\[Delta]",
|
---|
22384 | RowBox[{
|
---|
22385 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22386 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22387 | SubscriptBox["\[Eta]",
|
---|
22388 | RowBox[{
|
---|
22389 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22390 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22391 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22392 | SubscriptBox[
|
---|
22393 | RowBox[{
|
---|
22394 | SuperscriptBox["\[Gamma]",
|
---|
22395 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22396 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22397 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22398 | RowBox[{
|
---|
22399 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22400 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22401 | RowBox[{"3", " ",
|
---|
22402 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22403 | FractionBox[
|
---|
22404 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22405 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22406 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22407 | SubscriptBox["\[Delta]",
|
---|
22408 | RowBox[{
|
---|
22409 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22410 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22411 | SubscriptBox["\[Eta]",
|
---|
22412 | RowBox[{
|
---|
22413 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22414 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22415 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22416 | SubscriptBox[
|
---|
22417 | RowBox[{
|
---|
22418 | SuperscriptBox["\[Gamma]",
|
---|
22419 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22420 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22421 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22422 | RowBox[{
|
---|
22423 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22424 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22425 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22426 | SubscriptBox["s", "w"]}]], "+",
|
---|
22427 | FractionBox[
|
---|
22428 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22429 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22430 | SubscriptBox["s", "w"], " ",
|
---|
22431 | SubscriptBox["\[Delta]",
|
---|
22432 | RowBox[{
|
---|
22433 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22434 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22435 | SubscriptBox["\[Eta]",
|
---|
22436 | RowBox[{
|
---|
22437 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22438 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22439 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22440 | SubscriptBox[
|
---|
22441 | RowBox[{
|
---|
22442 | SuperscriptBox["\[Gamma]",
|
---|
22443 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22444 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22445 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22446 | RowBox[{
|
---|
22447 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22448 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22449 | RowBox[{"12", " ",
|
---|
22450 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "+",
|
---|
22451 | FractionBox[
|
---|
22452 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22453 | SubscriptBox["\[Kappa]", "q"], " ",
|
---|
22454 | SubscriptBox["s", "w"], " ",
|
---|
22455 | SubscriptBox["\[Delta]",
|
---|
22456 | RowBox[{
|
---|
22457 | SubscriptBox["\<\"m\"\>", "1"], ",",
|
---|
22458 | SubscriptBox["\<\"m\"\>", "2"]}]], " ",
|
---|
22459 | SubscriptBox["\[Eta]",
|
---|
22460 | RowBox[{
|
---|
22461 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22462 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22463 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22464 | SubscriptBox[
|
---|
22465 | RowBox[{
|
---|
22466 | SuperscriptBox["\[Gamma]",
|
---|
22467 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22468 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22469 | SubscriptBox["P", "\<\"+\"\>"]}],
|
---|
22470 | RowBox[{
|
---|
22471 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22472 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22473 | RowBox[{"3", " ",
|
---|
22474 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
22475 | CellChangeTimes->{
|
---|
22476 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22477 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22478 | 3.581159752839449*^9}],
|
---|
22479 |
|
---|
22480 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
22481 | * * * * * *)\"\>"], "Print",
|
---|
22482 | CellChangeTimes->{
|
---|
22483 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22484 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22485 | 3.581159752848649*^9}],
|
---|
22486 |
|
---|
22487 | Cell[BoxData[
|
---|
22488 | InterpretationBox[
|
---|
22489 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "137"}],
|
---|
22490 | SequenceForm["Vertex ", 137],
|
---|
22491 | Editable->False]], "Print",
|
---|
22492 | CellChangeTimes->{
|
---|
22493 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22494 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22495 | 3.581159752853713*^9}],
|
---|
22496 |
|
---|
22497 | Cell[BoxData[
|
---|
22498 | InterpretationBox[
|
---|
22499 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
22500 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22501 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "ve"}],
|
---|
22502 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`ve],
|
---|
22503 | Editable->False]], "Print",
|
---|
22504 | CellChangeTimes->{
|
---|
22505 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22506 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22507 | 3.581159752858737*^9}],
|
---|
22508 |
|
---|
22509 | Cell[BoxData[
|
---|
22510 | InterpretationBox[
|
---|
22511 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
22512 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22513 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
22514 | OverscriptBox["ve", "\<\"-\"\>"]}],
|
---|
22515 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vebar],
|
---|
22516 | Editable->False]], "Print",
|
---|
22517 | CellChangeTimes->{
|
---|
22518 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22519 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22520 | 3.58115975286452*^9}],
|
---|
22521 |
|
---|
22522 | Cell[BoxData[
|
---|
22523 | InterpretationBox[
|
---|
22524 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
22525 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
22526 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
22527 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
22528 | Editable->False]], "Print",
|
---|
22529 | CellChangeTimes->{
|
---|
22530 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22531 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22532 | 3.581159752870281*^9}],
|
---|
22533 |
|
---|
22534 | Cell[BoxData[
|
---|
22535 | InterpretationBox[
|
---|
22536 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
22537 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
22538 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
22539 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
22540 | Editable->False]], "Print",
|
---|
22541 | CellChangeTimes->{
|
---|
22542 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22543 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22544 | 3.581159752875308*^9}],
|
---|
22545 |
|
---|
22546 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
22547 | CellChangeTimes->{
|
---|
22548 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22549 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22550 | 3.5811597528819427`*^9}],
|
---|
22551 |
|
---|
22552 | Cell[BoxData[
|
---|
22553 | RowBox[{
|
---|
22554 | FractionBox[
|
---|
22555 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22556 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22557 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22558 | SubscriptBox["\[Eta]",
|
---|
22559 | RowBox[{
|
---|
22560 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22561 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22562 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22563 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22564 | SubscriptBox[
|
---|
22565 | RowBox[{
|
---|
22566 | SuperscriptBox["\[Gamma]",
|
---|
22567 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22568 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22569 | RowBox[{
|
---|
22570 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22571 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22572 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
22573 | SubscriptBox["s", "w"]}]], "+",
|
---|
22574 | FractionBox[
|
---|
22575 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22576 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22577 | SubscriptBox["s", "w"], " ",
|
---|
22578 | SubscriptBox["\[Eta]",
|
---|
22579 | RowBox[{
|
---|
22580 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22581 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22582 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22583 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22584 | SubscriptBox[
|
---|
22585 | RowBox[{
|
---|
22586 | SuperscriptBox["\[Gamma]",
|
---|
22587 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22588 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22589 | RowBox[{
|
---|
22590 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22591 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22592 | RowBox[{"2", " ",
|
---|
22593 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22594 | FractionBox[
|
---|
22595 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22596 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22597 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22598 | SubscriptBox["\[Eta]",
|
---|
22599 | RowBox[{
|
---|
22600 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22601 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22602 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22603 | SubscriptBox[
|
---|
22604 | RowBox[{
|
---|
22605 | SuperscriptBox["\[Gamma]",
|
---|
22606 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22607 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22608 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22609 | RowBox[{
|
---|
22610 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22611 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22612 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22613 | SubscriptBox["s", "w"]}]], "-",
|
---|
22614 | FractionBox[
|
---|
22615 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22616 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22617 | SubscriptBox["s", "w"], " ",
|
---|
22618 | SubscriptBox["\[Eta]",
|
---|
22619 | RowBox[{
|
---|
22620 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22621 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22622 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22623 | SubscriptBox[
|
---|
22624 | RowBox[{
|
---|
22625 | SuperscriptBox["\[Gamma]",
|
---|
22626 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22627 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22628 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22629 | RowBox[{
|
---|
22630 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22631 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22632 | RowBox[{"4", " ",
|
---|
22633 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22634 | FractionBox[
|
---|
22635 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22636 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22637 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22638 | SubscriptBox["\[Eta]",
|
---|
22639 | RowBox[{
|
---|
22640 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22641 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22642 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22643 | SubscriptBox[
|
---|
22644 | RowBox[{
|
---|
22645 | SuperscriptBox["\[Gamma]",
|
---|
22646 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22647 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22648 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22649 | RowBox[{
|
---|
22650 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22651 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22652 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22653 | SubscriptBox["s", "w"]}]], "-",
|
---|
22654 | FractionBox[
|
---|
22655 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22656 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22657 | SubscriptBox["s", "w"], " ",
|
---|
22658 | SubscriptBox["\[Eta]",
|
---|
22659 | RowBox[{
|
---|
22660 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22661 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22662 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22663 | SubscriptBox[
|
---|
22664 | RowBox[{
|
---|
22665 | SuperscriptBox["\[Gamma]",
|
---|
22666 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22667 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22668 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22669 | RowBox[{
|
---|
22670 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22671 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22672 | RowBox[{"4", " ",
|
---|
22673 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
22674 | CellChangeTimes->{
|
---|
22675 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22676 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22677 | 3.581159752888709*^9}],
|
---|
22678 |
|
---|
22679 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
22680 | * * * * * *)\"\>"], "Print",
|
---|
22681 | CellChangeTimes->{
|
---|
22682 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22683 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22684 | 3.5811597528960133`*^9}],
|
---|
22685 |
|
---|
22686 | Cell[BoxData[
|
---|
22687 | InterpretationBox[
|
---|
22688 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "138"}],
|
---|
22689 | SequenceForm["Vertex ", 138],
|
---|
22690 | Editable->False]], "Print",
|
---|
22691 | CellChangeTimes->{
|
---|
22692 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22693 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22694 | 3.581159752901122*^9}],
|
---|
22695 |
|
---|
22696 | Cell[BoxData[
|
---|
22697 | InterpretationBox[
|
---|
22698 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
22699 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22700 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vm"}],
|
---|
22701 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vm],
|
---|
22702 | Editable->False]], "Print",
|
---|
22703 | CellChangeTimes->{
|
---|
22704 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22705 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22706 | 3.581159752906014*^9}],
|
---|
22707 |
|
---|
22708 | Cell[BoxData[
|
---|
22709 | InterpretationBox[
|
---|
22710 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
22711 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22712 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
22713 | OverscriptBox["vm", "\<\"-\"\>"]}],
|
---|
22714 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vmbar],
|
---|
22715 | Editable->False]], "Print",
|
---|
22716 | CellChangeTimes->{
|
---|
22717 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22718 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22719 | 3.581159752911072*^9}],
|
---|
22720 |
|
---|
22721 | Cell[BoxData[
|
---|
22722 | InterpretationBox[
|
---|
22723 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
22724 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
22725 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
22726 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
22727 | Editable->False]], "Print",
|
---|
22728 | CellChangeTimes->{
|
---|
22729 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22730 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22731 | 3.5811597529162493`*^9}],
|
---|
22732 |
|
---|
22733 | Cell[BoxData[
|
---|
22734 | InterpretationBox[
|
---|
22735 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
22736 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
22737 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
22738 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
22739 | Editable->False]], "Print",
|
---|
22740 | CellChangeTimes->{
|
---|
22741 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22742 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22743 | 3.5811597529222183`*^9}],
|
---|
22744 |
|
---|
22745 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
22746 | CellChangeTimes->{
|
---|
22747 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22748 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22749 | 3.5811597529284773`*^9}],
|
---|
22750 |
|
---|
22751 | Cell[BoxData[
|
---|
22752 | RowBox[{
|
---|
22753 | FractionBox[
|
---|
22754 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22755 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22756 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22757 | SubscriptBox["\[Eta]",
|
---|
22758 | RowBox[{
|
---|
22759 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22760 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22761 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22762 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22763 | SubscriptBox[
|
---|
22764 | RowBox[{
|
---|
22765 | SuperscriptBox["\[Gamma]",
|
---|
22766 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22767 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22768 | RowBox[{
|
---|
22769 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22770 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22771 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
22772 | SubscriptBox["s", "w"]}]], "+",
|
---|
22773 | FractionBox[
|
---|
22774 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22775 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22776 | SubscriptBox["s", "w"], " ",
|
---|
22777 | SubscriptBox["\[Eta]",
|
---|
22778 | RowBox[{
|
---|
22779 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22780 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22781 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22782 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22783 | SubscriptBox[
|
---|
22784 | RowBox[{
|
---|
22785 | SuperscriptBox["\[Gamma]",
|
---|
22786 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22787 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22788 | RowBox[{
|
---|
22789 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22790 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22791 | RowBox[{"2", " ",
|
---|
22792 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22793 | FractionBox[
|
---|
22794 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22795 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22796 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22797 | SubscriptBox["\[Eta]",
|
---|
22798 | RowBox[{
|
---|
22799 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22800 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22801 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22802 | SubscriptBox[
|
---|
22803 | RowBox[{
|
---|
22804 | SuperscriptBox["\[Gamma]",
|
---|
22805 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22806 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22807 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22808 | RowBox[{
|
---|
22809 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22810 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22811 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22812 | SubscriptBox["s", "w"]}]], "-",
|
---|
22813 | FractionBox[
|
---|
22814 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22815 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22816 | SubscriptBox["s", "w"], " ",
|
---|
22817 | SubscriptBox["\[Eta]",
|
---|
22818 | RowBox[{
|
---|
22819 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22820 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22821 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22822 | SubscriptBox[
|
---|
22823 | RowBox[{
|
---|
22824 | SuperscriptBox["\[Gamma]",
|
---|
22825 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22826 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
22827 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22828 | RowBox[{
|
---|
22829 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22830 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22831 | RowBox[{"4", " ",
|
---|
22832 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22833 | FractionBox[
|
---|
22834 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22835 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22836 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22837 | SubscriptBox["\[Eta]",
|
---|
22838 | RowBox[{
|
---|
22839 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22840 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22841 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22842 | SubscriptBox[
|
---|
22843 | RowBox[{
|
---|
22844 | SuperscriptBox["\[Gamma]",
|
---|
22845 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22846 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22847 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22848 | RowBox[{
|
---|
22849 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22850 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22851 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
22852 | SubscriptBox["s", "w"]}]], "-",
|
---|
22853 | FractionBox[
|
---|
22854 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22855 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22856 | SubscriptBox["s", "w"], " ",
|
---|
22857 | SubscriptBox["\[Eta]",
|
---|
22858 | RowBox[{
|
---|
22859 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22860 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22861 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
22862 | SubscriptBox[
|
---|
22863 | RowBox[{
|
---|
22864 | SuperscriptBox["\[Gamma]",
|
---|
22865 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22866 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
22867 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22868 | RowBox[{
|
---|
22869 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22870 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22871 | RowBox[{"4", " ",
|
---|
22872 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
22873 | CellChangeTimes->{
|
---|
22874 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22875 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22876 | 3.581159752935207*^9}],
|
---|
22877 |
|
---|
22878 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
22879 | * * * * * *)\"\>"], "Print",
|
---|
22880 | CellChangeTimes->{
|
---|
22881 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22882 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22883 | 3.581159752943437*^9}],
|
---|
22884 |
|
---|
22885 | Cell[BoxData[
|
---|
22886 | InterpretationBox[
|
---|
22887 | RowBox[{"\<\"Vertex \"\>", "\[InvisibleSpace]", "139"}],
|
---|
22888 | SequenceForm["Vertex ", 139],
|
---|
22889 | Editable->False]], "Print",
|
---|
22890 | CellChangeTimes->{
|
---|
22891 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22892 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22893 | 3.58115975294973*^9}],
|
---|
22894 |
|
---|
22895 | Cell[BoxData[
|
---|
22896 | InterpretationBox[
|
---|
22897 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "1",
|
---|
22898 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22899 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "vt"}],
|
---|
22900 | SequenceForm["Particle ", 1, " : ", "Dirac", " , ", $CellContext`vt],
|
---|
22901 | Editable->False]], "Print",
|
---|
22902 | CellChangeTimes->{
|
---|
22903 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22904 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22905 | 3.5811597529551497`*^9}],
|
---|
22906 |
|
---|
22907 | Cell[BoxData[
|
---|
22908 | InterpretationBox[
|
---|
22909 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "2",
|
---|
22910 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Dirac\"\>",
|
---|
22911 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]",
|
---|
22912 | OverscriptBox["vt", "\<\"-\"\>"]}],
|
---|
22913 | SequenceForm["Particle ", 2, " : ", "Dirac", " , ", $CellContext`vtbar],
|
---|
22914 | Editable->False]], "Print",
|
---|
22915 | CellChangeTimes->{
|
---|
22916 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22917 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22918 | 3.581159752961198*^9}],
|
---|
22919 |
|
---|
22920 | Cell[BoxData[
|
---|
22921 | InterpretationBox[
|
---|
22922 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "3",
|
---|
22923 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Spin 2\"\>",
|
---|
22924 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "X2"}],
|
---|
22925 | SequenceForm["Particle ", 3, " : ", "Spin 2", " , ", $CellContext`X2],
|
---|
22926 | Editable->False]], "Print",
|
---|
22927 | CellChangeTimes->{
|
---|
22928 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22929 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22930 | 3.581159752967177*^9}],
|
---|
22931 |
|
---|
22932 | Cell[BoxData[
|
---|
22933 | InterpretationBox[
|
---|
22934 | RowBox[{"\<\"Particle \"\>", "\[InvisibleSpace]", "4",
|
---|
22935 | "\[InvisibleSpace]", "\<\" : \"\>", "\[InvisibleSpace]", "\<\"Vector\"\>",
|
---|
22936 | "\[InvisibleSpace]", "\<\" , \"\>", "\[InvisibleSpace]", "Z"}],
|
---|
22937 | SequenceForm["Particle ", 4, " : ", "Vector", " , ", $CellContext`Z],
|
---|
22938 | Editable->False]], "Print",
|
---|
22939 | CellChangeTimes->{
|
---|
22940 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22941 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22942 | 3.581159752973268*^9}],
|
---|
22943 |
|
---|
22944 | Cell[BoxData["\<\"Vertex:\"\>"], "Print",
|
---|
22945 | CellChangeTimes->{
|
---|
22946 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
22947 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
22948 | 3.581159752978757*^9}],
|
---|
22949 |
|
---|
22950 | Cell[BoxData[
|
---|
22951 | RowBox[{
|
---|
22952 | FractionBox[
|
---|
22953 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22954 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22955 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22956 | SubscriptBox["\[Eta]",
|
---|
22957 | RowBox[{
|
---|
22958 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22959 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22960 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22961 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22962 | SubscriptBox[
|
---|
22963 | RowBox[{
|
---|
22964 | SuperscriptBox["\[Gamma]",
|
---|
22965 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22966 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22967 | RowBox[{
|
---|
22968 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22969 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22970 | RowBox[{"2", " ", "\[CapitalLambda]", " ",
|
---|
22971 | SubscriptBox["s", "w"]}]], "+",
|
---|
22972 | FractionBox[
|
---|
22973 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
22974 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22975 | SubscriptBox["s", "w"], " ",
|
---|
22976 | SubscriptBox["\[Eta]",
|
---|
22977 | RowBox[{
|
---|
22978 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22979 | RowBox[{"3", ",", "1"}]], ",",
|
---|
22980 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
22981 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
22982 | SubscriptBox[
|
---|
22983 | RowBox[{
|
---|
22984 | SuperscriptBox["\[Gamma]",
|
---|
22985 | SubscriptBox["\<\"\[Mu]\"\>", "4"]], ".",
|
---|
22986 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
22987 | RowBox[{
|
---|
22988 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
22989 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
22990 | RowBox[{"2", " ",
|
---|
22991 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
22992 | FractionBox[
|
---|
22993 | RowBox[{"\[ImaginaryI]", " ",
|
---|
22994 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
22995 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
22996 | SubscriptBox["\[Eta]",
|
---|
22997 | RowBox[{
|
---|
22998 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
22999 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23000 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
23001 | SubscriptBox[
|
---|
23002 | RowBox[{
|
---|
23003 | SuperscriptBox["\[Gamma]",
|
---|
23004 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23005 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
23006 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
23007 | RowBox[{
|
---|
23008 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
23009 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
23010 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
23011 | SubscriptBox["s", "w"]}]], "-",
|
---|
23012 | FractionBox[
|
---|
23013 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
23014 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
23015 | SubscriptBox["s", "w"], " ",
|
---|
23016 | SubscriptBox["\[Eta]",
|
---|
23017 | RowBox[{
|
---|
23018 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
23019 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23020 | RowBox[{"3", ",", "2"}]]}]], " ",
|
---|
23021 | SubscriptBox[
|
---|
23022 | RowBox[{
|
---|
23023 | SuperscriptBox["\[Gamma]",
|
---|
23024 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23025 | RowBox[{"3", ",", "1"}]]], ".",
|
---|
23026 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
23027 | RowBox[{
|
---|
23028 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
23029 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
23030 | RowBox[{"4", " ",
|
---|
23031 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]], "-",
|
---|
23032 | FractionBox[
|
---|
23033 | RowBox[{"\[ImaginaryI]", " ",
|
---|
23034 | SubscriptBox["c", "w"], " ", "e", " ",
|
---|
23035 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
23036 | SubscriptBox["\[Eta]",
|
---|
23037 | RowBox[{
|
---|
23038 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
23039 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23040 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
23041 | SubscriptBox[
|
---|
23042 | RowBox[{
|
---|
23043 | SuperscriptBox["\[Gamma]",
|
---|
23044 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23045 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
23046 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
23047 | RowBox[{
|
---|
23048 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
23049 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
23050 | RowBox[{"4", " ", "\[CapitalLambda]", " ",
|
---|
23051 | SubscriptBox["s", "w"]}]], "-",
|
---|
23052 | FractionBox[
|
---|
23053 | RowBox[{"\[ImaginaryI]", " ", "e", " ",
|
---|
23054 | SubscriptBox["\[Kappa]", "l"], " ",
|
---|
23055 | SubscriptBox["s", "w"], " ",
|
---|
23056 | SubscriptBox["\[Eta]",
|
---|
23057 | RowBox[{
|
---|
23058 | SubscriptBox["\<\"\[Mu]\"\>", "4"], ",",
|
---|
23059 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23060 | RowBox[{"3", ",", "1"}]]}]], " ",
|
---|
23061 | SubscriptBox[
|
---|
23062 | RowBox[{
|
---|
23063 | SuperscriptBox["\[Gamma]",
|
---|
23064 | SubscriptBox["\<\"\[Mu]\"\>",
|
---|
23065 | RowBox[{"3", ",", "2"}]]], ".",
|
---|
23066 | SubscriptBox["P", "\<\"-\"\>"]}],
|
---|
23067 | RowBox[{
|
---|
23068 | SubscriptBox["\<\"s\"\>", "2"], ",",
|
---|
23069 | SubscriptBox["\<\"s\"\>", "1"]}]]}],
|
---|
23070 | RowBox[{"4", " ",
|
---|
23071 | SubscriptBox["c", "w"], " ", "\[CapitalLambda]"}]]}]], "Print",
|
---|
23072 | CellChangeTimes->{
|
---|
23073 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
23074 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
23075 | 3.5811597529849367`*^9}],
|
---|
23076 |
|
---|
23077 | Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
|
---|
23078 | * * * * * *)\"\>"], "Print",
|
---|
23079 | CellChangeTimes->{
|
---|
23080 | 3.581151429983069*^9, {3.581151472736092*^9, 3.581151481059348*^9},
|
---|
23081 | 3.581152947523683*^9, 3.5811593670610723`*^9, 3.581159414446044*^9,
|
---|
23082 | 3.5811597529924793`*^9}]
|
---|
23083 | }, Open ]]
|
---|
23084 | }, Closed]],
|
---|
23085 |
|
---|
23086 | Cell[CellGroupData[{
|
---|
23087 |
|
---|
23088 | Cell[BoxData[
|
---|
23089 | RowBox[{"WriteUFO", "[",
|
---|
23090 | RowBox[{"LagHC", ",",
|
---|
23091 | RowBox[{"RemoveGhosts", "\[Rule]", "True"}], ",",
|
---|
23092 | RowBox[{"AddDecays", "\[Rule]", "False"}]}], "]"}]], "Input",
|
---|
23093 | CellChangeTimes->{{3.577107029356776*^9, 3.5771070477923737`*^9}, {
|
---|
23094 | 3.577158523077528*^9, 3.577158534562706*^9}, 3.577160281210434*^9, {
|
---|
23095 | 3.579411806714102*^9, 3.579411828528706*^9}, {3.579422946305105*^9,
|
---|
23096 | 3.579422989755477*^9}, {3.579451314563088*^9, 3.5794513402565603`*^9}, {
|
---|
23097 | 3.579509547412293*^9, 3.579509551094151*^9}, {3.5795101776420813`*^9,
|
---|
23098 | 3.579510178098853*^9}, {3.579510326274065*^9, 3.579510327951848*^9}, {
|
---|
23099 | 3.579511951094426*^9, 3.579511951792654*^9}, {3.579516692371182*^9,
|
---|
23100 | 3.579516693661449*^9}, {3.579517289114347*^9, 3.579517290160247*^9}, {
|
---|
23101 | 3.579517469625496*^9, 3.579517497580488*^9}, {3.5795397677576017`*^9,
|
---|
23102 | 3.579539779430418*^9}, 3.579595493612273*^9, {3.579609434073883*^9,
|
---|
23103 | 3.579609440715682*^9}, {3.579775253548801*^9, 3.579775259057622*^9}, {
|
---|
23104 | 3.579775397339424*^9, 3.579775401034914*^9}, {3.579776087450013*^9,
|
---|
23105 | 3.579776090678286*^9}, {3.581159850189066*^9, 3.5811598529615707`*^9}, {
|
---|
23106 | 3.595333062080071*^9, 3.595333076540902*^9}}],
|
---|
23107 |
|
---|
23108 | Cell[CellGroupData[{
|
---|
23109 |
|
---|
23110 | Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
|
---|
23111 | "Print",
|
---|
23112 | CellChangeTimes->CompressedData["
|
---|
23113 | 1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/zrlz5IlyJnI0GiK0
|
---|
23114 | SMo1DHOsUJNY5kxISIxHPxJbecAa3++DT6/6PHpzCmsyZDYsFksIa5LYtRhm
|
---|
23115 | KDn04i0eg2Gp9XUvYJrqIOkVHJPYq4NU8DfkeQvAcf7LnwgU+j2U5IEpd+ez
|
---|
23116 | qOu1fB2NzE7Wo9xe4WA+ePA1qUGNO1ZjIWghejPaIZxnF4EmsaM76lzxEIgG
|
---|
23117 | yKsFqICriUQ330yJqG5VzaAfx2pZMejCfeRWg8ljj0wPWLbBa0RNoVUBCjBk
|
---|
23118 | einsGRyx3OagzM+cHJXVLFiN4O/gbnrEIiXR2gb3clD5Lt2vBd08Mrq7QDEn
|
---|
23119 | 7lMOVq1MKYdAS+bzLCo1O9gOg1pXH+UN6OV/b0Azn1ROF0uUXG51hHcuU3Ln
|
---|
23120 | GVz2DQ4UNIsdV6CjXSdRrFHiQ8yXIg0l/UzllwS0Fk0sx4NnrfzTlD1K9G2j
|
---|
23121 | 231HlLCisiYUoO/0TCnbQEnCQIyUB56E5k4y4L3IGisDr9KbRtB/Jjj56g==
|
---|
23122 |
|
---|
23123 | "]],
|
---|
23124 |
|
---|
23125 | Cell[BoxData[
|
---|
23126 | StyleBox["\<\"Starting Feynman rule calculation.\"\>",
|
---|
23127 | StripOnInput->False,
|
---|
23128 | LineColor->RGBColor[1, 0.5, 0],
|
---|
23129 | FrontFaceColor->RGBColor[1, 0.5, 0],
|
---|
23130 | BackFaceColor->RGBColor[1, 0.5, 0],
|
---|
23131 | GraphicsColor->RGBColor[1, 0.5, 0],
|
---|
23132 | FontWeight->Bold,
|
---|
23133 | FontColor->RGBColor[1, 0.5, 0]]], "Print",
|
---|
23134 | CellChangeTimes->CompressedData["
|
---|
23135 | 1:eJwVzmkow3Ecx/EheWBE4pFypIyRHMNq0m/YnDkeOJZ/zrlz5IlyJnI0GnK2
|
---|
23136 | JinXMMxVKNIsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSK1YLBYf1iS2adHP
|
---|
23137 | UHLkyV08AcNT6+tewDSVNukVHBfbqYNU8DfkefPAibCXPyHI93soyQNT7i5m
|
---|
23138 | UZdr2ToqyE7WoZxe/mA+qP2a1KCGXYuhEDQTnQnt4M87FIFGEdsNdap4CEQD
|
---|
23139 | ZNU8lMfRCNDNN2Miur+qZtCPE7W0GHTmPHKqweTxR6YHLNvgNqLG0KoAORgy
|
---|
23140 | vRT+DI6Yb3NQ5mdOhkprFiwG8HdwLz1ykZLo7Qa3clDxLjmsBV3dM7q7QJFX
|
---|
23141 | 3KcMrFqZUgyB5sznWVRisrceBrddfBQ3oKf/vR7NfFI5Xi5RcrXVEdG5TMmd
|
---|
23142 | R3DZNzhQ0Cxir0BH+75YvkaJDzFdCTWU9DOVX2LQUqRcjgfPW8POUg4o0bWN
|
---|
23143 | 7fQdU8KKylLKQd/pmVIHPSUJAzESLngamjvJgPdCS6wUFChtR9F/IM75KQ==
|
---|
23144 |
|
---|
23145 | "]],
|
---|
23146 |
|
---|
23147 | Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
|
---|
23148 | CellChangeTimes->CompressedData["
|
---|
23149 | 1:eJwVzmkow3Ecx/EheeCIZI+UI2VskmNYkX7D5szxwLH8c86dI0+UM5Gj0ZCz
|
---|
23150 | RVKuYWOuckRimTNFQmI8+pHYygPW+H4ffHrV59HbI78qTWrBYrEEsAaxVZNu
|
---|
23151 | mpIjd+7CCRiSXFvzAqYoDxNewVGxjcpfCX9djicfHAt++ROCAp+Hohww6e5i
|
---|
23152 | BnW+lq2i4ZmJWpTTLejPBQ+/JjSoftuszwdNRGtE2wRz9gWgQWTHRh3LHvxQ
|
---|
23153 | nqySj/I5mnB0/c0Qj+4tqxj040QlLQSdOI+cSjBx9JHpAkvWuPWoIaiCJwcD
|
---|
23154 | pxZDnsEh020WyvzMylBp1bxZD/7276SGLVASuVnHLgUV75KDatDFNa2zAxR5
|
---|
23155 | xHzKwAr1pGIANKU/z6ASo63lILjp7KW4Ad1973Vo+pPS4XKRkquNttD2JUru
|
---|
23156 | 3AJKvsG+vEaRnRo6WvfE8hVKvIjxSqihpJcp/xKD5oLxpVjwvDn4LGmfEm3L
|
---|
23157 | yFbPMSWsiIxxOeg9NV1sr6Mkri9KwgVPg7InGPBeaI6Wgrxd62H0HyEu+Tk=
|
---|
23158 |
|
---|
23159 | "]],
|
---|
23160 |
|
---|
23161 | Cell[BoxData[
|
---|
23162 | InterpretationBox[
|
---|
23163 | RowBox[{"\<\"Expanding indices over \"\>", "\[InvisibleSpace]", "2",
|
---|
23164 | "\[InvisibleSpace]", "\<\" cores\"\>"}],
|
---|
23165 | SequenceForm["Expanding indices over ", 2, " cores"],
|
---|
23166 | Editable->False]], "Print",
|
---|
23167 | CellChangeTimes->CompressedData["
|
---|
23168 | 1:eJwVzmkow3Ecx/EheWBE4pFypIyRmGFF+g2bM8cDx/LPOXeOPFHONDkaDTlb
|
---|
23169 | JOUahrkKNYllzhQJifHoR2IrD1jj+33w6VWfR2+vwpoMqRWLxRLAmsQ2LfoZ
|
---|
23170 | So48uYsnYFhqfd0LmKY6THoFx8R26iAV/A153nxwPPTlTwgK/B5K8sCUu4tZ
|
---|
23171 | 1OVavo5GZifrUE6PYCAfPPya1KCGXYuhEDQTnQmVCeYdikCjiO2GOlU8BKIB
|
---|
23172 | 8mo+yudoItHNN2Miql1VM+jHiVpaDDpzHjnVYPLYI9MNlm1wG1EjrypAAYZM
|
---|
23173 | L4U9g8Pm2xyU+ZmTo9KaBYsB/B3YS49YpCR6u8GtHFS+Sw5qQVf3jK5OUOQV
|
---|
23174 | 9ykHq1amlIOgOfN5FpWY7K2HwG0XH+UN6Ol/r0czn1SOl0uUXG3JwjuWKbnz
|
---|
23175 | CC77BvsLmkXsFeho14oVa5T4ENOVUENJH1P5JQYtRRPL8eB5a+hZyj4lurbR
|
---|
23176 | nd5jSlhRWRMK0Hd6ptRBT0lCf4yEC57ycicZ8F5oiZWCsjPbEfQfJFf5oA==
|
---|
23177 |
|
---|
23178 | "]],
|
---|
23179 |
|
---|
23180 | Cell[BoxData["\<\"Collecting the different structures that enter the \
|
---|
23181 | vertex.\"\>"], "Print",
|
---|
23182 | CellChangeTimes->CompressedData["
|
---|
23183 | 1:eJwVzmkow3Ecx/HhgQdMJPJAOVLGSI5hNek3bK7leOBY/jnnzpEnypnI0WiI
|
---|
23184 | TIukXMMwV6FIs8yZIiExHv1IbOUBa3y/Dz696vPo7VNUmymzYbFYfFiz2K7V
|
---|
23185 | MEPJkTd38QSMTGuofwHT1bqUV1AptteEqOFvzPflgeMRL39CkB/wUJoPSu4u
|
---|
23186 | ZlHXa/k6KshJ1aOcPv5QAaj7mtSixl2rsQi0EL0Z7eTPs4tBk8jRHXWufAhG
|
---|
23187 | g+Q1PJTH0QrQzTdTMrq/qmHQjxONrAR04TxyasBU5SPTC5ZvcJtQU3h1kAIM
|
---|
23188 | m16KfAZHLbe5KPMzJ0dltQtWI/g7tJcRvUhJ7HajewWoepce1oFunpk93aDI
|
---|
23189 | J+FTDlavTKmGQUvW8ywqNTvYjoDbrn6qG9A78N6AZj2pnS6XKLna6ozqWqbk
|
---|
23190 | ziu0/BscLGwROa5AR8e+WLFGiR8xXwm1lAwwVV9i0Fo8sZwInrdFnEkOKNG3
|
---|
23191 | j+30H1PCismeUID+0zNlbAMlSYNxUi54Gp43yYD3Qmu8DJQIPJToPx8k+O0=
|
---|
23192 |
|
---|
23193 | "]],
|
---|
23194 |
|
---|
23195 | Cell[BoxData[
|
---|
23196 | InterpretationBox[
|
---|
23197 | RowBox[{
|
---|
23198 | "102", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
|
---|
23199 | found -> starting the computation: \"\>", "\[InvisibleSpace]",
|
---|
23200 | DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
|
---|
23201 | ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
23202 | "\[InvisibleSpace]", "102", "\[InvisibleSpace]", "\<\".\"\>"}],
|
---|
23203 | SequenceForm[
|
---|
23204 | 102, " possible non-zero vertices have been found -> starting the \
|
---|
23205 | computation: ",
|
---|
23206 | Dynamic[FeynRules`FR$FeynmanRules], " / ", 102, "."],
|
---|
23207 | Editable->False]], "Print",
|
---|
23208 | CellChangeTimes->CompressedData["
|
---|
23209 | 1:eJwVzmkow3Ecx/HhgQeOSDxSzjJGcgwr0m/YnDkeOJZ/zrlz5IlyJnI02ohM
|
---|
23210 | i7SaYxjmKhSJZc4UCYnNox+JrTxgje/3wadXfR69fUobcsQ2LBaLB2sT2nXo
|
---|
23211 | VZQce3MWT8GozOYmI5ilPkp7BeVCe02oGv6WIl8uOBlp/OODvMDHiiIw4/5y
|
---|
23212 | FnW7kayjsfnpOpQ9yBspBo++prWoYddqKAUtRGdGe3jzTmWgSeDogbrUPIag
|
---|
23213 | wZJ6Lspla2PRzTdTKrq/qmHQj1ONuBx0ZT+x68F0+RMzAFZtcFpRU0RdsBQM
|
---|
23214 | Vy5FvYDjlrsClPmZk6DihgWrAfwd2cuOWaQkfrvFoxpUvIsOG0F3z5z+PlDg
|
---|
23215 | k/QpAetWZhSjoCX3ZRYVmR1sx8BtN3/FLegd9KBHc5/VzldLlFxv9UT3LlNy
|
---|
23216 | 7xVW9Q3KStoFjivQ0b0vlK5R4k/M13wtJcNM7ZcQtJZNLSeDF52R5xkHlOi6
|
---|
23217 | JnaGTihhxeVNScEAparSSU9JiixBxAHPIgqnGfCBb00Ug+pwPzn6DyIQ+Uw=
|
---|
23218 |
|
---|
23219 | "]],
|
---|
23220 |
|
---|
23221 | Cell[BoxData[
|
---|
23222 | InterpretationBox[
|
---|
23223 | RowBox[{"96", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
|
---|
23224 | SequenceForm[96, " vertices obtained."],
|
---|
23225 | Editable->False]], "Print",
|
---|
23226 | CellChangeTimes->CompressedData["
|
---|
23227 | 1:eJwVzmkow3Ecx/HhgQdMJB4pJmWMhA0r0m/YnDkeOJZ/GHPnyBPlTORoNERo
|
---|
23228 | kZRrGOZYoUgsc6ZISIxHPxJbUazx/T749KrPozdHVp0ht2GxWEJYo8Su2TBN
|
---|
23229 | yaEXb+EYDEutq30G09QHSS/gqMReE6SGvz7PWwCO8Z//RKDQ7744D0y5PZ9B
|
---|
23230 | Xa8Ua2hkdrIe5fYIB/LBg88JLWrcthploIXozWi7cI5dCJrEju6oc/l9IBqg
|
---|
23231 | qBKgAq42Et14NSWiuysaBn0/1siLQBfuA7cKTB59YLrB0nVeA2oKrQxQgiFT
|
---|
23232 | i2FP4LDlJgdlfmYVqLx63moEfwd20iMWKInW1buXgao36X4N6OaR0dUJijlx
|
---|
23233 | HwqwcnlSNQhaMp9mUKnZwXYI1Ln6qK5BL/87A5r5qHa6WKTkcrM9vGOJklvP
|
---|
23234 | 4NIvsL+gSey4DB1tuxLlKiU+xHwp0lLSx1R8SkBr4fhSPHjWwj9N2aNE3zqy
|
---|
23235 | 1XtECSsqa1wJ+k5Nl7ANlCT0x0h54Elo7gQD3omssXIw3+Vbhf4DI9j5tw==
|
---|
23236 |
|
---|
23237 | "]],
|
---|
23238 |
|
---|
23239 | Cell[BoxData[
|
---|
23240 | InterpretationBox[
|
---|
23241 | RowBox[{"\<\"Flavor expansion of the vertices distributed over \"\>",
|
---|
23242 | "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" cores: \"\>",
|
---|
23243 | "\[InvisibleSpace]",
|
---|
23244 | DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
|
---|
23245 | ImageSizeCache->{14., {1., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
|
---|
23246 | "\[InvisibleSpace]", "96"}],
|
---|
23247 | SequenceForm[
|
---|
23248 | "Flavor expansion of the vertices distributed over ", 2, " cores: ",
|
---|
23249 | Dynamic[FeynRules`FR$Count1], " / ", 96],
|
---|
23250 | Editable->False]], "Print",
|
---|
23251 | CellChangeTimes->CompressedData["
|
---|
23252 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5szxwLH8m2vuHHminIkcjbaJ
|
---|
23253 | TEMo1zDMVSgSy5wpEhLj0Y/EVh6wxvf74NOrPo/eXoU1mRIrFovFgzUJbVr0
|
---|
23254 | 05QceXIWTsDwtPq6FzBdfZj8CiqFtpogNfwNYm8uOBL28scHeX4PJWIw9e5i
|
---|
23255 | BnW5lq6hUTkpOpTdy1Pkg4df41rUsGMxFIJmojOhHbw5hyLQKLB3Q50qHgLR
|
---|
23256 | AGk1F+WytVHoxpsxCd1b0TDox4lGUgw6sx/Z1WCK8pHpAcvWOY2oMbQqQAaG
|
---|
23257 | TC2GP4ND5ttclPmZlaKSmnmLAfxV7GZELlASs9XgVg6q3kUHtaCre2Z3Fyjw
|
---|
23258 | iv+UglXLE6oB0Jz1PIOKTHbWg+CWi4/qBvT0v9ejWU9qx8tFSq42OyI6lyi5
|
---|
23259 | 8wgu+wblBc0C+2XoaN8TylYp8SGmK76Wkn6m8ksIWorGlhLA89aws9R9SnRt
|
---|
23260 | w9t9x5SworPHZKDv1HSpg56SRHmsiAOehuaNM+A93xInAY+Uk6PoPyjH+lE=
|
---|
23261 |
|
---|
23262 | "]],
|
---|
23263 |
|
---|
23264 | Cell[BoxData["\<\" - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
|
---|
23265 | CellChangeTimes->CompressedData["
|
---|
23266 | 1:eJwVzmkow3Ecx/HhgWJE4pFypIyRmGFF+g2bM8cDx/IPY+4ceaKciRyNhggt
|
---|
23267 | S8o1bMxVKBLLnCkSEuPRj8RWHrDG9/vg06s+j94+0tosmQ2LxRLAmsV2rYYZ
|
---|
23268 | So68uYsnYER6Q/0LmKE+THkFx8X2mhA1/I0FvnxwIvzlTwgKAh5KC8C0u4tZ
|
---|
23269 | 1O1avoZG56bqUU6fYKgQPPxS6VDjjtUoBS1Eb0Y7BfNOxaBJxPZAXSofgtEg
|
---|
23270 | eQ0f5XN00ejGmykZ3VvRMOjHiUZWArpyHjk1YOr4I9MLlq9zm1ATrzpIAYZN
|
---|
23271 | L0U8g6OW2zyU+ZmTo7LaBasR/B3azYxapCR2q9GjAlS+Sw7qQHfPrJ5uUOST
|
---|
23272 | 8CkHq7VTymHQkv08i0rMjrYj4Jabn/IG9A68N6DZT2rnyyVKrjY7I7uWKbnz
|
---|
23273 | Ci3/BgeLWkRsLXR07IkVq5T4EfOVUEfJAFP1JQatxZPLieB5W/hZ2j4l+vax
|
---|
23274 | 7f5jSlgxOZMK0H96pszJQEnSYJyEC57y8lUMeC+0xstAB61Ghf4DI+D5uw==
|
---|
23275 |
|
---|
23276 | "]],
|
---|
23277 |
|
---|
23278 | Cell[BoxData[
|
---|
23279 | InterpretationBox[
|
---|
23280 | RowBox[{"\<\"Removing ghost fields and Goldstone boson vertices: \"\>",
|
---|
23281 | "\[InvisibleSpace]", "1",
|
---|
23282 | "\[InvisibleSpace]", "\<\" vertices removed.\"\>"}],
|
---|
23283 | SequenceForm[
|
---|
23284 | "Removing ghost fields and Goldstone boson vertices: ", 1,
|
---|
23285 | " vertices removed."],
|
---|
23286 | Editable->False]], "Print",
|
---|
23287 | CellChangeTimes->CompressedData["
|
---|
23288 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxkmNYkX7D5gx74Fj+OefOkSfKmcjRaIjQ
|
---|
23289 | 2pIyDMMcKxSJZc4UCYnx6EeyrTxgje/3wadXfR69/UobRBI7FovFg7UJHToM
|
---|
23290 | c5Qc+3KWTsHorOamVzBbfZT+Bk4JHTVhavhbivy54HTU6x8f5AU9VhSBmfeX
|
---|
23291 | KtTjRrqBxuVn6FH2IG+0GDwyKbWocddmLAWtRG9Be3gLLmWgWeDshbrVPIai
|
---|
23292 | IdJ6Lspla+PQrXdzGrq/pmHQz1ONpBx0Zz+x68GMqSdmAKza5LSi5si6EBkY
|
---|
23293 | Mbsc/QJOWO8KUOZnXopKGhZtRvB3dC8ndomSBF2LVzUo/xAfNoKe3qL+PlDg
|
---|
23294 | l/wlBetWZ+RjoDX3RYWKLU7246DOI0B+C/oGPxjQ3Ge169UyJdfbPTG9K5Tc
|
---|
23295 | +4RXfYMjJe0C51Xo6N4XytYpCSCWa76WkmGm1iQEbWWKlRTwojPqPPOAEn3X
|
---|
23296 | 5M7QCSWs+DyFDAycnat0MVCSOpIo5oBnkYVKBnzg25Ik4LtZp0T/ASzs+uc=
|
---|
23297 |
|
---|
23298 | "]],
|
---|
23299 |
|
---|
23300 | Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
|
---|
23301 | CellChangeTimes->CompressedData["
|
---|
23302 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEjasSL9hc+Z44Fj+OefOkSfKmcjRaMjZ
|
---|
23303 | sqQ2DMOcoUgsc6ZISIxHPxJbecAa3++DT6/6PHp7FdZkSKxYLBYf1iSyadEr
|
---|
23304 | KTny5MyfgGGp9XUvYJr6MOkVHBfZaoLU8DfkefPACe7LnwDk+z2U5IEpdxcq
|
---|
23305 | 1OVauopGZifrUHYvfzAfPPxSaFHDjsVQCJqJzoR28GcdikCj0N4Ndap4CEQD
|
---|
23306 | pNU8lMfWRqLrb8ZEdG9Zw6AfJxpJMejMfmRXg8njj0wPWLbGaUSNoVUBMjBk
|
---|
23307 | eiHsGRwx3+agzM+MFJXUzFkM4O/gbnrEPCXRmw1u5aD8XXxQC7q6Z3R3gUKv
|
---|
23308 | uE8pWLU0JR8CzZnPKlRssrMeBjddfOQ3oKf/vR7NfFI7Xi5QcrXREd65SMmd
|
---|
23309 | R3DZNzhQ0Cy0X4KO9j2RbIUSH2K6Emgp6Wcqv0SgpWhyMR48b+WepexTomsb
|
---|
23310 | 2+47poQVlTUpA32nlaUOekoSBmLEHPA0NFfBgPcCS6wEFIxuKdB/JS355A==
|
---|
23311 |
|
---|
23312 | "]],
|
---|
23313 |
|
---|
23314 | Cell[BoxData["\<\" - Splitting vertices into building blocks.\"\>"], \
|
---|
23315 | "Print",
|
---|
23316 | CellChangeTimes->CompressedData["
|
---|
23317 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjpQxEraxIv2GzZnjgWP555i5c+SJciZyNBoi
|
---|
23318 | tCwp1zDMVSgSy5wJCS3Gox+JrTxgje/3wadXfR69fYpqMmU2LBZLAGsS27Xo
|
---|
23319 | pyk58uYsnID8tPq6FzBdfZj8Co6J7TUhavgb8n154Dj35U8ICgIeS/LB1PuL
|
---|
23320 | GdTtRr6GRuWk6FB2r2CwADz8UmlR447VWARaiM6MdgjmnKSgSeTogbpUPAaj
|
---|
23321 | QfJqHspja6PQjTdTErq3omHQjxONrBh0ZRvY1WDKmIHpAcvWOY2oKbwqSAGG
|
---|
23322 | TS3yn8ERy10uyvzMylFZzbzVCP4O7mZELlASs9XgUQ4q3yUHtaC7Z2Z3Fyjy
|
---|
23323 | if+Ug1XLk8oh0JL1PINKzA62w+CWm5/yFvQOfNCjWU9q58tFSq42OyI6lyi5
|
---|
23324 | 9wot+wYHCptFjsvQ0b4nVqxS4kfMV0ItJf1M5ZcYtEonlhLA81buWeo+Jbq2
|
---|
23325 | 0e2+Y0pY0dkTCtB/arrUSU9J4kCshAOehuepGPBBaI2TgTnXBhX6Dyhm+lw=
|
---|
23326 |
|
---|
23327 | "]],
|
---|
23328 |
|
---|
23329 | Cell[BoxData[
|
---|
23330 | InterpretationBox[
|
---|
23331 | RowBox[{"\<\"Splitting of vertices distributed over \"\>",
|
---|
23332 | "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
|
---|
23333 | SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
|
---|
23334 | Editable->False]], "Print",
|
---|
23335 | CellChangeTimes->CompressedData["
|
---|
23336 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjpSxSdiwIv2GzbUcD4bln3PuHHminIkcjYYI
|
---|
23337 | LUvKMAxzFYrEMmeKhMR49COxlQes8f0++PSqz6O3X1FtltyOxWIJYM1ih1bj
|
---|
23338 | DCVHvpyFEzAyvaH+BczQHqa+guNiR12oFv7GfH8+OMF7+ROCgqCH0nxQcneh
|
---|
23339 | QT2uFWtoTE6aAWX3CYYKwMMvtR417dhMRaCVGCxop2DOpRg0i5y9ULfKhxCU
|
---|
23340 | q6jho3y2PgbdeDOnoHsrOgb9ONHJS0B39iO7Bkwbf2R6wfJ1ThNqjqjmKsHw
|
---|
23341 | 6cXIZ3DUepuLMj+zClReO28zgb9Du5nRC5TEbTV6VYCqd9lBHejpndXTDYr8
|
---|
23342 | Ej8VYPXylGoYtEqfNajM4mQ/Am55BKhuQN/geyMqfdK6Xi5ScrXZGdW1RMmd
|
---|
23343 | T1j5NzhY2CJyXoaOjj2xcpWSAGK5EuopGWCqvsSgrXhyKQk8b+OdSfYpMbSP
|
---|
23344 | bfcfU8KKzZ5UgoHTM2UuRkqSB+NlHPA0Ik/NgPdCW4IcdBw1qdF/JET50Q==
|
---|
23345 |
|
---|
23346 | "]],
|
---|
23347 |
|
---|
23348 | Cell[BoxData[
|
---|
23349 | InterpretationBox[
|
---|
23350 | RowBox[{"\<\" - Optimizing: \"\>", "\[InvisibleSpace]",
|
---|
23351 | DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
|
---|
23352 | ImageSizeCache->{22., {1., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
|
---|
23353 | "\[InvisibleSpace]", "143", "\[InvisibleSpace]", "\<\" .\"\>"}],
|
---|
23354 | SequenceForm[" - Optimizing: ",
|
---|
23355 | Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 143, " ."],
|
---|
23356 | Editable->False]], "Print",
|
---|
23357 | CellChangeTimes->CompressedData["
|
---|
23358 | 1:eJwVzmkow3Ecx/HhAeWIxCPlSBkjYcOK9Bs2Z44HjuUfxtw58kQ5EzkaDRFa
|
---|
23359 | jpRrGOYq1CSWOVMktBiPfiS28oA1vt8Hn171efT2ltRkSq1YLBYf1iSyadHN
|
---|
23360 | UnLsxVk6BcPT6utewHTlUfIrOCayVQUr4W/I9+GB49yXPwHI938syQdT7y/n
|
---|
23361 | UNcb2QYalZOiRdm9/MEC8OhrUo0a9iwGCWgmWhPawV9wLAKNQgd31LniMQgN
|
---|
23362 | lFXzUB5bHYVuvRmTUM2aikE/TlXSYtCFrWdXgyljeqYHLNvkNKLGsKpAORg6
|
---|
23363 | sxz+DI6Y73JR5mdehkprFi0G8HdwPyNyiZKYnQb3clDxLj6sBd08Mru7QKF3
|
---|
23364 | /KcMrFqdVgyB5qznOVRssrceBndcfRW3oFfAgw7NelI6XS1Tcr3dEdG5Qsm9
|
---|
23365 | Z0jZNzhQ2Cx0WIWOdo1Ivk6JLzFdC9SU9DOVXyLQUjSxkgBetHLPUw8o0baN
|
---|
23366 | 7vadUMKKzp6Qg34zs6WOOkoSB2LFHPAsLG+SAR8Eljgp6KG3m0L/ASHN+VU=
|
---|
23367 |
|
---|
23368 | "]],
|
---|
23369 |
|
---|
23370 | Cell[BoxData["\<\" - Writing files.\"\>"], "Print",
|
---|
23371 | CellChangeTimes->CompressedData["
|
---|
23372 | 1:eJwVzmkow3Ecx/HhgQeOSJRSjpQxEjOsSL9hc+Z44Fj+YTN3jjxRzkSORkOE
|
---|
23373 | liPlGoa5CkVimTNFQmI8+pHYygNmfL8PPr3q8+jtKalMl1mwWCw+rF5k1aib
|
---|
23374 | ouTQgzN/DIam1FQ/g6mqg8QXcFhkrQ5UwV+b68UDR0Ke/wQg3/e+MBdMvj2f
|
---|
23375 | Rp2u5KtoRFaSFmV38fvywIPPMQ2q3zbrJaCJaI1oK3/WTgoahLYuqEPpfQDq
|
---|
23376 | L6/goTy2JgJdfzUkoLvLagZ9P1bLCkBH9gO7AkwafmA6weI1Th1q4Jb7K8Dg
|
---|
23377 | yYXQJ3DQdJONMt8zclRWOWfWgz99O2nh85REbda6lIDKN/F+Fejslt7RDgo9
|
---|
23378 | Yz/kYPnShLIfNGU8TaNio43lALjp5K28Bj387nRoxqPK/mKBksuN1rC2RUpu
|
---|
23379 | 3YOKv8De/Aah7RJ0tOyKFCuUeBPjpUBDSQ9T9ikCzdLRxTjwrCnkNHmPEm3z
|
---|
23380 | 0Fb3ESWsyMxRBegzOVVkp6MkvjdazAFPuDljDHgnMMfIwLBf13H0HyPk+aA=
|
---|
23381 |
|
---|
23382 | "]],
|
---|
23383 |
|
---|
23384 | Cell[BoxData["\<\"Done!\"\>"], "Print",
|
---|
23385 | CellChangeTimes->CompressedData["
|
---|
23386 | 1:eJwVzmkow3Ecx/HhgQeOSDxSjlbGaDmGFek3bM4cDxzLP+fcOfJEORM5Gg0R
|
---|
23387 | Wo5WrmGYq1AkljlTJCTGox+JrTxg/fl+H3x61efR26ugOl1uxeFwRLBGqU2z
|
---|
23388 | YZqSI0/+wgkYmlJX+wKmag4TX8FRqa1WoIG/PtdbCI6FvPyJQZHvQ3EumHx3
|
---|
23389 | MYO6XCvW0IisJD3K6xEN5IGHXxM61LjDGgtAC9Gb0XbRnEMhaJLYu6FO5Q8B
|
---|
23390 | qL+iSogKeboIdOPNlIDurWgZ9ONEKy8CnXmPvCowafSR6QZL1/kNqCm40l8J
|
---|
23391 | BqkXQ5/BYcttNsr8zCpQefU8awR/B3bTwhcoidqqdysDVe+ygxrQ1T29qxOU
|
---|
23392 | eMV+KsDK5SnVIGjJeJ5BZWY76yFwy4WrugE9/e4NaMaTxvFykZKrzfawjiVK
|
---|
23393 | 7jwCS7/B/vwmif0ydLTtSZWrlHCJ+Uqso6SPqfiSgmzh+FIceN4Scpa8T4m+
|
---|
23394 | dWS795gSTmTmuBL0UU+XOBgoie+PlvHB0+CcCQa8F7MxcrBBwJ1E/wEgpPkh
|
---|
23395 |
|
---|
23396 | "]]
|
---|
23397 | }, Open ]]
|
---|
23398 | }, Open ]]
|
---|
23399 | }, Open ]]
|
---|
23400 | },
|
---|
23401 | WindowSize->{949, 756},
|
---|
23402 | WindowMargins->{{0, Automatic}, {Automatic, 0}},
|
---|
23403 | PrintingCopies->1,
|
---|
23404 | PrintingPageRange->{1, Automatic},
|
---|
23405 | ShowSelection->True,
|
---|
23406 | FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
|
---|
23407 | 2011)",
|
---|
23408 | StyleDefinitions->"Default.nb"
|
---|
23409 | ]
|
---|
23410 | (* End of Notebook Content *)
|
---|
23411 |
|
---|
23412 | (* Internal cache information *)
|
---|
23413 | (*CellTagsOutline
|
---|
23414 | CellTagsIndex->{}
|
---|
23415 | *)
|
---|
23416 | (*CellTagsIndex
|
---|
23417 | CellTagsIndex->{}
|
---|
23418 | *)
|
---|
23419 | (*NotebookFileOutline
|
---|
23420 | Notebook[{
|
---|
23421 | Cell[557, 20, 120, 2, 27, "Input"],
|
---|
23422 | Cell[CellGroupData[{
|
---|
23423 | Cell[702, 26, 823, 17, 58, "Input"],
|
---|
23424 | Cell[CellGroupData[{
|
---|
23425 | Cell[1550, 47, 5765, 81, 20, "Print"],
|
---|
23426 | Cell[7318, 130, 6042, 88, 20, "Print"],
|
---|
23427 | Cell[13363, 220, 5815, 82, 20, "Print"],
|
---|
23428 | Cell[19181, 304, 5749, 81, 20, "Print"],
|
---|
23429 | Cell[24933, 387, 5760, 81, 20, "Print"],
|
---|
23430 | Cell[30696, 470, 5770, 81, 20, "Print"],
|
---|
23431 | Cell[36469, 553, 5812, 82, 20, "Print"],
|
---|
23432 | Cell[42284, 637, 5749, 81, 20, "Print"],
|
---|
23433 | Cell[48036, 720, 5779, 81, 20, "Print"],
|
---|
23434 | Cell[53818, 803, 5749, 81, 20, "Print"],
|
---|
23435 | Cell[59570, 886, 5816, 82, 20, "Print"]
|
---|
23436 | }, Open ]]
|
---|
23437 | }, Open ]],
|
---|
23438 | Cell[CellGroupData[{
|
---|
23439 | Cell[65435, 974, 213, 3, 76, "Title"],
|
---|
23440 | Cell[CellGroupData[{
|
---|
23441 | Cell[65673, 981, 572, 9, 27, "Input"],
|
---|
23442 | Cell[CellGroupData[{
|
---|
23443 | Cell[66270, 994, 1734, 24, 20, "Print"],
|
---|
23444 | Cell[68007, 1020, 1752, 24, 20, "Print"],
|
---|
23445 | Cell[69762, 1046, 1736, 24, 20, "Print"],
|
---|
23446 | Cell[71501, 1072, 1858, 28, 20, "Print"],
|
---|
23447 | Cell[73362, 1102, 1723, 24, 20, "Print"],
|
---|
23448 | Cell[75088, 1128, 1748, 24, 20, "Print"],
|
---|
23449 | Cell[76839, 1154, 1773, 25, 20, "Print"],
|
---|
23450 | Cell[78615, 1181, 1760, 25, 20, "Print"],
|
---|
23451 | Cell[80378, 1208, 1711, 24, 20, "Print"],
|
---|
23452 | Cell[82092, 1234, 1742, 24, 20, "Print"],
|
---|
23453 | Cell[83837, 1260, 1745, 24, 20, "Print"],
|
---|
23454 | Cell[85585, 1286, 1743, 24, 20, "Print"],
|
---|
23455 | Cell[87331, 1312, 1900, 29, 36, "Print"]
|
---|
23456 | }, Open ]]
|
---|
23457 | }, Open ]],
|
---|
23458 | Cell[CellGroupData[{
|
---|
23459 | Cell[89280, 1347, 150, 3, 27, "Input"],
|
---|
23460 | Cell[CellGroupData[{
|
---|
23461 | Cell[89455, 1354, 936, 15, 20, "Print"],
|
---|
23462 | Cell[90394, 1371, 942, 15, 20, "Print"],
|
---|
23463 | Cell[91339, 1388, 938, 15, 20, "Print"],
|
---|
23464 | Cell[92280, 1405, 805, 11, 20, "Print"],
|
---|
23465 | Cell[93088, 1418, 824, 11, 20, "Print"],
|
---|
23466 | Cell[93915, 1431, 810, 11, 20, "Print"],
|
---|
23467 | Cell[94728, 1444, 825, 11, 20, "Print"],
|
---|
23468 | Cell[95556, 1457, 804, 11, 20, "Print"],
|
---|
23469 | Cell[96363, 1470, 826, 11, 20, "Print"],
|
---|
23470 | Cell[97192, 1483, 810, 11, 20, "Print"],
|
---|
23471 | Cell[98005, 1496, 836, 11, 20, "Print"],
|
---|
23472 | Cell[98844, 1509, 803, 11, 20, "Print"],
|
---|
23473 | Cell[99650, 1522, 860, 12, 20, "Print"]
|
---|
23474 | }, Open ]]
|
---|
23475 | }, Open ]],
|
---|
23476 | Cell[CellGroupData[{
|
---|
23477 | Cell[100559, 1540, 296, 6, 27, "Input"],
|
---|
23478 | Cell[CellGroupData[{
|
---|
23479 | Cell[100880, 1550, 3261, 50, 20, "Print"],
|
---|
23480 | Cell[104144, 1602, 3266, 50, 20, "Print"],
|
---|
23481 | Cell[107413, 1654, 2799, 40, 20, "Print"]
|
---|
23482 | }, Open ]]
|
---|
23483 | }, Open ]],
|
---|
23484 | Cell[CellGroupData[{
|
---|
23485 | Cell[110261, 1700, 287, 5, 27, "Input"],
|
---|
23486 | Cell[CellGroupData[{
|
---|
23487 | Cell[110573, 1709, 1002, 14, 20, "Print"],
|
---|
23488 | Cell[111578, 1725, 996, 14, 20, "Print"],
|
---|
23489 | Cell[112577, 1741, 1193, 21, 20, "Print"],
|
---|
23490 | Cell[113773, 1764, 946, 13, 20, "Print"],
|
---|
23491 | Cell[114722, 1779, 1119, 18, 20, "Print"],
|
---|
23492 | Cell[115844, 1799, 981, 14, 20, "Print"],
|
---|
23493 | Cell[116828, 1815, 1456, 25, 20, "Print"],
|
---|
23494 | Cell[118287, 1842, 1059, 17, 20, "Print"],
|
---|
23495 | Cell[119349, 1861, 947, 13, 20, "Print"]
|
---|
23496 | }, Open ]]
|
---|
23497 | }, Open ]],
|
---|
23498 | Cell[CellGroupData[{
|
---|
23499 | Cell[120345, 1880, 469, 9, 27, "Input"],
|
---|
23500 | Cell[CellGroupData[{
|
---|
23501 | Cell[120839, 1893, 257, 4, 20, "Print"],
|
---|
23502 | Cell[121099, 1899, 284, 5, 20, "Print"],
|
---|
23503 | Cell[121386, 1906, 448, 9, 20, "Print"],
|
---|
23504 | Cell[121837, 1917, 252, 4, 20, "Print"],
|
---|
23505 | Cell[122092, 1923, 268, 5, 26, "Print"],
|
---|
23506 | Cell[122363, 1930, 367, 8, 20, "Print"],
|
---|
23507 | Cell[122733, 1940, 296, 5, 20, "Print"],
|
---|
23508 | Cell[123032, 1947, 339, 8, 20, "Print"],
|
---|
23509 | Cell[123374, 1957, 528, 10, 20, "Print"],
|
---|
23510 | Cell[123905, 1969, 528, 10, 20, "Print"],
|
---|
23511 | Cell[124436, 1981, 530, 10, 20, "Print"],
|
---|
23512 | Cell[124969, 1993, 230, 4, 20, "Print"],
|
---|
23513 | Cell[125202, 1999, 1839, 47, 74, "Print"],
|
---|
23514 | Cell[127044, 2048, 298, 5, 20, "Print"],
|
---|
23515 | Cell[127345, 2055, 339, 8, 20, "Print"],
|
---|
23516 | Cell[127687, 2065, 527, 10, 20, "Print"],
|
---|
23517 | Cell[128217, 2077, 525, 10, 20, "Print"],
|
---|
23518 | Cell[128745, 2089, 530, 10, 20, "Print"],
|
---|
23519 | Cell[129278, 2101, 232, 4, 20, "Print"],
|
---|
23520 | Cell[129513, 2107, 6045, 161, 151, "Print"],
|
---|
23521 | Cell[135561, 2270, 295, 5, 20, "Print"],
|
---|
23522 | Cell[135859, 2277, 339, 8, 20, "Print"],
|
---|
23523 | Cell[136201, 2287, 527, 10, 20, "Print"],
|
---|
23524 | Cell[136731, 2299, 564, 11, 23, "Print"],
|
---|
23525 | Cell[137298, 2312, 530, 10, 20, "Print"],
|
---|
23526 | Cell[137831, 2324, 230, 4, 20, "Print"],
|
---|
23527 | Cell[138064, 2330, 3198, 86, 94, "Print"],
|
---|
23528 | Cell[141265, 2418, 296, 5, 20, "Print"],
|
---|
23529 | Cell[141564, 2425, 341, 8, 20, "Print"],
|
---|
23530 | Cell[141908, 2435, 527, 10, 20, "Print"],
|
---|
23531 | Cell[142438, 2447, 530, 10, 20, "Print"],
|
---|
23532 | Cell[142971, 2459, 528, 10, 20, "Print"],
|
---|
23533 | Cell[143502, 2471, 230, 4, 20, "Print"],
|
---|
23534 | Cell[143735, 2477, 2071, 54, 44, "Print"],
|
---|
23535 | Cell[145809, 2533, 296, 5, 20, "Print"],
|
---|
23536 | Cell[146108, 2540, 338, 8, 20, "Print"],
|
---|
23537 | Cell[146449, 2550, 532, 10, 20, "Print"],
|
---|
23538 | Cell[146984, 2562, 528, 10, 20, "Print"],
|
---|
23539 | Cell[147515, 2574, 528, 10, 20, "Print"],
|
---|
23540 | Cell[148046, 2586, 232, 4, 20, "Print"],
|
---|
23541 | Cell[148281, 2592, 4441, 119, 144, "Print"],
|
---|
23542 | Cell[152725, 2713, 295, 5, 20, "Print"],
|
---|
23543 | Cell[153023, 2720, 341, 8, 20, "Print"],
|
---|
23544 | Cell[153367, 2730, 524, 10, 20, "Print"],
|
---|
23545 | Cell[153894, 2742, 568, 11, 23, "Print"],
|
---|
23546 | Cell[154465, 2755, 532, 10, 20, "Print"],
|
---|
23547 | Cell[155000, 2767, 230, 4, 20, "Print"],
|
---|
23548 | Cell[155233, 2773, 818, 23, 28, "Print"],
|
---|
23549 | Cell[156054, 2798, 298, 5, 20, "Print"],
|
---|
23550 | Cell[156355, 2805, 339, 8, 20, "Print"],
|
---|
23551 | Cell[156697, 2815, 527, 10, 20, "Print"],
|
---|
23552 | Cell[157227, 2827, 525, 10, 20, "Print"],
|
---|
23553 | Cell[157755, 2839, 525, 10, 20, "Print"],
|
---|
23554 | Cell[158283, 2851, 232, 4, 20, "Print"],
|
---|
23555 | Cell[158518, 2857, 2842, 83, 28, "Print"],
|
---|
23556 | Cell[161363, 2942, 296, 5, 20, "Print"],
|
---|
23557 | Cell[161662, 2949, 339, 8, 20, "Print"],
|
---|
23558 | Cell[162004, 2959, 525, 10, 20, "Print"],
|
---|
23559 | Cell[162532, 2971, 525, 10, 20, "Print"],
|
---|
23560 | Cell[163060, 2983, 525, 10, 20, "Print"],
|
---|
23561 | Cell[163588, 2995, 527, 10, 20, "Print"],
|
---|
23562 | Cell[164118, 3007, 230, 4, 20, "Print"],
|
---|
23563 | Cell[164351, 3013, 4024, 113, 71, "Print"],
|
---|
23564 | Cell[168378, 3128, 296, 5, 20, "Print"],
|
---|
23565 | Cell[168677, 3135, 339, 8, 20, "Print"],
|
---|
23566 | Cell[169019, 3145, 525, 10, 20, "Print"],
|
---|
23567 | Cell[169547, 3157, 525, 10, 20, "Print"],
|
---|
23568 | Cell[170075, 3169, 525, 10, 20, "Print"],
|
---|
23569 | Cell[170603, 3181, 530, 10, 20, "Print"],
|
---|
23570 | Cell[171136, 3193, 232, 4, 20, "Print"],
|
---|
23571 | Cell[171371, 3199, 5242, 149, 74, "Print"],
|
---|
23572 | Cell[176616, 3350, 296, 5, 20, "Print"],
|
---|
23573 | Cell[176915, 3357, 341, 8, 20, "Print"],
|
---|
23574 | Cell[177259, 3367, 525, 10, 20, "Print"],
|
---|
23575 | Cell[177787, 3379, 525, 10, 20, "Print"],
|
---|
23576 | Cell[178315, 3391, 525, 10, 20, "Print"],
|
---|
23577 | Cell[178843, 3403, 525, 10, 20, "Print"],
|
---|
23578 | Cell[179371, 3415, 530, 10, 20, "Print"],
|
---|
23579 | Cell[179904, 3427, 230, 4, 20, "Print"],
|
---|
23580 | Cell[180137, 3433, 6816, 189, 115, "Print"],
|
---|
23581 | Cell[186956, 3624, 295, 5, 20, "Print"],
|
---|
23582 | Cell[187254, 3631, 340, 8, 20, "Print"],
|
---|
23583 | Cell[187597, 3641, 525, 10, 20, "Print"],
|
---|
23584 | Cell[188125, 3653, 560, 11, 28, "Print"],
|
---|
23585 | Cell[188688, 3666, 530, 10, 20, "Print"],
|
---|
23586 | Cell[189221, 3678, 232, 4, 20, "Print"],
|
---|
23587 | Cell[189456, 3684, 1767, 54, 51, "Print"],
|
---|
23588 | Cell[191226, 3740, 298, 5, 20, "Print"],
|
---|
23589 | Cell[191527, 3747, 341, 8, 20, "Print"],
|
---|
23590 | Cell[191871, 3757, 528, 10, 20, "Print"],
|
---|
23591 | Cell[192402, 3769, 563, 11, 27, "Print"],
|
---|
23592 | Cell[192968, 3782, 530, 10, 20, "Print"],
|
---|
23593 | Cell[193501, 3794, 232, 4, 20, "Print"],
|
---|
23594 | Cell[193736, 3800, 1363, 42, 51, "Print"],
|
---|
23595 | Cell[195102, 3844, 295, 5, 20, "Print"],
|
---|
23596 | Cell[195400, 3851, 340, 8, 20, "Print"],
|
---|
23597 | Cell[195743, 3861, 525, 10, 20, "Print"],
|
---|
23598 | Cell[196271, 3873, 561, 11, 27, "Print"],
|
---|
23599 | Cell[196835, 3886, 530, 10, 20, "Print"],
|
---|
23600 | Cell[197368, 3898, 232, 4, 20, "Print"],
|
---|
23601 | Cell[197603, 3904, 1767, 54, 50, "Print"],
|
---|
23602 | Cell[199373, 3960, 296, 5, 20, "Print"],
|
---|
23603 | Cell[199672, 3967, 341, 8, 20, "Print"],
|
---|
23604 | Cell[200016, 3977, 525, 10, 20, "Print"],
|
---|
23605 | Cell[200544, 3989, 563, 11, 28, "Print"],
|
---|
23606 | Cell[201110, 4002, 525, 10, 20, "Print"],
|
---|
23607 | Cell[201638, 4014, 230, 4, 20, "Print"],
|
---|
23608 | Cell[201871, 4020, 607, 16, 29, "Print"],
|
---|
23609 | Cell[202481, 4038, 296, 5, 20, "Print"],
|
---|
23610 | Cell[202780, 4045, 341, 8, 20, "Print"],
|
---|
23611 | Cell[203124, 4055, 522, 10, 20, "Print"],
|
---|
23612 | Cell[203649, 4067, 563, 11, 28, "Print"],
|
---|
23613 | Cell[204215, 4080, 525, 10, 20, "Print"],
|
---|
23614 | Cell[204743, 4092, 230, 4, 20, "Print"],
|
---|
23615 | Cell[204976, 4098, 605, 16, 29, "Print"],
|
---|
23616 | Cell[205584, 4116, 296, 5, 20, "Print"],
|
---|
23617 | Cell[205883, 4123, 341, 8, 20, "Print"],
|
---|
23618 | Cell[206227, 4133, 525, 10, 20, "Print"],
|
---|
23619 | Cell[206755, 4145, 523, 10, 20, "Print"],
|
---|
23620 | Cell[207281, 4157, 561, 11, 26, "Print"],
|
---|
23621 | Cell[207845, 4170, 229, 4, 20, "Print"],
|
---|
23622 | Cell[208077, 4176, 607, 16, 29, "Print"],
|
---|
23623 | Cell[208687, 4194, 296, 5, 20, "Print"],
|
---|
23624 | Cell[208986, 4201, 341, 8, 20, "Print"],
|
---|
23625 | Cell[209330, 4211, 525, 10, 20, "Print"],
|
---|
23626 | Cell[209858, 4223, 561, 11, 26, "Print"],
|
---|
23627 | Cell[210422, 4236, 525, 10, 20, "Print"],
|
---|
23628 | Cell[210950, 4248, 230, 4, 20, "Print"],
|
---|
23629 | Cell[211183, 4254, 607, 16, 29, "Print"],
|
---|
23630 | Cell[211793, 4272, 296, 5, 20, "Print"],
|
---|
23631 | Cell[212092, 4279, 343, 8, 20, "Print"],
|
---|
23632 | Cell[212438, 4289, 525, 10, 20, "Print"],
|
---|
23633 | Cell[212966, 4301, 523, 10, 20, "Print"],
|
---|
23634 | Cell[213492, 4313, 561, 11, 27, "Print"],
|
---|
23635 | Cell[214056, 4326, 230, 4, 20, "Print"],
|
---|
23636 | Cell[214289, 4332, 607, 16, 29, "Print"],
|
---|
23637 | Cell[214899, 4350, 296, 5, 20, "Print"],
|
---|
23638 | Cell[215198, 4357, 341, 8, 20, "Print"],
|
---|
23639 | Cell[215542, 4367, 527, 10, 20, "Print"],
|
---|
23640 | Cell[216072, 4379, 523, 10, 20, "Print"],
|
---|
23641 | Cell[216598, 4391, 561, 11, 26, "Print"],
|
---|
23642 | Cell[217162, 4404, 230, 4, 20, "Print"],
|
---|
23643 | Cell[217395, 4410, 605, 16, 29, "Print"],
|
---|
23644 | Cell[218003, 4428, 298, 5, 20, "Print"],
|
---|
23645 | Cell[218304, 4435, 343, 8, 20, "Print"],
|
---|
23646 | Cell[218650, 4445, 530, 10, 20, "Print"],
|
---|
23647 | Cell[219183, 4457, 525, 10, 20, "Print"],
|
---|
23648 | Cell[219711, 4469, 566, 11, 23, "Print"],
|
---|
23649 | Cell[220280, 4482, 232, 4, 20, "Print"],
|
---|
23650 | Cell[220515, 4488, 1851, 48, 28, "Print"],
|
---|
23651 | Cell[222369, 4538, 296, 5, 20, "Print"],
|
---|
23652 | Cell[222668, 4545, 341, 8, 20, "Print"],
|
---|
23653 | Cell[223012, 4555, 525, 10, 20, "Print"],
|
---|
23654 | Cell[223540, 4567, 564, 11, 23, "Print"],
|
---|
23655 | Cell[224107, 4580, 529, 10, 20, "Print"],
|
---|
23656 | Cell[224639, 4592, 530, 10, 20, "Print"],
|
---|
23657 | Cell[225172, 4604, 230, 4, 20, "Print"],
|
---|
23658 | Cell[225405, 4610, 575, 15, 50, "Print"],
|
---|
23659 | Cell[225983, 4627, 298, 5, 20, "Print"],
|
---|
23660 | Cell[226284, 4634, 341, 8, 20, "Print"],
|
---|
23661 | Cell[226628, 4644, 528, 10, 20, "Print"],
|
---|
23662 | Cell[227159, 4656, 528, 10, 20, "Print"],
|
---|
23663 | Cell[227690, 4668, 525, 10, 20, "Print"],
|
---|
23664 | Cell[228218, 4680, 564, 11, 23, "Print"],
|
---|
23665 | Cell[228785, 4693, 229, 4, 20, "Print"],
|
---|
23666 | Cell[229017, 4699, 1262, 35, 27, "Print"],
|
---|
23667 | Cell[230282, 4736, 296, 5, 20, "Print"],
|
---|
23668 | Cell[230581, 4743, 341, 8, 20, "Print"],
|
---|
23669 | Cell[230925, 4753, 525, 10, 20, "Print"],
|
---|
23670 | Cell[231453, 4765, 564, 11, 23, "Print"],
|
---|
23671 | Cell[232020, 4778, 532, 10, 20, "Print"],
|
---|
23672 | Cell[232555, 4790, 232, 4, 20, "Print"],
|
---|
23673 | Cell[232790, 4796, 3759, 100, 51, "Print"],
|
---|
23674 | Cell[236552, 4898, 296, 5, 20, "Print"],
|
---|
23675 | Cell[236851, 4905, 341, 8, 20, "Print"],
|
---|
23676 | Cell[237195, 4915, 525, 10, 20, "Print"],
|
---|
23677 | Cell[237723, 4927, 566, 11, 23, "Print"],
|
---|
23678 | Cell[238292, 4940, 527, 10, 20, "Print"],
|
---|
23679 | Cell[238822, 4952, 230, 4, 20, "Print"],
|
---|
23680 | Cell[239055, 4958, 2372, 66, 49, "Print"],
|
---|
23681 | Cell[241430, 5026, 296, 5, 20, "Print"],
|
---|
23682 | Cell[241729, 5033, 341, 8, 20, "Print"],
|
---|
23683 | Cell[242073, 5043, 527, 10, 20, "Print"],
|
---|
23684 | Cell[242603, 5055, 525, 10, 20, "Print"],
|
---|
23685 | Cell[243131, 5067, 566, 11, 23, "Print"],
|
---|
23686 | Cell[243700, 5080, 564, 11, 23, "Print"],
|
---|
23687 | Cell[244267, 5093, 229, 4, 20, "Print"],
|
---|
23688 | Cell[244499, 5099, 1482, 42, 50, "Print"],
|
---|
23689 | Cell[245984, 5143, 296, 5, 20, "Print"],
|
---|
23690 | Cell[246283, 5150, 341, 8, 20, "Print"],
|
---|
23691 | Cell[246627, 5160, 523, 10, 20, "Print"],
|
---|
23692 | Cell[247153, 5172, 563, 11, 28, "Print"],
|
---|
23693 | Cell[247719, 5185, 530, 10, 20, "Print"],
|
---|
23694 | Cell[248252, 5197, 230, 4, 20, "Print"],
|
---|
23695 | Cell[248485, 5203, 1134, 32, 28, "Print"],
|
---|
23696 | Cell[249622, 5237, 298, 5, 20, "Print"],
|
---|
23697 | Cell[249923, 5244, 341, 8, 20, "Print"],
|
---|
23698 | Cell[250267, 5254, 525, 10, 20, "Print"],
|
---|
23699 | Cell[250795, 5266, 563, 11, 26, "Print"],
|
---|
23700 | Cell[251361, 5279, 530, 10, 20, "Print"],
|
---|
23701 | Cell[251894, 5291, 230, 4, 20, "Print"],
|
---|
23702 | Cell[252127, 5297, 1112, 31, 28, "Print"],
|
---|
23703 | Cell[253242, 5330, 296, 5, 20, "Print"],
|
---|
23704 | Cell[253541, 5337, 341, 8, 20, "Print"],
|
---|
23705 | Cell[253885, 5347, 523, 10, 20, "Print"],
|
---|
23706 | Cell[254411, 5359, 563, 11, 28, "Print"],
|
---|
23707 | Cell[254977, 5372, 532, 10, 20, "Print"],
|
---|
23708 | Cell[255512, 5384, 230, 4, 20, "Print"],
|
---|
23709 | Cell[255745, 5390, 1132, 32, 28, "Print"],
|
---|
23710 | Cell[256880, 5424, 298, 5, 20, "Print"],
|
---|
23711 | Cell[257181, 5431, 341, 8, 20, "Print"],
|
---|
23712 | Cell[257525, 5441, 523, 10, 20, "Print"],
|
---|
23713 | Cell[258051, 5453, 561, 11, 26, "Print"],
|
---|
23714 | Cell[258615, 5466, 530, 10, 20, "Print"],
|
---|
23715 | Cell[259148, 5478, 230, 4, 20, "Print"],
|
---|
23716 | Cell[259381, 5484, 872, 24, 28, "Print"],
|
---|
23717 | Cell[260256, 5510, 296, 5, 20, "Print"],
|
---|
23718 | Cell[260555, 5517, 343, 8, 20, "Print"],
|
---|
23719 | Cell[260901, 5527, 527, 10, 20, "Print"],
|
---|
23720 | Cell[261431, 5539, 565, 11, 26, "Print"],
|
---|
23721 | Cell[261999, 5552, 530, 10, 20, "Print"],
|
---|
23722 | Cell[262532, 5564, 232, 4, 20, "Print"],
|
---|
23723 | Cell[262767, 5570, 872, 24, 28, "Print"],
|
---|
23724 | Cell[263642, 5596, 298, 5, 20, "Print"],
|
---|
23725 | Cell[263943, 5603, 341, 8, 20, "Print"],
|
---|
23726 | Cell[264287, 5613, 521, 10, 20, "Print"],
|
---|
23727 | Cell[264811, 5625, 561, 11, 26, "Print"],
|
---|
23728 | Cell[265375, 5638, 530, 10, 20, "Print"],
|
---|
23729 | Cell[265908, 5650, 232, 4, 20, "Print"],
|
---|
23730 | Cell[266143, 5656, 1134, 32, 28, "Print"],
|
---|
23731 | Cell[267280, 5690, 296, 5, 20, "Print"],
|
---|
23732 | Cell[267579, 5697, 341, 8, 20, "Print"],
|
---|
23733 | Cell[267923, 5707, 527, 10, 20, "Print"],
|
---|
23734 | Cell[268453, 5719, 563, 11, 27, "Print"],
|
---|
23735 | Cell[269019, 5732, 532, 10, 20, "Print"],
|
---|
23736 | Cell[269554, 5744, 230, 4, 20, "Print"],
|
---|
23737 | Cell[269787, 5750, 870, 24, 28, "Print"],
|
---|
23738 | Cell[270660, 5776, 298, 5, 20, "Print"],
|
---|
23739 | Cell[270961, 5783, 341, 8, 20, "Print"],
|
---|
23740 | Cell[271305, 5793, 523, 10, 20, "Print"],
|
---|
23741 | Cell[271831, 5805, 561, 11, 27, "Print"],
|
---|
23742 | Cell[272395, 5818, 532, 10, 20, "Print"],
|
---|
23743 | Cell[272930, 5830, 232, 4, 20, "Print"],
|
---|
23744 | Cell[273165, 5836, 1112, 31, 28, "Print"],
|
---|
23745 | Cell[274280, 5869, 296, 5, 20, "Print"],
|
---|
23746 | Cell[274579, 5876, 341, 8, 20, "Print"],
|
---|
23747 | Cell[274923, 5886, 523, 10, 20, "Print"],
|
---|
23748 | Cell[275449, 5898, 563, 11, 26, "Print"],
|
---|
23749 | Cell[276015, 5911, 530, 10, 20, "Print"],
|
---|
23750 | Cell[276548, 5923, 230, 4, 20, "Print"],
|
---|
23751 | Cell[276781, 5929, 1112, 31, 28, "Print"],
|
---|
23752 | Cell[277896, 5962, 296, 5, 20, "Print"],
|
---|
23753 | Cell[278195, 5969, 343, 8, 20, "Print"],
|
---|
23754 | Cell[278541, 5979, 528, 10, 20, "Print"],
|
---|
23755 | Cell[279072, 5991, 563, 11, 26, "Print"],
|
---|
23756 | Cell[279638, 6004, 530, 10, 20, "Print"],
|
---|
23757 | Cell[280171, 6016, 230, 4, 20, "Print"],
|
---|
23758 | Cell[280404, 6022, 850, 23, 28, "Print"],
|
---|
23759 | Cell[281257, 6047, 296, 5, 20, "Print"],
|
---|
23760 | Cell[281556, 6054, 341, 8, 20, "Print"],
|
---|
23761 | Cell[281900, 6064, 528, 10, 20, "Print"],
|
---|
23762 | Cell[282431, 6076, 565, 11, 26, "Print"],
|
---|
23763 | Cell[282999, 6089, 530, 10, 20, "Print"],
|
---|
23764 | Cell[283532, 6101, 230, 4, 20, "Print"],
|
---|
23765 | Cell[283765, 6107, 848, 23, 28, "Print"],
|
---|
23766 | Cell[284616, 6132, 296, 5, 20, "Print"],
|
---|
23767 | Cell[284915, 6139, 341, 8, 20, "Print"],
|
---|
23768 | Cell[285259, 6149, 528, 10, 20, "Print"],
|
---|
23769 | Cell[285790, 6161, 563, 11, 27, "Print"],
|
---|
23770 | Cell[286356, 6174, 530, 10, 20, "Print"],
|
---|
23771 | Cell[286889, 6186, 230, 4, 20, "Print"],
|
---|
23772 | Cell[287122, 6192, 848, 23, 28, "Print"],
|
---|
23773 | Cell[287973, 6217, 296, 5, 20, "Print"],
|
---|
23774 | Cell[288272, 6224, 341, 8, 20, "Print"],
|
---|
23775 | Cell[288616, 6234, 528, 10, 20, "Print"],
|
---|
23776 | Cell[289147, 6246, 528, 10, 20, "Print"],
|
---|
23777 | Cell[289678, 6258, 532, 10, 20, "Print"],
|
---|
23778 | Cell[290213, 6270, 230, 4, 20, "Print"],
|
---|
23779 | Cell[290446, 6276, 8710, 236, 195, "Print"],
|
---|
23780 | Cell[299159, 6514, 296, 5, 20, "Print"],
|
---|
23781 | Cell[299458, 6521, 341, 8, 20, "Print"],
|
---|
23782 | Cell[299802, 6531, 525, 10, 20, "Print"],
|
---|
23783 | Cell[300330, 6543, 525, 10, 20, "Print"],
|
---|
23784 | Cell[300858, 6555, 530, 10, 20, "Print"],
|
---|
23785 | Cell[301391, 6567, 232, 4, 20, "Print"],
|
---|
23786 | Cell[301626, 6573, 11012, 304, 237, "Print"],
|
---|
23787 | Cell[312641, 6879, 298, 5, 20, "Print"],
|
---|
23788 | Cell[312942, 6886, 341, 8, 20, "Print"],
|
---|
23789 | Cell[313286, 6896, 527, 10, 20, "Print"],
|
---|
23790 | Cell[313816, 6908, 566, 11, 23, "Print"],
|
---|
23791 | Cell[314385, 6921, 530, 10, 20, "Print"],
|
---|
23792 | Cell[314918, 6933, 229, 4, 20, "Print"],
|
---|
23793 | Cell[315150, 6939, 6774, 187, 144, "Print"],
|
---|
23794 | Cell[321927, 7128, 296, 5, 20, "Print"],
|
---|
23795 | Cell[322226, 7135, 341, 8, 20, "Print"],
|
---|
23796 | Cell[322570, 7145, 529, 10, 20, "Print"],
|
---|
23797 | Cell[323102, 7157, 528, 10, 20, "Print"],
|
---|
23798 | Cell[323633, 7169, 530, 10, 20, "Print"],
|
---|
23799 | Cell[324166, 7181, 232, 4, 20, "Print"],
|
---|
23800 | Cell[324401, 7187, 6755, 187, 144, "Print"],
|
---|
23801 | Cell[331159, 7376, 296, 5, 20, "Print"],
|
---|
23802 | Cell[331458, 7383, 341, 8, 20, "Print"],
|
---|
23803 | Cell[331802, 7393, 525, 10, 20, "Print"],
|
---|
23804 | Cell[332330, 7405, 525, 10, 20, "Print"],
|
---|
23805 | Cell[332858, 7417, 525, 10, 20, "Print"],
|
---|
23806 | Cell[333386, 7429, 529, 10, 20, "Print"],
|
---|
23807 | Cell[333918, 7441, 230, 4, 20, "Print"],
|
---|
23808 | Cell[334151, 7447, 21967, 636, 481, "Print"],
|
---|
23809 | Cell[356121, 8085, 298, 5, 20, "Print"],
|
---|
23810 | Cell[356422, 8092, 341, 8, 20, "Print"],
|
---|
23811 | Cell[356766, 8102, 525, 10, 20, "Print"],
|
---|
23812 | Cell[357294, 8114, 527, 10, 20, "Print"],
|
---|
23813 | Cell[357824, 8126, 525, 10, 20, "Print"],
|
---|
23814 | Cell[358352, 8138, 525, 10, 20, "Print"],
|
---|
23815 | Cell[358880, 8150, 530, 10, 20, "Print"],
|
---|
23816 | Cell[359413, 8162, 230, 4, 20, "Print"],
|
---|
23817 | Cell[359646, 8168, 28000, 785, 677, "Print"],
|
---|
23818 | Cell[387649, 8955, 296, 5, 20, "Print"],
|
---|
23819 | Cell[387948, 8962, 341, 8, 20, "Print"],
|
---|
23820 | Cell[388292, 8972, 523, 10, 20, "Print"],
|
---|
23821 | Cell[388818, 8984, 561, 11, 28, "Print"],
|
---|
23822 | Cell[389382, 8997, 530, 10, 20, "Print"],
|
---|
23823 | Cell[389915, 9009, 230, 4, 20, "Print"],
|
---|
23824 | Cell[390148, 9015, 4560, 131, 90, "Print"],
|
---|
23825 | Cell[394711, 9148, 296, 5, 20, "Print"],
|
---|
23826 | Cell[395010, 9155, 341, 8, 20, "Print"],
|
---|
23827 | Cell[395354, 9165, 523, 10, 20, "Print"],
|
---|
23828 | Cell[395880, 9177, 561, 11, 28, "Print"],
|
---|
23829 | Cell[396444, 9190, 532, 10, 20, "Print"],
|
---|
23830 | Cell[396979, 9202, 230, 4, 20, "Print"],
|
---|
23831 | Cell[397212, 9208, 3971, 114, 94, "Print"],
|
---|
23832 | Cell[401186, 9324, 296, 5, 20, "Print"],
|
---|
23833 | Cell[401485, 9331, 341, 8, 20, "Print"],
|
---|
23834 | Cell[401829, 9341, 523, 10, 20, "Print"],
|
---|
23835 | Cell[402355, 9353, 561, 11, 26, "Print"],
|
---|
23836 | Cell[402919, 9366, 530, 10, 20, "Print"],
|
---|
23837 | Cell[403452, 9378, 232, 4, 20, "Print"],
|
---|
23838 | Cell[403687, 9384, 3969, 114, 94, "Print"],
|
---|
23839 | Cell[407659, 9500, 296, 5, 20, "Print"],
|
---|
23840 | Cell[407958, 9507, 341, 8, 20, "Print"],
|
---|
23841 | Cell[408302, 9517, 523, 10, 20, "Print"],
|
---|
23842 | Cell[408828, 9529, 561, 11, 26, "Print"],
|
---|
23843 | Cell[409392, 9542, 530, 10, 20, "Print"],
|
---|
23844 | Cell[409925, 9554, 230, 4, 20, "Print"],
|
---|
23845 | Cell[410158, 9560, 3155, 90, 48, "Print"],
|
---|
23846 | Cell[413316, 9652, 296, 5, 20, "Print"],
|
---|
23847 | Cell[413615, 9659, 341, 8, 20, "Print"],
|
---|
23848 | Cell[413959, 9669, 524, 10, 20, "Print"],
|
---|
23849 | Cell[414486, 9681, 563, 11, 26, "Print"],
|
---|
23850 | Cell[415052, 9694, 530, 10, 20, "Print"],
|
---|
23851 | Cell[415585, 9706, 230, 4, 20, "Print"],
|
---|
23852 | Cell[415818, 9712, 3155, 90, 48, "Print"],
|
---|
23853 | Cell[418976, 9804, 295, 5, 20, "Print"],
|
---|
23854 | Cell[419274, 9811, 343, 8, 20, "Print"],
|
---|
23855 | Cell[419620, 9821, 530, 10, 20, "Print"],
|
---|
23856 | Cell[420153, 9833, 565, 11, 27, "Print"],
|
---|
23857 | Cell[420721, 9846, 530, 10, 20, "Print"],
|
---|
23858 | Cell[421254, 9858, 230, 4, 20, "Print"],
|
---|
23859 | Cell[421487, 9864, 3612, 103, 90, "Print"],
|
---|
23860 | Cell[425102, 9969, 296, 5, 20, "Print"],
|
---|
23861 | Cell[425401, 9976, 343, 8, 20, "Print"],
|
---|
23862 | Cell[425747, 9986, 523, 10, 20, "Print"],
|
---|
23863 | Cell[426273, 9998, 561, 11, 26, "Print"],
|
---|
23864 | Cell[426837, 10011, 529, 10, 20, "Print"],
|
---|
23865 | Cell[427369, 10023, 230, 4, 20, "Print"],
|
---|
23866 | Cell[427602, 10029, 3969, 114, 94, "Print"],
|
---|
23867 | Cell[431574, 10145, 296, 5, 20, "Print"],
|
---|
23868 | Cell[431873, 10152, 341, 8, 20, "Print"],
|
---|
23869 | Cell[432217, 10162, 525, 10, 20, "Print"],
|
---|
23870 | Cell[432745, 10174, 561, 11, 27, "Print"],
|
---|
23871 | Cell[433309, 10187, 530, 10, 20, "Print"],
|
---|
23872 | Cell[433842, 10199, 230, 4, 20, "Print"],
|
---|
23873 | Cell[434075, 10205, 4560, 131, 90, "Print"],
|
---|
23874 | Cell[438638, 10338, 296, 5, 20, "Print"],
|
---|
23875 | Cell[438937, 10345, 341, 8, 20, "Print"],
|
---|
23876 | Cell[439281, 10355, 523, 10, 20, "Print"],
|
---|
23877 | Cell[439807, 10367, 561, 11, 26, "Print"],
|
---|
23878 | Cell[440371, 10380, 530, 10, 20, "Print"],
|
---|
23879 | Cell[440904, 10392, 230, 4, 20, "Print"],
|
---|
23880 | Cell[441137, 10398, 3971, 114, 94, "Print"],
|
---|
23881 | Cell[445111, 10514, 295, 5, 20, "Print"],
|
---|
23882 | Cell[445409, 10521, 341, 8, 20, "Print"],
|
---|
23883 | Cell[445753, 10531, 528, 10, 20, "Print"],
|
---|
23884 | Cell[446284, 10543, 563, 11, 26, "Print"],
|
---|
23885 | Cell[446850, 10556, 530, 10, 20, "Print"],
|
---|
23886 | Cell[447383, 10568, 232, 4, 20, "Print"],
|
---|
23887 | Cell[447618, 10574, 3154, 90, 48, "Print"],
|
---|
23888 | Cell[450775, 10666, 296, 5, 20, "Print"],
|
---|
23889 | Cell[451074, 10673, 341, 8, 20, "Print"],
|
---|
23890 | Cell[451418, 10683, 528, 10, 20, "Print"],
|
---|
23891 | Cell[451949, 10695, 565, 11, 26, "Print"],
|
---|
23892 | Cell[452517, 10708, 530, 10, 20, "Print"],
|
---|
23893 | Cell[453050, 10720, 230, 4, 20, "Print"],
|
---|
23894 | Cell[453283, 10726, 3155, 90, 48, "Print"],
|
---|
23895 | Cell[456441, 10818, 298, 5, 20, "Print"],
|
---|
23896 | Cell[456742, 10825, 343, 8, 20, "Print"],
|
---|
23897 | Cell[457088, 10835, 528, 10, 20, "Print"],
|
---|
23898 | Cell[457619, 10847, 563, 11, 27, "Print"],
|
---|
23899 | Cell[458185, 10860, 530, 10, 20, "Print"],
|
---|
23900 | Cell[458718, 10872, 230, 4, 20, "Print"],
|
---|
23901 | Cell[458951, 10878, 3157, 90, 48, "Print"],
|
---|
23902 | Cell[462111, 10970, 296, 5, 20, "Print"],
|
---|
23903 | Cell[462410, 10977, 341, 8, 20, "Print"],
|
---|
23904 | Cell[462754, 10987, 522, 10, 20, "Print"],
|
---|
23905 | Cell[463279, 10999, 561, 11, 26, "Print"],
|
---|
23906 | Cell[463843, 11012, 525, 10, 20, "Print"],
|
---|
23907 | Cell[464371, 11024, 530, 10, 20, "Print"],
|
---|
23908 | Cell[464904, 11036, 230, 4, 20, "Print"],
|
---|
23909 | Cell[465137, 11042, 2394, 68, 50, "Print"],
|
---|
23910 | Cell[467534, 11112, 295, 5, 20, "Print"],
|
---|
23911 | Cell[467832, 11119, 343, 8, 20, "Print"],
|
---|
23912 | Cell[468178, 11129, 525, 10, 20, "Print"],
|
---|
23913 | Cell[468706, 11141, 523, 10, 20, "Print"],
|
---|
23914 | Cell[469232, 11153, 561, 11, 27, "Print"],
|
---|
23915 | Cell[469796, 11166, 532, 10, 20, "Print"],
|
---|
23916 | Cell[470331, 11178, 232, 4, 20, "Print"],
|
---|
23917 | Cell[470566, 11184, 2396, 68, 50, "Print"],
|
---|
23918 | Cell[472965, 11254, 296, 5, 20, "Print"],
|
---|
23919 | Cell[473264, 11261, 341, 8, 20, "Print"],
|
---|
23920 | Cell[473608, 11271, 527, 10, 20, "Print"],
|
---|
23921 | Cell[474138, 11283, 523, 10, 20, "Print"],
|
---|
23922 | Cell[474664, 11295, 561, 11, 26, "Print"],
|
---|
23923 | Cell[475228, 11308, 530, 10, 20, "Print"],
|
---|
23924 | Cell[475761, 11320, 229, 4, 20, "Print"],
|
---|
23925 | Cell[475993, 11326, 2394, 68, 50, "Print"],
|
---|
23926 | Cell[478390, 11396, 295, 5, 20, "Print"],
|
---|
23927 | Cell[478688, 11403, 343, 8, 20, "Print"],
|
---|
23928 | Cell[479034, 11413, 523, 10, 20, "Print"],
|
---|
23929 | Cell[479560, 11425, 561, 11, 28, "Print"],
|
---|
23930 | Cell[480124, 11438, 525, 10, 20, "Print"],
|
---|
23931 | Cell[480652, 11450, 530, 10, 20, "Print"],
|
---|
23932 | Cell[481185, 11462, 232, 4, 20, "Print"],
|
---|
23933 | Cell[481420, 11468, 2394, 68, 50, "Print"],
|
---|
23934 | Cell[483817, 11538, 298, 5, 20, "Print"],
|
---|
23935 | Cell[484118, 11545, 343, 8, 20, "Print"],
|
---|
23936 | Cell[484464, 11555, 523, 10, 20, "Print"],
|
---|
23937 | Cell[484990, 11567, 561, 11, 28, "Print"],
|
---|
23938 | Cell[485554, 11580, 527, 10, 20, "Print"],
|
---|
23939 | Cell[486084, 11592, 532, 10, 20, "Print"],
|
---|
23940 | Cell[486619, 11604, 230, 4, 20, "Print"],
|
---|
23941 | Cell[486852, 11610, 2393, 68, 50, "Print"],
|
---|
23942 | Cell[489248, 11680, 296, 5, 20, "Print"],
|
---|
23943 | Cell[489547, 11687, 340, 8, 20, "Print"],
|
---|
23944 | Cell[489890, 11697, 525, 10, 20, "Print"],
|
---|
23945 | Cell[490418, 11709, 523, 10, 20, "Print"],
|
---|
23946 | Cell[490944, 11721, 563, 11, 26, "Print"],
|
---|
23947 | Cell[491510, 11734, 532, 10, 20, "Print"],
|
---|
23948 | Cell[492045, 11746, 230, 4, 20, "Print"],
|
---|
23949 | Cell[492278, 11752, 2394, 68, 50, "Print"],
|
---|
23950 | Cell[494675, 11822, 296, 5, 20, "Print"],
|
---|
23951 | Cell[494974, 11829, 340, 8, 20, "Print"],
|
---|
23952 | Cell[495317, 11839, 528, 10, 20, "Print"],
|
---|
23953 | Cell[495848, 11851, 525, 10, 20, "Print"],
|
---|
23954 | Cell[496376, 11863, 564, 11, 23, "Print"],
|
---|
23955 | Cell[496943, 11876, 530, 10, 20, "Print"],
|
---|
23956 | Cell[497476, 11888, 230, 4, 20, "Print"],
|
---|
23957 | Cell[497709, 11894, 1555, 45, 48, "Print"],
|
---|
23958 | Cell[499267, 11941, 296, 5, 20, "Print"],
|
---|
23959 | Cell[499566, 11948, 341, 8, 20, "Print"],
|
---|
23960 | Cell[499910, 11958, 530, 10, 20, "Print"],
|
---|
23961 | Cell[500443, 11970, 528, 10, 20, "Print"],
|
---|
23962 | Cell[500974, 11982, 528, 10, 20, "Print"],
|
---|
23963 | Cell[501505, 11994, 230, 4, 20, "Print"],
|
---|
23964 | Cell[501738, 12000, 2510, 69, 51, "Print"],
|
---|
23965 | Cell[504251, 12071, 298, 5, 20, "Print"],
|
---|
23966 | Cell[504552, 12078, 341, 8, 20, "Print"],
|
---|
23967 | Cell[504896, 12088, 530, 10, 20, "Print"],
|
---|
23968 | Cell[505429, 12100, 530, 10, 20, "Print"],
|
---|
23969 | Cell[505962, 12112, 528, 10, 20, "Print"],
|
---|
23970 | Cell[506493, 12124, 528, 10, 20, "Print"],
|
---|
23971 | Cell[507024, 12136, 230, 4, 20, "Print"],
|
---|
23972 | Cell[507257, 12142, 1353, 37, 50, "Print"],
|
---|
23973 | Cell[508613, 12181, 296, 5, 20, "Print"],
|
---|
23974 | Cell[508912, 12188, 343, 8, 20, "Print"],
|
---|
23975 | Cell[509258, 12198, 525, 10, 20, "Print"],
|
---|
23976 | Cell[509786, 12210, 564, 11, 23, "Print"],
|
---|
23977 | Cell[510353, 12223, 530, 10, 20, "Print"],
|
---|
23978 | Cell[510886, 12235, 528, 10, 20, "Print"],
|
---|
23979 | Cell[511417, 12247, 230, 4, 20, "Print"],
|
---|
23980 | Cell[511650, 12253, 1586, 44, 50, "Print"],
|
---|
23981 | Cell[513239, 12299, 298, 5, 20, "Print"],
|
---|
23982 | Cell[513540, 12306, 341, 8, 20, "Print"],
|
---|
23983 | Cell[513884, 12316, 528, 10, 20, "Print"],
|
---|
23984 | Cell[514415, 12328, 520, 10, 20, "Print"],
|
---|
23985 | Cell[514938, 12340, 561, 11, 28, "Print"],
|
---|
23986 | Cell[515502, 12353, 230, 4, 20, "Print"],
|
---|
23987 | Cell[515735, 12359, 599, 16, 40, "Print"],
|
---|
23988 | Cell[516337, 12377, 296, 5, 20, "Print"],
|
---|
23989 | Cell[516636, 12384, 343, 8, 20, "Print"],
|
---|
23990 | Cell[516982, 12394, 530, 10, 20, "Print"],
|
---|
23991 | Cell[517515, 12406, 522, 10, 20, "Print"],
|
---|
23992 | Cell[518040, 12418, 561, 11, 28, "Print"],
|
---|
23993 | Cell[518604, 12431, 230, 4, 20, "Print"],
|
---|
23994 | Cell[518837, 12437, 599, 16, 40, "Print"],
|
---|
23995 | Cell[519439, 12455, 296, 5, 20, "Print"],
|
---|
23996 | Cell[519738, 12462, 343, 8, 20, "Print"],
|
---|
23997 | Cell[520084, 12472, 530, 10, 20, "Print"],
|
---|
23998 | Cell[520617, 12484, 522, 10, 20, "Print"],
|
---|
23999 | Cell[521142, 12496, 561, 11, 26, "Print"],
|
---|
24000 | Cell[521706, 12509, 230, 4, 20, "Print"],
|
---|
24001 | Cell[521939, 12515, 599, 16, 40, "Print"],
|
---|
24002 | Cell[522541, 12533, 296, 5, 20, "Print"],
|
---|
24003 | Cell[522840, 12540, 343, 8, 20, "Print"],
|
---|
24004 | Cell[523186, 12550, 530, 10, 20, "Print"],
|
---|
24005 | Cell[523719, 12562, 525, 10, 20, "Print"],
|
---|
24006 | Cell[524247, 12574, 561, 11, 26, "Print"],
|
---|
24007 | Cell[524811, 12587, 232, 4, 20, "Print"],
|
---|
24008 | Cell[525046, 12593, 439, 11, 28, "Print"],
|
---|
24009 | Cell[525488, 12606, 296, 5, 20, "Print"],
|
---|
24010 | Cell[525787, 12613, 341, 8, 20, "Print"],
|
---|
24011 | Cell[526131, 12623, 528, 10, 20, "Print"],
|
---|
24012 | Cell[526662, 12635, 527, 10, 20, "Print"],
|
---|
24013 | Cell[527192, 12647, 563, 11, 26, "Print"],
|
---|
24014 | Cell[527758, 12660, 230, 4, 20, "Print"],
|
---|
24015 | Cell[527991, 12666, 440, 11, 28, "Print"],
|
---|
24016 | Cell[528434, 12679, 296, 5, 20, "Print"],
|
---|
24017 | Cell[528733, 12686, 343, 8, 20, "Print"],
|
---|
24018 | Cell[529079, 12696, 528, 10, 20, "Print"],
|
---|
24019 | Cell[529610, 12708, 528, 10, 20, "Print"],
|
---|
24020 | Cell[530141, 12720, 563, 11, 27, "Print"],
|
---|
24021 | Cell[530707, 12733, 232, 4, 20, "Print"],
|
---|
24022 | Cell[530942, 12739, 440, 11, 28, "Print"],
|
---|
24023 | Cell[531385, 12752, 296, 5, 20, "Print"],
|
---|
24024 | Cell[531684, 12759, 341, 8, 20, "Print"],
|
---|
24025 | Cell[532028, 12769, 530, 10, 20, "Print"],
|
---|
24026 | Cell[532561, 12781, 525, 10, 20, "Print"],
|
---|
24027 | Cell[533089, 12793, 563, 11, 26, "Print"],
|
---|
24028 | Cell[533655, 12806, 230, 4, 20, "Print"],
|
---|
24029 | Cell[533888, 12812, 580, 15, 40, "Print"],
|
---|
24030 | Cell[534471, 12829, 296, 5, 20, "Print"],
|
---|
24031 | Cell[534770, 12836, 341, 8, 20, "Print"],
|
---|
24032 | Cell[535114, 12846, 528, 10, 20, "Print"],
|
---|
24033 | Cell[535645, 12858, 523, 10, 20, "Print"],
|
---|
24034 | Cell[536171, 12870, 560, 11, 27, "Print"],
|
---|
24035 | Cell[536734, 12883, 230, 4, 20, "Print"],
|
---|
24036 | Cell[536967, 12889, 580, 15, 40, "Print"],
|
---|
24037 | Cell[537550, 12906, 296, 5, 20, "Print"],
|
---|
24038 | Cell[537849, 12913, 341, 8, 20, "Print"],
|
---|
24039 | Cell[538193, 12923, 528, 10, 20, "Print"],
|
---|
24040 | Cell[538724, 12935, 525, 10, 20, "Print"],
|
---|
24041 | Cell[539252, 12947, 563, 11, 26, "Print"],
|
---|
24042 | Cell[539818, 12960, 230, 4, 20, "Print"],
|
---|
24043 | Cell[540051, 12966, 580, 15, 40, "Print"],
|
---|
24044 | Cell[540634, 12983, 295, 5, 20, "Print"],
|
---|
24045 | Cell[540932, 12990, 341, 8, 20, "Print"],
|
---|
24046 | Cell[541276, 13000, 561, 11, 26, "Print"],
|
---|
24047 | Cell[541840, 13013, 525, 10, 20, "Print"],
|
---|
24048 | Cell[542368, 13025, 527, 10, 20, "Print"],
|
---|
24049 | Cell[542898, 13037, 230, 4, 20, "Print"],
|
---|
24050 | Cell[543131, 13043, 821, 25, 50, "Print"],
|
---|
24051 | Cell[543955, 13070, 295, 5, 20, "Print"],
|
---|
24052 | Cell[544253, 13077, 343, 8, 20, "Print"],
|
---|
24053 | Cell[544599, 13087, 561, 11, 26, "Print"],
|
---|
24054 | Cell[545163, 13100, 525, 10, 20, "Print"],
|
---|
24055 | Cell[545691, 13112, 525, 10, 20, "Print"],
|
---|
24056 | Cell[546219, 13124, 230, 4, 20, "Print"],
|
---|
24057 | Cell[546452, 13130, 821, 25, 50, "Print"],
|
---|
24058 | Cell[547276, 13157, 296, 5, 20, "Print"],
|
---|
24059 | Cell[547575, 13164, 343, 8, 20, "Print"],
|
---|
24060 | Cell[547921, 13174, 523, 10, 20, "Print"],
|
---|
24061 | Cell[548447, 13186, 563, 11, 27, "Print"],
|
---|
24062 | Cell[549013, 13199, 525, 10, 20, "Print"],
|
---|
24063 | Cell[549541, 13211, 230, 4, 20, "Print"],
|
---|
24064 | Cell[549774, 13217, 715, 21, 48, "Print"],
|
---|
24065 | Cell[550492, 13240, 296, 5, 20, "Print"],
|
---|
24066 | Cell[550791, 13247, 343, 8, 20, "Print"],
|
---|
24067 | Cell[551137, 13257, 525, 10, 20, "Print"],
|
---|
24068 | Cell[551665, 13269, 561, 11, 26, "Print"],
|
---|
24069 | Cell[552229, 13282, 525, 10, 20, "Print"],
|
---|
24070 | Cell[552757, 13294, 230, 4, 20, "Print"],
|
---|
24071 | Cell[552990, 13300, 821, 25, 50, "Print"],
|
---|
24072 | Cell[553814, 13327, 298, 5, 20, "Print"],
|
---|
24073 | Cell[554115, 13334, 343, 8, 20, "Print"],
|
---|
24074 | Cell[554461, 13344, 525, 10, 20, "Print"],
|
---|
24075 | Cell[554989, 13356, 561, 11, 26, "Print"],
|
---|
24076 | Cell[555553, 13369, 525, 10, 20, "Print"],
|
---|
24077 | Cell[556081, 13381, 230, 4, 20, "Print"],
|
---|
24078 | Cell[556314, 13387, 821, 25, 50, "Print"],
|
---|
24079 | Cell[557138, 13414, 298, 5, 20, "Print"],
|
---|
24080 | Cell[557439, 13421, 343, 8, 20, "Print"],
|
---|
24081 | Cell[557785, 13431, 523, 10, 20, "Print"],
|
---|
24082 | Cell[558311, 13443, 563, 11, 26, "Print"],
|
---|
24083 | Cell[558877, 13456, 525, 10, 20, "Print"],
|
---|
24084 | Cell[559405, 13468, 230, 4, 20, "Print"],
|
---|
24085 | Cell[559638, 13474, 584, 17, 48, "Print"],
|
---|
24086 | Cell[560225, 13493, 296, 5, 20, "Print"],
|
---|
24087 | Cell[560524, 13500, 341, 8, 20, "Print"],
|
---|
24088 | Cell[560868, 13510, 525, 10, 20, "Print"],
|
---|
24089 | Cell[561396, 13522, 563, 11, 26, "Print"],
|
---|
24090 | Cell[561962, 13535, 527, 10, 20, "Print"],
|
---|
24091 | Cell[562492, 13547, 229, 4, 20, "Print"],
|
---|
24092 | Cell[562724, 13553, 584, 17, 48, "Print"],
|
---|
24093 | Cell[563311, 13572, 296, 5, 20, "Print"],
|
---|
24094 | Cell[563610, 13579, 343, 8, 20, "Print"],
|
---|
24095 | Cell[563956, 13589, 528, 10, 20, "Print"],
|
---|
24096 | Cell[564487, 13601, 563, 11, 27, "Print"],
|
---|
24097 | Cell[565053, 13614, 525, 10, 20, "Print"],
|
---|
24098 | Cell[565581, 13626, 230, 4, 20, "Print"],
|
---|
24099 | Cell[565814, 13632, 584, 17, 48, "Print"],
|
---|
24100 | Cell[566401, 13651, 296, 5, 20, "Print"],
|
---|
24101 | Cell[566700, 13658, 340, 8, 20, "Print"],
|
---|
24102 | Cell[567043, 13668, 561, 11, 26, "Print"],
|
---|
24103 | Cell[567607, 13681, 528, 10, 20, "Print"],
|
---|
24104 | Cell[568138, 13693, 564, 11, 23, "Print"],
|
---|
24105 | Cell[568705, 13706, 230, 4, 20, "Print"],
|
---|
24106 | Cell[568938, 13712, 584, 17, 48, "Print"],
|
---|
24107 | Cell[569525, 13731, 295, 5, 20, "Print"],
|
---|
24108 | Cell[569823, 13738, 343, 8, 20, "Print"],
|
---|
24109 | Cell[570169, 13748, 562, 11, 26, "Print"],
|
---|
24110 | Cell[570734, 13761, 530, 10, 20, "Print"],
|
---|
24111 | Cell[571267, 13773, 564, 11, 23, "Print"],
|
---|
24112 | Cell[571834, 13786, 230, 4, 20, "Print"],
|
---|
24113 | Cell[572067, 13792, 586, 17, 48, "Print"],
|
---|
24114 | Cell[572656, 13811, 296, 5, 20, "Print"],
|
---|
24115 | Cell[572955, 13818, 343, 8, 20, "Print"],
|
---|
24116 | Cell[573301, 13828, 562, 11, 27, "Print"],
|
---|
24117 | Cell[573866, 13841, 530, 10, 20, "Print"],
|
---|
24118 | Cell[574399, 13853, 564, 11, 23, "Print"],
|
---|
24119 | Cell[574966, 13866, 230, 4, 20, "Print"],
|
---|
24120 | Cell[575199, 13872, 583, 17, 48, "Print"],
|
---|
24121 | Cell[575785, 13891, 296, 5, 20, "Print"],
|
---|
24122 | Cell[576084, 13898, 341, 8, 20, "Print"],
|
---|
24123 | Cell[576428, 13908, 561, 11, 28, "Print"],
|
---|
24124 | Cell[576992, 13921, 525, 10, 20, "Print"],
|
---|
24125 | Cell[577520, 13933, 564, 11, 23, "Print"],
|
---|
24126 | Cell[578087, 13946, 232, 4, 20, "Print"],
|
---|
24127 | Cell[578322, 13952, 714, 21, 48, "Print"],
|
---|
24128 | Cell[579039, 13975, 296, 5, 20, "Print"],
|
---|
24129 | Cell[579338, 13982, 341, 8, 20, "Print"],
|
---|
24130 | Cell[579682, 13992, 523, 10, 20, "Print"],
|
---|
24131 | Cell[580208, 14004, 560, 11, 28, "Print"],
|
---|
24132 | Cell[580771, 14017, 564, 11, 23, "Print"],
|
---|
24133 | Cell[581338, 14030, 230, 4, 20, "Print"],
|
---|
24134 | Cell[581571, 14036, 864, 26, 52, "Print"],
|
---|
24135 | Cell[582438, 14064, 295, 5, 20, "Print"],
|
---|
24136 | Cell[582736, 14071, 341, 8, 20, "Print"],
|
---|
24137 | Cell[583080, 14081, 561, 11, 28, "Print"],
|
---|
24138 | Cell[583644, 14094, 523, 10, 20, "Print"],
|
---|
24139 | Cell[584170, 14106, 564, 11, 23, "Print"],
|
---|
24140 | Cell[584737, 14119, 232, 4, 20, "Print"],
|
---|
24141 | Cell[584972, 14125, 866, 26, 52, "Print"],
|
---|
24142 | Cell[585841, 14153, 296, 5, 20, "Print"],
|
---|
24143 | Cell[586140, 14160, 341, 8, 20, "Print"],
|
---|
24144 | Cell[586484, 14170, 523, 10, 20, "Print"],
|
---|
24145 | Cell[587010, 14182, 561, 11, 26, "Print"],
|
---|
24146 | Cell[587574, 14195, 566, 11, 23, "Print"],
|
---|
24147 | Cell[588143, 14208, 230, 4, 20, "Print"],
|
---|
24148 | Cell[588376, 14214, 864, 26, 52, "Print"],
|
---|
24149 | Cell[589243, 14242, 296, 5, 20, "Print"],
|
---|
24150 | Cell[589542, 14249, 343, 8, 20, "Print"],
|
---|
24151 | Cell[589888, 14259, 561, 11, 26, "Print"],
|
---|
24152 | Cell[590452, 14272, 523, 10, 20, "Print"],
|
---|
24153 | Cell[590978, 14284, 564, 11, 23, "Print"],
|
---|
24154 | Cell[591545, 14297, 229, 4, 20, "Print"],
|
---|
24155 | Cell[591777, 14303, 864, 26, 52, "Print"],
|
---|
24156 | Cell[592644, 14331, 296, 5, 20, "Print"],
|
---|
24157 | Cell[592943, 14338, 341, 8, 20, "Print"],
|
---|
24158 | Cell[593287, 14348, 530, 10, 20, "Print"],
|
---|
24159 | Cell[593820, 14360, 523, 10, 20, "Print"],
|
---|
24160 | Cell[594346, 14372, 561, 11, 28, "Print"],
|
---|
24161 | Cell[594910, 14385, 530, 10, 20, "Print"],
|
---|
24162 | Cell[595443, 14397, 229, 4, 20, "Print"],
|
---|
24163 | Cell[595675, 14403, 4710, 138, 94, "Print"],
|
---|
24164 | Cell[600388, 14543, 296, 5, 20, "Print"],
|
---|
24165 | Cell[600687, 14550, 341, 8, 20, "Print"],
|
---|
24166 | Cell[601031, 14560, 528, 10, 20, "Print"],
|
---|
24167 | Cell[601562, 14572, 523, 10, 20, "Print"],
|
---|
24168 | Cell[602088, 14584, 561, 11, 28, "Print"],
|
---|
24169 | Cell[602652, 14597, 530, 10, 20, "Print"],
|
---|
24170 | Cell[603185, 14609, 230, 4, 20, "Print"],
|
---|
24171 | Cell[603418, 14615, 4708, 138, 94, "Print"],
|
---|
24172 | Cell[608129, 14755, 296, 5, 20, "Print"],
|
---|
24173 | Cell[608428, 14762, 343, 8, 20, "Print"],
|
---|
24174 | Cell[608774, 14772, 527, 10, 20, "Print"],
|
---|
24175 | Cell[609304, 14784, 523, 10, 20, "Print"],
|
---|
24176 | Cell[609830, 14796, 563, 11, 26, "Print"],
|
---|
24177 | Cell[610396, 14809, 530, 10, 20, "Print"],
|
---|
24178 | Cell[610929, 14821, 232, 4, 20, "Print"],
|
---|
24179 | Cell[611164, 14827, 4708, 138, 94, "Print"],
|
---|
24180 | Cell[615875, 14967, 296, 5, 20, "Print"],
|
---|
24181 | Cell[616174, 14974, 341, 8, 20, "Print"],
|
---|
24182 | Cell[616518, 14984, 528, 10, 20, "Print"],
|
---|
24183 | Cell[617049, 14996, 523, 10, 20, "Print"],
|
---|
24184 | Cell[617575, 15008, 561, 11, 26, "Print"],
|
---|
24185 | Cell[618139, 15021, 530, 10, 20, "Print"],
|
---|
24186 | Cell[618672, 15033, 232, 4, 20, "Print"],
|
---|
24187 | Cell[618907, 15039, 3845, 112, 92, "Print"],
|
---|
24188 | Cell[622755, 15153, 296, 5, 20, "Print"],
|
---|
24189 | Cell[623054, 15160, 341, 8, 20, "Print"],
|
---|
24190 | Cell[623398, 15170, 530, 10, 20, "Print"],
|
---|
24191 | Cell[623931, 15182, 527, 10, 20, "Print"],
|
---|
24192 | Cell[624461, 15194, 565, 11, 26, "Print"],
|
---|
24193 | Cell[625029, 15207, 530, 10, 20, "Print"],
|
---|
24194 | Cell[625562, 15219, 230, 4, 20, "Print"],
|
---|
24195 | Cell[625795, 15225, 3845, 112, 92, "Print"],
|
---|
24196 | Cell[629643, 15339, 296, 5, 20, "Print"],
|
---|
24197 | Cell[629942, 15346, 343, 8, 20, "Print"],
|
---|
24198 | Cell[630288, 15356, 530, 10, 20, "Print"],
|
---|
24199 | Cell[630821, 15368, 530, 10, 20, "Print"],
|
---|
24200 | Cell[631354, 15380, 563, 11, 27, "Print"],
|
---|
24201 | Cell[631920, 15393, 530, 10, 20, "Print"],
|
---|
24202 | Cell[632453, 15405, 230, 4, 20, "Print"],
|
---|
24203 | Cell[632686, 15411, 3847, 112, 92, "Print"],
|
---|
24204 | Cell[636536, 15525, 296, 5, 20, "Print"],
|
---|
24205 | Cell[636835, 15532, 340, 8, 20, "Print"],
|
---|
24206 | Cell[637178, 15542, 528, 10, 20, "Print"],
|
---|
24207 | Cell[637709, 15554, 523, 10, 20, "Print"],
|
---|
24208 | Cell[638235, 15566, 561, 11, 26, "Print"],
|
---|
24209 | Cell[638799, 15579, 530, 10, 20, "Print"],
|
---|
24210 | Cell[639332, 15591, 230, 4, 20, "Print"],
|
---|
24211 | Cell[639565, 15597, 4690, 137, 94, "Print"],
|
---|
24212 | Cell[644258, 15736, 296, 5, 20, "Print"],
|
---|
24213 | Cell[644557, 15743, 341, 8, 20, "Print"],
|
---|
24214 | Cell[644901, 15753, 530, 10, 20, "Print"],
|
---|
24215 | Cell[645434, 15765, 525, 10, 20, "Print"],
|
---|
24216 | Cell[645962, 15777, 563, 11, 27, "Print"],
|
---|
24217 | Cell[646528, 15790, 530, 10, 20, "Print"],
|
---|
24218 | Cell[647061, 15802, 230, 4, 20, "Print"],
|
---|
24219 | Cell[647294, 15808, 4688, 137, 94, "Print"],
|
---|
24220 | Cell[651985, 15947, 298, 5, 20, "Print"],
|
---|
24221 | Cell[652286, 15954, 341, 8, 20, "Print"],
|
---|
24222 | Cell[652630, 15964, 528, 10, 20, "Print"],
|
---|
24223 | Cell[653161, 15976, 523, 10, 20, "Print"],
|
---|
24224 | Cell[653687, 15988, 561, 11, 26, "Print"],
|
---|
24225 | Cell[654251, 16001, 532, 10, 20, "Print"],
|
---|
24226 | Cell[654786, 16013, 230, 4, 20, "Print"],
|
---|
24227 | Cell[655019, 16019, 4687, 137, 94, "Print"],
|
---|
24228 | Cell[659709, 16158, 298, 5, 20, "Print"],
|
---|
24229 | Cell[660010, 16165, 343, 8, 20, "Print"],
|
---|
24230 | Cell[660356, 16175, 523, 10, 20, "Print"],
|
---|
24231 | Cell[660882, 16187, 565, 11, 26, "Print"],
|
---|
24232 | Cell[661450, 16200, 525, 10, 20, "Print"],
|
---|
24233 | Cell[661978, 16212, 530, 10, 20, "Print"],
|
---|
24234 | Cell[662511, 16224, 230, 4, 20, "Print"],
|
---|
24235 | Cell[662744, 16230, 2202, 65, 52, "Print"],
|
---|
24236 | Cell[664949, 16297, 296, 5, 20, "Print"],
|
---|
24237 | Cell[665248, 16304, 345, 8, 20, "Print"],
|
---|
24238 | Cell[665596, 16314, 525, 10, 20, "Print"],
|
---|
24239 | Cell[666124, 16326, 563, 11, 26, "Print"],
|
---|
24240 | Cell[666690, 16339, 525, 10, 20, "Print"],
|
---|
24241 | Cell[667218, 16351, 530, 10, 20, "Print"],
|
---|
24242 | Cell[667751, 16363, 232, 4, 20, "Print"],
|
---|
24243 | Cell[667986, 16369, 2202, 65, 52, "Print"],
|
---|
24244 | Cell[670191, 16436, 296, 5, 20, "Print"],
|
---|
24245 | Cell[670490, 16443, 343, 8, 20, "Print"],
|
---|
24246 | Cell[670836, 16453, 528, 10, 20, "Print"],
|
---|
24247 | Cell[671367, 16465, 563, 11, 27, "Print"],
|
---|
24248 | Cell[671933, 16478, 525, 10, 20, "Print"],
|
---|
24249 | Cell[672461, 16490, 530, 10, 20, "Print"],
|
---|
24250 | Cell[672994, 16502, 230, 4, 20, "Print"],
|
---|
24251 | Cell[673227, 16508, 2202, 65, 52, "Print"],
|
---|
24252 | Cell[675432, 16575, 296, 5, 20, "Print"],
|
---|
24253 | Cell[675731, 16582, 343, 8, 20, "Print"],
|
---|
24254 | Cell[676077, 16592, 561, 11, 26, "Print"],
|
---|
24255 | Cell[676641, 16605, 525, 10, 20, "Print"],
|
---|
24256 | Cell[677169, 16617, 525, 10, 20, "Print"],
|
---|
24257 | Cell[677697, 16629, 528, 10, 20, "Print"],
|
---|
24258 | Cell[678228, 16641, 230, 4, 20, "Print"],
|
---|
24259 | Cell[678461, 16647, 2931, 89, 52, "Print"],
|
---|
24260 | Cell[681395, 16738, 296, 5, 20, "Print"],
|
---|
24261 | Cell[681694, 16745, 345, 8, 20, "Print"],
|
---|
24262 | Cell[682042, 16755, 563, 11, 26, "Print"],
|
---|
24263 | Cell[682608, 16768, 523, 10, 20, "Print"],
|
---|
24264 | Cell[683134, 16780, 521, 10, 20, "Print"],
|
---|
24265 | Cell[683658, 16792, 530, 10, 20, "Print"],
|
---|
24266 | Cell[684191, 16804, 230, 4, 20, "Print"],
|
---|
24267 | Cell[684424, 16810, 2931, 89, 52, "Print"],
|
---|
24268 | Cell[687358, 16901, 296, 5, 20, "Print"],
|
---|
24269 | Cell[687657, 16908, 343, 8, 20, "Print"],
|
---|
24270 | Cell[688003, 16918, 523, 10, 20, "Print"],
|
---|
24271 | Cell[688529, 16930, 561, 11, 27, "Print"],
|
---|
24272 | Cell[689093, 16943, 527, 10, 20, "Print"],
|
---|
24273 | Cell[689623, 16955, 532, 10, 20, "Print"],
|
---|
24274 | Cell[690158, 16967, 230, 4, 20, "Print"],
|
---|
24275 | Cell[690391, 16973, 2607, 77, 52, "Print"],
|
---|
24276 | Cell[693001, 17052, 296, 5, 20, "Print"],
|
---|
24277 | Cell[693300, 17059, 343, 8, 20, "Print"],
|
---|
24278 | Cell[693646, 17069, 525, 10, 20, "Print"],
|
---|
24279 | Cell[694174, 17081, 561, 11, 26, "Print"],
|
---|
24280 | Cell[694738, 17094, 525, 10, 20, "Print"],
|
---|
24281 | Cell[695266, 17106, 530, 10, 20, "Print"],
|
---|
24282 | Cell[695799, 17118, 230, 4, 20, "Print"],
|
---|
24283 | Cell[696032, 17124, 2931, 89, 52, "Print"],
|
---|
24284 | Cell[698966, 17215, 296, 5, 20, "Print"],
|
---|
24285 | Cell[699265, 17222, 343, 8, 20, "Print"],
|
---|
24286 | Cell[699611, 17232, 523, 10, 20, "Print"],
|
---|
24287 | Cell[700137, 17244, 561, 11, 26, "Print"],
|
---|
24288 | Cell[700701, 17257, 527, 10, 20, "Print"],
|
---|
24289 | Cell[701231, 17269, 529, 10, 20, "Print"],
|
---|
24290 | Cell[701763, 17281, 232, 4, 20, "Print"],
|
---|
24291 | Cell[701998, 17287, 2931, 89, 52, "Print"],
|
---|
24292 | Cell[704932, 17378, 296, 5, 20, "Print"],
|
---|
24293 | Cell[705231, 17385, 343, 8, 20, "Print"],
|
---|
24294 | Cell[705577, 17395, 561, 11, 26, "Print"],
|
---|
24295 | Cell[706141, 17408, 528, 10, 20, "Print"],
|
---|
24296 | Cell[706672, 17420, 564, 11, 23, "Print"],
|
---|
24297 | Cell[707239, 17433, 532, 10, 20, "Print"],
|
---|
24298 | Cell[707774, 17445, 230, 4, 20, "Print"],
|
---|
24299 | Cell[708007, 17451, 2202, 65, 52, "Print"],
|
---|
24300 | Cell[710212, 17518, 298, 5, 20, "Print"],
|
---|
24301 | Cell[710513, 17525, 345, 8, 20, "Print"],
|
---|
24302 | Cell[710861, 17535, 562, 11, 26, "Print"],
|
---|
24303 | Cell[711426, 17548, 528, 10, 20, "Print"],
|
---|
24304 | Cell[711957, 17560, 564, 11, 23, "Print"],
|
---|
24305 | Cell[712524, 17573, 530, 10, 20, "Print"],
|
---|
24306 | Cell[713057, 17585, 229, 4, 20, "Print"],
|
---|
24307 | Cell[713289, 17591, 2204, 65, 52, "Print"],
|
---|
24308 | Cell[715496, 17658, 296, 5, 20, "Print"],
|
---|
24309 | Cell[715795, 17665, 343, 8, 20, "Print"],
|
---|
24310 | Cell[716141, 17675, 563, 11, 27, "Print"],
|
---|
24311 | Cell[716707, 17688, 528, 10, 20, "Print"],
|
---|
24312 | Cell[717238, 17700, 564, 11, 23, "Print"],
|
---|
24313 | Cell[717805, 17713, 530, 10, 20, "Print"],
|
---|
24314 | Cell[718338, 17725, 230, 4, 20, "Print"],
|
---|
24315 | Cell[718571, 17731, 2201, 65, 52, "Print"],
|
---|
24316 | Cell[720775, 17798, 296, 5, 20, "Print"],
|
---|
24317 | Cell[721074, 17805, 345, 8, 20, "Print"],
|
---|
24318 | Cell[721422, 17815, 563, 11, 28, "Print"],
|
---|
24319 | Cell[721988, 17828, 525, 10, 20, "Print"],
|
---|
24320 | Cell[722516, 17840, 564, 11, 23, "Print"],
|
---|
24321 | Cell[723083, 17853, 530, 10, 20, "Print"],
|
---|
24322 | Cell[723616, 17865, 230, 4, 20, "Print"],
|
---|
24323 | Cell[723849, 17871, 2606, 77, 52, "Print"],
|
---|
24324 | Cell[726458, 17950, 296, 5, 20, "Print"],
|
---|
24325 | Cell[726757, 17957, 343, 8, 20, "Print"],
|
---|
24326 | Cell[727103, 17967, 523, 10, 20, "Print"],
|
---|
24327 | Cell[727629, 17979, 561, 11, 28, "Print"],
|
---|
24328 | Cell[728193, 17992, 566, 11, 23, "Print"],
|
---|
24329 | Cell[728762, 18005, 530, 10, 20, "Print"],
|
---|
24330 | Cell[729295, 18017, 230, 4, 20, "Print"],
|
---|
24331 | Cell[729528, 18023, 3069, 92, 52, "Print"],
|
---|
24332 | Cell[732600, 18117, 296, 5, 20, "Print"],
|
---|
24333 | Cell[732899, 18124, 343, 8, 20, "Print"],
|
---|
24334 | Cell[733245, 18134, 561, 11, 28, "Print"],
|
---|
24335 | Cell[733809, 18147, 523, 10, 20, "Print"],
|
---|
24336 | Cell[734335, 18159, 564, 11, 23, "Print"],
|
---|
24337 | Cell[734902, 18172, 530, 10, 20, "Print"],
|
---|
24338 | Cell[735435, 18184, 230, 4, 20, "Print"],
|
---|
24339 | Cell[735668, 18190, 3071, 92, 52, "Print"],
|
---|
24340 | Cell[738742, 18284, 296, 5, 20, "Print"],
|
---|
24341 | Cell[739041, 18291, 343, 8, 20, "Print"],
|
---|
24342 | Cell[739387, 18301, 523, 10, 20, "Print"],
|
---|
24343 | Cell[739913, 18313, 561, 11, 26, "Print"],
|
---|
24344 | Cell[740477, 18326, 566, 11, 23, "Print"],
|
---|
24345 | Cell[741046, 18339, 530, 10, 20, "Print"],
|
---|
24346 | Cell[741579, 18351, 232, 4, 20, "Print"],
|
---|
24347 | Cell[741814, 18357, 3069, 92, 52, "Print"],
|
---|
24348 | Cell[744886, 18451, 296, 5, 20, "Print"],
|
---|
24349 | Cell[745185, 18458, 345, 8, 20, "Print"],
|
---|
24350 | Cell[745533, 18468, 561, 11, 26, "Print"],
|
---|
24351 | Cell[746097, 18481, 523, 10, 20, "Print"],
|
---|
24352 | Cell[746623, 18493, 564, 11, 23, "Print"],
|
---|
24353 | Cell[747190, 18506, 532, 10, 20, "Print"],
|
---|
24354 | Cell[747725, 18518, 230, 4, 20, "Print"],
|
---|
24355 | Cell[747958, 18524, 3071, 92, 52, "Print"],
|
---|
24356 | Cell[751032, 18618, 295, 5, 20, "Print"],
|
---|
24357 | Cell[751330, 18625, 342, 8, 20, "Print"],
|
---|
24358 | Cell[751675, 18635, 525, 10, 20, "Print"],
|
---|
24359 | Cell[752203, 18647, 559, 11, 28, "Print"],
|
---|
24360 | Cell[752765, 18660, 530, 10, 20, "Print"],
|
---|
24361 | Cell[753298, 18672, 230, 4, 20, "Print"],
|
---|
24362 | Cell[753531, 18678, 1893, 57, 46, "Print"],
|
---|
24363 | Cell[755427, 18737, 298, 5, 20, "Print"],
|
---|
24364 | Cell[755728, 18744, 345, 8, 20, "Print"],
|
---|
24365 | Cell[756076, 18754, 525, 10, 20, "Print"],
|
---|
24366 | Cell[756604, 18766, 561, 11, 28, "Print"],
|
---|
24367 | Cell[757168, 18779, 528, 10, 20, "Print"],
|
---|
24368 | Cell[757699, 18791, 230, 4, 20, "Print"],
|
---|
24369 | Cell[757932, 18797, 1893, 57, 46, "Print"],
|
---|
24370 | Cell[759828, 18856, 296, 5, 20, "Print"],
|
---|
24371 | Cell[760127, 18863, 343, 8, 20, "Print"],
|
---|
24372 | Cell[760473, 18873, 523, 10, 20, "Print"],
|
---|
24373 | Cell[760999, 18885, 563, 11, 26, "Print"],
|
---|
24374 | Cell[761565, 18898, 528, 10, 20, "Print"],
|
---|
24375 | Cell[762096, 18910, 232, 4, 20, "Print"],
|
---|
24376 | Cell[762331, 18916, 1891, 57, 46, "Print"],
|
---|
24377 | Cell[764225, 18975, 296, 5, 20, "Print"],
|
---|
24378 | Cell[764524, 18982, 343, 8, 20, "Print"],
|
---|
24379 | Cell[764870, 18992, 523, 10, 20, "Print"],
|
---|
24380 | Cell[765396, 19004, 561, 11, 26, "Print"],
|
---|
24381 | Cell[765960, 19017, 530, 10, 20, "Print"],
|
---|
24382 | Cell[766493, 19029, 230, 4, 20, "Print"],
|
---|
24383 | Cell[766726, 19035, 1457, 44, 46, "Print"],
|
---|
24384 | Cell[768186, 19081, 296, 5, 20, "Print"],
|
---|
24385 | Cell[768485, 19088, 343, 8, 20, "Print"],
|
---|
24386 | Cell[768831, 19098, 525, 10, 20, "Print"],
|
---|
24387 | Cell[769359, 19110, 563, 11, 26, "Print"],
|
---|
24388 | Cell[769925, 19123, 528, 10, 20, "Print"],
|
---|
24389 | Cell[770456, 19135, 230, 4, 20, "Print"],
|
---|
24390 | Cell[770689, 19141, 1457, 44, 46, "Print"],
|
---|
24391 | Cell[772149, 19187, 298, 5, 20, "Print"],
|
---|
24392 | Cell[772450, 19194, 343, 8, 20, "Print"],
|
---|
24393 | Cell[772796, 19204, 528, 10, 20, "Print"],
|
---|
24394 | Cell[773327, 19216, 565, 11, 27, "Print"],
|
---|
24395 | Cell[773895, 19229, 528, 10, 20, "Print"],
|
---|
24396 | Cell[774426, 19241, 230, 4, 20, "Print"],
|
---|
24397 | Cell[774659, 19247, 1457, 44, 46, "Print"],
|
---|
24398 | Cell[776119, 19293, 296, 5, 20, "Print"],
|
---|
24399 | Cell[776418, 19300, 343, 8, 20, "Print"],
|
---|
24400 | Cell[776764, 19310, 522, 10, 20, "Print"],
|
---|
24401 | Cell[777289, 19322, 563, 11, 26, "Print"],
|
---|
24402 | Cell[777855, 19335, 528, 10, 20, "Print"],
|
---|
24403 | Cell[778386, 19347, 230, 4, 20, "Print"],
|
---|
24404 | Cell[778619, 19353, 1866, 56, 46, "Print"],
|
---|
24405 | Cell[780488, 19411, 298, 5, 20, "Print"],
|
---|
24406 | Cell[780789, 19418, 343, 8, 20, "Print"],
|
---|
24407 | Cell[781135, 19428, 523, 10, 20, "Print"],
|
---|
24408 | Cell[781661, 19440, 561, 11, 27, "Print"],
|
---|
24409 | Cell[782225, 19453, 530, 10, 20, "Print"],
|
---|
24410 | Cell[782758, 19465, 232, 4, 20, "Print"],
|
---|
24411 | Cell[782993, 19471, 1865, 56, 46, "Print"],
|
---|
24412 | Cell[784861, 19529, 298, 5, 20, "Print"],
|
---|
24413 | Cell[785162, 19536, 342, 8, 20, "Print"],
|
---|
24414 | Cell[785507, 19546, 523, 10, 20, "Print"],
|
---|
24415 | Cell[786033, 19558, 563, 11, 26, "Print"],
|
---|
24416 | Cell[786599, 19571, 526, 10, 20, "Print"],
|
---|
24417 | Cell[787128, 19583, 230, 4, 20, "Print"],
|
---|
24418 | Cell[787361, 19589, 1866, 56, 46, "Print"],
|
---|
24419 | Cell[789230, 19647, 298, 5, 20, "Print"],
|
---|
24420 | Cell[789531, 19654, 343, 8, 20, "Print"],
|
---|
24421 | Cell[789877, 19664, 528, 10, 20, "Print"],
|
---|
24422 | Cell[790408, 19676, 563, 11, 26, "Print"],
|
---|
24423 | Cell[790974, 19689, 530, 10, 20, "Print"],
|
---|
24424 | Cell[791507, 19701, 230, 4, 20, "Print"],
|
---|
24425 | Cell[791740, 19707, 1040, 31, 46, "Print"],
|
---|
24426 | Cell[792783, 19740, 296, 5, 20, "Print"],
|
---|
24427 | Cell[793082, 19747, 343, 8, 20, "Print"],
|
---|
24428 | Cell[793428, 19757, 528, 10, 20, "Print"],
|
---|
24429 | Cell[793959, 19769, 563, 11, 26, "Print"],
|
---|
24430 | Cell[794525, 19782, 528, 10, 20, "Print"],
|
---|
24431 | Cell[795056, 19794, 230, 4, 20, "Print"],
|
---|
24432 | Cell[795289, 19800, 1040, 31, 46, "Print"],
|
---|
24433 | Cell[796332, 19833, 296, 5, 20, "Print"],
|
---|
24434 | Cell[796631, 19840, 343, 8, 20, "Print"],
|
---|
24435 | Cell[796977, 19850, 528, 10, 20, "Print"],
|
---|
24436 | Cell[797508, 19862, 563, 11, 27, "Print"],
|
---|
24437 | Cell[798074, 19875, 528, 10, 20, "Print"],
|
---|
24438 | Cell[798605, 19887, 232, 4, 20, "Print"],
|
---|
24439 | Cell[798840, 19893, 1040, 31, 46, "Print"],
|
---|
24440 | Cell[799883, 19926, 295, 5, 20, "Print"],
|
---|
24441 | Cell[800181, 19933, 343, 8, 20, "Print"],
|
---|
24442 | Cell[800527, 19943, 523, 10, 20, "Print"],
|
---|
24443 | Cell[801053, 19955, 561, 11, 28, "Print"],
|
---|
24444 | Cell[801617, 19968, 530, 10, 20, "Print"],
|
---|
24445 | Cell[802150, 19980, 528, 10, 20, "Print"],
|
---|
24446 | Cell[802681, 19992, 230, 4, 20, "Print"],
|
---|
24447 | Cell[802914, 19998, 7548, 222, 146, "Print"],
|
---|
24448 | Cell[810465, 20222, 296, 5, 20, "Print"],
|
---|
24449 | Cell[810764, 20229, 345, 8, 20, "Print"],
|
---|
24450 | Cell[811112, 20239, 523, 10, 20, "Print"],
|
---|
24451 | Cell[811638, 20251, 561, 11, 28, "Print"],
|
---|
24452 | Cell[812202, 20264, 530, 10, 20, "Print"],
|
---|
24453 | Cell[812735, 20276, 530, 10, 20, "Print"],
|
---|
24454 | Cell[813268, 20288, 230, 4, 20, "Print"],
|
---|
24455 | Cell[813501, 20294, 7549, 222, 146, "Print"],
|
---|
24456 | Cell[821053, 20518, 296, 5, 20, "Print"],
|
---|
24457 | Cell[821352, 20525, 343, 8, 20, "Print"],
|
---|
24458 | Cell[821698, 20535, 523, 10, 20, "Print"],
|
---|
24459 | Cell[822224, 20547, 561, 11, 26, "Print"],
|
---|
24460 | Cell[822788, 20560, 532, 10, 20, "Print"],
|
---|
24461 | Cell[823323, 20572, 530, 10, 20, "Print"],
|
---|
24462 | Cell[823856, 20584, 230, 4, 20, "Print"],
|
---|
24463 | Cell[824089, 20590, 7549, 222, 146, "Print"],
|
---|
24464 | Cell[831641, 20814, 296, 5, 20, "Print"],
|
---|
24465 | Cell[831940, 20821, 343, 8, 20, "Print"],
|
---|
24466 | Cell[832286, 20831, 523, 10, 20, "Print"],
|
---|
24467 | Cell[832812, 20843, 561, 11, 26, "Print"],
|
---|
24468 | Cell[833376, 20856, 530, 10, 20, "Print"],
|
---|
24469 | Cell[833909, 20868, 527, 10, 20, "Print"],
|
---|
24470 | Cell[834439, 20880, 230, 4, 20, "Print"],
|
---|
24471 | Cell[834672, 20886, 6318, 186, 146, "Print"],
|
---|
24472 | Cell[840993, 21074, 296, 5, 20, "Print"],
|
---|
24473 | Cell[841292, 21081, 343, 8, 20, "Print"],
|
---|
24474 | Cell[841638, 21091, 525, 10, 20, "Print"],
|
---|
24475 | Cell[842166, 21103, 562, 11, 26, "Print"],
|
---|
24476 | Cell[842731, 21116, 530, 10, 20, "Print"],
|
---|
24477 | Cell[843264, 21128, 527, 10, 20, "Print"],
|
---|
24478 | Cell[843794, 21140, 229, 4, 20, "Print"],
|
---|
24479 | Cell[844026, 21146, 6318, 186, 146, "Print"],
|
---|
24480 | Cell[850347, 21334, 296, 5, 20, "Print"],
|
---|
24481 | Cell[850646, 21341, 343, 8, 20, "Print"],
|
---|
24482 | Cell[850992, 21351, 528, 10, 20, "Print"],
|
---|
24483 | Cell[851523, 21363, 565, 11, 27, "Print"],
|
---|
24484 | Cell[852091, 21376, 530, 10, 20, "Print"],
|
---|
24485 | Cell[852624, 21388, 528, 10, 20, "Print"],
|
---|
24486 | Cell[853155, 21400, 230, 4, 20, "Print"],
|
---|
24487 | Cell[853388, 21406, 6318, 186, 146, "Print"],
|
---|
24488 | Cell[859709, 21594, 298, 5, 20, "Print"],
|
---|
24489 | Cell[860010, 21601, 343, 8, 20, "Print"],
|
---|
24490 | Cell[860356, 21611, 525, 10, 20, "Print"],
|
---|
24491 | Cell[860884, 21623, 563, 11, 26, "Print"],
|
---|
24492 | Cell[861450, 21636, 532, 10, 20, "Print"],
|
---|
24493 | Cell[861985, 21648, 528, 10, 20, "Print"],
|
---|
24494 | Cell[862516, 21660, 230, 4, 20, "Print"],
|
---|
24495 | Cell[862749, 21666, 7519, 221, 146, "Print"],
|
---|
24496 | Cell[870271, 21889, 296, 5, 20, "Print"],
|
---|
24497 | Cell[870570, 21896, 345, 8, 20, "Print"],
|
---|
24498 | Cell[870918, 21906, 523, 10, 20, "Print"],
|
---|
24499 | Cell[871444, 21918, 561, 11, 27, "Print"],
|
---|
24500 | Cell[872008, 21931, 530, 10, 20, "Print"],
|
---|
24501 | Cell[872541, 21943, 527, 10, 20, "Print"],
|
---|
24502 | Cell[873071, 21955, 230, 4, 20, "Print"],
|
---|
24503 | Cell[873304, 21961, 7517, 221, 146, "Print"],
|
---|
24504 | Cell[880824, 22184, 296, 5, 20, "Print"],
|
---|
24505 | Cell[881123, 22191, 343, 8, 20, "Print"],
|
---|
24506 | Cell[881469, 22201, 523, 10, 20, "Print"],
|
---|
24507 | Cell[881995, 22213, 561, 11, 26, "Print"],
|
---|
24508 | Cell[882559, 22226, 532, 10, 20, "Print"],
|
---|
24509 | Cell[883094, 22238, 528, 10, 20, "Print"],
|
---|
24510 | Cell[883625, 22250, 230, 4, 20, "Print"],
|
---|
24511 | Cell[883858, 22256, 7517, 221, 146, "Print"],
|
---|
24512 | Cell[891378, 22479, 296, 5, 20, "Print"],
|
---|
24513 | Cell[891677, 22486, 343, 8, 20, "Print"],
|
---|
24514 | Cell[892023, 22496, 528, 10, 20, "Print"],
|
---|
24515 | Cell[892554, 22508, 562, 11, 26, "Print"],
|
---|
24516 | Cell[893119, 22521, 530, 10, 20, "Print"],
|
---|
24517 | Cell[893652, 22533, 528, 10, 20, "Print"],
|
---|
24518 | Cell[894183, 22545, 232, 4, 20, "Print"],
|
---|
24519 | Cell[894418, 22551, 4266, 125, 99, "Print"],
|
---|
24520 | Cell[898687, 22678, 298, 5, 20, "Print"],
|
---|
24521 | Cell[898988, 22685, 343, 8, 20, "Print"],
|
---|
24522 | Cell[899334, 22695, 528, 10, 20, "Print"],
|
---|
24523 | Cell[899865, 22707, 563, 11, 26, "Print"],
|
---|
24524 | Cell[900431, 22720, 532, 10, 20, "Print"],
|
---|
24525 | Cell[900966, 22732, 530, 10, 20, "Print"],
|
---|
24526 | Cell[901499, 22744, 232, 4, 20, "Print"],
|
---|
24527 | Cell[901734, 22750, 4266, 125, 99, "Print"],
|
---|
24528 | Cell[906003, 22877, 296, 5, 20, "Print"],
|
---|
24529 | Cell[906302, 22884, 342, 8, 20, "Print"],
|
---|
24530 | Cell[906647, 22894, 530, 10, 20, "Print"],
|
---|
24531 | Cell[907180, 22906, 563, 11, 27, "Print"],
|
---|
24532 | Cell[907746, 22919, 530, 10, 20, "Print"],
|
---|
24533 | Cell[908279, 22931, 528, 10, 20, "Print"],
|
---|
24534 | Cell[908810, 22943, 230, 4, 20, "Print"],
|
---|
24535 | Cell[909043, 22949, 4268, 125, 99, "Print"],
|
---|
24536 | Cell[913314, 23076, 298, 5, 20, "Print"]
|
---|
24537 | }, Open ]]
|
---|
24538 | }, Closed]],
|
---|
24539 | Cell[CellGroupData[{
|
---|
24540 | Cell[913661, 23087, 1184, 18, 21, "Input"],
|
---|
24541 | Cell[CellGroupData[{
|
---|
24542 | Cell[914870, 23109, 676, 13, 20, "Print"],
|
---|
24543 | Cell[915549, 23124, 899, 20, 20, "Print"],
|
---|
24544 | Cell[916451, 23146, 654, 12, 20, "Print"],
|
---|
24545 | Cell[917108, 23160, 828, 17, 20, "Print"],
|
---|
24546 | Cell[917939, 23179, 687, 13, 20, "Print"],
|
---|
24547 | Cell[918629, 23194, 1172, 24, 20, "Print"],
|
---|
24548 | Cell[919804, 23220, 769, 16, 20, "Print"],
|
---|
24549 | Cell[920576, 23238, 1123, 23, 20, "Print"],
|
---|
24550 | Cell[921702, 23263, 668, 12, 20, "Print"],
|
---|
24551 | Cell[922373, 23277, 921, 20, 20, "Print"],
|
---|
24552 | Cell[923297, 23299, 651, 12, 20, "Print"],
|
---|
24553 | Cell[923951, 23313, 675, 13, 20, "Print"],
|
---|
24554 | Cell[924629, 23328, 866, 17, 20, "Print"],
|
---|
24555 | Cell[925498, 23347, 1025, 20, 20, "Print"],
|
---|
24556 | Cell[926526, 23369, 647, 12, 20, "Print"],
|
---|
24557 | Cell[927176, 23383, 632, 12, 20, "Print"]
|
---|
24558 | }, Open ]]
|
---|
24559 | }, Open ]]
|
---|
24560 | }, Open ]]
|
---|
24561 | }
|
---|
24562 | ]
|
---|
24563 | *)
|
---|
24564 |
|
---|
24565 | (* End of internal cache information *)
|
---|