diff --git a/Notebooks/eDFT_FUEG.nb b/Notebooks/eDFT_FUEG.nb index f2d2111..e70b249 100644 --- a/Notebooks/eDFT_FUEG.nb +++ b/Notebooks/eDFT_FUEG.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 6538983, 148400] -NotebookOptionsPosition[ 6396304, 146078] -NotebookOutlinePosition[ 6396711, 146096] -CellTagsIndexPosition[ 6396668, 146093] +NotebookDataLength[ 6509130, 147521] +NotebookOptionsPosition[ 6369657, 145243] +NotebookOutlinePosition[ 6370064, 145261] +CellTagsIndexPosition[ 6370021, 145258] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -10141,1141 +10141,6 @@ Cell["HF energies", "Subsection", 3.7418858958536043`*^9}},ExpressionUUID->"e947760e-6b08-4f19-a607-\ c501d26f4129"], -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "0"], "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - RowBox[{ - FractionBox["1", - SqrtBox[ - RowBox[{"4", "\[Pi]"}]]], - SqrtBox[ - FractionBox["2", "\[Pi]"]], - RowBox[{"Sin", "[", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"], "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "1"], "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - RowBox[{ - FractionBox["1", - SqrtBox[ - RowBox[{"4", "\[Pi]"}]]], - SqrtBox[ - FractionBox["2", "\[Pi]"]], - RowBox[{"Sin", "[", - RowBox[{"2", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"]}], "]"}]}]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "2"], "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - RowBox[{ - FractionBox["1", - SqrtBox[ - RowBox[{"4", "\[Pi]"}]]], - SqrtBox[ - FractionBox["2", "\[Pi]"]], - RowBox[{"Sin", "[", - RowBox[{"3", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"]}], "]"}]}]}], - ";"}]}], "Input", - CellChangeTimes->{{3.769487520391271*^9, 3.769487543126552*^9}, { - 3.769487636951642*^9, 3.769487642206093*^9}, {3.76948848187263*^9, - 3.769488487592169*^9}, {3.7694885392496843`*^9, 3.769488545215719*^9}}, - CellLabel-> - "In[193]:=",ExpressionUUID->"46bb3386-ba05-4560-acd3-c1b203c2f806"], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "0"], "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}], "\[IndentingNewLine]", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "1"], "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}], "\[IndentingNewLine]", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "2"], "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}]}], "Input", - CellChangeTimes->{{3.769487601183551*^9, 3.76948764378391*^9}, { - 3.769488491248967*^9, 3.769488494631939*^9}, {3.769488749248886*^9, - 3.769488752373724*^9}}, - CellLabel-> - "In[196]:=",ExpressionUUID->"27704883-771d-477c-9681-a3e86cee78da"], - -Cell[BoxData["1"], "Output", - CellChangeTimes->{{3.7694876139185457`*^9, 3.7694876443476887`*^9}, - 3.769487836853199*^9, 3.76948849562041*^9, {3.7694887534520607`*^9, - 3.7694887579467287`*^9}}, - CellLabel-> - "Out[196]=",ExpressionUUID->"b5092f4e-557e-430d-9329-0152a09cccfa"], - -Cell[BoxData["1"], "Output", - CellChangeTimes->{{3.7694876139185457`*^9, 3.7694876443476887`*^9}, - 3.769487836853199*^9, 3.76948849562041*^9, {3.7694887534520607`*^9, - 3.7694887581990833`*^9}}, - CellLabel-> - "Out[197]=",ExpressionUUID->"6efdf3dd-6c79-445d-b6b8-3ea2a51fcc6c"], - -Cell[BoxData["1"], "Output", - CellChangeTimes->{{3.7694876139185457`*^9, 3.7694876443476887`*^9}, - 3.769487836853199*^9, 3.76948849562041*^9, {3.7694887534520607`*^9, - 3.7694887588559227`*^9}}, - CellLabel-> - "Out[198]=",ExpressionUUID->"400ec742-485f-41e7-9f96-32ce0287c3a4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "0"], "[", - RowBox[{"\[Theta]1", ",", "\[Omega]"}], "]"}], - RowBox[{ - SubscriptBox["\[CapitalPsi]", "0"], "[", - RowBox[{"\[Theta]2", ",", "\[Omega]"}], "]"}], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], "\[IndentingNewLine]", - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "1"], "[", - RowBox[{"\[Theta]1", ",", "\[Omega]"}], "]"}], - RowBox[{ - SubscriptBox["\[CapitalPsi]", "1"], "[", - RowBox[{"\[Theta]2", ",", "\[Omega]"}], "]"}], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], "\[IndentingNewLine]", - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "2"], "[", - RowBox[{"\[Theta]1", ",", "\[Omega]"}], "]"}], - RowBox[{ - SubscriptBox["\[CapitalPsi]", "2"], "[", - RowBox[{"\[Theta]2", ",", "\[Omega]"}], "]"}], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}]}], "Input", - CellChangeTimes->{{3.769487505858506*^9, 3.769487512505097*^9}, { - 3.7694875562222652`*^9, 3.7694875903027287`*^9}, {3.7694876651908817`*^9, - 3.769487752644912*^9}, {3.769487788342437*^9, 3.769487816796432*^9}, { - 3.769488765894924*^9, 3.7694887720295057`*^9}}, - CellLabel-> - "In[199]:=",ExpressionUUID->"ccf80901-dd3a-4723-8165-e26a50b0c06f"], - -Cell[BoxData[ - FractionBox[ - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"], "]"}], "\[Pi]"]], "Output",\ - - CellChangeTimes->{{3.7694877938661823`*^9, 3.7694878019838123`*^9}, - 3.769487837310566*^9, 3.769488773053383*^9}, - CellLabel-> - "Out[199]=",ExpressionUUID->"b9e4a9b5-8314-400b-ae0e-995e993aef1b"], - -Cell[BoxData[ - FractionBox[ - RowBox[{"Cos", "[", - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "]"}], "\[Pi]"]], "Output", - CellChangeTimes->{{3.7694877938661823`*^9, 3.7694878019838123`*^9}, - 3.769487837310566*^9, 3.7694887732876167`*^9}, - CellLabel-> - "Out[200]=",ExpressionUUID->"caa550cb-a694-4c53-92cd-dd04cdc7e682"], - -Cell[BoxData[ - FractionBox[ - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"3", " ", - RowBox[{"(", - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], ")"}]}], "2"], "]"}], - "\[Pi]"]], "Output", - CellChangeTimes->{{3.7694877938661823`*^9, 3.7694878019838123`*^9}, - 3.769487837310566*^9, 3.769488774275104*^9}, - CellLabel-> - "Out[201]=",ExpressionUUID->"7c0a5322-4abb-4291-a3f2-13fde5a74170"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "0"], "[", - RowBox[{"\[Theta]", ",", "\[Omega]"}], "]"}], "2"], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], "\[IndentingNewLine]", - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "1"], "[", - RowBox[{"\[Theta]", ",", "\[Omega]"}], "]"}], "2"], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], "\[IndentingNewLine]", - RowBox[{"2", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SuperscriptBox[ - RowBox[{ - SubscriptBox["\[CapitalPsi]", "2"], "[", - RowBox[{"\[Theta]", ",", "\[Omega]"}], "]"}], "2"], - RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}]}], "Input", - CellChangeTimes->{{3.7694882373701963`*^9, 3.7694882413612947`*^9}, { - 3.769489027653623*^9, 3.769489031219928*^9}}, - CellLabel-> - "In[214]:=",ExpressionUUID->"97b9ca01-cd1b-4525-a1fa-6be35f18e65f"], - -Cell[BoxData[ - FractionBox["1", "\[Pi]"]], "Output", - CellChangeTimes->{3.769488244805326*^9, 3.7694890326189404`*^9}, - CellLabel-> - "Out[214]=",ExpressionUUID->"c0fbef86-c8f3-4070-be01-1167a049525e"], - -Cell[BoxData[ - FractionBox["1", "\[Pi]"]], "Output", - CellChangeTimes->{3.769488244805326*^9, 3.769489032821226*^9}, - CellLabel-> - "Out[215]=",ExpressionUUID->"cb477be6-d28c-4479-b79b-bfd9fcd5abe1"], - -Cell[BoxData[ - FractionBox["1", "\[Pi]"]], "Output", - CellChangeTimes->{3.769488244805326*^9, 3.769489033234047*^9}, - CellLabel-> - "Out[216]=",ExpressionUUID->"2935da9c-f14f-45d2-bc66-f3d09d9641c4"] -}, Open ]], - -Cell["", "Text", - CellChangeTimes->{{3.7694900030679283`*^9, - 3.769490003861184*^9}},ExpressionUUID->"a9f8918b-23e4-4993-b9fc-\ -ece8e0984123"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.769488305178928*^9, 3.76948831495147*^9}, { - 3.769489949774879*^9, 3.76948995400519*^9}, - 3.7694899984867487`*^9},ExpressionUUID->"838248dc-cd2a-4e98-aad1-\ -0ee2ca24df6f"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{ - RowBox[{"n0", "[", "\[Theta]_", "]"}], "=", - FractionBox["1", "\[Pi]"]}], ";", "\t", - RowBox[{ - RowBox[{"n1", "[", "\[Theta]_", "]"}], "=", - FractionBox["1", "\[Pi]"]}], ";", "\t", - RowBox[{ - RowBox[{"n2", "[", "\[Theta]_", "]"}], "=", - FractionBox["1", "\[Pi]"]}], ";", "\t", - RowBox[{ - RowBox[{"n", "[", "\[Theta]_", "]"}], "=", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"1", "-", - SubscriptBox["w", "1"], "-", - SubscriptBox["w", "2"]}], ")"}], - RowBox[{"n0", "[", "\[Theta]", "]"}]}], "+", - RowBox[{ - SubscriptBox["w", "1"], - RowBox[{"n1", "[", "\[Theta]", "]"}]}], "+", - RowBox[{ - SubscriptBox["w", "2"], - RowBox[{"n2", "[", "\[Theta]", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Gamma]0", "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - FractionBox[ - RowBox[{"Cos", "[", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"], "]"}], "\[Pi]"]}], ";", - "\t", - RowBox[{ - RowBox[{"\[Gamma]1", "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - FractionBox[ - RowBox[{"Cos", "[", - RowBox[{"2", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"]}], "]"}], "\[Pi]"]}], - ";", "\t", - RowBox[{ - RowBox[{"\[Gamma]2", "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - FractionBox[ - RowBox[{"Cos", "[", - RowBox[{"3", - FractionBox[ - RowBox[{"\[Theta]1", "-", "\[Theta]2"}], "2"]}], "]"}], "\[Pi]"]}], - ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"\[Gamma]", "[", - RowBox[{"\[Theta]1_", ",", "\[Theta]2_"}], "]"}], "=", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"1", "-", - SubscriptBox["w", "1"], "-", - SubscriptBox["w", "2"]}], ")"}], - RowBox[{"\[Gamma]0", "[", - RowBox[{"\[Theta]1", ",", "\[Theta]2"}], "]"}]}], "+", - RowBox[{ - SubscriptBox["w", "1"], - RowBox[{"\[Gamma]1", "[", - RowBox[{"\[Theta]1", ",", "\[Theta]2"}], "]"}]}], "+", - RowBox[{ - SubscriptBox["w", "2"], - RowBox[{"\[Gamma]2", "[", - RowBox[{"\[Theta]1", ",", "\[Theta]2"}], "]"}]}]}]}], ";"}]}], "Input", - CellChangeTimes->{{3.769487841060305*^9, 3.769487849300188*^9}, { - 3.769488781010674*^9, 3.7694887924532948`*^9}, {3.7694899629183197`*^9, - 3.769490037669353*^9}, {3.769490412106513*^9, 3.769490416905061*^9}, - 3.7694917747215023`*^9, {3.769491811033239*^9, 3.76949181554524*^9}}, - CellLabel->"In[30]:=",ExpressionUUID->"6a8ad2b0-75dc-4b02-beb2-ab231f96fdc4"], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"c", "=", - RowBox[{"FullSimplify", "[", - RowBox[{ - RowBox[{"CoefficientRules", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}], "//", - "Expand"}], ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", - SubscriptBox["w", "2"]}], "}"}]}], "]"}], "//", "TrigToExp"}], - "]"}]}], "\[IndentingNewLine]", - RowBox[{"i", "=", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - FractionBox[ - RowBox[{"c", "\[LeftDoubleBracket]", - RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], - RowBox[{"2", - SqrtBox[ - RowBox[{"2", "-", - RowBox[{"2", - RowBox[{"Cos", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}]}]}]]}]], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}]}]}], "Input", - CellChangeTimes->{3.7695050252698507`*^9}, - CellLabel->"In[35]:=",ExpressionUUID->"f4c8b50f-81d8-4025-ad3f-02ad8eb6f559"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.7695050317419977`*^9, 3.769505105467114*^9}, - CellLabel->"Out[35]=",ExpressionUUID->"e958b448-cd2f-4dbd-a13b-2710417c11e3"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.7695050317419977`*^9, 3.769505105990673*^9}, - CellLabel->"Out[36]=",ExpressionUUID->"1998f3bb-5c6c-4be0-891b-5b2753cdf5a5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"c", "=", - RowBox[{"FullSimplify", "[", - RowBox[{ - RowBox[{"CoefficientRules", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{"1", "-", - SubscriptBox["w", "1"], "-", - SubscriptBox["w", "2"]}], ")"}], - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n0", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n0", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]0", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}]}], "+", - RowBox[{ - SubscriptBox["w", "1"], - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n1", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n1", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]1", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}]}], "+", - RowBox[{ - SubscriptBox["w", "2"], - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n2", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n2", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]2", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}]}], "-", - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}]}], "//", - "Expand"}], ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", - SubscriptBox["w", "2"]}], "}"}]}], "]"}], "//", "TrigToExp"}], - "]"}]}], "\[IndentingNewLine]", - RowBox[{"i", "=", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - FractionBox[ - RowBox[{"c", "\[LeftDoubleBracket]", - RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], - RowBox[{"2", - SqrtBox[ - RowBox[{"2", "-", - RowBox[{"2", - RowBox[{"Cos", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}]}]}]]}]], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}]}]}], "Input", - CellChangeTimes->{{3.769490124389062*^9, 3.769490150020693*^9}, { - 3.76949037415504*^9, 3.7694904258731327`*^9}, {3.769490481474712*^9, - 3.769490483403872*^9}, {3.769490591745728*^9, 3.769490684935643*^9}, { - 3.7694908055432653`*^9, 3.769490902958572*^9}, {3.769491009423455*^9, - 3.7694910097739677`*^9}, {3.769491154558282*^9, 3.769491156639367*^9}, { - 3.769491374323839*^9, 3.769491396266871*^9}, {3.7694915984185877`*^9, - 3.769491635144186*^9}, {3.7694917717623997`*^9, 3.769491786751161*^9}, { - 3.76949183157804*^9, 3.769491860254149*^9}}, - CellLabel-> - "In[104]:=",ExpressionUUID->"ccc0dab5-d7d9-401e-b4cf-738eb78ac738"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{"2", " ", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}]}]}], ")"}], - "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "4"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "4"]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"1", "-", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["3", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "-", - RowBox[{"Cos", "[", - RowBox[{"2", " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "+", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["5", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", - RowBox[{"-", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{"2", " ", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}]}]}], ")"}], - "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "4"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "4"]}], - SuperscriptBox["\[Pi]", "2"]]}]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", - RowBox[{"-", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], - SuperscriptBox["\[Pi]", "2"]]}]}]}], "}"}]], "Output", - CellChangeTimes->{{3.769490388060306*^9, 3.769490395183979*^9}, - 3.769490426531443*^9, 3.769490485602947*^9, {3.7694906087753553`*^9, - 3.769490660739275*^9}, {3.769490809289139*^9, 3.769490847272544*^9}, - 3.7694909037012157`*^9, 3.769491010238949*^9, {3.769491158499928*^9, - 3.769491172544322*^9}, {3.7694913791486197`*^9, 3.7694913988250637`*^9}, { - 3.769491619778906*^9, 3.769491636360585*^9}, {3.7694917790382*^9, - 3.7694917880133257`*^9}, 3.769491820667927*^9, 3.76949186291149*^9}, - CellLabel-> - "Out[104]=",ExpressionUUID->"4ae30424-61b6-4178-b3df-25af1fc1b08d"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], - RowBox[{"3", " ", "\[Pi]"}]], ",", - FractionBox["13", - RowBox[{"3", " ", "\[Pi]"}]], ",", - FractionBox[ - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], - RowBox[{"3", " ", "\[Pi]"}]], ",", - FractionBox["64", - RowBox[{"15", " ", "\[Pi]"}]], ",", - RowBox[{"-", - FractionBox["64", - RowBox[{"15", " ", "\[Pi]"}]]}]}], "}"}]], "Input", - CellChangeTimes->{3.769505000956934*^9}, - CellLabel-> - "Out[105]=",ExpressionUUID->"f86bdcb2-9d91-4ec9-bb03-7a4c6267c52e"], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"d", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{ - RowBox[{"c", "\[LeftDoubleBracket]", - RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{"{", - RowBox[{"k", ",", - RowBox[{"Length", "[", "c", "]"}]}], "}"}]}], - "]"}]}], "\[IndentingNewLine]", - RowBox[{"FromCoefficientRules", "[", - RowBox[{"d", ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", - SubscriptBox["w", "2"]}], "}"}]}], "]"}]}], "Input", - CellChangeTimes->{{3.769490908136529*^9, 3.7694909912126837`*^9}, - 3.7694918848407907`*^9}, - CellLabel-> - "In[106]:=",ExpressionUUID->"e6754755-5a1e-4c98-bfce-730a65c10947"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], - RowBox[{"3", " ", "\[Pi]"}]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", - FractionBox["13", - RowBox[{"3", " ", "\[Pi]"}]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], - RowBox[{"3", " ", "\[Pi]"}]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", - FractionBox["64", - RowBox[{"15", " ", "\[Pi]"}]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", - RowBox[{"-", - FractionBox["64", - RowBox[{"15", " ", "\[Pi]"}]]}]}]}], "}"}]], "Output", - CellChangeTimes->{{3.769490951199987*^9, 3.769490991903878*^9}, - 3.7694924416266747`*^9}, - CellLabel-> - "Out[106]=",ExpressionUUID->"3b435fde-7a02-4014-a4c6-877a9f4f1d74"], - -Cell[BoxData[ - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], ")"}], " ", - SubscriptBox["w", "1"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], ")"}], " ", - SubsuperscriptBox["w", "1", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "-", - FractionBox[ - RowBox[{"64", " ", - SubscriptBox["w", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"13", " ", - SubscriptBox["w", "1"], " ", - SubscriptBox["w", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]]}]], "Output", - CellChangeTimes->{{3.769490951199987*^9, 3.769490991903878*^9}, - 3.769492441629703*^9}, - CellLabel-> - "Out[107]=",ExpressionUUID->"03e1c29d-60f4-4014-a4a5-c929b874e816"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], ")"}], " ", - SubscriptBox["w", "1"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], ")"}], " ", - SubsuperscriptBox["w", "1", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "-", - FractionBox[ - RowBox[{"64", " ", - SubscriptBox["w", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"13", " ", - SubscriptBox["w", "1"], " ", - SubscriptBox["w", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]]}], "/.", - RowBox[{"{", - RowBox[{ - RowBox[{ - SubscriptBox["w", "1"], "\[Rule]", - RowBox[{"1", "/", "3"}]}], ",", - RowBox[{ - SubscriptBox["w", "2"], "\[Rule]", - RowBox[{"1", "/", "3"}]}]}], "}"}]}]], "Input", - CellChangeTimes->{{3.7694931321727962`*^9, 3.7694931393488913`*^9}}, - CellLabel-> - "In[112]:=",ExpressionUUID->"10555256-c397-4a51-bd1c-6a051e3f0bce"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"-", - FractionBox["7", - RowBox[{"15", " ", "\[Pi]"}]]}], "+", - FractionBox[ - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], - RowBox[{"9", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], - RowBox[{"27", " ", "\[Pi]"}]]}]], "Output", - CellChangeTimes->{3.769493140325872*^9}, - CellLabel-> - "Out[112]=",ExpressionUUID->"3374cba0-b301-4dcc-831b-ecc4a93e3113"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[{ - RowBox[{"c", "=", - RowBox[{"FullSimplify", "[", - RowBox[{ - RowBox[{"CoefficientRules", "[", - RowBox[{ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{ - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "1"], "]"}], - RowBox[{"n", "[", - SubscriptBox["\[Theta]", "2"], "]"}]}], "-", - SuperscriptBox[ - RowBox[{"\[Gamma]", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], ",", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], ")"}], "//", - "Expand"}], ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", - SubscriptBox["w", "2"]}], "}"}]}], "]"}], "//", "TrigToExp"}], - "]"}]}], "\[IndentingNewLine]", - RowBox[{"i", "=", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", - RowBox[{"2", "\[Pi]"}]], - RowBox[{ - FractionBox[ - RowBox[{"c", "\[LeftDoubleBracket]", - RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], - RowBox[{"2", - SqrtBox[ - RowBox[{"2", "-", - RowBox[{"2", - RowBox[{"Cos", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}]}]}]]}]], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "1"]}], - RowBox[{"\[DifferentialD]", - SubscriptBox["\[Theta]", "2"]}]}]}]}]}], "\[IndentingNewLine]", - RowBox[{"d", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{ - RowBox[{"c", "\[LeftDoubleBracket]", - RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{"{", - RowBox[{"k", ",", - RowBox[{"Length", "[", "c", "]"}]}], "}"}]}], - "]"}]}], "\[IndentingNewLine]", - RowBox[{"FromCoefficientRules", "[", - RowBox[{"d", ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", - SubscriptBox["w", "2"]}], "}"}]}], "]"}]}], "Input", - CellChangeTimes->{{3.7694979387695303`*^9, 3.769497947756534*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"616e6e89-3fa5-4f5b-9536-0510580cd7bd"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", - RowBox[{"-", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{"2", " ", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}]}]}], ")"}], - "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "4"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "4"]}], - SuperscriptBox["\[Pi]", "2"]]}]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{ - RowBox[{"-", "1"}], "+", - RowBox[{"Cos", "[", - RowBox[{ - RowBox[{"2", " ", - SubscriptBox["\[Theta]", "1"]}], "-", - RowBox[{"2", " ", - SubscriptBox["\[Theta]", "2"]}]}], "]"}], "+", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["3", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "-", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["5", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"4", " ", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{"Cos", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "+", - RowBox[{"Cos", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}]}], ")"}], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "4"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "2"]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", - RowBox[{"-", - FractionBox[ - RowBox[{"4", " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "2"], " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], - SuperscriptBox["\[Pi]", "2"]]}]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", - FractionBox[ - RowBox[{"2", " ", - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], "]"}], "2"]}], - SuperscriptBox["\[Pi]", "2"]]}], ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", - FractionBox[ - SuperscriptBox[ - RowBox[{"Sin", "[", - RowBox[{ - FractionBox["1", "2"], " ", - RowBox[{"(", - RowBox[{ - SubscriptBox["\[Theta]", "1"], "-", - SubscriptBox["\[Theta]", "2"]}], ")"}]}], "]"}], "2"], - SuperscriptBox["\[Pi]", "2"]]}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.769497953944927*^9, {3.7695043082454443`*^9, 3.769504325265749*^9}, - 3.76950436377281*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"c7231869-0a91-4a8e-9d20-a4bde72962c7"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.769497953944927*^9, {3.7695043082454443`*^9, 3.769504325265749*^9}, - 3.769504999749929*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"2dd0b587-c27c-4a43-b2b7-fd48e88042db"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{ - RowBox[{"{", - RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}]}], - ",", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", - RowBox[{"i", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}]}]}], - "}"}]], "Output", - CellChangeTimes->{ - 3.769497953944927*^9, {3.7695043082454443`*^9, 3.769504325265749*^9}, - 3.7695049997740803`*^9}, - CellLabel->"Out[25]=",ExpressionUUID->"d7bed513-6b47-4534-8f60-f5c6f9c6f350"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}], "+", - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], " ", - SubscriptBox["w", "1"]}], "+", - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], " ", - SubsuperscriptBox["w", "1", "2"]}], "+", - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], " ", - SubscriptBox["w", "2"]}], "+", - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], " ", - SubscriptBox["w", "1"], " ", - SubscriptBox["w", "2"]}], "+", - RowBox[{ - RowBox[{"i", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}], " ", - SubsuperscriptBox["w", "2", "2"]}]}]], "Output", - CellChangeTimes->{ - 3.769497953944927*^9, {3.7695043082454443`*^9, 3.769504325265749*^9}, - 3.769504999777061*^9}, - CellLabel->"Out[26]=",ExpressionUUID->"2fb6c1a7-e918-428e-928d-41eb8c58aa1d"] -}, Open ]], - Cell["The ground state HF energy is ", "Text", CellChangeTimes->{{3.7418825714818583`*^9, 3.74188258165882*^9}, { 3.741883974751066*^9, 3.741883974959147*^9}, {3.741885899101284*^9, @@ -24399,7 +23264,785 @@ lbV4rg7nP4oQ337xgSqcD7ZPTMWBEWjcTb9EB3B0BSs5WGw5UbZPGeqfN3IO CellLabel-> "Out[129]=",ExpressionUUID->"22c0782e-ebc2-4690-8901-147ca90f890a"] }, Open ]] -}, Closed]] +}, Closed]], + +Cell[CellGroupData[{ + +Cell["GIC functional", "Subsection", + CellChangeTimes->{{3.7701320565151997`*^9, + 3.770132066069092*^9}},ExpressionUUID->"81501860-e831-46c8-add0-\ +cd5165dd0fdc"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "0"], "[", "\[Omega]_", "]"}], "=", + RowBox[{ + SqrtBox[ + FractionBox["2", "\[Pi]"]], + RowBox[{"Sin", "[", + FractionBox["\[Omega]", "2"], "]"}]}]}], ",", + RowBox[{ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "1"], "[", "\[Omega]_", "]"}], "=", + RowBox[{ + SqrtBox[ + FractionBox["2", "\[Pi]"]], + RowBox[{"Sin", "[", + RowBox[{"2", + FractionBox["\[Omega]", "2"]}], "]"}]}]}], ",", + RowBox[{ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "2"], "[", "\[Omega]_", "]"}], "=", + RowBox[{ + SqrtBox[ + FractionBox["2", "\[Pi]"]], + RowBox[{"Sin", "[", + RowBox[{"3", + FractionBox["\[Omega]", "2"]}], "]"}]}]}]}], "}"}], ";"}]], "Input", + CellChangeTimes->{{3.769487520391271*^9, 3.769487543126552*^9}, { + 3.769487636951642*^9, 3.769487642206093*^9}, {3.76948848187263*^9, + 3.769488487592169*^9}, {3.7694885392496843`*^9, 3.769488545215719*^9}, { + 3.770132082432905*^9, 3.770132089154941*^9}, {3.7701321523776827`*^9, + 3.77013216366247*^9}, {3.7701322242734213`*^9, 3.770132275665821*^9}}, + CellLabel-> + "In[381]:=",ExpressionUUID->"46bb3386-ba05-4560-acd3-c1b203c2f806"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + SuperscriptBox[ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "0"], "[", "\[Omega]", "]"}], "2"], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}], ",", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + SuperscriptBox[ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "1"], "[", "\[Omega]", "]"}], "2"], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}], ",", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + SuperscriptBox[ + RowBox[{ + SubscriptBox["\[CapitalPsi]", "2"], "[", "\[Omega]", "]"}], "2"], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], "}"}]], "Input", + CellChangeTimes->{{3.770132247838826*^9, 3.770132265129616*^9}}, + CellLabel-> + "In[382]:=",ExpressionUUID->"4c2d8ad1-09be-4033-bb59-802c26e7a13c"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{"1", ",", "1", ",", "1"}], "}"}]], "Output", + CellChangeTimes->{{3.770132269016554*^9, 3.770132277212775*^9}}, + CellLabel-> + "Out[382]=",ExpressionUUID->"375c3a01-facf-49d9-88d8-7914422bdce1"] +}, Open ]], + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"n0", "[", "\[Theta]_", "]"}], "=", + FractionBox["1", "\[Pi]"]}], ";", "\t", + RowBox[{ + RowBox[{"n1", "[", "\[Theta]_", "]"}], "=", + FractionBox["1", "\[Pi]"]}], ";", "\t", + RowBox[{ + RowBox[{"n2", "[", "\[Theta]_", "]"}], "=", + FractionBox["1", "\[Pi]"]}], ";", "\t", + RowBox[{ + RowBox[{"n", "[", "\[Theta]_", "]"}], "=", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"1", "-", + SubscriptBox["w", "1"], "-", + SubscriptBox["w", "2"]}], ")"}], + RowBox[{"n0", "[", "\[Theta]", "]"}]}], "+", + RowBox[{ + SubscriptBox["w", "1"], + RowBox[{"n1", "[", "\[Theta]", "]"}]}], "+", + RowBox[{ + SubscriptBox["w", "2"], + RowBox[{"n2", "[", "\[Theta]", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Gamma]0", "[", "\[Omega]_", "]"}], "=", + FractionBox[ + RowBox[{"Cos", "[", + FractionBox["\[Omega]", "2"], "]"}], "\[Pi]"]}], ";", "\t", + RowBox[{ + RowBox[{"\[Gamma]1", "[", "\[Omega]_", "]"}], "=", + FractionBox[ + RowBox[{"Cos", "[", + RowBox[{"2", + FractionBox["\[Omega]", "2"]}], "]"}], "\[Pi]"]}], ";", "\t", + RowBox[{ + RowBox[{"\[Gamma]2", "[", "\[Omega]_", "]"}], "=", + FractionBox[ + RowBox[{"Cos", "[", + RowBox[{"3", + FractionBox["\[Omega]", "2"]}], "]"}], "\[Pi]"]}], + ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{ + RowBox[{"\[Gamma]", "[", "\[Omega]_", "]"}], "=", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"1", "-", + SubscriptBox["w", "1"], "-", + SubscriptBox["w", "2"]}], ")"}], + RowBox[{"\[Gamma]0", "[", "\[Omega]", "]"}]}], "+", + RowBox[{ + SubscriptBox["w", "1"], + RowBox[{"\[Gamma]1", "[", "\[Omega]", "]"}]}], "+", + RowBox[{ + SubscriptBox["w", "2"], + RowBox[{"\[Gamma]2", "[", "\[Omega]", "]"}]}]}]}], ";"}]}], "Input", + CellChangeTimes->{{3.769487841060305*^9, 3.769487849300188*^9}, { + 3.769488781010674*^9, 3.7694887924532948`*^9}, {3.7694899629183197`*^9, + 3.769490037669353*^9}, {3.769490412106513*^9, 3.769490416905061*^9}, + 3.7694917747215023`*^9, {3.769491811033239*^9, 3.76949181554524*^9}, { + 3.770132139134108*^9, 3.7701321879829483`*^9}, {3.770132343993516*^9, + 3.770132349654964*^9}}, + CellLabel-> + "In[393]:=",ExpressionUUID->"6a8ad2b0-75dc-4b02-beb2-ab231f96fdc4"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"2", "\[Pi]", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{ + RowBox[{"n0", "[", "\[Theta]", "]"}], + RowBox[{"n0", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]0", "[", "\[Omega]", "]"}], "2"]}], + SqrtBox[ + RowBox[{"2", "-", + RowBox[{"2", + RowBox[{"Cos", "[", "\[Omega]", "]"}]}]}]]], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], ",", + RowBox[{"2", "\[Pi]", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{ + RowBox[{"n1", "[", "\[Theta]", "]"}], + RowBox[{"n1", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]1", "[", "\[Omega]", "]"}], "2"]}], + SqrtBox[ + RowBox[{"2", "-", + RowBox[{"2", + RowBox[{"Cos", "[", "\[Omega]", "]"}]}]}]]], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}], ",", + RowBox[{"2", "\[Pi]", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + FractionBox[ + RowBox[{ + RowBox[{ + RowBox[{"n2", "[", "\[Theta]", "]"}], + RowBox[{"n2", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]2", "[", "\[Omega]", "]"}], "2"]}], + SqrtBox[ + RowBox[{"2", "-", + RowBox[{"2", + RowBox[{"Cos", "[", "\[Omega]", "]"}]}]}]]], + RowBox[{"\[DifferentialD]", "\[Omega]"}]}]}]}]}], "}"}]], "Input", + CellChangeTimes->{{3.770132493319435*^9, 3.7701325296559267`*^9}, { + 3.770132575908757*^9, 3.770132584950038*^9}}, + CellLabel-> + "In[412]:=",ExpressionUUID->"363fccb6-035a-410f-baa8-a92724a9db8e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + FractionBox["2", "\[Pi]"], ",", + FractionBox["8", + RowBox[{"3", " ", "\[Pi]"}]], ",", + FractionBox["46", + RowBox[{"15", " ", "\[Pi]"}]]}], "}"}]], "Output", + CellChangeTimes->{ + 3.770132496163048*^9, 3.770132531009362*^9, {3.770132578969531*^9, + 3.7701325863483143`*^9}}, + CellLabel-> + "Out[412]=",ExpressionUUID->"5aa471f0-edae-46af-81e5-970e010e8156"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{"c", "=", + RowBox[{"FullSimplify", "[", + RowBox[{ + RowBox[{"CoefficientRules", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{"1", "-", + SubscriptBox["w", "1"], "-", + SubscriptBox["w", "2"]}], ")"}], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"n0", "[", "\[Theta]", "]"}], + RowBox[{"n0", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]0", "[", "\[Omega]", "]"}], "2"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox["w", "1"], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"n1", "[", "\[Theta]", "]"}], + RowBox[{"n1", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]1", "[", "\[Omega]", "]"}], "2"]}], ")"}]}], "+", + RowBox[{ + SubscriptBox["w", "2"], + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"n2", "[", "\[Theta]", "]"}], + RowBox[{"n2", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]2", "[", "\[Omega]", "]"}], "2"]}], ")"}]}], "-", + RowBox[{"(", + RowBox[{ + RowBox[{ + RowBox[{"n", "[", "\[Theta]", "]"}], + RowBox[{"n", "[", "\[Theta]", "]"}]}], "-", + SuperscriptBox[ + RowBox[{"\[Gamma]", "[", "\[Omega]", "]"}], "2"]}], ")"}]}], "//", + "Expand"}], ",", + RowBox[{"{", + RowBox[{ + SubscriptBox["w", "1"], ",", + SubscriptBox["w", "2"]}], "}"}]}], "]"}], "//", "TrigToExp"}], + "]"}]}], "\[IndentingNewLine]", + RowBox[{"i", "=", + RowBox[{"2", "\[Pi]", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], + RowBox[{ + FractionBox[ + RowBox[{"c", "\[LeftDoubleBracket]", + RowBox[{";;", ",", "2"}], "\[RightDoubleBracket]"}], + SqrtBox[ + RowBox[{"2", "-", + RowBox[{"2", + RowBox[{"Cos", "[", "\[Omega]", "]"}]}]}]]], + RowBox[{ + "\[DifferentialD]", "\[Omega]"}]}]}]}]}], "\[IndentingNewLine]", + RowBox[{"d", "=", + RowBox[{"Table", "[", + RowBox[{ + RowBox[{ + RowBox[{"c", "\[LeftDoubleBracket]", + RowBox[{"k", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", + RowBox[{"i", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], + ",", + RowBox[{"{", + RowBox[{"k", ",", + RowBox[{"Length", "[", "c", "]"}]}], "}"}]}], + "]"}]}], "\[IndentingNewLine]", + RowBox[{"FromCoefficientRules", "[", + RowBox[{"d", ",", + RowBox[{"{", + RowBox[{ + SubscriptBox["w", "1"], ",", + SubscriptBox["w", "2"]}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.769490124389062*^9, 3.769490150020693*^9}, { + 3.76949037415504*^9, 3.7694904258731327`*^9}, {3.769490481474712*^9, + 3.769490483403872*^9}, {3.769490591745728*^9, 3.769490684935643*^9}, { + 3.7694908055432653`*^9, 3.769490902958572*^9}, {3.769491009423455*^9, + 3.7694910097739677`*^9}, {3.769491154558282*^9, 3.769491156639367*^9}, { + 3.769491374323839*^9, 3.769491396266871*^9}, {3.7694915984185877`*^9, + 3.769491635144186*^9}, {3.7694917717623997`*^9, 3.769491786751161*^9}, { + 3.76949183157804*^9, 3.769491860254149*^9}, {3.770132362145213*^9, + 3.770132417744074*^9}, 3.7701326134960947`*^9, {3.770132908104725*^9, + 3.770132910207807*^9}},ExpressionUUID->"ccc0dab5-d7d9-401e-b4cf-\ +738eb78ac738"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", + FractionBox[ + RowBox[{"4", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"2", " ", + RowBox[{"Cos", "[", + FractionBox["\[Omega]", "2"], "]"}]}]}], ")"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", + FractionBox["\[Omega]", "4"], "]"}], "4"]}], + SuperscriptBox["\[Pi]", "2"]]}], ",", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", + FractionBox[ + RowBox[{"1", "-", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"3", " ", "\[Omega]"}], "2"], "]"}], "-", + RowBox[{"Cos", "[", + RowBox[{"2", " ", "\[Omega]"}], "]"}], "+", + RowBox[{"Cos", "[", + FractionBox[ + RowBox[{"5", " ", "\[Omega]"}], "2"], "]"}]}], + SuperscriptBox["\[Pi]", "2"]]}], ",", + RowBox[{ + RowBox[{"{", + RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"4", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{"2", " ", + RowBox[{"Cos", "[", + FractionBox["\[Omega]", "2"], "]"}]}]}], ")"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", + FractionBox["\[Omega]", "4"], "]"}], "4"]}], + SuperscriptBox["\[Pi]", "2"]]}]}], ",", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", + FractionBox[ + RowBox[{"4", " ", + SuperscriptBox[ + RowBox[{"Sin", "[", + FractionBox["\[Omega]", "2"], "]"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", "\[Omega]", "]"}], "2"]}], + SuperscriptBox["\[Pi]", "2"]]}], ",", + RowBox[{ + RowBox[{"{", + RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", + RowBox[{"-", + FractionBox[ + RowBox[{"4", " ", + SuperscriptBox[ + RowBox[{"Sin", "[", + FractionBox["\[Omega]", "2"], "]"}], "2"], " ", + SuperscriptBox[ + RowBox[{"Sin", "[", "\[Omega]", "]"}], "2"]}], + SuperscriptBox["\[Pi]", "2"]]}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.769490388060306*^9, 3.769490395183979*^9}, + 3.769490426531443*^9, 3.769490485602947*^9, {3.7694906087753553`*^9, + 3.769490660739275*^9}, {3.769490809289139*^9, 3.769490847272544*^9}, + 3.7694909037012157`*^9, 3.769491010238949*^9, {3.769491158499928*^9, + 3.769491172544322*^9}, {3.7694913791486197`*^9, 3.7694913988250637`*^9}, { + 3.769491619778906*^9, 3.769491636360585*^9}, {3.7694917790382*^9, + 3.7694917880133257`*^9}, 3.769491820667927*^9, 3.76949186291149*^9, { + 3.770132389613286*^9, 3.770132418513739*^9}, 3.77013261493379*^9, + 3.770132646032251*^9, 3.770132741848206*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"3d8eea2a-983e-4971-a2ae-b3516d1a62fb"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}]}], + RowBox[{"3", " ", "\[Pi]"}]], ",", + FractionBox["16", + RowBox[{"3", " ", "\[Pi]"}]], ",", + RowBox[{"-", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}]}], + RowBox[{"3", " ", "\[Pi]"}]]}], ",", + FractionBox["64", + RowBox[{"15", " ", "\[Pi]"}]], ",", + RowBox[{"-", + FractionBox["64", + RowBox[{"15", " ", "\[Pi]"}]]}]}], "}"}]], "Output", + CellChangeTimes->{{3.769490388060306*^9, 3.769490395183979*^9}, + 3.769490426531443*^9, 3.769490485602947*^9, {3.7694906087753553`*^9, + 3.769490660739275*^9}, {3.769490809289139*^9, 3.769490847272544*^9}, + 3.7694909037012157`*^9, 3.769491010238949*^9, {3.769491158499928*^9, + 3.769491172544322*^9}, {3.7694913791486197`*^9, 3.7694913988250637`*^9}, { + 3.769491619778906*^9, 3.769491636360585*^9}, {3.7694917790382*^9, + 3.7694917880133257`*^9}, 3.769491820667927*^9, 3.76949186291149*^9, { + 3.770132389613286*^9, 3.770132418513739*^9}, 3.77013261493379*^9, + 3.770132646032251*^9, 3.770132743854802*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"f479c53f-23e8-44e0-8be1-5260ad432de9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", + RowBox[{"2", "R"}]], + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", + SubscriptBox["w", "1"]}], + RowBox[{"3", " ", "\[Pi]"}]]}], "+", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", + SubsuperscriptBox["w", "1", "2"]}], + RowBox[{"3", " ", "\[Pi]"}]], "-", + FractionBox[ + RowBox[{"64", " ", + SubscriptBox["w", "2"]}], + RowBox[{"15", " ", "\[Pi]"}]], "+", + FractionBox[ + RowBox[{"16", " ", + SubscriptBox["w", "1"], " ", + SubscriptBox["w", "2"]}], + RowBox[{"3", " ", "\[Pi]"}]], "+", + FractionBox[ + RowBox[{"64", " ", + SubsuperscriptBox["w", "2", "2"]}], + RowBox[{"15", " ", "\[Pi]"}]]}], ")"}]}], "/.", + RowBox[{"R", "\[Rule]", + FractionBox["1", + RowBox[{"\[Pi]", " ", "\[Rho]"}]]}]}], "//", "FullSimplify"}]], "Input", + CellChangeTimes->{{3.769493358116456*^9, 3.769493401256064*^9}, + 3.7701327743597603`*^9}, + CellLabel-> + "In[426]:=",ExpressionUUID->"007b05ee-4b78-4a58-abce-125dd9edcd2f"], + +Cell[BoxData[ + RowBox[{ + FractionBox["1", "15"], " ", "\[Rho]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"5", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + SubscriptBox["w", "1"]}], ")"}], " ", + SubscriptBox["w", "1"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "4"}], "+", + RowBox[{"5", " ", + SubscriptBox["w", "1"]}]}], ")"}], " ", + SubscriptBox["w", "2"]}], "+", + RowBox[{"32", " ", + SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}]], "Output", + CellChangeTimes->{{3.7694933938405123`*^9, 3.769493401535096*^9}, + 3.769505305992244*^9, 3.770132775171035*^9}, + CellLabel-> + "Out[426]=",ExpressionUUID->"a91c199a-35bb-4e73-8d97-0c642cde7822"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{"\[Epsilon]OGHx", "[", + RowBox[{"1", ",", + RowBox[{"{", + RowBox[{ + SubscriptBox["w", "1"], ",", "0"}], "}"}]}], "]"}], ",", + RowBox[{ + RowBox[{ + FractionBox["1", "15"], " ", "\[Rho]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"5", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + SubscriptBox["w", "1"]}], ")"}], " ", + SubscriptBox["w", "1"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "4"}], "+", + RowBox[{"5", " ", + SubscriptBox["w", "1"]}]}], ")"}], " ", + SubscriptBox["w", "2"]}], "+", + RowBox[{"32", " ", + SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}], "/.", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Rho]", "\[Rule]", "1"}], ",", + RowBox[{ + SubscriptBox["w", "2"], "\[Rule]", "0"}]}], "}"}]}], ",", + RowBox[{ + RowBox[{ + RowBox[{"\[Epsilon]OGHx", "[", + RowBox[{"1", ",", + RowBox[{"{", + RowBox[{ + SubscriptBox["w", "1"], ",", "0"}], "}"}]}], "]"}], "-", + RowBox[{ + FractionBox["1", "15"], " ", "\[Rho]", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"5", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + SubscriptBox["w", "1"]}], ")"}], " ", + SubscriptBox["w", "1"]}], "+", + RowBox[{"8", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "4"}], "+", + RowBox[{"5", " ", + SubscriptBox["w", "1"]}]}], ")"}], " ", + SubscriptBox["w", "2"]}], "+", + RowBox[{"32", " ", + SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}]}], "/.", + RowBox[{"{", + RowBox[{ + RowBox[{"\[Rho]", "\[Rule]", "1"}], ",", + RowBox[{ + SubscriptBox["w", "2"], "\[Rule]", "0"}]}], "}"}]}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + SubscriptBox["w", "1"], ",", "0", ",", + RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.769505135581018*^9, 3.76950515170644*^9}, { + 3.769505183852771*^9, 3.7695052630101833`*^9}, {3.770132780613655*^9, + 3.770132782272223*^9}, {3.770133024364872*^9, 3.770133029555464*^9}}, + CellLabel-> + "In[187]:=",ExpressionUUID->"17ae7fcc-3995-415b-b625-ec234ae8b826"], + +Cell[BoxData[ + GraphicsBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVz3001XcABnBvIZbQpt0MI5S6vUxlUfZ4KyQ1Lw2rJEN1rajZkS2ZhkTi +lMpyxY0U4ir3VvNShmW7pHu9K+53zCmv+f1+xR1Zd7/98ZznfP55znnMQ6N8 +w9VUVFS82fzfO8JHZPWj274IrhtlRUHDdVk04Vgit8vv2ibWG/Jz+FWcjeib +rNsQydrrac+9PI4b/EwvRnSzDghT1F3k+MMjwaH1jiqFgXVnXTM4YdjgnH41 +SJ1CwUe7U9I4MdD6nbu2SpNConbVinOcJFS2Ru2NWEQhMEggpOhsxHLHnCaN +KegqE/e5m+ZDGfCjKN6GgpXP65HG9CKstT6qI7GjENtmj5y3JZC5+Y3bbaOw +VGQgV1UVwm7dl1+X+1K4P+Ta+mzrPejxnP3dDlJo4OUZB02IkOl+af3VKArT +1o6Ly48+gJR6d+3NKQpqs2X6xlbVSBkLzIpOp2CnDLnvV1GLeWHrEkUOhdak +jW1PVj0G52NBnH0xBbOs8dmS1/W4Iz3C44sojCuIvGt9A5T+nqPaDRSKxmok +ehca0Wxj8uaylIKeya2p4eEm2Al8iFxO4fwRcUSB5RNEDPODPpugMONUNnw4 +oRk6J/uDi+YoxNg2iYwa/0B0jy3zqTYNUtGULjOXwPNsvP4jIxrveJ25Nj+0 +QNK30mCpFY3VzlrvI2pa8cE/Y/lxtjTcb5gfuru0DY0Rgl/nnWjEmhywGNz3 +DA6CYwfP7aLBndij2+MtRdBp/rhsL40liyntpjkpJsoeqWzh0dB4nCtczpfB +6aaisDyWRuTGmr6FXu3QnrJsd0qhUeYZWvBoph0nX9wbysymMT2+TP/llQ6U +XgpIHBHQEPu5q2e7dWI3nyo9WEkjwSM5X/SyE+LogtDhOhrmAzt6C5O70Piq +ct6ihYbD50nZHNtubBOKzc/00dhn+mxWtaMbqS6yzrGX7L4kYyg6sQewHjSM +maaRoxEc42vZiwddWkRTncESufiGWlMvuldkZuzRZ7AgPtHf/ngfIiU6zU2m +DFRKgoVDhs9RvznvgiOXwYlrwgzDhudIUywf7HZgULc6Vdvg2AvMBeoacT0Z +GOw4wT2j1w9uysK+tK8Y9K+RdsTV9qNdfd5aJ5xB5XVYDgcPwN57gfqlEwz2 +C+0MTN4PwMM+6reeBAY/JQsS+0vlkHz/VMfxAoPyEZNcvZ0EeqddhspyGaTm +JYfIdxG0xIYMvGId5jtpVeFDkHr8dO9yPoNPamsrvQMI1MKr23JZp2XufXI+ +lGDGy7YmPY/BYbtfaJ04AjnHIjsyn4FF0oceWsUEFWLV7asLGbzffGpRz20C +ntDM+RDrvsm/24vLCFaWOG4tZJ0VULV/+10CAT/O1riIgXKV73fJtQSXf6ZN +dW+yf2WZ19U7COJ9BhVjxQwepii+6egicPBSMta3GGRvOWBT2EugcDN5Hcra +6+ZakYucIHpz0PBz1tUnn/6ZOEoQZiaTSm4zuLJmU6bPBIEFZ6pFs4TB8SG+ +v/kUATFc1OzCeuXOb0n9W4JATc+6atYaqp1FWQoCI5VDD2dY/yXewguZI2if +TaqyLWVQyytct/5fgqw3NyqOsb5qpjutVBLsnKwvKWX9H4fHe30= + "]]}, + Annotation[#, "Charting`Private`Tag$4223#1"]& ], + TagBox[ + {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwV03k41esWB/BtiIaDZDqkZIzi5FJOIuucQobSJSIpEUKFHCUaOTiocAu5 +JMpQjgyZD+plGxPbT4aN9u/3ZpOIwm0QGe7bH+tZz+ef9azvep6l7O5v5ynI +YrHSSf3oVp5jXXXjZiZN73tnB9btey68VyEAy6vBz4qr79zWUkf6GSn3SuW3 +g3Hhs+p4zR3IuoNbki5vCiLVJXs6NcyQo8fss9vy9uDSNPwxQNUB0dv+2ntL +3gPeOvgkNSl6okyZg1Gx8kEwph8VEyxxHoWtLN0cIx8BpzgWTfhzBHI68qBo +eiYRWP87FuyXmoTWLIe57NuYAVHl2hNmTRlI3fbjWMONbKjnJndIN2ajYI4h +pHzOgwoe0umayUNyZZKMgEARJNzpuWSRX4gq+HvbO41LIBINhA72PkVs3/T1 +RybLQKxWTljCqAx90dgtUXC2EjSZrOqjPhVIcC5/7Xr1ajBpOtTcVVmFDJZP +VBwqrIUhtrf9iq5q1B6xndO8BcEerfn+sFe1SClhYi7vYx3EeVQETkw/RxOz +mOnVZQMjwW9I86tD2e9r2sTjGiB9u86X4XP1SHzDo6mRkUb49mJvOsebjW76 +lHtlqjUDvV2sxtyiAX39LX/E+1oLPNwUE2uo34iC9BrLZBtaIU5zfPiGaBPC +hY03upTbIOt9jIDQaBP67tuTphX6EhR+WW1ZW9WMtv4uuuRV0w5yXdFaf1xo +QfseKp96KscB568TQTnGrSh4g6vKkEsnmOs3nXj8sRVpTzqs4R6ggHE7G3kn ++QWSkphe2ThPwQUxQeOjZm1IGKUVqd7rggsq5xqihtrQ6e01A6usX8E+1wd8 +wz9fonxL98znX19BExct2Cm0oy8TCmtHk7vBabK4+0xmOyo/tE8o0bQHjHsd +pL22dKBrFpEZZaM9EPDmfbhedgdSpq36syJ7gaufx1klw0G7fo1IlNfrg4pd +gX0q0RzksrFzTqC7D8ayz8o/mOSgL223+AFhXJhi4iTF7DpRivDxIDu1fpAK +Ms97mteJpJjyh4KN/XCxPil0+VsnWnElzN7w3AAo5N6o7FClECvveBF/3SCc +oeo+CZhRKDC16NY69iC8cdgfoudJoWdbo1dK+r0G55MLrl+vU0jSKlA7XJwH +jxfvOPnfpVBmvcSaXZI8COd4Rbwg1jUsGJ+R4oEw/n5ONYVCNppjuW7yPBBE +Z273EceKHFf+XY0HI6E+Y4apFBJusJRl7eKBCZ8z9vkehb4aKbOuevLA3N/S +yPghhXg6VHdILQ+qwxc11j6hUMaE5BUhxIMEk1nKgdg975DGrXoe1Mo9NU0j +HlfjXsxs5oGUimeMegGZt57Z0ELxACVz/vq1kOy/evKU9FseyLAeOdkWU8h8 +VHShUIyGJ6/OWrmUUWhVtmXOzrU0bDU8rZ1G3O52w4a9jobFWs3+AeJDtPiD +XjkashVHbh4up9CJHhnzBWUapoxcTh+ooNAltmqCpQENYfO2C7pVFCq+D2oj +x2lIDj7k11lDoU+hn0Td3Gi4nhruJ1JLIQPHRxP0SRpWRMft2k1cIyFRyvWm +gc82NvibuPk68/vLQBreVf6vJuwZhV67X3EtiaJBNqORtRlRSGRzTer1QhrE +3VkBVmwKWQr5X10spuFUf+tEKPFNrOIeWkqDi7yffj6xZEqsVlAVDXLfbTTW +NFBIcZVz1Sk2DX27fVNbifUmvvXa9NFwuU6k1rCJQseKDCQ3LNFwopo78rmF +QhXO38QpFgNfnQN8VVopJC5S/dOfQgxcGcwrOUhc57J75fhKBk5eWI7NI1ZZ +bbpcJsVApPKOo84vKDTqYfthvxYDamZtIcVtFPJTOPPisj0DVH1a0S8dJG+T +Tss2Rwayfvt3jD2x0rmpRv4RBrzv56iHElMtgXUWrgy0ftXLbSTWOx9SKe3L +AKPQ33yYQ6HZzqicJ9cY8NTdH+XfSaHrkQ/CeH8zMJzwejGwi0JiwaJWbgUM ++LdNa8YTp3qfXTdaxMDg+6SN+cSl1oZZU2UM7HsT78MnHpXsahREDESn77lq +84pC1vdZK7W6GUh3y3qo2E2h/ngvqqCXAZFVlRd2EHuEtafo9TNw4K6zjA3x +VY8ULWOagUBv25KrxMVbdK0PvmNAlV70pYllK13jzn9nQGatHTehh0JZj5sO +zy8y4KzuYZ9LrJu6VekaC8NlZZF7NcSWV2aLoldgcOLMxb4lvrw3vitNAkPw +fMY7g14K8TufS7NVMVjee5fWSexfr0aba2DwVvpWP0S8UBKb81ITg1dMSskn +Ypnkwwa9OhgWJGM+yfZRyMLlo+PYrxhivmh+diYuGNuQJr4fg6GIx3Q/cXR6 +5AnGBkNByFDQOLGH3Qf1QlsMKh0tFXPEirW1xQccMayW7gyU55J/jz/afNMd +A6Pc+tKB2Mu04YaLJwb7pJtGHsR75rbYantjaBv7xzuQeM59/vXLsxjKtx38 +fovY2+C/M6tDMMTv9hBgE5tOsCoHL2EQeervwiFWyvS+/PdVch/hkaBB4r5V +O0WtIjCcthZlZojN6D7FmHgM1kd2/mdDP4U23TbhO93GwG6P5W4mXjDPfaSZ +hGHXJvPX/yIuKz6v15qKQfvUrIIZsUqEtIVoLgbJ86aXvImXdl4W4z7GEDtG +PwkgHvgw/Co3H8MK4zdpF4kTHEuPmT/FMBuuVPIX8Zmf1qvKlmEIvOAyEEds +UR8+9rYCw6Sl4PMk4uUtdn9E1mIYSohGD4kH8T87HRCGY8I+vMfEFYnKS2ps +DFzHkopCYr+l6ejGFgyc+9ey/iG2KnWySWwj+W4LVTwnVveuk/LowNDsOR3Z +QMzrir8v1I3h2RPh4+3EVVGzJ7t7f+TV9qKIE41ctbL6MVT+Ubu1hzhguvlj +4GsM+o/KC7nE1jm/lO1hMBRVy00NEms4J4esG8KgU8ifpIkFJZZM+MMY8sNk +H78hZho8hUtGMWjuKN00TFx9seNF2DiGnNaqw2+Jk3V2xNtOYlA13mz1jvgc +/5698hSGB/FL82PE++8KK8zMYNjYYOLznlhz/xlc9xlDet+7xAliYYGe7IRZ +DIptc1cmid+UG/memMeQmh6k9oG41jdrm+4ihp9tnaJ/+K7Smi/LyxjujmTn +/fD/AVYAdHM= + "]]}, + Annotation[#, "Charting`Private`Tag$4223#2"]& ], + TagBox[ + {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ + 1.], LineBox[CompressedData[" +1:eJwVz3k41HkABnBn2hQ5tnYIO+UIJVsoFW+biiW7EdmWFKnFYiNtl2gKnRPb +IylHrspRJmeH6WKqzTpn3DFfSVZFzYz5/YSW/e0f7/M+n3/e53nZgb977lFS +UFBwZ/J/u+4ZannybqNj5jf1ygoKEqg46e0jLGMMhw8NihmvuJaWUc6yQcWV ++/yHihK4NXSUZbI2oCj6yLqjyhL4BI09vMjygv2qPwqoGRL0LjvlxGUFQUx5 +T/wzR4Lsr39KPMuKxhq3qus1+hJwZpabnWHFw91/Qm/LSgl+3p7Dk0hTgPwX +E9uiJFCf5vg5G15D26zF9RcLJDDx+DhUey4fwz1dd973SHCw0R5p8kLcdXoa +/UxXivkVWmJFRR6EIqssNRcpqvqd6pvWlmHGjE+TObFS1IRm6m8frsCW2tZv +XcqloEwdNG+H30WZ1Y1tZ95IoTRePFff5AG6TR/dGpkng930rqqtJXxYrNUJ +UdskQ328TeNzi8e4/cD6csB+GYySP4wXfnwCyu4SuzhPhg9jRNxmXYPJ1GcB +PU0y5L+vrtO4UAvf5ppI4ZQMGgY3Pw0MCHBAb6Lss+UozodU7s02fg6lc1PW +q71HQa8rHgiOewHDjKXJ6pxRRC8XVMyr/QsnvvAitAtHQUoE51rYdcgUlOyL +FY1iMrQ13fzI3+AauV61+jIKy+/VpvZW12OZ9gJVF7YczrnsX0vnN+LCW8fg +P13kOGiwc+FrvybkOZ8K9w+TY8mwt3qHezMuWbj65V+QQ0dTMlMw0Yz0Ecfg +wTI5VB6n8xZltCDp5Z4YsUiO32yqu75yE0Kqd1ijgJaj+IfA7Ee0EJHtruu7 +51OgPujNHUwVwba0QZ+2pVC51Vk5ZUMr6G1Hw0u8KcS5JFyrGGxFbf2/ZaFR +FNi9rp15CW1w1Ei0E3AprF4Zn8Ja3o4M+mRMYhEFP8OmcUVRO0zGpsZiBcx+ +Hbd/H6cDBko6lZWEQpqKf7SncSfs8611HT5T0BFX5ioJOqHa9zrmgCYN1WMc +L/vILsjKR2zumdFQKPTn9Wt341UYVz3WgUbUVR5Xu6YbSnMOxi3yovHQ8vRM +rYhXaI6cVRISQkPLNWrJCY0epCZY8fbG0OhZ2iw6zO/B8aBqa41kGneyYDzg +3wtDy6vixBwaO3h2WgZTvegzuz7RWkrjeEIOp6dIDOVfNtRdqaFxe8ggXWMz +QUacr2FgC43TmQm7xD8S2LWnrc5lHOQ5YlLiQdAcZL2pn/ECPv+Ouw+BikWE +ZaCQxtkk3+fnAwkivIytAkQ0gu2uSGcdJlhvflTXr43GwnhdF7UbBDKhMGhj +F42pVTFzOgoIzpv7hJ1k3DXyRnijmMD8nu3up4yTfcp3bCol2HlM0cihm8a0 +hef+BD5Bw01R44pXzN+WpCxlEcGtmEBNw14a9xLHdovaCFy2np3tyzhlzU7z +vE6CtwGzxy8zdrtuVbFeTLDAzChbS0zjwaGGl5x3BFyPOFMVQiN1qW2SxzCB +5dChrHWMI/szvNifCF5U1aseY7x4cxh5IieYnjyRSzFWUWzNTx4jyIx62/Fd +H42+yjWhuyYIVrFzv4Qz5ofmLbP+l6Bd7f7cIsaXjdSp6WmCKFML3UHG/wHd +z37k + "]]}, + Annotation[#, "Charting`Private`Tag$4223#3"]& ]}, {}, {}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, + Charting`ScaledFrameTicks[{Identity, Identity}]}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->NCache[{{0, + Rational[1, 2]}, {-0.26324025694663916`, 1.4299069202119452`}}, {{ + 0, 0.5}, {-0.26324025694663916`, 1.4299069202119452`}}], + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.769505152323214*^9, 3.769505211346933*^9, {3.7695052422256107`*^9, + 3.769505264045567*^9}, 3.769505346546062*^9, 3.770132782849716*^9, { + 3.770133025265827*^9, 3.770133030099455*^9}}, + CellLabel-> + "Out[187]=",ExpressionUUID->"24f2683d-ea1b-4619-b6c5-e3e6e96a5ea8"] +}, Open ]] +}, Open ]] }, Closed]], Cell[CellGroupData[{ @@ -26055,7 +25698,7 @@ YEblfrJpHYn3K87Nr65S4NLUMzRQQ+L/AGJFteA= }, Open ]] }, Open ]] }, Closed]] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ @@ -32636,8 +32279,8 @@ Cell[BoxData[{ RowBox[{"TabERI", "=", RowBox[{ "Import", "[", - "\"\<~/ic/Manuscripts/svndoc_eDFT_FUEG/files_from_T2/eDFT/Integrals/\ -Hookium_ERI.dat\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", + "\"\<~/Dropbox/Manuscripts/eDFT_FUEG/Integrals/Hookium_ERI.dat\>\"", + "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ERI", "=", RowBox[{"SparseArray", "[", "\[IndentingNewLine]", @@ -32821,7 +32464,8 @@ Hookium_ERI.dat\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", 3.7451369499291687`*^9, {3.7451424590927963`*^9, 3.745142495483118*^9}, { 3.7451425303213577`*^9, 3.7451425633986692`*^9}, 3.745143802948227*^9, { 3.745144233802774*^9, 3.745144240738668*^9}, {3.7530864137469893`*^9, - 3.753086446234387*^9}, {3.769494299925853*^9, 3.769494299964386*^9}}, + 3.753086446234387*^9}, {3.769494299925853*^9, 3.769494299964386*^9}, { + 3.769706762286395*^9, 3.769706772409625*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"db5444a0-15c5-4795-b2e7-7cb547dd9291"], Cell[BoxData[{ @@ -32829,8 +32473,8 @@ Cell[BoxData[{ RowBox[{"TabERI", "=", RowBox[{ "Import", "[", - "\"\<~/ic/Manuscripts/svndoc_eDFT_FUEG/files_from_T2/eDFT/Integrals/\ -Boxium_ERI.dat\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", + "\"\<~/Dropbox/Manuscripts/eDFT_FUEG/Integrals/Boxium_ERI.dat\>\"", + "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ERI", "=", RowBox[{"SparseArray", "[", "\[IndentingNewLine]", @@ -33019,10 +32663,10 @@ Boxium_ERI.dat\>\"", "]"}]}], ";"}], "\[IndentingNewLine]", 3.745081087754283*^9}, {3.7450814364741917`*^9, 3.745081445624317*^9}, { 3.745081851484083*^9, 3.745081875759594*^9}, 3.745144246924389*^9, { 3.7530864512069473`*^9, 3.753086460620805*^9}, {3.76949430241335*^9, - 3.7694943024718637`*^9}}, + 3.7694943024718637`*^9}, 3.769706780873795*^9}, CellLabel-> "In[101]:=",ExpressionUUID->"3328b49d-a450-418f-874e-ffb74ef3d694"] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ @@ -33147,343 +32791,6 @@ Cell["Functionals", "Subsection", 3.753172645206861*^9}},ExpressionUUID->"999c9d70-9c41-4fc2-aa2f-\ 055c65254d77"], -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{ - FractionBox["1", - RowBox[{"2", "R"}]], - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{"8", "-", - RowBox[{"6", " ", - RowBox[{"Log", "[", "16", "]"}]}]}], ")"}], " ", - SubscriptBox["w", "1"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "8"}], "+", - RowBox[{"3", " ", - RowBox[{"Log", "[", "256", "]"}]}]}], ")"}], " ", - SubsuperscriptBox["w", "1", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "-", - FractionBox[ - RowBox[{"64", " ", - SubscriptBox["w", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"13", " ", - SubscriptBox["w", "1"], " ", - SubscriptBox["w", "2"]}], - RowBox[{"3", " ", "\[Pi]"}]], "+", - FractionBox[ - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}], - RowBox[{"15", " ", "\[Pi]"}]]}], ")"}]}], "/.", - RowBox[{"R", "\[Rule]", - FractionBox["1", - RowBox[{"\[Pi]", " ", "\[Rho]"}]]}]}], "//", "FullSimplify"}]], "Input", - CellChangeTimes->{{3.769493358116456*^9, 3.769493401256064*^9}}, - CellLabel-> - "In[181]:=",ExpressionUUID->"007b05ee-4b78-4a58-abce-125dd9edcd2f"], - -Cell[BoxData[ - RowBox[{ - FractionBox["1", "30"], " ", "\[Rho]", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"40", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - RowBox[{"Log", "[", "8", "]"}]}], ")"}], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - SubscriptBox["w", "1"]}], ")"}], " ", - SubscriptBox["w", "1"]}], "+", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "64"}], "+", - RowBox[{"65", " ", - SubscriptBox["w", "1"]}]}], ")"}], " ", - SubscriptBox["w", "2"]}], "+", - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}]], "Output", - CellChangeTimes->{{3.7694933938405123`*^9, 3.769493401535096*^9}, - 3.769505305992244*^9}, - CellLabel-> - "Out[181]=",ExpressionUUID->"c6844a59-2cc1-46a4-827f-79675bcc406d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Epsilon]OGHx", "[", - RowBox[{"1", ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", "0"}], "}"}]}], "]"}], ",", - RowBox[{ - RowBox[{ - FractionBox["1", "30"], " ", "\[Rho]", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"40", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - RowBox[{"Log", "[", "8", "]"}]}], ")"}], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - SubscriptBox["w", "1"]}], ")"}], " ", - SubscriptBox["w", "1"]}], "+", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "64"}], "+", - RowBox[{"65", " ", - SubscriptBox["w", "1"]}]}], ")"}], " ", - SubscriptBox["w", "2"]}], "+", - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}], "/.", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Rho]", "\[Rule]", "1"}], ",", - RowBox[{ - SubscriptBox["w", "2"], "\[Rule]", "0"}]}], "}"}]}], ",", - RowBox[{ - RowBox[{ - RowBox[{"\[Epsilon]OGHx", "[", - RowBox[{"1", ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", "0"}], "}"}]}], "]"}], "-", - RowBox[{ - FractionBox["1", "30"], " ", "\[Rho]", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"40", " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - RowBox[{"Log", "[", "8", "]"}]}], ")"}], " ", - RowBox[{"(", - RowBox[{ - RowBox[{"-", "1"}], "+", - SubscriptBox["w", "1"]}], ")"}], " ", - SubscriptBox["w", "1"]}], "+", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"-", "64"}], "+", - RowBox[{"65", " ", - SubscriptBox["w", "1"]}]}], ")"}], " ", - SubscriptBox["w", "2"]}], "+", - RowBox[{"64", " ", - SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}]}], "/.", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Rho]", "\[Rule]", "1"}], ",", - RowBox[{ - SubscriptBox["w", "2"], "\[Rule]", "0"}]}], "}"}]}]}], "}"}], ",", - RowBox[{"{", - RowBox[{ - SubscriptBox["w", "1"], ",", "0", ",", - RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]], "Input", - CellChangeTimes->{{3.769505135581018*^9, 3.76950515170644*^9}, { - 3.769505183852771*^9, 3.7695052630101833`*^9}}, - CellLabel-> - "In[183]:=",ExpressionUUID->"17ae7fcc-3995-415b-b625-ec234ae8b826"], - -Cell[BoxData[ - GraphicsBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJwVz3001XcABnBvIZbQpt0MI5S6vUxlUfZ4KyQ1Lw2rJEN1rajZkS2ZhkTi -lMpyxY0U4ir3VvNShmW7pHu9K+53zCmv+f1+xR1Zd7/98ZznfP55znnMQ6N8 -w9VUVFS82fzfO8JHZPWj274IrhtlRUHDdVk04Vgit8vv2ibWG/Jz+FWcjeib -rNsQydrrac+9PI4b/EwvRnSzDghT1F3k+MMjwaH1jiqFgXVnXTM4YdjgnH41 -SJ1CwUe7U9I4MdD6nbu2SpNConbVinOcJFS2Ru2NWEQhMEggpOhsxHLHnCaN -KegqE/e5m+ZDGfCjKN6GgpXP65HG9CKstT6qI7GjENtmj5y3JZC5+Y3bbaOw -VGQgV1UVwm7dl1+X+1K4P+Ta+mzrPejxnP3dDlJo4OUZB02IkOl+af3VKArT -1o6Ly48+gJR6d+3NKQpqs2X6xlbVSBkLzIpOp2CnDLnvV1GLeWHrEkUOhdak -jW1PVj0G52NBnH0xBbOs8dmS1/W4Iz3C44sojCuIvGt9A5T+nqPaDRSKxmok -ehca0Wxj8uaylIKeya2p4eEm2Al8iFxO4fwRcUSB5RNEDPODPpugMONUNnw4 -oRk6J/uDi+YoxNg2iYwa/0B0jy3zqTYNUtGULjOXwPNsvP4jIxrveJ25Nj+0 -QNK30mCpFY3VzlrvI2pa8cE/Y/lxtjTcb5gfuru0DY0Rgl/nnWjEmhywGNz3 -DA6CYwfP7aLBndij2+MtRdBp/rhsL40liyntpjkpJsoeqWzh0dB4nCtczpfB -6aaisDyWRuTGmr6FXu3QnrJsd0qhUeYZWvBoph0nX9wbysymMT2+TP/llQ6U -XgpIHBHQEPu5q2e7dWI3nyo9WEkjwSM5X/SyE+LogtDhOhrmAzt6C5O70Piq -ct6ihYbD50nZHNtubBOKzc/00dhn+mxWtaMbqS6yzrGX7L4kYyg6sQewHjSM -maaRoxEc42vZiwddWkRTncESufiGWlMvuldkZuzRZ7AgPtHf/ngfIiU6zU2m -DFRKgoVDhs9RvznvgiOXwYlrwgzDhudIUywf7HZgULc6Vdvg2AvMBeoacT0Z -GOw4wT2j1w9uysK+tK8Y9K+RdsTV9qNdfd5aJ5xB5XVYDgcPwN57gfqlEwz2 -C+0MTN4PwMM+6reeBAY/JQsS+0vlkHz/VMfxAoPyEZNcvZ0EeqddhspyGaTm -JYfIdxG0xIYMvGId5jtpVeFDkHr8dO9yPoNPamsrvQMI1MKr23JZp2XufXI+ -lGDGy7YmPY/BYbtfaJ04AjnHIjsyn4FF0oceWsUEFWLV7asLGbzffGpRz20C -ntDM+RDrvsm/24vLCFaWOG4tZJ0VULV/+10CAT/O1riIgXKV73fJtQSXf6ZN -dW+yf2WZ19U7COJ9BhVjxQwepii+6egicPBSMta3GGRvOWBT2EugcDN5Hcra -6+ZakYucIHpz0PBz1tUnn/6ZOEoQZiaTSm4zuLJmU6bPBIEFZ6pFs4TB8SG+ -v/kUATFc1OzCeuXOb0n9W4JATc+6atYaqp1FWQoCI5VDD2dY/yXewguZI2if -TaqyLWVQyytct/5fgqw3NyqOsb5qpjutVBLsnKwvKWX9H4fHe30= - "]]}, - Annotation[#, "Charting`Private`Tag$4738#1"]& ], - TagBox[ - {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJwV0Xk41WkUB/AbylLZ45FoiEJMxhhJ6RSSpUgqkWzZMo3KqGRJGkuhmEYR -qWRL9jUTeS03JjTW+7vi/n4vkiGEZMhY5u2P85zn8895vuccJbfzRz34WCxW -Kqlv3cJjpKN29MDei0HD4swt6xoB440XsJwK9Nn3YpkJTfTj46SHpXK6MJ/+ -m0T52B5k+ZZbkipnAqM+FySPjB5Cdu5zr+7KHQNVSdkz5UOOiN4RZXxbzh3M -JppzE/vOoScbrCOj5fzhw+gHce83wShMqHTbLblwMI+cZYtmxqKT9mmFU9MJ -UOzgscMhKhWtXQlzPKj4GDxbXzPRFZlI1ebTSENMBlzWUrY67ZaHrvy9C5K+ -5ADHRj13d1Uxki2TYFatKoQaftMDnbNlqGLQuLVtTwmcGlwX/Y9LJar3SZW3 -Hy+Dk/1GFZLZVWh2q6FY/i8voDU59OoPT2sQ39dccXnVl3Aj68ba9KFapLfi -UmFbUA1pD2LlmmzrUWu47t+NGghW/uDwVZQ0oM3xY19zPtVClf2rlrOqr9HY -HGY42vXQeJUKoC81ooyPVc2idxpgMk+3zqSnCYkqZE8ODbEhKiBQ67X6GxR7 -ttzziUojzBvcmNI/1Yz+3Zc75B3aBDipKvT0wxbkr8Muk2n4C0rZczEJNa0I -F7BjOpSawb6Sb03Op7foP5/uFPXAFkiLfjBRJNqGtu8XXPasaoWd145msITb -0cGnSl7Fsn+D2qIB5R/fjq4oOCsPOLYBOrI/SEGkA2mOH1/LPdwO5552m/cH -dyApsSkh9kI77I1LSbT90oEEUErhlocdAM0TH0SdO9HPulXvhC07Ycwm4vnv -bztRrrnbk5p/O+Hj8Zp7HN0uNDu2UXz4fhfUHm4oD4rvQuW2B/kTTLqhJVzW -s+lTFwo1i3hcNtwNP7LfKaw26kZKtEVPegQHVp6FpW2J60YGO8MT5HQo+E23 -Z7GV7kaOim1fV3VR0LwosTVImYNmm28PXgjjwnN9a3aLFwclCTj5H1XpAc2B -YznF6RwkxZQ/5WP3gOm+DwlD7zhodUjYsV0X34FfIj2dKkYhVo5T4aBkL2zX -EHjEMqSQX3Lhbcn6XlD6MmjJOkuhV9tvCkn49kG8hhI1c4dCEhZ+mjdEeZD8 -oNEpN59CT+rE1hpI8CB0wfDx1gIKae/KH52W4kGG5NPoNGIrtZEsVzke5Hpr -u90vpFD0Giel/So8yMr1kA4uppBAg7kMy4AHrrd1InaWU+jf3Uqsax486ELH -k3yrKcTTau+6Ws0Ddn9dOP2GQo/HJEL4EQ/2Kbm/2tNMIbcc262363ggGoFz -U4hHVbgBTxp5kFLh+vxkC5knzyg0tfPget0fWm2tJL/IuJf0B+LLBYcK2ihk -Oiy4WLCeBsvTNRO6HAoJZ5hn6ovTMCIYMRBN3OoaY1UvSQPFUYnpJ7alRdM4 -sjRk902uRFMUcuneYLqoRINMXOl5HpdCQfVb4s31aFC5N+11sZdCRY9AZciJ -BilFs6ozmEIzgTOCrq401F5eGikg1rPLHqPP0PDfgm/bV+IqMbFSrjeZFxnZ -eKefQo3Xmf0tfjTMZEWdLh+gUJ9biHNJJA1aUp3fz76n0JptVcnXC2govhfl -BCMUMuc/f22piIZ1LvXpYcSxWNktsJSGz8f/TGsglkiKVvevpOFndl+T6SiF -Ngk7VHrV0zCf+7na/COFdMbmOVYUDcmZ3hZG4xQ6XagnobBM7mF06fPSJIUq -HOZF21kMnDKz375nikKia16u+42fAd8jDuKBxLWOhkKjQgwEeJcyX4iVRUxW -yqQYUKisix2eptCwu83EIXUGsjhW37+coZDvxnNvgo8xUCq8PUp5juz7Wqtp -hx0D1mcKjU8Qb744yR60ZyAWHcm7Rdze5Fdr5szAeOjHsElinUtXX0j7MGDw -XeDeF/MUmmuLzMwLZUACCy/pLVDoekRaGO85A3XHx+LmFim0/oqghWs+A/P5 -18QVlyiU7P2L5HAhA/1agmYmxKWWu9InyxiozpjriyMeluhg8yEGinxPJG5Z -ppDlI5aQehcDEb+udTRcoVBPnGd7PoeBStNpS2di97DWJJ0eBpL2t36+TnzN -PUl9D82Ad4GrRwNxkYa2pfU/DBxwF2FMWFwk88L5zqX/GBjZZ6tgsIqL0p+9 -PrGwxIB0XEywHbF28vbNoSwMkwJ/3vUnNg+ZK7y5GkOJ18z7fOJg47iOFDEM -/sLDcgp8XDTYViNdvwXDP6/quyaIz9ep0KZbMayLOvx0DT8XLZZEZ7aoYei/ -8nbbZuIN90/ocbQwJLXn2VkTmzl+shvZiWG/06hFHnH+iEKK6CEMNz7ah54U -4KKbqREujBWGbOXvpM4Tux+dUC2wwWBoOGAZQbypurrosB3JJ3csr4g4Ou5U -Y6wbhu7zi2r8q7nI06QhxtEDg1/VgyEZYqOvGjaa3hiuj/5wQIP4q9tCX8sv -GIbHj85aE3vrPZgWuYrhY7ydRCKxyRjrRW8QhlVTLV+yiTc/8Q5+fg1DxA+7 -QyqJKWF9QYtwDMwpkZAe4gM0telWHIbXh3/Wl17DRd/d3Tt48i4G29oKY2Xi -RdOsbLV7GI5sWJrZQVxWdEnnr2QMKZ6BxhbEyuHSZoJZGM5k7XwUSLysH7ye -+wyDj6ZDRwTxu4n3nVm5GAYTruTEE8fblZ42LcYgvz7dLJP43Dr5LTJlJM+m -YrFCYrO6GyMfKjBIir0MqiRe0Tj6a0Q1BnZytVEzcS/+U/84wnBAtyK1k7gi -QWlZpR7Dj0XPU3uJfZenbrKbMLhYh8eOEluUnrRKaMaQ6nc2aIpY1btWyv0t -BrMAc7E5Yl5H3CP+LgxjGguq/IJcVBk5d6aLg2GI2/xMiDhht7N6eg+Gw173 -29cTX5hq/OTXh0H5nWOqJLFl5vdlRgwGLy1FMVnirQ73r0oOYFBw71WVJ+YT -W947+B6DUcjvA4rETIOHQMkw+XeAsZEy8cuAt2/CRjFQJ6YOqhLf1/opzmYc -w0HZpM/biC8OPjymNIlB7aWBkQbxoUSBjdPTGC5Dj54msdqhc7j2C4afsi+0 -axELrOrOiJ8j/5jmF9tB3F++28dlAcOKwt3P31ztk75DewmDiJZ8kDZx4ua1 -sysrGMIVHz/75v8BdNVHDQ== - "]]}, - Annotation[#, "Charting`Private`Tag$4738#2"]& ], - TagBox[ - {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ - 1.], LineBox[CompressedData[" -1:eJwVz3lYzAkAxvGmGaRWh3bLRFEqVBgJlePdNSjSeiQbj46RDk02chS21g4z -rbu2ZomoVKKiSYpdTXSMJN2HKTvNbyWU6ZipOX7Dbu3sH+/zfT5/vrahB/3C -9fX09Hx1+79bwgfaqgY3rpunfUPT05ODxrQ6RNDtEdNpSLWmyLE8K/3GQ7ob -zKeajHroy+HTJC69Sd8A1gF+yhGaHAFhmspUuj9mbEzTvjeQo3fpr8xL9DAU -Ou7d98JMjuxvtiWdpx+FonDtlYT5cnAMHi44R+ei8rH2eMkmOXbtviWQK/jo -q75TYJgqh9EkJ9DLJguhSbFGrmI5HLaPDNReyMP1VVKlhK5AfLMH0pUFGOmZ -kv+JpYBlmZmUQhHgcHLez4Y5CjzqYza2rCmFm3tfo99HBWrYN2fvHioD/5hm -j4HTGFSOa03u//gYiZ/SSi0ix6CvLTKd7fAEP+ClgnZ3DCsnWY92FAvBYE6o -D74bQyPXrbnO6RmuNXzxSJkzjrkpMm3BSBXe/fQ2d/Puccg0hLSLUQN3+7B0 -Uco48j5VNBhfrkX4M+aFzFfjMLa+M9rfL4KXXI9nSVPiYlR5RLZ9HZ47349P -X6WE+tui/v2nXsBR1mHMiFHiqKuozKK2HlNbH5wZz1KCKBZdaLNtgL907bK0 -TiW+sDszFp18BRsjyZLhqSo4fzdtIqKiEdevTtb/6aaCV45t5APLZjQ5MEbp -4SrEW4fYvQ1sAVu1rsr0NxVchnYaiX1bocw3m5heoYK5idxA9LkVwuTbH7Z9 -VIH2LEMw/0YbWi2PBMWaqBHtVtEz3acdZ5h1a257qFG0OTT7qbodY4fsvJ/v -VUMlszL9cKUDVpH1MdOS1Cjf4UXlb+jE6cQ4rvk9NU5587LKPnSi5q1FYXiz -Gra9W7pzeV2g+pm9l42o4bmKy6e7vkaEUMZSmWoQaNOipXS8xpPqnZnnlmqg -arjUd4gjBluppEZu0yCdFnzUz74b+sZBm8ejNTCXlufoi7oxEF9f2pykwZRE -jr9HbA+8GaeZ93I00CsIFvTNfAMfps2jxAoNDl8XXJpZ8wapZXOUFl0aVDqf -NTCL+QuZuWlGg0MamG057HLaWIJUl4oSFYWEZHFrxwmhBNQEl7McSxIlmbDv -D+7FU3+xItqJRJBgpZn1RC/0z3+1TryaxC+8WxxJoRSePvUjJ31J3B+wzjDe -SqCYnKVfE0ji7E0eS/o9gWO/LMyhBpEI8xt2KN5OQFwV57xR5zlCYYlvAIGY -6BbtC53PJ++puxhKQBYZy2sMJrF/5TWF4QkCsybid7WxSNhxv/aelk/AKyt5 -+GUYiQn3hBniuwS4nnHlBuEkeobftecXEWBdzojw0jkl4GHQpgcEBkJyuCKd -J538jvCEBDYVZgsqI3R/25IzqR0E3CUh1UX7SfyRpNnX0UVgOcXVelBn/uqQ -RbndBBqk60Mdo0j43F5Stl6qc+28u9k6Pzne9JIzSMBqRZMdn03iyuIVyduH -CChtfq9v1Tm274a/7SiBqOqMgBnRJBZuPUBUKQk4MMKXJelMo3TmpWgIHPxn -QUKNzn+Xr2azPhPw4ywqmdBZyM5dyviXQPvTqCbPAySuzjVSTU4SGC4b6IjT -+T+Y/Xj9 - "]]}, - Annotation[#, "Charting`Private`Tag$4738#3"]& ]}, {}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, - Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, - Charting`ScaledFrameTicks[{Identity, Identity}]}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->NCache[{{0, - Rational[1, 2]}, {-0.3598138472266117, 1.5264805104919177`}}, {{ - 0, 0.5}, {-0.3598138472266117, 1.5264805104919177`}}], - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{ - 3.769505152323214*^9, 3.769505211346933*^9, {3.7695052422256107`*^9, - 3.769505264045567*^9}, 3.769505346546062*^9}, - CellLabel-> - "Out[183]=",ExpressionUUID->"dbf962c7-bcf3-46ad-ac00-a2722ae9ab08"] -}, Open ]], - Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", @@ -33705,41 +33012,44 @@ Cell[BoxData[ RowBox[{"{", RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", RowBox[{ - FractionBox["1", "30"], " ", "\[Rho]", " ", + FractionBox["1", "15"], " ", "\[Rho]", " ", RowBox[{"(", RowBox[{ - RowBox[{"40", " ", + RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", - RowBox[{"Log", "[", "8", "]"}]}], ")"}], " ", + RowBox[{"Log", "[", "64", "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ - RowBox[{"-", "1"}], "+", "w1"}], ")"}], " ", "w1"}], "+", - RowBox[{ + RowBox[{"-", "1"}], "+", + SubscriptBox["w", "1"]}], ")"}], " ", + SubscriptBox["w", "1"]}], "+", + RowBox[{"8", " ", RowBox[{"(", RowBox[{ - RowBox[{"-", "64"}], "+", - RowBox[{"65", " ", "w1"}]}], ")"}], " ", "w2"}], "+", - RowBox[{"64", " ", - SuperscriptBox["w2", "2"]}]}], ")"}]}]}], ";"}], + RowBox[{"-", "4"}], "+", + RowBox[{"5", " ", + SubscriptBox["w", "1"]}]}], ")"}], " ", + SubscriptBox["w", "2"]}], "+", + RowBox[{"32", " ", + SubsuperscriptBox["w", "2", "2"]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", - RowBox[{"(*", + RowBox[{ RowBox[{ + RowBox[{"\[Epsilon]OGc", "[", + RowBox[{"\[Rho]_", ",", + RowBox[{"{", + RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", RowBox[{ RowBox[{"\[Epsilon]OGc", "[", - RowBox[{"\[Rho]_", ",", + RowBox[{"\[Rho]", ",", RowBox[{"{", - RowBox[{"w1_", ",", "w2_"}], "}"}]}], "]"}], "=", - RowBox[{ - RowBox[{"\[Epsilon]OGc", "[", - RowBox[{"\[Rho]", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", - RowBox[{"\[Epsilon]GIC", "[", - RowBox[{"\[Rho]", ",", - RowBox[{"{", - RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}], "*)"}], + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}], "+", + RowBox[{"\[Epsilon]GIC", "[", + RowBox[{"\[Rho]", ",", + RowBox[{"{", + RowBox[{"w1", ",", "w2"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ @@ -33943,9 +33253,11 @@ Cell[BoxData[ 3.769496100659851*^9, 3.769496137079555*^9, {3.7694963057110577`*^9, 3.7694963329491377`*^9}, {3.769497118117201*^9, 3.769497127100543*^9}, 3.769497485307542*^9, 3.769505445838518*^9, {3.769506338456609*^9, - 3.769506374201797*^9}, {3.7695124941229467`*^9, 3.769512513436187*^9}}, + 3.769506374201797*^9}, {3.7695124941229467`*^9, 3.769512513436187*^9}, + 3.769706905211454*^9, {3.769707165238984*^9, 3.769707166277112*^9}, + 3.7697077244601793`*^9, 3.7701327877521753`*^9}, CellLabel-> - "In[512]:=",ExpressionUUID->"e466e95f-cc3e-4aba-8580-3d6302f7fc08"] + "In[185]:=",ExpressionUUID->"e466e95f-cc3e-4aba-8580-3d6302f7fc08"] }, Open ]], Cell[CellGroupData[{ @@ -34944,7 +34256,7 @@ Cell[BoxData[ 3.753379636877358*^9, 3.753379665353449*^9}, 3.753381591119458*^9, { 3.753759848082973*^9, 3.753759884967236*^9}}, CellLabel-> - "In[129]:=",ExpressionUUID->"faa1241f-f65d-46fc-b859-df962cf25c34"], + "In[133]:=",ExpressionUUID->"faa1241f-f65d-46fc-b859-df962cf25c34"], Cell[BoxData[ RowBox[{ @@ -35103,7 +34415,7 @@ Cell[BoxData[ 3.753163996505825*^9, 3.753163997079224*^9}, {3.753175197902507*^9, 3.753175282994722*^9}, {3.75317556606504*^9, 3.7531755780626383`*^9}}, CellLabel-> - "In[130]:=",ExpressionUUID->"d9a2ebfc-b353-4be5-834b-d1f4d584aed7"] + "In[134]:=",ExpressionUUID->"d9a2ebfc-b353-4be5-834b-d1f4d584aed7"] }, Closed]], Cell[CellGroupData[{ @@ -36174,7 +35486,7 @@ Cell[BoxData[ 3.7533804830546427`*^9}, 3.753380790616272*^9, {3.753381476408359*^9, 3.7533815132889023`*^9}, {3.753381602777007*^9, 3.75338160290067*^9}}, CellLabel-> - "In[131]:=",ExpressionUUID->"7a26edc6-1cec-4f86-a6ac-78661104905b"], + "In[135]:=",ExpressionUUID->"7a26edc6-1cec-4f86-a6ac-78661104905b"], Cell[BoxData[ RowBox[{ @@ -36350,7 +35662,7 @@ Cell[BoxData[ 3.753163996505825*^9, 3.753163997079224*^9}, {3.7533751880295963`*^9, 3.7533751885350037`*^9}, {3.753380251742383*^9, 3.753380287091457*^9}}, CellLabel-> - "In[132]:=",ExpressionUUID->"72f3211b-15aa-4590-a146-975c60dbe95c"] + "In[136]:=",ExpressionUUID->"72f3211b-15aa-4590-a146-975c60dbe95c"] }, Closed]], Cell[CellGroupData[{ @@ -37727,7 +37039,7 @@ Cell[BoxData[ 3.7695119282688637`*^9}, {3.769512128040473*^9, 3.769512132717004*^9}, { 3.769512402965886*^9, 3.7695124074937277`*^9}}, CellLabel-> - "In[539]:=",ExpressionUUID->"11221944-5033-4040-bc23-902aa3737a9c"], + "In[137]:=",ExpressionUUID->"11221944-5033-4040-bc23-902aa3737a9c"], Cell[BoxData[" "], "Input", CellChangeTimes->{ @@ -37924,8 +37236,8 @@ Cell[BoxData[ 3.753163996505825*^9, 3.753163997079224*^9}, {3.7533751880295963`*^9, 3.7533751885350037`*^9}, {3.753427363238578*^9, 3.753427443878433*^9}}, CellLabel-> - "In[134]:=",ExpressionUUID->"06cbc894-5531-4a6e-b39f-fb7110953aad"] -}, Open ]] + "In[138]:=",ExpressionUUID->"06cbc894-5531-4a6e-b39f-fb7110953aad"] +}, Closed]] }, Open ]], Cell[CellGroupData[{ @@ -38179,7 +37491,7 @@ Cell[BoxData[ 3.751888185127203*^9}, 3.75188893389606*^9, 3.753073549416374*^9, 3.753073975039878*^9}, CellLabel-> - "In[135]:=",ExpressionUUID->"7e98fb8d-3c63-4d2d-9bd0-6fc66338de6d"], + "In[139]:=",ExpressionUUID->"7e98fb8d-3c63-4d2d-9bd0-6fc66338de6d"], Cell[BoxData[ RowBox[{ @@ -39124,7 +38436,7 @@ Cell[BoxData[ 3.7530104155900183`*^9, 3.753010418806386*^9}, 3.753035789775569*^9, 3.753074265153982*^9}, CellLabel-> - "In[152]:=",ExpressionUUID->"5f8e1ced-357f-43c7-9cbd-5b9f609f3a63"], + "In[156]:=",ExpressionUUID->"5f8e1ced-357f-43c7-9cbd-5b9f609f3a63"], Cell[BoxData[ RowBox[{ @@ -39311,7 +38623,7 @@ Cell[BoxData[ 3.751880039126204*^9}, {3.7518879874952803`*^9, 3.751888003510338*^9}, { 3.753035803677496*^9, 3.753035812369643*^9}}, CellLabel-> - "In[153]:=",ExpressionUUID->"68e8c54c-5af3-4131-a4e3-ef7775bd8d74"] + "In[157]:=",ExpressionUUID->"68e8c54c-5af3-4131-a4e3-ef7775bd8d74"] }, Closed]] }, Open ]], @@ -40025,7 +39337,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.753420305614822*^9}, CellLabel-> - "In[154]:=",ExpressionUUID->"176798d0-1c81-4a7b-af3e-a4ff00f57f19"], + "In[158]:=",ExpressionUUID->"176798d0-1c81-4a7b-af3e-a4ff00f57f19"], Cell[BoxData[ RowBox[{ @@ -40056,194 +39368,47 @@ Cell[BoxData[ 3.753636743034502*^9}, {3.7536367746508617`*^9, 3.753636784162524*^9}, { 3.753636940170632*^9, 3.753636941141137*^9}}, CellLabel-> - "In[157]:=",ExpressionUUID->"a0490fa9-06c9-4e65-84b2-908e20e7745b"], + "In[161]:=",ExpressionUUID->"a0490fa9-06c9-4e65-84b2-908e20e7745b"], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"E$w1$Box2", "=", + RowBox[{"Ew", "=", RowBox[{"Table", "[", RowBox[{ - RowBox[{"Flatten", "[", - RowBox[{"{", - RowBox[{"w", ",", - RowBox[{ - RowBox[{"OptGap", "[", - RowBox[{"\"\\"", ",", "2", ",", "30", ",", - RowBox[{"L", " ", "\[Pi]"}], ",", - RowBox[{"{", - RowBox[{"w", ",", "0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", - "2", "\[RightDoubleBracket]"}]}], "}"}], "]"}], ",", RowBox[{"{", - RowBox[{"L", ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "8"], ",", "1", ",", "2", ",", "4", ",", "8"}], - "}"}]}], "}"}], ",", - RowBox[{"{", - RowBox[{"w", ",", "0", ",", - RowBox[{"1", "/", "2"}], ",", - RowBox[{"1", "/", "4"}]}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.7536852511340513`*^9, 3.753685256093152*^9}, - 3.76949686252892*^9}, - CellLabel-> - "In[417]:=",ExpressionUUID->"33d3b34d-7b98-4653-a319-64bfc4026279"], - -Cell[BoxData["\<\"Weights are inconsistent!!\"\>"], "Print", - CellChangeTimes->{3.769496877387356*^9}, - CellLabel-> - "During evaluation of \ -In[417]:=",ExpressionUUID->"5eab19b6-625c-4635-8562-5e1928a9a365"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.76949689874289*^9}, - CellLabel-> - "Out[417]=",ExpressionUUID->"31186200-ec52-49c3-8276-371390bc48e9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"OptGap", "[", - RowBox[{"\"\\"", ",", "2", ",", "30", ",", " ", "\[Pi]", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"1", "/", "2"}], ",", "0"}], "}"}]}], "]"}]], "Input", - CellChangeTimes->{{3.76949690496175*^9, 3.769496917328082*^9}}, - CellLabel-> - "In[418]:=",ExpressionUUID->"23d1a8e1-6302-4fcd-b56d-23ec5dfb4f9e"], - -Cell[BoxData["\<\"Weights are inconsistent!!\"\>"], "Print", - CellChangeTimes->{3.7694969175644093`*^9}, - CellLabel-> - "During evaluation of \ -In[418]:=",ExpressionUUID->"d4b88b69-d2bd-455f-940c-35c418a7c376"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - "False", ",", "4.592178637445947`", ",", - "3.7737347226533631152634771032826687561827256031945926724027`29.\ -69897000433602", ",", "1.3992606035520037`", ",", - RowBox[{"-", "0.5808166887594192`"}], ",", "0.8184439147925845`", ",", "7", - ",", "1.3923180663955037`*^-8", ",", "2.750636703469043`", ",", - RowBox[{"{", - RowBox[{ - "2.937313984849595`", ",", "5.68802656175288`", ",", - "11.725577245955368`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"-", "0.0010149022106312748`"}], ",", "0.0010149022106312748`", - ",", - RowBox[{"-", "1.5561444304273575`"}]}], "}"}], ",", - "0.5412774170431658`", ",", - RowBox[{"{", - RowBox[{"2.7507125769032847`", ",", "8.788263261105772`"}], "}"}], ",", - "\[CapitalOmega]TD$817554"}], "}"}]], "Output", - CellChangeTimes->{3.7694969254760923`*^9}, - CellLabel-> - "Out[418]=",ExpressionUUID->"55e2e19a-1baa-4960-8bed-414ffd6efa50"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"E$w1", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"Flatten", "[", - RowBox[{"{", - RowBox[{"w", ",", - RowBox[{ - RowBox[{"OptGap", "[", - RowBox[{"\"\\"", ",", "2", ",", "30", ",", - RowBox[{"L", " ", "\[Pi]"}], ",", - RowBox[{"{", - RowBox[{"w", ",", "0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", - "2", "\[RightDoubleBracket]"}]}], "}"}], "]"}], ",", - RowBox[{"{", - RowBox[{"L", ",", - RowBox[{"{", "8", "}"}]}], "}"}], ",", + RowBox[{"w", ",", + RowBox[{ + RowBox[{"OptGap", "[", + RowBox[{"\"\\"", ",", "2", ",", "30", ",", " ", "\[Pi]", ",", + RowBox[{"{", + RowBox[{"w", ",", "0"}], "}"}]}], "]"}], "\[LeftDoubleBracket]", + "2", "\[RightDoubleBracket]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"w", ",", "0", ",", RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "12"}]}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.753635532784761*^9, 3.7536355768151817`*^9}, { - 3.7536356137857847`*^9, 3.753635648383307*^9}, {3.753642330451766*^9, - 3.753642375932536*^9}, {3.7536836556941853`*^9, 3.753683689389139*^9}, { - 3.753684121480118*^9, 3.753684136277574*^9}, {3.753684192231286*^9, - 3.753684192677194*^9}, {3.769496888914081*^9, 3.7694969082572527`*^9}, { - 3.769497032913558*^9, 3.769497032999708*^9}, {3.7694975659980907`*^9, - 3.76949756726751*^9}, 3.7695054616669273`*^9, {3.769505590392177*^9, - 3.769505591367206*^9}, {3.769505664897153*^9, 3.7695056650310707`*^9}}, + CellChangeTimes->{{3.7702237220571747`*^9, 3.770223742814766*^9}}, CellLabel-> - "In[213]:=",ExpressionUUID->"bc5f6205-d019-422a-bd0c-c5a1cc8bac37"], + "In[214]:=",ExpressionUUID->"e4705d0a-fee7-45aa-86b3-cda3adedfb4f"], -Cell[CellGroupData[{ - -Cell[BoxData["\<\"Weights are inconsistent!!\"\>"], "Print", - CellChangeTimes->{3.769505549844095*^9, 3.7695056336461887`*^9, - 3.769505720276822*^9}, +Cell[BoxData["$Aborted"], "Output", + CellChangeTimes->{3.7702237459263687`*^9, 3.770224581925281*^9}, CellLabel-> - "During evaluation of \ -In[213]:=",ExpressionUUID->"7a61b679-b6c9-417a-a64d-9d675514543a"], - -Cell[BoxData["\<\"Weights are inconsistent!!\"\>"], "Print", - CellChangeTimes->{3.769505549844095*^9, 3.7695056336461887`*^9, - 3.769505731226828*^9}, - CellLabel-> - "During evaluation of \ -In[213]:=",ExpressionUUID->"5160e428-6ca0-431e-ac81-9e13e7ee840d"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"{", - RowBox[{"0", ",", "0.2011637831698233`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "12"], ",", "0.20790834639328643`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "6"], ",", "0.21474996558841697`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "4"], ",", "0.22170469023606681`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "3"], ",", "0.22879089815821907`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["5", "12"], ",", "0.2360296914190001`"}], "}"}], ",", - RowBox[{"{", - RowBox[{ - FractionBox["1", "2"], ",", "0.24344534406123108`"}], "}"}]}], "}"}], - "}"}]], "Output", - CellChangeTimes->{ - 3.753635600899949*^9, 3.753635696885704*^9, {3.753642361685731*^9, - 3.753642376531168*^9}, 3.753642587306117*^9, 3.753683937504332*^9, - 3.75368418900139*^9, 3.753684487508844*^9, 3.769496960465927*^9, - 3.7694970888775806`*^9, 3.76949754836872*^9, 3.769497624723118*^9, - 3.769505469535804*^9, 3.769505567443074*^9, 3.769505650536372*^9, - 3.769505742171781*^9}, - CellLabel-> - "Out[213]=",ExpressionUUID->"56764a43-e5b6-4eaf-9f8a-f7b3efe0977b"] + "Out[214]=",ExpressionUUID->"a0c47b1b-dd88-440c-aabe-91bcc54542dc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", - RowBox[{ - RowBox[{"E$w1", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], - ",", + RowBox[{"Ew", ",", RowBox[{"Joined", "\[Rule]", "True"}], ",", RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]], "Input", - CellChangeTimes->{{3.769497002095851*^9, 3.769497041447783*^9}}, - CellLabel-> - "In[214]:=",ExpressionUUID->"65c89a4c-373e-4c63-a618-a981e86faf6c"], + CellChangeTimes->{{3.769497002095851*^9, 3.769497041447783*^9}, { + 3.770223779314747*^9, + 3.770223781382737*^9}},ExpressionUUID->"65c89a4c-373e-4c63-a618-\ +a981e86faf6c"], Cell[BoxData[ GraphicsBox[{{}, {{{}, {}, @@ -43842,7 +43007,7 @@ Cell[BoxData[ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "12"}]}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\ "65e232e9-6897-4381-a7b5-bd66c69db829"] -}, Closed]], +}, Open ]], Cell[CellGroupData[{ @@ -43862,7 +43027,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.753420305614822*^9}, CellLabel-> - "In[158]:=",ExpressionUUID->"75c0e938-eb67-4d7c-b553-62fa6f39140b"], + "In[162]:=",ExpressionUUID->"75c0e938-eb67-4d7c-b553-62fa6f39140b"], Cell[BoxData[ RowBox[{ @@ -43893,7 +43058,7 @@ Cell[BoxData[ 3.753636743034502*^9}, {3.7536367746508617`*^9, 3.753636784162524*^9}, { 3.753636940170632*^9, 3.753636941141137*^9}}, CellLabel-> - "In[161]:=",ExpressionUUID->"5df0a514-6a2c-4f9a-a7f6-01a7a981b874"], + "In[165]:=",ExpressionUUID->"5df0a514-6a2c-4f9a-a7f6-01a7a981b874"], Cell[CellGroupData[{ @@ -47794,7 +46959,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.753420305614822*^9}, CellLabel-> - "In[162]:=",ExpressionUUID->"88cd3b93-e20f-4d40-acb9-79c8fcf5fc0c"], + "In[166]:=",ExpressionUUID->"88cd3b93-e20f-4d40-acb9-79c8fcf5fc0c"], Cell[BoxData[ RowBox[{ @@ -47825,7 +46990,7 @@ Cell[BoxData[ 3.753636743034502*^9}, {3.7536367746508617`*^9, 3.753636784162524*^9}, { 3.753636940170632*^9, 3.753636941141137*^9}}, CellLabel-> - "In[165]:=",ExpressionUUID->"18017cba-56ae-49a2-a9a9-2c943ad08345"], + "In[169]:=",ExpressionUUID->"18017cba-56ae-49a2-a9a9-2c943ad08345"], Cell[CellGroupData[{ @@ -50344,7 +49509,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.753420305614822*^9}, CellLabel-> - "In[166]:=",ExpressionUUID->"11d26b23-4171-43d7-b02b-d51cb2cb0fc7"], + "In[170]:=",ExpressionUUID->"11d26b23-4171-43d7-b02b-d51cb2cb0fc7"], Cell[BoxData[ RowBox[{ @@ -50375,7 +49540,7 @@ Cell[BoxData[ 3.753636743034502*^9}, {3.7536367746508617`*^9, 3.753636784162524*^9}, { 3.753636940170632*^9, 3.753636941141137*^9}}, CellLabel-> - "In[169]:=",ExpressionUUID->"de403758-4969-4c4c-8137-4dd647f401c0"], + "In[173]:=",ExpressionUUID->"de403758-4969-4c4c-8137-4dd647f401c0"], Cell[CellGroupData[{ @@ -52589,7 +51754,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.753420305614822*^9, 3.753767723607481*^9}, CellLabel-> - "In[170]:=",ExpressionUUID->"c1653e8d-0575-4801-bc8f-798d7044242f"], + "In[174]:=",ExpressionUUID->"c1653e8d-0575-4801-bc8f-798d7044242f"], Cell[BoxData[ RowBox[{ @@ -52630,7 +51795,7 @@ Cell[BoxData[ 3.753372865251049*^9}, {3.7533739771228*^9, 3.7533739777*^9}, { 3.753767669191033*^9, 3.753767711439291*^9}}, CellLabel-> - "In[173]:=",ExpressionUUID->"9a7e4774-dffc-448a-afaa-994d57f46dce"] + "In[177]:=",ExpressionUUID->"9a7e4774-dffc-448a-afaa-994d57f46dce"] }, Closed]], Cell[CellGroupData[{ @@ -72737,7 +71902,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.753098635421571*^9, 3.753098704664147*^9}, 3.753098842870673*^9, 3.7532713108411407`*^9, 3.7537678160869226`*^9}, CellLabel-> - "In[174]:=",ExpressionUUID->"ff395d89-6534-42e4-9d67-65463ac7c5cb"], + "In[178]:=",ExpressionUUID->"ff395d89-6534-42e4-9d67-65463ac7c5cb"], Cell[BoxData[ RowBox[{ @@ -72775,7 +71940,7 @@ Cell[BoxData[ 3.75337043460994*^9, {3.753372843183302*^9, 3.753372843782058*^9}, { 3.753373905093961*^9, 3.753373905519621*^9}, 3.753767779584198*^9}, CellLabel-> - "In[177]:=",ExpressionUUID->"cf0e8cee-80b4-479d-a37e-48ee03d75c07"] + "In[181]:=",ExpressionUUID->"cf0e8cee-80b4-479d-a37e-48ee03d75c07"] }, Closed]], Cell[CellGroupData[{ @@ -143056,7 +142221,7 @@ Cell[BoxData[ 3.7123007650830927`*^9, 3.7123008050655737`*^9}, {3.712302098354908*^9, 3.712302119009842*^9}, {3.712302190411255*^9, 3.7123021941546307`*^9}}, CellLabel-> - "In[178]:=",ExpressionUUID->"5db5b15a-b66a-48ca-badf-1718fb820a4a"] + "In[182]:=",ExpressionUUID->"5db5b15a-b66a-48ca-badf-1718fb820a4a"] }, Closed]], Cell[CellGroupData[{ @@ -143742,7 +142907,7 @@ Cell[BoxData[ 3.748364378532619*^9, 3.748364480384007*^9}, {3.7483646914570827`*^9, 3.7483646922556047`*^9}, {3.7483648466156054`*^9, 3.748364852094104*^9}}, CellLabel-> - "In[179]:=",ExpressionUUID->"d86b6e7e-16bc-4bbc-ab05-49b514161ba0"] + "In[183]:=",ExpressionUUID->"d86b6e7e-16bc-4bbc-ab05-49b514161ba0"] }, Closed]], Cell[CellGroupData[{ @@ -144498,7 +143663,7 @@ Cell[BoxData[ 3.748329734751727*^9}, {3.748330691348379*^9, 3.748330694070681*^9}, { 3.74833072480411*^9, 3.748330725679895*^9}}, CellLabel-> - "In[180]:=",ExpressionUUID->"d25c00bc-a3f2-4165-b91c-836c09494a9c"] + "In[184]:=",ExpressionUUID->"d25c00bc-a3f2-4165-b91c-836c09494a9c"] }, Closed]] }, Open ]], @@ -146556,1849 +145721,1805 @@ Cell[418334, 10111, 708, 19, 50, "Output",ExpressionUUID->"f2f1d182-3ad1-4d60-ad }, Closed]], Cell[CellGroupData[{ Cell[419091, 10136, 309, 5, 38, "Subsection",ExpressionUUID->"e947760e-6b08-4f19-a607-c501d26f4129"], -Cell[419403, 10143, 1565, 52, 198, "Input",ExpressionUUID->"46bb3386-ba05-4560-acd3-c1b203c2f806"], +Cell[419403, 10143, 270, 4, 35, "Text",ExpressionUUID->"32883f14-1ced-471a-82a8-8d9d701622b7"], Cell[CellGroupData[{ -Cell[420993, 10199, 1876, 56, 121, "Input",ExpressionUUID->"27704883-771d-477c-9681-a3e86cee78da"], -Cell[422872, 10257, 282, 5, 34, "Output",ExpressionUUID->"b5092f4e-557e-430d-9329-0152a09cccfa"], -Cell[423157, 10264, 282, 5, 34, "Output",ExpressionUUID->"6efdf3dd-6c79-445d-b6b8-3ea2a51fcc6c"], -Cell[423442, 10271, 282, 5, 34, "Output",ExpressionUUID->"400ec742-485f-41e7-9f96-32ce0287c3a4"] +Cell[419698, 10151, 1672, 49, 69, "Input",ExpressionUUID->"d2caffdb-501c-4510-bc26-4d355b805474"], +Cell[421373, 10202, 298, 6, 34, "Output",ExpressionUUID->"273a9346-69d5-4caa-9a85-f55ab65703ff"] +}, Open ]], +Cell[421686, 10211, 282, 4, 35, "Text",ExpressionUUID->"39ef1b93-2e92-43e8-881d-cb8e9d15503b"], +Cell[CellGroupData[{ +Cell[421993, 10219, 1685, 50, 69, "Input",ExpressionUUID->"d19cd98c-2b1c-4fc0-a8fb-17df45a2605d"], +Cell[423681, 10271, 323, 7, 34, "Output",ExpressionUUID->"9b206a41-036f-4b3d-ac07-36ed01244291"] +}, Open ]], +Cell[424019, 10281, 334, 5, 35, "Text",ExpressionUUID->"9f5d78b0-6557-4d70-a3c3-d08b9887b755"], +Cell[CellGroupData[{ +Cell[424378, 10290, 1735, 50, 69, "Input",ExpressionUUID->"2ec14b1c-e145-4bec-9346-489743d75ff6"], +Cell[426116, 10342, 348, 7, 34, "Output",ExpressionUUID->"c5fa7dcb-d704-45b6-bcf8-2339b5cacca1"] +}, Open ]], +Cell[426479, 10352, 381, 6, 35, "Text",ExpressionUUID->"146f7f75-23a7-4207-b43c-6a654ad12373"], +Cell[CellGroupData[{ +Cell[426885, 10362, 2434, 69, 123, "Input",ExpressionUUID->"ecb0339e-76ce-4697-b12e-5c2e58ab74a2"], +Cell[429322, 10433, 611, 13, 34, "Output",ExpressionUUID->"b4a79ce2-fbf9-4cbd-884d-72e78392e202"] +}, Open ]], +Cell[429948, 10449, 159, 3, 35, "Text",ExpressionUUID->"6c92d040-dcd5-4820-9721-5a580ef5ec55"], +Cell[430110, 10454, 11849, 333, 299, "Input",ExpressionUUID->"79f4fff6-7c19-44e5-996c-1cd83f195be0"], +Cell[CellGroupData[{ +Cell[441984, 10791, 3295, 108, 208, "Input",ExpressionUUID->"e3167e91-6fef-4487-980f-4f31e1a54521"], +Cell[445282, 10901, 180, 3, 34, "Output",ExpressionUUID->"d99d92d0-246a-4c2c-9078-f7219dd56c97"], +Cell[445465, 10906, 180, 3, 34, "Output",ExpressionUUID->"d4d49ebc-6cc0-4ec1-b11d-c656175d06f2"], +Cell[445648, 10911, 180, 3, 34, "Output",ExpressionUUID->"671b42b4-fa6a-4aaa-a6a1-225efc13dd77"], +Cell[445831, 10916, 180, 3, 34, "Output",ExpressionUUID->"325856f1-987d-4c41-8c25-71ba9a7fa7c3"], +Cell[446014, 10921, 180, 3, 34, "Output",ExpressionUUID->"d733e17c-2205-451e-9e4f-c91726c4cf8d"] }, Open ]], Cell[CellGroupData[{ -Cell[423761, 10281, 1587, 42, 121, "Input",ExpressionUUID->"ccf80901-dd3a-4723-8165-e26a50b0c06f"], -Cell[425351, 10325, 348, 9, 58, "Output",ExpressionUUID->"b9e4a9b5-8314-400b-ae0e-995e993aef1b"], -Cell[425702, 10336, 325, 7, 51, "Output",ExpressionUUID->"caa550cb-a694-4c53-92cd-dd04cdc7e682"], -Cell[426030, 10345, 402, 11, 58, "Output",ExpressionUUID->"7c0a5322-4abb-4291-a3f2-13fde5a74170"] +Cell[446231, 10929, 2071, 57, 117, "Input",ExpressionUUID->"3f1a4823-45fc-4097-8bc7-9a4b6c015f76"], +Cell[448305, 10988, 537, 15, 51, "Output",ExpressionUUID->"348316d7-594b-4501-9415-c62a58a72bfa"], +Cell[448845, 11005, 433, 11, 51, "Output",ExpressionUUID->"02986ae4-d735-47e8-85b2-9eef7d01a43d"] }, Open ]], Cell[CellGroupData[{ -Cell[426469, 10361, 1184, 34, 121, "Input",ExpressionUUID->"97b9ca01-cd1b-4525-a1fa-6be35f18e65f"], -Cell[427656, 10397, 201, 4, 51, "Output",ExpressionUUID->"c0fbef86-c8f3-4070-be01-1167a049525e"], -Cell[427860, 10403, 199, 4, 51, "Output",ExpressionUUID->"cb477be6-d28c-4479-b79b-bfd9fcd5abe1"], -Cell[428062, 10409, 199, 4, 51, "Output",ExpressionUUID->"2935da9c-f14f-45d2-bc66-f3d09d9641c4"] -}, Open ]], -Cell[428276, 10416, 144, 3, 35, "Text",ExpressionUUID->"a9f8918b-23e4-4993-b9fc-ece8e0984123"], -Cell[428423, 10421, 225, 4, 30, "Input",ExpressionUUID->"838248dc-cd2a-4e98-aad1-0ee2ca24df6f"], -Cell[428651, 10427, 2631, 77, 120, "Input",ExpressionUUID->"6a8ad2b0-75dc-4b02-beb2-ab231f96fdc4"], -Cell[CellGroupData[{ -Cell[431307, 10508, 1638, 49, 76, "Input",ExpressionUUID->"f4c8b50f-81d8-4025-ad3f-02ad8eb6f559"], -Cell[432948, 10559, 180, 2, 34, "Output",ExpressionUUID->"e958b448-cd2f-4dbd-a13b-2710417c11e3"], -Cell[433131, 10563, 180, 2, 34, "Output",ExpressionUUID->"1998f3bb-5c6c-4be0-891b-5b2753cdf5a5"] +Cell[449315, 11021, 1990, 59, 135, "Input",ExpressionUUID->"208efdc9-f7dd-47ad-b124-febb85c4592a"], +Cell[451308, 11082, 412, 13, 51, "Output",ExpressionUUID->"e6e69594-a7b6-46bb-b3cd-b083b0a6f221"], +Cell[451723, 11097, 310, 9, 51, "Output",ExpressionUUID->"b358a5a0-077d-4fcd-b1f3-f7662c2f65c2"] }, Open ]], Cell[CellGroupData[{ -Cell[433348, 10570, 3799, 103, 143, "Input",ExpressionUUID->"ccc0dab5-d7d9-401e-b4cf-738eb78ac738"], -Cell[437150, 10675, 4376, 129, 110, "Output",ExpressionUUID->"4ae30424-61b6-4178-b3df-25af1fc1b08d"] +Cell[452070, 11111, 856, 27, 51, "Input",ExpressionUUID->"3ff3b8b3-1b9a-4cc2-912b-ac983b32bb4d"], +Cell[452929, 11140, 686, 23, 51, "Output",ExpressionUUID->"66a9488a-d811-4369-85db-8e01e166e47a"] }, Open ]], -Cell[441541, 10807, 702, 23, 48, InheritFromParent,ExpressionUUID->"f86bdcb2-9d91-4ec9-bb03-7a4c6267c52e"], +Cell[453630, 11166, 392, 12, 44, "Input",ExpressionUUID->"5f33391a-6b1a-404e-93d8-f0f6d599bf33"], Cell[CellGroupData[{ -Cell[442268, 10834, 777, 22, 52, "Input",ExpressionUUID->"e6754755-5a1e-4c98-bfce-730a65c10947"], -Cell[443048, 10858, 1178, 39, 51, "Output",ExpressionUUID->"3b435fde-7a02-4014-a4c6-877a9f4f1d74"], -Cell[444229, 10899, 1050, 35, 54, "Output",ExpressionUUID->"03e1c29d-60f4-4014-a4a5-c929b874e816"] +Cell[454047, 11182, 552, 16, 50, "Input",ExpressionUUID->"961f8c6c-92ee-4e41-bbca-319a58d952f7"], +Cell[454602, 11200, 349, 8, 34, "Output",ExpressionUUID->"5debc6da-f476-48df-a79d-4a77b6b520e2"] }, Open ]], Cell[CellGroupData[{ -Cell[445316, 10939, 1292, 43, 51, "Input",ExpressionUUID->"10555256-c397-4a51-bd1c-6a051e3f0bce"], -Cell[446611, 10984, 541, 18, 51, "Output",ExpressionUUID->"3374cba0-b301-4dcc-831b-ecc4a93e3113"] +Cell[454988, 11213, 596, 17, 50, "Input",ExpressionUUID->"d26830ca-81ed-4805-bfe2-f6926850e11e"], +Cell[455587, 11232, 299, 7, 34, "Output",ExpressionUUID->"595cf7d9-6b87-436d-b212-de0c1aa2106a"] }, Open ]], Cell[CellGroupData[{ -Cell[447189, 11007, 2259, 67, 121, "Input",ExpressionUUID->"616e6e89-3fa5-4f5b-9536-0510580cd7bd"], -Cell[449451, 11076, 4199, 131, 110, "Output",ExpressionUUID->"c7231869-0a91-4a8e-9d20-a4bde72962c7"], -Cell[453653, 11209, 233, 4, 34, "Output",ExpressionUUID->"2dd0b587-c27c-4a43-b2b7-fd48e88042db"], -Cell[453889, 11215, 1236, 36, 34, "Output",ExpressionUUID->"d7bed513-6b47-4534-8f60-f5c6f9c6f350"], -Cell[455128, 11253, 978, 22, 36, "Output",ExpressionUUID->"2fb6c1a7-e918-428e-928d-41eb8c58aa1d"] -}, Open ]], -Cell[456121, 11278, 270, 4, 35, "Text",ExpressionUUID->"32883f14-1ced-471a-82a8-8d9d701622b7"], -Cell[CellGroupData[{ -Cell[456416, 11286, 1672, 49, 69, "Input",ExpressionUUID->"d2caffdb-501c-4510-bc26-4d355b805474"], -Cell[458091, 11337, 298, 6, 34, "Output",ExpressionUUID->"273a9346-69d5-4caa-9a85-f55ab65703ff"] -}, Open ]], -Cell[458404, 11346, 282, 4, 35, "Text",ExpressionUUID->"39ef1b93-2e92-43e8-881d-cb8e9d15503b"], -Cell[CellGroupData[{ -Cell[458711, 11354, 1685, 50, 69, "Input",ExpressionUUID->"d19cd98c-2b1c-4fc0-a8fb-17df45a2605d"], -Cell[460399, 11406, 323, 7, 34, "Output",ExpressionUUID->"9b206a41-036f-4b3d-ac07-36ed01244291"] -}, Open ]], -Cell[460737, 11416, 334, 5, 35, "Text",ExpressionUUID->"9f5d78b0-6557-4d70-a3c3-d08b9887b755"], -Cell[CellGroupData[{ -Cell[461096, 11425, 1735, 50, 69, "Input",ExpressionUUID->"2ec14b1c-e145-4bec-9346-489743d75ff6"], -Cell[462834, 11477, 348, 7, 34, "Output",ExpressionUUID->"c5fa7dcb-d704-45b6-bcf8-2339b5cacca1"] -}, Open ]], -Cell[463197, 11487, 381, 6, 35, "Text",ExpressionUUID->"146f7f75-23a7-4207-b43c-6a654ad12373"], -Cell[CellGroupData[{ -Cell[463603, 11497, 2434, 69, 123, "Input",ExpressionUUID->"ecb0339e-76ce-4697-b12e-5c2e58ab74a2"], -Cell[466040, 11568, 611, 13, 34, "Output",ExpressionUUID->"b4a79ce2-fbf9-4cbd-884d-72e78392e202"] -}, Open ]], -Cell[466666, 11584, 159, 3, 35, "Text",ExpressionUUID->"6c92d040-dcd5-4820-9721-5a580ef5ec55"], -Cell[466828, 11589, 11849, 333, 299, "Input",ExpressionUUID->"79f4fff6-7c19-44e5-996c-1cd83f195be0"], -Cell[CellGroupData[{ -Cell[478702, 11926, 3295, 108, 208, "Input",ExpressionUUID->"e3167e91-6fef-4487-980f-4f31e1a54521"], -Cell[482000, 12036, 180, 3, 34, "Output",ExpressionUUID->"d99d92d0-246a-4c2c-9078-f7219dd56c97"], -Cell[482183, 12041, 180, 3, 34, "Output",ExpressionUUID->"d4d49ebc-6cc0-4ec1-b11d-c656175d06f2"], -Cell[482366, 12046, 180, 3, 34, "Output",ExpressionUUID->"671b42b4-fa6a-4aaa-a6a1-225efc13dd77"], -Cell[482549, 12051, 180, 3, 34, "Output",ExpressionUUID->"325856f1-987d-4c41-8c25-71ba9a7fa7c3"], -Cell[482732, 12056, 180, 3, 34, "Output",ExpressionUUID->"d733e17c-2205-451e-9e4f-c91726c4cf8d"] +Cell[455923, 11244, 1270, 36, 48, "Input",ExpressionUUID->"536e6519-b526-4a31-a5c1-061127519b68"], +Cell[457196, 11282, 2321, 62, 261, "Output",ExpressionUUID->"b127d3d5-b9ae-4d1f-8c82-dfd53e48fe56"] }, Open ]], Cell[CellGroupData[{ -Cell[482949, 12064, 2071, 57, 117, "Input",ExpressionUUID->"3f1a4823-45fc-4097-8bc7-9a4b6c015f76"], -Cell[485023, 12123, 537, 15, 51, "Output",ExpressionUUID->"348316d7-594b-4501-9415-c62a58a72bfa"], -Cell[485563, 12140, 433, 11, 51, "Output",ExpressionUUID->"02986ae4-d735-47e8-85b2-9eef7d01a43d"] +Cell[459554, 11349, 506, 14, 50, "Input",ExpressionUUID->"e0bf74d2-b60d-47e3-955a-a2c1e5c44f8c"], +Cell[460063, 11365, 520, 16, 34, "Output",ExpressionUUID->"24fccb43-64d4-4d89-8de0-aa91bf138361"] }, Open ]], Cell[CellGroupData[{ -Cell[486033, 12156, 1990, 59, 135, "Input",ExpressionUUID->"208efdc9-f7dd-47ad-b124-febb85c4592a"], -Cell[488026, 12217, 412, 13, 51, "Output",ExpressionUUID->"e6e69594-a7b6-46bb-b3cd-b083b0a6f221"], -Cell[488441, 12232, 310, 9, 51, "Output",ExpressionUUID->"b358a5a0-077d-4fcd-b1f3-f7662c2f65c2"] +Cell[460620, 11386, 206, 4, 30, "Input",ExpressionUUID->"abcb7179-e49f-47c9-84c8-f3c91d811731"], +Cell[460829, 11392, 161, 3, 34, "Output",ExpressionUUID->"fca2a167-f14c-42e2-9d77-dd32197f8066"] }, Open ]], Cell[CellGroupData[{ -Cell[488788, 12246, 856, 27, 51, "Input",ExpressionUUID->"3ff3b8b3-1b9a-4cc2-912b-ac983b32bb4d"], -Cell[489647, 12275, 686, 23, 51, "Output",ExpressionUUID->"66a9488a-d811-4369-85db-8e01e166e47a"] -}, Open ]], -Cell[490348, 12301, 392, 12, 44, "Input",ExpressionUUID->"5f33391a-6b1a-404e-93d8-f0f6d599bf33"], -Cell[CellGroupData[{ -Cell[490765, 12317, 552, 16, 50, "Input",ExpressionUUID->"961f8c6c-92ee-4e41-bbca-319a58d952f7"], -Cell[491320, 12335, 349, 8, 34, "Output",ExpressionUUID->"5debc6da-f476-48df-a79d-4a77b6b520e2"] -}, Open ]], -Cell[CellGroupData[{ -Cell[491706, 12348, 596, 17, 50, "Input",ExpressionUUID->"d26830ca-81ed-4805-bfe2-f6926850e11e"], -Cell[492305, 12367, 299, 7, 34, "Output",ExpressionUUID->"595cf7d9-6b87-436d-b212-de0c1aa2106a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[492641, 12379, 1270, 36, 48, "Input",ExpressionUUID->"536e6519-b526-4a31-a5c1-061127519b68"], -Cell[493914, 12417, 2321, 62, 261, "Output",ExpressionUUID->"b127d3d5-b9ae-4d1f-8c82-dfd53e48fe56"] -}, Open ]], -Cell[CellGroupData[{ -Cell[496272, 12484, 506, 14, 50, "Input",ExpressionUUID->"e0bf74d2-b60d-47e3-955a-a2c1e5c44f8c"], -Cell[496781, 12500, 520, 16, 34, "Output",ExpressionUUID->"24fccb43-64d4-4d89-8de0-aa91bf138361"] -}, Open ]], -Cell[CellGroupData[{ -Cell[497338, 12521, 206, 4, 30, "Input",ExpressionUUID->"abcb7179-e49f-47c9-84c8-f3c91d811731"], -Cell[497547, 12527, 161, 3, 34, "Output",ExpressionUUID->"fca2a167-f14c-42e2-9d77-dd32197f8066"] -}, Open ]], -Cell[CellGroupData[{ -Cell[497745, 12535, 1779, 53, 74, "Input",ExpressionUUID->"f1fce072-9567-473e-9e8a-31bbc88b0202"], -Cell[499527, 12590, 1776, 49, 246, "Output",ExpressionUUID->"dbc93963-6216-46e9-90eb-3d170fa6ec5d"], -Cell[501306, 12641, 1230, 30, 123, "Output",ExpressionUUID->"7fa1f3ea-9f67-4aa0-8bc6-76ce946bd0cf"] +Cell[461027, 11400, 1779, 53, 74, "Input",ExpressionUUID->"f1fce072-9567-473e-9e8a-31bbc88b0202"], +Cell[462809, 11455, 1776, 49, 246, "Output",ExpressionUUID->"dbc93963-6216-46e9-90eb-3d170fa6ec5d"], +Cell[464588, 11506, 1230, 30, 123, "Output",ExpressionUUID->"7fa1f3ea-9f67-4aa0-8bc6-76ce946bd0cf"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[502585, 12677, 269, 4, 38, "Subsection",ExpressionUUID->"2b96abf2-4855-4661-b3ab-6648e354e33d"], -Cell[502857, 12683, 6670, 168, 323, "Input",ExpressionUUID->"aa523cad-ef17-40cc-89cc-c64eb6383391"], +Cell[465867, 11542, 269, 4, 38, "Subsection",ExpressionUUID->"2b96abf2-4855-4661-b3ab-6648e354e33d"], +Cell[466139, 11548, 6670, 168, 323, "Input",ExpressionUUID->"aa523cad-ef17-40cc-89cc-c64eb6383391"], Cell[CellGroupData[{ -Cell[509552, 12855, 1405, 40, 101, "Input",ExpressionUUID->"fe078a2d-2320-4d10-b6aa-b006e8a3fa12"], -Cell[510960, 12897, 1210, 23, 56, "Output",ExpressionUUID->"72dbbb1d-1662-490a-abed-2e0be5299725"], -Cell[512173, 12922, 1226, 23, 56, "Output",ExpressionUUID->"4c0c5f61-137d-438d-8b30-e1ee145562ce"] +Cell[472834, 11720, 1405, 40, 101, "Input",ExpressionUUID->"fe078a2d-2320-4d10-b6aa-b006e8a3fa12"], +Cell[474242, 11762, 1210, 23, 56, "Output",ExpressionUUID->"72dbbb1d-1662-490a-abed-2e0be5299725"], +Cell[475455, 11787, 1226, 23, 56, "Output",ExpressionUUID->"4c0c5f61-137d-438d-8b30-e1ee145562ce"] }, Open ]], Cell[CellGroupData[{ -Cell[513436, 12950, 486, 14, 49, "Input",ExpressionUUID->"20374ef9-ae7e-4dd0-8d00-8607702cb831"], -Cell[513925, 12966, 250, 5, 34, "Output",ExpressionUUID->"78667397-84f5-4aef-b225-5ca6b0337c58"] +Cell[476718, 11815, 486, 14, 49, "Input",ExpressionUUID->"20374ef9-ae7e-4dd0-8d00-8607702cb831"], +Cell[477207, 11831, 250, 5, 34, "Output",ExpressionUUID->"78667397-84f5-4aef-b225-5ca6b0337c58"] }, Open ]], Cell[CellGroupData[{ -Cell[514212, 12976, 369, 8, 30, "Input",ExpressionUUID->"5e06c105-b984-48b5-bea1-56915ca53280"], -Cell[514584, 12986, 1610, 37, 56, "Output",ExpressionUUID->"f140a0bd-5f25-48c7-bd7a-579448dfc192"] +Cell[477494, 11841, 369, 8, 30, "Input",ExpressionUUID->"5e06c105-b984-48b5-bea1-56915ca53280"], +Cell[477866, 11851, 1610, 37, 56, "Output",ExpressionUUID->"f140a0bd-5f25-48c7-bd7a-579448dfc192"] }, Open ]], -Cell[516209, 13026, 151, 3, 30, "Input",ExpressionUUID->"e856af2c-b9b1-4d44-a09f-2f136b0b1e56"], -Cell[516363, 13031, 1973, 57, 210, "Input",ExpressionUUID->"23b87d3d-d99c-4cd8-ab80-5a298a4ad732"], +Cell[479491, 11891, 151, 3, 30, "Input",ExpressionUUID->"e856af2c-b9b1-4d44-a09f-2f136b0b1e56"], +Cell[479645, 11896, 1973, 57, 210, "Input",ExpressionUUID->"23b87d3d-d99c-4cd8-ab80-5a298a4ad732"], Cell[CellGroupData[{ -Cell[518361, 13092, 738, 19, 30, "Input",ExpressionUUID->"bdd6b528-0d86-42e1-8d0a-f4462bb03d82"], -Cell[519102, 13113, 4458, 91, 229, "Output",ExpressionUUID->"c746a074-8aa7-40a8-a4da-469df9e98fe2"] +Cell[481643, 11957, 738, 19, 30, "Input",ExpressionUUID->"bdd6b528-0d86-42e1-8d0a-f4462bb03d82"], +Cell[482384, 11978, 4458, 91, 229, "Output",ExpressionUUID->"c746a074-8aa7-40a8-a4da-469df9e98fe2"] }, Open ]], -Cell[523575, 13207, 5194, 159, 354, "Input",ExpressionUUID->"01cf527e-c81b-407d-b1b9-fbcd124eb1aa"], +Cell[486857, 12072, 5194, 159, 354, "Input",ExpressionUUID->"01cf527e-c81b-407d-b1b9-fbcd124eb1aa"], Cell[CellGroupData[{ -Cell[528794, 13370, 659, 19, 48, "Input",ExpressionUUID->"a4b9b431-c6ee-4ea1-bab1-df40193f1a05"], -Cell[529456, 13391, 5183, 101, 228, "Output",ExpressionUUID->"ae657a66-6f57-46ea-8cc0-6f95f755d15b"] +Cell[492076, 12235, 659, 19, 48, "Input",ExpressionUUID->"a4b9b431-c6ee-4ea1-bab1-df40193f1a05"], +Cell[492738, 12256, 5183, 101, 228, "Output",ExpressionUUID->"ae657a66-6f57-46ea-8cc0-6f95f755d15b"] }, Open ]], Cell[CellGroupData[{ -Cell[534676, 13497, 1002, 25, 30, "Input",ExpressionUUID->"135ce95d-0cfe-4fb3-b65c-384a732bf93e"], -Cell[535681, 13524, 9719, 176, 228, "Output",ExpressionUUID->"ac0d1624-64e8-4a4b-99cc-a9ce416ca990"] +Cell[497958, 12362, 1002, 25, 30, "Input",ExpressionUUID->"135ce95d-0cfe-4fb3-b65c-384a732bf93e"], +Cell[498963, 12389, 9719, 176, 228, "Output",ExpressionUUID->"ac0d1624-64e8-4a4b-99cc-a9ce416ca990"] }, Open ]], Cell[CellGroupData[{ -Cell[545437, 13705, 534, 16, 49, "Input",ExpressionUUID->"1a4a7021-5eb5-41cc-81cb-6408cf19f9d5"], -Cell[545974, 13723, 355, 10, 54, "Output",ExpressionUUID->"dd76f3c7-8caa-4a05-a6d0-f8a556a703ae"] +Cell[508719, 12570, 534, 16, 49, "Input",ExpressionUUID->"1a4a7021-5eb5-41cc-81cb-6408cf19f9d5"], +Cell[509256, 12588, 355, 10, 54, "Output",ExpressionUUID->"dd76f3c7-8caa-4a05-a6d0-f8a556a703ae"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[546378, 13739, 253, 4, 38, "Subsection",ExpressionUUID->"dcab8960-1608-429e-8af2-fd02b4f5a576"], +Cell[509660, 12604, 253, 4, 38, "Subsection",ExpressionUUID->"dcab8960-1608-429e-8af2-fd02b4f5a576"], Cell[CellGroupData[{ -Cell[546656, 13747, 328, 8, 30, "Input",ExpressionUUID->"1c2efa80-ac7e-46f1-bc51-93d0a1b723fb"], -Cell[546987, 13757, 246, 6, 34, "Output",ExpressionUUID->"c3b88201-980e-4af5-8753-a9e52c73ed0a"] +Cell[509938, 12612, 328, 8, 30, "Input",ExpressionUUID->"1c2efa80-ac7e-46f1-bc51-93d0a1b723fb"], +Cell[510269, 12622, 246, 6, 34, "Output",ExpressionUUID->"c3b88201-980e-4af5-8753-a9e52c73ed0a"] }, Open ]], Cell[CellGroupData[{ -Cell[547270, 13768, 819, 25, 55, "Input",ExpressionUUID->"5ef839fe-9bab-470a-8ef4-91defe534297"], -Cell[548092, 13795, 1585, 51, 58, "Output",ExpressionUUID->"4560c08e-28ee-4b4f-8b23-415c6b5b7c7e"] +Cell[510552, 12633, 819, 25, 55, "Input",ExpressionUUID->"5ef839fe-9bab-470a-8ef4-91defe534297"], +Cell[511374, 12660, 1585, 51, 58, "Output",ExpressionUUID->"4560c08e-28ee-4b4f-8b23-415c6b5b7c7e"] }, Open ]], -Cell[549692, 13849, 3517, 94, 241, "Input",ExpressionUUID->"a19634b0-c852-4dfe-92a0-4c4b749eb440"], -Cell[553212, 13945, 6464, 190, 227, "Input",ExpressionUUID->"66031f99-f7b7-4c1a-8282-fe3c6973bcf1"], +Cell[512974, 12714, 3517, 94, 241, "Input",ExpressionUUID->"a19634b0-c852-4dfe-92a0-4c4b749eb440"], +Cell[516494, 12810, 6464, 190, 227, "Input",ExpressionUUID->"66031f99-f7b7-4c1a-8282-fe3c6973bcf1"], Cell[CellGroupData[{ -Cell[559701, 14139, 1711, 47, 62, "Input",ExpressionUUID->"afe01539-d0b5-45e8-a93a-ec77b8a7c554"], -Cell[561415, 14188, 2140, 53, 285, "Output",ExpressionUUID->"c051a6c5-9ce7-4cc8-8390-1b7794f832d9"] +Cell[522983, 13004, 1711, 47, 62, "Input",ExpressionUUID->"afe01539-d0b5-45e8-a93a-ec77b8a7c554"], +Cell[524697, 13053, 2140, 53, 285, "Output",ExpressionUUID->"c051a6c5-9ce7-4cc8-8390-1b7794f832d9"] }, Open ]], Cell[CellGroupData[{ -Cell[563592, 14246, 2759, 81, 222, "Input",ExpressionUUID->"17647d22-cadd-4d61-b3b9-b98f24a20dfa"], -Cell[566354, 14329, 397, 9, 34, "Output",ExpressionUUID->"9406f5fd-f74f-4ef0-9fe4-804686042ea5"], -Cell[566754, 14340, 416, 10, 34, "Output",ExpressionUUID->"b5eae5fc-c387-468d-905b-fbcb5971255f"], -Cell[567173, 14352, 414, 10, 34, "Output",ExpressionUUID->"7534071a-2777-4ee2-a24c-db1de868460c"], -Cell[567590, 14364, 413, 10, 34, "Output",ExpressionUUID->"d3a2cfc1-c949-40ed-a0b2-1aa36630cbb9"], -Cell[568006, 14376, 415, 10, 34, "Output",ExpressionUUID->"963bf09f-ba52-4d87-99f8-73d3dd41f64d"] +Cell[526874, 13111, 2759, 81, 222, "Input",ExpressionUUID->"17647d22-cadd-4d61-b3b9-b98f24a20dfa"], +Cell[529636, 13194, 397, 9, 34, "Output",ExpressionUUID->"9406f5fd-f74f-4ef0-9fe4-804686042ea5"], +Cell[530036, 13205, 416, 10, 34, "Output",ExpressionUUID->"b5eae5fc-c387-468d-905b-fbcb5971255f"], +Cell[530455, 13217, 414, 10, 34, "Output",ExpressionUUID->"7534071a-2777-4ee2-a24c-db1de868460c"], +Cell[530872, 13229, 413, 10, 34, "Output",ExpressionUUID->"d3a2cfc1-c949-40ed-a0b2-1aa36630cbb9"], +Cell[531288, 13241, 415, 10, 34, "Output",ExpressionUUID->"963bf09f-ba52-4d87-99f8-73d3dd41f64d"] }, Open ]], -Cell[568436, 14389, 11276, 278, 576, "Input",ExpressionUUID->"14a65260-66c4-414f-9a9d-10d6c8c2449d", +Cell[531718, 13254, 11276, 278, 576, "Input",ExpressionUUID->"14a65260-66c4-414f-9a9d-10d6c8c2449d", InitializationCell->True], -Cell[579715, 14669, 1503, 41, 94, "Input",ExpressionUUID->"201f10de-e8f1-403b-8756-f62ea5fea8ac"] +Cell[542997, 13534, 1503, 41, 94, "Input",ExpressionUUID->"201f10de-e8f1-403b-8756-f62ea5fea8ac"] }, Closed]], Cell[CellGroupData[{ -Cell[581255, 14715, 230, 3, 38, "Subsection",ExpressionUUID->"bb2600b3-5ba7-4227-a098-30c07f624ae6"], +Cell[544537, 13580, 230, 3, 38, "Subsection",ExpressionUUID->"bb2600b3-5ba7-4227-a098-30c07f624ae6"], Cell[CellGroupData[{ -Cell[581510, 14722, 848, 26, 56, "Input",ExpressionUUID->"c58fae20-b5c4-4046-a99a-6f086b659a93"], -Cell[582361, 14750, 1518, 49, 58, "Output",ExpressionUUID->"cc350bfa-abe1-4195-802b-bc2aba8ab35d"] +Cell[544792, 13587, 848, 26, 56, "Input",ExpressionUUID->"c58fae20-b5c4-4046-a99a-6f086b659a93"], +Cell[545643, 13615, 1518, 49, 58, "Output",ExpressionUUID->"cc350bfa-abe1-4195-802b-bc2aba8ab35d"] }, Open ]], -Cell[583894, 14802, 9173, 257, 446, "Input",ExpressionUUID->"8d7cf168-29e4-4415-b725-75d6610ed9d8"], +Cell[547176, 13667, 9173, 257, 446, "Input",ExpressionUUID->"8d7cf168-29e4-4415-b725-75d6610ed9d8"], Cell[CellGroupData[{ -Cell[593092, 15063, 1350, 39, 48, "Input",ExpressionUUID->"fa7f91da-4509-43c3-9d06-35196c58afe7"], -Cell[594445, 15104, 1257, 33, 168, "Output",ExpressionUUID->"91f287fd-26f5-4b56-ab2a-5765e8f213a2"] +Cell[556374, 13928, 1350, 39, 48, "Input",ExpressionUUID->"fa7f91da-4509-43c3-9d06-35196c58afe7"], +Cell[557727, 13969, 1257, 33, 168, "Output",ExpressionUUID->"91f287fd-26f5-4b56-ab2a-5765e8f213a2"] }, Open ]], Cell[CellGroupData[{ -Cell[595739, 15142, 2882, 86, 231, "Input",ExpressionUUID->"50f28bbc-2ae6-4e30-b49d-8c99802b2d60"], -Cell[598624, 15230, 625, 16, 56, "Output",ExpressionUUID->"b3e5b514-bf15-4c3a-9760-3d0e471f7488"], -Cell[599252, 15248, 643, 16, 56, "Output",ExpressionUUID->"176ac804-2efc-45e6-b643-94ec022a8cc1"], -Cell[599898, 15266, 391, 10, 34, "Output",ExpressionUUID->"5d53e157-8fe5-4a16-9d70-28032ec86511"], -Cell[600292, 15278, 394, 10, 34, "Output",ExpressionUUID->"cf9b9ca7-5205-4061-ac85-f1d8b87b39d5"], -Cell[600689, 15290, 391, 10, 34, "Output",ExpressionUUID->"e2bdb5fc-2307-4c23-8be1-2bd543203a98"] +Cell[559021, 14007, 2882, 86, 231, "Input",ExpressionUUID->"50f28bbc-2ae6-4e30-b49d-8c99802b2d60"], +Cell[561906, 14095, 625, 16, 56, "Output",ExpressionUUID->"b3e5b514-bf15-4c3a-9760-3d0e471f7488"], +Cell[562534, 14113, 643, 16, 56, "Output",ExpressionUUID->"176ac804-2efc-45e6-b643-94ec022a8cc1"], +Cell[563180, 14131, 391, 10, 34, "Output",ExpressionUUID->"5d53e157-8fe5-4a16-9d70-28032ec86511"], +Cell[563574, 14143, 394, 10, 34, "Output",ExpressionUUID->"cf9b9ca7-5205-4061-ac85-f1d8b87b39d5"], +Cell[563971, 14155, 391, 10, 34, "Output",ExpressionUUID->"e2bdb5fc-2307-4c23-8be1-2bd543203a98"] }, Open ]], -Cell[601095, 15303, 12544, 314, 587, "Input",ExpressionUUID->"c6e509ec-b677-4ae3-ad96-3583e3e64b77", +Cell[564377, 14168, 12544, 314, 587, "Input",ExpressionUUID->"c6e509ec-b677-4ae3-ad96-3583e3e64b77", InitializationCell->True], -Cell[613642, 15619, 55313, 1167, 2014, "Input",ExpressionUUID->"93dc4ca1-c9cd-43ac-9288-91c9898b47b5", +Cell[576924, 14484, 55313, 1167, 2014, "Input",ExpressionUUID->"93dc4ca1-c9cd-43ac-9288-91c9898b47b5", InitializationCell->True], Cell[CellGroupData[{ -Cell[668980, 16790, 1060, 22, 30, "Input",ExpressionUUID->"0a433fea-0d22-41a3-80eb-853a9f340676"], -Cell[670043, 16814, 205, 4, 24, "Print",ExpressionUUID->"512229a4-afac-4846-a591-cceb4c8aa368"], -Cell[670251, 16820, 538, 11, 34, "Output",ExpressionUUID->"bd07e29c-02f9-45af-bfa2-e641a5d432d2"] +Cell[632262, 15655, 1060, 22, 30, "Input",ExpressionUUID->"0a433fea-0d22-41a3-80eb-853a9f340676"], +Cell[633325, 15679, 205, 4, 24, "Print",ExpressionUUID->"512229a4-afac-4846-a591-cceb4c8aa368"], +Cell[633533, 15685, 538, 11, 34, "Output",ExpressionUUID->"bd07e29c-02f9-45af-bfa2-e641a5d432d2"] }, Open ]], Cell[CellGroupData[{ -Cell[670826, 16836, 467, 9, 30, "Input",ExpressionUUID->"bae13aa0-1202-4eeb-9231-e11a26eb8797"], -Cell[671296, 16847, 456, 10, 34, "Output",ExpressionUUID->"b8d6d745-1545-48bc-a3ad-859043244d72"] +Cell[634108, 15701, 467, 9, 30, "Input",ExpressionUUID->"bae13aa0-1202-4eeb-9231-e11a26eb8797"], +Cell[634578, 15712, 456, 10, 34, "Output",ExpressionUUID->"b8d6d745-1545-48bc-a3ad-859043244d72"] }, Open ]], Cell[CellGroupData[{ -Cell[671789, 16862, 409, 10, 30, "Input",ExpressionUUID->"3f86852e-5717-4101-9b56-a25956879306"], -Cell[672201, 16874, 257, 5, 24, "Print",ExpressionUUID->"0deb08ad-d9d5-4037-ace8-ffbe914b001d"], -Cell[672461, 16881, 6065, 180, 72, "Output",ExpressionUUID->"a458d177-63d1-4074-837c-0d5e70a40cb8"] +Cell[635071, 15727, 409, 10, 30, "Input",ExpressionUUID->"3f86852e-5717-4101-9b56-a25956879306"], +Cell[635483, 15739, 257, 5, 24, "Print",ExpressionUUID->"0deb08ad-d9d5-4037-ace8-ffbe914b001d"], +Cell[635743, 15746, 6065, 180, 72, "Output",ExpressionUUID->"a458d177-63d1-4074-837c-0d5e70a40cb8"] }, Open ]], Cell[CellGroupData[{ -Cell[678563, 17066, 407, 10, 30, "Input",ExpressionUUID->"acf35f42-51d9-4034-8b6c-edd6bc8176d4"], -Cell[678973, 17078, 230, 4, 24, "Print",ExpressionUUID->"1a81443a-a7be-4838-af0d-0122cc48990b"], -Cell[679206, 17084, 6025, 178, 72, "Output",ExpressionUUID->"81f0a204-f210-4114-9ccd-6940fd62bdba"] +Cell[641845, 15931, 407, 10, 30, "Input",ExpressionUUID->"acf35f42-51d9-4034-8b6c-edd6bc8176d4"], +Cell[642255, 15943, 230, 4, 24, "Print",ExpressionUUID->"1a81443a-a7be-4838-af0d-0122cc48990b"], +Cell[642488, 15949, 6025, 178, 72, "Output",ExpressionUUID->"81f0a204-f210-4114-9ccd-6940fd62bdba"] }, Open ]], Cell[CellGroupData[{ -Cell[685268, 17267, 457, 11, 30, "Input",ExpressionUUID->"2b5d392a-3243-4604-aa1e-93d4cf389c9f"], -Cell[685728, 17280, 6130, 182, 72, "Output",ExpressionUUID->"92f1dd55-b07d-4328-9ade-ccdd17ef5416"] +Cell[648550, 16132, 457, 11, 30, "Input",ExpressionUUID->"2b5d392a-3243-4604-aa1e-93d4cf389c9f"], +Cell[649010, 16145, 6130, 182, 72, "Output",ExpressionUUID->"92f1dd55-b07d-4328-9ade-ccdd17ef5416"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[691907, 17468, 349, 5, 38, "Subsection",ExpressionUUID->"01967205-2608-432b-af12-910c95fc552e"], -Cell[692259, 17475, 210, 4, 35, "Text",ExpressionUUID->"abe8efbb-6dd1-46ba-a704-d01b31b3bad6"], -Cell[692472, 17481, 1286, 40, 48, "Input",ExpressionUUID->"942adccc-1fca-46dd-ab16-43e0aa809a3b"], +Cell[655189, 16333, 349, 5, 38, "Subsection",ExpressionUUID->"01967205-2608-432b-af12-910c95fc552e"], +Cell[655541, 16340, 210, 4, 35, "Text",ExpressionUUID->"abe8efbb-6dd1-46ba-a704-d01b31b3bad6"], +Cell[655754, 16346, 1286, 40, 48, "Input",ExpressionUUID->"942adccc-1fca-46dd-ab16-43e0aa809a3b"], Cell[CellGroupData[{ -Cell[693783, 17525, 1137, 30, 47, "Input",ExpressionUUID->"145586f6-7a30-48d7-b038-b41461e656e6"], -Cell[694923, 17557, 19500, 395, 241, "Output",ExpressionUUID->"626df6f1-18a3-4420-8081-5c5d7285759d"] +Cell[657065, 16390, 1137, 30, 47, "Input",ExpressionUUID->"145586f6-7a30-48d7-b038-b41461e656e6"], +Cell[658205, 16422, 19500, 395, 241, "Output",ExpressionUUID->"626df6f1-18a3-4420-8081-5c5d7285759d"] }, Open ]], -Cell[714438, 17955, 857, 20, 81, "Text",ExpressionUUID->"221842b7-b25e-4a5d-92ee-5ca63a56493d"], +Cell[677720, 16820, 857, 20, 81, "Text",ExpressionUUID->"221842b7-b25e-4a5d-92ee-5ca63a56493d"], Cell[CellGroupData[{ -Cell[715320, 17979, 950, 29, 32, "Input",ExpressionUUID->"0e8671b3-cd3a-48b0-8d57-ff75093b37f5"], -Cell[716273, 18010, 365, 9, 34, "Output",ExpressionUUID->"603abd26-3b9d-4a8e-874d-188f6702424c"] +Cell[678602, 16844, 950, 29, 32, "Input",ExpressionUUID->"0e8671b3-cd3a-48b0-8d57-ff75093b37f5"], +Cell[679555, 16875, 365, 9, 34, "Output",ExpressionUUID->"603abd26-3b9d-4a8e-874d-188f6702424c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[716687, 18025, 369, 6, 38, "Subsection",ExpressionUUID->"b9a0eb4f-5a90-4bc1-a4d4-1af03af5a357"], -Cell[717059, 18033, 263, 5, 35, "Text",ExpressionUUID->"ef47e862-6f45-40b2-abb3-37aac9022e7b"], +Cell[679969, 16890, 369, 6, 38, "Subsection",ExpressionUUID->"b9a0eb4f-5a90-4bc1-a4d4-1af03af5a357"], +Cell[680341, 16898, 263, 5, 35, "Text",ExpressionUUID->"ef47e862-6f45-40b2-abb3-37aac9022e7b"], Cell[CellGroupData[{ -Cell[717347, 18042, 2049, 61, 88, "Input",ExpressionUUID->"babc8dbb-7b4f-4fc2-a7a8-78db8d1ccc3c"], -Cell[719399, 18105, 282, 5, 34, "Output",ExpressionUUID->"57317994-8ae0-4fdf-bc6f-32e3dae9bb42"] +Cell[680629, 16907, 2049, 61, 88, "Input",ExpressionUUID->"babc8dbb-7b4f-4fc2-a7a8-78db8d1ccc3c"], +Cell[682681, 16970, 282, 5, 34, "Output",ExpressionUUID->"57317994-8ae0-4fdf-bc6f-32e3dae9bb42"] }, Open ]], Cell[CellGroupData[{ -Cell[719718, 18115, 1293, 33, 48, "Input",ExpressionUUID->"880c8ba0-5f4c-47c6-9ad9-e0afe800bc08"], -Cell[721014, 18150, 24014, 488, 246, "Output",ExpressionUUID->"4a07e605-dd03-483e-9065-bf15cc27340c"] +Cell[683000, 16980, 1293, 33, 48, "Input",ExpressionUUID->"880c8ba0-5f4c-47c6-9ad9-e0afe800bc08"], +Cell[684296, 17015, 24014, 488, 246, "Output",ExpressionUUID->"4a07e605-dd03-483e-9065-bf15cc27340c"] }, Open ]], Cell[CellGroupData[{ -Cell[745065, 18643, 857, 24, 32, "Input",ExpressionUUID->"c2962be8-f568-4f9d-a416-536a0ba75ed1"], -Cell[745925, 18669, 391, 9, 34, "Output",ExpressionUUID->"a9316a54-a232-49f9-a241-2a3a310f725c"] +Cell[708347, 17508, 857, 24, 32, "Input",ExpressionUUID->"c2962be8-f568-4f9d-a416-536a0ba75ed1"], +Cell[709207, 17534, 391, 9, 34, "Output",ExpressionUUID->"a9316a54-a232-49f9-a241-2a3a310f725c"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[746365, 18684, 170, 3, 38, "Subsection",ExpressionUUID->"9d02eb2e-f01f-4069-81c1-8b451c0468df"], -Cell[746538, 18689, 7798, 203, 827, "Input",ExpressionUUID->"ba6300cd-8eac-4c7f-bee5-374dab4f8e90"], +Cell[709647, 17549, 170, 3, 38, "Subsection",ExpressionUUID->"9d02eb2e-f01f-4069-81c1-8b451c0468df"], +Cell[709820, 17554, 7798, 203, 827, "Input",ExpressionUUID->"ba6300cd-8eac-4c7f-bee5-374dab4f8e90"], Cell[CellGroupData[{ -Cell[754361, 18896, 3659, 85, 433, "Input",ExpressionUUID->"ce161876-4534-4086-9b76-f3028dce4faa"], -Cell[758023, 18983, 307515, 5416, 542, "Output",ExpressionUUID->"22c0782e-ebc2-4690-8901-147ca90f890a"] +Cell[717643, 17761, 3659, 85, 433, "Input",ExpressionUUID->"ce161876-4534-4086-9b76-f3028dce4faa"], +Cell[721305, 17848, 307515, 5416, 542, "Output",ExpressionUUID->"22c0782e-ebc2-4690-8901-147ca90f890a"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1028869, 23270, 164, 3, 38, "Subsection",ExpressionUUID->"81501860-e831-46c8-add0-cd5165dd0fdc"], +Cell[1029036, 23275, 1298, 36, 68, "Input",ExpressionUUID->"46bb3386-ba05-4560-acd3-c1b203c2f806"], +Cell[CellGroupData[{ +Cell[1030359, 23315, 936, 26, 45, "Input",ExpressionUUID->"4c2d8ad1-09be-4033-bb59-802c26e7a13c"], +Cell[1031298, 23343, 232, 5, 34, "Output",ExpressionUUID->"375c3a01-facf-49d9-88d8-7914422bdce1"] +}, Open ]], +Cell[1031545, 23351, 2373, 68, 118, "Input",ExpressionUUID->"6a8ad2b0-75dc-4b02-beb2-ab231f96fdc4"], +Cell[CellGroupData[{ +Cell[1033943, 23423, 1845, 54, 56, "Input",ExpressionUUID->"363fccb6-035a-410f-baa8-a92724a9db8e"], +Cell[1035791, 23479, 415, 12, 51, "Output",ExpressionUUID->"5aa471f0-edae-46af-81e5-970e010e8156"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1036243, 23496, 3504, 93, 166, "Input",ExpressionUUID->"ccc0dab5-d7d9-401e-b4cf-738eb78ac738"], +Cell[1039750, 23591, 2904, 81, 110, "Output",ExpressionUUID->"3d8eea2a-983e-4971-a2ae-b3516d1a62fb"], +Cell[1042657, 23674, 1391, 35, 51, "Output",ExpressionUUID->"f479c53f-23e8-44e0-8be1-5260ad432de9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1044085, 23714, 1420, 44, 54, "Input",ExpressionUUID->"007b05ee-4b78-4a58-abce-125dd9edcd2f"], +Cell[1045508, 23760, 881, 27, 51, "Output",ExpressionUUID->"a91c199a-35bb-4e73-8d97-0c642cde7822"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1046426, 23792, 2827, 82, 88, "Input",ExpressionUUID->"17ae7fcc-3995-415b-b625-ec234ae8b826"], +Cell[1049256, 23876, 8666, 166, 238, "Output",ExpressionUUID->"24f2683d-ea1b-4619-b6c5-e3e6e96a5ea8"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1057983, 24049, 170, 3, 53, "Section",ExpressionUUID->"76d52893-14a9-4cab-86c6-332b5fb21365"], +Cell[CellGroupData[{ +Cell[1058178, 24056, 161, 3, 54, "Subsection",ExpressionUUID->"3fef39c9-17d4-4489-88f3-9569d0e87e25"], +Cell[1058342, 24061, 502, 15, 52, "Input",ExpressionUUID->"6aab4c4d-245a-4a89-86cc-99e7ab25f37c"], +Cell[CellGroupData[{ +Cell[1058869, 24080, 777, 21, 45, "Input",ExpressionUUID->"91dabb2c-ce91-4c75-bbf0-12233ef26300"], +Cell[1059649, 24103, 366, 10, 34, "Output",ExpressionUUID->"a849a460-809a-49ef-adc9-555b59ab6b07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1060052, 24118, 933, 29, 33, "Input",ExpressionUUID->"9a32a31a-42c5-41ae-8c4b-46adeefb0e71"], +Cell[1060988, 24149, 249, 6, 34, "Output",ExpressionUUID->"ec53ae3d-027b-4113-a47f-ab248f7e81e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1061274, 24160, 1162, 34, 48, "Input",ExpressionUUID->"a14e3040-c79e-4c7f-9f74-338f596a0031"], +Cell[1062439, 24196, 274, 7, 51, "Output",ExpressionUUID->"74d1a418-22ca-46a1-9a99-779d6afe4fbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1062750, 24208, 740, 21, 52, "Input",ExpressionUUID->"136cfe6b-ba09-4e70-bf01-b4a97ea9c07e"], +Cell[1063493, 24231, 325, 9, 51, "Output",ExpressionUUID->"38200485-94c0-49bb-a58a-9e67cf26a71e"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[1063867, 24246, 378, 6, 54, "Subsection",ExpressionUUID->"2f9cadae-aad2-4b77-9dcc-6cd5ba4f1d01"], +Cell[1064248, 24254, 4284, 106, 217, "Input",ExpressionUUID->"a0115006-10f2-4120-ab18-5dec0df210ce"], +Cell[1068535, 24362, 3546, 82, 152, "Input",ExpressionUUID->"dbc52a59-ac9c-44f4-a72f-ee3fceb7a62b"], +Cell[1072084, 24446, 4100, 115, 128, "Input",ExpressionUUID->"6224db65-5bc3-4a09-a38f-9b791b8d1e0c"], +Cell[CellGroupData[{ +Cell[1076209, 24565, 3284, 101, 128, "Input",ExpressionUUID->"93944d6a-ce35-42af-883b-3cc7f237170d"], +Cell[1079496, 24668, 1537, 41, 207, "Output",ExpressionUUID->"ce7113f7-b4ed-42ba-a839-7398ac50ffb6"], +Cell[1081036, 24711, 1536, 41, 207, "Output",ExpressionUUID->"2cf99b75-d668-4e19-9512-4ffc89170422"], +Cell[1082575, 24754, 1487, 39, 207, "Output",ExpressionUUID->"56ae60fe-c929-440b-a3fa-8de8f8758bbf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1084099, 24798, 381, 12, 48, "Input",ExpressionUUID->"c61a54e1-f2db-4b67-9757-6a8218ee1f69"], +Cell[1084483, 24812, 660, 23, 70, "Output",ExpressionUUID->"3a1b5464-1954-4e43-81a6-9677b44e1801"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1085180, 24840, 1127, 27, 70, "Input",ExpressionUUID->"f4c862ec-aeee-4a05-afd5-2b52e5e177c9"], +Cell[1086310, 24869, 2153, 60, 60, "Output",ExpressionUUID->"962228c1-d951-4510-af45-5417af85dc45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1088500, 24934, 1165, 31, 48, "Input",ExpressionUUID->"6d595fb1-e2ad-4ecc-b2ab-90ab2b85e5da"], +Cell[1089668, 24967, 790, 22, 66, "Output",ExpressionUUID->"20ca5ba7-cc4e-4859-8ff3-ea358db682eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1090495, 24994, 585, 19, 70, "Input",ExpressionUUID->"4c799ca0-348c-49b9-adfa-f6db2682577b"], +Cell[1091083, 25015, 170, 4, 34, "Output",ExpressionUUID->"e24c2ee2-cdd7-413e-9f95-55237ccafcac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1091290, 25024, 1527, 42, 225, "Input",ExpressionUUID->"99c2a420-92af-48a3-8942-35b2a99ea0ef"], +Cell[1092820, 25068, 3537, 76, 242, "Output",ExpressionUUID->"fc9b2b84-a468-43dd-8c15-8a124b83c577"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1096394, 25149, 2181, 58, 129, "Input",ExpressionUUID->"f0cd9b57-631d-4ef0-8035-e8ce7f5c4c07"], +Cell[1098578, 25209, 1180, 23, 56, "Output",ExpressionUUID->"71220aa2-1403-4dfa-a52e-bbefa515baa9"], +Cell[1099761, 25234, 926, 16, 34, "Output",ExpressionUUID->"e3d773df-12e2-4170-9cf3-be6a0727bb51"], +Cell[1100690, 25252, 946, 17, 34, "Output",ExpressionUUID->"3600e966-e09e-49fa-b880-b6040b18b4bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1101673, 25274, 401, 12, 49, "Input",ExpressionUUID->"3ef37dc1-5b44-4f08-bb84-6f7409b8c6b1"], +Cell[1102077, 25288, 189, 4, 34, "Output",ExpressionUUID->"990003af-da28-4467-aca5-238395f35dcb"] +}, Open ]], +Cell[1102281, 25295, 2661, 78, 136, "Input",ExpressionUUID->"b76ce2a4-493c-478c-8322-905ec89d1a9f"], +Cell[CellGroupData[{ +Cell[1104967, 25377, 1938, 45, 49, "Input",ExpressionUUID->"5544f04a-0054-43e5-bb43-75d3e0e84fca"], +Cell[1106908, 25424, 15393, 272, 232, "Output",ExpressionUUID->"e0d46126-2e2e-4245-8ecd-f2dab22c2db6"] +}, Open ]] +}, Open ]] +}, Closed]] +}, Open ]], +Cell[CellGroupData[{ +Cell[1122374, 25704, 316, 5, 98, "Title",ExpressionUUID->"949ad03f-d58b-4241-96f5-b400e7946fe4"], +Cell[CellGroupData[{ +Cell[1122715, 25713, 2816, 83, 81, "Input",ExpressionUUID->"80e49bc5-f392-4650-a62d-79b9163a41b2"], +Cell[1125534, 25798, 157, 3, 34, "Output",ExpressionUUID->"5f105e81-fe51-4909-8d36-fa21edd829aa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1125728, 25806, 1107, 33, 46, "Input",ExpressionUUID->"51557400-4a2a-47af-aec7-1eb15e8853d9"], +Cell[1126838, 25841, 353, 6, 34, "Output",ExpressionUUID->"08430307-3eb6-4d61-934d-2bb3e0671c65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1127228, 25852, 1045, 25, 79, "Input",ExpressionUUID->"88d3ca5f-bed0-45b1-8327-ce7569dea99b"], +Cell[1128276, 25879, 2293, 65, 37, "Output",ExpressionUUID->"901bb789-5185-4063-8a75-eef1fff5b01c"] +}, Open ]], +Cell[1130584, 25947, 642, 21, 38, "Input",ExpressionUUID->"f6e5faa6-ce53-4f31-a1ea-0f27b5b83c4a"], +Cell[CellGroupData[{ +Cell[1131251, 25972, 1058, 30, 30, "Input",ExpressionUUID->"6dfa7aec-806e-48c8-90c6-223e1c3a7daf"], +Cell[1132312, 26004, 988, 32, 61, "Output",ExpressionUUID->"acb8a4dd-565e-41d9-8791-ef0e7ea4cb26"] +}, Open ]], +Cell[1133315, 26039, 3069, 95, 155, "Input",ExpressionUUID->"20a5f17a-dee7-4892-90e3-e5e3adb342d2"], +Cell[1136387, 26136, 228, 5, 30, "Input",ExpressionUUID->"b84aeb90-399e-4535-889b-770a69ac34ae"], +Cell[CellGroupData[{ +Cell[1136640, 26145, 845, 27, 89, "Input",ExpressionUUID->"33e3fc9c-c7d1-4a16-a685-3f05acccc4f5"], +Cell[1137488, 26174, 990, 34, 87, "Output",ExpressionUUID->"49e75206-f1e0-4370-aac2-7ecaf35c9cd0"], +Cell[1138481, 26210, 2394, 74, 123, "Output",ExpressionUUID->"3dba555e-76cc-4683-a3d6-f3a4a5ebcb44"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1140912, 26289, 340, 12, 33, "Input",ExpressionUUID->"32f0d4f1-ef0d-48ac-a060-b181e2e73a92"], +Cell[1141255, 26303, 239, 8, 34, "Output",ExpressionUUID->"3d81738b-ce7e-4122-9175-6cbd17754a2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1141531, 26316, 1163, 37, 48, "Input",ExpressionUUID->"d0590162-e3ec-4a7e-a8e3-d716b809a2c3"], +Cell[1142697, 26355, 1012, 35, 49, "Output",ExpressionUUID->"9a4dc630-893b-46a9-8146-62d3fcd59c72"] +}, Open ]], +Cell[1143724, 26393, 177, 5, 30, "Input",ExpressionUUID->"b0dec0e2-b2a7-4c9c-8e40-07e2d7f838b7"], +Cell[CellGroupData[{ +Cell[1143926, 26402, 555, 15, 47, "Input",ExpressionUUID->"5d06dc52-682d-4e61-918d-e49499818d86"], +Cell[1144484, 26419, 236, 5, 34, "Output",ExpressionUUID->"5db4e58f-88d7-4c3b-bbb4-75882467f5ea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1144757, 26429, 2235, 66, 85, "Input",ExpressionUUID->"de27e6cd-9769-4ae1-b6c3-2331befefae5"], +Cell[1146995, 26497, 5927, 117, 239, "Output",ExpressionUUID->"cd66dca3-1473-433d-bc7c-4128bf29c7d4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1152959, 26619, 679, 21, 30, "Input",ExpressionUUID->"ee96f0c6-bb02-441b-b3ad-28b43fe92251"], +Cell[1153641, 26642, 12858, 364, 524, "Output",ExpressionUUID->"c9cea9d9-dae8-4486-b4f1-de115887e6b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1166536, 27011, 954, 27, 104, "Input",ExpressionUUID->"9e2c8a78-0b27-49ac-8973-89a7ef2f049b"], +Cell[1167493, 27040, 761, 24, 49, "Output",ExpressionUUID->"73902afd-b440-4fd8-9951-61d42641ec94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1168291, 27069, 596, 16, 30, "Input",ExpressionUUID->"632a382f-b2d9-452b-bdd9-279cc27d3736"], +Cell[1168890, 27087, 386, 11, 50, "Output",ExpressionUUID->"55cb6465-0d64-469a-a091-9ac553aff0a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1169313, 27103, 459, 13, 30, "Input",ExpressionUUID->"e7579c0e-5fe2-4dee-a39e-03e5aaa29e56"], +Cell[1169775, 27118, 2261, 57, 239, "Output",ExpressionUUID->"4c3f1f75-d14b-49d4-960d-a4df952bc443"] +}, Open ]], +Cell[1172051, 27178, 642, 21, 38, "Input",ExpressionUUID->"113cc010-ef13-43ce-b900-a4898d1f920b"], +Cell[CellGroupData[{ +Cell[1172718, 27203, 1058, 30, 30, "Input",ExpressionUUID->"de6116b9-37de-4c33-b286-f16be9d82515"], +Cell[1173779, 27235, 988, 32, 61, "Output",ExpressionUUID->"93306795-95bf-4aa0-b953-32cb2722cee7"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1174816, 27273, 393, 6, 72, "Title",ExpressionUUID->"fd58c766-e2bc-46fc-ac58-9e6e23d8bb33"], +Cell[CellGroupData[{ +Cell[1175234, 27283, 1726, 56, 110, "Input",ExpressionUUID->"9932d2cc-fe66-4d88-afdf-eb228ff58fef"], +Cell[1176963, 27341, 205, 5, 34, "Output",ExpressionUUID->"bfca1597-11c0-47c8-9d37-e3e350983f23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1177205, 27351, 3574, 98, 64, "Input",ExpressionUUID->"d4d9348c-173e-44a7-ae65-80e360f29efb"], +Cell[1180782, 27451, 1266, 20, 34, "Output",ExpressionUUID->"8b724131-824d-4509-aa83-aefae5631760"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1182085, 27476, 5239, 154, 188, "Input",ExpressionUUID->"c7533afb-668d-4800-b6fe-126a0f825d98"], +Cell[1187327, 27632, 523, 8, 34, "Output",ExpressionUUID->"ea2bbbfe-7721-4d7e-8b0e-9bed61bcc07d"], +Cell[1187853, 27642, 521, 8, 34, "Output",ExpressionUUID->"ae914970-796a-47bb-914d-b8dc9d15e37e"], +Cell[1188377, 27652, 523, 8, 34, "Output",ExpressionUUID->"d233f0d2-bf3d-442f-aff4-cc30cc42ff20"], +Cell[1188903, 27662, 523, 8, 34, "Output",ExpressionUUID->"d3e446e4-a75c-4b25-b798-7a6fd5a8cbe2"] +}, Open ]], +Cell[1189441, 27673, 168, 3, 30, "Input",ExpressionUUID->"d8a4ec23-51f4-4b5a-bf4c-9eb0a99be8ba"], +Cell[CellGroupData[{ +Cell[1189634, 27680, 2157, 60, 82, "Input",ExpressionUUID->"b95b3b0d-6377-41ca-8cd9-d791cb58ce84"], +Cell[1191794, 27742, 1202, 23, 34, "Output",ExpressionUUID->"19a54e9c-6574-4537-9132-170e9e041189"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1193033, 27770, 734, 22, 30, "Input",ExpressionUUID->"140ac05e-45f6-41fe-961c-7ca58bc12200"], +Cell[1193770, 27794, 535, 14, 34, "Output",ExpressionUUID->"8d1ab899-ab11-4bee-84a8-09eb3633566d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1194342, 27813, 5428, 157, 95, "Input",ExpressionUUID->"dff65923-7007-4cf8-90b8-eb65c25ed2e4"], +Cell[1199773, 27972, 331, 7, 34, "Output",ExpressionUUID->"4092fc11-4b41-4dbf-8462-1cd1cc81f13a"], +Cell[1200107, 27981, 333, 7, 34, "Output",ExpressionUUID->"4c01f9d9-cec1-4108-a9f7-f9915de2223e"], +Cell[1200443, 27990, 331, 7, 34, "Output",ExpressionUUID->"337efd9d-ae63-4d27-9ef6-7ed96169ce15"], +Cell[1200777, 27999, 331, 7, 34, "Output",ExpressionUUID->"ac05099c-294e-48c2-b697-db48903c3956"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1201145, 28011, 3553, 106, 95, "Input",ExpressionUUID->"31a9a491-b67c-40cf-b7a4-27488ee45e6d"], +Cell[1204701, 28119, 179, 4, 34, "Output",ExpressionUUID->"cf01ad5b-8aec-451f-bc9e-cb05472aee03"], +Cell[1204883, 28125, 179, 4, 34, "Output",ExpressionUUID->"555bea95-5b31-4c7c-a320-1b299d55ebc8"], +Cell[1205065, 28131, 181, 4, 34, "Output",ExpressionUUID->"43916e15-d3e4-467e-85f5-a6806f0a596b"], +Cell[1205249, 28137, 179, 4, 34, "Output",ExpressionUUID->"214184d3-6a06-4e47-993f-1b5d33c2f98c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1205465, 28146, 1581, 48, 54, "Input",ExpressionUUID->"91d3b306-91b1-48b7-a8fe-927d87c7d1de"], +Cell[1207049, 28196, 513, 14, 34, "Output",ExpressionUUID->"78f8f7a7-5648-4900-8486-498e8dba09d6"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1207611, 28216, 199, 4, 72, "Title",ExpressionUUID->"1d403dc2-f08a-4583-9fab-6c4623cf1495"], +Cell[1207813, 28222, 561, 17, 51, "Input",ExpressionUUID->"fa50b839-2dff-432b-a27a-837e1ba9f9d3"], +Cell[1208377, 28241, 469, 13, 48, "Input",ExpressionUUID->"b67bafb9-0950-4c25-a04d-00d5d8ae0b11"], +Cell[1208849, 28256, 713, 21, 51, "Input",ExpressionUUID->"1f6affa5-6e1b-4e56-a5b7-04e66d570c7c"], +Cell[1209565, 28279, 998, 32, 54, "Input",ExpressionUUID->"d14368c6-4ad4-417d-8e01-a60e49579f9b"], +Cell[1210566, 28313, 253, 6, 30, "Input",ExpressionUUID->"d6434ea9-1340-4c47-84b1-a58af545b859"], +Cell[1210822, 28321, 488, 16, 30, "Input",ExpressionUUID->"d751b9f1-f9ca-41f4-bb2e-9095e9d60dbc"], +Cell[1211313, 28339, 184, 4, 30, "Input",ExpressionUUID->"13cb38ee-c205-482e-a55f-3d75c0bf39e9"], +Cell[1211500, 28345, 519, 17, 30, "Input",ExpressionUUID->"1fbdcbf9-7764-4c9d-abfa-20660b46b751"], +Cell[1212022, 28364, 1699, 54, 53, "Input",ExpressionUUID->"b84f445f-123b-4569-b860-228e72ad59a8"], +Cell[1213724, 28420, 359, 11, 30, "Input",ExpressionUUID->"44400ffc-cedc-4c82-a2ff-829880de79ec"], +Cell[CellGroupData[{ +Cell[1214108, 28435, 334, 8, 52, "Input",ExpressionUUID->"16df79d4-ca95-4f78-9351-cf08b3cb40f0"], +Cell[1214445, 28445, 793, 22, 54, "Output",ExpressionUUID->"ffaf0312-051e-49fe-b40d-ec2b3d6157c6"], +Cell[1215241, 28469, 172, 3, 34, "Output",ExpressionUUID->"df9b40fa-cb0e-43d8-b10a-9182debb5037"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1215450, 28477, 1441, 42, 52, "Input",ExpressionUUID->"33bede2a-db3c-4650-a0a4-21096c1830fd"], +Cell[1216894, 28521, 147, 3, 34, "Output",ExpressionUUID->"8d502ccd-0870-401c-8a70-dca00e111acf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1217078, 28529, 765, 20, 30, "Input",ExpressionUUID->"97b2e2f7-8bdc-4c88-986d-d109dd961136"], +Cell[1217846, 28551, 6165, 122, 235, "Output",ExpressionUUID->"3d258cde-b27b-41f6-b1e4-e98ece0e3d43"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1224048, 28678, 979, 32, 53, "Input",ExpressionUUID->"653c5899-e6ae-4ec0-8b10-e83ed45ebd0c"], +Cell[1225030, 28712, 1098, 35, 61, "Output",ExpressionUUID->"c2af1af0-15be-4ee0-9d43-25a986858c96"] +}, Open ]], +Cell[1226143, 28750, 1203, 38, 58, "Input",ExpressionUUID->"3e76b7e2-b7ff-4428-81e6-8a57b469152c"], +Cell[1227349, 28790, 1177, 37, 58, "Input",ExpressionUUID->"4d7ac420-63e3-4ef4-972f-650c0f2234d3"] +}, Closed]], +Cell[CellGroupData[{ +Cell[1228563, 28832, 154, 3, 72, "Title",ExpressionUUID->"0d064af6-f79c-491f-8692-fde40df7f87a"], +Cell[CellGroupData[{ +Cell[1228742, 28839, 150, 3, 67, "Section",ExpressionUUID->"289a4b39-91e5-4eaf-a53e-d76425ba284f"], +Cell[1228895, 28844, 10213, 287, 226, "Input",ExpressionUUID->"f4f4756b-9191-487c-b756-84517c5eadba"] +}, Closed]], +Cell[CellGroupData[{ +Cell[1239145, 29136, 153, 3, 53, "Section",ExpressionUUID->"bb03ae38-4ed9-4ee5-8479-6154d45dfcba"], +Cell[CellGroupData[{ +Cell[1239323, 29143, 157, 3, 54, "Subsection",ExpressionUUID->"fce6662f-9a44-44f9-814e-91c92eaadb1a"], +Cell[CellGroupData[{ +Cell[1239505, 29150, 2422, 63, 271, "Input",ExpressionUUID->"810003a7-1cd2-41a8-801f-735a7a5d32f1"], +Cell[1241930, 29215, 8626, 219, 70, "Output",ExpressionUUID->"3b19727c-2be4-4fa0-a65e-598e66300e1c"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1250605, 29440, 205, 4, 38, "Subsection",ExpressionUUID->"0708d47a-3b8e-4a3a-9ec7-df050a81d651"], +Cell[CellGroupData[{ +Cell[1250835, 29448, 7597, 192, 362, "Input",ExpressionUUID->"cd7ee22e-e7b4-4041-9ada-d5c7f8ba84f4"], +Cell[1258435, 29642, 8626, 219, 70, "Output",ExpressionUUID->"676414ae-4c9c-4c67-8bef-c55f61409d10"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[1267110, 29867, 159, 3, 38, "Subsection",ExpressionUUID->"f6888fa2-004b-49c6-8f80-1779a8d16030"], +Cell[CellGroupData[{ +Cell[1267294, 29874, 5158, 104, 266, "Input",ExpressionUUID->"751dff7e-830c-4183-b387-8701aad13f69"], +Cell[1272455, 29980, 8835, 222, 70, "Output",ExpressionUUID->"04d998b2-f414-4a09-a3c7-7323688f4634"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[1065599, 24406, 170, 3, 53, "Section",ExpressionUUID->"76d52893-14a9-4cab-86c6-332b5fb21365"], +Cell[1281351, 30209, 263, 4, 53, "Section",ExpressionUUID->"e4ba86ba-dcc7-4135-ad04-825e01aa413a"], Cell[CellGroupData[{ -Cell[1065794, 24413, 161, 3, 54, "Subsection",ExpressionUUID->"3fef39c9-17d4-4489-88f3-9569d0e87e25"], -Cell[1065958, 24418, 502, 15, 52, "Input",ExpressionUUID->"6aab4c4d-245a-4a89-86cc-99e7ab25f37c"], -Cell[CellGroupData[{ -Cell[1066485, 24437, 777, 21, 45, "Input",ExpressionUUID->"91dabb2c-ce91-4c75-bbf0-12233ef26300"], -Cell[1067265, 24460, 366, 10, 34, "Output",ExpressionUUID->"a849a460-809a-49ef-adc9-555b59ab6b07"] +Cell[1281639, 30217, 2150, 50, 77, "Input",ExpressionUUID->"4a15679a-e806-44c0-ab7f-59be0444f144"], +Cell[1283792, 30269, 2922, 77, 321, "Output",ExpressionUUID->"240e0870-53a3-4992-bdc1-5a00ec936b5b"] }, Open ]], Cell[CellGroupData[{ -Cell[1067668, 24475, 933, 29, 33, "Input",ExpressionUUID->"9a32a31a-42c5-41ae-8c4b-46adeefb0e71"], -Cell[1068604, 24506, 249, 6, 34, "Output",ExpressionUUID->"ec53ae3d-027b-4113-a47f-ab248f7e81e1"] +Cell[1286751, 30351, 939, 28, 52, "Input",ExpressionUUID->"9e9af3fe-8f75-47d4-b421-6fc6d840d824"], +Cell[1287693, 30381, 2060, 39, 245, "Output",ExpressionUUID->"1ec7ced5-8756-4e55-ad0e-18b08f7f308e"] }, Open ]], Cell[CellGroupData[{ -Cell[1068890, 24517, 1162, 34, 48, "Input",ExpressionUUID->"a14e3040-c79e-4c7f-9f74-338f596a0031"], -Cell[1070055, 24553, 274, 7, 51, "Output",ExpressionUUID->"74d1a418-22ca-46a1-9a99-779d6afe4fbb"] +Cell[1289790, 30425, 1173, 27, 52, "Input",ExpressionUUID->"46365b4a-6341-4fdd-bb3b-297e4f34ac4f"], +Cell[1290966, 30454, 1010, 20, 56, "Output",ExpressionUUID->"5c391593-019d-41e6-9595-f519ba1c5231"] }, Open ]], Cell[CellGroupData[{ -Cell[1070366, 24565, 740, 21, 52, "Input",ExpressionUUID->"136cfe6b-ba09-4e70-bf01-b4a97ea9c07e"], -Cell[1071109, 24588, 325, 9, 51, "Output",ExpressionUUID->"38200485-94c0-49bb-a58a-9e67cf26a71e"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[1071483, 24603, 378, 6, 54, "Subsection",ExpressionUUID->"2f9cadae-aad2-4b77-9dcc-6cd5ba4f1d01"], -Cell[1071864, 24611, 4284, 106, 217, "Input",ExpressionUUID->"a0115006-10f2-4120-ab18-5dec0df210ce"], -Cell[1076151, 24719, 3546, 82, 152, "Input",ExpressionUUID->"dbc52a59-ac9c-44f4-a72f-ee3fceb7a62b"], -Cell[1079700, 24803, 4100, 115, 128, "Input",ExpressionUUID->"6224db65-5bc3-4a09-a38f-9b791b8d1e0c"], -Cell[CellGroupData[{ -Cell[1083825, 24922, 3284, 101, 128, "Input",ExpressionUUID->"93944d6a-ce35-42af-883b-3cc7f237170d"], -Cell[1087112, 25025, 1537, 41, 207, "Output",ExpressionUUID->"ce7113f7-b4ed-42ba-a839-7398ac50ffb6"], -Cell[1088652, 25068, 1536, 41, 207, "Output",ExpressionUUID->"2cf99b75-d668-4e19-9512-4ffc89170422"], -Cell[1090191, 25111, 1487, 39, 207, "Output",ExpressionUUID->"56ae60fe-c929-440b-a3fa-8de8f8758bbf"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1091715, 25155, 381, 12, 48, "Input",ExpressionUUID->"c61a54e1-f2db-4b67-9757-6a8218ee1f69"], -Cell[1092099, 25169, 660, 23, 70, "Output",ExpressionUUID->"3a1b5464-1954-4e43-81a6-9677b44e1801"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1092796, 25197, 1127, 27, 70, "Input",ExpressionUUID->"f4c862ec-aeee-4a05-afd5-2b52e5e177c9"], -Cell[1093926, 25226, 2153, 60, 60, "Output",ExpressionUUID->"962228c1-d951-4510-af45-5417af85dc45"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1096116, 25291, 1165, 31, 48, "Input",ExpressionUUID->"6d595fb1-e2ad-4ecc-b2ab-90ab2b85e5da"], -Cell[1097284, 25324, 790, 22, 66, "Output",ExpressionUUID->"20ca5ba7-cc4e-4859-8ff3-ea358db682eb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1098111, 25351, 585, 19, 70, "Input",ExpressionUUID->"4c799ca0-348c-49b9-adfa-f6db2682577b"], -Cell[1098699, 25372, 170, 4, 34, "Output",ExpressionUUID->"e24c2ee2-cdd7-413e-9f95-55237ccafcac"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1098906, 25381, 1527, 42, 225, "Input",ExpressionUUID->"99c2a420-92af-48a3-8942-35b2a99ea0ef"], -Cell[1100436, 25425, 3537, 76, 242, "Output",ExpressionUUID->"fc9b2b84-a468-43dd-8c15-8a124b83c577"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1104010, 25506, 2181, 58, 129, "Input",ExpressionUUID->"f0cd9b57-631d-4ef0-8035-e8ce7f5c4c07"], -Cell[1106194, 25566, 1180, 23, 56, "Output",ExpressionUUID->"71220aa2-1403-4dfa-a52e-bbefa515baa9"], -Cell[1107377, 25591, 926, 16, 34, "Output",ExpressionUUID->"e3d773df-12e2-4170-9cf3-be6a0727bb51"], -Cell[1108306, 25609, 946, 17, 34, "Output",ExpressionUUID->"3600e966-e09e-49fa-b880-b6040b18b4bb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1109289, 25631, 401, 12, 49, "Input",ExpressionUUID->"3ef37dc1-5b44-4f08-bb84-6f7409b8c6b1"], -Cell[1109693, 25645, 189, 4, 34, "Output",ExpressionUUID->"990003af-da28-4467-aca5-238395f35dcb"] -}, Open ]], -Cell[1109897, 25652, 2661, 78, 136, "Input",ExpressionUUID->"b76ce2a4-493c-478c-8322-905ec89d1a9f"], -Cell[CellGroupData[{ -Cell[1112583, 25734, 1938, 45, 49, "Input",ExpressionUUID->"5544f04a-0054-43e5-bb43-75d3e0e84fca"], -Cell[1114524, 25781, 15393, 272, 232, "Output",ExpressionUUID->"e0d46126-2e2e-4245-8ecd-f2dab22c2db6"] -}, Open ]] +Cell[1292013, 30479, 781, 22, 52, "Input",ExpressionUUID->"35434a53-4b91-44ed-825d-5dbea4e17092"], +Cell[1292797, 30503, 5107, 102, 237, "Output",ExpressionUUID->"1185b131-bf76-4290-bf37-33f94de9e706"] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ -Cell[1129990, 26061, 316, 5, 72, "Title",ExpressionUUID->"949ad03f-d58b-4241-96f5-b400e7946fe4"], +Cell[1297965, 30612, 405, 6, 72, "Title",ExpressionUUID->"4f34be00-29c3-4e77-aa66-f6a847d0c3f1"], +Cell[1298373, 30620, 180, 3, 30, "Input",ExpressionUUID->"8d263452-835c-4c7d-9a1d-bc8805b994fc"], Cell[CellGroupData[{ -Cell[1130331, 26070, 2816, 83, 81, "Input",ExpressionUUID->"80e49bc5-f392-4650-a62d-79b9163a41b2"], -Cell[1133150, 26155, 157, 3, 34, "Output",ExpressionUUID->"5f105e81-fe51-4909-8d36-fa21edd829aa"] +Cell[1298578, 30627, 2628, 79, 83, "Input",ExpressionUUID->"f62802e4-168a-4fe1-9a30-b6797d8c7bf3"], +Cell[1301209, 30708, 232, 4, 34, "Output",ExpressionUUID->"f33b8741-b458-43c0-9516-662e18b23324"] +}, Open ]], +Cell[1301456, 30715, 1009, 24, 83, "Input",ExpressionUUID->"9a5826c2-98dd-4be8-9b9c-b2df6f19cbe0"], +Cell[CellGroupData[{ +Cell[1302490, 30743, 1265, 33, 30, "Input",ExpressionUUID->"66c866db-ed84-4bea-8780-2dc993e19ea0"], +Cell[1303758, 30778, 29379, 581, 233, "Output",ExpressionUUID->"a32a5425-e6e9-412e-b50f-763c7a7796d8"] }, Open ]], Cell[CellGroupData[{ -Cell[1133344, 26163, 1107, 33, 46, "Input",ExpressionUUID->"51557400-4a2a-47af-aec7-1eb15e8853d9"], -Cell[1134454, 26198, 353, 6, 34, "Output",ExpressionUUID->"08430307-3eb6-4d61-934d-2bb3e0671c65"] +Cell[1333174, 31364, 384, 10, 47, "Input",ExpressionUUID->"581cef85-48d7-4b0e-a276-83a7512547cf"], +Cell[1333561, 31376, 4415, 91, 241, "Output",ExpressionUUID->"1614b61d-b20a-4529-9e82-06ef600ae918"] }, Open ]], Cell[CellGroupData[{ -Cell[1134844, 26209, 1045, 25, 79, "Input",ExpressionUUID->"88d3ca5f-bed0-45b1-8327-ce7569dea99b"], -Cell[1135892, 26236, 2293, 65, 37, "Output",ExpressionUUID->"901bb789-5185-4063-8a75-eef1fff5b01c"] +Cell[1338013, 31472, 683, 21, 47, "Input",ExpressionUUID->"7fc66771-0729-4278-b67c-6caadef8b572"], +Cell[1338699, 31495, 689, 21, 51, "Output",ExpressionUUID->"84c9a107-2dfa-4a42-8ce8-4d3d2b816f4b"] }, Open ]], -Cell[1138200, 26304, 642, 21, 38, "Input",ExpressionUUID->"f6e5faa6-ce53-4f31-a1ea-0f27b5b83c4a"], +Cell[1339403, 31519, 13413, 293, 508, "Input",ExpressionUUID->"c82b1fbd-a766-44a3-97ef-7f671456e944"], Cell[CellGroupData[{ -Cell[1138867, 26329, 1058, 30, 30, "Input",ExpressionUUID->"6dfa7aec-806e-48c8-90c6-223e1c3a7daf"], -Cell[1139928, 26361, 988, 32, 61, "Output",ExpressionUUID->"acb8a4dd-565e-41d9-8791-ef0e7ea4cb26"] -}, Open ]], -Cell[1140931, 26396, 3069, 95, 155, "Input",ExpressionUUID->"20a5f17a-dee7-4892-90e3-e5e3adb342d2"], -Cell[1144003, 26493, 228, 5, 30, "Input",ExpressionUUID->"b84aeb90-399e-4535-889b-770a69ac34ae"], -Cell[CellGroupData[{ -Cell[1144256, 26502, 845, 27, 89, "Input",ExpressionUUID->"33e3fc9c-c7d1-4a16-a685-3f05acccc4f5"], -Cell[1145104, 26531, 990, 34, 87, "Output",ExpressionUUID->"49e75206-f1e0-4370-aac2-7ecaf35c9cd0"], -Cell[1146097, 26567, 2394, 74, 123, "Output",ExpressionUUID->"3dba555e-76cc-4683-a3d6-f3a4a5ebcb44"] +Cell[1352841, 31816, 4738, 112, 136, "Input",ExpressionUUID->"1616d1c7-0850-4b34-ae26-9f9a96a14ebe"], +Cell[1357582, 31930, 11106, 222, 380, "Output",ExpressionUUID->"4f0b661f-b259-4ea2-adc3-d6344aa54ee2"] }, Open ]], Cell[CellGroupData[{ -Cell[1148528, 26646, 340, 12, 33, "Input",ExpressionUUID->"32f0d4f1-ef0d-48ac-a060-b181e2e73a92"], -Cell[1148871, 26660, 239, 8, 34, "Output",ExpressionUUID->"3d81738b-ce7e-4122-9175-6cbd17754a2e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1149147, 26673, 1163, 37, 48, "Input",ExpressionUUID->"d0590162-e3ec-4a7e-a8e3-d716b809a2c3"], -Cell[1150313, 26712, 1012, 35, 49, "Output",ExpressionUUID->"9a4dc630-893b-46a9-8146-62d3fcd59c72"] -}, Open ]], -Cell[1151340, 26750, 177, 5, 30, "Input",ExpressionUUID->"b0dec0e2-b2a7-4c9c-8e40-07e2d7f838b7"], -Cell[CellGroupData[{ -Cell[1151542, 26759, 555, 15, 47, "Input",ExpressionUUID->"5d06dc52-682d-4e61-918d-e49499818d86"], -Cell[1152100, 26776, 236, 5, 34, "Output",ExpressionUUID->"5db4e58f-88d7-4c3b-bbb4-75882467f5ea"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1152373, 26786, 2235, 66, 85, "Input",ExpressionUUID->"de27e6cd-9769-4ae1-b6c3-2331befefae5"], -Cell[1154611, 26854, 5927, 117, 239, "Output",ExpressionUUID->"cd66dca3-1473-433d-bc7c-4128bf29c7d4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1160575, 26976, 679, 21, 30, "Input",ExpressionUUID->"ee96f0c6-bb02-441b-b3ad-28b43fe92251"], -Cell[1161257, 26999, 12858, 364, 524, "Output",ExpressionUUID->"c9cea9d9-dae8-4486-b4f1-de115887e6b6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1174152, 27368, 954, 27, 104, "Input",ExpressionUUID->"9e2c8a78-0b27-49ac-8973-89a7ef2f049b"], -Cell[1175109, 27397, 761, 24, 49, "Output",ExpressionUUID->"73902afd-b440-4fd8-9951-61d42641ec94"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1175907, 27426, 596, 16, 30, "Input",ExpressionUUID->"632a382f-b2d9-452b-bdd9-279cc27d3736"], -Cell[1176506, 27444, 386, 11, 50, "Output",ExpressionUUID->"55cb6465-0d64-469a-a091-9ac553aff0a1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1176929, 27460, 459, 13, 30, "Input",ExpressionUUID->"e7579c0e-5fe2-4dee-a39e-03e5aaa29e56"], -Cell[1177391, 27475, 2261, 57, 239, "Output",ExpressionUUID->"4c3f1f75-d14b-49d4-960d-a4df952bc443"] -}, Open ]], -Cell[1179667, 27535, 642, 21, 38, "Input",ExpressionUUID->"113cc010-ef13-43ce-b900-a4898d1f920b"], -Cell[CellGroupData[{ -Cell[1180334, 27560, 1058, 30, 30, "Input",ExpressionUUID->"de6116b9-37de-4c33-b286-f16be9d82515"], -Cell[1181395, 27592, 988, 32, 61, "Output",ExpressionUUID->"93306795-95bf-4aa0-b953-32cb2722cee7"] +Cell[1368725, 32157, 2021, 42, 52, "Input",ExpressionUUID->"b45f339b-ac48-4a64-a275-7e7b05de370d"], +Cell[1370749, 32201, 2118, 50, 350, "Output",ExpressionUUID->"c1cfc51d-5654-46f1-8b41-b1aac8e3a2d5"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[1182432, 27630, 393, 6, 72, "Title",ExpressionUUID->"fd58c766-e2bc-46fc-ac58-9e6e23d8bb33"], +Cell[1372916, 32257, 655, 10, 72, "Title",ExpressionUUID->"201ad230-a046-41ad-a8b2-644dc4575875"], Cell[CellGroupData[{ -Cell[1182850, 27640, 1726, 56, 110, "Input",ExpressionUUID->"9932d2cc-fe66-4d88-afdf-eb228ff58fef"], -Cell[1184579, 27698, 205, 5, 34, "Output",ExpressionUUID->"bfca1597-11c0-47c8-9d37-e3e350983f23"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1184821, 27708, 3574, 98, 64, "Input",ExpressionUUID->"d4d9348c-173e-44a7-ae65-80e360f29efb"], -Cell[1188398, 27808, 1266, 20, 34, "Output",ExpressionUUID->"8b724131-824d-4509-aa83-aefae5631760"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1189701, 27833, 5239, 154, 188, "Input",ExpressionUUID->"c7533afb-668d-4800-b6fe-126a0f825d98"], -Cell[1194943, 27989, 523, 8, 34, "Output",ExpressionUUID->"ea2bbbfe-7721-4d7e-8b0e-9bed61bcc07d"], -Cell[1195469, 27999, 521, 8, 34, "Output",ExpressionUUID->"ae914970-796a-47bb-914d-b8dc9d15e37e"], -Cell[1195993, 28009, 523, 8, 34, "Output",ExpressionUUID->"d233f0d2-bf3d-442f-aff4-cc30cc42ff20"], -Cell[1196519, 28019, 523, 8, 34, "Output",ExpressionUUID->"d3e446e4-a75c-4b25-b798-7a6fd5a8cbe2"] -}, Open ]], -Cell[1197057, 28030, 168, 3, 30, "Input",ExpressionUUID->"d8a4ec23-51f4-4b5a-bf4c-9eb0a99be8ba"], -Cell[CellGroupData[{ -Cell[1197250, 28037, 2157, 60, 82, "Input",ExpressionUUID->"b95b3b0d-6377-41ca-8cd9-d791cb58ce84"], -Cell[1199410, 28099, 1202, 23, 34, "Output",ExpressionUUID->"19a54e9c-6574-4537-9132-170e9e041189"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1200649, 28127, 734, 22, 30, "Input",ExpressionUUID->"140ac05e-45f6-41fe-961c-7ca58bc12200"], -Cell[1201386, 28151, 535, 14, 34, "Output",ExpressionUUID->"8d1ab899-ab11-4bee-84a8-09eb3633566d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1201958, 28170, 5428, 157, 95, "Input",ExpressionUUID->"dff65923-7007-4cf8-90b8-eb65c25ed2e4"], -Cell[1207389, 28329, 331, 7, 34, "Output",ExpressionUUID->"4092fc11-4b41-4dbf-8462-1cd1cc81f13a"], -Cell[1207723, 28338, 333, 7, 34, "Output",ExpressionUUID->"4c01f9d9-cec1-4108-a9f7-f9915de2223e"], -Cell[1208059, 28347, 331, 7, 34, "Output",ExpressionUUID->"337efd9d-ae63-4d27-9ef6-7ed96169ce15"], -Cell[1208393, 28356, 331, 7, 34, "Output",ExpressionUUID->"ac05099c-294e-48c2-b697-db48903c3956"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1208761, 28368, 3553, 106, 95, "Input",ExpressionUUID->"31a9a491-b67c-40cf-b7a4-27488ee45e6d"], -Cell[1212317, 28476, 179, 4, 34, "Output",ExpressionUUID->"cf01ad5b-8aec-451f-bc9e-cb05472aee03"], -Cell[1212499, 28482, 179, 4, 34, "Output",ExpressionUUID->"555bea95-5b31-4c7c-a320-1b299d55ebc8"], -Cell[1212681, 28488, 181, 4, 34, "Output",ExpressionUUID->"43916e15-d3e4-467e-85f5-a6806f0a596b"], -Cell[1212865, 28494, 179, 4, 34, "Output",ExpressionUUID->"214184d3-6a06-4e47-993f-1b5d33c2f98c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1213081, 28503, 1581, 48, 54, "Input",ExpressionUUID->"91d3b306-91b1-48b7-a8fe-927d87c7d1de"], -Cell[1214665, 28553, 513, 14, 34, "Output",ExpressionUUID->"78f8f7a7-5648-4900-8486-498e8dba09d6"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1215227, 28573, 199, 4, 72, "Title",ExpressionUUID->"1d403dc2-f08a-4583-9fab-6c4623cf1495"], -Cell[1215429, 28579, 561, 17, 51, "Input",ExpressionUUID->"fa50b839-2dff-432b-a27a-837e1ba9f9d3"], -Cell[1215993, 28598, 469, 13, 48, "Input",ExpressionUUID->"b67bafb9-0950-4c25-a04d-00d5d8ae0b11"], -Cell[1216465, 28613, 713, 21, 51, "Input",ExpressionUUID->"1f6affa5-6e1b-4e56-a5b7-04e66d570c7c"], -Cell[1217181, 28636, 998, 32, 54, "Input",ExpressionUUID->"d14368c6-4ad4-417d-8e01-a60e49579f9b"], -Cell[1218182, 28670, 253, 6, 30, "Input",ExpressionUUID->"d6434ea9-1340-4c47-84b1-a58af545b859"], -Cell[1218438, 28678, 488, 16, 30, "Input",ExpressionUUID->"d751b9f1-f9ca-41f4-bb2e-9095e9d60dbc"], -Cell[1218929, 28696, 184, 4, 30, "Input",ExpressionUUID->"13cb38ee-c205-482e-a55f-3d75c0bf39e9"], -Cell[1219116, 28702, 519, 17, 30, "Input",ExpressionUUID->"1fbdcbf9-7764-4c9d-abfa-20660b46b751"], -Cell[1219638, 28721, 1699, 54, 53, "Input",ExpressionUUID->"b84f445f-123b-4569-b860-228e72ad59a8"], -Cell[1221340, 28777, 359, 11, 30, "Input",ExpressionUUID->"44400ffc-cedc-4c82-a2ff-829880de79ec"], -Cell[CellGroupData[{ -Cell[1221724, 28792, 334, 8, 52, "Input",ExpressionUUID->"16df79d4-ca95-4f78-9351-cf08b3cb40f0"], -Cell[1222061, 28802, 793, 22, 54, "Output",ExpressionUUID->"ffaf0312-051e-49fe-b40d-ec2b3d6157c6"], -Cell[1222857, 28826, 172, 3, 34, "Output",ExpressionUUID->"df9b40fa-cb0e-43d8-b10a-9182debb5037"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1223066, 28834, 1441, 42, 52, "Input",ExpressionUUID->"33bede2a-db3c-4650-a0a4-21096c1830fd"], -Cell[1224510, 28878, 147, 3, 34, "Output",ExpressionUUID->"8d502ccd-0870-401c-8a70-dca00e111acf"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1224694, 28886, 765, 20, 30, "Input",ExpressionUUID->"97b2e2f7-8bdc-4c88-986d-d109dd961136"], -Cell[1225462, 28908, 6165, 122, 235, "Output",ExpressionUUID->"3d258cde-b27b-41f6-b1e4-e98ece0e3d43"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1231664, 29035, 979, 32, 53, "Input",ExpressionUUID->"653c5899-e6ae-4ec0-8b10-e83ed45ebd0c"], -Cell[1232646, 29069, 1098, 35, 61, "Output",ExpressionUUID->"c2af1af0-15be-4ee0-9d43-25a986858c96"] -}, Open ]], -Cell[1233759, 29107, 1203, 38, 58, "Input",ExpressionUUID->"3e76b7e2-b7ff-4428-81e6-8a57b469152c"], -Cell[1234965, 29147, 1177, 37, 58, "Input",ExpressionUUID->"4d7ac420-63e3-4ef4-972f-650c0f2234d3"] -}, Closed]], -Cell[CellGroupData[{ -Cell[1236179, 29189, 154, 3, 72, "Title",ExpressionUUID->"0d064af6-f79c-491f-8692-fde40df7f87a"], -Cell[CellGroupData[{ -Cell[1236358, 29196, 150, 3, 67, "Section",ExpressionUUID->"289a4b39-91e5-4eaf-a53e-d76425ba284f"], -Cell[1236511, 29201, 10213, 287, 226, "Input",ExpressionUUID->"f4f4756b-9191-487c-b756-84517c5eadba"] -}, Closed]], -Cell[CellGroupData[{ -Cell[1246761, 29493, 153, 3, 53, "Section",ExpressionUUID->"bb03ae38-4ed9-4ee5-8479-6154d45dfcba"], -Cell[CellGroupData[{ -Cell[1246939, 29500, 157, 3, 54, "Subsection",ExpressionUUID->"fce6662f-9a44-44f9-814e-91c92eaadb1a"], -Cell[CellGroupData[{ -Cell[1247121, 29507, 2422, 63, 271, "Input",ExpressionUUID->"810003a7-1cd2-41a8-801f-735a7a5d32f1"], -Cell[1249546, 29572, 8626, 219, 70, "Output",ExpressionUUID->"3b19727c-2be4-4fa0-a65e-598e66300e1c"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1258221, 29797, 205, 4, 38, "Subsection",ExpressionUUID->"0708d47a-3b8e-4a3a-9ec7-df050a81d651"], -Cell[CellGroupData[{ -Cell[1258451, 29805, 7597, 192, 362, "Input",ExpressionUUID->"cd7ee22e-e7b4-4041-9ada-d5c7f8ba84f4"], -Cell[1266051, 29999, 8626, 219, 70, "Output",ExpressionUUID->"676414ae-4c9c-4c67-8bef-c55f61409d10"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1274726, 30224, 159, 3, 38, "Subsection",ExpressionUUID->"f6888fa2-004b-49c6-8f80-1779a8d16030"], -Cell[CellGroupData[{ -Cell[1274910, 30231, 5158, 104, 266, "Input",ExpressionUUID->"751dff7e-830c-4183-b387-8701aad13f69"], -Cell[1280071, 30337, 8835, 222, 70, "Output",ExpressionUUID->"04d998b2-f414-4a09-a3c7-7323688f4634"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1288967, 30566, 263, 4, 53, "Section",ExpressionUUID->"e4ba86ba-dcc7-4135-ad04-825e01aa413a"], -Cell[CellGroupData[{ -Cell[1289255, 30574, 2150, 50, 77, "Input",ExpressionUUID->"4a15679a-e806-44c0-ab7f-59be0444f144"], -Cell[1291408, 30626, 2922, 77, 321, "Output",ExpressionUUID->"240e0870-53a3-4992-bdc1-5a00ec936b5b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1294367, 30708, 939, 28, 52, "Input",ExpressionUUID->"9e9af3fe-8f75-47d4-b421-6fc6d840d824"], -Cell[1295309, 30738, 2060, 39, 245, "Output",ExpressionUUID->"1ec7ced5-8756-4e55-ad0e-18b08f7f308e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1297406, 30782, 1173, 27, 52, "Input",ExpressionUUID->"46365b4a-6341-4fdd-bb3b-297e4f34ac4f"], -Cell[1298582, 30811, 1010, 20, 56, "Output",ExpressionUUID->"5c391593-019d-41e6-9595-f519ba1c5231"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1299629, 30836, 781, 22, 52, "Input",ExpressionUUID->"35434a53-4b91-44ed-825d-5dbea4e17092"], -Cell[1300413, 30860, 5107, 102, 237, "Output",ExpressionUUID->"1185b131-bf76-4290-bf37-33f94de9e706"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1305581, 30969, 405, 6, 72, "Title",ExpressionUUID->"4f34be00-29c3-4e77-aa66-f6a847d0c3f1"], -Cell[1305989, 30977, 180, 3, 30, "Input",ExpressionUUID->"8d263452-835c-4c7d-9a1d-bc8805b994fc"], -Cell[CellGroupData[{ -Cell[1306194, 30984, 2628, 79, 83, "Input",ExpressionUUID->"f62802e4-168a-4fe1-9a30-b6797d8c7bf3"], -Cell[1308825, 31065, 232, 4, 34, "Output",ExpressionUUID->"f33b8741-b458-43c0-9516-662e18b23324"] -}, Open ]], -Cell[1309072, 31072, 1009, 24, 83, "Input",ExpressionUUID->"9a5826c2-98dd-4be8-9b9c-b2df6f19cbe0"], -Cell[CellGroupData[{ -Cell[1310106, 31100, 1265, 33, 30, "Input",ExpressionUUID->"66c866db-ed84-4bea-8780-2dc993e19ea0"], -Cell[1311374, 31135, 29379, 581, 233, "Output",ExpressionUUID->"a32a5425-e6e9-412e-b50f-763c7a7796d8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1340790, 31721, 384, 10, 47, "Input",ExpressionUUID->"581cef85-48d7-4b0e-a276-83a7512547cf"], -Cell[1341177, 31733, 4415, 91, 241, "Output",ExpressionUUID->"1614b61d-b20a-4529-9e82-06ef600ae918"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1345629, 31829, 683, 21, 47, "Input",ExpressionUUID->"7fc66771-0729-4278-b67c-6caadef8b572"], -Cell[1346315, 31852, 689, 21, 51, "Output",ExpressionUUID->"84c9a107-2dfa-4a42-8ce8-4d3d2b816f4b"] -}, Open ]], -Cell[1347019, 31876, 13413, 293, 508, "Input",ExpressionUUID->"c82b1fbd-a766-44a3-97ef-7f671456e944"], -Cell[CellGroupData[{ -Cell[1360457, 32173, 4738, 112, 136, "Input",ExpressionUUID->"1616d1c7-0850-4b34-ae26-9f9a96a14ebe"], -Cell[1365198, 32287, 11106, 222, 380, "Output",ExpressionUUID->"4f0b661f-b259-4ea2-adc3-d6344aa54ee2"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1376341, 32514, 2021, 42, 52, "Input",ExpressionUUID->"b45f339b-ac48-4a64-a275-7e7b05de370d"], -Cell[1378365, 32558, 2118, 50, 350, "Output",ExpressionUUID->"c1cfc51d-5654-46f1-8b41-b1aac8e3a2d5"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1380532, 32614, 655, 10, 72, "Title",ExpressionUUID->"201ad230-a046-41ad-a8b2-644dc4575875"], -Cell[CellGroupData[{ -Cell[1381212, 32628, 164, 3, 67, "Section",ExpressionUUID->"70c9745c-e34b-460a-8489-09d956f83ae9"], -Cell[1381379, 32633, 8917, 191, 320, "Input",ExpressionUUID->"db5444a0-15c5-4795-b2e7-7cb547dd9291", +Cell[1373596, 32271, 164, 3, 67, "Section",ExpressionUUID->"70c9745c-e34b-460a-8489-09d956f83ae9"], +Cell[1373763, 32276, 8949, 192, 320, "Input",ExpressionUUID->"db5444a0-15c5-4795-b2e7-7cb547dd9291", InitializationCell->True], -Cell[1390299, 32826, 9231, 197, 320, "Input",ExpressionUUID->"3328b49d-a450-418f-874e-ffb74ef3d694", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[1399567, 33028, 151, 3, 53, "Section",ExpressionUUID->"4810228a-4794-4a99-9007-8533d0ef95f2"], -Cell[1399721, 33033, 4065, 96, 407, "Input",ExpressionUUID->"e49a9df5-608c-4a27-844d-a73b1503970c", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[1403823, 33134, 357, 6, 53, "Section",ExpressionUUID->"fa85920f-ca0e-43de-8f38-7c1082a6236f"], -Cell[CellGroupData[{ -Cell[1404205, 33144, 161, 3, 54, "Subsection",ExpressionUUID->"999c9d70-9c41-4fc2-aa2f-055c65254d77"], -Cell[CellGroupData[{ -Cell[1404391, 33151, 1381, 43, 54, "Input",ExpressionUUID->"007b05ee-4b78-4a58-abce-125dd9edcd2f"], -Cell[1405775, 33196, 851, 27, 51, "Output",ExpressionUUID->"c6844a59-2cc1-46a4-827f-79675bcc406d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1406663, 33228, 2716, 81, 88, "Input",ExpressionUUID->"17ae7fcc-3995-415b-b625-ec234ae8b826"], -Cell[1409382, 33311, 8924, 172, 234, "Output",ExpressionUUID->"dbf962c7-bcf3-46ad-ac00-a2722ae9ab08"] -}, Open ]], -Cell[1418321, 33486, 17499, 461, 995, "Input",ExpressionUUID->"e466e95f-cc3e-4aba-8580-3d6302f7fc08", +Cell[1382715, 32470, 9235, 197, 320, "Input",ExpressionUUID->"3328b49d-a450-418f-874e-ffb74ef3d694", InitializationCell->True] }, Open ]], Cell[CellGroupData[{ -Cell[1435857, 33952, 178, 3, 54, "Subsection",ExpressionUUID->"f4d89056-bd38-460b-a152-98f8ebf88227"], -Cell[1436038, 33957, 194, 3, 35, "Text",ExpressionUUID->"65c7c03b-74ef-448e-8367-5abffe54cbfb"], -Cell[1436235, 33962, 683, 21, 48, "Input",ExpressionUUID->"633f53ba-eb49-4161-998e-51adf01d6e12"], -Cell[1436921, 33985, 168, 3, 35, "Text",ExpressionUUID->"6f83e8ba-4305-4471-9add-9db8a550d3f3"], -Cell[1437092, 33990, 619, 20, 48, "Input",ExpressionUUID->"f1c9a5b5-9505-4850-a959-9e5c4547b3af"] -}, Closed]], -Cell[CellGroupData[{ -Cell[1437748, 34015, 156, 3, 38, "Subsection",ExpressionUUID->"aa80d678-85d3-4a2b-b8d8-3ad0c8879a32"], -Cell[1437907, 34020, 44592, 926, 2124, "Input",ExpressionUUID->"faa1241f-f65d-46fc-b859-df962cf25c34", - InitializationCell->True], -Cell[1482502, 34948, 9085, 157, 137, "Input",ExpressionUUID->"d9a2ebfc-b353-4be5-834b-d1f4d584aed7", +Cell[1391987, 32672, 151, 3, 67, "Section",ExpressionUUID->"4810228a-4794-4a99-9007-8533d0ef95f2"], +Cell[1392141, 32677, 4065, 96, 407, "Input",ExpressionUUID->"e49a9df5-608c-4a27-844d-a73b1503970c", InitializationCell->True] }, Closed]], Cell[CellGroupData[{ -Cell[1491624, 35110, 254, 4, 38, "Subsection",ExpressionUUID->"8825eea5-ee8f-44c0-ac0b-b997eefaebac"], -Cell[1491881, 35116, 50394, 1060, 2445, "Input",ExpressionUUID->"7a26edc6-1cec-4f86-a6ac-78661104905b", - InitializationCell->True], -Cell[1542278, 36178, 9959, 174, 181, "Input",ExpressionUUID->"72f3211b-15aa-4590-a146-975c60dbe95c", - InitializationCell->True] -}, Closed]], +Cell[1396243, 32778, 357, 6, 53, "Section",ExpressionUUID->"fa85920f-ca0e-43de-8f38-7c1082a6236f"], Cell[CellGroupData[{ -Cell[1552274, 36357, 207, 4, 38, "Subsection",ExpressionUUID->"08f66d06-607b-4732-ace2-751e7db94a9a"], -Cell[1552484, 36363, 65101, 1366, 3537, "Input",ExpressionUUID->"11221944-5033-4040-bc23-902aa3737a9c", - InitializationCell->True], -Cell[1617588, 37731, 131, 3, 30, "Input",ExpressionUUID->"0cf7327a-fa30-43c8-beca-6ab09f2144e7"], -Cell[1617722, 37736, 10749, 190, 181, "Input",ExpressionUUID->"06cbc894-5531-4a6e-b39f-fb7110953aad", +Cell[1396625, 32788, 161, 3, 54, "Subsection",ExpressionUUID->"999c9d70-9c41-4fc2-aa2f-055c65254d77"], +Cell[1396789, 32793, 17714, 466, 995, "Input",ExpressionUUID->"e466e95f-cc3e-4aba-8580-3d6302f7fc08", InitializationCell->True] -}, Open ]] }, Open ]], Cell[CellGroupData[{ -Cell[1628520, 37932, 216, 4, 67, "Section",ExpressionUUID->"7f116dc0-d26d-4a3b-8240-0f41c8301a9c"], -Cell[1628739, 37938, 9117, 243, 726, "Input",ExpressionUUID->"7e98fb8d-3c63-4d2d-9bd0-6fc66338de6d", +Cell[1414540, 33264, 178, 3, 54, "Subsection",ExpressionUUID->"f4d89056-bd38-460b-a152-98f8ebf88227"], +Cell[1414721, 33269, 194, 3, 35, "Text",ExpressionUUID->"65c7c03b-74ef-448e-8367-5abffe54cbfb"], +Cell[1414918, 33274, 683, 21, 48, "Input",ExpressionUUID->"633f53ba-eb49-4161-998e-51adf01d6e12"], +Cell[1415604, 33297, 168, 3, 35, "Text",ExpressionUUID->"6f83e8ba-4305-4471-9add-9db8a550d3f3"], +Cell[1415775, 33302, 619, 20, 48, "Input",ExpressionUUID->"f1c9a5b5-9505-4850-a959-9e5c4547b3af"] +}, Closed]], +Cell[CellGroupData[{ +Cell[1416431, 33327, 156, 3, 38, "Subsection",ExpressionUUID->"aa80d678-85d3-4a2b-b8d8-3ad0c8879a32"], +Cell[1416590, 33332, 44592, 926, 2124, "Input",ExpressionUUID->"faa1241f-f65d-46fc-b859-df962cf25c34", InitializationCell->True], -Cell[1637859, 38183, 43153, 943, 2806, "Input",ExpressionUUID->"5f8e1ced-357f-43c7-9cbd-5b9f609f3a63", +Cell[1461185, 34260, 9085, 157, 137, "Input",ExpressionUUID->"d9a2ebfc-b353-4be5-834b-d1f4d584aed7", + InitializationCell->True] +}, Closed]], +Cell[CellGroupData[{ +Cell[1470307, 34422, 254, 4, 38, "Subsection",ExpressionUUID->"8825eea5-ee8f-44c0-ac0b-b997eefaebac"], +Cell[1470564, 34428, 50394, 1060, 2445, "Input",ExpressionUUID->"7a26edc6-1cec-4f86-a6ac-78661104905b", InitializationCell->True], -Cell[1681015, 39128, 10293, 185, 202, "Input",ExpressionUUID->"68e8c54c-5af3-4131-a4e3-ef7775bd8d74", +Cell[1520961, 35490, 9959, 174, 181, "Input",ExpressionUUID->"72f3211b-15aa-4590-a146-975c60dbe95c", + InitializationCell->True] +}, Closed]], +Cell[CellGroupData[{ +Cell[1530957, 35669, 207, 4, 38, "Subsection",ExpressionUUID->"08f66d06-607b-4732-ace2-751e7db94a9a"], +Cell[1531167, 35675, 65101, 1366, 3558, "Input",ExpressionUUID->"11221944-5033-4040-bc23-902aa3737a9c", + InitializationCell->True], +Cell[1596271, 37043, 131, 3, 30, "Input",ExpressionUUID->"0cf7327a-fa30-43c8-beca-6ab09f2144e7"], +Cell[1596405, 37048, 10749, 190, 202, "Input",ExpressionUUID->"06cbc894-5531-4a6e-b39f-fb7110953aad", InitializationCell->True] }, Closed]] }, Open ]], Cell[CellGroupData[{ -Cell[1691357, 39319, 152, 3, 98, "Title",ExpressionUUID->"aefd3997-e92c-4a00-bbab-c1e0d31c8049"], -Cell[CellGroupData[{ -Cell[1691534, 39326, 160, 3, 67, "Section",ExpressionUUID->"aa75faa4-f188-4f1f-b111-6efc6d390d21"], -Cell[CellGroupData[{ -Cell[1691719, 39333, 161, 3, 54, "Subsection",ExpressionUUID->"6cc932ec-2998-4eb9-88a0-ccc179ba2d6a"], -Cell[CellGroupData[{ -Cell[1691905, 39340, 620, 13, 30, "Input",ExpressionUUID->"8bf9487e-abd2-4710-8b15-4881e944991c"], -Cell[1692528, 39355, 228, 4, 24, "Print",ExpressionUUID->"eb3f5147-de20-4058-817e-506824c989a4"], -Cell[1692759, 39361, 1500, 34, 81, "Output",ExpressionUUID->"ef530816-23f3-4ea2-87b9-a35f0bc8c777"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1694296, 39400, 648, 17, 30, "Input",ExpressionUUID->"d50c5511-df0c-44b3-88ca-4a5ccb69fbc5"], -Cell[1694947, 39419, 30666, 585, 237, "Output",ExpressionUUID->"a36d5385-b456-421a-b21d-acc4ec2e1d05"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[1725662, 40010, 225, 4, 38, "Subsection",ExpressionUUID->"80bde696-220f-44ed-9b20-8c56bf094687"], -Cell[1725890, 40016, 457, 11, 89, "Input",ExpressionUUID->"176798d0-1c81-4a7b-af3e-a4ff00f57f19", +Cell[1607203, 37244, 216, 4, 67, "Section",ExpressionUUID->"7f116dc0-d26d-4a3b-8240-0f41c8301a9c"], +Cell[1607422, 37250, 9117, 243, 726, "Input",ExpressionUUID->"7e98fb8d-3c63-4d2d-9bd0-6fc66338de6d", InitializationCell->True], -Cell[1726350, 40029, 1512, 29, 215, "Input",ExpressionUUID->"a0490fa9-06c9-4e65-84b2-908e20e7745b", +Cell[1616542, 37495, 43153, 943, 2806, "Input",ExpressionUUID->"5f8e1ced-357f-43c7-9cbd-5b9f609f3a63", InitializationCell->True], -Cell[CellGroupData[{ -Cell[1727887, 40062, 976, 27, 48, "Input",ExpressionUUID->"33d3b34d-7b98-4653-a319-64bfc4026279"], -Cell[1728866, 40091, 208, 4, 24, "Print",ExpressionUUID->"5eab19b6-625c-4635-8562-5e1928a9a365"], -Cell[1729077, 40097, 159, 3, 34, "Output",ExpressionUUID->"31186200-ec52-49c3-8276-371390bc48e9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1729273, 40105, 358, 8, 30, "Input",ExpressionUUID->"23d1a8e1-6302-4fcd-b56d-23ec5dfb4f9e"], -Cell[1729634, 40115, 210, 4, 24, "Print",ExpressionUUID->"d4b88b69-d2bd-455f-940c-35c418a7c376"], -Cell[1729847, 40121, 964, 23, 60, "Output",ExpressionUUID->"55e2e19a-1baa-4960-8bed-414ffd6efa50"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1730848, 40149, 1375, 30, 30, "Input",ExpressionUUID->"bc5f6205-d019-422a-bd0c-c5a1cc8bac37"], -Cell[CellGroupData[{ -Cell[1732248, 40183, 257, 5, 24, "Print",ExpressionUUID->"7a61b679-b6c9-417a-a64d-9d675514543a"], -Cell[1732508, 40190, 257, 5, 24, "Print",ExpressionUUID->"5160e428-6ca0-431e-ac81-9e13e7ee840d"] -}, Open ]], -Cell[1732780, 40198, 1270, 33, 51, "Output",ExpressionUUID->"56764a43-e5b6-4eaf-9f8a-f7b3efe0977b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1734087, 40236, 404, 9, 30, "Input",ExpressionUUID->"65c89a4c-373e-4c63-a618-a981e86faf6c"], -Cell[1734494, 40247, 2851, 64, 236, "Output",ExpressionUUID->"734657f3-3bc6-47a6-a3c9-9e89adb46720"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1737382, 40316, 1357, 31, 30, "Input",ExpressionUUID->"36ad7076-be3e-4c2f-bd10-518380872ebb"], -Cell[CellGroupData[{ -Cell[1738764, 40351, 397, 7, 24, "Print",ExpressionUUID->"3f736f20-89a4-42da-8c6a-f04fbb8fb69b"], -Cell[1739164, 40360, 395, 7, 24, "Print",ExpressionUUID->"40ecb9c9-7458-46b8-a15e-0ecab03e0457"] -}, Open ]], -Cell[1739574, 40370, 1191, 32, 51, "Output",ExpressionUUID->"78cc0014-7c21-4c23-9f0a-a6b0b8c87e31"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1740802, 40407, 434, 10, 30, "Input",ExpressionUUID->"99f4342f-dee6-451e-b5c4-24e6bf52a7c1"], -Cell[1741239, 40419, 2764, 63, 241, "Output",ExpressionUUID->"50afed37-9c56-4466-82bc-847f8e0d037d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1744040, 40487, 562, 14, 30, "Input",ExpressionUUID->"2e254aa7-799a-4aaa-9d10-bb9b134c88fb"], -Cell[1744605, 40503, 4240, 92, 241, "Output",ExpressionUUID->"a6625ff1-94f8-42d0-9eb8-4e105e35467c"] -}, Open ]], -Cell[1748860, 40598, 536, 13, 30, "Input",ExpressionUUID->"7c703387-a752-4dcb-9f17-6c969a596c59"], -Cell[1749399, 40613, 4774, 100, 235, InheritFromParent,ExpressionUUID->"5cbec312-e006-4599-aa74-7094d1d0a7e6"], -Cell[CellGroupData[{ -Cell[1754198, 40717, 5694, 130, 502, "Input",ExpressionUUID->"1a883756-8ff1-4d3f-9563-4a084568ffa3"], -Cell[1759895, 40849, 164535, 2966, 569, "Output",ExpressionUUID->"2960c5a9-2484-4db9-93ab-7b90a8e7a40e"] -}, Open ]], -Cell[1924445, 43818, 877, 25, 47, "Input",ExpressionUUID->"65e232e9-6897-4381-a7b5-bd66c69db829"] -}, Closed]], -Cell[CellGroupData[{ -Cell[1925359, 43848, 192, 3, 38, "Subsection",ExpressionUUID->"19680b9a-e6ed-4fc2-aa15-72b80fcbd0ab"], -Cell[1925554, 43853, 457, 11, 89, "Input",ExpressionUUID->"75c0e938-eb67-4d7c-b553-62fa6f39140b", - InitializationCell->True], -Cell[1926014, 43866, 1512, 29, 215, "Input",ExpressionUUID->"5df0a514-6a2c-4f9a-a7f6-01a7a981b874", - InitializationCell->True], -Cell[CellGroupData[{ -Cell[1927551, 43899, 764, 20, 30, "Input",ExpressionUUID->"21a11165-305e-4bfe-870a-d5c273b8ece7"], -Cell[CellGroupData[{ -Cell[1928340, 43923, 231, 4, 24, "Print",ExpressionUUID->"613a8a09-fc67-4aff-b41a-5320f749bccb"], -Cell[1928574, 43929, 232, 4, 24, "Print",ExpressionUUID->"e6f01854-c877-498f-afdd-ab1736736ae8"] -}, Open ]], -Cell[1928821, 43936, 1312, 34, 90, "Output",ExpressionUUID->"3c47700c-4aca-4daf-8486-88436a03775f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1930170, 43975, 2719, 64, 267, "Input",ExpressionUUID->"ca5a370a-5325-41fb-8010-91740d000c28"], -Cell[1932892, 44041, 47262, 827, 557, "Output",ExpressionUUID->"86fc5434-8aa0-4ea6-9520-cbca57405bd5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1980191, 44873, 734, 19, 30, "Input",ExpressionUUID->"ba8ccb90-a1d2-4ffe-8841-6d3174e348d9"], -Cell[CellGroupData[{ -Cell[1980950, 44896, 210, 4, 24, "Print",ExpressionUUID->"570d58c1-2e52-4442-a079-7e2562f2146e"], -Cell[1981163, 44902, 208, 4, 24, "Print",ExpressionUUID->"c256b8fd-681d-4d1b-a7cd-4f2280e7c5ec"], -Cell[1981374, 44908, 208, 4, 24, "Print",ExpressionUUID->"ab8dee56-8eb3-4c98-b2a7-2876ddb5be48"], -Cell[1981585, 44914, 208, 4, 24, "Print",ExpressionUUID->"2bb7bb29-7968-48e6-8094-29bcef8f5f17"], -Cell[1981796, 44920, 208, 4, 24, "Print",ExpressionUUID->"f3c1d06a-801e-465e-b617-47e5b94bad05"], -Cell[1982007, 44926, 210, 4, 24, "Print",ExpressionUUID->"3b3d9bcc-d1b4-48bd-b4eb-c708a0e02832"] -}, Open ]], -Cell[1982232, 44933, 1297, 34, 90, "Output",ExpressionUUID->"f60b3e63-44d5-4ff3-bb04-a4ca4360991a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[1983566, 44972, 2576, 62, 267, "Input",ExpressionUUID->"0008a08e-530f-4878-b439-9e439d096468"], -Cell[1986145, 45036, 47205, 827, 557, "Output",ExpressionUUID->"cb663b7f-b122-4e24-a161-40b503d4448c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2033387, 45868, 770, 20, 30, "Input",ExpressionUUID->"38e7d800-72ee-4896-9f66-39d8e6033ada"], -Cell[CellGroupData[{ -Cell[2034182, 45892, 208, 4, 24, "Print",ExpressionUUID->"d8f045f1-3d61-4442-9f8f-35451aae111a"], -Cell[2034393, 45898, 208, 4, 24, "Print",ExpressionUUID->"aa436b54-c8cb-43cc-ad01-14c86d436777"], -Cell[2034604, 45904, 210, 4, 24, "Print",ExpressionUUID->"40b1c844-ad7e-4993-a20a-c6023c3a2f90"], -Cell[2034817, 45910, 208, 4, 24, "Print",ExpressionUUID->"f4cbb649-3396-4b4e-a959-63a304ccbc40"] -}, Open ]], -Cell[2035040, 45917, 972, 26, 89, "Output",ExpressionUUID->"364cdb09-6123-4ac7-a09e-5d6976c35f08"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2036049, 45948, 2573, 62, 267, "Input",ExpressionUUID->"27d3532f-3af3-4ac2-992c-883efc0fab60"], -Cell[2038625, 46012, 46612, 817, 561, "Output",ExpressionUUID->"b8fae359-03fd-44c4-9d08-043da3a5f40a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2085274, 46834, 825, 22, 30, "Input",ExpressionUUID->"aee6ce9c-64c5-412b-a992-613b4555e6f8"], -Cell[2086102, 46858, 989, 26, 89, "Output",ExpressionUUID->"a94626d4-56b9-4ac8-9589-2d61490a47fb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2087128, 46889, 2599, 62, 267, "Input",ExpressionUUID->"8372cbd3-cb8c-4b09-985b-36e8530aa9b4"], -Cell[2089730, 46953, 46684, 820, 561, "Output",ExpressionUUID->"7455b9e3-f15e-44a3-92fb-1d5e599e6dba"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2136463, 47779, 225, 4, 38, "Subsection",ExpressionUUID->"8269b41a-f272-4851-a834-80bb5ffbc6db"], -Cell[2136691, 47785, 457, 11, 89, "Input",ExpressionUUID->"88cd3b93-e20f-4d40-acb9-79c8fcf5fc0c", - InitializationCell->True], -Cell[2137151, 47798, 1512, 29, 215, "Input",ExpressionUUID->"18017cba-56ae-49a2-a9a9-2c943ad08345", - InitializationCell->True], -Cell[CellGroupData[{ -Cell[2138688, 47831, 852, 21, 30, "Input",ExpressionUUID->"8b9ec5e9-0eab-4a18-8780-a3bd812014df"], -Cell[CellGroupData[{ -Cell[2139565, 47856, 256, 5, 24, "Print",ExpressionUUID->"60387b6d-9ef3-4b77-b028-afc02e58eef9"], -Cell[2139824, 47863, 256, 5, 24, "Print",ExpressionUUID->"044283f8-797b-43f5-aba3-a8ffa3da387b"] -}, Open ]], -Cell[2140095, 47871, 1511, 40, 128, "Output",ExpressionUUID->"702b3f60-d4e7-4bcb-bd9b-7a790b9d33da"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2141643, 47916, 2528, 55, 178, "Input",ExpressionUUID->"48581ce3-6839-48b4-9d58-901ddde6278f"], -Cell[2144174, 47973, 27108, 481, 553, "Output",ExpressionUUID->"17c44728-e2f0-4f0f-9abe-218b65fefc29"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2171319, 48459, 799, 20, 30, "Input",ExpressionUUID->"fa5f3b19-0a3e-435f-969e-19d95344f59b"], -Cell[CellGroupData[{ -Cell[2172143, 48483, 232, 4, 24, "Print",ExpressionUUID->"1f4e5e19-5919-4b84-9529-cee980f186e6"], -Cell[2172378, 48489, 232, 4, 24, "Print",ExpressionUUID->"8d06ead0-d755-422c-b912-348205fdb7ac"], -Cell[2172613, 48495, 232, 4, 24, "Print",ExpressionUUID->"42ba2018-e80c-48f0-98ad-6c74118ca58c"], -Cell[2172848, 48501, 234, 4, 24, "Print",ExpressionUUID->"2e5da674-1dfc-48d5-bf3a-d4d79d1efc61"], -Cell[2173085, 48507, 232, 4, 24, "Print",ExpressionUUID->"7434c54b-a5f4-4349-bdbd-08c67d13aef0"], -Cell[2173320, 48513, 232, 4, 24, "Print",ExpressionUUID->"dabe01b7-9934-466e-9d49-07f6d6bf20b4"] -}, Open ]], -Cell[2173567, 48520, 1562, 43, 128, "Output",ExpressionUUID->"d6729306-e9be-4964-8ede-5fdca86208f7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2175166, 48568, 2287, 52, 178, "Input",ExpressionUUID->"1073273a-23bd-4ed6-abbc-d3c68e87d64a"], -Cell[2177456, 48622, 26993, 483, 550, "Output",ExpressionUUID->"4c29aa1d-d1e7-48af-884e-4aead66f9af1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2204486, 49110, 835, 21, 30, "Input",ExpressionUUID->"c2dc537e-2770-4f8e-be69-ad9543151088"], -Cell[CellGroupData[{ -Cell[2205346, 49135, 230, 4, 24, "Print",ExpressionUUID->"b074916e-0a30-4a0d-8fe3-bac9705512f2"], -Cell[2205579, 49141, 232, 4, 24, "Print",ExpressionUUID->"2d85093b-5f3f-41e5-b36b-d9238e5cdcf0"], -Cell[2205814, 49147, 232, 4, 24, "Print",ExpressionUUID->"ed159590-54f8-411e-8a29-a5e9005155e1"], -Cell[2206049, 49153, 230, 4, 24, "Print",ExpressionUUID->"b54a4649-88ab-4fb5-9ec3-86dce8403aca"] -}, Open ]], -Cell[2206294, 49160, 1232, 34, 89, "Output",ExpressionUUID->"c26e2aff-f503-4d72-94a2-60ee7688b46a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2207563, 49199, 2274, 51, 178, "Input",ExpressionUUID->"5b5e3945-6558-4860-a6f2-14a98efd1156"], -Cell[2209840, 49252, 26431, 473, 544, "Output",ExpressionUUID->"7f06ee2b-c22b-486e-8ae6-ff2db02846db"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2236308, 49730, 890, 23, 30, "Input",ExpressionUUID->"7e121864-bd3d-44f6-acdc-2897edabd6b5"], -Cell[2237201, 49755, 1221, 33, 89, "Output",ExpressionUUID->"c8b05a64-ff0f-442a-85b3-9a964cb19a15"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2238459, 49793, 2303, 52, 178, "Input",ExpressionUUID->"fb85dfa6-3ad2-48b6-9491-82c21ef7aef9"], -Cell[2240765, 49847, 26522, 476, 544, "Output",ExpressionUUID->"f19f35d3-b47b-42d7-8c55-b5093aa9b4ba"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2267336, 50329, 264, 4, 38, "Subsection",ExpressionUUID->"687d57f7-d496-4349-8cce-d7d15df9582c"], -Cell[2267603, 50335, 457, 11, 89, "Input",ExpressionUUID->"11d26b23-4171-43d7-b02b-d51cb2cb0fc7", - InitializationCell->True], -Cell[2268063, 50348, 1512, 29, 215, "Input",ExpressionUUID->"de403758-4969-4c4c-8137-4dd647f401c0", - InitializationCell->True], -Cell[CellGroupData[{ -Cell[2269600, 50381, 883, 21, 30, "Input",ExpressionUUID->"b3ff3c52-1458-4795-a0e4-d3fdebf840e0"], -Cell[CellGroupData[{ -Cell[2270508, 50406, 278, 5, 24, "Print",ExpressionUUID->"03883ff7-8d07-4810-bd6b-e3cfc670e779"], -Cell[2270789, 50413, 280, 5, 24, "Print",ExpressionUUID->"24456c49-7b38-4190-ba0d-d4886f087143"] -}, Open ]], -Cell[2271084, 50421, 949, 27, 51, "Output",ExpressionUUID->"92f366e3-bdb5-40ad-91e4-a689def9959a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2272070, 50453, 1635, 34, 136, "Input",ExpressionUUID->"6204c168-99a5-4bda-85d8-6681408f9b22"], -Cell[2273708, 50489, 23322, 417, 552, "Output",ExpressionUUID->"2400bcb8-b5ba-48ce-ae75-8a3d5cd68f7a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2297067, 50911, 837, 21, 30, "Input",ExpressionUUID->"15590110-d975-42e2-951c-a5fc6c69d0e2"], -Cell[CellGroupData[{ -Cell[2297929, 50936, 257, 5, 24, "Print",ExpressionUUID->"ba9452c1-5c8b-4e78-8476-8e3d40155d80"], -Cell[2298189, 50943, 257, 5, 24, "Print",ExpressionUUID->"f2c03d9f-7f50-410a-ad41-220c27b417c8"], -Cell[2298449, 50950, 259, 5, 24, "Print",ExpressionUUID->"bd8f94a9-9f43-4789-8e7a-adb6c2436b90"], -Cell[2298711, 50957, 259, 5, 24, "Print",ExpressionUUID->"8f05967c-96e9-41c5-a762-4ce4d704db0d"], -Cell[2298973, 50964, 256, 5, 24, "Print",ExpressionUUID->"40b2bf1c-1a15-41ec-b0d2-cdac3aaf633c"], -Cell[2299232, 50971, 257, 5, 24, "Print",ExpressionUUID->"fc39d8e5-cf98-41ad-ab3c-c4541229bd72"] -}, Open ]], -Cell[2299504, 50979, 927, 27, 51, "Output",ExpressionUUID->"d911db59-6e12-4a50-b5e5-8261b9cf96dd"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2300468, 51011, 1361, 30, 136, "Input",ExpressionUUID->"b683ef0e-b64c-4227-ad21-eb61c59cf049"], -Cell[2301832, 51043, 23195, 416, 552, "Output",ExpressionUUID->"66b121a6-3944-428f-94a1-1550fc618c89"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2325064, 51464, 843, 21, 30, "Input",ExpressionUUID->"1310f54e-de5b-4d04-9e71-532e5aa67b9b"], -Cell[CellGroupData[{ -Cell[2325932, 51489, 230, 4, 24, "Print",ExpressionUUID->"780a3e46-a8e0-4815-ac08-5b551dbc8f58"], -Cell[2326165, 51495, 232, 4, 24, "Print",ExpressionUUID->"021688d1-b3a8-4e0d-9882-938e1b15dae3"], -Cell[2326400, 51501, 232, 4, 24, "Print",ExpressionUUID->"a9c09a47-185d-48a1-b56e-7cc4edd1e0ff"], -Cell[2326635, 51507, 230, 4, 24, "Print",ExpressionUUID->"d441aeb0-709b-4a50-a530-68a13f71f074"] -}, Open ]], -Cell[2326880, 51514, 1232, 34, 89, "Output",ExpressionUUID->"5a63b146-2dfc-44f0-a7ce-31a020e3abb3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2328149, 51553, 1384, 31, 136, "Input",ExpressionUUID->"cce0bc92-1702-464f-b2ac-0e50e8905849"], -Cell[2329536, 51586, 26431, 473, 544, "Output",ExpressionUUID->"f4ef393b-2df9-429f-91b8-5fa6a34ed14f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2356004, 52064, 922, 23, 30, "Input",ExpressionUUID->"62ee27e5-5c04-43ec-8658-ef2ab0724ebf"], -Cell[2356929, 52089, 720, 21, 51, "Output",ExpressionUUID->"a393d59e-8ec5-4ff4-a345-4e5840307cb9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2357686, 52115, 1413, 31, 136, "Input",ExpressionUUID->"d306e598-7ab1-4996-b5f2-a4d7afb6887b"], -Cell[2359102, 52148, 22970, 413, 545, "Output",ExpressionUUID->"313c2d5d-5908-4c54-9ecc-5f5e7abf0589"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2382121, 52567, 211, 4, 38, "Subsection",ExpressionUUID->"186fe1e9-0765-40bf-94cc-52dba7c5845a"], -Cell[CellGroupData[{ -Cell[2382357, 52575, 160, 3, 45, "Subsubsection",ExpressionUUID->"cee25638-8915-4b5b-907e-168e6556a5d6"], -Cell[2382520, 52580, 477, 11, 89, "Input",ExpressionUUID->"c1653e8d-0575-4801-bc8f-798d7044242f", - InitializationCell->True], -Cell[2383000, 52593, 1913, 39, 278, "Input",ExpressionUUID->"9a7e4774-dffc-448a-afaa-994d57f46dce", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[2384950, 52637, 438, 9, 36, "Subsubsection",ExpressionUUID->"11ac2ed8-d967-4fcf-b9f7-758d64c8bc48"], -Cell[CellGroupData[{ -Cell[2385413, 52650, 17525, 398, 684, "Input",ExpressionUUID->"bf9ab6e9-fc47-4bf8-afc4-a9cee2b99927"], -Cell[2402941, 53050, 56362, 1031, 70, "Output",ExpressionUUID->"138d9526-63bf-4a15-946d-05470d404203"], -Cell[2459306, 54083, 56299, 1029, 70, "Output",ExpressionUUID->"1052ecac-c163-49fa-806c-076649f4007b"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2515654, 55118, 487, 10, 36, "Subsubsection",ExpressionUUID->"413d3c60-6824-4d98-b82f-9a09fbdb0fde"], -Cell[CellGroupData[{ -Cell[2516166, 55132, 17669, 401, 642, "Input",ExpressionUUID->"8e953787-c4c5-4de0-b480-fbf8fa998bbd"], -Cell[2533838, 55535, 57319, 1045, 70, "Output",ExpressionUUID->"750382e8-51fd-473c-a806-38e201090766"], -Cell[2591160, 56582, 88453, 1736, 70, "Output",ExpressionUUID->"17881f48-6865-4f25-b1d8-ecf285821c63"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2679662, 58324, 533, 10, 36, "Subsubsection",ExpressionUUID->"92d2f700-f8f3-45b4-8a7e-50de33dd2e59"], -Cell[CellGroupData[{ -Cell[2680220, 58338, 17532, 397, 642, "Input",ExpressionUUID->"a73c2ca3-ad43-47af-b7c5-6f87de87de78"], -Cell[2697755, 58737, 56843, 1036, 70, "Output",ExpressionUUID->"f844991f-ec4b-418c-a878-c249c9af190a"], -Cell[2754601, 59775, 88037, 1732, 70, "Output",ExpressionUUID->"420c0737-5709-4c71-a46e-2552029125bc"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[2842687, 61513, 582, 11, 36, "Subsubsection",ExpressionUUID->"195c818f-6701-4201-abc7-245fba5f48d8"], -Cell[CellGroupData[{ -Cell[2843294, 61528, 20702, 466, 936, "Input",ExpressionUUID->"b45f90a0-be1b-4170-a5d1-05144cfce001"], -Cell[2863999, 61996, 217173, 3977, 587, "Output",ExpressionUUID->"08f84c1e-8cd9-473b-9650-40e555696b2c"], -Cell[3081175, 65975, 88192, 1730, 587, "Output",ExpressionUUID->"59061b71-4c23-4546-a38a-ec46dfb79bfa"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3169416, 67711, 680, 12, 36, "Subsubsection",ExpressionUUID->"45ae8062-49d4-4e88-a93d-b407c3705e60"], -Cell[CellGroupData[{ -Cell[3170121, 67727, 17535, 398, 642, "Input",ExpressionUUID->"4d352f26-b8b8-404e-80fe-80c6db32a358"], -Cell[3187659, 68127, 57261, 1042, 70, "Output",ExpressionUUID->"fc685166-f595-46c8-ad46-decb8c1d0109"], -Cell[3244923, 69171, 57182, 1041, 70, "Output",ExpressionUUID->"764ee338-0370-4618-8ccc-af3b45873a44"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3302154, 70218, 633, 12, 36, "Subsubsection",ExpressionUUID->"5ddfab41-d0d6-4afe-a1fa-a82f3ff340b0"], -Cell[CellGroupData[{ -Cell[3302812, 70234, 17525, 398, 642, "Input",ExpressionUUID->"1db7421b-8508-433c-be7a-cb346d8e351a"], -Cell[3320340, 70634, 56778, 1035, 70, "Output",ExpressionUUID->"12446b73-cb35-406b-bd67-8e5de20393b5"], -Cell[3377121, 71671, 56724, 1037, 70, "Output",ExpressionUUID->"6a99ecd0-5c0c-4c10-a728-3ea1686dbaf0"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3433906, 72715, 211, 4, 38, "Subsection",ExpressionUUID->"ebd9d2d3-8578-4e88-9c33-be9e22161131"], -Cell[CellGroupData[{ -Cell[3434142, 72723, 160, 3, 45, "Subsubsection",ExpressionUUID->"e78b4e95-2b4d-4d82-99c5-9be6f114a037"], -Cell[3434305, 72728, 481, 11, 89, "Input",ExpressionUUID->"ff395d89-6534-42e4-9d67-65463ac7c5cb", - InitializationCell->True], -Cell[3434789, 72741, 1734, 36, 278, "Input",ExpressionUUID->"cf0e8cee-80b4-479d-a37e-48ee03d75c07", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[3436560, 72782, 417, 9, 36, "Subsubsection",ExpressionUUID->"32a07df2-016c-406d-b6c3-c8dd30eaeac9"], -Cell[3436980, 72793, 20264, 452, 1732, "Input",ExpressionUUID->"13b97149-b35f-46e5-bbb1-d48eb33914d3"], -Cell[CellGroupData[{ -Cell[3457269, 73249, 8072, 186, 445, "Input",ExpressionUUID->"d9806a2e-7e2d-4a27-8f06-ae6d207772c2"], -Cell[3465344, 73437, 49676, 876, 70, "Output",ExpressionUUID->"1106509f-4d78-43b8-ae6d-4e5d26bfb2ce"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3515069, 74319, 369, 9, 36, "Subsubsection",ExpressionUUID->"de9642f0-041a-4781-a2cf-c4a5f93f0643"], -Cell[3515441, 74330, 20236, 451, 1732, "Input",ExpressionUUID->"c604e46f-e6d3-4ede-9768-2c6c9d0b50b7"], -Cell[CellGroupData[{ -Cell[3535702, 74785, 8043, 186, 445, "Input",ExpressionUUID->"0a87322a-a4f5-4e50-a2de-5bae250c08f6"], -Cell[3543748, 74973, 48755, 864, 70, "Output",ExpressionUUID->"c7f03a58-718e-4132-bb8b-7254bdca5b79"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3592552, 75843, 415, 9, 36, "Subsubsection",ExpressionUUID->"a01bea1f-79ff-4b5a-921a-f4ae146596ad"], -Cell[3592970, 75854, 20261, 452, 1732, "Input",ExpressionUUID->"3ad5e18f-5114-4bec-8738-af98eeee5bd0"], -Cell[CellGroupData[{ -Cell[3613256, 76310, 7944, 184, 424, "Input",ExpressionUUID->"1ce2bc36-b9f5-4e67-b967-f5bea059c430"], -Cell[3621203, 76496, 47007, 836, 70, "Output",ExpressionUUID->"0cf16407-b069-4c8a-9410-8248df04ca6f"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3668259, 77338, 292, 7, 36, "Subsubsection",ExpressionUUID->"fbabb15d-71a9-4712-9389-b2684fdc4557"], -Cell[3668554, 77347, 20337, 453, 1732, "Input",ExpressionUUID->"b977b9c4-749d-4dd0-821c-842a6d29c987"], -Cell[CellGroupData[{ -Cell[3688916, 77804, 10730, 247, 676, "Input",ExpressionUUID->"cdf7b4c5-8db6-4927-8a05-41e9c98b3234"], -Cell[3699649, 78053, 220861, 4050, 578, "Output",ExpressionUUID->"319e6d1a-eed9-45d3-bb65-e358d97a236f"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[3920559, 82109, 360, 9, 44, "Subsubsection",ExpressionUUID->"effe8284-761d-4d1a-9fbe-f4f50962e0ba"], -Cell[3920922, 82120, 20268, 452, 1732, "Input",ExpressionUUID->"e60e6860-d1d7-49c5-9d4e-58d04afc0146"], -Cell[CellGroupData[{ -Cell[3941215, 82576, 7836, 182, 424, "Input",ExpressionUUID->"85686966-02f1-413e-a0b9-93d89d422f30"], -Cell[3949054, 82760, 46670, 833, 70, "Output",ExpressionUUID->"7363e7a1-aeee-40e6-9427-181a1a022d97"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[3995773, 83599, 311, 8, 36, "Subsubsection",ExpressionUUID->"3beb515a-25a0-4fad-8948-c5d2adb5342f"], -Cell[3996087, 83609, 20236, 451, 1732, "Input",ExpressionUUID->"1f972af2-9518-4e12-a363-1cb335d81abc"], -Cell[CellGroupData[{ -Cell[4016348, 84064, 7834, 182, 424, "Input",ExpressionUUID->"534114c1-ac77-4578-8df6-3cee3db6bf96"], -Cell[4024185, 84248, 46763, 831, 70, "Output",ExpressionUUID->"b5ecd191-2298-41fa-9156-361b6eccedfd"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4070997, 85085, 362, 9, 36, "Subsubsection",ExpressionUUID->"08c22549-4d4c-43dc-ad2a-967b17fd7d06"], -Cell[4071362, 85096, 20264, 452, 1732, "Input",ExpressionUUID->"a82410e9-49b9-4f7b-905e-a67e59b1df71"], -Cell[CellGroupData[{ -Cell[4091651, 85552, 7833, 182, 424, "Input",ExpressionUUID->"1dabc1b6-3f32-401b-a52e-0f9b1eea6cd5"], -Cell[4099487, 85736, 47642, 847, 70, "Output",ExpressionUUID->"3ada0610-1a00-4ad0-8730-0fe88ceaef63"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4147190, 86590, 203, 4, 38, "Subsection",ExpressionUUID->"3133f70e-0463-457f-92c3-b2cd21d876ab"], -Cell[CellGroupData[{ -Cell[4147418, 86598, 216, 4, 45, "Subsubsection",ExpressionUUID->"4eb7e228-b1d8-4015-aa3d-d7cb336d5364"], -Cell[CellGroupData[{ -Cell[4147659, 86606, 782, 22, 30, "Input",ExpressionUUID->"84a0931a-b680-4c0b-89c4-a7e6d7a06d29"], -Cell[CellGroupData[{ -Cell[4148466, 86632, 612, 13, 24, "Print",ExpressionUUID->"a212475e-3064-4ead-a470-b6dd49838e85"], -Cell[4149081, 86647, 610, 13, 24, "Print",ExpressionUUID->"9d702fb1-3f4c-40db-9c7f-5d8b26ec5099"], -Cell[4149694, 86662, 615, 13, 24, "Print",ExpressionUUID->"3e48a845-b03e-40ff-9955-d2241a9475c1"], -Cell[4150312, 86677, 614, 13, 24, "Print",ExpressionUUID->"ed0a5059-1469-4168-b2ff-e7ea7f15c579"], -Cell[4150929, 86692, 612, 13, 24, "Print",ExpressionUUID->"ef2a3299-8ce6-475b-9245-4edd6b7d06ab"], -Cell[4151544, 86707, 618, 13, 24, "Print",ExpressionUUID->"a94fd392-957c-43f4-b4c6-008858f4045f"], -Cell[4152165, 86722, 621, 13, 24, "Print",ExpressionUUID->"04aa788e-90a6-4a4b-af1b-c401f67614fd"] -}, Open ]], -Cell[4152801, 86738, 31636, 899, 348, "Output",ExpressionUUID->"d244f0fa-1e4f-4890-98ce-798a27dbcfd4"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[4184486, 87643, 170, 3, 45, "Subsubsection",ExpressionUUID->"e62751b3-c3de-4e65-956b-69093f124aef"], -Cell[CellGroupData[{ -Cell[4184681, 87650, 778, 21, 30, "Input",ExpressionUUID->"822c8368-39b4-4f3e-aaa3-bc2f3ea400f5"], -Cell[4185462, 87673, 45466, 1084, 322, "Output",ExpressionUUID->"8fa5fdb1-9757-4228-bdd9-29859bb2cf3e"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[4230977, 88763, 173, 3, 45, "Subsubsection",ExpressionUUID->"8e56e7c7-2eb7-4f5c-a448-0cf25a7590d3"], -Cell[CellGroupData[{ -Cell[4231175, 88770, 788, 22, 30, "Input",ExpressionUUID->"b4696339-2454-4c45-a1ef-d1199c92743b"], -Cell[4231966, 88794, 49461, 1345, 362, "Output",ExpressionUUID->"d0fb1012-0706-42b0-b72f-644389bc9545"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[4281476, 90145, 208, 4, 45, "Subsubsection",ExpressionUUID->"21c7a26a-f117-444e-8eb4-7be714ed8674"], -Cell[CellGroupData[{ -Cell[4281709, 90153, 1890, 52, 52, "Input",ExpressionUUID->"54d9a0c4-1b37-437a-b61f-f2b419934be3"], -Cell[4283602, 90207, 226, 4, 24, "Print",ExpressionUUID->"357870f2-bb7b-4e57-9cac-fff5fbf3c443"], -Cell[4283831, 90213, 1448, 36, 75, "Output",ExpressionUUID->"9045bf78-1f79-4385-b6a4-c0e8cc702779"], -Cell[4285282, 90251, 226, 4, 24, "Print",ExpressionUUID->"1c7fa0b8-38fa-4468-b120-f568e48268b9"], -Cell[4285511, 90257, 1447, 36, 75, "Output",ExpressionUUID->"f43e7397-cb8a-4aa1-9f2f-cbcac754e128"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4286995, 90298, 2330, 52, 73, "Input",ExpressionUUID->"1b5da799-94ae-446c-a7b9-c79af683bd39"], -Cell[4289328, 90352, 2881, 68, 180, "Output",ExpressionUUID->"5231bd36-f280-499d-9361-1b4f4637fd5e"], -Cell[4292212, 90422, 2995, 71, 180, "Output",ExpressionUUID->"d194b46e-fed8-41dd-9507-120e97be3a70"], -Cell[4295210, 90495, 3034, 72, 180, "Output",ExpressionUUID->"b9ee7f82-cc0e-4618-a699-57ee13ebb525"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4298293, 90573, 157, 3, 37, "Subsubsection",ExpressionUUID->"9d22f205-74b2-4355-8479-7fee69c26392"], -Cell[CellGroupData[{ -Cell[4298475, 90580, 1151, 27, 79, "Input",ExpressionUUID->"6a632419-f085-421b-9b63-06c9c61778cb"], -Cell[4299629, 90609, 3919, 88, 70, "Output",ExpressionUUID->"cfaefba2-31ed-4474-bce6-4d05d72c0d79"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4303585, 90702, 1150, 27, 79, "Input",ExpressionUUID->"1b65d1c8-f7fa-4940-a8c0-263f26e2b724"], -Cell[4304738, 90731, 3696, 80, 70, "Output",ExpressionUUID->"373c7b90-346b-4322-9c86-be0659a77812"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4308495, 90818, 178, 3, 38, "Subsection",ExpressionUUID->"193f60ab-232d-47a5-8a41-c77bea81b52e"], -Cell[CellGroupData[{ -Cell[4308698, 90825, 216, 4, 45, "Subsubsection",ExpressionUUID->"6bdbddb3-b04e-4799-9f09-1c6781039ea5"], -Cell[4308917, 90831, 373, 9, 34, "Output",ExpressionUUID->"c2aeeb66-ccf5-41a7-abbf-6d1b2bb1c578"], -Cell[CellGroupData[{ -Cell[4309315, 90844, 757, 21, 30, "Input",ExpressionUUID->"035d9db1-eded-4ae9-bd96-553790110145"], -Cell[CellGroupData[{ -Cell[4310097, 90869, 586, 12, 24, "Print",ExpressionUUID->"bdbad776-3bd3-429c-aa8d-27887dd8d3bf"], -Cell[4310686, 90883, 585, 12, 24, "Print",ExpressionUUID->"796451e6-996e-42e7-ba21-779dc829114c"], -Cell[4311274, 90897, 584, 12, 24, "Print",ExpressionUUID->"4121c731-0345-4657-b7ce-c97c3e7a99c5"], -Cell[4311861, 90911, 587, 12, 24, "Print",ExpressionUUID->"dc3be35d-9c36-4b4c-b8b3-acdde75668fe"], -Cell[4312451, 90925, 587, 12, 24, "Print",ExpressionUUID->"5dfc06ae-4572-47b6-b652-017c42d8ae4e"], -Cell[4313041, 90939, 590, 12, 24, "Print",ExpressionUUID->"c9de25ae-47db-4ca3-90a3-d6e60550c78d"], -Cell[4313634, 90953, 597, 12, 24, "Print",ExpressionUUID->"55da60ae-1b72-4d38-9a6b-3ab5b361cf67"] -}, Open ]], -Cell[4314246, 90968, 32846, 897, 320, "Output",ExpressionUUID->"ee8e3ecd-dd98-4647-bbff-20eb7a1e0468"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4347129, 91870, 788, 22, 30, "Input",ExpressionUUID->"e300e8a3-26a2-4cef-af95-88b3bf9d617a"], -Cell[CellGroupData[{ -Cell[4347942, 91896, 491, 11, 24, "Print",ExpressionUUID->"ab61a277-0496-4aff-9c04-377bb5533ae8"], -Cell[4348436, 91909, 496, 11, 24, "Print",ExpressionUUID->"8194d069-81f8-441b-acee-167bb0159df5"], -Cell[4348935, 91922, 486, 10, 24, "Print",ExpressionUUID->"44329f44-1384-49a5-ab3f-fbd9a1fd5f14"], -Cell[4349424, 91934, 497, 11, 24, "Print",ExpressionUUID->"a2576699-64bb-4141-b9d4-43c7d266c579"], -Cell[4349924, 91947, 1514, 27, 49, "Print",ExpressionUUID->"9d97ea09-8296-446e-a7fd-d26e5a096b31"], -Cell[4351441, 91976, 1505, 27, 49, "Print",ExpressionUUID->"f102e357-73d8-4fda-a984-915ff652e565"], -Cell[4352949, 92005, 1479, 27, 49, "Print",ExpressionUUID->"e716e98d-f9b5-4cfc-8906-184f59917aca"] -}, Open ]], -Cell[4354443, 92035, 34496, 950, 354, "Output",ExpressionUUID->"c77bdead-28d0-4657-8b51-03bc97541b3b"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4388988, 92991, 170, 3, 37, "Subsubsection",ExpressionUUID->"ef842d39-ccee-4170-99b1-57b2e245b944"], -Cell[CellGroupData[{ -Cell[4389183, 92998, 756, 21, 30, "Input",ExpressionUUID->"74c9fad7-346c-4a05-87e6-b8b46f49e20d"], -Cell[4389942, 93021, 273, 5, 24, "Print",ExpressionUUID->"8ab98c62-f855-4fd8-a112-ee7dc3331b5f"], -Cell[4390218, 93028, 51191, 1385, 321, "Output",ExpressionUUID->"4b1f646c-c08e-468d-9d18-54dfda37a04f"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4441458, 94419, 173, 3, 37, "Subsubsection",ExpressionUUID->"fe2d6761-5e2b-4eed-a1a0-8c67c1180f30"], -Cell[CellGroupData[{ -Cell[4441656, 94426, 766, 22, 30, "Input",ExpressionUUID->"e7dce949-889f-4e05-b5c7-3ed27d19b3cc"], -Cell[4442425, 94450, 225, 4, 24, "Print",ExpressionUUID->"9d49f56e-a2ff-4b2b-92de-eb83afbde10f"] -}, Open ]], -Cell[4442665, 94457, 54701, 1478, 339, InheritFromParent,ExpressionUUID->"543ba3fe-5e13-4e55-a386-51df4fc6dd5e"], -Cell[4497369, 95937, 9437, 218, 502, "Output",ExpressionUUID->"7549c8b2-e359-4b8b-96e3-2e51af54c936"] -}, Closed]], -Cell[CellGroupData[{ -Cell[4506843, 96160, 208, 4, 37, "Subsubsection",ExpressionUUID->"e50fbaaa-b7ea-4e0b-97ce-d964e1b76ae9"], -Cell[CellGroupData[{ -Cell[4507076, 96168, 1890, 52, 52, "Input",ExpressionUUID->"f790e697-950f-4ebc-b342-17c03c3951d3"], -Cell[4508969, 96222, 226, 4, 24, "Print",ExpressionUUID->"f057abdd-5f0d-49a4-9527-ae069a0eae21"], -Cell[4509198, 96228, 1448, 36, 75, "Output",ExpressionUUID->"18bc027a-5103-4682-9d0e-f0381f712af9"], -Cell[4510649, 96266, 226, 4, 24, "Print",ExpressionUUID->"f74afa99-37f2-4cab-96b4-e804a6f06fd0"], -Cell[4510878, 96272, 1447, 36, 75, "Output",ExpressionUUID->"9cc7a985-73cb-43b0-ad95-ec32d99f7caa"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4512362, 96313, 2330, 52, 73, "Input",ExpressionUUID->"cc0986cf-b611-4002-9d62-b8a934d1992b"], -Cell[4514695, 96367, 2881, 68, 180, "Output",ExpressionUUID->"7c406f18-a662-45c6-b519-e8550fdd207a"], -Cell[4517579, 96437, 2995, 71, 180, "Output",ExpressionUUID->"5b1573bc-2217-4d7d-8f1c-11dc04d4cc56"], -Cell[4520577, 96510, 3034, 72, 180, "Output",ExpressionUUID->"c28bfbbf-aaba-4edf-86df-c936781415f2"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[4523660, 96588, 157, 3, 45, "Subsubsection",ExpressionUUID->"dbf537e7-1c5d-45dc-af40-a300842cd416"], -Cell[CellGroupData[{ -Cell[4523842, 96595, 1151, 27, 79, "Input",ExpressionUUID->"e88cb52c-6f10-4cf4-b957-9da7481b69a2"], -Cell[4524996, 96624, 3919, 88, 170, "Output",ExpressionUUID->"33eb60cc-17fb-4ff9-bab1-65bfa6d27c54"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4528952, 96717, 1150, 27, 79, "Input",ExpressionUUID->"d5ed830c-adee-47b5-bf67-27dc5192dd3b"], -Cell[4530105, 96746, 3696, 80, 170, "Output",ExpressionUUID->"bbf784c3-4234-4ee9-8c97-7ae551e60491"] -}, Open ]] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[4533862, 96833, 155, 3, 54, "Subsection",ExpressionUUID->"42370903-32f2-402b-ae7f-df3a3b6bf3aa"], -Cell[CellGroupData[{ -Cell[4534042, 96840, 216, 4, 45, "Subsubsection",ExpressionUUID->"d67b63c0-2997-4cc2-afde-fb7d5b4cd7ca"], -Cell[CellGroupData[{ -Cell[4534283, 96848, 783, 22, 30, "Input",ExpressionUUID->"07886d29-b0d2-4203-844b-226ec4b17d91"], -Cell[CellGroupData[{ -Cell[4535091, 96874, 611, 13, 24, "Print",ExpressionUUID->"d59fafe4-f5a9-4c84-95b2-91a38906727a"], -Cell[4535705, 96889, 614, 13, 24, "Print",ExpressionUUID->"f3b94a6f-1a45-4d52-8242-efe569938d77"], -Cell[4536322, 96904, 602, 12, 24, "Print",ExpressionUUID->"7ce5a040-47de-449d-b17d-717c4725b9d5"], -Cell[4536927, 96918, 611, 13, 24, "Print",ExpressionUUID->"c15852fb-e063-41fe-8950-5840255bf1a9"], -Cell[4537541, 96933, 612, 13, 24, "Print",ExpressionUUID->"8f23954d-c5e0-4b7c-b880-a5ff6fd542c5"], -Cell[4538156, 96948, 615, 13, 24, "Print",ExpressionUUID->"f1b8a57c-aedb-4550-bf62-b95c9baf0353"], -Cell[4538774, 96963, 625, 13, 24, "Print",ExpressionUUID->"179835ea-1d44-4cd3-a92a-abf80a6ab285"] -}, Open ]], -Cell[4539414, 96979, 32869, 897, 320, "Output",ExpressionUUID->"86c5434d-da73-419d-a6a9-95de1dc80d07"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4572320, 97881, 764, 22, 30, "Input",ExpressionUUID->"99b60524-2bd4-4af3-854d-a606353ad311"], -Cell[CellGroupData[{ -Cell[4573109, 97907, 495, 11, 24, "Print",ExpressionUUID->"505be5c5-bae3-484f-8db8-c035a2d34110"], -Cell[4573607, 97920, 494, 11, 24, "Print",ExpressionUUID->"b2880848-460e-45cb-97eb-ca4c7521a05a"], -Cell[4574104, 97933, 490, 11, 24, "Print",ExpressionUUID->"f3b8047d-b659-4fc7-8834-9ec726bf33a0"], -Cell[4574597, 97946, 497, 11, 24, "Print",ExpressionUUID->"ca8b130d-d7b9-47c5-bd18-b691aba66914"], -Cell[4575097, 97959, 496, 11, 24, "Print",ExpressionUUID->"0a9a94f9-fc35-4968-a432-d8385ac253da"], -Cell[4575596, 97972, 1521, 27, 49, "Print",ExpressionUUID->"af154a51-84b1-4f64-853e-56da54aafd68"], -Cell[4577120, 98001, 1496, 27, 49, "Print",ExpressionUUID->"c8b7b5b7-506f-4174-9050-1185036fd7fd"] -}, Open ]], -Cell[4578631, 98031, 34499, 950, 354, "Output",ExpressionUUID->"6fef3030-5bfa-4a85-98b7-8f51f5447cf7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4613167, 98986, 221, 4, 30, "Input",ExpressionUUID->"4be2bf33-1ac8-4f1b-be19-f1adb914c115"], -Cell[4613391, 98992, 1757, 41, 109, "Output",ExpressionUUID->"5faeae4e-d946-48c2-b654-add60236481e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4615185, 99038, 155, 3, 30, "Input",ExpressionUUID->"ed84f834-e5b9-4717-b9a1-fdd0d972a5ee"], -Cell[4615343, 99043, 1688, 40, 130, "Output",ExpressionUUID->"ef658689-3e70-4f47-beed-0cbc64ce8623"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4617080, 99089, 170, 3, 37, "Subsubsection",ExpressionUUID->"5a0bd14f-47bc-4798-ac36-524d4aa66090"], -Cell[CellGroupData[{ -Cell[4617275, 99096, 778, 21, 30, "Input",ExpressionUUID->"257ffd28-a349-4abe-8204-430b70383834"], -Cell[4618056, 99119, 50205, 1363, 328, "Output",ExpressionUUID->"fb02b613-1e73-4e63-be46-922c46da0961"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4668310, 100488, 173, 3, 37, "Subsubsection",ExpressionUUID->"94e9521a-e649-4518-9b87-6a982b53dec5"], -Cell[CellGroupData[{ -Cell[4668508, 100495, 788, 22, 30, "Input",ExpressionUUID->"e149e7c5-6e30-4aaa-a7a3-5a3a6482561b"], -Cell[4669299, 100519, 54201, 1465, 362, "Output",ExpressionUUID->"fd5348c8-f3c5-4b20-a7b8-e4f32a185785"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4723549, 101990, 208, 4, 37, "Subsubsection",ExpressionUUID->"5847ef0e-4049-4382-8ea4-65be4025111c"], -Cell[CellGroupData[{ -Cell[4723782, 101998, 1887, 52, 52, "Input",ExpressionUUID->"c930292b-453d-4619-8079-0b8d81db2441"], -Cell[4725672, 102052, 1467, 36, 75, "Output",ExpressionUUID->"1c9f69c1-93e0-44b4-beb4-bd0d95997419"], -Cell[4727142, 102090, 1467, 36, 75, "Output",ExpressionUUID->"3cada7df-3e13-499f-ba12-2e50c1af4e42"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4728646, 102131, 2277, 52, 73, "Input",ExpressionUUID->"6f7dec74-0508-4874-ba13-128789629765"], -Cell[4730926, 102185, 2809, 67, 180, "Output",ExpressionUUID->"988d4a46-ba03-435b-8e08-397b5b9a1394"], -Cell[4733738, 102254, 2897, 70, 180, "Output",ExpressionUUID->"ad0ad0d6-66e4-4f57-b1c9-8682c6e87533"], -Cell[4736638, 102326, 2882, 69, 180, "Output",ExpressionUUID->"e499b502-a852-4451-9481-fea4ab0f61ee"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4739569, 102401, 157, 3, 37, "Subsubsection",ExpressionUUID->"77a47bfe-8aef-4a10-8e60-7a63ae4327d5"], -Cell[CellGroupData[{ -Cell[4739751, 102408, 1205, 28, 79, "Input",ExpressionUUID->"44d6b913-7f2e-4831-af20-e61204f96874"], -Cell[4740959, 102438, 3746, 89, 170, "Output",ExpressionUUID->"41081f83-994b-44f4-97b1-f6958dfcff42"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4744742, 102532, 1202, 28, 79, "Input",ExpressionUUID->"bdb94f7c-09f3-4218-a4cc-bd08e4dbcec6"], -Cell[4745947, 102562, 3647, 83, 170, "Output",ExpressionUUID->"b4072aa6-1702-4c74-9a88-fd8724e86bf2"] -}, Open ]] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4749655, 102652, 155, 3, 38, "Subsection",ExpressionUUID->"7d9ef6e9-0bfb-4368-b547-0e9fa6e2c3c0"], -Cell[CellGroupData[{ -Cell[4749835, 102659, 216, 4, 45, "Subsubsection",ExpressionUUID->"976a02a5-500e-44bc-b077-eeeb7119e02d"], -Cell[CellGroupData[{ -Cell[4750076, 102667, 805, 22, 30, "Input",ExpressionUUID->"83521985-a903-4df9-b078-ebe20ea0420d"], -Cell[CellGroupData[{ -Cell[4750906, 102693, 611, 13, 24, "Print",ExpressionUUID->"184674c0-3227-4d07-88c3-b269931f1b58"], -Cell[4751520, 102708, 612, 13, 24, "Print",ExpressionUUID->"355cec75-a3cc-44de-8444-cbad451aaa2c"], -Cell[4752135, 102723, 605, 12, 24, "Print",ExpressionUUID->"175b1e1b-e150-41cf-aaaa-4ae0383680ee"], -Cell[4752743, 102737, 612, 13, 24, "Print",ExpressionUUID->"6b7f30f0-64aa-429a-9899-3b8a8fb405b2"], -Cell[4753358, 102752, 612, 13, 24, "Print",ExpressionUUID->"f0c46788-33b2-47f1-9c4e-23b4401224a1"], -Cell[4753973, 102767, 616, 13, 24, "Print",ExpressionUUID->"13bedf4c-61d4-4660-8de2-29f534bcffbd"], -Cell[4754592, 102782, 622, 13, 24, "Print",ExpressionUUID->"9c385cb2-d103-4a87-b2ed-80de9d20ce35"] -}, Open ]], -Cell[4755229, 102798, 32868, 897, 320, "Output",ExpressionUUID->"df52a0f7-d313-4248-9c3c-2e0595aa5c9f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4788134, 103700, 764, 22, 30, "Input",ExpressionUUID->"fc1041ba-59ae-4a3e-9f58-3fe7964f03bc"], -Cell[CellGroupData[{ -Cell[4788923, 103726, 495, 11, 24, "Print",ExpressionUUID->"e41aba88-a720-4e5a-a703-3465dbebc6b5"], -Cell[4789421, 103739, 498, 11, 24, "Print",ExpressionUUID->"b5d9cb80-3ccb-4e16-aa47-1411d65f3e8b"], -Cell[4789922, 103752, 491, 11, 24, "Print",ExpressionUUID->"6c2adf6e-9b59-4382-9016-4b8eca813ecd"], -Cell[4790416, 103765, 495, 11, 24, "Print",ExpressionUUID->"3a4d635b-48cc-47de-b609-c3416493a868"], -Cell[4790914, 103778, 495, 11, 24, "Print",ExpressionUUID->"5a403d7f-a6d6-41f0-a342-ca6b05e83904"], -Cell[4791412, 103791, 1520, 27, 49, "Print",ExpressionUUID->"4028ccc1-2b36-4305-80dc-5ed4151793e5"], -Cell[4792935, 103820, 1479, 27, 49, "Print",ExpressionUUID->"357044e1-127b-4144-9c6b-73d686b78a47"] -}, Open ]], -Cell[4794429, 103850, 34499, 950, 354, "Output",ExpressionUUID->"038ba58b-b2c1-4692-827e-0d509fc0ab2a"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4828977, 104806, 170, 3, 37, "Subsubsection",ExpressionUUID->"25e7bdd2-77a3-4e66-a7ea-48bd304fbafc"], -Cell[CellGroupData[{ -Cell[4829172, 104813, 778, 21, 30, "Input",ExpressionUUID->"a9cc9ddb-732a-49e2-a642-12500a14992c"], -Cell[4829953, 104836, 50167, 1363, 328, "Output",ExpressionUUID->"cb871bd3-687c-488f-8ce5-62cb62417d3a"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4880169, 106205, 173, 3, 37, "Subsubsection",ExpressionUUID->"626a8c69-01ba-466d-b193-84baab6da644"], -Cell[CellGroupData[{ -Cell[4880367, 106212, 788, 22, 30, "Input",ExpressionUUID->"9961ead0-d2f7-4818-9b08-79f5c2c7d7c1"], -Cell[4881158, 106236, 54222, 1467, 362, "Output",ExpressionUUID->"03372ccc-fef4-4956-bf43-9ce2a81bc070"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4935429, 107709, 180, 3, 37, "Subsubsection",ExpressionUUID->"4df1b145-e857-4aa7-b667-24540ec62f57"], -Cell[CellGroupData[{ -Cell[4935634, 107716, 1938, 53, 52, "Input",ExpressionUUID->"d3a2522e-fb40-40de-9057-68b6044ae581"], -Cell[4937575, 107771, 1446, 36, 75, "Output",ExpressionUUID->"bfe6bf99-fdee-43b4-ad02-8b262e5c181c"], -Cell[4939024, 107809, 1446, 36, 75, "Output",ExpressionUUID->"ad835dfc-8212-43f6-ad7f-6e2cd23d51e7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4940507, 107850, 2325, 52, 73, "Input",ExpressionUUID->"1e9a88a3-3198-4e61-a93e-cb4247ac0d84"], -Cell[4942835, 107904, 2816, 67, 180, "Output",ExpressionUUID->"65b58684-74d6-4971-a314-fb918f9c8977"], -Cell[4945654, 107973, 2881, 69, 180, "Output",ExpressionUUID->"39a5c48b-91e5-436f-9f0c-2cdec019430f"], -Cell[4948538, 108044, 2884, 69, 180, "Output",ExpressionUUID->"828f09be-c35f-4bf0-9144-2c7b981dfbce"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4951471, 108119, 157, 3, 37, "Subsubsection",ExpressionUUID->"f2ec675f-9e6f-47b9-90ae-bc739991beb9"], -Cell[CellGroupData[{ -Cell[4951653, 108126, 1253, 29, 79, "Input",ExpressionUUID->"34f4c02d-2490-412b-a905-f00f94f9222d"], -Cell[4952909, 108157, 3753, 89, 170, "Output",ExpressionUUID->"bf89a66d-44b7-46cb-8978-b38ab40ef8b7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[4956699, 108251, 1254, 29, 79, "Input",ExpressionUUID->"8aa8cbfa-070f-41f3-b966-b4bb1e908724"], -Cell[4957956, 108282, 3652, 82, 170, "Output",ExpressionUUID->"1b8c0260-16ba-4fa6-8d37-b311faf0cf04"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[4961669, 108371, 155, 3, 38, "Subsection",ExpressionUUID->"10dee545-9ea2-4d54-a10c-01566f0a04b3"], -Cell[CellGroupData[{ -Cell[4961849, 108378, 216, 4, 45, "Subsubsection",ExpressionUUID->"9cc312ec-50b9-4c82-b34c-99e9cf44ab5c"], -Cell[CellGroupData[{ -Cell[4962090, 108386, 807, 22, 30, "Input",ExpressionUUID->"f00ee4d0-c04a-4ae0-ab51-26f562e61488"], -Cell[CellGroupData[{ -Cell[4962922, 108412, 610, 13, 24, "Print",ExpressionUUID->"eaaba0ad-18a3-47e5-b0a8-0a2b25f0f4ef"], -Cell[4963535, 108427, 608, 13, 24, "Print",ExpressionUUID->"ad895181-feca-4d44-9b63-59803bcb8f9e"], -Cell[4964146, 108442, 604, 12, 24, "Print",ExpressionUUID->"48c766f9-49db-4e43-9138-a23f1c20ea44"], -Cell[4964753, 108456, 614, 13, 24, "Print",ExpressionUUID->"f98f4511-db67-44e3-8bc3-de21fc58904a"], -Cell[4965370, 108471, 610, 13, 24, "Print",ExpressionUUID->"62a52d4b-4f96-4a9d-963b-374ef61183b3"], -Cell[4965983, 108486, 617, 13, 24, "Print",ExpressionUUID->"31da60d2-b8e9-4588-b222-756db465d20f"], -Cell[4966603, 108501, 618, 13, 24, "Print",ExpressionUUID->"8e36f9d7-5794-455b-a7e1-9ebd31946dd9"] -}, Open ]], -Cell[4967236, 108517, 32880, 897, 320, "Output",ExpressionUUID->"4484f5da-93a9-4669-8e7a-7b96d2932b16"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5000153, 109419, 790, 22, 30, "Input",ExpressionUUID->"8637174f-2bed-4b6e-b412-87c574135c4e"], -Cell[CellGroupData[{ -Cell[5000968, 109445, 495, 11, 24, "Print",ExpressionUUID->"845761a3-2ebd-4f48-8fcf-30ffcf3ed200"], -Cell[5001466, 109458, 495, 11, 24, "Print",ExpressionUUID->"d52f7f90-fa10-405b-81ee-648609260e75"], -Cell[5001964, 109471, 493, 11, 24, "Print",ExpressionUUID->"5ce5c1c7-a924-4230-9706-2ad37656a2a1"], -Cell[5002460, 109484, 496, 11, 24, "Print",ExpressionUUID->"4aa7f9a0-79e8-4ee1-9a5c-a40260568b7a"], -Cell[5002959, 109497, 490, 11, 24, "Print",ExpressionUUID->"3be8c090-fd3b-432f-8fe9-07e4daf61b59"], -Cell[5003452, 109510, 585, 13, 24, "Print",ExpressionUUID->"7dc4c001-90bc-414e-8641-21a3b098f673"], -Cell[5004040, 109525, 1480, 27, 49, "Print",ExpressionUUID->"a3779b2a-ff8d-4ab8-bdfe-24eb3e732dd0"] -}, Open ]], -Cell[5005535, 109555, 34501, 950, 354, "Output",ExpressionUUID->"c2e48686-d84b-40aa-a6e7-43f8e1f90a2e"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[5040085, 110511, 170, 3, 45, "Subsubsection",ExpressionUUID->"f42f398f-8030-4cda-b96b-b598bdf0276e"], -Cell[CellGroupData[{ -Cell[5040280, 110518, 778, 21, 30, "Input",ExpressionUUID->"fa8d08ee-23a6-4f5d-91eb-9369c26f3282"], -Cell[5041061, 110541, 50151, 1361, 328, "Output",ExpressionUUID->"d90c8f7e-4b43-457c-b94b-864b154460d0"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5091261, 111908, 173, 3, 37, "Subsubsection",ExpressionUUID->"9b6c8d14-883e-49f2-9ef2-9c197778dc98"], -Cell[CellGroupData[{ -Cell[5091459, 111915, 786, 22, 30, "Input",ExpressionUUID->"e313f84b-0e17-484d-97b9-305e3e1605de"], -Cell[5092248, 111939, 53210, 1442, 362, "Output",ExpressionUUID->"15f3f74b-2305-403b-9bc4-ae62e10ca162"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5145507, 113387, 180, 3, 37, "Subsubsection",ExpressionUUID->"ba44c0df-b791-4c75-b43e-e7f43efb0372"], -Cell[CellGroupData[{ -Cell[5145712, 113394, 1984, 53, 52, "Input",ExpressionUUID->"839cd3f9-5356-4da4-86bd-1ba33007e9d5"], -Cell[5147699, 113449, 1444, 36, 75, "Output",ExpressionUUID->"3ffaa64e-eb7f-4207-959d-a3ccb564bdaa"], -Cell[5149146, 113487, 1448, 36, 75, "Output",ExpressionUUID->"0ddba166-e1d3-4dae-bf0e-00593a251658"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5150631, 113528, 2325, 52, 73, "Input",ExpressionUUID->"a962e3e3-cd37-40fe-a824-d5543e9c2f64"], -Cell[5152959, 113582, 2815, 67, 180, "Output",ExpressionUUID->"7f15d46e-5443-4713-96c8-538a99017c19"], -Cell[5155777, 113651, 2887, 70, 180, "Output",ExpressionUUID->"879a4543-d85b-4673-8ccc-1e085ab03e55"], -Cell[5158667, 113723, 2883, 69, 180, "Output",ExpressionUUID->"6521f5a8-62c5-46c5-b403-b9560a490f2c"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5161599, 113798, 157, 3, 37, "Subsubsection",ExpressionUUID->"de89f8f8-ac45-4d67-90f8-27c0351be2bb"], -Cell[CellGroupData[{ -Cell[5161781, 113805, 1251, 29, 79, "Input",ExpressionUUID->"e6966386-981b-427f-a9a8-7f0271ff8111"], -Cell[5163035, 113836, 3751, 89, 70, "Output",ExpressionUUID->"b851ece0-0c87-4d1d-82a1-5aa2057efdb3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5166823, 113930, 1258, 29, 79, "Input",ExpressionUUID->"0786d112-11d8-49b5-8ffa-798415e37ce3"], -Cell[5168084, 113961, 3614, 81, 70, "Output",ExpressionUUID->"d8d6f3df-9bc5-4baf-81a6-8662cdba7308"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5171759, 114049, 155, 3, 38, "Subsection",ExpressionUUID->"1b6189ea-11df-4fa1-9011-09e99baa85f8"], -Cell[CellGroupData[{ -Cell[5171939, 114056, 216, 4, 45, "Subsubsection",ExpressionUUID->"6de3f65a-8d72-43a4-8960-333baea51c43"], -Cell[CellGroupData[{ -Cell[5172180, 114064, 805, 22, 30, "Input",ExpressionUUID->"8a548e7d-0e33-4efe-b098-de23dcb74299"], -Cell[CellGroupData[{ -Cell[5173010, 114090, 616, 13, 24, "Print",ExpressionUUID->"9f58d16b-908e-4efa-ba5e-95ffe830d69e"], -Cell[5173629, 114105, 614, 13, 24, "Print",ExpressionUUID->"13bfe50c-5610-4d12-a74a-5bcdb3047b82"], -Cell[5174246, 114120, 605, 12, 24, "Print",ExpressionUUID->"5d87058c-c9d4-48a6-95a3-4517d937ad70"], -Cell[5174854, 114134, 614, 13, 24, "Print",ExpressionUUID->"dfb2cb87-7a96-4fa2-b5fb-8ef1aaf9cf17"], -Cell[5175471, 114149, 606, 12, 24, "Print",ExpressionUUID->"5b076807-60da-493b-9d47-0ffaac0d18b0"], -Cell[5176080, 114163, 615, 13, 24, "Print",ExpressionUUID->"c4c685d7-ad65-4fc3-8e38-728307c57159"], -Cell[5176698, 114178, 621, 13, 24, "Print",ExpressionUUID->"0c54b5f8-c9bd-494c-b77b-0a34acd40464"] -}, Open ]], -Cell[5177334, 114194, 32881, 897, 320, "Output",ExpressionUUID->"11a6b235-18c5-41b3-a9a3-9ea101eababb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5210252, 115096, 766, 22, 30, "Input",ExpressionUUID->"2dcae7c9-03d1-4c56-a98a-e84f55c2d916"], -Cell[CellGroupData[{ -Cell[5211043, 115122, 495, 11, 24, "Print",ExpressionUUID->"64fd2ad6-4f35-4015-99c9-182852662600"], -Cell[5211541, 115135, 493, 11, 24, "Print",ExpressionUUID->"b31a9225-f103-4f86-ab22-35a58ba27925"], -Cell[5212037, 115148, 485, 10, 24, "Print",ExpressionUUID->"1639f8c2-8765-4820-be31-401916ac286c"], -Cell[5212525, 115160, 499, 11, 24, "Print",ExpressionUUID->"4800953c-3363-4110-a5cf-08480ffcdafa"], -Cell[5213027, 115173, 493, 11, 24, "Print",ExpressionUUID->"3c8ecf28-f74c-48e1-9fb4-a9875ca3783e"], -Cell[5213523, 115186, 580, 13, 24, "Print",ExpressionUUID->"f125f010-41b0-422c-a146-139081149b64"], -Cell[5214106, 115201, 1500, 27, 49, "Print",ExpressionUUID->"605388e8-cfb6-4b14-a536-5f700c2f4717"] -}, Open ]], -Cell[5215621, 115231, 34509, 950, 354, "Output",ExpressionUUID->"b2fad049-ca52-43bc-8393-6c20d6c88c59"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[5250179, 116187, 170, 3, 45, "Subsubsection",ExpressionUUID->"77c689b3-1216-4bc5-be9a-0282e0e20d6b"], -Cell[CellGroupData[{ -Cell[5250374, 116194, 780, 21, 30, "Input",ExpressionUUID->"0f847322-87bb-4864-8d5f-7fbbae70015c"], -Cell[5251157, 116217, 50174, 1361, 328, "Output",ExpressionUUID->"48f0a595-6f1a-434e-99e0-08361ebfd5ac"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5301380, 117584, 173, 3, 37, "Subsubsection",ExpressionUUID->"310ff81a-d396-4049-8e0e-3e6d0ee3cf86"], -Cell[CellGroupData[{ -Cell[5301578, 117591, 790, 22, 30, "Input",ExpressionUUID->"18ffe918-d86f-4df2-8850-0e7194c0cb22"], -Cell[5302371, 117615, 205, 4, 24, "Print",ExpressionUUID->"dc1032dd-8a74-458c-8768-d40a72b464e4"], -Cell[5302579, 117621, 53384, 1446, 362, "Output",ExpressionUUID->"cb5b4687-f97f-460e-9dd5-1eeadbe2d0cf"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5356012, 119073, 182, 3, 37, "Subsubsection",ExpressionUUID->"34d0eebf-6abe-44ed-922e-6e8112330344"], -Cell[CellGroupData[{ -Cell[5356219, 119080, 1986, 53, 52, "Input",ExpressionUUID->"e9be119a-e301-4813-a324-86f5e828776f"], -Cell[5358208, 119135, 1439, 36, 75, "Output",ExpressionUUID->"41393584-786d-4442-bae2-c5e0402e9049"], -Cell[5359650, 119173, 207, 4, 24, "Print",ExpressionUUID->"623dedd9-2acf-4320-bf13-3abfc8b41a2b"], -Cell[5359860, 119179, 1439, 36, 75, "Output",ExpressionUUID->"9409702d-7568-466d-bda9-b1677b85d17c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5361336, 119220, 2325, 52, 73, "Input",ExpressionUUID->"0ad63d9e-be68-41c6-811d-5606ce4631b3"], -Cell[5363664, 119274, 2840, 67, 180, "Output",ExpressionUUID->"8330cd97-976c-408c-8a4a-18834ea1397e"], -Cell[5366507, 119343, 2904, 69, 180, "Output",ExpressionUUID->"447d6b4b-cb8d-40b8-b39b-f0f5190c9b25"], -Cell[5369414, 119414, 2898, 68, 180, "Output",ExpressionUUID->"be45915d-474a-4253-b718-30031514ebaa"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5372361, 119488, 157, 3, 37, "Subsubsection",ExpressionUUID->"f6c5e247-741f-4386-b5e4-3711a97ecd43"], -Cell[CellGroupData[{ -Cell[5372543, 119495, 1251, 29, 79, "Input",ExpressionUUID->"00f53f62-2887-4b80-9770-7827aeac5ac0"], -Cell[5373797, 119526, 3772, 89, 70, "Output",ExpressionUUID->"0693179d-1972-45b0-a0b1-1b3d5619a554"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5377606, 119620, 1254, 29, 79, "Input",ExpressionUUID->"b150f975-1778-4968-9063-a03bb17a5135"], -Cell[5378863, 119651, 3593, 80, 70, "Output",ExpressionUUID->"44504046-897b-4f7c-a926-9267a14d12c0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5382493, 119736, 197, 4, 30, "Input",ExpressionUUID->"074f9079-d23e-4f2d-aaf4-1bd3b8d0849e"], -Cell[5382693, 119742, 1723, 40, 70, "Output",ExpressionUUID->"c7e6aa51-61df-4683-8778-9df05cf3f942"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5384453, 119787, 156, 3, 30, "Input",ExpressionUUID->"d88c91b2-3fbd-4e67-8ef1-3d35987f3407"], -Cell[5384612, 119792, 1777, 41, 70, "Output",ExpressionUUID->"716a8dfc-05e9-4c96-b73a-9c377397a255"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5386426, 119838, 189, 3, 30, "Input",ExpressionUUID->"e10c9dc6-79c5-4cbc-afe6-3495641d6128"], -Cell[5386618, 119843, 942, 27, 70, "Output",ExpressionUUID->"e32b9fab-04ea-4ab3-b299-010bf04824d9"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5387621, 119877, 155, 3, 38, "Subsection",ExpressionUUID->"f77efbcc-735f-421e-bdc1-61fbd8989401"], -Cell[CellGroupData[{ -Cell[5387801, 119884, 216, 4, 45, "Subsubsection",ExpressionUUID->"754258d6-c568-4028-ac80-6416e83a482e"], -Cell[CellGroupData[{ -Cell[5388042, 119892, 805, 22, 30, "Input",ExpressionUUID->"d4751674-d14b-427f-93de-16dbf05ec9d6"], -Cell[CellGroupData[{ -Cell[5388872, 119918, 616, 13, 24, "Print",ExpressionUUID->"a4eaac6e-b223-4bc0-8932-c232eddbf326"], -Cell[5389491, 119933, 616, 13, 24, "Print",ExpressionUUID->"f8fe2e35-6aec-4e87-992c-facdb8bb6ecc"], -Cell[5390110, 119948, 610, 13, 24, "Print",ExpressionUUID->"59c38232-f896-4854-8296-62de26577291"], -Cell[5390723, 119963, 614, 13, 24, "Print",ExpressionUUID->"b892483f-ed80-498d-bd38-03f653bc3bf5"], -Cell[5391340, 119978, 608, 13, 24, "Print",ExpressionUUID->"5232e4ae-2ed9-4520-ac13-67ebd3335e9a"], -Cell[5391951, 119993, 615, 13, 24, "Print",ExpressionUUID->"979d18a6-c0be-41f4-b5ea-d16d47af69c9"], -Cell[5392569, 120008, 618, 13, 24, "Print",ExpressionUUID->"4cab7db7-ee9a-4208-80f4-cc053ee3b3fe"] -}, Open ]], -Cell[5393202, 120024, 32896, 897, 320, "Output",ExpressionUUID->"50508687-7064-4ec6-a6e5-4435d29b2314"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5426135, 120926, 790, 22, 30, "Input",ExpressionUUID->"0b223b3e-215b-440b-aedf-08c8c9fe2719"], -Cell[CellGroupData[{ -Cell[5426950, 120952, 498, 11, 24, "Print",ExpressionUUID->"7ae6e873-c8e6-47ab-bd70-c8ae7c417439"], -Cell[5427451, 120965, 494, 11, 24, "Print",ExpressionUUID->"5afe06cc-3060-4193-a660-444b670ed20c"], -Cell[5427948, 120978, 491, 11, 24, "Print",ExpressionUUID->"e35a3be4-967d-421b-8087-7b40553ef27e"], -Cell[5428442, 120991, 495, 11, 24, "Print",ExpressionUUID->"f4a72b96-6e1d-44f5-ab1c-ab729de019e5"], -Cell[5428940, 121004, 495, 11, 24, "Print",ExpressionUUID->"1e84571f-3b6d-467c-ac5e-64e0cbf7f5a3"], -Cell[5429438, 121017, 576, 12, 24, "Print",ExpressionUUID->"b6d12a62-9540-49ed-9d5b-71b11b76458d"], -Cell[5430017, 121031, 1503, 27, 49, "Print",ExpressionUUID->"4584c2a0-0ca2-479d-bf7d-edd4901e3021"] -}, Open ]], -Cell[5431535, 121061, 34544, 950, 354, "Output",ExpressionUUID->"fedf7df8-6ffe-430d-b604-275d9dd3e0ae"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[5466128, 122017, 170, 3, 45, "Subsubsection",ExpressionUUID->"12d78f77-5979-4f24-b869-ae76276bc6a0"], -Cell[CellGroupData[{ -Cell[5466323, 122024, 778, 21, 30, "Input",ExpressionUUID->"039a6157-eddf-4f4c-8817-2f06fb6421bb"], -Cell[5467104, 122047, 50185, 1361, 328, "Output",ExpressionUUID->"55d72b19-d4b2-4ca5-a051-5ef5894b920e"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5517338, 123414, 173, 3, 37, "Subsubsection",ExpressionUUID->"56fe3828-06ff-47c0-b817-c5e4b34f41d7"], -Cell[CellGroupData[{ -Cell[5517536, 123421, 786, 22, 30, "Input",ExpressionUUID->"47befdf5-4e30-40ab-9da0-dcab6eca3e5c"], -Cell[5518325, 123445, 53389, 1446, 362, "Output",ExpressionUUID->"93593d07-67dc-4fbc-a10b-ba905509b4b9"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5571763, 124897, 182, 3, 37, "Subsubsection",ExpressionUUID->"ef12f0ff-1e8e-476f-9a7e-9a1d1afe1e52"], -Cell[CellGroupData[{ -Cell[5571970, 124904, 2035, 54, 52, "Input",ExpressionUUID->"c894d6ae-72d2-49e2-be16-676b029b9df8"], -Cell[5574008, 124960, 1468, 36, 75, "Output",ExpressionUUID->"994569e8-ae00-4367-a688-9892dd2efa7b"], -Cell[5575479, 124998, 1470, 36, 75, "Output",ExpressionUUID->"148e4bde-ff6e-4500-a964-d43dccb38933"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5576986, 125039, 2373, 53, 73, "Input",ExpressionUUID->"048d2a29-f857-4248-9c13-65449e87102e"], -Cell[5579362, 125094, 2827, 67, 180, "Output",ExpressionUUID->"12e3b0fb-7e98-495f-b71a-0c9dc3e91e5e"], -Cell[5582192, 125163, 2882, 69, 180, "Output",ExpressionUUID->"6daf7546-663e-4c03-9910-94b4e123bbe5"], -Cell[5585077, 125234, 2886, 69, 180, "Output",ExpressionUUID->"ac8e768e-cd9b-4cea-8f76-fc1627fd3493"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5588012, 125309, 157, 3, 37, "Subsubsection",ExpressionUUID->"98d49e59-6c72-4c42-820a-e829df2346c1"], -Cell[CellGroupData[{ -Cell[5588194, 125316, 1214, 28, 80, "Input",ExpressionUUID->"9a0c1f70-be1b-4bb5-bfd1-34703edd3958"], -Cell[5589411, 125346, 7268, 160, 70, "Output",ExpressionUUID->"4b7dfe4d-b870-4ce3-83e4-c92facc0f976"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5596716, 125511, 1217, 28, 80, "Input",ExpressionUUID->"ca5ca3d0-1ad7-416e-b049-6a4317c9fd32"], -Cell[5597936, 125541, 7296, 161, 70, "Output",ExpressionUUID->"a436a31c-62dc-4fe3-ab30-a82ce027843d"] -}, Open ]] -}, Closed]] -}, Closed]] -}, Open ]], -Cell[CellGroupData[{ -Cell[5605305, 125710, 160, 3, 67, "Section",ExpressionUUID->"0cf5029a-c295-4f81-81d9-c59ab38a6cd6"], -Cell[CellGroupData[{ -Cell[5605490, 125717, 155, 3, 54, "Subsection",ExpressionUUID->"399c4cbb-a491-485e-a0af-c29d98a817c1"], -Cell[CellGroupData[{ -Cell[5605670, 125724, 170, 3, 45, "Subsubsection",ExpressionUUID->"97c6283b-2073-4fa3-8cc2-1576eb0b50ec"], -Cell[CellGroupData[{ -Cell[5605865, 125731, 802, 20, 30, "Input",ExpressionUUID->"b0cbf515-9ec5-4308-ab04-63fb8c4fdd1b"], -Cell[5606670, 125753, 47854, 1287, 328, "Output",ExpressionUUID->"60f93be3-85df-4df1-b1c2-a4cc6216319a"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5654573, 127046, 173, 3, 37, "Subsubsection",ExpressionUUID->"c8b71a16-8493-4d89-854a-d23e1b5733cc"], -Cell[CellGroupData[{ -Cell[5654771, 127053, 784, 21, 30, "Input",ExpressionUUID->"c0f4f246-a8fc-40fd-a509-a1ee9a6efdc8"], -Cell[5655558, 127076, 49851, 1343, 362, "Output",ExpressionUUID->"981fda4c-eec7-45e1-a3ea-797b7b77165e"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5705458, 128425, 206, 4, 37, "Subsubsection",ExpressionUUID->"783a6690-0911-4012-96f1-1832fd010daa"], -Cell[CellGroupData[{ -Cell[5705689, 128433, 1939, 52, 52, "Input",ExpressionUUID->"8f42c51e-4af6-4fd4-b648-ad88dc0af07c"], -Cell[5707631, 128487, 1453, 35, 75, "Output",ExpressionUUID->"ea2bd096-fe86-4bb7-8ca6-c48f78aa9503"], -Cell[5709087, 128524, 1527, 37, 75, "Output",ExpressionUUID->"b79bcf06-1f1f-4845-9ae0-c3a48e86ce24"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5710651, 128566, 2061, 45, 73, "Input",ExpressionUUID->"2c7923ac-5d05-4049-9d65-76710297345e"], -Cell[5712715, 128613, 3061, 79, 180, "Output",ExpressionUUID->"7e265376-6561-4bc6-abe0-d9b76af9904a"], -Cell[5715779, 128694, 3252, 80, 180, "Output",ExpressionUUID->"ed717238-f5fb-42cf-9eb2-90ab6461a59b"], -Cell[5719034, 128776, 3358, 84, 180, "Output",ExpressionUUID->"ddadbaf6-8670-4067-af2e-e3fe082ca8fa"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5722441, 128866, 159, 3, 37, "Subsubsection",ExpressionUUID->"683ba5f3-4b06-401d-9d43-56af8ec4cca1"], -Cell[CellGroupData[{ -Cell[5722625, 128873, 1083, 25, 79, "Input",ExpressionUUID->"27e1234a-1ffc-450d-971f-33e4ef801c3b"], -Cell[5723711, 128900, 4022, 88, 170, "Output",ExpressionUUID->"cbe49253-baa4-4ab5-a776-118510807652"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5727770, 128993, 1109, 25, 79, "Input",ExpressionUUID->"ec7160d4-3c2c-4992-a4d2-f918473db052"], -Cell[5728882, 129020, 4383, 95, 170, "Output",ExpressionUUID->"3be2a67c-9a49-41db-b31b-9303f221bdb4"] -}, Open ]] -}, Closed]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5733326, 129122, 155, 3, 38, "Subsection",ExpressionUUID->"03635dc1-7ed7-4b3b-b08d-536ab12eb856"], -Cell[CellGroupData[{ -Cell[5733506, 129129, 170, 3, 45, "Subsubsection",ExpressionUUID->"37877007-fa2c-4077-99c1-3e968d22728d"], -Cell[CellGroupData[{ -Cell[5733701, 129136, 796, 20, 30, "Input",ExpressionUUID->"01390d67-d15d-4641-b5ed-8e047edccf8c"], -Cell[5734500, 129158, 47752, 1286, 70, "Output",ExpressionUUID->"0c28b243-673b-4466-a2e1-a9c2c837a4ed"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5782301, 130450, 173, 3, 37, "Subsubsection",ExpressionUUID->"df5fb33f-8cd5-43b3-9ecd-765d05c24611"], -Cell[CellGroupData[{ -Cell[5782499, 130457, 813, 23, 30, "Input",ExpressionUUID->"d849899f-cc7a-4e35-8403-279b8a157b34"], -Cell[5783315, 130482, 49758, 1343, 70, "Output",ExpressionUUID->"0e0221f0-6706-4d60-8675-0ec6ca07974e"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5833122, 131831, 206, 4, 37, "Subsubsection",ExpressionUUID->"50a5fd77-df81-4c3f-8867-d9ddda298713"], -Cell[CellGroupData[{ -Cell[5833353, 131839, 1942, 53, 52, "Input",ExpressionUUID->"4b6b97c2-15f0-4c8c-9353-24c33131c47d"], -Cell[5835298, 131894, 1442, 36, 70, "Output",ExpressionUUID->"c27de29c-1849-4c98-9388-fba3aee803cf"], -Cell[5836743, 131932, 1461, 36, 70, "Output",ExpressionUUID->"fd4178ef-6c15-43fb-9417-4ba9b796bee3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5838241, 131973, 2064, 46, 73, "Input",ExpressionUUID->"67ae8529-20b1-45e2-ad86-1dc896cc8484"], -Cell[5840308, 132021, 3070, 78, 70, "Output",ExpressionUUID->"d243255e-dffe-4dce-932c-7bcec1b981ee"], -Cell[5843381, 132101, 3179, 79, 70, "Output",ExpressionUUID->"5bd7b5ed-8836-4f47-a05c-7a89fc38bd76"], -Cell[5846563, 132182, 3218, 81, 70, "Output",ExpressionUUID->"065476e1-fe91-4ca9-9c5e-d6878a1793d8"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5849830, 132269, 159, 3, 37, "Subsubsection",ExpressionUUID->"8d2eb298-c00c-4f5f-8f87-23a99493a0e2"], -Cell[CellGroupData[{ -Cell[5850014, 132276, 1132, 26, 79, "Input",ExpressionUUID->"5c02262e-9224-4474-9742-615f02a0298a"], -Cell[5851149, 132304, 4013, 87, 170, "Output",ExpressionUUID->"6674fb58-e184-451c-87d5-5e71e058a2bc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5855199, 132396, 1163, 27, 79, "Input",ExpressionUUID->"03beb052-382e-411d-a6e5-f76d9ac40874"], -Cell[5856365, 132425, 4342, 94, 170, "Output",ExpressionUUID->"1d6539f8-d739-44a6-9930-726ce2770d61"] -}, Open ]] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5860768, 132526, 155, 3, 38, "Subsection",ExpressionUUID->"b80576c9-5feb-42c8-b6de-f474856bee13"], -Cell[CellGroupData[{ -Cell[5860948, 132533, 170, 3, 45, "Subsubsection",ExpressionUUID->"31cd9368-0093-41a7-ba77-370782e4b1da"], -Cell[CellGroupData[{ -Cell[5861143, 132540, 800, 21, 30, "Input",ExpressionUUID->"bfdb7d93-3f7c-4147-9fbb-59d885667072"], -Cell[5861946, 132563, 47755, 1286, 328, "Output",ExpressionUUID->"2da94e72-b484-4ae0-9f62-03ff28326e3e"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5909750, 133855, 173, 3, 37, "Subsubsection",ExpressionUUID->"b59b23e3-8e24-4763-a082-e87f734e2324"], -Cell[CellGroupData[{ -Cell[5909948, 133862, 813, 23, 30, "Input",ExpressionUUID->"aa44f6fb-7532-4348-a55b-bdd8e95b6c2d"], -Cell[5910764, 133887, 49730, 1342, 362, "Output",ExpressionUUID->"a9a960ae-966c-4376-80b0-e90a3f14431d"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5960543, 135235, 180, 3, 37, "Subsubsection",ExpressionUUID->"7d95fe2e-7b57-457c-b03c-723f52b4d936"], -Cell[CellGroupData[{ -Cell[5960748, 135242, 1986, 53, 52, "Input",ExpressionUUID->"712be5e0-1ded-4316-8b67-46e261e01e34"], -Cell[5962737, 135297, 1414, 35, 75, "Output",ExpressionUUID->"a753738e-c4d4-43d8-9b4b-f673cd46a52d"], -Cell[5964154, 135334, 1423, 35, 75, "Output",ExpressionUUID->"f9746b9c-5034-488c-a5e3-4d9da3c16bd1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5965614, 135374, 2113, 47, 73, "Input",ExpressionUUID->"3d2d760f-0607-4b28-a5a6-0e0f5531850a"], -Cell[5967730, 135423, 3060, 78, 180, "Output",ExpressionUUID->"e888dbbf-b7e9-4356-b37c-5a0b7ea8ed6a"], -Cell[5970793, 135503, 3140, 79, 180, "Output",ExpressionUUID->"86b0160a-cda7-4ef6-9245-782038752c4f"], -Cell[5973936, 135584, 3167, 80, 180, "Output",ExpressionUUID->"56d05340-878b-4fee-ae72-bf39a18c90fb"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5977152, 135670, 159, 3, 37, "Subsubsection",ExpressionUUID->"8294d45d-68af-4b2b-8d3b-49ee3f62fc07"], -Cell[CellGroupData[{ -Cell[5977336, 135677, 1183, 27, 79, "Input",ExpressionUUID->"d1474651-6a6a-4c31-8d55-74aa72a1756b"], -Cell[5978522, 135706, 3944, 87, 170, "Output",ExpressionUUID->"61192317-a3cb-40e2-aae1-d42fcc58731b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5982503, 135798, 1209, 27, 79, "Input",ExpressionUUID->"5e4e5c4a-3503-403f-a6a4-24030b2745de"], -Cell[5983715, 135827, 4356, 94, 170, "Output",ExpressionUUID->"0dcd93f3-4b37-4f79-a64b-8771b2f20981"] -}, Open ]] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[5988132, 135928, 155, 3, 38, "Subsection",ExpressionUUID->"2f5235f6-11ed-40cc-bd47-972e2faface4"], -Cell[CellGroupData[{ -Cell[5988312, 135935, 170, 3, 45, "Subsubsection",ExpressionUUID->"f88dcaf8-3648-43db-b40a-dc6386313705"], -Cell[CellGroupData[{ -Cell[5988507, 135942, 800, 21, 30, "Input",ExpressionUUID->"37527d21-db28-480e-b87f-90f7947fc0ff"], -Cell[5989310, 135965, 47765, 1286, 328, "Output",ExpressionUUID->"c98b99ad-3b22-4d1a-9b26-e399f59761af"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6037124, 137257, 173, 3, 37, "Subsubsection",ExpressionUUID->"7f0c5099-fb56-4eeb-9aae-5bd1770ade17"], -Cell[CellGroupData[{ -Cell[6037322, 137264, 811, 23, 30, "Input",ExpressionUUID->"3243e3d3-4ac7-444e-8cab-2aa47d891d07"], -Cell[6038136, 137289, 49752, 1343, 362, "Output",ExpressionUUID->"3847d073-cc78-453f-a88d-cdd25c2162d1"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6087937, 138638, 180, 3, 37, "Subsubsection",ExpressionUUID->"0bc057ae-f40e-4705-be74-4e1e050c5fe4"], -Cell[CellGroupData[{ -Cell[6088142, 138645, 2036, 54, 52, "Input",ExpressionUUID->"ec51997e-1375-461e-af8c-e7424ed6f4bf"], -Cell[6090181, 138701, 1398, 35, 70, "Output",ExpressionUUID->"6fbf4b87-03af-438e-9aee-0965a196361e"], -Cell[6091582, 138738, 1399, 35, 70, "Output",ExpressionUUID->"0542912e-7d18-4131-ae68-c243d2db80f8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6093018, 138778, 2115, 47, 73, "Input",ExpressionUUID->"f76ade5d-96c2-4269-ab5f-465d90b0ac66"], -Cell[6095136, 138827, 3056, 77, 70, "Output",ExpressionUUID->"2b1a78f2-6671-4626-8248-3f0554c1057f"], -Cell[6098195, 138906, 3114, 78, 70, "Output",ExpressionUUID->"5ae1f94a-cc4e-4389-b033-127c33702d43"], -Cell[6101312, 138986, 3142, 79, 70, "Output",ExpressionUUID->"c85a2955-4cb0-4e28-bc3e-b4188ae89670"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6104503, 139071, 159, 3, 37, "Subsubsection",ExpressionUUID->"2ea4aeb0-eaab-44c8-897f-2904d700d527"], -Cell[CellGroupData[{ -Cell[6104687, 139078, 1230, 28, 79, "Input",ExpressionUUID->"7827a097-56cf-483a-b0ba-5625432c204f"], -Cell[6105920, 139108, 3827, 85, 170, "Output",ExpressionUUID->"1859ab01-180d-443f-89ea-1114e13ff7f6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6109784, 139198, 1259, 28, 79, "Input",ExpressionUUID->"a4328a2c-f0c6-4ddb-a1fe-5b267b2b3acd"], -Cell[6111046, 139228, 4279, 93, 170, "Output",ExpressionUUID->"884a3610-b85c-44f8-9ca4-589d6dc0f0fa"] -}, Open ]] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6115386, 139328, 155, 3, 38, "Subsection",ExpressionUUID->"67f3695d-6149-4f26-9ffd-387fa7b82660"], -Cell[CellGroupData[{ -Cell[6115566, 139335, 170, 3, 45, "Subsubsection",ExpressionUUID->"a3d59bff-5789-4e64-bbbf-7bb9cfdbc1d2"], -Cell[CellGroupData[{ -Cell[6115761, 139342, 802, 21, 30, "Input",ExpressionUUID->"c553e16f-3093-44d1-9d36-0e2944cc9e88"], -Cell[6116566, 139365, 47773, 1286, 328, "Output",ExpressionUUID->"28e231b2-a672-4e7f-80c7-77fdea540b4f"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6164388, 140657, 173, 3, 37, "Subsubsection",ExpressionUUID->"023450b8-43fc-4112-b60e-d5648dc00642"], -Cell[CellGroupData[{ -Cell[6164586, 140664, 817, 23, 30, "Input",ExpressionUUID->"0739d3ff-a764-4492-834e-52ef14ac4ac7"], -Cell[6165406, 140689, 49746, 1343, 362, "Output",ExpressionUUID->"342fe15f-5d0b-45fc-8c66-fe59cb5d0675"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6215201, 142038, 179, 3, 37, "Subsubsection",ExpressionUUID->"39ccbc87-5a93-4556-8d45-9189a0afac1a"], -Cell[CellGroupData[{ -Cell[6215405, 142045, 2037, 54, 52, "Input",ExpressionUUID->"817f0768-e734-4493-ba7a-ee4e9786892b"], -Cell[6217445, 142101, 1396, 35, 75, "Output",ExpressionUUID->"d95b1f13-680b-4f9b-bcd9-c33f22bd52ff"], -Cell[6218844, 142138, 1385, 35, 75, "Output",ExpressionUUID->"bd88202b-cc78-4a9e-b479-9ef3a020a5a4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6220266, 142178, 2114, 47, 73, "Input",ExpressionUUID->"cfb590c5-20ff-475a-b601-54e0c5604e69"], -Cell[6222383, 142227, 3061, 77, 180, "Output",ExpressionUUID->"c4ef6db5-9619-4bdd-9d75-843cf787426b"], -Cell[6225447, 142306, 3118, 78, 180, "Output",ExpressionUUID->"41e15f49-7527-499b-8762-4b72a6343ff3"], -Cell[6228568, 142386, 3128, 79, 180, "Output",ExpressionUUID->"bc7d5113-7e4d-4982-9db4-45982ed9474f"] -}, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[6231745, 142471, 159, 3, 37, "Subsubsection",ExpressionUUID->"e8ab3c69-78d0-4a34-a632-71e02d7385e8"], -Cell[CellGroupData[{ -Cell[6231929, 142478, 1232, 28, 79, "Input",ExpressionUUID->"19cc2ac7-0e89-4096-bd94-6e179cae1d30"], -Cell[6233164, 142508, 3761, 83, 170, "Output",ExpressionUUID->"1a5c1fac-c184-4c85-9b87-23d46d0a8b70"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6236962, 142596, 1259, 28, 79, "Input",ExpressionUUID->"1966c60b-7b9e-4d19-ad24-a9779e150f46"], -Cell[6238224, 142626, 4219, 92, 170, "Output",ExpressionUUID->"2c367f82-1c84-41b4-b737-16d8902868b3"] -}, Open ]] -}, Closed]] -}, Closed]] -}, Closed]] -}, Open ]], -Cell[CellGroupData[{ -Cell[6242528, 142727, 159, 3, 98, "Title",ExpressionUUID->"6491b1b0-852f-4bdd-8e0c-baaf27bf3326"], -Cell[CellGroupData[{ -Cell[6242712, 142734, 153, 3, 67, "Section",ExpressionUUID->"5127f77e-fe2f-4dda-bd7d-3f930b336d92"], -Cell[CellGroupData[{ -Cell[6242890, 142741, 158, 3, 54, "Subsection",ExpressionUUID->"bcadec70-3ef9-42a1-9c63-71d474183dbe"], -Cell[6243051, 142746, 2101, 67, 130, "Input",ExpressionUUID->"21a8de76-365b-445f-ac68-ea56773d42f9"], -Cell[CellGroupData[{ -Cell[6245177, 142817, 1766, 51, 57, "Input",ExpressionUUID->"7ab16921-a1f5-4025-bebc-f886657828d2"], -Cell[6246946, 142870, 231, 4, 34, "Output",ExpressionUUID->"6ac025e0-4a60-4623-8c1c-67421d0a7280"] -}, Open ]] -}, Open ]], -Cell[CellGroupData[{ -Cell[6247226, 142880, 467, 8, 54, "Subsection",ExpressionUUID->"54e0ba72-e119-45fa-8af9-f05893e85758", - InitializationCell->True], -Cell[6247696, 142890, 9594, 168, 420, "Input",ExpressionUUID->"5db5b15a-b66a-48ca-badf-1718fb820a4a", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[6257327, 143063, 425, 7, 38, "Subsection",ExpressionUUID->"0b8c9413-f61f-466e-a4fe-9c35df985e10", - InitializationCell->True], -Cell[6257755, 143072, 34344, 672, 1205, "Input",ExpressionUUID->"d86b6e7e-16bc-4bbc-ab05-49b514161ba0", - InitializationCell->True] -}, Closed]], -Cell[CellGroupData[{ -Cell[6292136, 143749, 157, 3, 38, "Subsection",ExpressionUUID->"68da2d1e-3853-46bc-a63e-d70b39e0d4ef"], -Cell[6292296, 143754, 40886, 746, 1309, "Input",ExpressionUUID->"d25c00bc-a3f2-4165-b91c-836c09494a9c", +Cell[1659698, 38440, 10293, 185, 202, "Input",ExpressionUUID->"68e8c54c-5af3-4131-a4e3-ef7775bd8d74", InitializationCell->True] }, Closed]] }, Open ]], Cell[CellGroupData[{ -Cell[6333231, 144506, 206, 4, 67, "Section",ExpressionUUID->"fda9ab2d-de4c-4bbf-a3a3-545f30b979f6"], +Cell[1670040, 38631, 152, 3, 98, "Title",ExpressionUUID->"aefd3997-e92c-4a00-bbab-c1e0d31c8049"], Cell[CellGroupData[{ -Cell[6333462, 144514, 3552, 59, 136, "Input",ExpressionUUID->"4b11e20d-ef20-45e8-89f6-aa75d3f26394"], +Cell[1670217, 38638, 160, 3, 67, "Section",ExpressionUUID->"aa75faa4-f188-4f1f-b111-6efc6d390d21"], Cell[CellGroupData[{ -Cell[6337039, 144577, 632, 15, 24, "Print",ExpressionUUID->"6cdf4e00-684e-4f57-9f99-d56c6a8376ec"], -Cell[6337674, 144594, 415, 7, 24, "Print",ExpressionUUID->"db080ef1-bb31-437d-8aec-301c2fd4c2cd"], -Cell[6338092, 144603, 677, 15, 24, "Print",ExpressionUUID->"6420a8cb-3f78-4018-b4c7-f542e7860606"], -Cell[6338772, 144620, 566, 12, 24, "Print",ExpressionUUID->"d74305c2-f29d-46de-9ce1-48649c2179cb"], -Cell[6339341, 144634, 389, 7, 24, "Print",ExpressionUUID->"fbabbc71-e74f-4bb3-afb3-426668b3b749"], -Cell[6339733, 144643, 415, 7, 24, "Print",ExpressionUUID->"572d2405-6679-4439-a54b-4d23c7c098c7"], -Cell[6340151, 144652, 638, 15, 24, "Print",ExpressionUUID->"abcec4d3-70d7-4a08-af79-6c6d4c815f5f"], -Cell[6340792, 144669, 741, 18, 27, "Print",ExpressionUUID->"5c91f9cb-2837-406a-9be9-95767b53aa5f"], -Cell[6341536, 144689, 392, 7, 24, "Print",ExpressionUUID->"d040d3c9-8581-4f50-a4cc-4a05f28064de"], -Cell[6341931, 144698, 3925, 111, 40, "Print",ExpressionUUID->"df79abd6-954c-42b4-b741-cb1007165936"], -Cell[6345859, 144811, 521, 11, 24, "Print",ExpressionUUID->"0776d0bf-9adf-41d0-844e-7ed8857c4f51"] +Cell[1670402, 38645, 161, 3, 54, "Subsection",ExpressionUUID->"6cc932ec-2998-4eb9-88a0-ccc179ba2d6a"], +Cell[CellGroupData[{ +Cell[1670588, 38652, 620, 13, 30, "Input",ExpressionUUID->"8bf9487e-abd2-4710-8b15-4881e944991c"], +Cell[1671211, 38667, 228, 4, 24, "Print",ExpressionUUID->"eb3f5147-de20-4058-817e-506824c989a4"], +Cell[1671442, 38673, 1500, 34, 81, "Output",ExpressionUUID->"ef530816-23f3-4ea2-87b9-a35f0bc8c777"] }, Open ]], -Cell[6346395, 144825, 409, 6, 34, "Output",ExpressionUUID->"5ef95204-df02-431b-bf73-ce298fc4e554"] +Cell[CellGroupData[{ +Cell[1672979, 38712, 648, 17, 30, "Input",ExpressionUUID->"d50c5511-df0c-44b3-88ca-4a5ccb69fbc5"], +Cell[1673630, 38731, 30666, 585, 237, "Output",ExpressionUUID->"a36d5385-b456-421a-b21d-acc4ec2e1d05"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[6346853, 144837, 438, 12, 54, "Section",ExpressionUUID->"5ce77d80-bfce-49e5-95bd-9f294c38cbfa"], +Cell[1704345, 39322, 225, 4, 38, "Subsection",ExpressionUUID->"80bde696-220f-44ed-9b20-8c56bf094687"], +Cell[1704573, 39328, 457, 11, 89, "Input",ExpressionUUID->"176798d0-1c81-4a7b-af3e-a4ff00f57f19", + InitializationCell->True], +Cell[1705033, 39341, 1512, 29, 215, "Input",ExpressionUUID->"a0490fa9-06c9-4e65-84b2-908e20e7745b", + InitializationCell->True], Cell[CellGroupData[{ -Cell[6347316, 144853, 1815, 44, 178, "Input",ExpressionUUID->"bc982a77-2574-4d81-b17d-4e8912124d73"], -Cell[CellGroupData[{ -Cell[6349156, 144901, 1150, 22, 24, "Print",ExpressionUUID->"46989ea1-4b79-467a-9a37-459eaccef275"], -Cell[6350309, 144925, 933, 14, 24, "Print",ExpressionUUID->"72b00cc8-2a19-4173-bbe1-754e4bb08363"], -Cell[6351245, 144941, 1301, 24, 24, "Print",ExpressionUUID->"23dfa9da-ccaa-4352-bb28-f7769d1426d3"], -Cell[6352549, 144967, 1084, 19, 24, "Print",ExpressionUUID->"80f41f96-1abb-4d0c-8f33-5a2005342bfb"], -Cell[6353636, 144988, 905, 14, 24, "Print",ExpressionUUID->"a346f4b6-6ad7-4405-92a9-149042d3aad7"], -Cell[6354544, 145004, 933, 14, 24, "Print",ExpressionUUID->"1e6a876d-e3c2-4ae9-ae65-13b5f8e90456"], -Cell[6355480, 145020, 1158, 22, 24, "Print",ExpressionUUID->"732bba3e-6790-487c-a8d0-088e004ac965"], -Cell[6356641, 145044, 1274, 25, 24, "Print",ExpressionUUID->"4425c25f-e26c-4db3-a9f0-a6d55a661851"], -Cell[6357918, 145071, 910, 14, 24, "Print",ExpressionUUID->"de0cc461-d007-4c72-afc8-af5031b5d96b"], -Cell[6358831, 145087, 4469, 118, 40, "Print",ExpressionUUID->"c3925b24-131c-4063-ac49-b7e9248e39af"], -Cell[6363303, 145207, 1039, 18, 24, "Print",ExpressionUUID->"f301c7a1-7f6d-422f-a390-266975330b5a"] +Cell[1706570, 39374, 694, 18, 30, "Input",ExpressionUUID->"e4705d0a-fee7-45aa-86b3-cda3adedfb4f"], +Cell[1707267, 39394, 184, 3, 34, "Output",ExpressionUUID->"a0c47b1b-dd88-440c-aabe-91bcc54542dc"] }, Open ]], -Cell[6364357, 145228, 914, 14, 34, "Output",ExpressionUUID->"87268c59-0c58-4d29-90d4-8a43c6c7dfa1"] +Cell[CellGroupData[{ +Cell[1707488, 39402, 356, 8, 30, "Input",ExpressionUUID->"65c89a4c-373e-4c63-a618-a981e86faf6c"], +Cell[1707847, 39412, 2851, 64, 236, "Output",ExpressionUUID->"734657f3-3bc6-47a6-a3c9-9e89adb46720"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1710735, 39481, 1357, 31, 30, "Input",ExpressionUUID->"36ad7076-be3e-4c2f-bd10-518380872ebb"], +Cell[CellGroupData[{ +Cell[1712117, 39516, 397, 7, 24, "Print",ExpressionUUID->"3f736f20-89a4-42da-8c6a-f04fbb8fb69b"], +Cell[1712517, 39525, 395, 7, 24, "Print",ExpressionUUID->"40ecb9c9-7458-46b8-a15e-0ecab03e0457"] +}, Open ]], +Cell[1712927, 39535, 1191, 32, 51, "Output",ExpressionUUID->"78cc0014-7c21-4c23-9f0a-a6b0b8c87e31"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1714155, 39572, 434, 10, 30, "Input",ExpressionUUID->"99f4342f-dee6-451e-b5c4-24e6bf52a7c1"], +Cell[1714592, 39584, 2764, 63, 241, "Output",ExpressionUUID->"50afed37-9c56-4466-82bc-847f8e0d037d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1717393, 39652, 562, 14, 30, "Input",ExpressionUUID->"2e254aa7-799a-4aaa-9d10-bb9b134c88fb"], +Cell[1717958, 39668, 4240, 92, 241, "Output",ExpressionUUID->"a6625ff1-94f8-42d0-9eb8-4e105e35467c"] +}, Open ]], +Cell[1722213, 39763, 536, 13, 30, "Input",ExpressionUUID->"7c703387-a752-4dcb-9f17-6c969a596c59"], +Cell[1722752, 39778, 4774, 100, 235, "Input",ExpressionUUID->"5cbec312-e006-4599-aa74-7094d1d0a7e6"], +Cell[CellGroupData[{ +Cell[1727551, 39882, 5694, 130, 502, "Input",ExpressionUUID->"1a883756-8ff1-4d3f-9563-4a084568ffa3"], +Cell[1733248, 40014, 164535, 2966, 569, "Output",ExpressionUUID->"2960c5a9-2484-4db9-93ab-7b90a8e7a40e"] +}, Open ]], +Cell[1897798, 42983, 877, 25, 47, "Input",ExpressionUUID->"65e232e9-6897-4381-a7b5-bd66c69db829"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1898712, 43013, 192, 3, 38, "Subsection",ExpressionUUID->"19680b9a-e6ed-4fc2-aa15-72b80fcbd0ab"], +Cell[1898907, 43018, 457, 11, 89, "Input",ExpressionUUID->"75c0e938-eb67-4d7c-b553-62fa6f39140b", + InitializationCell->True], +Cell[1899367, 43031, 1512, 29, 215, "Input",ExpressionUUID->"5df0a514-6a2c-4f9a-a7f6-01a7a981b874", + InitializationCell->True], +Cell[CellGroupData[{ +Cell[1900904, 43064, 764, 20, 30, "Input",ExpressionUUID->"21a11165-305e-4bfe-870a-d5c273b8ece7"], +Cell[CellGroupData[{ +Cell[1901693, 43088, 231, 4, 24, "Print",ExpressionUUID->"613a8a09-fc67-4aff-b41a-5320f749bccb"], +Cell[1901927, 43094, 232, 4, 24, "Print",ExpressionUUID->"e6f01854-c877-498f-afdd-ab1736736ae8"] +}, Open ]], +Cell[1902174, 43101, 1312, 34, 90, "Output",ExpressionUUID->"3c47700c-4aca-4daf-8486-88436a03775f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1903523, 43140, 2719, 64, 267, "Input",ExpressionUUID->"ca5a370a-5325-41fb-8010-91740d000c28"], +Cell[1906245, 43206, 47262, 827, 557, "Output",ExpressionUUID->"86fc5434-8aa0-4ea6-9520-cbca57405bd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1953544, 44038, 734, 19, 30, "Input",ExpressionUUID->"ba8ccb90-a1d2-4ffe-8841-6d3174e348d9"], +Cell[CellGroupData[{ +Cell[1954303, 44061, 210, 4, 24, "Print",ExpressionUUID->"570d58c1-2e52-4442-a079-7e2562f2146e"], +Cell[1954516, 44067, 208, 4, 24, "Print",ExpressionUUID->"c256b8fd-681d-4d1b-a7cd-4f2280e7c5ec"], +Cell[1954727, 44073, 208, 4, 24, "Print",ExpressionUUID->"ab8dee56-8eb3-4c98-b2a7-2876ddb5be48"], +Cell[1954938, 44079, 208, 4, 24, "Print",ExpressionUUID->"2bb7bb29-7968-48e6-8094-29bcef8f5f17"], +Cell[1955149, 44085, 208, 4, 24, "Print",ExpressionUUID->"f3c1d06a-801e-465e-b617-47e5b94bad05"], +Cell[1955360, 44091, 210, 4, 24, "Print",ExpressionUUID->"3b3d9bcc-d1b4-48bd-b4eb-c708a0e02832"] +}, Open ]], +Cell[1955585, 44098, 1297, 34, 90, "Output",ExpressionUUID->"f60b3e63-44d5-4ff3-bb04-a4ca4360991a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[1956919, 44137, 2576, 62, 267, "Input",ExpressionUUID->"0008a08e-530f-4878-b439-9e439d096468"], +Cell[1959498, 44201, 47205, 827, 557, "Output",ExpressionUUID->"cb663b7f-b122-4e24-a161-40b503d4448c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2006740, 45033, 770, 20, 30, "Input",ExpressionUUID->"38e7d800-72ee-4896-9f66-39d8e6033ada"], +Cell[CellGroupData[{ +Cell[2007535, 45057, 208, 4, 24, "Print",ExpressionUUID->"d8f045f1-3d61-4442-9f8f-35451aae111a"], +Cell[2007746, 45063, 208, 4, 24, "Print",ExpressionUUID->"aa436b54-c8cb-43cc-ad01-14c86d436777"], +Cell[2007957, 45069, 210, 4, 24, "Print",ExpressionUUID->"40b1c844-ad7e-4993-a20a-c6023c3a2f90"], +Cell[2008170, 45075, 208, 4, 24, "Print",ExpressionUUID->"f4cbb649-3396-4b4e-a959-63a304ccbc40"] +}, Open ]], +Cell[2008393, 45082, 972, 26, 89, "Output",ExpressionUUID->"364cdb09-6123-4ac7-a09e-5d6976c35f08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2009402, 45113, 2573, 62, 267, "Input",ExpressionUUID->"27d3532f-3af3-4ac2-992c-883efc0fab60"], +Cell[2011978, 45177, 46612, 817, 561, "Output",ExpressionUUID->"b8fae359-03fd-44c4-9d08-043da3a5f40a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2058627, 45999, 825, 22, 30, "Input",ExpressionUUID->"aee6ce9c-64c5-412b-a992-613b4555e6f8"], +Cell[2059455, 46023, 989, 26, 89, "Output",ExpressionUUID->"a94626d4-56b9-4ac8-9589-2d61490a47fb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2060481, 46054, 2599, 62, 267, "Input",ExpressionUUID->"8372cbd3-cb8c-4b09-985b-36e8530aa9b4"], +Cell[2063083, 46118, 46684, 820, 561, "Output",ExpressionUUID->"7455b9e3-f15e-44a3-92fb-1d5e599e6dba"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[6365320, 145248, 489, 13, 54, "Section",ExpressionUUID->"c3f7836b-ef69-449f-a764-40f796968d09"], +Cell[2109816, 46944, 225, 4, 38, "Subsection",ExpressionUUID->"8269b41a-f272-4851-a834-80bb5ffbc6db"], +Cell[2110044, 46950, 457, 11, 89, "Input",ExpressionUUID->"88cd3b93-e20f-4d40-acb9-79c8fcf5fc0c", + InitializationCell->True], +Cell[2110504, 46963, 1512, 29, 215, "Input",ExpressionUUID->"18017cba-56ae-49a2-a9a9-2c943ad08345", + InitializationCell->True], Cell[CellGroupData[{ -Cell[6365834, 145265, 1978, 49, 220, "Input",ExpressionUUID->"6e6f9c54-d587-4f7e-82ce-8a2a1674093c"], +Cell[2112041, 46996, 852, 21, 30, "Input",ExpressionUUID->"8b9ec5e9-0eab-4a18-8780-a3bd812014df"], Cell[CellGroupData[{ -Cell[6367837, 145318, 526, 13, 24, "Print",ExpressionUUID->"5e3a5cc1-f1f4-4d98-b857-36ec726f46d2"], -Cell[6368366, 145333, 311, 5, 24, "Print",ExpressionUUID->"addd89e4-4157-4889-8558-52aa11aaadb9"], -Cell[6368680, 145340, 998, 20, 24, "Print",ExpressionUUID->"7c604507-cd61-4869-b68d-38ba1e10a5f2"], -Cell[6369681, 145362, 464, 10, 24, "Print",ExpressionUUID->"f1693c80-c1ee-4d0a-bcd3-f8d1b4d1217e"], -Cell[6370148, 145374, 283, 5, 24, "Print",ExpressionUUID->"db309a48-df26-43b6-a704-7e24d69eea55"], -Cell[6370434, 145381, 311, 5, 24, "Print",ExpressionUUID->"642aa099-ba0d-4804-8992-38b0351fd46a"], -Cell[6370748, 145388, 536, 13, 24, "Print",ExpressionUUID->"b66ba048-83a0-4204-ac08-880e06f42f3f"], -Cell[6371287, 145403, 651, 16, 24, "Print",ExpressionUUID->"a95d66cd-8f22-4fa2-9500-044ed5d77fda"], -Cell[6371941, 145421, 289, 5, 24, "Print",ExpressionUUID->"9a6035f1-1667-4e5b-bb07-3c9901af1ef2"], -Cell[6372233, 145428, 3845, 109, 40, "Print",ExpressionUUID->"8b8007e9-201c-4d11-a8a9-686a16e78048"], -Cell[6376081, 145539, 419, 9, 24, "Print",ExpressionUUID->"03864254-0451-433f-920f-86e9e10bfe0f"] +Cell[2112918, 47021, 256, 5, 24, "Print",ExpressionUUID->"60387b6d-9ef3-4b77-b028-afc02e58eef9"], +Cell[2113177, 47028, 256, 5, 24, "Print",ExpressionUUID->"044283f8-797b-43f5-aba3-a8ffa3da387b"] }, Open ]], -Cell[6376515, 145551, 286, 5, 34, "Output",ExpressionUUID->"ac3fe2ef-fbeb-4dd3-8c35-05b7056f958e"] +Cell[2113448, 47036, 1511, 40, 128, "Output",ExpressionUUID->"702b3f60-d4e7-4bcb-bd9b-7a790b9d33da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2114996, 47081, 2528, 55, 178, "Input",ExpressionUUID->"48581ce3-6839-48b4-9d58-901ddde6278f"], +Cell[2117527, 47138, 27108, 481, 553, "Output",ExpressionUUID->"17c44728-e2f0-4f0f-9abe-218b65fefc29"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2144672, 47624, 799, 20, 30, "Input",ExpressionUUID->"fa5f3b19-0a3e-435f-969e-19d95344f59b"], +Cell[CellGroupData[{ +Cell[2145496, 47648, 232, 4, 24, "Print",ExpressionUUID->"1f4e5e19-5919-4b84-9529-cee980f186e6"], +Cell[2145731, 47654, 232, 4, 24, "Print",ExpressionUUID->"8d06ead0-d755-422c-b912-348205fdb7ac"], +Cell[2145966, 47660, 232, 4, 24, "Print",ExpressionUUID->"42ba2018-e80c-48f0-98ad-6c74118ca58c"], +Cell[2146201, 47666, 234, 4, 24, "Print",ExpressionUUID->"2e5da674-1dfc-48d5-bf3a-d4d79d1efc61"], +Cell[2146438, 47672, 232, 4, 24, "Print",ExpressionUUID->"7434c54b-a5f4-4349-bdbd-08c67d13aef0"], +Cell[2146673, 47678, 232, 4, 24, "Print",ExpressionUUID->"dabe01b7-9934-466e-9d49-07f6d6bf20b4"] +}, Open ]], +Cell[2146920, 47685, 1562, 43, 128, "Output",ExpressionUUID->"d6729306-e9be-4964-8ede-5fdca86208f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2148519, 47733, 2287, 52, 178, "Input",ExpressionUUID->"1073273a-23bd-4ed6-abbc-d3c68e87d64a"], +Cell[2150809, 47787, 26993, 483, 550, "Output",ExpressionUUID->"4c29aa1d-d1e7-48af-884e-4aead66f9af1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2177839, 48275, 835, 21, 30, "Input",ExpressionUUID->"c2dc537e-2770-4f8e-be69-ad9543151088"], +Cell[CellGroupData[{ +Cell[2178699, 48300, 230, 4, 24, "Print",ExpressionUUID->"b074916e-0a30-4a0d-8fe3-bac9705512f2"], +Cell[2178932, 48306, 232, 4, 24, "Print",ExpressionUUID->"2d85093b-5f3f-41e5-b36b-d9238e5cdcf0"], +Cell[2179167, 48312, 232, 4, 24, "Print",ExpressionUUID->"ed159590-54f8-411e-8a29-a5e9005155e1"], +Cell[2179402, 48318, 230, 4, 24, "Print",ExpressionUUID->"b54a4649-88ab-4fb5-9ec3-86dce8403aca"] +}, Open ]], +Cell[2179647, 48325, 1232, 34, 89, "Output",ExpressionUUID->"c26e2aff-f503-4d72-94a2-60ee7688b46a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2180916, 48364, 2274, 51, 178, "Input",ExpressionUUID->"5b5e3945-6558-4860-a6f2-14a98efd1156"], +Cell[2183193, 48417, 26431, 473, 544, "Output",ExpressionUUID->"7f06ee2b-c22b-486e-8ae6-ff2db02846db"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2209661, 48895, 890, 23, 30, "Input",ExpressionUUID->"7e121864-bd3d-44f6-acdc-2897edabd6b5"], +Cell[2210554, 48920, 1221, 33, 89, "Output",ExpressionUUID->"c8b05a64-ff0f-442a-85b3-9a964cb19a15"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2211812, 48958, 2303, 52, 178, "Input",ExpressionUUID->"fb85dfa6-3ad2-48b6-9491-82c21ef7aef9"], +Cell[2214118, 49012, 26522, 476, 544, "Output",ExpressionUUID->"f19f35d3-b47b-42d7-8c55-b5093aa9b4ba"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[6376850, 145562, 493, 13, 54, "Section",ExpressionUUID->"d222bfdb-18a2-40fa-b20e-46d7225b4526"], +Cell[2240689, 49494, 264, 4, 38, "Subsection",ExpressionUUID->"687d57f7-d496-4349-8cce-d7d15df9582c"], +Cell[2240956, 49500, 457, 11, 89, "Input",ExpressionUUID->"11d26b23-4171-43d7-b02b-d51cb2cb0fc7", + InitializationCell->True], +Cell[2241416, 49513, 1512, 29, 215, "Input",ExpressionUUID->"de403758-4969-4c4c-8137-4dd647f401c0", + InitializationCell->True], Cell[CellGroupData[{ -Cell[6377368, 145579, 2779, 66, 304, "Input",ExpressionUUID->"99b22901-8052-4beb-b83b-e0ff96b1b004"], +Cell[2242953, 49546, 883, 21, 30, "Input",ExpressionUUID->"b3ff3c52-1458-4795-a0e4-d3fdebf840e0"], Cell[CellGroupData[{ -Cell[6380172, 145649, 508, 13, 24, "Print",ExpressionUUID->"2ca746e8-24ce-4918-8d78-40916f7f6745"], -Cell[6380683, 145664, 293, 5, 24, "Print",ExpressionUUID->"2f24b865-fcb2-42a6-98a7-3cca2eee44f1"], -Cell[6380979, 145671, 1404, 27, 44, "Print",ExpressionUUID->"88e56c0f-72d2-467d-98b6-82eaf5962127"], -Cell[6382386, 145700, 441, 10, 24, "Print",ExpressionUUID->"e92aeb4e-8d9b-4d0f-b984-7de5191c87df"], -Cell[6382830, 145712, 263, 5, 24, "Print",ExpressionUUID->"2f3345d0-0256-46c7-a52e-faa62b36a628"], -Cell[6383096, 145719, 291, 5, 24, "Print",ExpressionUUID->"fdb2234f-696f-4918-aee1-bcf5de099764"], -Cell[6383390, 145726, 516, 13, 24, "Print",ExpressionUUID->"96adb2ea-ca70-44f3-858b-38915d08b596"] +Cell[2243861, 49571, 278, 5, 24, "Print",ExpressionUUID->"03883ff7-8d07-4810-bd6b-e3cfc670e779"], +Cell[2244142, 49578, 280, 5, 24, "Print",ExpressionUUID->"24456c49-7b38-4190-ba0d-d4886f087143"] }, Open ]], -Cell[6383921, 145742, 229, 4, 34, "Output",ExpressionUUID->"0b56c095-6bd2-4bec-84bd-acdfc8864bc0"] +Cell[2244437, 49586, 949, 27, 51, "Output",ExpressionUUID->"92f366e3-bdb5-40ad-91e4-a689def9959a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2245423, 49618, 1635, 34, 136, "Input",ExpressionUUID->"6204c168-99a5-4bda-85d8-6681408f9b22"], +Cell[2247061, 49654, 23322, 417, 552, "Output",ExpressionUUID->"2400bcb8-b5ba-48ce-ae75-8a3d5cd68f7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2270420, 50076, 837, 21, 30, "Input",ExpressionUUID->"15590110-d975-42e2-951c-a5fc6c69d0e2"], +Cell[CellGroupData[{ +Cell[2271282, 50101, 257, 5, 24, "Print",ExpressionUUID->"ba9452c1-5c8b-4e78-8476-8e3d40155d80"], +Cell[2271542, 50108, 257, 5, 24, "Print",ExpressionUUID->"f2c03d9f-7f50-410a-ad41-220c27b417c8"], +Cell[2271802, 50115, 259, 5, 24, "Print",ExpressionUUID->"bd8f94a9-9f43-4789-8e7a-adb6c2436b90"], +Cell[2272064, 50122, 259, 5, 24, "Print",ExpressionUUID->"8f05967c-96e9-41c5-a762-4ce4d704db0d"], +Cell[2272326, 50129, 256, 5, 24, "Print",ExpressionUUID->"40b2bf1c-1a15-41ec-b0d2-cdac3aaf633c"], +Cell[2272585, 50136, 257, 5, 24, "Print",ExpressionUUID->"fc39d8e5-cf98-41ad-ab3c-c4541229bd72"] +}, Open ]], +Cell[2272857, 50144, 927, 27, 51, "Output",ExpressionUUID->"d911db59-6e12-4a50-b5e5-8261b9cf96dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2273821, 50176, 1361, 30, 136, "Input",ExpressionUUID->"b683ef0e-b64c-4227-ad21-eb61c59cf049"], +Cell[2275185, 50208, 23195, 416, 552, "Output",ExpressionUUID->"66b121a6-3944-428f-94a1-1550fc618c89"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2298417, 50629, 843, 21, 30, "Input",ExpressionUUID->"1310f54e-de5b-4d04-9e71-532e5aa67b9b"], +Cell[CellGroupData[{ +Cell[2299285, 50654, 230, 4, 24, "Print",ExpressionUUID->"780a3e46-a8e0-4815-ac08-5b551dbc8f58"], +Cell[2299518, 50660, 232, 4, 24, "Print",ExpressionUUID->"021688d1-b3a8-4e0d-9882-938e1b15dae3"], +Cell[2299753, 50666, 232, 4, 24, "Print",ExpressionUUID->"a9c09a47-185d-48a1-b56e-7cc4edd1e0ff"], +Cell[2299988, 50672, 230, 4, 24, "Print",ExpressionUUID->"d441aeb0-709b-4a50-a530-68a13f71f074"] +}, Open ]], +Cell[2300233, 50679, 1232, 34, 89, "Output",ExpressionUUID->"5a63b146-2dfc-44f0-a7ce-31a020e3abb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2301502, 50718, 1384, 31, 136, "Input",ExpressionUUID->"cce0bc92-1702-464f-b2ac-0e50e8905849"], +Cell[2302889, 50751, 26431, 473, 544, "Output",ExpressionUUID->"f4ef393b-2df9-429f-91b8-5fa6a34ed14f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2329357, 51229, 922, 23, 30, "Input",ExpressionUUID->"62ee27e5-5c04-43ec-8658-ef2ab0724ebf"], +Cell[2330282, 51254, 720, 21, 51, "Output",ExpressionUUID->"a393d59e-8ec5-4ff4-a345-4e5840307cb9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[2331039, 51280, 1413, 31, 136, "Input",ExpressionUUID->"d306e598-7ab1-4996-b5f2-a4d7afb6887b"], +Cell[2332455, 51313, 22970, 413, 545, "Output",ExpressionUUID->"313c2d5d-5908-4c54-9ecc-5f5e7abf0589"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[6384199, 145752, 155, 3, 53, "Section",ExpressionUUID->"c94fd007-ac47-410b-9d98-ce13d9f96f10"], +Cell[2355474, 51732, 211, 4, 38, "Subsection",ExpressionUUID->"186fe1e9-0765-40bf-94cc-52dba7c5845a"], Cell[CellGroupData[{ -Cell[6384379, 145759, 2125, 49, 199, "Input",ExpressionUUID->"585df89f-5bed-4ca5-942e-56f86e220dc9"], +Cell[2355710, 51740, 160, 3, 45, "Subsubsection",ExpressionUUID->"cee25638-8915-4b5b-907e-168e6556a5d6"], +Cell[2355873, 51745, 477, 11, 89, "Input",ExpressionUUID->"c1653e8d-0575-4801-bc8f-798d7044242f", + InitializationCell->True], +Cell[2356353, 51758, 1913, 39, 278, "Input",ExpressionUUID->"9a7e4774-dffc-448a-afaa-994d57f46dce", + InitializationCell->True] +}, Closed]], Cell[CellGroupData[{ -Cell[6386529, 145812, 667, 15, 24, "Print",ExpressionUUID->"2ddf1bb7-b178-4253-994f-7eeb61209392"], -Cell[6387199, 145829, 452, 7, 24, "Print",ExpressionUUID->"6fdde9e9-c53d-47cc-b35b-db30f00f046e"], -Cell[6387654, 145838, 1089, 22, 24, "Print",ExpressionUUID->"07973eb5-4dde-42f5-bf1c-e864619b15d8"], -Cell[6388746, 145862, 603, 12, 24, "Print",ExpressionUUID->"f2fdfda7-4830-4a25-8b1e-906ff3d66e8e"], -Cell[6389352, 145876, 424, 7, 24, "Print",ExpressionUUID->"20044625-0dc5-46cb-8db2-8dd848867c05"], -Cell[6389779, 145885, 452, 7, 24, "Print",ExpressionUUID->"37164918-7369-4b24-ae73-b51261613e6f"], -Cell[6390234, 145894, 675, 15, 24, "Print",ExpressionUUID->"24d9fe3c-d775-4622-b821-630a5cab33dc"] +Cell[2358303, 51802, 438, 9, 36, "Subsubsection",ExpressionUUID->"11ac2ed8-d967-4fcf-b9f7-758d64c8bc48"], +Cell[CellGroupData[{ +Cell[2358766, 51815, 17525, 398, 684, "Input",ExpressionUUID->"bf9ab6e9-fc47-4bf8-afc4-a9cee2b99927"], +Cell[2376294, 52215, 56362, 1031, 70, "Output",ExpressionUUID->"138d9526-63bf-4a15-946d-05470d404203"], +Cell[2432659, 53248, 56299, 1029, 70, "Output",ExpressionUUID->"1052ecac-c163-49fa-806c-076649f4007b"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[2489007, 54283, 487, 10, 36, "Subsubsection",ExpressionUUID->"413d3c60-6824-4d98-b82f-9a09fbdb0fde"], +Cell[CellGroupData[{ +Cell[2489519, 54297, 17669, 401, 642, "Input",ExpressionUUID->"8e953787-c4c5-4de0-b480-fbf8fa998bbd"], +Cell[2507191, 54700, 57319, 1045, 70, "Output",ExpressionUUID->"750382e8-51fd-473c-a806-38e201090766"], +Cell[2564513, 55747, 88453, 1736, 70, "Output",ExpressionUUID->"17881f48-6865-4f25-b1d8-ecf285821c63"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[2653015, 57489, 533, 10, 36, "Subsubsection",ExpressionUUID->"92d2f700-f8f3-45b4-8a7e-50de33dd2e59"], +Cell[CellGroupData[{ +Cell[2653573, 57503, 17532, 397, 642, "Input",ExpressionUUID->"a73c2ca3-ad43-47af-b7c5-6f87de87de78"], +Cell[2671108, 57902, 56843, 1036, 70, "Output",ExpressionUUID->"f844991f-ec4b-418c-a878-c249c9af190a"], +Cell[2727954, 58940, 88037, 1732, 70, "Output",ExpressionUUID->"420c0737-5709-4c71-a46e-2552029125bc"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[2816040, 60678, 582, 11, 36, "Subsubsection",ExpressionUUID->"195c818f-6701-4201-abc7-245fba5f48d8"], +Cell[CellGroupData[{ +Cell[2816647, 60693, 20702, 466, 936, "Input",ExpressionUUID->"b45f90a0-be1b-4170-a5d1-05144cfce001"], +Cell[2837352, 61161, 217173, 3977, 587, "Output",ExpressionUUID->"08f84c1e-8cd9-473b-9650-40e555696b2c"], +Cell[3054528, 65140, 88192, 1730, 587, "Output",ExpressionUUID->"59061b71-4c23-4546-a38a-ec46dfb79bfa"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3142769, 66876, 680, 12, 36, "Subsubsection",ExpressionUUID->"45ae8062-49d4-4e88-a93d-b407c3705e60"], +Cell[CellGroupData[{ +Cell[3143474, 66892, 17535, 398, 642, "Input",ExpressionUUID->"4d352f26-b8b8-404e-80fe-80c6db32a358"], +Cell[3161012, 67292, 57261, 1042, 70, "Output",ExpressionUUID->"fc685166-f595-46c8-ad46-decb8c1d0109"], +Cell[3218276, 68336, 57182, 1041, 70, "Output",ExpressionUUID->"764ee338-0370-4618-8ccc-af3b45873a44"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3275507, 69383, 633, 12, 36, "Subsubsection",ExpressionUUID->"5ddfab41-d0d6-4afe-a1fa-a82f3ff340b0"], +Cell[CellGroupData[{ +Cell[3276165, 69399, 17525, 398, 642, "Input",ExpressionUUID->"1db7421b-8508-433c-be7a-cb346d8e351a"], +Cell[3293693, 69799, 56778, 1035, 70, "Output",ExpressionUUID->"12446b73-cb35-406b-bd67-8e5de20393b5"], +Cell[3350474, 70836, 56724, 1037, 70, "Output",ExpressionUUID->"6a99ecd0-5c0c-4c10-a728-3ea1686dbaf0"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3407259, 71880, 211, 4, 38, "Subsection",ExpressionUUID->"ebd9d2d3-8578-4e88-9c33-be9e22161131"], +Cell[CellGroupData[{ +Cell[3407495, 71888, 160, 3, 45, "Subsubsection",ExpressionUUID->"e78b4e95-2b4d-4d82-99c5-9be6f114a037"], +Cell[3407658, 71893, 481, 11, 89, "Input",ExpressionUUID->"ff395d89-6534-42e4-9d67-65463ac7c5cb", + InitializationCell->True], +Cell[3408142, 71906, 1734, 36, 278, "Input",ExpressionUUID->"cf0e8cee-80b4-479d-a37e-48ee03d75c07", + InitializationCell->True] +}, Closed]], +Cell[CellGroupData[{ +Cell[3409913, 71947, 417, 9, 36, "Subsubsection",ExpressionUUID->"32a07df2-016c-406d-b6c3-c8dd30eaeac9"], +Cell[3410333, 71958, 20264, 452, 1732, "Input",ExpressionUUID->"13b97149-b35f-46e5-bbb1-d48eb33914d3"], +Cell[CellGroupData[{ +Cell[3430622, 72414, 8072, 186, 445, "Input",ExpressionUUID->"d9806a2e-7e2d-4a27-8f06-ae6d207772c2"], +Cell[3438697, 72602, 49676, 876, 70, "Output",ExpressionUUID->"1106509f-4d78-43b8-ae6d-4e5d26bfb2ce"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3488422, 73484, 369, 9, 36, "Subsubsection",ExpressionUUID->"de9642f0-041a-4781-a2cf-c4a5f93f0643"], +Cell[3488794, 73495, 20236, 451, 1732, "Input",ExpressionUUID->"c604e46f-e6d3-4ede-9768-2c6c9d0b50b7"], +Cell[CellGroupData[{ +Cell[3509055, 73950, 8043, 186, 445, "Input",ExpressionUUID->"0a87322a-a4f5-4e50-a2de-5bae250c08f6"], +Cell[3517101, 74138, 48755, 864, 70, "Output",ExpressionUUID->"c7f03a58-718e-4132-bb8b-7254bdca5b79"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3565905, 75008, 415, 9, 36, "Subsubsection",ExpressionUUID->"a01bea1f-79ff-4b5a-921a-f4ae146596ad"], +Cell[3566323, 75019, 20261, 452, 1732, "Input",ExpressionUUID->"3ad5e18f-5114-4bec-8738-af98eeee5bd0"], +Cell[CellGroupData[{ +Cell[3586609, 75475, 7944, 184, 424, "Input",ExpressionUUID->"1ce2bc36-b9f5-4e67-b967-f5bea059c430"], +Cell[3594556, 75661, 47007, 836, 70, "Output",ExpressionUUID->"0cf16407-b069-4c8a-9410-8248df04ca6f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3641612, 76503, 292, 7, 36, "Subsubsection",ExpressionUUID->"fbabb15d-71a9-4712-9389-b2684fdc4557"], +Cell[3641907, 76512, 20337, 453, 1732, "Input",ExpressionUUID->"b977b9c4-749d-4dd0-821c-842a6d29c987"], +Cell[CellGroupData[{ +Cell[3662269, 76969, 10730, 247, 676, "Input",ExpressionUUID->"cdf7b4c5-8db6-4927-8a05-41e9c98b3234"], +Cell[3673002, 77218, 220861, 4050, 578, "Output",ExpressionUUID->"319e6d1a-eed9-45d3-bb65-e358d97a236f"] +}, Open ]] }, Open ]], -Cell[6390924, 145912, 5340, 161, 68, "Output",ExpressionUUID->"125ccf75-c6b2-4021-a8a5-1bb0476b7b6d"] +Cell[CellGroupData[{ +Cell[3893912, 81274, 360, 9, 44, "Subsubsection",ExpressionUUID->"effe8284-761d-4d1a-9fbe-f4f50962e0ba"], +Cell[3894275, 81285, 20268, 452, 1732, "Input",ExpressionUUID->"e60e6860-d1d7-49c5-9d4e-58d04afc0146"], +Cell[CellGroupData[{ +Cell[3914568, 81741, 7836, 182, 424, "Input",ExpressionUUID->"85686966-02f1-413e-a0b9-93d89d422f30"], +Cell[3922407, 81925, 46670, 833, 70, "Output",ExpressionUUID->"7363e7a1-aeee-40e6-9427-181a1a022d97"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[3969126, 82764, 311, 8, 36, "Subsubsection",ExpressionUUID->"3beb515a-25a0-4fad-8948-c5d2adb5342f"], +Cell[3969440, 82774, 20236, 451, 1732, "Input",ExpressionUUID->"1f972af2-9518-4e12-a363-1cb335d81abc"], +Cell[CellGroupData[{ +Cell[3989701, 83229, 7834, 182, 424, "Input",ExpressionUUID->"534114c1-ac77-4578-8df6-3cee3db6bf96"], +Cell[3997538, 83413, 46763, 831, 70, "Output",ExpressionUUID->"b5ecd191-2298-41fa-9156-361b6eccedfd"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4044350, 84250, 362, 9, 36, "Subsubsection",ExpressionUUID->"08c22549-4d4c-43dc-ad2a-967b17fd7d06"], +Cell[4044715, 84261, 20264, 452, 1732, "Input",ExpressionUUID->"a82410e9-49b9-4f7b-905e-a67e59b1df71"], +Cell[CellGroupData[{ +Cell[4065004, 84717, 7833, 182, 424, "Input",ExpressionUUID->"1dabc1b6-3f32-401b-a52e-0f9b1eea6cd5"], +Cell[4072840, 84901, 47642, 847, 70, "Output",ExpressionUUID->"3ada0610-1a00-4ad0-8730-0fe88ceaef63"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4120543, 85755, 203, 4, 38, "Subsection",ExpressionUUID->"3133f70e-0463-457f-92c3-b2cd21d876ab"], +Cell[CellGroupData[{ +Cell[4120771, 85763, 216, 4, 45, "Subsubsection",ExpressionUUID->"4eb7e228-b1d8-4015-aa3d-d7cb336d5364"], +Cell[CellGroupData[{ +Cell[4121012, 85771, 782, 22, 30, "Input",ExpressionUUID->"84a0931a-b680-4c0b-89c4-a7e6d7a06d29"], +Cell[CellGroupData[{ +Cell[4121819, 85797, 612, 13, 24, "Print",ExpressionUUID->"a212475e-3064-4ead-a470-b6dd49838e85"], +Cell[4122434, 85812, 610, 13, 24, "Print",ExpressionUUID->"9d702fb1-3f4c-40db-9c7f-5d8b26ec5099"], +Cell[4123047, 85827, 615, 13, 24, "Print",ExpressionUUID->"3e48a845-b03e-40ff-9955-d2241a9475c1"], +Cell[4123665, 85842, 614, 13, 24, "Print",ExpressionUUID->"ed0a5059-1469-4168-b2ff-e7ea7f15c579"], +Cell[4124282, 85857, 612, 13, 24, "Print",ExpressionUUID->"ef2a3299-8ce6-475b-9245-4edd6b7d06ab"], +Cell[4124897, 85872, 618, 13, 24, "Print",ExpressionUUID->"a94fd392-957c-43f4-b4c6-008858f4045f"], +Cell[4125518, 85887, 621, 13, 24, "Print",ExpressionUUID->"04aa788e-90a6-4a4b-af1b-c401f67614fd"] +}, Open ]], +Cell[4126154, 85903, 31636, 899, 348, "Output",ExpressionUUID->"d244f0fa-1e4f-4890-98ce-798a27dbcfd4"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[4157839, 86808, 170, 3, 45, "Subsubsection",ExpressionUUID->"e62751b3-c3de-4e65-956b-69093f124aef"], +Cell[CellGroupData[{ +Cell[4158034, 86815, 778, 21, 30, "Input",ExpressionUUID->"822c8368-39b4-4f3e-aaa3-bc2f3ea400f5"], +Cell[4158815, 86838, 45466, 1084, 322, "Output",ExpressionUUID->"8fa5fdb1-9757-4228-bdd9-29859bb2cf3e"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[4204330, 87928, 173, 3, 45, "Subsubsection",ExpressionUUID->"8e56e7c7-2eb7-4f5c-a448-0cf25a7590d3"], +Cell[CellGroupData[{ +Cell[4204528, 87935, 788, 22, 30, "Input",ExpressionUUID->"b4696339-2454-4c45-a1ef-d1199c92743b"], +Cell[4205319, 87959, 49461, 1345, 362, "Output",ExpressionUUID->"d0fb1012-0706-42b0-b72f-644389bc9545"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[4254829, 89310, 208, 4, 45, "Subsubsection",ExpressionUUID->"21c7a26a-f117-444e-8eb4-7be714ed8674"], +Cell[CellGroupData[{ +Cell[4255062, 89318, 1890, 52, 52, "Input",ExpressionUUID->"54d9a0c4-1b37-437a-b61f-f2b419934be3"], +Cell[4256955, 89372, 226, 4, 24, "Print",ExpressionUUID->"357870f2-bb7b-4e57-9cac-fff5fbf3c443"], +Cell[4257184, 89378, 1448, 36, 75, "Output",ExpressionUUID->"9045bf78-1f79-4385-b6a4-c0e8cc702779"], +Cell[4258635, 89416, 226, 4, 24, "Print",ExpressionUUID->"1c7fa0b8-38fa-4468-b120-f568e48268b9"], +Cell[4258864, 89422, 1447, 36, 75, "Output",ExpressionUUID->"f43e7397-cb8a-4aa1-9f2f-cbcac754e128"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4260348, 89463, 2330, 52, 73, "Input",ExpressionUUID->"1b5da799-94ae-446c-a7b9-c79af683bd39"], +Cell[4262681, 89517, 2881, 68, 180, "Output",ExpressionUUID->"5231bd36-f280-499d-9361-1b4f4637fd5e"], +Cell[4265565, 89587, 2995, 71, 180, "Output",ExpressionUUID->"d194b46e-fed8-41dd-9507-120e97be3a70"], +Cell[4268563, 89660, 3034, 72, 180, "Output",ExpressionUUID->"b9ee7f82-cc0e-4618-a699-57ee13ebb525"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4271646, 89738, 157, 3, 37, "Subsubsection",ExpressionUUID->"9d22f205-74b2-4355-8479-7fee69c26392"], +Cell[CellGroupData[{ +Cell[4271828, 89745, 1151, 27, 79, "Input",ExpressionUUID->"6a632419-f085-421b-9b63-06c9c61778cb"], +Cell[4272982, 89774, 3919, 88, 70, "Output",ExpressionUUID->"cfaefba2-31ed-4474-bce6-4d05d72c0d79"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4276938, 89867, 1150, 27, 79, "Input",ExpressionUUID->"1b65d1c8-f7fa-4940-a8c0-263f26e2b724"], +Cell[4278091, 89896, 3696, 80, 70, "Output",ExpressionUUID->"373c7b90-346b-4322-9c86-be0659a77812"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4281848, 89983, 178, 3, 38, "Subsection",ExpressionUUID->"193f60ab-232d-47a5-8a41-c77bea81b52e"], +Cell[CellGroupData[{ +Cell[4282051, 89990, 216, 4, 45, "Subsubsection",ExpressionUUID->"6bdbddb3-b04e-4799-9f09-1c6781039ea5"], +Cell[4282270, 89996, 373, 9, 34, "Output",ExpressionUUID->"c2aeeb66-ccf5-41a7-abbf-6d1b2bb1c578"], +Cell[CellGroupData[{ +Cell[4282668, 90009, 757, 21, 30, "Input",ExpressionUUID->"035d9db1-eded-4ae9-bd96-553790110145"], +Cell[CellGroupData[{ +Cell[4283450, 90034, 586, 12, 24, "Print",ExpressionUUID->"bdbad776-3bd3-429c-aa8d-27887dd8d3bf"], +Cell[4284039, 90048, 585, 12, 24, "Print",ExpressionUUID->"796451e6-996e-42e7-ba21-779dc829114c"], +Cell[4284627, 90062, 584, 12, 24, "Print",ExpressionUUID->"4121c731-0345-4657-b7ce-c97c3e7a99c5"], +Cell[4285214, 90076, 587, 12, 24, "Print",ExpressionUUID->"dc3be35d-9c36-4b4c-b8b3-acdde75668fe"], +Cell[4285804, 90090, 587, 12, 24, "Print",ExpressionUUID->"5dfc06ae-4572-47b6-b652-017c42d8ae4e"], +Cell[4286394, 90104, 590, 12, 24, "Print",ExpressionUUID->"c9de25ae-47db-4ca3-90a3-d6e60550c78d"], +Cell[4286987, 90118, 597, 12, 24, "Print",ExpressionUUID->"55da60ae-1b72-4d38-9a6b-3ab5b361cf67"] +}, Open ]], +Cell[4287599, 90133, 32846, 897, 320, "Output",ExpressionUUID->"ee8e3ecd-dd98-4647-bbff-20eb7a1e0468"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4320482, 91035, 788, 22, 30, "Input",ExpressionUUID->"e300e8a3-26a2-4cef-af95-88b3bf9d617a"], +Cell[CellGroupData[{ +Cell[4321295, 91061, 491, 11, 24, "Print",ExpressionUUID->"ab61a277-0496-4aff-9c04-377bb5533ae8"], +Cell[4321789, 91074, 496, 11, 24, "Print",ExpressionUUID->"8194d069-81f8-441b-acee-167bb0159df5"], +Cell[4322288, 91087, 486, 10, 24, "Print",ExpressionUUID->"44329f44-1384-49a5-ab3f-fbd9a1fd5f14"], +Cell[4322777, 91099, 497, 11, 24, "Print",ExpressionUUID->"a2576699-64bb-4141-b9d4-43c7d266c579"], +Cell[4323277, 91112, 1514, 27, 49, "Print",ExpressionUUID->"9d97ea09-8296-446e-a7fd-d26e5a096b31"], +Cell[4324794, 91141, 1505, 27, 49, "Print",ExpressionUUID->"f102e357-73d8-4fda-a984-915ff652e565"], +Cell[4326302, 91170, 1479, 27, 49, "Print",ExpressionUUID->"e716e98d-f9b5-4cfc-8906-184f59917aca"] +}, Open ]], +Cell[4327796, 91200, 34496, 950, 354, "Output",ExpressionUUID->"c77bdead-28d0-4657-8b51-03bc97541b3b"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4362341, 92156, 170, 3, 37, "Subsubsection",ExpressionUUID->"ef842d39-ccee-4170-99b1-57b2e245b944"], +Cell[CellGroupData[{ +Cell[4362536, 92163, 756, 21, 30, "Input",ExpressionUUID->"74c9fad7-346c-4a05-87e6-b8b46f49e20d"], +Cell[4363295, 92186, 273, 5, 24, "Print",ExpressionUUID->"8ab98c62-f855-4fd8-a112-ee7dc3331b5f"], +Cell[4363571, 92193, 51191, 1385, 321, "Output",ExpressionUUID->"4b1f646c-c08e-468d-9d18-54dfda37a04f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4414811, 93584, 173, 3, 37, "Subsubsection",ExpressionUUID->"fe2d6761-5e2b-4eed-a1a0-8c67c1180f30"], +Cell[CellGroupData[{ +Cell[4415009, 93591, 766, 22, 30, "Input",ExpressionUUID->"e7dce949-889f-4e05-b5c7-3ed27d19b3cc"], +Cell[4415778, 93615, 225, 4, 24, "Print",ExpressionUUID->"9d49f56e-a2ff-4b2b-92de-eb83afbde10f"] +}, Open ]], +Cell[4416018, 93622, 54701, 1478, 339, InheritFromParent,ExpressionUUID->"543ba3fe-5e13-4e55-a386-51df4fc6dd5e"], +Cell[4470722, 95102, 9437, 218, 502, "Output",ExpressionUUID->"7549c8b2-e359-4b8b-96e3-2e51af54c936"] +}, Closed]], +Cell[CellGroupData[{ +Cell[4480196, 95325, 208, 4, 37, "Subsubsection",ExpressionUUID->"e50fbaaa-b7ea-4e0b-97ce-d964e1b76ae9"], +Cell[CellGroupData[{ +Cell[4480429, 95333, 1890, 52, 52, "Input",ExpressionUUID->"f790e697-950f-4ebc-b342-17c03c3951d3"], +Cell[4482322, 95387, 226, 4, 24, "Print",ExpressionUUID->"f057abdd-5f0d-49a4-9527-ae069a0eae21"], +Cell[4482551, 95393, 1448, 36, 75, "Output",ExpressionUUID->"18bc027a-5103-4682-9d0e-f0381f712af9"], +Cell[4484002, 95431, 226, 4, 24, "Print",ExpressionUUID->"f74afa99-37f2-4cab-96b4-e804a6f06fd0"], +Cell[4484231, 95437, 1447, 36, 75, "Output",ExpressionUUID->"9cc7a985-73cb-43b0-ad95-ec32d99f7caa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4485715, 95478, 2330, 52, 73, "Input",ExpressionUUID->"cc0986cf-b611-4002-9d62-b8a934d1992b"], +Cell[4488048, 95532, 2881, 68, 180, "Output",ExpressionUUID->"7c406f18-a662-45c6-b519-e8550fdd207a"], +Cell[4490932, 95602, 2995, 71, 180, "Output",ExpressionUUID->"5b1573bc-2217-4d7d-8f1c-11dc04d4cc56"], +Cell[4493930, 95675, 3034, 72, 180, "Output",ExpressionUUID->"c28bfbbf-aaba-4edf-86df-c936781415f2"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[4497013, 95753, 157, 3, 45, "Subsubsection",ExpressionUUID->"dbf537e7-1c5d-45dc-af40-a300842cd416"], +Cell[CellGroupData[{ +Cell[4497195, 95760, 1151, 27, 79, "Input",ExpressionUUID->"e88cb52c-6f10-4cf4-b957-9da7481b69a2"], +Cell[4498349, 95789, 3919, 88, 170, "Output",ExpressionUUID->"33eb60cc-17fb-4ff9-bab1-65bfa6d27c54"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4502305, 95882, 1150, 27, 79, "Input",ExpressionUUID->"d5ed830c-adee-47b5-bf67-27dc5192dd3b"], +Cell[4503458, 95911, 3696, 80, 170, "Output",ExpressionUUID->"bbf784c3-4234-4ee9-8c97-7ae551e60491"] +}, Open ]] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[4507215, 95998, 155, 3, 54, "Subsection",ExpressionUUID->"42370903-32f2-402b-ae7f-df3a3b6bf3aa"], +Cell[CellGroupData[{ +Cell[4507395, 96005, 216, 4, 45, "Subsubsection",ExpressionUUID->"d67b63c0-2997-4cc2-afde-fb7d5b4cd7ca"], +Cell[CellGroupData[{ +Cell[4507636, 96013, 783, 22, 30, "Input",ExpressionUUID->"07886d29-b0d2-4203-844b-226ec4b17d91"], +Cell[CellGroupData[{ +Cell[4508444, 96039, 611, 13, 24, "Print",ExpressionUUID->"d59fafe4-f5a9-4c84-95b2-91a38906727a"], +Cell[4509058, 96054, 614, 13, 24, "Print",ExpressionUUID->"f3b94a6f-1a45-4d52-8242-efe569938d77"], +Cell[4509675, 96069, 602, 12, 24, "Print",ExpressionUUID->"7ce5a040-47de-449d-b17d-717c4725b9d5"], +Cell[4510280, 96083, 611, 13, 24, "Print",ExpressionUUID->"c15852fb-e063-41fe-8950-5840255bf1a9"], +Cell[4510894, 96098, 612, 13, 24, "Print",ExpressionUUID->"8f23954d-c5e0-4b7c-b880-a5ff6fd542c5"], +Cell[4511509, 96113, 615, 13, 24, "Print",ExpressionUUID->"f1b8a57c-aedb-4550-bf62-b95c9baf0353"], +Cell[4512127, 96128, 625, 13, 24, "Print",ExpressionUUID->"179835ea-1d44-4cd3-a92a-abf80a6ab285"] +}, Open ]], +Cell[4512767, 96144, 32869, 897, 320, "Output",ExpressionUUID->"86c5434d-da73-419d-a6a9-95de1dc80d07"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4545673, 97046, 764, 22, 30, "Input",ExpressionUUID->"99b60524-2bd4-4af3-854d-a606353ad311"], +Cell[CellGroupData[{ +Cell[4546462, 97072, 495, 11, 24, "Print",ExpressionUUID->"505be5c5-bae3-484f-8db8-c035a2d34110"], +Cell[4546960, 97085, 494, 11, 24, "Print",ExpressionUUID->"b2880848-460e-45cb-97eb-ca4c7521a05a"], +Cell[4547457, 97098, 490, 11, 24, "Print",ExpressionUUID->"f3b8047d-b659-4fc7-8834-9ec726bf33a0"], +Cell[4547950, 97111, 497, 11, 24, "Print",ExpressionUUID->"ca8b130d-d7b9-47c5-bd18-b691aba66914"], +Cell[4548450, 97124, 496, 11, 24, "Print",ExpressionUUID->"0a9a94f9-fc35-4968-a432-d8385ac253da"], +Cell[4548949, 97137, 1521, 27, 49, "Print",ExpressionUUID->"af154a51-84b1-4f64-853e-56da54aafd68"], +Cell[4550473, 97166, 1496, 27, 49, "Print",ExpressionUUID->"c8b7b5b7-506f-4174-9050-1185036fd7fd"] +}, Open ]], +Cell[4551984, 97196, 34499, 950, 354, "Output",ExpressionUUID->"6fef3030-5bfa-4a85-98b7-8f51f5447cf7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4586520, 98151, 221, 4, 30, "Input",ExpressionUUID->"4be2bf33-1ac8-4f1b-be19-f1adb914c115"], +Cell[4586744, 98157, 1757, 41, 109, "Output",ExpressionUUID->"5faeae4e-d946-48c2-b654-add60236481e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4588538, 98203, 155, 3, 30, "Input",ExpressionUUID->"ed84f834-e5b9-4717-b9a1-fdd0d972a5ee"], +Cell[4588696, 98208, 1688, 40, 130, "Output",ExpressionUUID->"ef658689-3e70-4f47-beed-0cbc64ce8623"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4590433, 98254, 170, 3, 37, "Subsubsection",ExpressionUUID->"5a0bd14f-47bc-4798-ac36-524d4aa66090"], +Cell[CellGroupData[{ +Cell[4590628, 98261, 778, 21, 30, "Input",ExpressionUUID->"257ffd28-a349-4abe-8204-430b70383834"], +Cell[4591409, 98284, 50205, 1363, 328, "Output",ExpressionUUID->"fb02b613-1e73-4e63-be46-922c46da0961"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4641663, 99653, 173, 3, 37, "Subsubsection",ExpressionUUID->"94e9521a-e649-4518-9b87-6a982b53dec5"], +Cell[CellGroupData[{ +Cell[4641861, 99660, 788, 22, 30, "Input",ExpressionUUID->"e149e7c5-6e30-4aaa-a7a3-5a3a6482561b"], +Cell[4642652, 99684, 54201, 1465, 362, "Output",ExpressionUUID->"fd5348c8-f3c5-4b20-a7b8-e4f32a185785"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4696902, 101155, 208, 4, 37, "Subsubsection",ExpressionUUID->"5847ef0e-4049-4382-8ea4-65be4025111c"], +Cell[CellGroupData[{ +Cell[4697135, 101163, 1887, 52, 52, "Input",ExpressionUUID->"c930292b-453d-4619-8079-0b8d81db2441"], +Cell[4699025, 101217, 1467, 36, 75, "Output",ExpressionUUID->"1c9f69c1-93e0-44b4-beb4-bd0d95997419"], +Cell[4700495, 101255, 1467, 36, 75, "Output",ExpressionUUID->"3cada7df-3e13-499f-ba12-2e50c1af4e42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4701999, 101296, 2277, 52, 73, "Input",ExpressionUUID->"6f7dec74-0508-4874-ba13-128789629765"], +Cell[4704279, 101350, 2809, 67, 180, "Output",ExpressionUUID->"988d4a46-ba03-435b-8e08-397b5b9a1394"], +Cell[4707091, 101419, 2897, 70, 180, "Output",ExpressionUUID->"ad0ad0d6-66e4-4f57-b1c9-8682c6e87533"], +Cell[4709991, 101491, 2882, 69, 180, "Output",ExpressionUUID->"e499b502-a852-4451-9481-fea4ab0f61ee"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4712922, 101566, 157, 3, 37, "Subsubsection",ExpressionUUID->"77a47bfe-8aef-4a10-8e60-7a63ae4327d5"], +Cell[CellGroupData[{ +Cell[4713104, 101573, 1205, 28, 79, "Input",ExpressionUUID->"44d6b913-7f2e-4831-af20-e61204f96874"], +Cell[4714312, 101603, 3746, 89, 170, "Output",ExpressionUUID->"41081f83-994b-44f4-97b1-f6958dfcff42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4718095, 101697, 1202, 28, 79, "Input",ExpressionUUID->"bdb94f7c-09f3-4218-a4cc-bd08e4dbcec6"], +Cell[4719300, 101727, 3647, 83, 170, "Output",ExpressionUUID->"b4072aa6-1702-4c74-9a88-fd8724e86bf2"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4723008, 101817, 155, 3, 38, "Subsection",ExpressionUUID->"7d9ef6e9-0bfb-4368-b547-0e9fa6e2c3c0"], +Cell[CellGroupData[{ +Cell[4723188, 101824, 216, 4, 45, "Subsubsection",ExpressionUUID->"976a02a5-500e-44bc-b077-eeeb7119e02d"], +Cell[CellGroupData[{ +Cell[4723429, 101832, 805, 22, 30, "Input",ExpressionUUID->"83521985-a903-4df9-b078-ebe20ea0420d"], +Cell[CellGroupData[{ +Cell[4724259, 101858, 611, 13, 24, "Print",ExpressionUUID->"184674c0-3227-4d07-88c3-b269931f1b58"], +Cell[4724873, 101873, 612, 13, 24, "Print",ExpressionUUID->"355cec75-a3cc-44de-8444-cbad451aaa2c"], +Cell[4725488, 101888, 605, 12, 24, "Print",ExpressionUUID->"175b1e1b-e150-41cf-aaaa-4ae0383680ee"], +Cell[4726096, 101902, 612, 13, 24, "Print",ExpressionUUID->"6b7f30f0-64aa-429a-9899-3b8a8fb405b2"], +Cell[4726711, 101917, 612, 13, 24, "Print",ExpressionUUID->"f0c46788-33b2-47f1-9c4e-23b4401224a1"], +Cell[4727326, 101932, 616, 13, 24, "Print",ExpressionUUID->"13bedf4c-61d4-4660-8de2-29f534bcffbd"], +Cell[4727945, 101947, 622, 13, 24, "Print",ExpressionUUID->"9c385cb2-d103-4a87-b2ed-80de9d20ce35"] +}, Open ]], +Cell[4728582, 101963, 32868, 897, 320, "Output",ExpressionUUID->"df52a0f7-d313-4248-9c3c-2e0595aa5c9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4761487, 102865, 764, 22, 30, "Input",ExpressionUUID->"fc1041ba-59ae-4a3e-9f58-3fe7964f03bc"], +Cell[CellGroupData[{ +Cell[4762276, 102891, 495, 11, 24, "Print",ExpressionUUID->"e41aba88-a720-4e5a-a703-3465dbebc6b5"], +Cell[4762774, 102904, 498, 11, 24, "Print",ExpressionUUID->"b5d9cb80-3ccb-4e16-aa47-1411d65f3e8b"], +Cell[4763275, 102917, 491, 11, 24, "Print",ExpressionUUID->"6c2adf6e-9b59-4382-9016-4b8eca813ecd"], +Cell[4763769, 102930, 495, 11, 24, "Print",ExpressionUUID->"3a4d635b-48cc-47de-b609-c3416493a868"], +Cell[4764267, 102943, 495, 11, 24, "Print",ExpressionUUID->"5a403d7f-a6d6-41f0-a342-ca6b05e83904"], +Cell[4764765, 102956, 1520, 27, 49, "Print",ExpressionUUID->"4028ccc1-2b36-4305-80dc-5ed4151793e5"], +Cell[4766288, 102985, 1479, 27, 49, "Print",ExpressionUUID->"357044e1-127b-4144-9c6b-73d686b78a47"] +}, Open ]], +Cell[4767782, 103015, 34499, 950, 354, "Output",ExpressionUUID->"038ba58b-b2c1-4692-827e-0d509fc0ab2a"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4802330, 103971, 170, 3, 37, "Subsubsection",ExpressionUUID->"25e7bdd2-77a3-4e66-a7ea-48bd304fbafc"], +Cell[CellGroupData[{ +Cell[4802525, 103978, 778, 21, 30, "Input",ExpressionUUID->"a9cc9ddb-732a-49e2-a642-12500a14992c"], +Cell[4803306, 104001, 50167, 1363, 328, "Output",ExpressionUUID->"cb871bd3-687c-488f-8ce5-62cb62417d3a"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4853522, 105370, 173, 3, 37, "Subsubsection",ExpressionUUID->"626a8c69-01ba-466d-b193-84baab6da644"], +Cell[CellGroupData[{ +Cell[4853720, 105377, 788, 22, 30, "Input",ExpressionUUID->"9961ead0-d2f7-4818-9b08-79f5c2c7d7c1"], +Cell[4854511, 105401, 54222, 1467, 362, "Output",ExpressionUUID->"03372ccc-fef4-4956-bf43-9ce2a81bc070"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4908782, 106874, 180, 3, 37, "Subsubsection",ExpressionUUID->"4df1b145-e857-4aa7-b667-24540ec62f57"], +Cell[CellGroupData[{ +Cell[4908987, 106881, 1938, 53, 52, "Input",ExpressionUUID->"d3a2522e-fb40-40de-9057-68b6044ae581"], +Cell[4910928, 106936, 1446, 36, 75, "Output",ExpressionUUID->"bfe6bf99-fdee-43b4-ad02-8b262e5c181c"], +Cell[4912377, 106974, 1446, 36, 75, "Output",ExpressionUUID->"ad835dfc-8212-43f6-ad7f-6e2cd23d51e7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4913860, 107015, 2325, 52, 73, "Input",ExpressionUUID->"1e9a88a3-3198-4e61-a93e-cb4247ac0d84"], +Cell[4916188, 107069, 2816, 67, 180, "Output",ExpressionUUID->"65b58684-74d6-4971-a314-fb918f9c8977"], +Cell[4919007, 107138, 2881, 69, 180, "Output",ExpressionUUID->"39a5c48b-91e5-436f-9f0c-2cdec019430f"], +Cell[4921891, 107209, 2884, 69, 180, "Output",ExpressionUUID->"828f09be-c35f-4bf0-9144-2c7b981dfbce"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4924824, 107284, 157, 3, 37, "Subsubsection",ExpressionUUID->"f2ec675f-9e6f-47b9-90ae-bc739991beb9"], +Cell[CellGroupData[{ +Cell[4925006, 107291, 1253, 29, 79, "Input",ExpressionUUID->"34f4c02d-2490-412b-a905-f00f94f9222d"], +Cell[4926262, 107322, 3753, 89, 170, "Output",ExpressionUUID->"bf89a66d-44b7-46cb-8978-b38ab40ef8b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4930052, 107416, 1254, 29, 79, "Input",ExpressionUUID->"8aa8cbfa-070f-41f3-b966-b4bb1e908724"], +Cell[4931309, 107447, 3652, 82, 170, "Output",ExpressionUUID->"1b8c0260-16ba-4fa6-8d37-b311faf0cf04"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[4935022, 107536, 155, 3, 38, "Subsection",ExpressionUUID->"10dee545-9ea2-4d54-a10c-01566f0a04b3"], +Cell[CellGroupData[{ +Cell[4935202, 107543, 216, 4, 45, "Subsubsection",ExpressionUUID->"9cc312ec-50b9-4c82-b34c-99e9cf44ab5c"], +Cell[CellGroupData[{ +Cell[4935443, 107551, 807, 22, 30, "Input",ExpressionUUID->"f00ee4d0-c04a-4ae0-ab51-26f562e61488"], +Cell[CellGroupData[{ +Cell[4936275, 107577, 610, 13, 24, "Print",ExpressionUUID->"eaaba0ad-18a3-47e5-b0a8-0a2b25f0f4ef"], +Cell[4936888, 107592, 608, 13, 24, "Print",ExpressionUUID->"ad895181-feca-4d44-9b63-59803bcb8f9e"], +Cell[4937499, 107607, 604, 12, 24, "Print",ExpressionUUID->"48c766f9-49db-4e43-9138-a23f1c20ea44"], +Cell[4938106, 107621, 614, 13, 24, "Print",ExpressionUUID->"f98f4511-db67-44e3-8bc3-de21fc58904a"], +Cell[4938723, 107636, 610, 13, 24, "Print",ExpressionUUID->"62a52d4b-4f96-4a9d-963b-374ef61183b3"], +Cell[4939336, 107651, 617, 13, 24, "Print",ExpressionUUID->"31da60d2-b8e9-4588-b222-756db465d20f"], +Cell[4939956, 107666, 618, 13, 24, "Print",ExpressionUUID->"8e36f9d7-5794-455b-a7e1-9ebd31946dd9"] +}, Open ]], +Cell[4940589, 107682, 32880, 897, 320, "Output",ExpressionUUID->"4484f5da-93a9-4669-8e7a-7b96d2932b16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4973506, 108584, 790, 22, 30, "Input",ExpressionUUID->"8637174f-2bed-4b6e-b412-87c574135c4e"], +Cell[CellGroupData[{ +Cell[4974321, 108610, 495, 11, 24, "Print",ExpressionUUID->"845761a3-2ebd-4f48-8fcf-30ffcf3ed200"], +Cell[4974819, 108623, 495, 11, 24, "Print",ExpressionUUID->"d52f7f90-fa10-405b-81ee-648609260e75"], +Cell[4975317, 108636, 493, 11, 24, "Print",ExpressionUUID->"5ce5c1c7-a924-4230-9706-2ad37656a2a1"], +Cell[4975813, 108649, 496, 11, 24, "Print",ExpressionUUID->"4aa7f9a0-79e8-4ee1-9a5c-a40260568b7a"], +Cell[4976312, 108662, 490, 11, 24, "Print",ExpressionUUID->"3be8c090-fd3b-432f-8fe9-07e4daf61b59"], +Cell[4976805, 108675, 585, 13, 24, "Print",ExpressionUUID->"7dc4c001-90bc-414e-8641-21a3b098f673"], +Cell[4977393, 108690, 1480, 27, 49, "Print",ExpressionUUID->"a3779b2a-ff8d-4ab8-bdfe-24eb3e732dd0"] +}, Open ]], +Cell[4978888, 108720, 34501, 950, 354, "Output",ExpressionUUID->"c2e48686-d84b-40aa-a6e7-43f8e1f90a2e"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[5013438, 109676, 170, 3, 45, "Subsubsection",ExpressionUUID->"f42f398f-8030-4cda-b96b-b598bdf0276e"], +Cell[CellGroupData[{ +Cell[5013633, 109683, 778, 21, 30, "Input",ExpressionUUID->"fa8d08ee-23a6-4f5d-91eb-9369c26f3282"], +Cell[5014414, 109706, 50151, 1361, 328, "Output",ExpressionUUID->"d90c8f7e-4b43-457c-b94b-864b154460d0"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5064614, 111073, 173, 3, 37, "Subsubsection",ExpressionUUID->"9b6c8d14-883e-49f2-9ef2-9c197778dc98"], +Cell[CellGroupData[{ +Cell[5064812, 111080, 786, 22, 30, "Input",ExpressionUUID->"e313f84b-0e17-484d-97b9-305e3e1605de"], +Cell[5065601, 111104, 53210, 1442, 362, "Output",ExpressionUUID->"15f3f74b-2305-403b-9bc4-ae62e10ca162"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5118860, 112552, 180, 3, 37, "Subsubsection",ExpressionUUID->"ba44c0df-b791-4c75-b43e-e7f43efb0372"], +Cell[CellGroupData[{ +Cell[5119065, 112559, 1984, 53, 52, "Input",ExpressionUUID->"839cd3f9-5356-4da4-86bd-1ba33007e9d5"], +Cell[5121052, 112614, 1444, 36, 75, "Output",ExpressionUUID->"3ffaa64e-eb7f-4207-959d-a3ccb564bdaa"], +Cell[5122499, 112652, 1448, 36, 75, "Output",ExpressionUUID->"0ddba166-e1d3-4dae-bf0e-00593a251658"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5123984, 112693, 2325, 52, 73, "Input",ExpressionUUID->"a962e3e3-cd37-40fe-a824-d5543e9c2f64"], +Cell[5126312, 112747, 2815, 67, 180, "Output",ExpressionUUID->"7f15d46e-5443-4713-96c8-538a99017c19"], +Cell[5129130, 112816, 2887, 70, 180, "Output",ExpressionUUID->"879a4543-d85b-4673-8ccc-1e085ab03e55"], +Cell[5132020, 112888, 2883, 69, 180, "Output",ExpressionUUID->"6521f5a8-62c5-46c5-b403-b9560a490f2c"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5134952, 112963, 157, 3, 37, "Subsubsection",ExpressionUUID->"de89f8f8-ac45-4d67-90f8-27c0351be2bb"], +Cell[CellGroupData[{ +Cell[5135134, 112970, 1251, 29, 79, "Input",ExpressionUUID->"e6966386-981b-427f-a9a8-7f0271ff8111"], +Cell[5136388, 113001, 3751, 89, 70, "Output",ExpressionUUID->"b851ece0-0c87-4d1d-82a1-5aa2057efdb3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5140176, 113095, 1258, 29, 79, "Input",ExpressionUUID->"0786d112-11d8-49b5-8ffa-798415e37ce3"], +Cell[5141437, 113126, 3614, 81, 70, "Output",ExpressionUUID->"d8d6f3df-9bc5-4baf-81a6-8662cdba7308"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5145112, 113214, 155, 3, 38, "Subsection",ExpressionUUID->"1b6189ea-11df-4fa1-9011-09e99baa85f8"], +Cell[CellGroupData[{ +Cell[5145292, 113221, 216, 4, 45, "Subsubsection",ExpressionUUID->"6de3f65a-8d72-43a4-8960-333baea51c43"], +Cell[CellGroupData[{ +Cell[5145533, 113229, 805, 22, 30, "Input",ExpressionUUID->"8a548e7d-0e33-4efe-b098-de23dcb74299"], +Cell[CellGroupData[{ +Cell[5146363, 113255, 616, 13, 24, "Print",ExpressionUUID->"9f58d16b-908e-4efa-ba5e-95ffe830d69e"], +Cell[5146982, 113270, 614, 13, 24, "Print",ExpressionUUID->"13bfe50c-5610-4d12-a74a-5bcdb3047b82"], +Cell[5147599, 113285, 605, 12, 24, "Print",ExpressionUUID->"5d87058c-c9d4-48a6-95a3-4517d937ad70"], +Cell[5148207, 113299, 614, 13, 24, "Print",ExpressionUUID->"dfb2cb87-7a96-4fa2-b5fb-8ef1aaf9cf17"], +Cell[5148824, 113314, 606, 12, 24, "Print",ExpressionUUID->"5b076807-60da-493b-9d47-0ffaac0d18b0"], +Cell[5149433, 113328, 615, 13, 24, "Print",ExpressionUUID->"c4c685d7-ad65-4fc3-8e38-728307c57159"], +Cell[5150051, 113343, 621, 13, 24, "Print",ExpressionUUID->"0c54b5f8-c9bd-494c-b77b-0a34acd40464"] +}, Open ]], +Cell[5150687, 113359, 32881, 897, 320, "Output",ExpressionUUID->"11a6b235-18c5-41b3-a9a3-9ea101eababb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5183605, 114261, 766, 22, 30, "Input",ExpressionUUID->"2dcae7c9-03d1-4c56-a98a-e84f55c2d916"], +Cell[CellGroupData[{ +Cell[5184396, 114287, 495, 11, 24, "Print",ExpressionUUID->"64fd2ad6-4f35-4015-99c9-182852662600"], +Cell[5184894, 114300, 493, 11, 24, "Print",ExpressionUUID->"b31a9225-f103-4f86-ab22-35a58ba27925"], +Cell[5185390, 114313, 485, 10, 24, "Print",ExpressionUUID->"1639f8c2-8765-4820-be31-401916ac286c"], +Cell[5185878, 114325, 499, 11, 24, "Print",ExpressionUUID->"4800953c-3363-4110-a5cf-08480ffcdafa"], +Cell[5186380, 114338, 493, 11, 24, "Print",ExpressionUUID->"3c8ecf28-f74c-48e1-9fb4-a9875ca3783e"], +Cell[5186876, 114351, 580, 13, 24, "Print",ExpressionUUID->"f125f010-41b0-422c-a146-139081149b64"], +Cell[5187459, 114366, 1500, 27, 49, "Print",ExpressionUUID->"605388e8-cfb6-4b14-a536-5f700c2f4717"] +}, Open ]], +Cell[5188974, 114396, 34509, 950, 354, "Output",ExpressionUUID->"b2fad049-ca52-43bc-8393-6c20d6c88c59"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[5223532, 115352, 170, 3, 45, "Subsubsection",ExpressionUUID->"77c689b3-1216-4bc5-be9a-0282e0e20d6b"], +Cell[CellGroupData[{ +Cell[5223727, 115359, 780, 21, 30, "Input",ExpressionUUID->"0f847322-87bb-4864-8d5f-7fbbae70015c"], +Cell[5224510, 115382, 50174, 1361, 328, "Output",ExpressionUUID->"48f0a595-6f1a-434e-99e0-08361ebfd5ac"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5274733, 116749, 173, 3, 37, "Subsubsection",ExpressionUUID->"310ff81a-d396-4049-8e0e-3e6d0ee3cf86"], +Cell[CellGroupData[{ +Cell[5274931, 116756, 790, 22, 30, "Input",ExpressionUUID->"18ffe918-d86f-4df2-8850-0e7194c0cb22"], +Cell[5275724, 116780, 205, 4, 24, "Print",ExpressionUUID->"dc1032dd-8a74-458c-8768-d40a72b464e4"], +Cell[5275932, 116786, 53384, 1446, 362, "Output",ExpressionUUID->"cb5b4687-f97f-460e-9dd5-1eeadbe2d0cf"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5329365, 118238, 182, 3, 37, "Subsubsection",ExpressionUUID->"34d0eebf-6abe-44ed-922e-6e8112330344"], +Cell[CellGroupData[{ +Cell[5329572, 118245, 1986, 53, 52, "Input",ExpressionUUID->"e9be119a-e301-4813-a324-86f5e828776f"], +Cell[5331561, 118300, 1439, 36, 75, "Output",ExpressionUUID->"41393584-786d-4442-bae2-c5e0402e9049"], +Cell[5333003, 118338, 207, 4, 24, "Print",ExpressionUUID->"623dedd9-2acf-4320-bf13-3abfc8b41a2b"], +Cell[5333213, 118344, 1439, 36, 75, "Output",ExpressionUUID->"9409702d-7568-466d-bda9-b1677b85d17c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5334689, 118385, 2325, 52, 73, "Input",ExpressionUUID->"0ad63d9e-be68-41c6-811d-5606ce4631b3"], +Cell[5337017, 118439, 2840, 67, 180, "Output",ExpressionUUID->"8330cd97-976c-408c-8a4a-18834ea1397e"], +Cell[5339860, 118508, 2904, 69, 180, "Output",ExpressionUUID->"447d6b4b-cb8d-40b8-b39b-f0f5190c9b25"], +Cell[5342767, 118579, 2898, 68, 180, "Output",ExpressionUUID->"be45915d-474a-4253-b718-30031514ebaa"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5345714, 118653, 157, 3, 37, "Subsubsection",ExpressionUUID->"f6c5e247-741f-4386-b5e4-3711a97ecd43"], +Cell[CellGroupData[{ +Cell[5345896, 118660, 1251, 29, 79, "Input",ExpressionUUID->"00f53f62-2887-4b80-9770-7827aeac5ac0"], +Cell[5347150, 118691, 3772, 89, 70, "Output",ExpressionUUID->"0693179d-1972-45b0-a0b1-1b3d5619a554"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5350959, 118785, 1254, 29, 79, "Input",ExpressionUUID->"b150f975-1778-4968-9063-a03bb17a5135"], +Cell[5352216, 118816, 3593, 80, 70, "Output",ExpressionUUID->"44504046-897b-4f7c-a926-9267a14d12c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5355846, 118901, 197, 4, 30, "Input",ExpressionUUID->"074f9079-d23e-4f2d-aaf4-1bd3b8d0849e"], +Cell[5356046, 118907, 1723, 40, 70, "Output",ExpressionUUID->"c7e6aa51-61df-4683-8778-9df05cf3f942"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5357806, 118952, 156, 3, 30, "Input",ExpressionUUID->"d88c91b2-3fbd-4e67-8ef1-3d35987f3407"], +Cell[5357965, 118957, 1777, 41, 70, "Output",ExpressionUUID->"716a8dfc-05e9-4c96-b73a-9c377397a255"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5359779, 119003, 189, 3, 30, "Input",ExpressionUUID->"e10c9dc6-79c5-4cbc-afe6-3495641d6128"], +Cell[5359971, 119008, 942, 27, 70, "Output",ExpressionUUID->"e32b9fab-04ea-4ab3-b299-010bf04824d9"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5360974, 119042, 155, 3, 38, "Subsection",ExpressionUUID->"f77efbcc-735f-421e-bdc1-61fbd8989401"], +Cell[CellGroupData[{ +Cell[5361154, 119049, 216, 4, 45, "Subsubsection",ExpressionUUID->"754258d6-c568-4028-ac80-6416e83a482e"], +Cell[CellGroupData[{ +Cell[5361395, 119057, 805, 22, 30, "Input",ExpressionUUID->"d4751674-d14b-427f-93de-16dbf05ec9d6"], +Cell[CellGroupData[{ +Cell[5362225, 119083, 616, 13, 24, "Print",ExpressionUUID->"a4eaac6e-b223-4bc0-8932-c232eddbf326"], +Cell[5362844, 119098, 616, 13, 24, "Print",ExpressionUUID->"f8fe2e35-6aec-4e87-992c-facdb8bb6ecc"], +Cell[5363463, 119113, 610, 13, 24, "Print",ExpressionUUID->"59c38232-f896-4854-8296-62de26577291"], +Cell[5364076, 119128, 614, 13, 24, "Print",ExpressionUUID->"b892483f-ed80-498d-bd38-03f653bc3bf5"], +Cell[5364693, 119143, 608, 13, 24, "Print",ExpressionUUID->"5232e4ae-2ed9-4520-ac13-67ebd3335e9a"], +Cell[5365304, 119158, 615, 13, 24, "Print",ExpressionUUID->"979d18a6-c0be-41f4-b5ea-d16d47af69c9"], +Cell[5365922, 119173, 618, 13, 24, "Print",ExpressionUUID->"4cab7db7-ee9a-4208-80f4-cc053ee3b3fe"] +}, Open ]], +Cell[5366555, 119189, 32896, 897, 320, "Output",ExpressionUUID->"50508687-7064-4ec6-a6e5-4435d29b2314"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5399488, 120091, 790, 22, 30, "Input",ExpressionUUID->"0b223b3e-215b-440b-aedf-08c8c9fe2719"], +Cell[CellGroupData[{ +Cell[5400303, 120117, 498, 11, 24, "Print",ExpressionUUID->"7ae6e873-c8e6-47ab-bd70-c8ae7c417439"], +Cell[5400804, 120130, 494, 11, 24, "Print",ExpressionUUID->"5afe06cc-3060-4193-a660-444b670ed20c"], +Cell[5401301, 120143, 491, 11, 24, "Print",ExpressionUUID->"e35a3be4-967d-421b-8087-7b40553ef27e"], +Cell[5401795, 120156, 495, 11, 24, "Print",ExpressionUUID->"f4a72b96-6e1d-44f5-ab1c-ab729de019e5"], +Cell[5402293, 120169, 495, 11, 24, "Print",ExpressionUUID->"1e84571f-3b6d-467c-ac5e-64e0cbf7f5a3"], +Cell[5402791, 120182, 576, 12, 24, "Print",ExpressionUUID->"b6d12a62-9540-49ed-9d5b-71b11b76458d"], +Cell[5403370, 120196, 1503, 27, 49, "Print",ExpressionUUID->"4584c2a0-0ca2-479d-bf7d-edd4901e3021"] +}, Open ]], +Cell[5404888, 120226, 34544, 950, 354, "Output",ExpressionUUID->"fedf7df8-6ffe-430d-b604-275d9dd3e0ae"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[5439481, 121182, 170, 3, 45, "Subsubsection",ExpressionUUID->"12d78f77-5979-4f24-b869-ae76276bc6a0"], +Cell[CellGroupData[{ +Cell[5439676, 121189, 778, 21, 30, "Input",ExpressionUUID->"039a6157-eddf-4f4c-8817-2f06fb6421bb"], +Cell[5440457, 121212, 50185, 1361, 328, "Output",ExpressionUUID->"55d72b19-d4b2-4ca5-a051-5ef5894b920e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5490691, 122579, 173, 3, 37, "Subsubsection",ExpressionUUID->"56fe3828-06ff-47c0-b817-c5e4b34f41d7"], +Cell[CellGroupData[{ +Cell[5490889, 122586, 786, 22, 30, "Input",ExpressionUUID->"47befdf5-4e30-40ab-9da0-dcab6eca3e5c"], +Cell[5491678, 122610, 53389, 1446, 362, "Output",ExpressionUUID->"93593d07-67dc-4fbc-a10b-ba905509b4b9"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5545116, 124062, 182, 3, 37, "Subsubsection",ExpressionUUID->"ef12f0ff-1e8e-476f-9a7e-9a1d1afe1e52"], +Cell[CellGroupData[{ +Cell[5545323, 124069, 2035, 54, 52, "Input",ExpressionUUID->"c894d6ae-72d2-49e2-be16-676b029b9df8"], +Cell[5547361, 124125, 1468, 36, 75, "Output",ExpressionUUID->"994569e8-ae00-4367-a688-9892dd2efa7b"], +Cell[5548832, 124163, 1470, 36, 75, "Output",ExpressionUUID->"148e4bde-ff6e-4500-a964-d43dccb38933"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5550339, 124204, 2373, 53, 73, "Input",ExpressionUUID->"048d2a29-f857-4248-9c13-65449e87102e"], +Cell[5552715, 124259, 2827, 67, 180, "Output",ExpressionUUID->"12e3b0fb-7e98-495f-b71a-0c9dc3e91e5e"], +Cell[5555545, 124328, 2882, 69, 180, "Output",ExpressionUUID->"6daf7546-663e-4c03-9910-94b4e123bbe5"], +Cell[5558430, 124399, 2886, 69, 180, "Output",ExpressionUUID->"ac8e768e-cd9b-4cea-8f76-fc1627fd3493"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5561365, 124474, 157, 3, 37, "Subsubsection",ExpressionUUID->"98d49e59-6c72-4c42-820a-e829df2346c1"], +Cell[CellGroupData[{ +Cell[5561547, 124481, 1214, 28, 80, "Input",ExpressionUUID->"9a0c1f70-be1b-4bb5-bfd1-34703edd3958"], +Cell[5562764, 124511, 7268, 160, 70, "Output",ExpressionUUID->"4b7dfe4d-b870-4ce3-83e4-c92facc0f976"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5570069, 124676, 1217, 28, 80, "Input",ExpressionUUID->"ca5ca3d0-1ad7-416e-b049-6a4317c9fd32"], +Cell[5571289, 124706, 7296, 161, 70, "Output",ExpressionUUID->"a436a31c-62dc-4fe3-ab30-a82ce027843d"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Open ]], +Cell[CellGroupData[{ +Cell[5578658, 124875, 160, 3, 67, "Section",ExpressionUUID->"0cf5029a-c295-4f81-81d9-c59ab38a6cd6"], +Cell[CellGroupData[{ +Cell[5578843, 124882, 155, 3, 54, "Subsection",ExpressionUUID->"399c4cbb-a491-485e-a0af-c29d98a817c1"], +Cell[CellGroupData[{ +Cell[5579023, 124889, 170, 3, 45, "Subsubsection",ExpressionUUID->"97c6283b-2073-4fa3-8cc2-1576eb0b50ec"], +Cell[CellGroupData[{ +Cell[5579218, 124896, 802, 20, 30, "Input",ExpressionUUID->"b0cbf515-9ec5-4308-ab04-63fb8c4fdd1b"], +Cell[5580023, 124918, 47854, 1287, 328, "Output",ExpressionUUID->"60f93be3-85df-4df1-b1c2-a4cc6216319a"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5627926, 126211, 173, 3, 37, "Subsubsection",ExpressionUUID->"c8b71a16-8493-4d89-854a-d23e1b5733cc"], +Cell[CellGroupData[{ +Cell[5628124, 126218, 784, 21, 30, "Input",ExpressionUUID->"c0f4f246-a8fc-40fd-a509-a1ee9a6efdc8"], +Cell[5628911, 126241, 49851, 1343, 362, "Output",ExpressionUUID->"981fda4c-eec7-45e1-a3ea-797b7b77165e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5678811, 127590, 206, 4, 37, "Subsubsection",ExpressionUUID->"783a6690-0911-4012-96f1-1832fd010daa"], +Cell[CellGroupData[{ +Cell[5679042, 127598, 1939, 52, 52, "Input",ExpressionUUID->"8f42c51e-4af6-4fd4-b648-ad88dc0af07c"], +Cell[5680984, 127652, 1453, 35, 75, "Output",ExpressionUUID->"ea2bd096-fe86-4bb7-8ca6-c48f78aa9503"], +Cell[5682440, 127689, 1527, 37, 75, "Output",ExpressionUUID->"b79bcf06-1f1f-4845-9ae0-c3a48e86ce24"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5684004, 127731, 2061, 45, 73, "Input",ExpressionUUID->"2c7923ac-5d05-4049-9d65-76710297345e"], +Cell[5686068, 127778, 3061, 79, 180, "Output",ExpressionUUID->"7e265376-6561-4bc6-abe0-d9b76af9904a"], +Cell[5689132, 127859, 3252, 80, 180, "Output",ExpressionUUID->"ed717238-f5fb-42cf-9eb2-90ab6461a59b"], +Cell[5692387, 127941, 3358, 84, 180, "Output",ExpressionUUID->"ddadbaf6-8670-4067-af2e-e3fe082ca8fa"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5695794, 128031, 159, 3, 37, "Subsubsection",ExpressionUUID->"683ba5f3-4b06-401d-9d43-56af8ec4cca1"], +Cell[CellGroupData[{ +Cell[5695978, 128038, 1083, 25, 79, "Input",ExpressionUUID->"27e1234a-1ffc-450d-971f-33e4ef801c3b"], +Cell[5697064, 128065, 4022, 88, 170, "Output",ExpressionUUID->"cbe49253-baa4-4ab5-a776-118510807652"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5701123, 128158, 1109, 25, 79, "Input",ExpressionUUID->"ec7160d4-3c2c-4992-a4d2-f918473db052"], +Cell[5702235, 128185, 4383, 95, 170, "Output",ExpressionUUID->"3be2a67c-9a49-41db-b31b-9303f221bdb4"] +}, Open ]] +}, Closed]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5706679, 128287, 155, 3, 38, "Subsection",ExpressionUUID->"03635dc1-7ed7-4b3b-b08d-536ab12eb856"], +Cell[CellGroupData[{ +Cell[5706859, 128294, 170, 3, 45, "Subsubsection",ExpressionUUID->"37877007-fa2c-4077-99c1-3e968d22728d"], +Cell[CellGroupData[{ +Cell[5707054, 128301, 796, 20, 30, "Input",ExpressionUUID->"01390d67-d15d-4641-b5ed-8e047edccf8c"], +Cell[5707853, 128323, 47752, 1286, 70, "Output",ExpressionUUID->"0c28b243-673b-4466-a2e1-a9c2c837a4ed"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5755654, 129615, 173, 3, 37, "Subsubsection",ExpressionUUID->"df5fb33f-8cd5-43b3-9ecd-765d05c24611"], +Cell[CellGroupData[{ +Cell[5755852, 129622, 813, 23, 30, "Input",ExpressionUUID->"d849899f-cc7a-4e35-8403-279b8a157b34"], +Cell[5756668, 129647, 49758, 1343, 70, "Output",ExpressionUUID->"0e0221f0-6706-4d60-8675-0ec6ca07974e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5806475, 130996, 206, 4, 37, "Subsubsection",ExpressionUUID->"50a5fd77-df81-4c3f-8867-d9ddda298713"], +Cell[CellGroupData[{ +Cell[5806706, 131004, 1942, 53, 52, "Input",ExpressionUUID->"4b6b97c2-15f0-4c8c-9353-24c33131c47d"], +Cell[5808651, 131059, 1442, 36, 70, "Output",ExpressionUUID->"c27de29c-1849-4c98-9388-fba3aee803cf"], +Cell[5810096, 131097, 1461, 36, 70, "Output",ExpressionUUID->"fd4178ef-6c15-43fb-9417-4ba9b796bee3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5811594, 131138, 2064, 46, 73, "Input",ExpressionUUID->"67ae8529-20b1-45e2-ad86-1dc896cc8484"], +Cell[5813661, 131186, 3070, 78, 70, "Output",ExpressionUUID->"d243255e-dffe-4dce-932c-7bcec1b981ee"], +Cell[5816734, 131266, 3179, 79, 70, "Output",ExpressionUUID->"5bd7b5ed-8836-4f47-a05c-7a89fc38bd76"], +Cell[5819916, 131347, 3218, 81, 70, "Output",ExpressionUUID->"065476e1-fe91-4ca9-9c5e-d6878a1793d8"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5823183, 131434, 159, 3, 37, "Subsubsection",ExpressionUUID->"8d2eb298-c00c-4f5f-8f87-23a99493a0e2"], +Cell[CellGroupData[{ +Cell[5823367, 131441, 1132, 26, 79, "Input",ExpressionUUID->"5c02262e-9224-4474-9742-615f02a0298a"], +Cell[5824502, 131469, 4013, 87, 170, "Output",ExpressionUUID->"6674fb58-e184-451c-87d5-5e71e058a2bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5828552, 131561, 1163, 27, 79, "Input",ExpressionUUID->"03beb052-382e-411d-a6e5-f76d9ac40874"], +Cell[5829718, 131590, 4342, 94, 170, "Output",ExpressionUUID->"1d6539f8-d739-44a6-9930-726ce2770d61"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5834121, 131691, 155, 3, 38, "Subsection",ExpressionUUID->"b80576c9-5feb-42c8-b6de-f474856bee13"], +Cell[CellGroupData[{ +Cell[5834301, 131698, 170, 3, 45, "Subsubsection",ExpressionUUID->"31cd9368-0093-41a7-ba77-370782e4b1da"], +Cell[CellGroupData[{ +Cell[5834496, 131705, 800, 21, 30, "Input",ExpressionUUID->"bfdb7d93-3f7c-4147-9fbb-59d885667072"], +Cell[5835299, 131728, 47755, 1286, 328, "Output",ExpressionUUID->"2da94e72-b484-4ae0-9f62-03ff28326e3e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5883103, 133020, 173, 3, 37, "Subsubsection",ExpressionUUID->"b59b23e3-8e24-4763-a082-e87f734e2324"], +Cell[CellGroupData[{ +Cell[5883301, 133027, 813, 23, 30, "Input",ExpressionUUID->"aa44f6fb-7532-4348-a55b-bdd8e95b6c2d"], +Cell[5884117, 133052, 49730, 1342, 362, "Output",ExpressionUUID->"a9a960ae-966c-4376-80b0-e90a3f14431d"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5933896, 134400, 180, 3, 37, "Subsubsection",ExpressionUUID->"7d95fe2e-7b57-457c-b03c-723f52b4d936"], +Cell[CellGroupData[{ +Cell[5934101, 134407, 1986, 53, 52, "Input",ExpressionUUID->"712be5e0-1ded-4316-8b67-46e261e01e34"], +Cell[5936090, 134462, 1414, 35, 75, "Output",ExpressionUUID->"a753738e-c4d4-43d8-9b4b-f673cd46a52d"], +Cell[5937507, 134499, 1423, 35, 75, "Output",ExpressionUUID->"f9746b9c-5034-488c-a5e3-4d9da3c16bd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5938967, 134539, 2113, 47, 73, "Input",ExpressionUUID->"3d2d760f-0607-4b28-a5a6-0e0f5531850a"], +Cell[5941083, 134588, 3060, 78, 180, "Output",ExpressionUUID->"e888dbbf-b7e9-4356-b37c-5a0b7ea8ed6a"], +Cell[5944146, 134668, 3140, 79, 180, "Output",ExpressionUUID->"86b0160a-cda7-4ef6-9245-782038752c4f"], +Cell[5947289, 134749, 3167, 80, 180, "Output",ExpressionUUID->"56d05340-878b-4fee-ae72-bf39a18c90fb"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5950505, 134835, 159, 3, 37, "Subsubsection",ExpressionUUID->"8294d45d-68af-4b2b-8d3b-49ee3f62fc07"], +Cell[CellGroupData[{ +Cell[5950689, 134842, 1183, 27, 79, "Input",ExpressionUUID->"d1474651-6a6a-4c31-8d55-74aa72a1756b"], +Cell[5951875, 134871, 3944, 87, 170, "Output",ExpressionUUID->"61192317-a3cb-40e2-aae1-d42fcc58731b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5955856, 134963, 1209, 27, 79, "Input",ExpressionUUID->"5e4e5c4a-3503-403f-a6a4-24030b2745de"], +Cell[5957068, 134992, 4356, 94, 170, "Output",ExpressionUUID->"0dcd93f3-4b37-4f79-a64b-8771b2f20981"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[5961485, 135093, 155, 3, 38, "Subsection",ExpressionUUID->"2f5235f6-11ed-40cc-bd47-972e2faface4"], +Cell[CellGroupData[{ +Cell[5961665, 135100, 170, 3, 45, "Subsubsection",ExpressionUUID->"f88dcaf8-3648-43db-b40a-dc6386313705"], +Cell[CellGroupData[{ +Cell[5961860, 135107, 800, 21, 30, "Input",ExpressionUUID->"37527d21-db28-480e-b87f-90f7947fc0ff"], +Cell[5962663, 135130, 47765, 1286, 328, "Output",ExpressionUUID->"c98b99ad-3b22-4d1a-9b26-e399f59761af"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6010477, 136422, 173, 3, 37, "Subsubsection",ExpressionUUID->"7f0c5099-fb56-4eeb-9aae-5bd1770ade17"], +Cell[CellGroupData[{ +Cell[6010675, 136429, 811, 23, 30, "Input",ExpressionUUID->"3243e3d3-4ac7-444e-8cab-2aa47d891d07"], +Cell[6011489, 136454, 49752, 1343, 362, "Output",ExpressionUUID->"3847d073-cc78-453f-a88d-cdd25c2162d1"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6061290, 137803, 180, 3, 37, "Subsubsection",ExpressionUUID->"0bc057ae-f40e-4705-be74-4e1e050c5fe4"], +Cell[CellGroupData[{ +Cell[6061495, 137810, 2036, 54, 52, "Input",ExpressionUUID->"ec51997e-1375-461e-af8c-e7424ed6f4bf"], +Cell[6063534, 137866, 1398, 35, 70, "Output",ExpressionUUID->"6fbf4b87-03af-438e-9aee-0965a196361e"], +Cell[6064935, 137903, 1399, 35, 70, "Output",ExpressionUUID->"0542912e-7d18-4131-ae68-c243d2db80f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6066371, 137943, 2115, 47, 73, "Input",ExpressionUUID->"f76ade5d-96c2-4269-ab5f-465d90b0ac66"], +Cell[6068489, 137992, 3056, 77, 70, "Output",ExpressionUUID->"2b1a78f2-6671-4626-8248-3f0554c1057f"], +Cell[6071548, 138071, 3114, 78, 70, "Output",ExpressionUUID->"5ae1f94a-cc4e-4389-b033-127c33702d43"], +Cell[6074665, 138151, 3142, 79, 70, "Output",ExpressionUUID->"c85a2955-4cb0-4e28-bc3e-b4188ae89670"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6077856, 138236, 159, 3, 37, "Subsubsection",ExpressionUUID->"2ea4aeb0-eaab-44c8-897f-2904d700d527"], +Cell[CellGroupData[{ +Cell[6078040, 138243, 1230, 28, 79, "Input",ExpressionUUID->"7827a097-56cf-483a-b0ba-5625432c204f"], +Cell[6079273, 138273, 3827, 85, 170, "Output",ExpressionUUID->"1859ab01-180d-443f-89ea-1114e13ff7f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6083137, 138363, 1259, 28, 79, "Input",ExpressionUUID->"a4328a2c-f0c6-4ddb-a1fe-5b267b2b3acd"], +Cell[6084399, 138393, 4279, 93, 170, "Output",ExpressionUUID->"884a3610-b85c-44f8-9ca4-589d6dc0f0fa"] +}, Open ]] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6088739, 138493, 155, 3, 38, "Subsection",ExpressionUUID->"67f3695d-6149-4f26-9ffd-387fa7b82660"], +Cell[CellGroupData[{ +Cell[6088919, 138500, 170, 3, 45, "Subsubsection",ExpressionUUID->"a3d59bff-5789-4e64-bbbf-7bb9cfdbc1d2"], +Cell[CellGroupData[{ +Cell[6089114, 138507, 802, 21, 30, "Input",ExpressionUUID->"c553e16f-3093-44d1-9d36-0e2944cc9e88"], +Cell[6089919, 138530, 47773, 1286, 328, "Output",ExpressionUUID->"28e231b2-a672-4e7f-80c7-77fdea540b4f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6137741, 139822, 173, 3, 37, "Subsubsection",ExpressionUUID->"023450b8-43fc-4112-b60e-d5648dc00642"], +Cell[CellGroupData[{ +Cell[6137939, 139829, 817, 23, 30, "Input",ExpressionUUID->"0739d3ff-a764-4492-834e-52ef14ac4ac7"], +Cell[6138759, 139854, 49746, 1343, 362, "Output",ExpressionUUID->"342fe15f-5d0b-45fc-8c66-fe59cb5d0675"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6188554, 141203, 179, 3, 37, "Subsubsection",ExpressionUUID->"39ccbc87-5a93-4556-8d45-9189a0afac1a"], +Cell[CellGroupData[{ +Cell[6188758, 141210, 2037, 54, 52, "Input",ExpressionUUID->"817f0768-e734-4493-ba7a-ee4e9786892b"], +Cell[6190798, 141266, 1396, 35, 75, "Output",ExpressionUUID->"d95b1f13-680b-4f9b-bcd9-c33f22bd52ff"], +Cell[6192197, 141303, 1385, 35, 75, "Output",ExpressionUUID->"bd88202b-cc78-4a9e-b479-9ef3a020a5a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6193619, 141343, 2114, 47, 73, "Input",ExpressionUUID->"cfb590c5-20ff-475a-b601-54e0c5604e69"], +Cell[6195736, 141392, 3061, 77, 180, "Output",ExpressionUUID->"c4ef6db5-9619-4bdd-9d75-843cf787426b"], +Cell[6198800, 141471, 3118, 78, 180, "Output",ExpressionUUID->"41e15f49-7527-499b-8762-4b72a6343ff3"], +Cell[6201921, 141551, 3128, 79, 180, "Output",ExpressionUUID->"bc7d5113-7e4d-4982-9db4-45982ed9474f"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6205098, 141636, 159, 3, 37, "Subsubsection",ExpressionUUID->"e8ab3c69-78d0-4a34-a632-71e02d7385e8"], +Cell[CellGroupData[{ +Cell[6205282, 141643, 1232, 28, 79, "Input",ExpressionUUID->"19cc2ac7-0e89-4096-bd94-6e179cae1d30"], +Cell[6206517, 141673, 3761, 83, 170, "Output",ExpressionUUID->"1a5c1fac-c184-4c85-9b87-23d46d0a8b70"] +}, Open ]], +Cell[CellGroupData[{ +Cell[6210315, 141761, 1259, 28, 79, "Input",ExpressionUUID->"1966c60b-7b9e-4d19-ad24-a9779e150f46"], +Cell[6211577, 141791, 4219, 92, 170, "Output",ExpressionUUID->"2c367f82-1c84-41b4-b737-16d8902868b3"] +}, Open ]] +}, Closed]] +}, Closed]] +}, Closed]] +}, Open ]], +Cell[CellGroupData[{ +Cell[6215881, 141892, 159, 3, 98, "Title",ExpressionUUID->"6491b1b0-852f-4bdd-8e0c-baaf27bf3326"], +Cell[CellGroupData[{ +Cell[6216065, 141899, 153, 3, 67, "Section",ExpressionUUID->"5127f77e-fe2f-4dda-bd7d-3f930b336d92"], +Cell[CellGroupData[{ +Cell[6216243, 141906, 158, 3, 54, "Subsection",ExpressionUUID->"bcadec70-3ef9-42a1-9c63-71d474183dbe"], +Cell[6216404, 141911, 2101, 67, 130, "Input",ExpressionUUID->"21a8de76-365b-445f-ac68-ea56773d42f9"], +Cell[CellGroupData[{ +Cell[6218530, 141982, 1766, 51, 57, "Input",ExpressionUUID->"7ab16921-a1f5-4025-bebc-f886657828d2"], +Cell[6220299, 142035, 231, 4, 34, "Output",ExpressionUUID->"6ac025e0-4a60-4623-8c1c-67421d0a7280"] +}, Open ]] +}, Open ]], +Cell[CellGroupData[{ +Cell[6220579, 142045, 467, 8, 54, "Subsection",ExpressionUUID->"54e0ba72-e119-45fa-8af9-f05893e85758", + InitializationCell->True], +Cell[6221049, 142055, 9594, 168, 420, "Input",ExpressionUUID->"5db5b15a-b66a-48ca-badf-1718fb820a4a", + InitializationCell->True] +}, Closed]], +Cell[CellGroupData[{ +Cell[6230680, 142228, 425, 7, 38, "Subsection",ExpressionUUID->"0b8c9413-f61f-466e-a4fe-9c35df985e10", + InitializationCell->True], +Cell[6231108, 142237, 34344, 672, 1205, "Input",ExpressionUUID->"d86b6e7e-16bc-4bbc-ab05-49b514161ba0", + InitializationCell->True] +}, Closed]], +Cell[CellGroupData[{ +Cell[6265489, 142914, 157, 3, 38, "Subsection",ExpressionUUID->"68da2d1e-3853-46bc-a63e-d70b39e0d4ef"], +Cell[6265649, 142919, 40886, 746, 1309, "Input",ExpressionUUID->"d25c00bc-a3f2-4165-b91c-836c09494a9c", + InitializationCell->True] +}, Closed]] +}, Open ]], +Cell[CellGroupData[{ +Cell[6306584, 143671, 206, 4, 67, "Section",ExpressionUUID->"fda9ab2d-de4c-4bbf-a3a3-545f30b979f6"], +Cell[CellGroupData[{ +Cell[6306815, 143679, 3552, 59, 136, "Input",ExpressionUUID->"4b11e20d-ef20-45e8-89f6-aa75d3f26394"], +Cell[CellGroupData[{ +Cell[6310392, 143742, 632, 15, 24, "Print",ExpressionUUID->"6cdf4e00-684e-4f57-9f99-d56c6a8376ec"], +Cell[6311027, 143759, 415, 7, 24, "Print",ExpressionUUID->"db080ef1-bb31-437d-8aec-301c2fd4c2cd"], +Cell[6311445, 143768, 677, 15, 24, "Print",ExpressionUUID->"6420a8cb-3f78-4018-b4c7-f542e7860606"], +Cell[6312125, 143785, 566, 12, 24, "Print",ExpressionUUID->"d74305c2-f29d-46de-9ce1-48649c2179cb"], +Cell[6312694, 143799, 389, 7, 24, "Print",ExpressionUUID->"fbabbc71-e74f-4bb3-afb3-426668b3b749"], +Cell[6313086, 143808, 415, 7, 24, "Print",ExpressionUUID->"572d2405-6679-4439-a54b-4d23c7c098c7"], +Cell[6313504, 143817, 638, 15, 24, "Print",ExpressionUUID->"abcec4d3-70d7-4a08-af79-6c6d4c815f5f"], +Cell[6314145, 143834, 741, 18, 27, "Print",ExpressionUUID->"5c91f9cb-2837-406a-9be9-95767b53aa5f"], +Cell[6314889, 143854, 392, 7, 24, "Print",ExpressionUUID->"d040d3c9-8581-4f50-a4cc-4a05f28064de"], +Cell[6315284, 143863, 3925, 111, 40, "Print",ExpressionUUID->"df79abd6-954c-42b4-b741-cb1007165936"], +Cell[6319212, 143976, 521, 11, 24, "Print",ExpressionUUID->"0776d0bf-9adf-41d0-844e-7ed8857c4f51"] +}, Open ]], +Cell[6319748, 143990, 409, 6, 34, "Output",ExpressionUUID->"5ef95204-df02-431b-bf73-ce298fc4e554"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6320206, 144002, 438, 12, 54, "Section",ExpressionUUID->"5ce77d80-bfce-49e5-95bd-9f294c38cbfa"], +Cell[CellGroupData[{ +Cell[6320669, 144018, 1815, 44, 178, "Input",ExpressionUUID->"bc982a77-2574-4d81-b17d-4e8912124d73"], +Cell[CellGroupData[{ +Cell[6322509, 144066, 1150, 22, 24, "Print",ExpressionUUID->"46989ea1-4b79-467a-9a37-459eaccef275"], +Cell[6323662, 144090, 933, 14, 24, "Print",ExpressionUUID->"72b00cc8-2a19-4173-bbe1-754e4bb08363"], +Cell[6324598, 144106, 1301, 24, 24, "Print",ExpressionUUID->"23dfa9da-ccaa-4352-bb28-f7769d1426d3"], +Cell[6325902, 144132, 1084, 19, 24, "Print",ExpressionUUID->"80f41f96-1abb-4d0c-8f33-5a2005342bfb"], +Cell[6326989, 144153, 905, 14, 24, "Print",ExpressionUUID->"a346f4b6-6ad7-4405-92a9-149042d3aad7"], +Cell[6327897, 144169, 933, 14, 24, "Print",ExpressionUUID->"1e6a876d-e3c2-4ae9-ae65-13b5f8e90456"], +Cell[6328833, 144185, 1158, 22, 24, "Print",ExpressionUUID->"732bba3e-6790-487c-a8d0-088e004ac965"], +Cell[6329994, 144209, 1274, 25, 24, "Print",ExpressionUUID->"4425c25f-e26c-4db3-a9f0-a6d55a661851"], +Cell[6331271, 144236, 910, 14, 24, "Print",ExpressionUUID->"de0cc461-d007-4c72-afc8-af5031b5d96b"], +Cell[6332184, 144252, 4469, 118, 40, "Print",ExpressionUUID->"c3925b24-131c-4063-ac49-b7e9248e39af"], +Cell[6336656, 144372, 1039, 18, 24, "Print",ExpressionUUID->"f301c7a1-7f6d-422f-a390-266975330b5a"] +}, Open ]], +Cell[6337710, 144393, 914, 14, 34, "Output",ExpressionUUID->"87268c59-0c58-4d29-90d4-8a43c6c7dfa1"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6338673, 144413, 489, 13, 54, "Section",ExpressionUUID->"c3f7836b-ef69-449f-a764-40f796968d09"], +Cell[CellGroupData[{ +Cell[6339187, 144430, 1978, 49, 220, "Input",ExpressionUUID->"6e6f9c54-d587-4f7e-82ce-8a2a1674093c"], +Cell[CellGroupData[{ +Cell[6341190, 144483, 526, 13, 24, "Print",ExpressionUUID->"5e3a5cc1-f1f4-4d98-b857-36ec726f46d2"], +Cell[6341719, 144498, 311, 5, 24, "Print",ExpressionUUID->"addd89e4-4157-4889-8558-52aa11aaadb9"], +Cell[6342033, 144505, 998, 20, 24, "Print",ExpressionUUID->"7c604507-cd61-4869-b68d-38ba1e10a5f2"], +Cell[6343034, 144527, 464, 10, 24, "Print",ExpressionUUID->"f1693c80-c1ee-4d0a-bcd3-f8d1b4d1217e"], +Cell[6343501, 144539, 283, 5, 24, "Print",ExpressionUUID->"db309a48-df26-43b6-a704-7e24d69eea55"], +Cell[6343787, 144546, 311, 5, 24, "Print",ExpressionUUID->"642aa099-ba0d-4804-8992-38b0351fd46a"], +Cell[6344101, 144553, 536, 13, 24, "Print",ExpressionUUID->"b66ba048-83a0-4204-ac08-880e06f42f3f"], +Cell[6344640, 144568, 651, 16, 24, "Print",ExpressionUUID->"a95d66cd-8f22-4fa2-9500-044ed5d77fda"], +Cell[6345294, 144586, 289, 5, 24, "Print",ExpressionUUID->"9a6035f1-1667-4e5b-bb07-3c9901af1ef2"], +Cell[6345586, 144593, 3845, 109, 40, "Print",ExpressionUUID->"8b8007e9-201c-4d11-a8a9-686a16e78048"], +Cell[6349434, 144704, 419, 9, 24, "Print",ExpressionUUID->"03864254-0451-433f-920f-86e9e10bfe0f"] +}, Open ]], +Cell[6349868, 144716, 286, 5, 34, "Output",ExpressionUUID->"ac3fe2ef-fbeb-4dd3-8c35-05b7056f958e"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6350203, 144727, 493, 13, 54, "Section",ExpressionUUID->"d222bfdb-18a2-40fa-b20e-46d7225b4526"], +Cell[CellGroupData[{ +Cell[6350721, 144744, 2779, 66, 304, "Input",ExpressionUUID->"99b22901-8052-4beb-b83b-e0ff96b1b004"], +Cell[CellGroupData[{ +Cell[6353525, 144814, 508, 13, 24, "Print",ExpressionUUID->"2ca746e8-24ce-4918-8d78-40916f7f6745"], +Cell[6354036, 144829, 293, 5, 24, "Print",ExpressionUUID->"2f24b865-fcb2-42a6-98a7-3cca2eee44f1"], +Cell[6354332, 144836, 1404, 27, 44, "Print",ExpressionUUID->"88e56c0f-72d2-467d-98b6-82eaf5962127"], +Cell[6355739, 144865, 441, 10, 24, "Print",ExpressionUUID->"e92aeb4e-8d9b-4d0f-b984-7de5191c87df"], +Cell[6356183, 144877, 263, 5, 24, "Print",ExpressionUUID->"2f3345d0-0256-46c7-a52e-faa62b36a628"], +Cell[6356449, 144884, 291, 5, 24, "Print",ExpressionUUID->"fdb2234f-696f-4918-aee1-bcf5de099764"], +Cell[6356743, 144891, 516, 13, 24, "Print",ExpressionUUID->"96adb2ea-ca70-44f3-858b-38915d08b596"] +}, Open ]], +Cell[6357274, 144907, 229, 4, 34, "Output",ExpressionUUID->"0b56c095-6bd2-4bec-84bd-acdfc8864bc0"] +}, Open ]] +}, Closed]], +Cell[CellGroupData[{ +Cell[6357552, 144917, 155, 3, 53, "Section",ExpressionUUID->"c94fd007-ac47-410b-9d98-ce13d9f96f10"], +Cell[CellGroupData[{ +Cell[6357732, 144924, 2125, 49, 199, "Input",ExpressionUUID->"585df89f-5bed-4ca5-942e-56f86e220dc9"], +Cell[CellGroupData[{ +Cell[6359882, 144977, 667, 15, 24, "Print",ExpressionUUID->"2ddf1bb7-b178-4253-994f-7eeb61209392"], +Cell[6360552, 144994, 452, 7, 24, "Print",ExpressionUUID->"6fdde9e9-c53d-47cc-b35b-db30f00f046e"], +Cell[6361007, 145003, 1089, 22, 24, "Print",ExpressionUUID->"07973eb5-4dde-42f5-bf1c-e864619b15d8"], +Cell[6362099, 145027, 603, 12, 24, "Print",ExpressionUUID->"f2fdfda7-4830-4a25-8b1e-906ff3d66e8e"], +Cell[6362705, 145041, 424, 7, 24, "Print",ExpressionUUID->"20044625-0dc5-46cb-8db2-8dd848867c05"], +Cell[6363132, 145050, 452, 7, 24, "Print",ExpressionUUID->"37164918-7369-4b24-ae73-b51261613e6f"], +Cell[6363587, 145059, 675, 15, 24, "Print",ExpressionUUID->"24d9fe3c-d775-4622-b821-630a5cab33dc"] +}, Open ]], +Cell[6364277, 145077, 5340, 161, 68, "Output",ExpressionUUID->"125ccf75-c6b2-4021-a8a5-1bb0476b7b6d"] }, Open ]] }, Open ]] }, Closed]] diff --git a/References/Carrascal_2012.pdf b/References/Carrascal_2012.pdf new file mode 100644 index 0000000..6774e3c Binary files /dev/null and b/References/Carrascal_2012.pdf differ diff --git a/References/Schilling_2019.pdf b/References/Schilling_2019.pdf new file mode 100644 index 0000000..fada9e4 Binary files /dev/null and b/References/Schilling_2019.pdf differ