(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 20655, 575] NotebookOptionsPosition[ 17974, 525] NotebookOutlinePosition[ 18378, 541] CellTagsIndexPosition[ 18335, 538] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"payments", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2000", ",", "1800", ",", "1500", ",", "1600"}], "}"}], ",", RowBox[{"{", RowBox[{"2200", ",", "1600", ",", "1400", ",", "1400"}], "}"}], ",", RowBox[{"{", RowBox[{"2500", ",", "2000", ",", "1700", ",", "1600"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"%", "//", "MatrixForm"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.854684322706353*^9, 3.8546843944294386`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"1f45cd4e-3912-4327-8f39-819c50e54d02"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2000", "1800", "1500", "1600"}, {"2200", "1600", "1400", "1400"}, {"2500", "2000", "1700", "1600"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.854684886857355*^9, 3.8546853609588175`*^9}, CellLabel-> "Out[51]//MatrixForm=",ExpressionUUID->"30b09e4d-c23a-4e1f-a593-\ 249f86b6a009"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"carType", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"age", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "j"], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["c", "1"], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"equations1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{ RowBox[{"carType", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "age"}], "]"}], " ", "==", " ", RowBox[{"Total", "[", RowBox[{"payments", "[", RowBox[{"[", RowBox[{"i", ",", ";;"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "3"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"equations2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"carType", " ", RowBox[{"age", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], " ", "==", " ", RowBox[{"Total", "[", RowBox[{"payments", "[", RowBox[{"[", RowBox[{";;", ",", "j"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"j", ",", "4"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"equations", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"equations1", ",", "equations2"}], "]"}]}]}], "Input", CellChangeTimes->{{3.8546844927774334`*^9, 3.854684662155166*^9}, { 3.8546846959372487`*^9, 3.854684881924991*^9}, {3.8546852464235573`*^9, 3.854685247273989*^9}, {3.8546853521571426`*^9, 3.8546853785292916`*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"5c862fcb-695e-46a5-9b58-4592dcc84bf3"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", SubscriptBox["c", "2"], ",", SubscriptBox["c", "3"]}], "}"}]], "Output", CellChangeTimes->{{3.8546843779281054`*^9, 3.854684396307035*^9}, { 3.854684563904645*^9, 3.8546845822564297`*^9}, {3.8546847045936623`*^9, 3.854684727303387*^9}, 3.8546848361806355`*^9, 3.854684872046713*^9, 3.8546849074612694`*^9, 3.854685248681142*^9, {3.85468536370572*^9, 3.854685389741578*^9}}, CellLabel->"Out[58]=",ExpressionUUID->"aeee151e-fdd2-4048-8ec2-18af9d3c4b6a"], Cell[BoxData[ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", SubscriptBox["a", "2"], ",", SubscriptBox["a", "3"], ",", SubscriptBox["a", "4"]}], "}"}]], "Output", CellChangeTimes->{{3.8546843779281054`*^9, 3.854684396307035*^9}, { 3.854684563904645*^9, 3.8546845822564297`*^9}, {3.8546847045936623`*^9, 3.854684727303387*^9}, 3.8546848361806355`*^9, 3.854684872046713*^9, 3.8546849074612694`*^9, 3.854685248681142*^9, {3.85468536370572*^9, 3.8546853897573323`*^9}}, CellLabel->"Out[59]=",ExpressionUUID->"51947ad6-e486-4cb4-88f7-d9f743c875d2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "2"]}]}], "\[Equal]", "6600"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "7800"}]}], "}"}]], "Output", CellChangeTimes->{{3.8546843779281054`*^9, 3.854684396307035*^9}, { 3.854684563904645*^9, 3.8546845822564297`*^9}, {3.8546847045936623`*^9, 3.854684727303387*^9}, 3.8546848361806355`*^9, 3.854684872046713*^9, 3.8546849074612694`*^9, 3.854685248681142*^9, {3.85468536370572*^9, 3.8546853897573323`*^9}}, CellLabel->"Out[61]=",ExpressionUUID->"05fa67f7-e56b-4f53-aac7-a9e7651235d3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "6700"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "5400"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "4600"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "4"], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "4600"}]}], "}"}]], "Output", CellChangeTimes->{{3.8546843779281054`*^9, 3.854684396307035*^9}, { 3.854684563904645*^9, 3.8546845822564297`*^9}, {3.8546847045936623`*^9, 3.854684727303387*^9}, 3.8546848361806355`*^9, 3.854684872046713*^9, 3.8546849074612694`*^9, 3.854685248681142*^9, {3.85468536370572*^9, 3.8546853897573323`*^9}}, CellLabel->"Out[62]=",ExpressionUUID->"0224b4c5-a61f-48d8-90e9-46d74b3291ea"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "2"]}]}], "\[Equal]", "6600"}], ",", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "3"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "7800"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "+", RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "1"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "6700"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "2"], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "2"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "5400"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "3"], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "3"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "4600"}], ",", RowBox[{ RowBox[{ SubscriptBox["a", "4"], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "2"]}], "+", RowBox[{ SubscriptBox["a", "4"], " ", SubscriptBox["c", "3"]}]}], "\[Equal]", "4600"}]}], "}"}]], "Output", CellChangeTimes->{{3.8546843779281054`*^9, 3.854684396307035*^9}, { 3.854684563904645*^9, 3.8546845822564297`*^9}, {3.8546847045936623`*^9, 3.854684727303387*^9}, 3.8546848361806355`*^9, 3.854684872046713*^9, 3.8546849074612694`*^9, 3.854685248681142*^9, {3.85468536370572*^9, 3.8546853897573323`*^9}}, CellLabel->"Out[63]=",ExpressionUUID->"2b329121-1e5e-4caf-9115-f9d7729cc8c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"initCond", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", "1"}], "}"}], "&"}], ",", RowBox[{"carType", "[", RowBox[{"[", RowBox[{"2", ";;"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", "1"}], "}"}], "&"}], ",", "age"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8546849215725794`*^9, 3.8546849282494698`*^9}, { 3.854684961493147*^9, 3.8546850321639357`*^9}, {3.8546853007598276`*^9, 3.854685312012537*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"afb0c2a3-68ac-400f-aa0c-7509fee99c81"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "3"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.854685033005195*^9, 3.8546853150569296`*^9, 3.854685408575365*^9}, CellLabel->"Out[64]=",ExpressionUUID->"2a04caab-b512-4114-bc6c-8c01a437773c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"solution", "=", RowBox[{"FindRoot", "[", RowBox[{"equations", ",", "initCond"}], "]"}]}]], "Input", CellChangeTimes->{{3.854685042866249*^9, 3.8546850592027607`*^9}, { 3.854685173211175*^9, 3.8546852025116296`*^9}, {3.8546852810406313`*^9, 3.8546852825326996`*^9}, {3.8546854898937397`*^9, 3.8546854918872705`*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"6d38f63a-0c1c-45a7-80cf-35f6b11ffc1f"], Cell[BoxData[ TemplateBox[{ "FindRoot", "lstol", "\"The line search decreased the step size to within tolerance specified \ by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \ decrease in the merit function. You may need more than \ \\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \ meet these tolerances.\"", 2, 66, 7, 18898171935773798101, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.854685096915959*^9, 3.8546852156710835`*^9, 3.8546852834047904`*^9, 3.854685328010047*^9, 3.854685410783523*^9, 3.854685492552792*^9}, CellLabel-> "During evaluation of \ In[66]:=",ExpressionUUID->"cc7a4ebf-4eba-464c-b949-76e1ebf7ac35"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["c", "2"], "\[Rule]", "0.9565217391304347`"}], ",", RowBox[{ SubscriptBox["c", "3"], "\[Rule]", "1.1304347826086958`"}], ",", RowBox[{ SubscriptBox["a", "1"], "\[Rule]", "2170.4225352112676`"}], ",", RowBox[{ SubscriptBox["a", "2"], "\[Rule]", "1749.2957746478874`"}], ",", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", "1490.1408450704225`"}], ",", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", "1490.1408450704225`"}]}], "}"}]], "Output", CellChangeTimes->{3.854685096953418*^9, 3.854685215633281*^9, 3.854685283420415*^9, 3.8546853280256696`*^9, 3.8546854107991037`*^9, 3.8546854925683355`*^9}, CellLabel->"Out[66]=",ExpressionUUID->"91d7cfa5-da19-4c8e-9d43-3ecb811fc6dc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"age", "=", RowBox[{"age", "/.", "solution"}]}], "\[IndentingNewLine]", RowBox[{"carType", " ", "=", " ", RowBox[{"carType", "/.", "solution"}]}]}], "Input", CellChangeTimes->{{3.8546854791262884`*^9, 3.8546855142182508`*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"ad2725b9-18ee-4cce-8141-25acb3d507de"], Cell[BoxData[ RowBox[{"{", RowBox[{ "2170.4225352112676`", ",", "1749.2957746478874`", ",", "1490.1408450704225`", ",", "1490.1408450704225`"}], "}"}]], "Output", CellChangeTimes->{{3.854685499385956*^9, 3.8546855147359614`*^9}}, CellLabel->"Out[68]=",ExpressionUUID->"49dcca09-162f-4f41-91b4-5acba47cbcd0"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "0.9565217391304347`", ",", "1.1304347826086958`"}], "}"}]], "Output", CellChangeTimes->{{3.854685499385956*^9, 3.8546855147359614`*^9}}, CellLabel->"Out[69]=",ExpressionUUID->"e0ba9d91-77e7-4b00-b0f6-4e1a5db79fb8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"tariffs", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "age", ",", "carType"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"%", "//", "TableForm"}], "\[IndentingNewLine]", RowBox[{"payments", "//", "TableForm"}]}], "Input", CellChangeTimes->{{3.854685523053907*^9, 3.8546856344683957`*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"2295fa8b-7907-42e0-8381-6bc237fef677"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "2170.4225352112676`", ",", "2076.0563380281687`", ",", "2453.5211267605637`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1749.2957746478874`", ",", "1673.2394366197182`", ",", "1977.4647887323947`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1490.1408450704225`", ",", "1425.3521126760563`", ",", "1684.5070422535214`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1490.1408450704225`", ",", "1425.3521126760563`", ",", "1684.5070422535214`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.854685607897016*^9, 3.854685635001786*^9}}, CellLabel->"Out[73]=",ExpressionUUID->"b674f739-53c9-466b-98e3-25896494c3ad"], Cell[BoxData[ TagBox[GridBox[{ {"2170.4225352112676`", "2076.0563380281687`", "2453.5211267605637`"}, {"1749.2957746478874`", "1673.2394366197182`", "1977.4647887323947`"}, {"1490.1408450704225`", "1425.3521126760563`", "1684.5070422535214`"}, {"1490.1408450704225`", "1425.3521126760563`", "1684.5070422535214`"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.854685607897016*^9, 3.8546856350173945`*^9}}, CellLabel-> "Out[74]//TableForm=",ExpressionUUID->"9185cf38-8506-4d50-ad19-\ c53fbf8102a2"], Cell[BoxData[ TagBox[GridBox[{ {"2000", "1800", "1500", "1600"}, {"2200", "1600", "1400", "1400"}, {"2500", "2000", "1700", "1600"} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{{3.854685607897016*^9, 3.8546856350173945`*^9}}, CellLabel-> "Out[75]//TableForm=",ExpressionUUID->"a47c0c64-cbd8-4ff9-91a9-\ 4682f85f8849"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Total", "[", RowBox[{"Flatten", "[", "payments", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{"Flatten", "[", "tariffs", "]"}], "]"}]}], "Input", CellChangeTimes->{{3.854685655704876*^9, 3.8546856561575155`*^9}, { 3.8546875643631372`*^9, 3.8546876286708927`*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"688424be-ae33-495f-80d6-5dd03ee54f1b"], Cell[BoxData["21300"], "Output", CellChangeTimes->{3.8546876295376344`*^9}, CellLabel->"Out[79]=",ExpressionUUID->"e586f448-be0e-4634-b83d-7fd016d2d01a"], Cell[BoxData["21300.`"], "Output", CellChangeTimes->{3.8546876295376344`*^9}, CellLabel->"Out[80]=",ExpressionUUID->"b44b3fc7-8c4a-46ee-a521-6092ec644590"] }, Open ]] }, WindowSize->{571.8, 524.4}, WindowMargins->{{284.4, Automatic}, {18, Automatic}}, FrontEndVersion->"12.3 for Microsoft Windows (64-bit) (May 11, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"45bd4a2f-4a42-45a2-a3d7-6741d7178f93" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 625, 14, 86, "Input",ExpressionUUID->"1f45cd4e-3912-4327-8f39-819c50e54d02"], Cell[1208, 38, 727, 20, 77, "Output",ExpressionUUID->"30b09e4d-c23a-4e1f-a593-249f86b6a009"] }, Open ]], Cell[CellGroupData[{ Cell[1972, 63, 1878, 51, 182, "Input",ExpressionUUID->"5c862fcb-695e-46a5-9b58-4592dcc84bf3"], Cell[3853, 116, 525, 10, 32, "Output",ExpressionUUID->"aeee151e-fdd2-4048-8ec2-18af9d3c4b6a"], Cell[4381, 128, 583, 12, 32, "Output",ExpressionUUID->"51947ad6-e486-4cb4-88f7-d9f743c875d2"], Cell[4967, 142, 1253, 36, 32, "Output",ExpressionUUID->"05fa67f7-e56b-4f53-aac7-a9e7651235d3"], Cell[6223, 180, 1491, 44, 52, "Output",ExpressionUUID->"0224b4c5-a61f-48d8-90e9-46d74b3291ea"], Cell[7717, 226, 2293, 72, 71, "Output",ExpressionUUID->"2b329121-1e5e-4caf-9115-f9d7729cc8c2"] }, Open ]], Cell[CellGroupData[{ Cell[10047, 303, 743, 21, 28, "Input",ExpressionUUID->"afb0c2a3-68ac-400f-aa0c-7509fee99c81"], Cell[10793, 326, 727, 23, 32, "Output",ExpressionUUID->"2a04caab-b512-4114-bc6c-8c01a437773c"] }, Open ]], Cell[CellGroupData[{ Cell[11557, 354, 431, 7, 28, "Input",ExpressionUUID->"6d38f63a-0c1c-45a7-80cf-35f6b11ffc1f"], Cell[11991, 363, 716, 14, 83, "Message",ExpressionUUID->"cc7a4ebf-4eba-464c-b949-76e1ebf7ac35"], Cell[12710, 379, 791, 19, 52, "Output",ExpressionUUID->"91d7cfa5-da19-4c8e-9d43-3ecb811fc6dc"] }, Open ]], Cell[CellGroupData[{ Cell[13538, 403, 338, 6, 48, "Input",ExpressionUUID->"ad2725b9-18ee-4cce-8141-25acb3d507de"], Cell[13879, 411, 319, 6, 32, "Output",ExpressionUUID->"49dcca09-162f-4f41-91b4-5acba47cbcd0"], Cell[14201, 419, 269, 5, 32, "Output",ExpressionUUID->"e0ba9d91-77e7-4b00-b0f6-4e1a5db79fb8"] }, Open ]], Cell[CellGroupData[{ Cell[14507, 429, 411, 8, 67, "Input",ExpressionUUID->"2295fa8b-7907-42e0-8381-6bc237fef677"], Cell[14921, 439, 734, 20, 52, "Output",ExpressionUUID->"b674f739-53c9-466b-98e3-25896494c3ad"], Cell[15658, 461, 864, 20, 94, "Output",ExpressionUUID->"9185cf38-8506-4d50-ad19-c53fbf8102a2"], Cell[16525, 483, 678, 19, 77, "Output",ExpressionUUID->"a47c0c64-cbd8-4ff9-91a9-4682f85f8849"] }, Open ]], Cell[CellGroupData[{ Cell[17240, 507, 400, 7, 48, "Input",ExpressionUUID->"688424be-ae33-495f-80d6-5dd03ee54f1b"], Cell[17643, 516, 155, 2, 32, "Output",ExpressionUUID->"e586f448-be0e-4634-b83d-7fd016d2d01a"], Cell[17801, 520, 157, 2, 55, "Output",ExpressionUUID->"b44b3fc7-8c4a-46ee-a521-6092ec644590"] }, Open ]] } ] *)