ASperGe: LRSM.nb

File LRSM.nb, 201.7 KB (added by Karen De Causmaecker, 4 years ago)
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 8.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[    206354,       5535]
14NotebookOptionsPosition[    193607,       5180]
15NotebookOutlinePosition[    193963,       5196]
16CellTagsIndexPosition[    193920,       5193]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell["\<\
24ASperGe:
25The Left-Right Symmetric Standard Model\
26\>", "Title",
27 CellChangeTimes->{{3.5680967526801434`*^9, 3.568096771005324*^9}}],
28
29Cell[BoxData[
30 RowBox[{"Quit", "[", "]"}]], "Input",
31 CellChangeTimes->{{3.568033973654759*^9, 3.568033980105204*^9}}],
32
33Cell[CellGroupData[{
34
35Cell["Set the path", "Section",
36 CellChangeTimes->{{3.568033987624649*^9, 3.568033993662871*^9}}],
37
38Cell[CellGroupData[{
39
40Cell[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
53Cell[CellGroupData[{
54
55Cell[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
60Cell[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
72Cell[BoxData["\<\"Authors: A. Alloul, N. Christensen, C. Degrande, C. Duhr, \
73B. 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
78Cell[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
83Cell[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
89Cell[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
94Cell[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
99Cell[BoxData["\<\"The FeynRules palette can be opened using the command \
100FRPalette[].\"\>"], "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
108Cell[CellGroupData[{
109
110Cell["Import the model", "Section",
111 CellChangeTimes->{{3.568034009758786*^9, 3.5680340152778673`*^9}}],
112
113Cell[CellGroupData[{
114
115Cell[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
124Cell[CellGroupData[{
125
126Cell[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
131Cell[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
136Cell[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
141Cell[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
146Cell[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
155Cell[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
160Cell[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
165Cell[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
170Cell[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
176Cell[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
181Cell[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
186Cell[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
191Cell[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
196Cell[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
209Cell[CellGroupData[{
210
211Cell["Compute the tree level mass matrices", "Section",
212 CellChangeTimes->{{3.568034056025237*^9, 3.568034063631463*^9}}],
213
214Cell[CellGroupData[{
215
216Cell["Compute all the mass matrices", "Subsection",
217 CellChangeTimes->{{3.5680340709677258`*^9, 3.568034078079522*^9}}],
218
219Cell[CellGroupData[{
220
221Cell[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
228Cell[CellGroupData[{
229
230Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
231 CellChangeTimes->{3.568096032659218*^9, 3.5680969955029984`*^9,
232  3.568097269873354*^9, 3.568290578085063*^9, 3.5682908495886927`*^9}],
233
234Cell[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
243Cell[BoxData["\<\"Tree level mass matrix computations achieved. Only the mass \
244matrices 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
248Cell[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
253Cell[BoxData["\<\"Use MassMatrix[ MixingID ], GaugeBasis[ MixingID ], \
254MassBasis[ MixingID ], BlockName[ MixingID ] and MatrixSymbol[ MixingID ] for \
255more 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
262Cell[CellGroupData[{
263
264Cell["\<\
265Compute all the mass matrices without generation of the output about the mass \
266matrices\
267\>", "Subsection",
268 CellChangeTimes->{{3.568096058356905*^9, 3.568096068613702*^9}}],
269
270Cell[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
278Cell[CellGroupData[{
279
280Cell[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
303Cell[CellGroupData[{
304
305Cell[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
314Cell[CellGroupData[{
315
316Cell[BoxData["\<\"Index expansion ...\"\>"], "Print",
317 CellChangeTimes->{3.5680961517635517`*^9, 3.568098085048417*^9,
318  3.5682906081487703`*^9}],
319
320Cell[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
329Cell[BoxData["\<\"Computation of the tree level mass matrix for the mixing id \
3302e achieved.\"\>"], "Print",
331 CellChangeTimes->{3.5680961517635517`*^9, 3.568098085048417*^9,
332  3.568290613787242*^9}],
333
334Cell[BoxData["\<\"For the results, use MassMatrix[ 2e ], GaugeBasis[ 2e ], \
335MassBasis[ 2e ], BlockName [ 2e ] and MatrixSymbol [ 2e ].\"\>"], "Print",
336 CellChangeTimes->{3.5680961517635517`*^9, 3.568098085048417*^9,
337  3.568290613790457*^9}],
338
339Cell[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
879Cell[CellGroupData[{
880
881Cell[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
903Cell[CellGroupData[{
904
905Cell[BoxData[
906 RowBox[{"MixingSummary", "[", "\"\<2e\>\"", "]"}]], "Input",
907 CellChangeTimes->{{3.568034252584323*^9, 3.568034259451329*^9}, {
908  3.568098120194654*^9, 3.568098120932682*^9}}],
909
910Cell[CellGroupData[{
911
912Cell[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
930Cell[BoxData["\<\"Scalar sector\"\>"], "Print",
931 CellChangeTimes->{
932  3.56809618938696*^9, 3.568098121364786*^9, {3.568290616261177*^9,
933   3.568290623968425*^9}}],
934
935Cell[BoxData["\<\"***************************************************\"\>"], \
936"Print",
937 CellChangeTimes->{
938  3.56809618938696*^9, 3.568098121364786*^9, {3.568290616261177*^9,
939   3.568290623970976*^9}}],
940
941Cell[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
957Cell[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
1315Cell[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
1328Cell[BoxData["\<\"Pseudoscalar sector\"\>"], "Print",
1329 CellChangeTimes->{
1330  3.56809618938696*^9, 3.568098121364786*^9, {3.568290616261177*^9,
1331   3.56829062398346*^9}}],
1332
1333Cell[BoxData["\<\"***************************************************\"\>"], \
1334"Print",
1335 CellChangeTimes->{
1336  3.56809618938696*^9, 3.568098121364786*^9, {3.568290616261177*^9,
1337   3.568290623985106*^9}}],
1338
1339Cell[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
1355Cell[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
1628Cell[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
1644Cell[CellGroupData[{
1645
1646Cell["\<\
1647Print the scalar mass matrix of mixing \[OpenCurlyQuote]2e\[CloseCurlyQuote]\
1648\>", "Subsection",
1649 CellChangeTimes->{{3.5680981329843807`*^9, 3.5680982021358967`*^9}}],
1650
1651Cell[CellGroupData[{
1652
1653Cell[BoxData[
1654 RowBox[{
1655  RowBox[{"MassMatrix", "[",
1656   RowBox[{"\"\<2e\>\"", ",", " ", "\"\<S\>\""}], "]"}], "//",
1657  "MatrixForm"}]], "Input",
1658 CellChangeTimes->{{3.56809816954711*^9, 3.568098187162857*^9}}],
1659
1660Cell[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
1969Cell[CellGroupData[{
1970
1971Cell["\<\
1972Print the pseudo scalar mass matrix of mixing \[OpenCurlyQuote]2e\
1973\[CloseCurlyQuote]\
1974\>", "Subsection",
1975 CellChangeTimes->{{3.5680982058150387`*^9, 3.568098217423275*^9}}],
1976
1977Cell[CellGroupData[{
1978
1979Cell[BoxData[
1980 RowBox[{
1981  RowBox[{"MassMatrix", "[",
1982   RowBox[{"\"\<2e\>\"", ",", " ", "\"\<PS\>\""}], "]"}], "//",
1983  "MatrixForm"}]], "Input",
1984 CellChangeTimes->{{3.56809821834832*^9, 3.568098232696155*^9}}],
1985
1986Cell[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
2221Cell[CellGroupData[{
2222
2223Cell["Write the ASperGe package", "Section",
2224 CellChangeTimes->{{3.568034265705269*^9, 3.568034271048539*^9}}],
2225
2226Cell[CellGroupData[{
2227
2228Cell["\<\
2229Write 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
2235Cell[CellGroupData[{
2236
2237Cell[BoxData[
2238 RowBox[{"WriteASperGe", "[", "LagLRSM", "]"}]], "Input",
2239 CellChangeTimes->{{3.568096225027586*^9, 3.568096233868973*^9}, {
2240  3.568098243583331*^9, 3.56809824773551*^9}}],
2241
2242Cell[CellGroupData[{
2243
2244Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
2245They 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
2250Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
2251 CellChangeTimes->{3.568290677066638*^9, 3.5682907240352697`*^9,
2252  3.568290897174303*^9}],
2253
2254Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
2255 CellChangeTimes->{3.568290677066638*^9, 3.5682907240352697`*^9,
2256  3.56829089717889*^9}],
2257
2258Cell[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
2269Cell[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
2280Cell[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
2291Cell[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
2302Cell[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
2314Cell[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
2326Cell[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
2338Cell[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
2350Cell[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
2362Cell[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
2374Cell[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
2386Cell[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
2398Cell[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
2410Cell[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
2422Cell[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
2434Cell[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
2446Cell[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
2458Cell[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
2470Cell[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
2482Cell[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
2494Cell[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
2506Cell[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
2518Cell[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
2530Cell[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
2542Cell[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
2554Cell[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
2566Cell[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
2578Cell[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
2590Cell[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
2602Cell[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
2614Cell[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
2626Cell[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
2638Cell[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
2650Cell[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
2662Cell[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
2674Cell[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
2686Cell[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
2698Cell[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
2710Cell[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
2722Cell[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
2734Cell[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
2746Cell[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
2758Cell[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
2770Cell[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
2782Cell[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
2794Cell[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
2806Cell[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
2818Cell[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
2830Cell[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
2842Cell[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
2854Cell[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
2866Cell[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
2878Cell[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
2890Cell[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
2902Cell[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
2914Cell[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
2926Cell[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
2938Cell[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
2950Cell[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
2962Cell[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
2974Cell[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
2986Cell[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
2998Cell[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
3010Cell[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
3022Cell[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
3034Cell[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
3046Cell[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
3058Cell[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
3070Cell[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
3082Cell[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
3094Cell[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
3106Cell[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
3118Cell[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
3130Cell[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
3142Cell[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
3154Cell[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
3166Cell[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
3178Cell[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
3190Cell[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
3202Cell[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
3214Cell[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
3226Cell[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
3238Cell[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
3250Cell[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
3262Cell[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
3274Cell[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
3286Cell[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
3298Cell[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
3310Cell[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
3322Cell[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
3334Cell[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
3346Cell[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
3358Cell[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
3370Cell[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
3382Cell[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
3394Cell[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
3406Cell[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
3418Cell[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
3430Cell[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
3442Cell[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
3454Cell[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
3466Cell[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
3478Cell[CellGroupData[{
3479
3480Cell["\<\
3481Write 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
3488Cell[CellGroupData[{
3489
3490Cell[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
3499Cell[CellGroupData[{
3500
3501Cell[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
4037Cell[BoxData["\<\"Parameters.cpp and Parameters.hpp output is finished.\\n \
4038They have been stored in /Users/Karen/trunk/feynrules-development/LRSM\"\>"], \
4039"Print",
4040 CellChangeTimes->{3.568290688352541*^9, 3.568291170799202*^9}],
4041
4042Cell[BoxData["\<\"Checking parameter list...\"\>"], "Print",
4043 CellChangeTimes->{3.568290688352541*^9, 3.5682911708545723`*^9}],
4044
4045Cell[BoxData["\<\"Warning: Goldstone bosons will be ignored.\"\>"], "Print",
4046 CellChangeTimes->{3.568290688352541*^9, 3.568291170857473*^9}],
4047
4048Cell[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
4058Cell[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
4068Cell[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
4078Cell[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
4088Cell[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
4099Cell[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
4110Cell[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
4121Cell[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
4132Cell[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
4143Cell[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
4154Cell[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
4165Cell[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
4176Cell[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
4187Cell[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
4198Cell[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
4209Cell[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
4220Cell[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
4231Cell[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
4242Cell[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
4253Cell[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
4264Cell[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
4275Cell[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
4286Cell[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
4297Cell[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
4308Cell[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
4319Cell[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
4330Cell[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
4341Cell[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
4352Cell[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
4363Cell[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
4374Cell[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
4385Cell[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
4396Cell[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
4407Cell[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
4418Cell[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
4429Cell[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
4440Cell[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
4451Cell[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
4462Cell[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
4473Cell[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
4484Cell[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
4495Cell[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
4506Cell[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
4517Cell[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
4528Cell[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
4539Cell[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
4550Cell[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
4561Cell[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
4572Cell[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
4583Cell[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
4594Cell[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
4605Cell[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
4616Cell[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
4627Cell[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
4638Cell[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
4649Cell[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
4660Cell[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
4671Cell[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
4682Cell[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
4693Cell[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
4704Cell[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
4715Cell[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
4726Cell[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
4737Cell[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
4748Cell[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
4759Cell[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
4770Cell[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
4781Cell[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
4792Cell[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
4803Cell[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
4814Cell[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
4825Cell[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
4836Cell[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
4847Cell[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
4858Cell[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
4869Cell[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
4880Cell[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
4891Cell[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
4902Cell[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
4913Cell[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
4924Cell[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
4935Cell[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
4946Cell[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
4957Cell[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
4968Cell[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
4979Cell[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
4990Cell[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
5001Cell[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
5012Cell[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
5023Cell[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
5034Cell[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
5045Cell[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
5056Cell[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
5067Cell[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
5078Cell[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
5089Cell[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
5100Cell[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
5111Cell[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
5122Cell[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
5133Cell[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
5144Cell[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
5155Cell[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
5167Cell[CellGroupData[{
5168
5169Cell["\<\
5170Compile and excecute ASperGe and
5171load the output file back into FeynRules\
5172\>", "Section",
5173 CellChangeTimes->{3.568034375175974*^9}],
5174
5175Cell[BoxData[
5176 RowBox[{"RunASperGe", "[", "]"}]], "Input",
5177 CellChangeTimes->{{3.568034380231674*^9, 3.5680343839741983`*^9}}]
5178}, Open  ]]
5179}, Open  ]]
5180},
5181WindowSize->{1022, 666},
5182WindowMargins->{{Automatic, 120}, {Automatic, 0}},
5183FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (August 26, \
51842012)",
5185StyleDefinitions->"Default.nb"
5186]
5187(* End of Notebook Content *)
5188
5189(* Internal cache information *)
5190(*CellTagsOutline
5191CellTagsIndex->{}
5192*)
5193(*CellTagsIndex
5194CellTagsIndex->{}
5195*)
5196(*NotebookFileOutline
5197Notebook[{
5198Cell[CellGroupData[{
5199Cell[579, 22, 141, 4, 123, "Title"],
5200Cell[723, 28, 118, 2, 27, "Input"],
5201Cell[CellGroupData[{
5202Cell[866, 34, 97, 1, 67, "Section"],
5203Cell[CellGroupData[{
5204Cell[988, 39, 424, 11, 58, "Input"],
5205Cell[CellGroupData[{
5206Cell[1437, 54, 235, 3, 20, "Print"],
5207Cell[1675, 59, 516, 10, 20, "Print"],
5208Cell[2194, 71, 289, 4, 20, "Print"],
5209Cell[2486, 77, 221, 3, 20, "Print"],
5210Cell[2710, 82, 293, 4, 20, "Print"],
5211Cell[3006, 88, 251, 3, 20, "Print"],
5212Cell[3260, 93, 221, 3, 20, "Print"],
5213Cell[3484, 98, 288, 4, 20, "Print"]
5214}, Open  ]]
5215}, Open  ]]
5216}, Open  ]],
5217Cell[CellGroupData[{
5218Cell[3833, 109, 103, 1, 67, "Section"],
5219Cell[CellGroupData[{
5220Cell[3961, 114, 317, 7, 43, "Input"],
5221Cell[CellGroupData[{
5222Cell[4303, 125, 234, 3, 20, "Print"],
5223Cell[4540, 130, 205, 3, 20, "Print"],
5224Cell[4748, 135, 209, 3, 20, "Print"],
5225Cell[4960, 140, 221, 3, 20, "Print"],
5226Cell[5184, 145, 344, 7, 20, "Print"],
5227Cell[5531, 154, 207, 3, 20, "Print"],
5228Cell[5741, 159, 194, 3, 20, "Print"],
5229Cell[5938, 164, 194, 3, 20, "Print"],
5230Cell[6135, 169, 242, 4, 20, "Print"],
5231Cell[6380, 175, 194, 3, 20, "Print"],
5232Cell[6577, 180, 224, 3, 20, "Print"],
5233Cell[6804, 185, 227, 3, 20, "Print"],
5234Cell[7034, 190, 225, 3, 20, "Print"],
5235Cell[7262, 195, 394, 8, 36, "Print"]
5236}, Open  ]]
5237}, Open  ]]
5238}, Open  ]],
5239Cell[CellGroupData[{
5240Cell[7717, 210, 121, 1, 67, "Section"],
5241Cell[CellGroupData[{
5242Cell[7863, 215, 119, 1, 34, "Subsection"],
5243Cell[CellGroupData[{
5244Cell[8007, 220, 336, 5, 27, "Input"],
5245Cell[CellGroupData[{
5246Cell[8368, 229, 190, 2, 20, "Print"],
5247Cell[8561, 233, 373, 7, 20, "Print"],
5248Cell[8937, 242, 286, 3, 20, "Print"],
5249Cell[9226, 247, 223, 3, 20, "Print"],
5250Cell[9452, 252, 335, 4, 36, "Print"]
5251}, Open  ]]
5252}, Open  ]]
5253}, Open  ]],
5254Cell[CellGroupData[{
5255Cell[9848, 263, 184, 4, 34, "Subsection"],
5256Cell[10035, 269, 278, 5, 27, "Input"]
5257}, Open  ]],
5258Cell[CellGroupData[{
5259Cell[10350, 279, 895, 21, 38, "Subsection"],
5260Cell[CellGroupData[{
5261Cell[11270, 304, 406, 7, 27, "Input"],
5262Cell[CellGroupData[{
5263Cell[11701, 315, 146, 2, 20, "Print"],
5264Cell[11850, 319, 348, 7, 20, "Print"],
5265Cell[12201, 328, 199, 3, 20, "Print"],
5266Cell[12403, 333, 242, 3, 20, "Print"],
5267Cell[12648, 338, 20837, 535, 106, "Print"]
5268}, Open  ]]
5269}, Open  ]]
5270}, Open  ]],
5271Cell[CellGroupData[{
5272Cell[33546, 880, 754, 20, 38, "Subsection"],
5273Cell[CellGroupData[{
5274Cell[34325, 904, 190, 3, 27, "Input"],
5275Cell[CellGroupData[{
5276Cell[34540, 911, 569, 16, 26, "Print"],
5277Cell[35112, 929, 163, 3, 20, "Print"],
5278Cell[35278, 934, 203, 4, 20, "Print"],
5279Cell[35484, 940, 667, 14, 51, "Print"],
5280Cell[36154, 956, 14604, 356, 106, "Print"],
5281Cell[50761, 1314, 440, 11, 20, "Print"],
5282Cell[51204, 1327, 168, 3, 20, "Print"],
5283Cell[51375, 1332, 203, 4, 20, "Print"],
5284Cell[51581, 1338, 669, 14, 51, "Print"],
5285Cell[52253, 1354, 11120, 271, 106, "Print"],
5286Cell[63376, 1627, 440, 11, 20, "Print"]
5287}, Open  ]]
5288}, Open  ]]
5289}, Open  ]],
5290Cell[CellGroupData[{
5291Cell[63877, 1645, 176, 3, 35, "Subsection"],
5292Cell[CellGroupData[{
5293Cell[64078, 1652, 210, 5, 27, "Input"],
5294Cell[64291, 1659, 11236, 305, 125, "Output"]
5295}, Open  ]]
5296}, Open  ]],
5297Cell[CellGroupData[{
5298Cell[75576, 1970, 183, 4, 35, "Subsection"],
5299Cell[CellGroupData[{
5300Cell[75784, 1978, 211, 5, 27, "Input"],
5301Cell[75998, 1985, 8616, 230, 125, "Output"]
5302}, Open  ]]
5303}, Open  ]]
5304}, Open  ]],
5305Cell[CellGroupData[{
5306Cell[84675, 2222, 110, 1, 67, "Section"],
5307Cell[CellGroupData[{
5308Cell[84810, 2227, 267, 5, 35, "Subsection"],
5309Cell[CellGroupData[{
5310Cell[85102, 2236, 185, 3, 27, "Input"],
5311Cell[CellGroupData[{
5312Cell[85312, 2243, 262, 4, 36, "Print"],
5313Cell[85577, 2249, 151, 2, 20, "Print"],
5314Cell[85731, 2253, 166, 2, 20, "Print"],
5315Cell[85900, 2257, 407, 9, 20, "Print"],
5316Cell[86310, 2268, 407, 9, 20, "Print"],
5317Cell[86720, 2279, 407, 9, 20, "Print"],
5318Cell[87130, 2290, 406, 9, 20, "Print"],
5319Cell[87539, 2301, 421, 10, 20, "Print"],
5320Cell[87963, 2313, 431, 10, 20, "Print"],
5321Cell[88397, 2325, 431, 10, 20, "Print"],
5322Cell[88831, 2337, 431, 10, 20, "Print"],
5323Cell[89265, 2349, 431, 10, 20, "Print"],
5324Cell[89699, 2361, 433, 10, 20, "Print"],
5325Cell[90135, 2373, 429, 10, 20, "Print"],
5326Cell[90567, 2385, 433, 10, 20, "Print"],
5327Cell[91003, 2397, 431, 10, 20, "Print"],
5328Cell[91437, 2409, 431, 10, 20, "Print"],
5329Cell[91871, 2421, 429, 10, 20, "Print"],
5330Cell[92303, 2433, 431, 10, 20, "Print"],
5331Cell[92737, 2445, 431, 10, 20, "Print"],
5332Cell[93171, 2457, 433, 10, 20, "Print"],
5333Cell[93607, 2469, 433, 10, 20, "Print"],
5334Cell[94043, 2481, 431, 10, 20, "Print"],
5335Cell[94477, 2493, 433, 10, 20, "Print"],
5336Cell[94913, 2505, 431, 10, 20, "Print"],
5337Cell[95347, 2517, 431, 10, 20, "Print"],
5338Cell[95781, 2529, 431, 10, 20, "Print"],
5339Cell[96215, 2541, 433, 10, 20, "Print"],
5340Cell[96651, 2553, 431, 10, 20, "Print"],
5341Cell[97085, 2565, 431, 10, 20, "Print"],
5342Cell[97519, 2577, 431, 10, 20, "Print"],
5343Cell[97953, 2589, 433, 10, 20, "Print"],
5344Cell[98389, 2601, 430, 10, 20, "Print"],
5345Cell[98822, 2613, 431, 10, 20, "Print"],
5346Cell[99256, 2625, 431, 10, 20, "Print"],
5347Cell[99690, 2637, 433, 10, 20, "Print"],
5348Cell[100126, 2649, 433, 10, 20, "Print"],
5349Cell[100562, 2661, 433, 10, 20, "Print"],
5350Cell[100998, 2673, 430, 10, 20, "Print"],
5351Cell[101431, 2685, 431, 10, 20, "Print"],
5352Cell[101865, 2697, 430, 10, 20, "Print"],
5353Cell[102298, 2709, 430, 10, 20, "Print"],
5354Cell[102731, 2721, 431, 10, 20, "Print"],
5355Cell[103165, 2733, 431, 10, 20, "Print"],
5356Cell[103599, 2745, 431, 10, 20, "Print"],
5357Cell[104033, 2757, 431, 10, 20, "Print"],
5358Cell[104467, 2769, 431, 10, 20, "Print"],
5359Cell[104901, 2781, 431, 10, 20, "Print"],
5360Cell[105335, 2793, 431, 10, 20, "Print"],
5361Cell[105769, 2805, 433, 10, 20, "Print"],
5362Cell[106205, 2817, 431, 10, 20, "Print"],
5363Cell[106639, 2829, 431, 10, 20, "Print"],
5364Cell[107073, 2841, 430, 10, 20, "Print"],
5365Cell[107506, 2853, 431, 10, 20, "Print"],
5366Cell[107940, 2865, 431, 10, 20, "Print"],
5367Cell[108374, 2877, 431, 10, 20, "Print"],
5368Cell[108808, 2889, 431, 10, 20, "Print"],
5369Cell[109242, 2901, 433, 10, 20, "Print"],
5370Cell[109678, 2913, 431, 10, 20, "Print"],
5371Cell[110112, 2925, 431, 10, 20, "Print"],
5372Cell[110546, 2937, 433, 10, 20, "Print"],
5373Cell[110982, 2949, 431, 10, 20, "Print"],
5374Cell[111416, 2961, 430, 10, 20, "Print"],
5375Cell[111849, 2973, 433, 10, 20, "Print"],
5376Cell[112285, 2985, 431, 10, 20, "Print"],
5377Cell[112719, 2997, 431, 10, 20, "Print"],
5378Cell[113153, 3009, 433, 10, 20, "Print"],
5379Cell[113589, 3021, 433, 10, 20, "Print"],
5380Cell[114025, 3033, 430, 10, 20, "Print"],
5381Cell[114458, 3045, 431, 10, 20, "Print"],
5382Cell[114892, 3057, 431, 10, 20, "Print"],
5383Cell[115326, 3069, 431, 10, 20, "Print"],
5384Cell[115760, 3081, 433, 10, 20, "Print"],
5385Cell[116196, 3093, 431, 10, 20, "Print"],
5386Cell[116630, 3105, 431, 10, 20, "Print"],
5387Cell[117064, 3117, 431, 10, 20, "Print"],
5388Cell[117498, 3129, 431, 10, 20, "Print"],
5389Cell[117932, 3141, 431, 10, 20, "Print"],
5390Cell[118366, 3153, 431, 10, 20, "Print"],
5391Cell[118800, 3165, 431, 10, 20, "Print"],
5392Cell[119234, 3177, 429, 10, 20, "Print"],
5393Cell[119666, 3189, 427, 10, 20, "Print"],
5394Cell[120096, 3201, 426, 10, 20, "Print"],
5395Cell[120525, 3213, 427, 10, 20, "Print"],
5396Cell[120955, 3225, 427, 10, 20, "Print"],
5397Cell[121385, 3237, 427, 10, 20, "Print"],
5398Cell[121815, 3249, 427, 10, 20, "Print"],
5399Cell[122245, 3261, 427, 10, 20, "Print"],
5400Cell[122675, 3273, 427, 10, 20, "Print"],
5401Cell[123105, 3285, 427, 10, 20, "Print"],
5402Cell[123535, 3297, 427, 10, 20, "Print"],
5403Cell[123965, 3309, 426, 10, 20, "Print"],
5404Cell[124394, 3321, 429, 10, 20, "Print"],
5405Cell[124826, 3333, 429, 10, 20, "Print"],
5406Cell[125258, 3345, 427, 10, 20, "Print"],
5407Cell[125688, 3357, 429, 10, 20, "Print"],
5408Cell[126120, 3369, 427, 10, 20, "Print"],
5409Cell[126550, 3381, 427, 10, 20, "Print"],
5410Cell[126980, 3393, 427, 10, 20, "Print"],
5411Cell[127410, 3405, 425, 10, 20, "Print"],
5412Cell[127838, 3417, 425, 10, 20, "Print"],
5413Cell[128266, 3429, 424, 10, 20, "Print"],
5414Cell[128693, 3441, 425, 10, 20, "Print"],
5415Cell[129121, 3453, 427, 10, 20, "Print"],
5416Cell[129551, 3465, 313, 7, 20, "Print"]
5417}, Open  ]]
5418}, Open  ]]
5419}, Open  ]],
5420Cell[CellGroupData[{
5421Cell[129925, 3479, 340, 6, 35, "Subsection"],
5422Cell[CellGroupData[{
5423Cell[130290, 3489, 376, 7, 27, "Input"],
5424Cell[CellGroupData[{
5425Cell[130691, 3500, 20808, 534, 106, "Print"],
5426Cell[151502, 4036, 229, 3, 36, "Print"],
5427Cell[151734, 4041, 126, 1, 20, "Print"],
5428Cell[151863, 4044, 140, 1, 20, "Print"],
5429Cell[152006, 4047, 382, 8, 20, "Print"],
5430Cell[152391, 4057, 380, 8, 20, "Print"],
5431Cell[152774, 4067, 380, 8, 20, "Print"],
5432Cell[153157, 4077, 380, 8, 20, "Print"],
5433Cell[153540, 4087, 394, 9, 20, "Print"],
5434Cell[153937, 4098, 404, 9, 20, "Print"],
5435Cell[154344, 4109, 404, 9, 20, "Print"],
5436Cell[154751, 4120, 404, 9, 20, "Print"],
5437Cell[155158, 4131, 404, 9, 20, "Print"],
5438Cell[155565, 4142, 406, 9, 20, "Print"],
5439Cell[155974, 4153, 404, 9, 20, "Print"],
5440Cell[156381, 4164, 404, 9, 20, "Print"],
5441Cell[156788, 4175, 404, 9, 20, "Print"],
5442Cell[157195, 4186, 404, 9, 20, "Print"],
5443Cell[157602, 4197, 406, 9, 20, "Print"],
5444Cell[158011, 4208, 404, 9, 20, "Print"],
5445Cell[158418, 4219, 404, 9, 20, "Print"],
5446Cell[158825, 4230, 404, 9, 20, "Print"],
5447Cell[159232, 4241, 404, 9, 20, "Print"],
5448Cell[159639, 4252, 406, 9, 20, "Print"],
5449Cell[160048, 4263, 404, 9, 20, "Print"],
5450Cell[160455, 4274, 406, 9, 20, "Print"],
5451Cell[160864, 4285, 404, 9, 20, "Print"],
5452Cell[161271, 4296, 404, 9, 20, "Print"],
5453Cell[161678, 4307, 404, 9, 20, "Print"],
5454Cell[162085, 4318, 406, 9, 20, "Print"],
5455Cell[162494, 4329, 404, 9, 20, "Print"],
5456Cell[162901, 4340, 404, 9, 20, "Print"],
5457Cell[163308, 4351, 406, 9, 20, "Print"],
5458Cell[163717, 4362, 406, 9, 20, "Print"],
5459Cell[164126, 4373, 404, 9, 20, "Print"],
5460Cell[164533, 4384, 406, 9, 20, "Print"],
5461Cell[164942, 4395, 404, 9, 20, "Print"],
5462Cell[165349, 4406, 404, 9, 20, "Print"],
5463Cell[165756, 4417, 406, 9, 20, "Print"],
5464Cell[166165, 4428, 404, 9, 20, "Print"],
5465Cell[166572, 4439, 403, 9, 20, "Print"],
5466Cell[166978, 4450, 403, 9, 20, "Print"],
5467Cell[167384, 4461, 406, 9, 20, "Print"],
5468Cell[167793, 4472, 404, 9, 20, "Print"],
5469Cell[168200, 4483, 404, 9, 20, "Print"],
5470Cell[168607, 4494, 406, 9, 20, "Print"],
5471Cell[169016, 4505, 404, 9, 20, "Print"],
5472Cell[169423, 4516, 404, 9, 20, "Print"],
5473Cell[169830, 4527, 404, 9, 20, "Print"],
5474Cell[170237, 4538, 404, 9, 20, "Print"],
5475Cell[170644, 4549, 402, 9, 20, "Print"],
5476Cell[171049, 4560, 404, 9, 20, "Print"],
5477Cell[171456, 4571, 404, 9, 20, "Print"],
5478Cell[171863, 4582, 406, 9, 20, "Print"],
5479Cell[172272, 4593, 404, 9, 20, "Print"],
5480Cell[172679, 4604, 406, 9, 20, "Print"],
5481Cell[173088, 4615, 404, 9, 20, "Print"],
5482Cell[173495, 4626, 404, 9, 20, "Print"],
5483Cell[173902, 4637, 404, 9, 20, "Print"],
5484Cell[174309, 4648, 404, 9, 20, "Print"],
5485Cell[174716, 4659, 404, 9, 20, "Print"],
5486Cell[175123, 4670, 404, 9, 20, "Print"],
5487Cell[175530, 4681, 404, 9, 20, "Print"],
5488Cell[175937, 4692, 404, 9, 20, "Print"],
5489Cell[176344, 4703, 404, 9, 20, "Print"],
5490Cell[176751, 4714, 403, 9, 20, "Print"],
5491Cell[177157, 4725, 404, 9, 20, "Print"],
5492Cell[177564, 4736, 406, 9, 20, "Print"],
5493Cell[177973, 4747, 404, 9, 20, "Print"],
5494Cell[178380, 4758, 406, 9, 20, "Print"],
5495Cell[178789, 4769, 406, 9, 20, "Print"],
5496Cell[179198, 4780, 404, 9, 20, "Print"],
5497Cell[179605, 4791, 403, 9, 20, "Print"],
5498Cell[180011, 4802, 406, 9, 20, "Print"],
5499Cell[180420, 4813, 404, 9, 20, "Print"],
5500Cell[180827, 4824, 404, 9, 20, "Print"],
5501Cell[181234, 4835, 404, 9, 20, "Print"],
5502Cell[181641, 4846, 404, 9, 20, "Print"],
5503Cell[182048, 4857, 404, 9, 20, "Print"],
5504Cell[182455, 4868, 406, 9, 20, "Print"],
5505Cell[182864, 4879, 404, 9, 20, "Print"],
5506Cell[183271, 4890, 400, 9, 20, "Print"],
5507Cell[183674, 4901, 402, 9, 20, "Print"],
5508Cell[184079, 4912, 400, 9, 20, "Print"],
5509Cell[184482, 4923, 400, 9, 20, "Print"],
5510Cell[184885, 4934, 400, 9, 20, "Print"],
5511Cell[185288, 4945, 400, 9, 20, "Print"],
5512Cell[185691, 4956, 400, 9, 20, "Print"],
5513Cell[186094, 4967, 402, 9, 20, "Print"],
5514Cell[186499, 4978, 402, 9, 20, "Print"],
5515Cell[186904, 4989, 402, 9, 20, "Print"],
5516Cell[187309, 5000, 400, 9, 20, "Print"],
5517Cell[187712, 5011, 400, 9, 20, "Print"],
5518Cell[188115, 5022, 402, 9, 20, "Print"],
5519Cell[188520, 5033, 400, 9, 20, "Print"],
5520Cell[188923, 5044, 399, 9, 20, "Print"],
5521Cell[189325, 5055, 400, 9, 20, "Print"],
5522Cell[189728, 5066, 402, 9, 20, "Print"],
5523Cell[190133, 5077, 402, 9, 20, "Print"],
5524Cell[190538, 5088, 400, 9, 20, "Print"],
5525Cell[190941, 5099, 398, 9, 20, "Print"],
5526Cell[191342, 5110, 397, 9, 20, "Print"],
5527Cell[191742, 5121, 400, 9, 20, "Print"],
5528Cell[192145, 5132, 398, 9, 20, "Print"],
5529Cell[192546, 5143, 400, 9, 20, "Print"],
5530Cell[192949, 5154, 286, 6, 20, "Print"]
5531}, Open  ]]
5532}, Open  ]]
5533}, Open  ]]
5534}, Open  ]],
5535Cell[CellGroupData[{
5536Cell[193308, 5168, 142, 4, 89, "Section"],
5537Cell[193453, 5174, 126, 2, 27, "Input"]
5538}, Open  ]]
5539}, Open  ]]
5540}
5541]
5542*)
5543
5544(* End of internal cache information *)