SimplifiedDM: resonance_met.nb

File resonance_met.nb, 288.0 KB (added by MaikelDeVries, 4 years ago)
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 8.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[    294732,       7244]
14NotebookOptionsPosition[    282370,       6860]
15NotebookOutlinePosition[    282779,       6876]
16CellTagsIndexPosition[    282736,       6873]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["FeynRules: Resonance + MET", "Title",
24 CellChangeTimes->{{3.569143846510152*^9, 3.5691438492382927`*^9}, {
25  3.589193147948735*^9, 3.5891931487714453`*^9}, {3.647152530595695*^9,
26  3.647152530928742*^9}, {3.6478500953071623`*^9, 3.647850095462895*^9}, {
27  3.654588730255045*^9, 3.654588745664485*^9}}],
28
29Cell[TextData[StyleBox["Open Issues:\n * Replace Eps(*) with 1 to fix the \
30CalcHEP output of the triplet.\n * CalcHEP output of the sextet is broken.\n \
31* Correct hyperlinks in the model files: Hyperlink[string] does not work with \
32CalcHEP output.",
33 FontWeight->"Bold"]], "Text",
34 CellChangeTimes->{{3.664890428069512*^9, 3.664890464302844*^9},
35   3.665141616047606*^9, {3.666010758856793*^9, 3.666010770171732*^9}, {
36   3.666010990518064*^9, 3.6660110120402737`*^9}}],
37
38Cell[BoxData[
39 RowBox[{
40  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
41 CellChangeTimes->{{3.551418340255722*^9, 3.551418341644471*^9}}],
42
43Cell[BoxData[
44 RowBox[{
45  RowBox[{"(*", " ",
46   RowBox[{
47   "These", " ", "variables", " ", "define", " ", "some", " ", "locations",
48    " ", "to", " ", "be", " ", "used", " ", "throughout", " ", "the", " ",
49    "notebook"}], " ", "*)"}], "\[IndentingNewLine]",
50  RowBox[{"(*", " ",
51   RowBox[{
52   "Set", " ", "this", " ", "to", " ", "your", " ", "FeynRules", " ",
53    "installation"}], " ", "*)"}], "\[IndentingNewLine]",
54  RowBox[{
55   RowBox[{
56    RowBox[{
57    "locFR", "=",
58     "\"\</home/maikel/.Mathematica/Applications/FeynRules-2.3.18\>\""}],
59    ";"}], " ", "\[IndentingNewLine]",
60   RowBox[{"(*", " ",
61    RowBox[{
62    "Set", " ", "this", " ", "to", " ", "the", " ", "location", " ", "of",
63     " ", "your", " ", "model", " ", "files"}], " ", "*)"}],
64   "\[IndentingNewLine]",
65   RowBox[{"(*", " ",
66    RowBox[{
67     RowBox[{"FR", " ", "files", " ", "will", " ", "be", " ", "read", " ",
68      RowBox[{"from", " ", "/", "fr_files"}]}], ",", " ",
69     RowBox[{"UFO", " ", "be", " ", "written", " ",
70      RowBox[{"to", " ", "/", "ufo_models"}], " ", "and", " ", "CalcHEP", " ",
71      RowBox[{"to", " ", "/", "calchep_models"}]}]}], " ", "*)"}],
72   "\[IndentingNewLine]",
73   RowBox[{
74    RowBox[{"locMF", "=",
75     RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]",
76   
77   RowBox[{"(*", " ",
78    RowBox[{
79    "Set", " ", "this", " ", "to", " ", "the", " ", "model", " ", "file"}],
80    " ", "*)"}], "\[IndentingNewLine]",
81   RowBox[{
82    RowBox[{"locModelFile", ":=", "\"\<so_met.fr\>\""}], ";"}],
83   "\[IndentingNewLine]",
84   RowBox[{
85    RowBox[{"AutoUFOModel", ":=", "False"}], ";"}], "\[IndentingNewLine]",
86   RowBox[{
87    RowBox[{"AutoCalcHEPModel", ":=", "False"}], ";"}]}]}]], "Input",
88 InitializationCell->True,
89 CellChangeTimes->{{3.569406540763906*^9, 3.569406559776763*^9}, {
90   3.569406857994039*^9, 3.569406869986185*^9}, {3.569419347340068*^9,
91   3.569419369454303*^9}, {3.569565056264391*^9, 3.569565056867136*^9}, {
92   3.570187792484337*^9, 3.570187794075346*^9}, {3.6545888372809343`*^9,
93   3.654588846797003*^9}, 3.654588922302568*^9, {3.654589393899436*^9,
94   3.654589407662459*^9}, {3.654589447191774*^9, 3.654589469636098*^9}, {
95   3.654591120927465*^9, 3.6545911211426687`*^9}, {3.655027452709317*^9,
96   3.655027454776533*^9}, {3.6550284621851*^9, 3.6550284792255583`*^9}, {
97   3.6550292276540613`*^9, 3.655029252987687*^9}, {3.655036847895422*^9,
98   3.655036848466227*^9}, {3.655038010593357*^9, 3.655038010993222*^9}, {
99   3.655039769086577*^9, 3.655039769248328*^9}, {3.655099935316441*^9,
100   3.655099935796103*^9}, {3.655197983839984*^9, 3.655197983930814*^9}, {
101   3.655446254756845*^9, 3.6554462551236973`*^9}, {3.655449335092258*^9,
102   3.655449335651366*^9}, 3.655450387917495*^9, {3.6555327418546553`*^9,
103   3.655532743597848*^9}, {3.655533216958404*^9, 3.655533217347363*^9}, {
104   3.65553338992785*^9, 3.655533391085634*^9}, {3.655534467088269*^9,
105   3.655534467567574*^9}, {3.655534890796055*^9, 3.655534892071989*^9}, {
106   3.65553522175287*^9, 3.65553522234205*^9}, {3.655535254309112*^9,
107   3.655535257104176*^9}, {3.655535290137826*^9, 3.655535291416156*^9}, {
108   3.655556040151299*^9, 3.65555604068427*^9}, 3.655556145088284*^9, {
109   3.6555566207206497`*^9, 3.6555566210846577`*^9}, {3.65555732764847*^9,
110   3.6555573281254396`*^9}, {3.655557365042304*^9, 3.655557365201128*^9}, {
111   3.65555796670607*^9, 3.655557968529813*^9}, 3.655558200979195*^9, {
112   3.6556173409797688`*^9, 3.6556173452751837`*^9}, {3.655620583172147*^9,
113   3.655620583332061*^9}, {3.6556214188551826`*^9, 3.655621419731557*^9}, {
114   3.655622813403935*^9, 3.6556228383195868`*^9}, {3.655623007929421*^9,
115   3.6556230083122673`*^9}, {3.655624040978141*^9, 3.6556240430338097`*^9},
116   3.655632964615163*^9, 3.655703733779904*^9, {3.6557078109002132`*^9,
117   3.655707811393764*^9}, {3.6557094800553493`*^9, 3.6557094805989227`*^9}, {
118   3.655709524375369*^9, 3.655709526591319*^9}, 3.655709584783605*^9, {
119   3.65570973911966*^9, 3.655709739527367*^9}, {3.655715768087955*^9,
120   3.655715768770681*^9}, {3.6557949081164227`*^9, 3.6557949372225447`*^9}, {
121   3.655795027354828*^9, 3.65579502981057*^9}, {3.655797859936355*^9,
122   3.655797860220392*^9}, {3.655803351667573*^9, 3.655803353691201*^9}, {
123   3.655804088604362*^9, 3.655804091151464*^9}, {3.6558120627321177`*^9,
124   3.655812062817086*^9}, {3.65581620367349*^9, 3.655816224096175*^9}, {
125   3.6558163806831427`*^9, 3.655816380861312*^9}, {3.655816994080559*^9,
126   3.655816995127808*^9}, {3.655817188119372*^9, 3.65581718828636*^9}, {
127   3.655818659183668*^9, 3.655818661616737*^9}, {3.6560565997739162`*^9,
128   3.656056602857093*^9}, {3.656060437148609*^9, 3.656060439181603*^9}, {
129   3.656061459935535*^9, 3.656061460011529*^9}, {3.656064532627367*^9,
130   3.656064576589561*^9}, 3.65606463032162*^9, {3.656069610456698*^9,
131   3.656069611076746*^9}, 3.656159487677631*^9, {3.65616142263264*^9,
132   3.6561614252840633`*^9}, {3.656161713317032*^9, 3.656161714199567*^9}, {
133   3.6561617793128967`*^9, 3.6561617794715157`*^9}, {3.656161830032014*^9,
134   3.656161830556261*^9}, {3.656162950202009*^9, 3.656162997039976*^9}, {
135   3.656236398256637*^9, 3.656236400718914*^9}, {3.656316286519558*^9,
136   3.656316287598679*^9}, 3.656320658816787*^9, {3.656322149963526*^9,
137   3.656322150122623*^9}, {3.657023447258524*^9, 3.657023451236718*^9}, {
138   3.657023731777852*^9, 3.657023732372614*^9}, {3.657023994498004*^9,
139   3.6570239951608667`*^9}, 3.657024207338923*^9, {3.657272906190036*^9,
140   3.6572729121867743`*^9}, {3.6578660067551937`*^9, 3.657866007190104*^9}, {
141   3.657951476913571*^9, 3.657951478223328*^9}, 3.657956869609685*^9, {
142   3.658036718079955*^9, 3.658036718492959*^9}, {3.658647617727352*^9,
143   3.6586476181101437`*^9}, {3.6586488892258263`*^9, 3.658648891879355*^9}, {
144   3.658649165464017*^9, 3.6586491656155376`*^9}, {3.6586495477073927`*^9,
145   3.6586495482178917`*^9}, 3.658651919243453*^9, {3.6586555936433363`*^9,
146   3.658655599521728*^9}, {3.658732096285277*^9, 3.6587320966478367`*^9}, {
147   3.6587321398031387`*^9, 3.65873214047922*^9}, {3.658817666915462*^9,
148   3.6588176670753107`*^9}, {3.658828705483552*^9, 3.6588287076911716`*^9},
149   3.658830564490472*^9, {3.658836864076172*^9, 3.658836866035008*^9}, {
150   3.6588397581846733`*^9, 3.658839758845303*^9}, {3.658839822089666*^9,
151   3.6588398246389427`*^9}, {3.658840073630131*^9, 3.658840074008239*^9}, {
152   3.6588402683562202`*^9, 3.658840268824729*^9}, 3.65884032413636*^9,
153   3.6590738427835293`*^9, {3.6590741146439123`*^9, 3.659074115159678*^9}, {
154   3.659074661012761*^9, 3.65907466143554*^9}, {3.6590753256774693`*^9,
155   3.659075328746636*^9}, {3.659078208483286*^9, 3.659078209259025*^9},
156   3.659094615052861*^9, {3.659098635485347*^9, 3.65909863564533*^9}, {
157   3.659172018331938*^9, 3.659172020311899*^9}, {3.664616542893653*^9,
158   3.664616546318933*^9}, {3.664617615036969*^9, 3.664617615517116*^9}, {
159   3.664618047909181*^9, 3.6646180491075907`*^9}, 3.6646183317379627`*^9, {
160   3.6646185584010973`*^9, 3.664618558759858*^9}, {3.66461870137668*^9,
161   3.664618703824625*^9}, {3.664620666653984*^9, 3.6646206675825987`*^9}, {
162   3.664621730067371*^9, 3.664621730594266*^9}, {3.664626785085891*^9,
163   3.6646267855671453`*^9}, {3.664692803811021*^9, 3.664692808702776*^9}, {
164   3.664707516421959*^9, 3.66470751744547*^9}, {3.6647076977579823`*^9,
165   3.664707697912722*^9}, {3.664708492126959*^9, 3.664708492598796*^9}, {
166   3.6647863210720673`*^9, 3.66478632123421*^9}, {3.664787970041991*^9,
167   3.664787970816103*^9}, {3.6647891401075897`*^9, 3.664789142657419*^9}, {
168   3.664789294459279*^9, 3.664789294561571*^9}, {3.66478935286236*^9,
169   3.664789354390448*^9}, 3.664789416267861*^9, 3.664862000551353*^9, {
170   3.665137687689713*^9, 3.665137690512755*^9}, {3.665396569602062*^9,
171   3.665396573010116*^9}, 3.665397059606575*^9, {3.665401212779483*^9,
172   3.665401215538053*^9}, 3.665402980553475*^9, {3.66547106688719*^9,
173   3.665471068338367*^9}, {3.665472379250383*^9, 3.665472446366167*^9}, {
174   3.6654725374437647`*^9, 3.66547260077087*^9}, {3.666010125842783*^9,
175   3.666010128375224*^9}, {3.666010251093719*^9, 3.666010251627577*^9}, {
176   3.666010493747345*^9, 3.666010494190557*^9}, {3.66601062208661*^9,
177   3.666010622334317*^9}, {3.6660108855485783`*^9, 3.666010886163355*^9},
178   3.66601096279809*^9, {3.6660110212336187`*^9, 3.666011021599*^9}, {
179   3.6660110693327208`*^9, 3.666011072234083*^9}}],
180
181Cell[CellGroupData[{
182
183Cell["Load Model", "Section",
184 CellChangeTimes->{{3.5514194743215218`*^9, 3.5514194790813303`*^9}, {
185  3.569143880069605*^9, 3.5691438813657913`*^9}}],
186
187Cell[BoxData[
188 RowBox[{
189  RowBox[{"(*", " ",
190   RowBox[{
191   "Set", " ", "the", " ", "numbers", " ", "of", " ", "kernels", " ", "to",
192    " ", "use"}], " ", "*)"}], "\[IndentingNewLine]",
193  RowBox[{
194   RowBox[{
195    RowBox[{"FR$Parallel", "=", "False"}], ";"}], "\[IndentingNewLine]",
196   RowBox[{
197    RowBox[{"FR$KernelNumber", "=", "1"}], ";"}]}]}]], "Input",
198 InitializationCell->True,
199 CellChangeTimes->{{3.591531602576215*^9, 3.591531618218998*^9},
200   3.591533506458474*^9, 3.634536764502748*^9, 3.634539537312375*^9,
201   3.647577791829467*^9, {3.6475779958693037`*^9, 3.64757799682448*^9}}],
202
203Cell[CellGroupData[{
204
205Cell[BoxData[
206 RowBox[{
207  RowBox[{"(*", " ",
208   RowBox[{"Load", " ", "Feynrules", " ", "package"}], " ", "*)"}],
209  "\[IndentingNewLine]",
210  RowBox[{
211   RowBox[{
212    RowBox[{"$FeynRulesPath", "=",
213     RowBox[{"SetDirectory", "[", "locFR", "]"}]}], ";"}],
214   "\[IndentingNewLine]",
215   RowBox[{
216    RowBox[{"<<", "FeynRules`"}], ";"}]}]}]], "Input",
217 InitializationCell->True,
218 CellChangeTimes->{{3.566887984405558*^9, 3.566888004233726*^9},
219   3.5668882488640413`*^9, 3.5691439511092987`*^9, {3.569144013099992*^9,
220   3.569144043833107*^9}, {3.569144389713841*^9, 3.56914440046568*^9}, {
221   3.591531977558329*^9, 3.5915320156354837`*^9}, {3.591533518211247*^9,
222   3.59153355636287*^9}, {3.591533664205855*^9, 3.59153367141982*^9},
223   3.656064554342082*^9}],
224
225Cell[CellGroupData[{
226
227Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
228 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
229  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
230  3.666010969289906*^9, 3.666011029479732*^9}],
231
232Cell[BoxData[
233 InterpretationBox[
234  RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"2.3.18\"\>",
235   "\[InvisibleSpace]",
236   RowBox[{"\<\" (\"\>", " ", "\<\"23 February 2016\"\>"}],
237   "\[InvisibleSpace]", "\<\").\"\>"}],
238  SequenceForm["Version: ", "2.3.18", " (" "23 February 2016", ")."],
239  Editable->False]], "Print",
240 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
241  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
242  3.666010969289906*^9, 3.666011029480749*^9}],
243
244Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
245B. Fuks\"\>"], "Print",
246 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
247  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
248  3.666010969289906*^9, 3.6660110294815483`*^9}],
249
250Cell[BoxData["\<\" \"\>"], "Print",
251 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
252  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
253  3.666010969289906*^9, 3.666011029482225*^9}],
254
255Cell[BoxData["\<\"Please cite:\"\>"], "Print",
256 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
257  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
258  3.666010969289906*^9, 3.6660110294828997`*^9}],
259
260Cell[BoxData["\<\"    - Comput.Phys.Commun.185:2250-2300,2014 \
261(arXiv:1310.1921);\"\>"], "Print",
262 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
263  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
264  3.666010969289906*^9, 3.666011029483979*^9}],
265
266Cell[BoxData["\<\"    - Comput.Phys.Commun.180:1614-1641,2009 \
267(arXiv:0806.4194).\"\>"], "Print",
268 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
269  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
270  3.666010969289906*^9, 3.666011029484947*^9}],
271
272Cell[BoxData["\<\" \"\>"], "Print",
273 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
274  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
275  3.666010969289906*^9, 3.666011029485733*^9}],
276
277Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
278 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
279  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
280  3.666010969289906*^9, 3.66601102948661*^9}],
281
282Cell[BoxData["\<\" \"\>"], "Print",
283 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
284  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
285  3.666010969289906*^9, 3.666011029487605*^9}],
286
287Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
288FRPalette[].\"\>"], "Print",
289 CellChangeTimes->{3.6660104471084642`*^9, 3.666010501869619*^9,
290  3.6660106273913*^9, 3.666010827128105*^9, 3.666010891998673*^9,
291  3.666010969289906*^9, 3.666011029488406*^9}]
292}, Open  ]]
293}, Open  ]],
294
295Cell[CellGroupData[{
296
297Cell[BoxData[
298 RowBox[{
299  RowBox[{"(*", " ",
300   RowBox[{"Set", " ", "directory", " ", "to", " ", "model", " ", "file"}],
301   " ", "*)"}], "\[IndentingNewLine]",
302  RowBox[{
303   RowBox[{
304    RowBox[{"SetDirectory", "[",
305     RowBox[{"locMF", "<>", "\"\<fr_files\>\""}], "]"}], ";"}],
306   "\[IndentingNewLine]",
307   RowBox[{"(*", " ",
308    RowBox[{"Load", " ", "the", " ", "model"}], " ", "*)"}],
309   "\[IndentingNewLine]",
310   RowBox[{
311    RowBox[{"LoadModel", "[",
312     RowBox[{"\"\<SM.fr\>\"", ",", "locModelFile"}], "]"}], ";"}],
313   "\[IndentingNewLine]",
314   RowBox[{"(*", " ",
315    RowBox[{"Reset", " ", "the", " ", "directory"}], " ", "*)"}],
316   "\[IndentingNewLine]",
317   RowBox[{
318    RowBox[{"SetDirectory", "[", "locMF", "]"}], ";"}]}]}]], "Input",
319 InitializationCell->True,
320 CellChangeTimes->{{3.538490636342494*^9, 3.538490643734316*^9}, {
321   3.541479631815613*^9, 3.541479632599341*^9}, {3.541483713628701*^9,
322   3.54148371406596*^9}, {3.541483897879717*^9, 3.5414838983827047`*^9},
323   3.541484290596036*^9, {3.541484830537643*^9, 3.5414848306710577`*^9}, {
324   3.5414849678866262`*^9, 3.541484968172381*^9}, 3.54789862696729*^9, {
325   3.5514215471116858`*^9, 3.55142155386973*^9}, {3.567840265926762*^9,
326   3.567840270050302*^9}, {3.567850699751855*^9, 3.567850708093032*^9}, {
327   3.567851013721712*^9, 3.567851015393116*^9}, {3.5678511221605463`*^9,
328   3.567851130053293*^9}, {3.568455156113002*^9, 3.568455162838105*^9}, {
329   3.568455924600046*^9, 3.56845593111707*^9}, {3.569138216429874*^9,
330   3.569138220213174*^9}, {3.569144423911316*^9, 3.569144435416916*^9}, {
331   3.569565111389081*^9, 3.569565118890169*^9}, 3.570339255241012*^9, {
332   3.589193279989728*^9, 3.5891932869771442`*^9}, {3.589193690515671*^9,
333   3.589193694347581*^9}, {3.591532175678632*^9, 3.591532175795117*^9}, {
334   3.591532209454689*^9, 3.591532209643866*^9}, {3.591532675409931*^9,
335   3.591532677615961*^9}, {3.646997228586138*^9, 3.646997229921729*^9}, {
336   3.64715256231214*^9, 3.64715256616389*^9}, {3.6471527581420527`*^9,
337   3.6471527584407578`*^9}, {3.647851672567918*^9, 3.647851672802229*^9},
338   3.654588827415395*^9, 3.654588983055668*^9, {3.655099816440139*^9,
339   3.655099830358569*^9}, {3.655099908057152*^9, 3.655099927779963*^9}, {
340   3.655100101197085*^9, 3.6551001290562477`*^9}, 3.656064570798112*^9}],
341
342Cell[CellGroupData[{
343
344Cell[BoxData["\<\"Merging model-files...\"\>"], "Print",
345 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
346  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
347  3.66601096954318*^9, 3.666011029758407*^9}],
348
349Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
350 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
351  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
352  3.66601096954318*^9, 3.666011029793791*^9}],
353
354Cell[BoxData["\<\"A. Kaminska\"\>"], "Print",
355 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
356  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
357  3.66601096954318*^9, 3.666011029794952*^9}],
358
359Cell[BoxData["\<\"M. de Vries\"\>"], "Print",
360 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
361  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
362  3.66601096954318*^9, 3.666011029796089*^9}],
363
364Cell[BoxData[
365 InterpretationBox[
366  RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
367  SequenceForm["Model Version: ", "1.0"],
368  Editable->False]], "Print",
369 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
370  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
371  3.66601096954318*^9, 3.666011029797121*^9}],
372
373Cell[BoxData["\<\"Please cite\"\>"], "Print",
374 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
375  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
376  3.66601096954318*^9, 3.666011029798236*^9}],
377
378Cell[BoxData["\<\"http://arxiv.org/abs/1510.03434\"\>"], "Print",
379 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
380  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
381  3.66601096954318*^9, 3.666011029799365*^9}],
382
383Cell[BoxData["\<\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\"\>"], \
384"Print",
385 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
386  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
387  3.66601096954318*^9, 3.6660110298005*^9}],
388
389Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
390"Print",
391 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
392  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
393  3.66601096954318*^9, 3.666011029801697*^9}],
394
395Cell[BoxData["\<\"\"\>"], "Print",
396 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
397  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
398  3.66601096954318*^9, 3.666011029802904*^9}],
399
400Cell[BoxData["\<\"   - Loading particle classes.\"\>"], "Print",
401 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
402  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
403  3.66601096954318*^9, 3.666011029804069*^9}],
404
405Cell[BoxData["\<\"   - Loading gauge group classes.\"\>"], "Print",
406 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
407  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
408  3.66601096954318*^9, 3.666011029921513*^9}],
409
410Cell[BoxData["\<\"   - Loading parameter classes.\"\>"], "Print",
411 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
412  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
413  3.66601096954318*^9, 3.6660110299598923`*^9}],
414
415Cell[BoxData[
416 InterpretationBox[
417  RowBox[{"\<\"\\nModel \"\>",
418   "\[InvisibleSpace]", "\<\"Resonance + MET: Scalar Octet\"\>",
419   "\[InvisibleSpace]", "\<\" loaded.\"\>"}],
420  SequenceForm["\nModel ", "Resonance + MET: Scalar Octet", " loaded."],
421  Editable->False]], "Print",
422 CellChangeTimes->{3.666010447280376*^9, 3.666010502142578*^9,
423  3.6660106276576977`*^9, 3.666010827401376*^9, 3.666010892259314*^9,
424  3.66601096954318*^9, 3.666011030061633*^9}]
425}, Open  ]]
426}, Open  ]],
427
428Cell[CellGroupData[{
429
430Cell[BoxData[
431 RowBox[{
432  RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
433 CellChangeTimes->{{3.665399643551157*^9, 3.665399646794608*^9},
434   3.6654746438885736`*^9}],
435
436Cell[CellGroupData[{
437
438Cell[BoxData[
439 InterpretationBox[
440  RowBox[{"\<\"Model name: \"\>",
441   "\[InvisibleSpace]", "\<\"Resonance + MET: Diquark (Triplet)\"\>"}],
442  SequenceForm["Model name: ", "Resonance + MET: Diquark (Triplet)"],
443  Editable->False]], "Print",
444 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477027104*^9}],
445
446Cell[BoxData[
447 InterpretationBox[
448  RowBox[{"\<\"Model version: \"\>", "\[InvisibleSpace]", "\<\"1.0\"\>"}],
449  SequenceForm["Model version: ", "1.0"],
450  Editable->False]], "Print",
451 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477027856*^9}],
452
453Cell[BoxData[
454 InterpretationBox[
455  RowBox[{"\<\"Date: \"\>", "\[InvisibleSpace]", "\<\"March 2016\"\>"}],
456  SequenceForm["Date: ", "March 2016"],
457  Editable->False]], "Print",
458 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477028578*^9}],
459
460Cell[BoxData["\<\"Authors: \"\>"], "Print",
461 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477029273*^9}],
462
463Cell[BoxData["\<\"   A. Kaminska\"\>"], "Print",
464 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477029868*^9}],
465
466Cell[BoxData["\<\"   M. de Vries\"\>"], "Print",
467 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477030424*^9}],
468
469Cell[BoxData["\<\"Institutions: \"\>"], "Print",
470 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477030982*^9}],
471
472Cell[BoxData["\<\"   MITP, Mainz\"\>"], "Print",
473 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477031537*^9}],
474
475Cell[BoxData["\<\"Emails: \"\>"], "Print",
476 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477032092*^9}],
477
478Cell[BoxData["\<\"   akaminsk@uni-mainz.de\"\>"], "Print",
479 CellChangeTimes->{3.6654876724795523`*^9, 3.6660104770326977`*^9}],
480
481Cell[BoxData["\<\"   mdevrie@uni-mainz.de\"\>"], "Print",
482 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477033287*^9}],
483
484Cell[BoxData["\<\"References: \"\>"], "Print",
485 CellChangeTimes->{3.6654876724795523`*^9, 3.6660104770338783`*^9}]
486}, Open  ]],
487
488Cell[BoxData[
489 RowBox[{
490  StyleBox[
491   RowBox[{"StringJoin", "::", "string"}], "MessageName"],
492  RowBox[{
493  ":", " "}], "\<\"String expected at position \
494\[NoBreak]\\!\\(\\*RowBox[{\\\"2\\\"}]\\)\[NoBreak] in \
495\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"   \\\\\\\"\\\", \\\"<>\\\", \
496TagBox[ButtonBox[PaneSelectorBox[{False -> \
497\\\"\\\\\\\"http://arxiv.org/abs/1510.03434\\\\\\\"\\\", Rule[True, StyleBox[\
498\\\"\\\\\\\"http://arxiv.org/abs/1510.03434\\\\\\\"\\\", \
499List[\\\"HyperlinkActive\\\"]]]}, Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
500Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
501Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Hyperlink\\\"], \
502Rule[ButtonData, List[URL[\\\"http://arxiv.org/abs/1510.03434\\\"], None]], \
503Rule[ButtonNote, \\\"http://arxiv.org/abs/1510.03434\\\"]], \
504Function[Annotation[Slot[1], \\\"http://arxiv.org/abs/1510.03434\\\", \
505\\\"Hyperlink\\\"]]]}]\\)\[NoBreak]. \
506\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
507ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
508\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
509 CellChangeTimes->{3.666010477080987*^9}],
510
511Cell[CellGroupData[{
512
513Cell[BoxData[
514 RowBox[{"\<\"   \"\>", "<>",
515  TagBox[
516   ButtonBox[
517    PaneSelectorBox[{False->"\<\"http://arxiv.org/abs/1510.03434\"\>", True->
518     StyleBox["\<\"http://arxiv.org/abs/1510.03434\"\>", "HyperlinkActive"]},
519     Dynamic[
520      CurrentValue["MouseOver"]],
521     BaseStyle->{"Hyperlink"},
522     FrameMargins->0,
523     ImageSize->Automatic],
524    BaseStyle->"Hyperlink",
525    ButtonData->{
526      URL["http://arxiv.org/abs/1510.03434"], None},
527    ButtonNote->"http://arxiv.org/abs/1510.03434"],
528   Annotation[#, "http://arxiv.org/abs/1510.03434",
529    "Hyperlink"]& ]}]], "Print",
530 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477082321*^9}],
531
532Cell[BoxData["\<\"URL's: \"\>"], "Print",
533 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477083047*^9}]
534}, Open  ]],
535
536Cell[BoxData[
537 RowBox[{
538  StyleBox[
539   RowBox[{"StringJoin", "::", "string"}], "MessageName"],
540  RowBox[{
541  ":", " "}], "\<\"String expected at position \
542\[NoBreak]\\!\\(\\*RowBox[{\\\"2\\\"}]\\)\[NoBreak] in \
543\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"   \\\\\\\"\\\", \\\"<>\\\", \
544TagBox[ButtonBox[PaneSelectorBox[{False -> \
545\\\"\\\\\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\\\\\"\\\", \
546Rule[True, \
547StyleBox[\\\"\\\\\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\\\\\"\
548\\\", List[\\\"HyperlinkActive\\\"]]]}, \
549Dynamic[CurrentValue[\\\"MouseOver\\\"]], Rule[BaseStyle, \
550List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], Rule[ImageSize, Automatic]], \
551Rule[BaseStyle, \\\"Hyperlink\\\"], Rule[ButtonData, \
552List[URL[\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\"], None]], \
553Rule[ButtonNote, \\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\"]], \
554Function[Annotation[Slot[1], \
555\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\", \
556\\\"Hyperlink\\\"]]]}]\\)\[NoBreak]. \
557\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
558ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
559\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
560 CellChangeTimes->{3.666010477137003*^9}],
561
562Cell[BoxData[
563 RowBox[{"\<\"   \"\>", "<>",
564  TagBox[
565   ButtonBox[
566    PaneSelectorBox[{
567     False->"\<\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\"\>", True->
568     
569     StyleBox["\<\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\"\>",
570      "HyperlinkActive"]}, Dynamic[
571      CurrentValue["MouseOver"]],
572     BaseStyle->{"Hyperlink"},
573     FrameMargins->0,
574     ImageSize->Automatic],
575    BaseStyle->"Hyperlink",
576    ButtonData->{
577      URL["http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM"], None},
578    ButtonNote->"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM"],
579   Annotation[#, "http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM",
580    "Hyperlink"]& ]}]], "Print",
581 CellChangeTimes->{3.6654876724795523`*^9, 3.666010477138538*^9}]
582}, Open  ]]
583}, Open  ]],
584
585Cell[CellGroupData[{
586
587Cell["Lagrangian & Vertices", "Section",
588 CellChangeTimes->{{3.634887228523443*^9, 3.634887238238522*^9}}],
589
590Cell[CellGroupData[{
591
592Cell["Lagrangian", "Subsection",
593 CellChangeTimes->{{3.6348872639011497`*^9, 3.6348872656833563`*^9}}],
594
595Cell[CellGroupData[{
596
597Cell[BoxData["LRM"], "Input",
598 CellChangeTimes->{{3.647152575960599*^9, 3.647152581317754*^9}, {
599  3.6478517285774527`*^9, 3.647851728938452*^9}, {3.654589051505088*^9,
600  3.654589051846423*^9}}],
601
602Cell[BoxData[
603 RowBox[{
604  RowBox[{
605   RowBox[{"-",
606    FractionBox["1", "2"]}], " ",
607   SubscriptBox["M", "DM"], " ",
608   RowBox[{
609    OverscriptBox["DM", "\<\"-\"\>"], ".", "DM"}]}], "-",
610  RowBox[{
611   SubscriptBox["M", "X"], " ",
612   RowBox[{
613    OverscriptBox["XUP", "\<\"-\"\>"], ".", "XUP"}]}], "+",
614  RowBox[{
615   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ",
616   RowBox[{
617    OverscriptBox["DM", "\<\"-\"\>"], ".",
618    TemplateBox[{"\[Gamma]","mu"},
619     "Superscript"], ".",
620    RowBox[{
621     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "DM", "]"}]}]}], "+",
622  RowBox[{"\[ImaginaryI]", " ",
623   RowBox[{
624    OverscriptBox["XUP", "\<\"-\"\>"], ".",
625    TemplateBox[{"\[Gamma]","mu"},
626     "Superscript"], ".",
627    RowBox[{"(",
628     RowBox[{
629      RowBox[{
630       FractionBox["1", "3"], " ", "\[ImaginaryI]", " ",
631       SubscriptBox["g", "1"], " ", "XUP", " ",
632       SubscriptBox["B", "mu"]}], "+",
633      RowBox[{
634       SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[", "XUP", "]"}], "-",
635      RowBox[{"\[ImaginaryI]", " ",
636       SubscriptBox["g", "s"], " ",
637       RowBox[{
638        SuperscriptBox["T", "a$724"], ".", "XUP"}], " ",
639       SubscriptBox["G",
640        RowBox[{"mu", ",", "a$724"}]]}]}], ")"}]}]}], "-",
641  RowBox[{
642   SubscriptBox["y", "D"], " ",
643   RowBox[{
644    SubscriptBox[
645     OverscriptBox["XUP", "\<\"-\"\>"],
646     RowBox[{"s1", ",", "c1"}]], ".",
647    SubscriptBox["DM", "s1"]}], " ",
648   SubscriptBox["MUP", "c1"]}], "-",
649  RowBox[{
650   SubscriptBox["y", "D"], " ",
651   RowBox[{
652    SubscriptBox["DM", "r$729"], ".",
653    SubscriptBox["XUP",
654     RowBox[{"r$729", ",", "c1"}]]}], " ",
655   SubsuperscriptBox["MUP", "c1", "\[Dagger]"]}], "-",
656  RowBox[{
657   SubsuperscriptBox["M", "M", "2"], " ",
658   SubscriptBox["MUP", "c1"], " ",
659   SubsuperscriptBox["MUP", "c1", "\[Dagger]"]}], "+",
660  RowBox[{
661   RowBox[{"(",
662    RowBox[{
663     RowBox[{
664      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
665      SubsuperscriptBox["MUP", "c1", "\[Dagger]"], "]"}], "-",
666     RowBox[{
667      FractionBox["1", "3"], " ", "\[ImaginaryI]", " ",
668      SubscriptBox["g", "1"], " ",
669      SubscriptBox["B", "mu"], " ",
670      SubsuperscriptBox["MUP", "c1", "\[Dagger]"]}], "+",
671     RowBox[{"\[ImaginaryI]", " ",
672      SubscriptBox["g", "s"], " ",
673      SubscriptBox["G",
674       RowBox[{"mu", ",", "a$725"}]], " ",
675      SubsuperscriptBox["MUP", "i$725", "\[Dagger]"], " ",
676      SubsuperscriptBox["T",
677       RowBox[{"i$725", ",", "c1"}], "a$725"]}]}], ")"}], " ",
678   RowBox[{"(",
679    RowBox[{
680     RowBox[{
681      SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
682      SubscriptBox["MUP", "c1"], "]"}], "+",
683     RowBox[{
684      FractionBox["1", "3"], " ", "\[ImaginaryI]", " ",
685      SubscriptBox["g", "1"], " ",
686      SubscriptBox["B", "mu"], " ",
687      SubscriptBox["MUP", "c1"]}], "-",
688     RowBox[{"\[ImaginaryI]", " ",
689      SubscriptBox["g", "s"], " ",
690      SubscriptBox["G",
691       RowBox[{"mu", ",", "a$726"}]], " ",
692      SubscriptBox["MUP", "i$726"], " ",
693      SubsuperscriptBox["T",
694       RowBox[{"c1", ",", "i$726"}], "a$726"]}]}], ")"}]}], "+",
695  RowBox[{
696   RowBox[{
697    SubscriptBox[
698     OverscriptBox["dq", "\<\"-\"\>"],
699     RowBox[{"s1", ",", "f1", ",", "c1"}]], ".",
700    SubsuperscriptBox["uq",
701     RowBox[{"s2", ",", "f2", ",", "c2"}], "C"]}], " ",
702   SubscriptBox["\[Epsilon]",
703    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
704   SubsuperscriptBox["MUP", "c3", "\[Dagger]"], " ",
705   RowBox[{"(",
706    RowBox[{
707     RowBox[{
708      SubscriptBox[
709       SubscriptBox["P", "\<\"-\"\>"],
710       RowBox[{"s1", ",", "s2"}]], " ",
711      SubscriptBox[
712       TemplateBox[{"y","ud","L"},
713        "Subsuperscript"],
714       RowBox[{"f1", ",", "f2"}]]}], "+",
715     RowBox[{
716      SubscriptBox[
717       SubscriptBox["P", "\<\"+\"\>"],
718       RowBox[{"s1", ",", "s2"}]], " ",
719      SubscriptBox[
720       TemplateBox[{"y","ud","R"},
721        "Subsuperscript"],
722       RowBox[{"f1", ",", "f2"}]]}]}], ")"}]}], "+",
723  RowBox[{
724   RowBox[{
725    SubsuperscriptBox[
726     OverscriptBox["uq", "\<\"-\"\>"],
727     RowBox[{"r$727", ",", "f2", ",", "c2"}], "C"], ".",
728    SubscriptBox["dq",
729     RowBox[{"r$728", ",", "f1", ",", "c1"}]]}], " ",
730   SubscriptBox["\[Epsilon]",
731    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
732   TemplateBox[{SubscriptBox["\[Gamma]",
733      RowBox[{"r$727", ",", "s2"}]],"0"},
734    "Superscript"], " ",
735   TemplateBox[{SubscriptBox["\[Gamma]",
736      RowBox[{"s1", ",", "r$728"}]],"0"},
737    "Superscript"], " ",
738   SubscriptBox["MUP", "c3"], " ",
739   RowBox[{"(",
740    RowBox[{
741     RowBox[{
742      SubscriptBox[
743       SubscriptBox["P", "\<\"-\"\>"],
744       RowBox[{"s2", ",", "s1"}]], " ",
745      SubscriptBox[
746       TemplateBox[{"y","ud","L"},
747        "Subsuperscript"],
748       RowBox[{"f1", ",", "f2"}]]}], "+",
749     RowBox[{
750      SubscriptBox[
751       SubscriptBox["P", "\<\"+\"\>"],
752       RowBox[{"s2", ",", "s1"}]], " ",
753      SubscriptBox[
754       TemplateBox[{"y","ud","R"},
755        "Subsuperscript"],
756       RowBox[{"f1", ",", "f2"}]]}]}], ")"}]}]}]], "Output",
757 CellChangeTimes->{
758  3.634887272586668*^9, 3.634889448116353*^9, 3.63497319087674*^9,
759   3.6351400442774143`*^9, 3.64699786239185*^9, {3.6470011465226*^9,
760   3.6470011515620337`*^9}, 3.647152716830233*^9, 3.647577721463813*^9,
761   3.6475778062255917`*^9, 3.6475781936746902`*^9, 3.64767989900603*^9,
762   3.647851730518477*^9, 3.647854436166458*^9, 3.654589265206051*^9,
763   3.65502749403767*^9, 3.6550278615813637`*^9, {3.655101571087282*^9,
764   3.6551015943640537`*^9}, 3.655101724768732*^9, 3.655102932249732*^9,
765   3.655556268000334*^9, 3.6555566669403553`*^9, 3.6556193230706987`*^9,
766   3.664620734355229*^9, 3.664620855160906*^9, 3.664621145640909*^9,
767   3.66462213660122*^9, 3.664622877794105*^9, 3.6647868376789827`*^9,
768   3.664787361044084*^9, 3.665472647572235*^9}]
769}, Open  ]],
770
771Cell[CellGroupData[{
772
773Cell[BoxData[
774 RowBox[{"GetInteractionTerms", "[", "LRM", "]"}]], "Input",
775 CellChangeTimes->{{3.634888529552161*^9, 3.634888533850655*^9}, {
776   3.6349858166457453`*^9, 3.634985825428479*^9}, 3.647152585834934*^9,
777   3.647851741273836*^9, 3.654589269627035*^9}],
778
779Cell[BoxData[
780 InterpretationBox[
781  RowBox[{"\<\"Neglecting all terms with less than \"\>",
782   "\[InvisibleSpace]", "\<\"3\"\>",
783   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
784  SequenceForm["Neglecting all terms with less than ", "3", " particles."],
785  Editable->False]], "Print",
786 CellChangeTimes->{3.655027497806857*^9, 3.655027866693696*^9,
787  3.655101569511312*^9, 3.655101726138344*^9, 3.655102191432921*^9,
788  3.655102319513343*^9, 3.6551023818225527`*^9, 3.655102933695201*^9,
789  3.6551047240040073`*^9, 3.6551979938454847`*^9, 3.655556277827148*^9,
790  3.6555566685046167`*^9, 3.655617498888996*^9, 3.655619328745755*^9,
791  3.655630680926243*^9, 3.655812151645296*^9, 3.6558122541746902`*^9,
792  3.655812286800385*^9, 3.655812649275105*^9, 3.6558129213558283`*^9,
793  3.655812989610148*^9, 3.6558160734970903`*^9, 3.664622881228438*^9,
794  3.664787392961952*^9, 3.6654726484116087`*^9}],
795
796Cell[BoxData[
797 RowBox[{
798  RowBox[{
799   RowBox[{"-",
800    FractionBox["1", "3"]}], " ", "e", " ",
801   SubscriptBox["A", "mu"], " ",
802   RowBox[{
803    SubscriptBox[
804     OverscriptBox["X", "\<\"-\"\>"],
805     RowBox[{"i$746", ",", "i1$748"}]], ".",
806    SubscriptBox["X",
807     RowBox[{"j$746", ",", "i1$748"}]]}], " ",
808   TemplateBox[{SubscriptBox["\[Gamma]",
809      RowBox[{"i$746", ",", "j$746"}]],"mu"},
810    "Superscript"]}], "+",
811  RowBox[{
812   FractionBox["1", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
813   SubscriptBox["A", "mu"], " ",
814   RowBox[{
815    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
816    SubsuperscriptBox["M", "c1", "\[Dagger]"], "]"}], " ",
817   SubscriptBox["M", "c1"]}], "-",
818  RowBox[{
819   SubscriptBox["y", "D"], " ",
820   RowBox[{
821    SubscriptBox[
822     OverscriptBox["X", "\<\"-\"\>"],
823     RowBox[{"s1", ",", "c1"}]], ".",
824    SubscriptBox["DM", "s1"]}], " ",
825   SubscriptBox["M", "c1"]}], "-",
826  RowBox[{
827   FractionBox["1", "3"], " ", "\[ImaginaryI]", " ", "e", " ",
828   SubscriptBox["A", "mu"], " ",
829   RowBox[{
830    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
831    SubscriptBox["M", "c1"], "]"}], " ",
832   SubsuperscriptBox["M", "c1", "\[Dagger]"]}], "-",
833  RowBox[{
834   SubscriptBox["y", "D"], " ",
835   RowBox[{
836    SubscriptBox["DM", "r$739"], ".",
837    SubscriptBox["X",
838     RowBox[{"r$739", ",", "c1"}]]}], " ",
839   SubsuperscriptBox["M", "c1", "\[Dagger]"]}], "+",
840  RowBox[{
841   FractionBox["1", "9"], " ",
842   SuperscriptBox["e", "2"], " ",
843   SubsuperscriptBox["A", "mu", "2"], " ",
844   SubscriptBox["M", "c1"], " ",
845   SubsuperscriptBox["M", "c1", "\[Dagger]"]}], "+",
846  RowBox[{
847   SubscriptBox["g", "s"], " ",
848   RowBox[{
849    SubscriptBox[
850     OverscriptBox["X", "\<\"-\"\>"],
851     RowBox[{"i$751", ",", "i$750"}]], ".",
852    SubscriptBox["X",
853     RowBox[{"j$751", ",", "j$750"}]]}], " ",
854   SubscriptBox["G",
855    RowBox[{"mu", ",", "a$734"}]], " ",
856   TemplateBox[{SubscriptBox["\[Gamma]",
857      RowBox[{"i$751", ",", "j$751"}]],"mu"},
858    "Superscript"], " ",
859   SubsuperscriptBox["T",
860    RowBox[{"i$750", ",", "j$750"}], "a$734"]}], "+",
861  RowBox[{"\[ImaginaryI]", " ",
862   SubscriptBox["g", "s"], " ",
863   RowBox[{
864    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
865    SubscriptBox["M", "c1"], "]"}], " ",
866   SubscriptBox["G",
867    RowBox[{"mu", ",", "a$735"}]], " ",
868   SubsuperscriptBox["M", "i$735", "\[Dagger]"], " ",
869   SubsuperscriptBox["T",
870    RowBox[{"i$735", ",", "c1"}], "a$735"]}], "-",
871  RowBox[{
872   FractionBox["1", "3"], " ", "e", " ",
873   SubscriptBox["g", "s"], " ",
874   SubscriptBox["A", "mu"], " ",
875   SubscriptBox["G",
876    RowBox[{"mu", ",", "a$735"}]], " ",
877   SubscriptBox["M", "c1"], " ",
878   SubsuperscriptBox["M", "i$735", "\[Dagger]"], " ",
879   SubsuperscriptBox["T",
880    RowBox[{"i$735", ",", "c1"}], "a$735"]}], "-",
881  RowBox[{"\[ImaginaryI]", " ",
882   SubscriptBox["g", "s"], " ",
883   RowBox[{
884    SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
885    SubsuperscriptBox["M", "c1", "\[Dagger]"], "]"}], " ",
886   SubscriptBox["G",
887    RowBox[{"mu", ",", "a$736"}]], " ",
888   SubscriptBox["M", "i$736"], " ",
889   SubsuperscriptBox["T",
890    RowBox[{"c1", ",", "i$736"}], "a$736"]}], "-",
891  RowBox[{
892   FractionBox["1", "3"], " ", "e", " ",
893   SubscriptBox["g", "s"], " ",
894   SubscriptBox["A", "mu"], " ",
895   SubscriptBox["G",
896    RowBox[{"mu", ",", "a$736"}]], " ",
897   SubscriptBox["M", "i$736"], " ",
898   SubsuperscriptBox["M", "c1", "\[Dagger]"], " ",
899   SubsuperscriptBox["T",
900    RowBox[{"c1", ",", "i$736"}], "a$736"]}], "+",
901  RowBox[{
902   SubsuperscriptBox["g", "s", "2"], " ",
903   SubscriptBox["G",
904    RowBox[{"mu", ",", "a$735"}]], " ",
905   SubscriptBox["G",
906    RowBox[{"mu", ",", "a$736"}]], " ",
907   SubscriptBox["M", "i$736"], " ",
908   SubsuperscriptBox["M", "i$735", "\[Dagger]"], " ",
909   SubsuperscriptBox["T",
910    RowBox[{"i$735", ",", "c1"}], "a$735"], " ",
911   SubsuperscriptBox["T",
912    RowBox[{"c1", ",", "i$736"}], "a$736"]}], "+",
913  RowBox[{
914   RowBox[{
915    SubscriptBox[
916     OverscriptBox["d", "\<\"-\"\>"],
917     RowBox[{"s1", ",", "c1"}]], ".",
918    SubsuperscriptBox["u",
919     RowBox[{"s2", ",", "c2"}], "C"]}], " ",
920   SubscriptBox["\[Epsilon]",
921    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
922   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
923   SubscriptBox[
924    SubscriptBox["P", "\<\"-\"\>"],
925    RowBox[{"s1", ",", "s2"}]], " ",
926   SubscriptBox[
927    TemplateBox[{"y","ud","L"},
928     "Subsuperscript"],
929    RowBox[{"1", ",", "1"}]]}], "+",
930  RowBox[{
931   RowBox[{
932    SubsuperscriptBox[
933     OverscriptBox["d", "\<\"-\"\>"],
934     RowBox[{"r$738", ",", "c1"}], "C"], ".",
935    SubscriptBox["u",
936     RowBox[{"r$737", ",", "c2"}]]}], " ",
937   SubscriptBox["\[Epsilon]",
938    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
939   SubscriptBox["M", "c3"], " ",
940   SubscriptBox[
941    SubscriptBox["P", "\<\"+\"\>"],
942    RowBox[{"r$738", ",", "r$737"}]], " ",
943   SubscriptBox[
944    TemplateBox[{"y","ud","L"},
945     "Subsuperscript"],
946    RowBox[{"1", ",", "1"}]]}], "+",
947  RowBox[{
948   RowBox[{
949    SubscriptBox[
950     OverscriptBox["c", "\<\"-\"\>"],
951     RowBox[{"s2", ",", "c2"}]], ".",
952    SubsuperscriptBox["s",
953     RowBox[{"s1", ",", "c1"}], "C"]}], " ",
954   SubscriptBox["\[Epsilon]",
955    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
956   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
957   SubscriptBox[
958    SubscriptBox["P", "\<\"-\"\>"],
959    RowBox[{"s2", ",", "s1"}]], " ",
960   SubscriptBox[
961    TemplateBox[{"y","ud","L"},
962     "Subsuperscript"],
963    RowBox[{"2", ",", "2"}]]}], "+",
964  RowBox[{
965   RowBox[{
966    SubsuperscriptBox[
967     OverscriptBox["c", "\<\"-\"\>"],
968     RowBox[{"r$737", ",", "c2"}], "C"], ".",
969    SubscriptBox["s",
970     RowBox[{"r$738", ",", "c1"}]]}], " ",
971   SubscriptBox["\[Epsilon]",
972    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
973   SubscriptBox["M", "c3"], " ",
974   SubscriptBox[
975    SubscriptBox["P", "\<\"+\"\>"],
976    RowBox[{"r$737", ",", "r$738"}]], " ",
977   SubscriptBox[
978    TemplateBox[{"y","ud","L"},
979     "Subsuperscript"],
980    RowBox[{"2", ",", "2"}]]}], "+",
981  RowBox[{
982   RowBox[{
983    SubscriptBox[
984     OverscriptBox["b", "\<\"-\"\>"],
985     RowBox[{"s1", ",", "c1"}]], ".",
986    SubsuperscriptBox["t",
987     RowBox[{"s2", ",", "c2"}], "C"]}], " ",
988   SubscriptBox["\[Epsilon]",
989    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
990   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
991   SubscriptBox[
992    SubscriptBox["P", "\<\"-\"\>"],
993    RowBox[{"s1", ",", "s2"}]], " ",
994   SubscriptBox[
995    TemplateBox[{"y","ud","L"},
996     "Subsuperscript"],
997    RowBox[{"3", ",", "3"}]]}], "+",
998  RowBox[{
999   RowBox[{
1000    SubsuperscriptBox[
1001     OverscriptBox["b", "\<\"-\"\>"],
1002     RowBox[{"r$738", ",", "c1"}], "C"], ".",
1003    SubscriptBox["t",
1004     RowBox[{"r$737", ",", "c2"}]]}], " ",
1005   SubscriptBox["\[Epsilon]",
1006    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1007   SubscriptBox["M", "c3"], " ",
1008   SubscriptBox[
1009    SubscriptBox["P", "\<\"+\"\>"],
1010    RowBox[{"r$738", ",", "r$737"}]], " ",
1011   SubscriptBox[
1012    TemplateBox[{"y","ud","L"},
1013     "Subsuperscript"],
1014    RowBox[{"3", ",", "3"}]]}], "+",
1015  RowBox[{
1016   RowBox[{
1017    SubsuperscriptBox[
1018     OverscriptBox["d", "\<\"-\"\>"],
1019     RowBox[{"r$738", ",", "c1"}], "C"], ".",
1020    SubscriptBox["u",
1021     RowBox[{"r$737", ",", "c2"}]]}], " ",
1022   SubscriptBox["\[Epsilon]",
1023    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1024   SubscriptBox["M", "c3"], " ",
1025   SubscriptBox[
1026    SubscriptBox["P", "\<\"-\"\>"],
1027    RowBox[{"r$738", ",", "r$737"}]], " ",
1028   SubscriptBox[
1029    TemplateBox[{"y","ud","R"},
1030     "Subsuperscript"],
1031    RowBox[{"1", ",", "1"}]]}], "+",
1032  RowBox[{
1033   RowBox[{
1034    SubscriptBox[
1035     OverscriptBox["d", "\<\"-\"\>"],
1036     RowBox[{"s1", ",", "c1"}]], ".",
1037    SubsuperscriptBox["u",
1038     RowBox[{"s2", ",", "c2"}], "C"]}], " ",
1039   SubscriptBox["\[Epsilon]",
1040    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1041   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
1042   SubscriptBox[
1043    SubscriptBox["P", "\<\"+\"\>"],
1044    RowBox[{"s1", ",", "s2"}]], " ",
1045   SubscriptBox[
1046    TemplateBox[{"y","ud","R"},
1047     "Subsuperscript"],
1048    RowBox[{"1", ",", "1"}]]}], "+",
1049  RowBox[{
1050   RowBox[{
1051    SubsuperscriptBox[
1052     OverscriptBox["c", "\<\"-\"\>"],
1053     RowBox[{"r$737", ",", "c2"}], "C"], ".",
1054    SubscriptBox["s",
1055     RowBox[{"r$738", ",", "c1"}]]}], " ",
1056   SubscriptBox["\[Epsilon]",
1057    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1058   SubscriptBox["M", "c3"], " ",
1059   SubscriptBox[
1060    SubscriptBox["P", "\<\"-\"\>"],
1061    RowBox[{"r$737", ",", "r$738"}]], " ",
1062   SubscriptBox[
1063    TemplateBox[{"y","ud","R"},
1064     "Subsuperscript"],
1065    RowBox[{"2", ",", "2"}]]}], "+",
1066  RowBox[{
1067   RowBox[{
1068    SubscriptBox[
1069     OverscriptBox["c", "\<\"-\"\>"],
1070     RowBox[{"s2", ",", "c2"}]], ".",
1071    SubsuperscriptBox["s",
1072     RowBox[{"s1", ",", "c1"}], "C"]}], " ",
1073   SubscriptBox["\[Epsilon]",
1074    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1075   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
1076   SubscriptBox[
1077    SubscriptBox["P", "\<\"+\"\>"],
1078    RowBox[{"s2", ",", "s1"}]], " ",
1079   SubscriptBox[
1080    TemplateBox[{"y","ud","R"},
1081     "Subsuperscript"],
1082    RowBox[{"2", ",", "2"}]]}], "+",
1083  RowBox[{
1084   RowBox[{
1085    SubsuperscriptBox[
1086     OverscriptBox["b", "\<\"-\"\>"],
1087     RowBox[{"r$738", ",", "c1"}], "C"], ".",
1088    SubscriptBox["t",
1089     RowBox[{"r$737", ",", "c2"}]]}], " ",
1090   SubscriptBox["\[Epsilon]",
1091    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1092   SubscriptBox["M", "c3"], " ",
1093   SubscriptBox[
1094    SubscriptBox["P", "\<\"-\"\>"],
1095    RowBox[{"r$738", ",", "r$737"}]], " ",
1096   SubscriptBox[
1097    TemplateBox[{"y","ud","R"},
1098     "Subsuperscript"],
1099    RowBox[{"3", ",", "3"}]]}], "+",
1100  RowBox[{
1101   RowBox[{
1102    SubscriptBox[
1103     OverscriptBox["b", "\<\"-\"\>"],
1104     RowBox[{"s1", ",", "c1"}]], ".",
1105    SubsuperscriptBox["t",
1106     RowBox[{"s2", ",", "c2"}], "C"]}], " ",
1107   SubscriptBox["\[Epsilon]",
1108    RowBox[{"c3", ",", "c1", ",", "c2"}]], " ",
1109   SubsuperscriptBox["M", "c3", "\[Dagger]"], " ",
1110   SubscriptBox[
1111    SubscriptBox["P", "\<\"+\"\>"],
1112    RowBox[{"s1", ",", "s2"}]], " ",
1113   SubscriptBox[
1114    TemplateBox[{"y","ud","R"},
1115     "Subsuperscript"],
1116    RowBox[{"3", ",", "3"}]]}], "+",
1117  FractionBox[
1118   RowBox[{"e", " ",
1119    SubscriptBox["s", "w"], " ",
1120    RowBox[{
1121     SubscriptBox[
1122      OverscriptBox["X", "\<\"-\"\>"],
1123      RowBox[{"i$753", ",", "i1$755"}]], ".",
1124     SubscriptBox["X",
1125      RowBox[{"j$753", ",", "i1$755"}]]}], " ",
1126    TemplateBox[{SubscriptBox["\[Gamma]",
1127       RowBox[{"i$753", ",", "j$753"}]],"mu"},
1128     "Superscript"], " ",
1129    SubscriptBox["Z", "mu"]}],
1130   RowBox[{"3", " ",
1131    SubscriptBox["c", "w"]}]], "-",
1132  FractionBox[
1133   RowBox[{"\[ImaginaryI]", " ", "e", " ",
1134    SubscriptBox["s", "w"], " ",
1135    RowBox[{
1136     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1137     SubsuperscriptBox["M", "c1", "\[Dagger]"], "]"}], " ",
1138    SubscriptBox["M", "c1"], " ",
1139    SubscriptBox["Z", "mu"]}],
1140   RowBox[{"3", " ",
1141    SubscriptBox["c", "w"]}]], "+",
1142  FractionBox[
1143   RowBox[{"\[ImaginaryI]", " ", "e", " ",
1144    SubscriptBox["s", "w"], " ",
1145    RowBox[{
1146     SubscriptBox["\<\"\[PartialD]\"\>", "mu"], "[",
1147     SubscriptBox["M", "c1"], "]"}], " ",
1148    SubsuperscriptBox["M", "c1", "\[Dagger]"], " ",
1149    SubscriptBox["Z", "mu"]}],
1150   RowBox[{"3", " ",
1151    SubscriptBox["c", "w"]}]], "-",
1152  FractionBox[
1153   RowBox[{"2", " ",
1154    SuperscriptBox["e", "2"], " ",
1155    SubscriptBox["s", "w"], " ",
1156    SubscriptBox["A", "mu"], " ",
1157    SubscriptBox["M", "c1"], " ",
1158    SubsuperscriptBox["M", "c1", "\[Dagger]"], " ",
1159    SubscriptBox["Z", "mu"]}],
1160   RowBox[{"9", " ",
1161    SubscriptBox["c", "w"]}]], "+",
1162  FractionBox[
1163   RowBox[{"e", " ",
1164    SubscriptBox["g", "s"], " ",
1165    SubscriptBox["s", "w"], " ",
1166    SubscriptBox["G",
1167     RowBox[{"mu", ",", "a$735"}]], " ",
1168    SubscriptBox["M", "c1"], " ",
1169    SubsuperscriptBox["M", "i$735", "\[Dagger]"], " ",
1170    SubsuperscriptBox["T",
1171     RowBox[{"i$735", ",", "c1"}], "a$735"], " ",
1172    SubscriptBox["Z", "mu"]}],
1173   RowBox[{"3", " ",
1174    SubscriptBox["c", "w"]}]], "+",
1175  FractionBox[
1176   RowBox[{"e", " ",
1177    SubscriptBox["g", "s"], " ",
1178    SubscriptBox["s", "w"], " ",
1179    SubscriptBox["G",
1180     RowBox[{"mu", ",", "a$736"}]], " ",
1181    SubscriptBox["M", "i$736"], " ",
1182    SubsuperscriptBox["M", "c1", "\[Dagger]"], " ",
1183    SubsuperscriptBox["T",
1184     RowBox[{"c1", ",", "i$736"}], "a$736"], " ",
1185    SubscriptBox["Z", "mu"]}],
1186   RowBox[{"3", " ",
1187    SubscriptBox["c", "w"]}]], "+",
1188  FractionBox[
1189   RowBox[{
1190    SuperscriptBox["e", "2"], " ",
1191    SubsuperscriptBox["s", "w", "2"], " ",
1192    SubscriptBox["M", "c1"], " ",
1193    SubsuperscriptBox["M", "c1", "\[Dagger]"], " ",
1194    SubsuperscriptBox["Z", "mu", "2"]}],
1195   RowBox[{"9", " ",
1196    SubsuperscriptBox["c", "w", "2"]}]]}]], "Output",
1197 CellChangeTimes->{3.6551021914346323`*^9, 3.6551023195337563`*^9,
1198  3.6551023818442583`*^9, 3.655102933730535*^9, 3.655104724030767*^9,
1199  3.655197993959311*^9, 3.655556277917386*^9, 3.655556668541196*^9,
1200  3.655617498991755*^9, 3.65561932885756*^9, 3.655630680974527*^9,
1201  3.6558121517338333`*^9, 3.655812254287847*^9, 3.6558122869067783`*^9,
1202  3.6558126493413363`*^9, 3.6558129215049973`*^9, 3.655812989778638*^9,
1203  3.6558160736110907`*^9, 3.6646228812832747`*^9, 3.664787393035345*^9,
1204  3.665472648437392*^9}]
1205}, Open  ]]
1206}, Closed]],
1207
1208Cell[CellGroupData[{
1209
1210Cell["Vertices", "Subsection",
1211 CellChangeTimes->{{3.634887278373604*^9, 3.634887279656496*^9}, {
1212  3.655715914718471*^9, 3.65571591631217*^9}, {3.656054770832323*^9,
1213  3.65605477254349*^9}, {3.6573430377300158`*^9, 3.657343038941719*^9}}],
1214
1215Cell[CellGroupData[{
1216
1217Cell[BoxData[
1218 RowBox[{
1219  RowBox[{"(*", " ",
1220   RowBox[{
1221   "Calculate", " ", "the", " ", "Feynman", " ", "rules", " ", "for", " ",
1222    "the", " ", "vertices", " ", "in", " ", "LSM"}], " ", "*)"}],
1223  "\[IndentingNewLine]",
1224  RowBox[{
1225   RowBox[{
1226    RowBox[{"Unprotect", "[", "verticesSM", "]"}], ";"}],
1227   "\[IndentingNewLine]",
1228   RowBox[{
1229    RowBox[{"ClearAll", "[", "verticesSM", "]"}], ";"}],
1230   "\[IndentingNewLine]",
1231   RowBox[{
1232    RowBox[{"verticesSM", "=",
1233     RowBox[{"FeynmanRules", "[",
1234      RowBox[{"LSM", ",",
1235       RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]}], ";"}],
1236   "\[IndentingNewLine]",
1237   RowBox[{
1238    RowBox[{"Protect", "[", "verticesSM", "]"}], ";"}]}]}]], "Input",
1239 CellChangeTimes->{{3.63514608024297*^9, 3.635146091846805*^9}}],
1240
1241Cell[CellGroupData[{
1242
1243Cell[BoxData[
1244 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1245  StripOnInput->False,
1246  LineColor->RGBColor[1, 0.5, 0],
1247  FrontFaceColor->RGBColor[1, 0.5, 0],
1248  BackFaceColor->RGBColor[1, 0.5, 0],
1249  GraphicsColor->RGBColor[1, 0.5, 0],
1250  FontWeight->Bold,
1251  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1252 CellChangeTimes->CompressedData["
12531:eJwVxVsoA1AYAOCRtJFoos0kkxaxWrGxue1sSshkG0nbzOySCFkiEVvLXhRS
1254KLeSB4UUoglPLHN7sYZCQ2k5kVvNJpf/PHx9bF2b3BBCoVAEQOV5Wu2Lw4i+
12556xJZ4LRPQYQNfrPeNZLdVxd2MgeZmIOwod3LssP3Af78Ijw8Ze5agsPLhU4y
1256L8R0TR6XJBsYmRiJ7XOLZKWi+IC8z6xTM2FJOkWQAJt+paUsWGP0a8m2ElmF
1257Hm71u8eNcFAcXJmEu5ept1lcjFweX2Q27Hn1ppOPbnrk5NBjei+ZwcwY4cOZ
1258lqpYAfwT5w8rhGfZnzlqeKjmu8AA75m3NshPZxEzDjhJ+M7ahp2pqUfky+n4
1259Z7Kb00R38DAaKPtrGRNh9DLXYWzKw2hC96HLyccoUZbQoIV3TqIOm+EYl+zV
1260B6es0f40BRit37RS3UUYKfy+xnMxRrr+bVqVBCN957yUK4Vt1oXNCox+E88C
12614TKMLF+K0epKjN7rc5W18M5ppIkc/aB9VMH/hezMsg==
1262  "]],
1263
1264Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1265 CellChangeTimes->CompressedData["
12661:eJwVxVsoA1AYAOBNWjYpTWS2ZJLIlGKbjbGzKSETm0saZnZJhCyRiK1lLwop
1267lMtKHlZIISI8sWwuL9ZQCA9aO5FbzSaX/zx8fVxtZ5WeSqFQBEDt9a8NxmLE
12683HeJzXDap4Bhhd8sDy1kz/WljZyKjKwRWN91z7bBj0H+ogMemzX1LsO0MpGT
1269nEU13pCnZEn6eB5GUpvdQVYpi47Ih6z6BhYsS6cIEmDjr7yEDTcaAhqytVhR
1270roM7Ap4pAxyShlZn4L6ViLvsTIxcXl9kDux9vU8nu2/7q8hhJ8wBcjwrY5wP
127188yVMQL4JzYQXgAvcD+FDfBozbdEDx+YtjfJ/nPG/A6cKHpn78LOlBQ3+Wou
12727pnsSW1l7mRhNFz61z4pxujF3m1ozcNoWvuhFeZjxFEkNGvgvdOo4zY42qV4
12739cHJ6/S/RglGG7cdEZ5CjJQBX8uFFCPt0C69UoaRrmdRnimHrZalrXKMfjnn
1274QZoCI/OXcqK6AqP3plxVHbx3Fmkk1/o1T2r4H4hdzQE=
1275  "]],
1276
1277Cell[BoxData["\<\"Collecting the different structures that enter the \
1278vertex.\"\>"], "Print",
1279 CellChangeTimes->CompressedData["
12801:eJwVxVsow1EcAOCRhKU0kW2SSYtstZpt7nY2JWSajaSN2WxLhEgkYlr2opBC
1281uZU8KKQQTeMJ2VxerKHQeNByIkb9mWx+5+Hr4+g7qo1hNBpNDDSel83BBIwY
1282B848C5zxJY6xwh8jjway+/baRuYiM3MUNnZ62Tb46Ue0vAqPz3X3rsGRFbkn
1283ZEGY+Y48LUs1JvEwktqWVslqVckx+YhZr2XCskyamAWbg/IyNtxgonRka6mi
1284shlup9zTJjggDWzMwn3rUQ9CPkZOj4+eDXvevZlk131/NTn8jDFATmJmTYhg
1285nkUZL4b/EqiIIniR8yXRwmO1v4VG+LB7b4f8chmzYIdTcv3sffgkPd1FvplP
1286fCW7uS0MuwCj4fJQ21QeRm9LXaaWfIxm9J96SQFGyQpWkw52nMeetsJxTsW7
1287D07big41FGK0fd8e5S7GSEX5DFdSjPRD+9FKGUbNPctyvhy2jqzsVmIUTL78
1288iVRgZPlWTdZUYeRvzFHXwY4Lupks5NqfNfA/g/fMcg==
1289  "]],
1290
1291Cell[BoxData[
1292 InterpretationBox[
1293  RowBox[{
1294  "98", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1295-> starting the computation: \"\>", "\[InvisibleSpace]",
1296   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1297    ImageSizeCache->{16., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1298   "\[InvisibleSpace]", "98", "\[InvisibleSpace]", "\<\".\"\>"}],
1299  SequenceForm[
1300  98, " possible non-zero vertices have been found -> starting the \
1301computation: ",
1302   Dynamic[FeynRules`FR$FeynmanRules], " / ", 98, "."],
1303  Editable->False]], "Print",
1304 CellChangeTimes->CompressedData["
13051:eJwVxVsoA1AYAOBNWrOlNE2bSSYtQq3YMMbOpoRMDEnMjG0tQqRJxNayF4XU
1306KJeVPCikEFnIAzK3F2soEx60diKX1Vwy/vPw9fG1HZU6KoVCEYN6j391gI0R
1307a9clMcPJATHDCr9ZHprJ7psrG1mADNxhWNd5z7PBj1+i+UV4dLrbtATTSnOO
1308yEKq4ZZslyfoOGkYyWyORXKVqvCQfMCta+DC8hSKOBY2hBTFPFitD2rI1iJl
1309WQvcHnTb9fC37HtlCu5dpt9lpGPk8viYmbDn9T6FfOLtqySHnbL6yRxu6pgI
1310TjNXRIvhX3YwPB+e4weyGuCRmh+pDt7r3tog+y8Ys9twfM47zwkfJSWdkK9n
1311Yp7JboGRtS3EaKjkr21CgtGLo0tvzMVoUvuhzcrDKE4Z26SBd84ij1vhKJfy
13121QcnrkX8qaUYrXvb6e4CjFRBX/OlDCPtoDOiQo5RS8+8Il0BWy0Lm2UYheIu
1313vmhKjMyfqvHqcozeG7OrauGdc6aBvG9yPtXD/4qczVE=
1314  "]],
1315
1316Cell[BoxData[
1317 InterpretationBox[
1318  RowBox[{"93", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1319  SequenceForm[93, " vertices obtained."],
1320  Editable->False]], "Print",
1321 CellChangeTimes->CompressedData["
13221:eJwVxVsoA1AYAOBNLLOUJtotIYlQio2NsbMpIRNDEsOuiZAlErG17EUhhWKU
1323PCikEFnjiWVzebGGMo0Xy4ncakzMfx6+viRVd42WSqFQBKDJ87Q5HIcR88Ap
1324MsJpn4IoM/xmuleT3TdXFnIq0rPHYG2Pj2uBH775y6vwxLyhfw2mVQgd5Gyq
1325/pY8I03UsjIxkliWVsm1ipJj8hG7sZkNS9MpAg6s/5OVcWGlLtBKNpfKKzVw
1326V8A9o4ODkuDGHDywHnmXk4WR0+Nn5MKeV1862eUdrCGHnTKHyCx2xiQfzjRW
1327xwrg37hAeBG8mPSZ1wyP1/+ItfChYW+H/HQRZd2HE4TvXBvsSElxka8X4p/J
13287tR25n42RqPloc5pEUYvS7269gKMZlUfqrxCjHhyTlsrbD+LPumAY5zyVz+c
1329vEUPKcUYbXu7It3FGCkCfvWlBCPViI1eLcVI07csy5LBZtPKbiVGf7yLb5oc
1330I+OXYqquCqP3lvzaBth+ztCTG60Rj03wP4Q9zF0=
1331  "]]
1332}, Open  ]]
1333}, Open  ]],
1334
1335Cell[CellGroupData[{
1336
1337Cell[BoxData[
1338 RowBox[{
1339  RowBox[{"(*", " ",
1340   RowBox[{
1341   "Calculate", " ", "the", " ", "Feynman", " ", "rules", " ", "for", " ",
1342    "the", " ", "vertices", " ", "in", " ", "LRM"}], " ", "*)"}],
1343  "\[IndentingNewLine]",
1344  RowBox[{
1345   RowBox[{
1346    RowBox[{"Unprotect", "[", "verticesRM", "]"}], ";"}],
1347   "\[IndentingNewLine]",
1348   RowBox[{
1349    RowBox[{"ClearAll", "[", "verticesRM", "]"}], ";"}],
1350   "\[IndentingNewLine]",
1351   RowBox[{
1352    RowBox[{"verticesRM", "=",
1353     RowBox[{"FeynmanRules", "[",
1354      RowBox[{"LRM", ",",
1355       RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]}], ";"}],
1356   "\[IndentingNewLine]",
1357   RowBox[{
1358    RowBox[{"Protect", "[", "verticesRM", "]"}], ";"}]}]}]], "Input",
1359 CellChangeTimes->{{3.63488730159483*^9, 3.634887337694689*^9}, {
1360  3.6348873868673763`*^9, 3.634887402192567*^9}, {3.64715258923396*^9,
1361  3.647152617038875*^9}, {3.647851752819191*^9, 3.647851765395403*^9}, {
1362  3.654589277185772*^9, 3.6545892919498*^9}, {3.655533407895679*^9,
1363  3.6555334079781723`*^9}}],
1364
1365Cell[CellGroupData[{
1366
1367Cell[BoxData[
1368 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
1369  StripOnInput->False,
1370  LineColor->RGBColor[1, 0.5, 0],
1371  FrontFaceColor->RGBColor[1, 0.5, 0],
1372  BackFaceColor->RGBColor[1, 0.5, 0],
1373  GraphicsColor->RGBColor[1, 0.5, 0],
1374  FontWeight->Bold,
1375  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1376 CellChangeTimes->CompressedData["
13771:eJwV0FkoRGEYxvGxJGsNLpBcTCNKiRQp6zeEKQ6mccGFZTCmbImoIXsYFJI1
1378ZZ1kjXBClsnYcyEmlCgi8slSkxg5x/tePP1un/4iRbEs10wgEITDtlLXudZQ
1379Sqyy9co2ML/Wphvd16sX0DdNyQcqyVK5toM1N56+6Fe4cR5VT0s3UWOh8gzt
1380tGyiHeBsRt3REuhetvKANlSeja+AMrOZDbTXZNCsgV6m471n0P/T+xItdZx8
1381Ql05i0/Uuvr1Fz1kdOIX0OlblIPeac9L0HQj5dD4fmc/CnLK4D50Ipfy6WGU
1382FKUyDxlgRUjYbhaoX898RJsc7OIUoO1+kFs2qNIND62C7WMOGzfgFWe5fAue
1383rAbYGCIoMUkWc84jKblgPWJ/wQNzoegPHImO3OHBVsOkzovAj45m22QJ9COB
138473JwWz4qVYOng/cMyrSwjhNgff1w+RTICsdm5sEYVryJKk4uT9G2qq1r9IkP
13850oiiKBkaHFhDffL6pWJQNieU+4BFjapoX9ClNO0nCXzntS7JoD2J1bIJlBQM
1386jJisGErKe/iulERK/gGYXQKN
1387  "]],
1388
1389Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1390 CellChangeTimes->CompressedData["
13911:eJwV0H8o3HEcx/HzI/lZx/5Ayx/XLUrJUqSM+RyNK77muv3BH34czpWNRFsd
1392bfMjcyiWmh9Tfl7CpgnfEHbt5tfyh7hQsiKyfMTUtezk+/V6//Hq8e+rp8pQ
1393oStxUygUSdhyzoLU8oQzryK7sRWWvffpJFft5m/kpaXyL6kpNIW0wXeHj6LI
1394f0nOSdI8rl0ina+M22SHZxNvh1/y6zam4cPq2ROyoWZ7eBbq3CYWyU8uh2Ue
1395hrt+rfyBj68j9siqwNEzMkTyuCa9317ckuuCTX0Og25UxeSRdaeSzHNyiczo
1396fhDNoWSM7yJHSricl8hZeY5wkg/fJCT+LIT2hYJTsinAL90AfVfjQougydbf
1397NwfbhgIWD+G+5DnzG27Oxfg4nnLm0kwV7yRztiuGpd3CNXel6g4OpCb/kGGL
1398Y9QWzvCj/YNvtgb9WOyVHn7XD2rNcKv3WCCFZjFwBNbX978eg6JyaGISPhPV
1399S6Rhc2+LbK1dPiDP5DiLKoWzvt6eeTKytFurhrqvSn0kLG80pUbB4Krc/8/h
1400lWwNzob+LM0qZnL2smfA5SWgx2f544sszu4BmfcCwQ==
1401  "]],
1402
1403Cell[BoxData["\<\"Collecting the different structures that enter the \
1404vertex.\"\>"], "Print",
1405 CellChangeTimes->CompressedData["
14061:eJwV0Fsog3EcxvE5JKfVcIHkYk2UEilSjv8RVrxYc8GFwzArp0TUyDkMRZRT
1407CmPJMcIbcljmnAuxUCJE5C+HWmLyzu938fS5ffoK5SXSPAsejxcB20xb49rC
1408KLHJ0SvawYI6ux50T6+aR9/UpR+oOFvp1gHWXnv5oV8RxjlUNSXZQI1FilO0
1409y7qZdoIzmfWHi6BH+fID2lh1OrYMSi2m19Fek0G9CnqbjnafwYBPnwu0zGni
1410CXXjrD5R25rXX/SA0YleQOdvYS56pz0rRTOMlEMT+l38KcgpQvrQ8Txqzgin
1411pDiNecgEK0PDd7JB/VrWI9rMd4iXg/Z7we45oFI3PLQCdmj469fgJWe9dAMe
1412rwTaGSIpMYkXcs+iKDlnPeN+wX1LgfAPHImJ2jaDbYYJnTeBH50t9ili6EeC
14133mXglmxUogJPBu8ZlGllncbBhobhikmQFWim58BYVrSByo8vTtD26s0r9Mkc
1414rBZGUzI0OLCK+ub3S0SgdFYg8wWLm5QxfqBrWfpPMvhu1rqmgI4kTssmUlI4
1415MGKyYSjR3PK7U5Mo+QeWIwIT
1416  "]],
1417
1418Cell[BoxData[
1419 InterpretationBox[
1420  RowBox[{
1421  "16", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
1422-> starting the computation: \"\>", "\[InvisibleSpace]",
1423   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
1424    ImageSizeCache->{8., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1425   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\".\"\>"}],
1426  SequenceForm[
1427  16, " possible non-zero vertices have been found -> starting the \
1428computation: ",
1429   Dynamic[FeynRules`FR$FeynmanRules], " / ", 16, "."],
1430  Editable->False]], "Print",
1431 CellChangeTimes->CompressedData["
14321:eJwV0G8o3HEcB/Az0jA584C19uA6nVIiNSl/vzfNrvjhOg944M/hXDESbXUT
1433w7IdyqL8S/l7yd8IvxB27fzPA3GNWlZbZO0rf+oSJ7/b+/Pg3evp+/1W6Mu1
1434RW4ymSweWc1akppiOfMssBmaYclHr3Zyw2aaJi/MFVekOt8Y1AJrj4PDyJt4
1435xxRpGtOskI63hn3yq0cjb4UTuXXbs/B51fwJ2fBhf2geat3Gl8kOp928CFXO
1436nfW/MOI65JCs9B85I4Mk92vycc35PbklWJX/4NNbRSH523JQQeY4uESmdAWE
1437cygZojvJ4SLuyonjrCxLOMmF72Pi1vKhbSnvlGz09Xmjh94bUc8KoNHa17sA
1438WwZ9l4/hkeQx9wvuLkR62RM4c6pnCg8SOfshvki+h5uP5IoH2J+U+N0Fm+wj
1439VhVDj9bP3hlq/MdeXurgN92AxgT3ev4IpPBF9B+G9fV970ahKB8cn4KvReUK
1440qd893CObq1d/kmeuKLPiFWe9Pd2LZGhxl0YJtZNyXSgs+2RMCoOBldl36fDS
1441ZQnMgE9YskVM5ay0u9/pKWCHyq8tM42z/5JpAYU=
1442  "]],
1443
1444Cell[BoxData[
1445 InterpretationBox[
1446  RowBox[{"16", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1447  SequenceForm[16, " vertices obtained."],
1448  Editable->False]], "Print",
1449 CellChangeTimes->CompressedData["
14501:eJwV0Gkow3Ecx/E5kjlqeIDkwZooJVKWcv5GWPHHmgc8cAyzciWiRu4wFFGu
1451lHPJGeGfybHMnQdioUQRkZ8ctcTkP9/vg0+vp5/eQkWpLN+Kx+NFwrbS17n2
1452cErscg3KDrCwnt+L7hvUi+ibpuwDleSoPDrBuhufAPQr0rSAqmekm6ipWHmG
1453dtu20C5wLqvhaBn0qlh9QJuqzyZWQZnV7AbaZzZqdKCv+XjvGQz69LtEy12m
1454nlAPzuYTta99/UUPGb3oBXT9Fuahd9rzMjTTRDk0ccAtkIKcMrQfncynlswI
1455SkrSmYcssCosYjcHNKxnP6Itzo4JCtBhX+yZC6r0I8NrYOe488YNeMXZrtyC
1456J2vBfGMUJWbJUt55NCUXrHf8L3hgLRD+gaOx0TsWsN04pfcl8KOr1SFVAv1I
1457yLsc3JaPSdXg6dA9gzJtrMsk2Ng4UjkNsoLx2QUwjhVtooqTy1O0o2brGn2y
1458iDXCGEqGhwZ1qH/BgFQEyuYFcn+wpFkVGwC6l2f8pIDvFq17KuhE4rVsEiVF
1459g6NmO4aSSurZk5ZMyT+VWAH+
1460  "]]
1461}, Open  ]]
1462}, Open  ]],
1463
1464Cell[CellGroupData[{
1465
1466Cell[BoxData[
1467 RowBox[{
1468  RowBox[{"FullSimplify", "[", "verticesRM", "]"}], "//", "Grid"}]], "Input",
1469 CellChangeTimes->{{3.634974029798752*^9, 3.6349740308702307`*^9}, {
1470   3.6351404638971977`*^9, 3.635140498097554*^9}, {3.6351419493699903`*^9,
1471   3.635141993301669*^9}, {3.647152608065353*^9, 3.647152608362949*^9},
1472   3.647851768057683*^9, 3.6545892971068287`*^9}],
1473
1474Cell[BoxData[
1475 TagBox[GridBox[{
1476    {
1477     RowBox[{"{",
1478      RowBox[{
1479       RowBox[{"{",
1480        RowBox[{
1481         OverscriptBox["X", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1482       RowBox[{"{",
1483        RowBox[{"X", ",", "2"}], "}"}], ",",
1484       RowBox[{"{",
1485        RowBox[{"A", ",", "3"}], "}"}]}], "}"}],
1486     RowBox[{
1487      RowBox[{"-",
1488       FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
1489      TemplateBox[{SubscriptBox["\[Gamma]",
1490         RowBox[{
1491           SubscriptBox["\"s\"", "1"], ",",
1492           SubscriptBox["\"s\"", "2"]}]],SubscriptBox["\"\[Mu]\"", "3"]},
1493       "Superscript"], " ",
1494      SubscriptBox["\[Delta]",
1495       RowBox[{
1496        SubscriptBox["\<\"m\"\>", "1"], ",",
1497        SubscriptBox["\<\"m\"\>", "2"]}]]}]},
1498    {
1499     RowBox[{"{",
1500      RowBox[{
1501       RowBox[{"{",
1502        RowBox[{"A", ",", "1"}], "}"}], ",",
1503       RowBox[{"{",
1504        RowBox[{"M", ",", "2"}], "}"}], ",",
1505       RowBox[{"{",
1506        RowBox[{
1507         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
1508     RowBox[{
1509      RowBox[{"-",
1510       FractionBox["1", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
1511      RowBox[{"(",
1512       RowBox[{
1513        SubsuperscriptBox["\<\"p\"\>", "2",
1514         SubscriptBox["\<\"\[Mu]\"\>", "1"]], "-",
1515        SubsuperscriptBox["\<\"p\"\>", "3",
1516         SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], ")"}], " ",
1517      SubscriptBox["\[Delta]",
1518       RowBox[{
1519        SubscriptBox["\<\"m\"\>", "2"], ",",
1520        SubscriptBox["\<\"m\"\>", "3"]}]]}]},
1521    {
1522     RowBox[{"{",
1523      RowBox[{
1524       RowBox[{"{",
1525        RowBox[{
1526         OverscriptBox["X", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1527       RowBox[{"{",
1528        RowBox[{"DM", ",", "2"}], "}"}], ",",
1529       RowBox[{"{",
1530        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
1531     RowBox[{
1532      RowBox[{"-", "\[ImaginaryI]"}], " ",
1533      SubscriptBox["y", "D"], " ",
1534      SubscriptBox["\[Delta]",
1535       RowBox[{
1536        SubscriptBox["\<\"m\"\>", "1"], ",",
1537        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1538      SubscriptBox["\[Delta]",
1539       RowBox[{
1540        SubscriptBox["\<\"s\"\>", "1"], ",",
1541        SubscriptBox["\<\"s\"\>", "2"]}]]}]},
1542    {
1543     RowBox[{"{",
1544      RowBox[{
1545       RowBox[{"{",
1546        RowBox[{"DM", ",", "1"}], "}"}], ",",
1547       RowBox[{"{",
1548        RowBox[{"X", ",", "2"}], "}"}], ",",
1549       RowBox[{"{",
1550        RowBox[{
1551         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
1552     RowBox[{
1553      RowBox[{"-", "\[ImaginaryI]"}], " ",
1554      SubscriptBox["y", "D"], " ",
1555      SubscriptBox["\[Delta]",
1556       RowBox[{
1557        SubscriptBox["\<\"m\"\>", "2"], ",",
1558        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1559      SubscriptBox["\[Delta]",
1560       RowBox[{
1561        SubscriptBox["\<\"s\"\>", "1"], ",",
1562        SubscriptBox["\<\"s\"\>", "2"]}]]}]},
1563    {
1564     RowBox[{"{",
1565      RowBox[{
1566       RowBox[{"{",
1567        RowBox[{"A", ",", "1"}], "}"}], ",",
1568       RowBox[{"{",
1569        RowBox[{"A", ",", "2"}], "}"}], ",",
1570       RowBox[{"{",
1571        RowBox[{"M", ",", "3"}], "}"}], ",",
1572       RowBox[{"{",
1573        RowBox[{
1574         SuperscriptBox["M", "\[Dagger]"], ",", "4"}], "}"}]}], "}"}],
1575     RowBox[{
1576      FractionBox["2", "9"], " ", "\[ImaginaryI]", " ",
1577      SuperscriptBox["e", "2"], " ",
1578      SubscriptBox["\[Delta]",
1579       RowBox[{
1580        SubscriptBox["\<\"m\"\>", "3"], ",",
1581        SubscriptBox["\<\"m\"\>", "4"]}]], " ",
1582      SubscriptBox["\[Eta]",
1583       RowBox[{
1584        SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1585        SubscriptBox["\<\"\[Mu]\"\>", "2"]}]]}]},
1586    {
1587     RowBox[{"{",
1588      RowBox[{
1589       RowBox[{"{",
1590        RowBox[{
1591         OverscriptBox["X", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1592       RowBox[{"{",
1593        RowBox[{"X", ",", "2"}], "}"}], ",",
1594       RowBox[{"{",
1595        RowBox[{"G", ",", "3"}], "}"}]}], "}"}],
1596     RowBox[{"\[ImaginaryI]", " ",
1597      SubscriptBox["g", "s"], " ",
1598      TemplateBox[{SubscriptBox["\[Gamma]",
1599         RowBox[{
1600           SubscriptBox["\"s\"", "1"], ",",
1601           SubscriptBox["\"s\"", "2"]}]],SubscriptBox["\"\[Mu]\"", "3"]},
1602       "Superscript"], " ",
1603      SubsuperscriptBox["T",
1604       RowBox[{
1605        SubscriptBox["\<\"m\"\>", "1"], ",",
1606        SubscriptBox["\<\"m\"\>", "2"]}],
1607       SubscriptBox["\<\"a\"\>", "3"]]}]},
1608    {
1609     RowBox[{"{",
1610      RowBox[{
1611       RowBox[{"{",
1612        RowBox[{"G", ",", "1"}], "}"}], ",",
1613       RowBox[{"{",
1614        RowBox[{"M", ",", "2"}], "}"}], ",",
1615       RowBox[{"{",
1616        RowBox[{
1617         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
1618     RowBox[{"\[ImaginaryI]", " ",
1619      SubscriptBox["g", "s"], " ",
1620      RowBox[{"(",
1621       RowBox[{
1622        SubsuperscriptBox["\<\"p\"\>", "2",
1623         SubscriptBox["\<\"\[Mu]\"\>", "1"]], "-",
1624        SubsuperscriptBox["\<\"p\"\>", "3",
1625         SubscriptBox["\<\"\[Mu]\"\>", "1"]]}], ")"}], " ",
1626      SubsuperscriptBox["T",
1627       RowBox[{
1628        SubscriptBox["\<\"m\"\>", "3"], ",",
1629        SubscriptBox["\<\"m\"\>", "2"]}],
1630       SubscriptBox["\<\"a\"\>", "1"]]}]},
1631    {
1632     RowBox[{"{",
1633      RowBox[{
1634       RowBox[{"{",
1635        RowBox[{"A", ",", "1"}], "}"}], ",",
1636       RowBox[{"{",
1637        RowBox[{"G", ",", "2"}], "}"}], ",",
1638       RowBox[{"{",
1639        RowBox[{"M", ",", "3"}], "}"}], ",",
1640       RowBox[{"{",
1641        RowBox[{
1642         SuperscriptBox["M", "\[Dagger]"], ",", "4"}], "}"}]}], "}"}],
1643     RowBox[{
1644      RowBox[{"-",
1645       FractionBox["2", "3"]}], " ", "\[ImaginaryI]", " ", "e", " ",
1646      SubscriptBox["g", "s"], " ",
1647      SubscriptBox["\[Eta]",
1648       RowBox[{
1649        SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1650        SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1651      SubsuperscriptBox["T",
1652       RowBox[{
1653        SubscriptBox["\<\"m\"\>", "4"], ",",
1654        SubscriptBox["\<\"m\"\>", "3"]}],
1655       SubscriptBox["\<\"a\"\>", "2"]]}]},
1656    {
1657     RowBox[{"{",
1658      RowBox[{
1659       RowBox[{"{",
1660        RowBox[{"G", ",", "1"}], "}"}], ",",
1661       RowBox[{"{",
1662        RowBox[{"G", ",", "2"}], "}"}], ",",
1663       RowBox[{"{",
1664        RowBox[{"M", ",", "3"}], "}"}], ",",
1665       RowBox[{"{",
1666        RowBox[{
1667         SuperscriptBox["M", "\[Dagger]"], ",", "4"}], "}"}]}], "}"}],
1668     RowBox[{"\[ImaginaryI]", " ",
1669      SubsuperscriptBox["g", "s", "2"], " ",
1670      SubscriptBox["\[Eta]",
1671       RowBox[{
1672        SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1673        SubscriptBox["\<\"\[Mu]\"\>", "2"]}]], " ",
1674      RowBox[{"(",
1675       RowBox[{
1676        RowBox[{
1677         SubsuperscriptBox["T",
1678          RowBox[{
1679           SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
1680          SubscriptBox["\<\"a\"\>", "1"]], " ",
1681         SubsuperscriptBox["T",
1682          RowBox[{"Colour$1", ",",
1683           SubscriptBox["\<\"m\"\>", "3"]}],
1684          SubscriptBox["\<\"a\"\>", "2"]]}], "+",
1685        RowBox[{
1686         SubsuperscriptBox["T",
1687          RowBox[{"Colour$1", ",",
1688           SubscriptBox["\<\"m\"\>", "3"]}],
1689          SubscriptBox["\<\"a\"\>", "1"]], " ",
1690         SubsuperscriptBox["T",
1691          RowBox[{
1692           SubscriptBox["\<\"m\"\>", "4"], ",", "Colour$1"}],
1693          SubscriptBox["\<\"a\"\>", "2"]]}]}], ")"}]}]},
1694    {
1695     RowBox[{"{",
1696      RowBox[{
1697       RowBox[{"{",
1698        RowBox[{
1699         OverscriptBox["dq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1700       RowBox[{"{",
1701        RowBox[{
1702         OverscriptBox["uq", "\<\"-\"\>"], ",", "2"}], "}"}], ",",
1703       RowBox[{"{",
1704        RowBox[{
1705         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
1706     RowBox[{"\[ImaginaryI]", " ",
1707      SubscriptBox["\[Epsilon]",
1708       RowBox[{
1709        SubscriptBox["\<\"m\"\>", "1"], ",",
1710        SubscriptBox["\<\"m\"\>", "2"], ",",
1711        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1712      RowBox[{"(",
1713       RowBox[{
1714        RowBox[{
1715         SubscriptBox[
1716          SubscriptBox["P", "\<\"-\"\>"],
1717          RowBox[{
1718           SubscriptBox["\<\"s\"\>", "1"], ",",
1719           SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1720         SubscriptBox[
1721          TemplateBox[{"y","ud","L"},
1722           "Subsuperscript"],
1723          RowBox[{
1724           SubscriptBox["\<\"f\"\>", "1"], ",",
1725           SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
1726        RowBox[{
1727         SubscriptBox[
1728          SubscriptBox["P", "\<\"+\"\>"],
1729          RowBox[{
1730           SubscriptBox["\<\"s\"\>", "1"], ",",
1731           SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1732         SubscriptBox[
1733          TemplateBox[{"y","ud","R"},
1734           "Subsuperscript"],
1735          RowBox[{
1736           SubscriptBox["\<\"f\"\>", "1"], ",",
1737           SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}]},
1738    {
1739     RowBox[{"{",
1740      RowBox[{
1741       RowBox[{"{",
1742        RowBox[{"dq", ",", "1"}], "}"}], ",",
1743       RowBox[{"{",
1744        RowBox[{"uq", ",", "2"}], "}"}], ",",
1745       RowBox[{"{",
1746        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
1747     RowBox[{"\[ImaginaryI]", " ",
1748      SubscriptBox["\[Epsilon]",
1749       RowBox[{
1750        SubscriptBox["\<\"m\"\>", "1"], ",",
1751        SubscriptBox["\<\"m\"\>", "2"], ",",
1752        SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1753      RowBox[{"(",
1754       RowBox[{
1755        RowBox[{
1756         SubscriptBox[
1757          SubscriptBox["P", "\<\"+\"\>"],
1758          RowBox[{
1759           SubscriptBox["\<\"s\"\>", "1"], ",",
1760           SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1761         SubscriptBox[
1762          TemplateBox[{"y","ud","L"},
1763           "Subsuperscript"],
1764          RowBox[{
1765           SubscriptBox["\<\"f\"\>", "1"], ",",
1766           SubscriptBox["\<\"f\"\>", "2"]}]]}], "+",
1767        RowBox[{
1768         SubscriptBox[
1769          SubscriptBox["P", "\<\"-\"\>"],
1770          RowBox[{
1771           SubscriptBox["\<\"s\"\>", "1"], ",",
1772           SubscriptBox["\<\"s\"\>", "2"]}]], " ",
1773         SubscriptBox[
1774          TemplateBox[{"y","ud","R"},
1775           "Subsuperscript"],
1776          RowBox[{
1777           SubscriptBox["\<\"f\"\>", "1"], ",",
1778           SubscriptBox["\<\"f\"\>", "2"]}]]}]}], ")"}]}]},
1779    {
1780     RowBox[{"{",
1781      RowBox[{
1782       RowBox[{"{",
1783        RowBox[{
1784         OverscriptBox["X", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
1785       RowBox[{"{",
1786        RowBox[{"X", ",", "2"}], "}"}], ",",
1787       RowBox[{"{",
1788        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}],
1789     FractionBox[
1790      RowBox[{"\[ImaginaryI]", " ", "e", " ",
1791       SubscriptBox["s", "w"], " ",
1792       TemplateBox[{SubscriptBox["\[Gamma]",
1793          RowBox[{
1794            SubscriptBox["\"s\"", "1"], ",",
1795            SubscriptBox["\"s\"", "2"]}]],SubscriptBox["\"\[Mu]\"", "3"]},
1796        "Superscript"], " ",
1797       SubscriptBox["\[Delta]",
1798        RowBox[{
1799         SubscriptBox["\<\"m\"\>", "1"], ",",
1800         SubscriptBox["\<\"m\"\>", "2"]}]]}],
1801      RowBox[{"3", " ",
1802       SubscriptBox["c", "w"]}]]},
1803    {
1804     RowBox[{"{",
1805      RowBox[{
1806       RowBox[{"{",
1807        RowBox[{"M", ",", "1"}], "}"}], ",",
1808       RowBox[{"{",
1809        RowBox[{
1810         SuperscriptBox["M", "\[Dagger]"], ",", "2"}], "}"}], ",",
1811       RowBox[{"{",
1812        RowBox[{"Z", ",", "3"}], "}"}]}], "}"}],
1813     FractionBox[
1814      RowBox[{"\[ImaginaryI]", " ", "e", " ",
1815       SubscriptBox["s", "w"], " ",
1816       RowBox[{"(",
1817        RowBox[{
1818         SubsuperscriptBox["\<\"p\"\>", "1",
1819          SubscriptBox["\<\"\[Mu]\"\>", "3"]], "-",
1820         SubsuperscriptBox["\<\"p\"\>", "2",
1821          SubscriptBox["\<\"\[Mu]\"\>", "3"]]}], ")"}], " ",
1822       SubscriptBox["\[Delta]",
1823        RowBox[{
1824         SubscriptBox["\<\"m\"\>", "1"], ",",
1825         SubscriptBox["\<\"m\"\>", "2"]}]]}],
1826      RowBox[{"3", " ",
1827       SubscriptBox["c", "w"]}]]},
1828    {
1829     RowBox[{"{",
1830      RowBox[{
1831       RowBox[{"{",
1832        RowBox[{"A", ",", "1"}], "}"}], ",",
1833       RowBox[{"{",
1834        RowBox[{"M", ",", "2"}], "}"}], ",",
1835       RowBox[{"{",
1836        RowBox[{
1837         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}], ",",
1838       RowBox[{"{",
1839        RowBox[{"Z", ",", "4"}], "}"}]}], "}"}],
1840     RowBox[{"-",
1841      FractionBox[
1842       RowBox[{"2", " ", "\[ImaginaryI]", " ",
1843        SuperscriptBox["e", "2"], " ",
1844        SubscriptBox["s", "w"], " ",
1845        SubscriptBox["\[Delta]",
1846         RowBox[{
1847          SubscriptBox["\<\"m\"\>", "2"], ",",
1848          SubscriptBox["\<\"m\"\>", "3"]}]], " ",
1849        SubscriptBox["\[Eta]",
1850         RowBox[{
1851          SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1852          SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
1853       RowBox[{"9", " ",
1854        SubscriptBox["c", "w"]}]]}]},
1855    {
1856     RowBox[{"{",
1857      RowBox[{
1858       RowBox[{"{",
1859        RowBox[{"G", ",", "1"}], "}"}], ",",
1860       RowBox[{"{",
1861        RowBox[{"M", ",", "2"}], "}"}], ",",
1862       RowBox[{"{",
1863        RowBox[{
1864         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}], ",",
1865       RowBox[{"{",
1866        RowBox[{"Z", ",", "4"}], "}"}]}], "}"}],
1867     FractionBox[
1868      RowBox[{"2", " ", "\[ImaginaryI]", " ", "e", " ",
1869       SubscriptBox["g", "s"], " ",
1870       SubscriptBox["s", "w"], " ",
1871       SubscriptBox["\[Eta]",
1872        RowBox[{
1873         SubscriptBox["\<\"\[Mu]\"\>", "1"], ",",
1874         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]], " ",
1875       SubsuperscriptBox["T",
1876        RowBox[{
1877         SubscriptBox["\<\"m\"\>", "3"], ",",
1878         SubscriptBox["\<\"m\"\>", "2"]}],
1879        SubscriptBox["\<\"a\"\>", "1"]]}],
1880      RowBox[{"3", " ",
1881       SubscriptBox["c", "w"]}]]},
1882    {
1883     RowBox[{"{",
1884      RowBox[{
1885       RowBox[{"{",
1886        RowBox[{"M", ",", "1"}], "}"}], ",",
1887       RowBox[{"{",
1888        RowBox[{
1889         SuperscriptBox["M", "\[Dagger]"], ",", "2"}], "}"}], ",",
1890       RowBox[{"{",
1891        RowBox[{"Z", ",", "3"}], "}"}], ",",
1892       RowBox[{"{",
1893        RowBox[{"Z", ",", "4"}], "}"}]}], "}"}],
1894     FractionBox[
1895      RowBox[{"2", " ", "\[ImaginaryI]", " ",
1896       SuperscriptBox["e", "2"], " ",
1897       SubsuperscriptBox["s", "w", "2"], " ",
1898       SubscriptBox["\[Delta]",
1899        RowBox[{
1900         SubscriptBox["\<\"m\"\>", "1"], ",",
1901         SubscriptBox["\<\"m\"\>", "2"]}]], " ",
1902       SubscriptBox["\[Eta]",
1903        RowBox[{
1904         SubscriptBox["\<\"\[Mu]\"\>", "3"], ",",
1905         SubscriptBox["\<\"\[Mu]\"\>", "4"]}]]}],
1906      RowBox[{"9", " ",
1907       SubsuperscriptBox["c", "w", "2"]}]]}
1908   },
1909   AutoDelete->False,
1910   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
1911  "Grid"]], "Output",
1912 CellChangeTimes->{{3.6551022304833097`*^9, 3.655102234350469*^9},
1913   3.65510233860131*^9, 3.655102391460032*^9, 3.6551029135424833`*^9,
1914   3.655102964924403*^9, 3.655104728317984*^9, 3.655104813928438*^9,
1915   3.655105029793626*^9, 3.655105075287498*^9, 3.655446286041634*^9,
1916   3.655449373903075*^9, 3.655449612663732*^9, 3.655533227577836*^9,
1917   3.6555333312986593`*^9, 3.655533412617752*^9, 3.6555560523085747`*^9,
1918   3.655556291025036*^9, 3.655556901251822*^9, 3.655617512591721*^9,
1919   3.655619337522871*^9, {3.6556204261656017`*^9, 3.6556204301840887`*^9},
1920   3.655620474744467*^9, 3.655620599771541*^9, 3.6556214334004908`*^9,
1921   3.655622022449513*^9, 3.65562253355896*^9, 3.6556228547099733`*^9,
1922   3.655623019985259*^9, 3.655624343338215*^9, 3.655630686635502*^9,
1923   3.655704142462492*^9, 3.655704360676942*^9, 3.6557079361241627`*^9, {
1924   3.655708130301948*^9, 3.655708135161607*^9}, 3.6557159240323887`*^9,
1925   3.655812801555945*^9, 3.6558129327041893`*^9, 3.655813006081242*^9,
1926   3.6558130930598392`*^9, 3.655813315957605*^9, 3.655815976553174*^9,
1927   3.65581608349868*^9, 3.655817211540636*^9, 3.655817596639309*^9, {
1928   3.655818422761902*^9, 3.6558184289626637`*^9}, 3.656054786529993*^9,
1929   3.6560566138084917`*^9, 3.6560604519396*^9, 3.65606071705588*^9,
1930   3.6560615100439672`*^9, 3.656063181372514*^9, 3.656322327210442*^9,
1931   3.657343052842894*^9, 3.6578660245875874`*^9, 3.657947708267151*^9,
1932   3.657951498449732*^9, 3.657956884310305*^9, 3.6580367447517357`*^9,
1933   3.658647639335425*^9, 3.6586556126665173`*^9, 3.6587321125678263`*^9,
1934   3.658732153267976*^9, 3.658817681804722*^9, 3.658828726938612*^9,
1935   3.658839393591278*^9, {3.6588395260567017`*^9, 3.658839532016695*^9},
1936   3.658839689861779*^9, 3.658839778247656*^9, 3.659074636792632*^9,
1937   3.659075025291634*^9, 3.6590782226578693`*^9, 3.6590926425258017`*^9,
1938   3.6590986625524073`*^9, 3.659171790002907*^9, 3.659172032185773*^9,
1939   3.664622893284832*^9, 3.665472657059266*^9}]
1940}, Open  ]]
1941}, Closed]],
1942
1943Cell[CellGroupData[{
1944
1945Cell["Decay Widths", "Subsection",
1946 CellChangeTimes->{{3.634887352050088*^9, 3.634887354446849*^9}}],
1947
1948Cell[CellGroupData[{
1949
1950Cell[BoxData[
1951 RowBox[{
1952  RowBox[{"(*", " ",
1953   RowBox[{
1954   "Calculate", " ", "the", " ", "decay", " ", "width", " ", "of", " ", "the",
1955     " ", "unstable", " ", "particles", " ", "in", " ", "LRM"}], " ", "*)"}],
1956  "\[IndentingNewLine]",
1957  RowBox[{
1958   RowBox[{
1959    RowBox[{"Unprotect", "[", "decaysRM", "]"}], ";"}], "\[IndentingNewLine]",
1960   RowBox[{
1961    RowBox[{"ClearAll", "[", "decaysRM", "]"}], ";"}], "\[IndentingNewLine]",
1962   
1963   RowBox[{
1964    RowBox[{"decaysRM", "=",
1965     RowBox[{"ComputeWidths", "[", "verticesRM", "]"}]}], ";"}],
1966   "\[IndentingNewLine]",
1967   RowBox[{
1968    RowBox[{"Protect", "[", "decaysRM", "]"}], ";"}]}]}]], "Input",
1969 CellChangeTimes->{{3.634887365329575*^9, 3.634887375269136*^9}, {
1970  3.6348874053259277`*^9, 3.634887441982473*^9}, {3.647152787033535*^9,
1971  3.647152798731292*^9}, {3.647851785864225*^9, 3.647851797329191*^9}, {
1972  3.6545893015839977`*^9, 3.654589312100254*^9}, {3.6555334764500303`*^9,
1973  3.655533476530281*^9}}],
1974
1975Cell[CellGroupData[{
1976
1977Cell[BoxData[
1978 InterpretationBox[
1979  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
1980   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
1981    ImageSizeCache->{16., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
1982   "\[InvisibleSpace]", "16"}],
1983  SequenceForm["Flavor expansion of the vertices: ",
1984   Dynamic[FeynRules`FR$Count1], " / ", 16],
1985  Editable->False]], "Print",
1986 CellChangeTimes->{3.66478741636724*^9, 3.665472657478385*^9}],
1987
1988Cell[BoxData[
1989 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1990decays: \"\>",
1991  StripOnInput->False,
1992  LineColor->RGBColor[1, 0.5, 0],
1993  FrontFaceColor->RGBColor[1, 0.5, 0],
1994  BackFaceColor->RGBColor[1, 0.5, 0],
1995  GraphicsColor->RGBColor[1, 0.5, 0],
1996  FontWeight->Bold,
1997  FontColor->RGBColor[1, 0.5, 0]]], "Print",
1998 CellChangeTimes->{3.66478741636724*^9, 3.665472657674056*^9}],
1999
2000Cell[BoxData[
2001 InterpretationBox[
2002  RowBox[{
2003   DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
2004    ImageSizeCache->{16., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2005   "\[InvisibleSpace]", "10"}],
2006  SequenceForm[
2007   Dynamic[FeynRules`FR$DecayCounter], " / ", 10],
2008  Editable->False]], "Print",
2009 CellChangeTimes->{3.66478741636724*^9, 3.665472657675715*^9}]
2010}, Open  ]]
2011}, Open  ]],
2012
2013Cell[CellGroupData[{
2014
2015Cell[BoxData[
2016 RowBox[{
2017  RowBox[{"FullSimplify", "[",
2018   RowBox[{"decaysRM", "/.",
2019    RowBox[{"Abbreviations", "[", "]"}]}], "]"}], "//", "Grid"}]], "Input",
2020 CellChangeTimes->{{3.646997934911028*^9, 3.6469979404702463`*^9}, {
2021   3.647152804359887*^9, 3.647152804776997*^9}, 3.6478517911297493`*^9,
2022   3.654589316302215*^9, {3.656064168107107*^9, 3.656064168511942*^9}}],
2023
2024Cell[BoxData[
2025 TagBox[GridBox[{
2026    {
2027     RowBox[{"{",
2028      RowBox[{"M", ",", "X", ",",
2029       OverscriptBox["DM", "\<\"-\"\>"]}], "}"}],
2030     RowBox[{"-",
2031      FractionBox[
2032       RowBox[{
2033        RowBox[{"(",
2034         RowBox[{
2035          SubscriptBox["M", "DM"], "-",
2036          SubscriptBox["M", "M"], "+",
2037          SubscriptBox["M", "X"]}], ")"}], " ",
2038        RowBox[{"(",
2039         RowBox[{
2040          SubscriptBox["M", "DM"], "+",
2041          SubscriptBox["M", "M"], "+",
2042          SubscriptBox["M", "X"]}], ")"}], " ",
2043        SqrtBox[
2044         RowBox[{
2045          RowBox[{"(",
2046           RowBox[{
2047            SubscriptBox["M", "DM"], "-",
2048            SubscriptBox["M", "M"], "-",
2049            SubscriptBox["M", "X"]}], ")"}], " ",
2050          RowBox[{"(",
2051           RowBox[{
2052            SubscriptBox["M", "DM"], "+",
2053            SubscriptBox["M", "M"], "-",
2054            SubscriptBox["M", "X"]}], ")"}], " ",
2055          RowBox[{"(",
2056           RowBox[{
2057            SubscriptBox["M", "DM"], "-",
2058            SubscriptBox["M", "M"], "+",
2059            SubscriptBox["M", "X"]}], ")"}], " ",
2060          RowBox[{"(",
2061           RowBox[{
2062            SubscriptBox["M", "DM"], "+",
2063            SubscriptBox["M", "M"], "+",
2064            SubscriptBox["M", "X"]}], ")"}]}]], " ",
2065        SubsuperscriptBox["y", "D", "2"]}],
2066       RowBox[{"8", " ", "\[Pi]", " ",
2067        SuperscriptBox[
2068         RowBox[{"Abs", "[",
2069          SubscriptBox["M", "M"], "]"}], "3"]}]]}]},
2070    {
2071     RowBox[{"{",
2072      RowBox[{"DM", ",",
2073       SuperscriptBox["M", "\[Dagger]"], ",", "X"}], "}"}],
2074     FractionBox[
2075      RowBox[{"3", " ",
2076       RowBox[{"(",
2077        RowBox[{
2078         SubscriptBox["M", "DM"], "-",
2079         SubscriptBox["M", "M"], "+",
2080         SubscriptBox["M", "X"]}], ")"}], " ",
2081       RowBox[{"(",
2082        RowBox[{
2083         SubscriptBox["M", "DM"], "+",
2084         SubscriptBox["M", "M"], "+",
2085         SubscriptBox["M", "X"]}], ")"}], " ",
2086       SqrtBox[
2087        RowBox[{
2088         RowBox[{"(",
2089          RowBox[{
2090           SubscriptBox["M", "DM"], "-",
2091           SubscriptBox["M", "M"], "-",
2092           SubscriptBox["M", "X"]}], ")"}], " ",
2093         RowBox[{"(",
2094          RowBox[{
2095           SubscriptBox["M", "DM"], "+",
2096           SubscriptBox["M", "M"], "-",
2097           SubscriptBox["M", "X"]}], ")"}], " ",
2098         RowBox[{"(",
2099          RowBox[{
2100           SubscriptBox["M", "DM"], "-",
2101           SubscriptBox["M", "M"], "+",
2102           SubscriptBox["M", "X"]}], ")"}], " ",
2103         RowBox[{"(",
2104          RowBox[{
2105           SubscriptBox["M", "DM"], "+",
2106           SubscriptBox["M", "M"], "+",
2107           SubscriptBox["M", "X"]}], ")"}]}]], " ",
2108       SubsuperscriptBox["y", "D", "2"]}],
2109      RowBox[{"16", " ", "\[Pi]", " ",
2110       SuperscriptBox[
2111        RowBox[{"Abs", "[",
2112         SubscriptBox["M", "DM"], "]"}], "3"]}]]},
2113    {
2114     RowBox[{"{",
2115      RowBox[{"DM", ",", "M", ",",
2116       OverscriptBox["X", "\<\"-\"\>"]}], "}"}],
2117     FractionBox[
2118      RowBox[{"3", " ",
2119       RowBox[{"(",
2120        RowBox[{
2121         SubscriptBox["M", "DM"], "-",
2122         SubscriptBox["M", "M"], "+",
2123         SubscriptBox["M", "X"]}], ")"}], " ",
2124       RowBox[{"(",
2125        RowBox[{
2126         SubscriptBox["M", "DM"], "+",
2127         SubscriptBox["M", "M"], "+",
2128         SubscriptBox["M", "X"]}], ")"}], " ",
2129       SqrtBox[
2130        RowBox[{
2131         RowBox[{"(",
2132          RowBox[{
2133           SubscriptBox["M", "DM"], "-",
2134           SubscriptBox["M", "M"], "-",
2135           SubscriptBox["M", "X"]}], ")"}], " ",
2136         RowBox[{"(",
2137          RowBox[{
2138           SubscriptBox["M", "DM"], "+",
2139           SubscriptBox["M", "M"], "-",
2140           SubscriptBox["M", "X"]}], ")"}], " ",
2141         RowBox[{"(",
2142          RowBox[{
2143           SubscriptBox["M", "DM"], "-",
2144           SubscriptBox["M", "M"], "+",
2145           SubscriptBox["M", "X"]}], ")"}], " ",
2146         RowBox[{"(",
2147          RowBox[{
2148           SubscriptBox["M", "DM"], "+",
2149           SubscriptBox["M", "M"], "+",
2150           SubscriptBox["M", "X"]}], ")"}]}]], " ",
2151       SubsuperscriptBox["y", "D", "2"]}],
2152      RowBox[{"16", " ", "\[Pi]", " ",
2153       SuperscriptBox[
2154        RowBox[{"Abs", "[",
2155         SubscriptBox["M", "DM"], "]"}], "3"]}]]},
2156    {
2157     RowBox[{"{",
2158      RowBox[{"X", ",", "M", ",",
2159       OverscriptBox["DM", "\<\"-\"\>"]}], "}"}],
2160     FractionBox[
2161      RowBox[{
2162       RowBox[{"(",
2163        RowBox[{
2164         SubscriptBox["M", "DM"], "-",
2165         SubscriptBox["M", "M"], "+",
2166         SubscriptBox["M", "X"]}], ")"}], " ",
2167       RowBox[{"(",
2168        RowBox[{
2169         SubscriptBox["M", "DM"], "+",
2170         SubscriptBox["M", "M"], "+",
2171         SubscriptBox["M", "X"]}], ")"}], " ",
2172       SqrtBox[
2173        RowBox[{
2174         RowBox[{"(",
2175          RowBox[{
2176           SubscriptBox["M", "DM"], "-",
2177           SubscriptBox["M", "M"], "-",
2178           SubscriptBox["M", "X"]}], ")"}], " ",
2179         RowBox[{"(",
2180          RowBox[{
2181           SubscriptBox["M", "DM"], "+",
2182           SubscriptBox["M", "M"], "-",
2183           SubscriptBox["M", "X"]}], ")"}], " ",
2184         RowBox[{"(",
2185          RowBox[{
2186           SubscriptBox["M", "DM"], "-",
2187           SubscriptBox["M", "M"], "+",
2188           SubscriptBox["M", "X"]}], ")"}], " ",
2189         RowBox[{"(",
2190          RowBox[{
2191           SubscriptBox["M", "DM"], "+",
2192           SubscriptBox["M", "M"], "+",
2193           SubscriptBox["M", "X"]}], ")"}]}]], " ",
2194       SubsuperscriptBox["y", "D", "2"]}],
2195      RowBox[{"16", " ", "\[Pi]", " ",
2196       SuperscriptBox[
2197        RowBox[{"Abs", "[",
2198         SubscriptBox["M", "X"], "]"}], "3"]}]]},
2199    {
2200     RowBox[{"{",
2201      RowBox[{"M", ",",
2202       OverscriptBox["d", "\<\"-\"\>"], ",",
2203       OverscriptBox["u", "\<\"-\"\>"]}], "}"}],
2204     FractionBox[
2205      RowBox[{
2206       SqrtBox[
2207        RowBox[{
2208         RowBox[{"(",
2209          RowBox[{"MD", "-",
2210           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2211         RowBox[{"(",
2212          RowBox[{"MD", "+",
2213           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2214         RowBox[{"(",
2215          RowBox[{"MD", "-",
2216           SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2217         RowBox[{"(",
2218          RowBox[{"MD", "+",
2219           SubscriptBox["M", "M"], "+", "MU"}], ")"}]}]], " ",
2220       RowBox[{"(",
2221        RowBox[{
2222         RowBox[{
2223          RowBox[{"-", "4"}], " ", "MD", " ", "MU", " ", "yudL1x1", " ",
2224          "yudR1x1"}], "-",
2225         RowBox[{
2226          SuperscriptBox["MD", "2"], " ",
2227          RowBox[{"(",
2228           RowBox[{
2229            SuperscriptBox["yudL1x1", "2"], "+",
2230            SuperscriptBox["yudR1x1", "2"]}], ")"}]}], "+",
2231         RowBox[{
2232          RowBox[{"(",
2233           RowBox[{
2234            SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2235          RowBox[{"(",
2236           RowBox[{
2237            SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2238          RowBox[{"(",
2239           RowBox[{
2240            SuperscriptBox["yudL1x1", "2"], "+",
2241            SuperscriptBox["yudR1x1", "2"]}], ")"}]}]}], ")"}]}],
2242      RowBox[{"8", " ", "\[Pi]", " ",
2243       SuperscriptBox[
2244        RowBox[{"Abs", "[",
2245         SubscriptBox["M", "M"], "]"}], "3"]}]]},
2246    {
2247     RowBox[{"{",
2248      RowBox[{"d", ",",
2249       SuperscriptBox["M", "\[Dagger]"], ",",
2250       OverscriptBox["u", "\<\"-\"\>"]}], "}"}],
2251     FractionBox[
2252      RowBox[{
2253       SqrtBox[
2254        RowBox[{
2255         RowBox[{"(",
2256          RowBox[{"MD", "-",
2257           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2258         RowBox[{"(",
2259          RowBox[{"MD", "+",
2260           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2261         RowBox[{"(",
2262          RowBox[{"MD", "-",
2263           SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2264         RowBox[{"(",
2265          RowBox[{"MD", "+",
2266           SubscriptBox["M", "M"], "+", "MU"}], ")"}]}]], " ",
2267       RowBox[{"(",
2268        RowBox[{
2269         RowBox[{"4", " ", "MD", " ", "MU", " ", "yudL1x1", " ", "yudR1x1"}],
2270         "+",
2271         RowBox[{
2272          SuperscriptBox["MD", "2"], " ",
2273          RowBox[{"(",
2274           RowBox[{
2275            SuperscriptBox["yudL1x1", "2"], "+",
2276            SuperscriptBox["yudR1x1", "2"]}], ")"}]}], "-",
2277         RowBox[{
2278          RowBox[{"(",
2279           RowBox[{
2280            SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2281          RowBox[{"(",
2282           RowBox[{
2283            SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2284          RowBox[{"(",
2285           RowBox[{
2286            SuperscriptBox["yudL1x1", "2"], "+",
2287            SuperscriptBox["yudR1x1", "2"]}], ")"}]}]}], ")"}]}],
2288      RowBox[{"16", " ", "\[Pi]", " ",
2289       SuperscriptBox[
2290        RowBox[{"Abs", "[", "MD", "]"}], "3"]}]]},
2291    {
2292     RowBox[{"{",
2293      RowBox[{"u", ",",
2294       SuperscriptBox["M", "\[Dagger]"], ",",
2295       OverscriptBox["d", "\<\"-\"\>"]}], "}"}],
2296     FractionBox[
2297      RowBox[{
2298       SqrtBox[
2299        RowBox[{
2300         RowBox[{"(",
2301          RowBox[{"MD", "-",
2302           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2303         RowBox[{"(",
2304          RowBox[{"MD", "+",
2305           SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2306         RowBox[{"(",
2307          RowBox[{"MD", "-",
2308           SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2309         RowBox[{"(",
2310          RowBox[{"MD", "+",
2311           SubscriptBox["M", "M"], "+", "MU"}], ")"}]}]], " ",
2312       RowBox[{"(",
2313        RowBox[{
2314         RowBox[{"4", " ", "MD", " ", "MU", " ", "yudL1x1", " ", "yudR1x1"}],
2315         "+",
2316         RowBox[{
2317          SuperscriptBox["MD", "2"], " ",
2318          RowBox[{"(",
2319           RowBox[{
2320            SuperscriptBox["yudL1x1", "2"], "+",
2321            SuperscriptBox["yudR1x1", "2"]}], ")"}]}], "-",
2322         RowBox[{
2323          RowBox[{"(",
2324           RowBox[{
2325            SubscriptBox["M", "M"], "-", "MU"}], ")"}], " ",
2326          RowBox[{"(",
2327           RowBox[{
2328            SubscriptBox["M", "M"], "+", "MU"}], ")"}], " ",
2329          RowBox[{"(",
2330           RowBox[{
2331            SuperscriptBox["yudL1x1", "2"], "+",
2332            SuperscriptBox["yudR1x1", "2"]}], ")"}]}]}], ")"}]}],
2333      RowBox[{"16", " ", "\[Pi]", " ",
2334       SuperscriptBox[
2335        RowBox[{"Abs", "[", "MU", "]"}], "3"]}]]},
2336    {
2337     RowBox[{"{",
2338      RowBox[{"M", ",",
2339       OverscriptBox["s", "\<\"-\"\>"], ",",
2340       OverscriptBox["c", "\<\"-\"\>"]}], "}"}],
2341     FractionBox[
2342      RowBox[{
2343       SqrtBox[
2344        RowBox[{
2345         RowBox[{"(",
2346          RowBox[{"MC", "-",
2347           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2348         RowBox[{"(",
2349          RowBox[{"MC", "+",
2350           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2351         RowBox[{"(",
2352          RowBox[{"MC", "-",
2353           SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2354         RowBox[{"(",
2355          RowBox[{"MC", "+",
2356           SubscriptBox["M", "M"], "+", "MS"}], ")"}]}]], " ",
2357       RowBox[{"(",
2358        RowBox[{
2359         RowBox[{
2360          RowBox[{"-", "4"}], " ", "MC", " ", "MS", " ", "yudL2x2", " ",
2361          "yudR2x2"}], "-",
2362         RowBox[{
2363          SuperscriptBox["MC", "2"], " ",
2364          RowBox[{"(",
2365           RowBox[{
2366            SuperscriptBox["yudL2x2", "2"], "+",
2367            SuperscriptBox["yudR2x2", "2"]}], ")"}]}], "+",
2368         RowBox[{
2369          RowBox[{"(",
2370           RowBox[{
2371            SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2372          RowBox[{"(",
2373           RowBox[{
2374            SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2375          RowBox[{"(",
2376           RowBox[{
2377            SuperscriptBox["yudL2x2", "2"], "+",
2378            SuperscriptBox["yudR2x2", "2"]}], ")"}]}]}], ")"}]}],
2379      RowBox[{"8", " ", "\[Pi]", " ",
2380       SuperscriptBox[
2381        RowBox[{"Abs", "[",
2382         SubscriptBox["M", "M"], "]"}], "3"]}]]},
2383    {
2384     RowBox[{"{",
2385      RowBox[{"s", ",",
2386       SuperscriptBox["M", "\[Dagger]"], ",",
2387       OverscriptBox["c", "\<\"-\"\>"]}], "}"}],
2388     FractionBox[
2389      RowBox[{
2390       SqrtBox[
2391        RowBox[{
2392         RowBox[{"(",
2393          RowBox[{"MC", "-",
2394           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2395         RowBox[{"(",
2396          RowBox[{"MC", "+",
2397           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2398         RowBox[{"(",
2399          RowBox[{"MC", "-",
2400           SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2401         RowBox[{"(",
2402          RowBox[{"MC", "+",
2403           SubscriptBox["M", "M"], "+", "MS"}], ")"}]}]], " ",
2404       RowBox[{"(",
2405        RowBox[{
2406         RowBox[{"4", " ", "MC", " ", "MS", " ", "yudL2x2", " ", "yudR2x2"}],
2407         "+",
2408         RowBox[{
2409          SuperscriptBox["MC", "2"], " ",
2410          RowBox[{"(",
2411           RowBox[{
2412            SuperscriptBox["yudL2x2", "2"], "+",
2413            SuperscriptBox["yudR2x2", "2"]}], ")"}]}], "-",
2414         RowBox[{
2415          RowBox[{"(",
2416           RowBox[{
2417            SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2418          RowBox[{"(",
2419           RowBox[{
2420            SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2421          RowBox[{"(",
2422           RowBox[{
2423            SuperscriptBox["yudL2x2", "2"], "+",
2424            SuperscriptBox["yudR2x2", "2"]}], ")"}]}]}], ")"}]}],
2425      RowBox[{"16", " ", "\[Pi]", " ",
2426       SuperscriptBox[
2427        RowBox[{"Abs", "[", "MS", "]"}], "3"]}]]},
2428    {
2429     RowBox[{"{",
2430      RowBox[{"c", ",",
2431       SuperscriptBox["M", "\[Dagger]"], ",",
2432       OverscriptBox["s", "\<\"-\"\>"]}], "}"}],
2433     FractionBox[
2434      RowBox[{
2435       SqrtBox[
2436        RowBox[{
2437         RowBox[{"(",
2438          RowBox[{"MC", "-",
2439           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2440         RowBox[{"(",
2441          RowBox[{"MC", "+",
2442           SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2443         RowBox[{"(",
2444          RowBox[{"MC", "-",
2445           SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2446         RowBox[{"(",
2447          RowBox[{"MC", "+",
2448           SubscriptBox["M", "M"], "+", "MS"}], ")"}]}]], " ",
2449       RowBox[{"(",
2450        RowBox[{
2451         RowBox[{"4", " ", "MC", " ", "MS", " ", "yudL2x2", " ", "yudR2x2"}],
2452         "+",
2453         RowBox[{
2454          SuperscriptBox["MC", "2"], " ",
2455          RowBox[{"(",
2456           RowBox[{
2457            SuperscriptBox["yudL2x2", "2"], "+",
2458            SuperscriptBox["yudR2x2", "2"]}], ")"}]}], "-",
2459         RowBox[{
2460          RowBox[{"(",
2461           RowBox[{
2462            SubscriptBox["M", "M"], "-", "MS"}], ")"}], " ",
2463          RowBox[{"(",
2464           RowBox[{
2465            SubscriptBox["M", "M"], "+", "MS"}], ")"}], " ",
2466          RowBox[{"(",
2467           RowBox[{
2468            SuperscriptBox["yudL2x2", "2"], "+",
2469            SuperscriptBox["yudR2x2", "2"]}], ")"}]}]}], ")"}]}],
2470      RowBox[{"16", " ", "\[Pi]", " ",
2471       SuperscriptBox[
2472        RowBox[{"Abs", "[", "MC", "]"}], "3"]}]]},
2473    {
2474     RowBox[{"{",
2475      RowBox[{"M", ",",
2476       OverscriptBox["b", "\<\"-\"\>"], ",",
2477       OverscriptBox["t", "\<\"-\"\>"]}], "}"}],
2478     FractionBox[
2479      RowBox[{
2480       SqrtBox[
2481        RowBox[{
2482         RowBox[{"(",
2483          RowBox[{"MB", "-",
2484           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2485         RowBox[{"(",
2486          RowBox[{"MB", "+",
2487           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2488         RowBox[{"(",
2489          RowBox[{"MB", "-",
2490           SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2491         RowBox[{"(",
2492          RowBox[{"MB", "+",
2493           SubscriptBox["M", "M"], "+", "MT"}], ")"}]}]], " ",
2494       RowBox[{"(",
2495        RowBox[{
2496         RowBox[{
2497          RowBox[{"-", "4"}], " ", "MB", " ", "MT", " ", "yudL3x3", " ",
2498          "yudR3x3"}], "-",
2499         RowBox[{
2500          SuperscriptBox["MB", "2"], " ",
2501          RowBox[{"(",
2502           RowBox[{
2503            SuperscriptBox["yudL3x3", "2"], "+",
2504            SuperscriptBox["yudR3x3", "2"]}], ")"}]}], "+",
2505         RowBox[{
2506          RowBox[{"(",
2507           RowBox[{
2508            SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2509          RowBox[{"(",
2510           RowBox[{
2511            SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2512          RowBox[{"(",
2513           RowBox[{
2514            SuperscriptBox["yudL3x3", "2"], "+",
2515            SuperscriptBox["yudR3x3", "2"]}], ")"}]}]}], ")"}]}],
2516      RowBox[{"8", " ", "\[Pi]", " ",
2517       SuperscriptBox[
2518        RowBox[{"Abs", "[",
2519         SubscriptBox["M", "M"], "]"}], "3"]}]]},
2520    {
2521     RowBox[{"{",
2522      RowBox[{"b", ",",
2523       SuperscriptBox["M", "\[Dagger]"], ",",
2524       OverscriptBox["t", "\<\"-\"\>"]}], "}"}],
2525     FractionBox[
2526      RowBox[{
2527       SqrtBox[
2528        RowBox[{
2529         RowBox[{"(",
2530          RowBox[{"MB", "-",
2531           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2532         RowBox[{"(",
2533          RowBox[{"MB", "+",
2534           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2535         RowBox[{"(",
2536          RowBox[{"MB", "-",
2537           SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2538         RowBox[{"(",
2539          RowBox[{"MB", "+",
2540           SubscriptBox["M", "M"], "+", "MT"}], ")"}]}]], " ",
2541       RowBox[{"(",
2542        RowBox[{
2543         RowBox[{"4", " ", "MB", " ", "MT", " ", "yudL3x3", " ", "yudR3x3"}],
2544         "+",
2545         RowBox[{
2546          SuperscriptBox["MB", "2"], " ",
2547          RowBox[{"(",
2548           RowBox[{
2549            SuperscriptBox["yudL3x3", "2"], "+",
2550            SuperscriptBox["yudR3x3", "2"]}], ")"}]}], "-",
2551         RowBox[{
2552          RowBox[{"(",
2553           RowBox[{
2554            SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2555          RowBox[{"(",
2556           RowBox[{
2557            SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2558          RowBox[{"(",
2559           RowBox[{
2560            SuperscriptBox["yudL3x3", "2"], "+",
2561            SuperscriptBox["yudR3x3", "2"]}], ")"}]}]}], ")"}]}],
2562      RowBox[{"16", " ", "\[Pi]", " ",
2563       SuperscriptBox[
2564        RowBox[{"Abs", "[", "MB", "]"}], "3"]}]]},
2565    {
2566     RowBox[{"{",
2567      RowBox[{"t", ",",
2568       SuperscriptBox["M", "\[Dagger]"], ",",
2569       OverscriptBox["b", "\<\"-\"\>"]}], "}"}],
2570     FractionBox[
2571      RowBox[{
2572       SqrtBox[
2573        RowBox[{
2574         RowBox[{"(",
2575          RowBox[{"MB", "-",
2576           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2577         RowBox[{"(",
2578          RowBox[{"MB", "+",
2579           SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2580         RowBox[{"(",
2581          RowBox[{"MB", "-",
2582           SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2583         RowBox[{"(",
2584          RowBox[{"MB", "+",
2585           SubscriptBox["M", "M"], "+", "MT"}], ")"}]}]], " ",
2586       RowBox[{"(",
2587        RowBox[{
2588         RowBox[{"4", " ", "MB", " ", "MT", " ", "yudL3x3", " ", "yudR3x3"}],
2589         "+",
2590         RowBox[{
2591          SuperscriptBox["MB", "2"], " ",
2592          RowBox[{"(",
2593           RowBox[{
2594            SuperscriptBox["yudL3x3", "2"], "+",
2595            SuperscriptBox["yudR3x3", "2"]}], ")"}]}], "-",
2596         RowBox[{
2597          RowBox[{"(",
2598           RowBox[{
2599            SubscriptBox["M", "M"], "-", "MT"}], ")"}], " ",
2600          RowBox[{"(",
2601           RowBox[{
2602            SubscriptBox["M", "M"], "+", "MT"}], ")"}], " ",
2603          RowBox[{"(",
2604           RowBox[{
2605            SuperscriptBox["yudL3x3", "2"], "+",
2606            SuperscriptBox["yudR3x3", "2"]}], ")"}]}]}], ")"}]}],
2607      RowBox[{"16", " ", "\[Pi]", " ",
2608       SuperscriptBox[
2609        RowBox[{"Abs", "[", "MT", "]"}], "3"]}]]},
2610    {
2611     RowBox[{"{",
2612      RowBox[{"Z", ",", "X", ",",
2613       OverscriptBox["X", "\<\"-\"\>"]}], "}"}],
2614     FractionBox[
2615      RowBox[{
2616       SuperscriptBox["e", "2"], " ",
2617       RowBox[{"(",
2618        RowBox[{
2619         RowBox[{"2", " ",
2620          SubsuperscriptBox["M", "X", "2"]}], "+",
2621         SuperscriptBox["MZ", "2"]}], ")"}], " ",
2622       SqrtBox[
2623        RowBox[{
2624         RowBox[{
2625          RowBox[{"-", "4"}], " ",
2626          SubsuperscriptBox["M", "X", "2"], " ",
2627          SuperscriptBox["MZ", "2"]}], "+",
2628         SuperscriptBox["MZ", "4"]}]], " ",
2629       SubsuperscriptBox["s", "w", "2"]}],
2630      RowBox[{"36", " ",
2631       SubsuperscriptBox["c", "w", "2"], " ", "\[Pi]", " ",
2632       SuperscriptBox[
2633        RowBox[{"Abs", "[", "MZ", "]"}], "3"]}]]},
2634    {
2635     RowBox[{"{",
2636      RowBox[{"Z", ",",
2637       SuperscriptBox["M", "\[Dagger]"], ",", "M"}], "}"}],
2638     FractionBox[
2639      RowBox[{
2640       SuperscriptBox["e", "2"], " ",
2641       RowBox[{"(",
2642        RowBox[{
2643         RowBox[{
2644          RowBox[{"-", "4"}], " ",
2645          SubsuperscriptBox["M", "M", "2"]}], "+",
2646         SuperscriptBox["MZ", "2"]}], ")"}], " ",
2647       SqrtBox[
2648        RowBox[{
2649         RowBox[{
2650          RowBox[{"-", "4"}], " ",
2651          SubsuperscriptBox["M", "M", "2"], " ",
2652          SuperscriptBox["MZ", "2"]}], "+",
2653         SuperscriptBox["MZ", "4"]}]], " ",
2654       SubsuperscriptBox["s", "w", "2"]}],
2655      RowBox[{"144", " ",
2656       SubsuperscriptBox["c", "w", "2"], " ", "\[Pi]", " ",
2657       SuperscriptBox[
2658        RowBox[{"Abs", "[", "MZ", "]"}], "3"]}]]}
2659   },
2660   AutoDelete->False,
2661   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
2662  "Grid"]], "Output",
2663 CellChangeTimes->{
2664  3.6469979466420183`*^9, 3.6469981615787582`*^9, 3.6469993310647793`*^9,
2665   3.647152882610259*^9, 3.647157468086732*^9, 3.647260105830471*^9,
2666   3.647662591398302*^9, 3.647679972943307*^9, 3.647851814441338*^9,
2667   3.647852793850731*^9, 3.647854185699677*^9, 3.647854464993498*^9,
2668   3.6494235325451727`*^9, 3.654589317327335*^9, 3.655446290740034*^9,
2669   3.65544937614914*^9, 3.655449618184126*^9, 3.655533482302704*^9,
2670   3.655556315390766*^9, 3.655556778118195*^9, 3.655619361735424*^9,
2671   3.655624353316327*^9, 3.655704149426552*^9, 3.6557043671362247`*^9,
2672   3.6557079537536573`*^9, 3.65570814877055*^9, {3.655715932822236*^9,
2673   3.655715941331767*^9}, 3.656054768778968*^9, 3.6560548099234867`*^9,
2674   3.6560566676161947`*^9, 3.65606153851024*^9, 3.656063200979767*^9,
2675   3.656064181238352*^9, 3.6579477426667128`*^9, 3.659092649291644*^9,
2676   3.664708016083547*^9, 3.66470877363202*^9, 3.664787424156801*^9,
2677   3.665472661112625*^9}]
2678}, Open  ]],
2679
2680Cell[CellGroupData[{
2681
2682Cell[BoxData[
2683 RowBox[{
2684  RowBox[{"(*", " ",
2685   RowBox[{
2686   "Update", " ", "numerical", " ", "value", " ", "of", " ", "the", " ",
2687    "decay", " ", "widths", " ", "for", " ", "exporting"}], " ", "*)"}],
2688  "\[IndentingNewLine]",
2689  RowBox[{
2690   RowBox[{"UpdateWidths", "[", "decaysRM", "]"}], ";"}]}]], "Input",
2691 CellChangeTimes->{{3.6348874498942823`*^9, 3.6348874791110573`*^9}, {
2692   3.647152887128039*^9, 3.647152887501431*^9}, {3.647851791858705*^9,
2693   3.647851794155671*^9}, 3.654589320646587*^9}],
2694
2695Cell[CellGroupData[{
2696
2697Cell[BoxData[
2698 InterpretationBox[
2699  RowBox[{"\<\"WM\"\>", "\[InvisibleSpace]", "\<\" = \"\>",
2700   "\[InvisibleSpace]", "\<\"1.35511\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
2701 
2702  SequenceForm["WM", " = ", "1.35511", "."],
2703  Editable->False]], "Print",
2704 CellChangeTimes->{3.655446300839047*^9, 3.65544939144866*^9,
2705  3.655533486827869*^9, 3.655556328472986*^9, 3.6556193619270144`*^9,
2706  3.655624369988203*^9, 3.664708016363504*^9, 3.6647087329903717`*^9,
2707  3.665472661252338*^9}],
2708
2709Cell[BoxData[
2710 InterpretationBox[
2711  RowBox[{"\<\"WT\"\>", "\[InvisibleSpace]", "\<\" = \"\>",
2712   "\[InvisibleSpace]", "\<\"0.\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
2713  SequenceForm["WT", " = ", "0.", "."],
2714  Editable->False]], "Print",
2715 CellChangeTimes->{3.655446300839047*^9, 3.65544939144866*^9,
2716  3.655533486827869*^9, 3.655556328472986*^9, 3.6556193619270144`*^9,
2717  3.655624369988203*^9, 3.664708016363504*^9, 3.6647087329903717`*^9,
2718  3.6654726612533503`*^9}],
2719
2720Cell[BoxData[
2721 InterpretationBox[
2722  RowBox[{"\<\"WX\"\>", "\[InvisibleSpace]", "\<\" = \"\>",
2723   "\[InvisibleSpace]", "\<\"0.\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
2724  SequenceForm["WX", " = ", "0.", "."],
2725  Editable->False]], "Print",
2726 CellChangeTimes->{3.655446300839047*^9, 3.65544939144866*^9,
2727  3.655533486827869*^9, 3.655556328472986*^9, 3.6556193619270144`*^9,
2728  3.655624369988203*^9, 3.664708016363504*^9, 3.6647087329903717`*^9,
2729  3.665472661254203*^9}],
2730
2731Cell[BoxData[
2732 InterpretationBox[
2733  RowBox[{"\<\"WZ\"\>", "\[InvisibleSpace]", "\<\" = \"\>",
2734   "\[InvisibleSpace]", "\<\"0.\"\>", "\[InvisibleSpace]", "\<\".\"\>"}],
2735  SequenceForm["WZ", " = ", "0.", "."],
2736  Editable->False]], "Print",
2737 CellChangeTimes->{3.655446300839047*^9, 3.65544939144866*^9,
2738  3.655533486827869*^9, 3.655556328472986*^9, 3.6556193619270144`*^9,
2739  3.655624369988203*^9, 3.664708016363504*^9, 3.6647087329903717`*^9,
2740  3.665472661255*^9}]
2741}, Open  ]]
2742}, Open  ]]
2743}, Closed]]
2744}, Open  ]],
2745
2746Cell[CellGroupData[{
2747
2748Cell["Model Checks", "Section",
2749 CellChangeTimes->{{3.567840472517931*^9, 3.567840476915874*^9},
2750   3.569143886101358*^9, {3.569144637753002*^9, 3.569144639920857*^9}}],
2751
2752Cell[CellGroupData[{
2753
2754Cell["FeynRules", "Subsection",
2755 CellChangeTimes->{{3.635147235628291*^9, 3.6351472373202047`*^9}}],
2756
2757Cell[CellGroupData[{
2758
2759Cell[BoxData[
2760 RowBox[{"ckHermiticity", "=",
2761  RowBox[{"CheckHermiticity", "[", "LRM", "]"}]}]], "Input",
2762 CellChangeTimes->{{3.591533262999765*^9, 3.5915332787035627`*^9}, {
2763  3.647152900383806*^9, 3.647152900901503*^9}, {3.6478520536726017`*^9,
2764  3.647852054190529*^9}, {3.654589354949257*^9, 3.654589356248331*^9}, {
2765  3.6555574429753838`*^9, 3.655557470020114*^9}, {3.665472726507923*^9,
2766  3.665472728359558*^9}}],
2767
2768Cell[CellGroupData[{
2769
2770Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
2771contained in L-HC[L].\"\>"], "Print",
2772 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2773   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2774   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2775   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2776   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2777   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2778   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2779   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2780   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2781   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2782   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2783   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2784   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2785   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2786   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2787   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2788   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2789   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2790   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2791   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2792   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2793   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2794   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2795   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2796   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2797   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2798   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2799   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2800   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2801   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2802   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
2803   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
2804   3.665486659345977*^9, {3.665486801678507*^9, 3.665486815691154*^9}}],
2805
2806Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
2807should be zero.\"\>"], "Print",
2808 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2809   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2810   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2811   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2812   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2813   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2814   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2815   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2816   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2817   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2818   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2819   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2820   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2821   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2822   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2823   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2824   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2825   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2826   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2827   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2828   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2829   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2830   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2831   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2832   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2833   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2834   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2835   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2836   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2837   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2838   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
2839   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
2840   3.665486659345977*^9, {3.665486801678507*^9, 3.6654868156919823`*^9}}],
2841
2842Cell[BoxData[
2843 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
2844  StripOnInput->False,
2845  LineColor->RGBColor[1, 0.5, 0],
2846  FrontFaceColor->RGBColor[1, 0.5, 0],
2847  BackFaceColor->RGBColor[1, 0.5, 0],
2848  GraphicsColor->RGBColor[1, 0.5, 0],
2849  FontWeight->Bold,
2850  FontColor->RGBColor[1, 0.5, 0]]], "Print",
2851 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2852   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2853   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2854   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2855   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2856   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2857   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2858   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2859   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2860   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2861   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2862   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2863   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2864   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2865   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2866   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2867   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2868   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2869   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2870   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2871   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2872   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2873   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2874   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2875   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2876   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2877   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2878   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2879   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2880   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2881   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
2882   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
2883   3.665486659345977*^9, {3.665486801678507*^9, 3.665486817389517*^9}}],
2884
2885Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
2886 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2887   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2888   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2889   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2890   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2891   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2892   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2893   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2894   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2895   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2896   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2897   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2898   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2899   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2900   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2901   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2902   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2903   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2904   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2905   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2906   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2907   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2908   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2909   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2910   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2911   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2912   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2913   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2914   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2915   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2916   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
2917   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
2918   3.665486659345977*^9, {3.665486801678507*^9, 3.665486817390684*^9}}],
2919
2920Cell[BoxData["\<\"Collecting the different structures that enter the \
2921vertex.\"\>"], "Print",
2922 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2923   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2924   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2925   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2926   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2927   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2928   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2929   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2930   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2931   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2932   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2933   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2934   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2935   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2936   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2937   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2938   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2939   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2940   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2941   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2942   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2943   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2944   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2945   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2946   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2947   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2948   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2949   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2950   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2951   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2952   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
2953   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
2954   3.665486659345977*^9, {3.665486801678507*^9, 3.665486817457335*^9}}],
2955
2956Cell[BoxData[
2957 InterpretationBox[
2958  RowBox[{
2959  "1", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
2960-> starting the computation: \"\>", "\[InvisibleSpace]",
2961   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
2962    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
2963   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\".\"\>"}],
2964  SequenceForm[
2965  1, " possible non-zero vertices have been found -> starting the \
2966computation: ",
2967   Dynamic[FeynRules`FR$FeynmanRules], " / ", 1, "."],
2968  Editable->False]], "Print",
2969 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
2970   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
2971   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
2972   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
2973   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
2974   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
2975   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
2976   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
2977   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
2978   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
2979   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
2980   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
2981   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
2982   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
2983   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
2984   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
2985   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
2986   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
2987   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
2988   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
2989   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
2990   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
2991   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
2992   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
2993   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
2994   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
2995   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
2996   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
2997   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
2998   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
2999   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
3000   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
3001   3.665486659345977*^9, {3.665486801678507*^9, 3.6654868174584846`*^9}}],
3002
3003Cell[BoxData[
3004 InterpretationBox[
3005  RowBox[{"0", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3006  SequenceForm[0, " vertices obtained."],
3007  Editable->False]], "Print",
3008 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
3009   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
3010   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
3011   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
3012   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
3013   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
3014   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
3015   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
3016   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
3017   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
3018   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
3019   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
3020   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
3021   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
3022   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
3023   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
3024   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
3025   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
3026   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
3027   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
3028   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
3029   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
3030   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
3031   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
3032   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
3033   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
3034   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
3035   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
3036   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
3037   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
3038   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
3039   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
3040   3.665486659345977*^9, {3.665486801678507*^9, 3.6654868175175858`*^9}}],
3041
3042Cell[BoxData["\<\"The lagrangian is hermitian.\"\>"], "Print",
3043 CellChangeTimes->{{3.591533273004673*^9, 3.5915332856951637`*^9},
3044   3.591533561655061*^9, 3.633869848888072*^9, 3.634536999318646*^9,
3045   3.634539531887285*^9, 3.6346202051419573`*^9, 3.6346230581832943`*^9,
3046   3.634888828137855*^9, 3.647152901500868*^9, 3.6471567895433083`*^9,
3047   3.647662595597868*^9, 3.6476799741364717`*^9, {3.647852048006851*^9,
3048   3.6478520645292883`*^9}, 3.647852795593541*^9, 3.647854186856101*^9,
3049   3.647854466357691*^9, 3.654589356822373*^9, 3.655028378750617*^9,
3050   3.655028577246876*^9, 3.655037583423194*^9, 3.655102973076272*^9,
3051   3.65544634545502*^9, 3.655449414238866*^9, 3.655449622293036*^9,
3052   3.655462476706792*^9, 3.6555335086337976`*^9, 3.6555344834779673`*^9,
3053   3.655534911524283*^9, 3.655556059471313*^9, 3.655556781596931*^9,
3054   3.655556869117268*^9, 3.655557349804068*^9, 3.655557392918631*^9, {
3055   3.6555574525248623`*^9, 3.6555574822659388`*^9}, 3.655557986823586*^9,
3056   3.6556175555437813`*^9, 3.65561936292833*^9, 3.655620488496245*^9, {
3057   3.6556209160926037`*^9, 3.655620918116496*^9}, 3.655621082613207*^9,
3058   3.655622543335374*^9, 3.655623028474568*^9, 3.65562396054049*^9,
3059   3.655624374749901*^9, 3.65563076308259*^9, 3.655708004668676*^9, {
3060   3.655708152368512*^9, 3.655708158848946*^9}, 3.65571580176877*^9,
3061   3.6557980132932568`*^9, 3.655812076596881*^9, 3.6558122892667093`*^9,
3062   3.65581258633183*^9, 3.6558159868414507`*^9, 3.6558160875957813`*^9,
3063   3.6558170368488903`*^9, 3.65581721571278*^9, 3.6558184368726788`*^9,
3064   3.6560547321601677`*^9, 3.656061473063294*^9, 3.656159607713993*^9,
3065   3.656236581512001*^9, 3.65702360853976*^9, 3.6570239302869473`*^9,
3066   3.657024187587659*^9, 3.6570242710993834`*^9, 3.65727292298584*^9,
3067   3.658647644315083*^9, 3.6588393570778503`*^9, {3.658839700141542*^9,
3068   3.6588397047397747`*^9}, 3.659073734002513*^9, 3.659073877167561*^9,
3069   3.6590741596853533`*^9, 3.6590750413569508`*^9, 3.664617208834557*^9,
3070   3.664617517513187*^9, 3.664786745817892*^9, 3.664787148926609*^9,
3071   3.664787443494069*^9, 3.6647883023338823`*^9, 3.665472711170321*^9,
3072   3.665472989261056*^9, 3.6654730601892242`*^9, 3.665474650135085*^9,
3073   3.665474697385952*^9, 3.665474802983583*^9, 3.665474882146521*^9,
3074   3.665474984519306*^9, 3.665478245171199*^9, 3.665478571393928*^9,
3075   3.665486659345977*^9, {3.665486801678507*^9, 3.665486817518598*^9}}]
3076}, Open  ]],
3077
3078Cell[BoxData["True"], "Output",
3079 CellChangeTimes->{{3.591533283040056*^9, 3.591533295476935*^9},
3080   3.59153357192179*^9, 3.633869859578429*^9, 3.634537009978821*^9,
3081   3.6345395429106216`*^9, 3.634620217019496*^9, 3.634623070071436*^9,
3082   3.634888840302128*^9, 3.647152911135297*^9, 3.6471567992002*^9,
3083   3.647662615895679*^9, 3.647679994578714*^9, {3.6478520480745487`*^9,
3084   3.6478520683779907`*^9}, 3.647852799153767*^9, 3.64785419090386*^9,
3085   3.647854470034789*^9, 3.654589356838451*^9, 3.655028382612157*^9,
3086   3.65502858105962*^9, 3.655037587314472*^9, 3.655102973547595*^9,
3087   3.6554463459599733`*^9, 3.65544941496069*^9, 3.655449622867977*^9,
3088   3.6554624805591393`*^9, 3.655533509881298*^9, 3.655534487428575*^9,
3089   3.655534912180141*^9, 3.655556060797079*^9, 3.655556782192253*^9,
3090   3.655556869673991*^9, 3.6555573503033648`*^9, 3.6555573969117537`*^9, {
3091   3.655557456449244*^9, 3.655557486374288*^9}, 3.65555798965685*^9,
3092   3.655617559469203*^9, 3.655619367045573*^9, 3.655620492458544*^9, {
3093   3.655620916650175*^9, 3.6556209187559347`*^9}, 3.655621083164143*^9,
3094   3.6556225462963943`*^9, 3.655623029018733*^9, 3.655623961071417*^9,
3095   3.655624376011156*^9, 3.655630764504943*^9, 3.655708005675871*^9, {
3096   3.655708153419808*^9, 3.655708159964082*^9}, 3.655715802316148*^9,
3097   3.655798014841055*^9, 3.65581208233632*^9, 3.655812294301346*^9,
3098   3.6558125900854397`*^9, 3.6558159915835657`*^9, 3.65581609214128*^9,
3099   3.6558170381290092`*^9, 3.655817220338429*^9, 3.655818441526115*^9,
3100   3.6560547368846188`*^9, 3.6560614769227*^9, 3.6561596102364893`*^9,
3101   3.656236586280949*^9, 3.657023612343821*^9, 3.657023934874998*^9,
3102   3.657024189426931*^9, 3.657024272364956*^9, 3.6572729267919483`*^9,
3103   3.658647648926399*^9, 3.6588393604969673`*^9, {3.6588397037206306`*^9,
3104   3.658839708227395*^9}, 3.659073735326663*^9, 3.659073879099579*^9,
3105   3.659074163196884*^9, 3.659075044737995*^9, 3.664617212396185*^9,
3106   3.6646175210469646`*^9, 3.66478674948958*^9, 3.664787152562687*^9,
3107   3.664787446993149*^9, 3.664788305776926*^9, 3.66547271309063*^9,
3108   3.6654729914508343`*^9, 3.6654730621880283`*^9, 3.66547465206083*^9,
3109   3.6654746996072063`*^9, 3.665474804861062*^9, 3.665474884070969*^9,
3110   3.665474986720435*^9, 3.6654782473080273`*^9, 3.6654785732181683`*^9,
3111   3.665486661083262*^9, {3.665486803592098*^9, 3.665486817519742*^9}}]
3112}, Open  ]],
3113
3114Cell[CellGroupData[{
3115
3116Cell[BoxData[
3117 RowBox[{"ckQuantumNumbers", "=",
3118  RowBox[{"CheckQuantumNumbers", "[", "LRM", "]"}]}]], "Input",
3119 CellChangeTimes->{{3.655556560624447*^9, 3.655556568039588*^9}, {
3120  3.655557461075137*^9, 3.655557467718701*^9}}],
3121
3122Cell[BoxData["\<\"All quantum numbers are conserved.\"\>"], "Print",
3123 CellChangeTimes->{
3124  3.65555656973392*^9, 3.6555567828141193`*^9, 3.655556870024482*^9,
3125   3.655557350731496*^9, 3.655557399355894*^9, 3.655557488682089*^9,
3126   3.655557990877342*^9, 3.655617561966374*^9, 3.6556193696150503`*^9,
3127   3.655620494861127*^9, 3.655620919212823*^9, 3.6556210836727467`*^9,
3128   3.655622547670369*^9, 3.6556230295239973`*^9, 3.655623961567198*^9,
3129   3.6556243765560503`*^9, 3.655630765110804*^9, 3.655708006154704*^9,
3130   3.655708160746683*^9, 3.6557158028174343`*^9, 3.6558120840647917`*^9,
3131   3.655815993904903*^9, 3.6558160941939793`*^9, 3.6558172224156446`*^9,
3132   3.655818444219852*^9, 3.656054739612062*^9, 3.656061479410858*^9,
3133   3.656159611279595*^9, 3.656236590361738*^9, 3.657023614736661*^9,
3134   3.657023937445738*^9, 3.657024190296426*^9, 3.657024272965096*^9,
3135   3.657272929421646*^9, 3.658647651596225*^9, 3.658839362904902*^9,
3136   3.6588397103818903`*^9, 3.6590737359080057`*^9, 3.659073879983635*^9,
3137   3.659074165485581*^9, 3.6590750469816732`*^9, 3.664617214554124*^9,
3138   3.664617523308095*^9, 3.6647867517207937`*^9, 3.6647871548918047`*^9,
3139   3.664787449273033*^9, 3.664788307954232*^9, 3.665473063018564*^9,
3140   3.665486666610084*^9, {3.665486805683716*^9, 3.665486818294454*^9}}],
3141
3142Cell[BoxData["True"], "Output",
3143 CellChangeTimes->{{3.665486805684328*^9, 3.6654868182955*^9}}]
3144}, Open  ]],
3145
3146Cell[CellGroupData[{
3147
3148Cell[BoxData[
3149 RowBox[{"ckDiagonalKineticTerms", "=",
3150  RowBox[{"CheckDiagonalKineticTerms", "[", "LRM", "]"}]}]], "Input",
3151 CellChangeTimes->{{3.634888579839384*^9, 3.6348885808384333`*^9},
3152   3.6348886269306993`*^9, {3.647152905417927*^9, 3.6471529057758427`*^9},
3153   3.6478520566558847`*^9, 3.6545893602010393`*^9, {3.6555574737393427`*^9,
3154   3.655557478773703*^9}}],
3155
3156Cell[CellGroupData[{
3157
3158Cell[BoxData[
3159 InterpretationBox[
3160  RowBox[{"\<\"Neglecting all terms with more than \"\>",
3161   "\[InvisibleSpace]", "\<\"2\"\>",
3162   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
3163  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
3164  Editable->False]], "Print",
3165 CellChangeTimes->{
3166  3.63488863760299*^9, 3.63488884361946*^9, 3.647152915156876*^9,
3167   3.647156803124836*^9, 3.647662624547717*^9, 3.647680003047727*^9, {
3168   3.647852050146554*^9, 3.647852070746361*^9}, 3.647854193380438*^9,
3169   3.647854472315157*^9, 3.654589367379467*^9, 3.655028385095449*^9,
3170   3.655037589689776*^9, 3.655102976969412*^9, 3.6554463480196667`*^9,
3171   3.6554494166595507`*^9, 3.655449624416093*^9, 3.655462482854165*^9,
3172   3.655533510555356*^9, 3.655534489927485*^9, 3.65553491247956*^9,
3173   3.655556061523958*^9, 3.6555567830787907`*^9, 3.655556870343343*^9,
3174   3.6555573511558323`*^9, 3.655557401856991*^9, 3.6555574909705343`*^9,
3175   3.655557992107485*^9, 3.65561756431448*^9, 3.655619372238656*^9,
3176   3.655620497233121*^9, 3.6556209194893637`*^9, 3.6556210840084953`*^9,
3177   3.65562254892262*^9, 3.655623029848941*^9, 3.65562396185143*^9,
3178   3.65562437703279*^9, 3.655630765647863*^9, 3.6557080064700727`*^9,
3179   3.655708161439475*^9, 3.6557158031344976`*^9, 3.655812086274322*^9,
3180   3.655815995882653*^9, 3.655816096294796*^9, 3.655817224416876*^9,
3181   3.6558184467550373`*^9, 3.656054742273526*^9, 3.6560614819127407`*^9,
3182   3.656159612394012*^9, 3.6562365951838093`*^9, 3.657023617113926*^9,
3183   3.657023940045124*^9, 3.657024191034038*^9, 3.657024273528281*^9,
3184   3.657272931817512*^9, 3.658647654269309*^9, 3.658839365035342*^9,
3185   3.658839712520583*^9, 3.6590737364434834`*^9, 3.659073880817934*^9,
3186   3.6590741677050047`*^9, 3.6590750491965237`*^9, 3.664617216700522*^9,
3187   3.66461752556073*^9, 3.6647867538798923`*^9, 3.664787157101528*^9,
3188   3.6647874515462227`*^9, 3.6647883101671743`*^9, 3.6654730637881117`*^9,
3189   3.665486819024516*^9}],
3190
3191Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
3192 CellChangeTimes->{
3193  3.63488863760299*^9, 3.63488884361946*^9, 3.647152915156876*^9,
3194   3.647156803124836*^9, 3.647662624547717*^9, 3.647680003047727*^9, {
3195   3.647852050146554*^9, 3.647852070746361*^9}, 3.647854193380438*^9,
3196   3.647854472315157*^9, 3.654589367379467*^9, 3.655028385095449*^9,
3197   3.655037589689776*^9, 3.655102976969412*^9, 3.6554463480196667`*^9,
3198   3.6554494166595507`*^9, 3.655449624416093*^9, 3.655462482854165*^9,
3199   3.655533510555356*^9, 3.655534489927485*^9, 3.65553491247956*^9,
3200   3.655556061523958*^9, 3.6555567830787907`*^9, 3.655556870343343*^9,
3201   3.6555573511558323`*^9, 3.655557401856991*^9, 3.6555574909705343`*^9,
3202   3.655557992107485*^9, 3.65561756431448*^9, 3.655619372238656*^9,
3203   3.655620497233121*^9, 3.6556209194893637`*^9, 3.6556210840084953`*^9,
3204   3.65562254892262*^9, 3.655623029848941*^9, 3.65562396185143*^9,
3205   3.65562437703279*^9, 3.655630765647863*^9, 3.6557080064700727`*^9,
3206   3.655708161439475*^9, 3.6557158031344976`*^9, 3.655812086274322*^9,
3207   3.655815995882653*^9, 3.655816096294796*^9, 3.655817224416876*^9,
3208   3.6558184467550373`*^9, 3.656054742273526*^9, 3.6560614819127407`*^9,
3209   3.656159612394012*^9, 3.6562365951838093`*^9, 3.657023617113926*^9,
3210   3.657023940045124*^9, 3.657024191034038*^9, 3.657024273528281*^9,
3211   3.657272931817512*^9, 3.658647654269309*^9, 3.658839365035342*^9,
3212   3.658839712520583*^9, 3.6590737364434834`*^9, 3.659073880817934*^9,
3213   3.6590741677050047`*^9, 3.6590750491965237`*^9, 3.664617216700522*^9,
3214   3.66461752556073*^9, 3.6647867538798923`*^9, 3.664787157101528*^9,
3215   3.6647874515462227`*^9, 3.6647883101671743`*^9, 3.6654730637881117`*^9,
3216   3.6654868190792637`*^9}]
3217}, Open  ]],
3218
3219Cell[BoxData["True"], "Output",
3220 CellChangeTimes->CompressedData["
32211:eJwVzGkow3EYwPGJRm4vTKTEWCKbcmyZYz/iHbKSlBz/zGbOQtGkZi+EsSi0
3222iBw5Smq5olZeuLeUzNSSkOX4ZTFHLOF5Xnz7vPtGMk1SmRuLxRJje9GWWjEl
32231qVNaSPoYY+QDILbavVjSjolXGNwrRDU9vhr0MmNsuMM0PvprL0STFNK3lCO
3224KjC2CmRcBlUd+DJye47aX8zXqDXMHl4P6m7TuWhcSAUf9f52b0B5Gq2mF1Tw
3225+2R94LsizometLzy+sHnfbUYnRubcqKrXka+Fn954lm0lEZdoOzu9Q8dmDpx
3226urwONusFO2iNUqbaAn9DTV0PoJ9Pl/wJdF75tKLJiQFuFMxes+nR6aNDV3kG
3227Jff6rFwGfCgZEAyDrj/5/iZoWuYGirIoae1Qi1AaflOCTjwnMuidotNsAMff
3228TL5F2ZTUJ8wsroCcnyALOiT0D43MoWReGBaPOsY+C9AkKc+IbrRxrlfzKRn9
3229MrDXQN1C5iK7gJKDtHkb6jhr+UM9RIdKT7A6xrVbXEjJpZ7pLAP/AbEb6RI=
3230
3231  "]]
3232}, Open  ]],
3233
3234Cell[CellGroupData[{
3235
3236Cell[BoxData[
3237 RowBox[{"ckDiagonalMassTerms", "=",
3238  RowBox[{"CheckDiagonalMassTerms", "[", "LRM", "]"}]}]], "Input",
3239 CellChangeTimes->{{3.634888586936668*^9, 3.634888589829256*^9},
3240   3.634888629585513*^9, {3.6471529083178883`*^9, 3.64715290897139*^9},
3241   3.647852057622191*^9, 3.654589361621069*^9, {3.655557652092018*^9,
3242   3.6555576651398582`*^9}}],
3243
3244Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
3245 CellChangeTimes->{
3246  3.634888644224197*^9, 3.634888847033965*^9, 3.6471529192354307`*^9,
3247   3.6471568071127977`*^9, 3.6476626331560802`*^9, 3.647680011387031*^9, {
3248   3.6478520518749447`*^9, 3.6478520731398*^9}, 3.647854195910007*^9,
3249   3.647854474615224*^9, 3.654589368380753*^9, 3.655028388852507*^9,
3250   3.655037592100333*^9, 3.655102978590848*^9, 3.6554463498210793`*^9,
3251   3.655449419356674*^9, 3.655449625893476*^9, 3.655462485177459*^9,
3252   3.65553351117023*^9, 3.655534492478117*^9, 3.655534912810627*^9,
3253   3.655556062176011*^9, 3.6555567834576473`*^9, 3.655556870632485*^9,
3254   3.655557351582183*^9, 3.655557404284288*^9, 3.655557705632101*^9,
3255   3.655557993310985*^9, 3.655617566804093*^9, 3.655619374799411*^9,
3256   3.655620499741922*^9, 3.655620919769578*^9, 3.6556210843021097`*^9,
3257   3.655622550245267*^9, 3.655623030150145*^9, 3.6556239621653137`*^9,
3258   3.655624378091559*^9, 3.655630766383383*^9, 3.6557080069078703`*^9,
3259   3.655708162238461*^9, 3.655715803413362*^9, 3.655812088051293*^9,
3260   3.655815997944862*^9, 3.6558160984048643`*^9, 3.655817226528779*^9,
3261   3.6558184493745604`*^9, 3.656054744964986*^9, 3.6560614844145393`*^9,
3262   3.6561596134940042`*^9, 3.6562366024386272`*^9, 3.657023619469287*^9,
3263   3.657023942665588*^9, 3.657024191894055*^9, 3.657024274108255*^9,
3264   3.657272934236431*^9, 3.6586476570525417`*^9, 3.658839367625189*^9,
3265   3.658839714777515*^9, 3.6590737370960484`*^9, 3.659073881757358*^9,
3266   3.659074169911694*^9, 3.659075051377399*^9, 3.66461721888301*^9,
3267   3.6646175279514914`*^9, 3.664786756076312*^9, 3.6647871595677958`*^9,
3268   3.664787454104536*^9, 3.6647883124549303`*^9, 3.665473064618227*^9,
3269   3.6654868198104277`*^9}],
3270
3271Cell[BoxData["True"], "Output",
3272 CellChangeTimes->CompressedData["
32731:eJwVy2kow3EYwPGNHOVokhdqZEREKGS1Db//zNGYmRwvllghzfVCOUvxxpyl
3274SI5XwtIiV6Lcx0q80cZGtJTzV8OfZSI8z4tvn1dfgaZeVcHlcDgiaLtw3FQt
3275oqRb4lpQB5a8qNIGwFv5xlOSmBJ1g7Y6GTybFHehQyvTxxIwqumuuQzcLRp8
3276R1lnYGQ5qNAftmlBi8FuRv1kJht6PMPya8C5EF0YyjCJ2ejwb1Qt2rhj7dKB
3277bxPWih78jppYtH/WGdELVi7pRKjy1siiEecHsX3gq1I2hX46mAv0S37iGASz
3278Aq4Nq/jrM3dQD6a2bR38MXA7HsH49K2qZ9D+ndOIurwruRTku8WMoQPPwd+l
3279EkrO5f0yDfhmXogbAqU8hXEN5HvV84SplOypzELUNvVTjHp3SDWoZdR4soiu
3280CXzyGUqcnh/6ebDnocSECoPCAgVSSoIzhNHoVaIkDw3l12yiKQq1bTmXkvvW
3281X/cVMLy5U++uoMSUwF6iN+X7f2jaiK/WA7Se+h8W5lEi/mxpV4P/+5/qfw==
3282
3283  "]]
3284}, Open  ]],
3285
3286Cell[CellGroupData[{
3287
3288Cell[BoxData[
3289 RowBox[{"ckDiagonalQuadraticTerms", "=",
3290  RowBox[{"CheckDiagonalQuadraticTerms", "[", "LRM", "]"}]}]], "Input",
3291 CellChangeTimes->{{3.634888597073275*^9, 3.634888597988344*^9},
3292   3.634888630399523*^9, {3.6471529139372997`*^9, 3.64715291428071*^9},
3293   3.6478520591871643`*^9, 3.654589362723795*^9, {3.655557655112711*^9,
3294   3.655557663885045*^9}}],
3295
3296Cell[CellGroupData[{
3297
3298Cell[BoxData[
3299 InterpretationBox[
3300  RowBox[{"\<\"Neglecting all terms with less than \"\>",
3301   "\[InvisibleSpace]", "\<\"2\"\>",
3302   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
3303  SequenceForm["Neglecting all terms with less than ", "2", " particles."],
3304  Editable->False]], "Print",
3305 CellChangeTimes->CompressedData["
33061:eJwVzVtIk3EcxvF38zAvEkJLNAw0NSWXQRC5Tcm/YvSGa0wxDHSs5aZrWkJD
3307hQUj8iadm6aiGCEdLjopaR7SCswY5Vop9Io0k4YIuf5eNCO0RtTzu3j43H2f
3308dNPlcrNMEIRSzD/6Y+ffHs4GGsUEYS9nPuPFC7VKzu501YoW6OtUnaw5zFlm
33095pU5M9y1YPdOw3eJ/o8zUN86FCb94ayWHjVnTZMhyarhzDWvq7gER7Y7itzw
3310aFkodKyAs7dDw9bjUBQd10mDZ8dXCI1dkVYjbE8N/CQXbx3IOQ/frAcdNpgj
3311bS+RUZHVIPnymrC/ASYnLWWQZq9TJE3vdY3kmHiw7QbsXcm2tMOWGO8WOdgv
3312z+6AG48HNGSxLbxFlsikPBcM5JXfIzeD55bJtLi1Xx6o/Lz5ZAJO/a2ZJYsm
3313HY5pmBWb79yAFoW8/ju0fuq2k+qMPhmHboNzkHRJzRFDIWf2zkCpCQ6/lo7c
3314hNXRXxamYIP2xe78E+jvO6Qi/8wmV5F1UoWJLKhK/DAKyzzN8fpidO+rHo7A
33155/F3JfK2qElJL+HsVJ8+l3T3tOnIpLmnr8job4+Cz7Sc/Y45rRiH9V/nH8Se
33164WxmVb1CynMTBAVM01baSOtZpbdSh7+x7qvV8D8CNQzv
3317  "]],
3318
3319Cell[BoxData["\<\"All quadratic terms are diagonal.\"\>"], "Print",
3320 CellChangeTimes->CompressedData["
33211:eJwVzFtIk2Ecx/F38zAvFEJTNAo0NSWXQSC5TclHMXrDNaYYCjrWctM1rcCh
3322woIReZPOzTRJjJAOF52UrDxWYMYo18rAV6KZNFLI9XjRjNAaUb//xZfP3TfD
3323dK7SLBMEoRz5x35s/9vJ2WCLmCgkc+YznjndoOTsZm+DaIG+HtXR+gOcZWW1
3324zplh/ILdOw3fJPnfz0B9x3CY9Iez2/vVnJ2fCElWDWeueV3VWTi61V3ihocq
3325QqGCIs5eD49YD0NRdFwiDZ5tXzE09kY6jLBrd+An+eH63txT8NVa0GGDudLW
3326EhkVWQmSzy8Ke5phaspSJmn2OkXS9FbXQj4W93VehleXcyxdsD3Gu0kOXZPn
3327dMP1B4MastQW3iTLZFK+CwbyK2+TG8Haj2R63NdfHqj8tPFwHE7+rZ8lSyYc
3328jmmYHVvoXIcWhbzpO7QuXrGT6swBGYdug3OIdEltEUMxZ/aeQLkJjryUDvbB
3329uujPC5OwWftsR+ER/HftV5F/ZlNryEapykQW1SS9G4MVnrYEfSm+d1T3RuFU
3330wi2JvCFq0jLKODs2oM8j3f2dOjJl7tELMvrb/eATLWe/Y44rnsKmL/N3Y09w
3331NrOiXibleYmCAqZrq22k9aTSW63jjK32XaiD/wEDOg0W
3332  "]]
3333}, Open  ]],
3334
3335Cell[BoxData["True"], "Output",
3336 CellChangeTimes->CompressedData["
33371:eJwVz2kow3EYB/D/plgrR+QsRVuznOWI2Rx/V+QYM9dIrBxrWEphWyxXYa7V
3338Ul6pvaFGLSRXKfFikheM2GJNuX5ljiRRPM+Lp8+77/f7RMpVkhYGRVFCOGcp
3339OVcICZ04V17ZBXLd+uxpcPHs6SlFRGildFWRCuplmmFUO/9tzQDNhb99TSD7
33406voDNXdz+M0gz8elUYIs+5cNzXPcONHTLyq8AxxgXnBQV+JQEdpzK+5E/St4
3341I+PgwV1U6wRYH3z0ju5IPaImwczyBSH61//2jvJebfF6UDolMaGeH3WXaE2Q
334263MGnL13mzdwr2/jPrqVr9VsgeIHweAj/hPObH8GrddzPWhgi5FBwF21bgGt
3343tPf9NGYQeqzAkS8H1WpbggEMC3GcboJc9a5fWhahjw3RAjRPFlqL8kVSOSpY
3344CjixgDpVr3dFDqFz2tOXV8EJo+kcfTGJQiNzIVdQFYM+RoyKUVabZQ/N5qw4
334510qhr6TYax1MnrYueZYROlYlsqOWJH/KC2TPVivRbUbcYZWY0OvEoG0A/wHe
3346juGi
3347  "]]
3348}, Open  ]],
3349
3350Cell[CellGroupData[{
3351
3352Cell[BoxData[
3353 RowBox[{"ckKineticTermNormalisation", "=",
3354  RowBox[{"CheckKineticTermNormalisation", "[", "LRM", "]"}]}]], "Input",
3355 CellChangeTimes->{{3.634888605375029*^9, 3.634888631228882*^9}, {
3356   3.647152918581677*^9, 3.6471529188737307`*^9}, 3.647852059881651*^9,
3357   3.654589364537632*^9, {3.655557659398533*^9, 3.655557662082596*^9}}],
3358
3359Cell[CellGroupData[{
3360
3361Cell[BoxData[
3362 InterpretationBox[
3363  RowBox[{"\<\"Neglecting all terms with more than \"\>",
3364   "\[InvisibleSpace]", "\<\"2\"\>",
3365   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
3366  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
3367  Editable->False]], "Print",
3368 CellChangeTimes->CompressedData["
33691:eJxTTMoPSmVkYGBwBeJPLrE//4u8diwx2iTEIPraMebOi+QUndeOAcuee6YB
33706ey5Lu6xuq8dNarqDqcC6RP6B4/uBNIN3rLndwHpEt8XH0G0X5JL+WSr145n
3371Wc2vZlq/dhQrnxecB6Q3SW126APSNvelX5navHZcNuF9pjmQlp90shlEm+y0
3372P20LpLOTuSoTgPSUTKUvILokQEsjEUj/eP+hOhtI631iuAaieUpfPQDRfmJc
3373sjlAuvK7sgqIvrTrtCeI7jlXkwuiC+cWtnQC6e/rStO6gPS29UKfQfQzWy71
3374bpA9Txdag2geRqnPILoj/YFeD5BeZxC9GEyH518H0bts/37tB9KzVP+s2Qqk
3375m+3LDoDoe8eaq3cCaYWY/PoXQDrutGPGKyDN8PZyCYiuXHCd8TVIX/61WSD6
33767qbzv+NsXzvOO6frlgSkr+TzGEwC0jKK2he2A+lPWmyCFvavHc8drLME0fPu
3377GUeA6EvqaUkguisj5uxGIO2w+DRvoNNrx19ralauA9J6k15fAdEqc/0lFZ2B
3378/v1SoA2i11w84w+ilR5/2wuiY7w+P9js+9px7evp7FuA9KezAivZ/ID+mN9y
3379G0Qvs4xnYAfST6VmZ4NoH0vXo6H+wHiLXlMTA6QB6/YPlg==
3380  "]],
3381
3382Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
3383 CellChangeTimes->CompressedData["
33841:eJxTTMoPSmVkYGBwBeJPLrE//4u8diwx2iTEIPraMebOi+QUndeOAcuee6YB
33856ey5Lu6xuq8dNarqDqcC6RP6B4/uBNIN3rLndwHpEt8XH0G0X5JL+WSr145n
3386Wc2vZlq/dhQrnxecB6Q3SW126APSNvelX5navHZcNuF9pjmQlp90shlEm+y0
3387P20LpLOTuSoTgPSUTKUvILokQEsjEUj/eP+hOhtI631iuAaieUpfPQDRfmJc
3388sjlAuvK7sgqIvrTrtCeI7jlXkwuiC+cWtnQC6e/rStO6gPS29UKfQfQzWy71
3389bpA9Txdag2geRqnPILoj/YFeD5BeZxC9GEyH518H0bts/37tB9KzVP+s2Qqk
3390m+3LDoDoe8eaq3cCaYWY/PoXQDrutGPGKyDN8PZyCYiuXHCd8TVIX/61WSD6
33917qbzv+NsXzvOO6frlgSkr+TzGEwC0jKK2he2A+lPWmyCFvavHc8drLME0fPu
3392GUeA6EvqaUkguisj5uxGIO2w+DRvoNNrx19ralauA9J6k15fAdEqc/0lFZ2B
3393/v1SoA2i11w84w+ilR5/2wuiY7w+P9js+9px7evp7FuA9KezAivZ/ID+mN9y
3394G0Qvs4xnYAfST6VmZ4NoH0vXo6H+wHh0XFsTA6QB6hYPVw==
3395  "]],
3396
3397Cell[BoxData["\<\"All kinetic terms are correctly normalized.\"\>"], "Print",
3398 CellChangeTimes->CompressedData["
33991:eJwdz11Ik3EYBfB3FymMBSUmNBWbGormFD/QpWP+cxaWblpIga9WU5dj1psw
3400leXQYF6USckMAmWrEAbCnDRT2UBwyKKYm2mmF6kNRB37E9Zm2Sf6PF0cfleH
3401wxGpuMvNPIZhyiFhef2vg1hKdLmOGOYEJexasLHpDCXV1p0KNag1yy/UZ1GS
3402fq97rhl8m+32OMH7lxIXXKCuKvgNVajknYNnKfEdKfyoKaYkrtNy5Q7oEE6U
3403PgZLPseHCkoosQ7sagrBJNM7I5rvlHmloLaRr78BPtUk76G66oz0m+DP3a9d
3404WlAcZlZQQXsogCri+ImtoH4/JRVdcnkr0H6/4TbaZm7rfQju29vVfeDUeEwE
34053Zby0x7hztbLYlTAE0bQB7cC4n7QnlM38t+r3Crqkv77/gQcOv3XNgkaZR2z
34066MYbY5cTPMVyPUGwwUtaQiDz5YMO1b9Y5VHscStD6Lpj4U+DlBKLP+u8Clzm
3407BDkmMEGU+X4aDGdEHS+SUeJ3d0tQy0beNXQpTa1C+1pY3yuwdMR7tOYcJb9t
3408hlE7KDbRZTTVrDwpKoO/e3czUdvivBJN3vwxg7IXI4GJKkrG6LPo12DYd2w0
3409SgE/nvd+Qq2S60w0uCUc1qKVknJPrZKSDo/bwIKH8SoQTw==
3410  "]]
3411}, Open  ]],
3412
3413Cell[BoxData["True"], "Output",
3414 CellChangeTimes->{3.655816104279544*^9, 3.655817232654749*^9,
3415  3.6558184564237747`*^9, 3.656054752192738*^9, 3.6560614909306383`*^9,
3416  3.656159617310993*^9, 3.656236675056547*^9, 3.65702362559877*^9,
3417  3.657023949661059*^9, 3.657024194288419*^9, 3.657024275598772*^9,
3418  3.657272940261656*^9, 3.658647663985179*^9, 3.6588393730660343`*^9,
3419  3.658839720599745*^9, 3.659073738917429*^9, 3.659073884234521*^9,
3420  3.659074175656254*^9, 3.659075056893663*^9, 3.6646172248676577`*^9,
3421  3.664617534020952*^9, 3.6647867617373447`*^9, 3.664787165383065*^9,
3422  3.664787460330158*^9, 3.664788318052705*^9, 3.665473066866181*^9,
3423  3.665486822056654*^9}]
3424}, Open  ]],
3425
3426Cell[CellGroupData[{
3427
3428Cell[BoxData[
3429 RowBox[{"ckMassSpectrum", "=",
3430  RowBox[{"CheckMassSpectrum", "[", "LRM", "]"}]}]], "Input",
3431 CellChangeTimes->{{3.634888622211748*^9, 3.634888632248946*^9}, {
3432   3.647152922842223*^9, 3.647152923225006*^9}, 3.6478520606930017`*^9,
3433   3.654589365667865*^9, {3.655557688936022*^9, 3.655557693221458*^9}}],
3434
3435Cell[CellGroupData[{
3436
3437Cell[BoxData[
3438 InterpretationBox[
3439  RowBox[{"\<\"Neglecting all terms with more than \"\>",
3440   "\[InvisibleSpace]", "\<\"2\"\>",
3441   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
3442  SequenceForm["Neglecting all terms with more than ", "2", " particles."],
3443  Editable->False]], "Print",
3444 CellChangeTimes->CompressedData["
34451:eJwdzl1I02EYxuH/PNAZUoiGKRYuJLNmqBTaPpzvRFuDptmCnDV0brbZ0oiM
3446DRdGSdnMZmZYKRIlxQYKtpkZIpVMD+acYLNooE5Dlu+Q2Mzog9bzeHBznd38
3447OKqGcg2LYZhSWNftnN+RREr0xhsJzE5Kvmb71WouJcb7K9JakMfwjp/LoiQt
344855JTA37ZIZ4cBWP2ZaW9BdWuYxJU9n2XHL0a2+tB4+z1ITQ9s9zwgEfJ8jOH
3449V8enRPSRrKJPupPk9SBbstfYAHacL+hAM38FC++Bns7BYtS/eN06BmYonGtH
3450BJRUr6fU5YFcG6sFXb9ldwlBtoFrrAIDSb0bqO3R0f3VoHImwXQBNKfGz2/Z
3451/GcJlean7taDnyd70tFZY4wEnZ6ZuoguTH1ruQMuKkO1ZvCloj2MRpmTM9pA
3452TuMrPjoe0IbRUO6PQ3fBU27dc9QjsHxCD2g5mxZQ8y9+YBhsffr4HdrX2tU0
3453CgY/uJoDoEL3WruGfWFpI9reVhFFwcMr6h50xKH4qxRS0s0aKFGBuXxZdie4
34549HBodgQMvp+bRycuNwnfgAUvrsXni+C3OJa3ZaTmDNo/fFOFVrnn3EOgLa9s
3455+0kxJSUTq9ZBUCuq9KIp1JDMKaJELu4/iC7/FJShyoracXTBUuO3n6CkbnMb
34562wEyYyZrtIySyqINHxpn8zIx4LQvWo9GCq84T5dSkrjHZzoL/geq+TRH
3457  "]],
3458
3459Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
3460 CellChangeTimes->CompressedData["
34611:eJwdzl9Ik2EYhvFvHrgZUgwLUwxcSGbNUCm0uTnfibYGTbMFOWvo3GyzpREZ
3462Gy4Mk7KZzcywUiRKig0UzJlZIpVMD+acYLNooE5Dlu+Q2MzoD63n8eDmd3Zz
34638dR1pVoWwzDFsM5bmb8jOykxmJrimF2UfM3wazR8Skz3VmTVoIARHD+XTkly
34645iWnFvyyQzI5CrL3pSe/ATWuY1JU/n23Ar0a0+NBY4dqQ2hKWqnxvoCS5acO
3465rz6XEvFHsoo+7opX1IIc6V5THdh+Pq8dTfsVzL8LejoGClH/4nXbGJiqdK4d
3466EVJSuZ5Ykw3y7axmdP3mkEsEcox8UwUYiO/ZQO0Pj+6vBFUzceYLoCWJO79l
3467458lVJaTtMcAfp7sTkFnTWwpOj0zdRFdmPrWfBtcVIWqLeALZVsYjbIkpLaC
3468vPqXueh4QBdGQ1k/Dt0BT7n1z1CP0PoJPaDjbVpB7T9u/zDY8uTRO7S3pbNh
3469FAx+cDUGQKX+lW4N+8KyerSttSyKgodXNN3oiEP5VyWipIvVX6QGs3LlGR3g
34700oPB2REw+H5uHp243CB6DeY9v8bNEcNvYYxgy0jVGbRv+IYarXDPuQdBe3bJ
34719pMSSoomVm0DoE5c7kUTqTGBV0CJQtJ3EF3+KSxBVWXV4+iCtco/dIKSms1t
3472HAfIjJlt0XJKygs2fGis3cuwwWlftAGN5F9xni6mpOmtz3wW/A+ytDVS
3473  "]],
3474
3475Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
3476 CellChangeTimes->CompressedData["
34771:eJwdzl9Ik2EYhvFvHrgZUgwLUwxcSGbNUClm23S+E20NmmYLctbSua3NlkZk
3478bLgwSspmNjPDSpEoKTZQsM3MEKlkejDnBJtFgjoNWb4iMs3oD63n8eDmd3Zz
34798TQ1JToWwzBFsLY7mb8jOykxWW7GMbso+ZYR1Gr5lFgeLMr1oJARHj+XTkly
34805mWPDvy6Qzo6CLL3pSe/A7XeYzJUsbZbiV6L6fSjsa7qMJqSVmJ+KKRk4bk7
3481YBRRIvlEltCn7fHKapAj22upAVsu5Lagab9W8u6D/tbeAjQ4d8MxBKaqPMtH
3482xJRUrCZWCUC+k9WArt52eXNAjplvKQdD8Z0bqPPx0f0VoHoiznoRtCVxp7es
3483/zOPyrOT9pjAL6MdKeikhS1DxyfGLqGzY98b7oJz6rDeBr5SNa+jUbaE1CaQ
3484V/tahA6HDOtoOOvHoXvgKZ/xBeoX2z+jBwy8TTuo+8ft6Qcbnz15j3Y1ttUN
3485gisfvfUhUGV8Y1jGvnV5LdrcVBpFwcOL2g50wK36q86hpJ3VU6gBs0SKjFZw
3486/lHf5AC48mFqGh25UpfzFsx9eZ2bLYHfghjhlpHKM2h3/y0NWu6b8vWBTkHx
34879pNSSgpHlhy9oEFSFkATqTmBl0+JUtp9EF34KS5G1aX6YXTWXhl0naCkanMb
3488xw0yQ1ZHtIKSsvyNGTTWGWDY4PhMtAmN5F31nC6iRHB+zXoW/A+uVjTA
3489  "]],
3490
3491Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
3492values.\"\>"], "Print",
3493 CellChangeTimes->CompressedData["
34941:eJwdzl1I02EYxuH/PHAzpBgWphi4kMyaoVJo+1DfibYGTbMFOWvo3OZmSyMy
3495NlwYJWUzm5lhpUiUFBso2GZmiFQyPZhTwWaRoE5Dlu8Q2czog9bzeHBznd38
3496eOq6Ui2LYZhiWMedzN+R3ZQYzTfjmD2UfMvwazR8SswPVmQ6UMAITl5IpyQ5
349787JbC37dJRkfBtkH0pPfgRrPCSkq39irQK/FdE+jsc7aEJqSVmp6KKBk+bnL
3498ZxBSkveJrKJPO+MVtSBHut9cB7ZV57ahab+C+ffB6fb+QtS/eMM+AqYq3WvH
3499RJRUrifWZIN8B6sJXb/t9IhBjolvrgAD8d2bqOPx8YOVoGoqznIRtCZx57Zt
3500/LOEynKS9hnBL+NdKeiMmS1FJ6cmLqELE9+b7oKLqpDOCr5StobRKGtCagvI
3501q38tREcD+jAayvpx5B54xmt4gU6LbJ/RQ3relg3U/uP2DYLNz568R3uaOxqG
3502weBHT2MAVBre6NewLyyrR1tbyqIoeHRF04UOuZR/VWJKOll9RWowSyjPaAeX
3503Hg3MDIHBD7Nz6NiVBvFbMPfldW5OHvwWxgi2jVSdQ3sHb6nRCu+sdwB0ZJfs
3504PC2hpGhs1d4P6vPKfWgiNSXwCihRSHoPo8s/RSWoqkw3ii7YqvzOU5TUbO3g
3505uEBmxGKPllNSXrA5j8Y6fAwbnJyPNqKR/Kvus8WUjFdvWM6D/wGzBjVX
3506  "]]
3507}, Open  ]],
3508
3509Cell[BoxData[
3510 TagBox[GridBox[{
3511    {"\<\"Particle\"\>", "\<\"Analytic value\"\>", "\<\"Numerical value\"\>", \
3512"\<\"Model-file value\"\>"},
3513    {"DM",
3514     SubscriptBox["M", "DM"], "800.`", "800.`"},
3515    {"X",
3516     SubscriptBox["M", "X"], "880.`", "880.`"},
3517    {"M",
3518     SqrtBox[
3519      SubsuperscriptBox["M", "M", "2"]], "600.`", "600.`"}
3520   },
3521   GridBoxAlignment->{
3522    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
3523     "RowsIndexed" -> {}},
3524   GridBoxSpacings->{"Columns" -> {
3525       Offset[0.27999999999999997`], {
3526        Offset[2.0999999999999996`]},
3527       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
3528       Offset[0.2], {
3529        Offset[0.4]},
3530       Offset[0.2]}, "RowsIndexed" -> {}}],
3531  Function[BoxForm`e$,
3532   TableForm[BoxForm`e$]]]], "Output",
3533 CellChangeTimes->CompressedData["
35341:eJxTTMoPSmVkYGCwAOKID2wt5javHS1uPTptC6RrdlhXJgBpny2nvoBokQ32
3535GolA+lWMYk02kN6lK34NRP9nZXoIov8tVZLNAdIhkqdVQLTcJRMPEH3z/Otc
3536EG01Wbq1E0jX2iqmd4HUr9z9GUQr7FdU7wbS21h3WoNou5ruzyD6Z+ZvvR4g
3537fV6oYDGIzvk29zqInrbW4Fs/kK62k1u7FUiXbFl6AETbnJ9VvRNI9938Uv8C
3538SAe4vs94BaQ3aTaWgujbJn1Mr0H23Zk5G0S3zJ74J872teOl3ttuSUC680ie
3539wSQgfabo1YXtQLo9ju86iP7FtNV2B5BeXrFa0MIeaK+SvRWIzllUFQGita5P
3540SALRxvFs5zYCafmMdr5AJ6C5p3hWrQPSUStbr4Lof4c6JBWdge4U2aUNoqMu
3541JQeA6FVBPftAtFHFpIebfV87NvWbcGwB0h07V6xk83vtaDtL5g6I/r6QgZEd
3542SCdx6OeA6JBvPUdD/V87+hV9qIkB0gAq1dtG
3543  "]]
3544}, Open  ]],
3545
3546Cell[CellGroupData[{
3547
3548Cell[BoxData[
3549 RowBox[{
3550  RowBox[{"(*", " ",
3551   RowBox[{
3552   "Combine", " ", "the", " ", "results", " ", "of", " ", "all", " ",
3553    "checks"}], " ", "*)"}], "\[IndentingNewLine]",
3554  RowBox[{
3555   RowBox[{"If", "[",
3556    RowBox[{
3557     RowBox[{
3558     "ckHermiticity", "&&", "ckQuantumNumbers", "&&",
3559      "ckDiagonalKineticTerms", "&&", "ckDiagonalMassTerms", "&&",
3560      "ckDiagonalQuadraticTerms", "&&", "ckKineticTermNormalisation", "&&",
3561      RowBox[{"FreeQ", "[",
3562       RowBox[{
3563        RowBox[{
3564         RowBox[{
3565          RowBox[{"(",
3566           RowBox[{
3567            RowBox[{"#", "[",
3568             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]",
3569            RowBox[{"#", "[",
3570             RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "&"}], "/@",
3571         RowBox[{"Drop", "[",
3572          RowBox[{
3573           RowBox[{"ckMassSpectrum", "//", "First"}], ",", "1"}], "]"}]}],
3574        ",", "False"}], "]"}]}], ",", "\[IndentingNewLine]",
3575     RowBox[{"Print", "[",
3576      RowBox[{"Style", "[",
3577       RowBox[{
3578       "\"\<All FeynRules checks have succeeded.\>\"", ",", "Orange", ",",
3579        "Bold"}], "]"}], "]"}], ",", "\[IndentingNewLine]",
3580     RowBox[{"Print", "[",
3581      RowBox[{"Style", "[",
3582       RowBox[{
3583       "\"\<Some FeynRules checks have failed.\>\"", ",", "Red", ",",
3584        "Bold"}], "]"}], "]"}], ",", "\[IndentingNewLine]",
3585     RowBox[{"Print", "[",
3586      RowBox[{"Style", "[",
3587       RowBox[{
3588       "\"\<Some FeynRules checks have failed.\>\"", ",", "Red", ",",
3589        "Bold"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}],
3590   ";"}]}]], "Input",
3591 CellChangeTimes->{{3.655557489479282*^9, 3.65555763719306*^9}, {
3592   3.6555576740579*^9, 3.655557686442938*^9}, {3.6555579349741383`*^9,
3593   3.6555579357716846`*^9}, 3.66547305494538*^9, {3.665486810475178*^9,
3594   3.665486810721043*^9}}],
3595
3596Cell[BoxData[
3597 StyleBox["\<\"All FeynRules checks have succeeded.\"\>",
3598  StripOnInput->False,
3599  LineColor->RGBColor[1, 0.5, 0],
3600  FrontFaceColor->RGBColor[1, 0.5, 0],
3601  BackFaceColor->RGBColor[1, 0.5, 0],
3602  GraphicsColor->RGBColor[1, 0.5, 0],
3603  FontWeight->Bold,
3604  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3605 CellChangeTimes->{
3606  3.65555763858834*^9, {3.655557699900114*^9, 3.655557714422707*^9},
3607   3.6555579368053083`*^9, 3.6555579995146313`*^9, 3.655617577130252*^9,
3608   3.6556193853549967`*^9, 3.655620510177223*^9, 3.655620921185185*^9,
3609   3.655621086125058*^9, 3.655622556705308*^9, 3.655623031961874*^9,
3610   3.655623963657867*^9, 3.6556243810180798`*^9, 3.655630769869128*^9,
3611   3.655708009110869*^9, 3.655708165516589*^9, 3.655715805190654*^9,
3612   3.6558120958829737`*^9, 3.655816007655499*^9, 3.655816108329937*^9,
3613   3.655817236714216*^9, 3.6558184610730352`*^9, 3.65605475683356*^9,
3614   3.656061495207274*^9, 3.656159619754793*^9, 3.657023629573357*^9,
3615   3.657023954189279*^9, 3.6570241960812597`*^9, 3.657024276781888*^9,
3616   3.6572729444337797`*^9, 3.658647668499201*^9, 3.658839376685717*^9,
3617   3.658839724510497*^9, 3.659073740544881*^9, 3.659073886139926*^9,
3618   3.659074179461953*^9, 3.659075060698118*^9, 3.664617228772047*^9,
3619   3.6646175378752537`*^9, 3.6647867655264053`*^9, 3.664787169175674*^9,
3620   3.664787464324778*^9, 3.6647883217039423`*^9, 3.665473068527873*^9, {
3621   3.665486811937519*^9, 3.665486823655128*^9}}]
3622}, Open  ]]
3623}, Open  ]],
3624
3625Cell[CellGroupData[{
3626
3627Cell["Decay Widths", "Subsection",
3628 CellChangeTimes->{{3.6557158211451597`*^9, 3.6557158258725767`*^9}}],
3629
3630Cell[CellGroupData[{
3631
3632Cell[BoxData[{
3633 RowBox[{
3634  RowBox[{"$Assumptions", "=",
3635   RowBox[{
3636    RowBox[{"MM", "\[Element]", "Reals"}], "&&",
3637    RowBox[{"MM", ">", "0"}], "&&",
3638    RowBox[{"\[CapitalDelta]", "\[Element]", "Reals"}], "&&",
3639    RowBox[{"\[CapitalDelta]", ">", "0"}], "&&",
3640    RowBox[{"\[Tau]", "\[Element]", "Reals"}], "&&",
3641    RowBox[{"\[Tau]", ">", "0"}], "&&",
3642    RowBox[{"\[Tau]SM", "\[Element]", "Reals"}], "&&",
3643    RowBox[{"\[Tau]SM", ">", "0"}]}]}], ";"}], "\[IndentingNewLine]",
3644 RowBox[{
3645  RowBox[{"Unprotect", "[",
3646   RowBox[{"verticesRM", ",", "decaysRM"}], "]"}],
3647  ";"}], "\[IndentingNewLine]",
3648 RowBox[{
3649  RowBox[{"ClearAll", "[",
3650   RowBox[{"verticesRM", ",", "decaysRM"}], "]"}],
3651  ";"}], "\[IndentingNewLine]",
3652 RowBox[{
3653  RowBox[{"verticesRM", "=",
3654   RowBox[{"FeynmanRules", "[",
3655    RowBox[{"LRM", ",",
3656     RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}]}],
3657  ";"}], "\[IndentingNewLine]",
3658 RowBox[{
3659  RowBox[{"decaysRM", "=",
3660   RowBox[{"ComputeWidths", "[", "verticesRM", "]"}]}],
3661  ";"}], "\[IndentingNewLine]",
3662 RowBox[{
3663  RowBox[{"Protect", "[",
3664   RowBox[{"verticesRM", ",", "decaysRM"}], "]"}], ";"}]}], "Input",
3665 CellChangeTimes->{{3.656316345406905*^9, 3.656316372596243*^9}, {
3666  3.66462115607552*^9, 3.664621156651512*^9}}],
3667
3668Cell[CellGroupData[{
3669
3670Cell[BoxData[
3671 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
3672  StripOnInput->False,
3673  LineColor->RGBColor[1, 0.5, 0],
3674  FrontFaceColor->RGBColor[1, 0.5, 0],
3675  BackFaceColor->RGBColor[1, 0.5, 0],
3676  GraphicsColor->RGBColor[1, 0.5, 0],
3677  FontWeight->Bold,
3678  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3679 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3680  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3681  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3682  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3683  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3684  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3685  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3686  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3687  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3688  3.664787537413168*^9, 3.664788322747801*^9, 3.6652930172729883`*^9}],
3689
3690Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
3691 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3692  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3693  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3694  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3695  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3696  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3697  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3698  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3699  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3700  3.664787537413168*^9, 3.664788322747801*^9, 3.665293017274901*^9}],
3701
3702Cell[BoxData["\<\"Collecting the different structures that enter the \
3703vertex.\"\>"], "Print",
3704 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3705  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3706  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3707  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3708  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3709  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3710  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3711  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3712  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3713  3.664787537413168*^9, 3.664788322747801*^9, 3.665293017719219*^9}],
3714
3715Cell[BoxData[
3716 InterpretationBox[
3717  RowBox[{
3718  "16", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
3719-> starting the computation: \"\>", "\[InvisibleSpace]",
3720   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
3721    ImageSizeCache->{121., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3722   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\".\"\>"}],
3723  SequenceForm[
3724  16, " possible non-zero vertices have been found -> starting the \
3725computation: ",
3726   Dynamic[FeynRules`FR$FeynmanRules], " / ", 16, "."],
3727  Editable->False]], "Print",
3728 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3729  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3730  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3731  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3732  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3733  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3734  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3735  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3736  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3737  3.664787537413168*^9, 3.664788322747801*^9, 3.6652930177586184`*^9}],
3738
3739Cell[BoxData[
3740 InterpretationBox[
3741  RowBox[{"16", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
3742  SequenceForm[16, " vertices obtained."],
3743  Editable->False]], "Print",
3744 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3745  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3746  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3747  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3748  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3749  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3750  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3751  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3752  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3753  3.664787537413168*^9, 3.664788322747801*^9, 3.665293018134523*^9}],
3754
3755Cell[BoxData[
3756 InterpretationBox[
3757  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
3758   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
3759    ImageSizeCache->{73., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3760   "\[InvisibleSpace]", "16"}],
3761  SequenceForm["Flavor expansion of the vertices: ",
3762   Dynamic[FeynRules`FR$Count1], " / ", 16],
3763  Editable->False]], "Print",
3764 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3765  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3766  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3767  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3768  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3769  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3770  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3771  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3772  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3773  3.664787537413168*^9, 3.664788322747801*^9, 3.6652930184743643`*^9}],
3774
3775Cell[BoxData[
3776 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3777decays: \"\>",
3778  StripOnInput->False,
3779  LineColor->RGBColor[1, 0.5, 0],
3780  FrontFaceColor->RGBColor[1, 0.5, 0],
3781  BackFaceColor->RGBColor[1, 0.5, 0],
3782  GraphicsColor->RGBColor[1, 0.5, 0],
3783  FontWeight->Bold,
3784  FontColor->RGBColor[1, 0.5, 0]]], "Print",
3785 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3786  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3787  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3788  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3789  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3790  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3791  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3792  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3793  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3794  3.664787537413168*^9, 3.664788322747801*^9, 3.6652930186694183`*^9}],
3795
3796Cell[BoxData[
3797 InterpretationBox[
3798  RowBox[{
3799   DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
3800    ImageSizeCache->{122., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
3801   "\[InvisibleSpace]", "10"}],
3802  SequenceForm[
3803   Dynamic[FeynRules`FR$DecayCounter], " / ", 10],
3804  Editable->False]], "Print",
3805 CellChangeTimes->{3.656316373329444*^9, 3.656320672372623*^9,
3806  3.6563221580463333`*^9, 3.657272945459958*^9, 3.65794774385843*^9,
3807  3.657955430927693*^9, 3.658035722530676*^9, 3.658037548801907*^9,
3808  3.6588397255521097`*^9, 3.659073758192252*^9, 3.659073959188405*^9,
3809  3.659074251176793*^9, 3.659075066935491*^9, 3.659092663010632*^9,
3810  3.6590946265709476`*^9, 3.659171290866943*^9, 3.659172107014064*^9,
3811  3.664618711075767*^9, 3.664620710785681*^9, 3.664620867789566*^9,
3812  3.6646211598559313`*^9, 3.664622148542858*^9, 3.664626822306036*^9,
3813  3.6647075291340437`*^9, 3.664707724667346*^9, 3.6647085238433313`*^9,
3814  3.664787537413168*^9, 3.664788322747801*^9, 3.665293018670682*^9}]
3815}, Open  ]]
3816}, Open  ]],
3817
3818Cell[CellGroupData[{
3819
3820Cell["Leptoquark", "Subsubsection",
3821 CellChangeTimes->{{3.6557158422943287`*^9, 3.655715852225478*^9}}],
3822
3823Cell[CellGroupData[{
3824
3825Cell[BoxData[
3826 RowBox[{
3827  RowBox[{"If", "[",
3828   RowBox[{
3829    RowBox[{"ModelFile", "\[Equal]", "\"\<model_lq_met.fr\>\""}], ",",
3830    "\[IndentingNewLine]",
3831    RowBox[{
3832     RowBox[{"ClearAll", "[",
3833      RowBox[{
3834      "\[CapitalGamma]M1toDMX1", ",", "\[CapitalGamma]M2toDMX2", ",",
3835       "\[CapitalGamma]M1toue", ",", "\[CapitalGamma]M2tode"}], "]"}], ";",
3836     "\[IndentingNewLine]",
3837     RowBox[{"\[CapitalGamma]M1toDMX1", "=",
3838      RowBox[{
3839       RowBox[{"(",
3840        RowBox[{
3841         RowBox[{
3842          RowBox[{"Cases", "[",
3843           RowBox[{"decaysRM", ",",
3844            RowBox[{"{",
3845             RowBox[{
3846              RowBox[{
3847               RowBox[{"{",
3848                RowBox[{"M1", ",", "X1", ",", "DMbar"}], "}"}], "|",
3849               RowBox[{"{",
3850                RowBox[{"M1", ",", "DMbar", ",", "X1"}], "}"}]}], ",", "_"}],
3851             "}"}]}], "]"}], "[",
3852          RowBox[{"[",
3853           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
3854         RowBox[{"{",
3855          RowBox[{
3856           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
3857           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
3858           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
3859           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
3860       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
3861     RowBox[{"\[CapitalGamma]M2toDMX2", "=",
3862      RowBox[{
3863       RowBox[{"(",
3864        RowBox[{
3865         RowBox[{
3866          RowBox[{"Cases", "[",
3867           RowBox[{"decaysRM", ",",
3868            RowBox[{"{",
3869             RowBox[{
3870              RowBox[{
3871               RowBox[{"{",
3872                RowBox[{"M2", ",", "X2", ",", "DMbar"}], "}"}], "|",
3873               RowBox[{"{",
3874                RowBox[{"M2", ",", "DMbar", ",", "X2"}], "}"}]}], ",", "_"}],
3875             "}"}]}], "]"}], "[",
3876          RowBox[{"[",
3877           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
3878         RowBox[{"{",
3879          RowBox[{
3880           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
3881           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
3882           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
3883           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
3884       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
3885     RowBox[{"\[CapitalGamma]M1toue", "=",
3886      RowBox[{
3887       RowBox[{"(",
3888        RowBox[{
3889         RowBox[{
3890          RowBox[{"Cases", "[",
3891           RowBox[{"decaysRM", ",",
3892            RowBox[{"{",
3893             RowBox[{
3894              RowBox[{
3895               RowBox[{"{",
3896                RowBox[{"M1", ",", "u", ",", "ebar"}], "}"}], "|",
3897               RowBox[{"{",
3898                RowBox[{"M1", ",", "ebar", ",", "u"}], "}"}]}], ",", "_"}],
3899             "}"}]}], "]"}], "[",
3900          RowBox[{"[",
3901           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
3902         RowBox[{"{",
3903          RowBox[{
3904           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
3905           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
3906           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
3907           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
3908       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
3909     RowBox[{"\[CapitalGamma]M2tode", "=",
3910      RowBox[{
3911       RowBox[{"(",
3912        RowBox[{
3913         RowBox[{
3914          RowBox[{"Cases", "[",
3915           RowBox[{"decaysRM", ",",
3916            RowBox[{"{",
3917             RowBox[{
3918              RowBox[{
3919               RowBox[{"{",
3920                RowBox[{"M2", ",", "d", ",", "ebar"}], "}"}], "|",
3921               RowBox[{"{",
3922                RowBox[{"M2", ",", "ebar", ",", "d"}], "}"}]}], ",", "_"}],
3923             "}"}]}], "]"}], "[",
3924          RowBox[{"[",
3925           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
3926         RowBox[{"{",
3927          RowBox[{
3928           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
3929           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
3930           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
3931           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
3932       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
3933     RowBox[{"\[CapitalGamma]M2tou\[Nu]", "=",
3934      RowBox[{
3935       RowBox[{"(",
3936        RowBox[{
3937         RowBox[{
3938          RowBox[{"Cases", "[",
3939           RowBox[{"decaysRM", ",",
3940            RowBox[{"{",
3941             RowBox[{
3942              RowBox[{
3943               RowBox[{"{",
3944                RowBox[{"M2", ",", "u", ",", "vebar"}], "}"}], "|",
3945               RowBox[{"{",
3946                RowBox[{"M2", ",", "vebar", ",", "u"}], "}"}]}], ",", "_"}],
3947             "}"}]}], "]"}], "[",
3948          RowBox[{"[",
3949           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
3950         RowBox[{"{",
3951          RowBox[{
3952           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
3953           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
3954           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
3955           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
3956       "FullSimplify"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
3957     
3958     RowBox[{"\[CapitalGamma]M1toDMX1", "=",
3959      RowBox[{
3960       RowBox[{"(",
3961        RowBox[{
3962         RowBox[{"(",
3963          RowBox[{
3964           RowBox[{"\[CapitalGamma]M1toDMX1", "/.",
3965            RowBox[{"{",
3966             RowBox[{"MX", "\[Rule]",
3967              RowBox[{"MDM",
3968               RowBox[{"(",
3969                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
3970            "FullSimplify"}], ")"}], "/.",
3971         RowBox[{"MDM", "\[Rule]",
3972          SqrtBox[
3973           RowBox[{"\[Tau]", "*",
3974            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
3975      ";", "\[IndentingNewLine]",
3976     RowBox[{"\[CapitalGamma]M2toDMX2", "=",
3977      RowBox[{
3978       RowBox[{"(",
3979        RowBox[{
3980         RowBox[{"(",
3981          RowBox[{
3982           RowBox[{"\[CapitalGamma]M2toDMX2", "/.",
3983            RowBox[{"{",
3984             RowBox[{"MX", "\[Rule]",
3985              RowBox[{"MDM",
3986               RowBox[{"(",
3987                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
3988            "FullSimplify"}], ")"}], "/.",
3989         RowBox[{"MDM", "\[Rule]",
3990          SqrtBox[
3991           RowBox[{"\[Tau]", "*",
3992            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
3993      ";", "\[IndentingNewLine]",
3994     RowBox[{"\[CapitalGamma]M1toue", "=",
3995      RowBox[{
3996       RowBox[{"\[CapitalGamma]M1toue", "/.",
3997        RowBox[{"{",
3998         RowBox[{
3999          RowBox[{"MU", "\[Rule]",
4000           SqrtBox[
4001            RowBox[{
4002             SubscriptBox["\[Tau]", "u"], "*",
4003             SuperscriptBox["MM", "2"]}]]}], ",",
4004          RowBox[{"Me", "\[Rule]", "0"}]}], "}"}]}], "//", "FullSimplify"}]}],
4005      ";", "\[IndentingNewLine]",
4006     RowBox[{"\[CapitalGamma]M2tode", "=",
4007      RowBox[{
4008       RowBox[{"\[CapitalGamma]M2tode", "/.",
4009        RowBox[{"{",
4010         RowBox[{
4011          RowBox[{"MD", "\[Rule]",
4012           SqrtBox[
4013            RowBox[{
4014             SubscriptBox["\[Tau]", "d"], "*",
4015             SuperscriptBox["MM", "2"]}]]}], ",",
4016          RowBox[{"Me", "\[Rule]", "0"}]}], "}"}]}], "//", "FullSimplify"}]}],
4017      ";", "\[IndentingNewLine]",
4018     RowBox[{"\[CapitalGamma]M2tou\[Nu]", "=",
4019      RowBox[{
4020       RowBox[{"\[CapitalGamma]M2tou\[Nu]", "/.",
4021        RowBox[{"{",
4022         RowBox[{
4023          RowBox[{"MU", "\[Rule]",
4024           SqrtBox[
4025            RowBox[{
4026             SubscriptBox["\[Tau]", "u"], "*",
4027             SuperscriptBox["MM", "2"]}]]}], ",",
4028          RowBox[{"Me", "\[Rule]", "0"}]}], "}"}]}], "//", "FullSimplify"}]}],
4029      ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
4030     RowBox[{"Print", "[",
4031      RowBox[{
4032      "\"\<\[CapitalGamma]M1toDMX1 = \>\"", ",", "\[CapitalGamma]M1toDMX1"}],
4033      "]"}], ";", "\[IndentingNewLine]",
4034     RowBox[{"Print", "[",
4035      RowBox[{
4036      "\"\<\[CapitalGamma]M2toDMX2 = \>\"", ",", "\[CapitalGamma]M2toDMX2"}],
4037      "]"}], ";", "\[IndentingNewLine]",
4038     RowBox[{"Print", "[",
4039      RowBox[{
4040      "\"\<\[CapitalGamma]M1toue = \>\"", ",", "\[CapitalGamma]M1toue"}],
4041      "]"}], ";", "\[IndentingNewLine]",
4042     RowBox[{"Print", "[",
4043      RowBox[{
4044      "\"\<\[CapitalGamma]M2tode = \>\"", ",", "\[CapitalGamma]M2tode"}],
4045      "]"}], ";", "\[IndentingNewLine]",
4046     RowBox[{"Print", "[",
4047      RowBox[{
4048      "\"\<\[CapitalGamma]M2tou\[Nu] = \>\"", ",",
4049       "\[CapitalGamma]M2tou\[Nu]"}], "]"}], ";"}]}], "\[IndentingNewLine]",
4050   "]"}], ";"}]], "Input",
4051 CellChangeTimes->{{3.6563162141476107`*^9, 3.656316252063292*^9}, {
4052   3.6563163079747877`*^9, 3.6563163137517853`*^9}, {3.656316381871518*^9,
4053   3.656316384771652*^9}, {3.656316420359488*^9, 3.656316453631982*^9}, {
4054   3.656318939898245*^9, 3.65631894685436*^9}, 3.6563206515527*^9, {
4055   3.656320683219551*^9, 3.656320730889275*^9}, 3.65632076728203*^9, {
4056   3.656320806729951*^9, 3.656320810681159*^9}, {3.656322099443153*^9,
4057   3.656322099954748*^9}, {3.656322139690195*^9, 3.656322312083233*^9}, {
4058   3.6563223510144033`*^9, 3.6563223939158287`*^9}, {3.656322474059771*^9,
4059   3.6563225345246563`*^9}, {3.656322636052237*^9, 3.656322708708234*^9}, {
4060   3.659171262415204*^9, 3.659171300792068*^9}, {3.659171526367646*^9,
4061   3.6591716087777023`*^9}, {3.659171719846974*^9, 3.6591717615108356`*^9}, {
4062   3.65917182439965*^9, 3.659171846101592*^9}, {3.65917187909525*^9,
4063   3.659171897972974*^9}, {3.659171941191195*^9, 3.6591719598565693`*^9}, {
4064   3.664622183903256*^9, 3.664622197770788*^9}, {3.664623832621648*^9,
4065   3.664623849223935*^9}, {3.66462408767135*^9, 3.664624094187992*^9}, {
4066   3.664624394785861*^9, 3.664624396173077*^9}}],
4067
4068Cell[CellGroupData[{
4069
4070Cell[BoxData[
4071 InterpretationBox[
4072  RowBox[{"\<\"\[CapitalGamma]M1toDMX1 = \"\>", "\[InvisibleSpace]",
4073   RowBox[{"-",
4074    FractionBox[
4075     RowBox[{"MM", " ",
4076      SubsuperscriptBox["y", "D", "2"], " ",
4077      RowBox[{"(",
4078       RowBox[{
4079        RowBox[{"-", "1"}], "+",
4080        RowBox[{
4081         SuperscriptBox[
4082          RowBox[{"(",
4083           RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4084         "\[Tau]"}]}], ")"}], " ",
4085      SqrtBox[
4086       RowBox[{
4087        RowBox[{"(",
4088         RowBox[{
4089          RowBox[{"-", "1"}], "+",
4090          RowBox[{
4091           SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}], ")"}],
4092        " ",
4093        RowBox[{"(",
4094         RowBox[{
4095          RowBox[{"-", "1"}], "+",
4096          RowBox[{
4097           SuperscriptBox[
4098            RowBox[{"(",
4099             RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4100           "\[Tau]"}]}], ")"}]}]]}],
4101     RowBox[{"8", " ", "\[Pi]"}]]}]}],
4102  SequenceForm[
4103  "\[CapitalGamma]M1toDMX1 = ", Rational[-1, 8] $CellContext`MM
4104   Pi^(-1) $CellContext`yD^2 (-1 + (
4105       2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]) ((-1 + \
4106$CellContext`\[CapitalDelta]^2 $CellContext`\[Tau]) (-1 + (
4107         2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]))^
4108    Rational[1, 2]],
4109  Editable->False]], "Print",
4110 CellChangeTimes->{
4111  3.65917173771987*^9, {3.6591718837170057`*^9, 3.65917189897104*^9},
4112   3.659171960521044*^9, 3.664622219888534*^9, 3.664622921560031*^9, {
4113   3.664623837673608*^9, 3.664623850097834*^9}, 3.664624094950416*^9,
4114   3.664624397530715*^9, 3.664624544187099*^9, {3.6647085199321823`*^9,
4115   3.6647085299825563`*^9}, {3.664788329007606*^9, 3.664788330597349*^9}}],
4116
4117Cell[BoxData[
4118 InterpretationBox[
4119  RowBox[{"\<\"\[CapitalGamma]M2toDMX2 = \"\>", "\[InvisibleSpace]",
4120   RowBox[{"-",
4121    FractionBox[
4122     RowBox[{"MM", " ",
4123      SubsuperscriptBox["y", "D", "2"], " ",
4124      RowBox[{"(",
4125       RowBox[{
4126        RowBox[{"-", "1"}], "+",
4127        RowBox[{
4128         SuperscriptBox[
4129          RowBox[{"(",
4130           RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4131         "\[Tau]"}]}], ")"}], " ",
4132      SqrtBox[
4133       RowBox[{
4134        RowBox[{"(",
4135         RowBox[{
4136          RowBox[{"-", "1"}], "+",
4137          RowBox[{
4138           SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}], ")"}],
4139        " ",
4140        RowBox[{"(",
4141         RowBox[{
4142          RowBox[{"-", "1"}], "+",
4143          RowBox[{
4144           SuperscriptBox[
4145            RowBox[{"(",
4146             RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4147           "\[Tau]"}]}], ")"}]}]]}],
4148     RowBox[{"8", " ", "\[Pi]"}]]}]}],
4149  SequenceForm[
4150  "\[CapitalGamma]M2toDMX2 = ", Rational[-1, 8] $CellContext`MM
4151   Pi^(-1) $CellContext`yD^2 (-1 + (
4152       2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]) ((-1 + \
4153$CellContext`\[CapitalDelta]^2 $CellContext`\[Tau]) (-1 + (
4154         2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]))^
4155    Rational[1, 2]],
4156  Editable->False]], "Print",
4157 CellChangeTimes->{
4158  3.65917173771987*^9, {3.6591718837170057`*^9, 3.65917189897104*^9},
4159   3.659171960521044*^9, 3.664622219888534*^9, 3.664622921560031*^9, {
4160   3.664623837673608*^9, 3.664623850097834*^9}, 3.664624094950416*^9,
4161   3.664624397530715*^9, 3.664624544187099*^9, {3.6647085199321823`*^9,
4162   3.6647085299825563`*^9}, {3.664788329007606*^9, 3.664788330598588*^9}}],
4163
4164Cell[BoxData[
4165 InterpretationBox[
4166  RowBox[{"\<\"\[CapitalGamma]M1toue = \"\>", "\[InvisibleSpace]",
4167   RowBox[{"-",
4168    FractionBox[
4169     RowBox[{"MM", " ",
4170      RowBox[{"(",
4171       RowBox[{
4172        SuperscriptBox["yLu1x1", "2"], "+",
4173        SuperscriptBox["yQl1x1", "2"]}], ")"}], " ",
4174      RowBox[{"(",
4175       RowBox[{
4176        RowBox[{"-", "1"}], "+",
4177        SubscriptBox["\[Tau]", "u"]}], ")"}], " ",
4178      SqrtBox[
4179       SuperscriptBox[
4180        RowBox[{"(",
4181         RowBox[{
4182          RowBox[{"-", "1"}], "+",
4183          SubscriptBox["\[Tau]", "u"]}], ")"}], "2"]]}],
4184     RowBox[{"16", " ", "\[Pi]"}]]}]}],
4185  SequenceForm[
4186  "\[CapitalGamma]M1toue = ", Rational[-1, 16] $CellContext`MM
4187   Pi^(-1) ($CellContext`yLu1x1^2 + $CellContext`yQl1x1^2) (-1 +
4188    Subscript[$CellContext`\[Tau], FeynRules`u]) ((-1 +
4189      Subscript[$CellContext`\[Tau], FeynRules`u])^2)^Rational[1, 2]],
4190  Editable->False]], "Print",
4191 CellChangeTimes->{
4192  3.65917173771987*^9, {3.6591718837170057`*^9, 3.65917189897104*^9},
4193   3.659171960521044*^9, 3.664622219888534*^9, 3.664622921560031*^9, {
4194   3.664623837673608*^9, 3.664623850097834*^9}, 3.664624094950416*^9,
4195   3.664624397530715*^9, 3.664624544187099*^9, {3.6647085199321823`*^9,
4196   3.6647085299825563`*^9}, {3.664788329007606*^9, 3.664788330599719*^9}}],
4197
4198Cell[BoxData[
4199 InterpretationBox[
4200  RowBox[{"\<\"\[CapitalGamma]M2tode = \"\>", "\[InvisibleSpace]",
4201   RowBox[{"-",
4202    FractionBox[
4203     RowBox[{"MM", " ",
4204      SuperscriptBox["yQl1x1", "2"], " ",
4205      RowBox[{"(",
4206       RowBox[{
4207        RowBox[{"-", "1"}], "+",
4208        SubscriptBox["\[Tau]", "d"]}], ")"}], " ",
4209      SqrtBox[
4210       SuperscriptBox[
4211        RowBox[{"(",
4212         RowBox[{
4213          RowBox[{"-", "1"}], "+",
4214          SubscriptBox["\[Tau]", "d"]}], ")"}], "2"]]}],
4215     RowBox[{"16", " ", "\[Pi]"}]]}]}],
4216  SequenceForm[
4217  "\[CapitalGamma]M2tode = ", Rational[-1, 16] $CellContext`MM
4218   Pi^(-1) $CellContext`yQl1x1^2 (-1 +
4219    Subscript[$CellContext`\[Tau], FeynRules`d]) ((-1 +
4220      Subscript[$CellContext`\[Tau], FeynRules`d])^2)^Rational[1, 2]],
4221  Editable->False]], "Print",
4222 CellChangeTimes->{
4223  3.65917173771987*^9, {3.6591718837170057`*^9, 3.65917189897104*^9},
4224   3.659171960521044*^9, 3.664622219888534*^9, 3.664622921560031*^9, {
4225   3.664623837673608*^9, 3.664623850097834*^9}, 3.664624094950416*^9,
4226   3.664624397530715*^9, 3.664624544187099*^9, {3.6647085199321823`*^9,
4227   3.6647085299825563`*^9}, {3.664788329007606*^9, 3.6647883306010513`*^9}}],
4228
4229Cell[BoxData[
4230 InterpretationBox[
4231  RowBox[{"\<\"\[CapitalGamma]M2tou\[Nu] = \"\>", "\[InvisibleSpace]",
4232   FractionBox[
4233    RowBox[{"MM", " ",
4234     SuperscriptBox["yLu1x1", "2"], " ",
4235     SuperscriptBox[
4236      RowBox[{"(",
4237       RowBox[{
4238        RowBox[{"-", "1"}], "+",
4239        SubscriptBox["\[Tau]", "u"]}], ")"}], "2"]}],
4240    RowBox[{"16", " ", "\[Pi]"}]]}],
4241  SequenceForm[
4242  "\[CapitalGamma]M2tou\[Nu] = ", Rational[1, 16] $CellContext`MM
4243   Pi^(-1) $CellContext`yLu1x1^2 (-1 +
4244     Subscript[$CellContext`\[Tau], FeynRules`u])^2],
4245  Editable->False]], "Print",
4246 CellChangeTimes->{
4247  3.65917173771987*^9, {3.6591718837170057`*^9, 3.65917189897104*^9},
4248   3.659171960521044*^9, 3.664622219888534*^9, 3.664622921560031*^9, {
4249   3.664623837673608*^9, 3.664623850097834*^9}, 3.664624094950416*^9,
4250   3.664624397530715*^9, 3.664624544187099*^9, {3.6647085199321823`*^9,
4251   3.6647085299825563`*^9}, {3.664788329007606*^9, 3.664788330602023*^9}}]
4252}, Open  ]]
4253}, Open  ]]
4254}, Open  ]],
4255
4256Cell[CellGroupData[{
4257
4258Cell["Triplet Diquark", "Subsubsection",
4259 CellChangeTimes->{{3.65571583385673*^9, 3.655715838406135*^9}, {
4260  3.659094628764142*^9, 3.6590946305659037`*^9}}],
4261
4262Cell[CellGroupData[{
4263
4264Cell[BoxData[
4265 RowBox[{
4266  RowBox[{"If", "[",
4267   RowBox[{
4268    RowBox[{"ModelFile", "\[Equal]", "\"\<model_dq3_met.fr\>\""}], ",",
4269    "\[IndentingNewLine]",
4270    RowBox[{
4271     RowBox[{"ClearAll", "[",
4272      RowBox[{"\[CapitalGamma]MtoDMX", ",", "\[CapitalGamma]Mtoud"}], "]"}],
4273     ";", "\[IndentingNewLine]",
4274     RowBox[{"\[CapitalGamma]MtoDMX", "=",
4275      RowBox[{
4276       RowBox[{"(",
4277        RowBox[{
4278         RowBox[{
4279          RowBox[{"Cases", "[",
4280           RowBox[{"decaysRM", ",",
4281            RowBox[{"{",
4282             RowBox[{
4283              RowBox[{
4284               RowBox[{"{",
4285                RowBox[{"M", ",", "X", ",", "DMbar"}], "}"}], "|",
4286               RowBox[{"{",
4287                RowBox[{"M", ",", "DMbar", ",", "X"}], "}"}]}], ",", "_"}],
4288             "}"}]}], "]"}], "[",
4289          RowBox[{"[",
4290           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4291         RowBox[{"{",
4292          RowBox[{
4293           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4294           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4295           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4296           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4297       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4298     RowBox[{"\[CapitalGamma]Mtoud", "=",
4299      RowBox[{
4300       RowBox[{"(",
4301        RowBox[{
4302         RowBox[{
4303          RowBox[{"Cases", "[",
4304           RowBox[{"decaysRM", ",",
4305            RowBox[{"{",
4306             RowBox[{
4307              RowBox[{
4308               RowBox[{"{",
4309                RowBox[{"M", ",", "dbar", ",", "ubar"}], "}"}], "|",
4310               RowBox[{"{",
4311                RowBox[{"M", ",", "ubar", ",", "dbar"}], "}"}]}], ",", "_"}],
4312             "}"}]}], "]"}], "[",
4313          RowBox[{"[",
4314           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4315         RowBox[{"{",
4316          RowBox[{
4317           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4318           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4319           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4320           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4321       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4322     RowBox[{"\[CapitalGamma]Mtotb", "=",
4323      RowBox[{
4324       RowBox[{"(",
4325        RowBox[{
4326         RowBox[{
4327          RowBox[{"Cases", "[",
4328           RowBox[{"decaysRM", ",",
4329            RowBox[{"{",
4330             RowBox[{
4331              RowBox[{
4332               RowBox[{"{",
4333                RowBox[{"M", ",", "bbar", ",", "tbar"}], "}"}], "|",
4334               RowBox[{"{",
4335                RowBox[{"M", ",", "tbar", ",", "bbar"}], "}"}]}], ",", "_"}],
4336             "}"}]}], "]"}], "[",
4337          RowBox[{"[",
4338           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4339         RowBox[{"{",
4340          RowBox[{
4341           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4342           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4343           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4344           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4345       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4346     RowBox[{"\[CapitalGamma]MtoDMX", "=",
4347      RowBox[{
4348       RowBox[{"(",
4349        RowBox[{
4350         RowBox[{"(",
4351          RowBox[{
4352           RowBox[{"\[CapitalGamma]MtoDMX", "/.",
4353            RowBox[{"{",
4354             RowBox[{"MX", "\[Rule]",
4355              RowBox[{"MDM",
4356               RowBox[{"(",
4357                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
4358            "FullSimplify"}], ")"}], "/.",
4359         RowBox[{"MDM", "\[Rule]",
4360          SqrtBox[
4361           RowBox[{"\[Tau]", "*",
4362            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
4363      ";", "\[IndentingNewLine]",
4364     RowBox[{"\[CapitalGamma]Mtoud", "=",
4365      RowBox[{
4366       RowBox[{"\[CapitalGamma]Mtoud", "/.",
4367        RowBox[{"{",
4368         RowBox[{
4369          RowBox[{"MU", "\[Rule]", "0"}], ",",
4370          RowBox[{"MD", "\[Rule]", "0"}]}], "}"}]}], "//", "FullSimplify"}]}],
4371      ";", "\[IndentingNewLine]",
4372     RowBox[{"\[CapitalGamma]Mtotb", "=",
4373      RowBox[{
4374       RowBox[{"\[CapitalGamma]Mtotb", "/.",
4375        RowBox[{"{",
4376         RowBox[{
4377          RowBox[{"MT", "\[Rule]",
4378           SqrtBox[
4379            RowBox[{
4380             SubscriptBox["\[Tau]", "t"], "*",
4381             SuperscriptBox["MM", "2"]}]]}], ",",
4382          RowBox[{"MB", "\[Rule]",
4383           SqrtBox[
4384            RowBox[{
4385             SubscriptBox["\[Tau]", "b"], "*",
4386             SuperscriptBox["MM", "2"]}]]}]}], "}"}]}], "//",
4387       "FullSimplify"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
4388     
4389     RowBox[{"Print", "[",
4390      RowBox[{
4391      "\"\<\[CapitalGamma]MtoDMX = \>\"", ",", "\[CapitalGamma]MtoDMX"}],
4392      "]"}], ";", "\[IndentingNewLine]",
4393     RowBox[{"Print", "[",
4394      RowBox[{
4395      "\"\<\[CapitalGamma]Mtoud = \>\"", ",", "\[CapitalGamma]Mtoud"}], "]"}],
4396      ";", "\[IndentingNewLine]",
4397     RowBox[{"Print", "[",
4398      RowBox[{
4399      "\"\<\[CapitalGamma]Mtotb = \>\"", ",", "\[CapitalGamma]Mtotb"}], "]"}],
4400      ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input",
4401 CellChangeTimes->{{3.6563162141476107`*^9, 3.656316252063292*^9}, {
4402   3.6563163079747877`*^9, 3.6563163137517853`*^9}, {3.656316381871518*^9,
4403   3.656316384771652*^9}, {3.656316420359488*^9, 3.656316453631982*^9}, {
4404   3.656318939898245*^9, 3.65631894685436*^9}, 3.6563206515527*^9, {
4405   3.656320683219551*^9, 3.656320730889275*^9}, 3.65632076728203*^9, {
4406   3.656320806729951*^9, 3.656320810681159*^9}, {3.659094654790265*^9,
4407   3.659094710019134*^9}, {3.6590947754012003`*^9, 3.659094845260149*^9}, {
4408   3.6590948977094584`*^9, 3.6590949000331984`*^9}, {3.659094954978931*^9,
4409   3.659094985236114*^9}, {3.664622165329677*^9, 3.664622174476706*^9}}],
4410
4411Cell[CellGroupData[{
4412
4413Cell[BoxData[
4414 InterpretationBox[
4415  RowBox[{"\<\"\[CapitalGamma]MtoDMX = \"\>", "\[InvisibleSpace]",
4416   RowBox[{"-",
4417    FractionBox[
4418     RowBox[{
4419      SubscriptBox["M", "M"], " ",
4420      SubsuperscriptBox["y", "D", "2"], " ",
4421      RowBox[{"(",
4422       RowBox[{
4423        RowBox[{"-", "1"}], "+",
4424        RowBox[{
4425         SuperscriptBox[
4426          RowBox[{"(",
4427           RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4428         "\[Tau]"}]}], ")"}], " ",
4429      SqrtBox[
4430       RowBox[{
4431        RowBox[{"(",
4432         RowBox[{
4433          RowBox[{"-", "1"}], "+",
4434          RowBox[{
4435           SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}], ")"}],
4436        " ",
4437        RowBox[{"(",
4438         RowBox[{
4439          RowBox[{"-", "1"}], "+",
4440          RowBox[{
4441           SuperscriptBox[
4442            RowBox[{"(",
4443             RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4444           "\[Tau]"}]}], ")"}]}]]}],
4445     RowBox[{"8", " ", "\[Pi]"}]]}]}],
4446  SequenceForm[
4447  "\[CapitalGamma]MtoDMX = ", Rational[-1, 8] $CellContext`MM
4448   Pi^(-1) $CellContext`yD^2 (-1 + (
4449       2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]) ((-1 + \
4450$CellContext`\[CapitalDelta]^2 $CellContext`\[Tau]) (-1 + (
4451         2 + $CellContext`\[CapitalDelta])^2 $CellContext`\[Tau]))^
4452    Rational[1, 2]],
4453  Editable->False]], "Print",
4454 CellChangeTimes->{{3.665293012828898*^9, 3.6652930232058783`*^9}}],
4455
4456Cell[BoxData[
4457 InterpretationBox[
4458  RowBox[{"\<\"\[CapitalGamma]Mtoud = \"\>", "\[InvisibleSpace]",
4459   FractionBox[
4460    RowBox[{
4461     SubscriptBox["M", "M"], " ",
4462     RowBox[{"(",
4463      RowBox[{
4464       SuperscriptBox["yudL1x1", "2"], "+",
4465       SuperscriptBox["yudR1x1", "2"]}], ")"}]}],
4466    RowBox[{"8", " ", "\[Pi]"}]]}],
4467  SequenceForm[
4468  "\[CapitalGamma]Mtoud = ", Rational[1, 8] $CellContext`MM
4469   Pi^(-1) ($CellContext`yudL1x1^2 + $CellContext`yudR1x1^2)],
4470  Editable->False]], "Print",
4471 CellChangeTimes->{{3.665293012828898*^9, 3.665293023207079*^9}}],
4472
4473Cell[BoxData[
4474 InterpretationBox[
4475  RowBox[{"\<\"\[CapitalGamma]Mtotb = \"\>", "\[InvisibleSpace]",
4476   RowBox[{"-",
4477    FractionBox[
4478     RowBox[{
4479      SubscriptBox["M", "M"], " ",
4480      RowBox[{"(",
4481       RowBox[{
4482        RowBox[{
4483         RowBox[{"(",
4484          RowBox[{
4485           SuperscriptBox["yudL3x3", "2"], "+",
4486           SuperscriptBox["yudR3x3", "2"]}], ")"}], " ",
4487         SubscriptBox["\[Tau]", "b"]}], "+",
4488        RowBox[{
4489         RowBox[{"(",
4490          RowBox[{
4491           SuperscriptBox["yudL3x3", "2"], "+",
4492           SuperscriptBox["yudR3x3", "2"]}], ")"}], " ",
4493         RowBox[{"(",
4494          RowBox[{
4495           RowBox[{"-", "1"}], "+",
4496           SubscriptBox["\[Tau]", "t"]}], ")"}]}], "+",
4497        RowBox[{"4", " ", "yudL3x3", " ", "yudR3x3", " ",
4498         SqrtBox[
4499          SubscriptBox["\[Tau]", "b"]], " ",
4500         SqrtBox[
4501          SubscriptBox["\[Tau]", "t"]]}]}], ")"}], " ",
4502      SqrtBox[
4503       RowBox[{
4504        SubsuperscriptBox["\[Tau]", "b", "2"], "+",
4505        SuperscriptBox[
4506         RowBox[{"(",
4507          RowBox[{
4508           RowBox[{"-", "1"}], "+",
4509           SubscriptBox["\[Tau]", "t"]}], ")"}], "2"], "-",
4510        RowBox[{"2", " ",
4511         SubscriptBox["\[Tau]", "b"], " ",
4512         RowBox[{"(",
4513          RowBox[{"1", "+",
4514           SubscriptBox["\[Tau]", "t"]}], ")"}]}]}]]}],
4515     RowBox[{"8", " ", "\[Pi]"}]]}]}],
4516  SequenceForm[
4517  "\[CapitalGamma]Mtotb = ", Rational[-1, 8] $CellContext`MM
4518   Pi^(-1) (($CellContext`yudL3x3^2 + $CellContext`yudR3x3^2)
4519     Subscript[$CellContext`\[Tau],
4520       FeynRules`b] + ($CellContext`yudL3x3^2 + $CellContext`yudR3x3^2) (-1 +
4521      Subscript[$CellContext`\[Tau], FeynRules`t]) +
4522    4 $CellContext`yudL3x3 $CellContext`yudR3x3
4523     Subscript[$CellContext`\[Tau], FeynRules`b]^Rational[1, 2]
4524     Subscript[$CellContext`\[Tau], FeynRules`t]^Rational[1, 2]) (
4525     Subscript[$CellContext`\[Tau], FeynRules`b]^2 + (-1 +
4526       Subscript[$CellContext`\[Tau], FeynRules`t])^2 - 2
4527     Subscript[$CellContext`\[Tau], FeynRules`b] (1 +
4528      Subscript[$CellContext`\[Tau], FeynRules`t]))^Rational[1, 2]],
4529  Editable->False]], "Print",
4530 CellChangeTimes->{{3.665293012828898*^9, 3.665293023208539*^9}}]
4531}, Open  ]]
4532}, Open  ]],
4533
4534Cell[CellGroupData[{
4535
4536Cell[BoxData[{
4537 RowBox[{"ClearAll", "[", "\[CapitalGamma]", "]"}], "\[IndentingNewLine]",
4538 RowBox[{"a", "=",
4539  RowBox[{
4540   RowBox[{
4541    RowBox[{"\[CapitalGamma]", "==",
4542     RowBox[{"(",
4543      RowBox[{
4544       RowBox[{"(",
4545        RowBox[{"\[CapitalGamma]MtoDMX", "+", "\[CapitalGamma]Mtoud"}], ")"}],
4546        "/", "MM"}], ")"}]}], "/.",
4547    RowBox[{"{",
4548     RowBox[{
4549      RowBox[{"yD", "\[Rule]",
4550       RowBox[{"A", " ", "yud"}]}], ",",
4551      RowBox[{"yudL1x1", "\[Rule]", "yud"}], ",",
4552      RowBox[{"yudR1x1", "\[Rule]", "yud"}]}], "}"}]}], "//",
4553   "FullSimplify"}]}]}], "Input",
4554 CellChangeTimes->{{3.665293308244151*^9, 3.6652933450414124`*^9}, {
4555  3.665294337510703*^9, 3.665294338949916*^9}}],
4556
4557Cell[BoxData[
4558 RowBox[{
4559  RowBox[{
4560   RowBox[{"8", " ", "\[Pi]", " ", "\[CapitalGamma]"}], "+",
4561   RowBox[{
4562    SuperscriptBox["yud", "2"], " ",
4563    RowBox[{"(",
4564     RowBox[{
4565      RowBox[{"-", "2"}], "+",
4566      RowBox[{
4567       SuperscriptBox["A", "2"], " ",
4568       RowBox[{"(",
4569        RowBox[{
4570         RowBox[{"-", "1"}], "+",
4571         RowBox[{
4572          SuperscriptBox[
4573           RowBox[{"(",
4574            RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4575          "\[Tau]"}]}], ")"}], " ",
4576       SqrtBox[
4577        RowBox[{
4578         RowBox[{"(",
4579          RowBox[{
4580           RowBox[{"-", "1"}], "+",
4581           RowBox[{
4582            SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}], ")"}],
4583         " ",
4584         RowBox[{"(",
4585          RowBox[{
4586           RowBox[{"-", "1"}], "+",
4587           RowBox[{
4588            SuperscriptBox[
4589             RowBox[{"(",
4590              RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4591            "\[Tau]"}]}], ")"}]}]]}]}], ")"}]}]}], "\[Equal]",
4592  "0"}]], "Output",
4593 CellChangeTimes->{{3.6652933366526947`*^9, 3.665293345530409*^9},
4594   3.665294341118595*^9}]
4595}, Open  ]],
4596
4597Cell[CellGroupData[{
4598
4599Cell[BoxData[
4600 RowBox[{"Solve", "[",
4601  RowBox[{"a", ",", "yud"}], "]"}]], "Input",
4602 CellChangeTimes->{{3.665293077573393*^9, 3.6652931985230007`*^9}, {
4603   3.6652932381004543`*^9, 3.665293268868552*^9}, 3.665293350439989*^9, {
4604   3.665293581062896*^9, 3.6652935817527647`*^9}}],
4605
4606Cell[BoxData[
4607 RowBox[{"{",
4608  RowBox[{
4609   RowBox[{"{",
4610    RowBox[{"yud", "\[Rule]",
4611     RowBox[{"-",
4612      FractionBox[
4613       RowBox[{"2", " ", "\[ImaginaryI]", " ",
4614        SqrtBox[
4615         RowBox[{"2", " ", "\[Pi]"}]], " ",
4616        SqrtBox["\[CapitalGamma]"]}],
4617       SqrtBox[
4618        RowBox[{
4619         RowBox[{"-", "2"}], "-",
4620         RowBox[{
4621          SuperscriptBox["A", "2"], " ",
4622          SqrtBox[
4623           RowBox[{
4624            RowBox[{"(",
4625             RowBox[{
4626              RowBox[{"-", "1"}], "+",
4627              RowBox[{
4628               SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4629             ")"}], " ",
4630            RowBox[{"(",
4631             RowBox[{
4632              RowBox[{"-", "1"}], "+",
4633              RowBox[{
4634               SuperscriptBox[
4635                RowBox[{"(",
4636                 RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4637               "\[Tau]"}]}], ")"}]}]]}], "+",
4638         RowBox[{"4", " ",
4639          SuperscriptBox["A", "2"], " ", "\[Tau]", " ",
4640          SqrtBox[
4641           RowBox[{
4642            RowBox[{"(",
4643             RowBox[{
4644              RowBox[{"-", "1"}], "+",
4645              RowBox[{
4646               SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4647             ")"}], " ",
4648            RowBox[{"(",
4649             RowBox[{
4650              RowBox[{"-", "1"}], "+",
4651              RowBox[{
4652               SuperscriptBox[
4653                RowBox[{"(",
4654                 RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4655               "\[Tau]"}]}], ")"}]}]]}], "+",
4656         RowBox[{"4", " ",
4657          SuperscriptBox["A", "2"], " ", "\[CapitalDelta]", " ", "\[Tau]",
4658          " ",
4659          SqrtBox[
4660           RowBox[{
4661            RowBox[{"(",
4662             RowBox[{
4663              RowBox[{"-", "1"}], "+",
4664              RowBox[{
4665               SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4666             ")"}], " ",
4667            RowBox[{"(",
4668             RowBox[{
4669              RowBox[{"-", "1"}], "+",
4670              RowBox[{
4671               SuperscriptBox[
4672                RowBox[{"(",
4673                 RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4674               "\[Tau]"}]}], ")"}]}]]}], "+",
4675         RowBox[{
4676          SuperscriptBox["A", "2"], " ",
4677          SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]", " ",
4678          SqrtBox[
4679           RowBox[{
4680            RowBox[{"(",
4681             RowBox[{
4682              RowBox[{"-", "1"}], "+",
4683              RowBox[{
4684               SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4685             ")"}], " ",
4686            RowBox[{"(",
4687             RowBox[{
4688              RowBox[{"-", "1"}], "+",
4689              RowBox[{
4690               SuperscriptBox[
4691                RowBox[{"(",
4692                 RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4693               "\[Tau]"}]}], ")"}]}]]}]}]]]}]}], "}"}], ",",
4694   RowBox[{"{",
4695    RowBox[{"yud", "\[Rule]",
4696     FractionBox[
4697      RowBox[{"2", " ", "\[ImaginaryI]", " ",
4698       SqrtBox[
4699        RowBox[{"2", " ", "\[Pi]"}]], " ",
4700       SqrtBox["\[CapitalGamma]"]}],
4701      SqrtBox[
4702       RowBox[{
4703        RowBox[{"-", "2"}], "-",
4704        RowBox[{
4705         SuperscriptBox["A", "2"], " ",
4706         SqrtBox[
4707          RowBox[{
4708           RowBox[{"(",
4709            RowBox[{
4710             RowBox[{"-", "1"}], "+",
4711             RowBox[{
4712              SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4713            ")"}], " ",
4714           RowBox[{"(",
4715            RowBox[{
4716             RowBox[{"-", "1"}], "+",
4717             RowBox[{
4718              SuperscriptBox[
4719               RowBox[{"(",
4720                RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4721              "\[Tau]"}]}], ")"}]}]]}], "+",
4722        RowBox[{"4", " ",
4723         SuperscriptBox["A", "2"], " ", "\[Tau]", " ",
4724         SqrtBox[
4725          RowBox[{
4726           RowBox[{"(",
4727            RowBox[{
4728             RowBox[{"-", "1"}], "+",
4729             RowBox[{
4730              SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4731            ")"}], " ",
4732           RowBox[{"(",
4733            RowBox[{
4734             RowBox[{"-", "1"}], "+",
4735             RowBox[{
4736              SuperscriptBox[
4737               RowBox[{"(",
4738                RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4739              "\[Tau]"}]}], ")"}]}]]}], "+",
4740        RowBox[{"4", " ",
4741         SuperscriptBox["A", "2"], " ", "\[CapitalDelta]", " ", "\[Tau]", " ",
4742         SqrtBox[
4743          RowBox[{
4744           RowBox[{"(",
4745            RowBox[{
4746             RowBox[{"-", "1"}], "+",
4747             RowBox[{
4748              SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4749            ")"}], " ",
4750           RowBox[{"(",
4751            RowBox[{
4752             RowBox[{"-", "1"}], "+",
4753             RowBox[{
4754              SuperscriptBox[
4755               RowBox[{"(",
4756                RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4757              "\[Tau]"}]}], ")"}]}]]}], "+",
4758        RowBox[{
4759         SuperscriptBox["A", "2"], " ",
4760         SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]", " ",
4761         SqrtBox[
4762          RowBox[{
4763           RowBox[{"(",
4764            RowBox[{
4765             RowBox[{"-", "1"}], "+",
4766             RowBox[{
4767              SuperscriptBox["\[CapitalDelta]", "2"], " ", "\[Tau]"}]}],
4768            ")"}], " ",
4769           RowBox[{"(",
4770            RowBox[{
4771             RowBox[{"-", "1"}], "+",
4772             RowBox[{
4773              SuperscriptBox[
4774               RowBox[{"(",
4775                RowBox[{"2", "+", "\[CapitalDelta]"}], ")"}], "2"], " ",
4776              "\[Tau]"}]}], ")"}]}]]}]}]]]}], "}"}]}], "}"}]], "Output",
4777 CellChangeTimes->{{3.665293136717402*^9, 3.665293199251474*^9}, {
4778   3.665293238694652*^9, 3.665293270511054*^9}, 3.6652933515167522`*^9,
4779   3.665293582083909*^9, 3.665294350134954*^9}]
4780}, Open  ]]
4781}, Open  ]],
4782
4783Cell[CellGroupData[{
4784
4785Cell["Sextet Diquark", "Subsubsection",
4786 CellChangeTimes->{{3.655715861161312*^9, 3.6557158708947163`*^9}}],
4787
4788Cell[BoxData[
4789 RowBox[{
4790  RowBox[{"If", "[",
4791   RowBox[{
4792    RowBox[{"ModelFile", "\[Equal]", "\"\<model_dq6_met.fr\>\""}], ",",
4793    "\[IndentingNewLine]",
4794    RowBox[{
4795     RowBox[{"\[CapitalGamma]MtoDMX", "=",
4796      RowBox[{
4797       RowBox[{"(",
4798        RowBox[{
4799         RowBox[{
4800          RowBox[{"Cases", "[",
4801           RowBox[{"decaysRM", ",",
4802            RowBox[{"{",
4803             RowBox[{
4804              RowBox[{
4805               RowBox[{"{",
4806                RowBox[{"M", ",", "X", ",", "DMbar"}], "}"}], "|",
4807               RowBox[{"{",
4808                RowBox[{"M", ",", "DMbar", ",", "X"}], "}"}]}], ",", "_"}],
4809             "}"}]}], "]"}], "[",
4810          RowBox[{"[",
4811           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4812         RowBox[{"{",
4813          RowBox[{
4814           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4815           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4816           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4817           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4818       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4819     RowBox[{"\[CapitalGamma]Mtouu", "=",
4820      RowBox[{
4821       RowBox[{"(",
4822        RowBox[{
4823         RowBox[{
4824          RowBox[{"Cases", "[",
4825           RowBox[{"decaysRM", ",",
4826            RowBox[{"{",
4827             RowBox[{
4828              RowBox[{"{",
4829               RowBox[{"M", ",", "u", ",", "u"}], "}"}], ",", "_"}], "}"}]}],
4830           "]"}], "[",
4831          RowBox[{"[",
4832           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4833         RowBox[{"{",
4834          RowBox[{
4835           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4836           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4837           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4838           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4839       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4840     RowBox[{"\[CapitalGamma]Mtott", "=",
4841      RowBox[{
4842       RowBox[{"(",
4843        RowBox[{
4844         RowBox[{
4845          RowBox[{"Cases", "[",
4846           RowBox[{"decaysRM", ",",
4847            RowBox[{"{",
4848             RowBox[{
4849              RowBox[{"{",
4850               RowBox[{"M", ",", "t", ",", "t"}], "}"}], ",", "_"}], "}"}]}],
4851           "]"}], "[",
4852          RowBox[{"[",
4853           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4854         RowBox[{"{",
4855          RowBox[{
4856           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4857           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4858           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4859           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4860       "FullSimplify"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
4861     
4862     RowBox[{"\[CapitalGamma]MtoDMX", "=",
4863      RowBox[{
4864       RowBox[{"(",
4865        RowBox[{
4866         RowBox[{"(",
4867          RowBox[{
4868           RowBox[{"\[CapitalGamma]MtoDMX", "/.",
4869            RowBox[{"{",
4870             RowBox[{"MX", "\[Rule]",
4871              RowBox[{"MDM",
4872               RowBox[{"(",
4873                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
4874            "FullSimplify"}], ")"}], "/.",
4875         RowBox[{"MDM", "\[Rule]",
4876          SqrtBox[
4877           RowBox[{"\[Tau]", "*",
4878            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
4879      ";", "\[IndentingNewLine]",
4880     RowBox[{"\[CapitalGamma]Mtouu", "=",
4881      RowBox[{
4882       RowBox[{"\[CapitalGamma]Mtouu", "/.",
4883        RowBox[{"MU", "\[Rule]", "0"}]}], "//", "FullSimplify"}]}], ";",
4884     "\[IndentingNewLine]",
4885     RowBox[{"\[CapitalGamma]Mtott", "=",
4886      RowBox[{
4887       RowBox[{"\[CapitalGamma]Mtott", "/.",
4888        RowBox[{"MT", "\[Rule]",
4889         SqrtBox[
4890          RowBox[{"\[Tau]", "*",
4891           SuperscriptBox["MM", "2"]}]]}]}], "//", "FullSimplify"}]}], ";",
4892     "\[IndentingNewLine]", "\[IndentingNewLine]",
4893     RowBox[{"Print", "[",
4894      RowBox[{
4895      "\"\<\[CapitalGamma]MtoDMX = \>\"", ",", "\[CapitalGamma]MtoDMX"}],
4896      "]"}], ";", "\[IndentingNewLine]",
4897     RowBox[{"Print", "[",
4898      RowBox[{
4899      "\"\<\[CapitalGamma]Mtouu = \>\"", ",", "\[CapitalGamma]Mtouu"}], "]"}],
4900      ";", "\[IndentingNewLine]",
4901     RowBox[{"Print", "[",
4902      RowBox[{
4903      "\"\<\[CapitalGamma]Mtott = \>\"", ",", "\[CapitalGamma]Mtott"}], "]"}],
4904      ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input",
4905 CellChangeTimes->{{3.6563162141476107`*^9, 3.656316252063292*^9}, {
4906  3.6563163079747877`*^9, 3.6563163137517853`*^9}, {3.656316381871518*^9,
4907  3.656316384771652*^9}, {3.656316420359488*^9, 3.656316453631982*^9}, {
4908  3.656318939898245*^9, 3.65631894685436*^9}, {3.656320773601902*^9,
4909  3.656320773857177*^9}, {3.659093008707863*^9, 3.65909308745947*^9}, {
4910  3.659094580450487*^9, 3.659094599342922*^9}, {3.659094688618895*^9,
4911  3.659094690158331*^9}, {3.664622206262047*^9, 3.6646222149895487`*^9}}]
4912}, Closed]],
4913
4914Cell[CellGroupData[{
4915
4916Cell["Scalar Octet", "Subsubsection",
4917 CellChangeTimes->{{3.6557158736783953`*^9, 3.6557158761906977`*^9}, {
4918  3.6579477363473377`*^9, 3.657947738167746*^9}}],
4919
4920Cell[BoxData[
4921 RowBox[{
4922  RowBox[{"If", "[",
4923   RowBox[{
4924    RowBox[{"ModelFile", "\[Equal]", "\"\<model_so_met.fr\>\""}], ",",
4925    "\[IndentingNewLine]",
4926    RowBox[{
4927     RowBox[{"\[CapitalGamma]M1toDMX1", "=",
4928      RowBox[{
4929       RowBox[{"(",
4930        RowBox[{
4931         RowBox[{
4932          RowBox[{"Cases", "[",
4933           RowBox[{"decaysRM", ",",
4934            RowBox[{"{",
4935             RowBox[{
4936              RowBox[{
4937               RowBox[{"{",
4938                RowBox[{"M1", ",", "DMbar", ",", "X1"}], "}"}], "|",
4939               RowBox[{"{",
4940                RowBox[{"M1", ",", "X1", ",", "DMbar"}], "}"}]}], ",", "_"}],
4941             "}"}]}], "]"}], "[",
4942          RowBox[{"[",
4943           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4944         RowBox[{"{",
4945          RowBox[{
4946           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4947           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4948           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4949           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4950       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4951     RowBox[{"\[CapitalGamma]M2toDMX2", "=",
4952      RowBox[{
4953       RowBox[{"(",
4954        RowBox[{
4955         RowBox[{
4956          RowBox[{"Cases", "[",
4957           RowBox[{"decaysRM", ",",
4958            RowBox[{"{",
4959             RowBox[{
4960              RowBox[{
4961               RowBox[{"{",
4962                RowBox[{"M2", ",", "DMbar", ",", "X2"}], "}"}], "|",
4963               RowBox[{"{",
4964                RowBox[{"M2", ",", "X2", ",", "DMbar"}], "}"}]}], ",", "_"}],
4965             "}"}]}], "]"}], "[",
4966          RowBox[{"[",
4967           RowBox[{"1", ",", "2"}], "]"}], "]"}], "/.",
4968         RowBox[{"{",
4969          RowBox[{
4970           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4971           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4972           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4973           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4974       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4975     RowBox[{"\[CapitalGamma]M1toud", "=",
4976      RowBox[{
4977       RowBox[{"(",
4978        RowBox[{
4979         RowBox[{"PartialWidth", "[",
4980          RowBox[{
4981           RowBox[{"{",
4982            RowBox[{"M1", ",", "u", ",", "dbar"}], "}"}], ",", "decaysRM"}],
4983          "]"}], "/.",
4984         RowBox[{"{",
4985          RowBox[{
4986           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
4987           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
4988           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
4989           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
4990       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
4991     RowBox[{"\[CapitalGamma]M1todu", "=",
4992      RowBox[{
4993       RowBox[{"(",
4994        RowBox[{
4995         RowBox[{"PartialWidth", "[",
4996          RowBox[{
4997           RowBox[{"{",
4998            RowBox[{"M1bar", ",", "d", ",", "ubar"}], "}"}], ",",
4999           "decaysRM"}], "]"}], "/.",
5000         RowBox[{"{",
5001          RowBox[{
5002           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
5003           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
5004           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
5005           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
5006       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
5007     RowBox[{"\[CapitalGamma]M2touu", "=",
5008      RowBox[{
5009       RowBox[{"(",
5010        RowBox[{
5011         RowBox[{"PartialWidth", "[",
5012          RowBox[{
5013           RowBox[{"{",
5014            RowBox[{"M2", ",", "u", ",", "ubar"}], "}"}], ",", "decaysRM"}],
5015          "]"}], "/.",
5016         RowBox[{"{",
5017          RowBox[{
5018           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
5019           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
5020           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
5021           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
5022       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
5023     RowBox[{"\[CapitalGamma]M2todd", "=",
5024      RowBox[{
5025       RowBox[{"(",
5026        RowBox[{
5027         RowBox[{"PartialWidth", "[",
5028          RowBox[{
5029           RowBox[{"{",
5030            RowBox[{"M2", ",", "d", ",", "dbar"}], "}"}], ",", "decaysRM"}],
5031          "]"}], "/.",
5032         RowBox[{"{",
5033          RowBox[{
5034           RowBox[{"MX1", "\[Rule]", "MX"}], ",",
5035           RowBox[{"MX2", "\[Rule]", "MX"}], ",",
5036           RowBox[{"MM1", "\[Rule]", "MM"}], ",",
5037           RowBox[{"MM2", "\[Rule]", "MM"}]}], "}"}]}], ")"}], "//",
5038       "FullSimplify"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]",
5039     
5040     RowBox[{"\[CapitalGamma]M1toDMX1", "=",
5041      RowBox[{
5042       RowBox[{"(",
5043        RowBox[{
5044         RowBox[{"(",
5045          RowBox[{
5046           RowBox[{"\[CapitalGamma]M1toDMX1", "/.",
5047            RowBox[{"{",
5048             RowBox[{"MX", "\[Rule]",
5049              RowBox[{"MDM",
5050               RowBox[{"(",
5051                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
5052            "FullSimplify"}], ")"}], "/.",
5053         RowBox[{"MDM", "\[Rule]",
5054          SqrtBox[
5055           RowBox[{"\[Tau]", "*",
5056            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
5057      ";", "\[IndentingNewLine]",
5058     RowBox[{"\[CapitalGamma]M2toDMX2", "=",
5059      RowBox[{
5060       RowBox[{"(",
5061        RowBox[{
5062         RowBox[{"(",
5063          RowBox[{
5064           RowBox[{"\[CapitalGamma]M2toDMX2", "/.",
5065            RowBox[{"{",
5066             RowBox[{"MX", "\[Rule]",
5067              RowBox[{"MDM",
5068               RowBox[{"(",
5069                RowBox[{"1", "+", "\[CapitalDelta]"}], ")"}]}]}], "}"}]}], "//",
5070            "FullSimplify"}], ")"}], "/.",
5071         RowBox[{"MDM", "\[Rule]",
5072          SqrtBox[
5073           RowBox[{"\[Tau]", "*",
5074            SuperscriptBox["MM", "2"]}]]}]}], ")"}], "//", "FullSimplify"}]}],
5075      ";", "\[IndentingNewLine]",
5076     RowBox[{"\[CapitalGamma]M1toud", "=",
5077      RowBox[{
5078       RowBox[{"\[CapitalGamma]M1toud", "/.",
5079        RowBox[{"{",
5080         RowBox[{
5081          RowBox[{"MU", "\[Rule]",
5082           SqrtBox[
5083            RowBox[{
5084             SubscriptBox["\[Tau]", "u"], "*",
5085             SuperscriptBox["MM", "2"]}]]}], ",",
5086          RowBox[{"MD", "\[Rule]",
5087           SqrtBox[
5088            RowBox[{
5089             SubscriptBox["\[Tau]", "d"], "*",
5090             SuperscriptBox["MM", "2"]}]]}]}], "}"}]}], "//",
5091       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
5092     RowBox[{"\[CapitalGamma]M1todu", "=",
5093      RowBox[{
5094       RowBox[{"\[CapitalGamma]M1todu", "/.",
5095        RowBox[{"{",
5096         RowBox[{
5097          RowBox[{"MU", "\[Rule]",
5098           SqrtBox[
5099            RowBox[{
5100             SubscriptBox["\[Tau]", "u"], "*",
5101             SuperscriptBox["MM", "2"]}]]}], ",",
5102          RowBox[{"MD", "\[Rule]",
5103           SqrtBox[
5104            RowBox[{
5105             SubscriptBox["\[Tau]", "d"], "*",
5106             SuperscriptBox["MM", "2"]}]]}]}], "}"}]}], "//",
5107       "FullSimplify"}]}], ";", "\[IndentingNewLine]",
5108     RowBox[{"\[CapitalGamma]M2touu", "=",
5109      RowBox[{
5110       RowBox[{"\[CapitalGamma]M2touu", "/.",
5111        RowBox[{"MU", "\[Rule]",
5112         SqrtBox[
5113          RowBox[{
5114           SubscriptBox["\[Tau]", "u"], "*",
5115           SuperscriptBox["MM", "2"]}]]}]}], "//", "FullSimplify"}]}], ";",
5116     "\[IndentingNewLine]",
5117     RowBox[{"\[CapitalGamma]M2todd", "=",
5118      RowBox[{
5119       RowBox[{"\[CapitalGamma]M2todd", "/.",
5120        RowBox[{"MD", "\[Rule]",
5121         SqrtBox[
5122          RowBox[{
5123           SubscriptBox["\[Tau]", "d"], "*",
5124           SuperscriptBox["MM", "2"]}]]}]}], "//", "FullSimplify"}]}], ";",
5125     "\[IndentingNewLine]", "\[IndentingNewLine]",
5126     RowBox[{"Print", "[",
5127      RowBox[{
5128      "\"\<\[CapitalGamma]M1toDMX1 = \>\"", ",", "\[CapitalGamma]M1toDMX1"}],
5129      "]"}], ";", "\[IndentingNewLine]",
5130     RowBox[{"Print", "[",
5131      RowBox[{
5132      "\"\<\[CapitalGamma]M2toDMX2 = \>\"", ",", "\[CapitalGamma]M2toDMX2"}],
5133      "]"}], ";", "\[IndentingNewLine]",
5134     RowBox[{"Print", "[",
5135      RowBox[{
5136      "\"\<\[CapitalGamma]M1toud = \>\"", ",", "\[CapitalGamma]M1toud"}],
5137      "]"}], ";", "\[IndentingNewLine]",
5138     RowBox[{"Print", "[",
5139      RowBox[{
5140      "\"\<\[CapitalGamma]M1todu = \>\"", ",", "\[CapitalGamma]M1todu"}],
5141      "]"}], ";", "\[IndentingNewLine]",
5142     RowBox[{"Print", "[",
5143      RowBox[{
5144      "\"\<\[CapitalGamma]M2touu = \>\"", ",", "\[CapitalGamma]M2touu"}],
5145      "]"}], ";", "\[IndentingNewLine]",
5146     RowBox[{"Print", "[",
5147      RowBox[{
5148      "\"\<\[CapitalGamma]M2todd = \>\"", ",", "\[CapitalGamma]M2todd"}],
5149      "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input",
5150 CellChangeTimes->{{3.655716018724807*^9, 3.655716120523252*^9}, {
5151   3.6560547487229967`*^9, 3.656054749450899*^9}, {3.6560552999300013`*^9,
5152   3.6560553040706797`*^9}, 3.656055334590026*^9, {3.65605538867177*^9,
5153   3.656055399454732*^9}, {3.656055651504087*^9, 3.656055655938649*^9}, {
5154   3.6560560987138853`*^9, 3.656056101662571*^9}, {3.656238242347684*^9,
5155   3.656238263688817*^9}, {3.6562383282479963`*^9, 3.6562384436370687`*^9}, {
5156   3.6563143587409077`*^9, 3.656314379732489*^9}, {3.656314453685234*^9,
5157   3.656314467689438*^9}, {3.656314509716537*^9, 3.6563145103301687`*^9}, {
5158   3.656314819993676*^9, 3.6563148385720043`*^9}, {3.656314957622014*^9,
5159   3.656314962786087*^9}, {3.65631515210318*^9, 3.656315164086924*^9}, {
5160   3.656315476942833*^9, 3.65631547958818*^9}, {3.656315520929064*^9,
5161   3.65631559397738*^9}, {3.656315631842208*^9, 3.6563156467953987`*^9}, {
5162   3.6563156910386877`*^9, 3.656315728959673*^9}, {3.656315772048379*^9,
5163   3.6563158010399218`*^9}, {3.656315992505109*^9, 3.656316075373012*^9}, {
5164   3.6563161241954937`*^9, 3.656316175244944*^9}, 3.656316217912088*^9, {
5165   3.65632227724676*^9, 3.656322277823208*^9}, {3.659172072016172*^9,
5166   3.659172128691863*^9}, {3.6591721826920547`*^9, 3.659172197624856*^9}, {
5167   3.659172301609161*^9, 3.6591723383529997`*^9}, {3.66461874308453*^9,
5168   3.6646187700023193`*^9}, {3.66462042517548*^9, 3.6646204404301147`*^9}, {
5169   3.664707960968961*^9, 3.664707965126953*^9}}]
5170}, Closed]]
5171}, Closed]],
5172
5173Cell[CellGroupData[{
5174
5175Cell["Alternative Lagrangian Formulation", "Subsection",
5176 CellChangeTimes->{{3.6588287354820013`*^9, 3.658828756381763*^9}}],
5177
5178Cell[CellGroupData[{
5179
5180Cell[BoxData[
5181 RowBox[{
5182  RowBox[{"(*", " ",
5183   RowBox[{
5184   "Print", " ", "Lagrangians", " ", "for", " ", "both", " ", "formulations",
5185    " ", "of", " ", "the", " ", "visible", " ", "sector"}], " ", "*)"}],
5186  "\[IndentingNewLine]",
5187  RowBox[{"LVIS", "\[IndentingNewLine]", "LVISALT"}]}]], "Input",
5188 CellChangeTimes->{{3.658828845990535*^9, 3.658828905826378*^9}}],
5189
5190Cell[BoxData[
5191 RowBox[{
5192  RowBox[{
5193   RowBox[{
5194    SubscriptBox[
5195     OverscriptBox["uq", "\<\"-\"\>"],
5196     RowBox[{"r$5446", ",", "f2", ",", "c1"}]], ".",
5197    SubscriptBox["l",
5198     RowBox[{"r$5447", ",", "f1"}]]}], " ",
5199   SubscriptBox["M1", "c1"], " ",
5200   SubscriptBox[
5201    SubscriptBox["P", "\<\"-\"\>"],
5202    RowBox[{"r$5446", ",", "r$5447"}]], " ",
5203   SubscriptBox[
5204    SubscriptBox["y", "Lu"],
5205    RowBox[{"f1", ",", "f2"}]]}], "-",
5206  RowBox[{
5207   RowBox[{
5208    SubscriptBox[
5209     OverscriptBox["uq", "\<\"-\"\>"],
5210     RowBox[{"r$5448", ",", "f2", ",", "c1"}]], ".",
5211    SubscriptBox["vl",
5212     RowBox[{"r$5449", ",", "f1"}]]}], " ",
5213   SubscriptBox["M2", "c1"], " ",
5214   SubscriptBox[
5215    SubscriptBox["P", "\<\"-\"\>"],
5216    RowBox[{"r$5448", ",", "r$5449"}]], " ",
5217   SubscriptBox[
5218    SubscriptBox["y", "Lu"],
5219    RowBox[{"f1", ",", "f2"}]]}], "+",
5220  RowBox[{
5221   RowBox[{
5222    SubscriptBox[
5223     OverscriptBox["l", "\<\"-\"\>"],
5224     RowBox[{"sp2$5442", ",", "f1"}]], ".",
5225    SubscriptBox["uq",
5226     RowBox[{"sp2$5439", ",", "f2", ",", "c1"}]]}], " ",
5227   SubsuperscriptBox["M1", "c1", "\[Dagger]"], " ",
5228   SubscriptBox[
5229    SubscriptBox["P", "\<\"+\"\>"],
5230    RowBox[{"sp2$5442", ",", "sp2$5439"}]], " ",
5231   SubscriptBox[
5232    SubscriptBox["y", "Lu"],
5233    RowBox[{"f1", ",", "f2"}]]}], "-",
5234  RowBox[{
5235   RowBox[{
5236    SubscriptBox[
5237     OverscriptBox["vl", "\<\"-\"\>"],
5238     RowBox[{"sp2$5443", ",", "f1"}]], ".",
5239    SubscriptBox["uq",
5240     RowBox[{"sp2$5439", ",", "f2", ",", "c1"}]]}], " ",
5241   SubsuperscriptBox["M2", "c1", "\[Dagger]"], " ",
5242   SubscriptBox[
5243    SubscriptBox["P", "\<\"+\"\>"],
5244    RowBox[{"sp2$5443", ",", "sp2$5439"}]], " ",
5245   SubscriptBox[
5246    SubscriptBox["y", "Lu"],
5247    RowBox[{"f1", ",", "f2"}]]}], "-",
5248  RowBox[{
5249   RowBox[{
5250    SubscriptBox[
5251     OverscriptBox["l", "\<\"-\"\>"],
5252     RowBox[{"r$5450", ",", "f2"}]], ".",
5253    SubscriptBox["uq",
5254     RowBox[{"r$5451", ",", "f1", ",", "c1"}]]}], " ",
5255   SubsuperscriptBox["M1", "c1", "\[Dagger]"], " ",
5256   SubscriptBox[
5257    SubscriptBox["P", "\<\"-\"\>"],
5258    RowBox[{"r$5450", ",", "r$5451"}]], " ",
5259   SubscriptBox[
5260    SubscriptBox["y", "Ql"],
5261    RowBox[{"f1", ",", "f2"}]]}], "-",
5262  RowBox[{
5263   RowBox[{
5264    SubscriptBox[
5265     OverscriptBox["l", "\<\"-\"\>"],
5266     RowBox[{"r$5452", ",", "f2"}]], ".",
5267    SubscriptBox["dq",
5268     RowBox[{"r$5453", ",", "f1", ",", "c1"}]]}], " ",
5269   SubsuperscriptBox["M2", "c1", "\[Dagger]"], " ",
5270   SubscriptBox[
5271    SubscriptBox["P", "\<\"-\"\>"],
5272    RowBox[{"r$5452", ",", "r$5453"}]], " ",
5273   SubscriptBox[
5274    SubscriptBox["y", "Ql"],
5275    RowBox[{"f1", ",", "f2"}]]}], "-",
5276  RowBox[{
5277   RowBox[{
5278    SubscriptBox[
5279     OverscriptBox["uq", "\<\"-\"\>"],
5280     RowBox[{"sp2$5444", ",", "f1", ",", "c1"}]], ".",
5281    SubscriptBox["l",
5282     RowBox[{"sp2$5440", ",", "f2"}]]}], " ",
5283   SubscriptBox["M1", "c1"], " ",
5284   SubscriptBox[
5285    SubscriptBox["P", "\<\"+\"\>"],
5286    RowBox[{"sp2$5444", ",", "sp2$5440"}]], " ",
5287   SubscriptBox[
5288    SubscriptBox["y", "Ql"],
5289    RowBox[{"f1", ",", "f2"}]]}], "-",
5290  RowBox[{
5291   RowBox[{
5292    SubscriptBox[
5293     OverscriptBox["dq", "\<\"-\"\>"],
5294     RowBox[{"sp2$5445", ",", "f1", ",", "c1"}]], ".",
5295    SubscriptBox["l",
5296     RowBox[{"sp2$5440", ",", "f2"}]]}], " ",
5297   SubscriptBox["M2", "c1"], " ",
5298   SubscriptBox[
5299    SubscriptBox["P", "\<\"+\"\>"],
5300    RowBox[{"sp2$5445", ",", "sp2$5440"}]], " ",
5301   SubscriptBox[
5302    SubscriptBox["y", "Ql"],
5303    RowBox[{"f1", ",", "f2"}]]}]}]], "Output",
5304 CellChangeTimes->{{3.6588288477045927`*^9, 3.658828874741753*^9},
5305   3.658828906542986*^9, 3.658830578608135*^9, 3.6588309615825443`*^9,
5306   3.658831115236299*^9, 3.658831746371768*^9, 3.658831853902232*^9,
5307   3.658834807218061*^9, 3.6588368784710913`*^9, 3.6588369517813673`*^9,
5308   3.658837382177593*^9, 3.658837434880604*^9, 3.6588375035363703`*^9,
5309   3.6588376439753017`*^9, 3.658837874157946*^9, 3.658838010694272*^9,
5310   3.65883810802812*^9, 3.658838176257037*^9, 3.6588397319631042`*^9,
5311   3.6590738080838223`*^9, 3.659073977711132*^9, 3.664788329580967*^9}],
5312
5313Cell[BoxData["LVISALT"], "Output",
5314 CellChangeTimes->{{3.6588288477045927`*^9, 3.658828874741753*^9},
5315   3.658828906542986*^9, 3.658830578608135*^9, 3.6588309615825443`*^9,
5316   3.658831115236299*^9, 3.658831746371768*^9, 3.658831853902232*^9,
5317   3.658834807218061*^9, 3.6588368784710913`*^9, 3.6588369517813673`*^9,
5318   3.658837382177593*^9, 3.658837434880604*^9, 3.6588375035363703`*^9,
5319   3.6588376439753017`*^9, 3.658837874157946*^9, 3.658838010694272*^9,
5320   3.65883810802812*^9, 3.658838176257037*^9, 3.6588397319631042`*^9,
5321   3.6590738080838223`*^9, 3.659073977711132*^9, 3.664788329581625*^9}]
5322}, Open  ]],
5323
5324Cell[CellGroupData[{
5325
5326Cell[BoxData[
5327 RowBox[{
5328  RowBox[{"(*", " ",
5329   RowBox[{
5330   "Print", " ", "Feynman", " ", "Rules", " ", "for", " ", "both", " ",
5331    "formulations", " ", "of", " ", "the", " ", "visible", " ", "sector"}],
5332   " ", "*)"}], "\[IndentingNewLine]",
5333  RowBox[{
5334   RowBox[{
5335    RowBox[{"Unprotect", "[",
5336     RowBox[{"verticesVIS", ",", "verticesVISALT"}], "]"}], ";"}],
5337   "\[IndentingNewLine]",
5338   RowBox[{
5339    RowBox[{"ClearAll", "[",
5340     RowBox[{"verticesVIS", ",", "verticesVISALT"}], "]"}], ";"}],
5341   "\[IndentingNewLine]",
5342   RowBox[{
5343    RowBox[{"verCKMReplacement", "=",
5344     RowBox[{"{",
5345      RowBox[{
5346       RowBox[{"CKM", "[",
5347        RowBox[{"f1_", ",", "f2_"}], "]"}], "\[Rule]",
5348       RowBox[{"IndexDelta", "[",
5349        RowBox[{"f1", ",", "f2"}], "]"}]}], "}"}]}], ";"}],
5350   "\[IndentingNewLine]",
5351   RowBox[{
5352    RowBox[{"verticesVIS", "=",
5353     RowBox[{"FullSimplify", "[",
5354      RowBox[{"FeynmanRules", "[",
5355       RowBox[{"LVIS", ",",
5356        RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], "]"}]}], ";"}],
5357    "\[IndentingNewLine]",
5358   RowBox[{
5359    RowBox[{"verticesVISALT", "=",
5360     RowBox[{"FullSimplify", "[",
5361      RowBox[{"FeynmanRules", "[",
5362       RowBox[{"LVISALT", ",",
5363        RowBox[{"ScreenOutput", "\[Rule]", "False"}]}], "]"}], "]"}]}], ";"}],
5364    "\[IndentingNewLine]",
5365   RowBox[{
5366    RowBox[{"Protect", "[",
5367     RowBox[{"verticesVIS", ",", "verticesVISALT"}], "]"}], ";"}],
5368   "\[IndentingNewLine]",
5369   RowBox[{
5370    RowBox[{"Print", "[",
5371     RowBox[{"Style", "[",
5372      RowBox[{
5373      "\"\<Comparison of formulations of the visible sector Lagrangian:\>\"",
5374       ",", "Orange", ",", "Bold"}], "]"}], "]"}], ";"}],
5375   "\[IndentingNewLine]",
5376   RowBox[{"verticesVIS", "//", "Grid"}], "\[IndentingNewLine]",
5377   RowBox[{"verticesVISALT", "//", "Grid"}], "\[IndentingNewLine]",
5378   RowBox[{
5379    RowBox[{"Print", "[",
5380     RowBox[{"Style", "[",
5381      RowBox[{
5382      "\"\<Comparison of formulations of the visible sector Lagrangian \
5383(\!\(\*SubscriptBox[\(V\), \(CKM\)]\) = 1):\>\"", ",", "Orange", ",",
5384       "Bold"}], "]"}], "]"}], ";"}], "\[IndentingNewLine]",
5385   RowBox[{
5386    RowBox[{"verticesVIS", "/.", "verCKMReplacement"}], "//", "Grid"}],
5387   "\[IndentingNewLine]",
5388   RowBox[{
5389    RowBox[{"verticesVISALT", "/.", "verCKMReplacement"}], "//", "Grid"}],
5390   "\[IndentingNewLine]",
5391   RowBox[{"(*", " ",
5392    RowBox[{
5393    "Test", " ", "if", " ", "both", " ", "formulations", " ", "are", " ",
5394     "the", " ", "same"}], " ", "*)"}], "\[IndentingNewLine]",
5395   RowBox[{
5396    RowBox[{"If", "[",
5397     RowBox[{
5398      RowBox[{
5399       RowBox[{"(",
5400        RowBox[{"verticesVIS", "/.", "verCKMReplacement"}], ")"}], "\[Equal]",
5401       RowBox[{"(",
5402        RowBox[{"verticesVISALT", "/.", "verCKMReplacement"}], ")"}]}], ",",
5403      "\[IndentingNewLine]",
5404      RowBox[{"Print", "[",
5405       RowBox[{"Style", "[",
5406        RowBox[{
5407        "\"\<Both formulations of the visible sector Lagrangian are the same.\
5408\>\"", ",", "Orange", ",", "Bold"}], "]"}], "]"}], ",", "\[IndentingNewLine]",
5409      RowBox[{"Print", "[",
5410       RowBox[{"Style", "[",
5411        RowBox[{
5412        "\"\<Both formulations of the visible sector Lagrangian are not the \
5413same.\>\"", ",", "Red", ",", "Bold"}], "]"}], "]"}], ",",
5414      "\[IndentingNewLine]",
5415      RowBox[{"Print", "[",
5416       RowBox[{"Style", "[",
5417        RowBox[{
5418        "\"\<Both formulations of the visible sector Lagrangian are not the \
5419same.\>\"", ",", "Red", ",", "Bold"}], "]"}], "]"}]}], "\[IndentingNewLine]",
5420     "]"}], ";"}]}]}]], "Input",
5421 CellChangeTimes->{{3.658828878678491*^9, 3.658828940104253*^9}, {
5422   3.658829185360814*^9, 3.658829360031673*^9}, {3.6588309764547167`*^9,
5423   3.658830976956971*^9}, {3.658835032711529*^9, 3.658835102922944*^9}, {
5424   3.658835139737928*^9, 3.6588351950431213`*^9}, 3.6588352758670893`*^9, {
5425   3.6588357905234756`*^9, 3.6588358021883287`*^9}, {3.658835860954773*^9,
5426   3.6588359210013123`*^9}, {3.658836416554944*^9, 3.65883650074811*^9}, {
5427   3.658838241818507*^9, 3.658838247025799*^9}, {3.659074000685298*^9,
5428   3.6590740041411533`*^9}}],
5429
5430Cell[CellGroupData[{
5431
5432Cell[BoxData[
5433 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5434  StripOnInput->False,
5435  LineColor->RGBColor[1, 0.5, 0],
5436  FrontFaceColor->RGBColor[1, 0.5, 0],
5437  BackFaceColor->RGBColor[1, 0.5, 0],
5438  GraphicsColor->RGBColor[1, 0.5, 0],
5439  FontWeight->Bold,
5440  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5441 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5442   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5443   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5444   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5445   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5446   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5447   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5448   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5449   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5450   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5451   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5452   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5453   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5454   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5455   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5456   3.66478948658888*^9}],
5457
5458Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5459 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5460   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5461   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5462   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5463   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5464   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5465   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5466   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5467   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5468   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5469   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5470   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5471   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5472   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5473   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5474   3.664789486590448*^9}],
5475
5476Cell[BoxData["\<\"Collecting the different structures that enter the \
5477vertex.\"\>"], "Print",
5478 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5479   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5480   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5481   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5482   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5483   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5484   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5485   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5486   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5487   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5488   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5489   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5490   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5491   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5492   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5493   3.6647894867120733`*^9}],
5494
5495Cell[BoxData[
5496 InterpretationBox[
5497  RowBox[{
5498  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
5499-> starting the computation: \"\>", "\[InvisibleSpace]",
5500   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5501    ImageSizeCache->{121., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5502   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
5503  SequenceForm[
5504  2, " possible non-zero vertices have been found -> starting the \
5505computation: ",
5506   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
5507  Editable->False]], "Print",
5508 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5509   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5510   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5511   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5512   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5513   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5514   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5515   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5516   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5517   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5518   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5519   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5520   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5521   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5522   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5523   3.664789486714518*^9}],
5524
5525Cell[BoxData[
5526 InterpretationBox[
5527  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5528  SequenceForm[2, " vertices obtained."],
5529  Editable->False]], "Print",
5530 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5531   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5532   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5533   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5534   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5535   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5536   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5537   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5538   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5539   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5540   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5541   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5542   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5543   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5544   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5545   3.664789486762969*^9}],
5546
5547Cell[BoxData[
5548 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
5549  StripOnInput->False,
5550  LineColor->RGBColor[1, 0.5, 0],
5551  FrontFaceColor->RGBColor[1, 0.5, 0],
5552  BackFaceColor->RGBColor[1, 0.5, 0],
5553  GraphicsColor->RGBColor[1, 0.5, 0],
5554  FontWeight->Bold,
5555  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5556 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5557   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5558   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5559   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5560   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5561   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5562   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5563   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5564   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5565   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5566   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5567   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5568   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5569   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5570   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5571   3.664789486811192*^9}],
5572
5573Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
5574 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5575   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5576   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5577   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5578   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5579   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5580   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5581   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5582   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5583   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5584   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5585   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5586   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5587   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5588   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5589   3.664789486813018*^9}],
5590
5591Cell[BoxData["\<\"Collecting the different structures that enter the \
5592vertex.\"\>"], "Print",
5593 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5594   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5595   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5596   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5597   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5598   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5599   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5600   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5601   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5602   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5603   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5604   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5605   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5606   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5607   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5608   3.6647894869142513`*^9}],
5609
5610Cell[BoxData[
5611 InterpretationBox[
5612  RowBox[{
5613  "2", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been found \
5614-> starting the computation: \"\>", "\[InvisibleSpace]",
5615   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
5616    ImageSizeCache->{121., {2., 9.}}], "\[InvisibleSpace]", "\<\" / \"\>",
5617   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\".\"\>"}],
5618  SequenceForm[
5619  2, " possible non-zero vertices have been found -> starting the \
5620computation: ",
5621   Dynamic[FeynRules`FR$FeynmanRules], " / ", 2, "."],
5622  Editable->False]], "Print",
5623 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5624   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5625   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5626   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5627   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5628   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5629   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5630   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5631   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5632   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5633   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5634   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5635   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5636   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5637   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5638   3.664789486916654*^9}],
5639
5640Cell[BoxData[
5641 InterpretationBox[
5642  RowBox[{"2", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
5643  SequenceForm[2, " vertices obtained."],
5644  Editable->False]], "Print",
5645 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5646   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5647   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5648   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5649   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5650   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5651   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5652   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5653   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5654   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5655   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5656   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5657   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5658   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5659   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5660   3.664789486978685*^9}],
5661
5662Cell[BoxData[
5663 StyleBox["\<\"Comparison of formulations of the visible sector Lagrangian:\"\
5664\>",
5665  StripOnInput->False,
5666  LineColor->RGBColor[1, 0.5, 0],
5667  FrontFaceColor->RGBColor[1, 0.5, 0],
5668  BackFaceColor->RGBColor[1, 0.5, 0],
5669  GraphicsColor->RGBColor[1, 0.5, 0],
5670  FontWeight->Bold,
5671  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5672 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5673   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5674   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5675   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5676   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5677   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5678   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5679   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5680   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5681   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5682   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5683   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5684   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5685   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5686   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5687   3.664789486980769*^9}]
5688}, Open  ]],
5689
5690Cell[BoxData[
5691 TagBox[GridBox[{
5692    {
5693     RowBox[{"{",
5694      RowBox[{
5695       RowBox[{"{",
5696        RowBox[{
5697         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
5698       RowBox[{"{",
5699        RowBox[{
5700         OverscriptBox["uq", "\<\"-\"\>"], ",", "2"}], "}"}], ",",
5701       RowBox[{"{",
5702        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
5703     RowBox[{"\[ImaginaryI]", " ",
5704      RowBox[{"K6bar", "[",
5705       RowBox[{
5706        SubscriptBox["\<\"u\"\>", "3"], ",",
5707        SubscriptBox["\<\"m\"\>", "1"], ",",
5708        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5709      SubscriptBox[
5710       SubscriptBox["P", "\<\"-\"\>"],
5711       RowBox[{
5712        SubscriptBox["\<\"s\"\>", "1"], ",",
5713        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5714      RowBox[{"(",
5715       RowBox[{
5716        SubscriptBox[
5717         SubscriptBox["y", "uu"],
5718         RowBox[{
5719          SubscriptBox["\<\"f\"\>", "1"], ",",
5720          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5721        SubscriptBox[
5722         SubscriptBox["y", "uu"],
5723         RowBox[{
5724          SubscriptBox["\<\"f\"\>", "2"], ",",
5725          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]},
5726    {
5727     RowBox[{"{",
5728      RowBox[{
5729       RowBox[{"{",
5730        RowBox[{"uq", ",", "1"}], "}"}], ",",
5731       RowBox[{"{",
5732        RowBox[{"uq", ",", "2"}], "}"}], ",",
5733       RowBox[{"{",
5734        RowBox[{
5735         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
5736     RowBox[{"\[ImaginaryI]", " ",
5737      RowBox[{"K6", "[",
5738       RowBox[{
5739        SubscriptBox["\<\"u\"\>", "3"], ",",
5740        SubscriptBox["\<\"m\"\>", "1"], ",",
5741        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5742      SubscriptBox[
5743       SubscriptBox["P", "\<\"+\"\>"],
5744       RowBox[{
5745        SubscriptBox["\<\"s\"\>", "1"], ",",
5746        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5747      RowBox[{"(",
5748       RowBox[{
5749        SubscriptBox[
5750         SubscriptBox["y", "uu"],
5751         RowBox[{
5752          SubscriptBox["\<\"f\"\>", "1"], ",",
5753          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5754        SubscriptBox[
5755         SubscriptBox["y", "uu"],
5756         RowBox[{
5757          SubscriptBox["\<\"f\"\>", "2"], ",",
5758          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]}
5759   },
5760   AutoDelete->False,
5761   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
5762  "Grid"]], "Output",
5763 CellChangeTimes->{{3.658828929388466*^9, 3.6588289405927134`*^9}, {
5764   3.6588292458990183`*^9, 3.6588292756170893`*^9}, 3.658829306241588*^9, {
5765   3.658829343906008*^9, 3.658829361893661*^9}, 3.65883058088054*^9, {
5766   3.658830963991094*^9, 3.658830990530305*^9}, 3.658831117058692*^9,
5767   3.65883174865269*^9, 3.658831855766267*^9, 3.65883480920494*^9, {
5768   3.658835077949621*^9, 3.658835104274259*^9}, {3.6588351854940567`*^9,
5769   3.658835196371154*^9}, 3.658835277288666*^9, 3.6588358034982157`*^9,
5770   3.658835881454269*^9, {3.6588359117204037`*^9, 3.658835922949085*^9}, {
5771   3.658836430455709*^9, 3.658836455453952*^9}, {3.65883649214063*^9,
5772   3.6588365021208477`*^9}, 3.658836885830587*^9, 3.658836954793541*^9,
5773   3.6588373909977493`*^9, 3.658837438509239*^9, 3.658837507691697*^9,
5774   3.6588376474401712`*^9, 3.658837877431534*^9, 3.658838014203144*^9,
5775   3.6588381111811237`*^9, 3.658838178866693*^9, 3.65883824889666*^9,
5776   3.658838667802725*^9, 3.6588397332096443`*^9, 3.659073814281481*^9, {
5777   3.659073979769518*^9, 3.659074005475844*^9}, 3.664788330262216*^9,
5778   3.664789487049065*^9}],
5779
5780Cell[BoxData[
5781 TagBox[GridBox[{
5782    {
5783     RowBox[{"{",
5784      RowBox[{
5785       RowBox[{"{",
5786        RowBox[{
5787         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
5788       RowBox[{"{",
5789        RowBox[{
5790         OverscriptBox["uq", "\<\"-\"\>"], ",", "2"}], "}"}], ",",
5791       RowBox[{"{",
5792        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
5793     RowBox[{"\[ImaginaryI]", " ",
5794      RowBox[{"K6bar", "[",
5795       RowBox[{
5796        SubscriptBox["\<\"u\"\>", "3"], ",",
5797        SubscriptBox["\<\"m\"\>", "1"], ",",
5798        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5799      SubscriptBox[
5800       SubscriptBox["P", "\<\"-\"\>"],
5801       RowBox[{
5802        SubscriptBox["\<\"s\"\>", "1"], ",",
5803        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5804      RowBox[{"(",
5805       RowBox[{
5806        SubscriptBox[
5807         SubscriptBox["y", "uu"],
5808         RowBox[{
5809          SubscriptBox["\<\"f\"\>", "1"], ",",
5810          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5811        SubscriptBox[
5812         SubscriptBox["y", "uu"],
5813         RowBox[{
5814          SubscriptBox["\<\"f\"\>", "2"], ",",
5815          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]},
5816    {
5817     RowBox[{"{",
5818      RowBox[{
5819       RowBox[{"{",
5820        RowBox[{"uq", ",", "1"}], "}"}], ",",
5821       RowBox[{"{",
5822        RowBox[{"uq", ",", "2"}], "}"}], ",",
5823       RowBox[{"{",
5824        RowBox[{
5825         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
5826     RowBox[{"\[ImaginaryI]", " ",
5827      RowBox[{"K6", "[",
5828       RowBox[{
5829        SubscriptBox["\<\"u\"\>", "3"], ",",
5830        SubscriptBox["\<\"m\"\>", "1"], ",",
5831        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5832      SubscriptBox[
5833       SubscriptBox["P", "\<\"+\"\>"],
5834       RowBox[{
5835        SubscriptBox["\<\"s\"\>", "1"], ",",
5836        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5837      RowBox[{"(",
5838       RowBox[{
5839        SubscriptBox[
5840         SubscriptBox["y", "uu"],
5841         RowBox[{
5842          SubscriptBox["\<\"f\"\>", "1"], ",",
5843          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5844        SubscriptBox[
5845         SubscriptBox["y", "uu"],
5846         RowBox[{
5847          SubscriptBox["\<\"f\"\>", "2"], ",",
5848          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]}
5849   },
5850   AutoDelete->False,
5851   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
5852  "Grid"]], "Output",
5853 CellChangeTimes->{{3.658828929388466*^9, 3.6588289405927134`*^9}, {
5854   3.6588292458990183`*^9, 3.6588292756170893`*^9}, 3.658829306241588*^9, {
5855   3.658829343906008*^9, 3.658829361893661*^9}, 3.65883058088054*^9, {
5856   3.658830963991094*^9, 3.658830990530305*^9}, 3.658831117058692*^9,
5857   3.65883174865269*^9, 3.658831855766267*^9, 3.65883480920494*^9, {
5858   3.658835077949621*^9, 3.658835104274259*^9}, {3.6588351854940567`*^9,
5859   3.658835196371154*^9}, 3.658835277288666*^9, 3.6588358034982157`*^9,
5860   3.658835881454269*^9, {3.6588359117204037`*^9, 3.658835922949085*^9}, {
5861   3.658836430455709*^9, 3.658836455453952*^9}, {3.65883649214063*^9,
5862   3.6588365021208477`*^9}, 3.658836885830587*^9, 3.658836954793541*^9,
5863   3.6588373909977493`*^9, 3.658837438509239*^9, 3.658837507691697*^9,
5864   3.6588376474401712`*^9, 3.658837877431534*^9, 3.658838014203144*^9,
5865   3.6588381111811237`*^9, 3.658838178866693*^9, 3.65883824889666*^9,
5866   3.658838667802725*^9, 3.6588397332096443`*^9, 3.659073814281481*^9, {
5867   3.659073979769518*^9, 3.659074005475844*^9}, 3.664788330262216*^9,
5868   3.664789487053743*^9}],
5869
5870Cell[BoxData[
5871 StyleBox["\<\"Comparison of formulations of the visible sector Lagrangian \
5872(\\!\\(\\*SubscriptBox[\\(V\\), \\(CKM\\)]\\) = 1):\"\>",
5873  StripOnInput->False,
5874  LineColor->RGBColor[1, 0.5, 0],
5875  FrontFaceColor->RGBColor[1, 0.5, 0],
5876  BackFaceColor->RGBColor[1, 0.5, 0],
5877  GraphicsColor->RGBColor[1, 0.5, 0],
5878  FontWeight->Bold,
5879  FontColor->RGBColor[1, 0.5, 0]]], "Print",
5880 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
5881   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
5882   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
5883   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
5884   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
5885   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
5886   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
5887   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
5888   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
5889   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
5890   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
5891   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
5892   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
5893   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
5894   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
5895   3.66478948705626*^9}],
5896
5897Cell[BoxData[
5898 TagBox[GridBox[{
5899    {
5900     RowBox[{"{",
5901      RowBox[{
5902       RowBox[{"{",
5903        RowBox[{
5904         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
5905       RowBox[{"{",
5906        RowBox[{
5907         OverscriptBox["uq", "\<\"-\"\>"], ",", "2"}], "}"}], ",",
5908       RowBox[{"{",
5909        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
5910     RowBox[{"\[ImaginaryI]", " ",
5911      RowBox[{"K6bar", "[",
5912       RowBox[{
5913        SubscriptBox["\<\"u\"\>", "3"], ",",
5914        SubscriptBox["\<\"m\"\>", "1"], ",",
5915        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5916      SubscriptBox[
5917       SubscriptBox["P", "\<\"-\"\>"],
5918       RowBox[{
5919        SubscriptBox["\<\"s\"\>", "1"], ",",
5920        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5921      RowBox[{"(",
5922       RowBox[{
5923        SubscriptBox[
5924         SubscriptBox["y", "uu"],
5925         RowBox[{
5926          SubscriptBox["\<\"f\"\>", "1"], ",",
5927          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5928        SubscriptBox[
5929         SubscriptBox["y", "uu"],
5930         RowBox[{
5931          SubscriptBox["\<\"f\"\>", "2"], ",",
5932          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]},
5933    {
5934     RowBox[{"{",
5935      RowBox[{
5936       RowBox[{"{",
5937        RowBox[{"uq", ",", "1"}], "}"}], ",",
5938       RowBox[{"{",
5939        RowBox[{"uq", ",", "2"}], "}"}], ",",
5940       RowBox[{"{",
5941        RowBox[{
5942         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
5943     RowBox[{"\[ImaginaryI]", " ",
5944      RowBox[{"K6", "[",
5945       RowBox[{
5946        SubscriptBox["\<\"u\"\>", "3"], ",",
5947        SubscriptBox["\<\"m\"\>", "1"], ",",
5948        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
5949      SubscriptBox[
5950       SubscriptBox["P", "\<\"+\"\>"],
5951       RowBox[{
5952        SubscriptBox["\<\"s\"\>", "1"], ",",
5953        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
5954      RowBox[{"(",
5955       RowBox[{
5956        SubscriptBox[
5957         SubscriptBox["y", "uu"],
5958         RowBox[{
5959          SubscriptBox["\<\"f\"\>", "1"], ",",
5960          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
5961        SubscriptBox[
5962         SubscriptBox["y", "uu"],
5963         RowBox[{
5964          SubscriptBox["\<\"f\"\>", "2"], ",",
5965          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]}
5966   },
5967   AutoDelete->False,
5968   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
5969  "Grid"]], "Output",
5970 CellChangeTimes->{{3.658828929388466*^9, 3.6588289405927134`*^9}, {
5971   3.6588292458990183`*^9, 3.6588292756170893`*^9}, 3.658829306241588*^9, {
5972   3.658829343906008*^9, 3.658829361893661*^9}, 3.65883058088054*^9, {
5973   3.658830963991094*^9, 3.658830990530305*^9}, 3.658831117058692*^9,
5974   3.65883174865269*^9, 3.658831855766267*^9, 3.65883480920494*^9, {
5975   3.658835077949621*^9, 3.658835104274259*^9}, {3.6588351854940567`*^9,
5976   3.658835196371154*^9}, 3.658835277288666*^9, 3.6588358034982157`*^9,
5977   3.658835881454269*^9, {3.6588359117204037`*^9, 3.658835922949085*^9}, {
5978   3.658836430455709*^9, 3.658836455453952*^9}, {3.65883649214063*^9,
5979   3.6588365021208477`*^9}, 3.658836885830587*^9, 3.658836954793541*^9,
5980   3.6588373909977493`*^9, 3.658837438509239*^9, 3.658837507691697*^9,
5981   3.6588376474401712`*^9, 3.658837877431534*^9, 3.658838014203144*^9,
5982   3.6588381111811237`*^9, 3.658838178866693*^9, 3.65883824889666*^9,
5983   3.658838667802725*^9, 3.6588397332096443`*^9, 3.659073814281481*^9, {
5984   3.659073979769518*^9, 3.659074005475844*^9}, 3.664788330262216*^9,
5985   3.664789487058927*^9}],
5986
5987Cell[BoxData[
5988 TagBox[GridBox[{
5989    {
5990     RowBox[{"{",
5991      RowBox[{
5992       RowBox[{"{",
5993        RowBox[{
5994         OverscriptBox["uq", "\<\"-\"\>"], ",", "1"}], "}"}], ",",
5995       RowBox[{"{",
5996        RowBox[{
5997         OverscriptBox["uq", "\<\"-\"\>"], ",", "2"}], "}"}], ",",
5998       RowBox[{"{",
5999        RowBox[{"M", ",", "3"}], "}"}]}], "}"}],
6000     RowBox[{"\[ImaginaryI]", " ",
6001      RowBox[{"K6bar", "[",
6002       RowBox[{
6003        SubscriptBox["\<\"u\"\>", "3"], ",",
6004        SubscriptBox["\<\"m\"\>", "1"], ",",
6005        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
6006      SubscriptBox[
6007       SubscriptBox["P", "\<\"-\"\>"],
6008       RowBox[{
6009        SubscriptBox["\<\"s\"\>", "1"], ",",
6010        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
6011      RowBox[{"(",
6012       RowBox[{
6013        SubscriptBox[
6014         SubscriptBox["y", "uu"],
6015         RowBox[{
6016          SubscriptBox["\<\"f\"\>", "1"], ",",
6017          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
6018        SubscriptBox[
6019         SubscriptBox["y", "uu"],
6020         RowBox[{
6021          SubscriptBox["\<\"f\"\>", "2"], ",",
6022          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]},
6023    {
6024     RowBox[{"{",
6025      RowBox[{
6026       RowBox[{"{",
6027        RowBox[{"uq", ",", "1"}], "}"}], ",",
6028       RowBox[{"{",
6029        RowBox[{"uq", ",", "2"}], "}"}], ",",
6030       RowBox[{"{",
6031        RowBox[{
6032         SuperscriptBox["M", "\[Dagger]"], ",", "3"}], "}"}]}], "}"}],
6033     RowBox[{"\[ImaginaryI]", " ",
6034      RowBox[{"K6", "[",
6035       RowBox[{
6036        SubscriptBox["\<\"u\"\>", "3"], ",",
6037        SubscriptBox["\<\"m\"\>", "1"], ",",
6038        SubscriptBox["\<\"m\"\>", "2"]}], "]"}], " ",
6039      SubscriptBox[
6040       SubscriptBox["P", "\<\"+\"\>"],
6041       RowBox[{
6042        SubscriptBox["\<\"s\"\>", "1"], ",",
6043        SubscriptBox["\<\"s\"\>", "2"]}]], " ",
6044      RowBox[{"(",
6045       RowBox[{
6046        SubscriptBox[
6047         SubscriptBox["y", "uu"],
6048         RowBox[{
6049          SubscriptBox["\<\"f\"\>", "1"], ",",
6050          SubscriptBox["\<\"f\"\>", "2"]}]], "+",
6051        SubscriptBox[
6052         SubscriptBox["y", "uu"],
6053         RowBox[{
6054          SubscriptBox["\<\"f\"\>", "2"], ",",
6055          SubscriptBox["\<\"f\"\>", "1"]}]]}], ")"}]}]}
6056   },
6057   AutoDelete->False,
6058   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
6059  "Grid"]], "Output",
6060 CellChangeTimes->{{3.658828929388466*^9, 3.6588289405927134`*^9}, {
6061   3.6588292458990183`*^9, 3.6588292756170893`*^9}, 3.658829306241588*^9, {
6062   3.658829343906008*^9, 3.658829361893661*^9}, 3.65883058088054*^9, {
6063   3.658830963991094*^9, 3.658830990530305*^9}, 3.658831117058692*^9,
6064   3.65883174865269*^9, 3.658831855766267*^9, 3.65883480920494*^9, {
6065   3.658835077949621*^9, 3.658835104274259*^9}, {3.6588351854940567`*^9,
6066   3.658835196371154*^9}, 3.658835277288666*^9, 3.6588358034982157`*^9,
6067   3.658835881454269*^9, {3.6588359117204037`*^9, 3.658835922949085*^9}, {
6068   3.658836430455709*^9, 3.658836455453952*^9}, {3.65883649214063*^9,
6069   3.6588365021208477`*^9}, 3.658836885830587*^9, 3.658836954793541*^9,
6070   3.6588373909977493`*^9, 3.658837438509239*^9, 3.658837507691697*^9,
6071   3.6588376474401712`*^9, 3.658837877431534*^9, 3.658838014203144*^9,
6072   3.6588381111811237`*^9, 3.658838178866693*^9, 3.65883824889666*^9,
6073   3.658838667802725*^9, 3.6588397332096443`*^9, 3.659073814281481*^9, {
6074   3.659073979769518*^9, 3.659074005475844*^9}, 3.664788330262216*^9,
6075   3.6647894870617647`*^9}],
6076
6077Cell[BoxData[
6078 StyleBox["\<\"Both formulations of the visible sector Lagrangian are the \
6079same.\"\>",
6080  StripOnInput->False,
6081  LineColor->RGBColor[1, 0.5, 0],
6082  FrontFaceColor->RGBColor[1, 0.5, 0],
6083  BackFaceColor->RGBColor[1, 0.5, 0],
6084  GraphicsColor->RGBColor[1, 0.5, 0],
6085  FontWeight->Bold,
6086  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6087 CellChangeTimes->{{3.658828928724717*^9, 3.658828940466073*^9}, {
6088   3.658829245775367*^9, 3.658829275359365*^9}, 3.658829305926353*^9, {
6089   3.658829343658095*^9, 3.658829361640295*^9}, 3.658830580389295*^9, {
6090   3.658830963434209*^9, 3.658830990077829*^9}, 3.658831116111267*^9,
6091   3.658831747764428*^9, 3.658831854858107*^9, 3.658834808279861*^9, {
6092   3.6588350771889277`*^9, 3.658835103572028*^9}, {3.6588351847215567`*^9,
6093   3.658835195675692*^9}, 3.6588352765361767`*^9, 3.6588358027723637`*^9,
6094   3.6588358807530003`*^9, {3.6588359109498167`*^9, 3.6588359222211733`*^9}, {
6095   3.65883642972532*^9, 3.658836454718008*^9}, {3.658836491411438*^9,
6096   3.658836501448748*^9}, 3.658836885026032*^9, 3.6588369539771223`*^9,
6097   3.6588373900725307`*^9, 3.65883743701831*^9, 3.6588375064132233`*^9,
6098   3.658837646311397*^9, 3.658837876292055*^9, 3.658838013100665*^9,
6099   3.658838110098091*^9, 3.658838177545555*^9, 3.658838247959958*^9,
6100   3.6588386666850767`*^9, 3.6588397321192904`*^9, 3.65907381393369*^9, {
6101   3.659073978803946*^9, 3.659074004704434*^9}, 3.664788329856463*^9,
6102   3.6647894870636597`*^9}]
6103}, Open  ]]
6104}, Closed]]
6105}, Open  ]],
6106
6107Cell[CellGroupData[{
6108
6109Cell["Model Output", "Section",
6110 CellChangeTimes->{{3.647001018344447*^9, 3.647001020415841*^9}}],
6111
6112Cell[CellGroupData[{
6113
6114Cell["UFO Model", "Subsection",
6115 CellChangeTimes->{{3.6557916852095203`*^9, 3.655791687722753*^9}}],
6116
6117Cell[BoxData[
6118 RowBox[{
6119  RowBox[{"(*", " ",
6120   RowBox[{
6121   "Write", " ", "UFO", " ", "output", " ", "to", " ", "model", " ",
6122    "location"}], " ", "*)"}], "\[IndentingNewLine]",
6123  RowBox[{
6124   RowBox[{
6125    RowBox[{"SetDirectory", "[",
6126     RowBox[{"locMF", "<>", "\"\<ufo_models\>\""}], "]"}], ";"}],
6127   "\[IndentingNewLine]",
6128   RowBox[{
6129    RowBox[{"WriteUFO", "[",
6130     RowBox[{
6131      RowBox[{"LSM", "+", "LRM"}], ",",
6132      RowBox[{"Output", "\[Rule]", "M$ModelOutputDir"}]}], "]"}], ";"}],
6133   "\[IndentingNewLine]",
6134   RowBox[{
6135    RowBox[{"SetDirectory", "[", "locMF", "]"}], ";"}]}]}]], "Input",
6136 CellChangeTimes->{{3.655029219205811*^9, 3.655029219429003*^9}, {
6137   3.655099968666996*^9, 3.655099968971363*^9}, {3.655100028265877*^9,
6138   3.655100054332181*^9}, {3.65864769375811*^9, 3.65864769804309*^9},
6139   3.6647875830952997`*^9}],
6140
6141Cell[CellGroupData[{
6142
6143Cell["Automatic UFO Generation", "Subsubsection",
6144 CellChangeTimes->{{3.6550291912685833`*^9, 3.6550292010528383`*^9}}],
6145
6146Cell[CellGroupData[{
6147
6148Cell[BoxData[
6149 RowBox[{
6150  RowBox[{"(*", " ",
6151   RowBox[{
6152   "Write", " ", "UFO", " ", "output", " ", "to", " ", "model", " ",
6153    "location"}], " ", "*)"}], "\[IndentingNewLine]",
6154  RowBox[{
6155   RowBox[{"If", "[",
6156    RowBox[{"AutoUFOModel", ",", "\[IndentingNewLine]",
6157     RowBox[{
6158      RowBox[{"SetDirectory", "[",
6159       RowBox[{"locMF", "<>", "\"\<ufo_models\>\""}], "]"}], ";",
6160      "\[IndentingNewLine]",
6161      RowBox[{"WriteUFO", "[",
6162       RowBox[{
6163        RowBox[{"LSM", "+", "LRM"}], ",",
6164        RowBox[{"Output", "\[Rule]", "M$ModelOutputDir"}]}], "]"}], ";",
6165      "\[IndentingNewLine]",
6166      RowBox[{"SetDirectory", "[", "locMF", "]"}], ";"}]}],
6167    "\[IndentingNewLine]", "]"}], ";"}]}]], "Input",
6168 InitializationCell->True,
6169 CellChangeTimes->{
6170  3.568453683169607*^9, 3.568454805562674*^9, 3.568456848711566*^9, {
6171   3.56845919783318*^9, 3.56845920260916*^9}, {3.569144511912423*^9,
6172   3.569144535690543*^9}, {3.569144619417001*^9, 3.569144621394456*^9}, {
6173   3.5691446563698177`*^9, 3.569144660482048*^9}, {3.5891942212739477`*^9,
6174   3.589194233231311*^9}, {3.591532239477763*^9, 3.591532242306498*^9}, {
6175   3.591533301228033*^9, 3.591533303306046*^9}, {3.646997438053999*^9,
6176   3.6469974384664793`*^9}, 3.646998382133109*^9, {3.6471537783067303`*^9,
6177   3.6471537806873007`*^9}, {3.647851677551371*^9, 3.647851712588777*^9}, {
6178   3.654589381470702*^9, 3.654589381810511*^9}, {3.654589477825758*^9,
6179   3.6545894786868353`*^9}, {3.654591075366694*^9, 3.654591077786544*^9}, {
6180   3.655029203989643*^9, 3.655029212819235*^9}, 3.655029256772698*^9, {
6181   3.6550999541463823`*^9, 3.655099962078816*^9}, 3.6551000752018967`*^9}],
6182
6183Cell[CellGroupData[{
6184
6185Cell[BoxData["\<\" --- Universal FeynRules Output (UFO) v 1.1 ---\"\>"], \
6186"Print",
6187 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6188  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6189  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110328943*^9}],
6190
6191Cell[BoxData[
6192 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6193  StripOnInput->False,
6194  LineColor->RGBColor[1, 0.5, 0],
6195  FrontFaceColor->RGBColor[1, 0.5, 0],
6196  BackFaceColor->RGBColor[1, 0.5, 0],
6197  GraphicsColor->RGBColor[1, 0.5, 0],
6198  FontWeight->Bold,
6199  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6200 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6201  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6202  3.66601089451433*^9, 3.666010971819778*^9, 3.666011033199007*^9}],
6203
6204Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6205 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6206  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6207  3.66601089451433*^9, 3.666010971819778*^9, 3.666011033200243*^9}],
6208
6209Cell[BoxData["\<\"Collecting the different structures that enter the \
6210vertex.\"\>"], "Print",
6211 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6212  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6213  3.66601089451433*^9, 3.666010971819778*^9, 3.666011036861393*^9}],
6214
6215Cell[BoxData[
6216 InterpretationBox[
6217  RowBox[{
6218  "140", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6219found -> starting the computation: \"\>", "\[InvisibleSpace]",
6220   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6221    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6222   "\[InvisibleSpace]", "140", "\[InvisibleSpace]", "\<\".\"\>"}],
6223  SequenceForm[
6224  140, " possible non-zero vertices have been found -> starting the \
6225computation: ",
6226   Dynamic[FeynRules`FR$FeynmanRules], " / ", 140, "."],
6227  Editable->False]], "Print",
6228 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6229  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6230  3.66601089451433*^9, 3.666010971819778*^9, 3.666011036952406*^9}],
6231
6232Cell[BoxData[
6233 InterpretationBox[
6234  RowBox[{"134", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6235  SequenceForm[134, " vertices obtained."],
6236  Editable->False]], "Print",
6237 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6238  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6239  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110402377987`*^9}],
6240
6241Cell[BoxData[
6242 InterpretationBox[
6243  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
6244   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6245    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6246   "\[InvisibleSpace]", "134"}],
6247  SequenceForm["Flavor expansion of the vertices: ",
6248   Dynamic[FeynRules`FR$Count1], " / ", 134],
6249  Editable->False]], "Print",
6250 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6251  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6252  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110432455397`*^9}],
6253
6254Cell[BoxData["\<\"   - Saved vertices in InterfaceRun[ 1 ].\"\>"], "Print",
6255 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6256  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6257  3.66601089451433*^9, 3.666010971819778*^9, 3.666011045102*^9}],
6258
6259Cell[BoxData[
6260 StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
6261decays: \"\>",
6262  StripOnInput->False,
6263  LineColor->RGBColor[1, 0.5, 0],
6264  FrontFaceColor->RGBColor[1, 0.5, 0],
6265  BackFaceColor->RGBColor[1, 0.5, 0],
6266  GraphicsColor->RGBColor[1, 0.5, 0],
6267  FontWeight->Bold,
6268  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6269 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6270  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6271  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110451954117`*^9}],
6272
6273Cell[BoxData[
6274 InterpretationBox[
6275  RowBox[{
6276   DynamicBox[ToBoxes[FeynRules`FR$DecayCounter, StandardForm],
6277    ImageSizeCache->{16., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6278   "\[InvisibleSpace]", "78"}],
6279  SequenceForm[
6280   Dynamic[FeynRules`FR$DecayCounter], " / ", 78],
6281  Editable->False]], "Print",
6282 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6283  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6284  3.66601089451433*^9, 3.666010971819778*^9, 3.666011045196587*^9}],
6285
6286Cell[BoxData[
6287 InterpretationBox[
6288  RowBox[{"\<\"Squared matrix elent compute in \"\>", "\[InvisibleSpace]",
6289   "1.655748`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6290  SequenceForm["Squared matrix elent compute in ", 1.655748, " seconds."],
6291  Editable->False]], "Print",
6292 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6293  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6294  3.66601089451433*^9, 3.666010971819778*^9, 3.666011046801394*^9}],
6295
6296Cell[BoxData[
6297 InterpretationBox[
6298  RowBox[{"\<\"Decay widths computed in \"\>", "\[InvisibleSpace]",
6299   "0.044284`", "\[InvisibleSpace]", "\<\" seconds.\"\>"}],
6300  SequenceForm["Decay widths computed in ", 0.044284, " seconds."],
6301  Editable->False]], "Print",
6302 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6303  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6304  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110468930063`*^9}],
6305
6306Cell[BoxData["\<\"Preparing Python output.\"\>"], "Print",
6307 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6308  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6309  3.66601089451433*^9, 3.666010971819778*^9, 3.6660110468939734`*^9}],
6310
6311Cell[BoxData["\<\"    - Splitting vertices into building blocks.\"\>"], \
6312"Print",
6313 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6314  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6315  3.66601089451433*^9, 3.666010971819778*^9, 3.666011047045968*^9}],
6316
6317Cell[BoxData[
6318 InterpretationBox[
6319  RowBox[{"\<\"    - Optimizing: \"\>", "\[InvisibleSpace]",
6320   DynamicBox[ToBoxes[PRIVATE`PY$SplitVertexCounter, StandardForm],
6321    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\"/\"\>",
6322   "\[InvisibleSpace]", "216", "\[InvisibleSpace]", "\<\" .\"\>"}],
6323  SequenceForm["    - Optimizing: ",
6324   Dynamic[PRIVATE`PY$SplitVertexCounter], "/", 216, " ."],
6325  Editable->False]], "Print",
6326 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6327  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6328  3.66601089451433*^9, 3.666010971819778*^9, 3.666011047301505*^9}],
6329
6330Cell[BoxData["\<\"    - Writing files.\"\>"], "Print",
6331 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6332  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6333  3.66601089451433*^9, 3.666010971819778*^9, 3.666011047521305*^9}],
6334
6335Cell[BoxData["\<\"Done!\"\>"], "Print",
6336 CellChangeTimes->{3.666010402943145*^9, 3.66601044973637*^9,
6337  3.6660105055971813`*^9, 3.6660106308027554`*^9, 3.66601083063031*^9,
6338  3.66601089451433*^9, 3.666010971819778*^9, 3.666011047842762*^9}]
6339}, Open  ]]
6340}, Open  ]]
6341}, Open  ]]
6342}, Open  ]],
6343
6344Cell[CellGroupData[{
6345
6346Cell["CalcHEP Model", "Subsection",
6347 CellChangeTimes->{{3.655791705146821*^9, 3.655791708962453*^9}}],
6348
6349Cell[BoxData[
6350 RowBox[{
6351  RowBox[{"(*", " ",
6352   RowBox[{
6353   "Write", " ", "CalcHEP", " ", "output", " ", "to", " ", "model", " ",
6354    "location"}], " ", "*)"}], "\[IndentingNewLine]",
6355  RowBox[{
6356   RowBox[{
6357    RowBox[{"SetDirectory", "[",
6358     RowBox[{"locMF", "<>", "\"\<calchep_models\>\""}], "]"}], ";"}],
6359   "\[IndentingNewLine]",
6360   RowBox[{
6361    RowBox[{"WriteCHOutput", "[",
6362     RowBox[{
6363      RowBox[{"LSM", "+", "LRM"}], " ", ",",
6364      RowBox[{"Output", "\[Rule]", "M$ModelOutputDir"}]}], "]"}], ";"}],
6365   "\[IndentingNewLine]",
6366   RowBox[{
6367    RowBox[{"SetDirectory", "[", "locMF", "]"}], ";"}]}]}]], "Input",
6368 CellChangeTimes->{{3.655791847448575*^9, 3.655791899022543*^9}}],
6369
6370Cell[CellGroupData[{
6371
6372Cell["Automatic CalcHEP Generation", "Subsubsection",
6373 CellChangeTimes->{{3.6550291912685833`*^9, 3.6550292010528383`*^9}, {
6374  3.6557949766701183`*^9, 3.6557949780381002`*^9}}],
6375
6376Cell[CellGroupData[{
6377
6378Cell[BoxData[
6379 RowBox[{
6380  RowBox[{"(*", " ",
6381   RowBox[{
6382   "Write", " ", "UFO", " ", "output", " ", "to", " ", "model", " ",
6383    "location"}], " ", "*)"}], "\[IndentingNewLine]",
6384  RowBox[{
6385   RowBox[{"If", "[",
6386    RowBox[{"AutoCalcHEPModel", ",", "\[IndentingNewLine]",
6387     RowBox[{
6388      RowBox[{"SetDirectory", "[",
6389       RowBox[{"locMF", "<>", "\"\<calchep_models\>\""}], "]"}], ";",
6390      "\[IndentingNewLine]",
6391      RowBox[{"WriteCHOutput", "[",
6392       RowBox[{
6393        RowBox[{"LSM", "+", "LRM"}], " ", ",",
6394        RowBox[{"Output", "\[Rule]", "M$ModelOutputDir"}]}], "]"}], ";",
6395      "\[IndentingNewLine]",
6396      RowBox[{"SetDirectory", "[", "locMF", "]"}], ";"}]}],
6397    "\[IndentingNewLine]", "]"}], ";"}]}]], "Input",
6398 InitializationCell->True,
6399 CellChangeTimes->{
6400  3.568453683169607*^9, 3.568454805562674*^9, 3.568456848711566*^9, {
6401   3.56845919783318*^9, 3.56845920260916*^9}, {3.569144511912423*^9,
6402   3.569144535690543*^9}, {3.569144619417001*^9, 3.569144621394456*^9}, {
6403   3.5691446563698177`*^9, 3.569144660482048*^9}, {3.5891942212739477`*^9,
6404   3.589194233231311*^9}, {3.591532239477763*^9, 3.591532242306498*^9}, {
6405   3.591533301228033*^9, 3.591533303306046*^9}, {3.646997438053999*^9,
6406   3.6469974384664793`*^9}, 3.646998382133109*^9, {3.6471537783067303`*^9,
6407   3.6471537806873007`*^9}, {3.647851677551371*^9, 3.647851712588777*^9}, {
6408   3.654589381470702*^9, 3.654589381810511*^9}, {3.654589477825758*^9,
6409   3.6545894786868353`*^9}, {3.654591075366694*^9, 3.654591077786544*^9}, {
6410   3.655029203989643*^9, 3.655029212819235*^9}, 3.655029256772698*^9, {
6411   3.6550999541463823`*^9, 3.655099962078816*^9}, 3.6551000752018967`*^9, {
6412   3.655794962219224*^9, 3.655794974014209*^9}}],
6413
6414Cell[CellGroupData[{
6415
6416Cell[BoxData["\<\" - - - FeynRules interface to CalcHep/CompHEP\"\>"], "Print",
6417 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6418  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6419  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110509896173`*^9}],
6420
6421Cell[BoxData[
6422 InterpretationBox[
6423  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6424   StyleBox["\<\"Authors:\"\>",
6425    StripOnInput->False,
6426    LineColor->RGBColor[0, 0, 1],
6427    FrontFaceColor->RGBColor[0, 0, 1],
6428    BackFaceColor->RGBColor[0, 0, 1],
6429    GraphicsColor->RGBColor[0, 0, 1],
6430    FontColor->RGBColor[0, 0, 1]],
6431   "\[InvisibleSpace]", "\<\" N. Christensen, C. Duhr\"\>"}],
6432  SequenceForm[" - - - ",
6433   Style["Authors:",
6434    RGBColor[0, 0, 1]], " N. Christensen, C. Duhr"],
6435  Editable->False]], "Print",
6436 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6437  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6438  3.666010909830435*^9, 3.666010986417746*^9, 3.66601105099072*^9}],
6439
6440Cell[BoxData[
6441 InterpretationBox[
6442  RowBox[{"\<\" - - - \"\>", "\[InvisibleSpace]",
6443   StyleBox["\<\"Please cite:\"\>",
6444    StripOnInput->False,
6445    LineColor->RGBColor[0, 0, 1],
6446    FrontFaceColor->RGBColor[0, 0, 1],
6447    BackFaceColor->RGBColor[0, 0, 1],
6448    GraphicsColor->RGBColor[0, 0, 1],
6449    FontColor->RGBColor[0, 0, 1]],
6450   "\[InvisibleSpace]", "\<\" arXiv:0906.2474\"\>"}],
6451  SequenceForm[" - - - ",
6452   Style["Please cite:",
6453    RGBColor[0, 0, 1]], " arXiv:0906.2474"],
6454  Editable->False]], "Print",
6455 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6456  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6457  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110509916153`*^9}],
6458
6459Cell[BoxData[
6460 InterpretationBox[
6461  RowBox[{
6462   StyleBox["\<\"\\nWriting\"\>",
6463    StripOnInput->False,
6464    LineColor->RGBColor[0, 0, 1],
6465    FrontFaceColor->RGBColor[0, 0, 1],
6466    BackFaceColor->RGBColor[0, 0, 1],
6467    GraphicsColor->RGBColor[0, 0, 1],
6468    FontColor->RGBColor[0, 0, 1]],
6469   "\[InvisibleSpace]", "\<\" files to \
6470/home/maikel/physics/dijet_met/physics/resonance_met_models/calchep_models/so_\
6471met.\"\>"}],
6472  SequenceForm[
6473   Style["\nWriting",
6474    RGBColor[0, 0, 1]],
6475   " files to \
6476/home/maikel/physics/dijet_met/physics/resonance_met_models/calchep_models/so_\
6477met."],
6478  Editable->False]], "Print",
6479 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6480  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6481  3.666010909830435*^9, 3.666010986417746*^9, 3.666011050992223*^9}],
6482
6483Cell[BoxData[
6484 InterpretationBox[
6485  RowBox[{
6486   StyleBox["\<\"\\nWriting\"\>",
6487    StripOnInput->False,
6488    LineColor->RGBColor[0, 0, 1],
6489    FrontFaceColor->RGBColor[0, 0, 1],
6490    BackFaceColor->RGBColor[0, 0, 1],
6491    GraphicsColor->RGBColor[0, 0, 1],
6492    FontColor->RGBColor[0, 0, 1]],
6493   "\[InvisibleSpace]", "\<\" particles file 'prtcls1.mdl'.\"\>"}],
6494  SequenceForm[
6495   Style["\nWriting",
6496    RGBColor[0, 0, 1]], " particles file 'prtcls1.mdl'."],
6497  Editable->False]], "Print",
6498 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6499  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6500  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110509928427`*^9}],
6501
6502Cell[BoxData[
6503 InterpretationBox[
6504  RowBox[{
6505   StyleBox["\<\"\\tWarning!\"\>",
6506    StripOnInput->False,
6507    LineColor->RGBColor[1, 0, 0],
6508    FrontFaceColor->RGBColor[1, 0, 0],
6509    BackFaceColor->RGBColor[1, 0, 0],
6510    GraphicsColor->RGBColor[1, 0, 0],
6511    FontColor->RGBColor[1, 0, 0]],
6512   "\[InvisibleSpace]", "\<\"  I notice you have more than one color octet.\"\
6513\>"}],
6514  SequenceForm[
6515   Style["\tWarning!",
6516    RGBColor[1, 0, 0]], "  I notice you have more than one color octet."],
6517  Editable->False]], "Print",
6518 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6519  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6520  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051031261*^9}],
6521
6522Cell[BoxData["\<\"\\t\\tIn CH, 4-point color octet vertices are \
6523nontrivial,\\n\\t\\t and must be added with an auxilliary field.\"\>"], \
6524"Print",
6525 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6526  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6527  3.666010909830435*^9, 3.666010986417746*^9, 3.66601105103199*^9}],
6528
6529Cell[BoxData["\<\"\\t\\tPlease refer to the CH manual for these \
6530vertices.\"\>"], "Print",
6531 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6532  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6533  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051032568*^9}],
6534
6535Cell[BoxData[
6536 InterpretationBox[
6537  RowBox[{
6538   StyleBox["\<\"\\nWriting\"\>",
6539    StripOnInput->False,
6540    LineColor->RGBColor[0, 0, 1],
6541    FrontFaceColor->RGBColor[0, 0, 1],
6542    BackFaceColor->RGBColor[0, 0, 1],
6543    GraphicsColor->RGBColor[0, 0, 1],
6544    FontColor->RGBColor[0, 0, 1]],
6545   "\[InvisibleSpace]", "\<\" external parameter file 'vars1.mdl'.\"\>"}],
6546  SequenceForm[
6547   Style["\nWriting",
6548    RGBColor[0, 0, 1]], " external parameter file 'vars1.mdl'."],
6549  Editable->False]], "Print",
6550 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6551  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6552  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051033099*^9}],
6553
6554Cell[BoxData[
6555 InterpretationBox[
6556  RowBox[{
6557   StyleBox["\<\"\\nWriting\"\>",
6558    StripOnInput->False,
6559    LineColor->RGBColor[0, 0, 1],
6560    FrontFaceColor->RGBColor[0, 0, 1],
6561    BackFaceColor->RGBColor[0, 0, 1],
6562    GraphicsColor->RGBColor[0, 0, 1],
6563    FontColor->RGBColor[0, 0, 1]],
6564   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6565  SequenceForm[
6566   Style["\nWriting",
6567    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6568  Editable->False]], "Print",
6569 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6570  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6571  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051033618*^9}],
6572
6573Cell[BoxData[
6574 InterpretationBox[
6575  RowBox[{
6576   StyleBox["\<\"\\nWriting\"\>",
6577    StripOnInput->False,
6578    LineColor->RGBColor[0, 0, 1],
6579    FrontFaceColor->RGBColor[0, 0, 1],
6580    BackFaceColor->RGBColor[0, 0, 1],
6581    GraphicsColor->RGBColor[0, 0, 1],
6582    FontColor->RGBColor[0, 0, 1]],
6583   "\[InvisibleSpace]", "\<\" external library file 'extlib1.mdl'.\"\>"}],
6584  SequenceForm[
6585   Style["\nWriting",
6586    RGBColor[0, 0, 1]], " external library file 'extlib1.mdl'."],
6587  Editable->False]], "Print",
6588 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6589  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6590  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110510861597`*^9}],
6591
6592Cell[BoxData["\<\"\"\>"], "Print",
6593 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6594  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6595  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051086886*^9}],
6596
6597Cell[BoxData[
6598 StyleBox["\<\"Starting Feynman rule calculation.\"\>",
6599  StripOnInput->False,
6600  LineColor->RGBColor[1, 0.5, 0],
6601  FrontFaceColor->RGBColor[1, 0.5, 0],
6602  BackFaceColor->RGBColor[1, 0.5, 0],
6603  GraphicsColor->RGBColor[1, 0.5, 0],
6604  FontWeight->Bold,
6605  FontColor->RGBColor[1, 0.5, 0]]], "Print",
6606 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6607  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6608  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051242559*^9}],
6609
6610Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
6611 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6612  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6613  3.666010909830435*^9, 3.666010986417746*^9, 3.66601105124347*^9}],
6614
6615Cell[BoxData[
6616 InterpretationBox[
6617  RowBox[{"\<\"Neglecting all terms with more than \"\>",
6618   "\[InvisibleSpace]", "\<\"4\"\>",
6619   "\[InvisibleSpace]", "\<\" particles.\"\>"}],
6620  SequenceForm["Neglecting all terms with more than ", "4", " particles."],
6621  Editable->False]], "Print",
6622 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6623  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6624  3.666010909830435*^9, 3.666010986417746*^9, 3.666011051244018*^9}],
6625
6626Cell[BoxData["\<\"Collecting the different structures that enter the \
6627vertex.\"\>"], "Print",
6628 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6629  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6630  3.666010909830435*^9, 3.666010986417746*^9, 3.666011055137629*^9}],
6631
6632Cell[BoxData[
6633 InterpretationBox[
6634  RowBox[{
6635  "140", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6636found -> starting the computation: \"\>", "\[InvisibleSpace]",
6637   DynamicBox[ToBoxes[FeynRules`FR$FeynmanRules, StandardForm],
6638    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6639   "\[InvisibleSpace]", "140", "\[InvisibleSpace]", "\<\".\"\>"}],
6640  SequenceForm[
6641  140, " possible non-zero vertices have been found -> starting the \
6642computation: ",
6643   Dynamic[FeynRules`FR$FeynmanRules], " / ", 140, "."],
6644  Editable->False]], "Print",
6645 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6646  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6647  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110551934233`*^9}],
6648
6649Cell[BoxData[
6650 InterpretationBox[
6651  RowBox[{"134", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
6652  SequenceForm[134, " vertices obtained."],
6653  Editable->False]], "Print",
6654 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6655  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6656  3.666010909830435*^9, 3.666010986417746*^9, 3.666011058553886*^9}],
6657
6658Cell[BoxData[
6659 InterpretationBox[
6660  RowBox[{"\<\"Flavor expansion of the vertices: \"\>", "\[InvisibleSpace]",
6661   DynamicBox[ToBoxes[FeynRules`FR$Count1, StandardForm],
6662    ImageSizeCache->{24., {0., 8.}}], "\[InvisibleSpace]", "\<\" / \"\>",
6663   "\[InvisibleSpace]", "134"}],
6664  SequenceForm["Flavor expansion of the vertices: ",
6665   Dynamic[FeynRules`FR$Count1], " / ", 134],
6666  Editable->False]], "Print",
6667 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6668  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6669  3.666010909830435*^9, 3.666010986417746*^9, 3.666011061503996*^9}],
6670
6671Cell[BoxData[
6672 InterpretationBox[
6673  RowBox[{
6674   StyleBox["\<\"\\nWriting\"\>",
6675    StripOnInput->False,
6676    LineColor->RGBColor[0, 0, 1],
6677    FrontFaceColor->RGBColor[0, 0, 1],
6678    BackFaceColor->RGBColor[0, 0, 1],
6679    GraphicsColor->RGBColor[0, 0, 1],
6680    FontColor->RGBColor[0, 0, 1]],
6681   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'\\nand appending \
6682variable file 'func1.mdl', particle file 'prtcls1.mdl' and variable file \
6683'vars1.mdl'.\"\>"}],
6684  SequenceForm[
6685   Style["\nWriting",
6686    RGBColor[0, 0, 1]],
6687   " vertices file 'lgrng1.mdl'\nand appending variable file 'func1.mdl', \
6688particle file 'prtcls1.mdl' and variable file 'vars1.mdl'."],
6689  Editable->False]], "Print",
6690 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6691  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6692  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063396703*^9}],
6693
6694Cell[BoxData[
6695 InterpretationBox[
6696  RowBox[{
6697   StyleBox["\<\"\\tWarning!\"\>",
6698    StripOnInput->False,
6699    LineColor->RGBColor[1, 0, 0],
6700    FrontFaceColor->RGBColor[1, 0, 0],
6701    BackFaceColor->RGBColor[1, 0, 0],
6702    GraphicsColor->RGBColor[1, 0, 0],
6703    FontColor->RGBColor[1, 0, 0]],
6704   "\[InvisibleSpace]", "\<\"  The following vertex is not implemented in \
6705FeynRules->CH yet.\"\>"}],
6706  SequenceForm[
6707   Style["\tWarning!",
6708    RGBColor[1, 0, 0]],
6709   "  The following vertex is not implemented in FeynRules->CH yet."],
6710  Editable->False]], "Print",
6711 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6712  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6713  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063603578*^9}],
6714
6715Cell[BoxData[
6716 InterpretationBox[
6717  RowBox[{"\<\"\\t\\t\"\>", "\[InvisibleSpace]",
6718   RowBox[{"{",
6719    RowBox[{
6720     RowBox[{"{",
6721      RowBox[{"\<\"g\"\>", ",", "1"}], "}"}], ",",
6722     RowBox[{"{",
6723      RowBox[{"\<\"g\"\>", ",", "2"}], "}"}], ",",
6724     RowBox[{"{",
6725      RowBox[{"\<\"M1\"\>", ",", "3"}], "}"}], ",",
6726     RowBox[{"{",
6727      RowBox[{"\<\"M1~\"\>", ",", "4"}], "}"}]}], "}"}]}],
6728  SequenceForm["\t\t", {{"g", 1}, {"g", 2}, {"M1", 3}, {"M1~", 4}}],
6729  Editable->False]], "Print",
6730 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6731  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6732  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063604657*^9}],
6733
6734Cell[BoxData["\<\"\\t\\tYou can add this vertex by hand after importing into \
6735CalcHEP.\"\>"], "Print",
6736 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6737  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6738  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110636062803`*^9}],
6739
6740Cell[BoxData["\<\"\\t\\tYou may also wish to help implement it in \
6741FeynRules->CH.\"\>"], "Print",
6742 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6743  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6744  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063606896*^9}],
6745
6746Cell[BoxData[
6747 InterpretationBox[
6748  RowBox[{
6749   StyleBox["\<\"\\tWarning!\"\>",
6750    StripOnInput->False,
6751    LineColor->RGBColor[1, 0, 0],
6752    FrontFaceColor->RGBColor[1, 0, 0],
6753    BackFaceColor->RGBColor[1, 0, 0],
6754    GraphicsColor->RGBColor[1, 0, 0],
6755    FontColor->RGBColor[1, 0, 0]],
6756   "\[InvisibleSpace]", "\<\"  The following vertex is not implemented in \
6757FeynRules->CH yet.\"\>"}],
6758  SequenceForm[
6759   Style["\tWarning!",
6760    RGBColor[1, 0, 0]],
6761   "  The following vertex is not implemented in FeynRules->CH yet."],
6762  Editable->False]], "Print",
6763 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6764  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6765  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063662875*^9}],
6766
6767Cell[BoxData[
6768 InterpretationBox[
6769  RowBox[{"\<\"\\t\\t\"\>", "\[InvisibleSpace]",
6770   RowBox[{"{",
6771    RowBox[{
6772     RowBox[{"{",
6773      RowBox[{"\<\"g\"\>", ",", "1"}], "}"}], ",",
6774     RowBox[{"{",
6775      RowBox[{"\<\"g\"\>", ",", "2"}], "}"}], ",",
6776     RowBox[{"{",
6777      RowBox[{"\<\"M2\"\>", ",", "3"}], "}"}], ",",
6778     RowBox[{"{",
6779      RowBox[{"\<\"M2~\"\>", ",", "4"}], "}"}]}], "}"}]}],
6780  SequenceForm["\t\t", {{"g", 1}, {"g", 2}, {"M2", 3}, {"M2~", 4}}],
6781  Editable->False]], "Print",
6782 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6783  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6784  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063663945*^9}],
6785
6786Cell[BoxData["\<\"\\t\\tYou can add this vertex by hand after importing into \
6787CalcHEP.\"\>"], "Print",
6788 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6789  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6790  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063664558*^9}],
6791
6792Cell[BoxData["\<\"\\t\\tYou may also wish to help implement it in \
6793FeynRules->CH.\"\>"], "Print",
6794 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6795  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6796  3.666010909830435*^9, 3.666010986417746*^9, 3.666011063665098*^9}],
6797
6798Cell[BoxData[
6799 InterpretationBox[
6800  RowBox[{
6801   StyleBox["\<\"\\nFinishing\"\>",
6802    StripOnInput->False,
6803    LineColor->RGBColor[0, 0, 1],
6804    FrontFaceColor->RGBColor[0, 0, 1],
6805    BackFaceColor->RGBColor[0, 0, 1],
6806    GraphicsColor->RGBColor[0, 0, 1],
6807    FontColor->RGBColor[0, 0, 1]],
6808   "\[InvisibleSpace]", "\<\" vertices file 'lgrng1.mdl'.\"\>"}],
6809  SequenceForm[
6810   Style["\nFinishing",
6811    RGBColor[0, 0, 1]], " vertices file 'lgrng1.mdl'."],
6812  Editable->False]], "Print",
6813 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6814  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6815  3.666010909830435*^9, 3.666010986417746*^9, 3.6660110650097017`*^9}],
6816
6817Cell[BoxData[
6818 InterpretationBox[
6819  RowBox[{
6820   StyleBox["\<\"Finishing\"\>",
6821    StripOnInput->False,
6822    LineColor->RGBColor[0, 0, 1],
6823    FrontFaceColor->RGBColor[0, 0, 1],
6824    BackFaceColor->RGBColor[0, 0, 1],
6825    GraphicsColor->RGBColor[0, 0, 1],
6826    FontColor->RGBColor[0, 0, 1]],
6827   "\[InvisibleSpace]", "\<\" internal parameter file 'func1.mdl'.\"\>"}],
6828  SequenceForm[
6829   Style["Finishing",
6830    RGBColor[0, 0, 1]], " internal parameter file 'func1.mdl'."],
6831  Editable->False]], "Print",
6832 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6833  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6834  3.666010909830435*^9, 3.666010986417746*^9, 3.666011065066032*^9}],
6835
6836Cell[BoxData[
6837 InterpretationBox[
6838  RowBox[{
6839   StyleBox["\<\"\\nDone\"\>",
6840    StripOnInput->False,
6841    LineColor->RGBColor[0, 0, 1],
6842    FrontFaceColor->RGBColor[0, 0, 1],
6843    BackFaceColor->RGBColor[0, 0, 1],
6844    GraphicsColor->RGBColor[0, 0, 1],
6845    FontColor->RGBColor[0, 0, 1]],
6846   "\[InvisibleSpace]", "\<\" in 0.23min!\"\>"}],
6847  SequenceForm[
6848   Style["\nDone",
6849    RGBColor[0, 0, 1]], " in 0.23min!"],
6850  Editable->False]], "Print",
6851 CellChangeTimes->{3.6660104175094013`*^9, 3.666010464621735*^9,
6852  3.666010524631405*^9, 3.666010650239482*^9, 3.666010849525848*^9,
6853  3.666010909830435*^9, 3.666010986417746*^9, 3.666011065067363*^9}]
6854}, Open  ]]
6855}, Open  ]]
6856}, Open  ]]
6857}, Open  ]]
6858}, Open  ]]
6859}, Open  ]]
6860},
6861WindowSize->{1855, 1176},
6862WindowMargins->{{0, Automatic}, {Automatic, 0}},
6863FrontEndVersion->"10.3 for Linux x86 (64-bit) (December 10, 2015)",
6864StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb",
6865  CharacterEncoding -> "UTF-8"]
6866]
6867(* End of Notebook Content *)
6868
6869(* Internal cache information *)
6870(*CellTagsOutline
6871CellTagsIndex->{}
6872*)
6873(*CellTagsIndex
6874CellTagsIndex->{}
6875*)
6876(*NotebookFileOutline
6877Notebook[{
6878Cell[CellGroupData[{
6879Cell[579, 22, 308, 4, 91, "Title"],
6880Cell[890, 28, 473, 7, 91, "Text"],
6881Cell[1366, 37, 136, 3, 41, "Input"],
6882Cell[1505, 42, 8451, 136, 240, "Input",
6883 InitializationCell->True],
6884Cell[CellGroupData[{
6885Cell[9981, 182, 150, 2, 67, "Section"],
6886Cell[10134, 186, 598, 14, 86, "Input",
6887 InitializationCell->True],
6888Cell[CellGroupData[{
6889Cell[10757, 204, 765, 18, 86, "Input",
6890 InitializationCell->True],
6891Cell[CellGroupData[{
6892Cell[11547, 226, 229, 3, 23, "Print"],
6893Cell[11779, 231, 510, 10, 23, "Print"],
6894Cell[12292, 243, 283, 4, 23, "Print"],
6895Cell[12578, 249, 215, 3, 23, "Print"],
6896Cell[12796, 254, 228, 3, 23, "Print"],
6897Cell[13027, 259, 278, 4, 23, "Print"],
6898Cell[13308, 265, 278, 4, 23, "Print"],
6899Cell[13589, 271, 215, 3, 23, "Print"],
6900Cell[13807, 276, 244, 3, 23, "Print"],
6901Cell[14054, 281, 215, 3, 23, "Print"],
6902Cell[14272, 286, 282, 4, 23, "Print"]
6903}, Open  ]]
6904}, Open  ]],
6905Cell[CellGroupData[{
6906Cell[14603, 296, 2319, 43, 152, "Input",
6907 InitializationCell->True],
6908Cell[CellGroupData[{
6909Cell[16947, 343, 237, 3, 23, "Print"],
6910Cell[17187, 348, 255, 3, 23, "Print"],
6911Cell[17445, 353, 226, 3, 23, "Print"],
6912Cell[17674, 358, 226, 3, 23, "Print"],
6913Cell[17903, 363, 361, 7, 23, "Print"],
6914Cell[18267, 372, 226, 3, 23, "Print"],
6915Cell[18496, 377, 246, 3, 23, "Print"],
6916Cell[18745, 382, 264, 4, 23, "Print"],
6917Cell[19012, 388, 263, 4, 23, "Print"],
6918Cell[19278, 394, 215, 3, 23, "Print"],
6919Cell[19496, 399, 245, 3, 23, "Print"],
6920Cell[19744, 404, 248, 3, 23, "Print"],
6921Cell[19995, 409, 248, 3, 23, "Print"],
6922Cell[20246, 414, 461, 9, 43, "Print"]
6923}, Open  ]]
6924}, Open  ]],
6925Cell[CellGroupData[{
6926Cell[20756, 429, 176, 4, 41, "Input"],
6927Cell[CellGroupData[{
6928Cell[20957, 437, 306, 6, 23, "Print"],
6929Cell[21266, 445, 246, 5, 23, "Print"],
6930Cell[21515, 452, 242, 5, 23, "Print"],
6931Cell[21760, 459, 109, 1, 23, "Print"],
6932Cell[21872, 462, 114, 1, 23, "Print"],
6933Cell[21989, 465, 114, 1, 23, "Print"],
6934Cell[22106, 468, 114, 1, 23, "Print"],
6935Cell[22223, 471, 114, 1, 23, "Print"],
6936Cell[22340, 474, 108, 1, 23, "Print"],
6937Cell[22451, 477, 126, 1, 23, "Print"],
6938Cell[22580, 480, 123, 1, 23, "Print"],
6939Cell[22706, 483, 114, 1, 23, "Print"]
6940}, Open  ]],
6941Cell[22835, 487, 1180, 21, 23, "Message"],
6942Cell[CellGroupData[{
6943Cell[24040, 512, 657, 17, 23, "Print"],
6944Cell[24700, 531, 107, 1, 23, "Print"]
6945}, Open  ]],
6946Cell[24822, 535, 1276, 24, 23, "Message"],
6947Cell[26101, 561, 760, 19, 23, "Print"]
6948}, Open  ]]
6949}, Open  ]],
6950Cell[CellGroupData[{
6951Cell[26910, 586, 106, 1, 67, "Section"],
6952Cell[CellGroupData[{
6953Cell[27041, 591, 102, 1, 33, "Subsection"],
6954Cell[CellGroupData[{
6955Cell[27168, 596, 195, 3, 41, "Input"],
6956Cell[27366, 601, 5872, 166, 130, "Output"]
6957}, Open  ]],
6958Cell[CellGroupData[{
6959Cell[33275, 772, 262, 4, 41, "Input"],
6960Cell[33540, 778, 895, 15, 23, "Print"],
6961Cell[34438, 795, 13474, 408, 310, "Output"]
6962}, Open  ]]
6963}, Closed]],
6964Cell[CellGroupData[{
6965Cell[47961, 1209, 240, 3, 32, "Subsection"],
6966Cell[CellGroupData[{
6967Cell[48226, 1216, 784, 22, 130, "Input"],
6968Cell[CellGroupData[{
6969Cell[49035, 1242, 882, 19, 23, "Print"],
6970Cell[49920, 1263, 637, 11, 23, "Print"],
6971Cell[50560, 1276, 670, 12, 23, "Print"],
6972Cell[51233, 1290, 1151, 23, 23, "Print"],
6973Cell[52387, 1315, 748, 15, 23, "Print"]
6974}, Open  ]]
6975}, Open  ]],
6976Cell[CellGroupData[{
6977Cell[53184, 1336, 1027, 26, 130, "Input"],
6978Cell[CellGroupData[{
6979Cell[54236, 1366, 923, 20, 23, "Print"],
6980Cell[55162, 1388, 698, 12, 23, "Print"],
6981Cell[55863, 1402, 711, 13, 23, "Print"],
6982Cell[56577, 1417, 1207, 24, 23, "Print"],
6983Cell[57787, 1443, 793, 16, 23, "Print"]
6984}, Open  ]]
6985}, Open  ]],
6986Cell[CellGroupData[{
6987Cell[58629, 1465, 369, 6, 41, "Input"],
6988Cell[59001, 1473, 16472, 465, 532, "Output"]
6989}, Open  ]]
6990}, Closed]],
6991Cell[CellGroupData[{
6992Cell[75522, 1944, 100, 1, 33, "Subsection"],
6993Cell[CellGroupData[{
6994Cell[75647, 1949, 968, 23, 130, "Input"],
6995Cell[CellGroupData[{
6996Cell[76640, 1976, 468, 9, 23, "Print"],
6997Cell[77111, 1987, 405, 10, 23, "Print"],
6998Cell[77519, 1999, 375, 9, 23, "Print"]
6999}, Open  ]]
7000}, Open  ]],
7001Cell[CellGroupData[{
7002Cell[77943, 2014, 375, 7, 41, "Input"],
7003Cell[78321, 2023, 22271, 653, 649, "Output"]
7004}, Open  ]],
7005Cell[CellGroupData[{
7006Cell[100629, 2681, 504, 11, 64, "Input"],
7007Cell[CellGroupData[{
7008Cell[101158, 2696, 481, 10, 23, "Print"],
7009Cell[101642, 2708, 470, 9, 23, "Print"],
7010Cell[102115, 2719, 468, 9, 23, "Print"],
7011Cell[102586, 2730, 465, 9, 23, "Print"]
7012}, Open  ]]
7013}, Open  ]]
7014}, Closed]]
7015}, Open  ]],
7016Cell[CellGroupData[{
7017Cell[103124, 2747, 169, 2, 67, "Section"],
7018Cell[CellGroupData[{
7019Cell[103318, 2753, 99, 1, 33, "Subsection"],
7020Cell[CellGroupData[{
7021Cell[103442, 2758, 420, 7, 41, "Input"],
7022Cell[CellGroupData[{
7023Cell[103887, 2769, 2478, 34, 23, "Print"],
7024Cell[106368, 2805, 2476, 34, 23, "Print"],
7025Cell[108847, 2841, 2669, 41, 23, "Print"],
7026Cell[111519, 2884, 2424, 33, 23, "Print"],
7027Cell[113946, 2919, 2457, 34, 23, "Print"],
7028Cell[116406, 2955, 2936, 45, 23, "Print"],
7029Cell[119345, 3002, 2539, 37, 23, "Print"],
7030Cell[121887, 3041, 2425, 33, 23, "Print"]
7031}, Open  ]],
7032Cell[124327, 3077, 2381, 33, 41, "Output"]
7033}, Open  ]],
7034Cell[CellGroupData[{
7035Cell[126745, 3115, 227, 4, 41, "Input"],
7036Cell[126975, 3121, 1306, 18, 23, "Print"],
7037Cell[128284, 3141, 95, 1, 41, "Output"]
7038}, Open  ]],
7039Cell[CellGroupData[{
7040Cell[128416, 3147, 372, 6, 41, "Input"],
7041Cell[CellGroupData[{
7042Cell[128813, 3157, 1972, 31, 23, "Print"],
7043Cell[130788, 3190, 1754, 25, 23, "Print"]
7044}, Open  ]],
7045Cell[132557, 3218, 624, 12, 41, "Output"]
7046}, Open  ]],
7047Cell[CellGroupData[{
7048Cell[133218, 3235, 357, 6, 41, "Input"],
7049Cell[133578, 3243, 1755, 25, 23, "Print"],
7050Cell[135336, 3270, 624, 12, 41, "Output"]
7051}, Open  ]],
7052Cell[CellGroupData[{
7053Cell[135997, 3287, 367, 6, 41, "Input"],
7054Cell[CellGroupData[{
7055Cell[136389, 3297, 983, 19, 23, "Print"],
7056Cell[137375, 3318, 765, 13, 23, "Print"]
7057}, Open  ]],
7058Cell[138155, 3334, 628, 12, 41, "Output"]
7059}, Open  ]],
7060Cell[CellGroupData[{
7061Cell[138820, 3351, 344, 5, 41, "Input"],
7062Cell[CellGroupData[{
7063Cell[139189, 3360, 987, 19, 23, "Print"],
7064Cell[140179, 3381, 767, 13, 23, "Print"],
7065Cell[140949, 3396, 779, 13, 23, "Print"]
7066}, Open  ]],
7067Cell[141743, 3412, 681, 10, 41, "Output"]
7068}, Open  ]],
7069Cell[CellGroupData[{
7070Cell[142461, 3427, 320, 5, 41, "Input"],
7071Cell[CellGroupData[{
7072Cell[142806, 3436, 1056, 20, 23, "Print"],
7073Cell[143865, 3458, 833, 14, 23, "Print"],
7074Cell[144701, 3474, 827, 14, 23, "Print"],
7075Cell[145531, 3490, 868, 15, 23, "Print"]
7076}, Open  ]],
7077Cell[146414, 3508, 1384, 34, 104, "Output"]
7078}, Open  ]],
7079Cell[CellGroupData[{
7080Cell[147835, 3547, 1826, 46, 174, "Input"],
7081Cell[149664, 3595, 1449, 25, 23, "Print"]
7082}, Open  ]]
7083}, Open  ]],
7084Cell[CellGroupData[{
7085Cell[151162, 3626, 104, 1, 33, "Subsection"],
7086Cell[CellGroupData[{
7087Cell[151291, 3631, 1279, 34, 152, "Input"],
7088Cell[CellGroupData[{
7089Cell[152595, 3669, 1004, 18, 23, "Print"],
7090Cell[153602, 3689, 757, 10, 23, "Print"],
7091Cell[154362, 3701, 790, 11, 23, "Print"],
7092Cell[155155, 3714, 1274, 22, 23, "Print"],
7093Cell[156432, 3738, 872, 14, 23, "Print"],
7094Cell[157307, 3754, 1103, 18, 23, "Print"],
7095Cell[158413, 3774, 1040, 19, 23, "Print"],
7096Cell[159456, 3795, 1009, 18, 23, "Print"]
7097}, Open  ]]
7098}, Open  ]],
7099Cell[CellGroupData[{
7100Cell[160514, 3819, 103, 1, 31, "Subsubsection"],
7101Cell[CellGroupData[{
7102Cell[160642, 3824, 9548, 241, 596, "Input"],
7103Cell[CellGroupData[{
7104Cell[170215, 4069, 1714, 45, 53, "Print"],
7105Cell[171932, 4116, 1714, 45, 53, "Print"],
7106Cell[173649, 4163, 1314, 32, 54, "Print"],
7107Cell[174966, 4197, 1198, 29, 53, "Print"],
7108Cell[176167, 4228, 958, 22, 46, "Print"]
7109}, Open  ]]
7110}, Open  ]]
7111}, Open  ]],
7112Cell[CellGroupData[{
7113Cell[177186, 4257, 156, 2, 31, "Subsubsection"],
7114Cell[CellGroupData[{
7115Cell[177367, 4263, 5707, 145, 374, "Input"],
7116Cell[CellGroupData[{
7117Cell[183099, 4412, 1422, 41, 53, "Print"],
7118Cell[184524, 4455, 566, 15, 48, "Print"],
7119Cell[185093, 4472, 2230, 57, 53, "Print"]
7120}, Open  ]]
7121}, Open  ]],
7122Cell[CellGroupData[{
7123Cell[187372, 4535, 713, 19, 64, "Input"],
7124Cell[188088, 4556, 1143, 37, 72, "Output"]
7125}, Open  ]],
7126Cell[CellGroupData[{
7127Cell[189268, 4598, 277, 5, 41, "Input"],
7128Cell[189548, 4605, 5916, 173, 179, "Output"]
7129}, Open  ]]
7130}, Open  ]],
7131Cell[CellGroupData[{
7132Cell[195513, 4784, 107, 1, 31, "Subsubsection"],
7133Cell[195623, 4787, 4800, 123, 367, "Input"]
7134}, Closed]],
7135Cell[CellGroupData[{
7136Cell[200460, 4915, 158, 2, 31, "Subsubsection"],
7137Cell[200621, 4919, 9976, 249, 643, "Input"]
7138}, Closed]]
7139}, Closed]],
7140Cell[CellGroupData[{
7141Cell[210646, 5174, 124, 1, 33, "Subsection"],
7142Cell[CellGroupData[{
7143Cell[210795, 5179, 368, 8, 86, "Input"],
7144Cell[211166, 5189, 4107, 121, 79, "Output"],
7145Cell[215276, 5312, 605, 8, 41, "Output"]
7146}, Open  ]],
7147Cell[CellGroupData[{
7148Cell[215918, 5325, 4125, 102, 438, "Input"],
7149Cell[CellGroupData[{
7150Cell[220068, 5431, 1416, 24, 23, "Print"],
7151Cell[221487, 5457, 1172, 16, 23, "Print"],
7152Cell[222662, 5475, 1207, 17, 23, "Print"],
7153Cell[223872, 5494, 1683, 28, 23, "Print"],
7154Cell[225558, 5524, 1285, 20, 23, "Print"],
7155Cell[226846, 5546, 1417, 24, 23, "Print"],
7156Cell[228266, 5572, 1172, 16, 23, "Print"],
7157Cell[229441, 5590, 1207, 17, 23, "Print"],
7158Cell[230651, 5609, 1683, 28, 23, "Print"],
7159Cell[232337, 5639, 1285, 20, 23, "Print"],
7160Cell[233625, 5661, 1445, 25, 23, "Print"]
7161}, Open  ]],
7162Cell[235085, 5689, 3447, 88, 73, "Output"],
7163Cell[238535, 5779, 3447, 88, 73, "Output"],
7164Cell[241985, 5869, 1495, 25, 23, "Print"],
7165Cell[243483, 5896, 3447, 88, 73, "Output"],
7166Cell[246933, 5986, 3449, 88, 73, "Output"],
7167Cell[250385, 6076, 1451, 25, 23, "Print"]
7168}, Open  ]]
7169}, Closed]]
7170}, Open  ]],
7171Cell[CellGroupData[{
7172Cell[251897, 6108, 97, 1, 67, "Section"],
7173Cell[CellGroupData[{
7174Cell[252019, 6113, 99, 1, 32, "Subsection"],
7175Cell[252121, 6116, 851, 22, 108, "Input"],
7176Cell[CellGroupData[{
7177Cell[252997, 6142, 119, 1, 31, "Subsubsection"],
7178Cell[CellGroupData[{
7179Cell[253141, 6147, 1659, 33, 152, "Input",
7180 InitializationCell->True],
7181Cell[CellGroupData[{
7182Cell[254825, 6184, 284, 4, 23, "Print"],
7183Cell[255112, 6190, 509, 11, 23, "Print"],
7184Cell[255624, 6203, 264, 3, 23, "Print"],
7185Cell[255891, 6208, 297, 4, 23, "Print"],
7186Cell[256191, 6214, 782, 15, 23, "Print"],
7187Cell[256976, 6231, 383, 7, 23, "Print"],
7188Cell[257362, 6240, 612, 11, 23, "Print"],
7189Cell[257977, 6253, 275, 3, 23, "Print"],
7190Cell[258255, 6258, 547, 12, 23, "Print"],
7191Cell[258805, 6272, 515, 11, 23, "Print"],
7192Cell[259323, 6285, 477, 8, 23, "Print"],
7193Cell[259803, 6295, 465, 8, 23, "Print"],
7194Cell[260271, 6305, 263, 3, 23, "Print"],
7195Cell[260537, 6310, 285, 4, 23, "Print"],
7196Cell[260825, 6316, 635, 11, 23, "Print"],
7197Cell[261463, 6329, 257, 3, 23, "Print"],
7198Cell[261723, 6334, 242, 3, 23, "Print"]
7199}, Open  ]]
7200}, Open  ]]
7201}, Open  ]]
7202}, Open  ]],
7203Cell[CellGroupData[{
7204Cell[262038, 6345, 101, 1, 32, "Subsection"],
7205Cell[262142, 6348, 697, 19, 108, "Input"],
7206Cell[CellGroupData[{
7207Cell[262864, 6371, 176, 2, 31, "Subsubsection"],
7208Cell[CellGroupData[{
7209Cell[263065, 6377, 1727, 34, 152, "Input",
7210 InitializationCell->True],
7211Cell[CellGroupData[{
7212Cell[264817, 6415, 285, 3, 23, "Print"],
7213Cell[265105, 6420, 723, 17, 23, "Print"],
7214Cell[265831, 6439, 718, 17, 23, "Print"],
7215Cell[266552, 6458, 824, 22, 43, "Print"],
7216Cell[267379, 6482, 690, 17, 43, "Print"],
7217Cell[268072, 6501, 724, 18, 23, "Print"],
7218Cell[268799, 6521, 351, 5, 43, "Print"],
7219Cell[269153, 6528, 295, 4, 23, "Print"],
7220Cell[269451, 6534, 702, 17, 43, "Print"],
7221Cell[270156, 6553, 702, 17, 43, "Print"],
7222Cell[270861, 6572, 704, 17, 43, "Print"],
7223Cell[271568, 6591, 238, 3, 23, "Print"],
7224Cell[271809, 6596, 510, 11, 23, "Print"],
7225Cell[272322, 6609, 264, 3, 23, "Print"],
7226Cell[272589, 6614, 489, 9, 23, "Print"],
7227Cell[273081, 6625, 298, 4, 23, "Print"],
7228Cell[273382, 6631, 785, 15, 23, "Print"],
7229Cell[274170, 6648, 382, 7, 23, "Print"],
7230Cell[274555, 6657, 611, 11, 23, "Print"],
7231Cell[275169, 6670, 895, 21, 62, "Print"],
7232Cell[276067, 6693, 762, 19, 23, "Print"],
7233Cell[276832, 6714, 708, 17, 23, "Print"],
7234Cell[277543, 6733, 309, 4, 23, "Print"],
7235Cell[277855, 6739, 302, 4, 23, "Print"],
7236Cell[278160, 6745, 762, 19, 23, "Print"],
7237Cell[278925, 6766, 708, 17, 23, "Print"],
7238Cell[279636, 6785, 307, 4, 23, "Print"],
7239Cell[279946, 6791, 302, 4, 23, "Print"],
7240Cell[280251, 6797, 690, 17, 43, "Print"],
7241Cell[280944, 6816, 701, 17, 23, "Print"],
7242Cell[281648, 6835, 646, 17, 43, "Print"]
7243}, Open  ]]
7244}, Open  ]]
7245}, Open  ]]
7246}, Open  ]]
7247}, Open  ]]
7248}, Open  ]]
7249}
7250]
7251*)
7252
7253(* End of internal cache information *)