Context Navigation

Back to ASperGe

ASperGe: LRSM.nb

File LRSM.nb, 201.7 KB (added by Karen De Causmaecker, 12 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[ 206354, 5535]
14	NotebookOptionsPosition[ 193607, 5180]
15	NotebookOutlinePosition[ 193963, 5196]
16	CellTagsIndexPosition[ 193920, 5193]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell["\<\
24	ASperGe:
25	The Left-Right Symmetric Standard Model\
26	\>", "Title",
27	CellChangeTimes->{{3.5680967526801434`^9, 3.568096771005324^9}}],
28
29	Cell[BoxData[
30	RowBox[{"Quit", "[", "]"}]], "Input",
31	CellChangeTimes->{{3.568033973654759^9, 3.568033980105204^9}}],
32
33	Cell[CellGroupData[{
34
35	Cell["Set the path", "Section",
36	CellChangeTimes->{{3.568033987624649^9, 3.568033993662871^9}}],
37
38	Cell[CellGroupData[{
39
40	Cell[BoxData[{
41	RowBox[{
42	RowBox[{"$FeynRulesPath", " ", "=", " ",
43	RowBox[{
44	"SetDirectory", "[", "\"\<<< address of the package >>\>\"", "]"}]}],
45	";"}], "\[IndentingNewLine]",
46	RowBox[{"<<", "FeynRules`"}], "\[IndentingNewLine]",
47	RowBox[{
48	RowBox[{
49	"SetDirectory", "[", "\"\<<< address of the model file>>\>\"", "]"}],
50	";"}]}], "Input",
51	CellChangeTimes->{{3.5682913521156816`^9, 3.568291386602854^9}}],
52
53	Cell[CellGroupData[{
54
55	Cell[BoxData["\<\" - FeynRules - \"\>"], "Print",
56	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
57	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
58	3.5682905603278847`^9, 3.568290834362288^9}],
59
60	Cell[BoxData[
61	InterpretationBox[
62	RowBox[{"\<\"Version: \"\>", "\[InvisibleSpace]", "\<\"1.7.134\"\>",
63	"\[InvisibleSpace]",
64	RowBox[{"\<\" (\"\>", " ", "\<\"27 January 2013\"\>"}],
65	"\[InvisibleSpace]", "\<\").\"\>"}],
66	SequenceForm["Version: ", "1.7.134", " (" "27 January 2013", ")."],
67	Editable->False]], "Print",
68	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
69	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
70	3.5682905603278847`^9, 3.568290834367426^9}],
71
72	Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
73	B. Fuks\"\>"], "Print",
74	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
75	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
76	3.5682905603278847`^9, 3.5682908343726377`^9}],
77
78	Cell[BoxData["\<\" \"\>"], "Print",
79	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
80	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
81	3.5682905603278847`^9, 3.568290834376869^9}],
82
83	Cell[BoxData["\<\"Please cite: Comput.Phys.Commun.180:1614-1641,2009 \
84	(arXiv:0806.4194).\"\>"], "Print",
85	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
86	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
87	3.5682905603278847`^9, 3.5682908343819933`^9}],
88
89	Cell[BoxData["\<\"http://feynrules.phys.ucl.ac.be\"\>"], "Print",
90	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
91	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
92	3.5682905603278847`^9, 3.568290834387767^9}],
93
94	Cell[BoxData["\<\" \"\>"], "Print",
95	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
96	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
97	3.5682905603278847`^9, 3.568290834392496^9}],
98
99	Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
100	FRPalette[].\"\>"], "Print",
101	CellChangeTimes->{3.568095958334152^9, 3.568096021939089^9,
102	3.5680967786901484`^9, 3.5680972599075747`^9, 3.568100910928145*^9,
103	3.5682905603278847`^9, 3.568290834398223^9}]
104	}, Open ]]
105	}, Open ]]
106	}, Open ]],
107
108	Cell[CellGroupData[{
109
110	Cell["Import the model", "Section",
111	CellChangeTimes->{{3.568034009758786^9, 3.5680340152778673`^9}}],
112
113	Cell[CellGroupData[{
114
115	Cell[BoxData[{
116	RowBox[{
117	RowBox[{"LoadModel", "[", "\"\<LRSM_mix.fr\>\"", "]"}],
118	";"}], "\[IndentingNewLine]",
119	RowBox[{
120	RowBox[{"SetDirectory", "[", "$FeynRulesPath", "]"}], ";"}]}], "Input",
121	CellChangeTimes->{{3.568034045483623^9, 3.5680340463555202`^9}, {
122	3.568096784928149^9, 3.568096786575655^9}}],
123
124	Cell[CellGroupData[{
125
126	Cell[BoxData["\<\"This model implementation was created by\"\>"], "Print",
127	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
128	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
129	3.568290843966379*^9}],
130
131	Cell[BoxData["\<\"Adam Alloul\"\>"], "Print",
132	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
133	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
134	3.568290843969234*^9}],
135
136	Cell[BoxData["\<\"Benjamin Fuks\"\>"], "Print",
137	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
138	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
139	3.5682908439737864`*^9}],
140
141	Cell[BoxData["\<\"Michel Rausch de Traubenberg\"\>"], "Print",
142	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
143	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
144	3.56829084397887*^9}],
145
146	Cell[BoxData[
147	InterpretationBox[
148	RowBox[{"\<\"Model Version: \"\>", "\[InvisibleSpace]", "\<\"1.02\"\>"}],
149	SequenceForm["Model Version: ", "1.02"],
150	Editable->False]], "Print",
151	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
152	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
153	3.5682908439822073`*^9}],
154
155	Cell[BoxData["\<\"Please cite\"\>"], "Print",
156	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
157	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
158	3.5682908439852133`*^9}],
159
160	Cell[BoxData["\<\"\"\>"], "Print",
161	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
162	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
163	3.568290843988112*^9}],
164
165	Cell[BoxData["\<\"\"\>"], "Print",
166	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
167	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
168	3.568290843991173*^9}],
169
170	Cell[BoxData["\<\"For more information, type ModelInformation[].\"\>"], \
171	"Print",
172	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
173	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
174	3.568290843994112*^9}],
175
176	Cell[BoxData["\<\"\"\>"], "Print",
177	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
178	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
179	3.568290843998106*^9}],
180
181	Cell[BoxData["\<\" - Loading particle classes.\"\>"], "Print",
182	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
183	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
184	3.568290844001071*^9}],
185
186	Cell[BoxData["\<\" - Loading gauge group classes.\"\>"], "Print",
187	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
188	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
189	3.568290844216227*^9}],
190
191	Cell[BoxData["\<\" - Loading parameter classes.\"\>"], "Print",
192	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
193	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
194	3.568290844248406*^9}],
195
196	Cell[BoxData[
197	InterpretationBox[
198	RowBox[{"\<\"\\nModel \"\>", "\[InvisibleSpace]", "\<\"LRSM_mix\"\>",
199	"\[InvisibleSpace]", "\<\" loaded.\"\>"}],
200	SequenceForm["\nModel ", "LRSM_mix", " loaded."],
201	Editable->False]], "Print",
202	CellChangeTimes->{3.568095962881637^9, 3.568096027121998^9,
203	3.568096789787891^9, 3.5680972667734327`^9, 3.568290567201212*^9,
204	3.568290844496859*^9}]
205	}, Open ]]
206	}, Open ]]
207	}, Open ]],
208
209	Cell[CellGroupData[{
210
211	Cell["Compute the tree level mass matrices", "Section",
212	CellChangeTimes->{{3.568034056025237^9, 3.568034063631463^9}}],
213
214	Cell[CellGroupData[{
215
216	Cell["Compute all the mass matrices", "Subsection",
217	CellChangeTimes->{{3.5680340709677258`^9, 3.568034078079522^9}}],
218
219	Cell[CellGroupData[{
220
221	Cell[BoxData[
222	RowBox[{"ComputeMassMatrix", "[", "LagLRSM", "]"}]], "Input",
223	CellChangeTimes->{{3.568034079329033^9, 3.56803408777775^9}, {
224	3.568034188373899^9, 3.568034193957204^9}, {3.568095980320429*^9,
225	3.568095991696084^9}, {3.568096030607581^9, 3.568096031918537*^9}, {
226	3.5680969930260878`^9, 3.568096993718877^9}}],
227
228	Cell[CellGroupData[{
229
230	Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
231	CellChangeTimes->{3.568096032659218^9, 3.5680969955029984`^9,
232	3.568097269873354^9, 3.568290578085063^9, 3.5682908495886927`*^9}],
233
234	Cell[BoxData[
235	InterpretationBox[
236	RowBox[{"\<\" => done in \"\>", "\[InvisibleSpace]", "2.452361`",
237	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
238	SequenceForm[" => done in ", 2.452361, " seconds."],
239	Editable->False]], "Print",
240	CellChangeTimes->{3.568096032659218^9, 3.5680969955029984`^9,
241	3.568097269873354^9, 3.568290578085063^9, 3.5682908520404387`*^9}],
242
243	Cell[BoxData["\<\"Tree level mass matrix computations achieved. Only the mass \
244	matrices necessary for the C++ code have been computed.\"\>"], "Print",
245	CellChangeTimes->{3.568096032659218^9, 3.5680969955029984`^9,
246	3.568097269873354^9, 3.568290578085063^9, 3.568290861958192*^9}],
247
248	Cell[BoxData["\<\"Check FR$MassMatrices for the list of the MixingIDs.\"\>"], \
249	"Print",
250	CellChangeTimes->{3.568096032659218^9, 3.5680969955029984`^9,
251	3.568097269873354^9, 3.568290578085063^9, 3.568290861960884*^9}],
252
253	Cell[BoxData["\<\"Use MassMatrix[ MixingID ], GaugeBasis[ MixingID ], \
254	MassBasis[ MixingID ], BlockName[ MixingID ] and MatrixSymbol[ MixingID ] for \
255	more information on the results.\"\>"], "Print",
256	CellChangeTimes->{3.568096032659218^9, 3.5680969955029984`^9,
257	3.568097269873354^9, 3.568290578085063^9, 3.568290861963667*^9}]
258	}, Open ]]
259	}, Open ]]
260	}, Open ]],
261
262	Cell[CellGroupData[{
263
264	Cell["\<\
265	Compute all the mass matrices without generation of the output about the mass \
266	matrices\
267	\>", "Subsection",
268	CellChangeTimes->{{3.568096058356905^9, 3.568096068613702^9}}],
269
270	Cell[BoxData[
271	RowBox[{"ComputeMassMatrix", "[",
272	RowBox[{"LagLRSM", ",", " ",
273	RowBox[{"ScreenOutput", " ", "\[Rule]", " ", "False"}]}], "]"}]], "Input",
274	CellChangeTimes->{{3.568096075110293^9, 3.5680960919641237`^9}, {
275	3.5680972939708776`^9, 3.568097296521027^9}}]
276	}, Open ]],
277
278	Cell[CellGroupData[{
279
280	Cell[TextData[{
281	"Compute only the mass matrix of the mixing of the neutral fields ",
282	Cell[BoxData[
283	FormBox[
284	RowBox[{
285	SuperscriptBox[
286	SubscriptBox["\[CapitalDelta]", "L"], "0"], ",", " ",
287	SuperscriptBox[
288	SubscriptBox["\[CapitalDelta]", "R"], "0"], ",", " ",
289	RowBox[{
290	SuperscriptBox["\[CapitalPhi]", "0"], " ", "and", " ",
291	SuperscriptBox[
292	RowBox[{"\[CapitalPhi]", "'"}], "0"]}]}], TraditionalForm]],
293	FormatType->"TraditionalForm"],
294	" (DL0, DR0, phi[1,1] and phi[2,2], mixing \[OpenCurlyQuote]2e\
295	\[CloseCurlyQuote])"
296	}], "Subsection",
297	CellChangeTimes->{{3.568034091791587^9, 3.568034103135004^9}, {
298	3.568034169446822^9, 3.568034176724732^9}, {3.5680342380739393`*^9,
299	3.5680342448739557`^9}, {3.568096182769602^9, 3.568096184263101*^9}, {
300	3.568097752128531^9, 3.568097788608597^9}, {3.568097934320142*^9,
301	3.568098076699478*^9}}],
302
303	Cell[CellGroupData[{
304
305	Cell[BoxData[
306	RowBox[{"ComputeMassMatrix", "[",
307	RowBox[{"LagLRSM", ",", " ",
308	RowBox[{"Mix", "->", "\"\<2e\>\""}]}], "]"}]], "Input",
309	CellChangeTimes->{{3.568034177974084^9, 3.568034208533511^9}, {
310	3.568096100709914^9, 3.5680961058370113`^9}, {3.5680961501077957`*^9,
311	3.56809615112292^9}, {3.5680973854973383`^9, 3.568097388310876*^9}, {
312	3.568098082390111^9, 3.5680980835741997`^9}}],
313
314	Cell[CellGroupData[{
315
316	Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
317	CellChangeTimes->{3.5680961517635517`^9, 3.568098085048417^9,
318	3.5682906081487703`*^9}],
319
320	Cell[BoxData[
321	InterpretationBox[
322	RowBox[{"\<\" => done in \"\>", "\[InvisibleSpace]", "2.4154800000000023`",
323	"\[InvisibleSpace]", "\<\" seconds.\"\>"}],
324	SequenceForm[" => done in ", 2.4154800000000023`, " seconds."],
325	Editable->False]], "Print",
326	CellChangeTimes->{3.5680961517635517`^9, 3.568098085048417^9,
327	3.568290610563766*^9}],
328
329	Cell[BoxData["\<\"Computation of the tree level mass matrix for the mixing id \
330	2e achieved.\"\>"], "Print",
331	CellChangeTimes->{3.5680961517635517`^9, 3.568098085048417^9,
332	3.568290613787242*^9}],
333
334	Cell[BoxData["\<\"For the results, use MassMatrix[ 2e ], GaugeBasis[ 2e ], \
335	MassBasis[ 2e ], BlockName [ 2e ] and MatrixSymbol [ 2e ].\"\>"], "Print",
336	CellChangeTimes->{3.5680961517635517`^9, 3.568098085048417^9,
337	3.568290613790457*^9}],
338
339	Cell[BoxData[
340	RowBox[{"{",
341	RowBox[{
342	TagBox[
343	RowBox[{"(", "\[NoBreak]", GridBox[{
344	{
345	RowBox[{
346	FractionBox["1", "2"], " ",
347	RowBox[{"(",
348	RowBox[{
349	RowBox[{
350	RowBox[{"-", "2"}], " ",
351	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
352	RowBox[{
353	SubscriptBox["\[Alpha]", "3"], " ",
354	SubsuperscriptBox["v", "1", "2"]}], "+",
355	RowBox[{
356	SubscriptBox["\[Alpha]", "2"], " ",
357	SuperscriptBox[
358	RowBox[{"(",
359	InterpretationBox[
360	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
361	Subsuperscript[FeynRules`v, 1, "'"],
362	Editable->False], ")"}], "2"]}], "+",
363	RowBox[{
364	SubscriptBox["\[Alpha]", "1"], " ",
365	RowBox[{"(",
366	RowBox[{
367	SubsuperscriptBox["v", "1", "2"], "+",
368	SuperscriptBox[
369	RowBox[{"(",
370	InterpretationBox[
371	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
372	Subsuperscript[FeynRules`v, 1, "'"],
373	Editable->False], ")"}], "2"]}], ")"}]}], "+",
374	RowBox[{"6", " ",
375	SubscriptBox["\[Rho]", "1"], " ",
376	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
377	RowBox[{"6", " ",
378	SubscriptBox["\[Rho]", "2"], " ",
379	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
380	RowBox[{
381	SubscriptBox["\[Rho]", "3"], " ",
382	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
383	RowBox[{
384	SubscriptBox["\[Rho]", "3"], " ",
385	SubscriptBox["v", "\<\"L\"\>"], " ",
386	SubscriptBox["v", "\<\"R\"\>"]}],
387	RowBox[{
388	RowBox[{"(",
389	RowBox[{
390	SubscriptBox["\[Alpha]", "1"], "+",
391	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
392	SubscriptBox["v", "1"], " ",
393	SubscriptBox["v", "\<\"L\"\>"]}],
394	RowBox[{
395	RowBox[{"(",
396	RowBox[{
397	SubscriptBox["\[Alpha]", "1"], "+",
398	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
399	InterpretationBox[
400	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
401	Subsuperscript[FeynRules`v, 1, "'"],
402	Editable->False], " ",
403	SubscriptBox["v", "\<\"L\"\>"]}]},
404	{
405	RowBox[{
406	SubscriptBox["\[Rho]", "3"], " ",
407	SubscriptBox["v", "\<\"L\"\>"], " ",
408	SubscriptBox["v", "\<\"R\"\>"]}],
409	RowBox[{
410	FractionBox["1", "2"], " ",
411	RowBox[{"(",
412	RowBox[{
413	RowBox[{
414	RowBox[{"-", "2"}], " ",
415	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
416	RowBox[{
417	SubscriptBox["\[Alpha]", "3"], " ",
418	SubsuperscriptBox["v", "1", "2"]}], "+",
419	RowBox[{
420	SubscriptBox["\[Alpha]", "2"], " ",
421	SuperscriptBox[
422	RowBox[{"(",
423	InterpretationBox[
424	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
425	Subsuperscript[FeynRules`v, 1, "'"],
426	Editable->False], ")"}], "2"]}], "+",
427	RowBox[{
428	SubscriptBox["\[Alpha]", "1"], " ",
429	RowBox[{"(",
430	RowBox[{
431	SubsuperscriptBox["v", "1", "2"], "+",
432	SuperscriptBox[
433	RowBox[{"(",
434	InterpretationBox[
435	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
436	Subsuperscript[FeynRules`v, 1, "'"],
437	Editable->False], ")"}], "2"]}], ")"}]}], "+",
438	RowBox[{
439	SubscriptBox["\[Rho]", "3"], " ",
440	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
441	RowBox[{"6", " ",
442	SubscriptBox["\[Rho]", "1"], " ",
443	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
444	RowBox[{"6", " ",
445	SubscriptBox["\[Rho]", "2"], " ",
446	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
447	RowBox[{
448	RowBox[{"(",
449	RowBox[{
450	SubscriptBox["\[Alpha]", "1"], "+",
451	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
452	SubscriptBox["v", "1"], " ",
453	SubscriptBox["v", "\<\"R\"\>"]}],
454	RowBox[{
455	RowBox[{"(",
456	RowBox[{
457	SubscriptBox["\[Alpha]", "1"], "+",
458	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
459	InterpretationBox[
460	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
461	Subsuperscript[FeynRules`v, 1, "'"],
462	Editable->False], " ",
463	SubscriptBox["v", "\<\"R\"\>"]}]},
464	{
465	RowBox[{
466	RowBox[{"(",
467	RowBox[{
468	SubscriptBox["\[Alpha]", "1"], "+",
469	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
470	SubscriptBox["v", "1"], " ",
471	SubscriptBox["v", "\<\"L\"\>"]}],
472	RowBox[{
473	RowBox[{"(",
474	RowBox[{
475	SubscriptBox["\[Alpha]", "1"], "+",
476	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
477	SubscriptBox["v", "1"], " ",
478	SubscriptBox["v", "\<\"R\"\>"]}],
479	RowBox[{
480	FractionBox["1", "2"], " ",
481	RowBox[{"(",
482	RowBox[{
483	RowBox[{
484	RowBox[{"-", "2"}], " ",
485	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
486	RowBox[{"6", " ",
487	SubscriptBox["\[Lambda]", "2"], " ",
488	SubsuperscriptBox["v", "1", "2"]}], "+",
489	RowBox[{"8", " ",
490	SubscriptBox["\[Lambda]", "3"], " ",
491	SuperscriptBox[
492	RowBox[{"(",
493	InterpretationBox[
494	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
495	Subsuperscript[FeynRules`v, 1, "'"],
496	Editable->False], ")"}], "2"]}], "+",
497	RowBox[{"2", " ",
498	SubscriptBox["\[Lambda]", "5"], " ",
499	SuperscriptBox[
500	RowBox[{"(",
501	InterpretationBox[
502	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
503	Subsuperscript[FeynRules`v, 1, "'"],
504	Editable->False], ")"}], "2"]}], "+",
505	RowBox[{"2", " ",
506	SubscriptBox["\[Lambda]", "6"], " ",
507	SuperscriptBox[
508	RowBox[{"(",
509	InterpretationBox[
510	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
511	Subsuperscript[FeynRules`v, 1, "'"],
512	Editable->False], ")"}], "2"]}], "+",
513	RowBox[{"2", " ",
514	SubscriptBox["\[Lambda]", "1"], " ",
515	RowBox[{"(",
516	RowBox[{
517	RowBox[{"3", " ",
518	SubsuperscriptBox["v", "1", "2"]}], "+",
519	SuperscriptBox[
520	RowBox[{"(",
521	InterpretationBox[
522	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
523	Subsuperscript[FeynRules`v, 1, "'"],
524	Editable->False], ")"}], "2"]}], ")"}]}], "+",
525	RowBox[{
526	SubscriptBox["\[Alpha]", "1"], " ",
527	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
528	RowBox[{
529	SubscriptBox["\[Alpha]", "3"], " ",
530	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
531	RowBox[{
532	SubscriptBox["\[Alpha]", "1"], " ",
533	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
534	RowBox[{
535	SubscriptBox["\[Alpha]", "3"], " ",
536	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
537	RowBox[{"2", " ",
538	RowBox[{"(",
539	RowBox[{
540	SubscriptBox["\[Lambda]", "1"], "+",
541	RowBox[{"4", " ",
542	SubscriptBox["\[Lambda]", "3"]}], "+",
543	SubscriptBox["\[Lambda]", "5"], "+",
544	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
545	SubscriptBox["v", "1"], " ",
546	InterpretationBox[
547	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
548	Subsuperscript[FeynRules`v, 1, "'"],
549	Editable->False]}]},
550	{
551	RowBox[{
552	RowBox[{"(",
553	RowBox[{
554	SubscriptBox["\[Alpha]", "1"], "+",
555	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
556	InterpretationBox[
557	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
558	Subsuperscript[FeynRules`v, 1, "'"],
559	Editable->False], " ",
560	SubscriptBox["v", "\<\"L\"\>"]}],
561	RowBox[{
562	RowBox[{"(",
563	RowBox[{
564	SubscriptBox["\[Alpha]", "1"], "+",
565	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
566	InterpretationBox[
567	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
568	Subsuperscript[FeynRules`v, 1, "'"],
569	Editable->False], " ",
570	SubscriptBox["v", "\<\"R\"\>"]}],
571	RowBox[{"2", " ",
572	RowBox[{"(",
573	RowBox[{
574	SubscriptBox["\[Lambda]", "1"], "+",
575	RowBox[{"4", " ",
576	SubscriptBox["\[Lambda]", "3"]}], "+",
577	SubscriptBox["\[Lambda]", "5"], "+",
578	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
579	SubscriptBox["v", "1"], " ",
580	InterpretationBox[
581	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
582	Subsuperscript[FeynRules`v, 1, "'"],
583	Editable->False]}],
584	RowBox[{
585	FractionBox["1", "2"], " ",
586	RowBox[{"(",
587	RowBox[{
588	RowBox[{
589	RowBox[{"-", "2"}], " ",
590	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
591	RowBox[{"8", " ",
592	SubscriptBox["\[Lambda]", "3"], " ",
593	SubsuperscriptBox["v", "1", "2"]}], "+",
594	RowBox[{"2", " ",
595	SubscriptBox["\[Lambda]", "5"], " ",
596	SubsuperscriptBox["v", "1", "2"]}], "+",
597	RowBox[{"2", " ",
598	SubscriptBox["\[Lambda]", "6"], " ",
599	SubsuperscriptBox["v", "1", "2"]}], "+",
600	RowBox[{"6", " ",
601	SubscriptBox["\[Lambda]", "2"], " ",
602	SuperscriptBox[
603	RowBox[{"(",
604	InterpretationBox[
605	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
606	Subsuperscript[FeynRules`v, 1, "'"],
607	Editable->False], ")"}], "2"]}], "+",
608	RowBox[{"2", " ",
609	SubscriptBox["\[Lambda]", "1"], " ",
610	RowBox[{"(",
611	RowBox[{
612	SubsuperscriptBox["v", "1", "2"], "+",
613	RowBox[{"3", " ",
614	SuperscriptBox[
615	RowBox[{"(",
616	InterpretationBox[
617	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
618	Subsuperscript[FeynRules`v, 1, "'"],
619	Editable->False], ")"}], "2"]}]}], ")"}]}], "+",
620	RowBox[{
621	SubscriptBox["\[Alpha]", "1"], " ",
622	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
623	RowBox[{
624	SubscriptBox["\[Alpha]", "2"], " ",
625	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
626	RowBox[{
627	SubscriptBox["\[Alpha]", "1"], " ",
628	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
629	RowBox[{
630	SubscriptBox["\[Alpha]", "2"], " ",
631	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
632	},
633	GridBoxAlignment->{
634	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
635	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
636	GridBoxSpacings->{"Columns" -> {
637	Offset[0.27999999999999997`], {
638	Offset[0.7]},
639	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
640	Offset[0.2], {
641	Offset[0.4]},
642	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
643	Function[BoxForm`e$,
644	MatrixForm[BoxForm`e$]]], ",",
645	TagBox[
646	RowBox[{"(", "\[NoBreak]", GridBox[{
647	{
648	RowBox[{
649	FractionBox["1", "2"], " ",
650	RowBox[{"(",
651	RowBox[{
652	RowBox[{
653	RowBox[{"-", "2"}], " ",
654	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
655	RowBox[{
656	SubscriptBox["\[Alpha]", "3"], " ",
657	SubsuperscriptBox["v", "1", "2"]}], "+",
658	RowBox[{
659	SubscriptBox["\[Alpha]", "2"], " ",
660	SuperscriptBox[
661	RowBox[{"(",
662	InterpretationBox[
663	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
664	Subsuperscript[FeynRules`v, 1, "'"],
665	Editable->False], ")"}], "2"]}], "+",
666	RowBox[{
667	SubscriptBox["\[Alpha]", "1"], " ",
668	RowBox[{"(",
669	RowBox[{
670	SubsuperscriptBox["v", "1", "2"], "+",
671	SuperscriptBox[
672	RowBox[{"(",
673	InterpretationBox[
674	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
675	Subsuperscript[FeynRules`v, 1, "'"],
676	Editable->False], ")"}], "2"]}], ")"}]}], "+",
677	RowBox[{"2", " ",
678	SubscriptBox["\[Rho]", "1"], " ",
679	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
680	RowBox[{"2", " ",
681	SubscriptBox["\[Rho]", "2"], " ",
682	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
683	RowBox[{
684	SubscriptBox["\[Rho]", "3"], " ",
685	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0",
686	"0"},
687	{"0",
688	RowBox[{
689	FractionBox["1", "2"], " ",
690	RowBox[{"(",
691	RowBox[{
692	RowBox[{
693	RowBox[{"-", "2"}], " ",
694	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
695	RowBox[{
696	SubscriptBox["\[Alpha]", "3"], " ",
697	SubsuperscriptBox["v", "1", "2"]}], "+",
698	RowBox[{
699	SubscriptBox["\[Alpha]", "2"], " ",
700	SuperscriptBox[
701	RowBox[{"(",
702	InterpretationBox[
703	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
704	Subsuperscript[FeynRules`v, 1, "'"],
705	Editable->False], ")"}], "2"]}], "+",
706	RowBox[{
707	SubscriptBox["\[Alpha]", "1"], " ",
708	RowBox[{"(",
709	RowBox[{
710	SubsuperscriptBox["v", "1", "2"], "+",
711	SuperscriptBox[
712	RowBox[{"(",
713	InterpretationBox[
714	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
715	Subsuperscript[FeynRules`v, 1, "'"],
716	Editable->False], ")"}], "2"]}], ")"}]}], "+",
717	RowBox[{
718	SubscriptBox["\[Rho]", "3"], " ",
719	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
720	RowBox[{"2", " ",
721	SubscriptBox["\[Rho]", "1"], " ",
722	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
723	RowBox[{"2", " ",
724	SubscriptBox["\[Rho]", "2"], " ",
725	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0"},
726	{"0", "0",
727	RowBox[{
728	FractionBox["1", "2"], " ",
729	RowBox[{"(",
730	RowBox[{
731	RowBox[{
732	RowBox[{"-", "2"}], " ",
733	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
734	RowBox[{"2", " ",
735	SubscriptBox["\[Lambda]", "2"], " ",
736	SubsuperscriptBox["v", "1", "2"]}], "-",
737	RowBox[{"8", " ",
738	SubscriptBox["\[Lambda]", "4"], " ",
739	SuperscriptBox[
740	RowBox[{"(",
741	InterpretationBox[
742	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
743	Subsuperscript[FeynRules`v, 1, "'"],
744	Editable->False], ")"}], "2"]}], "+",
745	RowBox[{"2", " ",
746	SubscriptBox["\[Lambda]", "5"], " ",
747	SuperscriptBox[
748	RowBox[{"(",
749	InterpretationBox[
750	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
751	Subsuperscript[FeynRules`v, 1, "'"],
752	Editable->False], ")"}], "2"]}], "-",
753	RowBox[{"2", " ",
754	SubscriptBox["\[Lambda]", "6"], " ",
755	SuperscriptBox[
756	RowBox[{"(",
757	InterpretationBox[
758	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
759	Subsuperscript[FeynRules`v, 1, "'"],
760	Editable->False], ")"}], "2"]}], "+",
761	RowBox[{"2", " ",
762	SubscriptBox["\[Lambda]", "1"], " ",
763	RowBox[{"(",
764	RowBox[{
765	SubsuperscriptBox["v", "1", "2"], "+",
766	SuperscriptBox[
767	RowBox[{"(",
768	InterpretationBox[
769	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
770	Subsuperscript[FeynRules`v, 1, "'"],
771	Editable->False], ")"}], "2"]}], ")"}]}], "+",
772	RowBox[{
773	SubscriptBox["\[Alpha]", "1"], " ",
774	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
775	RowBox[{
776	SubscriptBox["\[Alpha]", "3"], " ",
777	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
778	RowBox[{
779	SubscriptBox["\[Alpha]", "1"], " ",
780	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
781	RowBox[{
782	SubscriptBox["\[Alpha]", "3"], " ",
783	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
784	RowBox[{
785	RowBox[{"-", "2"}], " ",
786	RowBox[{"(",
787	RowBox[{
788	RowBox[{"2", " ",
789	SubscriptBox["\[Lambda]", "3"]}], "+",
790	RowBox[{"2", " ",
791	SubscriptBox["\[Lambda]", "4"]}], "+",
792	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
793	SubscriptBox["v", "1"], " ",
794	InterpretationBox[
795	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
796	Subsuperscript[FeynRules`v, 1, "'"],
797	Editable->False]}]},
798	{"0", "0",
799	RowBox[{
800	RowBox[{"-", "2"}], " ",
801	RowBox[{"(",
802	RowBox[{
803	RowBox[{"2", " ",
804	SubscriptBox["\[Lambda]", "3"]}], "+",
805	RowBox[{"2", " ",
806	SubscriptBox["\[Lambda]", "4"]}], "+",
807	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
808	SubscriptBox["v", "1"], " ",
809	InterpretationBox[
810	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
811	Subsuperscript[FeynRules`v, 1, "'"],
812	Editable->False]}],
813	RowBox[{
814	FractionBox["1", "2"], " ",
815	RowBox[{"(",
816	RowBox[{
817	RowBox[{
818	RowBox[{"-", "2"}], " ",
819	SubsuperscriptBox["\[Mu]", "1", "2"]}], "-",
820	RowBox[{"8", " ",
821	SubscriptBox["\[Lambda]", "4"], " ",
822	SubsuperscriptBox["v", "1", "2"]}], "+",
823	RowBox[{"2", " ",
824	SubscriptBox["\[Lambda]", "5"], " ",
825	SubsuperscriptBox["v", "1", "2"]}], "-",
826	RowBox[{"2", " ",
827	SubscriptBox["\[Lambda]", "6"], " ",
828	SubsuperscriptBox["v", "1", "2"]}], "+",
829	RowBox[{"2", " ",
830	SubscriptBox["\[Lambda]", "2"], " ",
831	SuperscriptBox[
832	RowBox[{"(",
833	InterpretationBox[
834	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
835	Subsuperscript[FeynRules`v, 1, "'"],
836	Editable->False], ")"}], "2"]}], "+",
837	RowBox[{"2", " ",
838	SubscriptBox["\[Lambda]", "1"], " ",
839	RowBox[{"(",
840	RowBox[{
841	SubsuperscriptBox["v", "1", "2"], "+",
842	SuperscriptBox[
843	RowBox[{"(",
844	InterpretationBox[
845	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
846	Subsuperscript[FeynRules`v, 1, "'"],
847	Editable->False], ")"}], "2"]}], ")"}]}], "+",
848	RowBox[{
849	SubscriptBox["\[Alpha]", "1"], " ",
850	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
851	RowBox[{
852	SubscriptBox["\[Alpha]", "2"], " ",
853	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
854	RowBox[{
855	SubscriptBox["\[Alpha]", "1"], " ",
856	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
857	RowBox[{
858	SubscriptBox["\[Alpha]", "2"], " ",
859	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
860	},
861	GridBoxAlignment->{
862	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
863	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
864	GridBoxSpacings->{"Columns" -> {
865	Offset[0.27999999999999997`], {
866	Offset[0.7]},
867	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
868	Offset[0.2], {
869	Offset[0.4]},
870	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
871	Function[BoxForm`e$,
872	MatrixForm[BoxForm`e$]]]}], "}"}]], "Print",
873	CellChangeTimes->{3.5680961517635517`^9, 3.568098085048417^9,
874	3.5682906139376097`*^9}]
875	}, Open ]]
876	}, Open ]]
877	}, Open ]],
878
879	Cell[CellGroupData[{
880
881	Cell[TextData[{
882	"Ask for all the information about ",
883	"the mixing of the neutral fields ",
884	Cell[BoxData[
885	FormBox[
886	RowBox[{
887	SuperscriptBox[
888	SubscriptBox["\[CapitalDelta]", "L"], "0"], ",", " ",
889	SuperscriptBox[
890	SubscriptBox["\[CapitalDelta]", "R"], "0"], ",", " ",
891	RowBox[{
892	SuperscriptBox["\[CapitalPhi]", "0"], " ", "and", " ",
893	SuperscriptBox[
894	RowBox[{"\[CapitalPhi]", "'"}], "0"]}]}], TraditionalForm]],
895	FormatType->"TraditionalForm"],
896	" (DL0, DR0, phi[1,1] and phi[2,2], mixing \[OpenCurlyQuote]2e\
897	\[CloseCurlyQuote])"
898	}], "Subsection",
899	CellChangeTimes->{{3.56803422194046^9, 3.56803425080986^9}, {
900	3.5680961867350807`^9, 3.568096188327422^9}, {3.568098109809639*^9,
901	3.568098113230564*^9}}],
902
903	Cell[CellGroupData[{
904
905	Cell[BoxData[
906	RowBox[{"MixingSummary", "[", "\"\<2e\>\"", "]"}]], "Input",
907	CellChangeTimes->{{3.568034252584323^9, 3.568034259451329^9}, {
908	3.568098120194654^9, 3.568098120932682^9}}],
909
910	Cell[CellGroupData[{
911
912	Cell[BoxData[
913	InterpretationBox[
914	RowBox[{"\<\"Gauge basis = \"\>", "\[InvisibleSpace]",
915	RowBox[{"{",
916	RowBox[{"DeltaL0", ",", "DeltaR0", ",",
917	SubscriptBox["h1",
918	RowBox[{"1", ",", "1"}]], ",",
919	SubscriptBox["h1",
920	RowBox[{"2", ",", "2"}]]}], "}"}]}],
921	SequenceForm[
922	"Gauge basis = ", {$CellContext`DeltaL0, $CellContext`DeltaR0,
923	$CellContext`h1[1, 1],
924	$CellContext`h1[2, 2]}],
925	Editable->False]], "Print",
926	CellChangeTimes->{
927	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
928	3.568290623965448*^9}}],
929
930	Cell[BoxData["\<\"Scalar sector\"\>"], "Print",
931	CellChangeTimes->{
932	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
933	3.568290623968425*^9}}],
934
935	Cell[BoxData["\<\"***************************************************\"\>"], \
936	"Print",
937	CellChangeTimes->{
938	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
939	3.568290623970976*^9}}],
940
941	Cell[BoxData[
942	InterpretationBox[
943	RowBox[{"\<\" Mass basis = \"\>", "\[InvisibleSpace]",
944	RowBox[{"{",
945	RowBox[{"h01", ",", "h02", ",", "h03", ",", "h04"}], "}"}],
946	"\[InvisibleSpace]", "\<\"\\n Block = \"\>", "\[InvisibleSpace]", "HMix",
947	"\[InvisibleSpace]", "\<\"\\n Symbol = \"\>", "\[InvisibleSpace]", "UHN"}],
948	SequenceForm[
949	" Mass basis = ", {$CellContext`h01, $CellContext`h02, $CellContext`h03, \
950	$CellContext`h04}, "\n Block = ", $CellContext`HMix,
951	"\n Symbol = ", $CellContext`UHN],
952	Editable->False]], "Print",
953	CellChangeTimes->{
954	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
955	3.568290623973446*^9}}],
956
957	Cell[BoxData[
958	InterpretationBox[
959	RowBox[{"\<\" Squared mass matrix = \"\>", "\[InvisibleSpace]",
960	TagBox[
961	RowBox[{"(", "\[NoBreak]", GridBox[{
962	{
963	RowBox[{
964	FractionBox["1", "2"], " ",
965	RowBox[{"(",
966	RowBox[{
967	RowBox[{
968	RowBox[{"-", "2"}], " ",
969	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
970	RowBox[{
971	SubscriptBox["\[Alpha]", "3"], " ",
972	SubsuperscriptBox["v", "1", "2"]}], "+",
973	RowBox[{
974	SubscriptBox["\[Alpha]", "2"], " ",
975	SuperscriptBox[
976	RowBox[{"(",
977	InterpretationBox[
978	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
979	Subsuperscript[FeynRules`v, 1, "'"],
980	Editable->False], ")"}], "2"]}], "+",
981	RowBox[{
982	SubscriptBox["\[Alpha]", "1"], " ",
983	RowBox[{"(",
984	RowBox[{
985	SubsuperscriptBox["v", "1", "2"], "+",
986	SuperscriptBox[
987	RowBox[{"(",
988	InterpretationBox[
989	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
990	Subsuperscript[FeynRules`v, 1, "'"],
991	Editable->False], ")"}], "2"]}], ")"}]}], "+",
992	RowBox[{"6", " ",
993	SubscriptBox["\[Rho]", "1"], " ",
994	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
995	RowBox[{"6", " ",
996	SubscriptBox["\[Rho]", "2"], " ",
997	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
998	RowBox[{
999	SubscriptBox["\[Rho]", "3"], " ",
1000	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1001	RowBox[{
1002	SubscriptBox["\[Rho]", "3"], " ",
1003	SubscriptBox["v", "\<\"L\"\>"], " ",
1004	SubscriptBox["v", "\<\"R\"\>"]}],
1005	RowBox[{
1006	RowBox[{"(",
1007	RowBox[{
1008	SubscriptBox["\[Alpha]", "1"], "+",
1009	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1010	SubscriptBox["v", "1"], " ",
1011	SubscriptBox["v", "\<\"L\"\>"]}],
1012	RowBox[{
1013	RowBox[{"(",
1014	RowBox[{
1015	SubscriptBox["\[Alpha]", "1"], "+",
1016	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1017	InterpretationBox[
1018	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1019	Subsuperscript[FeynRules`v, 1, "'"],
1020	Editable->False], " ",
1021	SubscriptBox["v", "\<\"L\"\>"]}]},
1022	{
1023	RowBox[{
1024	SubscriptBox["\[Rho]", "3"], " ",
1025	SubscriptBox["v", "\<\"L\"\>"], " ",
1026	SubscriptBox["v", "\<\"R\"\>"]}],
1027	RowBox[{
1028	FractionBox["1", "2"], " ",
1029	RowBox[{"(",
1030	RowBox[{
1031	RowBox[{
1032	RowBox[{"-", "2"}], " ",
1033	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1034	RowBox[{
1035	SubscriptBox["\[Alpha]", "3"], " ",
1036	SubsuperscriptBox["v", "1", "2"]}], "+",
1037	RowBox[{
1038	SubscriptBox["\[Alpha]", "2"], " ",
1039	SuperscriptBox[
1040	RowBox[{"(",
1041	InterpretationBox[
1042	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1043	Subsuperscript[FeynRules`v, 1, "'"],
1044	Editable->False], ")"}], "2"]}], "+",
1045	RowBox[{
1046	SubscriptBox["\[Alpha]", "1"], " ",
1047	RowBox[{"(",
1048	RowBox[{
1049	SubsuperscriptBox["v", "1", "2"], "+",
1050	SuperscriptBox[
1051	RowBox[{"(",
1052	InterpretationBox[
1053	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1054	Subsuperscript[FeynRules`v, 1, "'"],
1055	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1056	RowBox[{
1057	SubscriptBox["\[Rho]", "3"], " ",
1058	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1059	RowBox[{"6", " ",
1060	SubscriptBox["\[Rho]", "1"], " ",
1061	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
1062	RowBox[{"6", " ",
1063	SubscriptBox["\[Rho]", "2"], " ",
1064	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1065	RowBox[{
1066	RowBox[{"(",
1067	RowBox[{
1068	SubscriptBox["\[Alpha]", "1"], "+",
1069	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1070	SubscriptBox["v", "1"], " ",
1071	SubscriptBox["v", "\<\"R\"\>"]}],
1072	RowBox[{
1073	RowBox[{"(",
1074	RowBox[{
1075	SubscriptBox["\[Alpha]", "1"], "+",
1076	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1077	InterpretationBox[
1078	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1079	Subsuperscript[FeynRules`v, 1, "'"],
1080	Editable->False], " ",
1081	SubscriptBox["v", "\<\"R\"\>"]}]},
1082	{
1083	RowBox[{
1084	RowBox[{"(",
1085	RowBox[{
1086	SubscriptBox["\[Alpha]", "1"], "+",
1087	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1088	SubscriptBox["v", "1"], " ",
1089	SubscriptBox["v", "\<\"L\"\>"]}],
1090	RowBox[{
1091	RowBox[{"(",
1092	RowBox[{
1093	SubscriptBox["\[Alpha]", "1"], "+",
1094	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1095	SubscriptBox["v", "1"], " ",
1096	SubscriptBox["v", "\<\"R\"\>"]}],
1097	RowBox[{
1098	FractionBox["1", "2"], " ",
1099	RowBox[{"(",
1100	RowBox[{
1101	RowBox[{
1102	RowBox[{"-", "2"}], " ",
1103	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
1104	RowBox[{"6", " ",
1105	SubscriptBox["\[Lambda]", "2"], " ",
1106	SubsuperscriptBox["v", "1", "2"]}], "+",
1107	RowBox[{"8", " ",
1108	SubscriptBox["\[Lambda]", "3"], " ",
1109	SuperscriptBox[
1110	RowBox[{"(",
1111	InterpretationBox[
1112	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1113	Subsuperscript[FeynRules`v, 1, "'"],
1114	Editable->False], ")"}], "2"]}], "+",
1115	RowBox[{"2", " ",
1116	SubscriptBox["\[Lambda]", "5"], " ",
1117	SuperscriptBox[
1118	RowBox[{"(",
1119	InterpretationBox[
1120	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1121	Subsuperscript[FeynRules`v, 1, "'"],
1122	Editable->False], ")"}], "2"]}], "+",
1123	RowBox[{"2", " ",
1124	SubscriptBox["\[Lambda]", "6"], " ",
1125	SuperscriptBox[
1126	RowBox[{"(",
1127	InterpretationBox[
1128	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1129	Subsuperscript[FeynRules`v, 1, "'"],
1130	Editable->False], ")"}], "2"]}], "+",
1131	RowBox[{"2", " ",
1132	SubscriptBox["\[Lambda]", "1"], " ",
1133	RowBox[{"(",
1134	RowBox[{
1135	RowBox[{"3", " ",
1136	SubsuperscriptBox["v", "1", "2"]}], "+",
1137	SuperscriptBox[
1138	RowBox[{"(",
1139	InterpretationBox[
1140	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1141	Subsuperscript[FeynRules`v, 1, "'"],
1142	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1143	RowBox[{
1144	SubscriptBox["\[Alpha]", "1"], " ",
1145	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1146	RowBox[{
1147	SubscriptBox["\[Alpha]", "3"], " ",
1148	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1149	RowBox[{
1150	SubscriptBox["\[Alpha]", "1"], " ",
1151	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1152	RowBox[{
1153	SubscriptBox["\[Alpha]", "3"], " ",
1154	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1155	RowBox[{"2", " ",
1156	RowBox[{"(",
1157	RowBox[{
1158	SubscriptBox["\[Lambda]", "1"], "+",
1159	RowBox[{"4", " ",
1160	SubscriptBox["\[Lambda]", "3"]}], "+",
1161	SubscriptBox["\[Lambda]", "5"], "+",
1162	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1163	SubscriptBox["v", "1"], " ",
1164	InterpretationBox[
1165	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1166	Subsuperscript[FeynRules`v, 1, "'"],
1167	Editable->False]}]},
1168	{
1169	RowBox[{
1170	RowBox[{"(",
1171	RowBox[{
1172	SubscriptBox["\[Alpha]", "1"], "+",
1173	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1174	InterpretationBox[
1175	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1176	Subsuperscript[FeynRules`v, 1, "'"],
1177	Editable->False], " ",
1178	SubscriptBox["v", "\<\"L\"\>"]}],
1179	RowBox[{
1180	RowBox[{"(",
1181	RowBox[{
1182	SubscriptBox["\[Alpha]", "1"], "+",
1183	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1184	InterpretationBox[
1185	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1186	Subsuperscript[FeynRules`v, 1, "'"],
1187	Editable->False], " ",
1188	SubscriptBox["v", "\<\"R\"\>"]}],
1189	RowBox[{"2", " ",
1190	RowBox[{"(",
1191	RowBox[{
1192	SubscriptBox["\[Lambda]", "1"], "+",
1193	RowBox[{"4", " ",
1194	SubscriptBox["\[Lambda]", "3"]}], "+",
1195	SubscriptBox["\[Lambda]", "5"], "+",
1196	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1197	SubscriptBox["v", "1"], " ",
1198	InterpretationBox[
1199	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1200	Subsuperscript[FeynRules`v, 1, "'"],
1201	Editable->False]}],
1202	RowBox[{
1203	FractionBox["1", "2"], " ",
1204	RowBox[{"(",
1205	RowBox[{
1206	RowBox[{
1207	RowBox[{"-", "2"}], " ",
1208	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
1209	RowBox[{"8", " ",
1210	SubscriptBox["\[Lambda]", "3"], " ",
1211	SubsuperscriptBox["v", "1", "2"]}], "+",
1212	RowBox[{"2", " ",
1213	SubscriptBox["\[Lambda]", "5"], " ",
1214	SubsuperscriptBox["v", "1", "2"]}], "+",
1215	RowBox[{"2", " ",
1216	SubscriptBox["\[Lambda]", "6"], " ",
1217	SubsuperscriptBox["v", "1", "2"]}], "+",
1218	RowBox[{"6", " ",
1219	SubscriptBox["\[Lambda]", "2"], " ",
1220	SuperscriptBox[
1221	RowBox[{"(",
1222	InterpretationBox[
1223	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1224	Subsuperscript[FeynRules`v, 1, "'"],
1225	Editable->False], ")"}], "2"]}], "+",
1226	RowBox[{"2", " ",
1227	SubscriptBox["\[Lambda]", "1"], " ",
1228	RowBox[{"(",
1229	RowBox[{
1230	SubsuperscriptBox["v", "1", "2"], "+",
1231	RowBox[{"3", " ",
1232	SuperscriptBox[
1233	RowBox[{"(",
1234	InterpretationBox[
1235	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1236	Subsuperscript[FeynRules`v, 1, "'"],
1237	Editable->False], ")"}], "2"]}]}], ")"}]}], "+",
1238	RowBox[{
1239	SubscriptBox["\[Alpha]", "1"], " ",
1240	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1241	RowBox[{
1242	SubscriptBox["\[Alpha]", "2"], " ",
1243	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1244	RowBox[{
1245	SubscriptBox["\[Alpha]", "1"], " ",
1246	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1247	RowBox[{
1248	SubscriptBox["\[Alpha]", "2"], " ",
1249	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
1250	},
1251	GridBoxAlignment->{
1252	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1253	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1254	GridBoxSpacings->{"Columns" -> {
1255	Offset[0.27999999999999997`], {
1256	Offset[0.7]},
1257	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1258	Offset[0.2], {
1259	Offset[0.4]},
1260	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1261	Function[BoxForm`e$,
1262	MatrixForm[BoxForm`e$]]]}],
1263	SequenceForm[" Squared mass matrix = ",
1264	MatrixForm[{{
1265	Rational[1, 2] ((-2)
1266	FeynRules`mu2^2 + $CellContext`al3 $CellContext`v1^2 + \
1267	$CellContext`al2 $CellContext`v1p^2 + $CellContext`al1 ($CellContext`v1^2 + \
1268	$CellContext`v1p^2) + 6 $CellContext`rho1 $CellContext`vL^2 +
1269	6 $CellContext`rho2 $CellContext`vL^2 + $CellContext`rho3 \
1270	$CellContext`vR^2), $CellContext`rho3 $CellContext`vL $CellContext`vR, \
1271	($CellContext`al1 + $CellContext`al3) $CellContext`v1 $CellContext`vL, \
1272	($CellContext`al1 + $CellContext`al2) $CellContext`v1p $CellContext`vL}, \
1273	{$CellContext`rho3 $CellContext`vL $CellContext`vR,
1274	Rational[1, 2] ((-2)
1275	FeynRules`mu2^2 + $CellContext`al3 $CellContext`v1^2 + \
1276	$CellContext`al2 $CellContext`v1p^2 + $CellContext`al1 ($CellContext`v1^2 + \
1277	$CellContext`v1p^2) + $CellContext`rho3 $CellContext`vL^2 +
1278	6 $CellContext`rho1 $CellContext`vR^2 -
1279	6 $CellContext`rho2 $CellContext`vR^2), ($CellContext`al1 + \
1280	$CellContext`al3) $CellContext`v1 $CellContext`vR, ($CellContext`al1 + \
1281	$CellContext`al2) $CellContext`v1p $CellContext`vR}, {($CellContext`al1 + \
1282	$CellContext`al3) $CellContext`v1 $CellContext`vL, ($CellContext`al1 + \
1283	$CellContext`al3) $CellContext`v1 $CellContext`vR,
1284	Rational[1, 2] ((-2) FeynRules`mu1^2 +
1285	6 $CellContext`lam2 $CellContext`v1^2 +
1286	8 $CellContext`lam3 $CellContext`v1p^2 +
1287	2 $CellContext`lam5 $CellContext`v1p^2 +
1288	2 $CellContext`lam6 $CellContext`v1p^2 +
1289	2 $CellContext`lam1 (
1290	3 $CellContext`v1^2 + $CellContext`v1p^2) + $CellContext`al1 \
1291	$CellContext`vL^2 + $CellContext`al3 $CellContext`vL^2 + $CellContext`al1 \
1292	$CellContext`vR^2 + $CellContext`al3 $CellContext`vR^2),
1293	2 ($CellContext`lam1 +
1294	4 $CellContext`lam3 + $CellContext`lam5 + $CellContext`lam6) \
1295	$CellContext`v1 $CellContext`v1p}, {($CellContext`al1 + $CellContext`al2) \
1296	$CellContext`v1p $CellContext`vL, ($CellContext`al1 + $CellContext`al2) \
1297	$CellContext`v1p $CellContext`vR,
1298	2 ($CellContext`lam1 +
1299	4 $CellContext`lam3 + $CellContext`lam5 + $CellContext`lam6) \
1300	$CellContext`v1 $CellContext`v1p,
1301	Rational[1, 2] ((-2) FeynRules`mu1^2 +
1302	8 $CellContext`lam3 $CellContext`v1^2 +
1303	2 $CellContext`lam5 $CellContext`v1^2 +
1304	2 $CellContext`lam6 $CellContext`v1^2 +
1305	6 $CellContext`lam2 $CellContext`v1p^2 +
1306	2 $CellContext`lam1 ($CellContext`v1^2 +
1307	3 $CellContext`v1p^2) + $CellContext`al1 $CellContext`vL^2 + \
1308	$CellContext`al2 $CellContext`vL^2 + $CellContext`al1 $CellContext`vR^2 + \
1309	$CellContext`al2 $CellContext`vR^2)}}]],
1310	Editable->False]], "Print",
1311	CellChangeTimes->{
1312	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1313	3.568290623977722*^9}}],
1314
1315	Cell[BoxData[
1316	InterpretationBox[
1317	RowBox[{"\<\" Mixing matrix = \"\>", "\[InvisibleSpace]",
1318	TagBox["\<\"Please use the numerical code.\"\>",
1319	Function[BoxForm`e$,
1320	MatrixForm[BoxForm`e$]]]}],
1321	SequenceForm[" Mixing matrix = ",
1322	MatrixForm["Please use the numerical code."]],
1323	Editable->False]], "Print",
1324	CellChangeTimes->{
1325	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1326	3.568290623981736*^9}}],
1327
1328	Cell[BoxData["\<\"Pseudoscalar sector\"\>"], "Print",
1329	CellChangeTimes->{
1330	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1331	3.56829062398346*^9}}],
1332
1333	Cell[BoxData["\<\"***************************************************\"\>"], \
1334	"Print",
1335	CellChangeTimes->{
1336	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1337	3.568290623985106*^9}}],
1338
1339	Cell[BoxData[
1340	InterpretationBox[
1341	RowBox[{"\<\" Mass basis = \"\>", "\[InvisibleSpace]",
1342	RowBox[{"{",
1343	RowBox[{"G01", ",", "G02", ",", "a01", ",", "a02"}], "}"}],
1344	"\[InvisibleSpace]", "\<\"\\n Block = \"\>", "\[InvisibleSpace]", "AMix",
1345	"\[InvisibleSpace]", "\<\"\\n Symbol = \"\>", "\[InvisibleSpace]", "UAN"}],
1346	SequenceForm[
1347	" Mass basis = ", {$CellContext`G01, $CellContext`G02, $CellContext`a01, \
1348	$CellContext`a02}, "\n Block = ", $CellContext`AMix,
1349	"\n Symbol = ", $CellContext`UAN],
1350	Editable->False]], "Print",
1351	CellChangeTimes->{
1352	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1353	3.5682906239868603`*^9}}],
1354
1355	Cell[BoxData[
1356	InterpretationBox[
1357	RowBox[{"\<\" Squared mass matrix = \"\>", "\[InvisibleSpace]",
1358	TagBox[
1359	RowBox[{"(", "\[NoBreak]", GridBox[{
1360	{
1361	RowBox[{
1362	FractionBox["1", "2"], " ",
1363	RowBox[{"(",
1364	RowBox[{
1365	RowBox[{
1366	RowBox[{"-", "2"}], " ",
1367	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1368	RowBox[{
1369	SubscriptBox["\[Alpha]", "3"], " ",
1370	SubsuperscriptBox["v", "1", "2"]}], "+",
1371	RowBox[{
1372	SubscriptBox["\[Alpha]", "2"], " ",
1373	SuperscriptBox[
1374	RowBox[{"(",
1375	InterpretationBox[
1376	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1377	Subsuperscript[FeynRules`v, 1, "'"],
1378	Editable->False], ")"}], "2"]}], "+",
1379	RowBox[{
1380	SubscriptBox["\[Alpha]", "1"], " ",
1381	RowBox[{"(",
1382	RowBox[{
1383	SubsuperscriptBox["v", "1", "2"], "+",
1384	SuperscriptBox[
1385	RowBox[{"(",
1386	InterpretationBox[
1387	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1388	Subsuperscript[FeynRules`v, 1, "'"],
1389	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1390	RowBox[{"2", " ",
1391	SubscriptBox["\[Rho]", "1"], " ",
1392	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1393	RowBox[{"2", " ",
1394	SubscriptBox["\[Rho]", "2"], " ",
1395	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1396	RowBox[{
1397	SubscriptBox["\[Rho]", "3"], " ",
1398	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0",
1399	"0"},
1400	{"0",
1401	RowBox[{
1402	FractionBox["1", "2"], " ",
1403	RowBox[{"(",
1404	RowBox[{
1405	RowBox[{
1406	RowBox[{"-", "2"}], " ",
1407	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1408	RowBox[{
1409	SubscriptBox["\[Alpha]", "3"], " ",
1410	SubsuperscriptBox["v", "1", "2"]}], "+",
1411	RowBox[{
1412	SubscriptBox["\[Alpha]", "2"], " ",
1413	SuperscriptBox[
1414	RowBox[{"(",
1415	InterpretationBox[
1416	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1417	Subsuperscript[FeynRules`v, 1, "'"],
1418	Editable->False], ")"}], "2"]}], "+",
1419	RowBox[{
1420	SubscriptBox["\[Alpha]", "1"], " ",
1421	RowBox[{"(",
1422	RowBox[{
1423	SubsuperscriptBox["v", "1", "2"], "+",
1424	SuperscriptBox[
1425	RowBox[{"(",
1426	InterpretationBox[
1427	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1428	Subsuperscript[FeynRules`v, 1, "'"],
1429	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1430	RowBox[{
1431	SubscriptBox["\[Rho]", "3"], " ",
1432	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1433	RowBox[{"2", " ",
1434	SubscriptBox["\[Rho]", "1"], " ",
1435	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
1436	RowBox[{"2", " ",
1437	SubscriptBox["\[Rho]", "2"], " ",
1438	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0"},
1439	{"0", "0",
1440	RowBox[{
1441	FractionBox["1", "2"], " ",
1442	RowBox[{"(",
1443	RowBox[{
1444	RowBox[{
1445	RowBox[{"-", "2"}], " ",
1446	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
1447	RowBox[{"2", " ",
1448	SubscriptBox["\[Lambda]", "2"], " ",
1449	SubsuperscriptBox["v", "1", "2"]}], "-",
1450	RowBox[{"8", " ",
1451	SubscriptBox["\[Lambda]", "4"], " ",
1452	SuperscriptBox[
1453	RowBox[{"(",
1454	InterpretationBox[
1455	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1456	Subsuperscript[FeynRules`v, 1, "'"],
1457	Editable->False], ")"}], "2"]}], "+",
1458	RowBox[{"2", " ",
1459	SubscriptBox["\[Lambda]", "5"], " ",
1460	SuperscriptBox[
1461	RowBox[{"(",
1462	InterpretationBox[
1463	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1464	Subsuperscript[FeynRules`v, 1, "'"],
1465	Editable->False], ")"}], "2"]}], "-",
1466	RowBox[{"2", " ",
1467	SubscriptBox["\[Lambda]", "6"], " ",
1468	SuperscriptBox[
1469	RowBox[{"(",
1470	InterpretationBox[
1471	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1472	Subsuperscript[FeynRules`v, 1, "'"],
1473	Editable->False], ")"}], "2"]}], "+",
1474	RowBox[{"2", " ",
1475	SubscriptBox["\[Lambda]", "1"], " ",
1476	RowBox[{"(",
1477	RowBox[{
1478	SubsuperscriptBox["v", "1", "2"], "+",
1479	SuperscriptBox[
1480	RowBox[{"(",
1481	InterpretationBox[
1482	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1483	Subsuperscript[FeynRules`v, 1, "'"],
1484	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1485	RowBox[{
1486	SubscriptBox["\[Alpha]", "1"], " ",
1487	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1488	RowBox[{
1489	SubscriptBox["\[Alpha]", "3"], " ",
1490	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1491	RowBox[{
1492	SubscriptBox["\[Alpha]", "1"], " ",
1493	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1494	RowBox[{
1495	SubscriptBox["\[Alpha]", "3"], " ",
1496	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1497	RowBox[{
1498	RowBox[{"-", "2"}], " ",
1499	RowBox[{"(",
1500	RowBox[{
1501	RowBox[{"2", " ",
1502	SubscriptBox["\[Lambda]", "3"]}], "+",
1503	RowBox[{"2", " ",
1504	SubscriptBox["\[Lambda]", "4"]}], "+",
1505	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1506	SubscriptBox["v", "1"], " ",
1507	InterpretationBox[
1508	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1509	Subsuperscript[FeynRules`v, 1, "'"],
1510	Editable->False]}]},
1511	{"0", "0",
1512	RowBox[{
1513	RowBox[{"-", "2"}], " ",
1514	RowBox[{"(",
1515	RowBox[{
1516	RowBox[{"2", " ",
1517	SubscriptBox["\[Lambda]", "3"]}], "+",
1518	RowBox[{"2", " ",
1519	SubscriptBox["\[Lambda]", "4"]}], "+",
1520	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1521	SubscriptBox["v", "1"], " ",
1522	InterpretationBox[
1523	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1524	Subsuperscript[FeynRules`v, 1, "'"],
1525	Editable->False]}],
1526	RowBox[{
1527	FractionBox["1", "2"], " ",
1528	RowBox[{"(",
1529	RowBox[{
1530	RowBox[{
1531	RowBox[{"-", "2"}], " ",
1532	SubsuperscriptBox["\[Mu]", "1", "2"]}], "-",
1533	RowBox[{"8", " ",
1534	SubscriptBox["\[Lambda]", "4"], " ",
1535	SubsuperscriptBox["v", "1", "2"]}], "+",
1536	RowBox[{"2", " ",
1537	SubscriptBox["\[Lambda]", "5"], " ",
1538	SubsuperscriptBox["v", "1", "2"]}], "-",
1539	RowBox[{"2", " ",
1540	SubscriptBox["\[Lambda]", "6"], " ",
1541	SubsuperscriptBox["v", "1", "2"]}], "+",
1542	RowBox[{"2", " ",
1543	SubscriptBox["\[Lambda]", "2"], " ",
1544	SuperscriptBox[
1545	RowBox[{"(",
1546	InterpretationBox[
1547	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1548	Subsuperscript[FeynRules`v, 1, "'"],
1549	Editable->False], ")"}], "2"]}], "+",
1550	RowBox[{"2", " ",
1551	SubscriptBox["\[Lambda]", "1"], " ",
1552	RowBox[{"(",
1553	RowBox[{
1554	SubsuperscriptBox["v", "1", "2"], "+",
1555	SuperscriptBox[
1556	RowBox[{"(",
1557	InterpretationBox[
1558	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1559	Subsuperscript[FeynRules`v, 1, "'"],
1560	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1561	RowBox[{
1562	SubscriptBox["\[Alpha]", "1"], " ",
1563	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1564	RowBox[{
1565	SubscriptBox["\[Alpha]", "2"], " ",
1566	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1567	RowBox[{
1568	SubscriptBox["\[Alpha]", "1"], " ",
1569	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1570	RowBox[{
1571	SubscriptBox["\[Alpha]", "2"], " ",
1572	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
1573	},
1574	GridBoxAlignment->{
1575	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
1576	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
1577	GridBoxSpacings->{"Columns" -> {
1578	Offset[0.27999999999999997`], {
1579	Offset[0.7]},
1580	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1581	Offset[0.2], {
1582	Offset[0.4]},
1583	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1584	Function[BoxForm`e$,
1585	MatrixForm[BoxForm`e$]]]}],
1586	SequenceForm[" Squared mass matrix = ",
1587	MatrixForm[{{
1588	Rational[1, 2] ((-2)
1589	FeynRules`mu2^2 + $CellContext`al3 $CellContext`v1^2 + \
1590	$CellContext`al2 $CellContext`v1p^2 + $CellContext`al1 ($CellContext`v1^2 + \
1591	$CellContext`v1p^2) + 2 $CellContext`rho1 $CellContext`vL^2 +
1592	2 $CellContext`rho2 $CellContext`vL^2 + $CellContext`rho3 \
1593	$CellContext`vR^2), 0, 0, 0}, {
1594	0, Rational[
1595	1, 2] ((-2)
1596	FeynRules`mu2^2 + $CellContext`al3 $CellContext`v1^2 + \
1597	$CellContext`al2 $CellContext`v1p^2 + $CellContext`al1 ($CellContext`v1^2 + \
1598	$CellContext`v1p^2) + $CellContext`rho3 $CellContext`vL^2 +
1599	2 $CellContext`rho1 $CellContext`vR^2 -
1600	2 $CellContext`rho2 $CellContext`vR^2), 0, 0}, {
1601	0, 0, Rational[1, 2] ((-2) FeynRules`mu1^2 +
1602	2 $CellContext`lam2 $CellContext`v1^2 -
1603	8 $CellContext`lam4 $CellContext`v1p^2 +
1604	2 $CellContext`lam5 $CellContext`v1p^2 -
1605	2 $CellContext`lam6 $CellContext`v1p^2 +
1606	2 $CellContext`lam1 ($CellContext`v1^2 + $CellContext`v1p^2) + \
1607	$CellContext`al1 $CellContext`vL^2 + $CellContext`al3 $CellContext`vL^2 + \
1608	$CellContext`al1 $CellContext`vR^2 + $CellContext`al3 $CellContext`vR^2), \
1609	(-2) (2 $CellContext`lam3 +
1610	2 $CellContext`lam4 + $CellContext`lam6) $CellContext`v1 \
1611	$CellContext`v1p}, {
1612	0, 0, (-2) (2 $CellContext`lam3 +
1613	2 $CellContext`lam4 + $CellContext`lam6) $CellContext`v1 \
1614	$CellContext`v1p,
1615	Rational[1, 2] ((-2) FeynRules`mu1^2 -
1616	8 $CellContext`lam4 $CellContext`v1^2 +
1617	2 $CellContext`lam5 $CellContext`v1^2 -
1618	2 $CellContext`lam6 $CellContext`v1^2 +
1619	2 $CellContext`lam2 $CellContext`v1p^2 +
1620	2 $CellContext`lam1 ($CellContext`v1^2 + $CellContext`v1p^2) + \
1621	$CellContext`al1 $CellContext`vL^2 + $CellContext`al2 $CellContext`vL^2 + \
1622	$CellContext`al1 $CellContext`vR^2 + $CellContext`al2 $CellContext`vR^2)}}]],
1623	Editable->False]], "Print",
1624	CellChangeTimes->{
1625	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1626	3.568290623990456*^9}}],
1627
1628	Cell[BoxData[
1629	InterpretationBox[
1630	RowBox[{"\<\" Mixing matrix = \"\>", "\[InvisibleSpace]",
1631	TagBox["\<\"Please use the numerical code.\"\>",
1632	Function[BoxForm`e$,
1633	MatrixForm[BoxForm`e$]]]}],
1634	SequenceForm[" Mixing matrix = ",
1635	MatrixForm["Please use the numerical code."]],
1636	Editable->False]], "Print",
1637	CellChangeTimes->{
1638	3.56809618938696^9, 3.568098121364786^9, {3.568290616261177*^9,
1639	3.568290623993684*^9}}]
1640	}, Open ]]
1641	}, Open ]]
1642	}, Open ]],
1643
1644	Cell[CellGroupData[{
1645
1646	Cell["\<\
1647	Print the scalar mass matrix of mixing \[OpenCurlyQuote]2e\[CloseCurlyQuote]\
1648	\>", "Subsection",
1649	CellChangeTimes->{{3.5680981329843807`^9, 3.5680982021358967`^9}}],
1650
1651	Cell[CellGroupData[{
1652
1653	Cell[BoxData[
1654	RowBox[{
1655	RowBox[{"MassMatrix", "[",
1656	RowBox[{"\"\<2e\>\"", ",", " ", "\"\<S\>\""}], "]"}], "//",
1657	"MatrixForm"}]], "Input",
1658	CellChangeTimes->{{3.56809816954711^9, 3.568098187162857^9}}],
1659
1660	Cell[BoxData[
1661	TagBox[
1662	RowBox[{"(", "\[NoBreak]", GridBox[{
1663	{
1664	RowBox[{
1665	FractionBox["1", "2"], " ",
1666	RowBox[{"(",
1667	RowBox[{
1668	RowBox[{
1669	RowBox[{"-", "2"}], " ",
1670	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1671	RowBox[{
1672	SubscriptBox["\[Alpha]", "3"], " ",
1673	SubsuperscriptBox["v", "1", "2"]}], "+",
1674	RowBox[{
1675	SubscriptBox["\[Alpha]", "2"], " ",
1676	SuperscriptBox[
1677	RowBox[{"(",
1678	InterpretationBox[
1679	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1680	Subsuperscript[FeynRules`v, 1, "'"],
1681	Editable->False], ")"}], "2"]}], "+",
1682	RowBox[{
1683	SubscriptBox["\[Alpha]", "1"], " ",
1684	RowBox[{"(",
1685	RowBox[{
1686	SubsuperscriptBox["v", "1", "2"], "+",
1687	SuperscriptBox[
1688	RowBox[{"(",
1689	InterpretationBox[
1690	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1691	Subsuperscript[FeynRules`v, 1, "'"],
1692	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1693	RowBox[{"6", " ",
1694	SubscriptBox["\[Rho]", "1"], " ",
1695	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1696	RowBox[{"6", " ",
1697	SubscriptBox["\[Rho]", "2"], " ",
1698	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1699	RowBox[{
1700	SubscriptBox["\[Rho]", "3"], " ",
1701	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1702	RowBox[{
1703	SubscriptBox["\[Rho]", "3"], " ",
1704	SubscriptBox["v", "\<\"L\"\>"], " ",
1705	SubscriptBox["v", "\<\"R\"\>"]}],
1706	RowBox[{
1707	RowBox[{"(",
1708	RowBox[{
1709	SubscriptBox["\[Alpha]", "1"], "+",
1710	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1711	SubscriptBox["v", "1"], " ",
1712	SubscriptBox["v", "\<\"L\"\>"]}],
1713	RowBox[{
1714	RowBox[{"(",
1715	RowBox[{
1716	SubscriptBox["\[Alpha]", "1"], "+",
1717	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1718	InterpretationBox[
1719	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1720	Subsuperscript[FeynRules`v, 1, "'"],
1721	Editable->False], " ",
1722	SubscriptBox["v", "\<\"L\"\>"]}]},
1723	{
1724	RowBox[{
1725	SubscriptBox["\[Rho]", "3"], " ",
1726	SubscriptBox["v", "\<\"L\"\>"], " ",
1727	SubscriptBox["v", "\<\"R\"\>"]}],
1728	RowBox[{
1729	FractionBox["1", "2"], " ",
1730	RowBox[{"(",
1731	RowBox[{
1732	RowBox[{
1733	RowBox[{"-", "2"}], " ",
1734	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1735	RowBox[{
1736	SubscriptBox["\[Alpha]", "3"], " ",
1737	SubsuperscriptBox["v", "1", "2"]}], "+",
1738	RowBox[{
1739	SubscriptBox["\[Alpha]", "2"], " ",
1740	SuperscriptBox[
1741	RowBox[{"(",
1742	InterpretationBox[
1743	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1744	Subsuperscript[FeynRules`v, 1, "'"],
1745	Editable->False], ")"}], "2"]}], "+",
1746	RowBox[{
1747	SubscriptBox["\[Alpha]", "1"], " ",
1748	RowBox[{"(",
1749	RowBox[{
1750	SubsuperscriptBox["v", "1", "2"], "+",
1751	SuperscriptBox[
1752	RowBox[{"(",
1753	InterpretationBox[
1754	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1755	Subsuperscript[FeynRules`v, 1, "'"],
1756	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1757	RowBox[{
1758	SubscriptBox["\[Rho]", "3"], " ",
1759	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1760	RowBox[{"6", " ",
1761	SubscriptBox["\[Rho]", "1"], " ",
1762	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
1763	RowBox[{"6", " ",
1764	SubscriptBox["\[Rho]", "2"], " ",
1765	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1766	RowBox[{
1767	RowBox[{"(",
1768	RowBox[{
1769	SubscriptBox["\[Alpha]", "1"], "+",
1770	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1771	SubscriptBox["v", "1"], " ",
1772	SubscriptBox["v", "\<\"R\"\>"]}],
1773	RowBox[{
1774	RowBox[{"(",
1775	RowBox[{
1776	SubscriptBox["\[Alpha]", "1"], "+",
1777	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1778	InterpretationBox[
1779	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1780	Subsuperscript[FeynRules`v, 1, "'"],
1781	Editable->False], " ",
1782	SubscriptBox["v", "\<\"R\"\>"]}]},
1783	{
1784	RowBox[{
1785	RowBox[{"(",
1786	RowBox[{
1787	SubscriptBox["\[Alpha]", "1"], "+",
1788	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1789	SubscriptBox["v", "1"], " ",
1790	SubscriptBox["v", "\<\"L\"\>"]}],
1791	RowBox[{
1792	RowBox[{"(",
1793	RowBox[{
1794	SubscriptBox["\[Alpha]", "1"], "+",
1795	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
1796	SubscriptBox["v", "1"], " ",
1797	SubscriptBox["v", "\<\"R\"\>"]}],
1798	RowBox[{
1799	FractionBox["1", "2"], " ",
1800	RowBox[{"(",
1801	RowBox[{
1802	RowBox[{
1803	RowBox[{"-", "2"}], " ",
1804	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
1805	RowBox[{"6", " ",
1806	SubscriptBox["\[Lambda]", "2"], " ",
1807	SubsuperscriptBox["v", "1", "2"]}], "+",
1808	RowBox[{"8", " ",
1809	SubscriptBox["\[Lambda]", "3"], " ",
1810	SuperscriptBox[
1811	RowBox[{"(",
1812	InterpretationBox[
1813	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1814	Subsuperscript[FeynRules`v, 1, "'"],
1815	Editable->False], ")"}], "2"]}], "+",
1816	RowBox[{"2", " ",
1817	SubscriptBox["\[Lambda]", "5"], " ",
1818	SuperscriptBox[
1819	RowBox[{"(",
1820	InterpretationBox[
1821	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1822	Subsuperscript[FeynRules`v, 1, "'"],
1823	Editable->False], ")"}], "2"]}], "+",
1824	RowBox[{"2", " ",
1825	SubscriptBox["\[Lambda]", "6"], " ",
1826	SuperscriptBox[
1827	RowBox[{"(",
1828	InterpretationBox[
1829	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1830	Subsuperscript[FeynRules`v, 1, "'"],
1831	Editable->False], ")"}], "2"]}], "+",
1832	RowBox[{"2", " ",
1833	SubscriptBox["\[Lambda]", "1"], " ",
1834	RowBox[{"(",
1835	RowBox[{
1836	RowBox[{"3", " ",
1837	SubsuperscriptBox["v", "1", "2"]}], "+",
1838	SuperscriptBox[
1839	RowBox[{"(",
1840	InterpretationBox[
1841	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1842	Subsuperscript[FeynRules`v, 1, "'"],
1843	Editable->False], ")"}], "2"]}], ")"}]}], "+",
1844	RowBox[{
1845	SubscriptBox["\[Alpha]", "1"], " ",
1846	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1847	RowBox[{
1848	SubscriptBox["\[Alpha]", "3"], " ",
1849	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1850	RowBox[{
1851	SubscriptBox["\[Alpha]", "1"], " ",
1852	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1853	RowBox[{
1854	SubscriptBox["\[Alpha]", "3"], " ",
1855	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
1856	RowBox[{"2", " ",
1857	RowBox[{"(",
1858	RowBox[{
1859	SubscriptBox["\[Lambda]", "1"], "+",
1860	RowBox[{"4", " ",
1861	SubscriptBox["\[Lambda]", "3"]}], "+",
1862	SubscriptBox["\[Lambda]", "5"], "+",
1863	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1864	SubscriptBox["v", "1"], " ",
1865	InterpretationBox[
1866	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1867	Subsuperscript[FeynRules`v, 1, "'"],
1868	Editable->False]}]},
1869	{
1870	RowBox[{
1871	RowBox[{"(",
1872	RowBox[{
1873	SubscriptBox["\[Alpha]", "1"], "+",
1874	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1875	InterpretationBox[
1876	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1877	Subsuperscript[FeynRules`v, 1, "'"],
1878	Editable->False], " ",
1879	SubscriptBox["v", "\<\"L\"\>"]}],
1880	RowBox[{
1881	RowBox[{"(",
1882	RowBox[{
1883	SubscriptBox["\[Alpha]", "1"], "+",
1884	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
1885	InterpretationBox[
1886	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1887	Subsuperscript[FeynRules`v, 1, "'"],
1888	Editable->False], " ",
1889	SubscriptBox["v", "\<\"R\"\>"]}],
1890	RowBox[{"2", " ",
1891	RowBox[{"(",
1892	RowBox[{
1893	SubscriptBox["\[Lambda]", "1"], "+",
1894	RowBox[{"4", " ",
1895	SubscriptBox["\[Lambda]", "3"]}], "+",
1896	SubscriptBox["\[Lambda]", "5"], "+",
1897	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
1898	SubscriptBox["v", "1"], " ",
1899	InterpretationBox[
1900	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1901	Subsuperscript[FeynRules`v, 1, "'"],
1902	Editable->False]}],
1903	RowBox[{
1904	FractionBox["1", "2"], " ",
1905	RowBox[{"(",
1906	RowBox[{
1907	RowBox[{
1908	RowBox[{"-", "2"}], " ",
1909	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
1910	RowBox[{"8", " ",
1911	SubscriptBox["\[Lambda]", "3"], " ",
1912	SubsuperscriptBox["v", "1", "2"]}], "+",
1913	RowBox[{"2", " ",
1914	SubscriptBox["\[Lambda]", "5"], " ",
1915	SubsuperscriptBox["v", "1", "2"]}], "+",
1916	RowBox[{"2", " ",
1917	SubscriptBox["\[Lambda]", "6"], " ",
1918	SubsuperscriptBox["v", "1", "2"]}], "+",
1919	RowBox[{"6", " ",
1920	SubscriptBox["\[Lambda]", "2"], " ",
1921	SuperscriptBox[
1922	RowBox[{"(",
1923	InterpretationBox[
1924	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1925	Subsuperscript[FeynRules`v, 1, "'"],
1926	Editable->False], ")"}], "2"]}], "+",
1927	RowBox[{"2", " ",
1928	SubscriptBox["\[Lambda]", "1"], " ",
1929	RowBox[{"(",
1930	RowBox[{
1931	SubsuperscriptBox["v", "1", "2"], "+",
1932	RowBox[{"3", " ",
1933	SuperscriptBox[
1934	RowBox[{"(",
1935	InterpretationBox[
1936	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
1937	Subsuperscript[FeynRules`v, 1, "'"],
1938	Editable->False], ")"}], "2"]}]}], ")"}]}], "+",
1939	RowBox[{
1940	SubscriptBox["\[Alpha]", "1"], " ",
1941	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1942	RowBox[{
1943	SubscriptBox["\[Alpha]", "2"], " ",
1944	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
1945	RowBox[{
1946	SubscriptBox["\[Alpha]", "1"], " ",
1947	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
1948	RowBox[{
1949	SubscriptBox["\[Alpha]", "2"], " ",
1950	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
1951	},
1952	GridBoxAlignment->{
1953	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
1954	"RowsIndexed" -> {}},
1955	GridBoxSpacings->{"Columns" -> {
1956	Offset[0.27999999999999997`], {
1957	Offset[0.7]},
1958	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
1959	Offset[0.2], {
1960	Offset[0.4]},
1961	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
1962	Function[BoxForm`e$,
1963	MatrixForm[BoxForm`e$]]]], "Output",
1964	CellChangeTimes->{{3.568098176013557^9, 3.5680981875385637`^9},
1965	3.568290657466407*^9}]
1966	}, Open ]]
1967	}, Open ]],
1968
1969	Cell[CellGroupData[{
1970
1971	Cell["\<\
1972	Print the pseudo scalar mass matrix of mixing \[OpenCurlyQuote]2e\
1973	\[CloseCurlyQuote]\
1974	\>", "Subsection",
1975	CellChangeTimes->{{3.5680982058150387`^9, 3.568098217423275^9}}],
1976
1977	Cell[CellGroupData[{
1978
1979	Cell[BoxData[
1980	RowBox[{
1981	RowBox[{"MassMatrix", "[",
1982	RowBox[{"\"\<2e\>\"", ",", " ", "\"\<PS\>\""}], "]"}], "//",
1983	"MatrixForm"}]], "Input",
1984	CellChangeTimes->{{3.56809821834832^9, 3.568098232696155^9}}],
1985
1986	Cell[BoxData[
1987	TagBox[
1988	RowBox[{"(", "\[NoBreak]", GridBox[{
1989	{
1990	RowBox[{
1991	FractionBox["1", "2"], " ",
1992	RowBox[{"(",
1993	RowBox[{
1994	RowBox[{
1995	RowBox[{"-", "2"}], " ",
1996	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
1997	RowBox[{
1998	SubscriptBox["\[Alpha]", "3"], " ",
1999	SubsuperscriptBox["v", "1", "2"]}], "+",
2000	RowBox[{
2001	SubscriptBox["\[Alpha]", "2"], " ",
2002	SuperscriptBox[
2003	RowBox[{"(",
2004	InterpretationBox[
2005	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2006	Subsuperscript[FeynRules`v, 1, "'"],
2007	Editable->False], ")"}], "2"]}], "+",
2008	RowBox[{
2009	SubscriptBox["\[Alpha]", "1"], " ",
2010	RowBox[{"(",
2011	RowBox[{
2012	SubsuperscriptBox["v", "1", "2"], "+",
2013	SuperscriptBox[
2014	RowBox[{"(",
2015	InterpretationBox[
2016	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2017	Subsuperscript[FeynRules`v, 1, "'"],
2018	Editable->False], ")"}], "2"]}], ")"}]}], "+",
2019	RowBox[{"2", " ",
2020	SubscriptBox["\[Rho]", "1"], " ",
2021	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2022	RowBox[{"2", " ",
2023	SubscriptBox["\[Rho]", "2"], " ",
2024	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2025	RowBox[{
2026	SubscriptBox["\[Rho]", "3"], " ",
2027	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0",
2028	"0"},
2029	{"0",
2030	RowBox[{
2031	FractionBox["1", "2"], " ",
2032	RowBox[{"(",
2033	RowBox[{
2034	RowBox[{
2035	RowBox[{"-", "2"}], " ",
2036	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
2037	RowBox[{
2038	SubscriptBox["\[Alpha]", "3"], " ",
2039	SubsuperscriptBox["v", "1", "2"]}], "+",
2040	RowBox[{
2041	SubscriptBox["\[Alpha]", "2"], " ",
2042	SuperscriptBox[
2043	RowBox[{"(",
2044	InterpretationBox[
2045	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2046	Subsuperscript[FeynRules`v, 1, "'"],
2047	Editable->False], ")"}], "2"]}], "+",
2048	RowBox[{
2049	SubscriptBox["\[Alpha]", "1"], " ",
2050	RowBox[{"(",
2051	RowBox[{
2052	SubsuperscriptBox["v", "1", "2"], "+",
2053	SuperscriptBox[
2054	RowBox[{"(",
2055	InterpretationBox[
2056	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2057	Subsuperscript[FeynRules`v, 1, "'"],
2058	Editable->False], ")"}], "2"]}], ")"}]}], "+",
2059	RowBox[{
2060	SubscriptBox["\[Rho]", "3"], " ",
2061	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2062	RowBox[{"2", " ",
2063	SubscriptBox["\[Rho]", "1"], " ",
2064	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
2065	RowBox[{"2", " ",
2066	SubscriptBox["\[Rho]", "2"], " ",
2067	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0"},
2068	{"0", "0",
2069	RowBox[{
2070	FractionBox["1", "2"], " ",
2071	RowBox[{"(",
2072	RowBox[{
2073	RowBox[{
2074	RowBox[{"-", "2"}], " ",
2075	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
2076	RowBox[{"2", " ",
2077	SubscriptBox["\[Lambda]", "2"], " ",
2078	SubsuperscriptBox["v", "1", "2"]}], "-",
2079	RowBox[{"8", " ",
2080	SubscriptBox["\[Lambda]", "4"], " ",
2081	SuperscriptBox[
2082	RowBox[{"(",
2083	InterpretationBox[
2084	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2085	Subsuperscript[FeynRules`v, 1, "'"],
2086	Editable->False], ")"}], "2"]}], "+",
2087	RowBox[{"2", " ",
2088	SubscriptBox["\[Lambda]", "5"], " ",
2089	SuperscriptBox[
2090	RowBox[{"(",
2091	InterpretationBox[
2092	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2093	Subsuperscript[FeynRules`v, 1, "'"],
2094	Editable->False], ")"}], "2"]}], "-",
2095	RowBox[{"2", " ",
2096	SubscriptBox["\[Lambda]", "6"], " ",
2097	SuperscriptBox[
2098	RowBox[{"(",
2099	InterpretationBox[
2100	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2101	Subsuperscript[FeynRules`v, 1, "'"],
2102	Editable->False], ")"}], "2"]}], "+",
2103	RowBox[{"2", " ",
2104	SubscriptBox["\[Lambda]", "1"], " ",
2105	RowBox[{"(",
2106	RowBox[{
2107	SubsuperscriptBox["v", "1", "2"], "+",
2108	SuperscriptBox[
2109	RowBox[{"(",
2110	InterpretationBox[
2111	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2112	Subsuperscript[FeynRules`v, 1, "'"],
2113	Editable->False], ")"}], "2"]}], ")"}]}], "+",
2114	RowBox[{
2115	SubscriptBox["\[Alpha]", "1"], " ",
2116	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2117	RowBox[{
2118	SubscriptBox["\[Alpha]", "3"], " ",
2119	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2120	RowBox[{
2121	SubscriptBox["\[Alpha]", "1"], " ",
2122	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
2123	RowBox[{
2124	SubscriptBox["\[Alpha]", "3"], " ",
2125	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
2126	RowBox[{
2127	RowBox[{"-", "2"}], " ",
2128	RowBox[{"(",
2129	RowBox[{
2130	RowBox[{"2", " ",
2131	SubscriptBox["\[Lambda]", "3"]}], "+",
2132	RowBox[{"2", " ",
2133	SubscriptBox["\[Lambda]", "4"]}], "+",
2134	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
2135	SubscriptBox["v", "1"], " ",
2136	InterpretationBox[
2137	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2138	Subsuperscript[FeynRules`v, 1, "'"],
2139	Editable->False]}]},
2140	{"0", "0",
2141	RowBox[{
2142	RowBox[{"-", "2"}], " ",
2143	RowBox[{"(",
2144	RowBox[{
2145	RowBox[{"2", " ",
2146	SubscriptBox["\[Lambda]", "3"]}], "+",
2147	RowBox[{"2", " ",
2148	SubscriptBox["\[Lambda]", "4"]}], "+",
2149	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
2150	SubscriptBox["v", "1"], " ",
2151	InterpretationBox[
2152	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2153	Subsuperscript[FeynRules`v, 1, "'"],
2154	Editable->False]}],
2155	RowBox[{
2156	FractionBox["1", "2"], " ",
2157	RowBox[{"(",
2158	RowBox[{
2159	RowBox[{
2160	RowBox[{"-", "2"}], " ",
2161	SubsuperscriptBox["\[Mu]", "1", "2"]}], "-",
2162	RowBox[{"8", " ",
2163	SubscriptBox["\[Lambda]", "4"], " ",
2164	SubsuperscriptBox["v", "1", "2"]}], "+",
2165	RowBox[{"2", " ",
2166	SubscriptBox["\[Lambda]", "5"], " ",
2167	SubsuperscriptBox["v", "1", "2"]}], "-",
2168	RowBox[{"2", " ",
2169	SubscriptBox["\[Lambda]", "6"], " ",
2170	SubsuperscriptBox["v", "1", "2"]}], "+",
2171	RowBox[{"2", " ",
2172	SubscriptBox["\[Lambda]", "2"], " ",
2173	SuperscriptBox[
2174	RowBox[{"(",
2175	InterpretationBox[
2176	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2177	Subsuperscript[FeynRules`v, 1, "'"],
2178	Editable->False], ")"}], "2"]}], "+",
2179	RowBox[{"2", " ",
2180	SubscriptBox["\[Lambda]", "1"], " ",
2181	RowBox[{"(",
2182	RowBox[{
2183	SubsuperscriptBox["v", "1", "2"], "+",
2184	SuperscriptBox[
2185	RowBox[{"(",
2186	InterpretationBox[
2187	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
2188	Subsuperscript[FeynRules`v, 1, "'"],
2189	Editable->False], ")"}], "2"]}], ")"}]}], "+",
2190	RowBox[{
2191	SubscriptBox["\[Alpha]", "1"], " ",
2192	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2193	RowBox[{
2194	SubscriptBox["\[Alpha]", "2"], " ",
2195	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
2196	RowBox[{
2197	SubscriptBox["\[Alpha]", "1"], " ",
2198	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
2199	RowBox[{
2200	SubscriptBox["\[Alpha]", "2"], " ",
2201	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
2202	},
2203	GridBoxAlignment->{
2204	"Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
2205	"RowsIndexed" -> {}},
2206	GridBoxSpacings->{"Columns" -> {
2207	Offset[0.27999999999999997`], {
2208	Offset[0.7]},
2209	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
2210	Offset[0.2], {
2211	Offset[0.4]},
2212	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
2213	Function[BoxForm`e$,
2214	MatrixForm[BoxForm`e$]]]], "Output",
2215	CellChangeTimes->{{3.568098225955304^9, 3.568098233101625^9},
2216	3.568290661840715*^9}]
2217	}, Open ]]
2218	}, Open ]]
2219	}, Open ]],
2220
2221	Cell[CellGroupData[{
2222
2223	Cell["Write the ASperGe package", "Section",
2224	CellChangeTimes->{{3.568034265705269^9, 3.568034271048539^9}}],
2225
2226	Cell[CellGroupData[{
2227
2228	Cell["\<\
2229	Write the output for all mass matrices to the folder \
2230	\[OpenCurlyQuote]LRSM_mix_MD\[CloseCurlyQuote] in $FeynRulesPath\
2231	\>", "Subsection",
2232	CellChangeTimes->{{3.5680962205673933`^9, 3.5680962369473886`^9}, {
2233	3.56809827000555^9, 3.568098272037425^9}}],
2234
2235	Cell[CellGroupData[{
2236
2237	Cell[BoxData[
2238	RowBox[{"WriteASperGe", "[", "LagLRSM", "]"}]], "Input",
2239	CellChangeTimes->{{3.568096225027586^9, 3.568096233868973^9}, {
2240	3.568098243583331^9, 3.56809824773551^9}}],
2241
2242	Cell[CellGroupData[{
2243
2244	Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
2245	They have been stored in /Users/Karen/trunk/feynrules-development/LRSM_mix_MD\
2246	\"\>"], "Print",
2247	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2248	3.56829089682653*^9}],
2249
2250	Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
2251	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2252	3.568290897174303*^9}],
2253
2254	Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
2255	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2256	3.56829089717889*^9}],
2257
2258	Cell[BoxData[
2259	InterpretationBox[
2260	RowBox[{"\<\"Warning: No mass value found for \"\>",
2261	"\[InvisibleSpace]", "\<\"MD\"\>",
2262	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2263	SequenceForm[
2264	"Warning: No mass value found for ", "MD", ". Default value 1 assigned."],
2265	Editable->False]], "Print",
2266	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2267	3.568290897184017*^9}],
2268
2269	Cell[BoxData[
2270	InterpretationBox[
2271	RowBox[{"\<\"Warning: No mass value found for \"\>",
2272	"\[InvisibleSpace]", "\<\"MU\"\>",
2273	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2274	SequenceForm[
2275	"Warning: No mass value found for ", "MU", ". Default value 1 assigned."],
2276	Editable->False]], "Print",
2277	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2278	3.568290897187224*^9}],
2279
2280	Cell[BoxData[
2281	InterpretationBox[
2282	RowBox[{"\<\"Warning: No mass value found for \"\>",
2283	"\[InvisibleSpace]", "\<\"WT\"\>",
2284	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2285	SequenceForm[
2286	"Warning: No mass value found for ", "WT", ". Default value 1 assigned."],
2287	Editable->False]], "Print",
2288	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2289	3.568290897192576*^9}],
2290
2291	Cell[BoxData[
2292	InterpretationBox[
2293	RowBox[{"\<\"Warning: No mass value found for \"\>",
2294	"\[InvisibleSpace]", "\<\"WZ\"\>",
2295	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2296	SequenceForm[
2297	"Warning: No mass value found for ", "WZ", ". Default value 1 assigned."],
2298	Editable->False]], "Print",
2299	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2300	3.56829089719694*^9}],
2301
2302	Cell[BoxData[
2303	InterpretationBox[
2304	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2305	"\[InvisibleSpace]", "\<\"aS\"\>",
2306	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2307	SequenceForm[
2308	"Warning: no value found for parameter ", "aS",
2309	". Default value 1 assigned."],
2310	Editable->False]], "Print",
2311	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2312	3.568290897200604*^9}],
2313
2314	Cell[BoxData[
2315	InterpretationBox[
2316	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2317	"\[InvisibleSpace]", "\<\"Ryq11x1\"\>",
2318	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2319	SequenceForm[
2320	"Warning: no value found for parameter ", "Ryq11x1",
2321	". Default value 1 assigned."],
2322	Editable->False]], "Print",
2323	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2324	3.568290897206191*^9}],
2325
2326	Cell[BoxData[
2327	InterpretationBox[
2328	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2329	"\[InvisibleSpace]", "\<\"Ryq11x2\"\>",
2330	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2331	SequenceForm[
2332	"Warning: no value found for parameter ", "Ryq11x2",
2333	". Default value 1 assigned."],
2334	Editable->False]], "Print",
2335	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2336	3.568290897208899*^9}],
2337
2338	Cell[BoxData[
2339	InterpretationBox[
2340	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2341	"\[InvisibleSpace]", "\<\"Ryq11x3\"\>",
2342	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2343	SequenceForm[
2344	"Warning: no value found for parameter ", "Ryq11x3",
2345	". Default value 1 assigned."],
2346	Editable->False]], "Print",
2347	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2348	3.568290897211694*^9}],
2349
2350	Cell[BoxData[
2351	InterpretationBox[
2352	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2353	"\[InvisibleSpace]", "\<\"Ryq12x1\"\>",
2354	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2355	SequenceForm[
2356	"Warning: no value found for parameter ", "Ryq12x1",
2357	". Default value 1 assigned."],
2358	Editable->False]], "Print",
2359	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2360	3.568290897215962*^9}],
2361
2362	Cell[BoxData[
2363	InterpretationBox[
2364	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2365	"\[InvisibleSpace]", "\<\"Ryq12x2\"\>",
2366	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2367	SequenceForm[
2368	"Warning: no value found for parameter ", "Ryq12x2",
2369	". Default value 1 assigned."],
2370	Editable->False]], "Print",
2371	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2372	3.5682908972210503`*^9}],
2373
2374	Cell[BoxData[
2375	InterpretationBox[
2376	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2377	"\[InvisibleSpace]", "\<\"Ryq12x3\"\>",
2378	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2379	SequenceForm[
2380	"Warning: no value found for parameter ", "Ryq12x3",
2381	". Default value 1 assigned."],
2382	Editable->False]], "Print",
2383	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2384	3.5682908972262*^9}],
2385
2386	Cell[BoxData[
2387	InterpretationBox[
2388	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2389	"\[InvisibleSpace]", "\<\"Ryq13x1\"\>",
2390	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2391	SequenceForm[
2392	"Warning: no value found for parameter ", "Ryq13x1",
2393	". Default value 1 assigned."],
2394	Editable->False]], "Print",
2395	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2396	3.5682908972308607`*^9}],
2397
2398	Cell[BoxData[
2399	InterpretationBox[
2400	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2401	"\[InvisibleSpace]", "\<\"Ryq13x2\"\>",
2402	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2403	SequenceForm[
2404	"Warning: no value found for parameter ", "Ryq13x2",
2405	". Default value 1 assigned."],
2406	Editable->False]], "Print",
2407	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2408	3.568290897238351*^9}],
2409
2410	Cell[BoxData[
2411	InterpretationBox[
2412	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2413	"\[InvisibleSpace]", "\<\"Ryq13x3\"\>",
2414	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2415	SequenceForm[
2416	"Warning: no value found for parameter ", "Ryq13x3",
2417	". Default value 1 assigned."],
2418	Editable->False]], "Print",
2419	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2420	3.568290897242631*^9}],
2421
2422	Cell[BoxData[
2423	InterpretationBox[
2424	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2425	"\[InvisibleSpace]", "\<\"Iyq11x1\"\>",
2426	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2427	SequenceForm[
2428	"Warning: no value found for parameter ", "Iyq11x1",
2429	". Default value 1 assigned."],
2430	Editable->False]], "Print",
2431	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2432	3.5682908972468*^9}],
2433
2434	Cell[BoxData[
2435	InterpretationBox[
2436	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2437	"\[InvisibleSpace]", "\<\"Iyq11x2\"\>",
2438	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2439	SequenceForm[
2440	"Warning: no value found for parameter ", "Iyq11x2",
2441	". Default value 1 assigned."],
2442	Editable->False]], "Print",
2443	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2444	3.568290897249861*^9}],
2445
2446	Cell[BoxData[
2447	InterpretationBox[
2448	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2449	"\[InvisibleSpace]", "\<\"Iyq11x3\"\>",
2450	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2451	SequenceForm[
2452	"Warning: no value found for parameter ", "Iyq11x3",
2453	". Default value 1 assigned."],
2454	Editable->False]], "Print",
2455	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2456	3.568290897255315*^9}],
2457
2458	Cell[BoxData[
2459	InterpretationBox[
2460	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2461	"\[InvisibleSpace]", "\<\"Iyq12x1\"\>",
2462	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2463	SequenceForm[
2464	"Warning: no value found for parameter ", "Iyq12x1",
2465	". Default value 1 assigned."],
2466	Editable->False]], "Print",
2467	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2468	3.5682908972598953`*^9}],
2469
2470	Cell[BoxData[
2471	InterpretationBox[
2472	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2473	"\[InvisibleSpace]", "\<\"Iyq12x2\"\>",
2474	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2475	SequenceForm[
2476	"Warning: no value found for parameter ", "Iyq12x2",
2477	". Default value 1 assigned."],
2478	Editable->False]], "Print",
2479	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2480	3.5682908972636223`*^9}],
2481
2482	Cell[BoxData[
2483	InterpretationBox[
2484	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2485	"\[InvisibleSpace]", "\<\"Iyq12x3\"\>",
2486	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2487	SequenceForm[
2488	"Warning: no value found for parameter ", "Iyq12x3",
2489	". Default value 1 assigned."],
2490	Editable->False]], "Print",
2491	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2492	3.568290897267878*^9}],
2493
2494	Cell[BoxData[
2495	InterpretationBox[
2496	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2497	"\[InvisibleSpace]", "\<\"Iyq13x1\"\>",
2498	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2499	SequenceForm[
2500	"Warning: no value found for parameter ", "Iyq13x1",
2501	". Default value 1 assigned."],
2502	Editable->False]], "Print",
2503	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2504	3.5682908972707777`*^9}],
2505
2506	Cell[BoxData[
2507	InterpretationBox[
2508	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2509	"\[InvisibleSpace]", "\<\"Iyq13x2\"\>",
2510	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2511	SequenceForm[
2512	"Warning: no value found for parameter ", "Iyq13x2",
2513	". Default value 1 assigned."],
2514	Editable->False]], "Print",
2515	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2516	3.568290897273156*^9}],
2517
2518	Cell[BoxData[
2519	InterpretationBox[
2520	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2521	"\[InvisibleSpace]", "\<\"Iyq13x3\"\>",
2522	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2523	SequenceForm[
2524	"Warning: no value found for parameter ", "Iyq13x3",
2525	". Default value 1 assigned."],
2526	Editable->False]], "Print",
2527	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2528	3.568290897275406*^9}],
2529
2530	Cell[BoxData[
2531	InterpretationBox[
2532	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2533	"\[InvisibleSpace]", "\<\"Ryl11x1\"\>",
2534	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2535	SequenceForm[
2536	"Warning: no value found for parameter ", "Ryl11x1",
2537	". Default value 1 assigned."],
2538	Editable->False]], "Print",
2539	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2540	3.568290897278075*^9}],
2541
2542	Cell[BoxData[
2543	InterpretationBox[
2544	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2545	"\[InvisibleSpace]", "\<\"Ryl11x2\"\>",
2546	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2547	SequenceForm[
2548	"Warning: no value found for parameter ", "Ryl11x2",
2549	". Default value 1 assigned."],
2550	Editable->False]], "Print",
2551	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2552	3.5682908972804403`*^9}],
2553
2554	Cell[BoxData[
2555	InterpretationBox[
2556	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2557	"\[InvisibleSpace]", "\<\"Ryl11x3\"\>",
2558	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2559	SequenceForm[
2560	"Warning: no value found for parameter ", "Ryl11x3",
2561	". Default value 1 assigned."],
2562	Editable->False]], "Print",
2563	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2564	3.568290897283744*^9}],
2565
2566	Cell[BoxData[
2567	InterpretationBox[
2568	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2569	"\[InvisibleSpace]", "\<\"Ryl12x1\"\>",
2570	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2571	SequenceForm[
2572	"Warning: no value found for parameter ", "Ryl12x1",
2573	". Default value 1 assigned."],
2574	Editable->False]], "Print",
2575	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2576	3.568290897287002*^9}],
2577
2578	Cell[BoxData[
2579	InterpretationBox[
2580	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2581	"\[InvisibleSpace]", "\<\"Ryl12x2\"\>",
2582	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2583	SequenceForm[
2584	"Warning: no value found for parameter ", "Ryl12x2",
2585	". Default value 1 assigned."],
2586	Editable->False]], "Print",
2587	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2588	3.568290897290009*^9}],
2589
2590	Cell[BoxData[
2591	InterpretationBox[
2592	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2593	"\[InvisibleSpace]", "\<\"Ryl12x3\"\>",
2594	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2595	SequenceForm[
2596	"Warning: no value found for parameter ", "Ryl12x3",
2597	". Default value 1 assigned."],
2598	Editable->False]], "Print",
2599	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2600	3.5682908972932587`*^9}],
2601
2602	Cell[BoxData[
2603	InterpretationBox[
2604	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2605	"\[InvisibleSpace]", "\<\"Ryl13x1\"\>",
2606	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2607	SequenceForm[
2608	"Warning: no value found for parameter ", "Ryl13x1",
2609	". Default value 1 assigned."],
2610	Editable->False]], "Print",
2611	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2612	3.56829089729583*^9}],
2613
2614	Cell[BoxData[
2615	InterpretationBox[
2616	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2617	"\[InvisibleSpace]", "\<\"Ryl13x2\"\>",
2618	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2619	SequenceForm[
2620	"Warning: no value found for parameter ", "Ryl13x2",
2621	". Default value 1 assigned."],
2622	Editable->False]], "Print",
2623	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2624	3.568290897298378*^9}],
2625
2626	Cell[BoxData[
2627	InterpretationBox[
2628	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2629	"\[InvisibleSpace]", "\<\"Ryl13x3\"\>",
2630	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2631	SequenceForm[
2632	"Warning: no value found for parameter ", "Ryl13x3",
2633	". Default value 1 assigned."],
2634	Editable->False]], "Print",
2635	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2636	3.568290897301693*^9}],
2637
2638	Cell[BoxData[
2639	InterpretationBox[
2640	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2641	"\[InvisibleSpace]", "\<\"Iyl11x1\"\>",
2642	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2643	SequenceForm[
2644	"Warning: no value found for parameter ", "Iyl11x1",
2645	". Default value 1 assigned."],
2646	Editable->False]], "Print",
2647	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2648	3.5682908973054953`*^9}],
2649
2650	Cell[BoxData[
2651	InterpretationBox[
2652	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2653	"\[InvisibleSpace]", "\<\"Iyl11x2\"\>",
2654	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2655	SequenceForm[
2656	"Warning: no value found for parameter ", "Iyl11x2",
2657	". Default value 1 assigned."],
2658	Editable->False]], "Print",
2659	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2660	3.5682908973079853`*^9}],
2661
2662	Cell[BoxData[
2663	InterpretationBox[
2664	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2665	"\[InvisibleSpace]", "\<\"Iyl11x3\"\>",
2666	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2667	SequenceForm[
2668	"Warning: no value found for parameter ", "Iyl11x3",
2669	". Default value 1 assigned."],
2670	Editable->False]], "Print",
2671	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2672	3.5682908973105993`*^9}],
2673
2674	Cell[BoxData[
2675	InterpretationBox[
2676	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2677	"\[InvisibleSpace]", "\<\"Iyl12x1\"\>",
2678	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2679	SequenceForm[
2680	"Warning: no value found for parameter ", "Iyl12x1",
2681	". Default value 1 assigned."],
2682	Editable->False]], "Print",
2683	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2684	3.56829089731313*^9}],
2685
2686	Cell[BoxData[
2687	InterpretationBox[
2688	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2689	"\[InvisibleSpace]", "\<\"Iyl12x2\"\>",
2690	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2691	SequenceForm[
2692	"Warning: no value found for parameter ", "Iyl12x2",
2693	". Default value 1 assigned."],
2694	Editable->False]], "Print",
2695	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2696	3.568290897315627*^9}],
2697
2698	Cell[BoxData[
2699	InterpretationBox[
2700	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2701	"\[InvisibleSpace]", "\<\"Iyl12x3\"\>",
2702	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2703	SequenceForm[
2704	"Warning: no value found for parameter ", "Iyl12x3",
2705	". Default value 1 assigned."],
2706	Editable->False]], "Print",
2707	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2708	3.56829089731812*^9}],
2709
2710	Cell[BoxData[
2711	InterpretationBox[
2712	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2713	"\[InvisibleSpace]", "\<\"Iyl13x1\"\>",
2714	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2715	SequenceForm[
2716	"Warning: no value found for parameter ", "Iyl13x1",
2717	". Default value 1 assigned."],
2718	Editable->False]], "Print",
2719	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2720	3.56829089732047*^9}],
2721
2722	Cell[BoxData[
2723	InterpretationBox[
2724	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2725	"\[InvisibleSpace]", "\<\"Iyl13x2\"\>",
2726	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2727	SequenceForm[
2728	"Warning: no value found for parameter ", "Iyl13x2",
2729	". Default value 1 assigned."],
2730	Editable->False]], "Print",
2731	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2732	3.568290897322781*^9}],
2733
2734	Cell[BoxData[
2735	InterpretationBox[
2736	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2737	"\[InvisibleSpace]", "\<\"Iyl13x3\"\>",
2738	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2739	SequenceForm[
2740	"Warning: no value found for parameter ", "Iyl13x3",
2741	". Default value 1 assigned."],
2742	Editable->False]], "Print",
2743	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2744	3.568290897325243*^9}],
2745
2746	Cell[BoxData[
2747	InterpretationBox[
2748	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2749	"\[InvisibleSpace]", "\<\"Ryl31x1\"\>",
2750	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2751	SequenceForm[
2752	"Warning: no value found for parameter ", "Ryl31x1",
2753	". Default value 1 assigned."],
2754	Editable->False]], "Print",
2755	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2756	3.568290897327765*^9}],
2757
2758	Cell[BoxData[
2759	InterpretationBox[
2760	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2761	"\[InvisibleSpace]", "\<\"Ryl31x2\"\>",
2762	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2763	SequenceForm[
2764	"Warning: no value found for parameter ", "Ryl31x2",
2765	". Default value 1 assigned."],
2766	Editable->False]], "Print",
2767	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2768	3.568290897330595*^9}],
2769
2770	Cell[BoxData[
2771	InterpretationBox[
2772	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2773	"\[InvisibleSpace]", "\<\"Ryl31x3\"\>",
2774	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2775	SequenceForm[
2776	"Warning: no value found for parameter ", "Ryl31x3",
2777	". Default value 1 assigned."],
2778	Editable->False]], "Print",
2779	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2780	3.568290897333441*^9}],
2781
2782	Cell[BoxData[
2783	InterpretationBox[
2784	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2785	"\[InvisibleSpace]", "\<\"Ryl32x1\"\>",
2786	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2787	SequenceForm[
2788	"Warning: no value found for parameter ", "Ryl32x1",
2789	". Default value 1 assigned."],
2790	Editable->False]], "Print",
2791	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2792	3.568290897336155*^9}],
2793
2794	Cell[BoxData[
2795	InterpretationBox[
2796	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2797	"\[InvisibleSpace]", "\<\"Ryl32x2\"\>",
2798	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2799	SequenceForm[
2800	"Warning: no value found for parameter ", "Ryl32x2",
2801	". Default value 1 assigned."],
2802	Editable->False]], "Print",
2803	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2804	3.568290897339777*^9}],
2805
2806	Cell[BoxData[
2807	InterpretationBox[
2808	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2809	"\[InvisibleSpace]", "\<\"Ryl32x3\"\>",
2810	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2811	SequenceForm[
2812	"Warning: no value found for parameter ", "Ryl32x3",
2813	". Default value 1 assigned."],
2814	Editable->False]], "Print",
2815	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2816	3.5682908973422537`*^9}],
2817
2818	Cell[BoxData[
2819	InterpretationBox[
2820	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2821	"\[InvisibleSpace]", "\<\"Ryl33x1\"\>",
2822	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2823	SequenceForm[
2824	"Warning: no value found for parameter ", "Ryl33x1",
2825	". Default value 1 assigned."],
2826	Editable->False]], "Print",
2827	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2828	3.568290897344597*^9}],
2829
2830	Cell[BoxData[
2831	InterpretationBox[
2832	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2833	"\[InvisibleSpace]", "\<\"Ryl33x2\"\>",
2834	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2835	SequenceForm[
2836	"Warning: no value found for parameter ", "Ryl33x2",
2837	". Default value 1 assigned."],
2838	Editable->False]], "Print",
2839	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2840	3.568290897347068*^9}],
2841
2842	Cell[BoxData[
2843	InterpretationBox[
2844	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2845	"\[InvisibleSpace]", "\<\"Ryl33x3\"\>",
2846	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2847	SequenceForm[
2848	"Warning: no value found for parameter ", "Ryl33x3",
2849	". Default value 1 assigned."],
2850	Editable->False]], "Print",
2851	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2852	3.56829089734997*^9}],
2853
2854	Cell[BoxData[
2855	InterpretationBox[
2856	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2857	"\[InvisibleSpace]", "\<\"Iyl31x1\"\>",
2858	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2859	SequenceForm[
2860	"Warning: no value found for parameter ", "Iyl31x1",
2861	". Default value 1 assigned."],
2862	Editable->False]], "Print",
2863	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2864	3.568290897352364*^9}],
2865
2866	Cell[BoxData[
2867	InterpretationBox[
2868	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2869	"\[InvisibleSpace]", "\<\"Iyl31x2\"\>",
2870	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2871	SequenceForm[
2872	"Warning: no value found for parameter ", "Iyl31x2",
2873	". Default value 1 assigned."],
2874	Editable->False]], "Print",
2875	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2876	3.568290897354658*^9}],
2877
2878	Cell[BoxData[
2879	InterpretationBox[
2880	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2881	"\[InvisibleSpace]", "\<\"Iyl31x3\"\>",
2882	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2883	SequenceForm[
2884	"Warning: no value found for parameter ", "Iyl31x3",
2885	". Default value 1 assigned."],
2886	Editable->False]], "Print",
2887	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2888	3.568290897357095*^9}],
2889
2890	Cell[BoxData[
2891	InterpretationBox[
2892	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2893	"\[InvisibleSpace]", "\<\"Iyl32x1\"\>",
2894	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2895	SequenceForm[
2896	"Warning: no value found for parameter ", "Iyl32x1",
2897	". Default value 1 assigned."],
2898	Editable->False]], "Print",
2899	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2900	3.568290897359573*^9}],
2901
2902	Cell[BoxData[
2903	InterpretationBox[
2904	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2905	"\[InvisibleSpace]", "\<\"Iyl32x2\"\>",
2906	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2907	SequenceForm[
2908	"Warning: no value found for parameter ", "Iyl32x2",
2909	". Default value 1 assigned."],
2910	Editable->False]], "Print",
2911	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2912	3.5682908973621798`*^9}],
2913
2914	Cell[BoxData[
2915	InterpretationBox[
2916	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2917	"\[InvisibleSpace]", "\<\"Iyl32x3\"\>",
2918	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2919	SequenceForm[
2920	"Warning: no value found for parameter ", "Iyl32x3",
2921	". Default value 1 assigned."],
2922	Editable->False]], "Print",
2923	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2924	3.568290897364788*^9}],
2925
2926	Cell[BoxData[
2927	InterpretationBox[
2928	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2929	"\[InvisibleSpace]", "\<\"Iyl33x1\"\>",
2930	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2931	SequenceForm[
2932	"Warning: no value found for parameter ", "Iyl33x1",
2933	". Default value 1 assigned."],
2934	Editable->False]], "Print",
2935	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2936	3.568290897367181*^9}],
2937
2938	Cell[BoxData[
2939	InterpretationBox[
2940	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2941	"\[InvisibleSpace]", "\<\"Iyl33x2\"\>",
2942	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2943	SequenceForm[
2944	"Warning: no value found for parameter ", "Iyl33x2",
2945	". Default value 1 assigned."],
2946	Editable->False]], "Print",
2947	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2948	3.5682908973695498`*^9}],
2949
2950	Cell[BoxData[
2951	InterpretationBox[
2952	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2953	"\[InvisibleSpace]", "\<\"Iyl33x3\"\>",
2954	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2955	SequenceForm[
2956	"Warning: no value found for parameter ", "Iyl33x3",
2957	". Default value 1 assigned."],
2958	Editable->False]], "Print",
2959	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2960	3.568290897372196*^9}],
2961
2962	Cell[BoxData[
2963	InterpretationBox[
2964	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2965	"\[InvisibleSpace]", "\<\"Ryl41x1\"\>",
2966	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2967	SequenceForm[
2968	"Warning: no value found for parameter ", "Ryl41x1",
2969	". Default value 1 assigned."],
2970	Editable->False]], "Print",
2971	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2972	3.56829089737499*^9}],
2973
2974	Cell[BoxData[
2975	InterpretationBox[
2976	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2977	"\[InvisibleSpace]", "\<\"Ryl41x2\"\>",
2978	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2979	SequenceForm[
2980	"Warning: no value found for parameter ", "Ryl41x2",
2981	". Default value 1 assigned."],
2982	Editable->False]], "Print",
2983	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2984	3.5682908973786077`*^9}],
2985
2986	Cell[BoxData[
2987	InterpretationBox[
2988	RowBox[{"\<\"Warning: no value found for parameter \"\>",
2989	"\[InvisibleSpace]", "\<\"Ryl41x3\"\>",
2990	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
2991	SequenceForm[
2992	"Warning: no value found for parameter ", "Ryl41x3",
2993	". Default value 1 assigned."],
2994	Editable->False]], "Print",
2995	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
2996	3.568290897381366*^9}],
2997
2998	Cell[BoxData[
2999	InterpretationBox[
3000	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3001	"\[InvisibleSpace]", "\<\"Ryl42x1\"\>",
3002	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3003	SequenceForm[
3004	"Warning: no value found for parameter ", "Ryl42x1",
3005	". Default value 1 assigned."],
3006	Editable->False]], "Print",
3007	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3008	3.568290897383931*^9}],
3009
3010	Cell[BoxData[
3011	InterpretationBox[
3012	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3013	"\[InvisibleSpace]", "\<\"Ryl42x2\"\>",
3014	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3015	SequenceForm[
3016	"Warning: no value found for parameter ", "Ryl42x2",
3017	". Default value 1 assigned."],
3018	Editable->False]], "Print",
3019	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3020	3.5682908973862658`*^9}],
3021
3022	Cell[BoxData[
3023	InterpretationBox[
3024	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3025	"\[InvisibleSpace]", "\<\"Ryl42x3\"\>",
3026	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3027	SequenceForm[
3028	"Warning: no value found for parameter ", "Ryl42x3",
3029	". Default value 1 assigned."],
3030	Editable->False]], "Print",
3031	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3032	3.5682908973885927`*^9}],
3033
3034	Cell[BoxData[
3035	InterpretationBox[
3036	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3037	"\[InvisibleSpace]", "\<\"Ryl43x1\"\>",
3038	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3039	SequenceForm[
3040	"Warning: no value found for parameter ", "Ryl43x1",
3041	". Default value 1 assigned."],
3042	Editable->False]], "Print",
3043	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3044	3.56829089739117*^9}],
3045
3046	Cell[BoxData[
3047	InterpretationBox[
3048	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3049	"\[InvisibleSpace]", "\<\"Ryl43x2\"\>",
3050	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3051	SequenceForm[
3052	"Warning: no value found for parameter ", "Ryl43x2",
3053	". Default value 1 assigned."],
3054	Editable->False]], "Print",
3055	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3056	3.568290897393656*^9}],
3057
3058	Cell[BoxData[
3059	InterpretationBox[
3060	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3061	"\[InvisibleSpace]", "\<\"Ryl43x3\"\>",
3062	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3063	SequenceForm[
3064	"Warning: no value found for parameter ", "Ryl43x3",
3065	". Default value 1 assigned."],
3066	Editable->False]], "Print",
3067	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3068	3.568290897396226*^9}],
3069
3070	Cell[BoxData[
3071	InterpretationBox[
3072	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3073	"\[InvisibleSpace]", "\<\"Iyl41x1\"\>",
3074	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3075	SequenceForm[
3076	"Warning: no value found for parameter ", "Iyl41x1",
3077	". Default value 1 assigned."],
3078	Editable->False]], "Print",
3079	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3080	3.568290897398849*^9}],
3081
3082	Cell[BoxData[
3083	InterpretationBox[
3084	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3085	"\[InvisibleSpace]", "\<\"Iyl41x2\"\>",
3086	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3087	SequenceForm[
3088	"Warning: no value found for parameter ", "Iyl41x2",
3089	". Default value 1 assigned."],
3090	Editable->False]], "Print",
3091	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3092	3.5682908974011993`*^9}],
3093
3094	Cell[BoxData[
3095	InterpretationBox[
3096	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3097	"\[InvisibleSpace]", "\<\"Iyl41x3\"\>",
3098	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3099	SequenceForm[
3100	"Warning: no value found for parameter ", "Iyl41x3",
3101	". Default value 1 assigned."],
3102	Editable->False]], "Print",
3103	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3104	3.568290897403532*^9}],
3105
3106	Cell[BoxData[
3107	InterpretationBox[
3108	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3109	"\[InvisibleSpace]", "\<\"Iyl42x1\"\>",
3110	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3111	SequenceForm[
3112	"Warning: no value found for parameter ", "Iyl42x1",
3113	". Default value 1 assigned."],
3114	Editable->False]], "Print",
3115	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3116	3.568290897406248*^9}],
3117
3118	Cell[BoxData[
3119	InterpretationBox[
3120	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3121	"\[InvisibleSpace]", "\<\"Iyl42x2\"\>",
3122	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3123	SequenceForm[
3124	"Warning: no value found for parameter ", "Iyl42x2",
3125	". Default value 1 assigned."],
3126	Editable->False]], "Print",
3127	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3128	3.568290897409004*^9}],
3129
3130	Cell[BoxData[
3131	InterpretationBox[
3132	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3133	"\[InvisibleSpace]", "\<\"Iyl42x3\"\>",
3134	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3135	SequenceForm[
3136	"Warning: no value found for parameter ", "Iyl42x3",
3137	". Default value 1 assigned."],
3138	Editable->False]], "Print",
3139	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3140	3.568290897411419*^9}],
3141
3142	Cell[BoxData[
3143	InterpretationBox[
3144	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3145	"\[InvisibleSpace]", "\<\"Iyl43x1\"\>",
3146	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3147	SequenceForm[
3148	"Warning: no value found for parameter ", "Iyl43x1",
3149	". Default value 1 assigned."],
3150	Editable->False]], "Print",
3151	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3152	3.568290897413795*^9}],
3153
3154	Cell[BoxData[
3155	InterpretationBox[
3156	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3157	"\[InvisibleSpace]", "\<\"Iyl43x2\"\>",
3158	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3159	SequenceForm[
3160	"Warning: no value found for parameter ", "Iyl43x2",
3161	". Default value 1 assigned."],
3162	Editable->False]], "Print",
3163	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3164	3.568290897417232*^9}],
3165
3166	Cell[BoxData[
3167	InterpretationBox[
3168	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3169	"\[InvisibleSpace]", "\<\"Iyl43x3\"\>",
3170	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3171	SequenceForm[
3172	"Warning: no value found for parameter ", "Iyl43x3",
3173	". Default value 1 assigned."],
3174	Editable->False]], "Print",
3175	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3176	3.568290897419632*^9}],
3177
3178	Cell[BoxData[
3179	InterpretationBox[
3180	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3181	"\[InvisibleSpace]", "\<\"RLAM1\"\>",
3182	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3183	SequenceForm[
3184	"Warning: no value found for parameter ", "RLAM1",
3185	". Default value 1 assigned."],
3186	Editable->False]], "Print",
3187	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3188	3.5682908974219627`*^9}],
3189
3190	Cell[BoxData[
3191	InterpretationBox[
3192	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3193	"\[InvisibleSpace]", "\<\"ILAM1\"\>",
3194	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3195	SequenceForm[
3196	"Warning: no value found for parameter ", "ILAM1",
3197	". Default value 1 assigned."],
3198	Editable->False]], "Print",
3199	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3200	3.568290897426277*^9}],
3201
3202	Cell[BoxData[
3203	InterpretationBox[
3204	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3205	"\[InvisibleSpace]", "\<\"RLAM2\"\>",
3206	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3207	SequenceForm[
3208	"Warning: no value found for parameter ", "RLAM2",
3209	". Default value 1 assigned."],
3210	Editable->False]], "Print",
3211	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3212	3.56829089742899*^9}],
3213
3214	Cell[BoxData[
3215	InterpretationBox[
3216	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3217	"\[InvisibleSpace]", "\<\"ILAM2\"\>",
3218	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3219	SequenceForm[
3220	"Warning: no value found for parameter ", "ILAM2",
3221	". Default value 1 assigned."],
3222	Editable->False]], "Print",
3223	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3224	3.568290897432036*^9}],
3225
3226	Cell[BoxData[
3227	InterpretationBox[
3228	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3229	"\[InvisibleSpace]", "\<\"RLAM3\"\>",
3230	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3231	SequenceForm[
3232	"Warning: no value found for parameter ", "RLAM3",
3233	". Default value 1 assigned."],
3234	Editable->False]], "Print",
3235	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3236	3.568290897434476*^9}],
3237
3238	Cell[BoxData[
3239	InterpretationBox[
3240	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3241	"\[InvisibleSpace]", "\<\"ILAM3\"\>",
3242	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3243	SequenceForm[
3244	"Warning: no value found for parameter ", "ILAM3",
3245	". Default value 1 assigned."],
3246	Editable->False]], "Print",
3247	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3248	3.568290897437044*^9}],
3249
3250	Cell[BoxData[
3251	InterpretationBox[
3252	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3253	"\[InvisibleSpace]", "\<\"RLAM4\"\>",
3254	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3255	SequenceForm[
3256	"Warning: no value found for parameter ", "RLAM4",
3257	". Default value 1 assigned."],
3258	Editable->False]], "Print",
3259	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3260	3.568290897439492*^9}],
3261
3262	Cell[BoxData[
3263	InterpretationBox[
3264	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3265	"\[InvisibleSpace]", "\<\"ILAM4\"\>",
3266	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3267	SequenceForm[
3268	"Warning: no value found for parameter ", "ILAM4",
3269	". Default value 1 assigned."],
3270	Editable->False]], "Print",
3271	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3272	3.568290897442545*^9}],
3273
3274	Cell[BoxData[
3275	InterpretationBox[
3276	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3277	"\[InvisibleSpace]", "\<\"RLAM5\"\>",
3278	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3279	SequenceForm[
3280	"Warning: no value found for parameter ", "RLAM5",
3281	". Default value 1 assigned."],
3282	Editable->False]], "Print",
3283	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3284	3.568290897445137*^9}],
3285
3286	Cell[BoxData[
3287	InterpretationBox[
3288	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3289	"\[InvisibleSpace]", "\<\"ILAM5\"\>",
3290	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3291	SequenceForm[
3292	"Warning: no value found for parameter ", "ILAM5",
3293	". Default value 1 assigned."],
3294	Editable->False]], "Print",
3295	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3296	3.568290897448092*^9}],
3297
3298	Cell[BoxData[
3299	InterpretationBox[
3300	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3301	"\[InvisibleSpace]", "\<\"RLAM6\"\>",
3302	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3303	SequenceForm[
3304	"Warning: no value found for parameter ", "RLAM6",
3305	". Default value 1 assigned."],
3306	Editable->False]], "Print",
3307	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3308	3.568290897450492*^9}],
3309
3310	Cell[BoxData[
3311	InterpretationBox[
3312	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3313	"\[InvisibleSpace]", "\<\"ILAM6\"\>",
3314	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3315	SequenceForm[
3316	"Warning: no value found for parameter ", "ILAM6",
3317	". Default value 1 assigned."],
3318	Editable->False]], "Print",
3319	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3320	3.56829089745297*^9}],
3321
3322	Cell[BoxData[
3323	InterpretationBox[
3324	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3325	"\[InvisibleSpace]", "\<\"RRHO1\"\>",
3326	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3327	SequenceForm[
3328	"Warning: no value found for parameter ", "RRHO1",
3329	". Default value 1 assigned."],
3330	Editable->False]], "Print",
3331	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3332	3.5682908974554462`*^9}],
3333
3334	Cell[BoxData[
3335	InterpretationBox[
3336	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3337	"\[InvisibleSpace]", "\<\"IRHO1\"\>",
3338	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3339	SequenceForm[
3340	"Warning: no value found for parameter ", "IRHO1",
3341	". Default value 1 assigned."],
3342	Editable->False]], "Print",
3343	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3344	3.5682908974590673`*^9}],
3345
3346	Cell[BoxData[
3347	InterpretationBox[
3348	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3349	"\[InvisibleSpace]", "\<\"RRHO2\"\>",
3350	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3351	SequenceForm[
3352	"Warning: no value found for parameter ", "RRHO2",
3353	". Default value 1 assigned."],
3354	Editable->False]], "Print",
3355	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3356	3.568290897463662*^9}],
3357
3358	Cell[BoxData[
3359	InterpretationBox[
3360	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3361	"\[InvisibleSpace]", "\<\"IRHO2\"\>",
3362	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3363	SequenceForm[
3364	"Warning: no value found for parameter ", "IRHO2",
3365	". Default value 1 assigned."],
3366	Editable->False]], "Print",
3367	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3368	3.5682908974681177`*^9}],
3369
3370	Cell[BoxData[
3371	InterpretationBox[
3372	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3373	"\[InvisibleSpace]", "\<\"RRHO3\"\>",
3374	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3375	SequenceForm[
3376	"Warning: no value found for parameter ", "RRHO3",
3377	". Default value 1 assigned."],
3378	Editable->False]], "Print",
3379	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3380	3.568290897470942*^9}],
3381
3382	Cell[BoxData[
3383	InterpretationBox[
3384	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3385	"\[InvisibleSpace]", "\<\"IRHO3\"\>",
3386	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3387	SequenceForm[
3388	"Warning: no value found for parameter ", "IRHO3",
3389	". Default value 1 assigned."],
3390	Editable->False]], "Print",
3391	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3392	3.568290897473403*^9}],
3393
3394	Cell[BoxData[
3395	InterpretationBox[
3396	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3397	"\[InvisibleSpace]", "\<\"RAL1\"\>",
3398	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3399	SequenceForm[
3400	"Warning: no value found for parameter ", "RAL1",
3401	". Default value 1 assigned."],
3402	Editable->False]], "Print",
3403	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3404	3.5682908974757853`*^9}],
3405
3406	Cell[BoxData[
3407	InterpretationBox[
3408	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3409	"\[InvisibleSpace]", "\<\"IAL1\"\>",
3410	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3411	SequenceForm[
3412	"Warning: no value found for parameter ", "IAL1",
3413	". Default value 1 assigned."],
3414	Editable->False]], "Print",
3415	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3416	3.568290897478323*^9}],
3417
3418	Cell[BoxData[
3419	InterpretationBox[
3420	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3421	"\[InvisibleSpace]", "\<\"RAL2\"\>",
3422	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3423	SequenceForm[
3424	"Warning: no value found for parameter ", "RAL2",
3425	". Default value 1 assigned."],
3426	Editable->False]], "Print",
3427	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3428	3.568290897480877*^9}],
3429
3430	Cell[BoxData[
3431	InterpretationBox[
3432	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3433	"\[InvisibleSpace]", "\<\"IAL2\"\>",
3434	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3435	SequenceForm[
3436	"Warning: no value found for parameter ", "IAL2",
3437	". Default value 1 assigned."],
3438	Editable->False]], "Print",
3439	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3440	3.56829089748387*^9}],
3441
3442	Cell[BoxData[
3443	InterpretationBox[
3444	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3445	"\[InvisibleSpace]", "\<\"RAL3\"\>",
3446	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3447	SequenceForm[
3448	"Warning: no value found for parameter ", "RAL3",
3449	". Default value 1 assigned."],
3450	Editable->False]], "Print",
3451	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3452	3.568290897486517*^9}],
3453
3454	Cell[BoxData[
3455	InterpretationBox[
3456	RowBox[{"\<\"Warning: no value found for parameter \"\>",
3457	"\[InvisibleSpace]", "\<\"IAL3\"\>",
3458	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
3459	SequenceForm[
3460	"Warning: no value found for parameter ", "IAL3",
3461	". Default value 1 assigned."],
3462	Editable->False]], "Print",
3463	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3464	3.5682908974889593`*^9}],
3465
3466	Cell[BoxData[
3467	InterpretationBox[
3468	RowBox[{"\<\"Output written on \"\>",
3469	"\[InvisibleSpace]", "\<\"input/externals.dat\"\>"}],
3470	SequenceForm["Output written on ", "input/externals.dat"],
3471	Editable->False]], "Print",
3472	CellChangeTimes->{3.568290677066638^9, 3.5682907240352697`^9,
3473	3.568290897491383*^9}]
3474	}, Open ]]
3475	}, Open ]]
3476	}, Open ]],
3477
3478	Cell[CellGroupData[{
3479
3480	Cell["\<\
3481	Write the output to the folder \[OpenCurlyQuote]LRSM\[CloseCurlyQuote] in \
3482	$FeynRulesPath only for mixing \[OpenCurlyQuote]2e\[CloseCurlyQuote]\
3483	\>", "Subsection",
3484	CellChangeTimes->{{3.568096247910824^9, 3.568096269824924^9}, {
3485	3.568096357314967^9, 3.568096357774859^9}, {3.568098275605797*^9,
3486	3.5680982913881598`*^9}}],
3487
3488	Cell[CellGroupData[{
3489
3490	Cell[BoxData[
3491	RowBox[{"WriteASperGe", "[",
3492	RowBox[{"LagLRSM", ",", " ",
3493	RowBox[{"Output", "\[Rule]", "\"\<LRSM\>\""}], ",", " ",
3494	RowBox[{"Mix", "\[Rule]", " ", "\"\<2e\>\""}]}], "]"}]], "Input",
3495	CellChangeTimes->{{3.5680343410263853`^9, 3.5680343452721643`^9}, {
3496	3.568096361840968^9, 3.568096369463834^9}, {3.5680982512410593`*^9,
3497	3.568098263655603*^9}}],
3498
3499	Cell[CellGroupData[{
3500
3501	Cell[BoxData[
3502	RowBox[{"{",
3503	RowBox[{
3504	TagBox[
3505	RowBox[{"(", "\[NoBreak]", GridBox[{
3506	{
3507	RowBox[{
3508	FractionBox["1", "2"], " ",
3509	RowBox[{"(",
3510	RowBox[{
3511	RowBox[{
3512	RowBox[{"-", "2"}], " ",
3513	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
3514	RowBox[{
3515	SubscriptBox["\[Alpha]", "3"], " ",
3516	SubsuperscriptBox["v", "1", "2"]}], "+",
3517	RowBox[{
3518	SubscriptBox["\[Alpha]", "2"], " ",
3519	SuperscriptBox[
3520	RowBox[{"(",
3521	InterpretationBox[
3522	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3523	Subsuperscript[FeynRules`v, 1, "'"],
3524	Editable->False], ")"}], "2"]}], "+",
3525	RowBox[{
3526	SubscriptBox["\[Alpha]", "1"], " ",
3527	RowBox[{"(",
3528	RowBox[{
3529	SubsuperscriptBox["v", "1", "2"], "+",
3530	SuperscriptBox[
3531	RowBox[{"(",
3532	InterpretationBox[
3533	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3534	Subsuperscript[FeynRules`v, 1, "'"],
3535	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3536	RowBox[{"6", " ",
3537	SubscriptBox["\[Rho]", "1"], " ",
3538	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3539	RowBox[{"6", " ",
3540	SubscriptBox["\[Rho]", "2"], " ",
3541	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3542	RowBox[{
3543	SubscriptBox["\[Rho]", "3"], " ",
3544	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
3545	RowBox[{
3546	SubscriptBox["\[Rho]", "3"], " ",
3547	SubscriptBox["v", "\<\"L\"\>"], " ",
3548	SubscriptBox["v", "\<\"R\"\>"]}],
3549	RowBox[{
3550	RowBox[{"(",
3551	RowBox[{
3552	SubscriptBox["\[Alpha]", "1"], "+",
3553	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
3554	SubscriptBox["v", "1"], " ",
3555	SubscriptBox["v", "\<\"L\"\>"]}],
3556	RowBox[{
3557	RowBox[{"(",
3558	RowBox[{
3559	SubscriptBox["\[Alpha]", "1"], "+",
3560	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
3561	InterpretationBox[
3562	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3563	Subsuperscript[FeynRules`v, 1, "'"],
3564	Editable->False], " ",
3565	SubscriptBox["v", "\<\"L\"\>"]}]},
3566	{
3567	RowBox[{
3568	SubscriptBox["\[Rho]", "3"], " ",
3569	SubscriptBox["v", "\<\"L\"\>"], " ",
3570	SubscriptBox["v", "\<\"R\"\>"]}],
3571	RowBox[{
3572	FractionBox["1", "2"], " ",
3573	RowBox[{"(",
3574	RowBox[{
3575	RowBox[{
3576	RowBox[{"-", "2"}], " ",
3577	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
3578	RowBox[{
3579	SubscriptBox["\[Alpha]", "3"], " ",
3580	SubsuperscriptBox["v", "1", "2"]}], "+",
3581	RowBox[{
3582	SubscriptBox["\[Alpha]", "2"], " ",
3583	SuperscriptBox[
3584	RowBox[{"(",
3585	InterpretationBox[
3586	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3587	Subsuperscript[FeynRules`v, 1, "'"],
3588	Editable->False], ")"}], "2"]}], "+",
3589	RowBox[{
3590	SubscriptBox["\[Alpha]", "1"], " ",
3591	RowBox[{"(",
3592	RowBox[{
3593	SubsuperscriptBox["v", "1", "2"], "+",
3594	SuperscriptBox[
3595	RowBox[{"(",
3596	InterpretationBox[
3597	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3598	Subsuperscript[FeynRules`v, 1, "'"],
3599	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3600	RowBox[{
3601	SubscriptBox["\[Rho]", "3"], " ",
3602	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3603	RowBox[{"6", " ",
3604	SubscriptBox["\[Rho]", "1"], " ",
3605	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
3606	RowBox[{"6", " ",
3607	SubscriptBox["\[Rho]", "2"], " ",
3608	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
3609	RowBox[{
3610	RowBox[{"(",
3611	RowBox[{
3612	SubscriptBox["\[Alpha]", "1"], "+",
3613	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
3614	SubscriptBox["v", "1"], " ",
3615	SubscriptBox["v", "\<\"R\"\>"]}],
3616	RowBox[{
3617	RowBox[{"(",
3618	RowBox[{
3619	SubscriptBox["\[Alpha]", "1"], "+",
3620	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
3621	InterpretationBox[
3622	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3623	Subsuperscript[FeynRules`v, 1, "'"],
3624	Editable->False], " ",
3625	SubscriptBox["v", "\<\"R\"\>"]}]},
3626	{
3627	RowBox[{
3628	RowBox[{"(",
3629	RowBox[{
3630	SubscriptBox["\[Alpha]", "1"], "+",
3631	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
3632	SubscriptBox["v", "1"], " ",
3633	SubscriptBox["v", "\<\"L\"\>"]}],
3634	RowBox[{
3635	RowBox[{"(",
3636	RowBox[{
3637	SubscriptBox["\[Alpha]", "1"], "+",
3638	SubscriptBox["\[Alpha]", "3"]}], ")"}], " ",
3639	SubscriptBox["v", "1"], " ",
3640	SubscriptBox["v", "\<\"R\"\>"]}],
3641	RowBox[{
3642	FractionBox["1", "2"], " ",
3643	RowBox[{"(",
3644	RowBox[{
3645	RowBox[{
3646	RowBox[{"-", "2"}], " ",
3647	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
3648	RowBox[{"6", " ",
3649	SubscriptBox["\[Lambda]", "2"], " ",
3650	SubsuperscriptBox["v", "1", "2"]}], "+",
3651	RowBox[{"8", " ",
3652	SubscriptBox["\[Lambda]", "3"], " ",
3653	SuperscriptBox[
3654	RowBox[{"(",
3655	InterpretationBox[
3656	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3657	Subsuperscript[FeynRules`v, 1, "'"],
3658	Editable->False], ")"}], "2"]}], "+",
3659	RowBox[{"2", " ",
3660	SubscriptBox["\[Lambda]", "5"], " ",
3661	SuperscriptBox[
3662	RowBox[{"(",
3663	InterpretationBox[
3664	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3665	Subsuperscript[FeynRules`v, 1, "'"],
3666	Editable->False], ")"}], "2"]}], "+",
3667	RowBox[{"2", " ",
3668	SubscriptBox["\[Lambda]", "6"], " ",
3669	SuperscriptBox[
3670	RowBox[{"(",
3671	InterpretationBox[
3672	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3673	Subsuperscript[FeynRules`v, 1, "'"],
3674	Editable->False], ")"}], "2"]}], "+",
3675	RowBox[{"2", " ",
3676	SubscriptBox["\[Lambda]", "1"], " ",
3677	RowBox[{"(",
3678	RowBox[{
3679	RowBox[{"3", " ",
3680	SubsuperscriptBox["v", "1", "2"]}], "+",
3681	SuperscriptBox[
3682	RowBox[{"(",
3683	InterpretationBox[
3684	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3685	Subsuperscript[FeynRules`v, 1, "'"],
3686	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3687	RowBox[{
3688	SubscriptBox["\[Alpha]", "1"], " ",
3689	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3690	RowBox[{
3691	SubscriptBox["\[Alpha]", "3"], " ",
3692	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3693	RowBox[{
3694	SubscriptBox["\[Alpha]", "1"], " ",
3695	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
3696	RowBox[{
3697	SubscriptBox["\[Alpha]", "3"], " ",
3698	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
3699	RowBox[{"2", " ",
3700	RowBox[{"(",
3701	RowBox[{
3702	SubscriptBox["\[Lambda]", "1"], "+",
3703	RowBox[{"4", " ",
3704	SubscriptBox["\[Lambda]", "3"]}], "+",
3705	SubscriptBox["\[Lambda]", "5"], "+",
3706	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
3707	SubscriptBox["v", "1"], " ",
3708	InterpretationBox[
3709	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3710	Subsuperscript[FeynRules`v, 1, "'"],
3711	Editable->False]}]},
3712	{
3713	RowBox[{
3714	RowBox[{"(",
3715	RowBox[{
3716	SubscriptBox["\[Alpha]", "1"], "+",
3717	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
3718	InterpretationBox[
3719	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3720	Subsuperscript[FeynRules`v, 1, "'"],
3721	Editable->False], " ",
3722	SubscriptBox["v", "\<\"L\"\>"]}],
3723	RowBox[{
3724	RowBox[{"(",
3725	RowBox[{
3726	SubscriptBox["\[Alpha]", "1"], "+",
3727	SubscriptBox["\[Alpha]", "2"]}], ")"}], " ",
3728	InterpretationBox[
3729	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3730	Subsuperscript[FeynRules`v, 1, "'"],
3731	Editable->False], " ",
3732	SubscriptBox["v", "\<\"R\"\>"]}],
3733	RowBox[{"2", " ",
3734	RowBox[{"(",
3735	RowBox[{
3736	SubscriptBox["\[Lambda]", "1"], "+",
3737	RowBox[{"4", " ",
3738	SubscriptBox["\[Lambda]", "3"]}], "+",
3739	SubscriptBox["\[Lambda]", "5"], "+",
3740	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
3741	SubscriptBox["v", "1"], " ",
3742	InterpretationBox[
3743	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3744	Subsuperscript[FeynRules`v, 1, "'"],
3745	Editable->False]}],
3746	RowBox[{
3747	FractionBox["1", "2"], " ",
3748	RowBox[{"(",
3749	RowBox[{
3750	RowBox[{
3751	RowBox[{"-", "2"}], " ",
3752	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
3753	RowBox[{"8", " ",
3754	SubscriptBox["\[Lambda]", "3"], " ",
3755	SubsuperscriptBox["v", "1", "2"]}], "+",
3756	RowBox[{"2", " ",
3757	SubscriptBox["\[Lambda]", "5"], " ",
3758	SubsuperscriptBox["v", "1", "2"]}], "+",
3759	RowBox[{"2", " ",
3760	SubscriptBox["\[Lambda]", "6"], " ",
3761	SubsuperscriptBox["v", "1", "2"]}], "+",
3762	RowBox[{"6", " ",
3763	SubscriptBox["\[Lambda]", "2"], " ",
3764	SuperscriptBox[
3765	RowBox[{"(",
3766	InterpretationBox[
3767	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3768	Subsuperscript[FeynRules`v, 1, "'"],
3769	Editable->False], ")"}], "2"]}], "+",
3770	RowBox[{"2", " ",
3771	SubscriptBox["\[Lambda]", "1"], " ",
3772	RowBox[{"(",
3773	RowBox[{
3774	SubsuperscriptBox["v", "1", "2"], "+",
3775	RowBox[{"3", " ",
3776	SuperscriptBox[
3777	RowBox[{"(",
3778	InterpretationBox[
3779	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3780	Subsuperscript[FeynRules`v, 1, "'"],
3781	Editable->False], ")"}], "2"]}]}], ")"}]}], "+",
3782	RowBox[{
3783	SubscriptBox["\[Alpha]", "1"], " ",
3784	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3785	RowBox[{
3786	SubscriptBox["\[Alpha]", "2"], " ",
3787	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3788	RowBox[{
3789	SubscriptBox["\[Alpha]", "1"], " ",
3790	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
3791	RowBox[{
3792	SubscriptBox["\[Alpha]", "2"], " ",
3793	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
3794	},
3795	GridBoxAlignment->{
3796	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
3797	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
3798	GridBoxSpacings->{"Columns" -> {
3799	Offset[0.27999999999999997`], {
3800	Offset[0.7]},
3801	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
3802	Offset[0.2], {
3803	Offset[0.4]},
3804	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
3805	Function[BoxForm`e$,
3806	MatrixForm[BoxForm`e$]]], ",",
3807	TagBox[
3808	RowBox[{"(", "\[NoBreak]", GridBox[{
3809	{
3810	RowBox[{
3811	FractionBox["1", "2"], " ",
3812	RowBox[{"(",
3813	RowBox[{
3814	RowBox[{
3815	RowBox[{"-", "2"}], " ",
3816	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
3817	RowBox[{
3818	SubscriptBox["\[Alpha]", "3"], " ",
3819	SubsuperscriptBox["v", "1", "2"]}], "+",
3820	RowBox[{
3821	SubscriptBox["\[Alpha]", "2"], " ",
3822	SuperscriptBox[
3823	RowBox[{"(",
3824	InterpretationBox[
3825	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3826	Subsuperscript[FeynRules`v, 1, "'"],
3827	Editable->False], ")"}], "2"]}], "+",
3828	RowBox[{
3829	SubscriptBox["\[Alpha]", "1"], " ",
3830	RowBox[{"(",
3831	RowBox[{
3832	SubsuperscriptBox["v", "1", "2"], "+",
3833	SuperscriptBox[
3834	RowBox[{"(",
3835	InterpretationBox[
3836	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3837	Subsuperscript[FeynRules`v, 1, "'"],
3838	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3839	RowBox[{"2", " ",
3840	SubscriptBox["\[Rho]", "1"], " ",
3841	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3842	RowBox[{"2", " ",
3843	SubscriptBox["\[Rho]", "2"], " ",
3844	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3845	RowBox[{
3846	SubscriptBox["\[Rho]", "3"], " ",
3847	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0",
3848	"0"},
3849	{"0",
3850	RowBox[{
3851	FractionBox["1", "2"], " ",
3852	RowBox[{"(",
3853	RowBox[{
3854	RowBox[{
3855	RowBox[{"-", "2"}], " ",
3856	SubsuperscriptBox["\[Mu]", "2", "2"]}], "+",
3857	RowBox[{
3858	SubscriptBox["\[Alpha]", "3"], " ",
3859	SubsuperscriptBox["v", "1", "2"]}], "+",
3860	RowBox[{
3861	SubscriptBox["\[Alpha]", "2"], " ",
3862	SuperscriptBox[
3863	RowBox[{"(",
3864	InterpretationBox[
3865	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3866	Subsuperscript[FeynRules`v, 1, "'"],
3867	Editable->False], ")"}], "2"]}], "+",
3868	RowBox[{
3869	SubscriptBox["\[Alpha]", "1"], " ",
3870	RowBox[{"(",
3871	RowBox[{
3872	SubsuperscriptBox["v", "1", "2"], "+",
3873	SuperscriptBox[
3874	RowBox[{"(",
3875	InterpretationBox[
3876	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3877	Subsuperscript[FeynRules`v, 1, "'"],
3878	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3879	RowBox[{
3880	SubscriptBox["\[Rho]", "3"], " ",
3881	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3882	RowBox[{"2", " ",
3883	SubscriptBox["\[Rho]", "1"], " ",
3884	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "-",
3885	RowBox[{"2", " ",
3886	SubscriptBox["\[Rho]", "2"], " ",
3887	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}], "0", "0"},
3888	{"0", "0",
3889	RowBox[{
3890	FractionBox["1", "2"], " ",
3891	RowBox[{"(",
3892	RowBox[{
3893	RowBox[{
3894	RowBox[{"-", "2"}], " ",
3895	SubsuperscriptBox["\[Mu]", "1", "2"]}], "+",
3896	RowBox[{"2", " ",
3897	SubscriptBox["\[Lambda]", "2"], " ",
3898	SubsuperscriptBox["v", "1", "2"]}], "-",
3899	RowBox[{"8", " ",
3900	SubscriptBox["\[Lambda]", "4"], " ",
3901	SuperscriptBox[
3902	RowBox[{"(",
3903	InterpretationBox[
3904	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3905	Subsuperscript[FeynRules`v, 1, "'"],
3906	Editable->False], ")"}], "2"]}], "+",
3907	RowBox[{"2", " ",
3908	SubscriptBox["\[Lambda]", "5"], " ",
3909	SuperscriptBox[
3910	RowBox[{"(",
3911	InterpretationBox[
3912	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3913	Subsuperscript[FeynRules`v, 1, "'"],
3914	Editable->False], ")"}], "2"]}], "-",
3915	RowBox[{"2", " ",
3916	SubscriptBox["\[Lambda]", "6"], " ",
3917	SuperscriptBox[
3918	RowBox[{"(",
3919	InterpretationBox[
3920	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3921	Subsuperscript[FeynRules`v, 1, "'"],
3922	Editable->False], ")"}], "2"]}], "+",
3923	RowBox[{"2", " ",
3924	SubscriptBox["\[Lambda]", "1"], " ",
3925	RowBox[{"(",
3926	RowBox[{
3927	SubsuperscriptBox["v", "1", "2"], "+",
3928	SuperscriptBox[
3929	RowBox[{"(",
3930	InterpretationBox[
3931	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3932	Subsuperscript[FeynRules`v, 1, "'"],
3933	Editable->False], ")"}], "2"]}], ")"}]}], "+",
3934	RowBox[{
3935	SubscriptBox["\[Alpha]", "1"], " ",
3936	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3937	RowBox[{
3938	SubscriptBox["\[Alpha]", "3"], " ",
3939	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
3940	RowBox[{
3941	SubscriptBox["\[Alpha]", "1"], " ",
3942	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
3943	RowBox[{
3944	SubscriptBox["\[Alpha]", "3"], " ",
3945	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}],
3946	RowBox[{
3947	RowBox[{"-", "2"}], " ",
3948	RowBox[{"(",
3949	RowBox[{
3950	RowBox[{"2", " ",
3951	SubscriptBox["\[Lambda]", "3"]}], "+",
3952	RowBox[{"2", " ",
3953	SubscriptBox["\[Lambda]", "4"]}], "+",
3954	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
3955	SubscriptBox["v", "1"], " ",
3956	InterpretationBox[
3957	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3958	Subsuperscript[FeynRules`v, 1, "'"],
3959	Editable->False]}]},
3960	{"0", "0",
3961	RowBox[{
3962	RowBox[{"-", "2"}], " ",
3963	RowBox[{"(",
3964	RowBox[{
3965	RowBox[{"2", " ",
3966	SubscriptBox["\[Lambda]", "3"]}], "+",
3967	RowBox[{"2", " ",
3968	SubscriptBox["\[Lambda]", "4"]}], "+",
3969	SubscriptBox["\[Lambda]", "6"]}], ")"}], " ",
3970	SubscriptBox["v", "1"], " ",
3971	InterpretationBox[
3972	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3973	Subsuperscript[FeynRules`v, 1, "'"],
3974	Editable->False]}],
3975	RowBox[{
3976	FractionBox["1", "2"], " ",
3977	RowBox[{"(",
3978	RowBox[{
3979	RowBox[{
3980	RowBox[{"-", "2"}], " ",
3981	SubsuperscriptBox["\[Mu]", "1", "2"]}], "-",
3982	RowBox[{"8", " ",
3983	SubscriptBox["\[Lambda]", "4"], " ",
3984	SubsuperscriptBox["v", "1", "2"]}], "+",
3985	RowBox[{"2", " ",
3986	SubscriptBox["\[Lambda]", "5"], " ",
3987	SubsuperscriptBox["v", "1", "2"]}], "-",
3988	RowBox[{"2", " ",
3989	SubscriptBox["\[Lambda]", "6"], " ",
3990	SubsuperscriptBox["v", "1", "2"]}], "+",
3991	RowBox[{"2", " ",
3992	SubscriptBox["\[Lambda]", "2"], " ",
3993	SuperscriptBox[
3994	RowBox[{"(",
3995	InterpretationBox[
3996	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
3997	Subsuperscript[FeynRules`v, 1, "'"],
3998	Editable->False], ")"}], "2"]}], "+",
3999	RowBox[{"2", " ",
4000	SubscriptBox["\[Lambda]", "1"], " ",
4001	RowBox[{"(",
4002	RowBox[{
4003	SubsuperscriptBox["v", "1", "2"], "+",
4004	SuperscriptBox[
4005	RowBox[{"(",
4006	InterpretationBox[
4007	SubsuperscriptBox["v", "1", "\<\"'\"\>"],
4008	Subsuperscript[FeynRules`v, 1, "'"],
4009	Editable->False], ")"}], "2"]}], ")"}]}], "+",
4010	RowBox[{
4011	SubscriptBox["\[Alpha]", "1"], " ",
4012	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
4013	RowBox[{
4014	SubscriptBox["\[Alpha]", "2"], " ",
4015	SubsuperscriptBox["v", "\<\"L\"\>", "2"]}], "+",
4016	RowBox[{
4017	SubscriptBox["\[Alpha]", "1"], " ",
4018	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}], "+",
4019	RowBox[{
4020	SubscriptBox["\[Alpha]", "2"], " ",
4021	SubsuperscriptBox["v", "\<\"R\"\>", "2"]}]}], ")"}]}]}
4022	},
4023	GridBoxAlignment->{
4024	"Columns" -> {{Center}}, "ColumnsIndexed" -> {},
4025	"Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
4026	GridBoxSpacings->{"Columns" -> {
4027	Offset[0.27999999999999997`], {
4028	Offset[0.7]},
4029	Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
4030	Offset[0.2], {
4031	Offset[0.4]},
4032	Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
4033	Function[BoxForm`e$,
4034	MatrixForm[BoxForm`e$]]]}], "}"}]], "Print",
4035	CellChangeTimes->{3.568290688352541^9, 3.568291170597967^9}],
4036
4037	Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
4038	They have been stored in /Users/Karen/trunk/feynrules-development/LRSM\"\>"], \
4039	"Print",
4040	CellChangeTimes->{3.568290688352541^9, 3.568291170799202^9}],
4041
4042	Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
4043	CellChangeTimes->{3.568290688352541^9, 3.5682911708545723`^9}],
4044
4045	Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
4046	CellChangeTimes->{3.568290688352541^9, 3.568291170857473^9}],
4047
4048	Cell[BoxData[
4049	InterpretationBox[
4050	RowBox[{"\<\"Warning: No mass value found for \"\>",
4051	"\[InvisibleSpace]", "\<\"MD\"\>",
4052	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4053	SequenceForm[
4054	"Warning: No mass value found for ", "MD", ". Default value 1 assigned."],
4055	Editable->False]], "Print",
4056	CellChangeTimes->{3.568290688352541^9, 3.5682911708607264`^9}],
4057
4058	Cell[BoxData[
4059	InterpretationBox[
4060	RowBox[{"\<\"Warning: No mass value found for \"\>",
4061	"\[InvisibleSpace]", "\<\"MU\"\>",
4062	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4063	SequenceForm[
4064	"Warning: No mass value found for ", "MU", ". Default value 1 assigned."],
4065	Editable->False]], "Print",
4066	CellChangeTimes->{3.568290688352541^9, 3.568291170863185^9}],
4067
4068	Cell[BoxData[
4069	InterpretationBox[
4070	RowBox[{"\<\"Warning: No mass value found for \"\>",
4071	"\[InvisibleSpace]", "\<\"WT\"\>",
4072	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4073	SequenceForm[
4074	"Warning: No mass value found for ", "WT", ". Default value 1 assigned."],
4075	Editable->False]], "Print",
4076	CellChangeTimes->{3.568290688352541^9, 3.568291170865652^9}],
4077
4078	Cell[BoxData[
4079	InterpretationBox[
4080	RowBox[{"\<\"Warning: No mass value found for \"\>",
4081	"\[InvisibleSpace]", "\<\"WZ\"\>",
4082	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4083	SequenceForm[
4084	"Warning: No mass value found for ", "WZ", ". Default value 1 assigned."],
4085	Editable->False]], "Print",
4086	CellChangeTimes->{3.568290688352541^9, 3.568291170868141^9}],
4087
4088	Cell[BoxData[
4089	InterpretationBox[
4090	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4091	"\[InvisibleSpace]", "\<\"aS\"\>",
4092	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4093	SequenceForm[
4094	"Warning: no value found for parameter ", "aS",
4095	". Default value 1 assigned."],
4096	Editable->False]], "Print",
4097	CellChangeTimes->{3.568290688352541^9, 3.568291170870659^9}],
4098
4099	Cell[BoxData[
4100	InterpretationBox[
4101	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4102	"\[InvisibleSpace]", "\<\"Ryq11x1\"\>",
4103	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4104	SequenceForm[
4105	"Warning: no value found for parameter ", "Ryq11x1",
4106	". Default value 1 assigned."],
4107	Editable->False]], "Print",
4108	CellChangeTimes->{3.568290688352541^9, 3.568291170874049^9}],
4109
4110	Cell[BoxData[
4111	InterpretationBox[
4112	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4113	"\[InvisibleSpace]", "\<\"Ryq11x2\"\>",
4114	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4115	SequenceForm[
4116	"Warning: no value found for parameter ", "Ryq11x2",
4117	". Default value 1 assigned."],
4118	Editable->False]], "Print",
4119	CellChangeTimes->{3.568290688352541^9, 3.568291170877015^9}],
4120
4121	Cell[BoxData[
4122	InterpretationBox[
4123	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4124	"\[InvisibleSpace]", "\<\"Ryq11x3\"\>",
4125	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4126	SequenceForm[
4127	"Warning: no value found for parameter ", "Ryq11x3",
4128	". Default value 1 assigned."],
4129	Editable->False]], "Print",
4130	CellChangeTimes->{3.568290688352541^9, 3.568291170879589^9}],
4131
4132	Cell[BoxData[
4133	InterpretationBox[
4134	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4135	"\[InvisibleSpace]", "\<\"Ryq12x1\"\>",
4136	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4137	SequenceForm[
4138	"Warning: no value found for parameter ", "Ryq12x1",
4139	". Default value 1 assigned."],
4140	Editable->False]], "Print",
4141	CellChangeTimes->{3.568290688352541^9, 3.568291170881863^9}],
4142
4143	Cell[BoxData[
4144	InterpretationBox[
4145	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4146	"\[InvisibleSpace]", "\<\"Ryq12x2\"\>",
4147	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4148	SequenceForm[
4149	"Warning: no value found for parameter ", "Ryq12x2",
4150	". Default value 1 assigned."],
4151	Editable->False]], "Print",
4152	CellChangeTimes->{3.568290688352541^9, 3.5682911708848743`^9}],
4153
4154	Cell[BoxData[
4155	InterpretationBox[
4156	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4157	"\[InvisibleSpace]", "\<\"Ryq12x3\"\>",
4158	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4159	SequenceForm[
4160	"Warning: no value found for parameter ", "Ryq12x3",
4161	". Default value 1 assigned."],
4162	Editable->False]], "Print",
4163	CellChangeTimes->{3.568290688352541^9, 3.568291170889283^9}],
4164
4165	Cell[BoxData[
4166	InterpretationBox[
4167	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4168	"\[InvisibleSpace]", "\<\"Ryq13x1\"\>",
4169	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4170	SequenceForm[
4171	"Warning: no value found for parameter ", "Ryq13x1",
4172	". Default value 1 assigned."],
4173	Editable->False]], "Print",
4174	CellChangeTimes->{3.568290688352541^9, 3.568291170893581^9}],
4175
4176	Cell[BoxData[
4177	InterpretationBox[
4178	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4179	"\[InvisibleSpace]", "\<\"Ryq13x2\"\>",
4180	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4181	SequenceForm[
4182	"Warning: no value found for parameter ", "Ryq13x2",
4183	". Default value 1 assigned."],
4184	Editable->False]], "Print",
4185	CellChangeTimes->{3.568290688352541^9, 3.568291170896055^9}],
4186
4187	Cell[BoxData[
4188	InterpretationBox[
4189	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4190	"\[InvisibleSpace]", "\<\"Ryq13x3\"\>",
4191	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4192	SequenceForm[
4193	"Warning: no value found for parameter ", "Ryq13x3",
4194	". Default value 1 assigned."],
4195	Editable->False]], "Print",
4196	CellChangeTimes->{3.568290688352541^9, 3.568291170898415^9}],
4197
4198	Cell[BoxData[
4199	InterpretationBox[
4200	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4201	"\[InvisibleSpace]", "\<\"Iyq11x1\"\>",
4202	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4203	SequenceForm[
4204	"Warning: no value found for parameter ", "Iyq11x1",
4205	". Default value 1 assigned."],
4206	Editable->False]], "Print",
4207	CellChangeTimes->{3.568290688352541^9, 3.5682911709007607`^9}],
4208
4209	Cell[BoxData[
4210	InterpretationBox[
4211	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4212	"\[InvisibleSpace]", "\<\"Iyq11x2\"\>",
4213	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4214	SequenceForm[
4215	"Warning: no value found for parameter ", "Iyq11x2",
4216	". Default value 1 assigned."],
4217	Editable->False]], "Print",
4218	CellChangeTimes->{3.568290688352541^9, 3.568291170903091^9}],
4219
4220	Cell[BoxData[
4221	InterpretationBox[
4222	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4223	"\[InvisibleSpace]", "\<\"Iyq11x3\"\>",
4224	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4225	SequenceForm[
4226	"Warning: no value found for parameter ", "Iyq11x3",
4227	". Default value 1 assigned."],
4228	Editable->False]], "Print",
4229	CellChangeTimes->{3.568290688352541^9, 3.568291170905426^9}],
4230
4231	Cell[BoxData[
4232	InterpretationBox[
4233	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4234	"\[InvisibleSpace]", "\<\"Iyq12x1\"\>",
4235	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4236	SequenceForm[
4237	"Warning: no value found for parameter ", "Iyq12x1",
4238	". Default value 1 assigned."],
4239	Editable->False]], "Print",
4240	CellChangeTimes->{3.568290688352541^9, 3.568291170907824^9}],
4241
4242	Cell[BoxData[
4243	InterpretationBox[
4244	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4245	"\[InvisibleSpace]", "\<\"Iyq12x2\"\>",
4246	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4247	SequenceForm[
4248	"Warning: no value found for parameter ", "Iyq12x2",
4249	". Default value 1 assigned."],
4250	Editable->False]], "Print",
4251	CellChangeTimes->{3.568290688352541^9, 3.568291170911737^9}],
4252
4253	Cell[BoxData[
4254	InterpretationBox[
4255	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4256	"\[InvisibleSpace]", "\<\"Iyq12x3\"\>",
4257	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4258	SequenceForm[
4259	"Warning: no value found for parameter ", "Iyq12x3",
4260	". Default value 1 assigned."],
4261	Editable->False]], "Print",
4262	CellChangeTimes->{3.568290688352541^9, 3.5682911709159718`^9}],
4263
4264	Cell[BoxData[
4265	InterpretationBox[
4266	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4267	"\[InvisibleSpace]", "\<\"Iyq13x1\"\>",
4268	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4269	SequenceForm[
4270	"Warning: no value found for parameter ", "Iyq13x1",
4271	". Default value 1 assigned."],
4272	Editable->False]], "Print",
4273	CellChangeTimes->{3.568290688352541^9, 3.568291170919915^9}],
4274
4275	Cell[BoxData[
4276	InterpretationBox[
4277	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4278	"\[InvisibleSpace]", "\<\"Iyq13x2\"\>",
4279	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4280	SequenceForm[
4281	"Warning: no value found for parameter ", "Iyq13x2",
4282	". Default value 1 assigned."],
4283	Editable->False]], "Print",
4284	CellChangeTimes->{3.568290688352541^9, 3.5682911709227467`^9}],
4285
4286	Cell[BoxData[
4287	InterpretationBox[
4288	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4289	"\[InvisibleSpace]", "\<\"Iyq13x3\"\>",
4290	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4291	SequenceForm[
4292	"Warning: no value found for parameter ", "Iyq13x3",
4293	". Default value 1 assigned."],
4294	Editable->False]], "Print",
4295	CellChangeTimes->{3.568290688352541^9, 3.568291170925148^9}],
4296
4297	Cell[BoxData[
4298	InterpretationBox[
4299	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4300	"\[InvisibleSpace]", "\<\"Ryl11x1\"\>",
4301	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4302	SequenceForm[
4303	"Warning: no value found for parameter ", "Ryl11x1",
4304	". Default value 1 assigned."],
4305	Editable->False]], "Print",
4306	CellChangeTimes->{3.568290688352541^9, 3.568291170927898^9}],
4307
4308	Cell[BoxData[
4309	InterpretationBox[
4310	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4311	"\[InvisibleSpace]", "\<\"Ryl11x2\"\>",
4312	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4313	SequenceForm[
4314	"Warning: no value found for parameter ", "Ryl11x2",
4315	". Default value 1 assigned."],
4316	Editable->False]], "Print",
4317	CellChangeTimes->{3.568290688352541^9, 3.568291170930779^9}],
4318
4319	Cell[BoxData[
4320	InterpretationBox[
4321	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4322	"\[InvisibleSpace]", "\<\"Ryl11x3\"\>",
4323	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4324	SequenceForm[
4325	"Warning: no value found for parameter ", "Ryl11x3",
4326	". Default value 1 assigned."],
4327	Editable->False]], "Print",
4328	CellChangeTimes->{3.568290688352541^9, 3.5682911709334497`^9}],
4329
4330	Cell[BoxData[
4331	InterpretationBox[
4332	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4333	"\[InvisibleSpace]", "\<\"Ryl12x1\"\>",
4334	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4335	SequenceForm[
4336	"Warning: no value found for parameter ", "Ryl12x1",
4337	". Default value 1 assigned."],
4338	Editable->False]], "Print",
4339	CellChangeTimes->{3.568290688352541^9, 3.568291170935726^9}],
4340
4341	Cell[BoxData[
4342	InterpretationBox[
4343	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4344	"\[InvisibleSpace]", "\<\"Ryl12x2\"\>",
4345	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4346	SequenceForm[
4347	"Warning: no value found for parameter ", "Ryl12x2",
4348	". Default value 1 assigned."],
4349	Editable->False]], "Print",
4350	CellChangeTimes->{3.568290688352541^9, 3.568291170937945^9}],
4351
4352	Cell[BoxData[
4353	InterpretationBox[
4354	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4355	"\[InvisibleSpace]", "\<\"Ryl12x3\"\>",
4356	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4357	SequenceForm[
4358	"Warning: no value found for parameter ", "Ryl12x3",
4359	". Default value 1 assigned."],
4360	Editable->False]], "Print",
4361	CellChangeTimes->{3.568290688352541^9, 3.5682911709401493`^9}],
4362
4363	Cell[BoxData[
4364	InterpretationBox[
4365	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4366	"\[InvisibleSpace]", "\<\"Ryl13x1\"\>",
4367	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4368	SequenceForm[
4369	"Warning: no value found for parameter ", "Ryl13x1",
4370	". Default value 1 assigned."],
4371	Editable->False]], "Print",
4372	CellChangeTimes->{3.568290688352541^9, 3.5682911709423943`^9}],
4373
4374	Cell[BoxData[
4375	InterpretationBox[
4376	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4377	"\[InvisibleSpace]", "\<\"Ryl13x2\"\>",
4378	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4379	SequenceForm[
4380	"Warning: no value found for parameter ", "Ryl13x2",
4381	". Default value 1 assigned."],
4382	Editable->False]], "Print",
4383	CellChangeTimes->{3.568290688352541^9, 3.568291170944811^9}],
4384
4385	Cell[BoxData[
4386	InterpretationBox[
4387	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4388	"\[InvisibleSpace]", "\<\"Ryl13x3\"\>",
4389	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4390	SequenceForm[
4391	"Warning: no value found for parameter ", "Ryl13x3",
4392	". Default value 1 assigned."],
4393	Editable->False]], "Print",
4394	CellChangeTimes->{3.568290688352541^9, 3.5682911709471197`^9}],
4395
4396	Cell[BoxData[
4397	InterpretationBox[
4398	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4399	"\[InvisibleSpace]", "\<\"Iyl11x1\"\>",
4400	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4401	SequenceForm[
4402	"Warning: no value found for parameter ", "Iyl11x1",
4403	". Default value 1 assigned."],
4404	Editable->False]], "Print",
4405	CellChangeTimes->{3.568290688352541^9, 3.568291170949359^9}],
4406
4407	Cell[BoxData[
4408	InterpretationBox[
4409	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4410	"\[InvisibleSpace]", "\<\"Iyl11x2\"\>",
4411	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4412	SequenceForm[
4413	"Warning: no value found for parameter ", "Iyl11x2",
4414	". Default value 1 assigned."],
4415	Editable->False]], "Print",
4416	CellChangeTimes->{3.568290688352541^9, 3.568291170951631^9}],
4417
4418	Cell[BoxData[
4419	InterpretationBox[
4420	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4421	"\[InvisibleSpace]", "\<\"Iyl11x3\"\>",
4422	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4423	SequenceForm[
4424	"Warning: no value found for parameter ", "Iyl11x3",
4425	". Default value 1 assigned."],
4426	Editable->False]], "Print",
4427	CellChangeTimes->{3.568290688352541^9, 3.5682911709539967`^9}],
4428
4429	Cell[BoxData[
4430	InterpretationBox[
4431	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4432	"\[InvisibleSpace]", "\<\"Iyl12x1\"\>",
4433	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4434	SequenceForm[
4435	"Warning: no value found for parameter ", "Iyl12x1",
4436	". Default value 1 assigned."],
4437	Editable->False]], "Print",
4438	CellChangeTimes->{3.568290688352541^9, 3.568291170956279^9}],
4439
4440	Cell[BoxData[
4441	InterpretationBox[
4442	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4443	"\[InvisibleSpace]", "\<\"Iyl12x2\"\>",
4444	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4445	SequenceForm[
4446	"Warning: no value found for parameter ", "Iyl12x2",
4447	". Default value 1 assigned."],
4448	Editable->False]], "Print",
4449	CellChangeTimes->{3.568290688352541^9, 3.56829117095864^9}],
4450
4451	Cell[BoxData[
4452	InterpretationBox[
4453	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4454	"\[InvisibleSpace]", "\<\"Iyl12x3\"\>",
4455	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4456	SequenceForm[
4457	"Warning: no value found for parameter ", "Iyl12x3",
4458	". Default value 1 assigned."],
4459	Editable->False]], "Print",
4460	CellChangeTimes->{3.568290688352541^9, 3.56829117096093^9}],
4461
4462	Cell[BoxData[
4463	InterpretationBox[
4464	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4465	"\[InvisibleSpace]", "\<\"Iyl13x1\"\>",
4466	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4467	SequenceForm[
4468	"Warning: no value found for parameter ", "Iyl13x1",
4469	". Default value 1 assigned."],
4470	Editable->False]], "Print",
4471	CellChangeTimes->{3.568290688352541^9, 3.5682911709631844`^9}],
4472
4473	Cell[BoxData[
4474	InterpretationBox[
4475	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4476	"\[InvisibleSpace]", "\<\"Iyl13x2\"\>",
4477	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4478	SequenceForm[
4479	"Warning: no value found for parameter ", "Iyl13x2",
4480	". Default value 1 assigned."],
4481	Editable->False]], "Print",
4482	CellChangeTimes->{3.568290688352541^9, 3.568291170965514^9}],
4483
4484	Cell[BoxData[
4485	InterpretationBox[
4486	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4487	"\[InvisibleSpace]", "\<\"Iyl13x3\"\>",
4488	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4489	SequenceForm[
4490	"Warning: no value found for parameter ", "Iyl13x3",
4491	". Default value 1 assigned."],
4492	Editable->False]], "Print",
4493	CellChangeTimes->{3.568290688352541^9, 3.568291170968824^9}],
4494
4495	Cell[BoxData[
4496	InterpretationBox[
4497	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4498	"\[InvisibleSpace]", "\<\"Ryl31x1\"\>",
4499	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4500	SequenceForm[
4501	"Warning: no value found for parameter ", "Ryl31x1",
4502	". Default value 1 assigned."],
4503	Editable->False]], "Print",
4504	CellChangeTimes->{3.568290688352541^9, 3.5682911709730043`^9}],
4505
4506	Cell[BoxData[
4507	InterpretationBox[
4508	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4509	"\[InvisibleSpace]", "\<\"Ryl31x2\"\>",
4510	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4511	SequenceForm[
4512	"Warning: no value found for parameter ", "Ryl31x2",
4513	". Default value 1 assigned."],
4514	Editable->False]], "Print",
4515	CellChangeTimes->{3.568290688352541^9, 3.568291170976799^9}],
4516
4517	Cell[BoxData[
4518	InterpretationBox[
4519	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4520	"\[InvisibleSpace]", "\<\"Ryl31x3\"\>",
4521	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4522	SequenceForm[
4523	"Warning: no value found for parameter ", "Ryl31x3",
4524	". Default value 1 assigned."],
4525	Editable->False]], "Print",
4526	CellChangeTimes->{3.568290688352541^9, 3.568291170979156^9}],
4527
4528	Cell[BoxData[
4529	InterpretationBox[
4530	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4531	"\[InvisibleSpace]", "\<\"Ryl32x1\"\>",
4532	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4533	SequenceForm[
4534	"Warning: no value found for parameter ", "Ryl32x1",
4535	". Default value 1 assigned."],
4536	Editable->False]], "Print",
4537	CellChangeTimes->{3.568290688352541^9, 3.568291170981406^9}],
4538
4539	Cell[BoxData[
4540	InterpretationBox[
4541	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4542	"\[InvisibleSpace]", "\<\"Ryl32x2\"\>",
4543	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4544	SequenceForm[
4545	"Warning: no value found for parameter ", "Ryl32x2",
4546	". Default value 1 assigned."],
4547	Editable->False]], "Print",
4548	CellChangeTimes->{3.568290688352541^9, 3.568291170983659^9}],
4549
4550	Cell[BoxData[
4551	InterpretationBox[
4552	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4553	"\[InvisibleSpace]", "\<\"Ryl32x3\"\>",
4554	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4555	SequenceForm[
4556	"Warning: no value found for parameter ", "Ryl32x3",
4557	". Default value 1 assigned."],
4558	Editable->False]], "Print",
4559	CellChangeTimes->{3.568290688352541^9, 3.5682911709859^9}],
4560
4561	Cell[BoxData[
4562	InterpretationBox[
4563	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4564	"\[InvisibleSpace]", "\<\"Ryl33x1\"\>",
4565	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4566	SequenceForm[
4567	"Warning: no value found for parameter ", "Ryl33x1",
4568	". Default value 1 assigned."],
4569	Editable->False]], "Print",
4570	CellChangeTimes->{3.568290688352541^9, 3.568291170988221^9}],
4571
4572	Cell[BoxData[
4573	InterpretationBox[
4574	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4575	"\[InvisibleSpace]", "\<\"Ryl33x2\"\>",
4576	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4577	SequenceForm[
4578	"Warning: no value found for parameter ", "Ryl33x2",
4579	". Default value 1 assigned."],
4580	Editable->False]], "Print",
4581	CellChangeTimes->{3.568290688352541^9, 3.568291170990472^9}],
4582
4583	Cell[BoxData[
4584	InterpretationBox[
4585	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4586	"\[InvisibleSpace]", "\<\"Ryl33x3\"\>",
4587	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4588	SequenceForm[
4589	"Warning: no value found for parameter ", "Ryl33x3",
4590	". Default value 1 assigned."],
4591	Editable->False]], "Print",
4592	CellChangeTimes->{3.568290688352541^9, 3.5682911709927187`^9}],
4593
4594	Cell[BoxData[
4595	InterpretationBox[
4596	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4597	"\[InvisibleSpace]", "\<\"Iyl31x1\"\>",
4598	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4599	SequenceForm[
4600	"Warning: no value found for parameter ", "Iyl31x1",
4601	". Default value 1 assigned."],
4602	Editable->False]], "Print",
4603	CellChangeTimes->{3.568290688352541^9, 3.568291170994998^9}],
4604
4605	Cell[BoxData[
4606	InterpretationBox[
4607	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4608	"\[InvisibleSpace]", "\<\"Iyl31x2\"\>",
4609	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4610	SequenceForm[
4611	"Warning: no value found for parameter ", "Iyl31x2",
4612	". Default value 1 assigned."],
4613	Editable->False]], "Print",
4614	CellChangeTimes->{3.568290688352541^9, 3.5682911709981337`^9}],
4615
4616	Cell[BoxData[
4617	InterpretationBox[
4618	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4619	"\[InvisibleSpace]", "\<\"Iyl31x3\"\>",
4620	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4621	SequenceForm[
4622	"Warning: no value found for parameter ", "Iyl31x3",
4623	". Default value 1 assigned."],
4624	Editable->False]], "Print",
4625	CellChangeTimes->{3.568290688352541^9, 3.568291171000741^9}],
4626
4627	Cell[BoxData[
4628	InterpretationBox[
4629	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4630	"\[InvisibleSpace]", "\<\"Iyl32x1\"\>",
4631	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4632	SequenceForm[
4633	"Warning: no value found for parameter ", "Iyl32x1",
4634	". Default value 1 assigned."],
4635	Editable->False]], "Print",
4636	CellChangeTimes->{3.568290688352541^9, 3.568291171003038^9}],
4637
4638	Cell[BoxData[
4639	InterpretationBox[
4640	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4641	"\[InvisibleSpace]", "\<\"Iyl32x2\"\>",
4642	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4643	SequenceForm[
4644	"Warning: no value found for parameter ", "Iyl32x2",
4645	". Default value 1 assigned."],
4646	Editable->False]], "Print",
4647	CellChangeTimes->{3.568290688352541^9, 3.568291171005293^9}],
4648
4649	Cell[BoxData[
4650	InterpretationBox[
4651	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4652	"\[InvisibleSpace]", "\<\"Iyl32x3\"\>",
4653	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4654	SequenceForm[
4655	"Warning: no value found for parameter ", "Iyl32x3",
4656	". Default value 1 assigned."],
4657	Editable->False]], "Print",
4658	CellChangeTimes->{3.568290688352541^9, 3.568291171007639^9}],
4659
4660	Cell[BoxData[
4661	InterpretationBox[
4662	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4663	"\[InvisibleSpace]", "\<\"Iyl33x1\"\>",
4664	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4665	SequenceForm[
4666	"Warning: no value found for parameter ", "Iyl33x1",
4667	". Default value 1 assigned."],
4668	Editable->False]], "Print",
4669	CellChangeTimes->{3.568290688352541^9, 3.568291171011524^9}],
4670
4671	Cell[BoxData[
4672	InterpretationBox[
4673	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4674	"\[InvisibleSpace]", "\<\"Iyl33x2\"\>",
4675	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4676	SequenceForm[
4677	"Warning: no value found for parameter ", "Iyl33x2",
4678	". Default value 1 assigned."],
4679	Editable->False]], "Print",
4680	CellChangeTimes->{3.568290688352541^9, 3.568291171015708^9}],
4681
4682	Cell[BoxData[
4683	InterpretationBox[
4684	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4685	"\[InvisibleSpace]", "\<\"Iyl33x3\"\>",
4686	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4687	SequenceForm[
4688	"Warning: no value found for parameter ", "Iyl33x3",
4689	". Default value 1 assigned."],
4690	Editable->False]], "Print",
4691	CellChangeTimes->{3.568290688352541^9, 3.568291171019203^9}],
4692
4693	Cell[BoxData[
4694	InterpretationBox[
4695	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4696	"\[InvisibleSpace]", "\<\"Ryl41x1\"\>",
4697	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4698	SequenceForm[
4699	"Warning: no value found for parameter ", "Ryl41x1",
4700	". Default value 1 assigned."],
4701	Editable->False]], "Print",
4702	CellChangeTimes->{3.568290688352541^9, 3.568291171021523^9}],
4703
4704	Cell[BoxData[
4705	InterpretationBox[
4706	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4707	"\[InvisibleSpace]", "\<\"Ryl41x2\"\>",
4708	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4709	SequenceForm[
4710	"Warning: no value found for parameter ", "Ryl41x2",
4711	". Default value 1 assigned."],
4712	Editable->False]], "Print",
4713	CellChangeTimes->{3.568290688352541^9, 3.568291171023779^9}],
4714
4715	Cell[BoxData[
4716	InterpretationBox[
4717	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4718	"\[InvisibleSpace]", "\<\"Ryl41x3\"\>",
4719	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4720	SequenceForm[
4721	"Warning: no value found for parameter ", "Ryl41x3",
4722	". Default value 1 assigned."],
4723	Editable->False]], "Print",
4724	CellChangeTimes->{3.568290688352541^9, 3.56829117102617^9}],
4725
4726	Cell[BoxData[
4727	InterpretationBox[
4728	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4729	"\[InvisibleSpace]", "\<\"Ryl42x1\"\>",
4730	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4731	SequenceForm[
4732	"Warning: no value found for parameter ", "Ryl42x1",
4733	". Default value 1 assigned."],
4734	Editable->False]], "Print",
4735	CellChangeTimes->{3.568290688352541^9, 3.568291171028488^9}],
4736
4737	Cell[BoxData[
4738	InterpretationBox[
4739	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4740	"\[InvisibleSpace]", "\<\"Ryl42x2\"\>",
4741	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4742	SequenceForm[
4743	"Warning: no value found for parameter ", "Ryl42x2",
4744	". Default value 1 assigned."],
4745	Editable->False]], "Print",
4746	CellChangeTimes->{3.568290688352541^9, 3.5682911710310183`^9}],
4747
4748	Cell[BoxData[
4749	InterpretationBox[
4750	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4751	"\[InvisibleSpace]", "\<\"Ryl42x3\"\>",
4752	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4753	SequenceForm[
4754	"Warning: no value found for parameter ", "Ryl42x3",
4755	". Default value 1 assigned."],
4756	Editable->False]], "Print",
4757	CellChangeTimes->{3.568290688352541^9, 3.568291171033285^9}],
4758
4759	Cell[BoxData[
4760	InterpretationBox[
4761	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4762	"\[InvisibleSpace]", "\<\"Ryl43x1\"\>",
4763	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4764	SequenceForm[
4765	"Warning: no value found for parameter ", "Ryl43x1",
4766	". Default value 1 assigned."],
4767	Editable->False]], "Print",
4768	CellChangeTimes->{3.568290688352541^9, 3.5682911710355387`^9}],
4769
4770	Cell[BoxData[
4771	InterpretationBox[
4772	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4773	"\[InvisibleSpace]", "\<\"Ryl43x2\"\>",
4774	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4775	SequenceForm[
4776	"Warning: no value found for parameter ", "Ryl43x2",
4777	". Default value 1 assigned."],
4778	Editable->False]], "Print",
4779	CellChangeTimes->{3.568290688352541^9, 3.5682911710378304`^9}],
4780
4781	Cell[BoxData[
4782	InterpretationBox[
4783	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4784	"\[InvisibleSpace]", "\<\"Ryl43x3\"\>",
4785	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4786	SequenceForm[
4787	"Warning: no value found for parameter ", "Ryl43x3",
4788	". Default value 1 assigned."],
4789	Editable->False]], "Print",
4790	CellChangeTimes->{3.568290688352541^9, 3.568291171040165^9}],
4791
4792	Cell[BoxData[
4793	InterpretationBox[
4794	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4795	"\[InvisibleSpace]", "\<\"Iyl41x1\"\>",
4796	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4797	SequenceForm[
4798	"Warning: no value found for parameter ", "Iyl41x1",
4799	". Default value 1 assigned."],
4800	Editable->False]], "Print",
4801	CellChangeTimes->{3.568290688352541^9, 3.56829117104246^9}],
4802
4803	Cell[BoxData[
4804	InterpretationBox[
4805	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4806	"\[InvisibleSpace]", "\<\"Iyl41x2\"\>",
4807	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4808	SequenceForm[
4809	"Warning: no value found for parameter ", "Iyl41x2",
4810	". Default value 1 assigned."],
4811	Editable->False]], "Print",
4812	CellChangeTimes->{3.568290688352541^9, 3.5682911710447483`^9}],
4813
4814	Cell[BoxData[
4815	InterpretationBox[
4816	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4817	"\[InvisibleSpace]", "\<\"Iyl41x3\"\>",
4818	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4819	SequenceForm[
4820	"Warning: no value found for parameter ", "Iyl41x3",
4821	". Default value 1 assigned."],
4822	Editable->False]], "Print",
4823	CellChangeTimes->{3.568290688352541^9, 3.568291171047666^9}],
4824
4825	Cell[BoxData[
4826	InterpretationBox[
4827	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4828	"\[InvisibleSpace]", "\<\"Iyl42x1\"\>",
4829	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4830	SequenceForm[
4831	"Warning: no value found for parameter ", "Iyl42x1",
4832	". Default value 1 assigned."],
4833	Editable->False]], "Print",
4834	CellChangeTimes->{3.568290688352541^9, 3.568291171050202^9}],
4835
4836	Cell[BoxData[
4837	InterpretationBox[
4838	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4839	"\[InvisibleSpace]", "\<\"Iyl42x2\"\>",
4840	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4841	SequenceForm[
4842	"Warning: no value found for parameter ", "Iyl42x2",
4843	". Default value 1 assigned."],
4844	Editable->False]], "Print",
4845	CellChangeTimes->{3.568290688352541^9, 3.568291171054332^9}],
4846
4847	Cell[BoxData[
4848	InterpretationBox[
4849	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4850	"\[InvisibleSpace]", "\<\"Iyl42x3\"\>",
4851	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4852	SequenceForm[
4853	"Warning: no value found for parameter ", "Iyl42x3",
4854	". Default value 1 assigned."],
4855	Editable->False]], "Print",
4856	CellChangeTimes->{3.568290688352541^9, 3.568291171058481^9}],
4857
4858	Cell[BoxData[
4859	InterpretationBox[
4860	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4861	"\[InvisibleSpace]", "\<\"Iyl43x1\"\>",
4862	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4863	SequenceForm[
4864	"Warning: no value found for parameter ", "Iyl43x1",
4865	". Default value 1 assigned."],
4866	Editable->False]], "Print",
4867	CellChangeTimes->{3.568290688352541^9, 3.568291171061471^9}],
4868
4869	Cell[BoxData[
4870	InterpretationBox[
4871	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4872	"\[InvisibleSpace]", "\<\"Iyl43x2\"\>",
4873	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4874	SequenceForm[
4875	"Warning: no value found for parameter ", "Iyl43x2",
4876	". Default value 1 assigned."],
4877	Editable->False]], "Print",
4878	CellChangeTimes->{3.568290688352541^9, 3.5682911710646553`^9}],
4879
4880	Cell[BoxData[
4881	InterpretationBox[
4882	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4883	"\[InvisibleSpace]", "\<\"Iyl43x3\"\>",
4884	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4885	SequenceForm[
4886	"Warning: no value found for parameter ", "Iyl43x3",
4887	". Default value 1 assigned."],
4888	Editable->False]], "Print",
4889	CellChangeTimes->{3.568290688352541^9, 3.568291171067328^9}],
4890
4891	Cell[BoxData[
4892	InterpretationBox[
4893	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4894	"\[InvisibleSpace]", "\<\"RLAM1\"\>",
4895	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4896	SequenceForm[
4897	"Warning: no value found for parameter ", "RLAM1",
4898	". Default value 1 assigned."],
4899	Editable->False]], "Print",
4900	CellChangeTimes->{3.568290688352541^9, 3.568291171069613^9}],
4901
4902	Cell[BoxData[
4903	InterpretationBox[
4904	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4905	"\[InvisibleSpace]", "\<\"ILAM1\"\>",
4906	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4907	SequenceForm[
4908	"Warning: no value found for parameter ", "ILAM1",
4909	". Default value 1 assigned."],
4910	Editable->False]], "Print",
4911	CellChangeTimes->{3.568290688352541^9, 3.5682911710718403`^9}],
4912
4913	Cell[BoxData[
4914	InterpretationBox[
4915	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4916	"\[InvisibleSpace]", "\<\"RLAM2\"\>",
4917	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4918	SequenceForm[
4919	"Warning: no value found for parameter ", "RLAM2",
4920	". Default value 1 assigned."],
4921	Editable->False]], "Print",
4922	CellChangeTimes->{3.568290688352541^9, 3.568291171074089^9}],
4923
4924	Cell[BoxData[
4925	InterpretationBox[
4926	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4927	"\[InvisibleSpace]", "\<\"ILAM2\"\>",
4928	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4929	SequenceForm[
4930	"Warning: no value found for parameter ", "ILAM2",
4931	". Default value 1 assigned."],
4932	Editable->False]], "Print",
4933	CellChangeTimes->{3.568290688352541^9, 3.568291171076317^9}],
4934
4935	Cell[BoxData[
4936	InterpretationBox[
4937	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4938	"\[InvisibleSpace]", "\<\"RLAM3\"\>",
4939	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4940	SequenceForm[
4941	"Warning: no value found for parameter ", "RLAM3",
4942	". Default value 1 assigned."],
4943	Editable->False]], "Print",
4944	CellChangeTimes->{3.568290688352541^9, 3.568291171078588^9}],
4945
4946	Cell[BoxData[
4947	InterpretationBox[
4948	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4949	"\[InvisibleSpace]", "\<\"ILAM3\"\>",
4950	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4951	SequenceForm[
4952	"Warning: no value found for parameter ", "ILAM3",
4953	". Default value 1 assigned."],
4954	Editable->False]], "Print",
4955	CellChangeTimes->{3.568290688352541^9, 3.568291171080927^9}],
4956
4957	Cell[BoxData[
4958	InterpretationBox[
4959	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4960	"\[InvisibleSpace]", "\<\"RLAM4\"\>",
4961	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4962	SequenceForm[
4963	"Warning: no value found for parameter ", "RLAM4",
4964	". Default value 1 assigned."],
4965	Editable->False]], "Print",
4966	CellChangeTimes->{3.568290688352541^9, 3.568291171083726^9}],
4967
4968	Cell[BoxData[
4969	InterpretationBox[
4970	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4971	"\[InvisibleSpace]", "\<\"ILAM4\"\>",
4972	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4973	SequenceForm[
4974	"Warning: no value found for parameter ", "ILAM4",
4975	". Default value 1 assigned."],
4976	Editable->False]], "Print",
4977	CellChangeTimes->{3.568290688352541^9, 3.5682911710867434`^9}],
4978
4979	Cell[BoxData[
4980	InterpretationBox[
4981	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4982	"\[InvisibleSpace]", "\<\"RLAM5\"\>",
4983	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4984	SequenceForm[
4985	"Warning: no value found for parameter ", "RLAM5",
4986	". Default value 1 assigned."],
4987	Editable->False]], "Print",
4988	CellChangeTimes->{3.568290688352541^9, 3.5682911710898657`^9}],
4989
4990	Cell[BoxData[
4991	InterpretationBox[
4992	RowBox[{"\<\"Warning: no value found for parameter \"\>",
4993	"\[InvisibleSpace]", "\<\"ILAM5\"\>",
4994	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
4995	SequenceForm[
4996	"Warning: no value found for parameter ", "ILAM5",
4997	". Default value 1 assigned."],
4998	Editable->False]], "Print",
4999	CellChangeTimes->{3.568290688352541^9, 3.5682911710932093`^9}],
5000
5001	Cell[BoxData[
5002	InterpretationBox[
5003	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5004	"\[InvisibleSpace]", "\<\"RLAM6\"\>",
5005	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5006	SequenceForm[
5007	"Warning: no value found for parameter ", "RLAM6",
5008	". Default value 1 assigned."],
5009	Editable->False]], "Print",
5010	CellChangeTimes->{3.568290688352541^9, 3.568291171098735^9}],
5011
5012	Cell[BoxData[
5013	InterpretationBox[
5014	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5015	"\[InvisibleSpace]", "\<\"ILAM6\"\>",
5016	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5017	SequenceForm[
5018	"Warning: no value found for parameter ", "ILAM6",
5019	". Default value 1 assigned."],
5020	Editable->False]], "Print",
5021	CellChangeTimes->{3.568290688352541^9, 3.568291171104519^9}],
5022
5023	Cell[BoxData[
5024	InterpretationBox[
5025	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5026	"\[InvisibleSpace]", "\<\"RRHO1\"\>",
5027	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5028	SequenceForm[
5029	"Warning: no value found for parameter ", "RRHO1",
5030	". Default value 1 assigned."],
5031	Editable->False]], "Print",
5032	CellChangeTimes->{3.568290688352541^9, 3.5682911711089582`^9}],
5033
5034	Cell[BoxData[
5035	InterpretationBox[
5036	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5037	"\[InvisibleSpace]", "\<\"IRHO1\"\>",
5038	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5039	SequenceForm[
5040	"Warning: no value found for parameter ", "IRHO1",
5041	". Default value 1 assigned."],
5042	Editable->False]], "Print",
5043	CellChangeTimes->{3.568290688352541^9, 3.568291171112159^9}],
5044
5045	Cell[BoxData[
5046	InterpretationBox[
5047	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5048	"\[InvisibleSpace]", "\<\"RRHO2\"\>",
5049	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5050	SequenceForm[
5051	"Warning: no value found for parameter ", "RRHO2",
5052	". Default value 1 assigned."],
5053	Editable->False]], "Print",
5054	CellChangeTimes->{3.568290688352541^9, 3.56829117111487^9}],
5055
5056	Cell[BoxData[
5057	InterpretationBox[
5058	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5059	"\[InvisibleSpace]", "\<\"IRHO2\"\>",
5060	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5061	SequenceForm[
5062	"Warning: no value found for parameter ", "IRHO2",
5063	". Default value 1 assigned."],
5064	Editable->False]], "Print",
5065	CellChangeTimes->{3.568290688352541^9, 3.568291171117475^9}],
5066
5067	Cell[BoxData[
5068	InterpretationBox[
5069	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5070	"\[InvisibleSpace]", "\<\"RRHO3\"\>",
5071	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5072	SequenceForm[
5073	"Warning: no value found for parameter ", "RRHO3",
5074	". Default value 1 assigned."],
5075	Editable->False]], "Print",
5076	CellChangeTimes->{3.568290688352541^9, 3.5682911711211853`^9}],
5077
5078	Cell[BoxData[
5079	InterpretationBox[
5080	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5081	"\[InvisibleSpace]", "\<\"IRHO3\"\>",
5082	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5083	SequenceForm[
5084	"Warning: no value found for parameter ", "IRHO3",
5085	". Default value 1 assigned."],
5086	Editable->False]], "Print",
5087	CellChangeTimes->{3.568290688352541^9, 3.5682911711250057`^9}],
5088
5089	Cell[BoxData[
5090	InterpretationBox[
5091	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5092	"\[InvisibleSpace]", "\<\"RAL1\"\>",
5093	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5094	SequenceForm[
5095	"Warning: no value found for parameter ", "RAL1",
5096	". Default value 1 assigned."],
5097	Editable->False]], "Print",
5098	CellChangeTimes->{3.568290688352541^9, 3.5682911711284533`^9}],
5099
5100	Cell[BoxData[
5101	InterpretationBox[
5102	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5103	"\[InvisibleSpace]", "\<\"IAL1\"\>",
5104	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5105	SequenceForm[
5106	"Warning: no value found for parameter ", "IAL1",
5107	". Default value 1 assigned."],
5108	Editable->False]], "Print",
5109	CellChangeTimes->{3.568290688352541^9, 3.568291171132678^9}],
5110
5111	Cell[BoxData[
5112	InterpretationBox[
5113	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5114	"\[InvisibleSpace]", "\<\"RAL2\"\>",
5115	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5116	SequenceForm[
5117	"Warning: no value found for parameter ", "RAL2",
5118	". Default value 1 assigned."],
5119	Editable->False]], "Print",
5120	CellChangeTimes->{3.568290688352541^9, 3.56829117113678^9}],
5121
5122	Cell[BoxData[
5123	InterpretationBox[
5124	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5125	"\[InvisibleSpace]", "\<\"IAL2\"\>",
5126	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5127	SequenceForm[
5128	"Warning: no value found for parameter ", "IAL2",
5129	". Default value 1 assigned."],
5130	Editable->False]], "Print",
5131	CellChangeTimes->{3.568290688352541^9, 3.5682911711395283`^9}],
5132
5133	Cell[BoxData[
5134	InterpretationBox[
5135	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5136	"\[InvisibleSpace]", "\<\"RAL3\"\>",
5137	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5138	SequenceForm[
5139	"Warning: no value found for parameter ", "RAL3",
5140	". Default value 1 assigned."],
5141	Editable->False]], "Print",
5142	CellChangeTimes->{3.568290688352541^9, 3.568291171144082^9}],
5143
5144	Cell[BoxData[
5145	InterpretationBox[
5146	RowBox[{"\<\"Warning: no value found for parameter \"\>",
5147	"\[InvisibleSpace]", "\<\"IAL3\"\>",
5148	"\[InvisibleSpace]", "\<\". Default value 1 assigned.\"\>"}],
5149	SequenceForm[
5150	"Warning: no value found for parameter ", "IAL3",
5151	". Default value 1 assigned."],
5152	Editable->False]], "Print",
5153	CellChangeTimes->{3.568290688352541^9, 3.5682911711489897`^9}],
5154
5155	Cell[BoxData[
5156	InterpretationBox[
5157	RowBox[{"\<\"Output written on \"\>",
5158	"\[InvisibleSpace]", "\<\"input/externals.dat\"\>"}],
5159	SequenceForm["Output written on ", "input/externals.dat"],
5160	Editable->False]], "Print",
5161	CellChangeTimes->{3.568290688352541^9, 3.568291171153789^9}]
5162	}, Open ]]
5163	}, Open ]]
5164	}, Open ]]
5165	}, Open ]],
5166
5167	Cell[CellGroupData[{
5168
5169	Cell["\<\
5170	Compile and excecute ASperGe and
5171	load the output file back into FeynRules\
5172	\>", "Section",
5173	CellChangeTimes->{3.568034375175974*^9}],
5174
5175	Cell[BoxData[
5176	RowBox[{"RunASperGe", "[", "]"}]], "Input",
5177	CellChangeTimes->{{3.568034380231674^9, 3.5680343839741983`^9}}]
5178	}, Open ]]
5179	}, Open ]]
5180	},
5181	WindowSize->{1022, 666},
5182	WindowMargins->{{Automatic, 120}, {Automatic, 0}},
5183	FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 26, \
5184	2012)",
5185	StyleDefinitions->"Default.nb"
5186	]
5187	(* End of Notebook Content *)
5188
5189	(* Internal cache information *)
5190	(*CellTagsOutline
5191	CellTagsIndex->{}
5192	*)
5193	(*CellTagsIndex
5194	CellTagsIndex->{}
5195	*)
5196	(*NotebookFileOutline
5197	Notebook[{
5198	Cell[CellGroupData[{
5199	Cell[579, 22, 141, 4, 123, "Title"],
5200	Cell[723, 28, 118, 2, 27, "Input"],
5201	Cell[CellGroupData[{
5202	Cell[866, 34, 97, 1, 67, "Section"],
5203	Cell[CellGroupData[{
5204	Cell[988, 39, 424, 11, 58, "Input"],
5205	Cell[CellGroupData[{
5206	Cell[1437, 54, 235, 3, 20, "Print"],
5207	Cell[1675, 59, 516, 10, 20, "Print"],
5208	Cell[2194, 71, 289, 4, 20, "Print"],
5209	Cell[2486, 77, 221, 3, 20, "Print"],
5210	Cell[2710, 82, 293, 4, 20, "Print"],
5211	Cell[3006, 88, 251, 3, 20, "Print"],
5212	Cell[3260, 93, 221, 3, 20, "Print"],
5213	Cell[3484, 98, 288, 4, 20, "Print"]
5214	}, Open ]]
5215	}, Open ]]
5216	}, Open ]],
5217	Cell[CellGroupData[{
5218	Cell[3833, 109, 103, 1, 67, "Section"],
5219	Cell[CellGroupData[{
5220	Cell[3961, 114, 317, 7, 43, "Input"],
5221	Cell[CellGroupData[{
5222	Cell[4303, 125, 234, 3, 20, "Print"],
5223	Cell[4540, 130, 205, 3, 20, "Print"],
5224	Cell[4748, 135, 209, 3, 20, "Print"],
5225	Cell[4960, 140, 221, 3, 20, "Print"],
5226	Cell[5184, 145, 344, 7, 20, "Print"],
5227	Cell[5531, 154, 207, 3, 20, "Print"],
5228	Cell[5741, 159, 194, 3, 20, "Print"],
5229	Cell[5938, 164, 194, 3, 20, "Print"],
5230	Cell[6135, 169, 242, 4, 20, "Print"],
5231	Cell[6380, 175, 194, 3, 20, "Print"],
5232	Cell[6577, 180, 224, 3, 20, "Print"],
5233	Cell[6804, 185, 227, 3, 20, "Print"],
5234	Cell[7034, 190, 225, 3, 20, "Print"],
5235	Cell[7262, 195, 394, 8, 36, "Print"]
5236	}, Open ]]
5237	}, Open ]]
5238	}, Open ]],
5239	Cell[CellGroupData[{
5240	Cell[7717, 210, 121, 1, 67, "Section"],
5241	Cell[CellGroupData[{
5242	Cell[7863, 215, 119, 1, 34, "Subsection"],
5243	Cell[CellGroupData[{
5244	Cell[8007, 220, 336, 5, 27, "Input"],
5245	Cell[CellGroupData[{
5246	Cell[8368, 229, 190, 2, 20, "Print"],
5247	Cell[8561, 233, 373, 7, 20, "Print"],
5248	Cell[8937, 242, 286, 3, 20, "Print"],
5249	Cell[9226, 247, 223, 3, 20, "Print"],
5250	Cell[9452, 252, 335, 4, 36, "Print"]
5251	}, Open ]]
5252	}, Open ]]
5253	}, Open ]],
5254	Cell[CellGroupData[{
5255	Cell[9848, 263, 184, 4, 34, "Subsection"],
5256	Cell[10035, 269, 278, 5, 27, "Input"]
5257	}, Open ]],
5258	Cell[CellGroupData[{
5259	Cell[10350, 279, 895, 21, 38, "Subsection"],
5260	Cell[CellGroupData[{
5261	Cell[11270, 304, 406, 7, 27, "Input"],
5262	Cell[CellGroupData[{
5263	Cell[11701, 315, 146, 2, 20, "Print"],
5264	Cell[11850, 319, 348, 7, 20, "Print"],
5265	Cell[12201, 328, 199, 3, 20, "Print"],
5266	Cell[12403, 333, 242, 3, 20, "Print"],
5267	Cell[12648, 338, 20837, 535, 106, "Print"]
5268	}, Open ]]
5269	}, Open ]]
5270	}, Open ]],
5271	Cell[CellGroupData[{
5272	Cell[33546, 880, 754, 20, 38, "Subsection"],
5273	Cell[CellGroupData[{
5274	Cell[34325, 904, 190, 3, 27, "Input"],
5275	Cell[CellGroupData[{
5276	Cell[34540, 911, 569, 16, 26, "Print"],
5277	Cell[35112, 929, 163, 3, 20, "Print"],
5278	Cell[35278, 934, 203, 4, 20, "Print"],
5279	Cell[35484, 940, 667, 14, 51, "Print"],
5280	Cell[36154, 956, 14604, 356, 106, "Print"],
5281	Cell[50761, 1314, 440, 11, 20, "Print"],
5282	Cell[51204, 1327, 168, 3, 20, "Print"],
5283	Cell[51375, 1332, 203, 4, 20, "Print"],
5284	Cell[51581, 1338, 669, 14, 51, "Print"],
5285	Cell[52253, 1354, 11120, 271, 106, "Print"],
5286	Cell[63376, 1627, 440, 11, 20, "Print"]
5287	}, Open ]]
5288	}, Open ]]
5289	}, Open ]],
5290	Cell[CellGroupData[{
5291	Cell[63877, 1645, 176, 3, 35, "Subsection"],
5292	Cell[CellGroupData[{
5293	Cell[64078, 1652, 210, 5, 27, "Input"],
5294	Cell[64291, 1659, 11236, 305, 125, "Output"]
5295	}, Open ]]
5296	}, Open ]],
5297	Cell[CellGroupData[{
5298	Cell[75576, 1970, 183, 4, 35, "Subsection"],
5299	Cell[CellGroupData[{
5300	Cell[75784, 1978, 211, 5, 27, "Input"],
5301	Cell[75998, 1985, 8616, 230, 125, "Output"]
5302	}, Open ]]
5303	}, Open ]]
5304	}, Open ]],
5305	Cell[CellGroupData[{
5306	Cell[84675, 2222, 110, 1, 67, "Section"],
5307	Cell[CellGroupData[{
5308	Cell[84810, 2227, 267, 5, 35, "Subsection"],
5309	Cell[CellGroupData[{
5310	Cell[85102, 2236, 185, 3, 27, "Input"],
5311	Cell[CellGroupData[{
5312	Cell[85312, 2243, 262, 4, 36, "Print"],
5313	Cell[85577, 2249, 151, 2, 20, "Print"],
5314	Cell[85731, 2253, 166, 2, 20, "Print"],
5315	Cell[85900, 2257, 407, 9, 20, "Print"],
5316	Cell[86310, 2268, 407, 9, 20, "Print"],
5317	Cell[86720, 2279, 407, 9, 20, "Print"],
5318	Cell[87130, 2290, 406, 9, 20, "Print"],
5319	Cell[87539, 2301, 421, 10, 20, "Print"],
5320	Cell[87963, 2313, 431, 10, 20, "Print"],
5321	Cell[88397, 2325, 431, 10, 20, "Print"],
5322	Cell[88831, 2337, 431, 10, 20, "Print"],
5323	Cell[89265, 2349, 431, 10, 20, "Print"],
5324	Cell[89699, 2361, 433, 10, 20, "Print"],
5325	Cell[90135, 2373, 429, 10, 20, "Print"],
5326	Cell[90567, 2385, 433, 10, 20, "Print"],
5327	Cell[91003, 2397, 431, 10, 20, "Print"],
5328	Cell[91437, 2409, 431, 10, 20, "Print"],
5329	Cell[91871, 2421, 429, 10, 20, "Print"],
5330	Cell[92303, 2433, 431, 10, 20, "Print"],
5331	Cell[92737, 2445, 431, 10, 20, "Print"],
5332	Cell[93171, 2457, 433, 10, 20, "Print"],
5333	Cell[93607, 2469, 433, 10, 20, "Print"],
5334	Cell[94043, 2481, 431, 10, 20, "Print"],
5335	Cell[94477, 2493, 433, 10, 20, "Print"],
5336	Cell[94913, 2505, 431, 10, 20, "Print"],
5337	Cell[95347, 2517, 431, 10, 20, "Print"],
5338	Cell[95781, 2529, 431, 10, 20, "Print"],
5339	Cell[96215, 2541, 433, 10, 20, "Print"],
5340	Cell[96651, 2553, 431, 10, 20, "Print"],
5341	Cell[97085, 2565, 431, 10, 20, "Print"],
5342	Cell[97519, 2577, 431, 10, 20, "Print"],
5343	Cell[97953, 2589, 433, 10, 20, "Print"],
5344	Cell[98389, 2601, 430, 10, 20, "Print"],
5345	Cell[98822, 2613, 431, 10, 20, "Print"],
5346	Cell[99256, 2625, 431, 10, 20, "Print"],
5347	Cell[99690, 2637, 433, 10, 20, "Print"],
5348	Cell[100126, 2649, 433, 10, 20, "Print"],
5349	Cell[100562, 2661, 433, 10, 20, "Print"],
5350	Cell[100998, 2673, 430, 10, 20, "Print"],
5351	Cell[101431, 2685, 431, 10, 20, "Print"],
5352	Cell[101865, 2697, 430, 10, 20, "Print"],
5353	Cell[102298, 2709, 430, 10, 20, "Print"],
5354	Cell[102731, 2721, 431, 10, 20, "Print"],
5355	Cell[103165, 2733, 431, 10, 20, "Print"],
5356	Cell[103599, 2745, 431, 10, 20, "Print"],
5357	Cell[104033, 2757, 431, 10, 20, "Print"],
5358	Cell[104467, 2769, 431, 10, 20, "Print"],
5359	Cell[104901, 2781, 431, 10, 20, "Print"],
5360	Cell[105335, 2793, 431, 10, 20, "Print"],
5361	Cell[105769, 2805, 433, 10, 20, "Print"],
5362	Cell[106205, 2817, 431, 10, 20, "Print"],
5363	Cell[106639, 2829, 431, 10, 20, "Print"],
5364	Cell[107073, 2841, 430, 10, 20, "Print"],
5365	Cell[107506, 2853, 431, 10, 20, "Print"],
5366	Cell[107940, 2865, 431, 10, 20, "Print"],
5367	Cell[108374, 2877, 431, 10, 20, "Print"],
5368	Cell[108808, 2889, 431, 10, 20, "Print"],
5369	Cell[109242, 2901, 433, 10, 20, "Print"],
5370	Cell[109678, 2913, 431, 10, 20, "Print"],
5371	Cell[110112, 2925, 431, 10, 20, "Print"],
5372	Cell[110546, 2937, 433, 10, 20, "Print"],
5373	Cell[110982, 2949, 431, 10, 20, "Print"],
5374	Cell[111416, 2961, 430, 10, 20, "Print"],
5375	Cell[111849, 2973, 433, 10, 20, "Print"],
5376	Cell[112285, 2985, 431, 10, 20, "Print"],
5377	Cell[112719, 2997, 431, 10, 20, "Print"],
5378	Cell[113153, 3009, 433, 10, 20, "Print"],
5379	Cell[113589, 3021, 433, 10, 20, "Print"],
5380	Cell[114025, 3033, 430, 10, 20, "Print"],
5381	Cell[114458, 3045, 431, 10, 20, "Print"],
5382	Cell[114892, 3057, 431, 10, 20, "Print"],
5383	Cell[115326, 3069, 431, 10, 20, "Print"],
5384	Cell[115760, 3081, 433, 10, 20, "Print"],
5385	Cell[116196, 3093, 431, 10, 20, "Print"],
5386	Cell[116630, 3105, 431, 10, 20, "Print"],
5387	Cell[117064, 3117, 431, 10, 20, "Print"],
5388	Cell[117498, 3129, 431, 10, 20, "Print"],
5389	Cell[117932, 3141, 431, 10, 20, "Print"],
5390	Cell[118366, 3153, 431, 10, 20, "Print"],
5391	Cell[118800, 3165, 431, 10, 20, "Print"],
5392	Cell[119234, 3177, 429, 10, 20, "Print"],
5393	Cell[119666, 3189, 427, 10, 20, "Print"],
5394	Cell[120096, 3201, 426, 10, 20, "Print"],
5395	Cell[120525, 3213, 427, 10, 20, "Print"],
5396	Cell[120955, 3225, 427, 10, 20, "Print"],
5397	Cell[121385, 3237, 427, 10, 20, "Print"],
5398	Cell[121815, 3249, 427, 10, 20, "Print"],
5399	Cell[122245, 3261, 427, 10, 20, "Print"],
5400	Cell[122675, 3273, 427, 10, 20, "Print"],
5401	Cell[123105, 3285, 427, 10, 20, "Print"],
5402	Cell[123535, 3297, 427, 10, 20, "Print"],
5403	Cell[123965, 3309, 426, 10, 20, "Print"],
5404	Cell[124394, 3321, 429, 10, 20, "Print"],
5405	Cell[124826, 3333, 429, 10, 20, "Print"],
5406	Cell[125258, 3345, 427, 10, 20, "Print"],
5407	Cell[125688, 3357, 429, 10, 20, "Print"],
5408	Cell[126120, 3369, 427, 10, 20, "Print"],
5409	Cell[126550, 3381, 427, 10, 20, "Print"],
5410	Cell[126980, 3393, 427, 10, 20, "Print"],
5411	Cell[127410, 3405, 425, 10, 20, "Print"],
5412	Cell[127838, 3417, 425, 10, 20, "Print"],
5413	Cell[128266, 3429, 424, 10, 20, "Print"],
5414	Cell[128693, 3441, 425, 10, 20, "Print"],
5415	Cell[129121, 3453, 427, 10, 20, "Print"],
5416	Cell[129551, 3465, 313, 7, 20, "Print"]
5417	}, Open ]]
5418	}, Open ]]
5419	}, Open ]],
5420	Cell[CellGroupData[{
5421	Cell[129925, 3479, 340, 6, 35, "Subsection"],
5422	Cell[CellGroupData[{
5423	Cell[130290, 3489, 376, 7, 27, "Input"],
5424	Cell[CellGroupData[{
5425	Cell[130691, 3500, 20808, 534, 106, "Print"],
5426	Cell[151502, 4036, 229, 3, 36, "Print"],
5427	Cell[151734, 4041, 126, 1, 20, "Print"],
5428	Cell[151863, 4044, 140, 1, 20, "Print"],
5429	Cell[152006, 4047, 382, 8, 20, "Print"],
5430	Cell[152391, 4057, 380, 8, 20, "Print"],
5431	Cell[152774, 4067, 380, 8, 20, "Print"],
5432	Cell[153157, 4077, 380, 8, 20, "Print"],
5433	Cell[153540, 4087, 394, 9, 20, "Print"],
5434	Cell[153937, 4098, 404, 9, 20, "Print"],
5435	Cell[154344, 4109, 404, 9, 20, "Print"],
5436	Cell[154751, 4120, 404, 9, 20, "Print"],
5437	Cell[155158, 4131, 404, 9, 20, "Print"],
5438	Cell[155565, 4142, 406, 9, 20, "Print"],
5439	Cell[155974, 4153, 404, 9, 20, "Print"],
5440	Cell[156381, 4164, 404, 9, 20, "Print"],
5441	Cell[156788, 4175, 404, 9, 20, "Print"],
5442	Cell[157195, 4186, 404, 9, 20, "Print"],
5443	Cell[157602, 4197, 406, 9, 20, "Print"],
5444	Cell[158011, 4208, 404, 9, 20, "Print"],
5445	Cell[158418, 4219, 404, 9, 20, "Print"],
5446	Cell[158825, 4230, 404, 9, 20, "Print"],
5447	Cell[159232, 4241, 404, 9, 20, "Print"],
5448	Cell[159639, 4252, 406, 9, 20, "Print"],
5449	Cell[160048, 4263, 404, 9, 20, "Print"],
5450	Cell[160455, 4274, 406, 9, 20, "Print"],
5451	Cell[160864, 4285, 404, 9, 20, "Print"],
5452	Cell[161271, 4296, 404, 9, 20, "Print"],
5453	Cell[161678, 4307, 404, 9, 20, "Print"],
5454	Cell[162085, 4318, 406, 9, 20, "Print"],
5455	Cell[162494, 4329, 404, 9, 20, "Print"],
5456	Cell[162901, 4340, 404, 9, 20, "Print"],
5457	Cell[163308, 4351, 406, 9, 20, "Print"],
5458	Cell[163717, 4362, 406, 9, 20, "Print"],
5459	Cell[164126, 4373, 404, 9, 20, "Print"],
5460	Cell[164533, 4384, 406, 9, 20, "Print"],
5461	Cell[164942, 4395, 404, 9, 20, "Print"],
5462	Cell[165349, 4406, 404, 9, 20, "Print"],
5463	Cell[165756, 4417, 406, 9, 20, "Print"],
5464	Cell[166165, 4428, 404, 9, 20, "Print"],
5465	Cell[166572, 4439, 403, 9, 20, "Print"],
5466	Cell[166978, 4450, 403, 9, 20, "Print"],
5467	Cell[167384, 4461, 406, 9, 20, "Print"],
5468	Cell[167793, 4472, 404, 9, 20, "Print"],
5469	Cell[168200, 4483, 404, 9, 20, "Print"],
5470	Cell[168607, 4494, 406, 9, 20, "Print"],
5471	Cell[169016, 4505, 404, 9, 20, "Print"],
5472	Cell[169423, 4516, 404, 9, 20, "Print"],
5473	Cell[169830, 4527, 404, 9, 20, "Print"],
5474	Cell[170237, 4538, 404, 9, 20, "Print"],
5475	Cell[170644, 4549, 402, 9, 20, "Print"],
5476	Cell[171049, 4560, 404, 9, 20, "Print"],
5477	Cell[171456, 4571, 404, 9, 20, "Print"],
5478	Cell[171863, 4582, 406, 9, 20, "Print"],
5479	Cell[172272, 4593, 404, 9, 20, "Print"],
5480	Cell[172679, 4604, 406, 9, 20, "Print"],
5481	Cell[173088, 4615, 404, 9, 20, "Print"],
5482	Cell[173495, 4626, 404, 9, 20, "Print"],
5483	Cell[173902, 4637, 404, 9, 20, "Print"],
5484	Cell[174309, 4648, 404, 9, 20, "Print"],
5485	Cell[174716, 4659, 404, 9, 20, "Print"],
5486	Cell[175123, 4670, 404, 9, 20, "Print"],
5487	Cell[175530, 4681, 404, 9, 20, "Print"],
5488	Cell[175937, 4692, 404, 9, 20, "Print"],
5489	Cell[176344, 4703, 404, 9, 20, "Print"],
5490	Cell[176751, 4714, 403, 9, 20, "Print"],
5491	Cell[177157, 4725, 404, 9, 20, "Print"],
5492	Cell[177564, 4736, 406, 9, 20, "Print"],
5493	Cell[177973, 4747, 404, 9, 20, "Print"],
5494	Cell[178380, 4758, 406, 9, 20, "Print"],
5495	Cell[178789, 4769, 406, 9, 20, "Print"],
5496	Cell[179198, 4780, 404, 9, 20, "Print"],
5497	Cell[179605, 4791, 403, 9, 20, "Print"],
5498	Cell[180011, 4802, 406, 9, 20, "Print"],
5499	Cell[180420, 4813, 404, 9, 20, "Print"],
5500	Cell[180827, 4824, 404, 9, 20, "Print"],
5501	Cell[181234, 4835, 404, 9, 20, "Print"],
5502	Cell[181641, 4846, 404, 9, 20, "Print"],
5503	Cell[182048, 4857, 404, 9, 20, "Print"],
5504	Cell[182455, 4868, 406, 9, 20, "Print"],
5505	Cell[182864, 4879, 404, 9, 20, "Print"],
5506	Cell[183271, 4890, 400, 9, 20, "Print"],
5507	Cell[183674, 4901, 402, 9, 20, "Print"],
5508	Cell[184079, 4912, 400, 9, 20, "Print"],
5509	Cell[184482, 4923, 400, 9, 20, "Print"],
5510	Cell[184885, 4934, 400, 9, 20, "Print"],
5511	Cell[185288, 4945, 400, 9, 20, "Print"],
5512	Cell[185691, 4956, 400, 9, 20, "Print"],
5513	Cell[186094, 4967, 402, 9, 20, "Print"],
5514	Cell[186499, 4978, 402, 9, 20, "Print"],
5515	Cell[186904, 4989, 402, 9, 20, "Print"],
5516	Cell[187309, 5000, 400, 9, 20, "Print"],
5517	Cell[187712, 5011, 400, 9, 20, "Print"],
5518	Cell[188115, 5022, 402, 9, 20, "Print"],
5519	Cell[188520, 5033, 400, 9, 20, "Print"],
5520	Cell[188923, 5044, 399, 9, 20, "Print"],
5521	Cell[189325, 5055, 400, 9, 20, "Print"],
5522	Cell[189728, 5066, 402, 9, 20, "Print"],
5523	Cell[190133, 5077, 402, 9, 20, "Print"],
5524	Cell[190538, 5088, 400, 9, 20, "Print"],
5525	Cell[190941, 5099, 398, 9, 20, "Print"],
5526	Cell[191342, 5110, 397, 9, 20, "Print"],
5527	Cell[191742, 5121, 400, 9, 20, "Print"],
5528	Cell[192145, 5132, 398, 9, 20, "Print"],
5529	Cell[192546, 5143, 400, 9, 20, "Print"],
5530	Cell[192949, 5154, 286, 6, 20, "Print"]
5531	}, Open ]]
5532	}, Open ]]
5533	}, Open ]]
5534	}, Open ]],
5535	Cell[CellGroupData[{
5536	Cell[193308, 5168, 142, 4, 89, "Section"],
5537	Cell[193453, 5174, 126, 2, 27, "Input"]
5538	}, Open ]]
5539	}, Open ]]
5540	}
5541	]
5542	*)
5543
5544	(* End of internal cache information *)

Download in other formats:

Original Format