(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 19502, 539] NotebookOptionsPosition[ 17682, 508] NotebookOutlinePosition[ 18099, 524] CellTagsIndexPosition[ 18056, 521] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"f_", ",", "x_", ",", "k_"}], "]"}], ":=", RowBox[{ FractionBox["1", "P"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "P"}], "P"], RowBox[{ RowBox[{"Cos", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}], "f", " ", RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "[", RowBox[{"f_", ",", "x_", ",", "k_"}], "]"}], ":=", RowBox[{ FractionBox["1", "P"], RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "P"}], "P"], RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}], "f", " ", RowBox[{ "\[DifferentialD]", "x"}]}]}]}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.6579788233381186`*^9, 3.6579788886075225`*^9}, { 3.6579789557314053`*^9, 3.6579789594843893`*^9}, 3.6579789965550127`*^9, 3.91135320953175*^9}, CellLabel->"In[59]:=",ExpressionUUID->"4d440852-ce94-43ef-8644-10a054e5ed30"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", SuperscriptBox["x", "2"]}]], "Input", CellChangeTimes->{{3.911353329145199*^9, 3.9113533339147263`*^9}, { 3.9113534392549596`*^9, 3.911353439522679*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"770d651c-bfe0-4bda-88c6-b87139547d83"], Cell[BoxData[{ RowBox[{ RowBox[{"P", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{"fourier", "=", RowBox[{ FractionBox[ RowBox[{"a", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "0"}], "]"}], "2"], "+", RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Cos", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}]}]}], ")"}]}]}]}]}], "Input", CellChangeTimes->{{3.9113532374406447`*^9, 3.911353344876257*^9}, { 3.9113534032098236`*^9, 3.9113534261349936`*^9}, {3.91135350743373*^9, 3.9113535078218575`*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"104cd3f9-dd72-46b7-aa26-511503383f4f"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", "fourier"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "P"}], ",", "P"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.9113533583004847`*^9, 3.9113533733636436`*^9}, { 3.9113534193245735`*^9, 3.9113534644029837`*^9}, {3.911353519245472*^9, 3.91135352188418*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"b638b5d7-6ebd-4a11-af0f-f3a8faf1bf2f"], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.9113535301269093`*^9, 3.9113535304742603`*^9}},ExpressionUUID->"333a452f-903a-4d7e-99a8-\ 440bc120b2f1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"x", "-", "2"}], ")"}], SuperscriptBox["x", "2"], RowBox[{"(", RowBox[{"x", "-", "\[Pi]"}], ")"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.659644224771369*^9, 3.6596442374821777`*^9}},ExpressionUUID->"21d38b40-f772-42a9-8a9d-\ 5362a1ca11b2"], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "2"}], "x"}], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]}, { RowBox[{"-", "2"}], RowBox[{"1", "\[LessEqual]", "x", "\[LessEqual]", "2"}]}, { RowBox[{ RowBox[{"2", "x"}], "-", "6"}], RowBox[{"2", "\[LessEqual]", "x", "\[LessEqual]", "3"}]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}]], "Input", CellChangeTimes->{{3.6579994990071325`*^9, 3.6579995225596514`*^9}, { 3.65800035891998*^9, 3.6580003682228823`*^9}, {3.6580025511850157`*^9, 3.65800256843357*^9}, {3.658672502311536*^9, 3.658672567057819*^9}, { 3.6586726700248775`*^9, 3.6586727070171785`*^9}, {3.658672906110624*^9, 3.65867298536726*^9}, {3.6596431489207735`*^9, 3.659643232869955*^9}, { 3.6596437766052938`*^9, 3.6596437902032604`*^9}, {3.65964407406664*^9, 3.6596441014071198`*^9}, {3.6596444175922985`*^9, 3.6596444763489723`*^9}},ExpressionUUID->"04ccfb9d-2b5e-4a25-8c32-\ 17698c358ee6"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"x", "-", "3"}], ")"}]}], RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], "x", SuperscriptBox[ RowBox[{"(", RowBox[{"x", "-", "\[Pi]"}], ")"}], "2"]}]}], ";"}]], "Input", CellChangeTimes->{{3.6596438019880815`*^9, 3.659643821501569*^9}},ExpressionUUID->"78945d3b-389a-4bd5-8df7-\ f0e8302e0adc"], Cell[BoxData[ RowBox[{ RowBox[{"g", "[", "x_", "]"}], ":=", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{ RowBox[{"-", "4"}], "x"}], RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}]}, { RowBox[{ RowBox[{"2", "x"}], "-", "6"}], RowBox[{"1", "\[LessEqual]", "x", "\[LessEqual]", "2"}]}, { RowBox[{ RowBox[{"2", "x"}], "-", "6"}], RowBox[{"2", "\[LessEqual]", "x", "\[LessEqual]", "3"}]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}]], "Input", CellChangeTimes->{{3.6596444617905755`*^9, 3.6596444618791556`*^9}},ExpressionUUID->"deb68275-f76d-49e0-a867-\ bfe7e4cc3fad"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"fe", "[", "x_", "]"}], ":=", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"-", RowBox[{"f", "[", RowBox[{"-", "x"}], "]"}]}], RowBox[{"x", "\[LessEqual]", "0"}]}, { RowBox[{"f", "[", "x", "]"}], RowBox[{"0", "\[LessEqual]", "x"}]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ge", "[", "x_", "]"}], ":=", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ { RowBox[{"-", RowBox[{"g", "[", RowBox[{"-", "x"}], "]"}]}], RowBox[{"x", "\[LessEqual]", "0"}]}, { RowBox[{"g", "[", "x", "]"}], RowBox[{"0", "\[LessEqual]", "x"}]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]}]}], "Input", CellChangeTimes->{{3.6580015942882977`*^9, 3.658001617759597*^9}, 3.6580021774889507`*^9, {3.6580025819147115`*^9, 3.658002602753998*^9}, 3.658672714747864*^9, 3.658673006113103*^9, 3.659643413894216*^9, 3.659643743891694*^9, 3.659644248792514*^9, 3.659644507377035*^9},ExpressionUUID->"62f09695-8587-4d7e-bb9b-\ cc6ce972f0ff"], Cell[BoxData[ RowBox[{ RowBox[{"L", "=", "3"}], ";", RowBox[{"P", "=", "L"}], ";", RowBox[{"c", "=", "5"}], ";", RowBox[{"n", "=", "9"}], ";"}]], "Input", CellChangeTimes->{{3.6580004107609367`*^9, 3.6580004112516365`*^9}, { 3.6580004700717907`*^9, 3.658000470974371*^9}, {3.6580006182235317`*^9, 3.658000627262643*^9}, {3.658000665856881*^9, 3.6580006747991486`*^9}, { 3.658002616382819*^9, 3.658002616901687*^9}, {3.6586725997063847`*^9, 3.6586726116460257`*^9}, {3.658672720438285*^9, 3.658672727575948*^9}, { 3.6586730122575855`*^9, 3.658673018911916*^9}, {3.6596432586251144`*^9, 3.6596432633048105`*^9}, {3.659643422021529*^9, 3.65964343475109*^9}, { 3.6596438286208487`*^9, 3.6596438381091375`*^9}, {3.6596441232544775`*^9, 3.6596441279239626`*^9}, {3.659644257071727*^9, 3.6596442620016093`*^9}, { 3.659644514586306*^9, 3.659644518425743*^9}},ExpressionUUID->"7436c4bc-47a3-4b85-8423-\ cc0ecc422872"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"calor", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"b", "[", RowBox[{ RowBox[{"fe", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"c", " ", "k", " ", "\[Pi]"}], "L"], ")"}], "2"]}], "t"}]]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.657999383584714*^9, 3.6579993923146625`*^9}, { 3.6579994951728897`*^9, 3.6579994953744936`*^9}, {3.6580003748406715`*^9, 3.6580004019996347`*^9}, {3.658000496709004*^9, 3.658000502558872*^9}, { 3.658000587479471*^9, 3.658000611831822*^9}, {3.6580006781294346`*^9, 3.658000678612618*^9}, 3.658001669882263*^9, {3.6580018731565337`*^9, 3.6580019015473585`*^9}},ExpressionUUID->"9d8aa68c-0de2-41e5-811d-\ 20844398abe5"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"calord", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ FractionBox[ RowBox[{"a", "[", RowBox[{ RowBox[{"fe", "[", "x", "]"}], ",", "x", ",", "0"}], "]"}], "2"], "+", RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"a", "[", RowBox[{ RowBox[{"fe", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Cos", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"c", " ", "k", " ", "\[Pi]"}], "L"], ")"}], "2"]}], "t"}]]}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.658002007608081*^9, 3.6580020760331116`*^9}, 3.6580021585593367`*^9},ExpressionUUID->"692a57f3-cef2-4bce-bc4b-\ a14498e1f6ca"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"onda", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ SubsuperscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{ RowBox[{"Sin", "[", FractionBox[ RowBox[{"k", " ", "\[Pi]", " ", "x"}], "P"], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"b", "[", RowBox[{ RowBox[{"fe", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Cos", "[", FractionBox[ RowBox[{"c", " ", "k", " ", "\[Pi]", " ", "t"}], "L"], "]"}]}], "+", RowBox[{ FractionBox["L", RowBox[{"c", " ", "k", " ", "\[Pi]"}]], RowBox[{"b", "[", RowBox[{ RowBox[{"ge", "[", "x", "]"}], ",", "x", ",", "k"}], "]"}], RowBox[{"Sin", "[", FractionBox[ RowBox[{"c", " ", "k", " ", "\[Pi]", " ", "t"}], "L"], "]"}]}]}], ")"}]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.6580022949978466`*^9, 3.658002306189064*^9}, { 3.658002353887865*^9, 3.6580024685962505`*^9}, 3.6580027628482523`*^9},ExpressionUUID->"9485296e-02f2-4940-9c89-\ 0dba532e6612"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"onda", "[", RowBox[{"1", ",", ".6"}], "]"}]], "Input", CellChangeTimes->{{3.659643931970541*^9, 3.6596439405287867`*^9}, { 3.659644532966296*^9, 3.659644534105269*^9}},ExpressionUUID->"9cb0b4e6-7af9-4b3c-82f8-\ aff0c91c104b"], Cell[BoxData["1.9339525844286871`"], "Output", CellChangeTimes->{{3.659643935419019*^9, 3.6596439410251894`*^9}, 3.659644545067876*^9},ExpressionUUID->"3735414c-d93d-4124-8850-\ 204adc3c2689"] }, Open ]] }, WindowSize->{811.1999999999999, 478.2}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"13.2 para Microsoft Windows (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb", ExpressionUUID->"a8081a08-4de7-4241-9010-78c5695906cf" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 1124, 32, 106, "Input",ExpressionUUID->"4d440852-ce94-43ef-8644-10a054e5ed30"], Cell[1685, 54, 301, 6, 28, "Input",ExpressionUUID->"770d651c-bfe0-4bda-88c6-b87139547d83"], Cell[1989, 62, 1198, 34, 84, "Input",ExpressionUUID->"104cd3f9-dd72-46b7-aa26-511503383f4f"], Cell[3190, 98, 496, 12, 28, "Input",ExpressionUUID->"b638b5d7-6ebd-4a11-af0f-f3a8faf1bf2f"], Cell[3689, 112, 236, 5, 86, "Input",ExpressionUUID->"333a452f-903a-4d7e-99a8-440bc120b2f1"], Cell[3928, 119, 382, 12, 28, "Input",ExpressionUUID->"21d38b40-f772-42a9-8a9d-5362a1ca11b2"], Cell[4313, 133, 2394, 60, 62, "Input",ExpressionUUID->"04ccfb9d-2b5e-4a25-8c32-17698c358ee6"], Cell[6710, 195, 462, 15, 28, "Input",ExpressionUUID->"78945d3b-389a-4bd5-8df7-f0e8302e0adc"], Cell[7175, 212, 1977, 55, 62, "Input",ExpressionUUID->"deb68275-f76d-49e0-a867-bfe7e4cc3fad"], Cell[9155, 269, 3781, 103, 82, "Input",ExpressionUUID->"62f09695-8587-4d7e-bb9b-cc6ce972f0ff"], Cell[12939, 374, 946, 17, 28, "Input",ExpressionUUID->"7436c4bc-47a3-4b85-8423-cc0ecc422872"], Cell[13888, 393, 1124, 29, 47, "Input",ExpressionUUID->"9d8aa68c-0de2-41e5-811d-20844398abe5"], Cell[15015, 424, 988, 30, 47, "Input",ExpressionUUID->"692a57f3-cef2-4bce-bc4b-a14498e1f6ca"], Cell[16006, 456, 1177, 34, 46, "Input",ExpressionUUID->"9485296e-02f2-4940-9c89-0dba532e6612"], Cell[CellGroupData[{ Cell[17208, 494, 258, 6, 28, "Input",ExpressionUUID->"9cb0b4e6-7af9-4b3c-82f8-aff0c91c104b"], Cell[17469, 502, 197, 3, 32, "Output",ExpressionUUID->"3735414c-d93d-4124-8850-204adc3c2689"] }, Open ]] } ] *)