From ef4a0fbe63ae1409e32df0734b3a07e076a42d68 Mon Sep 17 00:00:00 2001 From: EnzoMonino Date: Thu, 25 Feb 2021 16:29:30 +0100 Subject: [PATCH] Notebook --- Notebooks/sf-BSE.nb | 198 ++++++++++++++++++++++---------------------- 1 file changed, 100 insertions(+), 98 deletions(-) diff --git a/Notebooks/sf-BSE.nb b/Notebooks/sf-BSE.nb index c6eb54e..42082a3 100644 --- a/Notebooks/sf-BSE.nb +++ b/Notebooks/sf-BSE.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 744224, 13490] -NotebookOptionsPosition[ 738898, 13384] -NotebookOutlinePosition[ 739290, 13400] -CellTagsIndexPosition[ 739247, 13397] +NotebookDataLength[ 744380, 13492] +NotebookOptionsPosition[ 739054, 13386] +NotebookOutlinePosition[ 739446, 13402] +CellTagsIndexPosition[ 739403, 13399] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -37,7 +37,7 @@ Cell[BoxData[{ mhchem}\>\"", ",", "\"\<\\\\definecolor{darkgreen}{RGB}{0, 180, 0}\>\""}], "}"}]}]}], "]"}], ";"}]}], "Input", InitializationCell->True, - CellLabel->"In[1]:=",ExpressionUUID->"e3767553-7fef-4fa0-9a74-16ffdbc45182"] + CellLabel->"In[16]:=",ExpressionUUID->"e3767553-7fef-4fa0-9a74-16ffdbc45182"] }, Closed]], Cell[CellGroupData[{ @@ -103,7 +103,7 @@ Cell[BoxData[ 3.823253955355711*^9}, {3.823254003070159*^9, 3.8232540500928497`*^9}, { 3.823254137108089*^9, 3.8232541819326477`*^9}, {3.8232542995884447`*^9, 3.823254330306587*^9}, 3.823254939283544*^9}, - CellLabel->"In[10]:=",ExpressionUUID->"bda016e9-544d-4456-9dda-b9aed913691f"] + CellLabel->"In[18]:=",ExpressionUUID->"bda016e9-544d-4456-9dda-b9aed913691f"] }, Open ]], Cell[CellGroupData[{ @@ -592,7 +592,7 @@ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", - RowBox[{"5.5", ",", "7.5", ",", "11.5", ",", "17.5"}], "}"}], ",", + RowBox[{"7.5", ",", "9.5", ",", "21.5", ",", "27.5"}], "}"}], ",", "Automatic"}], "}"}]}], ",", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", @@ -636,22 +636,22 @@ Cell[BoxData[ RowBox[{"FontSize", "\[Rule]", "24"}]}], "]"}]}], "}"}]}], ",", RowBox[{"ImageSize", "\[Rule]", "700"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" -1:eJwd0mtIkwEYBeBVQ0gqTZt2McvU5ibaJF2y1nAlOk0Np7NVaKC5yjZFWbcl -RgUtMjPKpq4oRVoy5oxFsou1NM0SGtOGTFMSZTHzc4mp+SOs73w/Xp5fBw6c -N6K4Qly6lkajJZIHZ6qCN4oUhNAUsCsEVtwIioUHmqXJ8GF39hGoqqrJgVzN -Dwl05apV0Krm34FKi18j9NdMaKFjw18dHJw3GWHnhUUL9JtOfQ+jpuM+wkAi -ywnDu6KHoFmy7ILuGP0IDKtQjMNNhw0eqKM1+yAnYXQZ5jFc3gzS4DTjDJSa -rzPOo59BHAktLFYKTDvHFcKsq6pcGD6bng990hwlQdqw9O8ydLPUWsge+dMG -8yIet0O5zWKBNz3xPVBqnfgA+TL9MFxtXKXknZKMwm6GbR4m04+vwLquTP85 -0vvZdwPg5Fjxbvgz3hsD2XFhbOiULSbAHvNYEnSo6Tz46KtcQOWPdTT5SPvK -trXBQztGXsJegmGAXlOBCT6z277Be4L+7/C0s3QKWp9H039hT9nvLVDwrigK -Fq9JTYI9vAcZMLHydSZ8Neguhb1lt67AAkld6Dxp/RvRVrhX1BkG+8oT90Bt -rffEWyUhbBJvLoQLQR3lMDD2iwq6+/SaIdJkWeET2DzQ0ApblzSU7SVTOtgS -GaKH8SdbjDAq8AWlYiG/v+QiIdzu1DrgzqCz8jOk1cM2Jaw5Ko+VkboGJPug -fFLA9ZA67BweFIceTIG3RbOU4+tqObRLhLDIsH4/HGPaP81dI/+YX/8ZjmbX -q9KrCeFKpbEGKk3Mp1DNNFP+Bxv4unY= +1:eJwd0mtIkwEYBeCVQ1BK12zaxSxT8zK0SbpkreFK5jQ1nM5WooHmKpuKsm5L +jApaZGaUTl1RimQy5oxFsjnLZpolNKYNmaY4FGPmp4mp+SOs73w/Xp5fBw6c +N7igTFK0mUajccmDcxV+W8UlhNDou9cflt1isuHhJlkCfNyTfhyqKqoyIFfz +QwodmWoV7Fbz70Gl2bMBemsmtdC25W8bHFoyGmDnpRUz9JxJ+gBDZ6I/QQaR +ZodBXWHD0CRdc0BnhG4UBpaVTECfY/pZ2EZrWoSc2LE1mMVyuFNI/USGOSgz +3WRdRD+9JASaIyMToegCVwjTrqsyYdB8cjZclGUoCdK61X9XoTNSrYVRo39a +YVZwfTtUWMxmeHs2xgpl3ZMfIV+uG4EbDRuUvFzpGOxhWZZgAv3UOqzpSvVe +IH2Yft8XusYL9sGfMe4IGBUdGAXt8pVYaDWNx0Obms6DT74pBFT+ZEfjIml/ +8c5WeHT36CvYR7D00G3MMcLnvZbv8IFgYAqetRdNw+4XYfRf2FP+ezsUvM8P +hQWbkuKhlfcoBcaVv0mFr4ecRbCv+M41mCOtCVgirX0r3gEPiDsDYX9p3H6o +rXaffqckhI2SbXlwmdlRChnsryro7NdphkkT5HlPYdNgXQtsWdVQthdOt8Hm +EH8djDnTbIChjJeUJcvZA4WXCeEuu9YG9zDPK86RVo5YlLDqhIItJ3UMSg9C +hUvAnSW19XJ4UBJwJBHeFc9TTnhUc2hXCGG+3usQHA/v/bxwg/xjfu0XOJZe +q0quJITr5YYqqDSGP4PqcBOlbsrLQ0wq0o7QocGV6wU9C+t94H9fWMiF "], - CellLabel->"In[15]:=",ExpressionUUID->"c9c60a41-eaa8-4fa3-a191-72f98898a445"], + CellLabel->"In[25]:=",ExpressionUUID->"c9c60a41-eaa8-4fa3-a191-72f98898a445"], Cell[BoxData[ GraphicsBox[{{{}, {{{}, {}, @@ -661,21 +661,21 @@ Cell[BoxData[ 2.874}, {8.5, 2.111}, {10.5, 2.399}, {12.5, 2.407}, {14.5, 2.376}, { 16.5, 2.363}, {18.5, 2.369}, {20.5, 2.335}, {22.5, 2.433}, {24.5, 2.866}, {26.5, 2.864}, {28.5, 2.862}}]}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {1}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {1}}]& ], TagBox[ {RGBColor[1, 0.9, 0.8], PointSize[0.011000000000000001`], Thickness[ 0.01], LineBox[{{0.5, 3.21}, {2.5, 4.276}, {4.5, 4.554}, {6.5, 4.922}, {8.5, 6.036}, {10.5, 6.191}, {12.5, 6.199}, {14.5, 6.241}, { 16.5, 6.263}, {18.5, 6.273}, {20.5, 6.317}, {22.5, 6.255}, {24.5, 6.581}, {26.5, 6.579}, {28.5, 6.577}}]}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {2}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {2}}]& ], TagBox[ {RGBColor[1, 0.85, 0.85], PointSize[0.011000000000000001`], Thickness[ 0.01], LineBox[{{0.5, 6.691}, {2.5, 6.864}, {4.5, 7.02}, {6.5, 7.112}, {8.5, 7.48}, {10.5, 7.792}, {12.5, 7.788}, {14.5, 7.688}, { 16.5, 7.824}, {18.5, 7.82}, {20.5, 7.689}, {22.5, 7.745}, {24.5, 7.664}, {26.5, 7.659}, {28.5, 7.669}}]}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {3}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {3}}]& ], TagBox[ {RGBColor[0.94, 0.88, 0.94], PointSize[0.011000000000000001`], Thickness[0.01], @@ -683,32 +683,32 @@ Cell[BoxData[ 8.945}, {10.5, 9.373}, {12.5, 9.388}, {14.5, 9.417}, {16.5, 9.424}, {18.5, 9.441}, {20.5, 9.47}, {22.5, 9.047}, {24.5, 8.612}, { 26.5, 8.618}, {28.5, 8.624}}]}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {4}}]& ]}, { + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {4}}]& ]}, { TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {1}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {1}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {2}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {2}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {3}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {3}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {4}}]& ]}, { + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {4}}]& ]}, { TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {1}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {1}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {2}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {2}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {3}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {3}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, { + Annotation[#, {{Callout}, Charting`Private`Tag$18066, { 4}}]& ], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, { TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {1}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {1}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {2}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {2}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, {3}}]& ], + Annotation[#, {{Callout}, Charting`Private`Tag$18066, {3}}]& ], TagBox[{}, - Annotation[#, {{Callout}, Charting`Private`Tag$8723, { + Annotation[#, {{Callout}, Charting`Private`Tag$18066, { 4}}]& ], {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, \ {{{{}, {GraphicsGroupBox[{ {GrayLevel[1], AbsoluteThickness[4], Opacity[ @@ -992,7 +992,7 @@ Cell[BoxData[ 0.8777867651613411, 7.598}, {0.9163562139509611, 7.598}, { 0.954925662740581, 7.598}, {0.9742103871353909, 7.598}, { 0.9934951115302009, 7.598}, {0.9997626469585144, 7.598}}]}, - Annotation[#, "Charting`Private`Tag$9019#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18362#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], LineBox[{{2.000440038067851, 3.332}, {2.000881376499268, 3.332}, { @@ -1023,7 +1023,7 @@ Cell[BoxData[ 2.9402656055866725`, 7.762}, {2.958137445501093, 7.762}, { 2.976009285415514, 7.762}, {2.984945205372724, 7.762}, { 2.993881125329934, 7.762}, {2.9996894733021193`, 7.762}}]}, - Annotation[#, "Charting`Private`Tag$9064#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18407#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], LineBox[{{4.000240819322219, 3.186}, {4.00605125189929, 3.186}, { @@ -1062,7 +1062,7 @@ Cell[BoxData[ 4.953263414205528, 7.933}, {4.971000335657616, 7.933}, { 4.988737257109704, 7.933}, {4.997605717835748, 7.933}, { 4.999822833017266, 7.933}}]}, - Annotation[#, "Charting`Private`Tag$9109#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18452#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], LineBox[{{6.000222510409982, 2.874}, {6.004262435834693, 2.874}, { @@ -1101,7 +1101,7 @@ Cell[BoxData[ 6.779663146691705, 8.188}, {6.850071158650724, 8.188}, { 6.9204791706097435`, 8.188}, {6.955683176589253, 8.188}, { 6.990887182568763, 8.188}, {6.99968818406364, 8.188}}]}, - Annotation[#, "Charting`Private`Tag$9154#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18497#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0.5, 0, 0.5], Thickness[Large], Opacity[1.], LineBox[{{8.00033351174056, 2.111}, {8.002115542305315, 2.111}, { @@ -1140,7 +1140,7 @@ Cell[BoxData[ 8.936673459706686, 8.945}, {8.95563681290993, 8.945}, { 8.974600166113172, 8.945}, {8.984081842714794, 8.945}, { 8.993563519316414, 8.945}, {8.999726609107467, 8.945}}]}, - Annotation[#, "Charting`Private`Tag$9199#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18542#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[{{10.000419638351225`, 2.399}, {10.007051658545674`, 2.399}, { @@ -1175,7 +1175,7 @@ Cell[BoxData[ 10.969659144048805`, 9.373}, {10.978610988970281`, 9.373}, { 10.987562833891756`, 9.373}, {10.99651467881323, 9.373}, { 10.999647824535748`, 9.373}}]}, - Annotation[#, "Charting`Private`Tag$9244#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18587#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[CompressedData[" @@ -1203,7 +1203,7 @@ fzy71gtJ/4cpBzfOQPA/NVhs3foMwa9krZhbq68J5zN0bW91rUDwnX2uV66c g+C38X3P5T2I4K94z5ZhfxnBP3VBLKnwKYIffVAuvusdgv9mo1rM4u8Ivsmq Vbf0/yD4C2xFii//R/AByzKfgg== "]]}, - Annotation[#, "Charting`Private`Tag$9289#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18632#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[CompressedData[" @@ -1231,7 +1231,7 @@ GrtODoKf8P3G0wV/EHy+Pd1HRHt14fxvyxnKnLcg+Pcnl6oX3kbwb527NNnm KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 8H96FQ== "]]}, - Annotation[#, "Charting`Private`Tag$9334#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18677#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[{{16.0001049707878, 2.363}, {16.00736062988225, 2.363}, { @@ -1270,7 +1270,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 16.882062395420803`, 9.424}, {16.92005280168435, 9.424}, { 16.958043207947895`, 9.424}, {16.97703841107967, 9.424}, { 16.99603361421144, 9.424}, {16.999832654837807`, 9.424}}]}, - Annotation[#, "Charting`Private`Tag$9379#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18722#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[{{18.00031112020841, 2.369}, {18.0027128084321, 2.369}, { @@ -1305,7 +1305,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 18.9592890097721, 9.441}, {18.976871328423485`, 9.441}, { 18.985662487749178`, 9.441}, {18.99445364707487, 9.441}, { 18.999728342670284`, 9.441}}]}, - Annotation[#, "Charting`Private`Tag$9424#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18767#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[0, 0, 1], Thickness[Large], Opacity[1.], LineBox[{{20.000384158472322`, 2.335}, {20.01946274579953, 2.335}, { @@ -1328,7 +1328,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 20.114855682435554`, 9.47}, {20.399665623381928`, 9.47}, { 20.6844755643283, 9.47}, {20.838850684208055`, 9.47}, { 20.993225804087807`, 9.47}, {20.99997971558254, 9.47}}]}, - Annotation[#, "Charting`Private`Tag$9469#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18812#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], LineBox[{{22.000033317860403`, 2.433}, {22.002241530716233`, 2.433}, { @@ -1363,7 +1363,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 22.82712353233935, 9.047}, {22.903771418429894`, 9.047}, { 22.942095361475168`, 9.047}, {22.98041930452044, 9.047}, { 22.990000290281756`, 9.047}, {22.999581276043074`, 9.047}}]}, - Annotation[#, "Charting`Private`Tag$9514#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18857#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], LineBox[{{24.00000311045771, 2.866}, {24.007270713275364`, 2.866}, { @@ -1402,7 +1402,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 24.96488436071357, 8.612}, {24.973758904234693`, 8.612}, { 24.982633447755816`, 8.612}, {24.99150799127694, 8.612}, { 24.999938807622005`, 8.612}}]}, - Annotation[#, "Charting`Private`Tag$9559#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18902#1"]& ]}, {}}, {{{}, {}, TagBox[ {RGBColor[1, 0.5, 0], Thickness[Large], Opacity[1.], LineBox[{{26.000353358103357`, 2.864}, {26.00372129535403, 2.864}, { @@ -1433,7 +1433,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 26.934223511628986`, 8.618}, {26.969451848788815`, 8.618}, { 26.97825893307877, 8.618}, {26.98706601736873, 8.618}, { 26.995873101658688`, 8.618}, {26.999836289589176`, 8.618}}]}, - Annotation[#, "Charting`Private`Tag$9604#1"]& ]}, {}}, {{{}, {}, + Annotation[#, "Charting`Private`Tag$18947#1"]& ]}, {}}, {{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], LineBox[{{28.000104153850266`, 2.862}, {28.006345518783455`, 2.862}, { @@ -1452,7 +1452,7 @@ KYJ/hdOAgeM9gh+4PG7b288I/jmX3pzLPxB870e7lXb+RfAj7wT4vf2P4AMA 28.042010461258812`, 8.624}, {28.07767540373417, 8.624}, { 28.220335173635597`, 8.624}, {28.362994943537025`, 8.624}, { 28.681497175850147`, 8.624}, {28.999999408163266`, 8.624}}]}, - Annotation[#, "Charting`Private`Tag$9649#1"]& ]}, {}}}}, + Annotation[#, "Charting`Private`Tag$18992#1"]& ]}, {}}}}, AspectRatio->1, Axes->False, AxesLabel->{None, None}, @@ -4960,7 +4960,7 @@ yRg= ImageSize -> {34., 26.}, PlotRange -> {{0., 33.3}, {0., 25.9}}, AspectRatio -> Automatic}], BoxRotation -> 1.5707963267948966`], TraditionalForm]}}, None}}, - GridLines->{{5.5, 7.5, 11.5, 17.5}, Automatic}, + GridLines->{{7.5, 9.5, 21.5, 27.5}, Automatic}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{All, 140.97598229052448`}, {All, All}}, @@ -4988,8 +4988,10 @@ yRg= 3.823070785274379*^9, 3.823070797381937*^9}, {3.823254354486416*^9, 3.8232543816889677`*^9}, {3.823254478045539*^9, 3.823254518439745*^9}, { 3.82325464871436*^9, 3.823254651693581*^9}, {3.823254754771538*^9, - 3.823254758940403*^9}, 3.8232549002004833`*^9, 3.823254945519312*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"14660bd8-d8fa-47eb-8fb5-3451ea81bc31"] + 3.823254758940403*^9}, 3.8232549002004833`*^9, 3.823254945519312*^9, { + 3.823255585305252*^9, 3.823255591807581*^9}, {3.823255628843526*^9, + 3.823255669601121*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"77e1ffb2-b7fb-4f56-82fb-5660baf8faba"] }, Open ]], Cell[BoxData["`"], "Input", @@ -13401,96 +13403,96 @@ CellTagsIndex->{} Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 157, 3, 98, "Title",ExpressionUUID->"a58cb607-f85a-40df-8486-7cb7962fced4"], -Cell[740, 27, 532, 12, 110, "Input",ExpressionUUID->"e3767553-7fef-4fa0-9a74-16ffdbc45182", +Cell[740, 27, 533, 12, 110, "Input",ExpressionUUID->"e3767553-7fef-4fa0-9a74-16ffdbc45182", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[1309, 44, 154, 3, 72, "Title",ExpressionUUID->"c2471ae6-4a0d-4f45-b446-c80497d2d522"], +Cell[1310, 44, 154, 3, 72, "Title",ExpressionUUID->"c2471ae6-4a0d-4f45-b446-c80497d2d522"], Cell[CellGroupData[{ -Cell[1488, 51, 152, 3, 54, "Subsection",ExpressionUUID->"97a47048-f511-4d65-8b66-2d519dc18924"], -Cell[1643, 56, 2826, 49, 256, "Input",ExpressionUUID->"bda016e9-544d-4456-9dda-b9aed913691f", +Cell[1489, 51, 152, 3, 54, "Subsection",ExpressionUUID->"97a47048-f511-4d65-8b66-2d519dc18924"], +Cell[1644, 56, 2826, 49, 256, "Input",ExpressionUUID->"bda016e9-544d-4456-9dda-b9aed913691f", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ -Cell[4506, 110, 223, 4, 54, "Subsection",ExpressionUUID->"6f2390a8-e0fe-4093-8e1c-fa9208259819"], +Cell[4507, 110, 223, 4, 54, "Subsection",ExpressionUUID->"6f2390a8-e0fe-4093-8e1c-fa9208259819"], Cell[CellGroupData[{ -Cell[4754, 118, 2681, 43, 94, "Input",ExpressionUUID->"f0b77463-3263-4e72-93ca-cc7ef62fcf69"], -Cell[7438, 163, 4489, 98, 286, "Output",ExpressionUUID->"83230b50-63bd-47f9-be08-33a7cd2ad40d"] +Cell[4755, 118, 2681, 43, 94, "Input",ExpressionUUID->"f0b77463-3263-4e72-93ca-cc7ef62fcf69"], +Cell[7439, 163, 4489, 98, 286, "Output",ExpressionUUID->"83230b50-63bd-47f9-be08-33a7cd2ad40d"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[11976, 267, 333, 9, 42, "Subsection",ExpressionUUID->"787bec5b-a126-4507-8668-aadd4cf28dce"], +Cell[11977, 267, 333, 9, 42, "Subsection",ExpressionUUID->"787bec5b-a126-4507-8668-aadd4cf28dce"], Cell[CellGroupData[{ -Cell[12334, 280, 3754, 67, 259, "Input",ExpressionUUID->"e6884511-4872-4115-aa0f-10cc566d48ba"], -Cell[16091, 349, 3491, 74, 144, "Output",ExpressionUUID->"b12e9df2-f2d2-47c3-ab6c-4f0b81f283e6"] +Cell[12335, 280, 3754, 67, 259, "Input",ExpressionUUID->"e6884511-4872-4115-aa0f-10cc566d48ba"], +Cell[16092, 349, 3491, 74, 144, "Output",ExpressionUUID->"b12e9df2-f2d2-47c3-ab6c-4f0b81f283e6"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[19631, 429, 152, 3, 38, "Subsection",ExpressionUUID->"0bb33906-ab97-42cf-8d51-304b4f05bf1c"], -Cell[19786, 434, 3167, 59, 136, "Input",ExpressionUUID->"f9ec493e-e2b3-4244-9905-0a6766b65e4b"], +Cell[19632, 429, 152, 3, 38, "Subsection",ExpressionUUID->"0bb33906-ab97-42cf-8d51-304b4f05bf1c"], +Cell[19787, 434, 3167, 59, 136, "Input",ExpressionUUID->"f9ec493e-e2b3-4244-9905-0a6766b65e4b"], Cell[CellGroupData[{ -Cell[22978, 497, 6230, 156, 388, "Input",ExpressionUUID->"c9c60a41-eaa8-4fa3-a191-72f98898a445"], -Cell[29211, 655, 246345, 4336, 729, "Output",ExpressionUUID->"14660bd8-d8fa-47eb-8fb5-3451ea81bc31"] +Cell[22979, 497, 6254, 156, 388, "Input",ExpressionUUID->"c9c60a41-eaa8-4fa3-a191-72f98898a445"], +Cell[29236, 655, 246476, 4338, 729, "Output",ExpressionUUID->"77e1ffb2-b7fb-4f56-82fb-5660baf8faba"] }, Open ]], -Cell[275571, 4994, 129, 3, 30, "Input",ExpressionUUID->"6c844ecb-b918-4a0e-a374-4156091e743e"] +Cell[275727, 4996, 129, 3, 30, "Input",ExpressionUUID->"6c844ecb-b918-4a0e-a374-4156091e743e"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[275749, 5003, 208, 4, 98, "Title",ExpressionUUID->"a3c99434-099a-47a2-ae91-43fe2a0bd611"], +Cell[275905, 5005, 208, 4, 98, "Title",ExpressionUUID->"a3c99434-099a-47a2-ae91-43fe2a0bd611"], Cell[CellGroupData[{ -Cell[275982, 5011, 334, 9, 68, "Section",ExpressionUUID->"3582cec0-8cc0-49ee-85c7-af0c9c8802c6"], +Cell[276138, 5013, 334, 9, 68, "Section",ExpressionUUID->"3582cec0-8cc0-49ee-85c7-af0c9c8802c6"], Cell[CellGroupData[{ -Cell[276341, 5024, 152, 3, 54, "Subsection",ExpressionUUID->"ae713e00-d7b7-4f29-994a-7b982f99f62c"], -Cell[276496, 5029, 1619, 30, 125, "Input",ExpressionUUID->"65b4ca92-5fd9-4a50-aced-2bc20fc7a9f7"] +Cell[276497, 5026, 152, 3, 54, "Subsection",ExpressionUUID->"ae713e00-d7b7-4f29-994a-7b982f99f62c"], +Cell[276652, 5031, 1619, 30, 125, "Input",ExpressionUUID->"65b4ca92-5fd9-4a50-aced-2bc20fc7a9f7"] }, Open ]], Cell[CellGroupData[{ -Cell[278152, 5064, 271, 4, 54, "Subsection",ExpressionUUID->"d3ca108c-cab7-4f9f-8432-94cce9b429dc"], +Cell[278308, 5066, 271, 4, 54, "Subsection",ExpressionUUID->"d3ca108c-cab7-4f9f-8432-94cce9b429dc"], Cell[CellGroupData[{ -Cell[278448, 5072, 3074, 49, 115, "Input",ExpressionUUID->"0bec3fce-e90f-4c21-b2c1-3c7b4c7cf7cb"], -Cell[281525, 5123, 4501, 99, 258, "Output",ExpressionUUID->"eebb0b98-fa88-45f9-b4b5-212740a31915"] +Cell[278604, 5074, 3074, 49, 115, "Input",ExpressionUUID->"0bec3fce-e90f-4c21-b2c1-3c7b4c7cf7cb"], +Cell[281681, 5125, 4501, 99, 258, "Output",ExpressionUUID->"eebb0b98-fa88-45f9-b4b5-212740a31915"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[286075, 5228, 152, 3, 54, "Subsection",ExpressionUUID->"7f0c8ab8-6064-4aad-839b-aeabb7abaa47"], -Cell[286230, 5233, 3041, 56, 136, "Input",ExpressionUUID->"29710274-cf15-4806-b545-9188daf4d541"], +Cell[286231, 5230, 152, 3, 54, "Subsection",ExpressionUUID->"7f0c8ab8-6064-4aad-839b-aeabb7abaa47"], +Cell[286386, 5235, 3041, 56, 136, "Input",ExpressionUUID->"29710274-cf15-4806-b545-9188daf4d541"], Cell[CellGroupData[{ -Cell[289296, 5293, 8339, 183, 409, "Input",ExpressionUUID->"c7a92e78-4c4f-4ac9-a443-6c996f3e6f37"], -Cell[297638, 5478, 208539, 3682, 704, "Output",ExpressionUUID->"130110e8-4680-44a4-9dc8-61ea6c5aea48"] +Cell[289452, 5295, 8339, 183, 409, "Input",ExpressionUUID->"c7a92e78-4c4f-4ac9-a443-6c996f3e6f37"], +Cell[297794, 5480, 208539, 3682, 704, "Output",ExpressionUUID->"130110e8-4680-44a4-9dc8-61ea6c5aea48"] }, Open ]], -Cell[506192, 9163, 129, 3, 30, "Input",ExpressionUUID->"30b01a55-6036-4348-b3d7-59a7dbd343c6"] +Cell[506348, 9165, 129, 3, 30, "Input",ExpressionUUID->"30b01a55-6036-4348-b3d7-59a7dbd343c6"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[506370, 9172, 383, 10, 68, "Section",ExpressionUUID->"4d381939-f1c2-4239-aebd-1c56ef911004"], +Cell[506526, 9174, 383, 10, 68, "Section",ExpressionUUID->"4d381939-f1c2-4239-aebd-1c56ef911004"], Cell[CellGroupData[{ -Cell[506778, 9186, 152, 3, 54, "Subsection",ExpressionUUID->"4173814e-8f40-436f-aa37-fa4e9a83ebf3"], -Cell[506933, 9191, 1813, 34, 125, "Input",ExpressionUUID->"8c4d20d8-cd5c-470d-b1c0-1b195896be2e"] +Cell[506934, 9188, 152, 3, 54, "Subsection",ExpressionUUID->"4173814e-8f40-436f-aa37-fa4e9a83ebf3"], +Cell[507089, 9193, 1813, 34, 125, "Input",ExpressionUUID->"8c4d20d8-cd5c-470d-b1c0-1b195896be2e"] }, Open ]], Cell[CellGroupData[{ -Cell[508783, 9230, 271, 4, 54, "Subsection",ExpressionUUID->"b92d4152-88fc-4a15-885d-9c53f607c431"], +Cell[508939, 9232, 271, 4, 54, "Subsection",ExpressionUUID->"b92d4152-88fc-4a15-885d-9c53f607c431"], Cell[CellGroupData[{ -Cell[509079, 9238, 3075, 49, 115, "Input",ExpressionUUID->"06693319-f83f-4d2a-87db-bd4127a295f6"], -Cell[512157, 9289, 4584, 101, 258, "Output",ExpressionUUID->"6a2c6d58-dc30-4017-a81c-8805d13419bb"] +Cell[509235, 9240, 3075, 49, 115, "Input",ExpressionUUID->"06693319-f83f-4d2a-87db-bd4127a295f6"], +Cell[512313, 9291, 4584, 101, 258, "Output",ExpressionUUID->"6a2c6d58-dc30-4017-a81c-8805d13419bb"] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[516790, 9396, 152, 3, 54, "Subsection",ExpressionUUID->"950ca885-5a84-4caa-83a3-84eb506f39fa"], -Cell[516945, 9401, 3097, 57, 136, "Input",ExpressionUUID->"aeac8ccc-a308-4b9c-a5cb-691a78092e93"], +Cell[516946, 9398, 152, 3, 54, "Subsection",ExpressionUUID->"950ca885-5a84-4caa-83a3-84eb506f39fa"], +Cell[517101, 9403, 3097, 57, 136, "Input",ExpressionUUID->"aeac8ccc-a308-4b9c-a5cb-691a78092e93"], Cell[CellGroupData[{ -Cell[520067, 9462, 8257, 183, 409, "Input",ExpressionUUID->"bc0a04ab-bbe5-40d6-927a-42e602d61c66"], -Cell[528327, 9647, 208391, 3679, 688, "Output",ExpressionUUID->"8260183b-bbb0-4e59-a0ec-8dd2e6cfb41a"] +Cell[520223, 9464, 8257, 183, 409, "Input",ExpressionUUID->"bc0a04ab-bbe5-40d6-927a-42e602d61c66"], +Cell[528483, 9649, 208391, 3679, 688, "Output",ExpressionUUID->"8260183b-bbb0-4e59-a0ec-8dd2e6cfb41a"] }, Open ]], -Cell[736733, 13329, 129, 3, 30, "Input",ExpressionUUID->"5c420dc0-ad3b-4845-96f6-c4f3ffcd5cd0"] +Cell[736889, 13331, 129, 3, 30, "Input",ExpressionUUID->"5c420dc0-ad3b-4845-96f6-c4f3ffcd5cd0"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[736923, 13339, 226, 4, 98, "Title",ExpressionUUID->"7d6da36e-1042-45d4-b7b5-f5cf571cf705"], -Cell[737152, 13345, 757, 13, 52, "Input",ExpressionUUID->"61b34d8b-17fa-4278-b0b6-f87c9aa8e262"] +Cell[737079, 13341, 226, 4, 98, "Title",ExpressionUUID->"7d6da36e-1042-45d4-b7b5-f5cf571cf705"], +Cell[737308, 13347, 757, 13, 52, "Input",ExpressionUUID->"61b34d8b-17fa-4278-b0b6-f87c9aa8e262"] }, Closed]], Cell[CellGroupData[{ -Cell[737946, 13363, 231, 4, 72, "Title",ExpressionUUID->"4693a1f0-50ab-4b57-bedf-6481eb9aebe4"], -Cell[738180, 13369, 702, 12, 30, "Input",ExpressionUUID->"4cd3d45f-abb7-4dd2-a4db-8145d745d041"] +Cell[738102, 13365, 231, 4, 72, "Title",ExpressionUUID->"4693a1f0-50ab-4b57-bedf-6481eb9aebe4"], +Cell[738336, 13371, 702, 12, 30, "Input",ExpressionUUID->"4cd3d45f-abb7-4dd2-a4db-8145d745d041"] }, Closed]] } ]