(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 21125, 543] NotebookOptionsPosition[ 19980, 514] NotebookOutlinePosition[ 20362, 530] CellTagsIndexPosition[ 20319, 527] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \:042f\:0432\:043d\:0430 \:0434\:0438\:0444\:0435\:0440\:0435\:043d\:0447\ \:043d\:0430 \:0441\:0445\:0435\:043c\:0430 \:0437\:0430 \:0435\:0434\:043d\ \:043e\:043c\:0435\:0440\:043d\:043e\:0442\:043e \:0443\:0440\:0430\:0432\ \:043d\:0435\:043d\:0438\:0435 \:043d\:0430 \:0442\:043e\:043f\:043b\:043e\ \:043f\:0440\:043e\:0432\:043e\:0434\:043d\:043e\:0441\:0442\:0442\:0430\ \>", "Section", CellChangeTimes->{{3.7523223526566744`*^9, 3.752322433421625*^9}, { 3.75308935593559*^9, 3.7530893962776995`*^9}},ExpressionUUID->"cba4221a-60db-4ef4-969c-\ 81bd6461c535"], Cell[BoxData[ RowBox[{ RowBox[{"heatEquation", "[", RowBox[{ "l_", ",", "T_", ",", "h_", ",", "u0_", ",", "uL_", ",", "uR_", ",", "d_"}], "]"}], ":=", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Tau]", "=", RowBox[{ RowBox[{"h", "^", "2"}], "/", RowBox[{"(", RowBox[{"3", "d"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Ceiling", "[", RowBox[{"l", "/", "h"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"m", "=", RowBox[{"Ceiling", "[", RowBox[{"T", "/", "\[Tau]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "h"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"i", "-", "1"}], ")"}], "*", "\[Tau]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"m", "+", "1"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"n", "+", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", "+", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Initial", " ", "condition"}], "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", RowBox[{"u0", "[", RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Iterate", " ", "over", " ", "time"}], "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "m"}], ",", " ", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"(*", RowBox[{"Boundary", " ", "conditions"}], "*)"}], "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"1", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", RowBox[{"uL", "[", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\t", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{ RowBox[{"n", "+", "1"}], ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", RowBox[{"uR", "[", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", RowBox[{"(*", RowBox[{ "Internal", " ", "values", " ", "from", " ", "the", " ", "main", " ", "PDE"}], "*)"}], "\[IndentingNewLine]", "\t", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", " ", RowBox[{"i", "\[LessEqual]", "n"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", "\t\t", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"j", "+", "1"}]}], "]"}], "]"}], "=", RowBox[{ RowBox[{"d", " ", RowBox[{"\[Tau]", "/", RowBox[{"h", "^", "2"}]}], RowBox[{"y", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", "j"}], "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"2", "d", " ", RowBox[{"\[Tau]", "/", RowBox[{"h", "^", "2"}]}]}]}], ")"}], "*", RowBox[{"y", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "+", RowBox[{"d", " ", RowBox[{"\[Tau]", "/", RowBox[{"h", "^", "2"}]}], RowBox[{"y", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "1"}], ",", "j"}], "]"}], "]"}]}]}]}]}], "\[IndentingNewLine]", "\t", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", "t", ",", "y"}], "}"}]}], "\[IndentingNewLine]", ")"}]}]], "Input", CellChangeTimes->{{3.753087803681161*^9, 3.7530884231047215`*^9}, { 3.753088743899411*^9, 3.75308880693554*^9}, 3.7530890692455125`*^9, { 3.7537037579794364`*^9, 3.753703760678442*^9}},ExpressionUUID->"f74ae3f3-f2bf-4dd1-8165-\ 9dd8d0008700"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "\:0422\:0435\:0441\:0442\:0432\:0430\:043d\:0435 \:043d\:0430 \:043c\:0435\ \:0442\:043e\:0434\:0430 \:0432\:044a\:0440\:0445\:0443 \:0437\:0430\:0434\ \:0430\:0447\:0430\:0442\:0430 ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["u", "t"], "-", SubscriptBox["u", "xx"]}], "=", "0"}], ",", " ", RowBox[{"0", "<", "x", "<", "1"}], ",", " ", RowBox[{"0", "<", "t", "\[LessEqual]", "0.1"}], ",", " ", RowBox[{ RowBox[{"u", "(", RowBox[{"x", ",", "0"}], ")"}], "=", RowBox[{"sin", "(", RowBox[{"2", "\[Pi]x"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"u", "(", RowBox[{"0", ",", "t"}], ")"}], "=", RowBox[{ RowBox[{"u", "(", RowBox[{"1", ",", "t"}], ")"}], "=", "0."}]}]}], TraditionalForm]], ExpressionUUID->"2635ef17-67b8-4794-8445-f5ddb754ad66"] }], "Section", CellChangeTimes->{{3.7523223526566744`*^9, 3.752322433421625*^9}, { 3.75308935593559*^9, 3.7530895280409594`*^9}},ExpressionUUID->"cba4221a-60db-4ef4-969c-\ 81bd6461c535"], Cell[BoxData[{ RowBox[{ RowBox[{"u0", "[", "x_", "]"}], ":=", RowBox[{"Sin", "[", RowBox[{"2", "Pi", "*", "x"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uL", "[", "x_", "]"}], ":=", "0"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"uR", "[", "x_", "]"}], ":=", "0"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"exactSol", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{"-", "4"}], RowBox[{"Pi", "^", "2"}], "*", "t"}], ")"}]}], "*", RowBox[{"Sin", "[", RowBox[{"2", "Pi", "*", "x"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"apprSol", " ", "=", " ", RowBox[{"heatEquation", "[", RowBox[{ "1", ",", "0.5", ",", "0.01", ",", "u0", ",", "uL", ",", "uR", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"apprX", " ", "=", " ", RowBox[{"apprSol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"apprT", " ", "=", " ", RowBox[{"apprSol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"apprY", " ", "=", " ", RowBox[{"apprSol", "[", RowBox[{"[", "3", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7530884581089945`*^9, 3.753088547476183*^9}, { 3.753088629266406*^9, 3.7530886970075407`*^9}, {3.7530888480048256`*^9, 3.753088895887155*^9}},ExpressionUUID->"389748b7-3678-4c6f-91bf-\ 36955161d505"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"exactSol", "[", RowBox[{"x", ",", " ", RowBox[{"apprT", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"ListPlot", "[", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"apprX", ",", RowBox[{"apprY", "[", RowBox[{"[", RowBox[{"All", ",", "j"}], "]"}], "]"}]}], "}"}], "]"}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "apprT", "]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.753088567108268*^9, 3.7530886254013977`*^9}, { 3.7530887052185564`*^9, 3.753088707418561*^9}, {3.7530888992861614`*^9, 3.753089048111474*^9}, {3.753089105246583*^9, 3.7530891100215917`*^9}, { 3.753089175127741*^9, 3.7530891829787583`*^9}, {3.7530892382899294`*^9, 3.7530892949021125`*^9}},ExpressionUUID->"68a1c484-e1cc-4959-80a7-\ 5601d7675ca2"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`j$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`j$$], 1, 15001}}, Typeset`size$$ = { 324., {95., 101.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`j$28113$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`j$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`j$$, $CellContext`j$28113$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Show[ Plot[ $CellContext`exactSol[$CellContext`x, Part[$CellContext`apprT, $CellContext`j$$]], {$CellContext`x, 0, 1}, PlotStyle -> Red, PlotRange -> {{0, 1}, {-1, 1}}], ListPlot[ Transpose[{$CellContext`apprX, Part[$CellContext`apprY, All, $CellContext`j$$]}]]], "Specifications" :> {{$CellContext`j$$, 1, 15001}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{369., {137., 143.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.7530890891715527`*^9, 3.753089114149601*^9}, 3.7530891837387595`*^9, 3.753089242412937*^9, 3.7530892960941143`*^9, 3.753090685716185*^9, 3.753090754305108*^9, 3.753119388434618*^9, 3.753120129733178*^9, 3.753120169635892*^9, 3.7531247677304306`*^9, 3.7536397935021553`*^9, 3.753703799093505*^9, 3.753719819660821*^9, 3.785005685940146*^9},ExpressionUUID->"5804c59d-cad9-41d6-8f46-\ e6f488b7594b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"scheme", "=", RowBox[{"(", RowBox[{ RowBox[{"Blend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0.75", ",", "0", ",", "0"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0.55", ",", "0"}], "]"}], ",", "White", ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0.55", ",", "1"}], "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0.75"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"Rescale", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "]"}], "&"}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Animate", "[", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"ListDensityPlot", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"apprX", ",", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"Length", "[", "apprX", "]"}], "}"}]}], "]"}], ",", " ", RowBox[{"apprY", "[", RowBox[{"[", RowBox[{"All", ",", "j"}], "]"}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"apprX", ",", RowBox[{"Table", "[", RowBox[{"0.1", ",", RowBox[{"{", RowBox[{"Length", "[", "apprX", "]"}], "}"}]}], "]"}], ",", " ", RowBox[{"apprY", "[", RowBox[{"[", RowBox[{"All", ",", "j"}], "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "1"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "scheme"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunctionScaling", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"BarLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"scheme", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "]"}]}], ",", RowBox[{"LegendLabel", "\[Rule]", RowBox[{"Placed", "[", RowBox[{"\"\\"", ",", " ", "Left"}], "]"}]}], ",", RowBox[{"LegendMarkerSize", "\[Rule]", "150"}]}], "]"}], ",", RowBox[{"{", RowBox[{"Bottom", ",", "Center"}], "}"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"Length", "[", "apprT", "]"}], ",", "10"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.753123341594982*^9, 3.7531235079977255`*^9}, { 3.75312372970082*^9, 3.7531237307743998`*^9}, 3.753123765450118*^9, { 3.753123815854574*^9, 3.753123857065873*^9}, {3.7531239033549504`*^9, 3.7531239279028387`*^9}, {3.753123970881565*^9, 3.753123971189459*^9}, { 3.7531240621613226`*^9, 3.7531241602364054`*^9}, {3.753124274885565*^9, 3.753124285117407*^9}, {3.7531243605741935`*^9, 3.7531243729227495`*^9}, { 3.7531244146307106`*^9, 3.7531245230160317`*^9}},ExpressionUUID->"d9e419a7-6b71-48d0-accf-\ 7f63e2af4d3d"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`j$$ = 7111, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`j$$], 1, 15001, 10}}, Typeset`size$$ = { 324., {173., 178.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`j$28224$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`j$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`j$$, $CellContext`j$28224$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ListDensityPlot[ Flatten[{ Transpose[{$CellContext`apprX, Table[0, { Length[$CellContext`apprX]}], Part[$CellContext`apprY, All, $CellContext`j$$]}], Transpose[{$CellContext`apprX, Table[0.1, { Length[$CellContext`apprX]}], Part[$CellContext`apprY, All, $CellContext`j$$]}]}, 1], AspectRatio -> Automatic, ColorFunction -> $CellContext`scheme, ColorFunctionScaling -> False, PlotLegends -> Placed[ BarLegend[{$CellContext`scheme, {-1, 1}}, LabelStyle -> Directive[Black, FontSize -> 12], LegendLabel -> Placed["Temperature", Left], LegendMarkerSize -> 150], { Bottom, Center}]], "Specifications" :> {{$CellContext`j$$, 1, 15001, 10, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{369., {207., 213.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Animate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.7531229572260847`*^9, 3.7531229843451705`*^9}, 3.753123540665742*^9, {3.753123593701723*^9, 3.7531236035102124`*^9}, 3.7531236424198074`*^9, 3.7531239737602873`*^9, {3.7531240808451433`*^9, 3.753124161091131*^9}, {3.7531242774106092`*^9, 3.7531242867217655`*^9}, 3.7531243750733995`*^9, {3.7531244176056757`*^9, 3.7531244974751177`*^9}, 3.7531245477250047`*^9, 3.753124768011813*^9, 3.753639793669059*^9, 3.753703809397521*^9, 3.7537198197947607`*^9, 3.785005686079047*^9},ExpressionUUID->"b2f0df8d-a9f9-4308-8cf6-\ 667e8de8b667"] }, Open ]] }, Open ]] }, WindowSize->{1350, 685}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, Magnification->0.8999999761581421, FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 580, 10, 60, "Section",ExpressionUUID->"cba4221a-60db-4ef4-969c-81bd6461c535"], Cell[1162, 34, 5200, 143, 494, "Input",ExpressionUUID->"f74ae3f3-f2bf-4dd1-8165-9dd8d0008700"] }, Open ]], Cell[CellGroupData[{ Cell[6399, 182, 1077, 29, 60, "Section",ExpressionUUID->"cba4221a-60db-4ef4-969c-81bd6461c535"], Cell[7479, 213, 1524, 41, 170, "Input",ExpressionUUID->"389748b7-3678-4c6f-91bf-36955161d505"], Cell[CellGroupData[{ Cell[9028, 258, 1493, 38, 44, "Input",ExpressionUUID->"68a1c484-e1cc-4959-80a7-5601d7675ca2"], Cell[10524, 298, 2261, 45, 297, "Output",ExpressionUUID->"5804c59d-cad9-41d6-8f46-e6f488b7594b"] }, Open ]], Cell[CellGroupData[{ Cell[12822, 348, 3953, 98, 188, "Input",ExpressionUUID->"d9e419a7-6b71-48d0-accf-7f63e2af4d3d"], Cell[16778, 448, 3174, 62, 470, "Output",ExpressionUUID->"b2f0df8d-a9f9-4308-8cf6-667e8de8b667"] }, Open ]] }, Open ]] } ] *)