Context Navigation

Back to SimplifiedDM

SimplifiedDM: resonance_met.nb

File resonance_met.nb, 288.0 KB (added by Maikel de Vries, 9 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 157, 7]
13	NotebookDataLength[ 294732, 7244]
14	NotebookOptionsPosition[ 282370, 6860]
15	NotebookOutlinePosition[ 282779, 6876]
16	CellTagsIndexPosition[ 282736, 6873]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["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
29	Cell[TextData[StyleBox["Open Issues:\n * Replace Eps(*) with 1 to fix the \
30	CalcHEP 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 \
32	CalcHEP 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
38	Cell[BoxData[
39	RowBox[{
40	RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
41	CellChangeTimes->{{3.551418340255722^9, 3.551418341644471^9}}],
42
43	Cell[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
181	Cell[CellGroupData[{
182
183	Cell["Load Model", "Section",
184	CellChangeTimes->{{3.5514194743215218`^9, 3.5514194790813303`^9}, {
185	3.569143880069605^9, 3.5691438813657913`^9}}],
186
187	Cell[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
203	Cell[CellGroupData[{
204
205	Cell[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
225	Cell[CellGroupData[{
226
227	Cell[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
232	Cell[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
244	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
245	B. 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
250	Cell[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
255	Cell[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
260	Cell[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
266	Cell[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
272	Cell[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
277	Cell[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
282	Cell[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
287	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
288	FRPalette[].\"\>"], "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
295	Cell[CellGroupData[{
296
297	Cell[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
342	Cell[CellGroupData[{
343
344	Cell[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
349	Cell[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
354	Cell[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
359	Cell[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
364	Cell[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
373	Cell[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
378	Cell[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
383	Cell[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
389	Cell[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
395	Cell[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
400	Cell[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
405	Cell[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
410	Cell[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
415	Cell[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
428	Cell[CellGroupData[{
429
430	Cell[BoxData[
431	RowBox[{
432	RowBox[{"ModelInformation", "[", "]"}], ";"}]], "Input",
433	CellChangeTimes->{{3.665399643551157^9, 3.665399646794608^9},
434	3.6654746438885736`*^9}],
435
436	Cell[CellGroupData[{
437
438	Cell[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
446	Cell[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
453	Cell[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
460	Cell[BoxData["\<\"Authors: \"\>"], "Print",
461	CellChangeTimes->{3.6654876724795523`^9, 3.666010477029273^9}],
462
463	Cell[BoxData["\<\" A. Kaminska\"\>"], "Print",
464	CellChangeTimes->{3.6654876724795523`^9, 3.666010477029868^9}],
465
466	Cell[BoxData["\<\" M. de Vries\"\>"], "Print",
467	CellChangeTimes->{3.6654876724795523`^9, 3.666010477030424^9}],
468
469	Cell[BoxData["\<\"Institutions: \"\>"], "Print",
470	CellChangeTimes->{3.6654876724795523`^9, 3.666010477030982^9}],
471
472	Cell[BoxData["\<\" MITP, Mainz\"\>"], "Print",
473	CellChangeTimes->{3.6654876724795523`^9, 3.666010477031537^9}],
474
475	Cell[BoxData["\<\"Emails: \"\>"], "Print",
476	CellChangeTimes->{3.6654876724795523`^9, 3.666010477032092^9}],
477
478	Cell[BoxData["\<\" akaminsk@uni-mainz.de\"\>"], "Print",
479	CellChangeTimes->{3.6654876724795523`^9, 3.6660104770326977`^9}],
480
481	Cell[BoxData["\<\" mdevrie@uni-mainz.de\"\>"], "Print",
482	CellChangeTimes->{3.6654876724795523`^9, 3.666010477033287^9}],
483
484	Cell[BoxData["\<\"References: \"\>"], "Print",
485	CellChangeTimes->{3.6654876724795523`^9, 3.6660104770338783`^9}]
486	}, Open ]],
487
488	Cell[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[{\\\"\\\\\\\" \\\\\\\"\\\", \\\"<>\\\", \
496	TagBox[ButtonBox[PaneSelectorBox[{False -> \
497	\\\"\\\\\\\"http://arxiv.org/abs/1510.03434\\\\\\\"\\\", Rule[True, StyleBox[\
498	\\\"\\\\\\\"http://arxiv.org/abs/1510.03434\\\\\\\"\\\", \
499	List[\\\"HyperlinkActive\\\"]]]}, Dynamic[CurrentValue[\\\"MouseOver\\\"]], \
500	Rule[BaseStyle, List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], \
501	Rule[ImageSize, Automatic]], Rule[BaseStyle, \\\"Hyperlink\\\"], \
502	Rule[ButtonData, List[URL[\\\"http://arxiv.org/abs/1510.03434\\\"], None]], \
503	Rule[ButtonNote, \\\"http://arxiv.org/abs/1510.03434\\\"]], \
504	Function[Annotation[Slot[1], \\\"http://arxiv.org/abs/1510.03434\\\", \
505	\\\"Hyperlink\\\"]]]}]\\)\[NoBreak]. \
506	\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
507	ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
508	\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
509	CellChangeTimes->{3.666010477080987*^9}],
510
511	Cell[CellGroupData[{
512
513	Cell[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
532	Cell[BoxData["\<\"URL's: \"\>"], "Print",
533	CellChangeTimes->{3.6654876724795523`^9, 3.666010477083047^9}]
534	}, Open ]],
535
536	Cell[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[{\\\"\\\\\\\" \\\\\\\"\\\", \\\"<>\\\", \
544	TagBox[ButtonBox[PaneSelectorBox[{False -> \
545	\\\"\\\\\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\\\\\"\\\", \
546	Rule[True, \
547	StyleBox[\\\"\\\\\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\\\\\"\
548	\\\", List[\\\"HyperlinkActive\\\"]]]}, \
549	Dynamic[CurrentValue[\\\"MouseOver\\\"]], Rule[BaseStyle, \
550	List[\\\"Hyperlink\\\"]], Rule[FrameMargins, 0], Rule[ImageSize, Automatic]], \
551	Rule[BaseStyle, \\\"Hyperlink\\\"], Rule[ButtonData, \
552	List[URL[\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\"], None]], \
553	Rule[ButtonNote, \\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\"]], \
554	Function[Annotation[Slot[1], \
555	\\\"http://feynrules.irmp.ucl.ac.be/wiki/SimplifiedDM\\\", \
556	\\\"Hyperlink\\\"]]]}]\\)\[NoBreak]. \
557	\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
558	ButtonFrame->None, ButtonData:>\\\"paclet:ref/StringJoin\\\", ButtonNote -> \
559	\\\"StringJoin::string\\\"]\\)\"\>"}]], "Message", "MSG",
560	CellChangeTimes->{3.666010477137003*^9}],
561
562	Cell[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
585	Cell[CellGroupData[{
586
587	Cell["Lagrangian & Vertices", "Section",
588	CellChangeTimes->{{3.634887228523443^9, 3.634887238238522^9}}],
589
590	Cell[CellGroupData[{
591
592	Cell["Lagrangian", "Subsection",
593	CellChangeTimes->{{3.6348872639011497`^9, 3.6348872656833563`^9}}],
594
595	Cell[CellGroupData[{
596
597	Cell[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
602	Cell[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
771	Cell[CellGroupData[{
772
773	Cell[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
779	Cell[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
796	Cell[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
1208	Cell[CellGroupData[{
1209
1210	Cell["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
1215	Cell[CellGroupData[{
1216
1217	Cell[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
1241	Cell[CellGroupData[{
1242
1243	Cell[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["
1253	1:eJwVxVsoA1AYAOCRtJFoos0kkxaxWrGxue1sSshkG0nbzOySCFkiEVvLXhRS
1254	KLeSB4UUoglPLHN7sYZCQ2k5kVvNJpf/PHx9bF2b3BBCoVAEQOV5Wu2Lw4i+
1255	6xJZ4LRPQYQNfrPeNZLdVxd2MgeZmIOwod3LssP3Af78Ijw8Ze5agsPLhU4y
1256	L8R0TR6XJBsYmRiJ7XOLZKWi+IC8z6xTM2FJOkWQAJt+paUsWGP0a8m2ElmF
1257	Hm71u8eNcFAcXJmEu5ept1lcjFweX2Q27Hn1ppOPbnrk5NBjei+ZwcwY4cOZ
1258	lqpYAfwT5w8rhGfZnzlqeKjmu8AA75m3NshPZxEzDjhJ+M7ahp2pqUfky+n4
1259	Z7Kb00R38DAaKPtrGRNh9DLXYWzKw2hC96HLyccoUZbQoIV3TqIOm+EYl+zV
1260	B6es0f40BRit37RS3UUYKfy+xnMxRrr+bVqVBCN957yUK4Vt1oXNCox+E88C
1261	4TKMLF+K0epKjN7rc5W18M5ppIkc/aB9VMH/hezMsg==
1262	"]],
1263
1264	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1265	CellChangeTimes->CompressedData["
1266	1:eJwVxVsoA1AYAOBNWjYpTWS2ZJLIlGKbjbGzKSETm0saZnZJhCyRiK1lLwop
1267	lMtKHlZIISI8sWwuL9ZQCA9aO5FbzSaX/zx8fVxtZ5WeSqFQBEDt9a8NxmLE
1268	3HeJzXDap4Bhhd8sDy1kz/WljZyKjKwRWN91z7bBj0H+ogMemzX1LsO0MpGT
1269	nEU13pCnZEn6eB5GUpvdQVYpi47Ih6z6BhYsS6cIEmDjr7yEDTcaAhqytVhR
1270	roM7Ap4pAxyShlZn4L6ViLvsTIxcXl9kDux9vU8nu2/7q8hhJ8wBcjwrY5wP
1271	88yVMQL4JzYQXgAvcD+FDfBozbdEDx+YtjfJ/nPG/A6cKHpn78LOlBQ3+Wou
1272	7pnsSW1l7mRhNFz61z4pxujF3m1ozcNoWvuhFeZjxFEkNGvgvdOo4zY42qV4
1273	9cHJ6/S/RglGG7cdEZ5CjJQBX8uFFCPt0C69UoaRrmdRnimHrZalrXKMfjnn
1274	QZoCI/OXcqK6AqP3plxVHbx3Fmkk1/o1T2r4H4hdzQE=
1275	"]],
1276
1277	Cell[BoxData["\<\"Collecting the different structures that enter the \
1278	vertex.\"\>"], "Print",
1279	CellChangeTimes->CompressedData["
1280	1:eJwVxVsow1EcAOCRhKU0kW2SSYtstZpt7nY2JWSajaSN2WxLhEgkYlr2opBC
1281	uZU8KKQQTeMJ2VxerKHQeNByIkb9mWx+5+Hr4+g7qo1hNBpNDDSel83BBIwY
1282	B848C5zxJY6xwh8jjway+/baRuYiM3MUNnZ62Tb46Ue0vAqPz3X3rsGRFbkn
1283	ZEGY+Y48LUs1JvEwktqWVslqVckx+YhZr2XCskyamAWbg/IyNtxgonRka6mi
1284	shlup9zTJjggDWzMwn3rUQ9CPkZOj4+eDXvevZlk131/NTn8jDFATmJmTYhg
1285	nkUZL4b/EqiIIniR8yXRwmO1v4VG+LB7b4f8chmzYIdTcv3sffgkPd1FvplP
1286	fCW7uS0MuwCj4fJQ21QeRm9LXaaWfIxm9J96SQFGyQpWkw52nMeetsJxTsW7
1287	D07big41FGK0fd8e5S7GSEX5DFdSjPRD+9FKGUbNPctyvhy2jqzsVmIUTL78
1288	iVRgZPlWTdZUYeRvzFHXwY4Lupks5NqfNfA/g/fMcg==
1289	"]],
1290
1291	Cell[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 \
1301	computation: ",
1302	Dynamic[FeynRules`FR$FeynmanRules], " / ", 98, "."],
1303	Editable->False]], "Print",
1304	CellChangeTimes->CompressedData["
1305	1:eJwVxVsoA1AYAOBNWrOlNE2bSSYtQq3YMMbOpoRMDEnMjG0tQqRJxNayF4XU
1306	KJeVPCikEFnIAzK3F2soEx60diKX1Vwy/vPw9fG1HZU6KoVCEYN6j391gI0R
1307	a9clMcPJATHDCr9ZHprJ7psrG1mADNxhWNd5z7PBj1+i+UV4dLrbtATTSnOO
1308	yEKq4ZZslyfoOGkYyWyORXKVqvCQfMCta+DC8hSKOBY2hBTFPFitD2rI1iJl
1309	WQvcHnTb9fC37HtlCu5dpt9lpGPk8viYmbDn9T6FfOLtqySHnbL6yRxu6pgI
1310	TjNXRIvhX3YwPB+e4weyGuCRmh+pDt7r3tog+y8Ys9twfM47zwkfJSWdkK9n
1311	Yp7JboGRtS3EaKjkr21CgtGLo0tvzMVoUvuhzcrDKE4Z26SBd84ij1vhKJfy
1312	1QcnrkX8qaUYrXvb6e4CjFRBX/OlDCPtoDOiQo5RS8+8Il0BWy0Lm2UYheIu
1313	vmhKjMyfqvHqcozeG7OrauGdc6aBvG9yPtXD/4qczVE=
1314	"]],
1315
1316	Cell[BoxData[
1317	InterpretationBox[
1318	RowBox[{"93", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1319	SequenceForm[93, " vertices obtained."],
1320	Editable->False]], "Print",
1321	CellChangeTimes->CompressedData["
1322	1:eJwVxVsoA1AYAOBNLLOUJtotIYlQio2NsbMpIRNDEsOuiZAlErG17EUhhWKU
1323	PCikEFnjiWVzebGGMo0Xy4ncakzMfx6+viRVd42WSqFQBKDJ87Q5HIcR88Ap
1324	MsJpn4IoM/xmuleT3TdXFnIq0rPHYG2Pj2uBH775y6vwxLyhfw2mVQgd5Gyq
1325	/pY8I03UsjIxkliWVsm1ipJj8hG7sZkNS9MpAg6s/5OVcWGlLtBKNpfKKzVw
1326	V8A9o4ODkuDGHDywHnmXk4WR0+Nn5MKeV1862eUdrCGHnTKHyCx2xiQfzjRW
1327	xwrg37hAeBG8mPSZ1wyP1/+ItfChYW+H/HQRZd2HE4TvXBvsSElxka8X4p/J
1328	7tR25n42RqPloc5pEUYvS7269gKMZlUfqrxCjHhyTlsrbD+LPumAY5zyVz+c
1329	vEUPKcUYbXu7It3FGCkCfvWlBCPViI1eLcVI07csy5LBZtPKbiVGf7yLb5oc
1330	I+OXYqquCqP3lvzaBth+ztCTG60Rj03wP4Q9zF0=
1331	"]]
1332	}, Open ]]
1333	}, Open ]],
1334
1335	Cell[CellGroupData[{
1336
1337	Cell[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
1365	Cell[CellGroupData[{
1366
1367	Cell[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["
1377	1:eJwV0FkoRGEYxvGxJGsNLpBcTCNKiRQp6zeEKQ6mccGFZTCmbImoIXsYFJI1
1378	ZZ1kjXBClsnYcyEmlCgi8slSkxg5x/tePP1un/4iRbEs10wgEITDtlLXudZQ
1379	Sqyy9co2ML/Wphvd16sX0DdNyQcqyVK5toM1N56+6Fe4cR5VT0s3UWOh8gzt
1380	tGyiHeBsRt3REuhetvKANlSeja+AMrOZDbTXZNCsgV6m471n0P/T+xItdZx8
1381	Ql05i0/Uuvr1Fz1kdOIX0OlblIPeac9L0HQj5dD4fmc/CnLK4D50Ipfy6WGU
1382	FKUyDxlgRUjYbhaoX898RJsc7OIUoO1+kFs2qNIND62C7WMOGzfgFWe5fAue
1383	rAbYGCIoMUkWc84jKblgPWJ/wQNzoegPHImO3OHBVsOkzovAj45m22QJ9COB
1384	73JwWz4qVYOng/cMyrSwjhNgff1w+RTICsdm5sEYVryJKk4uT9G2qq1r9IkP
1385	0oiiKBkaHFhDffL6pWJQNieU+4BFjapoX9ClNO0nCXzntS7JoD2J1bIJlBQM
1386	jJisGErKe/iulERK/gGYXQKN
1387	"]],
1388
1389	Cell[BoxData["\<\"Expanding the Lagrangian...\"\>"], "Print",
1390	CellChangeTimes->CompressedData["
1391	1:eJwV0H8o3HEcx/HzI/lZx/5Ayx/XLUrJUqSM+RyNK77muv3BH34czpWNRFsd
1392	bfMjcyiWmh9Tfl7CpgnfEHbt5tfyh7hQsiKyfMTUtezk+/V6//Hq8e+rp8pQ
1393	oStxUygUSdhyzoLU8oQzryK7sRWWvffpJFft5m/kpaXyL6kpNIW0wXeHj6LI
1394	f0nOSdI8rl0ina+M22SHZxNvh1/y6zam4cPq2ROyoWZ7eBbq3CYWyU8uh2Ue
1395	hrt+rfyBj68j9siqwNEzMkTyuCa9317ckuuCTX0Og25UxeSRdaeSzHNyiczo
1396	fhDNoWSM7yJHSricl8hZeY5wkg/fJCT+LIT2hYJTsinAL90AfVfjQougydbf
1397	NwfbhgIWD+G+5DnzG27Oxfg4nnLm0kwV7yRztiuGpd3CNXel6g4OpCb/kGGL
1398	Y9QWzvCj/YNvtgb9WOyVHn7XD2rNcKv3WCCFZjFwBNbX978eg6JyaGISPhPV
1399	S6Rhc2+LbK1dPiDP5DiLKoWzvt6eeTKytFurhrqvSn0kLG80pUbB4Krc/8/h
1400	lWwNzob+LM0qZnL2smfA5SWgx2f544sszu4BmfcCwQ==
1401	"]],
1402
1403	Cell[BoxData["\<\"Collecting the different structures that enter the \
1404	vertex.\"\>"], "Print",
1405	CellChangeTimes->CompressedData["
1406	1:eJwV0Fsog3EcxvE5JKfVcIHkYk2UEilSjv8RVrxYc8GFwzArp0TUyDkMRZRT
1407	CmPJMcIbcljmnAuxUCJE5C+HWmLyzu938fS5ffoK5SXSPAsejxcB20xb49rC
1408	KLHJ0SvawYI6ux50T6+aR9/UpR+oOFvp1gHWXnv5oV8RxjlUNSXZQI1FilO0
1409	y7qZdoIzmfWHi6BH+fID2lh1OrYMSi2m19Fek0G9CnqbjnafwYBPnwu0zGni
1410	CXXjrD5R25rXX/SA0YleQOdvYS56pz0rRTOMlEMT+l38KcgpQvrQ8Txqzgin
1411	pDiNecgEK0PDd7JB/VrWI9rMd4iXg/Z7we45oFI3PLQCdmj469fgJWe9dAMe
1412	rwTaGSIpMYkXcs+iKDlnPeN+wX1LgfAPHImJ2jaDbYYJnTeBH50t9ili6EeC
1413	3mXglmxUogJPBu8ZlGllncbBhobhikmQFWim58BYVrSByo8vTtD26s0r9Mkc
1414	rBZGUzI0OLCK+ub3S0SgdFYg8wWLm5QxfqBrWfpPMvhu1rqmgI4kTssmUlI4
1415	MGKyYSjR3PK7U5Mo+QeWIwIT
1416	"]],
1417
1418	Cell[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 \
1428	computation: ",
1429	Dynamic[FeynRules`FR$FeynmanRules], " / ", 16, "."],
1430	Editable->False]], "Print",
1431	CellChangeTimes->CompressedData["
1432	1:eJwV0G8o3HEcB/Az0jA584C19uA6nVIiNSl/vzfNrvjhOg944M/hXDESbXUT
1433	w7IdyqL8S/l7yd8IvxB27fzPA3GNWlZbZO0rf+oSJ7/b+/Pg3evp+/1W6Mu1
1434	RW4ymSweWc1akppiOfMssBmaYclHr3Zyw2aaJi/MFVekOt8Y1AJrj4PDyJt4
1435	xxRpGtOskI63hn3yq0cjb4UTuXXbs/B51fwJ2fBhf2geat3Gl8kOp928CFXO
1436	nfW/MOI65JCs9B85I4Mk92vycc35PbklWJX/4NNbRSH523JQQeY4uESmdAWE
1437	cygZojvJ4SLuyonjrCxLOMmF72Pi1vKhbSnvlGz09Xmjh94bUc8KoNHa17sA
1438	WwZ9l4/hkeQx9wvuLkR62RM4c6pnCg8SOfshvki+h5uP5IoH2J+U+N0Fm+wj
1439	VhVDj9bP3hlq/MdeXurgN92AxgT3ev4IpPBF9B+G9fV970ahKB8cn4KvReUK
1440	qd893CObq1d/kmeuKLPiFWe9Pd2LZGhxl0YJtZNyXSgs+2RMCoOBldl36fDS
1441	ZQnMgE9YskVM5ay0u9/pKWCHyq8tM42z/5JpAYU=
1442	"]],
1443
1444	Cell[BoxData[
1445	InterpretationBox[
1446	RowBox[{"16", "\[InvisibleSpace]", "\<\" vertices obtained.\"\>"}],
1447	SequenceForm[16, " vertices obtained."],
1448	Editable->False]], "Print",
1449	CellChangeTimes->CompressedData["
1450	1:eJwV0Gkow3Ecx/E5kjlqeIDkwZooJVKWcv5GWPHHmgc8cAyzciWiRu4wFFGu
1451	lHPJGeGfybHMnQdioUQRkZ8ctcTkP9/vg0+vp5/eQkWpLN+Kx+NFwrbS17n2
1452	cErscg3KDrCwnt+L7hvUi+ibpuwDleSoPDrBuhufAPQr0rSAqmekm6ipWHmG
1453	dtu20C5wLqvhaBn0qlh9QJuqzyZWQZnV7AbaZzZqdKCv+XjvGQz69LtEy12m
1454	nlAPzuYTta99/UUPGb3oBXT9Fuahd9rzMjTTRDk0ccAtkIKcMrQfncynlswI
1455	SkrSmYcssCosYjcHNKxnP6Itzo4JCtBhX+yZC6r0I8NrYOe488YNeMXZrtyC
1456	J2vBfGMUJWbJUt55NCUXrHf8L3hgLRD+gaOx0TsWsN04pfcl8KOr1SFVAv1I
1457	yLsc3JaPSdXg6dA9gzJtrMsk2Ng4UjkNsoLx2QUwjhVtooqTy1O0o2brGn2y
1458	iDXCGEqGhwZ1qH/BgFQEyuYFcn+wpFkVGwC6l2f8pIDvFq17KuhE4rVsEiVF
1459	g6NmO4aSSurZk5ZMyT+VWAH+
1460	"]]
1461	}, Open ]]
1462	}, Open ]],
1463
1464	Cell[CellGroupData[{
1465
1466	Cell[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
1474	Cell[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
1943	Cell[CellGroupData[{
1944
1945	Cell["Decay Widths", "Subsection",
1946	CellChangeTimes->{{3.634887352050088^9, 3.634887354446849^9}}],
1947
1948	Cell[CellGroupData[{
1949
1950	Cell[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
1975	Cell[CellGroupData[{
1976
1977	Cell[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
1988	Cell[BoxData[
1989	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
1990	decays: \"\>",
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
2000	Cell[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
2013	Cell[CellGroupData[{
2014
2015	Cell[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
2024	Cell[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
2680	Cell[CellGroupData[{
2681
2682	Cell[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
2695	Cell[CellGroupData[{
2696
2697	Cell[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
2709	Cell[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
2720	Cell[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
2731	Cell[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
2746	Cell[CellGroupData[{
2747
2748	Cell["Model Checks", "Section",
2749	CellChangeTimes->{{3.567840472517931^9, 3.567840476915874^9},
2750	3.569143886101358^9, {3.569144637753002^9, 3.569144639920857*^9}}],
2751
2752	Cell[CellGroupData[{
2753
2754	Cell["FeynRules", "Subsection",
2755	CellChangeTimes->{{3.635147235628291^9, 3.6351472373202047`^9}}],
2756
2757	Cell[CellGroupData[{
2758
2759	Cell[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
2768	Cell[CellGroupData[{
2769
2770	Cell[BoxData["\<\"Checking for hermiticity by calculating the Feynman rules \
2771	contained 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
2806	Cell[BoxData["\<\"If the lagrangian is hermitian, then the number of vertices \
2807	should 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
2842	Cell[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
2885	Cell[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
2920	Cell[BoxData["\<\"Collecting the different structures that enter the \
2921	vertex.\"\>"], "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
2956	Cell[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 \
2966	computation: ",
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
3003	Cell[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
3042	Cell[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
3078	Cell[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
3114	Cell[CellGroupData[{
3115
3116	Cell[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
3122	Cell[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
3142	Cell[BoxData["True"], "Output",
3143	CellChangeTimes->{{3.665486805684328^9, 3.6654868182955^9}}]
3144	}, Open ]],
3145
3146	Cell[CellGroupData[{
3147
3148	Cell[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
3156	Cell[CellGroupData[{
3157
3158	Cell[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
3191	Cell[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
3219	Cell[BoxData["True"], "Output",
3220	CellChangeTimes->CompressedData["
3221	1:eJwVzGkow3EYwPGJRm4vTKTEWCKbcmyZYz/iHbKSlBz/zGbOQtGkZi+EsSi0
3222	iBw5Smq5olZeuLeUzNSSkOX4ZTFHLOF5Xnz7vPtGMk1SmRuLxRJje9GWWjEl
3223	1qVNaSPoYY+QDILbavVjSjolXGNwrRDU9vhr0MmNsuMM0PvprL0STFNK3lCO
3224	KjC2CmRcBlUd+DJye47aX8zXqDXMHl4P6m7TuWhcSAUf9f52b0B5Gq2mF1Tw
3225	+2R94LsizometLzy+sHnfbUYnRubcqKrXka+Fn954lm0lEZdoOzu9Q8dmDpx
3226	urwONusFO2iNUqbaAn9DTV0PoJ9Pl/wJdF75tKLJiQFuFMxes+nR6aNDV3kG
3227	Jff6rFwGfCgZEAyDrj/5/iZoWuYGirIoae1Qi1AaflOCTjwnMuidotNsAMff
3228	TL5F2ZTUJ8wsroCcnyALOiT0D43MoWReGBaPOsY+C9AkKc+IbrRxrlfzKRn9
3229	MrDXQN1C5iK7gJKDtHkb6jhr+UM9RIdKT7A6xrVbXEjJpZ7pLAP/AbEb6RI=
3230
3231	"]]
3232	}, Open ]],
3233
3234	Cell[CellGroupData[{
3235
3236	Cell[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
3244	Cell[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
3271	Cell[BoxData["True"], "Output",
3272	CellChangeTimes->CompressedData["
3273	1:eJwVy2kow3EYwPGNHOVokhdqZEREKGS1Db//zNGYmRwvllghzfVCOUvxxpyl
3274	SI5XwtIiV6Lcx0q80cZGtJTzV8OfZSI8z4tvn1dfgaZeVcHlcDgiaLtw3FQt
3275	oqRb4lpQB5a8qNIGwFv5xlOSmBJ1g7Y6GTybFHehQyvTxxIwqumuuQzcLRp8
3276	R1lnYGQ5qNAftmlBi8FuRv1kJht6PMPya8C5EF0YyjCJ2ejwb1Qt2rhj7dKB
3277	bxPWih78jppYtH/WGdELVi7pRKjy1siiEecHsX3gq1I2hX46mAv0S37iGASz
3278	Aq4Nq/jrM3dQD6a2bR38MXA7HsH49K2qZ9D+ndOIurwruRTku8WMoQPPwd+l
3279	EkrO5f0yDfhmXogbAqU8hXEN5HvV84SplOypzELUNvVTjHp3SDWoZdR4soiu
3280	CXzyGUqcnh/6ebDnocSECoPCAgVSSoIzhNHoVaIkDw3l12yiKQq1bTmXkvvW
3281	X/cVMLy5U++uoMSUwF6iN+X7f2jaiK/WA7Se+h8W5lEi/mxpV4P/+5/qfw==
3282
3283	"]]
3284	}, Open ]],
3285
3286	Cell[CellGroupData[{
3287
3288	Cell[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
3296	Cell[CellGroupData[{
3297
3298	Cell[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["
3306	1:eJwVzVtIk3EcxvF38zAvEkJLNAw0NSWXQRC5Tcm/YvSGa0wxDHSs5aZrWkJD
3307	hQUj8iadm6aiGCEdLjopaR7SCswY5Vop9Io0k4YIuf5eNCO0RtTzu3j43H2f
3308	dNPlcrNMEIRSzD/6Y+ffHs4GGsUEYS9nPuPFC7VKzu501YoW6OtUnaw5zFlm
3309	5pU5M9y1YPdOw3eJ/o8zUN86FCb94ayWHjVnTZMhyarhzDWvq7gER7Y7itzw
3310	aFkodKyAs7dDw9bjUBQd10mDZ8dXCI1dkVYjbE8N/CQXbx3IOQ/frAcdNpgj
3311	bS+RUZHVIPnymrC/ASYnLWWQZq9TJE3vdY3kmHiw7QbsXcm2tMOWGO8WOdgv
3312	z+6AG48HNGSxLbxFlsikPBcM5JXfIzeD55bJtLi1Xx6o/Lz5ZAJO/a2ZJYsm
3313	HY5pmBWb79yAFoW8/ju0fuq2k+qMPhmHboNzkHRJzRFDIWf2zkCpCQ6/lo7c
3314	hNXRXxamYIP2xe78E+jvO6Qi/8wmV5F1UoWJLKhK/DAKyzzN8fpidO+rHo7A
3315	5/F3JfK2qElJL+HsVJ8+l3T3tOnIpLmnr8job4+Cz7Sc/Y45rRiH9V/nH8Se
3316	4WxmVb1CynMTBAVM01baSOtZpbdSh7+x7qvV8D8CNQzv
3317	"]],
3318
3319	Cell[BoxData["\<\"All quadratic terms are diagonal.\"\>"], "Print",
3320	CellChangeTimes->CompressedData["
3321	1:eJwVzFtIk2Ecx/F38zAvFEJTNAo0NSWXQSC5TclHMXrDNaYYCjrWctM1rcCh
3322	woIReZPOzTRJjJAOF52UrDxWYMYo18rAV6KZNFLI9XjRjNAaUb//xZfP3TfD
3323	dK7SLBMEoRz5x35s/9vJ2WCLmCgkc+YznjndoOTsZm+DaIG+HtXR+gOcZWW1
3324	zplh/ILdOw3fJPnfz0B9x3CY9Iez2/vVnJ2fCElWDWeueV3VWTi61V3ihocq
3325	QqGCIs5eD49YD0NRdFwiDZ5tXzE09kY6jLBrd+An+eH63txT8NVa0GGDudLW
3326	EhkVWQmSzy8Ke5phaspSJmn2OkXS9FbXQj4W93VehleXcyxdsD3Gu0kOXZPn
3327	dMP1B4MastQW3iTLZFK+CwbyK2+TG8Haj2R63NdfHqj8tPFwHE7+rZ8lSyYc
3328	jmmYHVvoXIcWhbzpO7QuXrGT6swBGYdug3OIdEltEUMxZ/aeQLkJjryUDvbB
3329	uujPC5OwWftsR+ER/HftV5F/ZlNryEapykQW1SS9G4MVnrYEfSm+d1T3RuFU
3330	wi2JvCFq0jLKODs2oM8j3f2dOjJl7tELMvrb/eATLWe/Y44rnsKmL/N3Y09w
3331	NrOiXibleYmCAqZrq22k9aTSW63jjK32XaiD/wEDOg0W
3332	"]]
3333	}, Open ]],
3334
3335	Cell[BoxData["True"], "Output",
3336	CellChangeTimes->CompressedData["
3337	1:eJwVz2kow3EYB/D/plgrR+QsRVuznOWI2Rx/V+QYM9dIrBxrWEphWyxXYa7V
3338	Ul6pvaFGLSRXKfFikheM2GJNuX5ljiRRPM+Lp8+77/f7RMpVkhYGRVFCOGcp
3339	OVcICZ04V17ZBXLd+uxpcPHs6SlFRGildFWRCuplmmFUO/9tzQDNhb99TSD7
3340	6voDNXdz+M0gz8elUYIs+5cNzXPcONHTLyq8AxxgXnBQV+JQEdpzK+5E/St4
3341	I+PgwV1U6wRYH3z0ju5IPaImwczyBSH61//2jvJebfF6UDolMaGeH3WXaE2Q
3342	63MGnL13mzdwr2/jPrqVr9VsgeIHweAj/hPObH8GrddzPWhgi5FBwF21bgGt
3343	tPf9NGYQeqzAkS8H1WpbggEMC3GcboJc9a5fWhahjw3RAjRPFlqL8kVSOSpY
3344	CjixgDpVr3dFDqFz2tOXV8EJo+kcfTGJQiNzIVdQFYM+RoyKUVabZQ/N5qw4
3345	10qhr6TYax1MnrYueZYROlYlsqOWJH/KC2TPVivRbUbcYZWY0OvEoG0A/wHe
3346	juGi
3347	"]]
3348	}, Open ]],
3349
3350	Cell[CellGroupData[{
3351
3352	Cell[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
3359	Cell[CellGroupData[{
3360
3361	Cell[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["
3369	1:eJxTTMoPSmVkYGBwBeJPLrE//4u8diwx2iTEIPraMebOi+QUndeOAcuee6YB
3370	6ey5Lu6xuq8dNarqDqcC6RP6B4/uBNIN3rLndwHpEt8XH0G0X5JL+WSr145n
3371	Wc2vZlq/dhQrnxecB6Q3SW126APSNvelX5navHZcNuF9pjmQlp90shlEm+y0
3372	P20LpLOTuSoTgPSUTKUvILokQEsjEUj/eP+hOhtI631iuAaieUpfPQDRfmJc
3373	sjlAuvK7sgqIvrTrtCeI7jlXkwuiC+cWtnQC6e/rStO6gPS29UKfQfQzWy71
3374	bpA9Txdag2geRqnPILoj/YFeD5BeZxC9GEyH518H0bts/37tB9KzVP+s2Qqk
3375	m+3LDoDoe8eaq3cCaYWY/PoXQDrutGPGKyDN8PZyCYiuXHCd8TVIX/61WSD6
3376	7qbzv+NsXzvOO6frlgSkr+TzGEwC0jKK2he2A+lPWmyCFvavHc8drLME0fPu
3377	GUeA6EvqaUkguisj5uxGIO2w+DRvoNNrx19ralauA9J6k15fAdEqc/0lFZ2B
3378	/v1SoA2i11w84w+ilR5/2wuiY7w+P9js+9px7evp7FuA9KezAivZ/ID+mN9y
3379	G0Qvs4xnYAfST6VmZ4NoH0vXo6H+wHiLXlMTA6QB6/YPlg==
3380	"]],
3381
3382	Cell[BoxData["\<\"All kinetic terms are diagonal.\"\>"], "Print",
3383	CellChangeTimes->CompressedData["
3384	1:eJxTTMoPSmVkYGBwBeJPLrE//4u8diwx2iTEIPraMebOi+QUndeOAcuee6YB
3385	6ey5Lu6xuq8dNarqDqcC6RP6B4/uBNIN3rLndwHpEt8XH0G0X5JL+WSr145n
3386	Wc2vZlq/dhQrnxecB6Q3SW126APSNvelX5navHZcNuF9pjmQlp90shlEm+y0
3387	P20LpLOTuSoTgPSUTKUvILokQEsjEUj/eP+hOhtI631iuAaieUpfPQDRfmJc
3388	sjlAuvK7sgqIvrTrtCeI7jlXkwuiC+cWtnQC6e/rStO6gPS29UKfQfQzWy71
3389	bpA9Txdag2geRqnPILoj/YFeD5BeZxC9GEyH518H0bts/37tB9KzVP+s2Qqk
3390	m+3LDoDoe8eaq3cCaYWY/PoXQDrutGPGKyDN8PZyCYiuXHCd8TVIX/61WSD6
3391	7qbzv+NsXzvOO6frlgSkr+TzGEwC0jKK2he2A+lPWmyCFvavHc8drLME0fPu
3392	GUeA6EvqaUkguisj5uxGIO2w+DRvoNNrx19ralauA9J6k15fAdEqc/0lFZ2B
3393	/v1SoA2i11w84w+ilR5/2wuiY7w+P9js+9px7evp7FuA9KezAivZ/ID+mN9y
3394	G0Qvs4xnYAfST6VmZ4NoH0vXo6H+wHh0XFsTA6QB6hYPVw==
3395	"]],
3396
3397	Cell[BoxData["\<\"All kinetic terms are correctly normalized.\"\>"], "Print",
3398	CellChangeTimes->CompressedData["
3399	1:eJwdz11Ik3EYBfB3FymMBSUmNBWbGormFD/QpWP+cxaWblpIga9WU5dj1psw
3400	leXQYF6USckMAmWrEAbCnDRT2UBwyKKYm2mmF6kNRB37E9Zm2Sf6PF0cfleH
3401	wxGpuMvNPIZhyiFhef2vg1hKdLmOGOYEJexasLHpDCXV1p0KNag1yy/UZ1GS
3402	fq97rhl8m+32OMH7lxIXXKCuKvgNVajknYNnKfEdKfyoKaYkrtNy5Q7oEE6U
3403	PgZLPseHCkoosQ7sagrBJNM7I5rvlHmloLaRr78BPtUk76G66oz0m+DP3a9d
3404	WlAcZlZQQXsogCri+ImtoH4/JRVdcnkr0H6/4TbaZm7rfQju29vVfeDUeEwE
3405	3Zby0x7hztbLYlTAE0bQB7cC4n7QnlM38t+r3Crqkv77/gQcOv3XNgkaZR2z
3406	6MYbY5cTPMVyPUGwwUtaQiDz5YMO1b9Y5VHscStD6Lpj4U+DlBKLP+u8Clzm
3407	BDkmMEGU+X4aDGdEHS+SUeJ3d0tQy0beNXQpTa1C+1pY3yuwdMR7tOYcJb9t
3408	hlE7KDbRZTTVrDwpKoO/e3czUdvivBJN3vwxg7IXI4GJKkrG6LPo12DYd2w0
3409	SgE/nvd+Qq2S60w0uCUc1qKVknJPrZKSDo/bwIKH8SoQTw==
3410	"]]
3411	}, Open ]],
3412
3413	Cell[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
3426	Cell[CellGroupData[{
3427
3428	Cell[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
3435	Cell[CellGroupData[{
3436
3437	Cell[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["
3445	1:eJwdzl1I02EYxuH/PNAZUoiGKRYuJLNmqBTaPpzvRFuDptmCnDV0brbZ0oiM
3446	DRdGSdnMZmZYKRIlxQYKtpkZIpVMD+acYLNooE5Dlu+Q2Mzog9bzeHBznd38
3447	OKqGcg2LYZhSWNftnN+RREr0xhsJzE5Kvmb71WouJcb7K9JakMfwjp/LoiQt
3448	55JTA37ZIZ4cBWP2ZaW9BdWuYxJU9n2XHL0a2+tB4+z1ITQ9s9zwgEfJ8jOH
3449	V8enRPSRrKJPupPk9SBbstfYAHacL+hAM38FC++Bns7BYtS/eN06BmYonGtH
3450	BJRUr6fU5YFcG6sFXb9ldwlBtoFrrAIDSb0bqO3R0f3VoHImwXQBNKfGz2/Z
3451	/GcJlean7taDnyd70tFZY4wEnZ6ZuoguTH1ruQMuKkO1ZvCloj2MRpmTM9pA
3452	TuMrPjoe0IbRUO6PQ3fBU27dc9QjsHxCD2g5mxZQ8y9+YBhsffr4HdrX2tU0
3453	CgY/uJoDoEL3WruGfWFpI9reVhFFwcMr6h50xKH4qxRS0s0aKFGBuXxZdie4
3454	9HBodgQMvp+bRycuNwnfgAUvrsXni+C3OJa3ZaTmDNo/fFOFVrnn3EOgLa9s
3455	+0kxJSUTq9ZBUCuq9KIp1JDMKaJELu4/iC7/FJShyoracXTBUuO3n6CkbnMb
3456	2wEyYyZrtIySyqINHxpn8zIx4LQvWo9GCq84T5dSkrjHZzoL/geq+TRH
3457	"]],
3458
3459	Cell[BoxData["\<\"All mass terms are diagonal.\"\>"], "Print",
3460	CellChangeTimes->CompressedData["
3461	1:eJwdzl9Ik2EYhvFvHrgZUgwLUwxcSGbNUCm0uTnfibYGTbMFOWvo3GyzpREZ
3462	Gy4Mk7KZzcywUiRKig0UzJlZIpVMD+acYLNooE5Dlu+Q2MzoD63n8eDmd3Zz
3463	8dR1pVoWwzDFsM5bmb8jOykxmJrimF2UfM3wazR8Skz3VmTVoIARHD+XTkly
3464	5iWnFvyyQzI5CrL3pSe/ATWuY1JU/n23Ar0a0+NBY4dqQ2hKWqnxvoCS5acO
3465	rz6XEvFHsoo+7opX1IIc6V5THdh+Pq8dTfsVzL8LejoGClH/4nXbGJiqdK4d
3466	EVJSuZ5Ykw3y7axmdP3mkEsEcox8UwUYiO/ZQO0Pj+6vBFUzceYLoCWJO79l
3467	458lVJaTtMcAfp7sTkFnTWwpOj0zdRFdmPrWfBtcVIWqLeALZVsYjbIkpLaC
3468	vPqXueh4QBdGQ1k/Dt0BT7n1z1CP0PoJPaDjbVpB7T9u/zDY8uTRO7S3pbNh
3469	FAx+cDUGQKX+lW4N+8KyerSttSyKgodXNN3oiEP5VyWipIvVX6QGs3LlGR3g
3470	0oPB2REw+H5uHp243CB6DeY9v8bNEcNvYYxgy0jVGbRv+IYarXDPuQdBe3bJ
3471	9pMSSoomVm0DoE5c7kUTqTGBV0CJQtJ3EF3+KSxBVWXV4+iCtco/dIKSms1t
3472	HAfIjJlt0XJKygs2fGis3cuwwWlftAGN5F9xni6mpOmtz3wW/A+ytDVS
3473	"]],
3474
3475	Cell[BoxData["\<\"Getting mass spectrum.\"\>"], "Print",
3476	CellChangeTimes->CompressedData["
3477	1:eJwdzl9Ik2EYhvFvHrgZUgwLUwxcSGbNUClm23S+E20NmmYLctbSua3NlkZk
3478	bLgwSspmNjPDSpEoKTZQsM3MEKlkejDnBJtFgjoNWb4iMs3oD63n8eDmd3Zz
3479	8TQ1JToWwzBFsLY7mb8jOykxWW7GMbso+ZYR1Gr5lFgeLMr1oJARHj+XTkly
3480	5mWPDvy6Qzo6CLL3pSe/A7XeYzJUsbZbiV6L6fSjsa7qMJqSVmJ+KKRk4bk7
3481	YBRRIvlEltCn7fHKapAj22upAVsu5Lagab9W8u6D/tbeAjQ4d8MxBKaqPMtH
3482	xJRUrCZWCUC+k9WArt52eXNAjplvKQdD8Z0bqPPx0f0VoHoiznoRtCVxp7es
3483	/zOPyrOT9pjAL6MdKeikhS1DxyfGLqGzY98b7oJz6rDeBr5SNa+jUbaE1CaQ
3484	V/tahA6HDOtoOOvHoXvgKZ/xBeoX2z+jBwy8TTuo+8ft6Qcbnz15j3Y1ttUN
3485	gisfvfUhUGV8Y1jGvnV5LdrcVBpFwcOL2g50wK36q86hpJ3VU6gBs0SKjFZw
3486	/lHf5AC48mFqGh25UpfzFsx9eZ2bLYHfghjhlpHKM2h3/y0NWu6b8vWBTkHx
3487	9pNSSgpHlhy9oEFSFkATqTmBl0+JUtp9EF34KS5G1aX6YXTWXhl0naCkanMb
3488	xw0yQ1ZHtIKSsvyNGTTWGWDY4PhMtAmN5F31nC6iRHB+zXoW/A+uVjTA
3489	"]],
3490
3491	Cell[BoxData["\<\"Checking for less then 0.1% agreement with model file \
3492	values.\"\>"], "Print",
3493	CellChangeTimes->CompressedData["
3494	1:eJwdzl1I02EYxuH/PHAzpBgWphi4kMyaoVJo+1DfibYGTbMFOWvo3OZmSyMy
3495	NlwYJWUzm5lhpUiUFBso2GZmiFQyPZhTwWaRoE5Dlu8Q2czog9bzeHBznd38
3496	eOq6Ui2LYZhiWMedzN+R3ZQYzTfjmD2UfMvwazR8SswPVmQ6UMAITl5IpyQ5
3497	87JbC37dJRkfBtkH0pPfgRrPCSkq39irQK/FdE+jsc7aEJqSVmp6KKBk+bnL
3498	ZxBSkveJrKJPO+MVtSBHut9cB7ZV57ahab+C+ffB6fb+QtS/eMM+AqYq3WvH
3499	RJRUrifWZIN8B6sJXb/t9IhBjolvrgAD8d2bqOPx8YOVoGoqznIRtCZx57Zt
3500	/LOEynKS9hnBL+NdKeiMmS1FJ6cmLqELE9+b7oKLqpDOCr5StobRKGtCagvI
3501	q38tREcD+jAayvpx5B54xmt4gU6LbJ/RQ3relg3U/uP2DYLNz568R3uaOxqG
3502	weBHT2MAVBre6NewLyyrR1tbyqIoeHRF04UOuZR/VWJKOll9RWowSyjPaAeX
3503	Hg3MDIHBD7Nz6NiVBvFbMPfldW5OHvwWxgi2jVSdQ3sHb6nRCu+sdwB0ZJfs
3504	PC2hpGhs1d4P6vPKfWgiNSXwCihRSHoPo8s/RSWoqkw3ii7YqvzOU5TUbO3g
3505	uEBmxGKPllNSXrA5j8Y6fAwbnJyPNqKR/Kvus8WUjFdvWM6D/wGzBjVX
3506	"]]
3507	}, Open ]],
3508
3509	Cell[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["
3534	1:eJxTTMoPSmVkYGCwAOKID2wt5javHS1uPTptC6RrdlhXJgBpny2nvoBokQ32
3535	GolA+lWMYk02kN6lK34NRP9nZXoIov8tVZLNAdIhkqdVQLTcJRMPEH3z/Otc
3536	EG01Wbq1E0jX2iqmd4HUr9z9GUQr7FdU7wbS21h3WoNou5ruzyD6Z+ZvvR4g
3537	fV6oYDGIzvk29zqInrbW4Fs/kK62k1u7FUiXbFl6AETbnJ9VvRNI9938Uv8C
3538	SAe4vs94BaQ3aTaWgujbJn1Mr0H23Zk5G0S3zJ74J872teOl3ttuSUC680ie
3539	wSQgfabo1YXtQLo9ju86iP7FtNV2B5BeXrFa0MIeaK+SvRWIzllUFQGita5P
3540	SALRxvFs5zYCafmMdr5AJ6C5p3hWrQPSUStbr4Lof4c6JBWdge4U2aUNoqMu
3541	JQeA6FVBPftAtFHFpIebfV87NvWbcGwB0h07V6xk83vtaDtL5g6I/r6QgZEd
3542	SCdx6OeA6JBvPUdD/V87+hV9qIkB0gAq1dtG
3543	"]]
3544	}, Open ]],
3545
3546	Cell[CellGroupData[{
3547
3548	Cell[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
3596	Cell[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
3625	Cell[CellGroupData[{
3626
3627	Cell["Decay Widths", "Subsection",
3628	CellChangeTimes->{{3.6557158211451597`^9, 3.6557158258725767`^9}}],
3629
3630	Cell[CellGroupData[{
3631
3632	Cell[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
3668	Cell[CellGroupData[{
3669
3670	Cell[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
3690	Cell[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
3702	Cell[BoxData["\<\"Collecting the different structures that enter the \
3703	vertex.\"\>"], "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
3715	Cell[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 \
3725	computation: ",
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
3739	Cell[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
3755	Cell[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
3775	Cell[BoxData[
3776	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
3777	decays: \"\>",
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
3796	Cell[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
3818	Cell[CellGroupData[{
3819
3820	Cell["Leptoquark", "Subsubsection",
3821	CellChangeTimes->{{3.6557158422943287`^9, 3.655715852225478^9}}],
3822
3823	Cell[CellGroupData[{
3824
3825	Cell[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
4068	Cell[CellGroupData[{
4069
4070	Cell[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
4117	Cell[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
4164	Cell[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
4198	Cell[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
4229	Cell[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
4256	Cell[CellGroupData[{
4257
4258	Cell["Triplet Diquark", "Subsubsection",
4259	CellChangeTimes->{{3.65571583385673^9, 3.655715838406135^9}, {
4260	3.659094628764142^9, 3.6590946305659037`^9}}],
4261
4262	Cell[CellGroupData[{
4263
4264	Cell[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
4411	Cell[CellGroupData[{
4412
4413	Cell[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
4456	Cell[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
4473	Cell[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
4534	Cell[CellGroupData[{
4535
4536	Cell[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
4557	Cell[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
4597	Cell[CellGroupData[{
4598
4599	Cell[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
4606	Cell[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
4783	Cell[CellGroupData[{
4784
4785	Cell["Sextet Diquark", "Subsubsection",
4786	CellChangeTimes->{{3.655715861161312^9, 3.6557158708947163`^9}}],
4787
4788	Cell[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
4914	Cell[CellGroupData[{
4915
4916	Cell["Scalar Octet", "Subsubsection",
4917	CellChangeTimes->{{3.6557158736783953`^9, 3.6557158761906977`^9}, {
4918	3.6579477363473377`^9, 3.657947738167746^9}}],
4919
4920	Cell[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
5173	Cell[CellGroupData[{
5174
5175	Cell["Alternative Lagrangian Formulation", "Subsection",
5176	CellChangeTimes->{{3.6588287354820013`^9, 3.658828756381763^9}}],
5177
5178	Cell[CellGroupData[{
5179
5180	Cell[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
5190	Cell[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
5313	Cell[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
5324	Cell[CellGroupData[{
5325
5326	Cell[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 \
5413	same.\>\"", ",", "Red", ",", "Bold"}], "]"}], "]"}], ",",
5414	"\[IndentingNewLine]",
5415	RowBox[{"Print", "[",
5416	RowBox[{"Style", "[",
5417	RowBox[{
5418	"\"\<Both formulations of the visible sector Lagrangian are not the \
5419	same.\>\"", ",", "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
5430	Cell[CellGroupData[{
5431
5432	Cell[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
5458	Cell[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
5476	Cell[BoxData["\<\"Collecting the different structures that enter the \
5477	vertex.\"\>"], "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
5495	Cell[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 \
5505	computation: ",
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
5525	Cell[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
5547	Cell[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
5573	Cell[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
5591	Cell[BoxData["\<\"Collecting the different structures that enter the \
5592	vertex.\"\>"], "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
5610	Cell[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 \
5620	computation: ",
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
5640	Cell[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
5662	Cell[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
5690	Cell[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
5780	Cell[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
5870	Cell[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
5897	Cell[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
5987	Cell[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
6077	Cell[BoxData[
6078	StyleBox["\<\"Both formulations of the visible sector Lagrangian are the \
6079	same.\"\>",
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
6107	Cell[CellGroupData[{
6108
6109	Cell["Model Output", "Section",
6110	CellChangeTimes->{{3.647001018344447^9, 3.647001020415841^9}}],
6111
6112	Cell[CellGroupData[{
6113
6114	Cell["UFO Model", "Subsection",
6115	CellChangeTimes->{{3.6557916852095203`^9, 3.655791687722753^9}}],
6116
6117	Cell[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
6141	Cell[CellGroupData[{
6142
6143	Cell["Automatic UFO Generation", "Subsubsection",
6144	CellChangeTimes->{{3.6550291912685833`^9, 3.6550292010528383`^9}}],
6145
6146	Cell[CellGroupData[{
6147
6148	Cell[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
6183	Cell[CellGroupData[{
6184
6185	Cell[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
6191	Cell[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
6204	Cell[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
6209	Cell[BoxData["\<\"Collecting the different structures that enter the \
6210	vertex.\"\>"], "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
6215	Cell[BoxData[
6216	InterpretationBox[
6217	RowBox[{
6218	"140", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6219	found -> 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 \
6225	computation: ",
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
6232	Cell[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
6241	Cell[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
6254	Cell[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
6259	Cell[BoxData[
6260	StyleBox["\<\"Computing the squared matrix elements relevant for the 1->2 \
6261	decays: \"\>",
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
6273	Cell[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
6286	Cell[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
6296	Cell[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
6306	Cell[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
6311	Cell[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
6317	Cell[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
6330	Cell[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
6335	Cell[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
6344	Cell[CellGroupData[{
6345
6346	Cell["CalcHEP Model", "Subsection",
6347	CellChangeTimes->{{3.655791705146821^9, 3.655791708962453^9}}],
6348
6349	Cell[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
6370	Cell[CellGroupData[{
6371
6372	Cell["Automatic CalcHEP Generation", "Subsubsection",
6373	CellChangeTimes->{{3.6550291912685833`^9, 3.6550292010528383`^9}, {
6374	3.6557949766701183`^9, 3.6557949780381002`^9}}],
6375
6376	Cell[CellGroupData[{
6377
6378	Cell[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
6414	Cell[CellGroupData[{
6415
6416	Cell[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
6421	Cell[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
6440	Cell[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
6459	Cell[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_\
6471	met.\"\>"}],
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_\
6477	met."],
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
6483	Cell[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
6502	Cell[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
6522	Cell[BoxData["\<\"\\t\\tIn CH, 4-point color octet vertices are \
6523	nontrivial,\\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
6529	Cell[BoxData["\<\"\\t\\tPlease refer to the CH manual for these \
6530	vertices.\"\>"], "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
6535	Cell[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
6554	Cell[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
6573	Cell[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
6592	Cell[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
6597	Cell[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
6610	Cell[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
6615	Cell[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
6626	Cell[BoxData["\<\"Collecting the different structures that enter the \
6627	vertex.\"\>"], "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
6632	Cell[BoxData[
6633	InterpretationBox[
6634	RowBox[{
6635	"140", "\[InvisibleSpace]", "\<\" possible non-zero vertices have been \
6636	found -> 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 \
6642	computation: ",
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
6649	Cell[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
6658	Cell[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
6671	Cell[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 \
6682	variable 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', \
6688	particle 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
6694	Cell[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 \
6705	FeynRules->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
6715	Cell[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
6734	Cell[BoxData["\<\"\\t\\tYou can add this vertex by hand after importing into \
6735	CalcHEP.\"\>"], "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
6740	Cell[BoxData["\<\"\\t\\tYou may also wish to help implement it in \
6741	FeynRules->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
6746	Cell[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 \
6757	FeynRules->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
6767	Cell[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
6786	Cell[BoxData["\<\"\\t\\tYou can add this vertex by hand after importing into \
6787	CalcHEP.\"\>"], "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
6792	Cell[BoxData["\<\"\\t\\tYou may also wish to help implement it in \
6793	FeynRules->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
6798	Cell[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
6817	Cell[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
6836	Cell[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	},
6861	WindowSize->{1855, 1176},
6862	WindowMargins->{{0, Automatic}, {Automatic, 0}},
6863	FrontEndVersion->"10.3 for Linux x86 (64-bit) (December 10, 2015)",
6864	StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb",
6865	CharacterEncoding -> "UTF-8"]
6866	]
6867	(* End of Notebook Content *)
6868
6869	(* Internal cache information *)
6870	(*CellTagsOutline
6871	CellTagsIndex->{}
6872	*)
6873	(*CellTagsIndex
6874	CellTagsIndex->{}
6875	*)
6876	(*NotebookFileOutline
6877	Notebook[{
6878	Cell[CellGroupData[{
6879	Cell[579, 22, 308, 4, 91, "Title"],
6880	Cell[890, 28, 473, 7, 91, "Text"],
6881	Cell[1366, 37, 136, 3, 41, "Input"],
6882	Cell[1505, 42, 8451, 136, 240, "Input",
6883	InitializationCell->True],
6884	Cell[CellGroupData[{
6885	Cell[9981, 182, 150, 2, 67, "Section"],
6886	Cell[10134, 186, 598, 14, 86, "Input",
6887	InitializationCell->True],
6888	Cell[CellGroupData[{
6889	Cell[10757, 204, 765, 18, 86, "Input",
6890	InitializationCell->True],
6891	Cell[CellGroupData[{
6892	Cell[11547, 226, 229, 3, 23, "Print"],
6893	Cell[11779, 231, 510, 10, 23, "Print"],
6894	Cell[12292, 243, 283, 4, 23, "Print"],
6895	Cell[12578, 249, 215, 3, 23, "Print"],
6896	Cell[12796, 254, 228, 3, 23, "Print"],
6897	Cell[13027, 259, 278, 4, 23, "Print"],
6898	Cell[13308, 265, 278, 4, 23, "Print"],
6899	Cell[13589, 271, 215, 3, 23, "Print"],
6900	Cell[13807, 276, 244, 3, 23, "Print"],
6901	Cell[14054, 281, 215, 3, 23, "Print"],
6902	Cell[14272, 286, 282, 4, 23, "Print"]
6903	}, Open ]]
6904	}, Open ]],
6905	Cell[CellGroupData[{
6906	Cell[14603, 296, 2319, 43, 152, "Input",
6907	InitializationCell->True],
6908	Cell[CellGroupData[{
6909	Cell[16947, 343, 237, 3, 23, "Print"],
6910	Cell[17187, 348, 255, 3, 23, "Print"],
6911	Cell[17445, 353, 226, 3, 23, "Print"],
6912	Cell[17674, 358, 226, 3, 23, "Print"],
6913	Cell[17903, 363, 361, 7, 23, "Print"],
6914	Cell[18267, 372, 226, 3, 23, "Print"],
6915	Cell[18496, 377, 246, 3, 23, "Print"],
6916	Cell[18745, 382, 264, 4, 23, "Print"],
6917	Cell[19012, 388, 263, 4, 23, "Print"],
6918	Cell[19278, 394, 215, 3, 23, "Print"],
6919	Cell[19496, 399, 245, 3, 23, "Print"],
6920	Cell[19744, 404, 248, 3, 23, "Print"],
6921	Cell[19995, 409, 248, 3, 23, "Print"],
6922	Cell[20246, 414, 461, 9, 43, "Print"]
6923	}, Open ]]
6924	}, Open ]],
6925	Cell[CellGroupData[{
6926	Cell[20756, 429, 176, 4, 41, "Input"],
6927	Cell[CellGroupData[{
6928	Cell[20957, 437, 306, 6, 23, "Print"],
6929	Cell[21266, 445, 246, 5, 23, "Print"],
6930	Cell[21515, 452, 242, 5, 23, "Print"],
6931	Cell[21760, 459, 109, 1, 23, "Print"],
6932	Cell[21872, 462, 114, 1, 23, "Print"],
6933	Cell[21989, 465, 114, 1, 23, "Print"],
6934	Cell[22106, 468, 114, 1, 23, "Print"],
6935	Cell[22223, 471, 114, 1, 23, "Print"],
6936	Cell[22340, 474, 108, 1, 23, "Print"],
6937	Cell[22451, 477, 126, 1, 23, "Print"],
6938	Cell[22580, 480, 123, 1, 23, "Print"],
6939	Cell[22706, 483, 114, 1, 23, "Print"]
6940	}, Open ]],
6941	Cell[22835, 487, 1180, 21, 23, "Message"],
6942	Cell[CellGroupData[{
6943	Cell[24040, 512, 657, 17, 23, "Print"],
6944	Cell[24700, 531, 107, 1, 23, "Print"]
6945	}, Open ]],
6946	Cell[24822, 535, 1276, 24, 23, "Message"],
6947	Cell[26101, 561, 760, 19, 23, "Print"]
6948	}, Open ]]
6949	}, Open ]],
6950	Cell[CellGroupData[{
6951	Cell[26910, 586, 106, 1, 67, "Section"],
6952	Cell[CellGroupData[{
6953	Cell[27041, 591, 102, 1, 33, "Subsection"],
6954	Cell[CellGroupData[{
6955	Cell[27168, 596, 195, 3, 41, "Input"],
6956	Cell[27366, 601, 5872, 166, 130, "Output"]
6957	}, Open ]],
6958	Cell[CellGroupData[{
6959	Cell[33275, 772, 262, 4, 41, "Input"],
6960	Cell[33540, 778, 895, 15, 23, "Print"],
6961	Cell[34438, 795, 13474, 408, 310, "Output"]
6962	}, Open ]]
6963	}, Closed]],
6964	Cell[CellGroupData[{
6965	Cell[47961, 1209, 240, 3, 32, "Subsection"],
6966	Cell[CellGroupData[{
6967	Cell[48226, 1216, 784, 22, 130, "Input"],
6968	Cell[CellGroupData[{
6969	Cell[49035, 1242, 882, 19, 23, "Print"],
6970	Cell[49920, 1263, 637, 11, 23, "Print"],
6971	Cell[50560, 1276, 670, 12, 23, "Print"],
6972	Cell[51233, 1290, 1151, 23, 23, "Print"],
6973	Cell[52387, 1315, 748, 15, 23, "Print"]
6974	}, Open ]]
6975	}, Open ]],
6976	Cell[CellGroupData[{
6977	Cell[53184, 1336, 1027, 26, 130, "Input"],
6978	Cell[CellGroupData[{
6979	Cell[54236, 1366, 923, 20, 23, "Print"],
6980	Cell[55162, 1388, 698, 12, 23, "Print"],
6981	Cell[55863, 1402, 711, 13, 23, "Print"],
6982	Cell[56577, 1417, 1207, 24, 23, "Print"],
6983	Cell[57787, 1443, 793, 16, 23, "Print"]
6984	}, Open ]]
6985	}, Open ]],
6986	Cell[CellGroupData[{
6987	Cell[58629, 1465, 369, 6, 41, "Input"],
6988	Cell[59001, 1473, 16472, 465, 532, "Output"]
6989	}, Open ]]
6990	}, Closed]],
6991	Cell[CellGroupData[{
6992	Cell[75522, 1944, 100, 1, 33, "Subsection"],
6993	Cell[CellGroupData[{
6994	Cell[75647, 1949, 968, 23, 130, "Input"],
6995	Cell[CellGroupData[{
6996	Cell[76640, 1976, 468, 9, 23, "Print"],
6997	Cell[77111, 1987, 405, 10, 23, "Print"],
6998	Cell[77519, 1999, 375, 9, 23, "Print"]
6999	}, Open ]]
7000	}, Open ]],
7001	Cell[CellGroupData[{
7002	Cell[77943, 2014, 375, 7, 41, "Input"],
7003	Cell[78321, 2023, 22271, 653, 649, "Output"]
7004	}, Open ]],
7005	Cell[CellGroupData[{
7006	Cell[100629, 2681, 504, 11, 64, "Input"],
7007	Cell[CellGroupData[{
7008	Cell[101158, 2696, 481, 10, 23, "Print"],
7009	Cell[101642, 2708, 470, 9, 23, "Print"],
7010	Cell[102115, 2719, 468, 9, 23, "Print"],
7011	Cell[102586, 2730, 465, 9, 23, "Print"]
7012	}, Open ]]
7013	}, Open ]]
7014	}, Closed]]
7015	}, Open ]],
7016	Cell[CellGroupData[{
7017	Cell[103124, 2747, 169, 2, 67, "Section"],
7018	Cell[CellGroupData[{
7019	Cell[103318, 2753, 99, 1, 33, "Subsection"],
7020	Cell[CellGroupData[{
7021	Cell[103442, 2758, 420, 7, 41, "Input"],
7022	Cell[CellGroupData[{
7023	Cell[103887, 2769, 2478, 34, 23, "Print"],
7024	Cell[106368, 2805, 2476, 34, 23, "Print"],
7025	Cell[108847, 2841, 2669, 41, 23, "Print"],
7026	Cell[111519, 2884, 2424, 33, 23, "Print"],
7027	Cell[113946, 2919, 2457, 34, 23, "Print"],
7028	Cell[116406, 2955, 2936, 45, 23, "Print"],
7029	Cell[119345, 3002, 2539, 37, 23, "Print"],
7030	Cell[121887, 3041, 2425, 33, 23, "Print"]
7031	}, Open ]],
7032	Cell[124327, 3077, 2381, 33, 41, "Output"]
7033	}, Open ]],
7034	Cell[CellGroupData[{
7035	Cell[126745, 3115, 227, 4, 41, "Input"],
7036	Cell[126975, 3121, 1306, 18, 23, "Print"],
7037	Cell[128284, 3141, 95, 1, 41, "Output"]
7038	}, Open ]],
7039	Cell[CellGroupData[{
7040	Cell[128416, 3147, 372, 6, 41, "Input"],
7041	Cell[CellGroupData[{
7042	Cell[128813, 3157, 1972, 31, 23, "Print"],
7043	Cell[130788, 3190, 1754, 25, 23, "Print"]
7044	}, Open ]],
7045	Cell[132557, 3218, 624, 12, 41, "Output"]
7046	}, Open ]],
7047	Cell[CellGroupData[{
7048	Cell[133218, 3235, 357, 6, 41, "Input"],
7049	Cell[133578, 3243, 1755, 25, 23, "Print"],
7050	Cell[135336, 3270, 624, 12, 41, "Output"]
7051	}, Open ]],
7052	Cell[CellGroupData[{
7053	Cell[135997, 3287, 367, 6, 41, "Input"],
7054	Cell[CellGroupData[{
7055	Cell[136389, 3297, 983, 19, 23, "Print"],
7056	Cell[137375, 3318, 765, 13, 23, "Print"]
7057	}, Open ]],
7058	Cell[138155, 3334, 628, 12, 41, "Output"]
7059	}, Open ]],
7060	Cell[CellGroupData[{
7061	Cell[138820, 3351, 344, 5, 41, "Input"],
7062	Cell[CellGroupData[{
7063	Cell[139189, 3360, 987, 19, 23, "Print"],
7064	Cell[140179, 3381, 767, 13, 23, "Print"],
7065	Cell[140949, 3396, 779, 13, 23, "Print"]
7066	}, Open ]],
7067	Cell[141743, 3412, 681, 10, 41, "Output"]
7068	}, Open ]],
7069	Cell[CellGroupData[{
7070	Cell[142461, 3427, 320, 5, 41, "Input"],
7071	Cell[CellGroupData[{
7072	Cell[142806, 3436, 1056, 20, 23, "Print"],
7073	Cell[143865, 3458, 833, 14, 23, "Print"],
7074	Cell[144701, 3474, 827, 14, 23, "Print"],
7075	Cell[145531, 3490, 868, 15, 23, "Print"]
7076	}, Open ]],
7077	Cell[146414, 3508, 1384, 34, 104, "Output"]
7078	}, Open ]],
7079	Cell[CellGroupData[{
7080	Cell[147835, 3547, 1826, 46, 174, "Input"],
7081	Cell[149664, 3595, 1449, 25, 23, "Print"]
7082	}, Open ]]
7083	}, Open ]],
7084	Cell[CellGroupData[{
7085	Cell[151162, 3626, 104, 1, 33, "Subsection"],
7086	Cell[CellGroupData[{
7087	Cell[151291, 3631, 1279, 34, 152, "Input"],
7088	Cell[CellGroupData[{
7089	Cell[152595, 3669, 1004, 18, 23, "Print"],
7090	Cell[153602, 3689, 757, 10, 23, "Print"],
7091	Cell[154362, 3701, 790, 11, 23, "Print"],
7092	Cell[155155, 3714, 1274, 22, 23, "Print"],
7093	Cell[156432, 3738, 872, 14, 23, "Print"],
7094	Cell[157307, 3754, 1103, 18, 23, "Print"],
7095	Cell[158413, 3774, 1040, 19, 23, "Print"],
7096	Cell[159456, 3795, 1009, 18, 23, "Print"]
7097	}, Open ]]
7098	}, Open ]],
7099	Cell[CellGroupData[{
7100	Cell[160514, 3819, 103, 1, 31, "Subsubsection"],
7101	Cell[CellGroupData[{
7102	Cell[160642, 3824, 9548, 241, 596, "Input"],
7103	Cell[CellGroupData[{
7104	Cell[170215, 4069, 1714, 45, 53, "Print"],
7105	Cell[171932, 4116, 1714, 45, 53, "Print"],
7106	Cell[173649, 4163, 1314, 32, 54, "Print"],
7107	Cell[174966, 4197, 1198, 29, 53, "Print"],
7108	Cell[176167, 4228, 958, 22, 46, "Print"]
7109	}, Open ]]
7110	}, Open ]]
7111	}, Open ]],
7112	Cell[CellGroupData[{
7113	Cell[177186, 4257, 156, 2, 31, "Subsubsection"],
7114	Cell[CellGroupData[{
7115	Cell[177367, 4263, 5707, 145, 374, "Input"],
7116	Cell[CellGroupData[{
7117	Cell[183099, 4412, 1422, 41, 53, "Print"],
7118	Cell[184524, 4455, 566, 15, 48, "Print"],
7119	Cell[185093, 4472, 2230, 57, 53, "Print"]
7120	}, Open ]]
7121	}, Open ]],
7122	Cell[CellGroupData[{
7123	Cell[187372, 4535, 713, 19, 64, "Input"],
7124	Cell[188088, 4556, 1143, 37, 72, "Output"]
7125	}, Open ]],
7126	Cell[CellGroupData[{
7127	Cell[189268, 4598, 277, 5, 41, "Input"],
7128	Cell[189548, 4605, 5916, 173, 179, "Output"]
7129	}, Open ]]
7130	}, Open ]],
7131	Cell[CellGroupData[{
7132	Cell[195513, 4784, 107, 1, 31, "Subsubsection"],
7133	Cell[195623, 4787, 4800, 123, 367, "Input"]
7134	}, Closed]],
7135	Cell[CellGroupData[{
7136	Cell[200460, 4915, 158, 2, 31, "Subsubsection"],
7137	Cell[200621, 4919, 9976, 249, 643, "Input"]
7138	}, Closed]]
7139	}, Closed]],
7140	Cell[CellGroupData[{
7141	Cell[210646, 5174, 124, 1, 33, "Subsection"],
7142	Cell[CellGroupData[{
7143	Cell[210795, 5179, 368, 8, 86, "Input"],
7144	Cell[211166, 5189, 4107, 121, 79, "Output"],
7145	Cell[215276, 5312, 605, 8, 41, "Output"]
7146	}, Open ]],
7147	Cell[CellGroupData[{
7148	Cell[215918, 5325, 4125, 102, 438, "Input"],
7149	Cell[CellGroupData[{
7150	Cell[220068, 5431, 1416, 24, 23, "Print"],
7151	Cell[221487, 5457, 1172, 16, 23, "Print"],
7152	Cell[222662, 5475, 1207, 17, 23, "Print"],
7153	Cell[223872, 5494, 1683, 28, 23, "Print"],
7154	Cell[225558, 5524, 1285, 20, 23, "Print"],
7155	Cell[226846, 5546, 1417, 24, 23, "Print"],
7156	Cell[228266, 5572, 1172, 16, 23, "Print"],
7157	Cell[229441, 5590, 1207, 17, 23, "Print"],
7158	Cell[230651, 5609, 1683, 28, 23, "Print"],
7159	Cell[232337, 5639, 1285, 20, 23, "Print"],
7160	Cell[233625, 5661, 1445, 25, 23, "Print"]
7161	}, Open ]],
7162	Cell[235085, 5689, 3447, 88, 73, "Output"],
7163	Cell[238535, 5779, 3447, 88, 73, "Output"],
7164	Cell[241985, 5869, 1495, 25, 23, "Print"],
7165	Cell[243483, 5896, 3447, 88, 73, "Output"],
7166	Cell[246933, 5986, 3449, 88, 73, "Output"],
7167	Cell[250385, 6076, 1451, 25, 23, "Print"]
7168	}, Open ]]
7169	}, Closed]]
7170	}, Open ]],
7171	Cell[CellGroupData[{
7172	Cell[251897, 6108, 97, 1, 67, "Section"],
7173	Cell[CellGroupData[{
7174	Cell[252019, 6113, 99, 1, 32, "Subsection"],
7175	Cell[252121, 6116, 851, 22, 108, "Input"],
7176	Cell[CellGroupData[{
7177	Cell[252997, 6142, 119, 1, 31, "Subsubsection"],
7178	Cell[CellGroupData[{
7179	Cell[253141, 6147, 1659, 33, 152, "Input",
7180	InitializationCell->True],
7181	Cell[CellGroupData[{
7182	Cell[254825, 6184, 284, 4, 23, "Print"],
7183	Cell[255112, 6190, 509, 11, 23, "Print"],
7184	Cell[255624, 6203, 264, 3, 23, "Print"],
7185	Cell[255891, 6208, 297, 4, 23, "Print"],
7186	Cell[256191, 6214, 782, 15, 23, "Print"],
7187	Cell[256976, 6231, 383, 7, 23, "Print"],
7188	Cell[257362, 6240, 612, 11, 23, "Print"],
7189	Cell[257977, 6253, 275, 3, 23, "Print"],
7190	Cell[258255, 6258, 547, 12, 23, "Print"],
7191	Cell[258805, 6272, 515, 11, 23, "Print"],
7192	Cell[259323, 6285, 477, 8, 23, "Print"],
7193	Cell[259803, 6295, 465, 8, 23, "Print"],
7194	Cell[260271, 6305, 263, 3, 23, "Print"],
7195	Cell[260537, 6310, 285, 4, 23, "Print"],
7196	Cell[260825, 6316, 635, 11, 23, "Print"],
7197	Cell[261463, 6329, 257, 3, 23, "Print"],
7198	Cell[261723, 6334, 242, 3, 23, "Print"]
7199	}, Open ]]
7200	}, Open ]]
7201	}, Open ]]
7202	}, Open ]],
7203	Cell[CellGroupData[{
7204	Cell[262038, 6345, 101, 1, 32, "Subsection"],
7205	Cell[262142, 6348, 697, 19, 108, "Input"],
7206	Cell[CellGroupData[{
7207	Cell[262864, 6371, 176, 2, 31, "Subsubsection"],
7208	Cell[CellGroupData[{
7209	Cell[263065, 6377, 1727, 34, 152, "Input",
7210	InitializationCell->True],
7211	Cell[CellGroupData[{
7212	Cell[264817, 6415, 285, 3, 23, "Print"],
7213	Cell[265105, 6420, 723, 17, 23, "Print"],
7214	Cell[265831, 6439, 718, 17, 23, "Print"],
7215	Cell[266552, 6458, 824, 22, 43, "Print"],
7216	Cell[267379, 6482, 690, 17, 43, "Print"],
7217	Cell[268072, 6501, 724, 18, 23, "Print"],
7218	Cell[268799, 6521, 351, 5, 43, "Print"],
7219	Cell[269153, 6528, 295, 4, 23, "Print"],
7220	Cell[269451, 6534, 702, 17, 43, "Print"],
7221	Cell[270156, 6553, 702, 17, 43, "Print"],
7222	Cell[270861, 6572, 704, 17, 43, "Print"],
7223	Cell[271568, 6591, 238, 3, 23, "Print"],
7224	Cell[271809, 6596, 510, 11, 23, "Print"],
7225	Cell[272322, 6609, 264, 3, 23, "Print"],
7226	Cell[272589, 6614, 489, 9, 23, "Print"],
7227	Cell[273081, 6625, 298, 4, 23, "Print"],
7228	Cell[273382, 6631, 785, 15, 23, "Print"],
7229	Cell[274170, 6648, 382, 7, 23, "Print"],
7230	Cell[274555, 6657, 611, 11, 23, "Print"],
7231	Cell[275169, 6670, 895, 21, 62, "Print"],
7232	Cell[276067, 6693, 762, 19, 23, "Print"],
7233	Cell[276832, 6714, 708, 17, 23, "Print"],
7234	Cell[277543, 6733, 309, 4, 23, "Print"],
7235	Cell[277855, 6739, 302, 4, 23, "Print"],
7236	Cell[278160, 6745, 762, 19, 23, "Print"],
7237	Cell[278925, 6766, 708, 17, 23, "Print"],
7238	Cell[279636, 6785, 307, 4, 23, "Print"],
7239	Cell[279946, 6791, 302, 4, 23, "Print"],
7240	Cell[280251, 6797, 690, 17, 43, "Print"],
7241	Cell[280944, 6816, 701, 17, 23, "Print"],
7242	Cell[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 *)

Download in other formats:

Original Format