MLFVtIIIseesaw: yuk_mlfv_typeIII-see-saw.nb

File yuk_mlfv_typeIII-see-saw.nb, 17.0 KB (added by eboli, 2 years ago)

Mathematica notebook that evaluate the Yukawa couplings at the best fit values of neutrino parameters from NUFIT - 3.0 global fit

Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 10.3' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       158,          7]
13NotebookDataLength[     16759,        490]
14NotebookOptionsPosition[     16064,        462]
15NotebookOutlinePosition[     16425,        478]
16CellTagsIndexPosition[     16382,        475]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{"(*", " ",
23  RowBox[{
24   RowBox[{
25    RowBox[{
26    "Yukawa", " ", "couplings", " ", "corresponding", " ", "to", " ", "the",
27     " ", "best", " ", "fit", " ", "values", " ", "of", " ", "neutrino", " ",
28     "parameters", " ", "from", "  ", "NUFIT"}], "-",
29    RowBox[{
30    "3.0", "  ", "global", " ", "fit", " ", "to", " ", "neutrino", " ",
31     "oscillaiton", " ", "data", " ", "\[IndentingNewLine]", "from", " ",
32     RowBox[{"Ref", ".", " ", "I", ".", " ", "Esteban"}], " ", "etal", " ",
33     "JHEP", " ", "1701", " ",
34     RowBox[{"(", "2017", ")"}], " ", "087"}]}], ",", " ",
35   RowBox[{
36    RowBox[{"arXiv", ":",
37     RowBox[{"1611.01514", " ", "\[IndentingNewLine]", "http"}], ":"}], "//",
38    RowBox[{
39     RowBox[{"www", ".", "nu"}], "-",
40     RowBox[{
41      RowBox[{
42       RowBox[{"fit", ".", "org"}], "/", "\[IndentingNewLine]", "The"}], " ",
43      "yukawa", " ", "coupligngs", " ", "are", " ", "given", " ", "as", " ",
44      "a", " ", "function", " ", "of", " ", "the", " ", "unique", " ",
45      "parameter", " ", "undetermined", " ", "by", " ", "oscilllation", " ",
46      "data", " ", "phase", " ",
47      RowBox[{"alpha", ".", " ", "For"}], " ", "update", " ", "and", " ",
48      "allowed", " ", "allowed", " ", "ranges", " ", "of", " ", "the", " ",
49      "yukawa", " ", "couplings", " ", "contact", " ", "the", " ", "authors",
50      " ", "of", " ", "the", " ", "NUFIT", " ", "project"}]}]}]}], " ",
51  "*)"}]], "Input",
52 CellChangeTimes->{{3.712669481518971*^9, 3.7126695513544397`*^9}, {
53  3.712669585676566*^9, 3.712669820707429*^9}, {3.712669884602373*^9,
54  3.7126699225025167`*^9}}],
55
56Cell[CellGroupData[{
57
58Cell["Best fit point for normal ordering", "Subchapter",
59 CellChangeTimes->{{3.712741935515971*^9, 3.712741949415163*^9}}],
60
61Cell[BoxData[{
62 RowBox[{
63  RowBox[{"sinsqt13n", "=", "0.0217"}], ";"}], "\[IndentingNewLine]",
64 RowBox[{
65  RowBox[{"sinsqt23n", "=", "0.441"}], ";"}], "\[IndentingNewLine]",
66 RowBox[{
67  RowBox[{"sinsqt12n", "=", "0.306"}], ";"}], "\[IndentingNewLine]",
68 RowBox[{
69  RowBox[{"dm21n", "=",
70   RowBox[{"7.50", " ",
71    RowBox[{"10", "^",
72     RowBox[{"-", "5"}]}]}]}], ";"}], "\[IndentingNewLine]",
73 RowBox[{
74  RowBox[{"dm31n", "=",
75   RowBox[{"2.524", " ",
76    RowBox[{"10", "^",
77     RowBox[{"-", "3"}]}]}]}], ";"}], "\[IndentingNewLine]",
78 RowBox[{
79  RowBox[{"dm32n", "=",
80   RowBox[{"dm31n", "-", "dm21n"}]}], ";"}], "\[IndentingNewLine]",
81 RowBox[{
82  RowBox[{"dcpn", "=",
83   RowBox[{"261", " ",
84    RowBox[{"Pi", "/", "180"}]}]}], " ", ";"}], "\[IndentingNewLine]",
85 RowBox[{
86  RowBox[{"rn", "=",
87   RowBox[{"dm21n", "/", "dm32n"}]}], ";"}], "\[IndentingNewLine]",
88 RowBox[{
89  RowBox[{"rhon", "=",
90   RowBox[{
91    RowBox[{"(",
92     RowBox[{
93      RowBox[{"Sqrt", "[",
94       RowBox[{"1", "+", "rn"}], "]"}], "-", "rn"}], ")"}], "/",
95    RowBox[{"(",
96     RowBox[{
97      RowBox[{"Sqrt", "[",
98       RowBox[{"1", "+", "rn"}], "]"}], "+", "rn"}], ")"}]}]}],
99  ";"}], "\[IndentingNewLine]",
100 RowBox[{
101  RowBox[{"s12n", "=",
102   RowBox[{"Sqrt", "[", "sinsqt12n", "]"}]}], ";"}], "\[IndentingNewLine]",
103 RowBox[{
104  RowBox[{"c12n", "=",
105   RowBox[{"Sqrt", "[",
106    RowBox[{"1", "-", "sinsqt12n"}], "]"}]}], ";"}], "\[IndentingNewLine]",
107 RowBox[{
108  RowBox[{"s13n", "=",
109   RowBox[{"Sqrt", "[", "sinsqt13n", "]"}]}], ";"}], "\[IndentingNewLine]",
110 RowBox[{
111  RowBox[{"c13n", "=",
112   RowBox[{"Sqrt", "[",
113    RowBox[{"1", "-", "sinsqt13n"}], "]"}]}], ";"}], "\[IndentingNewLine]",
114 RowBox[{
115  RowBox[{"s23n", "=",
116   RowBox[{"Sqrt", "[", "sinsqt23n", "]"}]}], ";"}], "\[IndentingNewLine]",
117 RowBox[{
118  RowBox[{"c23n", "=",
119   RowBox[{"Sqrt", "[",
120    RowBox[{"1", "-", "sinsqt23n"}], "]"}]}], ";"}], "\[IndentingNewLine]",
121 RowBox[{
122  RowBox[{"Ue1n0", "=",
123   RowBox[{"c12n", " ", "c13n"}]}], ";"}], "\n",
124 RowBox[{
125  RowBox[{"Ue2n0", "=",
126   RowBox[{"s12n", " ", "c13n"}]}], ";"}], "\n",
127 RowBox[{
128  RowBox[{"Ue3n0", "=",
129   RowBox[{"s13n", " ",
130    RowBox[{"Exp", "[",
131     RowBox[{
132      RowBox[{"-", "I"}], " ", "dcpn"}], "]"}]}]}], ";"}], "\n",
133 RowBox[{
134  RowBox[{"Um1n0", "=",
135   RowBox[{
136    RowBox[{
137     RowBox[{"-", "s12n"}], " ", "c23n"}], "-",
138    RowBox[{"c12n", " ", "s13n", " ", "s23n", " ",
139     RowBox[{"Exp", "[",
140      RowBox[{"I", " ", "dcpn"}], "]"}]}]}]}], ";"}], "\n",
141 RowBox[{
142  RowBox[{"Um2n0", "=",
143   RowBox[{
144    RowBox[{"c12n", " ", "c23n"}], "-",
145    RowBox[{"s12n", " ", "s13n", " ", "s23n", " ",
146     RowBox[{"Exp", "[",
147      RowBox[{"I", " ", "dcpn"}], "]"}]}]}]}], ";"}], "\n",
148 RowBox[{
149  RowBox[{"Um3n0", "=",
150   RowBox[{"c13n", " ", "s23n"}]}], ";"}], "\[IndentingNewLine]",
151 RowBox[{
152  RowBox[{"Ut1n0", "=",
153   RowBox[{
154    RowBox[{"s12n", " ", "s23n"}], "-",
155    RowBox[{"c12n", " ", "s13n", " ", "c23n", " ",
156     RowBox[{"Exp", "[",
157      RowBox[{"I", " ", "dcpn"}], "]"}]}]}]}], ";"}], "\n",
158 RowBox[{
159  RowBox[{"Ut2n0", "=",
160   RowBox[{
161    RowBox[{
162     RowBox[{"-", "c12n"}], " ", "s23n"}], "-",
163    RowBox[{"s12n", " ", "s13n", " ", "c23n", " ",
164     RowBox[{"Exp", "[",
165      RowBox[{"I", " ", "dcpn"}], "]"}]}]}]}], ";"}], "\n",
166 RowBox[{
167  RowBox[{"Ut3n0", "=",
168   RowBox[{"c13n", " ", "c23n"}]}], ";"}]}], "Input",
169 CellChangeTimes->CompressedData["
1701:eJwdzU8ogwEABfAvtZ0m1GLNaFNaLkuTcqBsJOwyk2RWajbtT01t2RalWVpq
171kX3TaFtDNFYmKXNQOJhSSBumVrvMCsvK2kmG732H1+/wXj2BelqhrSAIgkcF
1726gOtOWUkLyFH85/QFG4vQumOr2qccrfPWwdDbDkPdjTp+PBq2y6CruCxGH5L
173k93wuocxAI8WhTOwxVuyw6+QcwE2hOpdMBNxu+Fr2rQK1xsHfVBomwjQv2UD
174LZ/l34Q/cW0UEpbJGHwfvqVVi1nndN+cuoQfOXYcKvembmBp6S8BD8cak/BN
175U3yG0jVPCnLldoYK2s+YUNDpr4QHClkNvJOpOLBwqqOtrg1LoI5M026YbBo1
176pZ5r1MK22JAZPt0/zEKX1RyEjqJxC5IFVf885UXWMgK5vwnbI/YG0Ry0ZpkO
177uNwbcMKulagH+r1iEp6UM/uQI3+JwH9smvEK
178  "]],
179
180Cell[BoxData[
181 RowBox[{
182  StyleBox[
183   RowBox[{
184   "Yukawa", " ", "couplings", " ", "as", " ", "a", " ", "function", " ",
185    "of", " ", "alpha"}], "Section"], "\[IndentingNewLine]"}]], "Input",
186 Evaluatable->False,
187 CellChangeTimes->CompressedData["
1881:eJxTTMoPSmViYGCQAmIQnTnb4GnUyteOk8JfvwXRectMP4Fop8XT+KOB9BK3
189yeIgep5IgAyItlDKUADRRxZW6IHotjmbjED0L6fLDiD6mDOrJ4je0KJeCqI1
190J3+pANEf5zU1gmjZedJtIPreyu5uEP3kdt4EED1dzmsaiFYvj58NtvdvFphW
1914Jk1H0T/OZq6FkQzFCdvA9Evg8+A6SQjnn1gedXrB0D0q6ciR0F01PK0kyD6
192S8f/SyB6XaTcZRD9IuXTNRDtNGXidRAtFVDBGgOiK3azgWhFm1m8IHpNkLcg
193iD7rHSMBot9tzwDTAmLLHEF0xqTbYHpGXnlKEpDOlMpOBdHG2wKLQPTVcxeq
194QHRbWdEcEN3wKXsBiJ70LsajDkjvf1wcCqKl/l0qvwJSn6VXDaLLHrM1gOgU
195W+lmEA0AeP/cmg==
196  "]],
197
198Cell[BoxData[
199 RowBox[{
200  RowBox[{
201   RowBox[{"Yen", "[", "alpha_", "]"}], ":=",
202   RowBox[{
203    RowBox[{"Abs", "[",
204     RowBox[{
205      RowBox[{
206       RowBox[{"Conjugate", "[", "Ue3n0", " ", "]"}],
207       RowBox[{"Sqrt", "[",
208        RowBox[{"1", "+", "rhon"}], "]"}]}], "+",
209      RowBox[{
210       RowBox[{"Conjugate", "[",
211        RowBox[{"Ue2n0", " ",
212         RowBox[{"Exp", "[",
213          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}], " ",
214       RowBox[{"Sqrt", "[",
215        RowBox[{"1", "-", "rhon"}], "]"}]}]}], "]"}], "/",
216    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";",
217  RowBox[{
218   RowBox[{"Ymun", "[", "alpha_", "]"}], ":=",
219   RowBox[{
220    RowBox[{"Abs", "[",
221     RowBox[{
222      RowBox[{
223       RowBox[{"Conjugate", "[", "Um3n0", "]"}], " ",
224       RowBox[{"Sqrt", "[",
225        RowBox[{"1", "+", "rhon"}], "]"}]}], "+",
226      RowBox[{
227       RowBox[{"Conjugate", "[",
228        RowBox[{"Um2n0", " ",
229         RowBox[{"Exp", "[",
230          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}], " ",
231       RowBox[{"Sqrt", "[",
232        RowBox[{"1", "-", "rhon"}], "]"}]}]}], "]"}], "/",
233    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";",
234  RowBox[{
235   RowBox[{"Ytun", "[", "alpha_", "]"}], ":=",
236   RowBox[{
237    RowBox[{"Abs", "[",
238     RowBox[{
239      RowBox[{
240       RowBox[{"Conjugate", "[", "Ut3n0", "]"}], " ",
241       RowBox[{"Sqrt", "[",
242        RowBox[{"1", "+", "rhon"}], "]"}]}], "+",
243      RowBox[{
244       RowBox[{"Conjugate", "[",
245        RowBox[{"Ut2n0", " ",
246         RowBox[{"Exp", "[",
247          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}], " ",
248       RowBox[{"Sqrt", "[",
249        RowBox[{"1", "-", "rhon"}], "]"}]}]}], "]"}], "/",
250    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";"}]], "Input"]
251}, Open  ]],
252
253Cell[CellGroupData[{
254
255Cell["Inverted ordering", "Subchapter",
256 CellChangeTimes->{{3.712918351452322*^9, 3.7129183548669786`*^9}}],
257
258Cell[BoxData[{
259 RowBox[{
260  RowBox[{"sinsqt13i", "=", "0.0218"}], ";"}], "\[IndentingNewLine]",
261 RowBox[{
262  RowBox[{"sinsqt23i", "=", "0.587"}], ";"}], "\[IndentingNewLine]",
263 RowBox[{
264  RowBox[{"sinsqt12i", "=", "0.306"}], ";"}], "\[IndentingNewLine]",
265 RowBox[{
266  RowBox[{"dm21i", "=",
267   RowBox[{"7.50", " ",
268    RowBox[{"10", "^",
269     RowBox[{"-", "5"}]}]}]}], ";"}], "\[IndentingNewLine]",
270 RowBox[{
271  RowBox[{"dm32i", "=",
272   RowBox[{
273    RowBox[{"-", "2.514"}], " ",
274    RowBox[{"10", "^",
275     RowBox[{"-", "3"}]}]}]}], ";"}], "\[IndentingNewLine]",
276 RowBox[{
277  RowBox[{"dm31i", "=",
278   RowBox[{"dm32i", "+", "dm21i"}]}], ";"}], "\[IndentingNewLine]",
279 RowBox[{
280  RowBox[{"dcpi", "=",
281   RowBox[{"277", " ",
282    RowBox[{"Pi", "/", "180"}]}]}], " ", ";"}], "\[IndentingNewLine]",
283 RowBox[{
284  RowBox[{"ri", "=",
285   RowBox[{
286    RowBox[{"-", "dm21i"}], "/", "dm31i"}]}], ";"}], "\[IndentingNewLine]",
287 RowBox[{
288  RowBox[{"rhoi", "=",
289   RowBox[{
290    RowBox[{"(",
291     RowBox[{
292      RowBox[{"Sqrt", "[",
293       RowBox[{"1", "+", "ri"}], "]"}], "-", "1"}], ")"}], "/",
294    RowBox[{"(",
295     RowBox[{
296      RowBox[{"Sqrt", "[",
297       RowBox[{"1", "+", "ri"}], "]"}], "+", "1"}], ")"}]}]}],
298  ";"}], "\[IndentingNewLine]",
299 RowBox[{
300  RowBox[{"s12i", "=",
301   RowBox[{"Sqrt", "[", "sinsqt12i", "]"}]}], ";"}], "\[IndentingNewLine]",
302 RowBox[{
303  RowBox[{"c12i", "=",
304   RowBox[{"Sqrt", "[",
305    RowBox[{"1", "-", "sinsqt12i"}], "]"}]}], ";"}], "\[IndentingNewLine]",
306 RowBox[{
307  RowBox[{"s13i", "=",
308   RowBox[{"Sqrt", "[", "sinsqt13i", "]"}]}], ";"}], "\[IndentingNewLine]",
309 RowBox[{
310  RowBox[{"c13i", "=",
311   RowBox[{"Sqrt", "[",
312    RowBox[{"1", "-", "sinsqt13i"}], "]"}]}], ";"}], "\[IndentingNewLine]",
313 RowBox[{
314  RowBox[{"s23i", "=",
315   RowBox[{"Sqrt", "[", "sinsqt23i", "]"}]}], ";"}], "\[IndentingNewLine]",
316 RowBox[{
317  RowBox[{"c23i", "=",
318   RowBox[{"Sqrt", "[",
319    RowBox[{"1", "-", "sinsqt23i"}], "]"}]}], ";"}], "\[IndentingNewLine]",
320 RowBox[{
321  RowBox[{"Ue1i0", "=",
322   RowBox[{"c12i", " ", "c13i"}]}], ";"}], "\n",
323 RowBox[{
324  RowBox[{"Ue2i0", "=",
325   RowBox[{"s12i", " ", "c13i"}]}], ";"}], "\n",
326 RowBox[{
327  RowBox[{"Ue3i0", "=",
328   RowBox[{"s13i", " ",
329    RowBox[{"Exp", "[",
330     RowBox[{
331      RowBox[{"-", "I"}], " ", "dcpi"}], "]"}]}]}], ";"}], "\n",
332 RowBox[{
333  RowBox[{"Um1i0", "=",
334   RowBox[{
335    RowBox[{
336     RowBox[{"-", "s12i"}], " ", "c23i"}], "-",
337    RowBox[{"c12i", " ", "s13i", " ", "s23i", " ",
338     RowBox[{"Exp", "[",
339      RowBox[{"I", " ", "dcpi"}], "]"}]}]}]}], ";"}], "\n",
340 RowBox[{
341  RowBox[{"Um2i0", "=",
342   RowBox[{
343    RowBox[{"c12i", " ", "c23i"}], "-",
344    RowBox[{"s12i", " ", "s13i", " ", "s23i", " ",
345     RowBox[{"Exp", "[",
346      RowBox[{"I", " ", "dcpi"}], "]"}]}]}]}], ";"}], "\n",
347 RowBox[{
348  RowBox[{"Um3i0", "=",
349   RowBox[{"c13i", " ", "s23i"}]}], ";"}], "\[IndentingNewLine]",
350 RowBox[{
351  RowBox[{"Ut1i0", "=",
352   RowBox[{
353    RowBox[{"s12i", " ", "s23i"}], "-",
354    RowBox[{"c12i", " ", "s13i", " ", "c23i", " ",
355     RowBox[{"Exp", "[",
356      RowBox[{"I", " ", "dcpi"}], "]"}]}]}]}], ";"}], "\n",
357 RowBox[{
358  RowBox[{"Ut2i0", "=",
359   RowBox[{
360    RowBox[{
361     RowBox[{"-", "c12i"}], " ", "s23i"}], "-",
362    RowBox[{"s12i", " ", "s13i", " ", "c23i", " ",
363     RowBox[{"Exp", "[",
364      RowBox[{"I", " ", "dcpi"}], "]"}]}]}]}], ";"}], "\n",
365 RowBox[{
366  RowBox[{"Ut3i0", "=",
367   RowBox[{"c13i", " ", "c23i"}]}], ";"}]}], "Input",
368 CellChangeTimes->{{3.7126708429634542`*^9, 3.71267085594069*^9}, {
369   3.7126719181517363`*^9, 3.712672191498571*^9}, {3.712672237521976*^9,
370   3.712672276274688*^9}, {3.712672375228467*^9, 3.712672376373741*^9}, {
371   3.712685027623419*^9, 3.712685097252076*^9}, 3.712685333319643*^9, {
372   3.712918360907927*^9, 3.7129183647973146`*^9}, {3.712918404426309*^9,
373   3.712918452497957*^9}, 3.712918560699739*^9, {3.7129186827342577`*^9,
374   3.712918682803941*^9}, {3.7129188139075317`*^9, 3.712918814025947*^9}}],
375
376Cell[BoxData[
377 StyleBox[
378  RowBox[{
379  "Yukawa", " ", "couplings", " ", "as", " ", "a", " ", "function", " ", "of",
380    " ", "alpha"}], "Section"]], "Input",
381 Evaluatable->False,
382 CellChangeTimes->{{3.7126708429634542`*^9, 3.71267085594069*^9}, {
383   3.7126719181517363`*^9, 3.712672191498571*^9}, {3.712672237521976*^9,
384   3.712672276274688*^9}, {3.712672375228467*^9, 3.712672376373741*^9}, {
385   3.712685027623419*^9, 3.712685097252076*^9}, 3.712685333319643*^9, {
386   3.712918360907927*^9, 3.7129183647973146`*^9}, {3.712918404426309*^9,
387   3.712918452497957*^9}, {3.712918560699739*^9, 3.712918572105578*^9}}],
388
389Cell[BoxData[{
390 RowBox[{
391  RowBox[{
392   RowBox[{"Yei", "[", "alpha_", "]"}], ":=",
393   RowBox[{
394    RowBox[{"Abs", "[",
395     RowBox[{
396      RowBox[{
397       RowBox[{"Conjugate", "[",
398        RowBox[{"Ue2i0", " ",
399         RowBox[{"Exp", "[",
400          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}],
401       RowBox[{"Sqrt", "[",
402        RowBox[{"1", "+", "rhoi"}], "]"}]}], " ", "+",
403      RowBox[{
404       RowBox[{"Conjugate", "[",
405        RowBox[{"Ue1i0", " ",
406         RowBox[{"Exp", "[",
407          RowBox[{
408           RowBox[{"-", "I"}], " ", "alpha"}], "]"}]}], "]"}], " ",
409       RowBox[{"Sqrt", "[",
410        RowBox[{"1", "-", "rhoi"}], "]"}]}]}], "]"}], "/",
411    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";",
412  RowBox[{
413   RowBox[{"Ymui", "[", "alpha_", "]"}], ":=",
414   RowBox[{
415    RowBox[{"Abs", "[",
416     RowBox[{
417      RowBox[{
418       RowBox[{"Conjugate", "[",
419        RowBox[{"Um2i0", " ",
420         RowBox[{"Exp", "[",
421          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}],
422       RowBox[{"Sqrt", "[",
423        RowBox[{"1", "+", "rhoi"}], "]"}]}], " ", "+",
424      RowBox[{
425       RowBox[{"Conjugate", "[",
426        RowBox[{"Um1i0", " ",
427         RowBox[{"Exp", "[",
428          RowBox[{
429           RowBox[{"-", "I"}], " ", "alpha"}], "]"}]}], "]"}], " ",
430       RowBox[{"Sqrt", "[",
431        RowBox[{"1", "-", "rhoi"}], "]"}]}]}], "]"}], "/",
432    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";"}], "\n",
433 RowBox[{
434  RowBox[{
435   RowBox[{"Yti", "[", "alpha_", "]"}], ":=",
436   RowBox[{
437    RowBox[{"Abs", "[",
438     RowBox[{
439      RowBox[{
440       RowBox[{"Conjugate", "[",
441        RowBox[{"Ut2i0", " ",
442         RowBox[{"Exp", "[",
443          RowBox[{"I", " ", "alpha"}], "]"}]}], "]"}],
444       RowBox[{"Sqrt", "[",
445        RowBox[{"1", "+", "rhoi"}], "]"}]}], " ", "+",
446      RowBox[{
447       RowBox[{"Conjugate", "[",
448        RowBox[{"Ut1i0", " ",
449         RowBox[{"Exp", "[",
450          RowBox[{
451           RowBox[{"-", "I"}], " ", "alpha"}], "]"}]}], "]"}], " ",
452       RowBox[{"Sqrt", "[",
453        RowBox[{"1", "-", "rhoi"}], "]"}]}]}], "]"}], "/",
454    RowBox[{"Sqrt", "[", "2", "]"}]}]}], ";"}]}], "Input",
455 CellChangeTimes->{{3.7126708429634542`*^9, 3.71267085594069*^9}, {
456   3.7126719181517363`*^9, 3.712672191498571*^9}, {3.712672237521976*^9,
457   3.712672276274688*^9}, {3.712672375228467*^9, 3.712672376373741*^9}, {
458   3.712685027623419*^9, 3.712685097252076*^9}, 3.712685333319643*^9, {
459   3.712918360907927*^9, 3.7129183647973146`*^9}, {3.712918404426309*^9,
460   3.712918452497957*^9}, {3.712918560699739*^9, 3.712918567245366*^9}}]
461}, Open  ]]
462},
463WindowSize->{1326, 1306},
464WindowMargins->{{301, Automatic}, {Automatic, 0}},
465FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
46621, 2016)",
467StyleDefinitions->"Default.nb"
468]
469(* End of Notebook Content *)
470
471(* Internal cache information *)
472(*CellTagsOutline
473CellTagsIndex->{}
474*)
475(*CellTagsIndex
476CellTagsIndex->{}
477*)
478(*NotebookFileOutline
479Notebook[{
480Cell[558, 20, 1644, 33, 117, "Input"],
481Cell[CellGroupData[{
482Cell[2227, 57, 122, 1, 63, "Subchapter"],
483Cell[2352, 60, 3937, 117, 516, "Input"],
484Cell[6292, 179, 703, 16, 67, "Input",
485 Evaluatable->False],
486Cell[6998, 197, 1734, 52, 75, "Input"]
487}, Open  ]],
488Cell[CellGroupData[{
489Cell[8769, 254, 107, 1, 63, "Subchapter"],
490Cell[8879, 257, 3979, 116, 516, "Input"],
491Cell[12861, 375, 612, 11, 49, "Input",
492 Evaluatable->False],
493Cell[13476, 388, 2572, 71, 75, "Input"]
494}, Open  ]]
495}
496]
497*)
498