diff --git a/code/fRTOV.nb b/code/fRTOV.nb
index f11fe8ac8fcfd96438b55a1160fc917102d7720d..d3293e2612d36c7a9b30f655ca2e79d11d0fdeda 100644
--- a/code/fRTOV.nb
+++ b/code/fRTOV.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 1615153, 35452]
-NotebookOptionsPosition[ 1571115, 34746]
-NotebookOutlinePosition[ 1571511, 34762]
-CellTagsIndexPosition[ 1571468, 34759]
+NotebookDataLength[ 1645691, 36335]
+NotebookOptionsPosition[ 1598882, 35584]
+NotebookOutlinePosition[ 1599278, 35600]
+CellTagsIndexPosition[ 1599235, 35597]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -91,13 +91,13 @@ Cell[BoxData[{
Cell[BoxData[
TemplateBox[{
- "TakeColumn","shdw",
+ "TakeColumn", "shdw",
"\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"TakeColumn\\\\\\\"\\\"}]\\) appears \
in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"NRLists`\
\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); \
definitions in context \\!\\(\\*RowBox[{\\\"\\\\\\\"NRLists`\\\\\\\"\\\"}]\\) \
-may shadow or be shadowed by other definitions.\"",2,4,1,19725034650970849152,
- "Local","NRLists`TakeColumn"},
+may shadow or be shadowed by other definitions.\"", 2, 4, 1,
+ 19732885746793752003, "Local", "NRLists`TakeColumn"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -155,18 +155,18 @@ may shadow or be shadowed by other definitions.\"",2,4,1,19725034650970849152,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.811666083155336*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.8128647802748938`*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"f383418d-84ac-4c12-b80a-889d2984b267"],
+In[2]:=",ExpressionUUID->"f6682b6a-a981-4170-97e1-1e090d6a5684"],
Cell[BoxData[
TemplateBox[{
- "General","obspkg",
+ "General", "obspkg",
"\"\\!\\(\\*RowBox[{\\\"\\\\\\\"ErrorBarPlots`\\\\\\\"\\\"}]\\) is now \
obsolete. The legacy version being loaded may conflict with current \
-functionality. See the Compatibility Guide for updating information.\"",2,4,2,
- 19725034650970849152,"Local"},
+functionality. See the Compatibility Guide for updating information.\"", 2, 4,
+ 2, 19732885746793752003, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -224,20 +224,20 @@ functionality. See the Compatibility Guide for updating information.\"",2,4,2,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.8116660831897297`*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.812864780293743*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"2a9a3d2f-0e09-4812-9f60-07e94f393091"],
+In[2]:=",ExpressionUUID->"419b3fe4-4849-4a86-9742-f72c90de7a42"],
Cell[BoxData[
TemplateBox[{
- "AtomsList","shdw",
+ "AtomsList", "shdw",
"\"Symbol \\!\\(\\*RowBox[{\\\"\\\\\\\"AtomsList\\\\\\\"\\\"}]\\) appears \
in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\
\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
\\!\\(\\*RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,4,3,19725034650970849152,"Local",
+shadowed by other definitions.\"", 2, 4, 3, 19732885746793752003, "Local",
"DataFits`AtomsList"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
@@ -296,21 +296,21 @@ shadowed by other definitions.\"",2,4,3,19725034650970849152,"Local",
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.811666083247806*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.812864780361926*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"b31e60c6-d31b-4e9a-b445-93cd52717c80"],
+In[2]:=",ExpressionUUID->"b7d10379-b3ae-4f7c-a70c-52e586a6494c"],
Cell[BoxData[
TemplateBox[{
- "InterpolationDomain","shdw",
+ "InterpolationDomain", "shdw",
"\"Symbol \
\\!\\(\\*RowBox[{\\\"\\\\\\\"InterpolationDomain\\\\\\\"\\\"}]\\) appears in \
multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\", \\\",\\\", \
\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
\\!\\(\\*RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,5,4,19725034650970849152,"Local",
+shadowed by other definitions.\"", 2, 5, 4, 19732885746793752003, "Local",
"NRTimeSeries`InterpolationDomain"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
@@ -369,17 +369,17 @@ shadowed by other definitions.\"",2,5,4,19725034650970849152,"Local",
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.811666083402293*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.812864780517888*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"e6740661-5fef-4bf0-acab-0e150e32a676"],
+In[2]:=",ExpressionUUID->"d07ef948-6c11-47f0-b790-f3bb930dd905"],
Cell[BoxData[
TemplateBox[{
- "Get","noopen",
+ "Get", "noopen",
"\"Cannot open \
-\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"",2,5,5,
- 19725034650970849152,"Local"},
+\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"", 2, 5, 5,
+ 19732885746793752003, "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -437,16 +437,17 @@ Cell[BoxData[
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.811666088535534*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.812864783687504*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"b940922e-9266-4b3a-a290-a93e07c4baf8"],
+In[2]:=",ExpressionUUID->"2257e634-ff16-4c0e-bc05-b130a692b9cd"],
Cell[BoxData[
TemplateBox[{
- "Needs","nocont",
+ "Needs", "nocont",
"\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\) was \
-not created when Needs was evaluated.\"",2,5,6,19725034650970849152,"Local"},
+not created when Needs was evaluated.\"", 2, 5, 6, 19732885746793752003,
+ "Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -504,10 +505,10 @@ not created when Needs was evaluated.\"",2,5,6,19725034650970849152,"Local"},
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9,
- 3.811494316320306*^9, 3.8116660885418577`*^9},
+ 3.811494316320306*^9, 3.811666083155336*^9, 3.812864783691234*^9},
CellLabel->
"During evaluation of \
-In[2]:=",ExpressionUUID->"7a0f3f7c-f931-4b05-9b5c-82a1b3dd6be2"]
+In[2]:=",ExpressionUUID->"40e5e627-3b26-4b62-92fc-ebbf0dff7a4f"]
}, Open ]],
Cell[CellGroupData[{
@@ -1289,8 +1290,8 @@ Cell[BoxData[
3.800942193950385*^9, 3.8013757229523478`*^9, 3.801461381449903*^9,
3.810611174091031*^9, 3.81061160317878*^9, 3.810611727129423*^9,
3.810616102319569*^9, 3.810616143416667*^9, 3.811067234799273*^9,
- 3.8114943181060333`*^9, 3.8116660888200283`*^9},
- CellLabel->"Out[6]=",ExpressionUUID->"4382d9a8-e4ab-476c-b683-02978e45f8c9"]
+ 3.8114943181060333`*^9, 3.8116660888200283`*^9, 3.8128647839533863`*^9},
+ CellLabel->"Out[6]=",ExpressionUUID->"bc337ad3-c125-46e1-b612-df0daf2bb2d7"]
}, Open ]]
}, Closed]],
@@ -2171,7 +2172,7 @@ Cell[BoxData[
"During evaluation of \
In[48]:=",ExpressionUUID->"ca07cbb7-90bf-4059-8dae-296f898fd053"]
}, Open ]]
-}, Open ]],
+}, Closed]],
Cell[CellGroupData[{
@@ -6129,6 +6130,843 @@ Cell[BoxData[
CellLabel->"Out[12]=",ExpressionUUID->"3feec521-3a9a-41ff-8f7f-932428a9a645"]
}, Open ]],
+Cell[BoxData[
+ RowBox[{"(*", " ",
+ RowBox[{"With", " ", "scalar", " ", "field"}], " ", "*)"}]], "Input",
+ CellChangeTimes->{{3.8128819937387466`*^9,
+ 3.812881999288769*^9}},ExpressionUUID->"4decb0ee-254f-41d3-b348-\
+fbc24cde0863"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[Rho]eff", "[",
+ RowBox[{"f_", ",", "R_", ",", "F0_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], " ", "R"}], "-", " ", "f"}], ")"}]}],
+ "-", " ",
+ RowBox[{"3", " ",
+ RowBox[{"H", "[", "t", "]"}],
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",", "t"}], "]"}]}], "+",
+ RowBox[{"3",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}], "^", "2"}],
+ RowBox[{"(",
+ RowBox[{"F0", "-",
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.811070713074745*^9, 3.811070748479187*^9}, {
+ 3.812275671430563*^9, 3.8122757874225407`*^9}, 3.81227593996756*^9},
+ CellLabel->"In[4]:=",ExpressionUUID->"bb88bddb-0aec-4708-bf70-cf043e4e8e88"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"peff", "[",
+ RowBox[{"f_", ",", "R_", ",", "F0_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"t", ",", "2"}], "}"}]}], "]"}], "+",
+ RowBox[{"2",
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",", "t"}], "]"}],
+ RowBox[{"H", "[", "t", "]"}]}], "-",
+ RowBox[{
+ RowBox[{"1", "/", "2"}],
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], "R"}], " ", "-", "f"}], ")"}]}], "-",
+
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"2",
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}], ",", "t"}], "]"}]}], "+",
+ RowBox[{"3",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}], "^", "2"}]}]}], ")"}],
+ RowBox[{"(",
+ RowBox[{"F0", "-",
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}]}], ")"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.811070753990304*^9, 3.811070756021792*^9}, {
+ 3.8122756753113956`*^9, 3.812275681125898*^9}, {3.812275850721187*^9,
+ 3.812276004045446*^9}, {3.812276242416807*^9, 3.8122762614260597`*^9}},
+ CellLabel->"In[10]:=",ExpressionUUID->"e45f6ea9-b110-4277-87da-85ca820fa5dd"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"wdm", "[",
+ RowBox[{"f_", ",", "R_", ",", "F0_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{"-", "1"}], "+", " ",
+ FractionBox[
+ RowBox[{
+ RowBox[{"2",
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",",
+ RowBox[{"{",
+ RowBox[{"t", ",", "2"}], "}"}]}], "]"}]}], "-",
+ RowBox[{"2", " ",
+ RowBox[{"H", "[", "t", "]"}],
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",", "t"}], "]"}]}], "-",
+ RowBox[{"4",
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}], ",", "t"}], "]"}],
+ RowBox[{"(",
+ RowBox[{"F0", "-",
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}]}], ")"}], " "}]}],
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], "R"}], " ", "-", "f"}], ")"}], "-",
+ RowBox[{"6", " ",
+ RowBox[{"H", "[", "t", "]"}],
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}], ",", "t"}], "]"}]}], "+",
+ RowBox[{"6",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}], "^", "2"}],
+ RowBox[{"(",
+ RowBox[{"F0", "-",
+ RowBox[{"D", "[",
+ RowBox[{"f", ",", "R"}], "]"}]}], ")"}]}]}]]}]}]], "Input",
+ CellChangeTimes->{{3.812276071257502*^9, 3.812276221919767*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"b701ab8e-f800-4d6c-9287-3284a90602ea"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"xx", "=",
+ RowBox[{"{",
+ RowBox[{"t", ",", "x"}], "}"}]}], ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"gab", "=",
+ RowBox[{"DiagonalMatrix", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], "^", "2"}]}], "}"}], "]"}]}], ")"}], "//",
+ "MatrixForm"}]}], "Input",
+ CellChangeTimes->{{3.8114943321411257`*^9, 3.811494439107171*^9}, {
+ 3.812864843004549*^9, 3.8128648471573257`*^9}},
+ CellLabel->"In[9]:=",ExpressionUUID->"7424a669-fc2d-474d-82be-69135ec6cc8d"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ RowBox[{"-", "1"}], "0"},
+ {"0",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"]}
+ },
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}}], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.811494424257279*^9, 3.811494439428664*^9},
+ 3.811666101752286*^9, {3.812864843611642*^9, 3.812864847876752*^9}},
+ CellLabel->
+ "Out[10]//MatrixForm=",ExpressionUUID->"ea7b6068-4e3a-427d-9ea6-\
+c91a408d79f7"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"gabin", "=",
+ RowBox[{"Inverse", "[", "gab", "]"}]}]], "Input",
+ CellChangeTimes->{{3.811494506204316*^9, 3.811494512163506*^9}},
+ CellLabel->"In[11]:=",ExpressionUUID->"6935e311-3de8-4769-8c82-60f148ed6227"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox["1",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"]]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.811494512497059*^9, 3.8116661026358013`*^9,
+ 3.812864850926017*^9},
+ CellLabel->"Out[11]=",ExpressionUUID->"c6b027b0-070d-476c-9162-145ec4203d7e"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"chris", "=",
+ RowBox[{"ChristoffelSymbolDev", "[",
+ RowBox[{"xx", ",", "gab"}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.811494457145341*^9, 3.811494465650661*^9}, {
+ 3.8114945192455473`*^9, 3.8114945213020573`*^9}, 3.8116661088918858`*^9},
+ CellLabel->"In[12]:=",ExpressionUUID->"d1cb4e06-ee89-4d4a-ba28-171e876ec5bc"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}], "}"}]}], "}"}], ",",
+
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}],
+ RowBox[{"a", "[", "t", "]"}]]}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}],
+ RowBox[{"a", "[", "t", "]"}]], ",", "0"}], "}"}]}], "}"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.8114944673600597`*^9, 3.811494521760998*^9,
+ 3.811666103266275*^9, 3.812864852830909*^9},
+ CellLabel->"Out[12]=",ExpressionUUID->"586c7813-f86c-42aa-8c55-689775507388"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[{
+ RowBox[{
+ RowBox[{"xx", "=",
+ RowBox[{"{",
+ RowBox[{"t", ",", "r", ",", "\[Theta]", ",", "\[Psi]"}], "}"}]}],
+ ";"}], "\[IndentingNewLine]",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{"gab", "=",
+ RowBox[{"DiagonalMatrix", "[",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-", "1"}], ",",
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], "^", "2"}], ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], "^", "2"}], " ",
+ RowBox[{"r", "^", "2"}]}], " ", ",",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], "^", "2"}], " ",
+ RowBox[{"r", "^", "2"}], " ",
+ RowBox[{
+ RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}]}], "}"}],
+ "]"}]}], ")"}], "//", "MatrixForm"}]}], "Input",
+ CellChangeTimes->{{3.8114943321411257`*^9, 3.811494439107171*^9}},
+ CellLabel->"In[16]:=",ExpressionUUID->"c3d0ad58-68da-4c15-8694-b124998410a0"],
+
+Cell[BoxData[
+ TagBox[
+ RowBox[{"(", "\[NoBreak]", GridBox[{
+ {
+ RowBox[{"-", "1"}], "0", "0", "0"},
+ {"0",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], "0", "0"},
+ {"0", "0",
+ RowBox[{
+ SuperscriptBox["r", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"]}], "0"},
+ {"0", "0", "0",
+ RowBox[{
+ SuperscriptBox["r", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}
+ },
+ GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.7]},
+ Offset[0.27999999999999997`]}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.4]},
+ Offset[0.2]}}], "\[NoBreak]", ")"}],
+ Function[BoxForm`e$,
+ MatrixForm[BoxForm`e$]]]], "Output",
+ CellChangeTimes->{{3.811494424257279*^9, 3.811494439428664*^9},
+ 3.811666101752286*^9, 3.812864930670298*^9},
+ CellLabel->
+ "Out[17]//MatrixForm=",ExpressionUUID->"83d128c3-47f2-4d6b-bc6e-\
+9647df495095"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eins", "=",
+ RowBox[{"Simplify", "[",
+ RowBox[{
+ RowBox[{"Einstein", "[",
+ RowBox[{"xx", ",", "gab", ",", "\[Epsilon]", ",",
+ RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",",
+ RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}], "/.",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}],
+ RowBox[{"a", "[", "t", "]"}]}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.812864860177593*^9, 3.812864874271263*^9}, {
+ 3.812865216654455*^9, 3.812865217614875*^9}, {3.812865358062996*^9,
+ 3.8128653718658857`*^9}},
+ CellLabel->"In[42]:=",ExpressionUUID->"7b7169bd-04ca-4d7c-9c1c-a7824f47f02e"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"3", " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}], ",", "0", ",", "0", ",", "0"}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"a", "[", "t", "]"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ",", "0",
+ ",", "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["r", "2"]}], " ",
+ RowBox[{"a", "[", "t", "]"}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], ",", "0"}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0", ",",
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox["r", "2"]}], " ",
+ RowBox[{"a", "[", "t", "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], "}"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{
+ 3.812864875026292*^9, 3.812864931688972*^9, 3.812865218100567*^9, {
+ 3.812865366609799*^9, 3.812865372188616*^9}},
+ CellLabel->"Out[42]=",ExpressionUUID->"e17ad50d-174e-4e9e-a945-106581098972"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Options", "@", "TeffST"}]], "Input",
+ CellChangeTimes->{{3.812865095006379*^9, 3.812865100785676*^9}, {
+ 3.812865155719981*^9, 3.8128651574600067`*^9}},
+ CellLabel->"In[26]:=",ExpressionUUID->"fff87e8b-66b4-4d04-8948-8d2d06770e4b"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"\<\"Frame\"\>", "\[Rule]", "\<\"Einstein\"\>"}], ",",
+ RowBox[{"\<\"Verbose\"\>", "\[Rule]", "False"}], ",",
+ RowBox[{"\<\"PerturbationIndex\"\>", "\[Rule]", "1"}], ",",
+ RowBox[{"\<\"SimplifyFunction\"\>", "\[Rule]", "Identity"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.812865101226082*^9, 3.812865157907329*^9},
+ CellLabel->"Out[26]=",ExpressionUUID->"3a388ace-1855-455c-a123-5cfc7b98535b"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"tefffr", "=",
+ RowBox[{"Simplify", "[",
+ RowBox[{
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"TeffFR", "[",
+ RowBox[{"xx", ",", "gab", ",",
+ RowBox[{"f", "[", "R", "]"}], ",", "\[Epsilon]", ",",
+ RowBox[{"\"\<PerturbationIndex\>\"", "\[Rule]", "0"}], ",",
+ RowBox[{"\"\<SimplifyFunction\>\"", "\[Rule]", "Simplify"}]}], "]"}],
+ "/",
+ RowBox[{"(",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], ")"}]}], ")"}], "/.",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "\[Rule]",
+ RowBox[{
+ RowBox[{"H", "[", "t", "]"}],
+ RowBox[{"a", "[", "t", "]"}]}]}]}], "]"}]}]], "Input",
+ CellChangeTimes->{{3.812865120348372*^9, 3.812865226718343*^9}, {
+ 3.8128653820383263`*^9, 3.812865385963139*^9}, {3.812865450417863*^9,
+ 3.812865456082603*^9}},
+ CellLabel->"In[46]:=",ExpressionUUID->"61f5040e-4cd7-4b7c-abff-0fb99e2eed4a"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"6", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}],
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]]}], ",", "0", ",", "0", ",",
+ "0"}], "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"], " ",
+ RowBox[{
+ SuperscriptBox["f",
+ TagBox[
+ RowBox[{"(", "3", ")"}],
+ Derivative],
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}], ")"}]}],
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]], ",", "0", ",", "0"}], "}"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]],
+ RowBox[{
+ SuperscriptBox["r", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"], " ",
+ RowBox[{
+ SuperscriptBox["f",
+ TagBox[
+ RowBox[{"(", "3", ")"}],
+ Derivative],
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}], ")"}]}]}], ",", "0"}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"0", ",", "0", ",", "0", ",",
+ RowBox[{
+ FractionBox["1",
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]],
+ RowBox[{
+ SuperscriptBox["r", "2"], " ",
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], " ",
+ SuperscriptBox[
+ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"], " ",
+ RowBox[{
+ SuperscriptBox["f",
+ TagBox[
+ RowBox[{"(", "3", ")"}],
+ Derivative],
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}], ")"}]}]}]}], "}"}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{
+ 3.812865134648754*^9, {3.81286516799752*^9, 3.812865227289432*^9},
+ 3.812865387734717*^9, 3.812865457106934*^9},
+ CellLabel->"Out[46]=",ExpressionUUID->"0c021d46-4345-4361-93a5-84a640cde9af"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq1", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"tefffr", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}], "\[Equal]",
+ RowBox[{"eins", "[",
+ RowBox[{"[",
+ RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.8128652329437838`*^9, 3.8128652349628363`*^9}, {
+ 3.812865403103324*^9, 3.812865413956645*^9}},
+ CellLabel->"In[47]:=",ExpressionUUID->"2cca9f1f-f035-463f-8f0f-831f513586e9"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"6", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}],
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]]}], "\[Equal]",
+ RowBox[{"3", " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}]}], "}"}]], "Output",
+ CellChangeTimes->{{3.8128652311934233`*^9, 3.812865235212533*^9}, {
+ 3.812865395020194*^9, 3.8128654142840433`*^9}, 3.81286546076464*^9},
+ CellLabel->"Out[47]=",ExpressionUUID->"3adb3769-17d8-452c-9ab0-bea8e1fe3959"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"eq2", "=",
+ RowBox[{"{",
+ RowBox[{
+ RowBox[{"tefffr", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "2"}], "]"}], "]"}], "\[Equal]",
+ RowBox[{"eins", "[",
+ RowBox[{"[",
+ RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "}"}]}]], "Input",
+ CellChangeTimes->{{3.8128655137373047`*^9, 3.8128655188302298`*^9}, {
+ 3.812871905057373*^9, 3.8128719074656057`*^9}, {3.812872980693203*^9,
+ 3.81287298118601*^9}},
+ CellLabel->"In[54]:=",ExpressionUUID->"6ecd4e7e-0f33-4221-ad73-d09a447e1482"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{
+ FractionBox[
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"4", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{"2", " ",
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"], " ",
+ RowBox[{
+ SuperscriptBox["f",
+ TagBox[
+ RowBox[{"(", "3", ")"}],
+ Derivative],
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}], ")"}]}],
+ RowBox[{"16", " ", "\[Pi]", " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]], "\[Equal]",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"a", "[", "t", "]"}]}], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], " ",
+ SuperscriptBox[
+ RowBox[{"H", "[", "t", "]"}], "2"]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}],
+ "}"}]], "Output",
+ CellChangeTimes->{3.812865518998561*^9, 3.812872982149238*^9},
+ CellLabel->"Out[54]=",ExpressionUUID->"18cfc2e6-45f8-4f97-914d-00a48119e75c"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{"D", "[",
+ RowBox[{
+ RowBox[{"a", "[", "t", "]"}], ",", "t"}], "]"}], "/",
+ RowBox[{"a", "[", "t", "]"}]}], ",", "t"}], "]"}]], "Input",
+ CellChangeTimes->{{3.8128717865957117`*^9, 3.8128718586476*^9}},
+ CellLabel->"In[52]:=",ExpressionUUID->"b441f329-7cb1-4585-8261-81824e8f842f"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"-",
+ FractionBox[
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"],
+ SuperscriptBox[
+ RowBox[{"a", "[", "t", "]"}], "2"]]}], "+",
+ FractionBox[
+ RowBox[{
+ SuperscriptBox["a", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}],
+ RowBox[{"a", "[", "t", "]"}]]}]], "Output",
+ CellChangeTimes->{3.812871858959671*^9},
+ CellLabel->"Out[52]=",ExpressionUUID->"1c72c4b0-4d38-43f4-bee4-afff256c0839"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"dH", " ", "dt"}], "=", " ",
+ RowBox[{
+ RowBox[{"-",
+ RowBox[{"H", "^", "2"}]}], " ", "+",
+ RowBox[{"da2", " ",
+ RowBox[{"dt", " ", "/", "a"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.8128730709182034`*^9,
+ 3.812873105098654*^9}},ExpressionUUID->"fb19e406-129c-403a-97e0-\
+36e947931e31"],
+
Cell[CellGroupData[{
Cell["Quadratic f(R) ", "Subsubsection",
@@ -34745,7 +35583,7 @@ HcPTHQjC4YHyxSCff7xwI295jdf9eU6XEztbdmP9X+cNvzb8+h+//gB1XEJY
}, Closed]]
},
WindowSize->{808, 934},
-WindowMargins->{{344, Automatic}, {-399, Automatic}},
+WindowMargins->{{Automatic, 300}, {-508, Automatic}},
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b1c13124-30b5-4d98-b099-6493d6a96e45"
@@ -34774,683 +35612,728 @@ Cell[CellGroupData[{
Cell[2242, 68, 258, 4, 38, "Subsection",ExpressionUUID->"b4cafe99-5c10-49df-bec1-70b77254830c"],
Cell[CellGroupData[{
Cell[2525, 76, 749, 13, 110, "Code",ExpressionUUID->"28d9c623-2f35-4b48-afc0-bf102c8402c2"],
-Cell[3277, 91, 4600, 69, 70, "Message",ExpressionUUID->"f383418d-84ac-4c12-b80a-889d2984b267"],
-Cell[7880, 162, 4427, 67, 70, "Message",ExpressionUUID->"2a9a3d2f-0e09-4812-9f60-07e94f393091"],
-Cell[12310, 231, 4602, 70, 70, "Message",ExpressionUUID->"b31e60c6-d31b-4e9a-b445-93cd52717c80"],
-Cell[16915, 303, 4646, 71, 70, "Message",ExpressionUUID->"e6740661-5fef-4bf0-acab-0e150e32a676"],
-Cell[21564, 376, 4284, 66, 70, "Message",ExpressionUUID->"b940922e-9266-4b3a-a290-a93e07c4baf8"],
-Cell[25851, 444, 4321, 65, 70, "Message",ExpressionUUID->"7a0f3f7c-f931-4b05-9b5c-82a1b3dd6be2"]
+Cell[3277, 91, 4632, 69, 70, "Message",ExpressionUUID->"f6682b6a-a981-4170-97e1-1e090d6a5684"],
+Cell[7912, 162, 4454, 67, 70, "Message",ExpressionUUID->"419b3fe4-4849-4a86-9742-f72c90de7a42"],
+Cell[12369, 231, 4632, 70, 70, "Message",ExpressionUUID->"b7d10379-b3ae-4f7c-a70c-52e586a6494c"],
+Cell[17004, 303, 4676, 71, 70, "Message",ExpressionUUID->"d07ef948-6c11-47f0-b790-f3bb930dd905"],
+Cell[21683, 376, 4313, 66, 70, "Message",ExpressionUUID->"2257e634-ff16-4c0e-bc05-b130a692b9cd"],
+Cell[25999, 444, 4352, 66, 70, "Message",ExpressionUUID->"40e5e627-3b26-4b62-92fc-ebbf0dff7a4f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[30209, 514, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
-Cell[30636, 523, 31026, 769, 70, "Output",ExpressionUUID->"4382d9a8-e4ab-476c-b683-02978e45f8c9"]
+Cell[30388, 515, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+Cell[30815, 524, 31050, 769, 70, "Output",ExpressionUUID->"bc337ad3-c125-46e1-b612-df0daf2bb2d7"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[61711, 1298, 172, 3, 38, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
-Cell[61886, 1303, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+Cell[61914, 1299, 172, 3, 38, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
+Cell[62089, 1304, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
}, Closed]],
Cell[CellGroupData[{
-Cell[63258, 1346, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
-Cell[63451, 1351, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+Cell[63461, 1347, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
+Cell[63654, 1352, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
Cell[CellGroupData[{
-Cell[68772, 1491, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
-Cell[73998, 1627, 1306, 27, 24, "Print",ExpressionUUID->"ad7d1aa4-4049-456e-957e-3265c14b5c5c"]
+Cell[68975, 1492, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+Cell[74201, 1628, 1306, 27, 24, "Print",ExpressionUUID->"ad7d1aa4-4049-456e-957e-3265c14b5c5c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[75341, 1659, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
-Cell[81120, 1800, 1056, 20, 24, "Print",ExpressionUUID->"411f6655-537d-419e-b165-6a52f7f04810"]
+Cell[75544, 1660, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+Cell[81323, 1801, 1056, 20, 24, "Print",ExpressionUUID->"411f6655-537d-419e-b165-6a52f7f04810"]
}, Open ]],
Cell[CellGroupData[{
-Cell[82213, 1825, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
-Cell[88187, 1969, 1218, 22, 24, "Print",ExpressionUUID->"1ab1044d-3f24-4c90-9546-5cad4739f8bf"]
+Cell[82416, 1826, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+Cell[88390, 1970, 1218, 22, 24, "Print",ExpressionUUID->"1ab1044d-3f24-4c90-9546-5cad4739f8bf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[89442, 1996, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
-Cell[95865, 2151, 1066, 20, 24, "Print",ExpressionUUID->"ca07cbb7-90bf-4059-8dae-296f898fd053"]
+Cell[89645, 1997, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+Cell[96068, 2152, 1066, 20, 24, "Print",ExpressionUUID->"ca07cbb7-90bf-4059-8dae-296f898fd053"]
}, Open ]]
-}, Open ]],
+}, Closed]],
Cell[CellGroupData[{
-Cell[96980, 2177, 161, 3, 54, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
-Cell[97144, 2182, 687, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
-Cell[97834, 2197, 7643, 205, 127, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
-Cell[105480, 2404, 6161, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
-Cell[111644, 2565, 7183, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
-Cell[118830, 2747, 8371, 217, 127, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
-Cell[127204, 2966, 7744, 194, 88, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
-Cell[134951, 3162, 7742, 194, 88, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
-Cell[142696, 3358, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+Cell[97183, 2178, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
+Cell[97347, 2183, 687, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+Cell[98037, 2198, 7643, 205, 127, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+Cell[105683, 2405, 6161, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+Cell[111847, 2566, 7183, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+Cell[119033, 2748, 8371, 217, 127, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+Cell[127407, 2967, 7744, 194, 88, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+Cell[135154, 3163, 7742, 194, 88, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+Cell[142899, 3359, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
}, Closed]],
Cell[CellGroupData[{
-Cell[147527, 3488, 159, 3, 38, "Subsection",ExpressionUUID->"a3dc796b-7d10-4de5-a008-e0220a368313"],
-Cell[147689, 3493, 3621, 117, 224, "Code",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
+Cell[147730, 3489, 159, 3, 38, "Subsection",ExpressionUUID->"a3dc796b-7d10-4de5-a008-e0220a368313"],
+Cell[147892, 3494, 3621, 117, 224, "Code",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[151359, 3616, 166, 3, 67, "Section",ExpressionUUID->"9eecc1cb-62c7-4c60-a687-796702366240"],
-Cell[151528, 3621, 265, 6, 30, "Input",ExpressionUUID->"054ed3d3-4cee-4a8f-a419-de9234afb577"],
+Cell[151562, 3617, 166, 3, 67, "Section",ExpressionUUID->"9eecc1cb-62c7-4c60-a687-796702366240"],
+Cell[151731, 3622, 265, 6, 30, "Input",ExpressionUUID->"054ed3d3-4cee-4a8f-a419-de9234afb577"],
+Cell[CellGroupData[{
+Cell[152021, 3632, 214, 3, 30, "Input",ExpressionUUID->"32f6d64c-e909-45a5-8f1a-acbc030c68bd"],
+Cell[152238, 3637, 400, 9, 34, "Output",ExpressionUUID->"a7e3b4e2-143c-42e0-8944-9dc361510326"]
+}, Open ]],
+Cell[152653, 3649, 398, 7, 30, "Input",ExpressionUUID->"014e3743-2d5d-4376-89bf-74dd56984ba6"],
+Cell[CellGroupData[{
+Cell[153076, 3660, 236, 4, 30, "Input",ExpressionUUID->"fb503785-4c45-4b99-a6d1-f7f27e39e6f5"],
+Cell[153315, 3666, 2319, 70, 66, "Output",ExpressionUUID->"45a31f9c-ac79-47fe-a178-9e9353b6b71b"]
+}, Open ]],
+Cell[155649, 3739, 263, 5, 30, "Input",ExpressionUUID->"a266facf-f5ab-470f-baf9-44fe6be3e9ff"],
+Cell[CellGroupData[{
+Cell[155937, 3748, 208, 3, 30, "Input",ExpressionUUID->"b3e12e80-cb25-4684-9c90-7bcff689fac9"],
+Cell[156148, 3753, 265, 4, 34, "Output",ExpressionUUID->"2671185a-a1e0-4f73-880b-3347a47ce084"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[156450, 3762, 220, 3, 30, "Input",ExpressionUUID->"ef02aa87-a03d-4556-adde-f92d7dca4182"],
+Cell[156673, 3767, 1876, 30, 203, "Output",ExpressionUUID->"b4ddf2ec-6685-4317-8274-db3ddfd99839"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[158586, 3802, 170, 3, 30, "Input",ExpressionUUID->"4685bf30-e8af-4b49-899a-1f5ef62d7018"],
+Cell[158759, 3807, 30587, 660, 119, "Output",ExpressionUUID->"ab64cd6b-8d69-4fb9-91a1-2dfa63f2c831"]
+}, Open ]],
+Cell[189361, 4470, 1513, 47, 47, "Input",ExpressionUUID->"d58d6001-8331-4cab-a680-af18d96e9495"],
+Cell[CellGroupData[{
+Cell[190899, 4521, 380, 8, 30, "Input",ExpressionUUID->"1c21cc3c-0ae8-4902-abb7-3bb05b620109"],
+Cell[191282, 4531, 851, 25, 57, "Output",ExpressionUUID->"1af637c4-2c48-491e-ad7a-7787e5e0535f"]
+}, Open ]],
+Cell[192148, 4559, 334, 8, 30, "Input",ExpressionUUID->"8c9d48ce-a79f-4f43-a2ea-69a09be51fc2"],
+Cell[192485, 4569, 348, 9, 30, "Input",ExpressionUUID->"e9d894e0-37a5-4cd8-bd7d-ac7d214c48fc"],
+Cell[CellGroupData[{
+Cell[192858, 4582, 245, 4, 52, "Input",ExpressionUUID->"23056e1f-94e8-4915-a1d5-fee49ddbdc7c"],
+Cell[193106, 4588, 32312, 692, 119, "Output",ExpressionUUID->"58505fbe-b8bd-4d5e-be3f-db6a98dbfa39"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[225455, 5285, 947, 27, 73, "Input",ExpressionUUID->"92793384-a028-4936-86cf-7865fd4065dd"],
+Cell[226405, 5314, 1147, 35, 102, "Output",ExpressionUUID->"398dc65e-6772-4790-bd4b-35c25f3714ee"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[227589, 5354, 234, 4, 30, "Input",ExpressionUUID->"ba5097c6-06b1-4aae-a49f-52d2ae4959bd"],
+Cell[227826, 5360, 980, 29, 57, "Output",ExpressionUUID->"4b1dbaec-52c7-41a1-ac42-2db5abe286f8"]
+}, Open ]],
+Cell[CellGroupData[{
+Cell[228843, 5394, 350, 6, 30, "Input",ExpressionUUID->"914236c8-6117-4cae-a5cb-b2221a07c205"],
+Cell[229196, 5402, 3876, 113, 189, "Output",ExpressionUUID->"fa845790-d6d7-4320-9b95-08ec67882319"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[151818, 3631, 214, 3, 30, "Input",ExpressionUUID->"32f6d64c-e909-45a5-8f1a-acbc030c68bd"],
-Cell[152035, 3636, 400, 9, 34, "Output",ExpressionUUID->"a7e3b4e2-143c-42e0-8944-9dc361510326"]
+Cell[233109, 5520, 486, 13, 30, "Input",ExpressionUUID->"f2622a93-c38b-458e-9469-aa2b3e65bf6d"],
+Cell[233598, 5535, 334, 8, 53, "Output",ExpressionUUID->"66f9dd24-9f53-48d0-a324-62928b4f0f97"]
}, Open ]],
-Cell[152450, 3648, 398, 7, 30, "Input",ExpressionUUID->"014e3743-2d5d-4376-89bf-74dd56984ba6"],
Cell[CellGroupData[{
-Cell[152873, 3659, 236, 4, 30, "Input",ExpressionUUID->"fb503785-4c45-4b99-a6d1-f7f27e39e6f5"],
-Cell[153112, 3665, 2319, 70, 66, "Output",ExpressionUUID->"45a31f9c-ac79-47fe-a178-9e9353b6b71b"]
+Cell[233969, 5548, 214, 3, 30, "Input",ExpressionUUID->"648a5e06-da13-42b1-96a4-b7a242f2f71b"],
+Cell[234186, 5553, 368, 8, 34, "Output",ExpressionUUID->"3da95e0a-a7f6-457b-93a5-ad06bebd68e4"]
}, Open ]],
-Cell[155446, 3738, 263, 5, 30, "Input",ExpressionUUID->"a266facf-f5ab-470f-baf9-44fe6be3e9ff"],
Cell[CellGroupData[{
-Cell[155734, 3747, 208, 3, 30, "Input",ExpressionUUID->"b3e12e80-cb25-4684-9c90-7bcff689fac9"],
-Cell[155945, 3752, 265, 4, 34, "Output",ExpressionUUID->"2671185a-a1e0-4f73-880b-3347a47ce084"]
+Cell[234591, 5566, 391, 7, 30, "Input",ExpressionUUID->"eaf71edc-17e7-4e36-830d-71e3da5c1908"],
+Cell[234985, 5575, 615, 17, 59, "Output",ExpressionUUID->"248e999f-5da2-494f-9112-e37522cadf26"]
}, Open ]],
Cell[CellGroupData[{
-Cell[156247, 3761, 220, 3, 30, "Input",ExpressionUUID->"ef02aa87-a03d-4556-adde-f92d7dca4182"],
-Cell[156470, 3766, 1876, 30, 203, "Output",ExpressionUUID->"b4ddf2ec-6685-4317-8274-db3ddfd99839"]
+Cell[235637, 5597, 198, 3, 30, "Input",ExpressionUUID->"3f85f870-e195-4656-af2c-234fde7d8db7"],
+Cell[235838, 5602, 14540, 343, 119, "Output",ExpressionUUID->"5cfa171d-e933-438e-af63-0954186bae17"]
}, Open ]],
+Cell[250393, 5948, 939, 28, 30, "Input",ExpressionUUID->"436b8b11-0002-4693-b227-354a5c4b6e9a"],
+Cell[251335, 5978, 1363, 42, 52, "Input",ExpressionUUID->"151d2286-7ede-4818-a0a7-35dbad2e3b40"],
+Cell[252701, 6022, 1576, 49, 73, "Input",ExpressionUUID->"6c92f528-546b-4cde-b363-4ca22b5c24a4"],
Cell[CellGroupData[{
-Cell[158383, 3801, 170, 3, 30, "Input",ExpressionUUID->"4685bf30-e8af-4b49-899a-1f5ef62d7018"],
-Cell[158556, 3806, 30587, 660, 119, "Output",ExpressionUUID->"ab64cd6b-8d69-4fb9-91a1-2dfa63f2c831"]
+Cell[254302, 6075, 407, 10, 30, "Input",ExpressionUUID->"2daca923-8e05-452b-8c5f-f75150cb2c15"],
+Cell[254712, 6087, 1453, 42, 55, "Output",ExpressionUUID->"3feec521-3a9a-41ff-8f7f-932428a9a645"]
}, Open ]],
-Cell[189158, 4469, 1513, 47, 47, "Input",ExpressionUUID->"d58d6001-8331-4cab-a680-af18d96e9495"],
+Cell[256180, 6132, 234, 5, 30, "Input",ExpressionUUID->"4decb0ee-254f-41d3-b348-fbc24cde0863"],
+Cell[256417, 6139, 939, 28, 30, "Input",ExpressionUUID->"bb88bddb-0aec-4708-bf70-cf043e4e8e88"],
+Cell[257359, 6169, 1363, 42, 52, "Input",ExpressionUUID->"e45f6ea9-b110-4277-87da-85ca820fa5dd"],
+Cell[258725, 6213, 1576, 49, 73, "Input",ExpressionUUID->"b701ab8e-f800-4d6c-9287-3284a90602ea"],
Cell[CellGroupData[{
-Cell[190696, 4520, 380, 8, 30, "Input",ExpressionUUID->"1c21cc3c-0ae8-4902-abb7-3bb05b620109"],
-Cell[191079, 4530, 851, 25, 57, "Output",ExpressionUUID->"1af637c4-2c48-491e-ad7a-7787e5e0535f"]
+Cell[260326, 6266, 609, 17, 52, "Input",ExpressionUUID->"7424a669-fc2d-474d-82be-69135ec6cc8d"],
+Cell[260938, 6285, 799, 23, 62, "Output",ExpressionUUID->"ea7b6068-4e3a-427d-9ea6-c91a408d79f7"]
}, Open ]],
-Cell[191945, 4558, 334, 8, 30, "Input",ExpressionUUID->"8c9d48ce-a79f-4f43-a2ea-69a09be51fc2"],
-Cell[192282, 4568, 348, 9, 30, "Input",ExpressionUUID->"e9d894e0-37a5-4cd8-bd7d-ac7d214c48fc"],
Cell[CellGroupData[{
-Cell[192655, 4581, 245, 4, 52, "Input",ExpressionUUID->"23056e1f-94e8-4915-a1d5-fee49ddbdc7c"],
-Cell[192903, 4587, 32312, 692, 119, "Output",ExpressionUUID->"58505fbe-b8bd-4d5e-be3f-db6a98dbfa39"]
+Cell[261774, 6313, 234, 4, 30, "Input",ExpressionUUID->"6935e311-3de8-4769-8c82-60f148ed6227"],
+Cell[262011, 6319, 447, 13, 54, "Output",ExpressionUUID->"c6b027b0-070d-476c-9162-145ec4203d7e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[225252, 5284, 947, 27, 73, "Input",ExpressionUUID->"92793384-a028-4936-86cf-7865fd4065dd"],
-Cell[226202, 5313, 1147, 35, 102, "Output",ExpressionUUID->"398dc65e-6772-4790-bd4b-35c25f3714ee"]
+Cell[262495, 6337, 350, 6, 30, "Input",ExpressionUUID->"d1cb4e06-ee89-4d4a-ba28-171e876ec5bc"],
+Cell[262848, 6345, 1085, 34, 53, "Output",ExpressionUUID->"586c7813-f86c-42aa-8c55-689775507388"]
}, Open ]],
Cell[CellGroupData[{
-Cell[227386, 5353, 234, 4, 30, "Input",ExpressionUUID->"ba5097c6-06b1-4aae-a49f-52d2ae4959bd"],
-Cell[227623, 5359, 980, 29, 57, "Output",ExpressionUUID->"4b1dbaec-52c7-41a1-ac42-2db5abe286f8"]
+Cell[263970, 6384, 947, 27, 73, "Input",ExpressionUUID->"c3d0ad58-68da-4c15-8694-b124998410a0"],
+Cell[264920, 6413, 1169, 35, 102, "Output",ExpressionUUID->"83d128c3-47f2-4d6b-bc6e-9647df495095"]
}, Open ]],
Cell[CellGroupData[{
-Cell[228640, 5393, 350, 6, 30, "Input",ExpressionUUID->"914236c8-6117-4cae-a5cb-b2221a07c205"],
-Cell[228993, 5401, 3876, 113, 189, "Output",ExpressionUUID->"fa845790-d6d7-4320-9b95-08ec67882319"]
+Cell[266126, 6453, 796, 18, 73, "Input",ExpressionUUID->"7b7169bd-04ca-4d7c-9c1c-a7824f47f02e"],
+Cell[266925, 6473, 2091, 64, 60, "Output",ExpressionUUID->"e17ad50d-174e-4e9e-a945-106581098972"]
}, Open ]],
Cell[CellGroupData[{
-Cell[232906, 5519, 486, 13, 30, "Input",ExpressionUUID->"f2622a93-c38b-458e-9469-aa2b3e65bf6d"],
-Cell[233395, 5534, 334, 8, 53, "Output",ExpressionUUID->"66f9dd24-9f53-48d0-a324-62928b4f0f97"]
+Cell[269053, 6542, 256, 4, 30, "Input",ExpressionUUID->"fff87e8b-66b4-4d04-8948-8d2d06770e4b"],
+Cell[269312, 6548, 458, 9, 34, "Output",ExpressionUUID->"3a388ace-1855-455c-a123-5cfc7b98535b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[233766, 5547, 214, 3, 30, "Input",ExpressionUUID->"648a5e06-da13-42b1-96a4-b7a242f2f71b"],
-Cell[233983, 5552, 368, 8, 34, "Output",ExpressionUUID->"3da95e0a-a7f6-457b-93a5-ad06bebd68e4"]
+Cell[269807, 6562, 1071, 27, 94, "Input",ExpressionUUID->"61f5040e-4cd7-4b7c-abff-0fb99e2eed4a"],
+Cell[270881, 6591, 6979, 193, 232, "Output",ExpressionUUID->"0c021d46-4345-4361-93a5-84a640cde9af"]
}, Open ]],
Cell[CellGroupData[{
-Cell[234388, 5565, 391, 7, 30, "Input",ExpressionUUID->"eaf71edc-17e7-4e36-830d-71e3da5c1908"],
-Cell[234782, 5574, 615, 17, 59, "Output",ExpressionUUID->"248e999f-5da2-494f-9112-e37522cadf26"]
+Cell[277897, 6789, 477, 12, 30, "Input",ExpressionUUID->"2cca9f1f-f035-463f-8f0f-831f513586e9"],
+Cell[278377, 6803, 1227, 33, 53, "Output",ExpressionUUID->"3adb3769-17d8-452c-9ab0-bea8e1fe3959"]
}, Open ]],
Cell[CellGroupData[{
-Cell[235434, 5596, 198, 3, 30, "Input",ExpressionUUID->"3f85f870-e195-4656-af2c-234fde7d8db7"],
-Cell[235635, 5601, 14540, 343, 119, "Output",ExpressionUUID->"5cfa171d-e933-438e-af63-0954186bae17"]
+Cell[279641, 6841, 527, 13, 30, "Input",ExpressionUUID->"6ecd4e7e-0f33-4221-ad73-d09a447e1482"],
+Cell[280171, 6856, 2273, 66, 86, "Output",ExpressionUUID->"18cfc2e6-45f8-4f97-914d-00a48119e75c"]
}, Open ]],
-Cell[250190, 5947, 939, 28, 30, "Input",ExpressionUUID->"436b8b11-0002-4693-b227-354a5c4b6e9a"],
-Cell[251132, 5977, 1363, 42, 52, "Input",ExpressionUUID->"151d2286-7ede-4818-a0a7-35dbad2e3b40"],
-Cell[252498, 6021, 1576, 49, 73, "Input",ExpressionUUID->"6c92f528-546b-4cde-b363-4ca22b5c24a4"],
Cell[CellGroupData[{
-Cell[254099, 6074, 407, 10, 30, "Input",ExpressionUUID->"2daca923-8e05-452b-8c5f-f75150cb2c15"],
-Cell[254509, 6086, 1453, 42, 55, "Output",ExpressionUUID->"3feec521-3a9a-41ff-8f7f-932428a9a645"]
+Cell[282481, 6927, 364, 9, 30, "Input",ExpressionUUID->"b441f329-7cb1-4585-8261-81824e8f842f"],
+Cell[282848, 6938, 542, 16, 57, "Output",ExpressionUUID->"1c72c4b0-4d38-43f4-bee4-afff256c0839"]
}, Open ]],
+Cell[283405, 6957, 336, 10, 30, "Input",ExpressionUUID->"fb19e406-129c-403a-97e0-36e947931e31"],
Cell[CellGroupData[{
-Cell[255999, 6133, 215, 4, 45, "Subsubsection",ExpressionUUID->"7a7ef893-7cd8-4d31-a9e4-4c3dc217afac"],
+Cell[283766, 6971, 215, 4, 45, "Subsubsection",ExpressionUUID->"7a7ef893-7cd8-4d31-a9e4-4c3dc217afac"],
Cell[CellGroupData[{
-Cell[256239, 6141, 282, 6, 30, "Input",ExpressionUUID->"a3b32e57-7414-4468-a779-5478eb93d91c"],
-Cell[256524, 6149, 226, 5, 34, "Output",ExpressionUUID->"87c80156-6244-4a55-8ddb-6be2c829974d"]
+Cell[284006, 6979, 282, 6, 30, "Input",ExpressionUUID->"a3b32e57-7414-4468-a779-5478eb93d91c"],
+Cell[284291, 6987, 226, 5, 34, "Output",ExpressionUUID->"87c80156-6244-4a55-8ddb-6be2c829974d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[256787, 6159, 241, 4, 30, "Input",ExpressionUUID->"7a63475a-8f21-4903-83cc-97cd64b53cbe"],
-Cell[257031, 6165, 1689, 49, 66, "Output",ExpressionUUID->"11a36c3a-959d-44ac-9d95-b0e0879c2a7d"]
+Cell[284554, 6997, 241, 4, 30, "Input",ExpressionUUID->"7a63475a-8f21-4903-83cc-97cd64b53cbe"],
+Cell[284798, 7003, 1689, 49, 66, "Output",ExpressionUUID->"11a36c3a-959d-44ac-9d95-b0e0879c2a7d"]
}, Open ]],
-Cell[258735, 6217, 294, 7, 30, "Input",ExpressionUUID->"275480b2-c251-4dae-9929-0c315c634277"],
+Cell[286502, 7055, 294, 7, 30, "Input",ExpressionUUID->"275480b2-c251-4dae-9929-0c315c634277"],
Cell[CellGroupData[{
-Cell[259054, 6228, 399, 8, 30, "Input",ExpressionUUID->"cc072710-ac96-4586-9700-65dd43d14074"],
-Cell[259456, 6238, 926, 26, 57, "Output",ExpressionUUID->"88c25a06-60cb-4f5d-bd8e-59abd753bfda"]
+Cell[286821, 7066, 399, 8, 30, "Input",ExpressionUUID->"cc072710-ac96-4586-9700-65dd43d14074"],
+Cell[287223, 7076, 926, 26, 57, "Output",ExpressionUUID->"88c25a06-60cb-4f5d-bd8e-59abd753bfda"]
}, Open ]],
-Cell[260397, 6267, 352, 9, 30, "Input",ExpressionUUID->"ee22d148-4064-4786-a241-a2ae611d1bde"],
+Cell[288164, 7105, 352, 9, 30, "Input",ExpressionUUID->"ee22d148-4064-4786-a241-a2ae611d1bde"],
Cell[CellGroupData[{
-Cell[260774, 6280, 375, 7, 30, "Input",ExpressionUUID->"eab51005-5a99-4bfa-8ddb-79146e1fa57d"],
-Cell[261152, 6289, 926, 26, 57, "Output",ExpressionUUID->"f16fd66b-5963-4dca-833e-b1418b613788"]
+Cell[288541, 7118, 375, 7, 30, "Input",ExpressionUUID->"eab51005-5a99-4bfa-8ddb-79146e1fa57d"],
+Cell[288919, 7127, 926, 26, 57, "Output",ExpressionUUID->"f16fd66b-5963-4dca-833e-b1418b613788"]
}, Open ]],
-Cell[262093, 6318, 358, 7, 30, "Input",ExpressionUUID->"93592bb8-9de7-48d0-8886-d0a28e2cbc14"],
+Cell[289860, 7156, 358, 7, 30, "Input",ExpressionUUID->"93592bb8-9de7-48d0-8886-d0a28e2cbc14"],
Cell[CellGroupData[{
-Cell[262476, 6329, 458, 9, 30, "Input",ExpressionUUID->"b043196e-0868-40bd-85e4-901d75c597d1"],
-Cell[262937, 6340, 2256, 48, 55, "Output",ExpressionUUID->"31bb22c9-5586-4744-9242-b2f2149a861c"]
+Cell[290243, 7167, 458, 9, 30, "Input",ExpressionUUID->"b043196e-0868-40bd-85e4-901d75c597d1"],
+Cell[290704, 7178, 2256, 48, 55, "Output",ExpressionUUID->"31bb22c9-5586-4744-9242-b2f2149a861c"]
}, Open ]],
-Cell[265208, 6391, 438, 10, 30, "Input",ExpressionUUID->"f3d6e48d-8b12-4c5a-b2ce-a686080fe3fc"],
+Cell[292975, 7229, 438, 10, 30, "Input",ExpressionUUID->"f3d6e48d-8b12-4c5a-b2ce-a686080fe3fc"],
Cell[CellGroupData[{
-Cell[265671, 6405, 502, 9, 30, "Input",ExpressionUUID->"6726880b-eb81-48b2-ac67-618301f47da4"],
-Cell[266176, 6416, 3301, 83, 76, "Output",ExpressionUUID->"b09861f2-5025-48ce-a36d-f4503eb7f011"]
+Cell[293438, 7243, 502, 9, 30, "Input",ExpressionUUID->"6726880b-eb81-48b2-ac67-618301f47da4"],
+Cell[293943, 7254, 3301, 83, 76, "Output",ExpressionUUID->"b09861f2-5025-48ce-a36d-f4503eb7f011"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[269526, 6505, 261, 4, 37, "Subsubsection",ExpressionUUID->"f2c9296b-a49e-49ed-9e12-d21fd0e808c7"],
+Cell[297293, 7343, 261, 4, 37, "Subsubsection",ExpressionUUID->"f2c9296b-a49e-49ed-9e12-d21fd0e808c7"],
Cell[CellGroupData[{
-Cell[269812, 6513, 347, 8, 30, "Input",ExpressionUUID->"18340ed5-0ea4-45d9-8c80-6aaf47949b49"],
-Cell[270162, 6523, 312, 7, 34, "Output",ExpressionUUID->"c7de3b5a-503b-452c-a5a9-ac897f5fbc9f"]
+Cell[297579, 7351, 347, 8, 30, "Input",ExpressionUUID->"18340ed5-0ea4-45d9-8c80-6aaf47949b49"],
+Cell[297929, 7361, 312, 7, 34, "Output",ExpressionUUID->"c7de3b5a-503b-452c-a5a9-ac897f5fbc9f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[270511, 6535, 241, 4, 30, "Input",ExpressionUUID->"387570ae-e55c-4aff-bdf2-09a4fdcd34a3"],
-Cell[270755, 6541, 2924, 83, 123, "Output",ExpressionUUID->"298b7036-7866-455e-ba13-d969730acda7"]
+Cell[298278, 7373, 241, 4, 30, "Input",ExpressionUUID->"387570ae-e55c-4aff-bdf2-09a4fdcd34a3"],
+Cell[298522, 7379, 2924, 83, 123, "Output",ExpressionUUID->"298b7036-7866-455e-ba13-d969730acda7"]
}, Open ]],
-Cell[273694, 6627, 360, 7, 30, "Input",ExpressionUUID->"888a2876-3898-4840-b645-ff96f9cf4b79"],
+Cell[301461, 7465, 360, 7, 30, "Input",ExpressionUUID->"888a2876-3898-4840-b645-ff96f9cf4b79"],
Cell[CellGroupData[{
-Cell[274079, 6638, 399, 8, 30, "Input",ExpressionUUID->"b0b32299-3222-420a-bea7-06a954d0bb2e"],
-Cell[274481, 6648, 2200, 60, 59, "Output",ExpressionUUID->"01c6ea79-11fb-4f35-93fd-eb1f5efa62ad"]
+Cell[301846, 7476, 399, 8, 30, "Input",ExpressionUUID->"b0b32299-3222-420a-bea7-06a954d0bb2e"],
+Cell[302248, 7486, 2200, 60, 59, "Output",ExpressionUUID->"01c6ea79-11fb-4f35-93fd-eb1f5efa62ad"]
}, Open ]],
-Cell[276696, 6711, 420, 9, 30, "Input",ExpressionUUID->"96e035f9-4084-4ae9-a51c-b0903a003dbe"],
+Cell[304463, 7549, 420, 9, 30, "Input",ExpressionUUID->"96e035f9-4084-4ae9-a51c-b0903a003dbe"],
Cell[CellGroupData[{
-Cell[277141, 6724, 375, 7, 30, "Input",ExpressionUUID->"bf863b9c-9f27-4e75-b47c-21a839ac2f9f"],
-Cell[277519, 6733, 1955, 54, 57, "Output",ExpressionUUID->"c8073162-6dc6-4672-b503-b6c24b0aa13d"]
+Cell[304908, 7562, 375, 7, 30, "Input",ExpressionUUID->"bf863b9c-9f27-4e75-b47c-21a839ac2f9f"],
+Cell[305286, 7571, 1955, 54, 57, "Output",ExpressionUUID->"c8073162-6dc6-4672-b503-b6c24b0aa13d"]
}, Open ]],
-Cell[279489, 6790, 400, 8, 30, "Input",ExpressionUUID->"6f218393-8390-4838-ae78-1cd5a0534121"],
+Cell[307256, 7628, 400, 8, 30, "Input",ExpressionUUID->"6f218393-8390-4838-ae78-1cd5a0534121"],
Cell[CellGroupData[{
-Cell[279914, 6802, 458, 9, 30, "Input",ExpressionUUID->"2f044983-fd9e-4c6c-af06-91a4017c0aa8"],
-Cell[280375, 6813, 4118, 96, 123, "Output",ExpressionUUID->"698b18ff-12d5-43e7-ae9b-9d8848e8fccb"]
+Cell[307681, 7640, 458, 9, 30, "Input",ExpressionUUID->"2f044983-fd9e-4c6c-af06-91a4017c0aa8"],
+Cell[308142, 7651, 4118, 96, 123, "Output",ExpressionUUID->"698b18ff-12d5-43e7-ae9b-9d8848e8fccb"]
}, Open ]],
-Cell[284508, 6912, 501, 10, 30, "Input",ExpressionUUID->"ef5818f1-c8d3-4920-926c-ae3b483e0051"],
+Cell[312275, 7750, 501, 10, 30, "Input",ExpressionUUID->"ef5818f1-c8d3-4920-926c-ae3b483e0051"],
Cell[CellGroupData[{
-Cell[285034, 6926, 502, 9, 30, "Input",ExpressionUUID->"3166fc24-fba3-4153-be8a-5b837a614f5f"],
-Cell[285539, 6937, 10999, 290, 780, "Output",ExpressionUUID->"75f47814-9611-408f-bb5c-8b1a3a8300cd"]
+Cell[312801, 7764, 502, 9, 30, "Input",ExpressionUUID->"3166fc24-fba3-4153-be8a-5b837a614f5f"],
+Cell[313306, 7775, 10999, 290, 780, "Output",ExpressionUUID->"75f47814-9611-408f-bb5c-8b1a3a8300cd"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[296587, 7233, 314, 5, 37, "Subsubsection",ExpressionUUID->"f1678082-c089-4c33-a483-db95339820a7"],
+Cell[324354, 8071, 314, 5, 37, "Subsubsection",ExpressionUUID->"f1678082-c089-4c33-a483-db95339820a7"],
Cell[CellGroupData[{
-Cell[296926, 7242, 462, 11, 30, "Input",ExpressionUUID->"5f8b37b8-9c00-46fa-8ee5-227cbc0694a7"],
-Cell[297391, 7255, 402, 10, 34, "Output",ExpressionUUID->"ff22021b-f056-4f5a-9d09-abec376efd6e"]
+Cell[324693, 8080, 462, 11, 30, "Input",ExpressionUUID->"5f8b37b8-9c00-46fa-8ee5-227cbc0694a7"],
+Cell[325158, 8093, 402, 10, 34, "Output",ExpressionUUID->"ff22021b-f056-4f5a-9d09-abec376efd6e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[297830, 7270, 241, 4, 30, "Input",ExpressionUUID->"a9d56d88-1563-49fd-ac32-77c20ddd760f"],
-Cell[298074, 7276, 3940, 110, 182, "Output",ExpressionUUID->"6ae38b34-3906-4aa9-a9b4-2503262129bc"]
+Cell[325597, 8108, 241, 4, 30, "Input",ExpressionUUID->"a9d56d88-1563-49fd-ac32-77c20ddd760f"],
+Cell[325841, 8114, 3940, 110, 182, "Output",ExpressionUUID->"6ae38b34-3906-4aa9-a9b4-2503262129bc"]
}, Open ]],
-Cell[302029, 7389, 389, 8, 30, "Input",ExpressionUUID->"090a7620-65c3-4aee-924c-449f6ecedabb"],
+Cell[329796, 8227, 389, 8, 30, "Input",ExpressionUUID->"090a7620-65c3-4aee-924c-449f6ecedabb"],
Cell[CellGroupData[{
-Cell[302443, 7401, 399, 8, 30, "Input",ExpressionUUID->"8b7cdaea-4bd1-4392-97ce-24ba1559b850"],
-Cell[302845, 7411, 3482, 95, 83, "Output",ExpressionUUID->"2ca79107-d3e6-4d93-b13c-90abb2ae08a4"]
+Cell[330210, 8239, 399, 8, 30, "Input",ExpressionUUID->"8b7cdaea-4bd1-4392-97ce-24ba1559b850"],
+Cell[330612, 8249, 3482, 95, 83, "Output",ExpressionUUID->"2ca79107-d3e6-4d93-b13c-90abb2ae08a4"]
}, Open ]],
-Cell[306342, 7509, 428, 10, 30, "Input",ExpressionUUID->"71e1ce78-aaba-4c7c-9ab3-2a709bb2e1f7"],
+Cell[334109, 8347, 428, 10, 30, "Input",ExpressionUUID->"71e1ce78-aaba-4c7c-9ab3-2a709bb2e1f7"],
Cell[CellGroupData[{
-Cell[306795, 7523, 375, 7, 30, "Input",ExpressionUUID->"8343df2a-5ed1-4c02-9e23-525697dc41a5"],
-Cell[307173, 7532, 3356, 92, 83, "Output",ExpressionUUID->"a1f8b6ab-299f-4326-9f15-c1446ef2d5d4"]
+Cell[334562, 8361, 375, 7, 30, "Input",ExpressionUUID->"8343df2a-5ed1-4c02-9e23-525697dc41a5"],
+Cell[334940, 8370, 3356, 92, 83, "Output",ExpressionUUID->"a1f8b6ab-299f-4326-9f15-c1446ef2d5d4"]
}, Open ]],
-Cell[310544, 7627, 509, 11, 30, "Input",ExpressionUUID->"6c13bd72-7695-424a-bbb9-9dd7edfe014e"],
+Cell[338311, 8465, 509, 11, 30, "Input",ExpressionUUID->"6c13bd72-7695-424a-bbb9-9dd7edfe014e"],
Cell[CellGroupData[{
-Cell[311078, 7642, 502, 9, 30, "Input",ExpressionUUID->"e3f0e022-1f80-4ed5-a6c3-ae9bcec8667f"],
-Cell[311583, 7653, 144409, 3521, 8054, "Output",ExpressionUUID->"2b728d24-68a9-4d00-8be6-7fa0e26b9f29"]
+Cell[338845, 8480, 502, 9, 30, "Input",ExpressionUUID->"e3f0e022-1f80-4ed5-a6c3-ae9bcec8667f"],
+Cell[339350, 8491, 144409, 3521, 8054, "Output",ExpressionUUID->"2b728d24-68a9-4d00-8be6-7fa0e26b9f29"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
-Cell[456041, 11180, 392, 6, 37, "Subsubsection",ExpressionUUID->"f2cfa260-a398-47cf-befd-874b10a074aa"],
+Cell[483808, 12018, 392, 6, 37, "Subsubsection",ExpressionUUID->"f2cfa260-a398-47cf-befd-874b10a074aa"],
Cell[CellGroupData[{
-Cell[456458, 11190, 446, 10, 30, "Input",ExpressionUUID->"459dc0da-dc4c-4134-a537-156517c7721b"],
-Cell[456907, 11202, 362, 8, 34, "Output",ExpressionUUID->"bf973f16-9747-4827-950d-8cc2d3004bf8"]
+Cell[484225, 12028, 446, 10, 30, "Input",ExpressionUUID->"459dc0da-dc4c-4134-a537-156517c7721b"],
+Cell[484674, 12040, 362, 8, 34, "Output",ExpressionUUID->"bf973f16-9747-4827-950d-8cc2d3004bf8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[457306, 11215, 241, 4, 30, "Input",ExpressionUUID->"b54bb386-fbc8-458c-aba9-9193c1081979"],
-Cell[457550, 11221, 3116, 88, 123, "Output",ExpressionUUID->"ed39cd19-62ae-4b23-a6d0-e704f22b27a6"]
+Cell[485073, 12053, 241, 4, 30, "Input",ExpressionUUID->"b54bb386-fbc8-458c-aba9-9193c1081979"],
+Cell[485317, 12059, 3116, 88, 123, "Output",ExpressionUUID->"ed39cd19-62ae-4b23-a6d0-e704f22b27a6"]
}, Open ]],
-Cell[460681, 11312, 411, 8, 30, "Input",ExpressionUUID->"986cb64b-50df-432a-82b1-7bec4e80ceaf"],
+Cell[488448, 12150, 411, 8, 30, "Input",ExpressionUUID->"986cb64b-50df-432a-82b1-7bec4e80ceaf"],
Cell[CellGroupData[{
-Cell[461117, 11324, 399, 8, 30, "Input",ExpressionUUID->"386e1292-91c9-4b11-bf70-ce5c544eaf00"],
-Cell[461519, 11334, 2268, 62, 57, "Output",ExpressionUUID->"f7dbbaf8-8e17-40de-94a8-9558fed830f5"]
+Cell[488884, 12162, 399, 8, 30, "Input",ExpressionUUID->"386e1292-91c9-4b11-bf70-ce5c544eaf00"],
+Cell[489286, 12172, 2268, 62, 57, "Output",ExpressionUUID->"f7dbbaf8-8e17-40de-94a8-9558fed830f5"]
}, Open ]],
-Cell[463802, 11399, 428, 10, 30, "Input",ExpressionUUID->"f5b579cf-24ea-4964-b55c-94bb52974af6"],
+Cell[491569, 12237, 428, 10, 30, "Input",ExpressionUUID->"f5b579cf-24ea-4964-b55c-94bb52974af6"],
Cell[CellGroupData[{
-Cell[464255, 11413, 375, 7, 30, "Input",ExpressionUUID->"c72fd6f2-d90d-4fd7-94cf-e9c00605986a"],
-Cell[464633, 11422, 2286, 65, 60, "Output",ExpressionUUID->"45440d09-4cee-4346-8f6e-b9d171fb8605"]
+Cell[492022, 12251, 375, 7, 30, "Input",ExpressionUUID->"c72fd6f2-d90d-4fd7-94cf-e9c00605986a"],
+Cell[492400, 12260, 2286, 65, 60, "Output",ExpressionUUID->"45440d09-4cee-4346-8f6e-b9d171fb8605"]
}, Open ]],
-Cell[466934, 11490, 509, 11, 30, "Input",ExpressionUUID->"9688a322-d771-4c80-89e7-c478115b9304"],
+Cell[494701, 12328, 509, 11, 30, "Input",ExpressionUUID->"9688a322-d771-4c80-89e7-c478115b9304"],
Cell[CellGroupData[{
-Cell[467468, 11505, 502, 9, 30, "Input",ExpressionUUID->"295a76c5-604a-4f61-a72b-52de6d59d331"],
-Cell[467973, 11516, 68613, 1717, 5314, "Output",ExpressionUUID->"1286ba27-aaf7-43b7-a8a5-e8ed8063374e"]
+Cell[495235, 12343, 502, 9, 30, "Input",ExpressionUUID->"295a76c5-604a-4f61-a72b-52de6d59d331"],
+Cell[495740, 12354, 68613, 1717, 5314, "Output",ExpressionUUID->"1286ba27-aaf7-43b7-a8a5-e8ed8063374e"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[536647, 13240, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
+Cell[564414, 14078, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
Cell[CellGroupData[{
-Cell[536838, 13247, 1226, 18, 54, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
-Cell[538067, 13267, 1225, 20, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+Cell[564605, 14085, 1226, 18, 54, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
+Cell[565834, 14105, 1225, 20, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
Cell[CellGroupData[{
-Cell[539317, 13291, 1026, 29, 52, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
-Cell[540346, 13322, 626, 10, 51, "Output",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
-Cell[540975, 13334, 607, 9, 34, "Output",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
+Cell[567084, 14129, 1026, 29, 52, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+Cell[568113, 14160, 626, 10, 51, "Output",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
+Cell[568742, 14172, 607, 9, 34, "Output",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[541619, 13348, 529, 13, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
-Cell[542151, 13363, 739, 19, 54, "Output",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
+Cell[569386, 14186, 529, 13, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+Cell[569918, 14201, 739, 19, 54, "Output",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
}, Open ]],
Cell[CellGroupData[{
-Cell[542927, 13387, 548, 17, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
-Cell[543478, 13406, 1561, 49, 97, "Output",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
+Cell[570694, 14225, 548, 17, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+Cell[571245, 14244, 1561, 49, 97, "Output",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
}, Open ]],
-Cell[545054, 13458, 1070, 26, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+Cell[572821, 14296, 1070, 26, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
Cell[CellGroupData[{
-Cell[546149, 13488, 479, 11, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
-Cell[546631, 13501, 444, 10, 24, "Message",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
-Cell[547078, 13513, 159, 3, 34, "Output",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
+Cell[573916, 14326, 479, 11, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+Cell[574398, 14339, 444, 10, 24, "Message",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
+Cell[574845, 14351, 159, 3, 34, "Output",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[547274, 13521, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
-Cell[547811, 13534, 705, 20, 78, "Output",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
+Cell[575041, 14359, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+Cell[575578, 14372, 705, 20, 78, "Output",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[548553, 13559, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
-Cell[549381, 13579, 32915, 609, 230, "Output",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
+Cell[576320, 14397, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+Cell[577148, 14417, 32915, 609, 230, "Output",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[582333, 14193, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
-Cell[583150, 14219, 379, 8, 34, "Output",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
-Cell[583532, 14229, 1038, 31, 37, "Output",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
+Cell[610100, 15031, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+Cell[610917, 15057, 379, 8, 34, "Output",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
+Cell[611299, 15067, 1038, 31, 37, "Output",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
}, Open ]],
Cell[CellGroupData[{
-Cell[584607, 14265, 1253, 26, 30, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
-Cell[585863, 14293, 1160, 18, 24, "Print",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
+Cell[612374, 15103, 1253, 26, 30, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+Cell[613630, 15131, 1160, 18, 24, "Print",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[587060, 14316, 8207, 153, 241, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
-Cell[595270, 14471, 43943, 873, 237, "Output",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
+Cell[614827, 15154, 8207, 153, 241, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+Cell[623037, 15309, 43943, 873, 237, "Output",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[639250, 15349, 788, 19, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
-Cell[640041, 15370, 15662, 321, 248, "Output",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
+Cell[667017, 16187, 788, 19, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
+Cell[667808, 16208, 15662, 321, 248, "Output",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
}, Open ]],
Cell[CellGroupData[{
-Cell[655740, 15696, 763, 23, 52, "Input",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
-Cell[656506, 15721, 288, 5, 34, "Output",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
+Cell[683507, 16534, 763, 23, 52, "Input",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
+Cell[684273, 16559, 288, 5, 34, "Output",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
}, Open ]],
-Cell[656809, 15729, 253, 6, 30, "Input",ExpressionUUID->"38603e06-81f9-4540-b442-c2b9eb49ef1f"],
+Cell[684576, 16567, 253, 6, 30, "Input",ExpressionUUID->"38603e06-81f9-4540-b442-c2b9eb49ef1f"],
Cell[CellGroupData[{
-Cell[657087, 15739, 1344, 43, 94, "Input",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
-Cell[658434, 15784, 323, 6, 34, "Output",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
-Cell[658760, 15792, 320, 6, 34, "Output",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
+Cell[684854, 16577, 1344, 43, 94, "Input",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
+Cell[686201, 16622, 323, 6, 34, "Output",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
+Cell[686527, 16630, 320, 6, 34, "Output",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[659129, 15804, 1218, 17, 38, "Subsection",ExpressionUUID->"b2820fff-bf8c-40c3-b557-8da092f86f4d"],
-Cell[660350, 15823, 1271, 21, 30, "Input",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
+Cell[686896, 16642, 1218, 17, 38, "Subsection",ExpressionUUID->"b2820fff-bf8c-40c3-b557-8da092f86f4d"],
+Cell[688117, 16661, 1271, 21, 30, "Input",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
Cell[CellGroupData[{
-Cell[661646, 15848, 1026, 29, 52, "Input",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
-Cell[662675, 15879, 646, 10, 51, "Output",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
-Cell[663324, 15891, 632, 9, 34, "Output",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
+Cell[689413, 16686, 1026, 29, 52, "Input",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
+Cell[690442, 16717, 646, 10, 51, "Output",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
+Cell[691091, 16729, 632, 9, 34, "Output",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
}, Open ]],
-Cell[663971, 15903, 1070, 26, 30, "Input",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
+Cell[691738, 16741, 1070, 26, 30, "Input",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
Cell[CellGroupData[{
-Cell[665066, 15933, 814, 24, 52, "Input",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
-Cell[665883, 15959, 401, 8, 34, "Output",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
-Cell[666287, 15969, 1062, 31, 37, "Output",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
+Cell[692833, 16771, 814, 24, 52, "Input",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
+Cell[693650, 16797, 401, 8, 34, "Output",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
+Cell[694054, 16807, 1062, 31, 37, "Output",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[667386, 16005, 349, 8, 30, "Input",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
-Cell[667738, 16015, 580, 18, 59, "Output",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
+Cell[695153, 16843, 349, 8, 30, "Input",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
+Cell[695505, 16853, 580, 18, 59, "Output",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
}, Open ]],
Cell[CellGroupData[{
-Cell[668355, 16038, 1385, 29, 30, "Input",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
-Cell[669743, 16069, 1208, 19, 24, "Print",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
+Cell[696122, 16876, 1385, 29, 30, "Input",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
+Cell[697510, 16907, 1208, 19, 24, "Print",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
}, Open ]],
Cell[CellGroupData[{
-Cell[670988, 16093, 8239, 153, 241, "Input",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
-Cell[679230, 16248, 43970, 874, 237, "Output",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
+Cell[698755, 16931, 8239, 153, 241, "Input",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
+Cell[706997, 17086, 43970, 874, 237, "Output",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[723237, 17127, 788, 19, 30, "Input",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
-Cell[724028, 17148, 28603, 541, 248, "Output",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
+Cell[751004, 17965, 788, 19, 30, "Input",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
+Cell[751795, 17986, 28603, 541, 248, "Output",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
}, Open ]],
Cell[CellGroupData[{
-Cell[752668, 17694, 763, 23, 52, "Input",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
-Cell[753434, 17719, 311, 5, 34, "Output",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
+Cell[780435, 18532, 763, 23, 52, "Input",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
+Cell[781201, 18557, 311, 5, 34, "Output",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
}, Open ]],
-Cell[753760, 17727, 253, 6, 30, "Input",ExpressionUUID->"3090482e-6c5c-4f63-b628-0b772cc2d3bf"],
+Cell[781527, 18565, 253, 6, 30, "Input",ExpressionUUID->"3090482e-6c5c-4f63-b628-0b772cc2d3bf"],
Cell[CellGroupData[{
-Cell[754038, 17737, 1344, 43, 94, "Input",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
-Cell[755385, 17782, 347, 6, 34, "Output",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
-Cell[755735, 17790, 344, 6, 34, "Output",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
+Cell[781805, 18575, 1344, 43, 94, "Input",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
+Cell[783152, 18620, 347, 6, 34, "Output",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
+Cell[783502, 18628, 344, 6, 34, "Output",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
}, Open ]],
Cell[CellGroupData[{
-Cell[756116, 17801, 795, 21, 30, "Input",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
-Cell[756914, 17824, 16718, 333, 254, "Output",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
+Cell[783883, 18639, 795, 21, 30, "Input",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
+Cell[784681, 18662, 16718, 333, 254, "Output",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[773681, 18163, 1182, 17, 38, "Subsection",ExpressionUUID->"37266eb5-8195-46d9-9a9f-dc6f7b0c4e42"],
-Cell[774866, 18182, 1327, 21, 30, "Input",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
-Cell[776196, 18205, 1015, 24, 30, "Input",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
+Cell[801448, 19001, 1182, 17, 38, "Subsection",ExpressionUUID->"37266eb5-8195-46d9-9a9f-dc6f7b0c4e42"],
+Cell[802633, 19020, 1327, 21, 30, "Input",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
+Cell[803963, 19043, 1015, 24, 30, "Input",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
Cell[CellGroupData[{
-Cell[777236, 18233, 757, 18, 30, "Input",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
-Cell[777996, 18253, 265, 5, 24, "Print",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
+Cell[805003, 19071, 757, 18, 30, "Input",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
+Cell[805763, 19091, 265, 5, 24, "Print",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
}, Open ]],
Cell[CellGroupData[{
-Cell[778298, 18263, 8054, 156, 241, "Input",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
-Cell[786355, 18421, 43244, 855, 237, "Output",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
-Cell[829602, 19278, 4845, 100, 220, "Output",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
+Cell[806065, 19101, 8054, 156, 241, "Input",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
+Cell[814122, 19259, 43244, 855, 237, "Output",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
+Cell[857369, 20116, 4845, 100, 220, "Output",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[834484, 19383, 763, 23, 52, "Input",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
-Cell[835250, 19408, 241, 4, 34, "Output",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
+Cell[862251, 20221, 763, 23, 52, "Input",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
+Cell[863017, 20246, 241, 4, 34, "Output",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
}, Open ]],
-Cell[835506, 19415, 253, 6, 30, "Input",ExpressionUUID->"4ab87890-76c2-4a56-8e4e-9f0ed3234489"],
+Cell[863273, 20253, 253, 6, 30, "Input",ExpressionUUID->"4ab87890-76c2-4a56-8e4e-9f0ed3234489"],
Cell[CellGroupData[{
-Cell[835784, 19425, 1344, 43, 94, "Input",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
-Cell[837131, 19470, 273, 5, 34, "Output",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
-Cell[837407, 19477, 272, 5, 34, "Output",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
+Cell[863551, 20263, 1344, 43, 94, "Input",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
+Cell[864898, 20308, 273, 5, 34, "Output",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
+Cell[865174, 20315, 272, 5, 34, "Output",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[837740, 19489, 176, 3, 67, "Section",ExpressionUUID->"5749bd47-dc02-4cba-a2cf-201a855b2151"],
+Cell[865507, 20327, 176, 3, 67, "Section",ExpressionUUID->"5749bd47-dc02-4cba-a2cf-201a855b2151"],
Cell[CellGroupData[{
-Cell[837941, 19496, 159, 3, 54, "Subsection",ExpressionUUID->"ba981157-8458-4263-8a67-f9cf60ef2f96"],
+Cell[865708, 20334, 159, 3, 54, "Subsection",ExpressionUUID->"ba981157-8458-4263-8a67-f9cf60ef2f96"],
Cell[CellGroupData[{
-Cell[838125, 19503, 163, 3, 45, "Subsubsection",ExpressionUUID->"91514f64-9c96-4556-9a7d-de6137f482de"],
+Cell[865892, 20341, 163, 3, 45, "Subsubsection",ExpressionUUID->"91514f64-9c96-4556-9a7d-de6137f482de"],
Cell[CellGroupData[{
-Cell[838313, 19510, 1825, 34, 94, "Input",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
-Cell[840141, 19546, 882, 16, 77, "Output",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
+Cell[866080, 20348, 1825, 34, 94, "Input",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
+Cell[867908, 20384, 882, 16, 77, "Output",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[841060, 19567, 2417, 53, 94, "Input",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
-Cell[843480, 19622, 1012, 19, 42, "Message",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
-Cell[844495, 19643, 1013, 19, 42, "Message",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
-Cell[845511, 19664, 1014, 19, 42, "Message",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
-Cell[846528, 19685, 673, 13, 24, "Message",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
+Cell[868827, 20405, 2417, 53, 94, "Input",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
+Cell[871247, 20460, 1012, 19, 42, "Message",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
+Cell[872262, 20481, 1013, 19, 42, "Message",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
+Cell[873278, 20502, 1014, 19, 42, "Message",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
+Cell[874295, 20523, 673, 13, 24, "Message",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
}, Open ]],
-Cell[847216, 19701, 152, 3, 30, "Input",ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-c3e73e2aad7b"],
+Cell[874983, 20539, 152, 3, 30, "Input",ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-c3e73e2aad7b"],
Cell[CellGroupData[{
-Cell[847393, 19708, 911, 27, 30, "Input",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
-Cell[848307, 19737, 3946, 94, 263, "Output",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
+Cell[875160, 20546, 911, 27, 30, "Input",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
+Cell[876074, 20575, 3946, 94, 263, "Output",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
}, Open ]],
Cell[CellGroupData[{
-Cell[852290, 19836, 2328, 50, 94, "Input",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
-Cell[854621, 19888, 1039, 20, 42, "Message",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
-Cell[855663, 19910, 1039, 20, 42, "Message",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
-Cell[856705, 19932, 1040, 20, 42, "Message",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
-Cell[857748, 19954, 696, 14, 24, "Message",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
+Cell[880057, 20674, 2328, 50, 94, "Input",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
+Cell[882388, 20726, 1039, 20, 42, "Message",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
+Cell[883430, 20748, 1039, 20, 42, "Message",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
+Cell[884472, 20770, 1040, 20, 42, "Message",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
+Cell[885515, 20792, 696, 14, 24, "Message",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
}, Open ]],
-Cell[858459, 19971, 1026, 29, 30, "Input",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
+Cell[886226, 20809, 1026, 29, 30, "Input",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
Cell[CellGroupData[{
-Cell[859510, 20004, 2754, 59, 94, "Input",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
-Cell[862267, 20065, 65571, 1315, 375, "Output",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
+Cell[887277, 20842, 2754, 59, 94, "Input",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
+Cell[890034, 20903, 65571, 1315, 375, "Output",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
}, Open ]],
Cell[CellGroupData[{
-Cell[927875, 21385, 420, 9, 30, "Input",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
-Cell[928298, 21396, 15001, 297, 72, "Output",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
+Cell[955642, 22223, 420, 9, 30, "Input",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
+Cell[956065, 22234, 15001, 297, 72, "Output",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[943336, 21698, 536, 15, 30, "Input",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
-Cell[943875, 21715, 626, 13, 31, "Message",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
-Cell[944504, 21730, 448, 7, 34, "Output",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
+Cell[971103, 22536, 536, 15, 30, "Input",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
+Cell[971642, 22553, 626, 13, 31, "Message",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
+Cell[972271, 22568, 448, 7, 34, "Output",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
}, Open ]],
Cell[CellGroupData[{
-Cell[944989, 21742, 652, 20, 30, "Input",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
-Cell[945644, 21764, 365, 6, 34, "Output",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
+Cell[972756, 22580, 652, 20, 30, "Input",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
+Cell[973411, 22602, 365, 6, 34, "Output",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
}, Open ]],
-Cell[946024, 21773, 244, 5, 30, "Input",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
+Cell[973791, 22611, 244, 5, 30, "Input",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
Cell[CellGroupData[{
-Cell[946293, 21782, 237, 5, 30, "Input",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
-Cell[946533, 21789, 392, 6, 34, "Output",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
+Cell[974060, 22620, 237, 5, 30, "Input",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
+Cell[974300, 22627, 392, 6, 34, "Output",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[946962, 21800, 532, 15, 30, "Input",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
-Cell[947497, 21817, 17749, 352, 111, "Output",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
+Cell[974729, 22638, 532, 15, 30, "Input",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
+Cell[975264, 22655, 17749, 352, 111, "Output",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
}, Open ]],
Cell[CellGroupData[{
-Cell[965283, 22174, 2895, 63, 115, "Input",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
-Cell[968181, 22239, 557, 12, 49, "Message",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
-Cell[968741, 22253, 88809, 1684, 381, "Output",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
+Cell[993050, 23012, 2895, 63, 115, "Input",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
+Cell[995948, 23077, 557, 12, 49, "Message",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
+Cell[996508, 23091, 88809, 1684, 381, "Output",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1057599, 23943, 154, 3, 37, "Subsubsection",ExpressionUUID->"e4a9ae43-463d-4aae-9abe-517b2016b6ca"],
+Cell[1085366, 24781, 154, 3, 37, "Subsubsection",ExpressionUUID->"e4a9ae43-463d-4aae-9abe-517b2016b6ca"],
Cell[CellGroupData[{
-Cell[1057778, 23950, 2316, 47, 115, "Input",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
-Cell[1060097, 23999, 1147, 19, 77, "Output",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
+Cell[1085545, 24788, 2316, 47, 115, "Input",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
+Cell[1087864, 24837, 1147, 19, 77, "Output",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1061281, 24023, 2568, 55, 94, "Input",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
-Cell[1063852, 24080, 1180, 21, 24, "Message",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
-Cell[1065035, 24103, 1179, 21, 24, "Message",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
-Cell[1066217, 24126, 1179, 21, 24, "Message",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
-Cell[1067399, 24149, 952, 17, 24, "Message",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
-Cell[1068354, 24168, 1081, 19, 59, "Message",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
+Cell[1089048, 24861, 2568, 55, 94, "Input",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
+Cell[1091619, 24918, 1180, 21, 24, "Message",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
+Cell[1092802, 24941, 1179, 21, 24, "Message",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
+Cell[1093984, 24964, 1179, 21, 24, "Message",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
+Cell[1095166, 24987, 952, 17, 24, "Message",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
+Cell[1096121, 25006, 1081, 19, 59, "Message",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1069472, 24192, 911, 27, 30, "Input",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
-Cell[1070386, 24221, 4667, 102, 338, "Output",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
+Cell[1097239, 25030, 911, 27, 30, "Input",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
+Cell[1098153, 25059, 4667, 102, 338, "Output",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1075090, 24328, 2810, 58, 94, "Input",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
-Cell[1077903, 24388, 49517, 992, 375, "Output",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
+Cell[1102857, 25166, 2810, 58, 94, "Input",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
+Cell[1105670, 25226, 49517, 992, 375, "Output",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1127457, 25385, 393, 7, 30, "Input",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
-Cell[1127853, 25394, 15394, 305, 72, "Output",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
+Cell[1155224, 26223, 393, 7, 30, "Input",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
+Cell[1155620, 26232, 15394, 305, 72, "Output",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1143284, 25704, 536, 15, 30, "Input",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
-Cell[1143823, 25721, 494, 7, 34, "Output",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
+Cell[1171051, 26542, 536, 15, 30, "Input",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
+Cell[1171590, 26559, 494, 7, 34, "Output",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1144354, 25733, 652, 20, 30, "Input",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
-Cell[1145009, 25755, 413, 6, 34, "Output",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
+Cell[1172121, 26571, 652, 20, 30, "Input",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
+Cell[1172776, 26593, 413, 6, 34, "Output",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
}, Open ]],
-Cell[1145437, 25764, 244, 5, 30, "Input",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
+Cell[1173204, 26602, 244, 5, 30, "Input",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
Cell[CellGroupData[{
-Cell[1145706, 25773, 237, 5, 30, "Input",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
-Cell[1145946, 25780, 444, 7, 34, "Output",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
+Cell[1173473, 26611, 237, 5, 30, "Input",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
+Cell[1173713, 26618, 444, 7, 34, "Output",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1146427, 25792, 532, 15, 30, "Input",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
-Cell[1146962, 25809, 18105, 358, 111, "Output",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
+Cell[1174194, 26630, 532, 15, 30, "Input",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
+Cell[1174729, 26647, 18105, 358, 111, "Output",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1165104, 26172, 2932, 62, 115, "Input",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
-Cell[1168039, 26236, 78570, 1513, 381, "Output",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
+Cell[1192871, 27010, 2932, 62, 115, "Input",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
+Cell[1195806, 27074, 78570, 1513, 381, "Output",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1246658, 27755, 229, 4, 37, "Subsubsection",ExpressionUUID->"11184085-91e2-4612-9a46-acb61173620f"],
+Cell[1274425, 28593, 229, 4, 37, "Subsubsection",ExpressionUUID->"11184085-91e2-4612-9a46-acb61173620f"],
Cell[CellGroupData[{
-Cell[1246912, 27763, 775, 22, 52, "Input",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
-Cell[1247690, 27787, 266, 4, 34, "Output",ExpressionUUID->"7508b79b-6e60-4769-8be4-edb72241e995"]
+Cell[1274679, 28601, 775, 22, 52, "Input",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
+Cell[1275457, 28625, 266, 4, 34, "Output",ExpressionUUID->"7508b79b-6e60-4769-8be4-edb72241e995"]
}, Open ]],
-Cell[1247971, 27794, 255, 6, 30, "Input",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
+Cell[1275738, 28632, 255, 6, 30, "Input",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
Cell[CellGroupData[{
-Cell[1248251, 27804, 2709, 62, 115, "Input",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
-Cell[1250963, 27868, 1557, 23, 34, "Output",ExpressionUUID->"8c58b15c-41ba-432e-aaee-7030aa6f62a0"],
-Cell[1252523, 27893, 1769, 30, 56, "Output",ExpressionUUID->"da576a89-9532-42c5-9e6c-1c4c9d1e7fd5"],
-Cell[1254295, 27925, 1555, 23, 34, "Output",ExpressionUUID->"3a6cdb3e-029a-4c89-983f-1f56b81f06e8"]
+Cell[1276018, 28642, 2709, 62, 115, "Input",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
+Cell[1278730, 28706, 1557, 23, 34, "Output",ExpressionUUID->"8c58b15c-41ba-432e-aaee-7030aa6f62a0"],
+Cell[1280290, 28731, 1769, 30, 56, "Output",ExpressionUUID->"da576a89-9532-42c5-9e6c-1c4c9d1e7fd5"],
+Cell[1282062, 28763, 1555, 23, 34, "Output",ExpressionUUID->"3a6cdb3e-029a-4c89-983f-1f56b81f06e8"]
}, Open ]],
-Cell[1255865, 27951, 270, 7, 30, "Input",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
+Cell[1283632, 28789, 270, 7, 30, "Input",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
Cell[CellGroupData[{
-Cell[1256160, 27962, 358, 7, 30, "Input",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
-Cell[1256521, 27971, 1058, 21, 62, "Output",ExpressionUUID->"e09b708e-d49b-49db-8b55-466a8b511049"]
+Cell[1283927, 28800, 358, 7, 30, "Input",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
+Cell[1284288, 28809, 1058, 21, 62, "Output",ExpressionUUID->"e09b708e-d49b-49db-8b55-466a8b511049"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1257616, 27997, 2316, 47, 115, "Input",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
-Cell[1259935, 28046, 1206, 20, 77, "Output",ExpressionUUID->"273bbeb3-8eef-4a63-b0f8-9c2fb08338d4"]
+Cell[1285383, 28835, 2316, 47, 115, "Input",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
+Cell[1287702, 28884, 1206, 20, 77, "Output",ExpressionUUID->"273bbeb3-8eef-4a63-b0f8-9c2fb08338d4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1261178, 28071, 585, 13, 30, "Input",ExpressionUUID->"70f90102-3530-4166-a289-f25ebc522315"],
-Cell[1261766, 28086, 19862, 387, 237, "Output",ExpressionUUID->"66f92046-9e44-49f1-9d4d-04ca159c4e3f"]
+Cell[1288945, 28909, 585, 13, 30, "Input",ExpressionUUID->"70f90102-3530-4166-a289-f25ebc522315"],
+Cell[1289533, 28924, 19862, 387, 237, "Output",ExpressionUUID->"66f92046-9e44-49f1-9d4d-04ca159c4e3f"]
}, Open ]],
-Cell[1281643, 28476, 441, 13, 53, "Input",ExpressionUUID->"ace7098f-621c-48a0-b5c4-4256ffb71049"],
+Cell[1309410, 29314, 441, 13, 53, "Input",ExpressionUUID->"ace7098f-621c-48a0-b5c4-4256ffb71049"],
Cell[CellGroupData[{
-Cell[1282109, 28493, 787, 18, 52, "Input",ExpressionUUID->"93170141-e296-431e-b149-b9a461f89bf9"],
-Cell[1282899, 28513, 5389, 108, 234, "Output",ExpressionUUID->"446e8701-80ad-4591-8022-8a543e4e09b1"]
+Cell[1309876, 29331, 787, 18, 52, "Input",ExpressionUUID->"93170141-e296-431e-b149-b9a461f89bf9"],
+Cell[1310666, 29351, 5389, 108, 234, "Output",ExpressionUUID->"446e8701-80ad-4591-8022-8a543e4e09b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1288325, 28626, 265, 6, 30, "Input",ExpressionUUID->"31c3df29-e8aa-43eb-af38-f4b2c70dffac"],
-Cell[1288593, 28634, 472, 10, 42, "Message",ExpressionUUID->"1c995d55-0745-4756-a2d4-68534777d494"],
-Cell[1289068, 28646, 552, 14, 37, "Output",ExpressionUUID->"8fd82f1e-9f35-47a5-be62-beb2c0d06b2b"]
+Cell[1316092, 29464, 265, 6, 30, "Input",ExpressionUUID->"31c3df29-e8aa-43eb-af38-f4b2c70dffac"],
+Cell[1316360, 29472, 472, 10, 42, "Message",ExpressionUUID->"1c995d55-0745-4756-a2d4-68534777d494"],
+Cell[1316835, 29484, 552, 14, 37, "Output",ExpressionUUID->"8fd82f1e-9f35-47a5-be62-beb2c0d06b2b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1289657, 28665, 2699, 47, 73, "Input",ExpressionUUID->"44b3d80f-eab7-44ec-8fe9-c3b9a3063b7a"],
-Cell[1292359, 28714, 618, 12, 59, "Message",ExpressionUUID->"f44ea9bc-f4f0-4ff9-bc2b-ba35d7a00af4"],
-Cell[1292980, 28728, 616, 12, 59, "Message",ExpressionUUID->"e7aa77c2-94e4-42fb-991f-eb708f0ed4d0"],
-Cell[1293599, 28742, 616, 12, 59, "Message",ExpressionUUID->"735626a9-c990-4786-aca8-bb054e529600"],
-Cell[1294218, 28756, 475, 10, 24, "Message",ExpressionUUID->"97277a48-befd-4753-ba75-6bd82095e181"],
-Cell[1294696, 28768, 4261, 125, 315, "Output",ExpressionUUID->"30166ad9-b386-442e-9487-d4719d763844"]
+Cell[1317424, 29503, 2699, 47, 73, "Input",ExpressionUUID->"44b3d80f-eab7-44ec-8fe9-c3b9a3063b7a"],
+Cell[1320126, 29552, 618, 12, 59, "Message",ExpressionUUID->"f44ea9bc-f4f0-4ff9-bc2b-ba35d7a00af4"],
+Cell[1320747, 29566, 616, 12, 59, "Message",ExpressionUUID->"e7aa77c2-94e4-42fb-991f-eb708f0ed4d0"],
+Cell[1321366, 29580, 616, 12, 59, "Message",ExpressionUUID->"735626a9-c990-4786-aca8-bb054e529600"],
+Cell[1321985, 29594, 475, 10, 24, "Message",ExpressionUUID->"97277a48-befd-4753-ba75-6bd82095e181"],
+Cell[1322463, 29606, 4261, 125, 315, "Output",ExpressionUUID->"30166ad9-b386-442e-9487-d4719d763844"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1298994, 28898, 325, 7, 30, "Input",ExpressionUUID->"21b6219d-05c0-4ddd-9cee-81e8dc77f5b9"],
-Cell[1299322, 28907, 2341, 54, 241, "Output",ExpressionUUID->"dd789237-b046-4472-a2b9-7cc379a533ec"]
+Cell[1326761, 29736, 325, 7, 30, "Input",ExpressionUUID->"21b6219d-05c0-4ddd-9cee-81e8dc77f5b9"],
+Cell[1327089, 29745, 2341, 54, 241, "Output",ExpressionUUID->"dd789237-b046-4472-a2b9-7cc379a533ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1301700, 28966, 347, 9, 30, "Input",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
-Cell[1302050, 28977, 375, 7, 50, "Output",ExpressionUUID->"8609604a-58aa-4ec7-9280-667efff9f76f"]
+Cell[1329467, 29804, 347, 9, 30, "Input",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
+Cell[1329817, 29815, 375, 7, 50, "Output",ExpressionUUID->"8609604a-58aa-4ec7-9280-667efff9f76f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1302462, 28989, 1065, 27, 30, "Input",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
-Cell[1303530, 29018, 1007, 25, 61, "Output",ExpressionUUID->"da793cfe-f57e-489a-9627-8aa18ebde23f"]
+Cell[1330229, 29827, 1065, 27, 30, "Input",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
+Cell[1331297, 29856, 1007, 25, 61, "Output",ExpressionUUID->"da793cfe-f57e-489a-9627-8aa18ebde23f"]
}, Open ]],
-Cell[1304552, 29046, 615, 19, 73, "Input",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
+Cell[1332319, 29884, 615, 19, 73, "Input",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
Cell[CellGroupData[{
-Cell[1305192, 29069, 3416, 72, 115, "Input",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
-Cell[1308611, 29143, 2087, 34, 79, "Message",ExpressionUUID->"8eae0674-3268-473e-82a7-2524170892db"],
-Cell[1310701, 29179, 2086, 34, 79, "Message",ExpressionUUID->"2bacbe2a-25c3-4872-8b91-917f220f32d6"],
-Cell[1312790, 29215, 2087, 34, 79, "Message",ExpressionUUID->"8f664c88-7d74-4c42-9f21-244b8bd6490b"],
-Cell[1314880, 29251, 1529, 25, 24, "Message",ExpressionUUID->"85421859-0f2a-4551-bdc3-91352b140a75"]
+Cell[1332959, 29907, 3416, 72, 115, "Input",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
+Cell[1336378, 29981, 2087, 34, 79, "Message",ExpressionUUID->"8eae0674-3268-473e-82a7-2524170892db"],
+Cell[1338468, 30017, 2086, 34, 79, "Message",ExpressionUUID->"2bacbe2a-25c3-4872-8b91-917f220f32d6"],
+Cell[1340557, 30053, 2087, 34, 79, "Message",ExpressionUUID->"8f664c88-7d74-4c42-9f21-244b8bd6490b"],
+Cell[1342647, 30089, 1529, 25, 24, "Message",ExpressionUUID->"85421859-0f2a-4551-bdc3-91352b140a75"]
}, Open ]],
-Cell[1316424, 29279, 423, 8, 30, "Input",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
+Cell[1344191, 30117, 423, 8, 30, "Input",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
Cell[CellGroupData[{
-Cell[1316872, 29291, 2746, 52, 94, "Input",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
-Cell[1319621, 29345, 42552, 853, 384, "Output",ExpressionUUID->"bba53ef5-f4d2-4155-98b3-1c4b297c58dc"]
+Cell[1344639, 30129, 2746, 52, 94, "Input",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
+Cell[1347388, 30183, 42552, 853, 384, "Output",ExpressionUUID->"bba53ef5-f4d2-4155-98b3-1c4b297c58dc"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1362222, 30204, 279, 4, 37, "Subsubsection",ExpressionUUID->"d2e5cb97-1c43-4f7a-b03d-7df273aebdb5"],
+Cell[1389989, 31042, 279, 4, 37, "Subsubsection",ExpressionUUID->"d2e5cb97-1c43-4f7a-b03d-7df273aebdb5"],
Cell[CellGroupData[{
-Cell[1362526, 30212, 771, 21, 52, "Input",ExpressionUUID->"1de2e851-15fc-4577-8d1b-8be0d0828b6a"],
-Cell[1363300, 30235, 216, 3, 34, "Output",ExpressionUUID->"ad094e44-8503-44c3-a469-10027f0fa11f"]
+Cell[1390293, 31050, 771, 21, 52, "Input",ExpressionUUID->"1de2e851-15fc-4577-8d1b-8be0d0828b6a"],
+Cell[1391067, 31073, 216, 3, 34, "Output",ExpressionUUID->"ad094e44-8503-44c3-a469-10027f0fa11f"]
}, Open ]],
-Cell[1363531, 30241, 251, 5, 30, "Input",ExpressionUUID->"f6d2096f-862a-4d9a-8d31-c18d5ec891d7"],
+Cell[1391298, 31079, 251, 5, 30, "Input",ExpressionUUID->"f6d2096f-862a-4d9a-8d31-c18d5ec891d7"],
Cell[CellGroupData[{
-Cell[1363807, 30250, 2565, 57, 115, "Input",ExpressionUUID->"b6ffd8d5-13a3-4483-bd53-450792b0d96d"],
-Cell[1366375, 30309, 1427, 20, 34, "Output",ExpressionUUID->"3bbd13bb-16f9-494a-95b7-89616308fd41"],
-Cell[1367805, 30331, 1613, 26, 38, "Output",ExpressionUUID->"38d41d17-a15a-4f27-bf55-ce857d576189"],
-Cell[1369421, 30359, 1425, 20, 34, "Output",ExpressionUUID->"c61695c6-ca11-411b-907e-e9a354064039"]
+Cell[1391574, 31088, 2565, 57, 115, "Input",ExpressionUUID->"b6ffd8d5-13a3-4483-bd53-450792b0d96d"],
+Cell[1394142, 31147, 1427, 20, 34, "Output",ExpressionUUID->"3bbd13bb-16f9-494a-95b7-89616308fd41"],
+Cell[1395572, 31169, 1613, 26, 38, "Output",ExpressionUUID->"38d41d17-a15a-4f27-bf55-ce857d576189"],
+Cell[1397188, 31197, 1425, 20, 34, "Output",ExpressionUUID->"c61695c6-ca11-411b-907e-e9a354064039"]
}, Open ]],
-Cell[1370861, 30382, 266, 6, 30, "Input",ExpressionUUID->"e5feaf8b-9c93-4640-b43f-881da8f213d6"],
+Cell[1398628, 31220, 266, 6, 30, "Input",ExpressionUUID->"e5feaf8b-9c93-4640-b43f-881da8f213d6"],
Cell[CellGroupData[{
-Cell[1371152, 30392, 354, 6, 30, "Input",ExpressionUUID->"e56b6103-5896-45ad-891c-59f6b615664b"],
-Cell[1371509, 30400, 980, 18, 55, "Output",ExpressionUUID->"17319094-d6fc-448f-8cf8-3a30f92aaaaa"]
+Cell[1398919, 31230, 354, 6, 30, "Input",ExpressionUUID->"e56b6103-5896-45ad-891c-59f6b615664b"],
+Cell[1399276, 31238, 980, 18, 55, "Output",ExpressionUUID->"17319094-d6fc-448f-8cf8-3a30f92aaaaa"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1372526, 30423, 2312, 46, 115, "Input",ExpressionUUID->"23d86774-7f6c-4ec9-a62d-8f66c4bf0f04"],
-Cell[1374841, 30471, 1180, 19, 77, "Output",ExpressionUUID->"b8f7c246-326b-451b-94d1-5d2cdb53f13e"]
+Cell[1400293, 31261, 2312, 46, 115, "Input",ExpressionUUID->"23d86774-7f6c-4ec9-a62d-8f66c4bf0f04"],
+Cell[1402608, 31309, 1180, 19, 77, "Output",ExpressionUUID->"b8f7c246-326b-451b-94d1-5d2cdb53f13e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1376058, 30495, 572, 15, 52, "Input",ExpressionUUID->"af27c407-f1d7-43dc-a5bd-bccc56a9ffaf"],
-Cell[1376633, 30512, 513, 15, 55, "Output",ExpressionUUID->"beec92a5-c1ca-4a8e-ba25-e7e3417b00eb"]
+Cell[1403825, 31333, 572, 15, 52, "Input",ExpressionUUID->"af27c407-f1d7-43dc-a5bd-bccc56a9ffaf"],
+Cell[1404400, 31350, 513, 15, 55, "Output",ExpressionUUID->"beec92a5-c1ca-4a8e-ba25-e7e3417b00eb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1377183, 30532, 479, 12, 30, "Input",ExpressionUUID->"37e5122e-4452-4bc6-8773-e34f49e038dc"],
-Cell[1377665, 30546, 6416, 124, 236, "Output",ExpressionUUID->"ca186576-1fb8-4886-8b7a-8be77a0e15e6"]
+Cell[1404950, 31370, 479, 12, 30, "Input",ExpressionUUID->"37e5122e-4452-4bc6-8773-e34f49e038dc"],
+Cell[1405432, 31384, 6416, 124, 236, "Output",ExpressionUUID->"ca186576-1fb8-4886-8b7a-8be77a0e15e6"]
}, Open ]],
-Cell[1384096, 30673, 441, 13, 53, "Input",ExpressionUUID->"1a6d4c44-3bbc-4dd5-9aa5-e6500ea74da2"],
+Cell[1411863, 31511, 441, 13, 53, "Input",ExpressionUUID->"1a6d4c44-3bbc-4dd5-9aa5-e6500ea74da2"],
Cell[CellGroupData[{
-Cell[1384562, 30690, 787, 18, 52, "Input",ExpressionUUID->"11f39284-9295-4260-a1bc-d1a6f0deecd7"],
-Cell[1385352, 30710, 5389, 108, 234, "Output",ExpressionUUID->"ff9f582c-1028-4f34-a5fc-b1b8ee01894d"]
+Cell[1412329, 31528, 787, 18, 52, "Input",ExpressionUUID->"11f39284-9295-4260-a1bc-d1a6f0deecd7"],
+Cell[1413119, 31548, 5389, 108, 234, "Output",ExpressionUUID->"ff9f582c-1028-4f34-a5fc-b1b8ee01894d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1390778, 30823, 265, 6, 30, "Input",ExpressionUUID->"3668b5c0-0ca2-4aa3-9d0a-d69a6fffc0e0"],
-Cell[1391046, 30831, 472, 10, 42, "Message",ExpressionUUID->"550e8580-f985-40c9-b446-170ead5459d2"],
-Cell[1391521, 30843, 552, 14, 37, "Output",ExpressionUUID->"1590906b-c7ab-411b-9523-2acbc1aa9688"]
+Cell[1418545, 31661, 265, 6, 30, "Input",ExpressionUUID->"3668b5c0-0ca2-4aa3-9d0a-d69a6fffc0e0"],
+Cell[1418813, 31669, 472, 10, 42, "Message",ExpressionUUID->"550e8580-f985-40c9-b446-170ead5459d2"],
+Cell[1419288, 31681, 552, 14, 37, "Output",ExpressionUUID->"1590906b-c7ab-411b-9523-2acbc1aa9688"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1392110, 30862, 2699, 47, 73, "Input",ExpressionUUID->"00fe81c0-2c7a-4c9b-ada4-839f44d7998b"],
-Cell[1394812, 30911, 618, 12, 59, "Message",ExpressionUUID->"2cebd512-e5e9-4d80-878d-c87d2cdf9a20"],
-Cell[1395433, 30925, 616, 12, 59, "Message",ExpressionUUID->"5d68ad4a-4834-45b6-8ee5-aa9a272273b3"],
-Cell[1396052, 30939, 616, 12, 59, "Message",ExpressionUUID->"bd70fca1-b941-443b-8152-fb6cb472ff74"],
-Cell[1396671, 30953, 475, 10, 24, "Message",ExpressionUUID->"3ee3859c-76b4-4256-8e1c-31fde849f83f"],
-Cell[1397149, 30965, 4261, 125, 315, "Output",ExpressionUUID->"53be62bf-fb3d-4d3e-bed4-2bd042882487"]
+Cell[1419877, 31700, 2699, 47, 73, "Input",ExpressionUUID->"00fe81c0-2c7a-4c9b-ada4-839f44d7998b"],
+Cell[1422579, 31749, 618, 12, 59, "Message",ExpressionUUID->"2cebd512-e5e9-4d80-878d-c87d2cdf9a20"],
+Cell[1423200, 31763, 616, 12, 59, "Message",ExpressionUUID->"5d68ad4a-4834-45b6-8ee5-aa9a272273b3"],
+Cell[1423819, 31777, 616, 12, 59, "Message",ExpressionUUID->"bd70fca1-b941-443b-8152-fb6cb472ff74"],
+Cell[1424438, 31791, 475, 10, 24, "Message",ExpressionUUID->"3ee3859c-76b4-4256-8e1c-31fde849f83f"],
+Cell[1424916, 31803, 4261, 125, 315, "Output",ExpressionUUID->"53be62bf-fb3d-4d3e-bed4-2bd042882487"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1401447, 31095, 325, 7, 30, "Input",ExpressionUUID->"b5c1ee72-b9af-4ce7-a524-724520ada3dd"],
-Cell[1401775, 31104, 2341, 54, 241, "Output",ExpressionUUID->"e69cac6d-af53-483e-8e02-4e46fd37dea3"]
+Cell[1429214, 31933, 325, 7, 30, "Input",ExpressionUUID->"b5c1ee72-b9af-4ce7-a524-724520ada3dd"],
+Cell[1429542, 31942, 2341, 54, 241, "Output",ExpressionUUID->"e69cac6d-af53-483e-8e02-4e46fd37dea3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1404153, 31163, 347, 9, 30, "Input",ExpressionUUID->"472a23d5-ee35-40f5-9290-113421c78588"],
-Cell[1404503, 31174, 375, 7, 50, "Output",ExpressionUUID->"c4ed3252-bfee-4429-9189-6b096d28a071"]
+Cell[1431920, 32001, 347, 9, 30, "Input",ExpressionUUID->"472a23d5-ee35-40f5-9290-113421c78588"],
+Cell[1432270, 32012, 375, 7, 50, "Output",ExpressionUUID->"c4ed3252-bfee-4429-9189-6b096d28a071"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1404915, 31186, 1065, 27, 30, "Input",ExpressionUUID->"ab984da8-b8d3-4483-802b-fa34ff1ae9fa"],
-Cell[1405983, 31215, 1007, 25, 61, "Output",ExpressionUUID->"0d8a7f79-7764-4a53-82fc-2c87a3124794"]
+Cell[1432682, 32024, 1065, 27, 30, "Input",ExpressionUUID->"ab984da8-b8d3-4483-802b-fa34ff1ae9fa"],
+Cell[1433750, 32053, 1007, 25, 61, "Output",ExpressionUUID->"0d8a7f79-7764-4a53-82fc-2c87a3124794"]
}, Open ]],
-Cell[1407005, 31243, 615, 19, 73, "Input",ExpressionUUID->"25b2e966-2eeb-4a74-bf0d-7b7647ab0c6e"],
+Cell[1434772, 32081, 615, 19, 73, "Input",ExpressionUUID->"25b2e966-2eeb-4a74-bf0d-7b7647ab0c6e"],
Cell[CellGroupData[{
-Cell[1407645, 31266, 3416, 72, 115, "Input",ExpressionUUID->"a26277f8-e69d-47f7-8302-0256c14d0bb0"],
-Cell[1411064, 31340, 2087, 34, 79, "Message",ExpressionUUID->"ec78464f-58bd-48a3-9320-36b9880495a0"],
-Cell[1413154, 31376, 2086, 34, 79, "Message",ExpressionUUID->"803384a0-c67a-4674-af76-5d1a2c3e38cc"],
-Cell[1415243, 31412, 2087, 34, 79, "Message",ExpressionUUID->"c11db11b-5eac-4faa-b285-31769b97ff00"],
-Cell[1417333, 31448, 1529, 25, 24, "Message",ExpressionUUID->"97f1b32c-17a9-4164-86a0-eb1c952c3554"]
+Cell[1435412, 32104, 3416, 72, 115, "Input",ExpressionUUID->"a26277f8-e69d-47f7-8302-0256c14d0bb0"],
+Cell[1438831, 32178, 2087, 34, 79, "Message",ExpressionUUID->"ec78464f-58bd-48a3-9320-36b9880495a0"],
+Cell[1440921, 32214, 2086, 34, 79, "Message",ExpressionUUID->"803384a0-c67a-4674-af76-5d1a2c3e38cc"],
+Cell[1443010, 32250, 2087, 34, 79, "Message",ExpressionUUID->"c11db11b-5eac-4faa-b285-31769b97ff00"],
+Cell[1445100, 32286, 1529, 25, 24, "Message",ExpressionUUID->"97f1b32c-17a9-4164-86a0-eb1c952c3554"]
}, Open ]],
-Cell[1418877, 31476, 423, 8, 30, "Input",ExpressionUUID->"aefcbe23-0acd-4657-aa2b-3613fb841a9d"],
+Cell[1446644, 32314, 423, 8, 30, "Input",ExpressionUUID->"aefcbe23-0acd-4657-aa2b-3613fb841a9d"],
Cell[CellGroupData[{
-Cell[1419325, 31488, 2746, 52, 94, "Input",ExpressionUUID->"94d5fec6-bf16-430c-a06b-e4119d75b61c"],
-Cell[1422074, 31542, 42575, 854, 384, "Output",ExpressionUUID->"c71f1b50-4963-4d9f-b9a7-82e3194cfecd"]
+Cell[1447092, 32326, 2746, 52, 94, "Input",ExpressionUUID->"94d5fec6-bf16-430c-a06b-e4119d75b61c"],
+Cell[1449841, 32380, 42575, 854, 384, "Output",ExpressionUUID->"c71f1b50-4963-4d9f-b9a7-82e3194cfecd"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1464698, 32402, 303, 5, 37, "Subsubsection",ExpressionUUID->"5c80a4a6-f849-44aa-a902-4ac81e7aa863"],
+Cell[1492465, 33240, 303, 5, 37, "Subsubsection",ExpressionUUID->"5c80a4a6-f849-44aa-a902-4ac81e7aa863"],
Cell[CellGroupData[{
-Cell[1465026, 32411, 771, 21, 52, "Input",ExpressionUUID->"cb114895-7fe2-44e8-81fc-87e75e735342"],
-Cell[1465800, 32434, 237, 3, 34, "Output",ExpressionUUID->"e734ce0e-e9ed-403f-b08a-a8d3b82e26c4"]
+Cell[1492793, 33249, 771, 21, 52, "Input",ExpressionUUID->"cb114895-7fe2-44e8-81fc-87e75e735342"],
+Cell[1493567, 33272, 237, 3, 34, "Output",ExpressionUUID->"e734ce0e-e9ed-403f-b08a-a8d3b82e26c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1466074, 32442, 3640, 110, 199, "Input",ExpressionUUID->"bd7d4bbb-d0af-4d81-bf06-71456f164df5"],
-Cell[1469717, 32554, 248, 4, 34, "Output",ExpressionUUID->"2de67864-6364-4dc2-82f7-83b0fcb8ea57"]
+Cell[1493841, 33280, 3640, 110, 199, "Input",ExpressionUUID->"bd7d4bbb-d0af-4d81-bf06-71456f164df5"],
+Cell[1497484, 33392, 248, 4, 34, "Output",ExpressionUUID->"2de67864-6364-4dc2-82f7-83b0fcb8ea57"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1470002, 32563, 906, 24, 30, "Input",ExpressionUUID->"60d68403-d1d5-42cc-b093-93db823fe03f"],
-Cell[1470911, 32589, 1401, 36, 96, "Output",ExpressionUUID->"63cb3e9d-ac71-4fc3-9b03-7de38e27fe5a"]
+Cell[1497769, 33401, 906, 24, 30, "Input",ExpressionUUID->"60d68403-d1d5-42cc-b093-93db823fe03f"],
+Cell[1498678, 33427, 1401, 36, 96, "Output",ExpressionUUID->"63cb3e9d-ac71-4fc3-9b03-7de38e27fe5a"]
}, Open ]],
-Cell[1472327, 32628, 949, 30, 115, "Input",ExpressionUUID->"936e1f71-ea64-43a2-9527-1cf7dc346a91"],
+Cell[1500094, 33466, 949, 30, 115, "Input",ExpressionUUID->"936e1f71-ea64-43a2-9527-1cf7dc346a91"],
Cell[CellGroupData[{
-Cell[1473301, 32662, 791, 18, 30, "Input",ExpressionUUID->"324b69d4-c96b-4711-a9f3-4ce2c74cfc9d"],
-Cell[1474095, 32682, 1767, 41, 96, "Output",ExpressionUUID->"ac7e6b11-cfc7-47ae-9d98-82634809edd1"]
+Cell[1501068, 33500, 791, 18, 30, "Input",ExpressionUUID->"324b69d4-c96b-4711-a9f3-4ce2c74cfc9d"],
+Cell[1501862, 33520, 1767, 41, 96, "Output",ExpressionUUID->"ac7e6b11-cfc7-47ae-9d98-82634809edd1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1475899, 32728, 1599, 31, 30, "Input",ExpressionUUID->"a332b8bb-3e02-4c76-a3e1-19da0a159c96"],
-Cell[1477501, 32761, 844, 16, 34, "Output",ExpressionUUID->"a63f1d21-ea83-4965-b72f-227c58b92f1b"]
+Cell[1503666, 33566, 1599, 31, 30, "Input",ExpressionUUID->"a332b8bb-3e02-4c76-a3e1-19da0a159c96"],
+Cell[1505268, 33599, 844, 16, 34, "Output",ExpressionUUID->"a63f1d21-ea83-4965-b72f-227c58b92f1b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1478382, 32782, 3373, 64, 115, "Input",ExpressionUUID->"c53dfb5b-a1aa-4ac0-bcac-c4ba5ef29693"],
-Cell[1481758, 32848, 1421, 33, 126, "Output",ExpressionUUID->"6424e961-7b1c-4735-add1-355292ffb803"]
+Cell[1506149, 33620, 3373, 64, 115, "Input",ExpressionUUID->"c53dfb5b-a1aa-4ac0-bcac-c4ba5ef29693"],
+Cell[1509525, 33686, 1421, 33, 126, "Output",ExpressionUUID->"6424e961-7b1c-4735-add1-355292ffb803"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1483216, 32886, 379, 8, 30, "Input",ExpressionUUID->"687399f1-42d4-45fe-846a-76025169c66f"],
-Cell[1483598, 32896, 14099, 303, 244, "Output",ExpressionUUID->"a6e54410-bd44-48ac-ba27-956b97007c40"]
+Cell[1510983, 33724, 379, 8, 30, "Input",ExpressionUUID->"687399f1-42d4-45fe-846a-76025169c66f"],
+Cell[1511365, 33734, 14099, 303, 244, "Output",ExpressionUUID->"a6e54410-bd44-48ac-ba27-956b97007c40"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[1497758, 33206, 156, 3, 54, "Subsection",ExpressionUUID->"47013bff-4a89-40e6-9c36-3b47c6c727d8"],
+Cell[1525525, 34044, 156, 3, 54, "Subsection",ExpressionUUID->"47013bff-4a89-40e6-9c36-3b47c6c727d8"],
Cell[CellGroupData[{
-Cell[1497939, 33213, 2101, 43, 115, "Input",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
-Cell[1500043, 33258, 1585, 25, 102, "Output",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
+Cell[1525706, 34051, 2101, 43, 115, "Input",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
+Cell[1527810, 34096, 1585, 25, 102, "Output",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1501665, 33288, 2411, 53, 115, "Input",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
-Cell[1504079, 33343, 940, 18, 42, "Message",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
-Cell[1505022, 33363, 938, 18, 42, "Message",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
-Cell[1505963, 33383, 939, 18, 42, "Message",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
-Cell[1506905, 33403, 600, 12, 24, "Message",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
-Cell[1507508, 33417, 730, 14, 59, "Message",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
-Cell[1508241, 33433, 732, 14, 59, "Message",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
+Cell[1529432, 34126, 2411, 53, 115, "Input",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
+Cell[1531846, 34181, 940, 18, 42, "Message",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
+Cell[1532789, 34201, 938, 18, 42, "Message",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
+Cell[1533730, 34221, 939, 18, 42, "Message",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
+Cell[1534672, 34241, 600, 12, 24, "Message",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
+Cell[1535275, 34255, 730, 14, 59, "Message",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
+Cell[1536008, 34271, 732, 14, 59, "Message",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1509010, 33452, 862, 26, 30, "Input",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
-Cell[1509875, 33480, 4813, 123, 394, "Output",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
+Cell[1536777, 34290, 862, 26, 30, "Input",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
+Cell[1537642, 34318, 4813, 123, 394, "Output",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1514725, 33608, 2801, 59, 115, "Input",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
-Cell[1517529, 33669, 53546, 1072, 371, "Output",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
+Cell[1542492, 34446, 2801, 59, 115, "Input",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
+Cell[1545296, 34507, 53546, 1072, 371, "Output",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
}, Open ]]
}, Closed]]
}, Closed]]