VecLepQrk: 15TeVLQ.nb

File 15TeVLQ.nb, 138.1 KB (added by JoydeepRoy, 4 months ago)

This is an example Mathematica notebook that loads the model and calculates Feynman rules.

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 11.1' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       158,          7]
13NotebookDataLength[    138488,       2713]
14NotebookOptionsPosition[    129761,       2576]
15NotebookOutlinePosition[    130105,       2591]
16CellTagsIndexPosition[    130062,       2588]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"Quit", "[", "]"}]], "Input",
23 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146776183146*^9}},
24 CellLabel->"In[19]:=",ExpressionUUID->"35fb9169-6165-45f2-bb47-d2b5a30fdac3"],
25
26Cell[CellGroupData[{
27
28Cell["Load Feynrules", "Section",
29 CellChangeTimes->{{3.7101820508363366`*^9,
30  3.710182056146993*^9}},ExpressionUUID->"d3c1a50a-7a32-4ff7-9e5b-\
31f82af6c85fb6"],
32
33Cell[CellGroupData[{
34
35Cell[BoxData[
36 RowBox[{"$FeynRulesPath", "=",
37  RowBox[{
38  "SetDirectory", "[",
39   "\"\<C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research with \
40Yu\\\\Leptoquark_Models\\\\feynrules-current\>\"", "]"}]}]], "Input",
41 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
42  3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9,
43  3.4234163227881193`*^9}, {3.7090007559382133`*^9, 3.7090007919104977`*^9}, {
44  3.709000903039165*^9, 3.70900090377494*^9}},
45 CellLabel->"In[1]:=",ExpressionUUID->"f0518695-6cd4-402e-98f3-cd0a888e3378"],
46
47Cell[BoxData["\<\"C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research \
48with Yu\\\\Leptoquark_Models\\\\feynrules-current\"\>"], "Output",
49 CellChangeTimes->{
50  3.7090007988933597`*^9, 3.7090009049111643`*^9, 3.709002757182743*^9,
51   3.7090028541370153`*^9, 3.709046479007363*^9, 3.7095635088808727`*^9,
52   3.7095635937246113`*^9, 3.709606834438501*^9, 3.7099108244300857`*^9,
53   3.709953245493742*^9, 3.7100000947474627`*^9, 3.710018048796711*^9,
54   3.7100194144694424`*^9, 3.7101045019109755`*^9, 3.710104614002838*^9,
55   3.7101047191195784`*^9, 3.7101048841920485`*^9, 3.7101740382172933`*^9,
56   3.71018206536942*^9, 3.710213462483958*^9, 3.7102139088774676`*^9,
57   3.7102140167081594`*^9, 3.710214596476961*^9, 3.710215191172785*^9,
58   3.7102154105680304`*^9, 3.7102155077197137`*^9, 3.710215757438155*^9,
59   3.710216261440168*^9, 3.7102162971387486`*^9, 3.7102166166124625`*^9,
60   3.7107150952436256`*^9, 3.710715387862335*^9, 3.7107154432635236`*^9,
61   3.710715593975668*^9, 3.710715738134115*^9, 3.710715798335558*^9,
62   3.71071588408706*^9, 3.7107162282491426`*^9, 3.7107165196272526`*^9,
63   3.7107165993561373`*^9, 3.710716663868831*^9, 3.710716869316869*^9,
64   3.7107171893172607`*^9, 3.710717259112995*^9, 3.710717829988202*^9,
65   3.7107183367135572`*^9, 3.7107184049821177`*^9, 3.710718444161071*^9,
66   3.7107186149690714`*^9, 3.710718703374365*^9, 3.710718901283065*^9,
67   3.710758780589957*^9, 3.7107592747016897`*^9, 3.710760223763931*^9,
68   3.710761183295255*^9, 3.710772140242649*^9, 3.7107723457670207`*^9,
69   3.7107723910199113`*^9, 3.7107725979889345`*^9, 3.7107728934481955`*^9, {
70   3.710773052648634*^9, 3.7107730721894684`*^9}, 3.710773148619192*^9,
71   3.710773259988822*^9, 3.7107734056399174`*^9, 3.710773607412631*^9,
72   3.7107739130636716`*^9, 3.710774550405507*^9, 3.7107763360092754`*^9,
73   3.71077813526503*^9, 3.7107783239234753`*^9, 3.710843558838518*^9,
74   3.7108451225677023`*^9, 3.7113000908265576`*^9, 3.711300219168351*^9,
75   3.711300274785056*^9, 3.7113005157052546`*^9, 3.7113014382107973`*^9,
76   3.711315756872567*^9, 3.711315833078271*^9, 3.7113160180672655`*^9,
77   3.711320707125144*^9, 3.711328526633577*^9, 3.7113286701454544`*^9,
78   3.7113287041379457`*^9, 3.7113296753640003`*^9, 3.711367876039989*^9,
79   3.7113679806143026`*^9, 3.7113680350102673`*^9, 3.7113682079746284`*^9,
80   3.7113683872808332`*^9, 3.711377614540615*^9, 3.711377786755968*^9,
81   3.7113780273107767`*^9, 3.7113781614598265`*^9, 3.7113784559053173`*^9,
82   3.7113785403040285`*^9, 3.711378924927848*^9, 3.711379021723223*^9,
83   3.7113791575951433`*^9, 3.7113801344601483`*^9, 3.711380211848833*^9,
84   3.7113808523842278`*^9, 3.7113811853791018`*^9, 3.7113812307246733`*^9,
85   3.7113812891933928`*^9, 3.711381393012928*^9, 3.7113821466520147`*^9,
86   3.7113823115545673`*^9, 3.7114109884359164`*^9, 3.71141168369543*^9,
87   3.7114220743177547`*^9, 3.7114223359718814`*^9, 3.711422457779241*^9,
88   3.7114225926953883`*^9, 3.7114227387630377`*^9, 3.7114228546720862`*^9,
89   3.7114229171101823`*^9, 3.711423356904958*^9, 3.711423621093189*^9,
90   3.711423888094798*^9, 3.7114706459176445`*^9, 3.7114708239904947`*^9,
91   3.711471069228612*^9, 3.711718745316383*^9, 3.711733871064354*^9,
92   3.714779009142174*^9, 3.727754416726856*^9, 3.727754531305581*^9,
93   3.7278345262496915`*^9, 3.727834779912624*^9, 3.728801631348674*^9,
94   3.7288176752659464`*^9, 3.728831849714325*^9, 3.7288319300216637`*^9,
95   3.728832053883459*^9, 3.728832483933361*^9, 3.7288325371883974`*^9,
96   3.7288326123773785`*^9, 3.7288326804096785`*^9, 3.7288327417268915`*^9,
97   3.7288332179772673`*^9, 3.7288334922701693`*^9, 3.7288336099419317`*^9,
98   3.728833688191868*^9, 3.728833868207281*^9, 3.728834302726115*^9,
99   3.728834589918804*^9, 3.7288347687389307`*^9, 3.728835380285824*^9,
100   3.7313925413957744`*^9, 3.731635089081555*^9, 3.731643259143752*^9,
101   3.7316434077853003`*^9, 3.734257003793642*^9, 3.7342574454838624`*^9,
102   3.7342577083908997`*^9, 3.7342579704005966`*^9, 3.734258073886767*^9,
103   3.73425822628549*^9, 3.745205743610037*^9, 3.7452059875200534`*^9,
104   3.745206110135985*^9, 3.745206823102724*^9, 3.7452138982903147`*^9},
105 CellLabel->"Out[1]=",ExpressionUUID->"b0f19208-0c95-4885-b5bd-90dc83ca6599"]
106}, Open  ]],
107
108Cell[CellGroupData[{
109
110Cell[BoxData[
111 RowBox[{"<<", "FeynRules`"}]], "Input",
112 CellChangeTimes->{{3.547535564344927*^9, 3.547535564971527*^9}},
113 CellLabel->"In[2]:=",ExpressionUUID->"99a894d2-6aa4-443c-b8a0-97d67849d48a"],
114
115Cell[CellGroupData[{
116
117Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
118 CellChangeTimes->{
119  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
120   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
121   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
122   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
123   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
124   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
125   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
126   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
127   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
128   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
129   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
130   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
131   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
132   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
133   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
134   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
135   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
136   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
137   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
138   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
139   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
140   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
141   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
142   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
143   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
144   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
145   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
146   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
147   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
148   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
149   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
150   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
151   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
152   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
153   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
154   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
155   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
156   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
157   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
158   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
159   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
160   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
161   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
162   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
163   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
164   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
165   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
166   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
167   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
168   3.745206832644657*^9, 3.7452138989200253`*^9},
169 CellLabel->
170  "During evaluation of \
171In[2]:=",ExpressionUUID->"32452b76-43d1-43b0-b85c-5c4fe04243c1"],
172
173Cell[BoxData[
174 InterpretationBox[
175  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>",
176   "\[InvisibleSpace]",
177   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}],
178   "\[InvisibleSpace]", "\<\").\"\>"}],
179  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
180  Editable->False]], "Print",
181 CellChangeTimes->{
182  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
183   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
184   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
185   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
186   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
187   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
188   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
189   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
190   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
191   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
192   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
193   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
194   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
195   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
196   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
197   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
198   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
199   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
200   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
201   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
202   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
203   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
204   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
205   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
206   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
207   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
208   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
209   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
210   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
211   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
212   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
213   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
214   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
215   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
216   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
217   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
218   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
219   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
220   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
221   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
222   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
223   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
224   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
225   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
226   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
227   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
228   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
229   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
230   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
231   3.745206832644657*^9, 3.74521389893565*^9},
232 CellLabel->
233  "During evaluation of \
234In[2]:=",ExpressionUUID->"514f8a91-04bd-49f8-9983-ff16a621b96a"],
235
236Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
237B. Fuks\"\>"], "Print",
238 CellChangeTimes->{
239  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
240   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
241   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
242   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
243   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
244   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
245   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
246   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
247   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
248   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
249   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
250   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
251   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
252   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
253   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
254   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
255   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
256   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
257   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
258   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
259   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
260   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
261   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
262   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
263   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
264   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
265   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
266   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
267   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
268   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
269   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
270   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
271   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
272   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
273   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
274   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
275   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
276   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
277   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
278   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
279   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
280   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
281   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
282   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
283   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
284   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
285   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
286   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
287   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
288   3.745206832644657*^9, 3.74521389893966*^9},
289 CellLabel->
290  "During evaluation of \
291In[2]:=",ExpressionUUID->"50e09a48-e77f-4316-9e43-d569abdbbd5a"],
292
293Cell[BoxData["\<\" \"\>"], "Print",
294 CellChangeTimes->{
295  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
296   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
297   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
298   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
299   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
300   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
301   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
302   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
303   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
304   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
305   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
306   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
307   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
308   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
309   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
310   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
311   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
312   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
313   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
314   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
315   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
316   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
317   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
318   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
319   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
320   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
321   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
322   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
323   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
324   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
325   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
326   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
327   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
328   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
329   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
330   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
331   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
332   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
333   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
334   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
335   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
336   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
337   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
338   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
339   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
340   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
341   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
342   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
343   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
344   3.745206832644657*^9, 3.74521389893966*^9},
345 CellLabel->
346  "During evaluation of \
347In[2]:=",ExpressionUUID->"3ee1fead-5554-4e6e-996d-5f0f8c61ba2c"],
348
349Cell[BoxData["\<\"Please cite:\"\>"], "Print",
350 CellChangeTimes->{
351  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
352   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
353   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
354   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
355   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
356   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
357   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
358   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
359   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
360   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
361   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
362   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
363   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
364   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
365   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
366   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
367   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
368   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
369   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
370   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
371   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
372   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
373   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
374   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
375   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
376   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
377   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
378   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
379   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
380   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
381   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
382   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
383   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
384   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
385   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
386   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
387   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
388   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
389   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
390   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
391   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
392   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
393   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
394   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
395   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
396   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
397   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
398   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
399   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
400   3.745206832644657*^9, 3.74521389893966*^9},
401 CellLabel->
402  "During evaluation of \
403In[2]:=",ExpressionUUID->"5d8270a1-ac50-4e39-b6d5-a91604265303"],
404
405Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
406(arXiv:1310.1921);\"\>"], "Print",
407 CellChangeTimes->{
408  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
409   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
410   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
411   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
412   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
413   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
414   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
415   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
416   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
417   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
418   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
419   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
420   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
421   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
422   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
423   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
424   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
425   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
426   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
427   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
428   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
429   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
430   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
431   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
432   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
433   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
434   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
435   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
436   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
437   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
438   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
439   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
440   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
441   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
442   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
443   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
444   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
445   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
446   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
447   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
448   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
449   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
450   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
451   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
452   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
453   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
454   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
455   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
456   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
457   3.745206832644657*^9, 3.745213898955291*^9},
458 CellLabel->
459  "During evaluation of \
460In[2]:=",ExpressionUUID->"3a919dad-d3cb-498d-9db8-d740c52163f5"],
461
462Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
463(arXiv:0806.4194).\"\>"], "Print",
464 CellChangeTimes->{
465  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
466   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
467   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
468   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
469   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
470   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
471   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
472   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
473   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
474   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
475   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
476   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
477   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
478   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
479   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
480   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
481   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
482   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
483   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
484   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
485   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
486   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
487   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
488   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
489   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
490   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
491   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
492   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
493   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
494   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
495   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
496   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
497   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
498   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
499   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
500   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
501   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
502   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
503   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
504   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
505   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
506   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
507   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
508   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
509   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
510   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
511   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
512   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
513   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
514   3.745206832644657*^9, 3.7452138989578*^9},
515 CellLabel->
516  "During evaluation of \
517In[2]:=",ExpressionUUID->"9edc3f9c-4082-4b7b-ade8-66623645dd51"],
518
519Cell[BoxData["\<\" \"\>"], "Print",
520 CellChangeTimes->{
521  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
522   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
523   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
524   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
525   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
526   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
527   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
528   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
529   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
530   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
531   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
532   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
533   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
534   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
535   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
536   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
537   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
538   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
539   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
540   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
541   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
542   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
543   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
544   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
545   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
546   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
547   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
548   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
549   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
550   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
551   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
552   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
553   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
554   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
555   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
556   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
557   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
558   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
559   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
560   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
561   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
562   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
563   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
564   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
565   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
566   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
567   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
568   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
569   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
570   3.745206832644657*^9, 3.745213899020301*^9},
571 CellLabel->
572  "During evaluation of \
573In[2]:=",ExpressionUUID->"c7e969ad-d4d7-44c5-856c-4a4935d8d568"],
574
575Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
576 CellChangeTimes->{
577  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
578   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
579   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
580   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
581   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
582   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
583   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
584   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
585   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
586   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
587   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
588   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
589   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
590   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
591   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
592   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
593   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
594   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
595   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
596   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
597   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
598   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
599   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
600   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
601   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
602   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
603   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
604   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
605   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
606   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
607   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
608   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
609   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
610   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
611   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
612   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
613   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
614   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
615   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
616   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
617   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
618   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
619   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
620   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
621   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
622   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
623   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
624   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
625   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
626   3.745206832644657*^9, 3.745213899020301*^9},
627 CellLabel->
628  "During evaluation of \
629In[2]:=",ExpressionUUID->"3215d37b-1ea4-4917-8ee4-7ae8d60fd052"],
630
631Cell[BoxData["\<\" \"\>"], "Print",
632 CellChangeTimes->{
633  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
634   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
635   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
636   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
637   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
638   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
639   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
640   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
641   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
642   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
643   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
644   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
645   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
646   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
647   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
648   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
649   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
650   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
651   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
652   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
653   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
654   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
655   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
656   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
657   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
658   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
659   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
660   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
661   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
662   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
663   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
664   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
665   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
666   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
667   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
668   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
669   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
670   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
671   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
672   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
673   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
674   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
675   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
676   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
677   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
678   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
679   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
680   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
681   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
682   3.745206832644657*^9, 3.745213899020301*^9},
683 CellLabel->
684  "During evaluation of \
685In[2]:=",ExpressionUUID->"6bd2e081-0001-470a-b726-a90d61a827af"],
686
687Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
688FRPalette[].\"\>"], "Print",
689 CellChangeTimes->{
690  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9,
691   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9,
692   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9,
693   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9,
694   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9,
695   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9,
696   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9,
697   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9,
698   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9,
699   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9,
700   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9,
701   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9,
702   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9,
703   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9,
704   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
705   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9,
706   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9,
707   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9,
708   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9,
709   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9,
710   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9,
711   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9,
712   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9,
713   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9,
714   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9,
715   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9,
716   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9,
717   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9,
718   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9,
719   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9,
720   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9,
721   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9,
722   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9,
723   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9,
724   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9,
725   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9,
726   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9,
727   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9,
728   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9,
729   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9,
730   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9,
731   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9,
732   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9,
733   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9,
734   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9,
735   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9,
736   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9,
737   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9,
738   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9,
739   3.745206832644657*^9, 3.745213899020301*^9},
740 CellLabel->
741  "During evaluation of \
742In[2]:=",ExpressionUUID->"41affcc9-c221-4d6a-b22e-355e4978f954"]
743}, Open  ]]
744}, Open  ]]
745}, Open  ]],
746
747Cell[CellGroupData[{
748
749Cell["The Leptoquark Model", "Title",
750 CellChangeTimes->{{3.7096075210997148`*^9,
751  3.7096075284782085`*^9}},ExpressionUUID->"f94cc9ed-8330-40b3-be25-\
752b202d3edd878"],
753
754Cell[CellGroupData[{
755
756Cell["Load Model", "Section",
757 CellChangeTimes->{{3.7107178481081667`*^9,
758  3.7107178587195625`*^9}},ExpressionUUID->"3c0a92d1-e1ed-45c6-9b66-\
7596871fb2e8bb2"],
760
761Cell[CellGroupData[{
762
763Cell[BoxData[
764 RowBox[{"SetDirectory", "[",
765  RowBox[{"$FeynRulesPath", "<>", "\"\</Models/LeptoQuark/1.5TeVLQ\>\""}],
766  "]"}]], "Input",
767 CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9},
768   3.709001016568925*^9, {3.7096080278578*^9, 3.7096080358659167`*^9}, {
769   3.734257662039132*^9, 3.7342576698115473`*^9}, {3.745206045962655*^9,
770   3.7452060464064007`*^9}},
771 CellLabel->"In[3]:=",ExpressionUUID->"7ac78549-10ee-41be-9b70-ecfcb38ff72a"],
772
773Cell[BoxData["\<\"C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research \
774with Yu\\\\Leptoquark_Models\\\\feynrules-current\\\\Models\\\\LeptoQuark\\\\\
7751.5TeVLQ\"\>"], "Output",
776 CellChangeTimes->{3.7452057774561014`*^9, 3.7452059397003827`*^9,
777  3.7452059996411285`*^9, 3.7452060488200417`*^9, 3.7452060831973767`*^9,
778  3.7452061283485727`*^9, 3.7452068414974327`*^9, 3.7452139296716375`*^9},
779 CellLabel->"Out[3]=",ExpressionUUID->"06781cf3-fffb-4f4c-875d-56621aea5985"]
780}, Open  ]],
781
782Cell[CellGroupData[{
783
784Cell[BoxData[
785 RowBox[{"LoadModel", "[",
786  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<1.5TeVLQModel.fr\>\""}], "]"}]], "Input",
787 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9},
788   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9},
789   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9},
790   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
791   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9,
792   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9,
793   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9},
794   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9,
795   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
796   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9,
797   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
798   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9,
799   3.4190828048079023`*^9}, 3.542453089813714*^9, 3.547534567644828*^9, {
800   3.7096076691299367`*^9, 3.709607672055648*^9}, {3.709911299201873*^9,
801   3.7099113058929944`*^9}, 3.7342571106785393`*^9, 3.734257325986532*^9, {
802   3.7452054843029385`*^9, 3.7452054851355467`*^9}},
803 CellLabel->"In[4]:=",ExpressionUUID->"842fe880-943f-4306-8db4-ba8ac672cdf8"],
804
805Cell[CellGroupData[{
806
807Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
808 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
809  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
810  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
811  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
812  3.7452139456924653`*^9},
813 CellLabel->
814  "During evaluation of \
815In[4]:=",ExpressionUUID->"07a776cb-8e3a-40b2-aa81-5d7c7254f6b7"],
816
817Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
818 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
819  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
820  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
821  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
822  3.7452139456924653`*^9},
823 CellLabel->
824  "During evaluation of \
825In[4]:=",ExpressionUUID->"718ac68f-0394-41f2-83a7-3cd96d55e84e"],
826
827Cell[BoxData["\<\"J. Roy\"\>"], "Print",
828 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
829  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
830  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
831  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
832  3.7452139457080927`*^9},
833 CellLabel->
834  "During evaluation of \
835In[4]:=",ExpressionUUID->"1a2d2f3a-2bb3-42fd-9de1-9fa3a094a573"],
836
837Cell[BoxData[
838 InterpretationBox[
839  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
840  SequenceForm["Model Version: ", "1.0"],
841  Editable->False]], "Print",
842 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
843  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
844  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
845  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
846  3.7452139457080927`*^9},
847 CellLabel->
848  "During evaluation of \
849In[4]:=",ExpressionUUID->"03b3ffa4-fc87-469c-bd77-8f2830e12c7e"],
850
851Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
852"Print",
853 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
854  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
855  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
856  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
857  3.7452139457080927`*^9},
858 CellLabel->
859  "During evaluation of \
860In[4]:=",ExpressionUUID->"45ac5026-319c-4c26-9791-6b9c339ca6ed"],
861
862Cell[BoxData["\<\"\"\>"], "Print",
863 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
864  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
865  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
866  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
867  3.7452139457080927`*^9},
868 CellLabel->
869  "During evaluation of \
870In[4]:=",ExpressionUUID->"de7fc3b9-603e-4ba9-90eb-e27f4f41699e"],
871
872Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
873 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
874  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
875  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
876  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
877  3.7452139457080927`*^9},
878 CellLabel->
879  "During evaluation of \
880In[4]:=",ExpressionUUID->"bb66fac0-327b-4686-b475-34edf56b7065"],
881
882Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
883 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
884  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
885  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
886  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
887  3.7452139458396473`*^9},
888 CellLabel->
889  "During evaluation of \
890In[4]:=",ExpressionUUID->"3aae46c1-fa3a-47b0-b4e4-b9ac98a4946e"],
891
892Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
893 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
894  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
895  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
896  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
897  3.745213945861763*^9},
898 CellLabel->
899  "During evaluation of \
900In[4]:=",ExpressionUUID->"e00e11e7-25ee-438f-a54f-06e3996063ab"],
901
902Cell[BoxData[
903 InterpretationBox[
904  RowBox[{"\<\"\\nModel \"\>",
905   "\[InvisibleSpace]", "\<\"1.5 TeV Leptoquark Model\"\>",
906   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
907  SequenceForm["\nModel ", "1.5 TeV Leptoquark Model", " loaded."],
908  Editable->False]], "Print",
909 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9,
910  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9,
911  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9,
912  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9,
913  3.7452139460245314`*^9},
914 CellLabel->
915  "During evaluation of \
916In[4]:=",ExpressionUUID->"40a02ad9-d682-43d3-a27f-976c1a5d2a54"]
917}, Open  ]]
918}, Open  ]]
919}, Open  ]],
920
921Cell[CellGroupData[{
922
923Cell["Additional Feynman rules", "Section",
924 CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}, {
925  3.710176124355085*^9,
926  3.710176147375454*^9}},ExpressionUUID->"218e265c-8c3e-40d4-a7ce-\
92705631f9cbbdf"],
928
929Cell[CellGroupData[{
930
931Cell[BoxData["LLQ"], "Input",
932 CellChangeTimes->{{3.7099543760288477`*^9, 3.7099543797053165`*^9}},
933 CellLabel->"In[5]:=",ExpressionUUID->"dcc62cca-dcd0-4b6f-9c02-f038d40a4127"],
934
935Cell[BoxData[
936 RowBox[{
937  RowBox[{
938   SubscriptBox[
939    SubscriptBox["C", "LQ"],
940    RowBox[{"ff1", ",", "ff2"}]], ".",
941   RowBox[{"(",
942    RowBox[{
943     RowBox[{
944      RowBox[{
945       SubscriptBox[
946        OverscriptBox["dq", "\<\"-\"\>"],
947        RowBox[{"sp1", ",", "ff1", ",", "aa"}]], ".",
948       SubscriptBox["l",
949        RowBox[{"sp2", ",", "ff2"}]]}], " ",
950      SubscriptBox[
951       RowBox[{
952        TemplateBox[{"\[Gamma]","mu"},
953         "Superscript"], ".",
954        SubscriptBox["P", "\<\"-\"\>"]}],
955       RowBox[{"sp1", ",", "sp2"}]]}], "+",
956     RowBox[{
957      RowBox[{
958       SubscriptBox[
959        OverscriptBox["uq", "\<\"-\"\>"],
960        RowBox[{"sp1", ",", "ff1", ",", "aa"}]], ".",
961       SubscriptBox["vl",
962        RowBox[{"sp2", ",", "ff2"}]]}], " ",
963      SubscriptBox[
964       RowBox[{
965        TemplateBox[{"\[Gamma]","mu"},
966         "Superscript"], ".",
967        SubscriptBox["P", "\<\"-\"\>"]}],
968       RowBox[{"sp1", ",", "sp2"}]]}]}], ")"}], ".",
969   SubscriptBox["LtQk",
970    RowBox[{"mu", ",", "aa"}]]}], "+",
971  RowBox[{
972   SubsuperscriptBox["LtQk",
973    RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".",
974   RowBox[{"(",
975    RowBox[{
976     RowBox[{
977      RowBox[{
978       SubscriptBox[
979        OverscriptBox["l", "\<\"-\"\>"],
980        RowBox[{"r$3421", ",", "ff2"}]], ".",
981       SubscriptBox["dq",
982        RowBox[{"r$3422", ",", "ff1", ",", "aa"}]]}], " ",
983      SubscriptBox[
984       RowBox[{
985        TemplateBox[{"\[Gamma]","mu"},
986         "Superscript"], ".",
987        SubscriptBox["P", "\<\"-\"\>"]}],
988       RowBox[{"r$3421", ",", "r$3422"}]]}], "+",
989     RowBox[{
990      RowBox[{
991       SubscriptBox[
992        OverscriptBox["vl", "\<\"-\"\>"],
993        RowBox[{"r$3423", ",", "ff2"}]], ".",
994       SubscriptBox["uq",
995        RowBox[{"r$3424", ",", "ff1", ",", "aa"}]]}], " ",
996      SubscriptBox[
997       RowBox[{
998        TemplateBox[{"\[Gamma]","mu"},
999         "Superscript"], ".",
1000        SubscriptBox["P", "\<\"-\"\>"]}],
1001       RowBox[{"r$3423", ",", "r$3424"}]]}]}], ")"}], ".",
1002   SubscriptBox[
1003    SubscriptBox["C", "LQ"],
1004    RowBox[{"ff1", ",", "ff2"}]]}]}]], "Output",
1005 CellChangeTimes->{
1006  3.7099543822972746`*^9, 3.710000124694659*^9, 3.710018108452047*^9,
1007   3.7100194536518025`*^9, 3.710104582601265*^9, 3.710104675639188*^9,
1008   3.710104905317482*^9, {3.7101740756467285`*^9, 3.710174089078467*^9},
1009   3.7101820747599745`*^9, {3.7101821093412466`*^9, 3.7101821169518633`*^9},
1010   3.7102134810606318`*^9, 3.7102135203531127`*^9, 3.7102140420054126`*^9,
1011   3.710214660490622*^9, 3.710215214152623*^9, 3.710215435459756*^9,
1012   3.7102155300456705`*^9, 3.710216345027583*^9, 3.7102166603108025`*^9,
1013   3.7107158242274294`*^9, 3.710715898199094*^9, 3.7107162422972555`*^9,
1014   3.710716532422307*^9, 3.710716674799245*^9, 3.710716888103088*^9,
1015   3.7107172017746305`*^9, 3.7107172718036566`*^9, 3.7107178759998293`*^9,
1016   3.710718347948429*^9, 3.7107184563015594`*^9, 3.710718623582868*^9,
1017   3.710718714500655*^9, 3.710718911843858*^9, 3.7107588016980352`*^9,
1018   3.7107592872840824`*^9, 3.7107602366505904`*^9, 3.710761191859598*^9,
1019   3.710772159279621*^9, 3.7107726079463205`*^9, 3.7107729035258055`*^9,
1020   3.710773079887212*^9, 3.7107731619999013`*^9, 3.7107732685709457`*^9,
1021   3.7107734168774776`*^9, 3.7107736276519313`*^9, 3.7107739272265453`*^9,
1022   3.710774560810104*^9, 3.7107763452014513`*^9, 3.7107781497053823`*^9,
1023   3.7107783547988863`*^9, 3.710843578530382*^9, 3.7108451392370267`*^9,
1024   3.7113002384617214`*^9, 3.711300286282915*^9, 3.7113005284516373`*^9,
1025   3.711301476788836*^9, 3.711315932256013*^9, 3.7113287133868694`*^9,
1026   3.7113296908101377`*^9, 3.711368221558215*^9, 3.7113778025921965`*^9,
1027   3.7113801447052307`*^9, 3.7113802217925625`*^9, 3.711381210325421*^9,
1028   3.7114229324796133`*^9, 3.711423903524974*^9, 3.7117187685716248`*^9,
1029   3.711733908484167*^9, 3.714779038049245*^9, 3.7277545615837145`*^9,
1030   3.7278345855529275`*^9, 3.7278347987660885`*^9, 3.728801650885491*^9,
1031   3.7288176989812016`*^9, 3.728835385106996*^9, 3.731392575043318*^9,
1032   3.731635120607944*^9, 3.7316432706789255`*^9, 3.7316434934671974`*^9,
1033   3.7342574873746734`*^9, 3.734257740425616*^9, {3.7342579760006638`*^9,
1034   3.7342579990034637`*^9}, 3.73425809871819*^9, 3.7342582312164774`*^9,
1035   3.7342582999898114`*^9, 3.745206145399847*^9, 3.7452068430325823`*^9,
1036   3.745213300205385*^9, 3.745213946178269*^9},
1037 CellLabel->"Out[5]=",ExpressionUUID->"0e66b283-1b56-45e8-aa93-5104d097628b"]
1038}, Open  ]],
1039
1040Cell[CellGroupData[{
1041
1042Cell[BoxData["LLQqcd"], "Input",
1043 CellChangeTimes->{3.711733933162474*^9, 3.7277545663458595`*^9},
1044 CellLabel->"In[6]:=",ExpressionUUID->"5ae8bf37-7631-4622-84bc-8a13fb413d39"],
1045
1046Cell[BoxData[
1047 RowBox[{
1048  RowBox[{
1049   SuperscriptBox["MLQ", "2"], " ",
1050   RowBox[{
1051    SubsuperscriptBox["LtQk",
1052     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".",
1053    SubscriptBox["LtQk",
1054     RowBox[{"mu", ",", "aa"}]]}]}], "-",
1055  RowBox[{"\[ImaginaryI]", " ",
1056   SubscriptBox["g", "s"], " ",
1057   RowBox[{
1058    SubsuperscriptBox["LtQk",
1059     RowBox[{"mu", ",", "cc1"}], "\[Dagger]"], ".",
1060    RowBox[{"(",
1061     RowBox[{
1062      RowBox[{"-",
1063       RowBox[{
1064        SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1065        SubscriptBox["G",
1066         RowBox[{"mu", ",", "aa"}]], "]"}]}], "+",
1067      RowBox[{
1068       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1069       SubscriptBox["G",
1070        RowBox[{"nu", ",", "aa"}]], "]"}], "+",
1071      RowBox[{
1072       SubscriptBox["g", "s"], " ",
1073       SubscriptBox["f",
1074        RowBox[{"aa", ",", "bb$3430", ",", "cc$3430"}]], " ",
1075       SubscriptBox["G",
1076        RowBox[{"mu", ",", "bb$3430"}]], " ",
1077       SubscriptBox["G",
1078        RowBox[{"nu", ",", "cc$3430"}]]}]}], ")"}], ".",
1079    SubsuperscriptBox["T",
1080     RowBox[{"cc1", ",", "cc2"}], "aa"], ".",
1081    SubscriptBox["LtQk",
1082     RowBox[{"nu", ",", "cc2"}]]}]}], "+",
1083  RowBox[{
1084   FractionBox["1", "2"], " ",
1085   RowBox[{"(",
1086    RowBox[{
1087     RowBox[{"-",
1088      RowBox[{
1089       SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1090       SubsuperscriptBox["LtQk",
1091        RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+",
1092     RowBox[{
1093      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1094      SubsuperscriptBox["LtQk",
1095       RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], "+",
1096     RowBox[{"\[ImaginaryI]", " ",
1097      SubscriptBox["g", "s"], " ",
1098      SubscriptBox["G",
1099       RowBox[{"mu", ",", "a$3426"}]], " ",
1100      SubsuperscriptBox["LtQk",
1101       RowBox[{"nu", ",", "i$3426"}], "\[Dagger]"], " ",
1102      SubsuperscriptBox["T",
1103       RowBox[{"i$3426", ",", "aa"}], "a$3426"]}], "-",
1104     RowBox[{"\[ImaginaryI]", " ",
1105      SubscriptBox["g", "s"], " ",
1106      SubscriptBox["G",
1107       RowBox[{"nu", ",", "a$3427"}]], " ",
1108      SubsuperscriptBox["LtQk",
1109       RowBox[{"mu", ",", "i$3427"}], "\[Dagger]"], " ",
1110      SubsuperscriptBox["T",
1111       RowBox[{"i$3427", ",", "aa"}], "a$3427"]}]}], ")"}], " ",
1112   RowBox[{"(",
1113    RowBox[{
1114     RowBox[{"-",
1115      RowBox[{
1116       SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1117       SubscriptBox["LtQk",
1118        RowBox[{"mu", ",", "aa"}]], "]"}]}], "+",
1119     RowBox[{
1120      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1121      SubscriptBox["LtQk",
1122       RowBox[{"nu", ",", "aa"}]], "]"}], "-",
1123     RowBox[{"\[ImaginaryI]", " ",
1124      SubscriptBox["g", "s"], " ",
1125      SubscriptBox["G",
1126       RowBox[{"mu", ",", "a$3428"}]], " ",
1127      SubscriptBox["LtQk",
1128       RowBox[{"nu", ",", "i$3428"}]], " ",
1129      SubsuperscriptBox["T",
1130       RowBox[{"aa", ",", "i$3428"}], "a$3428"]}], "+",
1131     RowBox[{"\[ImaginaryI]", " ",
1132      SubscriptBox["g", "s"], " ",
1133      SubscriptBox["G",
1134       RowBox[{"nu", ",", "a$3429"}]], " ",
1135      SubscriptBox["LtQk",
1136       RowBox[{"mu", ",", "i$3429"}]], " ",
1137      SubsuperscriptBox["T",
1138       RowBox[{"aa", ",", "i$3429"}], "a$3429"]}]}], ")"}]}]}]], "Output",
1139 CellChangeTimes->{{3.7288326935566297`*^9, 3.7288327072716684`*^9},
1140   3.728832750905893*^9, 3.728833229634508*^9, 3.7288335072354107`*^9,
1141   3.7288336953233695`*^9, 3.728833879361171*^9, 3.7288343109499145`*^9,
1142   3.728834600899084*^9, 3.7288347979858775`*^9, 3.7288353851320167`*^9,
1143   3.731635120686998*^9, 3.731643270816023*^9, 3.7316434936142983`*^9,
1144   3.734257487498803*^9, 3.7342577405537167`*^9, 3.734257976032915*^9,
1145   3.734258098950385*^9, 3.7342582312656*^9, 3.7342583000317*^9,
1146   3.74520614553675*^9, 3.7452068430703354`*^9, 3.745213310749683*^9,
1147   3.745213946209465*^9},
1148 CellLabel->"Out[6]=",ExpressionUUID->"00d55f52-8bf3-4702-a430-52cb964d10e8"]
1149}, Open  ]],
1150
1151Cell[CellGroupData[{
1152
1153Cell[BoxData[
1154 RowBox[{"Expand", "[", "LLQqcd", "]"}]], "Input",
1155 CellChangeTimes->{{3.711300288388316*^9, 3.7113002926393137`*^9}, {
1156   3.711367903561936*^9, 3.7113679100687*^9}, {3.711377809318362*^9,
1157   3.7113778119448533`*^9}, {3.711411594626872*^9, 3.711411599352292*^9},
1158   3.711733927666424*^9, 3.727754585065027*^9},
1159 CellLabel->"In[7]:=",ExpressionUUID->"90e0aab2-2f48-48a7-a061-6c154ba92329"],
1160
1161Cell[BoxData[
1162 RowBox[{
1163  RowBox[{
1164   FractionBox["1", "2"], " ",
1165   RowBox[{
1166    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1167    SubscriptBox["LtQk",
1168     RowBox[{"mu", ",", "aa"}]], "]"}], " ",
1169   RowBox[{
1170    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1171    SubsuperscriptBox["LtQk",
1172     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "-",
1173  RowBox[{
1174   FractionBox["1", "2"], " ",
1175   RowBox[{
1176    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1177    SubscriptBox["LtQk",
1178     RowBox[{"nu", ",", "aa"}]], "]"}], " ",
1179   RowBox[{
1180    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1181    SubsuperscriptBox["LtQk",
1182     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "-",
1183  RowBox[{
1184   FractionBox["1", "2"], " ",
1185   RowBox[{
1186    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1187    SubscriptBox["LtQk",
1188     RowBox[{"mu", ",", "aa"}]], "]"}], " ",
1189   RowBox[{
1190    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1191    SubsuperscriptBox["LtQk",
1192     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+",
1193  RowBox[{
1194   FractionBox["1", "2"], " ",
1195   RowBox[{
1196    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1197    SubscriptBox["LtQk",
1198     RowBox[{"nu", ",", "aa"}]], "]"}], " ",
1199   RowBox[{
1200    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1201    SubsuperscriptBox["LtQk",
1202     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+",
1203  RowBox[{
1204   SuperscriptBox["MLQ", "2"], " ",
1205   RowBox[{
1206    SubsuperscriptBox["LtQk",
1207     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".",
1208    SubscriptBox["LtQk",
1209     RowBox[{"mu", ",", "aa"}]]}]}], "-",
1210  RowBox[{"\[ImaginaryI]", " ",
1211   SubscriptBox["g", "s"], " ",
1212   RowBox[{
1213    SubsuperscriptBox["LtQk",
1214     RowBox[{"mu", ",", "cc1"}], "\[Dagger]"], ".",
1215    RowBox[{"(",
1216     RowBox[{
1217      RowBox[{"-",
1218       RowBox[{
1219        SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1220        SubscriptBox["G",
1221         RowBox[{"mu", ",", "aa"}]], "]"}]}], "+",
1222      RowBox[{
1223       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1224       SubscriptBox["G",
1225        RowBox[{"nu", ",", "aa"}]], "]"}], "+",
1226      RowBox[{
1227       SubscriptBox["g", "s"], " ",
1228       SubscriptBox["f",
1229        RowBox[{"aa", ",", "bb$3435", ",", "cc$3435"}]], " ",
1230       SubscriptBox["G",
1231        RowBox[{"mu", ",", "bb$3435"}]], " ",
1232       SubscriptBox["G",
1233        RowBox[{"nu", ",", "cc$3435"}]]}]}], ")"}], ".",
1234    SubsuperscriptBox["T",
1235     RowBox[{"cc1", ",", "cc2"}], "aa"], ".",
1236    SubscriptBox["LtQk",
1237     RowBox[{"nu", ",", "cc2"}]]}]}], "-",
1238  RowBox[{
1239   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1240   SubscriptBox["g", "s"], " ",
1241   RowBox[{
1242    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1243    SubscriptBox["LtQk",
1244     RowBox[{"mu", ",", "aa"}]], "]"}], " ",
1245   SubscriptBox["G",
1246    RowBox[{"mu", ",", "a$3431"}]], " ",
1247   SubsuperscriptBox["LtQk",
1248    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ",
1249   SubsuperscriptBox["T",
1250    RowBox[{"i$3431", ",", "aa"}], "a$3431"]}], "+",
1251  RowBox[{
1252   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1253   SubscriptBox["g", "s"], " ",
1254   RowBox[{
1255    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1256    SubscriptBox["LtQk",
1257     RowBox[{"nu", ",", "aa"}]], "]"}], " ",
1258   SubscriptBox["G",
1259    RowBox[{"mu", ",", "a$3431"}]], " ",
1260   SubsuperscriptBox["LtQk",
1261    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ",
1262   SubsuperscriptBox["T",
1263    RowBox[{"i$3431", ",", "aa"}], "a$3431"]}], "+",
1264  RowBox[{
1265   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1266   SubscriptBox["g", "s"], " ",
1267   RowBox[{
1268    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1269    SubscriptBox["LtQk",
1270     RowBox[{"mu", ",", "aa"}]], "]"}], " ",
1271   SubscriptBox["G",
1272    RowBox[{"nu", ",", "a$3432"}]], " ",
1273   SubsuperscriptBox["LtQk",
1274    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ",
1275   SubsuperscriptBox["T",
1276    RowBox[{"i$3432", ",", "aa"}], "a$3432"]}], "-",
1277  RowBox[{
1278   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1279   SubscriptBox["g", "s"], " ",
1280   RowBox[{
1281    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1282    SubscriptBox["LtQk",
1283     RowBox[{"nu", ",", "aa"}]], "]"}], " ",
1284   SubscriptBox["G",
1285    RowBox[{"nu", ",", "a$3432"}]], " ",
1286   SubsuperscriptBox["LtQk",
1287    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ",
1288   SubsuperscriptBox["T",
1289    RowBox[{"i$3432", ",", "aa"}], "a$3432"]}], "+",
1290  RowBox[{
1291   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1292   SubscriptBox["g", "s"], " ",
1293   RowBox[{
1294    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1295    SubsuperscriptBox["LtQk",
1296     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}], " ",
1297   SubscriptBox["G",
1298    RowBox[{"mu", ",", "a$3433"}]], " ",
1299   SubscriptBox["LtQk",
1300    RowBox[{"nu", ",", "i$3433"}]], " ",
1301   SubsuperscriptBox["T",
1302    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-",
1303  RowBox[{
1304   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1305   SubscriptBox["g", "s"], " ",
1306   RowBox[{
1307    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1308    SubsuperscriptBox["LtQk",
1309     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], " ",
1310   SubscriptBox["G",
1311    RowBox[{"mu", ",", "a$3433"}]], " ",
1312   SubscriptBox["LtQk",
1313    RowBox[{"nu", ",", "i$3433"}]], " ",
1314   SubsuperscriptBox["T",
1315    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "+",
1316  RowBox[{
1317   FractionBox["1", "2"], " ",
1318   SubsuperscriptBox["g", "s", "2"], " ",
1319   SubscriptBox["G",
1320    RowBox[{"mu", ",", "a$3431"}]], " ",
1321   SubscriptBox["G",
1322    RowBox[{"mu", ",", "a$3433"}]], " ",
1323   SubscriptBox["LtQk",
1324    RowBox[{"nu", ",", "i$3433"}]], " ",
1325   SubsuperscriptBox["LtQk",
1326    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ",
1327   SubsuperscriptBox["T",
1328    RowBox[{"i$3431", ",", "aa"}], "a$3431"], " ",
1329   SubsuperscriptBox["T",
1330    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-",
1331  RowBox[{
1332   FractionBox["1", "2"], " ",
1333   SubsuperscriptBox["g", "s", "2"], " ",
1334   SubscriptBox["G",
1335    RowBox[{"mu", ",", "a$3433"}]], " ",
1336   SubscriptBox["G",
1337    RowBox[{"nu", ",", "a$3432"}]], " ",
1338   SubscriptBox["LtQk",
1339    RowBox[{"nu", ",", "i$3433"}]], " ",
1340   SubsuperscriptBox["LtQk",
1341    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ",
1342   SubsuperscriptBox["T",
1343    RowBox[{"i$3432", ",", "aa"}], "a$3432"], " ",
1344   SubsuperscriptBox["T",
1345    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-",
1346  RowBox[{
1347   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1348   SubscriptBox["g", "s"], " ",
1349   RowBox[{
1350    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[",
1351    SubsuperscriptBox["LtQk",
1352     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}], " ",
1353   SubscriptBox["G",
1354    RowBox[{"nu", ",", "a$3434"}]], " ",
1355   SubscriptBox["LtQk",
1356    RowBox[{"mu", ",", "i$3434"}]], " ",
1357   SubsuperscriptBox["T",
1358    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "+",
1359  RowBox[{
1360   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
1361   SubscriptBox["g", "s"], " ",
1362   RowBox[{
1363    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1364    SubsuperscriptBox["LtQk",
1365     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], " ",
1366   SubscriptBox["G",
1367    RowBox[{"nu", ",", "a$3434"}]], " ",
1368   SubscriptBox["LtQk",
1369    RowBox[{"mu", ",", "i$3434"}]], " ",
1370   SubsuperscriptBox["T",
1371    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "-",
1372  RowBox[{
1373   FractionBox["1", "2"], " ",
1374   SubsuperscriptBox["g", "s", "2"], " ",
1375   SubscriptBox["G",
1376    RowBox[{"mu", ",", "a$3431"}]], " ",
1377   SubscriptBox["G",
1378    RowBox[{"nu", ",", "a$3434"}]], " ",
1379   SubscriptBox["LtQk",
1380    RowBox[{"mu", ",", "i$3434"}]], " ",
1381   SubsuperscriptBox["LtQk",
1382    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ",
1383   SubsuperscriptBox["T",
1384    RowBox[{"i$3431", ",", "aa"}], "a$3431"], " ",
1385   SubsuperscriptBox["T",
1386    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "+",
1387  RowBox[{
1388   FractionBox["1", "2"], " ",
1389   SubsuperscriptBox["g", "s", "2"], " ",
1390   SubscriptBox["G",
1391    RowBox[{"nu", ",", "a$3432"}]], " ",
1392   SubscriptBox["G",
1393    RowBox[{"nu", ",", "a$3434"}]], " ",
1394   SubscriptBox["LtQk",
1395    RowBox[{"mu", ",", "i$3434"}]], " ",
1396   SubsuperscriptBox["LtQk",
1397    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ",
1398   SubsuperscriptBox["T",
1399    RowBox[{"i$3432", ",", "aa"}], "a$3432"], " ",
1400   SubsuperscriptBox["T",
1401    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}]}]], "Output",
1402 CellChangeTimes->{3.728834919257449*^9, 3.7288353852020288`*^9,
1403  3.7316351208110905`*^9, 3.7316432708910823`*^9, 3.7316434936763425`*^9,
1404  3.734257487546836*^9, 3.7342577406357794`*^9, 3.7342579760659313`*^9,
1405  3.734258098999922*^9, 3.734258231312629*^9, 3.73425830008674*^9,
1406  3.7452061456237006`*^9, 3.7452068431015844`*^9, 3.745213311466691*^9,
1407  3.745213946262839*^9},
1408 CellLabel->"Out[7]=",ExpressionUUID->"7c59a2d1-260e-4813-9633-9baedad97220"]
1409}, Open  ]],
1410
1411Cell[CellGroupData[{
1412
1413Cell[BoxData[
1414 RowBox[{"FeynmanRules", "[", "LLQ", "]"}]], "Input",
1415 CellChangeTimes->{{3.7107763476721935`*^9, 3.7107763532523384`*^9}},
1416 CellLabel->"In[8]:=",ExpressionUUID->"1159c70f-9390-4e41-affc-c016a1695ff5"],
1417
1418Cell[CellGroupData[{
1419
1420Cell[BoxData[
1421 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1422  StripOnInput->False,
1423  LineColor->RGBColor[1, 0.5, 0],
1424  FrontFaceColor->RGBColor[1, 0.5, 0],
1425  BackFaceColor->RGBColor[1, 0.5, 0],
1426  GraphicsColor->RGBColor[1, 0.5, 0],
1427  FontWeight->Bold,
1428  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1429 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9,
1430  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9,
1431  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9,
1432  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9,
1433  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9,
1434  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9,
1435  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9,
1436  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9,
1437  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9,
1438  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9,
1439  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9,
1440  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139465949097`*^9},
1441 CellLabel->
1442  "During evaluation of \
1443In[8]:=",ExpressionUUID->"d37edca3-67af-4c15-b86f-416e9371724f"],
1444
1445Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1446 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9,
1447  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9,
1448  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9,
1449  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9,
1450  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9,
1451  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9,
1452  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9,
1453  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9,
1454  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9,
1455  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9,
1456  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9,
1457  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139465949097`*^9},
1458 CellLabel->
1459  "During evaluation of \
1460In[8]:=",ExpressionUUID->"40610d7c-cbae-45b0-9846-827e2021b08e"],
1461
1462Cell[BoxData["\<\"Collecting the different structures that enter the \
1463vertex.\"\>"], "Print",
1464 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9,
1465  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9,
1466  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9,
1467  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9,
1468  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9,
1469  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9,
1470  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9,
1471  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9,
1472  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9,
1473  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9,
1474  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9,
1475  3.7452068431328316`*^9, 3.74521331258537*^9, 3.745213946764213*^9},
1476 CellLabel->
1477  "During evaluation of \
1478In[8]:=",ExpressionUUID->"a63c17ba-3c96-4dc6-a822-bdc6529c14d1"],
1479
1480Cell[BoxData[
1481 InterpretationBox[
1482  RowBox[{
1483  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1484-> starting the computation: \"\>", "\[InvisibleSpace]",
1485   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1486    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1487   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
1488  SequenceForm[
1489  4, " possible non-zero vertices have been found -> starting the \
1490computation: ",
1491   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
1492  Editable->False]], "Print",
1493 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9,
1494  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9,
1495  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9,
1496  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9,
1497  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9,
1498  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9,
1499  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9,
1500  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9,
1501  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9,
1502  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9,
1503  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9,
1504  3.7452068431328316`*^9, 3.74521331258537*^9, 3.745213946764213*^9},
1505 CellLabel->
1506  "During evaluation of \
1507In[8]:=",ExpressionUUID->"3fb83c47-fc94-4250-9c76-122e87e80ca0"],
1508
1509Cell[BoxData[
1510 InterpretationBox[
1511  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1512  SequenceForm[4, " vertices obtained."],
1513  Editable->False]], "Print",
1514 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9,
1515  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9,
1516  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9,
1517  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9,
1518  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9,
1519  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9,
1520  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9,
1521  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9,
1522  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9,
1523  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9,
1524  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9,
1525  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139474238405`*^9},
1526 CellLabel->
1527  "During evaluation of \
1528In[8]:=",ExpressionUUID->"0a813d16-b8ab-4bcb-9b08-bd8b772cbca0"]
1529}, Open  ]],
1530
1531Cell[BoxData[
1532 RowBox[{"{",
1533  RowBox[{
1534   RowBox[{"{",
1535    RowBox[{
1536     RowBox[{"{",
1537      RowBox[{
1538       RowBox[{"{",
1539        RowBox[{
1540         OverscriptBox["l", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1541       RowBox[{"{",
1542        RowBox[{"dq", ",", "2"}], "}"}], ",",
1543       RowBox[{"{",
1544        RowBox[{
1545         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",",
1546     RowBox[{"\[ImaginaryI]", " ",
1547      SubscriptBox[
1548       SubscriptBox["C", "LQ"],
1549       RowBox[{
1550        SubscriptBox["\<\"f\"\>", "2"], ",",
1551        SubscriptBox["\<\"f\"\>", "1"]}]], " ",
1552      SubscriptBox["\[Delta]",
1553       RowBox[{
1554        SubscriptBox["\<\"m\"\>", "2"], ",",
1555        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1556      SubscriptBox[
1557       RowBox[{
1558        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
1559         "Superscript"], ".",
1560        SubscriptBox["P", "\<\"-\"\>"]}],
1561       RowBox[{
1562        SubscriptBox["\<\"s\"\>", "1"], ",",
1563        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",",
1564   RowBox[{"{",
1565    RowBox[{
1566     RowBox[{"{",
1567      RowBox[{
1568       RowBox[{"{",
1569        RowBox[{
1570         OverscriptBox["vl", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1571       RowBox[{"{",
1572        RowBox[{"uq", ",", "2"}], "}"}], ",",
1573       RowBox[{"{",
1574        RowBox[{
1575         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",",
1576     RowBox[{"\[ImaginaryI]", " ",
1577      SubscriptBox[
1578       SubscriptBox["C", "LQ"],
1579       RowBox[{
1580        SubscriptBox["\<\"f\"\>", "2"], ",",
1581        SubscriptBox["\<\"f\"\>", "1"]}]], " ",
1582      SubscriptBox["\[Delta]",
1583       RowBox[{
1584        SubscriptBox["\<\"m\"\>", "2"], ",",
1585        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1586      SubscriptBox[
1587       RowBox[{
1588        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
1589         "Superscript"], ".",
1590        SubscriptBox["P", "\<\"-\"\>"]}],
1591       RowBox[{
1592        SubscriptBox["\<\"s\"\>", "1"], ",",
1593        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",",
1594   RowBox[{"{",
1595    RowBox[{
1596     RowBox[{"{",
1597      RowBox[{
1598       RowBox[{"{",
1599        RowBox[{
1600         OverscriptBox["dq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1601       RowBox[{"{",
1602        RowBox[{"l", ",", "2"}], "}"}], ",",
1603       RowBox[{"{",
1604        RowBox[{"LtQk", ",", "3"}], "}"}]}], "}"}], ",",
1605     RowBox[{"\[ImaginaryI]", " ",
1606      SubscriptBox[
1607       SubscriptBox["C", "LQ"],
1608       RowBox[{
1609        SubscriptBox["\<\"f\"\>", "1"], ",",
1610        SubscriptBox["\<\"f\"\>", "2"]}]], " ",
1611      SubscriptBox["\[Delta]",
1612       RowBox[{
1613        SubscriptBox["\<\"m\"\>", "1"], ",",
1614        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1615      SubscriptBox[
1616       RowBox[{
1617        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
1618         "Superscript"], ".",
1619        SubscriptBox["P", "\<\"-\"\>"]}],
1620       RowBox[{
1621        SubscriptBox["\<\"s\"\>", "1"], ",",
1622        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",",
1623   RowBox[{"{",
1624    RowBox[{
1625     RowBox[{"{",
1626      RowBox[{
1627       RowBox[{"{",
1628        RowBox[{
1629         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1630       RowBox[{"{",
1631        RowBox[{"vl", ",", "2"}], "}"}], ",",
1632       RowBox[{"{",
1633        RowBox[{"LtQk", ",", "3"}], "}"}]}], "}"}], ",",
1634     RowBox[{"\[ImaginaryI]", " ",
1635      SubscriptBox[
1636       SubscriptBox["C", "LQ"],
1637       RowBox[{
1638        SubscriptBox["\<\"f\"\>", "1"], ",",
1639        SubscriptBox["\<\"f\"\>", "2"]}]], " ",
1640      SubscriptBox["\[Delta]",
1641       RowBox[{
1642        SubscriptBox["\<\"m\"\>", "1"], ",",
1643        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1644      SubscriptBox[
1645       RowBox[{
1646        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
1647         "Superscript"], ".",
1648        SubscriptBox["P", "\<\"-\"\>"]}],
1649       RowBox[{
1650        SubscriptBox["\<\"s\"\>", "1"], ",",
1651        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
1652 CellChangeTimes->{3.710776354751342*^9, 3.710778152415888*^9,
1653  3.7107783552989855`*^9, 3.710843579050485*^9, 3.710845139752278*^9,
1654  3.711300307952273*^9, 3.711315942389225*^9, 3.7113287225728874`*^9,
1655  3.711378193151088*^9, 3.7114229331923685`*^9, 3.7114239051655755`*^9,
1656  3.711718769258724*^9, 3.711733909209688*^9, 3.71477903862015*^9,
1657  3.727754598708003*^9, 3.7278345864862843`*^9, 3.727834799541683*^9,
1658  3.728801651470622*^9, 3.7288177232198944`*^9, 3.728833245328906*^9,
1659  3.7288353855920906`*^9, 3.731392582334627*^9, 3.7316351213444676`*^9,
1660  3.731643271841752*^9, 3.731643494154684*^9, 3.7342574880359755`*^9,
1661  3.7342577410911813`*^9, 3.7342579763947763`*^9, 3.734258099546606*^9,
1662  3.7342582317604694`*^9, 3.734258300771294*^9, 3.7452061463722725`*^9,
1663  3.745206843518321*^9, 3.7452133148750987`*^9, 3.7452139474548216`*^9},
1664 CellLabel->"Out[8]=",ExpressionUUID->"ef9fdd18-ab09-4118-a92a-d51e503beb66"]
1665}, Open  ]],
1666
1667Cell[CellGroupData[{
1668
1669Cell[BoxData[
1670 RowBox[{"FeynmanRules", "[", "LLQqcd", "]"}]], "Input",
1671 CellChangeTimes->{{3.7107763476721935`*^9, 3.7107763532523384`*^9}, {
1672  3.711328741409523*^9, 3.711328744445941*^9}, {3.7113679254857116`*^9,
1673  3.7113679268695507`*^9}, {3.7113780510537663`*^9, 3.7113780540108566`*^9}},
1674 CellLabel->"In[9]:=",ExpressionUUID->"a8742e42-7437-483f-b943-a4ca55b5b971"],
1675
1676Cell[CellGroupData[{
1677
1678Cell[BoxData[
1679 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1680  StripOnInput->False,
1681  LineColor->RGBColor[1, 0.5, 0],
1682  FrontFaceColor->RGBColor[1, 0.5, 0],
1683  BackFaceColor->RGBColor[1, 0.5, 0],
1684  GraphicsColor->RGBColor[1, 0.5, 0],
1685  FontWeight->Bold,
1686  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1687 CellChangeTimes->{
1688  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9,
1689   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9,
1690   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9,
1691   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9,
1692   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9,
1693   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9,
1694   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9,
1695   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9,
1696   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9,
1697   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9,
1698   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9,
1699   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9,
1700   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9,
1701   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9,
1702   3.745213315175928*^9, 3.745213947535775*^9},
1703 CellLabel->
1704  "During evaluation of \
1705In[9]:=",ExpressionUUID->"4da87593-a37c-416f-afbb-270221b8334f"],
1706
1707Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1708 CellChangeTimes->{
1709  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9,
1710   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9,
1711   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9,
1712   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9,
1713   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9,
1714   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9,
1715   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9,
1716   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9,
1717   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9,
1718   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9,
1719   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9,
1720   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9,
1721   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9,
1722   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9,
1723   3.745213315175928*^9, 3.7452139475387745`*^9},
1724 CellLabel->
1725  "During evaluation of \
1726In[9]:=",ExpressionUUID->"8178fea3-be60-408b-b4f6-fc1f863f3c0a"],
1727
1728Cell[BoxData["\<\"Collecting the different structures that enter the \
1729vertex.\"\>"], "Print",
1730 CellChangeTimes->{
1731  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9,
1732   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9,
1733   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9,
1734   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9,
1735   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9,
1736   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9,
1737   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9,
1738   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9,
1739   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9,
1740   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9,
1741   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9,
1742   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9,
1743   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9,
1744   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9,
1745   3.745213315175928*^9, 3.745213948097667*^9},
1746 CellLabel->
1747  "During evaluation of \
1748In[9]:=",ExpressionUUID->"637d031c-8a95-4608-b0f0-ac21dbc77847"],
1749
1750Cell[BoxData[
1751 InterpretationBox[
1752  RowBox[{
1753  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1754-> starting the computation: \"\>", "\[InvisibleSpace]",
1755   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1756    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1757   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
1758  SequenceForm[
1759  2, " possible non-zero vertices have been found -> starting the \
1760computation: ",
1761   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
1762  Editable->False]], "Print",
1763 CellChangeTimes->{
1764  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9,
1765   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9,
1766   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9,
1767   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9,
1768   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9,
1769   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9,
1770   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9,
1771   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9,
1772   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9,
1773   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9,
1774   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9,
1775   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9,
1776   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9,
1777   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9,
1778   3.745213315175928*^9, 3.745213948113289*^9},
1779 CellLabel->
1780  "During evaluation of \
1781In[9]:=",ExpressionUUID->"42bf05c8-356f-4723-94cf-e1bf429c2681"],
1782
1783Cell[BoxData[
1784 InterpretationBox[
1785  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1786  SequenceForm[2, " vertices obtained."],
1787  Editable->False]], "Print",
1788 CellChangeTimes->{
1789  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9,
1790   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9,
1791   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9,
1792   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9,
1793   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9,
1794   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9,
1795   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9,
1796   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9,
1797   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9,
1798   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9,
1799   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9,
1800   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9,
1801   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9,
1802   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9,
1803   3.745213315175928*^9, 3.7452139496709247`*^9},
1804 CellLabel->
1805  "During evaluation of \
1806In[9]:=",ExpressionUUID->"8c1e3868-3e52-4936-b50f-6e4677010ff6"]
1807}, Open  ]],
1808
1809Cell[BoxData[
1810 RowBox[{"{",
1811  RowBox[{
1812   RowBox[{"{",
1813    RowBox[{
1814     RowBox[{"{",
1815      RowBox[{
1816       RowBox[{"{",
1817        RowBox[{"G", ",", "1"}], "}"}], ",",
1818       RowBox[{"{",
1819        RowBox[{"LtQk", ",", "2"}], "}"}], ",",
1820       RowBox[{"{",
1821        RowBox[{
1822         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",",
1823     RowBox[{
1824      RowBox[{
1825       RowBox[{"-", "\[ImaginaryI]"}], " ",
1826       SubscriptBox["g", "s"], " ",
1827       SubsuperscriptBox["\<\"p\"\>", "1",
1828        SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1829       SubscriptBox["\[Eta]",
1830        RowBox[{
1831         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1832         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1833       SubsuperscriptBox["T",
1834        RowBox[{
1835         SubscriptBox["\<\"m\"\>", "3"], ",",
1836         SubscriptBox["\<\"m\"\>", "2"]}],
1837        SubscriptBox["\<\"a\"\>", "1"]]}], "-",
1838      RowBox[{"\[ImaginaryI]", " ",
1839       SubscriptBox["g", "s"], " ",
1840       SubsuperscriptBox["\<\"p\"\>", "2",
1841        SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ",
1842       SubscriptBox["\[Eta]",
1843        RowBox[{
1844         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1845         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1846       SubsuperscriptBox["T",
1847        RowBox[{
1848         SubscriptBox["\<\"m\"\>", "3"], ",",
1849         SubscriptBox["\<\"m\"\>", "2"]}],
1850        SubscriptBox["\<\"a\"\>", "1"]]}], "+",
1851      RowBox[{"\[ImaginaryI]", " ",
1852       SubscriptBox["g", "s"], " ",
1853       SubsuperscriptBox["\<\"p\"\>", "1",
1854        SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
1855       SubscriptBox["\[Eta]",
1856        RowBox[{
1857         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1858         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1859       SubsuperscriptBox["T",
1860        RowBox[{
1861         SubscriptBox["\<\"m\"\>", "3"], ",",
1862         SubscriptBox["\<\"m\"\>", "2"]}],
1863        SubscriptBox["\<\"a\"\>", "1"]]}], "+",
1864      RowBox[{"\[ImaginaryI]", " ",
1865       SubscriptBox["g", "s"], " ",
1866       SubsuperscriptBox["\<\"p\"\>", "3",
1867        SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ",
1868       SubscriptBox["\[Eta]",
1869        RowBox[{
1870         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1871         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1872       SubsuperscriptBox["T",
1873        RowBox[{
1874         SubscriptBox["\<\"m\"\>", "3"], ",",
1875         SubscriptBox["\<\"m\"\>", "2"]}],
1876        SubscriptBox["\<\"a\"\>", "1"]]}], "+",
1877      RowBox[{"\[ImaginaryI]", " ",
1878       SubscriptBox["g", "s"], " ",
1879       SubsuperscriptBox["\<\"p\"\>", "2",
1880        SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
1881       SubscriptBox["\[Eta]",
1882        RowBox[{
1883         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1884         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1885       SubsuperscriptBox["T",
1886        RowBox[{
1887         SubscriptBox["\<\"m\"\>", "3"], ",",
1888         SubscriptBox["\<\"m\"\>", "2"]}],
1889        SubscriptBox["\<\"a\"\>", "1"]]}], "-",
1890      RowBox[{"\[ImaginaryI]", " ",
1891       SubscriptBox["g", "s"], " ",
1892       SubsuperscriptBox["\<\"p\"\>", "3",
1893        SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ",
1894       SubscriptBox["\[Eta]",
1895        RowBox[{
1896         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1897         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1898       SubsuperscriptBox["T",
1899        RowBox[{
1900         SubscriptBox["\<\"m\"\>", "3"], ",",
1901         SubscriptBox["\<\"m\"\>", "2"]}],
1902        SubscriptBox["\<\"a\"\>", "1"]]}]}]}], "}"}], ",",
1903   RowBox[{"{",
1904    RowBox[{
1905     RowBox[{"{",
1906      RowBox[{
1907       RowBox[{"{",
1908        RowBox[{"G", ",", "1"}], "}"}], ",",
1909       RowBox[{"{",
1910        RowBox[{"G", ",", "2"}], "}"}], ",",
1911       RowBox[{"{",
1912        RowBox[{"LtQk", ",", "3"}], "}"}], ",",
1913       RowBox[{"{",
1914        RowBox[{
1915         SuperscriptBox["LtQk", "\[Dagger]"], ",", "4"}], "}"}]}], "}"}], ",",
1916     RowBox[{
1917      RowBox[{
1918       SubsuperscriptBox["g", "s", "2"], " ",
1919       SubscriptBox["f",
1920        RowBox[{
1921         SubscriptBox["\<\"a\"\>", "1"], ",",
1922         SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$1"}]], " ",
1923       SubscriptBox["\[Eta]",
1924        RowBox[{
1925         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1926         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1927       SubscriptBox["\[Eta]",
1928        RowBox[{
1929         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1930         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1931       SubsuperscriptBox["T",
1932        RowBox[{
1933         SubscriptBox["\<\"m\"\>", "4"], ",",
1934         SubscriptBox["\<\"m\"\>", "3"]}], "Gluon$1"]}], "-",
1935      RowBox[{
1936       SubsuperscriptBox["g", "s", "2"], " ",
1937       SubscriptBox["f",
1938        RowBox[{
1939         SubscriptBox["\<\"a\"\>", "1"], ",",
1940         SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$1"}]], " ",
1941       SubscriptBox["\[Eta]",
1942        RowBox[{
1943         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1944         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1945       SubscriptBox["\[Eta]",
1946        RowBox[{
1947         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1948         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1949       SubsuperscriptBox["T",
1950        RowBox[{
1951         SubscriptBox["\<\"m\"\>", "4"], ",",
1952         SubscriptBox["\<\"m\"\>", "3"]}], "Gluon$1"]}], "-",
1953      RowBox[{"\[ImaginaryI]", " ",
1954       SubsuperscriptBox["g", "s", "2"], " ",
1955       SubscriptBox["\[Eta]",
1956        RowBox[{
1957         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1958         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1959       SubscriptBox["\[Eta]",
1960        RowBox[{
1961         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1962         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1963       SubsuperscriptBox["T",
1964        RowBox[{
1965         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
1966        SubscriptBox["\<\"a\"\>", "1"]], " ",
1967       SubsuperscriptBox["T",
1968        RowBox[{"Colour$1", ",",
1969         SubscriptBox["\<\"m\"\>", "3"]}],
1970        SubscriptBox["\<\"a\"\>", "2"]]}], "+",
1971      RowBox[{"\[ImaginaryI]", " ",
1972       SubsuperscriptBox["g", "s", "2"], " ",
1973       SubscriptBox["\[Eta]",
1974        RowBox[{
1975         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1976         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1977       SubscriptBox["\[Eta]",
1978        RowBox[{
1979         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
1980         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1981       SubsuperscriptBox["T",
1982        RowBox[{
1983         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
1984        SubscriptBox["\<\"a\"\>", "1"]], " ",
1985       SubsuperscriptBox["T",
1986        RowBox[{"Colour$1", ",",
1987         SubscriptBox["\<\"m\"\>", "3"]}],
1988        SubscriptBox["\<\"a\"\>", "2"]]}], "-",
1989      RowBox[{"\[ImaginaryI]", " ",
1990       SubsuperscriptBox["g", "s", "2"], " ",
1991       SubscriptBox["\[Eta]",
1992        RowBox[{
1993         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1994         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1995       SubscriptBox["\[Eta]",
1996        RowBox[{
1997         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",",
1998         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ",
1999       SubsuperscriptBox["T",
2000        RowBox[{"Colour$1", ",",
2001         SubscriptBox["\<\"m\"\>", "3"]}],
2002        SubscriptBox["\<\"a\"\>", "1"]], " ",
2003       SubsuperscriptBox["T",
2004        RowBox[{
2005         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
2006        SubscriptBox["\<\"a\"\>", "2"]]}], "+",
2007      RowBox[{"\[ImaginaryI]", " ",
2008       SubsuperscriptBox["g", "s", "2"], " ",
2009       SubscriptBox["\[Eta]",
2010        RowBox[{
2011         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
2012         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
2013       SubscriptBox["\[Eta]",
2014        RowBox[{
2015         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
2016         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
2017       SubsuperscriptBox["T",
2018        RowBox[{"Colour$1", ",",
2019         SubscriptBox["\<\"m\"\>", "3"]}],
2020        SubscriptBox["\<\"a\"\>", "1"]], " ",
2021       SubsuperscriptBox["T",
2022        RowBox[{
2023         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
2024        SubscriptBox["\<\"a\"\>", "2"]]}]}]}], "}"}]}], "}"}]], "Output",
2025 CellChangeTimes->{3.728817753549929*^9, 3.728832831701731*^9,
2026  3.7288332547905903`*^9, 3.7288349363473926`*^9, 3.728835392179028*^9,
2027  3.7316351227924924`*^9, 3.7316432741784115`*^9, 3.7316434956307297`*^9,
2028  3.7342574895115433`*^9, 3.734257742541518*^9, 3.734257976501457*^9,
2029  3.7342581013321486`*^9, 3.7342582331165266`*^9, 3.7342583023142385`*^9,
2030  3.745206148463097*^9, 3.7452068448052397`*^9, 3.745213317551347*^9,
2031  3.7452139496865573`*^9},
2032 CellLabel->"Out[9]=",ExpressionUUID->"6ead2a79-d6ca-4c87-85cd-afd65367f4f1"]
2033}, Open  ]],
2034
2035Cell[CellGroupData[{
2036
2037Cell[BoxData[
2038 RowBox[{
2039  RowBox[{"FeynmanRules", "[", "LTotal", "]"}], ";"}]], "Input",
2040 CellChangeTimes->{{3.709954398591937*^9, 3.709954407192892*^9}, {
2041   3.710213613108117*^9, 3.7102136156913843`*^9}, 3.7117339487969275`*^9},
2042 CellLabel->"In[10]:=",ExpressionUUID->"8c54b549-72be-47d1-aff9-d38857f578dc"],
2043
2044Cell[CellGroupData[{
2045
2046Cell[BoxData[
2047 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2048  StripOnInput->False,
2049  LineColor->RGBColor[1, 0.5, 0],
2050  FrontFaceColor->RGBColor[1, 0.5, 0],
2051  BackFaceColor->RGBColor[1, 0.5, 0],
2052  GraphicsColor->RGBColor[1, 0.5, 0],
2053  FontWeight->Bold,
2054  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2055 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2056  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2057  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2058  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2059  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2060  3.745213955662648*^9},
2061 CellLabel->
2062  "During evaluation of \
2063In[10]:=",ExpressionUUID->"09955134-be66-4c6e-b845-bab065c2b989"],
2064
2065Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2066 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2067  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2068  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2069  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2070  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2071  3.745213955662648*^9},
2072 CellLabel->
2073  "During evaluation of \
2074In[10]:=",ExpressionUUID->"35fa9836-d05a-49dd-b724-dae8cdf1b5ec"],
2075
2076Cell[BoxData[
2077 InterpretationBox[
2078  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
2079   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2080  SequenceForm["Expanding the indices over ", 2, " cores"],
2081  Editable->False]], "Print",
2082 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2083  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2084  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2085  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2086  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2087  3.7452139556782694`*^9},
2088 CellLabel->
2089  "During evaluation of \
2090In[10]:=",ExpressionUUID->"04bc99a0-7df9-4d1a-b968-e81f92eade9a"],
2091
2092Cell[BoxData["\<\"Collecting the different structures that enter the \
2093vertex.\"\>"], "Print",
2094 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2095  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2096  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2097  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2098  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2099  3.7452139640197887`*^9},
2100 CellLabel->
2101  "During evaluation of \
2102In[10]:=",ExpressionUUID->"b79ba44d-8477-4239-9fa9-327c7afc73b5"],
2103
2104Cell[BoxData[
2105 InterpretationBox[
2106  RowBox[{
2107  "42", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
2108-> starting the computation: \"\>", "\[InvisibleSpace]",
2109   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2110    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2111   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\".\"\>"}],
2112  SequenceForm[
2113  42, " possible non-zero vertices have been found -> starting the \
2114computation: ",
2115   Dynamic[FeynRules`FR$FeynmanRules], " / ", 42, "."],
2116  Editable->False]], "Print",
2117 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2118  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2119  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2120  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2121  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2122  3.7452139640822315`*^9},
2123 CellLabel->
2124  "During evaluation of \
2125In[10]:=",ExpressionUUID->"ff7d65a8-0f0c-46c7-b242-6e53eb2ffa7f"],
2126
2127Cell[BoxData[
2128 InterpretationBox[
2129  RowBox[{"37", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2130  SequenceForm[37, " vertices obtained."],
2131  Editable->False]], "Print",
2132 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9,
2133  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9,
2134  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9,
2135  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9,
2136  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9,
2137  3.7452139691150746`*^9},
2138 CellLabel->
2139  "During evaluation of \
2140In[10]:=",ExpressionUUID->"1d964e75-ab19-459e-8613-5c1cdfee292f"]
2141}, Open  ]]
2142}, Open  ]]
2143}, Open  ]],
2144
2145Cell[CellGroupData[{
2146
2147Cell["Generating the UFO model files", "Section",
2148 CellChangeTimes->{{3.518892302672626*^9,
2149  3.518892305688608*^9}},ExpressionUUID->"e1654e2f-f511-4bf1-9a49-\
2150f8cca4af45c3"],
2151
2152Cell[CellGroupData[{
2153
2154Cell[BoxData[
2155 RowBox[{"WriteUFO", "[", "LTotal", "]"}]], "Input",
2156 CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, {
2157   3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9,
2158   3.518892237775363*^9}, {3.540113570516355*^9, 3.54011357075742*^9}, {
2159   3.5502935101903954`*^9, 3.550293511961158*^9}, 3.709954477716484*^9,
2160   3.710213694658132*^9},
2161 CellLabel->"In[11]:=",ExpressionUUID->"348a8e5d-4734-4aaa-9dc8-679dbf7b5093"],
2162
2163Cell[CellGroupData[{
2164
2165Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
2166"Print",
2167 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2168  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2169  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2170  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2171  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2172  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2173  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2174  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2175  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2176  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2177  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213972900631*^9},
2178 CellLabel->
2179  "During evaluation of \
2180In[11]:=",ExpressionUUID->"976f0759-89be-4a8a-87a0-95698bb6ecea"],
2181
2182Cell[BoxData[
2183 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2184  StripOnInput->False,
2185  LineColor->RGBColor[1, 0.5, 0],
2186  FrontFaceColor->RGBColor[1, 0.5, 0],
2187  BackFaceColor->RGBColor[1, 0.5, 0],
2188  GraphicsColor->RGBColor[1, 0.5, 0],
2189  FontWeight->Bold,
2190  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2191 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2192  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2193  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2194  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2195  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2196  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2197  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2198  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2199  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2200  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2201  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973902576*^9},
2202 CellLabel->
2203  "During evaluation of \
2204In[11]:=",ExpressionUUID->"1b19db9b-ad87-4836-a9d3-04ebedb7f186"],
2205
2206Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2207 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2208  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2209  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2210  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2211  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2212  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2213  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2214  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2215  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2216  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2217  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973924711*^9},
2218 CellLabel->
2219  "During evaluation of \
2220In[11]:=",ExpressionUUID->"90f35811-0b69-4400-9524-5398fe064dfa"],
2221
2222Cell[BoxData[
2223 InterpretationBox[
2224  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2",
2225   "\[InvisibleSpace]", "\<\" cores\"\>"}],
2226  SequenceForm["Expanding the indices over ", 2, " cores"],
2227  Editable->False]], "Print",
2228 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2229  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2230  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2231  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2232  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2233  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2234  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2235  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2236  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2237  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2238  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973924711*^9},
2239 CellLabel->
2240  "During evaluation of \
2241In[11]:=",ExpressionUUID->"0bdec706-03b3-4598-a425-763afce5fd53"],
2242
2243Cell[BoxData["\<\"Collecting the different structures that enter the \
2244vertex.\"\>"], "Print",
2245 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2246  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2247  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2248  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2249  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2250  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2251  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2252  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2253  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2254  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2255  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139822891607`*^9},
2256 CellLabel->
2257  "During evaluation of \
2258In[11]:=",ExpressionUUID->"82472fbd-a3a6-4b36-9f15-c3afef7b365a"],
2259
2260Cell[BoxData[
2261 InterpretationBox[
2262  RowBox[{
2263  "42", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
2264-> starting the computation: \"\>", "\[InvisibleSpace]",
2265   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2266    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2267   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\".\"\>"}],
2268  SequenceForm[
2269  42, " possible non-zero vertices have been found -> starting the \
2270computation: ",
2271   Dynamic[FeynRules`FR$FeynmanRules], " / ", 42, "."],
2272  Editable->False]], "Print",
2273 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2274  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2275  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2276  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2277  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2278  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2279  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2280  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2281  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2282  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2283  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139823410625`*^9},
2284 CellLabel->
2285  "During evaluation of \
2286In[11]:=",ExpressionUUID->"6ce9dbe3-b79a-4b91-8526-a4281b95ce78"],
2287
2288Cell[BoxData[
2289 InterpretationBox[
2290  RowBox[{"37", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
2291  SequenceForm[37, " vertices obtained."],
2292  Editable->False]], "Print",
2293 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2294  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2295  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2296  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2297  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2298  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2299  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2300  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2301  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2302  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2303  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139882960863`*^9},
2304 CellLabel->
2305  "During evaluation of \
2306In[11]:=",ExpressionUUID->"f596fde5-9fb3-4ed2-9c18-e661e1071d7d"],
2307
2308Cell[BoxData[
2309 InterpretationBox[
2310  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
2311   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
2312    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2313   "\[InvisibleSpace]", "37"}],
2314  SequenceForm["Flavor expansion of the vertices: ",
2315   Dynamic[FeynRules`FR$Count1], " / ", 37],
2316  Editable->False]], "Print",
2317 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2318  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2319  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2320  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2321  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2322  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2323  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2324  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2325  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2326  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2327  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139898136272`*^9},
2328 CellLabel->
2329  "During evaluation of \
2330In[11]:=",ExpressionUUID->"6e72916d-05c2-4439-8b52-93b430fe7472"],
2331
2332Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
2333 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2334  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2335  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2336  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2337  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2338  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2339  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2340  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2341  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2342  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2343  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213998681135*^9},
2344 CellLabel->
2345  "During evaluation of \
2346In[11]:=",ExpressionUUID->"f6b04e63-d8f3-4893-b778-3e0d9a6d99f1"],
2347
2348Cell[BoxData[
2349 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
2350decays: \"\>",
2351  StripOnInput->False,
2352  LineColor->RGBColor[1, 0.5, 0],
2353  FrontFaceColor->RGBColor[1, 0.5, 0],
2354  BackFaceColor->RGBColor[1, 0.5, 0],
2355  GraphicsColor->RGBColor[1, 0.5, 0],
2356  FontWeight->Bold,
2357  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2358 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2359  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2360  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2361  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2362  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2363  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2364  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2365  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2366  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2367  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2368  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139987345157`*^9},
2369 CellLabel->
2370  "During evaluation of \
2371In[11]:=",ExpressionUUID->"7c8e2dc0-55bd-4b98-90db-7c13d017d016"],
2372
2373Cell[BoxData[
2374 InterpretationBox[
2375  RowBox[{
2376   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2377    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2378   "\[InvisibleSpace]", "84"}],
2379  SequenceForm[
2380   Dynamic[PRIVATE`mycounter], " / ", 84],
2381  Editable->False]], "Print",
2382 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2383  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2384  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2385  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2386  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2387  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2388  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2389  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2390  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2391  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2392  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213998818797*^9},
2393 CellLabel->
2394  "During evaluation of \
2395In[11]:=",ExpressionUUID->"cbc2835b-56f3-46a3-8eb3-4481a9a0655f"],
2396
2397Cell[BoxData[
2398 InterpretationBox[
2399  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
2400   "0.984375`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2401  SequenceForm["Squared matrix elent compute in ", 0.984375, " seconds."],
2402  Editable->False]], "Print",
2403 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2404  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2405  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2406  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2407  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2408  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2409  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2410  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2411  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2412  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2413  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140225636344`*^9},
2414 CellLabel->
2415  "During evaluation of \
2416In[11]:=",ExpressionUUID->"df9dd602-7e6f-4a36-9b09-ff65e23417df"],
2417
2418Cell[BoxData[
2419 InterpretationBox[
2420  RowBox[{
2421   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
2422    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2423   "\[InvisibleSpace]", "102"}],
2424  SequenceForm[
2425   Dynamic[PRIVATE`mycounter], " / ", 102],
2426  Editable->False]], "Print",
2427 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2428  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2429  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2430  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2431  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2432  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2433  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2434  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2435  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2436  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2437  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140226136055`*^9},
2438 CellLabel->
2439  "During evaluation of \
2440In[11]:=",ExpressionUUID->"b5a74225-41a7-4dcc-9bc6-188eac1d41fc"],
2441
2442Cell[BoxData[
2443 InterpretationBox[
2444  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
2445   "1.921875`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
2446  SequenceForm["Decay widths computed in ", 1.921875, " seconds."],
2447  Editable->False]], "Print",
2448 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2449  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2450  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2451  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2452  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2453  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2454  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2455  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2456  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2457  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2458  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214027974749*^9},
2459 CellLabel->
2460  "During evaluation of \
2461In[11]:=",ExpressionUUID->"32c20ee6-8d25-409e-bad9-3b24e49c7779"],
2462
2463Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
2464 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2465  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2466  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2467  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2468  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2469  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2470  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2471  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2472  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2473  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2474  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214027974749*^9},
2475 CellLabel->
2476  "During evaluation of \
2477In[11]:=",ExpressionUUID->"9b53d977-7f69-4f25-a8d2-36c7d63a4bd4"],
2478
2479Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
2480"Print",
2481 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2482  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2483  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2484  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2485  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2486  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2487  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2488  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2489  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2490  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2491  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214028282024*^9},
2492 CellLabel->
2493  "During evaluation of \
2494In[11]:=",ExpressionUUID->"c558916e-effd-416a-a864-21758d06a691"],
2495
2496Cell[BoxData[
2497 InterpretationBox[
2498  RowBox[{"\<\"Splitting of vertices distributed over \"\>",
2499   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
2500  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
2501  Editable->False]], "Print",
2502 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2503  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2504  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2505  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2506  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2507  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2508  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2509  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2510  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2511  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2512  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214028323316*^9},
2513 CellLabel->
2514  "During evaluation of \
2515In[11]:=",ExpressionUUID->"c04d1bfc-ef88-4341-b056-25574b1da1b4"],
2516
2517Cell[BoxData[
2518 InterpretationBox[
2519  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
2520   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
2521    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
2522   "\[InvisibleSpace]", "113", "\[InvisibleSpace]", "\<\" .\"\>"}],
2523  SequenceForm["    - Optimizing: ",
2524   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 113, " ."],
2525  Editable->False]], "Print",
2526 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2527  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2528  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2529  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2530  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2531  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2532  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2533  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2534  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2535  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2536  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214031732518*^9},
2537 CellLabel->
2538  "During evaluation of \
2539In[11]:=",ExpressionUUID->"f58e8ee5-fae5-4fe0-9e2c-66becae9a9ed"],
2540
2541Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
2542 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2543  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2544  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2545  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2546  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2547  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2548  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2549  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2550  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2551  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2552  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140319642887`*^9},
2553 CellLabel->
2554  "During evaluation of \
2555In[11]:=",ExpressionUUID->"9ad08d87-fbe2-4fcf-b9dd-c75d0e8f690d"],
2556
2557Cell[BoxData["\<\"Done!\"\>"], "Print",
2558 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9,
2559  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9,
2560  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9,
2561  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9,
2562  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9,
2563  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9,
2564  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9,
2565  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9,
2566  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9,
2567  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9,
2568  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140326355553`*^9},
2569 CellLabel->
2570  "During evaluation of \
2571In[11]:=",ExpressionUUID->"940f16a5-5a18-4602-88c8-c9a74b219adf"]
2572}, Open  ]]
2573}, Open  ]]
2574}, Open  ]]
2575}, Open  ]]
2576},
2577WindowSize->{674, 652},
2578WindowMargins->{{Automatic, 105}, {-27, Automatic}},
2579FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
2580StyleDefinitions->"Default.nb"
2581]
2582(* End of Notebook Content *)
2583
2584(* Internal cache information *)
2585(*CellTagsOutline
2586CellTagsIndex->{}
2587*)
2588(*CellTagsIndex
2589CellTagsIndex->{}
2590*)
2591(*NotebookFileOutline
2592Notebook[{
2593Cell[558, 20, 199, 3, 28, "Input",ExpressionUUID->"35fb9169-6165-45f2-bb47-d2b5a30fdac3"],
2594Cell[CellGroupData[{
2595Cell[782, 27, 161, 3, 67, "Section",ExpressionUUID->"d3c1a50a-7a32-4ff7-9e5b-f82af6c85fb6"],
2596Cell[CellGroupData[{
2597Cell[968, 34, 568, 10, 86, "Input",ExpressionUUID->"f0518695-6cd4-402e-98f3-cd0a888e3378"],
2598Cell[1539, 46, 4265, 58, 52, "Output",ExpressionUUID->"b0f19208-0c95-4885-b5bd-90dc83ca6599"]
2599}, Open  ]],
2600Cell[CellGroupData[{
2601Cell[5841, 109, 198, 3, 28, "Input",ExpressionUUID->"99a894d2-6aa4-443c-b8a0-97d67849d48a"],
2602Cell[CellGroupData[{
2603Cell[6064, 116, 3797, 54, 22, "Print",ExpressionUUID->"32452b76-43d1-43b0-b85c-5c4fe04243c1"],
2604Cell[9864, 172, 4067, 61, 22, "Print",ExpressionUUID->"514f8a91-04bd-49f8-9983-ff16a621b96a"],
2605Cell[13934, 235, 3846, 55, 22, "Print",ExpressionUUID->"50e09a48-e77f-4316-9e43-d569abdbbd5a"],
2606Cell[17783, 292, 3780, 54, 22, "Print",ExpressionUUID->"3ee1fead-5554-4e6e-996d-5f0f8c61ba2c"],
2607Cell[21566, 348, 3791, 54, 22, "Print",ExpressionUUID->"5d8270a1-ac50-4e39-b6d5-a91604265303"],
2608Cell[25360, 404, 3844, 55, 22, "Print",ExpressionUUID->"3a919dad-d3cb-498d-9db8-d740c52163f5"],
2609Cell[29207, 461, 3842, 55, 22, "Print",ExpressionUUID->"9edc3f9c-4082-4b7b-ade8-66623645dd51"],
2610Cell[33052, 518, 3781, 54, 22, "Print",ExpressionUUID->"c7e969ad-d4d7-44c5-856c-4a4935d8d568"],
2611Cell[36836, 574, 3811, 54, 22, "Print",ExpressionUUID->"3215d37b-1ea4-4917-8ee4-7ae8d60fd052"],
2612Cell[40650, 630, 3781, 54, 22, "Print",ExpressionUUID->"6bd2e081-0001-470a-b726-a90d61a827af"],
2613Cell[44434, 686, 3848, 55, 22, "Print",ExpressionUUID->"41affcc9-c221-4d6a-b22e-355e4978f954"]
2614}, Open  ]]
2615}, Open  ]]
2616}, Open  ]],
2617Cell[CellGroupData[{
2618Cell[48343, 748, 167, 3, 96, "Title",ExpressionUUID->"f94cc9ed-8330-40b3-be25-b202d3edd878"],
2619Cell[CellGroupData[{
2620Cell[48535, 755, 159, 3, 67, "Section",ExpressionUUID->"3c0a92d1-e1ed-45c6-9b66-6871fb2e8bb2"],
2621Cell[CellGroupData[{
2622Cell[48719, 762, 459, 8, 28, "Input",ExpressionUUID->"7ac78549-10ee-41be-9b70-ecfcb38ff72a"],
2623Cell[49181, 772, 479, 6, 52, "Output",ExpressionUUID->"06781cf3-fffb-4f4c-875d-56621aea5985"]
2624}, Open  ]],
2625Cell[CellGroupData[{
2626Cell[49697, 783, 1354, 19, 28, "Input",ExpressionUUID->"842fe880-943f-4306-8db4-ba8ac672cdf8"],
2627Cell[CellGroupData[{
2628Cell[51076, 806, 465, 8, 22, "Print",ExpressionUUID->"07a776cb-8e3a-40b2-aa81-5d7c7254f6b7"],
2629Cell[51544, 816, 483, 8, 22, "Print",ExpressionUUID->"718ac68f-0394-41f2-83a7-3cd96d55e84e"],
2630Cell[52030, 826, 449, 8, 22, "Print",ExpressionUUID->"1a2d2f3a-2bb3-42fd-9de1-9fa3a094a573"],
2631Cell[52482, 836, 589, 12, 22, "Print",ExpressionUUID->"03b3ffa4-fc87-469c-bd77-8f2830e12c7e"],
2632Cell[53074, 850, 491, 9, 22, "Print",ExpressionUUID->"45ac5026-319c-4c26-9791-6b9c339ca6ed"],
2633Cell[53568, 861, 443, 8, 22, "Print",ExpressionUUID->"de7fc3b9-603e-4ba9-90eb-e27f4f41699e"],
2634Cell[54014, 871, 473, 8, 22, "Print",ExpressionUUID->"bb66fac0-327b-4686-b475-34edf56b7065"],
2635Cell[54490, 881, 476, 8, 22, "Print",ExpressionUUID->"3aae46c1-fa3a-47b0-b4e4-b9ac98a4946e"],
2636Cell[54969, 891, 472, 8, 22, "Print",ExpressionUUID->"e00e11e7-25ee-438f-a54f-06e3996063ab"],
2637Cell[55444, 901, 679, 14, 41, "Print",ExpressionUUID->"40a02ad9-d682-43d3-a27f-976c1a5d2a54"]
2638}, Open  ]]
2639}, Open  ]]
2640}, Open  ]],
2641Cell[CellGroupData[{
2642Cell[56184, 922, 218, 4, 67, "Section",ExpressionUUID->"218e265c-8c3e-40d4-a7ce-05631f9cbbdf"],
2643Cell[CellGroupData[{
2644Cell[56427, 930, 177, 2, 28, "Input",ExpressionUUID->"dcc62cca-dcd0-4b6f-9c02-f038d40a4127"],
2645Cell[56607, 934, 4488, 102, 122, "Output",ExpressionUUID->"0e66b283-1b56-45e8-aa93-5104d097628b"]
2646}, Open  ]],
2647Cell[CellGroupData[{
2648Cell[61132, 1041, 176, 2, 28, "Input",ExpressionUUID->"5ae8bf37-7631-4622-84bc-8a13fb413d39"],
2649Cell[61311, 1045, 3905, 102, 175, "Output",ExpressionUUID->"00d55f52-8bf3-4702-a430-52cb964d10e8"]
2650}, Open  ]],
2651Cell[CellGroupData[{
2652Cell[65253, 1152, 404, 6, 28, "Input",ExpressionUUID->"90e0aab2-2f48-48a7-a061-6c154ba92329"],
2653Cell[65660, 1160, 8827, 247, 708, "Output",ExpressionUUID->"7c59a2d1-260e-4813-9633-9baedad97220"]
2654}, Open  ]],
2655Cell[CellGroupData[{
2656Cell[74524, 1412, 215, 3, 28, "Input",ExpressionUUID->"1159c70f-9390-4e41-affc-c016a1695ff5"],
2657Cell[CellGroupData[{
2658Cell[74764, 1419, 1270, 23, 22, "Print",ExpressionUUID->"d37edca3-67af-4c15-b86f-416e9371724f"],
2659Cell[76037, 1444, 1025, 15, 22, "Print",ExpressionUUID->"40610d7c-cbae-45b0-9846-827e2021b08e"],
2660Cell[77065, 1461, 1056, 16, 22, "Print",ExpressionUUID->"a63c17ba-3c96-4dc6-a822-bdc6529c14d1"],
2661Cell[78124, 1479, 1532, 27, 22, "Print",ExpressionUUID->"3fb83c47-fc94-4250-9c76-122e87e80ca0"],
2662Cell[79659, 1508, 1138, 19, 22, "Print",ExpressionUUID->"0a813d16-b8ab-4bcb-9b08-bd8b772cbca0"]
2663}, Open  ]],
2664Cell[80812, 1530, 4887, 133, 145, "Output",ExpressionUUID->"ef9fdd18-ab09-4118-a92a-d51e503beb66"]
2665}, Open  ]],
2666Cell[CellGroupData[{
2667Cell[85736, 1668, 370, 5, 28, "Input",ExpressionUUID->"a8742e42-7437-483f-b943-a4ca55b5b971"],
2668Cell[CellGroupData[{
2669Cell[86131, 1677, 1507, 27, 22, "Print",ExpressionUUID->"4da87593-a37c-416f-afbb-270221b8334f"],
2670Cell[87641, 1706, 1264, 19, 22, "Print",ExpressionUUID->"8178fea3-be60-408b-b4f6-fc1f863f3c0a"],
2671Cell[88908, 1727, 1295, 20, 22, "Print",ExpressionUUID->"637d031c-8a95-4608-b0f0-ac21dbc77847"],
2672Cell[90206, 1749, 1771, 31, 22, "Print",ExpressionUUID->"42bf05c8-356f-4723-94cf-e1bf429c2681"],
2673Cell[91980, 1782, 1377, 23, 22, "Print",ExpressionUUID->"8c1e3868-3e52-4936-b50f-6e4677010ff6"]
2674}, Open  ]],
2675Cell[93372, 1808, 8605, 223, 182, "Output",ExpressionUUID->"6ead2a79-d6ca-4c87-85cd-afd65367f4f1"]
2676}, Open  ]],
2677Cell[CellGroupData[{
2678Cell[102014, 2036, 309, 5, 28, "Input",ExpressionUUID->"8c54b549-72be-47d1-aff9-d38857f578dc"],
2679Cell[CellGroupData[{
2680Cell[102348, 2045, 792, 17, 22, "Print",ExpressionUUID->"09955134-be66-4c6e-b845-bab065c2b989"],
2681Cell[103143, 2064, 547, 9, 22, "Print",ExpressionUUID->"35fa9836-d05a-49dd-b724-dae8cdf1b5ec"],
2682Cell[103693, 2075, 731, 14, 22, "Print",ExpressionUUID->"04bc99a0-7df9-4d1a-b968-e81f92eade9a"],
2683Cell[104427, 2091, 582, 10, 22, "Print",ExpressionUUID->"b79ba44d-8477-4239-9fa9-327c7afc73b5"],
2684Cell[105012, 2103, 1063, 21, 41, "Print",ExpressionUUID->"ff7d65a8-0f0c-46c7-b242-6e53eb2ffa7f"],
2685Cell[106078, 2126, 664, 13, 22, "Print",ExpressionUUID->"1d964e75-ab19-459e-8613-5c1cdfee292f"]
2686}, Open  ]]
2687}, Open  ]]
2688}, Open  ]],
2689Cell[CellGroupData[{
2690Cell[106803, 2146, 175, 3, 67, "Section",ExpressionUUID->"e1654e2f-f511-4bf1-9a49-f8cca4af45c3"],
2691Cell[CellGroupData[{
2692Cell[107003, 2153, 460, 7, 28, "Input",ExpressionUUID->"348a8e5d-4734-4aaa-9dc8-679dbf7b5093"],
2693Cell[CellGroupData[{
2694Cell[107488, 2164, 969, 15, 22, "Print",ExpressionUUID->"976f0759-89be-4a8a-87a0-95698bb6ecea"],
2695Cell[108460, 2181, 1192, 22, 22, "Print",ExpressionUUID->"1b19db9b-ad87-4836-a9d3-04ebedb7f186"],
2696Cell[109655, 2205, 947, 14, 22, "Print",ExpressionUUID->"90f35811-0b69-4400-9524-5398fe064dfa"],
2697Cell[110605, 2221, 1129, 19, 22, "Print",ExpressionUUID->"0bdec706-03b3-4598-a425-763afce5fd53"],
2698Cell[111737, 2242, 982, 15, 22, "Print",ExpressionUUID->"82472fbd-a3a6-4b36-9f15-c3afef7b365a"],
2699Cell[112722, 2259, 1463, 26, 41, "Print",ExpressionUUID->"6ce9dbe3-b79a-4b91-8526-a4281b95ce78"],
2700Cell[114188, 2287, 1064, 18, 22, "Print",ExpressionUUID->"f596fde5-9fb3-4ed2-9c18-e661e1071d7d"],
2701Cell[115255, 2307, 1293, 22, 22, "Print",ExpressionUUID->"6e72916d-05c2-4439-8b52-93b430fe7472"],
2702Cell[116551, 2331, 961, 14, 22, "Print",ExpressionUUID->"f6b04e63-d8f3-4893-b778-3e0d9a6d99f1"],
2703Cell[117515, 2347, 1230, 23, 22, "Print",ExpressionUUID->"7c8e2dc0-55bd-4b98-90db-7c13d017d016"],
2704Cell[118748, 2372, 1182, 22, 22, "Print",ExpressionUUID->"cbc2835b-56f3-46a3-8eb3-4481a9a0655f"],
2705Cell[119933, 2396, 1162, 19, 22, "Print",ExpressionUUID->"df9dd602-7e6f-4a36-9b09-ff65e23417df"],
2706Cell[121098, 2417, 1186, 22, 22, "Print",ExpressionUUID->"b5a74225-41a7-4dcc-9bc6-188eac1d41fc"],
2707Cell[122287, 2441, 1146, 19, 22, "Print",ExpressionUUID->"32c20ee6-8d25-409e-bad9-3b24e49c7779"],
2708Cell[123436, 2462, 944, 14, 22, "Print",ExpressionUUID->"9b53d977-7f69-4f25-a8d2-36c7d63a4bd4"],
2709Cell[124383, 2478, 968, 15, 22, "Print",ExpressionUUID->"c558916e-effd-416a-a864-21758d06a691"],
2710Cell[125354, 2495, 1159, 19, 22, "Print",ExpressionUUID->"c04d1bfc-ef88-4341-b056-25574b1da1b4"],
2711Cell[126516, 2516, 1318, 22, 22, "Print",ExpressionUUID->"f58e8ee5-fae5-4fe0-9e2c-66becae9a9ed"],
2712Cell[127837, 2540, 942, 14, 22, "Print",ExpressionUUID->"9ad08d87-fbe2-4fcf-b9dd-c75d0e8f690d"],
2713Cell[128782, 2556, 927, 14, 22, "Print",ExpressionUUID->"940f16a5-5a18-4602-88c8-c9a74b219adf"]
2714}, Open  ]]
2715}, Open  ]]
2716}, Open  ]]
2717}, Open  ]]
2718}
2719]
2720*)
2721