(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    138488,       2713]
NotebookOptionsPosition[    129761,       2576]
NotebookOutlinePosition[    130105,       2591]
CellTagsIndexPosition[    130062,       2588]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Quit", "[", "]"}]], "Input",
 CellChangeTimes->{{3.4921467751527157`*^9, 3.492146776183146*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"35fb9169-6165-45f2-bb47-d2b5a30fdac3"],

Cell[CellGroupData[{

Cell["Load Feynrules", "Section",
 CellChangeTimes->{{3.7101820508363366`*^9, 
  3.710182056146993*^9}},ExpressionUUID->"d3c1a50a-7a32-4ff7-9e5b-\
f82af6c85fb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"$FeynRulesPath", "=", 
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research with \
Yu\\\\Leptoquark_Models\\\\feynrules-current\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.41265862251538*^9, 3.412658649947229*^9}, {
  3.423415585782702*^9, 3.423415597189939*^9}, {3.4234163173467493`*^9, 
  3.4234163227881193`*^9}, {3.7090007559382133`*^9, 3.7090007919104977`*^9}, {
  3.709000903039165*^9, 3.70900090377494*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f0518695-6cd4-402e-98f3-cd0a888e3378"],

Cell[BoxData["\<\"C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research \
with Yu\\\\Leptoquark_Models\\\\feynrules-current\"\>"], "Output",
 CellChangeTimes->{
  3.7090007988933597`*^9, 3.7090009049111643`*^9, 3.709002757182743*^9, 
   3.7090028541370153`*^9, 3.709046479007363*^9, 3.7095635088808727`*^9, 
   3.7095635937246113`*^9, 3.709606834438501*^9, 3.7099108244300857`*^9, 
   3.709953245493742*^9, 3.7100000947474627`*^9, 3.710018048796711*^9, 
   3.7100194144694424`*^9, 3.7101045019109755`*^9, 3.710104614002838*^9, 
   3.7101047191195784`*^9, 3.7101048841920485`*^9, 3.7101740382172933`*^9, 
   3.71018206536942*^9, 3.710213462483958*^9, 3.7102139088774676`*^9, 
   3.7102140167081594`*^9, 3.710214596476961*^9, 3.710215191172785*^9, 
   3.7102154105680304`*^9, 3.7102155077197137`*^9, 3.710215757438155*^9, 
   3.710216261440168*^9, 3.7102162971387486`*^9, 3.7102166166124625`*^9, 
   3.7107150952436256`*^9, 3.710715387862335*^9, 3.7107154432635236`*^9, 
   3.710715593975668*^9, 3.710715738134115*^9, 3.710715798335558*^9, 
   3.71071588408706*^9, 3.7107162282491426`*^9, 3.7107165196272526`*^9, 
   3.7107165993561373`*^9, 3.710716663868831*^9, 3.710716869316869*^9, 
   3.7107171893172607`*^9, 3.710717259112995*^9, 3.710717829988202*^9, 
   3.7107183367135572`*^9, 3.7107184049821177`*^9, 3.710718444161071*^9, 
   3.7107186149690714`*^9, 3.710718703374365*^9, 3.710718901283065*^9, 
   3.710758780589957*^9, 3.7107592747016897`*^9, 3.710760223763931*^9, 
   3.710761183295255*^9, 3.710772140242649*^9, 3.7107723457670207`*^9, 
   3.7107723910199113`*^9, 3.7107725979889345`*^9, 3.7107728934481955`*^9, {
   3.710773052648634*^9, 3.7107730721894684`*^9}, 3.710773148619192*^9, 
   3.710773259988822*^9, 3.7107734056399174`*^9, 3.710773607412631*^9, 
   3.7107739130636716`*^9, 3.710774550405507*^9, 3.7107763360092754`*^9, 
   3.71077813526503*^9, 3.7107783239234753`*^9, 3.710843558838518*^9, 
   3.7108451225677023`*^9, 3.7113000908265576`*^9, 3.711300219168351*^9, 
   3.711300274785056*^9, 3.7113005157052546`*^9, 3.7113014382107973`*^9, 
   3.711315756872567*^9, 3.711315833078271*^9, 3.7113160180672655`*^9, 
   3.711320707125144*^9, 3.711328526633577*^9, 3.7113286701454544`*^9, 
   3.7113287041379457`*^9, 3.7113296753640003`*^9, 3.711367876039989*^9, 
   3.7113679806143026`*^9, 3.7113680350102673`*^9, 3.7113682079746284`*^9, 
   3.7113683872808332`*^9, 3.711377614540615*^9, 3.711377786755968*^9, 
   3.7113780273107767`*^9, 3.7113781614598265`*^9, 3.7113784559053173`*^9, 
   3.7113785403040285`*^9, 3.711378924927848*^9, 3.711379021723223*^9, 
   3.7113791575951433`*^9, 3.7113801344601483`*^9, 3.711380211848833*^9, 
   3.7113808523842278`*^9, 3.7113811853791018`*^9, 3.7113812307246733`*^9, 
   3.7113812891933928`*^9, 3.711381393012928*^9, 3.7113821466520147`*^9, 
   3.7113823115545673`*^9, 3.7114109884359164`*^9, 3.71141168369543*^9, 
   3.7114220743177547`*^9, 3.7114223359718814`*^9, 3.711422457779241*^9, 
   3.7114225926953883`*^9, 3.7114227387630377`*^9, 3.7114228546720862`*^9, 
   3.7114229171101823`*^9, 3.711423356904958*^9, 3.711423621093189*^9, 
   3.711423888094798*^9, 3.7114706459176445`*^9, 3.7114708239904947`*^9, 
   3.711471069228612*^9, 3.711718745316383*^9, 3.711733871064354*^9, 
   3.714779009142174*^9, 3.727754416726856*^9, 3.727754531305581*^9, 
   3.7278345262496915`*^9, 3.727834779912624*^9, 3.728801631348674*^9, 
   3.7288176752659464`*^9, 3.728831849714325*^9, 3.7288319300216637`*^9, 
   3.728832053883459*^9, 3.728832483933361*^9, 3.7288325371883974`*^9, 
   3.7288326123773785`*^9, 3.7288326804096785`*^9, 3.7288327417268915`*^9, 
   3.7288332179772673`*^9, 3.7288334922701693`*^9, 3.7288336099419317`*^9, 
   3.728833688191868*^9, 3.728833868207281*^9, 3.728834302726115*^9, 
   3.728834589918804*^9, 3.7288347687389307`*^9, 3.728835380285824*^9, 
   3.7313925413957744`*^9, 3.731635089081555*^9, 3.731643259143752*^9, 
   3.7316434077853003`*^9, 3.734257003793642*^9, 3.7342574454838624`*^9, 
   3.7342577083908997`*^9, 3.7342579704005966`*^9, 3.734258073886767*^9, 
   3.73425822628549*^9, 3.745205743610037*^9, 3.7452059875200534`*^9, 
   3.745206110135985*^9, 3.745206823102724*^9, 3.7452138982903147`*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"b0f19208-0c95-4885-b5bd-90dc83ca6599"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"<<", "FeynRules`"}]], "Input",
 CellChangeTimes->{{3.547535564344927*^9, 3.547535564971527*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"99a894d2-6aa4-443c-b8a0-97d67849d48a"],

Cell[CellGroupData[{

Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.7452138989200253`*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"32452b76-43d1-43b0-b85c-5c4fe04243c1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.29\"\>", 
   "\[InvisibleSpace]", 
   RowBox[{"\<\" (\"\>", " ", "\<\"06 July 2017\"\>"}], 
   "\[InvisibleSpace]", "\<\").\"\>"}],
  SequenceForm["Version: ", "2.3.29", " (" "06 July 2017", ")."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.74521389893565*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"514f8a91-04bd-49f8-9983-ff16a621b96a"],

Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
B. Fuks\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.74521389893966*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"50e09a48-e77f-4316-9e43-d569abdbbd5a"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.74521389893966*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"3ee1fead-5554-4e6e-996d-5f0f8c61ba2c"],

Cell[BoxData["\<\"Please cite:\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.74521389893966*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"5d8270a1-ac50-4e39-b6d5-a91604265303"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
(arXiv:1310.1921);\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.745213898955291*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"3a919dad-d3cb-498d-9db8-d740c52163f5"],

Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
(arXiv:0806.4194).\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.7452138989578*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"9edc3f9c-4082-4b7b-ade8-66623645dd51"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.745213899020301*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"c7e969ad-d4d7-44c5-856c-4a4935d8d568"],

Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.745213899020301*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"3215d37b-1ea4-4917-8ee4-7ae8d60fd052"],

Cell[BoxData["\<\" \"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.745213899020301*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"6bd2e081-0001-470a-b726-a90d61a827af"],

Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
FRPalette[].\"\>"], "Print",
 CellChangeTimes->{
  3.7101047223702517`*^9, 3.7101048902589264`*^9, 3.7101740388074245`*^9, 
   3.7101820654994287`*^9, 3.7102134626589947`*^9, 3.7102139091276107`*^9, 
   3.710214016833184*^9, 3.7102145966069865`*^9, 3.7102151913028107`*^9, 
   3.7102154108430834`*^9, 3.710215507879747*^9, 3.710215757563178*^9, 
   3.7102162615801964`*^9, 3.710216297408803*^9, 3.710216616732487*^9, 
   3.7107150954486666`*^9, 3.7107153880423737`*^9, 3.710715443363544*^9, 
   3.7107155940806684`*^9, 3.71071573823912*^9, 3.71071579843057*^9, 
   3.7107158842620807`*^9, 3.7107162283425035`*^9, 3.710716519727272*^9, 
   3.7107165994561405`*^9, 3.710716663968853*^9, 3.7107168694068875`*^9, 
   3.7107171894322653`*^9, 3.710717259218348*^9, 3.7107178300982428`*^9, 
   3.7107183368185787`*^9, 3.710718405072132*^9, 3.7107184442760944`*^9, 
   3.7107186156742115`*^9, 3.71071870349939*^9, 3.710718901383087*^9, 
   3.710758780719983*^9, 3.710759274796708*^9, 3.7107602241039953`*^9, 
   3.710761183648739*^9, 3.7107721404596467`*^9, 3.710772345852022*^9, 
   3.7107723913399715`*^9, 3.7107725980901165`*^9, 3.7107728935882206`*^9, {
   3.7107730527436533`*^9, 3.710773072289486*^9}, 3.7107731487142096`*^9, 
   3.7107732600776386`*^9, 3.7107734057619085`*^9, 3.7107736075426583`*^9, 
   3.710773913148673*^9, 3.7107745504955244`*^9, 3.710776336119282*^9, 
   3.710778135430046*^9, 3.7107783240534663`*^9, 3.7108435590335393`*^9, 
   3.710845122724235*^9, 3.7113000910566015`*^9, 3.7113002192783732`*^9, 
   3.711300274885126*^9, 3.7113005157952747`*^9, 3.711301438380816*^9, 
   3.7113157574840555`*^9, 3.7113158497147255`*^9, 3.711316018167286*^9, 
   3.711320707325183*^9, 3.711328526808626*^9, 3.711328670260462*^9, 
   3.7113287042479687`*^9, 3.711329675469021*^9, 3.711367876368185*^9, 
   3.711367980719307*^9, 3.711368035135292*^9, 3.7113682080796504`*^9, 
   3.711368387410859*^9, 3.711377614700598*^9, 3.711377786895996*^9, 
   3.711378027425785*^9, 3.711378161589856*^9, 3.7113784560503283`*^9, 
   3.71137854042912*^9, 3.7113789250428705`*^9, 3.711379021903257*^9, 
   3.7113791577001605`*^9, 3.7113801345754347`*^9, 3.711380214154272*^9, 
   3.711380852509256*^9, 3.7113811854841204`*^9, 3.711381230824678*^9, 
   3.71138128928841*^9, 3.7113813933479986`*^9, 3.711382146828144*^9, 
   3.711382311654971*^9, 3.711410988717021*^9, 3.7114116845368824`*^9, 
   3.711422074532405*^9, 3.7114223360869427`*^9, 3.7114224579082313`*^9, 
   3.7114225927954445`*^9, 3.7114227388685703`*^9, 3.7114228547821307`*^9, 
   3.7114229172202444`*^9, 3.7114233570155144`*^9, 3.711423621198264*^9, 
   3.711423888214839*^9, 3.711470646092678*^9, 3.711470824375555*^9, 
   3.7114710693435965`*^9, 3.7117187482469654`*^9, 3.7117338716444683`*^9, 
   3.714779012659619*^9, 3.7277544174269915`*^9, 3.7277545442960863`*^9, 
   3.727834563903821*^9, 3.727834780320803*^9, 3.728801631553663*^9, 
   3.728817675542366*^9, 3.7288318501393943`*^9, 3.7288319301266727`*^9, 
   3.728832054008481*^9, 3.728832484388434*^9, 3.7288325373677316`*^9, 
   3.7288326124773965`*^9, 3.728832680504695*^9, 3.728832742057358*^9, 
   3.7288332181172967`*^9, 3.728833492390175*^9, 3.7288336100369325`*^9, 
   3.728833688506276*^9, 3.7288338683273053`*^9, 3.728834303149663*^9, 
   3.728834590043825*^9, 3.728834768828949*^9, 3.7288353806458983`*^9, 
   3.731392541654812*^9, 3.731635092618065*^9, 3.7316432606438*^9, 
   3.7316434082336216`*^9, 3.7342574559076395`*^9, 3.734257727930956*^9, 
   3.7342579708449965`*^9, 3.7342580881344748`*^9, 3.734258226696579*^9, 
   3.7452057440031114`*^9, 3.7452059880057755`*^9, 3.745206110296891*^9, 
   3.745206832644657*^9, 3.745213899020301*^9},
 CellLabel->
  "During evaluation of \
In[2]:=",ExpressionUUID->"41affcc9-c221-4d6a-b22e-355e4978f954"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The Leptoquark Model", "Title",
 CellChangeTimes->{{3.7096075210997148`*^9, 
  3.7096075284782085`*^9}},ExpressionUUID->"f94cc9ed-8330-40b3-be25-\
b202d3edd878"],

Cell[CellGroupData[{

Cell["Load Model", "Section",
 CellChangeTimes->{{3.7107178481081667`*^9, 
  3.7107178587195625`*^9}},ExpressionUUID->"3c0a92d1-e1ed-45c6-9b66-\
6871fb2e8bb2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetDirectory", "[", 
  RowBox[{"$FeynRulesPath", "<>", "\"\</Models/LeptoQuark/1.5TeVLQ\>\""}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.419073170860696*^9, 3.419073182827229*^9}, 
   3.709001016568925*^9, {3.7096080278578*^9, 3.7096080358659167`*^9}, {
   3.734257662039132*^9, 3.7342576698115473`*^9}, {3.745206045962655*^9, 
   3.7452060464064007`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"7ac78549-10ee-41be-9b70-ecfcb38ff72a"],

Cell[BoxData["\<\"C:\\\\Users\\\\Joyroy15\\\\Desktop\\\\Research\\\\Research \
with Yu\\\\Leptoquark_Models\\\\feynrules-current\\\\Models\\\\LeptoQuark\\\\\
1.5TeVLQ\"\>"], "Output",
 CellChangeTimes->{3.7452057774561014`*^9, 3.7452059397003827`*^9, 
  3.7452059996411285`*^9, 3.7452060488200417`*^9, 3.7452060831973767`*^9, 
  3.7452061283485727`*^9, 3.7452068414974327`*^9, 3.7452139296716375`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"06781cf3-fffb-4f4c-875d-56621aea5985"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LoadModel", "[", 
  RowBox[{"\"\<SM.fr\>\"", ",", "\"\<1.5TeVLQModel.fr\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.4022069973481913`*^9, 3.402207011768662*^9}, 
   3.4022081212072697`*^9, {3.402208250379383*^9, 3.402208254043104*^9}, 
   3.4027466057480917`*^9, {3.403240270135737*^9, 3.403240277228945*^9}, 
   3.403266503388291*^9, {3.403267649630335*^9, 3.40326765417397*^9}, {
   3.403269919787421*^9, 3.403269921965273*^9}, {3.403347551273425*^9, 
   3.403347555049163*^9}, 3.4044490490588417`*^9, {3.411744339876704*^9, 
   3.411744340012457*^9}, {3.4121886924550533`*^9, 3.412188699157571*^9}, 
   3.412188808811866*^9, 3.4121888580521603`*^9, {3.412450464077868*^9, 
   3.412450464378695*^9}, {3.413715097460478*^9, 3.41371509757642*^9}, {
   3.41440825334604*^9, 3.414408254159686*^9}, {3.41862573831756*^9, 
   3.4186257392223186`*^9}, {3.4190731862389174`*^9, 3.419073187003003*^9}, {
   3.419073336802393*^9, 3.4190733374513063`*^9}, {3.4190828041801767`*^9, 
   3.4190828048079023`*^9}, 3.542453089813714*^9, 3.547534567644828*^9, {
   3.7096076691299367`*^9, 3.709607672055648*^9}, {3.709911299201873*^9, 
   3.7099113058929944`*^9}, 3.7342571106785393`*^9, 3.734257325986532*^9, {
   3.7452054843029385`*^9, 3.7452054851355467`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"842fe880-943f-4306-8db4-ba8ac672cdf8"],

Cell[CellGroupData[{

Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139456924653`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"07a776cb-8e3a-40b2-aa81-5d7c7254f6b7"],

Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139456924653`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"718ac68f-0394-41f2-83a7-3cd96d55e84e"],

Cell[BoxData["\<\"J. Roy\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139457080927`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"1a2d2f3a-2bb3-42fd-9de1-9fa3a094a573"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
  SequenceForm["Model Version: ", "1.0"],
  Editable->False]], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139457080927`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"03b3ffa4-fc87-469c-bd77-8f2830e12c7e"],

Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
"Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139457080927`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"45ac5026-319c-4c26-9791-6b9c339ca6ed"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139457080927`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"de7fc3b9-603e-4ba9-90eb-e27f4f41699e"],

Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139457080927`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"bb66fac0-327b-4686-b475-34edf56b7065"],

Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139458396473`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"3aae46c1-fa3a-47b0-b4e4-b9ac98a4946e"],

Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.745213945861763*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"e00e11e7-25ee-438f-a54f-06e3996063ab"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\\nModel \"\>", 
   "\[InvisibleSpace]", "\<\"1.5 TeV Leptoquark Model\"\>", 
   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
  SequenceForm["\nModel ", "1.5 TeV Leptoquark Model", " loaded."],
  Editable->False]], "Print",
 CellChangeTimes->{3.734257478863845*^9, 3.7342577350649037`*^9, 
  3.734258093109705*^9, 3.734258230623472*^9, 3.745205830748646*^9, 
  3.7452059454191127`*^9, 3.7452060044104004`*^9, 3.7452060608861265`*^9, 
  3.74520610002676*^9, 3.745206131703656*^9, 3.745206842446583*^9, 
  3.7452139460245314`*^9},
 CellLabel->
  "During evaluation of \
In[4]:=",ExpressionUUID->"40a02ad9-d682-43d3-a27f-976c1a5d2a54"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Additional Feynman rules", "Section",
 CellChangeTimes->{{3.518892294504589*^9, 3.518892300256538*^9}, {
  3.710176124355085*^9, 
  3.710176147375454*^9}},ExpressionUUID->"218e265c-8c3e-40d4-a7ce-\
05631f9cbbdf"],

Cell[CellGroupData[{

Cell[BoxData["LLQ"], "Input",
 CellChangeTimes->{{3.7099543760288477`*^9, 3.7099543797053165`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"dcc62cca-dcd0-4b6f-9c02-f038d40a4127"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox[
    SubscriptBox["C", "LQ"], 
    RowBox[{"ff1", ",", "ff2"}]], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox[
        OverscriptBox["dq", "\<\"-\"\>"], 
        RowBox[{"sp1", ",", "ff1", ",", "aa"}]], ".", 
       SubscriptBox["l", 
        RowBox[{"sp2", ",", "ff2"}]]}], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]","mu"},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{"sp1", ",", "sp2"}]]}], "+", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        OverscriptBox["uq", "\<\"-\"\>"], 
        RowBox[{"sp1", ",", "ff1", ",", "aa"}]], ".", 
       SubscriptBox["vl", 
        RowBox[{"sp2", ",", "ff2"}]]}], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]","mu"},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{"sp1", ",", "sp2"}]]}]}], ")"}], ".", 
   SubscriptBox["LtQk", 
    RowBox[{"mu", ",", "aa"}]]}], "+", 
  RowBox[{
   SubsuperscriptBox["LtQk", 
    RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox[
        OverscriptBox["l", "\<\"-\"\>"], 
        RowBox[{"r$3421", ",", "ff2"}]], ".", 
       SubscriptBox["dq", 
        RowBox[{"r$3422", ",", "ff1", ",", "aa"}]]}], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]","mu"},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{"r$3421", ",", "r$3422"}]]}], "+", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        OverscriptBox["vl", "\<\"-\"\>"], 
        RowBox[{"r$3423", ",", "ff2"}]], ".", 
       SubscriptBox["uq", 
        RowBox[{"r$3424", ",", "ff1", ",", "aa"}]]}], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]","mu"},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{"r$3423", ",", "r$3424"}]]}]}], ")"}], ".", 
   SubscriptBox[
    SubscriptBox["C", "LQ"], 
    RowBox[{"ff1", ",", "ff2"}]]}]}]], "Output",
 CellChangeTimes->{
  3.7099543822972746`*^9, 3.710000124694659*^9, 3.710018108452047*^9, 
   3.7100194536518025`*^9, 3.710104582601265*^9, 3.710104675639188*^9, 
   3.710104905317482*^9, {3.7101740756467285`*^9, 3.710174089078467*^9}, 
   3.7101820747599745`*^9, {3.7101821093412466`*^9, 3.7101821169518633`*^9}, 
   3.7102134810606318`*^9, 3.7102135203531127`*^9, 3.7102140420054126`*^9, 
   3.710214660490622*^9, 3.710215214152623*^9, 3.710215435459756*^9, 
   3.7102155300456705`*^9, 3.710216345027583*^9, 3.7102166603108025`*^9, 
   3.7107158242274294`*^9, 3.710715898199094*^9, 3.7107162422972555`*^9, 
   3.710716532422307*^9, 3.710716674799245*^9, 3.710716888103088*^9, 
   3.7107172017746305`*^9, 3.7107172718036566`*^9, 3.7107178759998293`*^9, 
   3.710718347948429*^9, 3.7107184563015594`*^9, 3.710718623582868*^9, 
   3.710718714500655*^9, 3.710718911843858*^9, 3.7107588016980352`*^9, 
   3.7107592872840824`*^9, 3.7107602366505904`*^9, 3.710761191859598*^9, 
   3.710772159279621*^9, 3.7107726079463205`*^9, 3.7107729035258055`*^9, 
   3.710773079887212*^9, 3.7107731619999013`*^9, 3.7107732685709457`*^9, 
   3.7107734168774776`*^9, 3.7107736276519313`*^9, 3.7107739272265453`*^9, 
   3.710774560810104*^9, 3.7107763452014513`*^9, 3.7107781497053823`*^9, 
   3.7107783547988863`*^9, 3.710843578530382*^9, 3.7108451392370267`*^9, 
   3.7113002384617214`*^9, 3.711300286282915*^9, 3.7113005284516373`*^9, 
   3.711301476788836*^9, 3.711315932256013*^9, 3.7113287133868694`*^9, 
   3.7113296908101377`*^9, 3.711368221558215*^9, 3.7113778025921965`*^9, 
   3.7113801447052307`*^9, 3.7113802217925625`*^9, 3.711381210325421*^9, 
   3.7114229324796133`*^9, 3.711423903524974*^9, 3.7117187685716248`*^9, 
   3.711733908484167*^9, 3.714779038049245*^9, 3.7277545615837145`*^9, 
   3.7278345855529275`*^9, 3.7278347987660885`*^9, 3.728801650885491*^9, 
   3.7288176989812016`*^9, 3.728835385106996*^9, 3.731392575043318*^9, 
   3.731635120607944*^9, 3.7316432706789255`*^9, 3.7316434934671974`*^9, 
   3.7342574873746734`*^9, 3.734257740425616*^9, {3.7342579760006638`*^9, 
   3.7342579990034637`*^9}, 3.73425809871819*^9, 3.7342582312164774`*^9, 
   3.7342582999898114`*^9, 3.745206145399847*^9, 3.7452068430325823`*^9, 
   3.745213300205385*^9, 3.745213946178269*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"0e66b283-1b56-45e8-aa93-5104d097628b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["LLQqcd"], "Input",
 CellChangeTimes->{3.711733933162474*^9, 3.7277545663458595`*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"5ae8bf37-7631-4622-84bc-8a13fb413d39"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["MLQ", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "cc1"}], "\[Dagger]"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
        SubscriptBox["G", 
         RowBox[{"mu", ",", "aa"}]], "]"}]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
       SubscriptBox["G", 
        RowBox[{"nu", ",", "aa"}]], "]"}], "+", 
      RowBox[{
       SubscriptBox["g", "s"], " ", 
       SubscriptBox["f", 
        RowBox[{"aa", ",", "bb$3430", ",", "cc$3430"}]], " ", 
       SubscriptBox["G", 
        RowBox[{"mu", ",", "bb$3430"}]], " ", 
       SubscriptBox["G", 
        RowBox[{"nu", ",", "cc$3430"}]]}]}], ")"}], ".", 
    SubsuperscriptBox["T", 
     RowBox[{"cc1", ",", "cc2"}], "aa"], ".", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "cc2"}]]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
       SubsuperscriptBox["LtQk", 
        RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
      SubsuperscriptBox["LtQk", 
       RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["g", "s"], " ", 
      SubscriptBox["G", 
       RowBox[{"mu", ",", "a$3426"}]], " ", 
      SubsuperscriptBox["LtQk", 
       RowBox[{"nu", ",", "i$3426"}], "\[Dagger]"], " ", 
      SubsuperscriptBox["T", 
       RowBox[{"i$3426", ",", "aa"}], "a$3426"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["g", "s"], " ", 
      SubscriptBox["G", 
       RowBox[{"nu", ",", "a$3427"}]], " ", 
      SubsuperscriptBox["LtQk", 
       RowBox[{"mu", ",", "i$3427"}], "\[Dagger]"], " ", 
      SubsuperscriptBox["T", 
       RowBox[{"i$3427", ",", "aa"}], "a$3427"]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
       SubscriptBox["LtQk", 
        RowBox[{"mu", ",", "aa"}]], "]"}]}], "+", 
     RowBox[{
      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
      SubscriptBox["LtQk", 
       RowBox[{"nu", ",", "aa"}]], "]"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["g", "s"], " ", 
      SubscriptBox["G", 
       RowBox[{"mu", ",", "a$3428"}]], " ", 
      SubscriptBox["LtQk", 
       RowBox[{"nu", ",", "i$3428"}]], " ", 
      SubsuperscriptBox["T", 
       RowBox[{"aa", ",", "i$3428"}], "a$3428"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["g", "s"], " ", 
      SubscriptBox["G", 
       RowBox[{"nu", ",", "a$3429"}]], " ", 
      SubscriptBox["LtQk", 
       RowBox[{"mu", ",", "i$3429"}]], " ", 
      SubsuperscriptBox["T", 
       RowBox[{"aa", ",", "i$3429"}], "a$3429"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7288326935566297`*^9, 3.7288327072716684`*^9}, 
   3.728832750905893*^9, 3.728833229634508*^9, 3.7288335072354107`*^9, 
   3.7288336953233695`*^9, 3.728833879361171*^9, 3.7288343109499145`*^9, 
   3.728834600899084*^9, 3.7288347979858775`*^9, 3.7288353851320167`*^9, 
   3.731635120686998*^9, 3.731643270816023*^9, 3.7316434936142983`*^9, 
   3.734257487498803*^9, 3.7342577405537167`*^9, 3.734257976032915*^9, 
   3.734258098950385*^9, 3.7342582312656*^9, 3.7342583000317*^9, 
   3.74520614553675*^9, 3.7452068430703354`*^9, 3.745213310749683*^9, 
   3.745213946209465*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"00d55f52-8bf3-4702-a430-52cb964d10e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "LLQqcd", "]"}]], "Input",
 CellChangeTimes->{{3.711300288388316*^9, 3.7113002926393137`*^9}, {
   3.711367903561936*^9, 3.7113679100687*^9}, {3.711377809318362*^9, 
   3.7113778119448533`*^9}, {3.711411594626872*^9, 3.711411599352292*^9}, 
   3.711733927666424*^9, 3.727754585065027*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"90e0aab2-2f48-48a7-a061-6c154ba92329"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}]], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}]], "]"}], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}]}], "+", 
  RowBox[{
   SuperscriptBox["MLQ", "2"], " ", 
   RowBox[{
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], ".", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "cc1"}], "\[Dagger]"], ".", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
        SubscriptBox["G", 
         RowBox[{"mu", ",", "aa"}]], "]"}]}], "+", 
      RowBox[{
       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
       SubscriptBox["G", 
        RowBox[{"nu", ",", "aa"}]], "]"}], "+", 
      RowBox[{
       SubscriptBox["g", "s"], " ", 
       SubscriptBox["f", 
        RowBox[{"aa", ",", "bb$3435", ",", "cc$3435"}]], " ", 
       SubscriptBox["G", 
        RowBox[{"mu", ",", "bb$3435"}]], " ", 
       SubscriptBox["G", 
        RowBox[{"nu", ",", "cc$3435"}]]}]}], ")"}], ".", 
    SubsuperscriptBox["T", 
     RowBox[{"cc1", ",", "cc2"}], "aa"], ".", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "cc2"}]]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3431"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3431", ",", "aa"}], "a$3431"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}]], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3431"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3431", ",", "aa"}], "a$3431"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}]], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3432"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3432", ",", "aa"}], "a$3432"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}]], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3432"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3432", ",", "aa"}], "a$3432"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3433"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3433"}]], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3433"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3433"}]], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3431"}]], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3433"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3433"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3431", ",", "aa"}], "a$3431"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3433"}]], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3432"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3433"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3432", ",", "aa"}], "a$3432"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3433"}], "a$3433"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "nu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"mu", ",", "aa"}], "\[Dagger]"], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3434"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3434"}]], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", 
   SubscriptBox["g", "s"], " ", 
   RowBox[{
    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", 
    SubsuperscriptBox["LtQk", 
     RowBox[{"nu", ",", "aa"}], "\[Dagger]"], "]"}], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3434"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3434"}]], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["G", 
    RowBox[{"mu", ",", "a$3431"}]], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3434"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3434"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"nu", ",", "i$3431"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3431", ",", "aa"}], "a$3431"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   SubsuperscriptBox["g", "s", "2"], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3432"}]], " ", 
   SubscriptBox["G", 
    RowBox[{"nu", ",", "a$3434"}]], " ", 
   SubscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3434"}]], " ", 
   SubsuperscriptBox["LtQk", 
    RowBox[{"mu", ",", "i$3432"}], "\[Dagger]"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"i$3432", ",", "aa"}], "a$3432"], " ", 
   SubsuperscriptBox["T", 
    RowBox[{"aa", ",", "i$3434"}], "a$3434"]}]}]], "Output",
 CellChangeTimes->{3.728834919257449*^9, 3.7288353852020288`*^9, 
  3.7316351208110905`*^9, 3.7316432708910823`*^9, 3.7316434936763425`*^9, 
  3.734257487546836*^9, 3.7342577406357794`*^9, 3.7342579760659313`*^9, 
  3.734258098999922*^9, 3.734258231312629*^9, 3.73425830008674*^9, 
  3.7452061456237006`*^9, 3.7452068431015844`*^9, 3.745213311466691*^9, 
  3.745213946262839*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"7c59a2d1-260e-4813-9633-9baedad97220"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynmanRules", "[", "LLQ", "]"}]], "Input",
 CellChangeTimes->{{3.7107763476721935`*^9, 3.7107763532523384`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"1159c70f-9390-4e41-affc-c016a1695ff5"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9, 
  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9, 
  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9, 
  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9, 
  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9, 
  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9, 
  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9, 
  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9, 
  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9, 
  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9, 
  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9, 
  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139465949097`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"d37edca3-67af-4c15-b86f-416e9371724f"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9, 
  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9, 
  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9, 
  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9, 
  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9, 
  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9, 
  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9, 
  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9, 
  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9, 
  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9, 
  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9, 
  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139465949097`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"40610d7c-cbae-45b0-9846-827e2021b08e"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9, 
  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9, 
  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9, 
  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9, 
  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9, 
  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9, 
  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9, 
  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9, 
  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9, 
  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9, 
  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9, 
  3.7452068431328316`*^9, 3.74521331258537*^9, 3.745213946764213*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"a63c17ba-3c96-4dc6-a822-bdc6529c14d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "4", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  4, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 4, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9, 
  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9, 
  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9, 
  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9, 
  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9, 
  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9, 
  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9, 
  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9, 
  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9, 
  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9, 
  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9, 
  3.7452068431328316`*^9, 3.74521331258537*^9, 3.745213946764213*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"3fb83c47-fc94-4250-9c76-122e87e80ca0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"4", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[4, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7107763543548746`*^9, 3.7107781519007854`*^9, 
  3.7107783549589005`*^9, 3.7108435786153817`*^9, 3.7108451394353456`*^9, 
  3.711300307547175*^9, 3.7113159419846754`*^9, 3.711328722122781*^9, 
  3.711378192787717*^9, 3.7114229327672997`*^9, 3.7114239048384657`*^9, 
  3.7117187689344997`*^9, 3.711733908724595*^9, 3.714779038386984*^9, 
  3.727754598152893*^9, 3.7278345859539304`*^9, 3.727834799006135*^9, 
  3.7288016510755353`*^9, 3.728817722606468*^9, 3.7288332449638357`*^9, 
  3.7288353852770295`*^9, 3.7313925817982397`*^9, 3.731635120869128*^9, 
  3.7316432709611316`*^9, 3.731643493745391*^9, 3.7342574876226544`*^9, 
  3.734257740678814*^9, 3.734257976101457*^9, 3.73425809905322*^9, 
  3.7342582313602047`*^9, 3.7342583001327844`*^9, 3.74520614571465*^9, 
  3.7452068431328316`*^9, 3.74521331258537*^9, 3.7452139474238405`*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"0a813d16-b8ab-4bcb-9b08-bd8b772cbca0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["l", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"dq", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox[
       SubscriptBox["C", "LQ"], 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "2"], ",", 
        SubscriptBox["\<\"f\"\>", "1"]}]], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "2"], ",", 
        SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["vl", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"uq", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox[
       SubscriptBox["C", "LQ"], 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "2"], ",", 
        SubscriptBox["\<\"f\"\>", "1"]}]], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "2"], ",", 
        SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["dq", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"l", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"LtQk", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox[
       SubscriptBox["C", "LQ"], 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "1"], ",", 
        SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"vl", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"LtQk", ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox[
       SubscriptBox["C", "LQ"], 
       RowBox[{
        SubscriptBox["\<\"f\"\>", "1"], ",", 
        SubscriptBox["\<\"f\"\>", "2"]}]], " ", 
      SubscriptBox["\[Delta]", 
       RowBox[{
        SubscriptBox["\<\"m\"\>", "1"], ",", 
        SubscriptBox["\<\"m\"\>", "3"]}]], " ", 
      SubscriptBox[
       RowBox[{
        TemplateBox[{"\[Gamma]",SubscriptBox["\"\[Mu]\"", "3"]},
         "Superscript"], ".", 
        SubscriptBox["P", "\<\"-\"\>"]}], 
       RowBox[{
        SubscriptBox["\<\"s\"\>", "1"], ",", 
        SubscriptBox["\<\"s\"\>", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.710776354751342*^9, 3.710778152415888*^9, 
  3.7107783552989855`*^9, 3.710843579050485*^9, 3.710845139752278*^9, 
  3.711300307952273*^9, 3.711315942389225*^9, 3.7113287225728874`*^9, 
  3.711378193151088*^9, 3.7114229331923685`*^9, 3.7114239051655755`*^9, 
  3.711718769258724*^9, 3.711733909209688*^9, 3.71477903862015*^9, 
  3.727754598708003*^9, 3.7278345864862843`*^9, 3.727834799541683*^9, 
  3.728801651470622*^9, 3.7288177232198944`*^9, 3.728833245328906*^9, 
  3.7288353855920906`*^9, 3.731392582334627*^9, 3.7316351213444676`*^9, 
  3.731643271841752*^9, 3.731643494154684*^9, 3.7342574880359755`*^9, 
  3.7342577410911813`*^9, 3.7342579763947763`*^9, 3.734258099546606*^9, 
  3.7342582317604694`*^9, 3.734258300771294*^9, 3.7452061463722725`*^9, 
  3.745206843518321*^9, 3.7452133148750987`*^9, 3.7452139474548216`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"ef9fdd18-ab09-4118-a92a-d51e503beb66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FeynmanRules", "[", "LLQqcd", "]"}]], "Input",
 CellChangeTimes->{{3.7107763476721935`*^9, 3.7107763532523384`*^9}, {
  3.711328741409523*^9, 3.711328744445941*^9}, {3.7113679254857116`*^9, 
  3.7113679268695507`*^9}, {3.7113780510537663`*^9, 3.7113780540108566`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"a8742e42-7437-483f-b943-a4ca55b5b971"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{
  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9, 
   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9, 
   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9, 
   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9, 
   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9, 
   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9, 
   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9, 
   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9, 
   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9, 
   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9, 
   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9, 
   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9, 
   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9, 
   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9, 
   3.745213315175928*^9, 3.745213947535775*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"4da87593-a37c-416f-afbb-270221b8334f"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{
  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9, 
   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9, 
   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9, 
   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9, 
   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9, 
   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9, 
   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9, 
   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9, 
   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9, 
   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9, 
   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9, 
   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9, 
   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9, 
   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9, 
   3.745213315175928*^9, 3.7452139475387745`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"8178fea3-be60-408b-b4f6-fc1f863f3c0a"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{
  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9, 
   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9, 
   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9, 
   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9, 
   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9, 
   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9, 
   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9, 
   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9, 
   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9, 
   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9, 
   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9, 
   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9, 
   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9, 
   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9, 
   3.745213315175928*^9, 3.745213948097667*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"637d031c-8a95-4608-b0f0-ac21dbc77847"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{7., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  2, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9, 
   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9, 
   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9, 
   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9, 
   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9, 
   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9, 
   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9, 
   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9, 
   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9, 
   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9, 
   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9, 
   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9, 
   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9, 
   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9, 
   3.745213315175928*^9, 3.745213948113289*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"42bf05c8-356f-4723-94cf-e1bf429c2681"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[2, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.711328745465444*^9, 3.711329699980115*^9, 3.7113679281864166`*^9, 
   3.7113680081828775`*^9, 3.7113680552268877`*^9, 3.7113684128777037`*^9, 
   3.7113776524537706`*^9, 3.7113780552486835`*^9, {3.7113781877874975`*^9, 
   3.7113781982399774`*^9}, 3.711380230661878*^9, 3.711380873614834*^9, 
   3.7113821645997453`*^9, 3.711422933292902*^9, 3.7114236458941717`*^9, 
   3.7114239051955833`*^9, 3.7114706984097724`*^9, 3.7114708648443575`*^9, 
   3.711471095291935*^9, 3.711718769283713*^9, 3.711733909264696*^9, 
   3.714779038640664*^9, 3.7277546052607327`*^9, 3.7278345865662994`*^9, 
   3.727834799601706*^9, 3.728801651765664*^9, 3.7288177285618787`*^9, 
   3.728832830643709*^9, 3.728833249307537*^9, 3.728834929819727*^9, 
   3.7288353856421022`*^9, 3.7316351214485455`*^9, 3.731643271964839*^9, 
   3.731643494181702*^9, 3.7342574880790305`*^9, 3.7342577411322374`*^9, 
   3.7342579764383526`*^9, 3.7342580995956416`*^9, 3.7342582317954826`*^9, 
   3.7342583008313475`*^9, 3.745206146452227*^9, 3.745206843556088*^9, 
   3.745213315175928*^9, 3.7452139496709247`*^9},
 CellLabel->
  "During evaluation of \
In[9]:=",ExpressionUUID->"8c1e3868-3e52-4936-b50f-6e4677010ff6"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"G", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"LtQk", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["LtQk", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "1", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "2", 
        SubscriptBox["\<\"\[Mu]\"\>", "3"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "1", 
        SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "3", 
        SubscriptBox["\<\"\[Mu]\"\>", "2"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "2", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubscriptBox["g", "s"], " ", 
       SubsuperscriptBox["\<\"p\"\>", "3", 
        SubscriptBox["\<\"\[Mu]\"\>", "1"]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "3"], ",", 
         SubscriptBox["\<\"m\"\>", "2"]}], 
        SubscriptBox["\<\"a\"\>", "1"]]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"G", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"G", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"LtQk", ",", "3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         SuperscriptBox["LtQk", "\[Dagger]"], ",", "4"}], "}"}]}], "}"}], ",", 
     RowBox[{
      RowBox[{
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["f", 
        RowBox[{
         SubscriptBox["\<\"a\"\>", "1"], ",", 
         SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$1"}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], "Gluon$1"]}], "-", 
      RowBox[{
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["f", 
        RowBox[{
         SubscriptBox["\<\"a\"\>", "1"], ",", 
         SubscriptBox["\<\"a\"\>", "2"], ",", "Gluon$1"}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], "Gluon$1"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}], 
        SubscriptBox["\<\"a\"\>", "1"]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{"Colour$1", ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], 
        SubscriptBox["\<\"a\"\>", "2"]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}], 
        SubscriptBox["\<\"a\"\>", "1"]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{"Colour$1", ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], 
        SubscriptBox["\<\"a\"\>", "2"]]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "2"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "3"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{"Colour$1", ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], 
        SubscriptBox["\<\"a\"\>", "1"]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}], 
        SubscriptBox["\<\"a\"\>", "2"]]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       SubsuperscriptBox["g", "s", "2"], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ", 
       SubscriptBox["\[Eta]", 
        RowBox[{
         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",", 
         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{"Colour$1", ",", 
         SubscriptBox["\<\"m\"\>", "3"]}], 
        SubscriptBox["\<\"a\"\>", "1"]], " ", 
       SubsuperscriptBox["T", 
        RowBox[{
         SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}], 
        SubscriptBox["\<\"a\"\>", "2"]]}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.728817753549929*^9, 3.728832831701731*^9, 
  3.7288332547905903`*^9, 3.7288349363473926`*^9, 3.728835392179028*^9, 
  3.7316351227924924`*^9, 3.7316432741784115`*^9, 3.7316434956307297`*^9, 
  3.7342574895115433`*^9, 3.734257742541518*^9, 3.734257976501457*^9, 
  3.7342581013321486`*^9, 3.7342582331165266`*^9, 3.7342583023142385`*^9, 
  3.745206148463097*^9, 3.7452068448052397`*^9, 3.745213317551347*^9, 
  3.7452139496865573`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"6ead2a79-d6ca-4c87-85cd-afd65367f4f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynmanRules", "[", "LTotal", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.709954398591937*^9, 3.709954407192892*^9}, {
   3.710213613108117*^9, 3.7102136156913843`*^9}, 3.7117339487969275`*^9},
 CellLabel->"In[10]:=",ExpressionUUID->"8c54b549-72be-47d1-aff9-d38857f578dc"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.745213955662648*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"09955134-be66-4c6e-b845-bab065c2b989"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.745213955662648*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"35fa9836-d05a-49dd-b724-dae8cdf1b5ec"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.7452139556782694`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"04bc99a0-7df9-4d1a-b968-e81f92eade9a"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.7452139640197887`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"b79ba44d-8477-4239-9fa9-327c7afc73b5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "42", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  42, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 42, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.7452139640822315`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"ff7d65a8-0f0c-46c7-b242-6e53eb2ffa7f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"37", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[37, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.728835395815031*^9, 3.731392596479482*^9, 
  3.7316351270204988`*^9, 3.7316432813444986`*^9, 3.7316435001549463`*^9, 
  3.7342574938339496`*^9, 3.734257746744557*^9, 3.7342579765418077`*^9, 
  3.7342581068339353`*^9, 3.734258236964346*^9, 3.7342583062685843`*^9, 
  3.745206153849001*^9, 3.745206848613058*^9, 3.7452133231887884`*^9, 
  3.7452139691150746`*^9},
 CellLabel->
  "During evaluation of \
In[10]:=",ExpressionUUID->"1d964e75-ab19-459e-8613-5c1cdfee292f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Generating the UFO model files", "Section",
 CellChangeTimes->{{3.518892302672626*^9, 
  3.518892305688608*^9}},ExpressionUUID->"e1654e2f-f511-4bf1-9a49-\
f8cca4af45c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"WriteUFO", "[", "LTotal", "]"}]], "Input",
 CellChangeTimes->{{3.500890697245646*^9, 3.500890704222636*^9}, {
   3.5008908901215143`*^9, 3.5008908903708687`*^9}, {3.518892235767663*^9, 
   3.518892237775363*^9}, {3.540113570516355*^9, 3.54011357075742*^9}, {
   3.5502935101903954`*^9, 3.550293511961158*^9}, 3.709954477716484*^9, 
   3.710213694658132*^9},
 CellLabel->"In[11]:=",ExpressionUUID->"348a8e5d-4734-4aaa-9dc8-679dbf7b5093"],

Cell[CellGroupData[{

Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
"Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213972900631*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"976f0759-89be-4a8a-87a0-95698bb6ecea"],

Cell[BoxData[
 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973902576*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"1b19db9b-ad87-4836-a9d3-04ebedb7f186"],

Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973924711*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"90f35811-0b69-4400-9524-5398fe064dfa"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Expanding the indices over \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" cores\"\>"}],
  SequenceForm["Expanding the indices over ", 2, " cores"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213973924711*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"0bdec706-03b3-4598-a425-763afce5fd53"],

Cell[BoxData["\<\"Collecting the different structures that enter the \
vertex.\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139822891607`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"82472fbd-a3a6-4b36-9f15-c3afef7b365a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
  "42", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
-> starting the computation: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  42, " possible non-zero vertices have been found -> starting the \
computation: ", 
   Dynamic[FeynRules`FR$FeynmanRules], " / ", 42, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139823410625`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"6ce9dbe3-b79a-4b91-8526-a4281b95ce78"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"37", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
  SequenceForm[37, " vertices obtained."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139882960863`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"f596fde5-9fb3-4ed2-9c18-e661e1071d7d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
    ImageSizeCache->{14., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "37"}],
  SequenceForm["Flavor expansion of the vertices: ", 
   Dynamic[FeynRules`FR$Count1], " / ", 37],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139898136272`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"6e72916d-05c2-4439-8b52-93b430fe7472"],

Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213998681135*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"f6b04e63-d8f3-4893-b778-3e0d9a6d99f1"],

Cell[BoxData[
 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
decays: \"\>",
  StripOnInput->False,
  LineColor->RGBColor[1, 0.5, 0],
  FrontFaceColor->RGBColor[1, 0.5, 0],
  BackFaceColor->RGBColor[1, 0.5, 0],
  GraphicsColor->RGBColor[1, 0.5, 0],
  FontWeight->Bold,
  FontColor->RGBColor[1, 0.5, 0]]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452139987345157`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"7c8e2dc0-55bd-4b98-90db-7c13d017d016"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "84"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 84],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745213998818797*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"cbc2835b-56f3-46a3-8eb3-4481a9a0655f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]", 
   "0.984375`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Squared matrix elent compute in ", 0.984375, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140225636344`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"df9dd602-7e6f-4a36-9b09-ff65e23417df"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   DynamicBox[ToBoxes[PRIVATE`mycounter, StandardForm],
    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>", 
   "\[InvisibleSpace]", "102"}],
  SequenceForm[
   Dynamic[PRIVATE`mycounter], " / ", 102],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140226136055`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"b5a74225-41a7-4dcc-9bc6-188eac1d41fc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]", 
   "1.921875`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
  SequenceForm["Decay widths computed in ", 1.921875, " seconds."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214027974749*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"32c20ee6-8d25-409e-bad9-3b24e49c7779"],

Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214027974749*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"9b53d977-7f69-4f25-a8d2-36c7d63a4bd4"],

Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
"Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214028282024*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"c558916e-effd-416a-a864-21758d06a691"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Splitting of vertices distributed over \"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" kernels.\"\>"}],
  SequenceForm["Splitting of vertices distributed over ", 2, " kernels."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214028323316*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"c04d1bfc-ef88-4341-b056-25574b1da1b4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]", 
   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
    ImageSizeCache->{21., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>", 
   "\[InvisibleSpace]", "113", "\[InvisibleSpace]", "\<\" .\"\>"}],
  SequenceForm["    - Optimizing: ", 
   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 113, " ."],
  Editable->False]], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.745214031732518*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"f58e8ee5-fae5-4fe0-9e2c-66becae9a9ed"],

Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140319642887`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"9ad08d87-fbe2-4fcf-b9dd-c75d0e8f690d"],

Cell[BoxData["\<\"Done!\"\>"], "Print",
 CellChangeTimes->{3.7102137001206026`*^9, 3.710214741650037*^9, 
  3.71021556665554*^9, 3.710216399184409*^9, 3.7102167304448795`*^9, 
  3.7107167464121084`*^9, 3.7107187859238625`*^9, 3.710718930916628*^9, 
  3.7107731157979097`*^9, 3.710778183925301*^9, 3.710778383075246*^9, 
  3.7108436071704035`*^9, 3.7108451590203466`*^9, 3.7114239461215115`*^9, 
  3.711718797632494*^9, 3.711733971891038*^9, 3.714779084832465*^9, 
  3.7278349547146196`*^9, 3.7288352887263126`*^9, 3.728835415335994*^9, 
  3.731392673708617*^9, 3.7316351470807395`*^9, 3.731643302329402*^9, 
  3.731643543080432*^9, 3.734257509373849*^9, 3.734257798668664*^9, 
  3.734258129140753*^9, 3.7342582531532164`*^9, 3.7452061716858068`*^9, 
  3.745206864479308*^9, 3.7452133576234627`*^9, 3.7452140326355553`*^9},
 CellLabel->
  "During evaluation of \
In[11]:=",ExpressionUUID->"940f16a5-5a18-4602-88c8-c9a74b219adf"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{674, 652},
WindowMargins->{{Automatic, 105}, {-27, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 199, 3, 28, "Input",ExpressionUUID->"35fb9169-6165-45f2-bb47-d2b5a30fdac3"],
Cell[CellGroupData[{
Cell[782, 27, 161, 3, 67, "Section",ExpressionUUID->"d3c1a50a-7a32-4ff7-9e5b-f82af6c85fb6"],
Cell[CellGroupData[{
Cell[968, 34, 568, 10, 86, "Input",ExpressionUUID->"f0518695-6cd4-402e-98f3-cd0a888e3378"],
Cell[1539, 46, 4265, 58, 52, "Output",ExpressionUUID->"b0f19208-0c95-4885-b5bd-90dc83ca6599"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5841, 109, 198, 3, 28, "Input",ExpressionUUID->"99a894d2-6aa4-443c-b8a0-97d67849d48a"],
Cell[CellGroupData[{
Cell[6064, 116, 3797, 54, 22, "Print",ExpressionUUID->"32452b76-43d1-43b0-b85c-5c4fe04243c1"],
Cell[9864, 172, 4067, 61, 22, "Print",ExpressionUUID->"514f8a91-04bd-49f8-9983-ff16a621b96a"],
Cell[13934, 235, 3846, 55, 22, "Print",ExpressionUUID->"50e09a48-e77f-4316-9e43-d569abdbbd5a"],
Cell[17783, 292, 3780, 54, 22, "Print",ExpressionUUID->"3ee1fead-5554-4e6e-996d-5f0f8c61ba2c"],
Cell[21566, 348, 3791, 54, 22, "Print",ExpressionUUID->"5d8270a1-ac50-4e39-b6d5-a91604265303"],
Cell[25360, 404, 3844, 55, 22, "Print",ExpressionUUID->"3a919dad-d3cb-498d-9db8-d740c52163f5"],
Cell[29207, 461, 3842, 55, 22, "Print",ExpressionUUID->"9edc3f9c-4082-4b7b-ade8-66623645dd51"],
Cell[33052, 518, 3781, 54, 22, "Print",ExpressionUUID->"c7e969ad-d4d7-44c5-856c-4a4935d8d568"],
Cell[36836, 574, 3811, 54, 22, "Print",ExpressionUUID->"3215d37b-1ea4-4917-8ee4-7ae8d60fd052"],
Cell[40650, 630, 3781, 54, 22, "Print",ExpressionUUID->"6bd2e081-0001-470a-b726-a90d61a827af"],
Cell[44434, 686, 3848, 55, 22, "Print",ExpressionUUID->"41affcc9-c221-4d6a-b22e-355e4978f954"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48343, 748, 167, 3, 96, "Title",ExpressionUUID->"f94cc9ed-8330-40b3-be25-b202d3edd878"],
Cell[CellGroupData[{
Cell[48535, 755, 159, 3, 67, "Section",ExpressionUUID->"3c0a92d1-e1ed-45c6-9b66-6871fb2e8bb2"],
Cell[CellGroupData[{
Cell[48719, 762, 459, 8, 28, "Input",ExpressionUUID->"7ac78549-10ee-41be-9b70-ecfcb38ff72a"],
Cell[49181, 772, 479, 6, 52, "Output",ExpressionUUID->"06781cf3-fffb-4f4c-875d-56621aea5985"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49697, 783, 1354, 19, 28, "Input",ExpressionUUID->"842fe880-943f-4306-8db4-ba8ac672cdf8"],
Cell[CellGroupData[{
Cell[51076, 806, 465, 8, 22, "Print",ExpressionUUID->"07a776cb-8e3a-40b2-aa81-5d7c7254f6b7"],
Cell[51544, 816, 483, 8, 22, "Print",ExpressionUUID->"718ac68f-0394-41f2-83a7-3cd96d55e84e"],
Cell[52030, 826, 449, 8, 22, "Print",ExpressionUUID->"1a2d2f3a-2bb3-42fd-9de1-9fa3a094a573"],
Cell[52482, 836, 589, 12, 22, "Print",ExpressionUUID->"03b3ffa4-fc87-469c-bd77-8f2830e12c7e"],
Cell[53074, 850, 491, 9, 22, "Print",ExpressionUUID->"45ac5026-319c-4c26-9791-6b9c339ca6ed"],
Cell[53568, 861, 443, 8, 22, "Print",ExpressionUUID->"de7fc3b9-603e-4ba9-90eb-e27f4f41699e"],
Cell[54014, 871, 473, 8, 22, "Print",ExpressionUUID->"bb66fac0-327b-4686-b475-34edf56b7065"],
Cell[54490, 881, 476, 8, 22, "Print",ExpressionUUID->"3aae46c1-fa3a-47b0-b4e4-b9ac98a4946e"],
Cell[54969, 891, 472, 8, 22, "Print",ExpressionUUID->"e00e11e7-25ee-438f-a54f-06e3996063ab"],
Cell[55444, 901, 679, 14, 41, "Print",ExpressionUUID->"40a02ad9-d682-43d3-a27f-976c1a5d2a54"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[56184, 922, 218, 4, 67, "Section",ExpressionUUID->"218e265c-8c3e-40d4-a7ce-05631f9cbbdf"],
Cell[CellGroupData[{
Cell[56427, 930, 177, 2, 28, "Input",ExpressionUUID->"dcc62cca-dcd0-4b6f-9c02-f038d40a4127"],
Cell[56607, 934, 4488, 102, 122, "Output",ExpressionUUID->"0e66b283-1b56-45e8-aa93-5104d097628b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61132, 1041, 176, 2, 28, "Input",ExpressionUUID->"5ae8bf37-7631-4622-84bc-8a13fb413d39"],
Cell[61311, 1045, 3905, 102, 175, "Output",ExpressionUUID->"00d55f52-8bf3-4702-a430-52cb964d10e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65253, 1152, 404, 6, 28, "Input",ExpressionUUID->"90e0aab2-2f48-48a7-a061-6c154ba92329"],
Cell[65660, 1160, 8827, 247, 708, "Output",ExpressionUUID->"7c59a2d1-260e-4813-9633-9baedad97220"]
}, Open  ]],
Cell[CellGroupData[{
Cell[74524, 1412, 215, 3, 28, "Input",ExpressionUUID->"1159c70f-9390-4e41-affc-c016a1695ff5"],
Cell[CellGroupData[{
Cell[74764, 1419, 1270, 23, 22, "Print",ExpressionUUID->"d37edca3-67af-4c15-b86f-416e9371724f"],
Cell[76037, 1444, 1025, 15, 22, "Print",ExpressionUUID->"40610d7c-cbae-45b0-9846-827e2021b08e"],
Cell[77065, 1461, 1056, 16, 22, "Print",ExpressionUUID->"a63c17ba-3c96-4dc6-a822-bdc6529c14d1"],
Cell[78124, 1479, 1532, 27, 22, "Print",ExpressionUUID->"3fb83c47-fc94-4250-9c76-122e87e80ca0"],
Cell[79659, 1508, 1138, 19, 22, "Print",ExpressionUUID->"0a813d16-b8ab-4bcb-9b08-bd8b772cbca0"]
}, Open  ]],
Cell[80812, 1530, 4887, 133, 145, "Output",ExpressionUUID->"ef9fdd18-ab09-4118-a92a-d51e503beb66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[85736, 1668, 370, 5, 28, "Input",ExpressionUUID->"a8742e42-7437-483f-b943-a4ca55b5b971"],
Cell[CellGroupData[{
Cell[86131, 1677, 1507, 27, 22, "Print",ExpressionUUID->"4da87593-a37c-416f-afbb-270221b8334f"],
Cell[87641, 1706, 1264, 19, 22, "Print",ExpressionUUID->"8178fea3-be60-408b-b4f6-fc1f863f3c0a"],
Cell[88908, 1727, 1295, 20, 22, "Print",ExpressionUUID->"637d031c-8a95-4608-b0f0-ac21dbc77847"],
Cell[90206, 1749, 1771, 31, 22, "Print",ExpressionUUID->"42bf05c8-356f-4723-94cf-e1bf429c2681"],
Cell[91980, 1782, 1377, 23, 22, "Print",ExpressionUUID->"8c1e3868-3e52-4936-b50f-6e4677010ff6"]
}, Open  ]],
Cell[93372, 1808, 8605, 223, 182, "Output",ExpressionUUID->"6ead2a79-d6ca-4c87-85cd-afd65367f4f1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102014, 2036, 309, 5, 28, "Input",ExpressionUUID->"8c54b549-72be-47d1-aff9-d38857f578dc"],
Cell[CellGroupData[{
Cell[102348, 2045, 792, 17, 22, "Print",ExpressionUUID->"09955134-be66-4c6e-b845-bab065c2b989"],
Cell[103143, 2064, 547, 9, 22, "Print",ExpressionUUID->"35fa9836-d05a-49dd-b724-dae8cdf1b5ec"],
Cell[103693, 2075, 731, 14, 22, "Print",ExpressionUUID->"04bc99a0-7df9-4d1a-b968-e81f92eade9a"],
Cell[104427, 2091, 582, 10, 22, "Print",ExpressionUUID->"b79ba44d-8477-4239-9fa9-327c7afc73b5"],
Cell[105012, 2103, 1063, 21, 41, "Print",ExpressionUUID->"ff7d65a8-0f0c-46c7-b242-6e53eb2ffa7f"],
Cell[106078, 2126, 664, 13, 22, "Print",ExpressionUUID->"1d964e75-ab19-459e-8613-5c1cdfee292f"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[106803, 2146, 175, 3, 67, "Section",ExpressionUUID->"e1654e2f-f511-4bf1-9a49-f8cca4af45c3"],
Cell[CellGroupData[{
Cell[107003, 2153, 460, 7, 28, "Input",ExpressionUUID->"348a8e5d-4734-4aaa-9dc8-679dbf7b5093"],
Cell[CellGroupData[{
Cell[107488, 2164, 969, 15, 22, "Print",ExpressionUUID->"976f0759-89be-4a8a-87a0-95698bb6ecea"],
Cell[108460, 2181, 1192, 22, 22, "Print",ExpressionUUID->"1b19db9b-ad87-4836-a9d3-04ebedb7f186"],
Cell[109655, 2205, 947, 14, 22, "Print",ExpressionUUID->"90f35811-0b69-4400-9524-5398fe064dfa"],
Cell[110605, 2221, 1129, 19, 22, "Print",ExpressionUUID->"0bdec706-03b3-4598-a425-763afce5fd53"],
Cell[111737, 2242, 982, 15, 22, "Print",ExpressionUUID->"82472fbd-a3a6-4b36-9f15-c3afef7b365a"],
Cell[112722, 2259, 1463, 26, 41, "Print",ExpressionUUID->"6ce9dbe3-b79a-4b91-8526-a4281b95ce78"],
Cell[114188, 2287, 1064, 18, 22, "Print",ExpressionUUID->"f596fde5-9fb3-4ed2-9c18-e661e1071d7d"],
Cell[115255, 2307, 1293, 22, 22, "Print",ExpressionUUID->"6e72916d-05c2-4439-8b52-93b430fe7472"],
Cell[116551, 2331, 961, 14, 22, "Print",ExpressionUUID->"f6b04e63-d8f3-4893-b778-3e0d9a6d99f1"],
Cell[117515, 2347, 1230, 23, 22, "Print",ExpressionUUID->"7c8e2dc0-55bd-4b98-90db-7c13d017d016"],
Cell[118748, 2372, 1182, 22, 22, "Print",ExpressionUUID->"cbc2835b-56f3-46a3-8eb3-4481a9a0655f"],
Cell[119933, 2396, 1162, 19, 22, "Print",ExpressionUUID->"df9dd602-7e6f-4a36-9b09-ff65e23417df"],
Cell[121098, 2417, 1186, 22, 22, "Print",ExpressionUUID->"b5a74225-41a7-4dcc-9bc6-188eac1d41fc"],
Cell[122287, 2441, 1146, 19, 22, "Print",ExpressionUUID->"32c20ee6-8d25-409e-bad9-3b24e49c7779"],
Cell[123436, 2462, 944, 14, 22, "Print",ExpressionUUID->"9b53d977-7f69-4f25-a8d2-36c7d63a4bd4"],
Cell[124383, 2478, 968, 15, 22, "Print",ExpressionUUID->"c558916e-effd-416a-a864-21758d06a691"],
Cell[125354, 2495, 1159, 19, 22, "Print",ExpressionUUID->"c04d1bfc-ef88-4341-b056-25574b1da1b4"],
Cell[126516, 2516, 1318, 22, 22, "Print",ExpressionUUID->"f58e8ee5-fae5-4fe0-9e2c-66becae9a9ed"],
Cell[127837, 2540, 942, 14, 22, "Print",ExpressionUUID->"9ad08d87-fbe2-4fcf-b9dd-c75d0e8f690d"],
Cell[128782, 2556, 927, 14, 22, "Print",ExpressionUUID->"940f16a5-5a18-4602-88c8-c9a74b219adf"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

