From 8301ee2da24e239b0ed785adcee681ae6ff52ca1 Mon Sep 17 00:00:00 2001
From: Xisco Jimenez Forteza <you@example.com>
Date: Wed, 7 Oct 2020 16:46:36 +0200
Subject: [PATCH] adding rhoeff
---
code/fRTOV.nb | 1633 +++++++++++++++++++++++++++++++++++++------------
1 file changed, 1250 insertions(+), 383 deletions(-)
diff --git a/code/fRTOV.nb b/code/fRTOV.nb
index 53182f6..b4c062a 100644
--- a/code/fRTOV.nb
+++ b/code/fRTOV.nb
@@ -10,10 +10,10 @@
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
-NotebookDataLength[ 1514247, 33067]
-NotebookOptionsPosition[ 1473493, 32413]
-NotebookOutlinePosition[ 1473830, 32428]
-CellTagsIndexPosition[ 1473787, 32425]
+NotebookDataLength[ 1553087, 33934]
+NotebookOptionsPosition[ 1511045, 33262]
+NotebookOutlinePosition[ 1511384, 33277]
+CellTagsIndexPosition[ 1511341, 33274]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -96,7 +96,7 @@ Cell[BoxData[
in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"\\\\\\\"NRLists`\
\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); \
definitions in context \\!\\(\\*RowBox[{\\\"\\\\\\\"NRLists`\\\\\\\"\\\"}]\\) \
-may shadow or be shadowed by other definitions.\"",2,3,1,19718159296837622620,
+may shadow or be shadowed by other definitions.\"",2,3,1,19721115528907403351,
"Local","NRLists`TakeColumn"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
@@ -154,10 +154,10 @@ may shadow or be shadowed by other definitions.\"",2,3,1,19718159296837622620,
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
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.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231592345*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"5123cd78-85dc-49c2-b745-cf67c0c82684"],
+In[1]:=",ExpressionUUID->"68d9f255-ff04-4a32-91ae-82a6e0e2413d"],
Cell[BoxData[
TemplateBox[{
@@ -165,7 +165,7 @@ Cell[BoxData[
"\"\\!\\(\\*RowBox[{\\\"\\\\\\\"ErrorBarPlots`\\\\\\\"\\\"}]\\) is now \
obsolete. The legacy version being loaded may conflict with current \
functionality. See the Compatibility Guide for updating information.\"",2,3,2,
- 19718159296837622620,"Local"},
+ 19721115528907403351,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -222,10 +222,10 @@ functionality. See the Compatibility Guide for updating information.\"",2,3,2,
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
- 3.8106161021105223`*^9}, 3.8106161403007383`*^9},
+ 3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231681481*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"cd17808d-b4c5-46be-b318-13679956f566"],
+In[1]:=",ExpressionUUID->"add0d131-4a59-40a5-8592-2170878f27fb"],
Cell[BoxData[
TemplateBox[{
@@ -235,7 +235,7 @@ in multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\", \\\",\\\", \\\"\\\\\\\"GRTensor`\\\
\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
\\!\\(\\*RowBox[{\\\"\\\\\\\"DataFits`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,3,3,19718159296837622620,"Local",
+shadowed by other definitions.\"",2,3,3,19721115528907403351,"Local",
"DataFits`AtomsList"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
@@ -293,10 +293,10 @@ shadowed by other definitions.\"",2,3,3,19718159296837622620,"Local",
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
- 3.8106161021105223`*^9}, 3.8106161403391333`*^9},
+ 3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231693307*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"8e824c2b-74b2-484d-b1d1-bd7ac82d75ae"],
+In[1]:=",ExpressionUUID->"1eb31a94-f96e-47e0-acfb-5358cd6216a2"],
Cell[BoxData[
TemplateBox[{
@@ -307,7 +307,7 @@ multiple contexts \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\", \\\",\\\", \
\\\"\\\\\\\"GRTensor`\\\\\\\"\\\"}], \\\"}\\\"}]\\); definitions in context \
\\!\\(\\*RowBox[{\\\"\\\\\\\"NRTimeSeries`\\\\\\\"\\\"}]\\) may shadow or be \
-shadowed by other definitions.\"",2,4,4,19718159296837622620,"Local",
+shadowed by other definitions.\"",2,4,4,19721115528907403351,"Local",
"NRTimeSeries`InterpolationDomain"},
"MessageTemplate2"]], "Message", "MSG",
CellChangeTimes->{
@@ -365,17 +365,17 @@ shadowed by other definitions.\"",2,4,4,19718159296837622620,"Local",
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
- 3.8106161021105223`*^9}, 3.810616140558723*^9},
+ 3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067231895816*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"d3d10c1e-ff59-4867-ac22-8d9162d430e9"],
+In[1]:=",ExpressionUUID->"184722dc-276b-4ba7-9b50-4d07d823a120"],
Cell[BoxData[
TemplateBox[{
"Get","noopen",
"\"Cannot open \
\\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\).\"",2,4,5,
- 19718159296837622620,"Local"},
+ 19721115528907403351,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -432,16 +432,16 @@ Cell[BoxData[
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
- 3.8106161021105223`*^9}, 3.810616141479867*^9},
+ 3.8106161021105223`*^9}, 3.810616140227415*^9, 3.811067233985973*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"fedee552-2b24-444a-bd22-972352b4bb8b"],
+In[1]:=",ExpressionUUID->"a552afad-af1c-4db9-82c4-a1952d7d3401"],
Cell[BoxData[
TemplateBox[{
"Needs","nocont",
"\"Context \\!\\(\\*RowBox[{\\\"\\\\\\\"NinjaBase`\\\\\\\"\\\"}]\\) was \
-not created when Needs was evaluated.\"",2,4,6,19718159296837622620,"Local"},
+not created when Needs was evaluated.\"",2,4,6,19721115528907403351,"Local"},
"MessageTemplate"]], "Message", "MSG",
CellChangeTimes->{
3.746871497164113*^9, 3.746944059800922*^9, 3.74712138071828*^9,
@@ -498,10 +498,10 @@ not created when Needs was evaluated.\"",2,4,6,19718159296837622620,"Local"},
3.80032976830613*^9, 3.800539296149782*^9, 3.8009421915098543`*^9,
3.8013757179268*^9, 3.801461377943521*^9, 3.810611171301944*^9,
3.810611599675091*^9, 3.810611726966116*^9, {3.810616088796761*^9,
- 3.8106161021105223`*^9}, 3.810616141485244*^9},
+ 3.8106161021105223`*^9}, 3.810616140227415*^9, 3.8110672339930677`*^9},
CellLabel->
"During evaluation of \
-In[1]:=",ExpressionUUID->"ad3ff183-14de-4a38-9dd4-b0d2e83f9da6"]
+In[1]:=",ExpressionUUID->"e91c7c9b-69d3-472e-9b6e-2dc2d047bef5"]
}, Open ]],
Cell[CellGroupData[{
@@ -1282,8 +1282,8 @@ Cell[BoxData[
3.800267177579319*^9, 3.8003297709626627`*^9, 3.80053929860681*^9,
3.800942193950385*^9, 3.8013757229523478`*^9, 3.801461381449903*^9,
3.810611174091031*^9, 3.81061160317878*^9, 3.810611727129423*^9,
- 3.810616102319569*^9, 3.810616143416667*^9},
- CellLabel->"Out[5]=",ExpressionUUID->"2317a09c-3622-4c21-8a0a-70f917f89a3a"]
+ 3.810616102319569*^9, 3.810616143416667*^9, 3.811067234799273*^9},
+ CellLabel->"Out[5]=",ExpressionUUID->"e26c41ae-7e0e-4584-88ec-cd13b9720548"]
}, Open ]]
}, Open ]],
@@ -1332,7 +1332,7 @@ Cell[BoxData[{
3.71912639669911*^9}, {3.724072460832786*^9, 3.724072467201078*^9}, {
3.725084601527223*^9, 3.725084625197569*^9}, {3.7337367520460243`*^9,
3.73373675229137*^9}, {3.7337368914027243`*^9, 3.7337369134723597`*^9}},
- CellLabel->"In[7]:=",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+ CellLabel->"In[6]:=",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
}, Closed]],
Cell[CellGroupData[{
@@ -1480,7 +1480,7 @@ Cell[BoxData[{
3.752911182797737*^9, 3.7529111834029713`*^9}, {3.756792269346093*^9,
3.756792281031231*^9}, 3.757660566742996*^9, {3.760426018088688*^9,
3.760426018299608*^9}},
- CellLabel->"In[14]:=",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+ CellLabel->"In[13]:=",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
Cell[BoxData[
InterpretationBox[
@@ -1520,10 +1520,39 @@ Cell[BoxData[
3.799741134870844*^9, 3.799741452166616*^9, 3.7997430735106688`*^9,
3.799743746532728*^9, 3.800267177713377*^9, 3.800329771078725*^9,
3.800539298734221*^9, 3.800942195216084*^9, 3.801375723040248*^9,
- 3.801461381544629*^9, 3.810611185204132*^9, 3.8106116040399523`*^9},
+ 3.801461381544629*^9, 3.810611185204132*^9, 3.8106116040399523`*^9,
+ 3.8110672451955347`*^9},
CellLabel->
"During evaluation of \
-In[14]:=",ExpressionUUID->"9057feea-4706-40d0-9cef-df065807a7c0"]
+In[13]:=",ExpressionUUID->"166cf5f0-9c5c-4c17-b2d4-7866a55a4b93"],
+
+Cell[BoxData["$Aborted"], "Output",
+ CellChangeTimes->{3.81106727039895*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"6df96f88-393f-4af2-a838-71e1cbd53d74"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Interpolation","innd",
+ "\"First argument in \\!\\(\\*RowBox[{\\\"listeos\\\"}]\\) does not \
+contain a list of data and coordinates.\"",2,21,7,19721115528907403351,
+ "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.811067270402441*^9},
+ CellLabel->
+ "During evaluation of \
+In[13]:=",ExpressionUUID->"1f605056-e91a-4d2b-aa8a-e169421bb52d"],
+
+Cell[BoxData[
+ TemplateBox[{
+ "Interpolation","innd",
+ "\"First argument in \\!\\(\\*RowBox[{\\\"listeos\\\"}]\\) does not \
+contain a list of data and coordinates.\"",2,22,8,19721115528907403351,
+ "Local"},
+ "MessageTemplate"]], "Message", "MSG",
+ CellChangeTimes->{3.811067270411996*^9},
+ CellLabel->
+ "During evaluation of \
+In[13]:=",ExpressionUUID->"688b8ccd-d8f0-41df-8a8e-589ed4e7213d"]
}, Open ]],
Cell[CellGroupData[{
@@ -3798,6 +3827,826 @@ Cell[BoxData[
Cell[CellGroupData[{
+Cell[BoxData[
+ RowBox[{"Names", "[", "\"\<GRTensor`*\>\"", "]"}]], "Input",
+ CellChangeTimes->{{3.811067252468101*^9, 3.811067260811489*^9}},
+ CellLabel->"In[23]:=",ExpressionUUID->"ef02aa87-a03d-4556-adde-f92d7dca4182"],
+
+Cell[BoxData[
+ RowBox[{"{",
+ RowBox[{"\<\"GRTensor`AtomsList\"\>", ",", "\<\"BracketingSTNStars\"\>",
+ ",", "\<\"CheckTetrad\"\>", ",", "\<\"ChristoffelSymbol\"\>",
+ ",", "\<\"ChristoffelSymbolDev\"\>", ",", "\<\"CovDer\"\>",
+ ",", "\<\"CurlCurvilinear\"\>", ",", "\<\"DAlembert\"\>",
+ ",", "\<\"Einstein\"\>", ",", "\<\"EinsteinfR\"\>",
+ ",", "\<\"EinsteinST\"\>", ",", "\<\"ElectricTensor3p1Dev\"\>",
+ ",", "\<\"EoSBSks\"\>", ",", "\<\"EoSCallParsBSks\"\>",
+ ",", "\<\"EoSCallParsSly\"\>", ",", "\<\"EoSFits\"\>",
+ ",", "\<\"EoSFitsPars\"\>", ",", "\<\"EoSPol\"\>",
+ ",", "\<\"EoSPol\[Epsilon]\"\>", ",", "\<\"EoSSly\"\>",
+ ",", "\<\"EoSSlyCrust\"\>", ",", "\<\"ETensor\"\>", ",", "\<\"fR2Pot\"\>",
+ ",", "\<\"fR2\[Phi]\"\>", ",", "\<\"From\[Rho]To\[Epsilon]Fits\"\>",
+ ",", "\<\"FRTOV\"\>", ",", "\<\"GRTensor`InterpolationDomain\"\>",
+ ",", "\<\"InverseMetric\"\>", ",", "\<\"KrScalar\"\>",
+ ",", "\<\"LeviCivitaTensorCurv\"\>", ",", "\<\"MagneticTensor3p1Dev\"\>",
+ ",", "\<\"MetDet\"\>", ",", "\<\"NonZeroChristoffel\"\>",
+ ",", "\<\"NonZeroMetricComp\"\>", ",", "\<\"NonZeroTensorComp\"\>",
+ ",", "\<\"RicciScalar\"\>", ",", "\<\"RicciTensor\"\>",
+ ",", "\<\"RicciTensorDev\"\>", ",", "\<\"RiemannTensor\"\>",
+ ",", "\<\"RiemannTensorDev\"\>", ",", "\<\"RK4\"\>",
+ ",", "\<\"ShootingNStars\"\>", ",", "\<\"SlyInner\"\>",
+ ",", "\<\"SlyInnerAll\"\>", ",", "\<\"SlyLCore\"\>",
+ ",", "\<\"SlyLCoreAll\"\>", ",", "\<\"STensorT\[Psi]\"\>",
+ ",", "\<\"STTOV\"\>", ",", "\<\"GRTensor`TakeColumn\"\>",
+ ",", "\<\"TeffFR\"\>", ",", "\<\"TeffST\"\>", ",", "\<\"TestCode\"\>",
+ ",", "\<\"WeylTensor\"\>", ",", "\<\"WeylTrace\"\>",
+ ",", "\<\"\[Omega]eff\"\>"}], "}"}]], "Output",
+ CellChangeTimes->{3.811067274139155*^9},
+ CellLabel->"Out[23]=",ExpressionUUID->"b4ddf2ec-6685-4317-8274-db3ddfd99839"]
+}, Open ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"?", "TeffST"}]], "Input",
+ CellChangeTimes->{3.811067304831257*^9},
+ CellLabel->"In[24]:=",ExpressionUUID->"4685bf30-e8af-4b49-899a-1f5ef62d7018"],
+
+Cell[BoxData[
+ InterpretationBox[
+ StyleBox[
+ FrameBox[
+ DynamicModuleBox[{System`InformationDump`open$$ = False,
+ System`InformationDump`mouseOver$$ = False},
+ PaneSelectorBox[{True->
+ TagBox[GridBox[{
+ {
+ ItemBox[
+ PaneBox[
+ StyleBox["\<\" Symbol\"\>", "InformationTitleText",
+ StripOnInput->False,
+ BaseStyle -> None],
+ FrameMargins->{{4, 0}, {-1, 1}}],
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False],
+ ItemBox["\<\"\"\>",
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False]},
+ {
+ ItemBox[
+ PaneBox[
+
+ StyleBox["\<\"TeffST[coords_,g_,{V\[CurlyPhi],\[CurlyPhi]}]. \
+Compute ST-EF/JF Teff tensor such Gab=8\[Pi] (Tab + Teff) following the \
+convention of Misner et al., that is, [S2] = 1, [S3] = 1. Allowed options for \
+the Frame are Einstein, Jordan\"\>", "InformationUsageText",
+ StripOnInput->False,
+ LineSpacing->{1.5, 1.5, 3.}],
+ FrameMargins->{{10, 10}, {8, 10}}],
+ BaseStyle->"InformationUsageSubtitleBackground",
+ StripOnInput->False],
+ ItemBox["\<\"\"\>",
+ BaseStyle->"InformationUsageSubtitleBackground",
+ StripOnInput->False]},
+ {
+ PaneBox[GridBox[{
+ {
+
+ DynamicModuleBox[{System`InformationDump`open$$ = {
+ False, False, False, False, False, False, False, False, False,
+ False, False, False}},
+ StyleBox[GridBox[{
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox["\<\" Definitions\"\>", "InformationRowLabel",
+ StripOnInput->False],
+ "\"Definitions\"",
+ TooltipStyle->"TextStyling"],
+ Annotation[#, "Definitions", "Tooltip"]& ], GridBox[{
+ {
+ RowBox[{
+ RowBox[{"TeffST", "[",
+ RowBox[{
+ "GRTensor`Private`xx_", ",", "GRTensor`Private`g_", ",",
+ RowBox[{"{",
+ RowBox[{
+ "GRTensor`Private`V\[CurlyPhi]_", ",",
+ "GRTensor`Private`var\[CurlyPhi]_"}], "}"}], ",",
+ RowBox[{"GRTensor`Private`pert_", ":", "0"}], ",",
+ RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=",
+ RowBox[{"Block", "[",
+ RowBox[{
+ RowBox[{"{",
+ RowBox[{
+ "GRTensor`Private`covterm1", ",",
+ "GRTensor`Private`covterm2", ",",
+ "GRTensor`Private`dalem", ",", "GRTensor`Private`der",
+ ",", "GRTensor`Private`gup", ",",
+ "GRTensor`Private`frame", ",", "GRTensor`Private`perti",
+ ",", "GRTensor`Private`res", ",",
+ "GRTensor`Private`riscal", ",",
+ "GRTensor`Private`riscalvars", ",",
+ "GRTensor`Private`simpl", ",", "GRTensor`Private`sumder",
+ ",", "GRTensor`Private`V\[CurlyPhi]c", ",",
+ "GRTensor`Private`\[CurlyPhi]c", ",",
+ "GRTensor`Private`\[Phi]term2"}], "}"}], ",",
+ RowBox[{
+ RowBox[{"GRTensor`Private`perti", "=",
+ RowBox[{
+ "OptionValue", "[", "\<\"PerturbationIndex\"\>", "]"}]}],
+ ";",
+ RowBox[{"GRTensor`Private`frame", "=",
+ RowBox[{"OptionValue", "[", "\<\"Frame\"\>", "]"}]}], ";",
+ RowBox[{"GRTensor`Private`simpl", "=",
+ RowBox[{
+ "OptionValue", "[", "\<\"SimplifyFunction\"\>", "]"}]}],
+ ";",
+ RowBox[{"GRTensor`Private`riscal", "=",
+ RowBox[{"GRTensor`Private`simpl", "[",
+ RowBox[{"RicciScalar", "[",
+ RowBox[{
+ "GRTensor`Private`xx", ",", "GRTensor`Private`g", ",",
+ "GRTensor`Private`pert", ",",
+ RowBox[{"\<\"PerturbationIndex\"\>", "\[Rule]",
+ "GRTensor`Private`perti"}]}], "]"}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`riscalvars", "=",
+ RowBox[{"Complement", "[",
+ RowBox[{"GRTensor`Private`xx", ",",
+ RowBox[{"Complement", "[",
+ RowBox[{"GRTensor`Private`xx", ",",
+ RowBox[{
+ "GRTensor`AtomsList", "[", "GRTensor`Private`riscal",
+ "]"}]}], "]"}]}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`gup", "=",
+ RowBox[{"Inverse", "[", "GRTensor`Private`g", "]"}]}],
+ ";",
+ RowBox[{"GRTensor`Private`\[CurlyPhi]c", "=",
+ RowBox[{
+ "GRTensor`Private`var\[CurlyPhi]", "@@",
+ "GRTensor`Private`riscalvars"}]}], ";",
+ RowBox[{"GRTensor`Private`V\[CurlyPhi]c", "=",
+ RowBox[{
+ "GRTensor`Private`V\[CurlyPhi]", "/.", "\[VeryThinSpace]",
+ RowBox[{
+ "GRTensor`Private`var\[CurlyPhi]", "\[Rule]",
+ "GRTensor`Private`\[CurlyPhi]c"}]}]}], ";",
+ RowBox[{"Which", "[",
+ RowBox[{
+ RowBox[{
+ "GRTensor`Private`frame",
+ "\[Equal]", "\<\"Einstein\"\>"}], ",",
+ RowBox[{
+ RowBox[{"GRTensor`Private`der", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{
+ RowBox[{
+ SubscriptBox["\[PartialD]",
+ RowBox[{
+ "GRTensor`Private`xx", "\[LeftDoubleBracket]",
+ "GRTensor`Private`a", "\[RightDoubleBracket]"}]],
+ "GRTensor`Private`\[CurlyPhi]c"}], " ",
+ RowBox[{
+ SubscriptBox["\[PartialD]",
+ RowBox[{
+ "GRTensor`Private`xx", "\[LeftDoubleBracket]",
+ "GRTensor`Private`b", "\[RightDoubleBracket]"}]],
+ "GRTensor`Private`\[CurlyPhi]c"}]}], ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`a", ",",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`b", ",",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]}],
+ "}"}]}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`sumder", "=",
+ RowBox[{
+ UnderoverscriptBox["\[Sum]", "GRTensor`Private`a",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]],
+ RowBox[{
+ UnderoverscriptBox["\[Sum]", "GRTensor`Private`b",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]],
+ RowBox[{
+ RowBox[{"GRTensor`Private`gup", "\[LeftDoubleBracket]",
+ RowBox[{"GRTensor`Private`a", ",", "GRTensor`Private`b"}],
+ "\[RightDoubleBracket]"}], " ",
+ RowBox[{"GRTensor`Private`der", "\[LeftDoubleBracket]",
+ RowBox[{"GRTensor`Private`a", ",", "GRTensor`Private`b"}],
+ "\[RightDoubleBracket]"}]}]}]}]}], ";",
+ RowBox[{"GRTensor`Private`res", "=",
+ FractionBox[
+ RowBox[{
+ RowBox[{"2", " ", "GRTensor`Private`der"}], "-",
+ RowBox[{
+ "GRTensor`Private`g", " ", "GRTensor`Private`sumder"}],
+ "-",
+ FractionBox[
+ RowBox[{
+ "GRTensor`Private`g", " ",
+ "GRTensor`Private`V\[CurlyPhi]c"}], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], ";"}], ",",
+ RowBox[{
+ "GRTensor`Private`frame", "\[Equal]", "\<\"Jordan\"\>"}],
+ ",",
+ RowBox[{
+ RowBox[{"GRTensor`Private`dalem", "=",
+ RowBox[{"DAlembert", "[",
+ RowBox[{
+ "GRTensor`Private`xx", ",", "GRTensor`Private`g", ",",
+ "GRTensor`Private`\[CurlyPhi]c"}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`covterm1", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"CovDer", "[",
+ RowBox[{
+ "GRTensor`Private`xx", ",", "GRTensor`Private`g", ",",
+ "GRTensor`Private`\[CurlyPhi]c", ",",
+ RowBox[{"{", "GRTensor`Private`i", "}"}], ",",
+
+ RowBox[{"\<\"Valence\"\>",
+ "\[Rule]", "\<\"Covariant\"\>"}], ",",
+ RowBox[{"\<\"Verbose\"\>", "\[Rule]", "False"}]}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`i", ",",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]}],
+ "}"}]}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`covterm2", "=",
+ RowBox[{"Table", "[",
+ RowBox[{
+ RowBox[{"CovDer", "[",
+ RowBox[{
+ "GRTensor`Private`xx", ",", "GRTensor`Private`g", ",",
+ "GRTensor`Private`covterm1", ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`i", ",", "GRTensor`Private`j"}],
+ "}"}], ",",
+
+ RowBox[{"\<\"Valence\"\>",
+ "\[Rule]", "\<\"Covariant\"\>"}], ",",
+ RowBox[{"\<\"Verbose\"\>", "\[Rule]", "False"}]}], "]"}],
+ ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`i", ",",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]}],
+ "}"}], ",",
+ RowBox[{"{",
+ RowBox[{"GRTensor`Private`j", ",",
+ RowBox[{"Length", "[", "GRTensor`Private`xx", "]"}]}],
+ "}"}]}], "]"}]}], ";",
+ RowBox[{"GRTensor`Private`\[Phi]term2", "=",
+ RowBox[{"GRTensor`Private`covterm2", "-",
+ RowBox[{
+ "GRTensor`Private`g", " ", "GRTensor`Private`dalem"}]}]}],
+ ";",
+ RowBox[{"GRTensor`Private`res", "=",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"!",
+ RowBox[{"NumericQ", "[", "GRTensor`Private`pert", "]"}]}],
+ ",",
+ RowBox[{"Normal", "[",
+ RowBox[{"Series", "[",
+ RowBox[{
+ FractionBox[
+ RowBox[{"GRTensor`Private`\[Phi]term2", "-",
+ FractionBox[
+ RowBox[{
+ "GRTensor`Private`V\[CurlyPhi]c", " ",
+ "GRTensor`Private`g"}], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]], ",",
+ RowBox[{"{",
+ RowBox[{
+ "GRTensor`Private`pert", ",", "0", ",",
+ "GRTensor`Private`perti"}], "}"}]}], "]"}], "]"}], ",",
+ FractionBox[
+ RowBox[{"GRTensor`Private`\[Phi]term2", "-",
+ FractionBox[
+ RowBox[{
+ "GRTensor`Private`V\[CurlyPhi]c", " ",
+ "GRTensor`Private`g"}], "2"]}],
+ RowBox[{"8", " ", "\[Pi]"}]]}], "]"}]}], ";"}], ",",
+ "True", ",",
+ RowBox[{
+ RowBox[{
+ "Print", "[", "\<\"Wrong option for Frame\"\>", "]"}],
+ ";",
+ RowBox[{"Return", "[", "]"}], ";"}]}], "]"}], ";",
+ RowBox[{"If", "[",
+ RowBox[{
+ RowBox[{"NumberQ", "[", "GRTensor`Private`pert", "]"}],
+ ",",
+ RowBox[{"Simplify", "[", "GRTensor`Private`res", "]"}],
+ ",",
+ RowBox[{"Simplify", "[",
+ RowBox[{"Normal", "[",
+ RowBox[{"Series", "[",
+ RowBox[{"GRTensor`Private`res", ",",
+ RowBox[{"{",
+ RowBox[{
+ "GRTensor`Private`pert", ",", "0", ",",
+ "GRTensor`Private`perti"}], "}"}]}], "]"}], "]"}],
+ "]"}]}], "]"}]}]}], "]"}]}]}
+ },
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{"Columns" -> {{Left}}},
+
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]},
+ {
+ PaneSelectorBox[{True->
+ ButtonBox[
+ PaneSelectorBox[{False->
+
+ TemplateBox[{
+ "\[ThickSpace]","\"\[ThickSpace]\"",StyleBox[
+ "\"Options\"", "InformationRowLabel", StripOnInput ->
+ False],DynamicBox[
+ FEPrivate`FrontEndResource[
+ "FEBitmaps", "DownPointerOpener"]]},
+ "RowWithSeparators"], True->
+
+ TemplateBox[{
+ "\[ThickSpace]","\"\[ThickSpace]\"",StyleBox[
+ "\"Options\"", "InformationRowLabel", StripOnInput ->
+ False],DynamicBox[
+ FEPrivate`FrontEndResource[
+ "FEBitmaps", "DownPointerOpenerHot"]]},
+ "RowWithSeparators"]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ FrameMargins->0,
+ ImageSize->Automatic],
+ Appearance->None,
+ BaseStyle->None,
+
+ ButtonFunction:>(Part[System`InformationDump`open$$, 9] =
+ False),
+ Evaluator->Automatic,
+ FrameMargins->0,
+ ImageMargins->0,
+ Method->"Preemptive"], False->
+ ButtonBox[
+ PaneSelectorBox[{False->
+
+ TemplateBox[{
+ "\[ThickSpace]","\"\[ThickSpace]\"",StyleBox[
+ "\"Options\"", "InformationRowLabel", StripOnInput ->
+ False],DynamicBox[
+ FEPrivate`FrontEndResource[
+ "FEBitmaps", "RightPointerOpener"]]},
+ "RowWithSeparators"], True->
+
+ TemplateBox[{
+ "\[ThickSpace]","\"\[ThickSpace]\"",StyleBox[
+ "\"Options\"", "InformationRowLabel", StripOnInput ->
+ False],DynamicBox[
+ FEPrivate`FrontEndResource[
+ "FEBitmaps", "RightPointerOpenerHot"]]},
+ "RowWithSeparators"]}, Dynamic[
+ CurrentValue["MouseOver"]],
+ FrameMargins->0,
+ ImageSize->Automatic],
+ Appearance->None,
+ BaseStyle->None,
+
+ ButtonFunction:>(Part[System`InformationDump`open$$, 9] =
+ True),
+ Evaluator->Automatic,
+ FrameMargins->0,
+ ImageMargins->0,
+ Method->"Preemptive"]}, Dynamic[
+ FEPrivate`Part[System`InformationDump`open$$, 9]]],
+ PaneSelectorBox[{True->GridBox[{
+ {
+
+ RowBox[{"\<\"Frame\"\>",
+ "\[Rule]", "\<\"Einstein\"\>"}]},
+ {
+ RowBox[{"\<\"Verbose\"\>", "\[Rule]", "False"}]},
+ {
+ RowBox[{"\<\"PerturbationIndex\"\>", "\[Rule]", "1"}]},
+ {
+
+ RowBox[{"\<\"SimplifyFunction\"\>", "\[Rule]",
+ "Identity"}]},
+ {
+ StyleBox[
+
+ TemplateBox[{
+ "\"(\"","\"\[InvisibleSpace]\"","4","\" total)\""},
+ "RowDefault"], "InformationRowOpener",
+ StripOnInput->False]}
+ },
+ BaselinePosition->{Baseline, {1, 1}},
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{"Columns" -> {{Left}}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "Rows" -> {{1.}}}], False->
+ RowBox[{
+ RowBox[{"\<\"Frame\"\>", "\[Rule]", "\<\"Einstein\"\>"}],
+ "\[ThinSpace]",
+ StyleBox["\<\"\[Ellipsis]\"\>", "InformationRowOpener",
+ StripOnInput->False], "\[ThinSpace]",
+ StyleBox[
+
+ TemplateBox[{
+ "\"(\"","\"\[InvisibleSpace]\"","4","\" total)\""},
+ "RowDefault"], "InformationRowOpener",
+ StripOnInput->False]}]}, Dynamic[
+ FEPrivate`Part[System`InformationDump`open$$, 9]],
+ BaselinePosition->Baseline,
+ ImageSize->Automatic]},
+ {
+ TagBox[
+ TooltipBox[
+ StyleBox["\<\" Full Name\"\>", "InformationRowLabel",
+ StripOnInput->False],
+ "\"FullName\"",
+ TooltipStyle->"TextStyling"],
+
+ Annotation[#, "FullName",
+ "Tooltip"]& ], "\<\"GRTensor`TeffST\"\>"}
+ },
+ AutoDelete->False,
+ GridBoxAlignment->{"Columns" -> {Right, Left}},
+ GridBoxDividers->None,
+ GridBoxItemSize->{"Columns" -> {Automatic, Automatic}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "Rows" -> {
+ Offset[0.2], {
+ Offset[0.8]},
+ Offset[0.2]}}], "DialogStyle",
+ StripOnInput->False],
+ DynamicModuleValues:>{}]}
+ },
+ DefaultBaseStyle->"Column",
+ GridBoxAlignment->{"Columns" -> {{Left}}},
+ GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
+
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
+ GridBoxSpacings->{"Columns" -> {
+ Offset[0.27999999999999997`], {
+ Offset[0.5599999999999999]},
+ Offset[0.27999999999999997`]}, "Rows" -> {
+ Offset[0.2], {
+ Offset[3.6]},
+ Offset[0.2]}}],
+ FrameMargins->6], ""},
+ {
+ ItemBox[
+ TagBox[
+ ButtonBox[
+ PaneSelectorBox[{False->
+
+ DynamicBox[FEPrivate`FrontEndResource[
+ "FEBitmaps", "UpPointerOpener"]], True->
+
+ DynamicBox[FEPrivate`FrontEndResource[
+ "FEBitmaps", "UpPointerOpenerHot"]]}, Dynamic[
+ System`InformationDump`mouseOver$$]],
+ Alignment->Left,
+ Appearance->{"Default" -> None},
+
+ ButtonFunction:>FEPrivate`Set[
+ System`InformationDump`open$$, False],
+ Evaluator->Automatic,
+ FrameMargins->{{9, 0}, {0, 0}},
+ ImageMargins->0,
+ ImageSize->Full,
+ Method->"Preemptive"],
+
+ EventHandlerTag[{
+ "MouseEntered" :>
+ FEPrivate`Set[System`InformationDump`mouseOver$$, True],
+ "MouseExited" :>
+ FEPrivate`Set[System`InformationDump`mouseOver$$, False],
+ Method -> "Preemptive", PassEventsDown -> Automatic,
+ PassEventsUp -> True}]],
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False], "\[SpanFromLeft]"}
+ },
+ AutoDelete->False,
+ FrameStyle->Directive[
+ GrayLevel[0.8],
+ Thickness[Tiny]],
+ GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
+ GridBoxDividers->{
+ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
+ "Grid"], False->
+ TagBox[GridBox[{
+ {
+ ItemBox[
+ PaneBox[
+ StyleBox["\<\" Symbol\"\>", "InformationTitleText",
+ StripOnInput->False],
+ FrameMargins->{{4, 0}, {-1, 1}}],
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False],
+ ItemBox["\<\"\"\>",
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False]},
+ {
+ ItemBox[
+ PaneBox[
+
+ StyleBox["\<\"TeffST[coords_,g_,{V\[CurlyPhi],\[CurlyPhi]}]. \
+Compute ST-EF/JF Teff tensor such Gab=8\[Pi] (Tab + Teff) following the \
+convention of Misner et al., that is, [S2] = 1, [S3] = 1. Allowed options for \
+the Frame are Einstein, Jordan\"\>", "InformationUsageText",
+ StripOnInput->False,
+ LineSpacing->{1.5, 1.5, 3.}],
+ FrameMargins->{{10, 10}, {8, 10}}],
+ BaseStyle->"InformationUsageSubtitleBackground",
+ StripOnInput->False],
+ ItemBox["\<\"\"\>",
+ BaseStyle->"InformationUsageSubtitleBackground",
+ StripOnInput->False]},
+ {
+ ItemBox[
+ TagBox[
+ ButtonBox[
+ PaneSelectorBox[{False->
+
+ DynamicBox[FEPrivate`FrontEndResource[
+ "FEBitmaps", "DownPointerOpener"],
+ ImageSizeCache->{10., {2., 8.}}], True->
+
+ DynamicBox[FEPrivate`FrontEndResource[
+ "FEBitmaps", "DownPointerOpenerHot"],
+ ImageSizeCache->{10., {2., 8.}}]}, Dynamic[
+ System`InformationDump`mouseOver$$]],
+ Alignment->Left,
+ Appearance->{"Default" -> None},
+
+ ButtonFunction:>FEPrivate`Set[
+ System`InformationDump`open$$, True],
+ Evaluator->Automatic,
+ FrameMargins->{{9, 0}, {0, 0}},
+ ImageMargins->0,
+ ImageSize->Full,
+ Method->"Preemptive"],
+
+ EventHandlerTag[{
+ "MouseEntered" :>
+ FEPrivate`Set[System`InformationDump`mouseOver$$, True],
+ "MouseExited" :>
+ FEPrivate`Set[System`InformationDump`mouseOver$$, False],
+ Method -> "Preemptive", PassEventsDown -> Automatic,
+ PassEventsUp -> True}]],
+ BaseStyle->"InformationTitleBackground",
+ StripOnInput->False], "\[SpanFromLeft]"}
+ },
+ AutoDelete->False,
+ FrameStyle->Directive[
+ GrayLevel[0.8],
+ Thickness[Tiny]],
+ GridBoxAlignment->{"Columns" -> {Left, Right}, "Rows" -> {{Center}}},
+ GridBoxDividers->{
+ "Columns" -> {{None}}, "Rows" -> {False, {True}, False}},
+ GridBoxItemSize->{
+ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
+ "Grid"]}, Dynamic[System`InformationDump`open$$],
+ BaselinePosition->Baseline,
+ FrameMargins->0,
+ ImageSize->Automatic],
+ DynamicModuleValues:>{}],
+ BaseStyle->"InformationGridFrame",
+ StripOnInput->False], "InformationGridPlain",
+ StripOnInput->False],
+ InformationData[
+ Association[
+ "ObjectType" -> "Symbol", "Usage" ->
+ "TeffST[coords_,g_,{V\[CurlyPhi],\[CurlyPhi]}]. Compute ST-EF/JF Teff \
+tensor such Gab=8\[Pi] (Tab + Teff) following the convention of Misner et \
+al., that is, [S2] = 1, [S3] = 1. Allowed options for the Frame are Einstein, \
+Jordan", "Documentation" -> None, "OwnValues" -> None, "UpValues" -> None,
+ "DownValues" ->
+ Information`InformationValueForm[
+ DownValues, GRTensor`TeffST, {GRTensor`TeffST[
+ Pattern[GRTensor`Private`xx,
+ Blank[]],
+ Pattern[GRTensor`Private`g,
+ Blank[]], {
+ Pattern[GRTensor`Private`V\[CurlyPhi],
+ Blank[]],
+ Pattern[GRTensor`Private`var\[CurlyPhi],
+ Blank[]]},
+ Optional[
+ Pattern[GRTensor`Private`pert,
+ Blank[]], 0],
+ OptionsPattern[]] :>
+ Block[{GRTensor`Private`covterm1, GRTensor`Private`covterm2,
+ GRTensor`Private`dalem, GRTensor`Private`der, GRTensor`Private`gup,
+ GRTensor`Private`frame, GRTensor`Private`perti,
+ GRTensor`Private`res, GRTensor`Private`riscal,
+ GRTensor`Private`riscalvars, GRTensor`Private`simpl,
+ GRTensor`Private`sumder, GRTensor`Private`V\[CurlyPhi]c,
+ GRTensor`Private`\[CurlyPhi]c, GRTensor`Private`\[Phi]term2},
+ GRTensor`Private`perti = OptionValue["PerturbationIndex"];
+ GRTensor`Private`frame = OptionValue["Frame"];
+ GRTensor`Private`simpl = OptionValue["SimplifyFunction"];
+ GRTensor`Private`riscal = GRTensor`Private`simpl[
+ GRTensor`RicciScalar[
+ GRTensor`Private`xx, GRTensor`Private`g, GRTensor`Private`pert,
+ "PerturbationIndex" -> GRTensor`Private`perti]];
+ GRTensor`Private`riscalvars = Complement[GRTensor`Private`xx,
+ Complement[GRTensor`Private`xx,
+ GRTensor`AtomsList[GRTensor`Private`riscal]]];
+ GRTensor`Private`gup = Inverse[GRTensor`Private`g];
+ GRTensor`Private`\[CurlyPhi]c =
+ Apply[GRTensor`Private`var\[CurlyPhi], GRTensor`Private`riscalvars];
+ GRTensor`Private`V\[CurlyPhi]c =
+ ReplaceAll[
+ GRTensor`Private`V\[CurlyPhi], GRTensor`Private`var\[CurlyPhi] ->
+ GRTensor`Private`\[CurlyPhi]c];
+ Which[GRTensor`Private`frame == "Einstein",
+ GRTensor`Private`der = Table[D[GRTensor`Private`\[CurlyPhi]c,
+ Part[GRTensor`Private`xx, GRTensor`Private`a]]
+ D[GRTensor`Private`\[CurlyPhi]c,
+ Part[GRTensor`Private`xx, GRTensor`Private`b]], {
+ GRTensor`Private`a,
+ Length[GRTensor`Private`xx]}, {GRTensor`Private`b,
+ Length[GRTensor`Private`xx]}];
+ GRTensor`Private`sumder =
+ Sum[Part[
+ GRTensor`Private`gup, GRTensor`Private`a, GRTensor`Private`b]
+ Part[GRTensor`Private`der, GRTensor`Private`a,
+ GRTensor`Private`b], {GRTensor`Private`a,
+ Length[GRTensor`Private`xx]}, {GRTensor`Private`b,
+ Length[GRTensor`Private`xx]}];
+ GRTensor`Private`res = (1/(8 Pi)) (2 GRTensor`Private`der -
+ GRTensor`Private`g
+ GRTensor`Private`sumder - ((1/2) GRTensor`Private`g)
+ GRTensor`Private`V\[CurlyPhi]c); Null, GRTensor`Private`frame ==
+ "Jordan",
+ GRTensor`Private`dalem =
+ GRTensor`DAlembert[
+ GRTensor`Private`xx, GRTensor`Private`g,
+ GRTensor`Private`\[CurlyPhi]c];
+ GRTensor`Private`covterm1 = Table[
+ GRTensor`CovDer[
+ GRTensor`Private`xx, GRTensor`Private`g,
+ GRTensor`Private`\[CurlyPhi]c, {GRTensor`Private`i}, "Valence" ->
+ "Covariant", "Verbose" -> False], {GRTensor`Private`i,
+ Length[GRTensor`Private`xx]}];
+ GRTensor`Private`covterm2 = Table[
+ GRTensor`CovDer[
+ GRTensor`Private`xx, GRTensor`Private`g,
+ GRTensor`Private`covterm1, {
+ GRTensor`Private`i, GRTensor`Private`j}, "Valence" ->
+ "Covariant", "Verbose" -> False], {GRTensor`Private`i,
+ Length[GRTensor`Private`xx]}, {GRTensor`Private`j,
+ Length[GRTensor`Private`xx]}];
+ GRTensor`Private`\[Phi]term2 =
+ GRTensor`Private`covterm2 - GRTensor`Private`g
+ GRTensor`Private`dalem; GRTensor`Private`res = If[
+ Not[
+ NumericQ[GRTensor`Private`pert]],
+ Normal[
+
+ Series[(1/(8 Pi)) (
+ GRTensor`Private`\[Phi]term2 - (
+ GRTensor`Private`V\[CurlyPhi]c/2) GRTensor`Private`g), {
+ GRTensor`Private`pert, 0, GRTensor`Private`perti}]], (1/(8
+ Pi)) (GRTensor`Private`\[Phi]term2 - (
+ GRTensor`Private`V\[CurlyPhi]c/2) GRTensor`Private`g)]; Null,
+ True, Print["Wrong option for Frame"]; Return[]; Null]; If[
+ NumberQ[GRTensor`Private`pert],
+ Simplify[GRTensor`Private`res],
+ Simplify[
+ Normal[
+ Series[
+ GRTensor`Private`res, {
+ GRTensor`Private`pert, 0, GRTensor`Private`perti}]]]]]}],
+ "SubValues" -> None, "DefaultValues" -> None, "NValues" -> None,
+ "FormatValues" -> None,
+ "Options" -> {
+ "Frame" -> "Einstein", "Verbose" -> False, "PerturbationIndex" -> 1,
+ "SimplifyFunction" -> Identity}, "Attributes" -> {}, "FullName" ->
+ "GRTensor`TeffST"], False]]], "Output",
+ CellChangeTimes->{3.8110673054418383`*^9},
+ CellLabel->"Out[24]=",ExpressionUUID->"ab64cd6b-8d69-4fb9-91a1-2dfa63f2c831"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[Rho]\[Phi]", "[", "fR", "]"}], ":=",
+ RowBox[{
+ RowBox[{
+ FractionBox["1", "2"], " ",
+ RowBox[{"(",
+ RowBox[{
+ RowBox[{"f", "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], "-",
+ RowBox[{
+ RowBox[{"R", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}], ")"}]}], "+",
+ RowBox[{"2", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}], "+",
+ RowBox[{
+ RowBox[{
+ SuperscriptBox["f", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}], "2"], " ",
+ RowBox[{
+ SuperscriptBox["f",
+ TagBox[
+ RowBox[{"(", "3", ")"}],
+ Derivative],
+ MultilineFunction->None], "[",
+ RowBox[{"R", "[", "t", "]"}], "]"}]}]}]}]], "Input",
+ CellChangeTimes->{{3.811069719583234*^9,
+ 3.811069728556135*^9}},ExpressionUUID->"d58d6001-8331-4cab-a680-\
+af18d96e9495"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Simplify", "[",
+ RowBox[{"\[Omega]eff", "[",
+ RowBox[{"R", "+", " ",
+ RowBox[{"\[Alpha]", " ",
+ RowBox[{"R", "^", "2"}]}]}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.811070315668561*^9, 3.811070319932125*^9}, {
+ 3.811070358808926*^9, 3.811070388825588*^9}},
+ CellLabel->"In[29]:=",ExpressionUUID->"1c21cc3c-0ae8-4902-abb7-3bb05b620109"],
+
+Cell[BoxData[
+ FractionBox[
+ RowBox[{
+ RowBox[{"-",
+ SuperscriptBox[
+ RowBox[{"R", "[", "t", "]"}], "2"]}], "+",
+ RowBox[{"8", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}], "+",
+ RowBox[{"4", " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}],
+ RowBox[{
+ SuperscriptBox[
+ RowBox[{"R", "[", "t", "]"}], "2"], "-",
+ RowBox[{"12", " ",
+ RowBox[{"H", "[", "t", "]"}], " ",
+ RowBox[{
+ SuperscriptBox["R", "\[Prime]",
+ MultilineFunction->None], "[", "t", "]"}]}]}]]], "Output",
+ CellChangeTimes->{
+ 3.811070324140036*^9, {3.811070361169527*^9, 3.811070389410516*^9}},
+ CellLabel->"Out[29]=",ExpressionUUID->"1af637c4-2c48-491e-ad7a-7787e5e0535f"]
+}, Open ]],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"\[Rho]eff", "[",
+ RowBox[{"V_", ",", "\[Phi]_"}], "]"}], ":=",
+ RowBox[{"V", "/",
+ RowBox[{"(",
+ RowBox[{"2", "\[Phi]"}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.811070713074745*^9, 3.811070748479187*^9}},
+ CellLabel->"In[30]:=",ExpressionUUID->"8c9d48ce-a79f-4f43-a2ea-69a09be51fc2"],
+
+Cell[BoxData[
+ RowBox[{
+ RowBox[{"peff", "[",
+ RowBox[{"V_", ",", "\[Phi]_"}], "]"}], ":=",
+ RowBox[{
+ RowBox[{"-", "V"}], "/",
+ RowBox[{"(",
+ RowBox[{"2", "\[Phi]"}], ")"}]}]}]], "Input",
+ CellChangeTimes->{{3.811070753990304*^9, 3.811070756021792*^9}},
+ CellLabel->"In[31]:=",ExpressionUUID->"e9d894e0-37a5-4cd8-bd7d-ac7d214c48fc"],
+
+Cell[CellGroupData[{
+
Cell["Quadratic f(R) ", "Subsubsection",
CellChangeTimes->{{3.81061122481415*^9, 3.810611242275285*^9}, {
3.810616254382361*^9,
@@ -32412,7 +33261,7 @@ HcPTHQjC4YHyxSCff7xwI295jdf9eU6XEztbdmP9X+cNvzb8+h+//gB1XEJY
}, Closed]]
},
WindowSize->{808, 934},
-WindowMargins->{{Automatic, 152}, {Automatic, 0}},
+WindowMargins->{{Automatic, 133}, {-64, Automatic}},
FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
@@ -32440,632 +33289,650 @@ 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, 4530, 68, 39, "Message",ExpressionUUID->"5123cd78-85dc-49c2-b745-cf67c0c82684"],
-Cell[7810, 161, 4357, 66, 42, "Message",ExpressionUUID->"cd17808d-b4c5-46be-b318-13679956f566"],
-Cell[12170, 229, 4534, 69, 39, "Message",ExpressionUUID->"8e824c2b-74b2-484d-b1d1-bd7ac82d75ae"],
-Cell[16707, 300, 4576, 70, 39, "Message",ExpressionUUID->"d3d10c1e-ff59-4867-ac22-8d9162d430e9"],
-Cell[21286, 372, 4214, 65, 24, "Message",ExpressionUUID->"fedee552-2b24-444a-bd22-972352b4bb8b"],
-Cell[25503, 439, 4249, 64, 24, "Message",ExpressionUUID->"ad3ff183-14de-4a38-9dd4-b0d2e83f9da6"]
+Cell[3277, 91, 4552, 68, 42, "Message",ExpressionUUID->"68d9f255-ff04-4a32-91ae-82a6e0e2413d"],
+Cell[7832, 161, 4377, 66, 42, "Message",ExpressionUUID->"add0d131-4a59-40a5-8592-2170878f27fb"],
+Cell[12212, 229, 4554, 69, 42, "Message",ExpressionUUID->"1eb31a94-f96e-47e0-acfb-5358cd6216a2"],
+Cell[16769, 300, 4598, 70, 42, "Message",ExpressionUUID->"184722dc-276b-4ba7-9b50-4d07d823a120"],
+Cell[21370, 372, 4236, 65, 24, "Message",ExpressionUUID->"a552afad-af1c-4db9-82c4-a1952d7d3401"],
+Cell[25609, 439, 4273, 64, 24, "Message",ExpressionUUID->"e91c7c9b-69d3-472e-9b6e-2dc2d047bef5"]
}, Open ]],
Cell[CellGroupData[{
-Cell[29789, 508, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
-Cell[30216, 517, 30952, 768, 34, "Output",ExpressionUUID->"2317a09c-3622-4c21-8a0a-70f917f89a3a"]
+Cell[29919, 508, 424, 7, 52, "Code",ExpressionUUID->"2038f51c-ef1d-478a-a6d8-12f5b4a73949"],
+Cell[30346, 517, 30974, 768, 34, "Output",ExpressionUUID->"e26c41ae-7e0e-4584-88ec-cd13b9720548"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[61217, 1291, 172, 3, 54, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
-Cell[61392, 1296, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
+Cell[61369, 1291, 172, 3, 54, "Subsection",ExpressionUUID->"35de4bd5-32a5-45fa-b33c-c1c4fc79cc04"],
+Cell[61544, 1296, 1335, 38, 167, "Code",ExpressionUUID->"a948f404-6fd9-4fe5-a838-380ebe7da944"]
}, Closed]],
Cell[CellGroupData[{
-Cell[62764, 1339, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
+Cell[62916, 1339, 190, 3, 38, "Subsection",ExpressionUUID->"50fb9a2d-d04b-4421-9e43-ccbb4c1c0bd3"],
Cell[CellGroupData[{
-Cell[62979, 1346, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
-Cell[68278, 1484, 2591, 41, 24, "Print",ExpressionUUID->"9057feea-4706-40d0-9cef-df065807a7c0"]
+Cell[63131, 1346, 5296, 136, 224, "Code",ExpressionUUID->"1ad43db6-9498-4d09-bd75-e999ffd7c57c"],
+Cell[68430, 1484, 2619, 42, 24, "Print",ExpressionUUID->"166cf5f0-9c5c-4c17-b2d4-7866a55a4b93"],
+Cell[71052, 1528, 155, 2, 34, "Output",ExpressionUUID->"6df96f88-393f-4af2-a838-71e1cbd53d74"],
+Cell[71210, 1532, 400, 10, 24, "Message",ExpressionUUID->"1f605056-e91a-4d2b-aa8a-e169421bb52d"],
+Cell[71613, 1544, 400, 10, 24, "Message",ExpressionUUID->"688b8ccd-d8f0-41df-8a8e-589ed4e7213d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[70906, 1530, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
-Cell[76132, 1666, 1306, 27, 24, "Print",ExpressionUUID->"ad7d1aa4-4049-456e-957e-3265c14b5c5c"]
+Cell[72050, 1559, 5223, 134, 205, "Code",ExpressionUUID->"0fd01fca-9e4d-45c8-aa33-cd917ee1a17c"],
+Cell[77276, 1695, 1306, 27, 24, "Print",ExpressionUUID->"ad7d1aa4-4049-456e-957e-3265c14b5c5c"]
}, Open ]],
Cell[CellGroupData[{
-Cell[77475, 1698, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
-Cell[83254, 1839, 1056, 20, 24, "Print",ExpressionUUID->"411f6655-537d-419e-b165-6a52f7f04810"]
+Cell[78619, 1727, 5776, 139, 224, "Code",ExpressionUUID->"77ab1cfc-93f2-4366-a35a-f2f21c62690e"],
+Cell[84398, 1868, 1056, 20, 24, "Print",ExpressionUUID->"411f6655-537d-419e-b165-6a52f7f04810"]
}, Open ]],
Cell[CellGroupData[{
-Cell[84347, 1864, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
-Cell[90321, 2008, 1218, 22, 24, "Print",ExpressionUUID->"1ab1044d-3f24-4c90-9546-5cad4739f8bf"]
+Cell[85491, 1893, 5971, 142, 224, "Code",ExpressionUUID->"f7117468-dbb9-4616-a069-36663920d67a"],
+Cell[91465, 2037, 1218, 22, 24, "Print",ExpressionUUID->"1ab1044d-3f24-4c90-9546-5cad4739f8bf"]
}, Open ]],
Cell[CellGroupData[{
-Cell[91576, 2035, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
-Cell[97999, 2190, 1066, 20, 24, "Print",ExpressionUUID->"ca07cbb7-90bf-4059-8dae-296f898fd053"]
+Cell[92720, 2064, 6420, 153, 224, "Code",ExpressionUUID->"dc83ef56-f120-4495-9245-8a021c3a3982"],
+Cell[99143, 2219, 1066, 20, 24, "Print",ExpressionUUID->"ca07cbb7-90bf-4059-8dae-296f898fd053"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[99114, 2216, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
-Cell[99278, 2221, 686, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
-Cell[99967, 2236, 7642, 205, 126, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
-Cell[107612, 2443, 6160, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
-Cell[113775, 2604, 7182, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
-Cell[120960, 2786, 8371, 217, 126, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
-Cell[129334, 3005, 7744, 194, 87, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
-Cell[137081, 3201, 7742, 194, 87, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
-Cell[144826, 3397, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
+Cell[100258, 2245, 161, 3, 38, "Subsection",ExpressionUUID->"5d30e1c1-8625-4a00-be98-1c819cd86f4c"],
+Cell[100422, 2250, 686, 13, 52, "Input",ExpressionUUID->"b5d331c0-4beb-4074-96a9-fbaf549e0231"],
+Cell[101111, 2265, 7642, 205, 126, "Code",ExpressionUUID->"cfc40657-89f8-4127-89c9-d0b86703f68c"],
+Cell[108756, 2472, 6160, 159, 74, "Code",ExpressionUUID->"2da6bdd4-9a3e-491c-8ac0-864bd1df73dc"],
+Cell[114919, 2633, 7182, 180, 74, "Code",ExpressionUUID->"e677e2a6-f3af-4ae7-a350-40d556f009cb"],
+Cell[122104, 2815, 8371, 217, 126, "Code",ExpressionUUID->"cab98d8f-8fbd-48d0-b448-9471155c97cb"],
+Cell[130478, 3034, 7744, 194, 87, "Code",ExpressionUUID->"0267a229-a6d0-4957-983c-48ec871caa20"],
+Cell[138225, 3230, 7742, 194, 87, "Code",ExpressionUUID->"757b9d70-4a08-4bc0-a1be-a30efbfd8eb8"],
+Cell[145970, 3426, 4794, 125, 87, "Code",ExpressionUUID->"970dfa80-5cdd-4f81-91fc-d1a3907c1372"]
}, Closed]],
Cell[CellGroupData[{
-Cell[149657, 3527, 159, 3, 38, "Subsection",ExpressionUUID->"a3dc796b-7d10-4de5-a008-e0220a368313"],
-Cell[149819, 3532, 3621, 117, 224, "Code",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
+Cell[150801, 3556, 159, 3, 38, "Subsection",ExpressionUUID->"a3dc796b-7d10-4de5-a008-e0220a368313"],
+Cell[150963, 3561, 3621, 117, 224, "Code",ExpressionUUID->"a8c0d528-cd9a-4968-a954-ae2d9a72ec09"]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[153489, 3655, 166, 3, 67, "Section",ExpressionUUID->"9eecc1cb-62c7-4c60-a687-796702366240"],
-Cell[153658, 3660, 265, 6, 30, "Input",ExpressionUUID->"054ed3d3-4cee-4a8f-a419-de9234afb577"],
+Cell[154633, 3684, 166, 3, 67, "Section",ExpressionUUID->"9eecc1cb-62c7-4c60-a687-796702366240"],
+Cell[154802, 3689, 265, 6, 30, "Input",ExpressionUUID->"054ed3d3-4cee-4a8f-a419-de9234afb577"],
+Cell[CellGroupData[{
+Cell[155092, 3699, 214, 3, 30, "Input",ExpressionUUID->"32f6d64c-e909-45a5-8f1a-acbc030c68bd"],
+Cell[155309, 3704, 400, 9, 34, "Output",ExpressionUUID->"a7e3b4e2-143c-42e0-8944-9dc361510326"]
+}, Open ]],
+Cell[155724, 3716, 398, 7, 30, "Input",ExpressionUUID->"014e3743-2d5d-4376-89bf-74dd56984ba6"],
+Cell[CellGroupData[{
+Cell[156147, 3727, 236, 4, 30, "Input",ExpressionUUID->"fb503785-4c45-4b99-a6d1-f7f27e39e6f5"],
+Cell[156386, 3733, 2319, 70, 66, "Output",ExpressionUUID->"45a31f9c-ac79-47fe-a178-9e9353b6b71b"]
+}, Open ]],
+Cell[158720, 3806, 263, 5, 30, "Input",ExpressionUUID->"a266facf-f5ab-470f-baf9-44fe6be3e9ff"],
+Cell[CellGroupData[{
+Cell[159008, 3815, 208, 3, 30, "Input",ExpressionUUID->"b3e12e80-cb25-4684-9c90-7bcff689fac9"],
+Cell[159219, 3820, 265, 4, 34, "Output",ExpressionUUID->"2671185a-a1e0-4f73-880b-3347a47ce084"]
+}, Open ]],
Cell[CellGroupData[{
-Cell[153948, 3670, 214, 3, 30, "Input",ExpressionUUID->"32f6d64c-e909-45a5-8f1a-acbc030c68bd"],
-Cell[154165, 3675, 400, 9, 34, "Output",ExpressionUUID->"a7e3b4e2-143c-42e0-8944-9dc361510326"]
+Cell[159521, 3829, 220, 3, 30, "Input",ExpressionUUID->"ef02aa87-a03d-4556-adde-f92d7dca4182"],
+Cell[159744, 3834, 1876, 30, 203, "Output",ExpressionUUID->"b4ddf2ec-6685-4317-8274-db3ddfd99839"]
}, Open ]],
-Cell[154580, 3687, 398, 7, 30, "Input",ExpressionUUID->"014e3743-2d5d-4376-89bf-74dd56984ba6"],
Cell[CellGroupData[{
-Cell[155003, 3698, 236, 4, 30, "Input",ExpressionUUID->"fb503785-4c45-4b99-a6d1-f7f27e39e6f5"],
-Cell[155242, 3704, 2319, 70, 66, "Output",ExpressionUUID->"45a31f9c-ac79-47fe-a178-9e9353b6b71b"]
+Cell[161657, 3869, 170, 3, 30, "Input",ExpressionUUID->"4685bf30-e8af-4b49-899a-1f5ef62d7018"],
+Cell[161830, 3874, 30587, 660, 119, "Output",ExpressionUUID->"ab64cd6b-8d69-4fb9-91a1-2dfa63f2c831"]
}, Open ]],
-Cell[157576, 3777, 263, 5, 30, "Input",ExpressionUUID->"a266facf-f5ab-470f-baf9-44fe6be3e9ff"],
+Cell[192432, 4537, 1513, 47, 47, "Input",ExpressionUUID->"d58d6001-8331-4cab-a680-af18d96e9495"],
Cell[CellGroupData[{
-Cell[157864, 3786, 208, 3, 30, "Input",ExpressionUUID->"b3e12e80-cb25-4684-9c90-7bcff689fac9"],
-Cell[158075, 3791, 265, 4, 34, "Output",ExpressionUUID->"2671185a-a1e0-4f73-880b-3347a47ce084"]
+Cell[193970, 4588, 380, 8, 30, "Input",ExpressionUUID->"1c21cc3c-0ae8-4902-abb7-3bb05b620109"],
+Cell[194353, 4598, 851, 25, 57, "Output",ExpressionUUID->"1af637c4-2c48-491e-ad7a-7787e5e0535f"]
}, Open ]],
+Cell[195219, 4626, 334, 8, 30, "Input",ExpressionUUID->"8c9d48ce-a79f-4f43-a2ea-69a09be51fc2"],
+Cell[195556, 4636, 348, 9, 30, "Input",ExpressionUUID->"e9d894e0-37a5-4cd8-bd7d-ac7d214c48fc"],
Cell[CellGroupData[{
-Cell[158377, 3800, 215, 4, 45, "Subsubsection",ExpressionUUID->"7a7ef893-7cd8-4d31-a9e4-4c3dc217afac"],
+Cell[195929, 4649, 215, 4, 45, "Subsubsection",ExpressionUUID->"7a7ef893-7cd8-4d31-a9e4-4c3dc217afac"],
Cell[CellGroupData[{
-Cell[158617, 3808, 282, 6, 30, "Input",ExpressionUUID->"a3b32e57-7414-4468-a779-5478eb93d91c"],
-Cell[158902, 3816, 226, 5, 34, "Output",ExpressionUUID->"87c80156-6244-4a55-8ddb-6be2c829974d"]
+Cell[196169, 4657, 282, 6, 30, "Input",ExpressionUUID->"a3b32e57-7414-4468-a779-5478eb93d91c"],
+Cell[196454, 4665, 226, 5, 34, "Output",ExpressionUUID->"87c80156-6244-4a55-8ddb-6be2c829974d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[159165, 3826, 241, 4, 30, "Input",ExpressionUUID->"7a63475a-8f21-4903-83cc-97cd64b53cbe"],
-Cell[159409, 3832, 1689, 49, 66, "Output",ExpressionUUID->"11a36c3a-959d-44ac-9d95-b0e0879c2a7d"]
+Cell[196717, 4675, 241, 4, 30, "Input",ExpressionUUID->"7a63475a-8f21-4903-83cc-97cd64b53cbe"],
+Cell[196961, 4681, 1689, 49, 66, "Output",ExpressionUUID->"11a36c3a-959d-44ac-9d95-b0e0879c2a7d"]
}, Open ]],
-Cell[161113, 3884, 294, 7, 30, "Input",ExpressionUUID->"275480b2-c251-4dae-9929-0c315c634277"],
+Cell[198665, 4733, 294, 7, 30, "Input",ExpressionUUID->"275480b2-c251-4dae-9929-0c315c634277"],
Cell[CellGroupData[{
-Cell[161432, 3895, 399, 8, 30, "Input",ExpressionUUID->"cc072710-ac96-4586-9700-65dd43d14074"],
-Cell[161834, 3905, 926, 26, 57, "Output",ExpressionUUID->"88c25a06-60cb-4f5d-bd8e-59abd753bfda"]
+Cell[198984, 4744, 399, 8, 30, "Input",ExpressionUUID->"cc072710-ac96-4586-9700-65dd43d14074"],
+Cell[199386, 4754, 926, 26, 57, "Output",ExpressionUUID->"88c25a06-60cb-4f5d-bd8e-59abd753bfda"]
}, Open ]],
-Cell[162775, 3934, 352, 9, 30, "Input",ExpressionUUID->"ee22d148-4064-4786-a241-a2ae611d1bde"],
+Cell[200327, 4783, 352, 9, 30, "Input",ExpressionUUID->"ee22d148-4064-4786-a241-a2ae611d1bde"],
Cell[CellGroupData[{
-Cell[163152, 3947, 375, 7, 30, "Input",ExpressionUUID->"eab51005-5a99-4bfa-8ddb-79146e1fa57d"],
-Cell[163530, 3956, 926, 26, 57, "Output",ExpressionUUID->"f16fd66b-5963-4dca-833e-b1418b613788"]
+Cell[200704, 4796, 375, 7, 30, "Input",ExpressionUUID->"eab51005-5a99-4bfa-8ddb-79146e1fa57d"],
+Cell[201082, 4805, 926, 26, 57, "Output",ExpressionUUID->"f16fd66b-5963-4dca-833e-b1418b613788"]
}, Open ]],
-Cell[164471, 3985, 358, 7, 30, "Input",ExpressionUUID->"93592bb8-9de7-48d0-8886-d0a28e2cbc14"],
+Cell[202023, 4834, 358, 7, 30, "Input",ExpressionUUID->"93592bb8-9de7-48d0-8886-d0a28e2cbc14"],
Cell[CellGroupData[{
-Cell[164854, 3996, 458, 9, 30, "Input",ExpressionUUID->"b043196e-0868-40bd-85e4-901d75c597d1"],
-Cell[165315, 4007, 2256, 48, 55, "Output",ExpressionUUID->"31bb22c9-5586-4744-9242-b2f2149a861c"]
+Cell[202406, 4845, 458, 9, 30, "Input",ExpressionUUID->"b043196e-0868-40bd-85e4-901d75c597d1"],
+Cell[202867, 4856, 2256, 48, 55, "Output",ExpressionUUID->"31bb22c9-5586-4744-9242-b2f2149a861c"]
}, Open ]],
-Cell[167586, 4058, 438, 10, 30, "Input",ExpressionUUID->"f3d6e48d-8b12-4c5a-b2ce-a686080fe3fc"],
+Cell[205138, 4907, 438, 10, 30, "Input",ExpressionUUID->"f3d6e48d-8b12-4c5a-b2ce-a686080fe3fc"],
Cell[CellGroupData[{
-Cell[168049, 4072, 502, 9, 30, "Input",ExpressionUUID->"6726880b-eb81-48b2-ac67-618301f47da4"],
-Cell[168554, 4083, 3301, 83, 76, "Output",ExpressionUUID->"b09861f2-5025-48ce-a36d-f4503eb7f011"]
+Cell[205601, 4921, 502, 9, 30, "Input",ExpressionUUID->"6726880b-eb81-48b2-ac67-618301f47da4"],
+Cell[206106, 4932, 3301, 83, 76, "Output",ExpressionUUID->"b09861f2-5025-48ce-a36d-f4503eb7f011"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[171904, 4172, 261, 4, 37, "Subsubsection",ExpressionUUID->"f2c9296b-a49e-49ed-9e12-d21fd0e808c7"],
+Cell[209456, 5021, 261, 4, 37, "Subsubsection",ExpressionUUID->"f2c9296b-a49e-49ed-9e12-d21fd0e808c7"],
Cell[CellGroupData[{
-Cell[172190, 4180, 347, 8, 30, "Input",ExpressionUUID->"18340ed5-0ea4-45d9-8c80-6aaf47949b49"],
-Cell[172540, 4190, 312, 7, 34, "Output",ExpressionUUID->"c7de3b5a-503b-452c-a5a9-ac897f5fbc9f"]
+Cell[209742, 5029, 347, 8, 30, "Input",ExpressionUUID->"18340ed5-0ea4-45d9-8c80-6aaf47949b49"],
+Cell[210092, 5039, 312, 7, 34, "Output",ExpressionUUID->"c7de3b5a-503b-452c-a5a9-ac897f5fbc9f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[172889, 4202, 241, 4, 30, "Input",ExpressionUUID->"387570ae-e55c-4aff-bdf2-09a4fdcd34a3"],
-Cell[173133, 4208, 2924, 83, 123, "Output",ExpressionUUID->"298b7036-7866-455e-ba13-d969730acda7"]
+Cell[210441, 5051, 241, 4, 30, "Input",ExpressionUUID->"387570ae-e55c-4aff-bdf2-09a4fdcd34a3"],
+Cell[210685, 5057, 2924, 83, 123, "Output",ExpressionUUID->"298b7036-7866-455e-ba13-d969730acda7"]
}, Open ]],
-Cell[176072, 4294, 360, 7, 30, "Input",ExpressionUUID->"888a2876-3898-4840-b645-ff96f9cf4b79"],
+Cell[213624, 5143, 360, 7, 30, "Input",ExpressionUUID->"888a2876-3898-4840-b645-ff96f9cf4b79"],
Cell[CellGroupData[{
-Cell[176457, 4305, 399, 8, 30, "Input",ExpressionUUID->"b0b32299-3222-420a-bea7-06a954d0bb2e"],
-Cell[176859, 4315, 2200, 60, 59, "Output",ExpressionUUID->"01c6ea79-11fb-4f35-93fd-eb1f5efa62ad"]
+Cell[214009, 5154, 399, 8, 30, "Input",ExpressionUUID->"b0b32299-3222-420a-bea7-06a954d0bb2e"],
+Cell[214411, 5164, 2200, 60, 59, "Output",ExpressionUUID->"01c6ea79-11fb-4f35-93fd-eb1f5efa62ad"]
}, Open ]],
-Cell[179074, 4378, 420, 9, 30, "Input",ExpressionUUID->"96e035f9-4084-4ae9-a51c-b0903a003dbe"],
+Cell[216626, 5227, 420, 9, 30, "Input",ExpressionUUID->"96e035f9-4084-4ae9-a51c-b0903a003dbe"],
Cell[CellGroupData[{
-Cell[179519, 4391, 375, 7, 30, "Input",ExpressionUUID->"bf863b9c-9f27-4e75-b47c-21a839ac2f9f"],
-Cell[179897, 4400, 1955, 54, 57, "Output",ExpressionUUID->"c8073162-6dc6-4672-b503-b6c24b0aa13d"]
+Cell[217071, 5240, 375, 7, 30, "Input",ExpressionUUID->"bf863b9c-9f27-4e75-b47c-21a839ac2f9f"],
+Cell[217449, 5249, 1955, 54, 57, "Output",ExpressionUUID->"c8073162-6dc6-4672-b503-b6c24b0aa13d"]
}, Open ]],
-Cell[181867, 4457, 400, 8, 30, "Input",ExpressionUUID->"6f218393-8390-4838-ae78-1cd5a0534121"],
+Cell[219419, 5306, 400, 8, 30, "Input",ExpressionUUID->"6f218393-8390-4838-ae78-1cd5a0534121"],
Cell[CellGroupData[{
-Cell[182292, 4469, 458, 9, 30, "Input",ExpressionUUID->"2f044983-fd9e-4c6c-af06-91a4017c0aa8"],
-Cell[182753, 4480, 4118, 96, 123, "Output",ExpressionUUID->"698b18ff-12d5-43e7-ae9b-9d8848e8fccb"]
+Cell[219844, 5318, 458, 9, 30, "Input",ExpressionUUID->"2f044983-fd9e-4c6c-af06-91a4017c0aa8"],
+Cell[220305, 5329, 4118, 96, 123, "Output",ExpressionUUID->"698b18ff-12d5-43e7-ae9b-9d8848e8fccb"]
}, Open ]],
-Cell[186886, 4579, 501, 10, 30, "Input",ExpressionUUID->"ef5818f1-c8d3-4920-926c-ae3b483e0051"],
+Cell[224438, 5428, 501, 10, 30, "Input",ExpressionUUID->"ef5818f1-c8d3-4920-926c-ae3b483e0051"],
Cell[CellGroupData[{
-Cell[187412, 4593, 502, 9, 30, "Input",ExpressionUUID->"3166fc24-fba3-4153-be8a-5b837a614f5f"],
-Cell[187917, 4604, 10999, 290, 780, "Output",ExpressionUUID->"75f47814-9611-408f-bb5c-8b1a3a8300cd"]
+Cell[224964, 5442, 502, 9, 30, "Input",ExpressionUUID->"3166fc24-fba3-4153-be8a-5b837a614f5f"],
+Cell[225469, 5453, 10999, 290, 780, "Output",ExpressionUUID->"75f47814-9611-408f-bb5c-8b1a3a8300cd"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[198965, 4900, 314, 5, 37, "Subsubsection",ExpressionUUID->"f1678082-c089-4c33-a483-db95339820a7"],
+Cell[236517, 5749, 314, 5, 37, "Subsubsection",ExpressionUUID->"f1678082-c089-4c33-a483-db95339820a7"],
Cell[CellGroupData[{
-Cell[199304, 4909, 462, 11, 30, "Input",ExpressionUUID->"5f8b37b8-9c00-46fa-8ee5-227cbc0694a7"],
-Cell[199769, 4922, 402, 10, 34, "Output",ExpressionUUID->"ff22021b-f056-4f5a-9d09-abec376efd6e"]
+Cell[236856, 5758, 462, 11, 30, "Input",ExpressionUUID->"5f8b37b8-9c00-46fa-8ee5-227cbc0694a7"],
+Cell[237321, 5771, 402, 10, 34, "Output",ExpressionUUID->"ff22021b-f056-4f5a-9d09-abec376efd6e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[200208, 4937, 241, 4, 30, "Input",ExpressionUUID->"a9d56d88-1563-49fd-ac32-77c20ddd760f"],
-Cell[200452, 4943, 3940, 110, 182, "Output",ExpressionUUID->"6ae38b34-3906-4aa9-a9b4-2503262129bc"]
+Cell[237760, 5786, 241, 4, 30, "Input",ExpressionUUID->"a9d56d88-1563-49fd-ac32-77c20ddd760f"],
+Cell[238004, 5792, 3940, 110, 182, "Output",ExpressionUUID->"6ae38b34-3906-4aa9-a9b4-2503262129bc"]
}, Open ]],
-Cell[204407, 5056, 389, 8, 30, "Input",ExpressionUUID->"090a7620-65c3-4aee-924c-449f6ecedabb"],
+Cell[241959, 5905, 389, 8, 30, "Input",ExpressionUUID->"090a7620-65c3-4aee-924c-449f6ecedabb"],
Cell[CellGroupData[{
-Cell[204821, 5068, 399, 8, 30, "Input",ExpressionUUID->"8b7cdaea-4bd1-4392-97ce-24ba1559b850"],
-Cell[205223, 5078, 3482, 95, 83, "Output",ExpressionUUID->"2ca79107-d3e6-4d93-b13c-90abb2ae08a4"]
+Cell[242373, 5917, 399, 8, 30, "Input",ExpressionUUID->"8b7cdaea-4bd1-4392-97ce-24ba1559b850"],
+Cell[242775, 5927, 3482, 95, 83, "Output",ExpressionUUID->"2ca79107-d3e6-4d93-b13c-90abb2ae08a4"]
}, Open ]],
-Cell[208720, 5176, 428, 10, 30, "Input",ExpressionUUID->"71e1ce78-aaba-4c7c-9ab3-2a709bb2e1f7"],
+Cell[246272, 6025, 428, 10, 30, "Input",ExpressionUUID->"71e1ce78-aaba-4c7c-9ab3-2a709bb2e1f7"],
Cell[CellGroupData[{
-Cell[209173, 5190, 375, 7, 30, "Input",ExpressionUUID->"8343df2a-5ed1-4c02-9e23-525697dc41a5"],
-Cell[209551, 5199, 3356, 92, 83, "Output",ExpressionUUID->"a1f8b6ab-299f-4326-9f15-c1446ef2d5d4"]
+Cell[246725, 6039, 375, 7, 30, "Input",ExpressionUUID->"8343df2a-5ed1-4c02-9e23-525697dc41a5"],
+Cell[247103, 6048, 3356, 92, 83, "Output",ExpressionUUID->"a1f8b6ab-299f-4326-9f15-c1446ef2d5d4"]
}, Open ]],
-Cell[212922, 5294, 509, 11, 30, "Input",ExpressionUUID->"6c13bd72-7695-424a-bbb9-9dd7edfe014e"],
+Cell[250474, 6143, 509, 11, 30, "Input",ExpressionUUID->"6c13bd72-7695-424a-bbb9-9dd7edfe014e"],
Cell[CellGroupData[{
-Cell[213456, 5309, 502, 9, 30, "Input",ExpressionUUID->"e3f0e022-1f80-4ed5-a6c3-ae9bcec8667f"],
-Cell[213961, 5320, 144409, 3521, 8054, "Output",ExpressionUUID->"2b728d24-68a9-4d00-8be6-7fa0e26b9f29"]
+Cell[251008, 6158, 502, 9, 30, "Input",ExpressionUUID->"e3f0e022-1f80-4ed5-a6c3-ae9bcec8667f"],
+Cell[251513, 6169, 144409, 3521, 8054, "Output",ExpressionUUID->"2b728d24-68a9-4d00-8be6-7fa0e26b9f29"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
-Cell[358419, 8847, 392, 6, 37, "Subsubsection",ExpressionUUID->"f2cfa260-a398-47cf-befd-874b10a074aa"],
+Cell[395971, 9696, 392, 6, 37, "Subsubsection",ExpressionUUID->"f2cfa260-a398-47cf-befd-874b10a074aa"],
Cell[CellGroupData[{
-Cell[358836, 8857, 446, 10, 30, "Input",ExpressionUUID->"459dc0da-dc4c-4134-a537-156517c7721b"],
-Cell[359285, 8869, 362, 8, 34, "Output",ExpressionUUID->"bf973f16-9747-4827-950d-8cc2d3004bf8"]
+Cell[396388, 9706, 446, 10, 30, "Input",ExpressionUUID->"459dc0da-dc4c-4134-a537-156517c7721b"],
+Cell[396837, 9718, 362, 8, 34, "Output",ExpressionUUID->"bf973f16-9747-4827-950d-8cc2d3004bf8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[359684, 8882, 241, 4, 30, "Input",ExpressionUUID->"b54bb386-fbc8-458c-aba9-9193c1081979"],
-Cell[359928, 8888, 3116, 88, 123, "Output",ExpressionUUID->"ed39cd19-62ae-4b23-a6d0-e704f22b27a6"]
+Cell[397236, 9731, 241, 4, 30, "Input",ExpressionUUID->"b54bb386-fbc8-458c-aba9-9193c1081979"],
+Cell[397480, 9737, 3116, 88, 123, "Output",ExpressionUUID->"ed39cd19-62ae-4b23-a6d0-e704f22b27a6"]
}, Open ]],
-Cell[363059, 8979, 411, 8, 30, "Input",ExpressionUUID->"986cb64b-50df-432a-82b1-7bec4e80ceaf"],
+Cell[400611, 9828, 411, 8, 30, "Input",ExpressionUUID->"986cb64b-50df-432a-82b1-7bec4e80ceaf"],
Cell[CellGroupData[{
-Cell[363495, 8991, 399, 8, 30, "Input",ExpressionUUID->"386e1292-91c9-4b11-bf70-ce5c544eaf00"],
-Cell[363897, 9001, 2268, 62, 57, "Output",ExpressionUUID->"f7dbbaf8-8e17-40de-94a8-9558fed830f5"]
+Cell[401047, 9840, 399, 8, 30, "Input",ExpressionUUID->"386e1292-91c9-4b11-bf70-ce5c544eaf00"],
+Cell[401449, 9850, 2268, 62, 57, "Output",ExpressionUUID->"f7dbbaf8-8e17-40de-94a8-9558fed830f5"]
}, Open ]],
-Cell[366180, 9066, 428, 10, 30, "Input",ExpressionUUID->"f5b579cf-24ea-4964-b55c-94bb52974af6"],
+Cell[403732, 9915, 428, 10, 30, "Input",ExpressionUUID->"f5b579cf-24ea-4964-b55c-94bb52974af6"],
Cell[CellGroupData[{
-Cell[366633, 9080, 375, 7, 30, "Input",ExpressionUUID->"c72fd6f2-d90d-4fd7-94cf-e9c00605986a"],
-Cell[367011, 9089, 2286, 65, 60, "Output",ExpressionUUID->"45440d09-4cee-4346-8f6e-b9d171fb8605"]
+Cell[404185, 9929, 375, 7, 30, "Input",ExpressionUUID->"c72fd6f2-d90d-4fd7-94cf-e9c00605986a"],
+Cell[404563, 9938, 2286, 65, 60, "Output",ExpressionUUID->"45440d09-4cee-4346-8f6e-b9d171fb8605"]
}, Open ]],
-Cell[369312, 9157, 509, 11, 30, "Input",ExpressionUUID->"9688a322-d771-4c80-89e7-c478115b9304"],
+Cell[406864, 10006, 509, 11, 30, "Input",ExpressionUUID->"9688a322-d771-4c80-89e7-c478115b9304"],
Cell[CellGroupData[{
-Cell[369846, 9172, 502, 9, 30, "Input",ExpressionUUID->"295a76c5-604a-4f61-a72b-52de6d59d331"],
-Cell[370351, 9183, 68613, 1717, 5314, "Output",ExpressionUUID->"1286ba27-aaf7-43b7-a8a5-e8ed8063374e"]
+Cell[407398, 10021, 502, 9, 30, "Input",ExpressionUUID->"295a76c5-604a-4f61-a72b-52de6d59d331"],
+Cell[407903, 10032, 68613, 1717, 5314, "Output",ExpressionUUID->"1286ba27-aaf7-43b7-a8a5-e8ed8063374e"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[439025, 10907, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
+Cell[476577, 11756, 166, 3, 67, "Section",ExpressionUUID->"f03bc825-1521-4851-a5f1-6b1883555b64"],
Cell[CellGroupData[{
-Cell[439216, 10914, 1226, 18, 54, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
-Cell[440445, 10934, 1225, 20, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
+Cell[476768, 11763, 1226, 18, 54, "Subsection",ExpressionUUID->"72589bbd-52d7-448c-9e07-de570aaa91a1"],
+Cell[477997, 11783, 1225, 20, 30, "Input",ExpressionUUID->"64505dfe-3bce-42a2-b055-674f282dde89"],
Cell[CellGroupData[{
-Cell[441695, 10958, 1026, 29, 52, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
-Cell[442724, 10989, 626, 10, 51, "Output",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
-Cell[443353, 11001, 607, 9, 34, "Output",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
+Cell[479247, 11807, 1026, 29, 52, "Input",ExpressionUUID->"719fbc17-d50a-4f25-ac5d-a6aef37f69ae"],
+Cell[480276, 11838, 626, 10, 51, "Output",ExpressionUUID->"058d8d59-638e-4520-b74c-d83cffecbc8c"],
+Cell[480905, 11850, 607, 9, 34, "Output",ExpressionUUID->"99022d75-8502-4f4a-8870-ada7da5f945b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[443997, 11015, 529, 13, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
-Cell[444529, 11030, 739, 19, 54, "Output",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
+Cell[481549, 11864, 529, 13, 30, "Input",ExpressionUUID->"3985141c-be0d-4e4e-a042-57220e2c8e73"],
+Cell[482081, 11879, 739, 19, 54, "Output",ExpressionUUID->"bfef73d6-6784-4aec-b690-a22be7c9b4ad"]
}, Open ]],
Cell[CellGroupData[{
-Cell[445305, 11054, 548, 17, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
-Cell[445856, 11073, 1561, 49, 97, "Output",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
+Cell[482857, 11903, 548, 17, 30, "Input",ExpressionUUID->"d14ed336-3d9c-4223-a7b0-60c6dacdcad0"],
+Cell[483408, 11922, 1561, 49, 97, "Output",ExpressionUUID->"59dd66ab-891c-44bd-b39a-656047274a0c"]
}, Open ]],
-Cell[447432, 11125, 1070, 26, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
+Cell[484984, 11974, 1070, 26, 30, "Input",ExpressionUUID->"bb1e81bf-6f7b-4d93-a9ac-53d6fd8c1489"],
Cell[CellGroupData[{
-Cell[448527, 11155, 479, 11, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
-Cell[449009, 11168, 444, 10, 24, "Message",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
-Cell[449456, 11180, 159, 3, 34, "Output",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
+Cell[486079, 12004, 479, 11, 30, "Input",ExpressionUUID->"024bcf28-8095-42df-9004-51269bdbc461"],
+Cell[486561, 12017, 444, 10, 24, "Message",ExpressionUUID->"8833624e-8881-4de4-8375-ecdb2d5b06fc"],
+Cell[487008, 12029, 159, 3, 34, "Output",ExpressionUUID->"db91f67c-cd2c-4151-88c9-950169087d6e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[449652, 11188, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
-Cell[450189, 11201, 705, 20, 78, "Output",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
+Cell[487204, 12037, 534, 11, 30, "Input",ExpressionUUID->"37047281-e390-4fa8-8ee7-c348b35cfac5"],
+Cell[487741, 12050, 705, 20, 78, "Output",ExpressionUUID->"acdcc1f5-5db7-4c33-96d8-246536ef6bc7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[450931, 11226, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
-Cell[451759, 11246, 32915, 609, 230, "Output",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
+Cell[488483, 12075, 825, 18, 30, "Input",ExpressionUUID->"cf9b9008-43f4-4e17-bf0d-421fed27767c"],
+Cell[489311, 12095, 32915, 609, 230, "Output",ExpressionUUID->"c9604202-5ccf-4f05-bd86-f7e2d46659c2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[484711, 11860, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
-Cell[485528, 11886, 379, 8, 34, "Output",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
-Cell[485910, 11896, 1038, 31, 37, "Output",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
+Cell[522263, 12709, 814, 24, 52, "Input",ExpressionUUID->"7a19f391-ea85-4ac1-9169-0e71076cc730"],
+Cell[523080, 12735, 379, 8, 34, "Output",ExpressionUUID->"885eab31-d901-41e9-a3c3-27e40e1b2597"],
+Cell[523462, 12745, 1038, 31, 37, "Output",ExpressionUUID->"810e491c-0f35-4674-836e-b70b6ec08f67"]
}, Open ]],
Cell[CellGroupData[{
-Cell[486985, 11932, 1253, 26, 30, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
-Cell[488241, 11960, 1160, 18, 24, "Print",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
+Cell[524537, 12781, 1253, 26, 30, "Input",ExpressionUUID->"1c093b45-c7e6-436b-b249-347e2408b6ea"],
+Cell[525793, 12809, 1160, 18, 24, "Print",ExpressionUUID->"e6d6d668-3c70-457a-b89e-87b1c4dccbd1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[489438, 11983, 8207, 153, 241, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
-Cell[497648, 12138, 43943, 873, 237, "Output",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
+Cell[526990, 12832, 8207, 153, 241, "Input",ExpressionUUID->"84f93c30-180e-48f1-b654-ba099d58a792"],
+Cell[535200, 12987, 43943, 873, 237, "Output",ExpressionUUID->"8e495db3-dec7-4c20-999f-0778b45c18fd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[541628, 13016, 788, 19, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
-Cell[542419, 13037, 15662, 321, 248, "Output",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
+Cell[579180, 13865, 788, 19, 30, "Input",ExpressionUUID->"1e1403dd-e8e6-4dfd-b8d9-a24853eb585c"],
+Cell[579971, 13886, 15662, 321, 248, "Output",ExpressionUUID->"b7c41775-e083-429f-a12f-e84252548d72"]
}, Open ]],
Cell[CellGroupData[{
-Cell[558118, 13363, 763, 23, 52, "Input",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
-Cell[558884, 13388, 288, 5, 34, "Output",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
+Cell[595670, 14212, 763, 23, 52, "Input",ExpressionUUID->"7f9ff39f-8710-49f8-a542-c9f973274d82"],
+Cell[596436, 14237, 288, 5, 34, "Output",ExpressionUUID->"7c99b552-a19f-44eb-b388-8c08bca69728"]
}, Open ]],
-Cell[559187, 13396, 253, 6, 30, "Input",ExpressionUUID->"38603e06-81f9-4540-b442-c2b9eb49ef1f"],
+Cell[596739, 14245, 253, 6, 30, "Input",ExpressionUUID->"38603e06-81f9-4540-b442-c2b9eb49ef1f"],
Cell[CellGroupData[{
-Cell[559465, 13406, 1344, 43, 94, "Input",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
-Cell[560812, 13451, 323, 6, 34, "Output",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
-Cell[561138, 13459, 320, 6, 34, "Output",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
+Cell[597017, 14255, 1344, 43, 94, "Input",ExpressionUUID->"e757a525-69f7-4d56-83c3-fc04f587b774"],
+Cell[598364, 14300, 323, 6, 34, "Output",ExpressionUUID->"3b5686dd-093e-4e89-bc6e-2fa6fdded850"],
+Cell[598690, 14308, 320, 6, 34, "Output",ExpressionUUID->"68c7f9d2-8dcc-49c1-9ea4-2d806ade74f4"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[561507, 13471, 1218, 17, 38, "Subsection",ExpressionUUID->"b2820fff-bf8c-40c3-b557-8da092f86f4d"],
-Cell[562728, 13490, 1271, 21, 30, "Input",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
+Cell[599059, 14320, 1218, 17, 38, "Subsection",ExpressionUUID->"b2820fff-bf8c-40c3-b557-8da092f86f4d"],
+Cell[600280, 14339, 1271, 21, 30, "Input",ExpressionUUID->"3ef9ecbc-c1f2-4a48-955d-4ebded0720f2"],
Cell[CellGroupData[{
-Cell[564024, 13515, 1026, 29, 52, "Input",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
-Cell[565053, 13546, 646, 10, 51, "Output",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
-Cell[565702, 13558, 632, 9, 34, "Output",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
+Cell[601576, 14364, 1026, 29, 52, "Input",ExpressionUUID->"5e8acc5b-d57e-4cd3-afd8-01af9a7f0214"],
+Cell[602605, 14395, 646, 10, 51, "Output",ExpressionUUID->"603a021f-99a3-4d1c-917a-f07c14ee9571"],
+Cell[603254, 14407, 632, 9, 34, "Output",ExpressionUUID->"ff5abd93-f1d7-433e-af55-010a77d25c41"]
}, Open ]],
-Cell[566349, 13570, 1070, 26, 30, "Input",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
+Cell[603901, 14419, 1070, 26, 30, "Input",ExpressionUUID->"44fbb0a8-b946-400a-b087-2cbbd124e507"],
Cell[CellGroupData[{
-Cell[567444, 13600, 814, 24, 52, "Input",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
-Cell[568261, 13626, 401, 8, 34, "Output",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
-Cell[568665, 13636, 1062, 31, 37, "Output",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
+Cell[604996, 14449, 814, 24, 52, "Input",ExpressionUUID->"8efacc6e-2635-4c77-8de1-f8af2a464add"],
+Cell[605813, 14475, 401, 8, 34, "Output",ExpressionUUID->"ce57dd36-adac-4715-9653-7a0281933f9f"],
+Cell[606217, 14485, 1062, 31, 37, "Output",ExpressionUUID->"f148db56-d3f5-4438-9e20-f0b3b27f757e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[569764, 13672, 349, 8, 30, "Input",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
-Cell[570116, 13682, 580, 18, 59, "Output",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
+Cell[607316, 14521, 349, 8, 30, "Input",ExpressionUUID->"beee0b9e-f64b-4695-b3ae-7af4ced4148e"],
+Cell[607668, 14531, 580, 18, 59, "Output",ExpressionUUID->"b03a74d9-dbee-4aae-974b-34c5a517ca89"]
}, Open ]],
Cell[CellGroupData[{
-Cell[570733, 13705, 1385, 29, 30, "Input",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
-Cell[572121, 13736, 1208, 19, 24, "Print",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
+Cell[608285, 14554, 1385, 29, 30, "Input",ExpressionUUID->"44e9fca0-a2b6-40c2-acd5-969ff36f73de"],
+Cell[609673, 14585, 1208, 19, 24, "Print",ExpressionUUID->"bc4a9936-ccb5-4fd6-a83c-b3a4d43052de"]
}, Open ]],
Cell[CellGroupData[{
-Cell[573366, 13760, 8239, 153, 241, "Input",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
-Cell[581608, 13915, 43970, 874, 237, "Output",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
+Cell[610918, 14609, 8239, 153, 241, "Input",ExpressionUUID->"a18ecb8d-96bc-4b7c-a3a6-b402877a8aa7"],
+Cell[619160, 14764, 43970, 874, 237, "Output",ExpressionUUID->"5e8d1719-5585-41b7-af48-00c401a7b5e7"]
}, Open ]],
Cell[CellGroupData[{
-Cell[625615, 14794, 788, 19, 30, "Input",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
-Cell[626406, 14815, 28603, 541, 248, "Output",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
+Cell[663167, 15643, 788, 19, 30, "Input",ExpressionUUID->"565e8596-4dc2-441a-8302-b53cc1f29c77"],
+Cell[663958, 15664, 28603, 541, 248, "Output",ExpressionUUID->"22ebddef-18bc-479d-a8ff-19e35db5b592"]
}, Open ]],
Cell[CellGroupData[{
-Cell[655046, 15361, 763, 23, 52, "Input",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
-Cell[655812, 15386, 311, 5, 34, "Output",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
+Cell[692598, 16210, 763, 23, 52, "Input",ExpressionUUID->"cc65265d-0cfe-4427-b7e5-0a15535d81cf"],
+Cell[693364, 16235, 311, 5, 34, "Output",ExpressionUUID->"165c943e-61fb-4db1-b256-d4ddb7d91843"]
}, Open ]],
-Cell[656138, 15394, 253, 6, 30, "Input",ExpressionUUID->"3090482e-6c5c-4f63-b628-0b772cc2d3bf"],
+Cell[693690, 16243, 253, 6, 30, "Input",ExpressionUUID->"3090482e-6c5c-4f63-b628-0b772cc2d3bf"],
Cell[CellGroupData[{
-Cell[656416, 15404, 1344, 43, 94, "Input",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
-Cell[657763, 15449, 347, 6, 34, "Output",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
-Cell[658113, 15457, 344, 6, 34, "Output",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
+Cell[693968, 16253, 1344, 43, 94, "Input",ExpressionUUID->"8a5b6906-12c3-45e9-94db-2214437f6f1d"],
+Cell[695315, 16298, 347, 6, 34, "Output",ExpressionUUID->"6d432a27-bd5f-486b-a489-63a850ae6102"],
+Cell[695665, 16306, 344, 6, 34, "Output",ExpressionUUID->"503e8131-6d9d-4f5d-83a6-5c9f15ca6dba"]
}, Open ]],
Cell[CellGroupData[{
-Cell[658494, 15468, 795, 21, 30, "Input",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
-Cell[659292, 15491, 16718, 333, 254, "Output",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
+Cell[696046, 16317, 795, 21, 30, "Input",ExpressionUUID->"843cfd2f-69c2-46f4-8b37-bf4d35a364e2"],
+Cell[696844, 16340, 16718, 333, 254, "Output",ExpressionUUID->"351b1ced-1b62-4b15-a826-224777724a80"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[676059, 15830, 1182, 17, 38, "Subsection",ExpressionUUID->"37266eb5-8195-46d9-9a9f-dc6f7b0c4e42"],
-Cell[677244, 15849, 1327, 21, 30, "Input",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
-Cell[678574, 15872, 1015, 24, 30, "Input",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
+Cell[713611, 16679, 1182, 17, 38, "Subsection",ExpressionUUID->"37266eb5-8195-46d9-9a9f-dc6f7b0c4e42"],
+Cell[714796, 16698, 1327, 21, 30, "Input",ExpressionUUID->"f2c60745-11df-4b9e-8051-c69371e69dca"],
+Cell[716126, 16721, 1015, 24, 30, "Input",ExpressionUUID->"e7d3970f-a814-42d5-8628-fabec9687213"],
Cell[CellGroupData[{
-Cell[679614, 15900, 757, 18, 30, "Input",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
-Cell[680374, 15920, 265, 5, 24, "Print",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
+Cell[717166, 16749, 757, 18, 30, "Input",ExpressionUUID->"a4192e9e-8e22-4457-9aa1-67d399dbac4f"],
+Cell[717926, 16769, 265, 5, 24, "Print",ExpressionUUID->"50897667-9781-4278-a9a3-8ee39432db80"]
}, Open ]],
Cell[CellGroupData[{
-Cell[680676, 15930, 8054, 156, 241, "Input",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
-Cell[688733, 16088, 43244, 855, 237, "Output",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
-Cell[731980, 16945, 4845, 100, 220, "Output",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
+Cell[718228, 16779, 8054, 156, 241, "Input",ExpressionUUID->"7b6c4690-015e-4366-94b4-6ab38f039057"],
+Cell[726285, 16937, 43244, 855, 237, "Output",ExpressionUUID->"dbc97866-cb98-4423-86d6-8d45d26c2193"],
+Cell[769532, 17794, 4845, 100, 220, "Output",ExpressionUUID->"51c94f0b-c84f-4066-b4c4-9d24b6fd79a1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[736862, 17050, 763, 23, 52, "Input",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
-Cell[737628, 17075, 241, 4, 34, "Output",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
+Cell[774414, 17899, 763, 23, 52, "Input",ExpressionUUID->"d085706e-a105-47d4-ab54-c587323ea7e2"],
+Cell[775180, 17924, 241, 4, 34, "Output",ExpressionUUID->"07235865-1dfb-4e17-9206-09e93c9845de"]
}, Open ]],
-Cell[737884, 17082, 253, 6, 30, "Input",ExpressionUUID->"4ab87890-76c2-4a56-8e4e-9f0ed3234489"],
+Cell[775436, 17931, 253, 6, 30, "Input",ExpressionUUID->"4ab87890-76c2-4a56-8e4e-9f0ed3234489"],
Cell[CellGroupData[{
-Cell[738162, 17092, 1344, 43, 94, "Input",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
-Cell[739509, 17137, 273, 5, 34, "Output",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
-Cell[739785, 17144, 272, 5, 34, "Output",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
+Cell[775714, 17941, 1344, 43, 94, "Input",ExpressionUUID->"6190f88e-521c-4d0a-892d-6bb8d284f63d"],
+Cell[777061, 17986, 273, 5, 34, "Output",ExpressionUUID->"2167ca09-4ace-4c44-81b0-100d2bce83d6"],
+Cell[777337, 17993, 272, 5, 34, "Output",ExpressionUUID->"fd40c151-392a-48c4-a90b-4b4b0a7dfc79"]
}, Open ]]
}, Closed]]
}, Open ]],
Cell[CellGroupData[{
-Cell[740118, 17156, 176, 3, 67, "Section",ExpressionUUID->"5749bd47-dc02-4cba-a2cf-201a855b2151"],
+Cell[777670, 18005, 176, 3, 67, "Section",ExpressionUUID->"5749bd47-dc02-4cba-a2cf-201a855b2151"],
Cell[CellGroupData[{
-Cell[740319, 17163, 159, 3, 54, "Subsection",ExpressionUUID->"ba981157-8458-4263-8a67-f9cf60ef2f96"],
+Cell[777871, 18012, 159, 3, 54, "Subsection",ExpressionUUID->"ba981157-8458-4263-8a67-f9cf60ef2f96"],
Cell[CellGroupData[{
-Cell[740503, 17170, 163, 3, 45, "Subsubsection",ExpressionUUID->"91514f64-9c96-4556-9a7d-de6137f482de"],
+Cell[778055, 18019, 163, 3, 45, "Subsubsection",ExpressionUUID->"91514f64-9c96-4556-9a7d-de6137f482de"],
Cell[CellGroupData[{
-Cell[740691, 17177, 1825, 34, 94, "Input",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
-Cell[742519, 17213, 882, 16, 77, "Output",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
+Cell[778243, 18026, 1825, 34, 94, "Input",ExpressionUUID->"9b04f69d-c730-4354-be2b-0ff586112713"],
+Cell[780071, 18062, 882, 16, 77, "Output",ExpressionUUID->"8ba5fccb-8517-4874-a4ee-b289e34b65b2"]
}, Open ]],
Cell[CellGroupData[{
-Cell[743438, 17234, 2417, 53, 94, "Input",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
-Cell[745858, 17289, 1012, 19, 42, "Message",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
-Cell[746873, 17310, 1013, 19, 42, "Message",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
-Cell[747889, 17331, 1014, 19, 42, "Message",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
-Cell[748906, 17352, 673, 13, 24, "Message",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
+Cell[780990, 18083, 2417, 53, 94, "Input",ExpressionUUID->"3efbf911-69a1-4c12-b496-7f764f1c490e"],
+Cell[783410, 18138, 1012, 19, 42, "Message",ExpressionUUID->"8a089ba7-f1c6-41da-9d08-bee973db1d28"],
+Cell[784425, 18159, 1013, 19, 42, "Message",ExpressionUUID->"4ac63832-f9d9-4cb0-8816-7c3cdb5ffee5"],
+Cell[785441, 18180, 1014, 19, 42, "Message",ExpressionUUID->"47058735-8125-49a5-bd1d-2553eda1a769"],
+Cell[786458, 18201, 673, 13, 24, "Message",ExpressionUUID->"d541179d-cefe-4ba6-9fb9-383b81def286"]
}, Open ]],
-Cell[749594, 17368, 152, 3, 30, "Input",ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-c3e73e2aad7b"],
+Cell[787146, 18217, 152, 3, 30, "Input",ExpressionUUID->"4f6dbc9e-018a-45fc-a0c5-c3e73e2aad7b"],
Cell[CellGroupData[{
-Cell[749771, 17375, 911, 27, 30, "Input",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
-Cell[750685, 17404, 3946, 94, 263, "Output",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
+Cell[787323, 18224, 911, 27, 30, "Input",ExpressionUUID->"913fa8d3-9c8c-44c2-92b3-f2e8f8fbacc7"],
+Cell[788237, 18253, 3946, 94, 263, "Output",ExpressionUUID->"d998e05f-9766-4ca6-b1cb-9aa9473dd663"]
}, Open ]],
Cell[CellGroupData[{
-Cell[754668, 17503, 2328, 50, 94, "Input",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
-Cell[756999, 17555, 1039, 20, 42, "Message",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
-Cell[758041, 17577, 1039, 20, 42, "Message",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
-Cell[759083, 17599, 1040, 20, 42, "Message",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
-Cell[760126, 17621, 696, 14, 24, "Message",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
+Cell[792220, 18352, 2328, 50, 94, "Input",ExpressionUUID->"b9d155d0-8b4f-4054-b42c-ccb1e63fe718"],
+Cell[794551, 18404, 1039, 20, 42, "Message",ExpressionUUID->"a53f9c7c-d5b5-4dd8-8b97-5659db357fa2"],
+Cell[795593, 18426, 1039, 20, 42, "Message",ExpressionUUID->"c818faf6-7393-4709-825c-b00491e03a05"],
+Cell[796635, 18448, 1040, 20, 42, "Message",ExpressionUUID->"d6b7d95d-653a-460c-9f17-ff19f802a117"],
+Cell[797678, 18470, 696, 14, 24, "Message",ExpressionUUID->"05ca9c57-7f90-47dc-85cc-c718cdc3f4ef"]
}, Open ]],
-Cell[760837, 17638, 1026, 29, 30, "Input",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
+Cell[798389, 18487, 1026, 29, 30, "Input",ExpressionUUID->"7971435f-5055-4a09-9e33-0f0fe97bb315"],
Cell[CellGroupData[{
-Cell[761888, 17671, 2754, 59, 94, "Input",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
-Cell[764645, 17732, 65571, 1315, 375, "Output",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
+Cell[799440, 18520, 2754, 59, 94, "Input",ExpressionUUID->"58cf74f9-28e9-4477-aac8-5da15fef6a6b"],
+Cell[802197, 18581, 65571, 1315, 375, "Output",ExpressionUUID->"82263251-b5a1-4981-9207-bab08af71f79"]
}, Open ]],
Cell[CellGroupData[{
-Cell[830253, 19052, 420, 9, 30, "Input",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
-Cell[830676, 19063, 15001, 297, 72, "Output",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
+Cell[867805, 19901, 420, 9, 30, "Input",ExpressionUUID->"556f4d54-63b0-42df-b2c4-d7614736c084"],
+Cell[868228, 19912, 15001, 297, 72, "Output",ExpressionUUID->"6cba4079-b797-4eb6-b81f-f65a03d2bcb8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[845714, 19365, 536, 15, 30, "Input",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
-Cell[846253, 19382, 626, 13, 31, "Message",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
-Cell[846882, 19397, 448, 7, 34, "Output",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
+Cell[883266, 20214, 536, 15, 30, "Input",ExpressionUUID->"7ab3cc3f-7877-4657-abf8-9aa902e5f925"],
+Cell[883805, 20231, 626, 13, 31, "Message",ExpressionUUID->"7b5328cc-a5bc-4b41-919e-acf7a5e3cdaf"],
+Cell[884434, 20246, 448, 7, 34, "Output",ExpressionUUID->"e519fec0-81d0-4f43-a799-353774898003"]
}, Open ]],
Cell[CellGroupData[{
-Cell[847367, 19409, 652, 20, 30, "Input",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
-Cell[848022, 19431, 365, 6, 34, "Output",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
+Cell[884919, 20258, 652, 20, 30, "Input",ExpressionUUID->"48719bc6-b11c-45d6-be98-c04cd9bb05a3"],
+Cell[885574, 20280, 365, 6, 34, "Output",ExpressionUUID->"d8936bad-3090-44bb-a131-3441a53cd3f7"]
}, Open ]],
-Cell[848402, 19440, 244, 5, 30, "Input",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
+Cell[885954, 20289, 244, 5, 30, "Input",ExpressionUUID->"233b0640-c5e0-483d-aec3-d3b8da0603af"],
Cell[CellGroupData[{
-Cell[848671, 19449, 237, 5, 30, "Input",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
-Cell[848911, 19456, 392, 6, 34, "Output",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
+Cell[886223, 20298, 237, 5, 30, "Input",ExpressionUUID->"3c5eac13-4bdd-4118-a482-3e8f2d72cb51"],
+Cell[886463, 20305, 392, 6, 34, "Output",ExpressionUUID->"6f7cd046-e229-4191-81bd-08e368b6f58e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[849340, 19467, 532, 15, 30, "Input",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
-Cell[849875, 19484, 17749, 352, 111, "Output",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
+Cell[886892, 20316, 532, 15, 30, "Input",ExpressionUUID->"2768cbf9-1327-4c03-bc9f-c36e43ed3072"],
+Cell[887427, 20333, 17749, 352, 111, "Output",ExpressionUUID->"b5b48068-bb24-417a-99fb-07b8f6c63396"]
}, Open ]],
Cell[CellGroupData[{
-Cell[867661, 19841, 2895, 63, 115, "Input",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
-Cell[870559, 19906, 557, 12, 49, "Message",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
-Cell[871119, 19920, 88809, 1684, 381, "Output",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
+Cell[905213, 20690, 2895, 63, 115, "Input",ExpressionUUID->"29809a07-f28c-4e9a-bd5c-5a7a727ee9dc"],
+Cell[908111, 20755, 557, 12, 49, "Message",ExpressionUUID->"fa40aa18-95c3-4025-9927-5c7482b99490"],
+Cell[908671, 20769, 88809, 1684, 381, "Output",ExpressionUUID->"927f5c7b-6faf-4735-9e9d-0aa869cf0760"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[959977, 21610, 154, 3, 37, "Subsubsection",ExpressionUUID->"e4a9ae43-463d-4aae-9abe-517b2016b6ca"],
+Cell[997529, 22459, 154, 3, 37, "Subsubsection",ExpressionUUID->"e4a9ae43-463d-4aae-9abe-517b2016b6ca"],
Cell[CellGroupData[{
-Cell[960156, 21617, 2316, 47, 115, "Input",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
-Cell[962475, 21666, 1147, 19, 77, "Output",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
+Cell[997708, 22466, 2316, 47, 115, "Input",ExpressionUUID->"3fe47531-a7d0-4d41-9f59-1f3102766ae8"],
+Cell[1000027, 22515, 1147, 19, 77, "Output",ExpressionUUID->"a152b91b-b458-4cd1-8363-ba94273c3c8d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[963659, 21690, 2568, 55, 94, "Input",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
-Cell[966230, 21747, 1180, 21, 24, "Message",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
-Cell[967413, 21770, 1179, 21, 24, "Message",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
-Cell[968595, 21793, 1179, 21, 24, "Message",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
-Cell[969777, 21816, 952, 17, 24, "Message",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
-Cell[970732, 21835, 1081, 19, 59, "Message",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
+Cell[1001211, 22539, 2568, 55, 94, "Input",ExpressionUUID->"1bc4d925-a394-449d-8bba-c94874c4fa65"],
+Cell[1003782, 22596, 1180, 21, 24, "Message",ExpressionUUID->"559f7c3e-4e6b-4681-95cc-1c6ae7b8f0fd"],
+Cell[1004965, 22619, 1179, 21, 24, "Message",ExpressionUUID->"a03ea14c-a34a-4e0f-86ba-121236a87130"],
+Cell[1006147, 22642, 1179, 21, 24, "Message",ExpressionUUID->"30714085-ef14-4eb4-b627-1d2f3bfc00e4"],
+Cell[1007329, 22665, 952, 17, 24, "Message",ExpressionUUID->"42aac114-2832-4de4-824a-a72e3ce66945"],
+Cell[1008284, 22684, 1081, 19, 59, "Message",ExpressionUUID->"1e27ca73-b537-4543-8e8e-c07e204ce5f6"]
}, Open ]],
Cell[CellGroupData[{
-Cell[971850, 21859, 911, 27, 30, "Input",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
-Cell[972764, 21888, 4667, 102, 338, "Output",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
+Cell[1009402, 22708, 911, 27, 30, "Input",ExpressionUUID->"3dd985d9-e310-44bb-bc2f-3fcab7398255"],
+Cell[1010316, 22737, 4667, 102, 338, "Output",ExpressionUUID->"4bd4ed0c-c8bb-4d6a-a163-b661e6f03d29"]
}, Open ]],
Cell[CellGroupData[{
-Cell[977468, 21995, 2810, 58, 94, "Input",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
-Cell[980281, 22055, 49517, 992, 375, "Output",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
+Cell[1015020, 22844, 2810, 58, 94, "Input",ExpressionUUID->"b4d18414-8188-41fa-b618-674e8f51b53b"],
+Cell[1017833, 22904, 49517, 992, 375, "Output",ExpressionUUID->"6a9a61aa-604d-4288-a37f-a81070aa1cfd"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1029835, 23052, 393, 7, 30, "Input",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
-Cell[1030231, 23061, 15394, 305, 72, "Output",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
+Cell[1067387, 23901, 393, 7, 30, "Input",ExpressionUUID->"06d8e1bc-d18c-40eb-b92d-0492e501527f"],
+Cell[1067783, 23910, 15394, 305, 72, "Output",ExpressionUUID->"0e75f126-76c2-43a1-ad69-b41f9e8953ce"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1045662, 23371, 536, 15, 30, "Input",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
-Cell[1046201, 23388, 494, 7, 34, "Output",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
+Cell[1083214, 24220, 536, 15, 30, "Input",ExpressionUUID->"8e1d18ee-f4b4-4c81-9b77-e309ca9dd150"],
+Cell[1083753, 24237, 494, 7, 34, "Output",ExpressionUUID->"d11484fd-da0b-4d1d-a446-ef1f1143e3b8"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1046732, 23400, 652, 20, 30, "Input",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
-Cell[1047387, 23422, 413, 6, 34, "Output",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
+Cell[1084284, 24249, 652, 20, 30, "Input",ExpressionUUID->"1d6312bc-4e1f-497e-8ed8-d1e2793b88d5"],
+Cell[1084939, 24271, 413, 6, 34, "Output",ExpressionUUID->"c0a5c8f3-607b-4c8d-a9af-5919900f2136"]
}, Open ]],
-Cell[1047815, 23431, 244, 5, 30, "Input",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
+Cell[1085367, 24280, 244, 5, 30, "Input",ExpressionUUID->"7e573cba-a3ac-47b8-be57-4afbf9fbc155"],
Cell[CellGroupData[{
-Cell[1048084, 23440, 237, 5, 30, "Input",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
-Cell[1048324, 23447, 444, 7, 34, "Output",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
+Cell[1085636, 24289, 237, 5, 30, "Input",ExpressionUUID->"119eb2f2-c52d-4c23-8ce9-f4108a17b21b"],
+Cell[1085876, 24296, 444, 7, 34, "Output",ExpressionUUID->"744cdeab-8661-480f-9429-6314d25f2f9f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1048805, 23459, 532, 15, 30, "Input",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
-Cell[1049340, 23476, 18105, 358, 111, "Output",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
+Cell[1086357, 24308, 532, 15, 30, "Input",ExpressionUUID->"3a12b6e6-45e3-468a-8efb-00c40989b72b"],
+Cell[1086892, 24325, 18105, 358, 111, "Output",ExpressionUUID->"5a1f1907-45cd-4875-8a1e-325e800f8f37"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1067482, 23839, 2932, 62, 115, "Input",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
-Cell[1070417, 23903, 78570, 1513, 381, "Output",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
+Cell[1105034, 24688, 2932, 62, 115, "Input",ExpressionUUID->"bd8b7fe4-63fa-46b5-aa40-fbfc70b87779"],
+Cell[1107969, 24752, 78570, 1513, 381, "Output",ExpressionUUID->"d3e4cbd9-ae03-4519-8655-11373ebd68ef"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1149036, 25422, 229, 4, 37, "Subsubsection",ExpressionUUID->"11184085-91e2-4612-9a46-acb61173620f"],
+Cell[1186588, 26271, 229, 4, 37, "Subsubsection",ExpressionUUID->"11184085-91e2-4612-9a46-acb61173620f"],
Cell[CellGroupData[{
-Cell[1149290, 25430, 775, 22, 52, "Input",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
-Cell[1150068, 25454, 266, 4, 34, "Output",ExpressionUUID->"7508b79b-6e60-4769-8be4-edb72241e995"]
+Cell[1186842, 26279, 775, 22, 52, "Input",ExpressionUUID->"96a644d9-6e54-4ab4-9148-dd2493c8f20c"],
+Cell[1187620, 26303, 266, 4, 34, "Output",ExpressionUUID->"7508b79b-6e60-4769-8be4-edb72241e995"]
}, Open ]],
-Cell[1150349, 25461, 255, 6, 30, "Input",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
+Cell[1187901, 26310, 255, 6, 30, "Input",ExpressionUUID->"5713b2e1-ef24-4470-a64e-5db3f9dfc02e"],
Cell[CellGroupData[{
-Cell[1150629, 25471, 2709, 62, 115, "Input",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
-Cell[1153341, 25535, 1557, 23, 34, "Output",ExpressionUUID->"8c58b15c-41ba-432e-aaee-7030aa6f62a0"],
-Cell[1154901, 25560, 1769, 30, 56, "Output",ExpressionUUID->"da576a89-9532-42c5-9e6c-1c4c9d1e7fd5"],
-Cell[1156673, 25592, 1555, 23, 34, "Output",ExpressionUUID->"3a6cdb3e-029a-4c89-983f-1f56b81f06e8"]
+Cell[1188181, 26320, 2709, 62, 115, "Input",ExpressionUUID->"057df1c7-3917-4c10-b228-0e61c3c7a73c"],
+Cell[1190893, 26384, 1557, 23, 34, "Output",ExpressionUUID->"8c58b15c-41ba-432e-aaee-7030aa6f62a0"],
+Cell[1192453, 26409, 1769, 30, 56, "Output",ExpressionUUID->"da576a89-9532-42c5-9e6c-1c4c9d1e7fd5"],
+Cell[1194225, 26441, 1555, 23, 34, "Output",ExpressionUUID->"3a6cdb3e-029a-4c89-983f-1f56b81f06e8"]
}, Open ]],
-Cell[1158243, 25618, 270, 7, 30, "Input",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
+Cell[1195795, 26467, 270, 7, 30, "Input",ExpressionUUID->"d545c8a7-d05f-4e3e-90fd-2e15fe9fca7f"],
Cell[CellGroupData[{
-Cell[1158538, 25629, 358, 7, 30, "Input",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
-Cell[1158899, 25638, 1058, 21, 62, "Output",ExpressionUUID->"e09b708e-d49b-49db-8b55-466a8b511049"]
+Cell[1196090, 26478, 358, 7, 30, "Input",ExpressionUUID->"872cc13b-8e50-42d6-866b-f14adb347e7f"],
+Cell[1196451, 26487, 1058, 21, 62, "Output",ExpressionUUID->"e09b708e-d49b-49db-8b55-466a8b511049"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1159994, 25664, 2316, 47, 115, "Input",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
-Cell[1162313, 25713, 1206, 20, 77, "Output",ExpressionUUID->"273bbeb3-8eef-4a63-b0f8-9c2fb08338d4"]
+Cell[1197546, 26513, 2316, 47, 115, "Input",ExpressionUUID->"ff5598a7-2f9e-4811-8bf8-ce85ee841791"],
+Cell[1199865, 26562, 1206, 20, 77, "Output",ExpressionUUID->"273bbeb3-8eef-4a63-b0f8-9c2fb08338d4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1163556, 25738, 585, 13, 30, "Input",ExpressionUUID->"70f90102-3530-4166-a289-f25ebc522315"],
-Cell[1164144, 25753, 19862, 387, 237, "Output",ExpressionUUID->"66f92046-9e44-49f1-9d4d-04ca159c4e3f"]
+Cell[1201108, 26587, 585, 13, 30, "Input",ExpressionUUID->"70f90102-3530-4166-a289-f25ebc522315"],
+Cell[1201696, 26602, 19862, 387, 237, "Output",ExpressionUUID->"66f92046-9e44-49f1-9d4d-04ca159c4e3f"]
}, Open ]],
-Cell[1184021, 26143, 441, 13, 53, "Input",ExpressionUUID->"ace7098f-621c-48a0-b5c4-4256ffb71049"],
+Cell[1221573, 26992, 441, 13, 53, "Input",ExpressionUUID->"ace7098f-621c-48a0-b5c4-4256ffb71049"],
Cell[CellGroupData[{
-Cell[1184487, 26160, 787, 18, 52, "Input",ExpressionUUID->"93170141-e296-431e-b149-b9a461f89bf9"],
-Cell[1185277, 26180, 5389, 108, 234, "Output",ExpressionUUID->"446e8701-80ad-4591-8022-8a543e4e09b1"]
+Cell[1222039, 27009, 787, 18, 52, "Input",ExpressionUUID->"93170141-e296-431e-b149-b9a461f89bf9"],
+Cell[1222829, 27029, 5389, 108, 234, "Output",ExpressionUUID->"446e8701-80ad-4591-8022-8a543e4e09b1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1190703, 26293, 265, 6, 30, "Input",ExpressionUUID->"31c3df29-e8aa-43eb-af38-f4b2c70dffac"],
-Cell[1190971, 26301, 472, 10, 42, "Message",ExpressionUUID->"1c995d55-0745-4756-a2d4-68534777d494"],
-Cell[1191446, 26313, 552, 14, 37, "Output",ExpressionUUID->"8fd82f1e-9f35-47a5-be62-beb2c0d06b2b"]
+Cell[1228255, 27142, 265, 6, 30, "Input",ExpressionUUID->"31c3df29-e8aa-43eb-af38-f4b2c70dffac"],
+Cell[1228523, 27150, 472, 10, 42, "Message",ExpressionUUID->"1c995d55-0745-4756-a2d4-68534777d494"],
+Cell[1228998, 27162, 552, 14, 37, "Output",ExpressionUUID->"8fd82f1e-9f35-47a5-be62-beb2c0d06b2b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1192035, 26332, 2699, 47, 73, "Input",ExpressionUUID->"44b3d80f-eab7-44ec-8fe9-c3b9a3063b7a"],
-Cell[1194737, 26381, 618, 12, 59, "Message",ExpressionUUID->"f44ea9bc-f4f0-4ff9-bc2b-ba35d7a00af4"],
-Cell[1195358, 26395, 616, 12, 59, "Message",ExpressionUUID->"e7aa77c2-94e4-42fb-991f-eb708f0ed4d0"],
-Cell[1195977, 26409, 616, 12, 59, "Message",ExpressionUUID->"735626a9-c990-4786-aca8-bb054e529600"],
-Cell[1196596, 26423, 475, 10, 24, "Message",ExpressionUUID->"97277a48-befd-4753-ba75-6bd82095e181"],
-Cell[1197074, 26435, 4261, 125, 315, "Output",ExpressionUUID->"30166ad9-b386-442e-9487-d4719d763844"]
+Cell[1229587, 27181, 2699, 47, 73, "Input",ExpressionUUID->"44b3d80f-eab7-44ec-8fe9-c3b9a3063b7a"],
+Cell[1232289, 27230, 618, 12, 59, "Message",ExpressionUUID->"f44ea9bc-f4f0-4ff9-bc2b-ba35d7a00af4"],
+Cell[1232910, 27244, 616, 12, 59, "Message",ExpressionUUID->"e7aa77c2-94e4-42fb-991f-eb708f0ed4d0"],
+Cell[1233529, 27258, 616, 12, 59, "Message",ExpressionUUID->"735626a9-c990-4786-aca8-bb054e529600"],
+Cell[1234148, 27272, 475, 10, 24, "Message",ExpressionUUID->"97277a48-befd-4753-ba75-6bd82095e181"],
+Cell[1234626, 27284, 4261, 125, 315, "Output",ExpressionUUID->"30166ad9-b386-442e-9487-d4719d763844"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1201372, 26565, 325, 7, 30, "Input",ExpressionUUID->"21b6219d-05c0-4ddd-9cee-81e8dc77f5b9"],
-Cell[1201700, 26574, 2341, 54, 241, "Output",ExpressionUUID->"dd789237-b046-4472-a2b9-7cc379a533ec"]
+Cell[1238924, 27414, 325, 7, 30, "Input",ExpressionUUID->"21b6219d-05c0-4ddd-9cee-81e8dc77f5b9"],
+Cell[1239252, 27423, 2341, 54, 241, "Output",ExpressionUUID->"dd789237-b046-4472-a2b9-7cc379a533ec"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1204078, 26633, 347, 9, 30, "Input",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
-Cell[1204428, 26644, 375, 7, 50, "Output",ExpressionUUID->"8609604a-58aa-4ec7-9280-667efff9f76f"]
+Cell[1241630, 27482, 347, 9, 30, "Input",ExpressionUUID->"d4e11b97-c0e7-49a6-b774-0c224f705a4c"],
+Cell[1241980, 27493, 375, 7, 50, "Output",ExpressionUUID->"8609604a-58aa-4ec7-9280-667efff9f76f"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1204840, 26656, 1065, 27, 30, "Input",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
-Cell[1205908, 26685, 1007, 25, 61, "Output",ExpressionUUID->"da793cfe-f57e-489a-9627-8aa18ebde23f"]
+Cell[1242392, 27505, 1065, 27, 30, "Input",ExpressionUUID->"4a92c39f-e2f9-4dcd-9c09-ad0ec5f61cc3"],
+Cell[1243460, 27534, 1007, 25, 61, "Output",ExpressionUUID->"da793cfe-f57e-489a-9627-8aa18ebde23f"]
}, Open ]],
-Cell[1206930, 26713, 615, 19, 73, "Input",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
+Cell[1244482, 27562, 615, 19, 73, "Input",ExpressionUUID->"80a88bfc-f138-4a3d-b20d-3375571c78e7"],
Cell[CellGroupData[{
-Cell[1207570, 26736, 3416, 72, 115, "Input",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
-Cell[1210989, 26810, 2087, 34, 79, "Message",ExpressionUUID->"8eae0674-3268-473e-82a7-2524170892db"],
-Cell[1213079, 26846, 2086, 34, 79, "Message",ExpressionUUID->"2bacbe2a-25c3-4872-8b91-917f220f32d6"],
-Cell[1215168, 26882, 2087, 34, 79, "Message",ExpressionUUID->"8f664c88-7d74-4c42-9f21-244b8bd6490b"],
-Cell[1217258, 26918, 1529, 25, 24, "Message",ExpressionUUID->"85421859-0f2a-4551-bdc3-91352b140a75"]
+Cell[1245122, 27585, 3416, 72, 115, "Input",ExpressionUUID->"83554498-db67-4f7c-a08c-b8ef5293c94e"],
+Cell[1248541, 27659, 2087, 34, 79, "Message",ExpressionUUID->"8eae0674-3268-473e-82a7-2524170892db"],
+Cell[1250631, 27695, 2086, 34, 79, "Message",ExpressionUUID->"2bacbe2a-25c3-4872-8b91-917f220f32d6"],
+Cell[1252720, 27731, 2087, 34, 79, "Message",ExpressionUUID->"8f664c88-7d74-4c42-9f21-244b8bd6490b"],
+Cell[1254810, 27767, 1529, 25, 24, "Message",ExpressionUUID->"85421859-0f2a-4551-bdc3-91352b140a75"]
}, Open ]],
-Cell[1218802, 26946, 423, 8, 30, "Input",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
+Cell[1256354, 27795, 423, 8, 30, "Input",ExpressionUUID->"084d1279-aa3d-4fad-95cd-f4a4d1c093f6"],
Cell[CellGroupData[{
-Cell[1219250, 26958, 2746, 52, 94, "Input",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
-Cell[1221999, 27012, 42552, 853, 384, "Output",ExpressionUUID->"bba53ef5-f4d2-4155-98b3-1c4b297c58dc"]
+Cell[1256802, 27807, 2746, 52, 94, "Input",ExpressionUUID->"c24ac525-3d0c-4be9-85c9-6f9878754fa0"],
+Cell[1259551, 27861, 42552, 853, 384, "Output",ExpressionUUID->"bba53ef5-f4d2-4155-98b3-1c4b297c58dc"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1264600, 27871, 279, 4, 37, "Subsubsection",ExpressionUUID->"d2e5cb97-1c43-4f7a-b03d-7df273aebdb5"],
+Cell[1302152, 28720, 279, 4, 37, "Subsubsection",ExpressionUUID->"d2e5cb97-1c43-4f7a-b03d-7df273aebdb5"],
Cell[CellGroupData[{
-Cell[1264904, 27879, 771, 21, 52, "Input",ExpressionUUID->"1de2e851-15fc-4577-8d1b-8be0d0828b6a"],
-Cell[1265678, 27902, 216, 3, 34, "Output",ExpressionUUID->"ad094e44-8503-44c3-a469-10027f0fa11f"]
+Cell[1302456, 28728, 771, 21, 52, "Input",ExpressionUUID->"1de2e851-15fc-4577-8d1b-8be0d0828b6a"],
+Cell[1303230, 28751, 216, 3, 34, "Output",ExpressionUUID->"ad094e44-8503-44c3-a469-10027f0fa11f"]
}, Open ]],
-Cell[1265909, 27908, 251, 5, 30, "Input",ExpressionUUID->"f6d2096f-862a-4d9a-8d31-c18d5ec891d7"],
+Cell[1303461, 28757, 251, 5, 30, "Input",ExpressionUUID->"f6d2096f-862a-4d9a-8d31-c18d5ec891d7"],
Cell[CellGroupData[{
-Cell[1266185, 27917, 2565, 57, 115, "Input",ExpressionUUID->"b6ffd8d5-13a3-4483-bd53-450792b0d96d"],
-Cell[1268753, 27976, 1427, 20, 34, "Output",ExpressionUUID->"3bbd13bb-16f9-494a-95b7-89616308fd41"],
-Cell[1270183, 27998, 1613, 26, 38, "Output",ExpressionUUID->"38d41d17-a15a-4f27-bf55-ce857d576189"],
-Cell[1271799, 28026, 1425, 20, 34, "Output",ExpressionUUID->"c61695c6-ca11-411b-907e-e9a354064039"]
+Cell[1303737, 28766, 2565, 57, 115, "Input",ExpressionUUID->"b6ffd8d5-13a3-4483-bd53-450792b0d96d"],
+Cell[1306305, 28825, 1427, 20, 34, "Output",ExpressionUUID->"3bbd13bb-16f9-494a-95b7-89616308fd41"],
+Cell[1307735, 28847, 1613, 26, 38, "Output",ExpressionUUID->"38d41d17-a15a-4f27-bf55-ce857d576189"],
+Cell[1309351, 28875, 1425, 20, 34, "Output",ExpressionUUID->"c61695c6-ca11-411b-907e-e9a354064039"]
}, Open ]],
-Cell[1273239, 28049, 266, 6, 30, "Input",ExpressionUUID->"e5feaf8b-9c93-4640-b43f-881da8f213d6"],
+Cell[1310791, 28898, 266, 6, 30, "Input",ExpressionUUID->"e5feaf8b-9c93-4640-b43f-881da8f213d6"],
Cell[CellGroupData[{
-Cell[1273530, 28059, 354, 6, 30, "Input",ExpressionUUID->"e56b6103-5896-45ad-891c-59f6b615664b"],
-Cell[1273887, 28067, 980, 18, 55, "Output",ExpressionUUID->"17319094-d6fc-448f-8cf8-3a30f92aaaaa"]
+Cell[1311082, 28908, 354, 6, 30, "Input",ExpressionUUID->"e56b6103-5896-45ad-891c-59f6b615664b"],
+Cell[1311439, 28916, 980, 18, 55, "Output",ExpressionUUID->"17319094-d6fc-448f-8cf8-3a30f92aaaaa"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1274904, 28090, 2312, 46, 115, "Input",ExpressionUUID->"23d86774-7f6c-4ec9-a62d-8f66c4bf0f04"],
-Cell[1277219, 28138, 1180, 19, 77, "Output",ExpressionUUID->"b8f7c246-326b-451b-94d1-5d2cdb53f13e"]
+Cell[1312456, 28939, 2312, 46, 115, "Input",ExpressionUUID->"23d86774-7f6c-4ec9-a62d-8f66c4bf0f04"],
+Cell[1314771, 28987, 1180, 19, 77, "Output",ExpressionUUID->"b8f7c246-326b-451b-94d1-5d2cdb53f13e"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1278436, 28162, 572, 15, 52, "Input",ExpressionUUID->"af27c407-f1d7-43dc-a5bd-bccc56a9ffaf"],
-Cell[1279011, 28179, 513, 15, 55, "Output",ExpressionUUID->"beec92a5-c1ca-4a8e-ba25-e7e3417b00eb"]
+Cell[1315988, 29011, 572, 15, 52, "Input",ExpressionUUID->"af27c407-f1d7-43dc-a5bd-bccc56a9ffaf"],
+Cell[1316563, 29028, 513, 15, 55, "Output",ExpressionUUID->"beec92a5-c1ca-4a8e-ba25-e7e3417b00eb"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1279561, 28199, 479, 12, 30, "Input",ExpressionUUID->"37e5122e-4452-4bc6-8773-e34f49e038dc"],
-Cell[1280043, 28213, 6416, 124, 236, "Output",ExpressionUUID->"ca186576-1fb8-4886-8b7a-8be77a0e15e6"]
+Cell[1317113, 29048, 479, 12, 30, "Input",ExpressionUUID->"37e5122e-4452-4bc6-8773-e34f49e038dc"],
+Cell[1317595, 29062, 6416, 124, 236, "Output",ExpressionUUID->"ca186576-1fb8-4886-8b7a-8be77a0e15e6"]
}, Open ]],
-Cell[1286474, 28340, 441, 13, 53, "Input",ExpressionUUID->"1a6d4c44-3bbc-4dd5-9aa5-e6500ea74da2"],
+Cell[1324026, 29189, 441, 13, 53, "Input",ExpressionUUID->"1a6d4c44-3bbc-4dd5-9aa5-e6500ea74da2"],
Cell[CellGroupData[{
-Cell[1286940, 28357, 787, 18, 52, "Input",ExpressionUUID->"11f39284-9295-4260-a1bc-d1a6f0deecd7"],
-Cell[1287730, 28377, 5389, 108, 234, "Output",ExpressionUUID->"ff9f582c-1028-4f34-a5fc-b1b8ee01894d"]
+Cell[1324492, 29206, 787, 18, 52, "Input",ExpressionUUID->"11f39284-9295-4260-a1bc-d1a6f0deecd7"],
+Cell[1325282, 29226, 5389, 108, 234, "Output",ExpressionUUID->"ff9f582c-1028-4f34-a5fc-b1b8ee01894d"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1293156, 28490, 265, 6, 30, "Input",ExpressionUUID->"3668b5c0-0ca2-4aa3-9d0a-d69a6fffc0e0"],
-Cell[1293424, 28498, 472, 10, 42, "Message",ExpressionUUID->"550e8580-f985-40c9-b446-170ead5459d2"],
-Cell[1293899, 28510, 552, 14, 37, "Output",ExpressionUUID->"1590906b-c7ab-411b-9523-2acbc1aa9688"]
+Cell[1330708, 29339, 265, 6, 30, "Input",ExpressionUUID->"3668b5c0-0ca2-4aa3-9d0a-d69a6fffc0e0"],
+Cell[1330976, 29347, 472, 10, 42, "Message",ExpressionUUID->"550e8580-f985-40c9-b446-170ead5459d2"],
+Cell[1331451, 29359, 552, 14, 37, "Output",ExpressionUUID->"1590906b-c7ab-411b-9523-2acbc1aa9688"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1294488, 28529, 2699, 47, 73, "Input",ExpressionUUID->"00fe81c0-2c7a-4c9b-ada4-839f44d7998b"],
-Cell[1297190, 28578, 618, 12, 59, "Message",ExpressionUUID->"2cebd512-e5e9-4d80-878d-c87d2cdf9a20"],
-Cell[1297811, 28592, 616, 12, 59, "Message",ExpressionUUID->"5d68ad4a-4834-45b6-8ee5-aa9a272273b3"],
-Cell[1298430, 28606, 616, 12, 59, "Message",ExpressionUUID->"bd70fca1-b941-443b-8152-fb6cb472ff74"],
-Cell[1299049, 28620, 475, 10, 24, "Message",ExpressionUUID->"3ee3859c-76b4-4256-8e1c-31fde849f83f"],
-Cell[1299527, 28632, 4261, 125, 315, "Output",ExpressionUUID->"53be62bf-fb3d-4d3e-bed4-2bd042882487"]
+Cell[1332040, 29378, 2699, 47, 73, "Input",ExpressionUUID->"00fe81c0-2c7a-4c9b-ada4-839f44d7998b"],
+Cell[1334742, 29427, 618, 12, 59, "Message",ExpressionUUID->"2cebd512-e5e9-4d80-878d-c87d2cdf9a20"],
+Cell[1335363, 29441, 616, 12, 59, "Message",ExpressionUUID->"5d68ad4a-4834-45b6-8ee5-aa9a272273b3"],
+Cell[1335982, 29455, 616, 12, 59, "Message",ExpressionUUID->"bd70fca1-b941-443b-8152-fb6cb472ff74"],
+Cell[1336601, 29469, 475, 10, 24, "Message",ExpressionUUID->"3ee3859c-76b4-4256-8e1c-31fde849f83f"],
+Cell[1337079, 29481, 4261, 125, 315, "Output",ExpressionUUID->"53be62bf-fb3d-4d3e-bed4-2bd042882487"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1303825, 28762, 325, 7, 30, "Input",ExpressionUUID->"b5c1ee72-b9af-4ce7-a524-724520ada3dd"],
-Cell[1304153, 28771, 2341, 54, 241, "Output",ExpressionUUID->"e69cac6d-af53-483e-8e02-4e46fd37dea3"]
+Cell[1341377, 29611, 325, 7, 30, "Input",ExpressionUUID->"b5c1ee72-b9af-4ce7-a524-724520ada3dd"],
+Cell[1341705, 29620, 2341, 54, 241, "Output",ExpressionUUID->"e69cac6d-af53-483e-8e02-4e46fd37dea3"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1306531, 28830, 347, 9, 30, "Input",ExpressionUUID->"472a23d5-ee35-40f5-9290-113421c78588"],
-Cell[1306881, 28841, 375, 7, 50, "Output",ExpressionUUID->"c4ed3252-bfee-4429-9189-6b096d28a071"]
+Cell[1344083, 29679, 347, 9, 30, "Input",ExpressionUUID->"472a23d5-ee35-40f5-9290-113421c78588"],
+Cell[1344433, 29690, 375, 7, 50, "Output",ExpressionUUID->"c4ed3252-bfee-4429-9189-6b096d28a071"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1307293, 28853, 1065, 27, 30, "Input",ExpressionUUID->"ab984da8-b8d3-4483-802b-fa34ff1ae9fa"],
-Cell[1308361, 28882, 1007, 25, 61, "Output",ExpressionUUID->"0d8a7f79-7764-4a53-82fc-2c87a3124794"]
+Cell[1344845, 29702, 1065, 27, 30, "Input",ExpressionUUID->"ab984da8-b8d3-4483-802b-fa34ff1ae9fa"],
+Cell[1345913, 29731, 1007, 25, 61, "Output",ExpressionUUID->"0d8a7f79-7764-4a53-82fc-2c87a3124794"]
}, Open ]],
-Cell[1309383, 28910, 615, 19, 73, "Input",ExpressionUUID->"25b2e966-2eeb-4a74-bf0d-7b7647ab0c6e"],
+Cell[1346935, 29759, 615, 19, 73, "Input",ExpressionUUID->"25b2e966-2eeb-4a74-bf0d-7b7647ab0c6e"],
Cell[CellGroupData[{
-Cell[1310023, 28933, 3416, 72, 115, "Input",ExpressionUUID->"a26277f8-e69d-47f7-8302-0256c14d0bb0"],
-Cell[1313442, 29007, 2087, 34, 79, "Message",ExpressionUUID->"ec78464f-58bd-48a3-9320-36b9880495a0"],
-Cell[1315532, 29043, 2086, 34, 79, "Message",ExpressionUUID->"803384a0-c67a-4674-af76-5d1a2c3e38cc"],
-Cell[1317621, 29079, 2087, 34, 79, "Message",ExpressionUUID->"c11db11b-5eac-4faa-b285-31769b97ff00"],
-Cell[1319711, 29115, 1529, 25, 24, "Message",ExpressionUUID->"97f1b32c-17a9-4164-86a0-eb1c952c3554"]
+Cell[1347575, 29782, 3416, 72, 115, "Input",ExpressionUUID->"a26277f8-e69d-47f7-8302-0256c14d0bb0"],
+Cell[1350994, 29856, 2087, 34, 79, "Message",ExpressionUUID->"ec78464f-58bd-48a3-9320-36b9880495a0"],
+Cell[1353084, 29892, 2086, 34, 79, "Message",ExpressionUUID->"803384a0-c67a-4674-af76-5d1a2c3e38cc"],
+Cell[1355173, 29928, 2087, 34, 79, "Message",ExpressionUUID->"c11db11b-5eac-4faa-b285-31769b97ff00"],
+Cell[1357263, 29964, 1529, 25, 24, "Message",ExpressionUUID->"97f1b32c-17a9-4164-86a0-eb1c952c3554"]
}, Open ]],
-Cell[1321255, 29143, 423, 8, 30, "Input",ExpressionUUID->"aefcbe23-0acd-4657-aa2b-3613fb841a9d"],
+Cell[1358807, 29992, 423, 8, 30, "Input",ExpressionUUID->"aefcbe23-0acd-4657-aa2b-3613fb841a9d"],
Cell[CellGroupData[{
-Cell[1321703, 29155, 2746, 52, 94, "Input",ExpressionUUID->"94d5fec6-bf16-430c-a06b-e4119d75b61c"],
-Cell[1324452, 29209, 42575, 854, 384, "Output",ExpressionUUID->"c71f1b50-4963-4d9f-b9a7-82e3194cfecd"]
+Cell[1359255, 30004, 2746, 52, 94, "Input",ExpressionUUID->"94d5fec6-bf16-430c-a06b-e4119d75b61c"],
+Cell[1362004, 30058, 42575, 854, 384, "Output",ExpressionUUID->"c71f1b50-4963-4d9f-b9a7-82e3194cfecd"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
-Cell[1367076, 30069, 303, 5, 37, "Subsubsection",ExpressionUUID->"5c80a4a6-f849-44aa-a902-4ac81e7aa863"],
+Cell[1404628, 30918, 303, 5, 37, "Subsubsection",ExpressionUUID->"5c80a4a6-f849-44aa-a902-4ac81e7aa863"],
Cell[CellGroupData[{
-Cell[1367404, 30078, 771, 21, 52, "Input",ExpressionUUID->"cb114895-7fe2-44e8-81fc-87e75e735342"],
-Cell[1368178, 30101, 237, 3, 34, "Output",ExpressionUUID->"e734ce0e-e9ed-403f-b08a-a8d3b82e26c4"]
+Cell[1404956, 30927, 771, 21, 52, "Input",ExpressionUUID->"cb114895-7fe2-44e8-81fc-87e75e735342"],
+Cell[1405730, 30950, 237, 3, 34, "Output",ExpressionUUID->"e734ce0e-e9ed-403f-b08a-a8d3b82e26c4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1368452, 30109, 3640, 110, 199, "Input",ExpressionUUID->"bd7d4bbb-d0af-4d81-bf06-71456f164df5"],
-Cell[1372095, 30221, 248, 4, 34, "Output",ExpressionUUID->"2de67864-6364-4dc2-82f7-83b0fcb8ea57"]
+Cell[1406004, 30958, 3640, 110, 199, "Input",ExpressionUUID->"bd7d4bbb-d0af-4d81-bf06-71456f164df5"],
+Cell[1409647, 31070, 248, 4, 34, "Output",ExpressionUUID->"2de67864-6364-4dc2-82f7-83b0fcb8ea57"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1372380, 30230, 906, 24, 30, "Input",ExpressionUUID->"60d68403-d1d5-42cc-b093-93db823fe03f"],
-Cell[1373289, 30256, 1401, 36, 96, "Output",ExpressionUUID->"63cb3e9d-ac71-4fc3-9b03-7de38e27fe5a"]
+Cell[1409932, 31079, 906, 24, 30, "Input",ExpressionUUID->"60d68403-d1d5-42cc-b093-93db823fe03f"],
+Cell[1410841, 31105, 1401, 36, 96, "Output",ExpressionUUID->"63cb3e9d-ac71-4fc3-9b03-7de38e27fe5a"]
}, Open ]],
-Cell[1374705, 30295, 949, 30, 115, "Input",ExpressionUUID->"936e1f71-ea64-43a2-9527-1cf7dc346a91"],
+Cell[1412257, 31144, 949, 30, 115, "Input",ExpressionUUID->"936e1f71-ea64-43a2-9527-1cf7dc346a91"],
Cell[CellGroupData[{
-Cell[1375679, 30329, 791, 18, 30, "Input",ExpressionUUID->"324b69d4-c96b-4711-a9f3-4ce2c74cfc9d"],
-Cell[1376473, 30349, 1767, 41, 96, "Output",ExpressionUUID->"ac7e6b11-cfc7-47ae-9d98-82634809edd1"]
+Cell[1413231, 31178, 791, 18, 30, "Input",ExpressionUUID->"324b69d4-c96b-4711-a9f3-4ce2c74cfc9d"],
+Cell[1414025, 31198, 1767, 41, 96, "Output",ExpressionUUID->"ac7e6b11-cfc7-47ae-9d98-82634809edd1"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1378277, 30395, 1599, 31, 30, "Input",ExpressionUUID->"a332b8bb-3e02-4c76-a3e1-19da0a159c96"],
-Cell[1379879, 30428, 844, 16, 34, "Output",ExpressionUUID->"a63f1d21-ea83-4965-b72f-227c58b92f1b"]
+Cell[1415829, 31244, 1599, 31, 30, "Input",ExpressionUUID->"a332b8bb-3e02-4c76-a3e1-19da0a159c96"],
+Cell[1417431, 31277, 844, 16, 34, "Output",ExpressionUUID->"a63f1d21-ea83-4965-b72f-227c58b92f1b"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1380760, 30449, 3373, 64, 115, "Input",ExpressionUUID->"c53dfb5b-a1aa-4ac0-bcac-c4ba5ef29693"],
-Cell[1384136, 30515, 1421, 33, 126, "Output",ExpressionUUID->"6424e961-7b1c-4735-add1-355292ffb803"]
+Cell[1418312, 31298, 3373, 64, 115, "Input",ExpressionUUID->"c53dfb5b-a1aa-4ac0-bcac-c4ba5ef29693"],
+Cell[1421688, 31364, 1421, 33, 126, "Output",ExpressionUUID->"6424e961-7b1c-4735-add1-355292ffb803"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1385594, 30553, 379, 8, 30, "Input",ExpressionUUID->"687399f1-42d4-45fe-846a-76025169c66f"],
-Cell[1385976, 30563, 14099, 303, 244, "Output",ExpressionUUID->"a6e54410-bd44-48ac-ba27-956b97007c40"]
+Cell[1423146, 31402, 379, 8, 30, "Input",ExpressionUUID->"687399f1-42d4-45fe-846a-76025169c66f"],
+Cell[1423528, 31412, 14099, 303, 244, "Output",ExpressionUUID->"a6e54410-bd44-48ac-ba27-956b97007c40"]
}, Open ]]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
-Cell[1400136, 30873, 156, 3, 54, "Subsection",ExpressionUUID->"47013bff-4a89-40e6-9c36-3b47c6c727d8"],
+Cell[1437688, 31722, 156, 3, 54, "Subsection",ExpressionUUID->"47013bff-4a89-40e6-9c36-3b47c6c727d8"],
Cell[CellGroupData[{
-Cell[1400317, 30880, 2101, 43, 115, "Input",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
-Cell[1402421, 30925, 1585, 25, 102, "Output",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
+Cell[1437869, 31729, 2101, 43, 115, "Input",ExpressionUUID->"e14283f2-7c42-4f2f-a5c8-f37ccf85f411"],
+Cell[1439973, 31774, 1585, 25, 102, "Output",ExpressionUUID->"b8182651-fcf0-433e-9850-2087826d3f72"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1404043, 30955, 2411, 53, 115, "Input",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
-Cell[1406457, 31010, 940, 18, 42, "Message",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
-Cell[1407400, 31030, 938, 18, 42, "Message",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
-Cell[1408341, 31050, 939, 18, 42, "Message",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
-Cell[1409283, 31070, 600, 12, 24, "Message",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
-Cell[1409886, 31084, 730, 14, 59, "Message",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
-Cell[1410619, 31100, 732, 14, 59, "Message",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
+Cell[1441595, 31804, 2411, 53, 115, "Input",ExpressionUUID->"9425448d-d2da-4568-b6c2-2d6dff68d46f"],
+Cell[1444009, 31859, 940, 18, 42, "Message",ExpressionUUID->"40827970-1b7a-4bef-9aa1-1226d4289485"],
+Cell[1444952, 31879, 938, 18, 42, "Message",ExpressionUUID->"814945bd-d9ff-4101-b3ce-37d5a56c4662"],
+Cell[1445893, 31899, 939, 18, 42, "Message",ExpressionUUID->"d823d0c8-1931-4186-b6e5-0f9652c52f33"],
+Cell[1446835, 31919, 600, 12, 24, "Message",ExpressionUUID->"174d04f5-beb3-4929-a772-1d4b6bcb5456"],
+Cell[1447438, 31933, 730, 14, 59, "Message",ExpressionUUID->"d567a5fd-5339-47ba-adb4-ca24ac854fa2"],
+Cell[1448171, 31949, 732, 14, 59, "Message",ExpressionUUID->"8725606f-ba25-4548-8906-c1f27e09aed4"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1411388, 31119, 862, 26, 30, "Input",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
-Cell[1412253, 31147, 4813, 123, 394, "Output",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
+Cell[1448940, 31968, 862, 26, 30, "Input",ExpressionUUID->"17f2ac2e-aeb5-4c89-8c27-51eb79160f57"],
+Cell[1449805, 31996, 4813, 123, 394, "Output",ExpressionUUID->"25ca5e47-82fc-459d-8167-141f207aa487"]
}, Open ]],
Cell[CellGroupData[{
-Cell[1417103, 31275, 2801, 59, 115, "Input",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
-Cell[1419907, 31336, 53546, 1072, 371, "Output",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
+Cell[1454655, 32124, 2801, 59, 115, "Input",ExpressionUUID->"c07326d6-32ab-417f-bad0-e3d2a8450919"],
+Cell[1457459, 32185, 53546, 1072, 371, "Output",ExpressionUUID->"6bb2668f-d482-4eea-8433-a94f84b4c432"]
}, Open ]]
}, Closed]]
}, Closed]]
--
GitLab