HiggsCharacterisation: HC.nb

File HC.nb, 953.0 KB (added by mawatari, 6 years ago)

Mathematica notebook

Line 
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:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[    975642,      24556]
14NotebookOptionsPosition[    927848,      23400]
15NotebookOutlinePosition[    928278,      23419]
16CellTagsIndexPosition[    928235,      23416]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146812657303*^9}}],
24
25Cell[CellGroupData[{
26
27Cell[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
46Cell[CellGroupData[{
47
48Cell[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
131Cell[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
221Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
222B. 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
305Cell[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
388Cell[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
471Cell[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
554Cell[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
638Cell[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
721Cell[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
804Cell[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
887Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
888FRPalette[].\"\>"], "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
973Cell[CellGroupData[{
974
975Cell["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
980Cell[CellGroupData[{
981
982Cell[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
993Cell[CellGroupData[{
994
995Cell[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
1021Cell[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
1047Cell[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
1073Cell[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
1103Cell[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
1129Cell[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
1155Cell[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
1182Cell[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
1209Cell[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
1235Cell[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
1261Cell[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
1287Cell[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
1313Cell[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
1346Cell[CellGroupData[{
1347
1348Cell[BoxData[
1349 RowBox[{
1350  RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
1351 CellChangeTimes->{{3.581151369501802*^9, 3.5811514013985243`*^9}}],
1352
1353Cell[CellGroupData[{
1354
1355Cell[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
1372Cell[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
1389Cell[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
1406Cell[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
1419Cell[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
1432Cell[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
1445Cell[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
1458Cell[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
1471Cell[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
1484Cell[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
1497Cell[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
1510Cell[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
1523Cell[BoxData["\<\"   \
1524http://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
1539Cell[CellGroupData[{
1540
1541Cell[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
1549Cell[CellGroupData[{
1550
1551Cell[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
1603Cell[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
1655Cell[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
1699Cell[CellGroupData[{
1700
1701Cell[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
1708Cell[CellGroupData[{
1709
1710Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
1711contained 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
1726Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
1727should 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
1742Cell[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
1765Cell[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
1780Cell[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
1800Cell[BoxData["\<\"Collecting the different structures that enter the \
1801vertex.\"\>"], "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
1816Cell[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 \
1826computation: ",
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
1843Cell[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
1862Cell[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
1879Cell[CellGroupData[{
1880
1881Cell[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
1892Cell[CellGroupData[{
1893
1894Cell[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
1900Cell[BoxData["\<\"Collecting the different structures that enter the \
1901vertex...\"\>"], "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
1907Cell[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
1918Cell[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
1924Cell[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
1931Cell[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
1941Cell[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
1948Cell[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
1958Cell[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
1970Cell[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
1982Cell[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
1994Cell[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
2000Cell[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
2049Cell[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
2056Cell[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
2066Cell[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
2078Cell[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
2090Cell[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
2102Cell[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
2108Cell[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
2271Cell[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
2278Cell[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
2288Cell[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
2300Cell[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
2313Cell[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
2325Cell[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
2331Cell[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
2419Cell[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
2426Cell[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
2436Cell[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
2448Cell[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
2460Cell[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
2472Cell[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
2478Cell[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
2534Cell[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
2541Cell[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
2551Cell[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
2563Cell[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
2575Cell[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
2587Cell[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
2593Cell[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
2714Cell[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
2721Cell[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
2731Cell[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
2743Cell[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
2756Cell[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
2768Cell[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
2774Cell[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
2799Cell[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
2806Cell[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
2816Cell[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
2828Cell[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
2840Cell[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
2852Cell[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
2858Cell[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
2943Cell[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
2950Cell[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
2960Cell[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
2972Cell[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
2984Cell[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
2996Cell[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
3008Cell[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
3014Cell[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
3129Cell[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
3136Cell[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
3146Cell[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
3158Cell[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
3170Cell[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
3182Cell[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
3194Cell[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
3200Cell[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
3351Cell[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
3358Cell[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
3368Cell[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
3380Cell[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
3392Cell[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
3404Cell[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
3416Cell[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
3428Cell[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
3434Cell[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
3625Cell[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
3632Cell[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
3642Cell[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
3654Cell[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
3667Cell[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
3679Cell[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
3685Cell[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
3741Cell[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
3748Cell[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
3758Cell[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
3770Cell[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
3783Cell[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
3795Cell[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
3801Cell[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
3845Cell[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
3852Cell[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
3862Cell[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
3874Cell[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
3887Cell[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
3899Cell[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
3905Cell[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
3961Cell[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
3968Cell[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
3978Cell[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
3990Cell[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
4003Cell[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
4015Cell[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
4021Cell[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
4039Cell[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
4046Cell[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
4056Cell[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
4068Cell[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
4081Cell[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
4093Cell[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
4099Cell[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
4117Cell[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
4124Cell[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
4134Cell[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
4146Cell[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
4158Cell[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
4171Cell[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
4177Cell[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
4195Cell[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
4202Cell[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
4212Cell[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
4224Cell[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
4237Cell[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
4249Cell[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
4255Cell[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
4273Cell[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
4280Cell[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
4290Cell[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
4302Cell[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
4314Cell[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
4327Cell[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
4333Cell[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
4351Cell[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
4358Cell[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
4368Cell[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
4380Cell[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
4392Cell[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
4405Cell[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
4411Cell[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
4429Cell[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
4436Cell[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
4446Cell[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
4458Cell[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
4470Cell[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
4483Cell[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
4489Cell[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
4539Cell[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
4546Cell[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
4556Cell[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
4568Cell[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
4581Cell[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
4593Cell[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
4605Cell[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
4611Cell[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
4628Cell[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
4635Cell[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
4645Cell[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
4657Cell[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
4669Cell[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
4681Cell[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
4694Cell[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
4700Cell[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
4737Cell[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
4744Cell[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
4754Cell[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
4766Cell[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
4779Cell[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
4791Cell[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
4797Cell[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
4899Cell[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
4906Cell[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
4916Cell[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
4928Cell[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
4941Cell[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
4953Cell[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
4959Cell[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
5027Cell[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
5034Cell[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
5044Cell[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
5056Cell[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
5068Cell[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
5081Cell[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
5094Cell[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
5100Cell[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
5144Cell[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
5151Cell[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
5161Cell[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
5173Cell[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
5186Cell[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
5198Cell[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
5204Cell[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
5238Cell[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
5245Cell[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
5255Cell[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
5267Cell[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
5280Cell[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
5292Cell[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
5298Cell[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
5331Cell[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
5338Cell[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
5348Cell[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
5360Cell[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
5373Cell[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
5385Cell[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
5391Cell[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
5425Cell[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
5432Cell[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
5442Cell[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
5454Cell[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
5467Cell[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
5479Cell[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
5485Cell[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
5511Cell[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
5518Cell[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
5528Cell[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
5540Cell[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
5553Cell[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
5565Cell[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
5571Cell[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
5597Cell[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
5604Cell[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
5614Cell[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
5626Cell[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
5639Cell[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
5651Cell[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
5657Cell[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
5691Cell[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
5698Cell[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
5708Cell[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
5720Cell[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
5733Cell[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
5745Cell[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
5751Cell[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
5777Cell[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
5784Cell[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
5794Cell[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
5806Cell[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
5819Cell[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
5831Cell[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
5837Cell[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
5870Cell[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
5877Cell[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
5887Cell[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
5899Cell[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
5912Cell[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
5924Cell[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
5930Cell[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
5963Cell[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
5970Cell[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
5980Cell[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
5992Cell[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
6005Cell[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
6017Cell[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
6023Cell[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
6048Cell[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
6055Cell[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
6065Cell[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
6077Cell[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
6090Cell[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
6102Cell[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
6108Cell[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
6133Cell[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
6140Cell[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
6150Cell[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
6162Cell[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
6175Cell[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
6187Cell[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
6193Cell[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
6218Cell[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
6225Cell[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
6235Cell[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
6247Cell[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
6259Cell[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
6271Cell[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
6277Cell[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
6515Cell[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
6522Cell[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
6532Cell[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
6544Cell[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
6556Cell[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
6568Cell[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
6574Cell[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
6880Cell[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
6887Cell[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
6897Cell[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
6909Cell[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
6922Cell[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
6934Cell[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
6940Cell[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
7129Cell[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
7136Cell[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
7146Cell[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
7158Cell[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
7170Cell[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
7182Cell[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
7188Cell[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
7377Cell[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
7384Cell[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
7394Cell[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
7406Cell[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
7418Cell[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
7430Cell[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
7442Cell[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
7448Cell[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
8086Cell[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
8093Cell[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
8103Cell[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
8115Cell[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
8127Cell[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
8139Cell[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
8151Cell[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
8163Cell[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
8169Cell[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
8956Cell[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
8963Cell[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
8973Cell[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
8985Cell[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
8998Cell[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
9010Cell[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
9016Cell[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
9149Cell[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
9156Cell[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
9166Cell[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
9178Cell[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
9191Cell[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
9203Cell[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
9209Cell[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
9325Cell[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
9332Cell[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
9342Cell[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
9354Cell[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
9367Cell[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
9379Cell[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
9385Cell[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
9501Cell[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
9508Cell[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
9518Cell[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
9530Cell[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
9543Cell[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
9555Cell[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
9561Cell[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
9653Cell[BoxData["\<\"(* * * * * * * * * * * * * * * * * * * * * * * * * * * * * \
9654