(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 226167, 4814] NotebookOptionsPosition[ 223578, 4732] NotebookOutlinePosition[ 223912, 4747] CellTagsIndexPosition[ 223869, 4744] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", "+", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]", " ", RowBox[{"rs", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"x", "/", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xin", "[", RowBox[{"r_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"r", " ", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xout", "[", RowBox[{"r_", " ", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"r", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]", " ", RowBox[{"rs", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"outside", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", ">", " ", RowBox[{ RowBox[{"rs", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], " ", RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]"}]}], ")"}]}]}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.6580187999996758`*^9, 3.658018923949494*^9}, 3.65801898542605*^9, {3.658019077564579*^9, 3.6580190911549253`*^9}, { 3.658019134906311*^9, 3.658019227563945*^9}, {3.658019271982885*^9, 3.658019272298325*^9}, {3.658039910639689*^9, 3.658039969271997*^9}, { 3.6580399998617496`*^9, 3.658040008105404*^9}, {3.658044666143422*^9, 3.6580446685327797`*^9}, 3.658044776278016*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Metric", " ", "outside", " ", "in", " ", "terms", " ", "of", " ", "x"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"metricout", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"d\[Tau]", "^", "2"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"rout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", "x"}], "]"}], " ", "dx"}], " ", "+", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"rout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", "\[Tau]"}], "]"}], " ", "d\[Tau]"}]}], ")"}], "^", "2"}], "/", RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]", " ", RowBox[{ RowBox[{"rs", "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}], "/", RowBox[{ RowBox[{"rout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], "^", RowBox[{"(", RowBox[{"3", "/", "2"}], ")"}]}]}]}]}], ")"}], "^", RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}]}]}]}], " ", "//", "Simplify"}], "//", "Expand"}]}]}]], "Input", CellChangeTimes->{{3.65801924039972*^9, 3.65801936559629*^9}, { 3.658019409025049*^9, 3.658019410040872*^9}, {3.658019443466023*^9, 3.658019450806057*^9}, {3.6580541547475157`*^9, 3.658054163332417*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["d\[Tau]", "2"]}], "+", FractionBox[ RowBox[{ SuperscriptBox["dx", "2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]], ")"}], RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], SqrtBox["x"]], "+", FractionBox[ RowBox[{"4", " ", "dx", " ", "d\[Tau]", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]], ")"}], RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], "x"], "+", FractionBox[ RowBox[{"8", " ", SuperscriptBox["d\[Tau]", "2"], " ", "\[Pi]", " ", SuperscriptBox["rs", "3"], " ", "\[Rho]0", " ", SuperscriptBox[ RowBox[{"(", FractionBox[ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]], ")"}], RowBox[{"1", "/", "3"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["x", RowBox[{"3", "/", "2"}]], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"3", " ", SuperscriptBox["x", RowBox[{"3", "/", "2"}]]}]]}]], "Output", CellChangeTimes->{{3.6580194447326*^9, 3.658019451502495*^9}, 3.658107406767969*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricout", ",", " ", RowBox[{"-", RowBox[{"d\[Tau]", "^", "2"}]}]}], "]"}], " ", "//", "Simplify"}], "//", "PowerExpand"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricout", ",", " ", RowBox[{"dx", " ", "d\[Tau]"}]}], "]"}], "/", "2"}], " ", "//", "PowerExpand"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricout", ",", " ", RowBox[{"dx", "^", "2"}]}], "]"}], " ", "//", "Simplify"}], " ", "//", "PowerExpand"}]}], "Input", CellChangeTimes->{{3.658019472189871*^9, 3.658019482614253*^9}, 3.658019540179695*^9, {3.6580196048771133`*^9, 3.65801961256996*^9}, { 3.658054189978146*^9, 3.658054196854198*^9}}], Cell[BoxData[ RowBox[{"1", "-", FractionBox[ RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox["rs", "3"], " ", "\[Rho]0"}], RowBox[{"3", " ", "x"}]]}]], "Output", CellChangeTimes->{ 3.658019482941351*^9, 3.6580195405301723`*^9, {3.658019606567144*^9, 3.658019612748432*^9}, 3.658054197684204*^9, 3.65810740923281*^9}], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]], "Output", CellChangeTimes->{ 3.658019482941351*^9, 3.6580195405301723`*^9, {3.658019606567144*^9, 3.658019612748432*^9}, 3.658054197684204*^9, 3.658107409233624*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658019482941351*^9, 3.6580195405301723`*^9, {3.658019606567144*^9, 3.658019612748432*^9}, 3.658054197684204*^9, 3.658107409258399*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"gttout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", RowBox[{"1", "-", FractionBox[ RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox["rs", "3"], " ", "\[Rho]0"}], RowBox[{"3", " ", "x"}]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gxtout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gxxout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", "1"}]}], "Input", CellChangeTimes->{{3.6580192644953423`*^9, 3.65801926462947*^9}, { 3.658019462088459*^9, 3.658019490660898*^9}, 3.658019549912157*^9, 3.658019616913744*^9, {3.658054202636903*^9, 3.65805420916112*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.658019629405877*^9, 3.658019633545147*^9}, 3.6580542076854477`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Metric", " ", "Inside", " ", "in", " ", "terms", " ", "of", " ", "x"}], "*)"}], "\[IndentingNewLine]", RowBox[{"metricin", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"d\[Tau]", "^", "2"}]}], " ", "+", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"rin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", "x"}], "]"}], " ", "dx"}], " ", "+", " ", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"rin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", "\[Tau]"}], "]"}], " ", "d\[Tau]"}]}], ")"}], "^", "2"}], RowBox[{ RowBox[{"(", RowBox[{"1", " ", "-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"6", " ", "\[Pi]", " ", "\[Rho]0"}], "]"}], " ", "\[Tau]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"4", "/", "3"}], ")"}]}]}]}], " ", "//", "Simplify"}], "//", "Expand"}]}]}]], "Input", CellChangeTimes->{{3.6580198147927303`*^9, 3.658019854099908*^9}, { 3.658054173807639*^9, 3.658054181409986*^9}}], Cell[BoxData[ RowBox[{ SuperscriptBox["dx", "2"], "-", SuperscriptBox["d\[Tau]", "2"], "+", FractionBox[ RowBox[{"4", " ", "dx", " ", "d\[Tau]", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", "x", " ", SqrtBox["\[Rho]0"]}], RowBox[{"1", "-", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]], "+", FractionBox[ RowBox[{"8", " ", SuperscriptBox["d\[Tau]", "2"], " ", "\[Pi]", " ", SuperscriptBox["x", "2"], " ", "\[Rho]0"}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], "2"]}]]}]], "Output", CellChangeTimes->{3.658019855511716*^9, 3.6581074163240023`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricin", ",", " ", RowBox[{"-", RowBox[{"d\[Tau]", "^", "2"}]}]}], "]"}], " ", "//", "Simplify"}], "//", "PowerExpand"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricin", ",", " ", RowBox[{"dx", " ", "d\[Tau]"}]}], "]"}], "/", "2"}], " ", "//", "PowerExpand"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Coefficient", "[", RowBox[{"metricin", ",", " ", RowBox[{"dx", "^", "2"}]}], "]"}], "//", "PowerExpand"}]}], "Input", CellChangeTimes->{{3.658019876061862*^9, 3.658019881535933*^9}, { 3.658019912627285*^9, 3.6580199270589647`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"3", "-", RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox["x", "2"], " ", "\[Rho]0"}], "-", RowBox[{"6", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}], "+", RowBox[{"18", " ", "\[Pi]", " ", "\[Rho]0", " ", SuperscriptBox["\[Tau]", "2"]}]}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], "2"]}]]], "Output", CellChangeTimes->{ 3.658019882702221*^9, {3.658019913535818*^9, 3.6580199275245047`*^9}, 3.658107422757011*^9}], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", "x", " ", SqrtBox["\[Rho]0"]}], RowBox[{"1", "-", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]], "Output", CellChangeTimes->{ 3.658019882702221*^9, {3.658019913535818*^9, 3.6580199275245047`*^9}, 3.658107422757943*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658019882702221*^9, {3.658019913535818*^9, 3.6580199275245047`*^9}, 3.658107422758767*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"gttin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{"3", "-", RowBox[{"8", " ", "\[Pi]", " ", SuperscriptBox["x", "2"], " ", "\[Rho]0"}], "-", RowBox[{"6", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}], "+", RowBox[{"18", " ", "\[Pi]", " ", "\[Rho]0", " ", SuperscriptBox["\[Tau]", "2"]}]}], RowBox[{"3", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], ")"}], "2"]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gxtin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", "x", " ", SqrtBox["\[Rho]0"]}], RowBox[{"1", "-", RowBox[{ SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gxxin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", "1"}]}], "Input", CellChangeTimes->{{3.6580199418540373`*^9, 3.658019970637656*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"\[Rho]0", ",", " ", "rs"}], "]"}]], "Input", CellChangeTimes->{{3.658039318141506*^9, 3.6580393255672092`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"oxout", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"gxtout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "+", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"gxtout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"gttout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], " ", RowBox[{"gxxout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}]}], "]"}]}], ")"}], "/", RowBox[{"gxxout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "//", "Simplify"}], "//", "PowerExpand"}], "//", "Simplify"}]}], "\[IndentingNewLine]", " ", RowBox[{"oxin", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"gxtin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "+", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"gxtin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"gttin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], " ", RowBox[{"gxxin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}]}], "]"}]}], ")"}], "/", RowBox[{"gxxin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "//", "Simplify"}], "//", "PowerExpand"}], "//", "Simplify"}]}], "\[IndentingNewLine]", " ", RowBox[{"ixout", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"gxtout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "-", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"gxtout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"gttout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], " ", RowBox[{"gxxout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}]}], "]"}]}], ")"}], "/", RowBox[{"gxxout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "//", "Simplify"}], "//", "PowerExpand"}], "//", "Simplify"}]}], "\[IndentingNewLine]", " ", RowBox[{"ixin", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"gxtin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "-", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"gxtin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"gttin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], " ", RowBox[{"gxxin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}]}], "]"}]}], ")"}], "/", RowBox[{"gxxin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], " ", "//", "Simplify"}], "//", "PowerExpand"}], "//", "Simplify"}]}]}]}]], "Input", CellChangeTimes->{{3.658020015202683*^9, 3.658020156884515*^9}, { 3.658039294692472*^9, 3.6580392993575697`*^9}, {3.6580393430638247`*^9, 3.658039352819796*^9}, {3.658041748600705*^9, 3.6580417574470673`*^9}, { 3.658041995568428*^9, 3.6580420413841248`*^9}}], Cell[BoxData[ RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]}]], "Output", CellChangeTimes->{ 3.65802009511292*^9, {3.658020136556122*^9, 3.658020157155787*^9}, { 3.658039299817275*^9, 3.658039353311963*^9}, {3.6580417578868103`*^9, 3.658041762507678*^9}, 3.65804200086117*^9, 3.658042042137299*^9, 3.65810742968477*^9}], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", "x", " ", SqrtBox["\[Rho]0"]}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]], "Output", CellChangeTimes->{ 3.65802009511292*^9, {3.658020136556122*^9, 3.658020157155787*^9}, { 3.658039299817275*^9, 3.658039353311963*^9}, {3.6580417578868103`*^9, 3.658041762507678*^9}, 3.65804200086117*^9, 3.658042042137299*^9, 3.6581074297256203`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", "1"}], "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]}]], "Output", CellChangeTimes->{ 3.65802009511292*^9, {3.658020136556122*^9, 3.658020157155787*^9}, { 3.658039299817275*^9, 3.658039353311963*^9}, {3.6580417578868103`*^9, 3.658041762507678*^9}, 3.65804200086117*^9, 3.658042042137299*^9, 3.658107429746703*^9}], Cell[BoxData[ FractionBox[ RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", "x", " ", SqrtBox["\[Rho]0"]}], "-", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]], "Output", CellChangeTimes->{ 3.65802009511292*^9, {3.658020136556122*^9, 3.658020157155787*^9}, { 3.658039299817275*^9, 3.658039353311963*^9}, {3.6580417578868103`*^9, 3.658041762507678*^9}, 3.65804200086117*^9, 3.658042042137299*^9, 3.658107429777751*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.658020083354875*^9, 3.658020109869506*^9}, { 3.658039393336453*^9, 3.6580394220666027`*^9}, 3.658039507943317*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"outgoingxderout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], ":=", " ", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"outgoingxderin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", FractionBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", "x", " ", SqrtBox["\[Rho]0"]}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ingoingxderout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"-", "1"}], "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], SqrtBox["x"]]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ingoingxderin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{"3", "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", "x", " ", SqrtBox["\[Rho]0"]}], "-", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"outgoingxder", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"outside", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"outgoingxderout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"outgoingxderin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ingoingxder", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"outside", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"ingoingxderout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"ingoingxderin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xderout", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"1", "-", FractionBox[ RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{"2", " ", "\[Pi]"}], "3"]], " ", SuperscriptBox["rs", RowBox[{"3", "/", "2"}]], " ", SqrtBox["\[Rho]0"]}], RowBox[{ RowBox[{"Sign", "[", "x", "]"}], SqrtBox[ RowBox[{"Abs", "[", "x", "]"}]]}]]}]}], " ", RowBox[{"(*", RowBox[{ "This", " ", "tries", " ", "to", " ", "capture", " ", "the", " ", "change", " ", "in", " ", "sign", " ", "of", " ", "the", " ", "square", " ", "root", " ", "via", " ", "the", " ", "change", " ", "in", " ", "sign", " ", "in", " ", "x"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xderin", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", FractionBox[ RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", "x", " ", SqrtBox["\[Rho]0"]}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}], RowBox[{ RowBox[{"-", "3"}], "+", RowBox[{"3", " ", SqrtBox[ RowBox[{"6", " ", "\[Pi]"}]], " ", SqrtBox["\[Rho]0"], " ", "\[Tau]"}]}]]}], " ", RowBox[{"(*", RowBox[{ "This", " ", "is", " ", "also", " ", "a", " ", "combined", " ", "function", " ", "that", " ", "captures", " ", "the", " ", "change", " ", "in", " ", "sign", " ", "of", " ", "the", " ", "square", " ", "root", " ", "via", " ", "the", " ", "change", " ", "in", " ", "sign", " ", "in", " ", "x"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xder", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"outside", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"xderout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", " ", RowBox[{"xderin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.658020112046322*^9, 3.6580201120745687`*^9}, { 3.6580201446966667`*^9, 3.6580201622909727`*^9}, {3.658039406690291*^9, 3.6580394604993267`*^9}, {3.658039509507019*^9, 3.658039515684106*^9}, { 3.65804007873102*^9, 3.658040106439077*^9}, {3.658042046332779*^9, 3.658042058557192*^9}, {3.658042175638435*^9, 3.658042212881373*^9}, { 3.658044689379702*^9, 3.658044715360793*^9}, {3.6580449086220493`*^9, 3.658044984674671*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "Verification", " ", "that", " ", "the", " ", "piecewise", " ", "solution", " ", "matches", " ", "the", " ", "solution", " ", "where", " ", "the", " ", "ingoing", " ", "ray", " ", "is", " ", "simply", " ", "taken", " ", "to", " ", "travel", " ", "from"}], " ", "-", "x"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"solin", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"ingoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "0.505"}], "]"}], " ", "==", " ", "0"}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "0.505"}], ",", " ", RowBox[{"-", "10.0"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"solout", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"outgoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "0.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], " ", "+", " ", ".01"}]}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "10.0"}], ",", " ", "10.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"solout2", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"outgoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "0.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], " ", "+", " ", ".1"}]}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "10"}], ",", " ", "10.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"solin2", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"ingoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "0.627"}], "]"}], " ", "==", " ", "0"}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "0.627"}], ",", " ", RowBox[{"-", "10.0"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"solout3", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"outgoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "0.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], "+", ".001"}]}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "10"}], ",", " ", "10.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"solin3", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"ingoingxder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "0.504"}], "]"}], " ", "==", " ", "0"}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "0.504"}], ",", " ", RowBox[{"-", "10.0"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"sol4", " ", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"xder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "0.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], "+", ".001"}]}]}], "}"}], ",", " ", RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "10"}], ",", " ", "10.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"\[Tau]", " ", "<", " ", RowBox[{"-", "0.505"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", " ", RowBox[{"solin", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", RowBox[{"solout", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Tau]", " ", "<", " ", RowBox[{"-", "0.627"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", " ", RowBox[{"solin2", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", RowBox[{"solout2", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"\[Tau]", " ", "<", " ", RowBox[{"-", "0.504"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", " ", RowBox[{"solin3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], " ", "/.", RowBox[{"solout3", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol4"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "10.0"}], ",", " ", "10.0"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}]}], "]"}]}]}]], "Input",\ CellChangeTimes->{{3.6580205210200233`*^9, 3.658020538189953*^9}, 3.6580205713308887`*^9, {3.658020677116692*^9, 3.6580207774332533`*^9}, 3.658020845690475*^9, {3.658020888409637*^9, 3.658020889285918*^9}, { 3.658021161288744*^9, 3.658021257392007*^9}, {3.658021341795075*^9, 3.6580213871338043`*^9}, {3.6580215011784163`*^9, 3.65802154545159*^9}, { 3.6580364037816343`*^9, 3.658036413295484*^9}, {3.658037517320014*^9, 3.658037517834392*^9}, {3.6580395547238626`*^9, 3.658039599459827*^9}, { 3.658039683201708*^9, 3.658039688235126*^9}, {3.658040209272614*^9, 3.658040221301497*^9}, {3.658040255871105*^9, 3.6580402559727497`*^9}, { 3.6580406537289133`*^9, 3.658040668654763*^9}, {3.6580408285571547`*^9, 3.658040859312993*^9}, {3.658042234534359*^9, 3.658042242376607*^9}, { 3.658054258154903*^9, 3.6580543015681257`*^9}, {3.658054489232538*^9, 3.65805448948951*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAWJqZ+v//I8AKNHwnXgkoQIh3UPu/ sCPAcT6AmtGqJ0BYXch31VojwAbi5WMuRCdAiWVHfpwKI8B1SDfyNuQmQNvc YF/2uyLAbBMDOwGGJkDMXDu8pWYiwNLBOFqqHyZAHv8cowYXIsDbUJYtBMAl QBCqvwW9wCHA0rGW7zNYJUAixPxCBmwhwH6B+rAe8iRAlgBBCgEdIcBKUTF6 v5IkQKlFRk1RxyDAz6vIhikrJEAerVIaU3cgwMk5Q+FLyiNAs4P5wecoIMDX ekrALWsjQM/Fwsqjpx/AcnkRLMsDI0D7yKAl2wgfwNaWF3smoyJAZd0AeL1c HsBYsNuWMToiQBDQlX/Fsx3AZduKvfLSIUB/BzmbMBYdwEsAO9h3ciFALFBe rkZrHMBm4amXmwkhQJzdkdW/yxvAHh3bmYWnIEBKfEf04x4bwEQ6CLH/PCBA OfkxyC11GsCApW5fU6gfQOy6KrDa1hnA+Ckds0DkHkDdjaWPMisZwC/6a7Ei Dx5AkaUug+2KGMADK70xokcdQIab7CvO7RfATUtf2ImDHEC5oizMWUMXwKB4 H+c0rhtAsO56gEikFsDLncMOiuYaQOVLSyzi9xXA7USvJXcNGkBbh1CNoU4V wIvhMuajNxlAlAdkAsSwFMCnrLKHh28YQAuZ+W6RBRTAN9AkCL+VF0BGb53v wWUTwAEG3c+uyRZAwiN2JRjJEsBVLXIF4QAWQHzp0FIZHxLAo6q2wBUmFUD5 8zmUfYARwC0f+yUMWRRAtA8lzYzUEMDP+ZZcunkTQDNwHhr/MxDAwBKpYiWo EkDmXZk4Li0PwCr4aiqd2RFA4v35K7TXDcD8+2b4T/gQQGUnd0cAmQzA/p5O wb0kEEBkc/hRoj8LwIh4bYvcew5A5nvjxo/sCcB/ZmPGPrMMQO4N62NDsAjA x1fuy/EFC0BywvbvTFkHwBb4dm5lMAlAfQAfpBwZBsDbTI+txnUHQAv7sMI3 3wTAOHZK3V6/BUAVGEfQqIoDwBl9OSwB3gNApb75BeBMAsBLuJmqoxYCQLKH sCpt9ADA9LVI2qYlAECDGqJzi0T/v1HKJPnXjPw/rzgc4sjN/L/HUjVTDiH5 P9Obni6yIfq/nx9r8YmA9T8EElrLJ6P3vyDVe1B8M/I/Lc0dRknv9L9F5WzY G3PtP1wBtZUBSPK/+sSnqZ7Y5j8wkQprjJzvv3+Z5vif5+A/mKm7Zm0+6r85 POvGV3XVPxro3gJnO+W/tjbPLw74xD+vtvUY9ijgv98sINWWmYU+55XAbg== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.505}, {0., 12.018296464835675`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.505`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAWJqZ+v//I8AKNHwnXgkoQIh3UPu/ sCPAcT6AmtGqJ0BYXch31VojwAbi5WMuRCdAiWVHfpwKI8B1SDfyNuQmQNvc YF/2uyLAbBMDOwGGJkDMXDu8pWYiwNLBOFqqHyZAHv8cowYXIsDbUJYtBMAl QBCqvwW9wCHA0rGW7zNYJUAixPxCBmwhwH6B+rAe8iRAlgBBCgEdIcBKUTF6 v5IkQKlFRk1RxyDAz6vIhikrJEAerVIaU3cgwMk5Q+FLyiNAs4P5wecoIMDX ekrALWsjQM/Fwsqjpx/AcnkRLMsDI0D7yKAl2wgfwNaWF3smoyJAZd0AeL1c HsBYsNuWMToiQBDQlX/Fsx3AZduKvfLSIUB/BzmbMBYdwEsAO9h3ciFALFBe rkZrHMBm4amXmwkhQJzdkdW/yxvAHh3bmYWnIEBKfEf04x4bwEQ6CLH/PCBA OfkxyC11GsCApW5fU6gfQOy6KrDa1hnA+Ckds0DkHkDdjaWPMisZwC/6a7Ei Dx5AkaUug+2KGMADK70xokcdQIab7CvO7RfATUtf2ImDHEC5oizMWUMXwKB4 H+c0rhtAsO56gEikFsDLncMOiuYaQOVLSyzi9xXA7USvJXcNGkBbh1CNoU4V wIvhMuajNxlAlAdkAsSwFMCnrLKHh28YQAuZ+W6RBRTAN9AkCL+VF0BGb53v wWUTwAEG3c+uyRZAwiN2JRjJEsBVLXIF4QAWQHzp0FIZHxLAo6q2wBUmFUD5 8zmUfYARwC0f+yUMWRRAtA8lzYzUEMDP+ZZcunkTQDNwHhr/MxDAwBKpYiWo EkDmXZk4Li0PwCr4aiqd2RFA4v35K7TXDcD8+2b4T/gQQGUnd0cAmQzA/p5O wb0kEEBkc/hRoj8LwIh4bYvcew5A5nvjxo/sCcB/ZmPGPrMMQO4N62NDsAjA x1fuy/EFC0BywvbvTFkHwBb4dm5lMAlAfQAfpBwZBsDbTI+txnUHQAv7sMI3 3wTAOHZK3V6/BUAVGEfQqIoDwBl9OSwB3gNApb75BeBMAsBLuJmqoxYCQLKH sCpt9ADA9LVI2qYlAECDGqJzi0T/v1HKJPnXjPw/rzgc4sjN/L/HUjVTDiH5 P9Obni6yIfq/nx9r8YmA9T8EElrLJ6P3vyDVe1B8M/I/Lc0dRknv9L9F5WzY G3PtP1wBtZUBSPK/+sSnqZ7Y5j8wkQprjJzvv3+Z5vif5+A/mKm7Zm0+6r85 POvGV3XVPxro3gJnO+W/tjbPLw74xD+vtvUY9ijgv98sINWWmYU+55XAbg== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.505}, {0., 12.018296464835675`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.505`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-10., -0.505}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.6580543068801813`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2763977779480133`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2763977779480133`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-2.2764, 10.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054368526371*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2.478589045940098`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "2.478589045940098`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-2.47859, 10.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054421228593*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAel2r+v//I8BDZVTvALQnQNMs5qjE sSPAZrzxQJBWJ0AfLiXA9FwjwGDr/ekg8SZAOe0ep8MNI8CFFR8QSZImQNiQ ljsgwCLATUCoaS01JkBrZhI56GsiwLRQjqUI0CVAy/lIBk8dIsA7hchDgHEl QB+/gzwhyCHA5P4B5OUKJUD4aDwggXQhwGbUav0ApiRAn9Cv038mIcDylffJ vUckQDlqJ/Dp0SDAULaj81vhI0ChwVnc8oIgwDE5Kg+egSNAjv0Jdok1IMBD zvMmmiMjQNzWfPEWwx/Ae60M52m9IkA4LluWWCYfwJRlYS7jXSJAe+lBDXF8 HsCF0xZkJPYhQMhtJN+k1R3AWrisHRaQIUCxbXxQFjodwLKZu1+3MCFAgNHc k16RHMDILdVzD8kgQOuwsnbk8xvAWTYJWxloIEA89JArQUkbwJTr5Q2X/R9A mABrO7mhGsBHabATUC4fQI+IuupuBRrAnM0WfnlsHkBtdBJs+1sZwDsPZfbH mR1A59vfjMW9GMAFhs7vitQcQGsMqQirIhjAoiI02aoSHEDVoHpWZ3oXwF60 CYa+PxtA27DBQ2HdFsDgFTUzU3oaQMgkEQMyMxbA5Au7ILCjGUC/YVwdHowV wFIseWFB0BhAUhod10fwFMBY+sNMYAoYQMs25mJIRxTA05ryQAMzF0DgziSO hqkTwL7vMSc1aRZA/y9fFOAOE8DJdQXrnaIVQAX1oWwQZxLATvVlGznKFECm NVpkfsoRwJ/702Zs/xNALtoaLsMgEcBh8zwWhyITQFL6UJdFghDAgAqMxjRT EkD+xgW3xs0PwIZPKwLjhhFAJmF64698DsDDZdYF+6cQQIXy2U4UQg3AM5jW SEetD0CxS0peJu0LwASB3WZ55A1A8jayI2+eCsDo2BL6kCAMQGoZBSgzZgnA nJw2UKJ3CkCvw2jQpBMIwPZWoQnKpghALGW3t5HXBsAVh/wPhfAGQL2Y/VS1 oQXABJ3Kb1Q+BUAblFSWhlEEwPXRo7J2YQNAsYaWFtMXA8CCfIUIC58BQBRB 6TrNwwHA3+bnkRJ4/z+LjTMV/nUAwKuc3+DS1fs/c6LRXFR9/r/3Wy2FiYP4 P2q5XdcH2vu//X0U06b99D/Rvr/PsWP5vwT84LhVyPE/0lNDELe49r9Q6la2 W83sP/sMtrwpGvS/WthBrQ5f5j+TtP7mkqjxv75CS5CMk+A/i9fRsq4E7r+C xxOFihTVP84iUpMkEum/Ni3JtrukxD8QGh2jYhDkv1QqCUiKUoU+pJvBGQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.627}, {0., 11.851569632579986`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.627`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAel2r+v//I8BDZVTvALQnQNMs5qjE sSPAZrzxQJBWJ0AfLiXA9FwjwGDr/ekg8SZAOe0ep8MNI8CFFR8QSZImQNiQ ljsgwCLATUCoaS01JkBrZhI56GsiwLRQjqUI0CVAy/lIBk8dIsA7hchDgHEl QB+/gzwhyCHA5P4B5OUKJUD4aDwggXQhwGbUav0ApiRAn9Cv038mIcDylffJ vUckQDlqJ/Dp0SDAULaj81vhI0ChwVnc8oIgwDE5Kg+egSNAjv0Jdok1IMBD zvMmmiMjQNzWfPEWwx/Ae60M52m9IkA4LluWWCYfwJRlYS7jXSJAe+lBDXF8 HsCF0xZkJPYhQMhtJN+k1R3AWrisHRaQIUCxbXxQFjodwLKZu1+3MCFAgNHc k16RHMDILdVzD8kgQOuwsnbk8xvAWTYJWxloIEA89JArQUkbwJTr5Q2X/R9A mABrO7mhGsBHabATUC4fQI+IuupuBRrAnM0WfnlsHkBtdBJs+1sZwDsPZfbH mR1A59vfjMW9GMAFhs7vitQcQGsMqQirIhjAoiI02aoSHEDVoHpWZ3oXwF60 CYa+PxtA27DBQ2HdFsDgFTUzU3oaQMgkEQMyMxbA5Au7ILCjGUC/YVwdHowV wFIseWFB0BhAUhod10fwFMBY+sNMYAoYQMs25mJIRxTA05ryQAMzF0DgziSO hqkTwL7vMSc1aRZA/y9fFOAOE8DJdQXrnaIVQAX1oWwQZxLATvVlGznKFECm NVpkfsoRwJ/702Zs/xNALtoaLsMgEcBh8zwWhyITQFL6UJdFghDAgAqMxjRT EkD+xgW3xs0PwIZPKwLjhhFAJmF64698DsDDZdYF+6cQQIXy2U4UQg3AM5jW SEetD0CxS0peJu0LwASB3WZ55A1A8jayI2+eCsDo2BL6kCAMQGoZBSgzZgnA nJw2UKJ3CkCvw2jQpBMIwPZWoQnKpghALGW3t5HXBsAVh/wPhfAGQL2Y/VS1 oQXABJ3Kb1Q+BUAblFSWhlEEwPXRo7J2YQNAsYaWFtMXA8CCfIUIC58BQBRB 6TrNwwHA3+bnkRJ4/z+LjTMV/nUAwKuc3+DS1fs/c6LRXFR9/r/3Wy2FiYP4 P2q5XdcH2vu//X0U06b99D/Rvr/PsWP5vwT84LhVyPE/0lNDELe49r9Q6la2 W83sP/sMtrwpGvS/WthBrQ5f5j+TtP7mkqjxv75CS5CMk+A/i9fRsq4E7r+C xxOFihTVP84iUpMkEum/Ni3JtrukxD8QGh2jYhDkv1QqCUiKUoU+pJvBGQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.627}, {0., 11.851569632579986`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.627`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-10., -0.627}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054421259612*^9}], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054439643961*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAEnWZ+v//I8BTWM6rEQooQJJWUdi9 sCPAlM9uy4KrJ0CVmscD0VojwAFFGA/dRCdAxCuR4JUKI8AduStC4+QmQOe7 0aLtuyLAHExrO6uGJkCNrtCymmYiwD9uj9hRICZAX+4idPkWIsDypYdUqcAl QLSQM4OtwCHAv96ojNZYJUD9Mbt39GshwMw3sc++8iRAciCWHe0cIcDroU1F XZMkQGpxLxE7xyDA5iKcy8QrJECPDxy2OncgwBIzp8rkyiNAqKx/QM0oIMA6 5rtZxGsjQIdYQzFqpx/A4EcQQ18EI0AX8i1EnQgfwMthZjq4oyJArVCV8npc HsB5KsXLwDoiQCut6mt+sx3A4/Szc3/TIUABpOZH5RUdwILjfDoCcyFA3V9f v/ZqHMChYkRzIwohQBK2fplryxvA+JDCGQuoIEBN0RoPix4bwLdBaqKCPSBA cOqkT9B0GsDXmLU8VKkfQOud1fJ41hnANMyg4DzlHkBsFoMxzCoZwJ1juckZ EB5ARinX0oKKGMACk/eKlEgdQAc6GT9f7RfAVdnkiXeEHEDPD9hG5kIXwKF+ qIsdrxtA7389sdCjFsB+E4j8becaQBW1H7dl9xXAu9RK91UOGkAj6O+HIE4V wMrYbbN9OBlAibVmuz6wFMBPmwqnXHAYQPZHWooHBRTAf0e3FI+WF0C7dPS7 M2UTwAMNPSB6yhZAaJ98uIXIEsAfLeKxpwEWQBuPgVCCHhLAnrjYZNcmFUAm GS1L4n8RwOwl9BjJWRRAOGhV4ezTEMD65rQ6cnoTQKJRJNpaMxDA3fiVg9io EkDpccI73SsPwL+KwqdL2hFAmso1+lnWDcBgIjVw+fgQQPxX9n2dlwzAoQ9W jGIlEEBqb7A4Nj4LwE7TiggcfQ5AqIJGiRrrCcCP/K5kdLQMQJbKKZ/FrgjA NKfEQR4HC0CRnAbsxVcHwP7qEQiIMQlAPaMw/owXBsC2yhco4HYHQLilNqaf 3QTAQjBBgW/ABUA/MjaFB4kDwOzmqGAI3wNAd/OCKTZLAsCjrp5CohcCQLw+ yQS68gDA0Oa7WowmAECfC9frEkH/v4N8Falljvw/KAO2WD/K/L+p9gyNZCL5 P8oOiDMWHvq/YdidNaaB9T/Og/SYep/3v1673uRkNPI/6gxUbInr9L/lj4g9 g3TtP6WNa2svRPK/j8VzyqXZ5j+F7zrqxZTvv5b+j3tV6OA/8uuE2YE26r9c 17vDJ3bVPyK7A95YM+W/U3PMyr/4xD8zkg7yxCDgv0e/a+srmoU+ovLJzg== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.504}, {0., 12.019666069925881`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.504`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAEnWZ+v//I8BTWM6rEQooQJJWUdi9 sCPAlM9uy4KrJ0CVmscD0VojwAFFGA/dRCdAxCuR4JUKI8AduStC4+QmQOe7 0aLtuyLAHExrO6uGJkCNrtCymmYiwD9uj9hRICZAX+4idPkWIsDypYdUqcAl QLSQM4OtwCHAv96ojNZYJUD9Mbt39GshwMw3sc++8iRAciCWHe0cIcDroU1F XZMkQGpxLxE7xyDA5iKcy8QrJECPDxy2OncgwBIzp8rkyiNAqKx/QM0oIMA6 5rtZxGsjQIdYQzFqpx/A4EcQQ18EI0AX8i1EnQgfwMthZjq4oyJArVCV8npc HsB5KsXLwDoiQCut6mt+sx3A4/Szc3/TIUABpOZH5RUdwILjfDoCcyFA3V9f v/ZqHMChYkRzIwohQBK2fplryxvA+JDCGQuoIEBN0RoPix4bwLdBaqKCPSBA cOqkT9B0GsDXmLU8VKkfQOud1fJ41hnANMyg4DzlHkBsFoMxzCoZwJ1juckZ EB5ARinX0oKKGMACk/eKlEgdQAc6GT9f7RfAVdnkiXeEHEDPD9hG5kIXwKF+ qIsdrxtA7389sdCjFsB+E4j8becaQBW1H7dl9xXAu9RK91UOGkAj6O+HIE4V wMrYbbN9OBlAibVmuz6wFMBPmwqnXHAYQPZHWooHBRTAf0e3FI+WF0C7dPS7 M2UTwAMNPSB6yhZAaJ98uIXIEsAfLeKxpwEWQBuPgVCCHhLAnrjYZNcmFUAm GS1L4n8RwOwl9BjJWRRAOGhV4ezTEMD65rQ6cnoTQKJRJNpaMxDA3fiVg9io EkDpccI73SsPwL+KwqdL2hFAmso1+lnWDcBgIjVw+fgQQPxX9n2dlwzAoQ9W jGIlEEBqb7A4Nj4LwE7TiggcfQ5AqIJGiRrrCcCP/K5kdLQMQJbKKZ/FrgjA NKfEQR4HC0CRnAbsxVcHwP7qEQiIMQlAPaMw/owXBsC2yhco4HYHQLilNqaf 3QTAQjBBgW/ABUA/MjaFB4kDwOzmqGAI3wNAd/OCKTZLAsCjrp5CohcCQLw+ yQS68gDA0Oa7WowmAECfC9frEkH/v4N8Falljvw/KAO2WD/K/L+p9gyNZCL5 P8oOiDMWHvq/YdidNaaB9T/Og/SYep/3v1673uRkNPI/6gxUbInr9L/lj4g9 g3TtP6WNa2svRPK/j8VzyqXZ5j+F7zrqxZTvv5b+j3tV6OA/8uuE2YE26r9c 17vDJ3bVPyK7A95YM+W/U3PMyr/4xD8zkg7yxCDgv0e/a+srmoU+ovLJzg== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., -0.504}, {0., 12.019666069925881`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", RowBox[{"-", "0.504`"}]}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-10., -0.504}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054439677796*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAYyig9P//I8BtDuLDdAIowA3kEOQR WSPAMsw9cCQ7J8CcVpBEGaQiwFYrGHVxYibAduGewx77IcB9rk0DfZclwHm5 EdJ0VSHASdb5EefPJMBhSJNRwKEgwJPa9zOs9iPAKd9H3xP0H8CHnWdANisj wFmbhv2RiB7AlKneM95NIsDb8Y06sSMdwBvHomWjcyHA83iztMzWG8D8psAQ MKcgwNVt9hDTbRrAaldBieKQH8BNk1eq1RwZwCsSqVHc7h3AGFOBYnnSF8Ca ReLw4FIcwK6AyPwHbBbALgT01jKRGsDa3i3Ukh0VwKpr5njW6hjA0KqwjQiz E8A8BhFbpR0XwBgR/GUfTxLAF4lZIA5VFcD2p2V7MgMRwHLuek1ZpxPAO1nZ 5WA2D8B+iQRTadARwLfDI09VlgzAfNjvGIUTEMDHCal8H74JwOvjjgEJVQzA e4S/5yvzBsA/ByARroMIwFxgEs0wWATAIQVXQIjgBMDRF6B2C4UBwB1eaYFC 1ADA5GDUNL3D/b8E+f9nkjb6v277ivfnl/i/zgubUL07878hTbdCvvvyv4YX BYO+Kui/WcK4BAt/67+cVHIYCpDXv8BY7pTwJeC/MDjRBrvlhD/iBqNtfAfE vzDak0L559Q/d0Kt1EGJxT+/mMYv76nhP6T00/Qop+A/Gc33UKqh5T/4E4uL HyzrPxrojUsV0uc/XrD+lQa+8j94/H0zh1zqP5cfwt1RVvg/F+h3dOeP7T94 zAwxrI79P118HxYZevA/GOHwfa2bAUCQg2xNeobyP8j6HmkMQARADni8OEaf 9D/U37sWKdcGQOj5mfNZ1vY/TOkdAHCmCUAnVoUoUWf5P5eRQ2++RQxAB1T9 oFTw+z9OXi4aNx0PQPLqjeUk0/4/MfvDw7bzEEAu/nZCjuQAQKWWUr3VQBJA j82DflNTAkBPxMPUCaoTQKJ815or7gNAY8EWr0H7FEACvGIjB3kFQCQkoWrY RRZAzn/VDdQFB0AaGQ5EhKwXQEHPp7xTvghAet1c4DP7GECAZgqxA2IKQBA0 jpr4ZRpAo3g7opsxDEBU8PY1HMobQFw9CgbdAA5AAnxBlEMWHUAf3FKJp7cP QOaZbhCAfh5Aql4AMDDNEEA0h31PwM4fQLfmsA95sRFAXIM31oqdIECqJc2P 3qsSQPX1S/VkUCFAjpBoNZikE0BDUNH1QPchQFxrljIPjxRArPNHhSesIkDi xuWgu48VQMl+L/YPVSNAmkmv5JWBFkBjKKD0//8jQHbVV7pheBdAvkzHTA== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., 10.}, {-12.004797097534913`, 5.86756030236335}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAYyig9P//I8BtDuLDdAIowA3kEOQR WSPAMsw9cCQ7J8CcVpBEGaQiwFYrGHVxYibAduGewx77IcB9rk0DfZclwHm5 EdJ0VSHASdb5EefPJMBhSJNRwKEgwJPa9zOs9iPAKd9H3xP0H8CHnWdANisj wFmbhv2RiB7AlKneM95NIsDb8Y06sSMdwBvHomWjcyHA83iztMzWG8D8psAQ MKcgwNVt9hDTbRrAaldBieKQH8BNk1eq1RwZwCsSqVHc7h3AGFOBYnnSF8Ca ReLw4FIcwK6AyPwHbBbALgT01jKRGsDa3i3Ukh0VwKpr5njW6hjA0KqwjQiz E8A8BhFbpR0XwBgR/GUfTxLAF4lZIA5VFcD2p2V7MgMRwHLuek1ZpxPAO1nZ 5WA2D8B+iQRTadARwLfDI09VlgzAfNjvGIUTEMDHCal8H74JwOvjjgEJVQzA e4S/5yvzBsA/ByARroMIwFxgEs0wWATAIQVXQIjgBMDRF6B2C4UBwB1eaYFC 1ADA5GDUNL3D/b8E+f9nkjb6v277ivfnl/i/zgubUL07878hTbdCvvvyv4YX BYO+Kui/WcK4BAt/67+cVHIYCpDXv8BY7pTwJeC/MDjRBrvlhD/iBqNtfAfE vzDak0L559Q/d0Kt1EGJxT+/mMYv76nhP6T00/Qop+A/Gc33UKqh5T/4E4uL HyzrPxrojUsV0uc/XrD+lQa+8j94/H0zh1zqP5cfwt1RVvg/F+h3dOeP7T94 zAwxrI79P118HxYZevA/GOHwfa2bAUCQg2xNeobyP8j6HmkMQARADni8OEaf 9D/U37sWKdcGQOj5mfNZ1vY/TOkdAHCmCUAnVoUoUWf5P5eRQ2++RQxAB1T9 oFTw+z9OXi4aNx0PQPLqjeUk0/4/MfvDw7bzEEAu/nZCjuQAQKWWUr3VQBJA j82DflNTAkBPxMPUCaoTQKJ815or7gNAY8EWr0H7FEACvGIjB3kFQCQkoWrY RRZAzn/VDdQFB0AaGQ5EhKwXQEHPp7xTvghAet1c4DP7GECAZgqxA2IKQBA0 jpr4ZRpAo3g7opsxDEBU8PY1HMobQFw9CgbdAA5AAnxBlEMWHUAf3FKJp7cP QOaZbhCAfh5Aql4AMDDNEEA0h31PwM4fQLfmsA95sRFAXIM31oqdIECqJc2P 3qsSQPX1S/VkUCFAjpBoNZikE0BDUNH1QPchQFxrljIPjxRArPNHhSesIkDi xuWgu48VQMl+L/YPVSNAmkmv5JWBFkBjKKD0//8jQHbVV7pheBdAvkzHTA== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-10., 10.}, {-12.004797097534913`, 5.86756030236335}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "10.`"}], ",", "10.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{-10., 10.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", "\[Tau]", "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.658039600456938*^9, {3.658039673297347*^9, 3.65803968933582*^9}, { 3.658040092506407*^9, 3.658040110516321*^9}, {3.658040211598249*^9, 3.658040221785771*^9}, 3.6580402563421993`*^9, 3.658040670333693*^9, { 3.658040839381958*^9, 3.6580408615986347`*^9}, 3.6580420888164*^9, 3.658042243804903*^9, 3.658054439726162*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[""], "Input", CellChangeTimes->{{3.6580404241717453`*^9, 3.658040424337635*^9}, { 3.658040464296049*^9, 3.6580404993369904`*^9}, {3.658040704127676*^9, 3.658040706206793*^9}, {3.6580408516691093`*^9, 3.658040853347577*^9}, { 3.6580410024251747`*^9, 3.658041030206706*^9}, {3.658042319476881*^9, 3.658042325780607*^9}, {3.658042366044169*^9, 3.658042384694916*^9}, { 3.658045025032262*^9, 3.6580451206180143`*^9}, {3.658045189522963*^9, 3.658045202138897*^9}, 3.65805448733228*^9}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtlmk41Hsfhy2RZVBiBpHlL0PZUqjofH9aFZH9VHSQLOkhSzuFxKHlkKIs ZcnSclJS2vj/UbaxZSyTdXbGOkJHIs95rut58bnuN/f7+6PtG+p8QkxEROTx v/sfo4cPfltexghN9Xsax6T1UWS+ylzfIkbEmllefiihj055cf6p+IERI2UN HUxRfeRJP78UOoMR5bVvPI4vUJE1XiDF5GNEGzuoPWCMihbSf6wjWjAiTDzu YkgLFZ3fW2gXk/Wvr2OQHZ5KRZGFi49ELDFC961xgJsqFYUi/82qXjoEjXE6 bbOSHnq58nRIfqo2ofQ9TvOs5np04XrLCYMmLaLWQCsi01gXJTNoYSkcTSJJ wrp9qz6GXnyzDit1XEeoJjwO2GamgwbrMP1f99WJo2fchAf0tJGqUpmH7bga IR8ZfrpWQwux38UwI46qEpyV9CA1u3XolepnrbYSCvHwfobjLiN1pNix/73s GjJxK5vW9sZEDUWLn23edU2J+Dz2fWT3VhUknKSkP+1SJLoc20YlV5PRtNnC 29mdq4kvB0ZlbaSV0JzPI70+dQXCan6hbah1NdI6VNBcWytL/OnS6TlgqIAC pnTWhz6SIn7p5J/vmJNBVWK3xi/YSBDJKPCDxn5JZFZ/wX+fihiRbkGvym0S RcHLeQ9G3JfwNQMLU9yBH5DvOulsmvMdbzY85mkzJARFkvWpJXchztToA/YG NqQ8UMmutxLi7XKxL11GWSC/aY6WqiXE2c7W48zHLCA/8/Sw75zCNVoKrRwN WCCFbLpzFibx0sqK1ssGTBgPkOlE+ybwKWs0e+NYP5RXZLclMAW4REWz69f8 TnjR72ay9okA56c9e2xm0Al/iyr8VRohwA/UaEc3l9KhyC7WgSEpwJVi5pg1 lR1wb+hEi4HRCJ6/eKeotr8dolaa0Jov8HGT2dgT1Q5NcN5wZIPPLj6eOjHm SD/eCGec8pLnSHx8r/1HctiFBgjJWnNgXS4P5zqUbHIpqgNvk/mG0DouXp6S 8VedZC3s8qiuU1zDwXmUiXyTugpwTsx32sVk46K/9wkitN6Ad8XV/oi/2Ti/ 02iq+lI5RFH2fuvcx8ZP+Arexpi/hOR91GgJZTbO7S/OHaGWwr1zUlIWbBbu 36NwY5L/FF73NGlkRLFw5Z16mG9wIXxa+aykfj8LjzujVNhlmg8dljc3z5NZ uFqdyMZhYQ4wA0Kq9LlM/ObAPa/o+AyYzHDcf/glEy8oLnKNVE+FxXrTzqTL TJyvZGxYFHYNZOZX//Hejom3Zritj/IPAxX9GcGoChPXx0+z9hjcA4cXJQKL 5iF8/EuzvDD0AZxcFbyc4T+E+0jInZE5nA+Jp42Uf4gM4f+Bc2Pd5wqBMC1D H8wHcdeKmncpz5+C2csPGfCwH2ecNi9WFikHclnrHtvwr3j7SrcYIBFgpph6 9DHpK75/TA1J0ghwDHcJkylm4KTAvltGSdXwpxkju7mvB9+dvm32vngtLJSx Zg7t6cZjCyW2tQo/w+Cr2bzDKnR86AWPqH5KA/tg88WuqEZc3T1fQs6BDrIj cty7rxtwhQ9+Wxpz6dDkx6e5TdbjNKefB6kzdLA9lpHV9Ucd7pC58U1deifs dvqxvWtnLf7K5er9K1+74GLIxZmS1e/xitvTEmDPgBcnckeOZYbjLUHx7x6w +uGjNApLsTgM2XRDJyPqANw6ibSLza9Am8z5nN2nBuCVQ8OBYJs7IO2rcVJ6 bgCCjvZTK+4UgcGTa6ltIkPwycef7FVVAdRwP5pJDBP2Br7eO2D/DjaRtH8u PWBCQ8iKc15978EH+hsTK5nQfCm/x2u+EpRrV1XRfjBh9ECovYlqDXSfHSOL h7Jg2u+pnKlLAxTf6LdLt2ODsazKgd83NoIqfQ9NPJANJ1/GJ8SIN4GEjtnF NfFs4C55Lbe/okF52YiZ8gc2MNJXTYcptYHd81H5eF0OKO+INsocbwO+uVof dwcHHk/PbvHxbYfjG97MDLpzgJ/hE5a0/QsoGpBQZiIHvLnbR7+OdgB3u7q8 NJcDly3DpCbd6ZAd1NOwaoEDOcnFemK1dDh3Ncm5WIELvaZKxzdkdYKhcZTw 4jYuuEZP9F2064YSyVLf24lcCG/HFm5VdMMcW8aWf58LqdgRlQKsB+LU/z77 8SkXWhvrXGk/e6BnQXVkpIULtuTclrXPvoKHx85fciQe+Ad1j5mo9AI777aH jRoPrn0kyeyO7wWGdkHvMJUHNb4X9p7y7AOaQk/uNRseMF+X+sU09MGTR8ev nT/Ig2UpftydLf0gHeLZ2vU7D6xLnfGPpAEw2HTrZNN/eHBELGmg/fwAqLgP etHP8eCCG/6Tyx0AVr3aA34sD9783LhVrnIQTtpdVzRM54HKozjGcwsmXJ94 tX4zzgPSDvMmxwwObPe7k9AZxIfko/rPKxs5IOs0+9vaSD6svLj29sZFDtTM ndwQfJkPYhWiR1b6cGG9d1+eXhof5k1bBVUbeGCfFLuHVMkHrm6AtHEVHxqJ ovE0xWH4QLpvS+IJwD/wCuPBp2EwD7l83E9VCC5Jvdv6dgugM0/kyNstQtAt XipIdBZAeFfcIdIhIdgum2uDtwCeWyfuKE8QwsbUdNe2SwLQk02hrJgVQlfO SHbkKwGolOTRClqnoUlsOKNDdxQWWZ82c67OwP5nQZYMhTH45Ca7wnfyO/hP SYi0S04AdnihOqxgCTiR+oHnSoWwfilC7vI3UfRHYJ1y3uI3KDm83MRxl0Cp ajm4bs0cKEjIdCfESqFkS7HyM3fm4VjV5ymzbFm0rOOUI379J+SIp2deWZBH qcnz9Mezv4BJC2+MV1iNrtwMnaBQRdFon658Zq0iYpcJv8WSxJF/WvqPliNK SNbxfcI6zgrU/cX7lOSoMhoI3MfQxCXRb+6vqQpZFCQ3pse37JBClLjGJAsT VZSUp8E80yqDBDMBW4x5aqiyN7exSFQOPR8/5r8hTR3VG0/tkbJQQLwbyrBH dx0yhDj3yaJVSCnC3du0RxO1KdOzNP7t8dGYjUo5b7RQlW2AoJqniIpkGFaP orXRPzcyHU/9XIMmKhoT09x0UJX22YPuhspofOtaqqImhozVgqsV7MmoSNx2 8K4Ohhz+HDdb60RG3q2Rd1X1MPRPfOeAnjsZdR1vFdc2wlCZwe2h37zJqOpW LNPECkMemr0pYZFklMIdvn/QA0MVmk+yWNlktCWlnJT0F4ZirBTYYxNkNHmE VUtKw5Br8FbvX9/IqGS9/KWUdAw1t1Upr54nI40PAYKMHAyV5hfoWYpRkCRf ra7oKYZ8/VYNXiNTEMMq9sqnegz9mr951wgo6LbkcwtbGoba1lLidu2mIPsv vRO0Vgx5YsuPDu+noGr/LZ70Lgy9s392M8GFgp6kDm9lczD0cLFyhB1AQX6e SsITwxi6vi02YeEUBWlSbYoFoxjatVn3iGI4Bd35mKk8PY0htcbG/J1RFOSQ WN8cOYch66xnlKOxFCTlPHt1fh5DJukmNREJFFSjrm0VtYihuc6d+TeuU9D/ /ydKDe+uKEyhoP8CsOwyFg== "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtlmc813sfh4myk/n/G2X8rIw4SA7l83VkHBmlUopuyiiJjI4IWS11UIpC siNOkVCS78/IHsnMCv+FkLJKxn3u1+t+8H5dz65H14O33GkfO7dNbGxsBf/u fwxlWX/f2CDI7r3HGWyvlFFAJnVxcJUgi33dtYyLlJGXE225/CdBRlXK+0QU KiPHrstrPvMEebvyYQN7jjLai7O4R5kEuRghS2dPVEYriT93kG0E6cP2oXEj UBldNss5EJ5CkDxVu1W/G/7rz1nNZttDkOcP1zwsqlVCPshdR8JJnvzsbfvG sEoRFXNd9M68K0dWccauqjYpoKDbbW47m2XJJ57bHiz3ESimv8U3niZDspSq tmh2yqOi73t9X9juIMvZF1HDgBwaqSdU1h9Jk5I619Wc2mWRhOjLYxbTkmTx 1V95T2Jk0Pib8FH/kxLk/awRbZlH21GJxHvZjjwKGawQ6b4SJIWEP/5ZwSci Ts7xWpsLXpFAoRx/tZpcEyVF/nZ9SI2koLlZSmJBjzDZNlcYvHhcDH3TXnm9 8IcQuSxR+3aHrQhadMlWGpQWJK1ZL1yFhIWQ7MGs1tpaPlLYNdS0uVAAeXyV V/TJ5iapk8dohDcPqtoUOx1kvJlExozS4DJOpN0Q5G5O3UQeNo4z/U2HDZ3f yEibsF/DJl7WKHt5CTKPzNppPV7CNI5U65Kb0xB++/ANSvQSFjxwRW2X5TSc qnn9dt1zCR9yfaxayTcNElpRCm36S3in+3CnUNwXiOejLp3rXsQCBWV5OYlT EFZj/CiLbxFnju9MCcufgBNaDz6LB8/jR3Rqg/8IHfQ9VkTWneexlJmH3aVM Ooin/ceCYT6PnxcyDtxxp0Mnn2pxidg8NpQaG1yZpYEFqyryYPF3fCK0v2iI jQZ6aROKMRPfcMn6zcT3KmMgzL/Xa81+DrtVRzvGiwxCfBo1tcFwDnt6pQTm JA3A1t8WW+7KzuH8C/xP5qUGQLzQ8ZhV91f8Ti5MdK/iJ+BGxr2PV2bxvZyF /GiDPpj24O1G5jM4Jqi2SfNiF0zcqdXp2TaDjTbdZC4sfwRGcUjCuYFpXKp/ 7cjy1Y8w8mvW7t6FaZys/c66NL4TPsR1ddISvuCpiWNFhp4d8Ko8teP66CS+ VLHh3yjSCEVDRzWlnk3igbPVSvvVGuAfdsG4F/6TeL7m4Z79JvWQeyDCpn/L JPbz7hfpDqiDh5/d2nZqTOC6t6aepiMk3OeU0ahaYuGfCr7nZ+Yx3N3Zf8eO ZGHGXyYxZ9SrIMbf0urKYRbuOpk4G5deASFcmi2tQUy8tFvsplBiCVxWn1B1 MWFikUY30O8thkuHMmIW+Zn4l+H8tjBKEXiniFjuSGdgtVxVwQGDfPAkW/Nf nmPguONvL2vX5YAH4xqPuQ4DfxYo+rPHNhOcNX80+tTTcV+K3hv+oURwPFKs whlPx172upp67PHgEOR586EDHX9ZzjTYbh8J9mnEhDpBx08OfjUdaT0NdrVD 5tXTNFy3PfrMeaEUsJl48PRoGQ23NlZnN9LTwVLAlmvqKg3XvlZPCDDKBpNj 1fXCIjSsubDv+q2pZ2B3I/OQyeg4Dghw6HrA+Rycy6OG/P8Zx22Bi1shtghC KGbfu83HccREf/GXzBIo7WvenhQyhqN+dXPvwm/ApihvUq/1Mw49fzmWbawG xF+2m1r4fcLmr54MYb920Ba+ezKf/xO2+qp4OlWpA2z9DvvyPu3HQ6tGtj2f OuCmdn9q62AfZimGqKk/+QArL8fmD5r24p9BNP/ajU4YKVnIcKB24a9GF9La i7rB6vzu1Z6QJpw0pa3i3P4J+CYE6A9KG7GeyiAZ/G+fza7MlqOzDdhieqFT 9+wAWJxKSun5Tz1+o7BaGc02CPsP/TTo+aMWS5pIBoarD0Gwd/B8nlAF5uLk GbfwHYEfHmq1KlGvcXqMITvX6xH4y2XoXt5CGebYHMTusD4CfkeMtPP6SrDq hoFL6a3P0BPAOW5jWIC7c/l1Uq1HocgtfeJUsh/mGsig2B0Zg0oe5Buv5wC3 f9fMlQ4Yg1hPJPd091UYCzBgf5YwBiU2jZbnje9DQfJ7Sb6PY3Du5JBy+f1c kK6IdOw/MA51Lu7iTlXlUCPzsUpBhwZmZ0vNhq3egI6oTPGgDQ0avTkDnQYr YHPF+2ArTxq0Xsnsc/rxDrIuU1ePp9NgytLHSlOiBuwX39nx8dDhm2uBgNbh RrAWVhfTb6XDLj6q5XG1JmiuEJ7cyaCDZ3H09XCOZrhiwhPydo0O9DWnjQ8l LdCoqn/7jQYD+hO3ffMV7YAXJkNRm24xQGxfqEbydAekF9bbdKUxIP/bgq7L 6Q9wTVmj3OAVA5hJLr63DDphl/PlK43DDHCmG0x9mvoIFj/FX1aoMSFsjy/3 rH0XyEukiUobMeFxzFOlTbVd8O6Dqz3PQSYMaImeUU3phtQCSbcIPyb8iLKM MOLqAZGMKhWeKCZQ+sKf2Pn3wFddKBdPYMKR0JnB4AO9kEGXSawsZoLfB2Il trwXakuWLx0imXCXOEHNIvrAUvT4Ubd2JrQ31R9p+dUHGWymFI5JJliIp7dJ FX6C21+1WiqpLHA/1/tFkzoA/tfL/nJVYMG1Sn7e/dEDUPaT56O4FgtqTgeZ eTkOQscyTksxZ8HeF3a4kn8YHIQKqxQDWUDNjux/rjcK9L+9LPf1s4B/3+5m 2yQavNS/mBKROQG7vcPOuErMAWvjtD/74heoO8rHeXp2CV7LCWBRqTkgHFaq fbPWIPVQ7xJv5HdQXPMXCPvOjjwH7A3b2Bchz2GjmWa/Gd0UHLyx9mMZBDfz 9l6P4EZrujP7hhdW4FTV+6/aqXyobnlHwLzgOjzmSEy+urIV9R1QqA1rZ0Oj LX5N0YJCyPq2a8vGrU1oalBha3KtMHLen+NaFsqJ3BMSf7adEEVCN8SarZy3 oN5OZ68tU2Ko2zklbdqMGxnZlyoLplDQPNv8FV9XXkSJbLqlpymBlu6n9kWf 40eT8x66uxiSaPdyW5x3zlb0fPqUu2qCNIrudkzruLgNMe6IganCDiRgSk8S DhdCov72zlp9MqhlJm1L8jNhdDJcTfRxmSx6ptE4KfteBOXy9htmh8qhXUYZ WV7DomimvOlGwlF5ZKbs9+f6NnE0rS+lLCxDoL0adoJcOhSUy2Ex8kCeQJ+r Y4Kk9SnIuT3ggYQSgZRsjSS191FQz5l2DjkNAo3zDa47mVNQVWzEqKYhgfpF rQ6/PklB8XTWI+tjBPqVLCodGE1BuvGv+G/FEWh4Z8R76V4Kmj0xVsufQKDO MZdx/UEKylPceiU+kUAqh2g6R0cpaPtbj8mkxwTqEfg7IHaKgrYwJetzCwg0 sXnYk2ODgvoNI67WNRBoj3LgjmVlKrq35bmeRQuB5EcvholrUJFV58BMSzuB 3mnuENbTpqJqd13Hrh4CDVge7760l4qe3WXpj9MIdCGwoGb5IBW5OorOubEI lDWdWUW1pyIZZeOnk1ME+u1s38zvJ6nofmWy2LdvBFJUrWSEuFGRzY2G1oBF AgW02jxP86QibruFqB8/CDSjTssnfaioRlrOMGSVQNeCPPvHA6jo//8U6Yz2 /L45mIr+CyxsRyM= "]]}, {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt1vk7lP0ewHFb9iXbzFAJt4xQZK2oz1crpdJCD1HIElketCCKFOmJbNmi JykkiWRpc9/ZxpKp7LsxM0Yjaawh5ZxzXeeH9/X6F95qrv7H3AX4+Pie/rf/ GT52aHplBSPogeM5suJa6MIjylz/MkYUqrQIHRfWQj5OrJ+VixihUv/gVIqA FnJsD/7tP4MRH9rlRkm/qMgczxVlcDCiurzHY80EFS2lLqoQrRgxHboFU6dT UfC+Jwcj7mOETXCDl2YSFV14svyYzxQjfFnnI8SUqcgfeRgqOakTbN3j9l8V NFGpyN9+jxLViA/xgUk6qhtQyD+t7hubVYlQ6R1ZNnoa6HZPS0ACaz0RoTZK /6GFoZJp84AXR1SI1y9rdk4ZqKOhBkzrT8ZaQjEujCZIVUNKCi9PWk4oExfC ox3DVVQR83UEI+iUEtESdy4swVoFlSnVq34qIBMmpW/l3m1ei+TarN5IyJMI jQZjd4Mtyihc8NLH3TcVCN+4yuzabRTEmySnPuuUI47crboeK0dCUwZLVbO7 ZInhgphBmrgCmnN5rNm/VobI8HSX9/ksi1Rtcj/W1koQh+0rlwX0ZZDnD/UN /o9FiUv8/3qJLIqjaoH4iRCLVYTkKYWoc9bCyIAW4rGfIkBcSdPVE6Xzo/Mr OQ++2v3GscvzWhrsRXh0YvKYfvY8Lug3vHOIzQM5SXOf33Y8XOmvjux+IyYk PKBk0cx4uKV83KX9syMgvWWuJVGVh7+TGyd9KhsBUpHjSeuOH7jUwmVdA8MR EEUWXdlLk/jYj++mBw0ZMOEp3oH2f8d3iipKtQQMwKvKrE/RDC5eePar95ny DigZsNVbU8jF+2zF1Z6bdcBzfpm7L4K4+JY282NmNe2QdzDycI8wF//p6u6p /LkN0ofdWzdu+opfu8ZzmZj8DGEiei0fQzj4PoERC7vAZgjW/artspuDlwbq XrKJaYKLR3Nuz0ly8OCTvVe7shrB7778AZWHozhnZkAotqkBnPUWGv0b2LhT +/uerI21sPvkhwY5eRZ+S2ztlIN4FRyLeXR0N4OJhxkJLgW4VYBzZdRA0HMm vrH2n5dJ+CsII++b7tjPxIvP3KyYDy6F2/up4asUmXiod1JeSPELSL8sKmrC HMG1qRbXNHyLoLy7eV1a2AguPL0/aYT3BOpEigpoViP4+r01uYvlj6DNNM5w gTSCVx26LRK89AAYnn7VWmwGXkVJXrCLS4fJtCNW9qUM/Kivj0WqRhIs0/Q7 Yq8ycCOpXOnQiBgQX5A98+YgA29PV7i1O/IiULRmuOMUBk7knOlTxG7B4ZIC rsnHYVxVRrvtjXMSeK8+v5LmMYzz7Z3wOfcsHWL+3qS4yDeMr5aw04ibegCE /kv01ngIv2p7pGZ11RMwKH2bBv8O4IVmQ8f8pUqB9JK+1zKwF6d5RakZmL4H A7nEU08le/HoM7SQyYpqOBJ4PEA8vweX7lV0rVAm4JZBT9bH/m68tp9SeTzt Ayy9HJmx2duFZwhcmJ28VQdDZbM59pR2fKym1LPeuhmszxsvd4Y14SW1Pw8/ yG8Dia9S7Hvljbh+hH3e+FIbNLtxWmwnaXguYUTtPdQOlqfT7neeacDFO0bW ZE63w56ji9s7d9XiF5Pn12aYdkKoX+hMgewbXK3orflUcTeUuD/8ejozEM8p OUmrPDQA78RQQIKJPSQN5h8dTh6AeG+klm98DUzv6jDu9g5A2eHGA+ctUqDx TJL6rbOD4HVqgFqZkgdOb5KkXgcMQZ2LB8mpuhJaX+dZk80YsO9c+b5B69fg E6+WZeTAgEY/octO/W8gY1i7SiqEAR+vPOp2WngPB2IufeGVM2D8gL+1nlIN 9OrEFp7THYEpt2dS+scbYTpJQyVaggmbJSgH/tJpgp2uVo3WWkzwLr0RHSHY DHtp7ozyPUxg/3Za+VzWAnPbFLXPhzGhJ3X1VIDCJ+iy9jTZM8YExR3hmzIn PsFwxqQxHz8Lnk7NGrm4fgb7N+kNtsos4KS5BMRu/wJGm0raGw+ywJm9fbx3 vA12B9aGFz5lwVXTANFJu3YoFCzIlyFYkH07X1Ogth2i5yq+CXaxoE9f4az2 /Q7I1mpnJ/Ox4UT49/7Qg11gFsqspdqwIfAzthRf2QXbUrYl9LuyIRFzoORi 3ZC5avWS7EU20JsaTrT86gYzOzfmShobLEkPW9cU9UKo+XuRom42eHh1fdOj 9MF3rSCxXRw23HwnKb7nRh9cwmSTDs6yocY1ZJ+PYz/kXcq/XiI9CozyF24R jf2wjcu7K7JmFFZEOddTjAbAva7Zo0lzFMxfHMPfSQ7CmAaHiDIfBQeB2MHP wYNwcWyTYcS+UQixxX+x2YPAoQ/842wzChW/dLZKvR+CpEmTFXAbBcrj6z3F JgzwLgo4FHpnFCR3GDcfSWMBf6C8z7AhB26f0ip+38SCqNRGn7kdHBAJXZOk s8yCbSTdVAVLDghU8juIuLDBooTm7efIgQV9OrdaexRmpDqOJtzkAFvDU2xz NQdODjU1xPdy4K1khqXkKBcsz2s8irw1BsZ+V8+6KfHAKPGOYYQAFzpy+Byq jHgg5l7qOC/DhcDO6zaSNjywqMlLv7yOC8XmMTteRfPAUgVZ3d/KBU2JBLLQ LA9eXO+J9/TnAqUgpyWXPgVecaxy+WEuLI/UGbKiZsB183x/ZcM41NlKCLlO zsPdlBjzPxUTgNkvfQjI/Q0JhZl12yN5sOF3kNTVaX5EP7eaN9Y4DQX2K80s u1WI3+dQLV/sHMisEu+KjhRFn9R9O+vtFuB0df0PgywJlP5b2/641S/IFkzN vLYkjcTW31RTevEHGC2BTTdkZFEzlhD4UoAfjfdrSGfWyqGUphXTOxwB5JGc utjqoID4iceKfW+FUNcXZx/hcUXEFP4mU5YqjHbalVNl7pORdMntgoICUUS+ 3hRroqeEvJ8mTvJyxRF3xtNo86gyGsoae6jXJYmKJ057aCevRTuLNqVWicmg 0TuKsFdDBQk15Hd6JaxGCkF2zvrd69GDidTH5pWy6FSEjkJ2hSoyt2+zSqTL oTzxHrPH4WooSucHdYYlj75XNsUk26qjmoIrQikKimhi6xqq3HoM7Rgs40oZ kVCeoOXQPXUMNdX8tKRsIyFn+oV7SpoY6vaYHlHfSUKdZ+mCapswJEGtJ7Za klB1fCRDzwxDbXpTep6OJJTAHss4dBJDig0B9fQbJGSU8Eoy9i6G7J/vdmzs JKFJh5FayWQM+dwXbuvtI6GCDdJXElIx1O8edO3bMAmte+vJTcvGUL2neKTM OAkJc5Qb8p5hKEjEd53DHxLqMYu8VkfDUO/Mr6JFTTJKEi42sWzB0Ln57nvS umRk/aXvewsdQ1rGTuXYFjL64GHk2N6JIT3A0g+bkVFh4thWJgtDor4D43lH yMjNUYHnPoah1q0WMe9PkNF6qkU+dxxDxTy6fYc9GaW8y1ScmsJQ2bJGjoAb GR2OoX28MIehL+atispeZCR6bDZqYQFDf9BpYosfGdWsVTMLW8bQ1hXaQ6sg Mvr/f6Jw36UKl2Ay+g/IoSkd "]]}, {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtlvk7lHsfgC1l35eZoRIeGZGohKI+346WIbTSSxSytIiDNqJI2U6LpYjS yXJsSSS08TyyjbXsy1jGzBhG0iCFLO95r+v94b7uf+D+4dZw8z3qISQgIJD7 L/9zyKjN9MoKRuhcWVd5SUgHXUqnzDIWMUJt9XXJ0mUq8nZm/yqbxwj6jVrL XwtU5NR+bcl3BiOSi1XTA2eoyBzPEGNyMQLPd6kM4VDRQuK8GtGMEe0bs8vC a6no2v5/DoY+wYhfb9DFiBgquvTPYqaACUaMaRXbeCpQkS/y3KbirElQN9xr 2yWtjYpE//RJj9Mg9BhaxYGUDSjwr2aPjQ3qhODRjYJJVC0U09PoF8teTzAK vmvqa2CocNrc79UhNeLzpWC3DXqaaLAW01lOXkv81Wsjpb9eA6kovT5Bm1Al bve1DaaQ1BHrXSgz4KQKIat9llZsroaKVWrUP+eQCXZ5+d+VamuRQpvle0lF EuE6prlXRUMVhQhfabK4o0RYuZ+KjNpIQfxJcuKLTgVCTvkMpiVEQlNbF97+ +EOeqJp+c8doQRHNumZqM9bKEnlDLwNTcXmkfjijqapKktD8et6gW1oWeX3X 3OCbKUZMNcVWGnVJoAqh+xOBe1YTuS4v6Nk6ImhrXaDnAYoQQdFY/0ImVxBd WEl7Nma/hL+7KG18+fk8pB+fPGqY+hOnJVO1ZHL4oCBl7r1kz8djNmX2NdCH IfYZ5WmdGR9/tHvQLiBqGGS2zDbGqfNxgyHBfBPaMJDynU5Yd3zHUyOHvJTo TBBDe7pSFyZx2NSqZxE/BBNeEh3owDf8WOHtDNs0Brwpe/o5gsnDxa2ye/In 2qGw385gTR4PF5poDrwW0A4vBWUfvArg4WhgufT2QhtkHQyz7RHh4a9999m6 iLfB4yGP5o36Y7jksTArfd0vECxq0NgUyMVrLoq7tPPpcG3TmK6rBRe/1hMd 3iJCh8tH0mJmpbh4xnxIp926OvB5omil9nwEj+p140pa14CLwRzdt5aDL5Gl Cd3CSrA4UVmroMjGQ9lbRqqpJXA0Mv2IBZOFjw8eV6oNLwaXsvD+gJcsPNDr 6t+tzCIIJu+f7jjAwsVen0hXNX8JMQeoIauVWTjLfOJK6GIuPL4qJmbMGsZ9 lSsURfAsKOluWJcUPIwnlgfZBVs9h2rR/Jw6y2G8P7RQkKudAm0m97bNkYbx FtdfNbrlCcD08qnQ4TDxsezR5eRXMTCZdMjSoYiJexvt7rZiXIfFOsOO6BtM /E+3KNJumgVIzMmffn+QiR880qoe8usKUHRmeOMUJk6kne5TxqLAtjCHZ9w0 hKvL6ra9d4mH83IXVpI8h3CBfRPeZ188hsg/9ZXnBYZwOUl7rXtTz4AwfI0+ bB/Eb9gd+iT39h/YWvQhCf7ux/PMBo/6ShcB6XXLPpp/L153Llxjq0k5bFWI O5kr1YtHnK4LnCytgEP+x/wksntwmV5lt1JVAqK29jxtYnTjVQxK2bGkSlh4 PTxzeF8Xnix06cdkVDUMFv9Ic6C046OfirxqrBvA+sL2xc7geryw6pfts+w2 kByT5jwqoeOGoQ5Z4//20eDObbSbrMMzCCNqr0070E4lPek8XYtLdAyvSZlu h71H5nd2/lGFX074uTbZpBOCfIJmcuTf4xr5H8ynCrqh0OP52KkUfzyt8ERd mU0/fBRHfrHGDhA/kH1kKKEf7p9HGtnbb4LJAz3mg95+KLalW13Y8xDop+M1 o84MwLmT/dSyh1ng/D5e+p3fIFS7epKcK8qg+V2WNdmMCfvPluwfsH4H3vc1 nho5MoHus+qqM+M9JA/pvpUOZELT9fRu57lysIq80sovYcK4la+1gcon6NWL zju7aRim3F9IGx6jw3S8llqEJAs2S1Ks/qNXD7vdLOnWOiw4X3Q7IlS4AfbV eTBL9rKAs+S88qW4EWZ3KOteCGZBT6LclJ/SZ+iy9jLeO8oC5V0h+ikTn2Eo eXK7gCAbcqd+GLm6fQGH949r7VTZwE1y9Yve2QpG+oXt9INscOHsHO8dbwML /6qQvFw23DDxE5u0b4c84ZxsWYINqTHZ2kJV7RAxW/pVuIsNfYZKZ3SfdECq TjsnQYADx0O+MYIOdoFZEKuKepgD/l+whftlXbDj4Y5YhhsH4jBHSgbWDSmr 5RbkL3Ogpb72eOPvbjCzd2etJHGARnrevCa/F4LMy0Xzuzngea7rqwGlD77p BIj/weXAnY9SEntv98EVTD7+4A8OfHIL3O/txICsK9m3CmVGgFnyyj2UzoAd PP4D0TUjsCLGvfXQqB88qhs867VHwPzVUfyj1ACManGJcPMRcBSKHvhybQAu j+pvC90/AoF2+G8OZwC4Lf1/uRwegdLfeqbS5YMQP2m8Au4jQMm81VNgzITz +X42QXdHQGrX9oZDSWwQ9Ff0HtrGhZiTOgXl9WwIT6R7z+7igmjQmni9RTaY kjYlKtG4IFQm6CjqyoE9hXXnfZy4MGfYwqvQHYEZ6Y4jsXe4wNHyEt9cwYUT g/W193u58EEqmSY1wgPaBa30sKhR2O5z44y7Ch+M4u5uCxXiQUeagONbIz6I exQ5/ZTlgX/nrcNSh/mw51PW46vreFBgHrnrTQQfaGrI8okpD7QlY8mrfvDh 1a2e+16+PKDkpDVmtEzBuXvsEsUhHiwOV29jh8+A2+afjLLacai2k1zlNvkT HjyMNF8unQDMYaHSL2MJYvNSqneG8WHDUoD0jWlB1HJWjj9Kn4Ych5UGtv1q JOhtUyUQPQuyqyW6IsLE0GfNi5019nNwqqLm+9ankujxkq7DMcvfkCqcmHJz QQaJrb+jofJqGZiN/vW3ZeVRAxbr/1pIEI0ztGRSqhRQQv2KyV2uEPJMSJxv dlRCgkSmct+HVair1cVbZFwZsUS+yhYniqDd9iVU2SdkJFMYk5OTI4bIt+qj jQ1U0PncuEl+hgTizXgZbR5RRYNPR58bdEmhgolTnroJa9HufP3Et+KyaOSu MuzTUkOrarM7z8XKIaUAexfD7vXo2URipnmZPDoZqqeUWqqOzB3aLONaFFCW RI9ZZogGCtf7Tp1hK6JvZfWRCXaaqDLn+qqHSspownQNVWE9hnYNFPOkjUgo S5g2+EgTQ/WfftEoO0jIpeXSIxVtDHV7Tg9r7iahzjMtwhr6GJKk1hCmNBKq uB/GNDDDUJvBlIGXEwnFckaTbU5gSLnWr6blNgkZxb6Rin6AIYeXFk70ThKa dByukkrAkPcTkbbePhLK2SBzPTYRQwyPgJtfh0ho3QcvXlIqhmq8JMJkx0lI hKtam/UCQwGiF9c5LpNQj1nYzeo6DPXO/M6f1yajeJECY1ojhs7+7H4ks4mM rFv7vjW2YEhnu3MJtoWMKj2NnNo7MWQA2GNbMzLKixs1ZbExJHqxfzzrEBm5 OynxPUYx1Gy6J7L8OBmtp+7J5o1jqIDf4tDhQEYPP6YoT01hqHhRK03InYxs I+uaLs1iqNW8WVn1HBmJHf0RPjeHoWV0itjiQ0af1mqYBS9iyHSl7rllABn9 /z9RyMWFUtdrZPRfBX0t3Q== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{469., Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-10., 10.}, {0.0005884459652093065, 12.019665775174328`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.658040425947658*^9, {3.658040496000354*^9, 3.658040526927402*^9}, 3.658040714407874*^9, 3.658040868155842*^9, {3.658041017652873*^9, 3.6580410307516613`*^9}, 3.658042332397624*^9, {3.6580423782500362`*^9, 3.658042385044228*^9}, {3.658045082383853*^9, 3.658045121742425*^9}, { 3.658045190689047*^9, 3.658045202649218*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{ "The", " ", "fourth", " ", "graph", " ", "is", " ", "on", " ", "top", " ", "of", " ", "the", " ", "others"}], ",", " ", RowBox[{"so", " ", "we", " ", RowBox[{"don", "'"}], "t", " ", "need", " ", "to", " ", "consider", " ", "the", " ", "piecewise", " ", "solutions", " ", "any", " ", "more"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.658054345187886*^9, 3.658054365131159*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"\[Rho]0", " ", "=", " ", RowBox[{"(", RowBox[{"1", "/", " ", RowBox[{"(", RowBox[{"6", " ", "\[Pi]"}], ")"}]}], ")"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rs", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"m", " ", "=", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "3"}], ")"}], " ", "\[Pi]", " ", RowBox[{"rs", "^", "3"}], " ", "\[Rho]0"}]}], "\[IndentingNewLine]", RowBox[{"sol", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"xder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "1.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], "+", ".001"}]}]}], "}"}], ",", " ", "x", ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "30.0"}], ",", " ", "100.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"sol1", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"xder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "1.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], "+", ".01"}]}]}], "}"}], ",", " ", "x", ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "30"}], ",", " ", "100.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"sol3", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"xder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "1.0", "]"}], " ", "==", " ", RowBox[{"2", " ", "m"}]}]}], "}"}], ",", " ", "x", ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "30.0"}], ",", " ", "100.0"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"sol4", "=", " ", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "'"}], "[", "\[Tau]", "]"}], " ", "\[Equal]", " ", RowBox[{"xder", "[", RowBox[{ RowBox[{"x", "[", "\[Tau]", "]"}], ",", " ", "\[Tau]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "1.0", "]"}], " ", "==", " ", RowBox[{ RowBox[{"2", " ", "m"}], "+", ".00001"}]}]}], "}"}], ",", " ", "x", ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "30"}], ",", " ", "100.0"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.658045408160614*^9, 3.658045432956416*^9}, { 3.6580455247076797`*^9, 3.658045526244192*^9}, {3.658045597736124*^9, 3.658045614793034*^9}, {3.658045663994013*^9, 3.658045664546851*^9}, { 3.658045729581983*^9, 3.65804574485141*^9}, {3.6580457789346027`*^9, 3.658045801516576*^9}, {3.658045848616857*^9, 3.658045852198573*^9}, { 3.658045889297844*^9, 3.658045900273025*^9}, {3.658064509005446*^9, 3.6580645387699623`*^9}}], Cell[BoxData[ FractionBox["2", "9"]], "Output", CellChangeTimes->{{3.658045416412983*^9, 3.658045433421218*^9}, 3.658045526572754*^9, {3.65804559970704*^9, 3.6580456155772867`*^9}, 3.658045665009658*^9, {3.658045731539765*^9, 3.658045745107723*^9}, { 3.658045781687886*^9, 3.658045809437277*^9}, 3.6580458525531387`*^9, 3.658045901915266*^9, 3.6580545456354437`*^9, {3.658064516086637*^9, 3.658064542917067*^9}, 3.6581074493298597`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcBhhdYwDMFBwCvlNiV6 4TvAgJ7Os+qSQMB7GdUeUpU5wKm7JGYzlD7Av1zE+yNwN8BPkreHdCs8wMma uaq7VTXAhmxL2u7LOcA7qx4JsQ0zwA+eh/w0NTfAocrUSqDsMMCYvaC7oMY0 wN949XfaOy3AszTNOJUeMsAHUk3+/7MowMflG1iL+C7AF0lHSxl6JMC+N/t8 W/8pwO/JQe7byR/AtL9JwHqEJMCBPTnTbDsXwGIbbeBBkR7AUTiRACqwDcD8 iSAkb/ETwMcRXazP+Pa/Ckei9QL2/b+ou67mLP7lP1dHfx+odtw/dVMHzpDo B0AZDa/7HwndP+qQGemz/RRAEa86E7px4T9KPOvdN2sdQK3LzUdWVe8/BM9+ iqJHI0ADBuf3Bpj/P/vhZV+1iydApLN8dq64CUAhUG3VDCssQOLKz0Je/xJA XmS0U2xaMECxDLfB5X8ZQLgRYVlYeDJAet/8WtnaH0Cp7J2v5sM0QCA56bja fCNApriJInvoNkC83m45GOUmQN6Jb8NJAjlAnXkDthZMKkCuiOW0ukk7QPzL j2eQCy5AingKwzFqPUAAWqaJM8swQP2VvyFLuD9A/IiPBey7MkBVXDdXz/1A QN80AIgxqDRAMWbmK/wLQkD6b6rG8XY2QNmG3Sj6MENALu4zTz1wOEAHICw0 e0JEQI+nZLnTSjpA0rt3VplORUDpMchxgx48QGluC6GIcUZAirTd/3ocPkCG mfb5+oBHQJ//SYVo+j9Ab9spez6nSEB1XauDTwFBQN6VtAoFuklAakrmURr1 QUDqUjyxaMdKQLzKy7zn5EJAwiYMgJ3rS0CarRR01ulDQCBzM11V/ExA9FpI VxXeREBK1qJi3iNOQAymboh950VAETwPfwRGT0DTdlFAv+xGQC+N6dRWKlBA tNKUBwjhR0C8h2/+E71QQFJtDqR/6khAjD4hrxJGUUB+/Twg3OJJQKt2Uetf zFFAiwUmFs3WSkAwuqW7FV5SQDsUuob030tA+LklEw3mUkAfT5SP0NdMQCXF yf5seVNAbUpOfezkTUChUex1GwpUQKgQReKM7U5AYJo6dAuRVEDe1WOZueRP QIXurAZkI1VApki5Zpd4UEDt/kog/qtVQMj4tFgO9lBAuxoNzgBAVkBff2Hn LX5RQNi3TQdS0VZAVij9EwAEUkA4EbrH5FhXQIdVt2n/gFJA/XVKHODrV0DP TjeSqwhTQAWXBvgcdVhAxM/fYX2HU0DRIML2//9YQPb2bob3B1RAOQPGAA== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.50818453287753, 80.12448273502727}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcBhhdYwDMFBwCvlNiV6 4TvAgJ7Os+qSQMB7GdUeUpU5wKm7JGYzlD7Av1zE+yNwN8BPkreHdCs8wMma uaq7VTXAhmxL2u7LOcA7qx4JsQ0zwA+eh/w0NTfAocrUSqDsMMCYvaC7oMY0 wN949XfaOy3AszTNOJUeMsAHUk3+/7MowMflG1iL+C7AF0lHSxl6JMC+N/t8 W/8pwO/JQe7byR/AtL9JwHqEJMCBPTnTbDsXwGIbbeBBkR7AUTiRACqwDcD8 iSAkb/ETwMcRXazP+Pa/Ckei9QL2/b+ou67mLP7lP1dHfx+odtw/dVMHzpDo B0AZDa/7HwndP+qQGemz/RRAEa86E7px4T9KPOvdN2sdQK3LzUdWVe8/BM9+ iqJHI0ADBuf3Bpj/P/vhZV+1iydApLN8dq64CUAhUG3VDCssQOLKz0Je/xJA XmS0U2xaMECxDLfB5X8ZQLgRYVlYeDJAet/8WtnaH0Cp7J2v5sM0QCA56bja fCNApriJInvoNkC83m45GOUmQN6Jb8NJAjlAnXkDthZMKkCuiOW0ukk7QPzL j2eQCy5AingKwzFqPUAAWqaJM8swQP2VvyFLuD9A/IiPBey7MkBVXDdXz/1A QN80AIgxqDRAMWbmK/wLQkD6b6rG8XY2QNmG3Sj6MENALu4zTz1wOEAHICw0 e0JEQI+nZLnTSjpA0rt3VplORUDpMchxgx48QGluC6GIcUZAirTd/3ocPkCG mfb5+oBHQJ//SYVo+j9Ab9spez6nSEB1XauDTwFBQN6VtAoFuklAakrmURr1 QUDqUjyxaMdKQLzKy7zn5EJAwiYMgJ3rS0CarRR01ulDQCBzM11V/ExA9FpI VxXeREBK1qJi3iNOQAymboh950VAETwPfwRGT0DTdlFAv+xGQC+N6dRWKlBA tNKUBwjhR0C8h2/+E71QQFJtDqR/6khAjD4hrxJGUUB+/Twg3OJJQKt2Uetf zFFAiwUmFs3WSkAwuqW7FV5SQDsUuob030tA+LklEw3mUkAfT5SP0NdMQCXF yf5seVNAbUpOfezkTUChUex1GwpUQKgQReKM7U5AYJo6dAuRVEDe1WOZueRP QIXurAZkI1VApki5Zpd4UEDt/kog/qtVQMj4tFgO9lBAuxoNzgBAVkBff2Hn LX5RQNi3TQdS0VZAVij9EwAEUkA4EbrH5FhXQIdVt2n/gFJA/XVKHODrV0DP TjeSqwhTQAWXBvgcdVhAxM/fYX2HU0DRIML2//9YQPb2bob3B1RAOQPGAA== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.50818453287753, 80.12448273502727}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{-30., 100.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.658045416412983*^9, 3.658045433421218*^9}, 3.658045526572754*^9, {3.65804559970704*^9, 3.6580456155772867`*^9}, 3.658045665009658*^9, {3.658045731539765*^9, 3.658045745107723*^9}, { 3.658045781687886*^9, 3.658045809437277*^9}, 3.6580458525531387`*^9, 3.658045901915266*^9, 3.6580545456354437`*^9, {3.658064516086637*^9, 3.658064542917067*^9}, 3.658107449418679*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcCb7Dhpm75BwCvlNiV6 4TvA73f4uHeQQMB7GdUeUpU5wHFh1xVIjz7Av1zE+yNwN8C4AgWIgyY8wMma uaq7VTXA0RSpgPfGOcA7qx4JsQ0zwB2lSKA1MDfAocrUSqDsMMASRhqDmME0 wN949XfaOy3A4KR8WoEZMsAHUk3+/7MowIEMAtNG7i7AF0lHSxl6JMDZYFEa 9PQpwO/JQe7byR/AJvb4D995JMCBPTnTbDsXwFs3fMp1ex7AUTiRACqwDcBh QV5CoNoTwMcRXazP+Pa/hsNy8m+N/b+ou67mLP7lP2ImlExQ49w/dVMHzpDo B0C5V/AKDODgP+qQGemz/RRA4R7I12TZ7j9KPOvdN2sdQMORa7NUuv0/BM9+ iqJHI0CBYK2URlsJQPvhZV+1iydAAAdtbLFNEkAhUG3VDCssQKWw9SPJ4hhA XmS0U2xaMEDKt2Ohia4fQLgRYVlYeDJATK8r7mAeI0Cp7J2v5sM0QPrGc7sc wyZApriJInvoNkDVxHxgHzsqQN6Jb8NJAjlAFyfEgdauLUCuiOW0ukk7QEOv 1KfsvDBAingKwzFqPUCb46yy6oYyQP2VvyFLuD9AeVqX4+h7NEBVXDdXz/1A QBReJJ/TazZAMWbmK/wLQkCRGXzxlD04QNmG3Sj6MENAEABOr8c5OkAHICw0 e0JEQKRRiKLMFjxA0rt3VplORUDk0Wotpuw9QGluC6GIcUZA2aodqMDsP0CG mfb5+oBHQBK3mV5A5kBAb9spez6nSEDeJbfhQ+tBQN6VtAoFuklAlCBmn9bf QkDqUjyxaMdKQMraoQ5a0ENAwiYMgJ3rS0BEg4FbANZEQCBzM11V/ExArTMn AN/KRUBK1qJi3iNOQBvAZAXp1EZAETwPfwRGT0AIEWlfv9pHQC+N6dRWKlBA S7/akYrPSEC8h2/+E71QQEiQp3iH2UlAjD4hrxJGUUBYz0JyWdJKQKt2Uetf zFFA0Vbmp7fGS0AwuqW7FV5SQKqoZ4FP0ExA+LklEw3mUkCqVVUyj8hNQCXF yf5seVNAQXrM1BHWTkChUex1GwpUQE0FQDAS309AYJo6dAuRVEAfnl4oSmtQ QIXurAZkI1VAoGDsCLHxUEDt/kog/qtVQMyrDoRPb1FAuxoNzgBAVkAgWh8Y mPdRQNi3TQdS0VZAeByn1pB9UkA4EbrH5FhXQJullbmy+lJA/XVKHODrV0DN AQjlgoJTQAWXBvgcdVhApwCJC3UBVEDRIML2//9YQAcr4boOglRAaLy98w== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.48911776809219, 82.03214904774732}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcCb7Dhpm75BwCvlNiV6 4TvA73f4uHeQQMB7GdUeUpU5wHFh1xVIjz7Av1zE+yNwN8C4AgWIgyY8wMma uaq7VTXA0RSpgPfGOcA7qx4JsQ0zwB2lSKA1MDfAocrUSqDsMMASRhqDmME0 wN949XfaOy3A4KR8WoEZMsAHUk3+/7MowIEMAtNG7i7AF0lHSxl6JMDZYFEa 9PQpwO/JQe7byR/AJvb4D995JMCBPTnTbDsXwFs3fMp1ex7AUTiRACqwDcBh QV5CoNoTwMcRXazP+Pa/hsNy8m+N/b+ou67mLP7lP2ImlExQ49w/dVMHzpDo B0C5V/AKDODgP+qQGemz/RRA4R7I12TZ7j9KPOvdN2sdQMORa7NUuv0/BM9+ iqJHI0CBYK2URlsJQPvhZV+1iydAAAdtbLFNEkAhUG3VDCssQKWw9SPJ4hhA XmS0U2xaMEDKt2Ohia4fQLgRYVlYeDJATK8r7mAeI0Cp7J2v5sM0QPrGc7sc wyZApriJInvoNkDVxHxgHzsqQN6Jb8NJAjlAFyfEgdauLUCuiOW0ukk7QEOv 1KfsvDBAingKwzFqPUCb46yy6oYyQP2VvyFLuD9AeVqX4+h7NEBVXDdXz/1A QBReJJ/TazZAMWbmK/wLQkCRGXzxlD04QNmG3Sj6MENAEABOr8c5OkAHICw0 e0JEQKRRiKLMFjxA0rt3VplORUDk0Wotpuw9QGluC6GIcUZA2aodqMDsP0CG mfb5+oBHQBK3mV5A5kBAb9spez6nSEDeJbfhQ+tBQN6VtAoFuklAlCBmn9bf QkDqUjyxaMdKQMraoQ5a0ENAwiYMgJ3rS0BEg4FbANZEQCBzM11V/ExArTMn AN/KRUBK1qJi3iNOQBvAZAXp1EZAETwPfwRGT0AIEWlfv9pHQC+N6dRWKlBA S7/akYrPSEC8h2/+E71QQEiQp3iH2UlAjD4hrxJGUUBYz0JyWdJKQKt2Uetf zFFA0Vbmp7fGS0AwuqW7FV5SQKqoZ4FP0ExA+LklEw3mUkCqVVUyj8hNQCXF yf5seVNAQXrM1BHWTkChUex1GwpUQE0FQDAS309AYJo6dAuRVEAfnl4oSmtQ QIXurAZkI1VAoGDsCLHxUEDt/kog/qtVQMyrDoRPb1FAuxoNzgBAVkAgWh8Y mPdRQNi3TQdS0VZAeByn1pB9UkA4EbrH5FhXQJullbmy+lJA/XVKHODrV0DN AQjlgoJTQAWXBvgcdVhApwCJC3UBVEDRIML2//9YQAcr4boOglRAaLy98w== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.48911776809219, 82.03214904774732}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{-30., 100.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.658045416412983*^9, 3.658045433421218*^9}, 3.658045526572754*^9, {3.65804559970704*^9, 3.6580456155772867`*^9}, 3.658045665009658*^9, {3.658045731539765*^9, 3.658045745107723*^9}, { 3.658045781687886*^9, 3.658045809437277*^9}, 3.6580458525531387`*^9, 3.658045901915266*^9, 3.6580545456354437`*^9, {3.658064516086637*^9, 3.658064542917067*^9}, 3.658107449463188*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCwAWIQ7dzMcfv/f9sDuTzFpwIPOh7QfmqmWvXQ+oBIsHyP wWSHA9WSV+WCploeWOlUvH7/FLsD+2OO/FYuMD/wt5+3mFHH5sDJWTtX7Q41 PWAjs7aq5ozlAevVcpwbeY0PPEvSbjxsan5g4akrXgveGBzYY7nLxuC4yYH7 FV/Lb1nrHrBQPcOqJm90gD3I99//zRoHCs4qq234qXdA3NPdW7JK5UBaiqxO C4PWgfcnHd/dPil/4EP3fIeVrSoHGm0tL+dYix8ISuPMXD9Z7kCgxUQGrQ28 B66F3878+Vn4wHHB2DXnf3zb/+p024SljP/2r9i97pnOv6f2jpL5j+qy7tiX BrOfm/CC3UHmeCEQ3bF/NUHy5ea/InC+l83ru+bZsnA+y/m6rkXuynD+74ep 8Vu71eF8xYDcqzzaOnB+XMqW4JwoAzh/h2BiZESFEZy/8s3c9c8Om8D5y3Z0 KlW/MIPz73XmH/ZksoTz13U83bLL0xrO76rgOmyYZQvn/526X9F7hz2cHxpj Hn7+rwOcb5j2TPsPtxOcf7PtrsYvA2c4n11Bx6TayQXOv7S7PGymnyucn5nH vbCj0A3Ob5v57eevBnc4P/+2ZrXdcg+E+6du4WLd5YkI3yCbjRnHveD8Q2o8 DXNfe8P5CsXGsaF/fBDhf21R0j1lPzhf0Ia/nsXNH87X7315JUwrAM7f057/ T3gvgt9jp7heyC0Qzl9dFvg6/gyCb7Br6W7RuCA4/8dOVWHeZwi+6tGT/3Iq g+H8hYFvSqW5QuD8hFlWJdwTEfzWd2vYUpRD4fy3/7wU/q1G8HdL8Z5jcAiD 829s92UPuojgWwjuOv4kIhwRn6VeMg9eI/is09l+yJRGwPkXFQ59+/8fwQcA o3i/4g== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.510308557678265`, 0.4444444444444444}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCwAWIQ7dzMcfv/f9sDuTzFpwIPOh7QfmqmWvXQ+oBIsHyP wWSHA9WSV+WCploeWOlUvH7/FLsD+2OO/FYuMD/wt5+3mFHH5sDJWTtX7Q41 PWAjs7aq5ozlAevVcpwbeY0PPEvSbjxsan5g4akrXgveGBzYY7nLxuC4yYH7 FV/Lb1nrHrBQPcOqJm90gD3I99//zRoHCs4qq234qXdA3NPdW7JK5UBaiqxO C4PWgfcnHd/dPil/4EP3fIeVrSoHGm0tL+dYix8ISuPMXD9Z7kCgxUQGrQ28 B66F3878+Vn4wHHB2DXnf3zb/+p024SljP/2r9i97pnOv6f2jpL5j+qy7tiX BrOfm/CC3UHmeCEQ3bF/NUHy5ea/InC+l83ru+bZsnA+y/m6rkXuynD+74ep 8Vu71eF8xYDcqzzaOnB+XMqW4JwoAzh/h2BiZESFEZy/8s3c9c8Om8D5y3Z0 KlW/MIPz73XmH/ZksoTz13U83bLL0xrO76rgOmyYZQvn/526X9F7hz2cHxpj Hn7+rwOcb5j2TPsPtxOcf7PtrsYvA2c4n11Bx6TayQXOv7S7PGymnyucn5nH vbCj0A3Ob5v57eevBnc4P/+2ZrXdcg+E+6du4WLd5YkI3yCbjRnHveD8Q2o8 DXNfe8P5CsXGsaF/fBDhf21R0j1lPzhf0Ia/nsXNH87X7315JUwrAM7f057/ T3gvgt9jp7heyC0Qzl9dFvg6/gyCb7Br6W7RuCA4/8dOVWHeZwi+6tGT/3Iq g+H8hYFvSqW5QuD8hFlWJdwTEfzWd2vYUpRD4fy3/7wU/q1G8HdL8Z5jcAiD 829s92UPuojgWwjuOv4kIhwRn6VeMg9eI/is09l+yJRGwPkXFQ59+/8fwQcA o3i/4g== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.510308557678265`, 0.4444444444444444}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{-30., 100.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.658045416412983*^9, 3.658045433421218*^9}, 3.658045526572754*^9, {3.65804559970704*^9, 3.6580456155772867`*^9}, 3.658045665009658*^9, {3.658045731539765*^9, 3.658045745107723*^9}, { 3.658045781687886*^9, 3.658045809437277*^9}, 3.6580458525531387`*^9, 3.658045901915266*^9, 3.6580545456354437`*^9, {3.658064516086637*^9, 3.658064542917067*^9}, 3.658107449498637*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"x", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcBUB2cYUcFBwCvlNiV6 4TvAcOly2S+TQMB7GdUeUpU5wE3dk0i+lD7Av1zE+yNwN8Bbto8KACw8wMma uaq7VTXA7CNgEHvMOcA7qx4JsQ0zwB6IlhTCNTfAocrUSqDsMMAkm5/NLsc0 wN949XfaOy3AVY9gkyQfMsAHUk3+/7MowDAKGzmt+S7AF0lHSxl6JMBSbig1 gQAqwO/JQe7byR/AVZ7JOqaFJMCBPTnTbDsXwHDjFTOpkx7AUTiRACqwDcAU LWnq8vMTwMcRXazP+Pa/z+u/zYcB/r+ou67mLP7lP9Y1QwKeatw/dVMHzpDo B0BR3yTNUHPcP+qQGemz/RRA/OGet0eF3D9KPOvdN2sdQJbwGmSIPt0/BM9+ iqJHI0CNIlM/E3/iP/vhZV+1iydASA8SZap18T8hUG3VDCssQFOwFy8oTgFA XmS0U2xaMEAvuJJwszQMQLgRYVlYeDJANy2e9t7QE0Cp7J2v5sM0QGCymvNk cRpApriJInvoNkC+01HX1nQgQN6Jb8NJAjlA6AxtM725I0CuiOW0ukk7QEXR bFJWWydAingKwzFqPUBW4HTYIs8qQP2VvyFLuD9AvyPtn4ibLkBVXDdXz/1A QB1Xa5w7MTFAMWbmK/wLQkBXp3rr1vgyQNmG3Sj6MENAzrISg1LrNEAHICw0 e0JEQNAuPyVFwDZA0rt3VplORUAcYljY/I44QGluC6GIcUZACXI4TBeIOkCG mfb5+oBHQAIK0AjnYTxAb9spez6nSEC2x/vJC2Y+QN6VtAoFuklAm/3MLhMl QEDqUjyxaMdKQNo/LjNNE0FAwiYMgJ3rS0DoTN8tpxZCQCBzM11V/ExAxcOK jocJQ0BK1qJi3iNOQL4CljeOEURAETwPfwRGT0CiqNmGjBVFQC+N6dRWKlBA h3tUkboIRkC8h2/+E71QQLQsrzUSEUdAjD4hrxJGUUChd/OlcQhIQKt2Uetf zFFAwLa6/3f7SEAwuqW7FV5SQK/FUZ+uA0pA+LklEw3mUkCJKbnGtfpKQCXF yf5seVNAxdEXt/YGTEChUex1GwpUQHCRFhTLDk1AYJo6dAuRVEB+vWyAQgVO QIXurAZkI1VAWgtXJPwQT0Dt/kog/qtVQAS7KHGhBVBAuxoNzgBAVkAbSUFp ao1QQNi3TQdS0VZA0swjV+sSUUA4EbrH5FhXQLiCm/qhj1FA/XVKHODrV0BE dlSCAhdSQAWXBvgcdVhAHFlxfJCVUkDRIML2//9YQLvfUY7IFVNAQICumQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.51028733282752, 76.34036596293929}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[{{{}, {}, { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAAQ4MI2///PcBUB2cYUcFBwCvlNiV6 4TvAcOly2S+TQMB7GdUeUpU5wE3dk0i+lD7Av1zE+yNwN8Bbto8KACw8wMma uaq7VTXA7CNgEHvMOcA7qx4JsQ0zwB6IlhTCNTfAocrUSqDsMMAkm5/NLsc0 wN949XfaOy3AVY9gkyQfMsAHUk3+/7MowDAKGzmt+S7AF0lHSxl6JMBSbig1 gQAqwO/JQe7byR/AVZ7JOqaFJMCBPTnTbDsXwHDjFTOpkx7AUTiRACqwDcAU LWnq8vMTwMcRXazP+Pa/z+u/zYcB/r+ou67mLP7lP9Y1QwKeatw/dVMHzpDo B0BR3yTNUHPcP+qQGemz/RRA/OGet0eF3D9KPOvdN2sdQJbwGmSIPt0/BM9+ iqJHI0CNIlM/E3/iP/vhZV+1iydASA8SZap18T8hUG3VDCssQFOwFy8oTgFA XmS0U2xaMEAvuJJwszQMQLgRYVlYeDJANy2e9t7QE0Cp7J2v5sM0QGCymvNk cRpApriJInvoNkC+01HX1nQgQN6Jb8NJAjlA6AxtM725I0CuiOW0ukk7QEXR bFJWWydAingKwzFqPUBW4HTYIs8qQP2VvyFLuD9AvyPtn4ibLkBVXDdXz/1A QB1Xa5w7MTFAMWbmK/wLQkBXp3rr1vgyQNmG3Sj6MENAzrISg1LrNEAHICw0 e0JEQNAuPyVFwDZA0rt3VplORUAcYljY/I44QGluC6GIcUZACXI4TBeIOkCG mfb5+oBHQAIK0AjnYTxAb9spez6nSEC2x/vJC2Y+QN6VtAoFuklAm/3MLhMl QEDqUjyxaMdKQNo/LjNNE0FAwiYMgJ3rS0DoTN8tpxZCQCBzM11V/ExAxcOK jocJQ0BK1qJi3iNOQL4CljeOEURAETwPfwRGT0CiqNmGjBVFQC+N6dRWKlBA h3tUkboIRkC8h2/+E71QQLQsrzUSEUdAjD4hrxJGUUChd/OlcQhIQKt2Uetf zFFAwLa6/3f7SEAwuqW7FV5SQK/FUZ+uA0pA+LklEw3mUkCJKbnGtfpKQCXF yf5seVNAxdEXt/YGTEChUex1GwpUQHCRFhTLDk1AYJo6dAuRVEB+vWyAQgVO QIXurAZkI1VAWgtXJPwQT0Dt/kog/qtVQAS7KHGhBVBAuxoNzgBAVkAbSUFp ao1QQNi3TQdS0VZA0swjV+sSUUA4EbrH5FhXQLiCm/qhj1FA/XVKHODrV0BE dlSCAhdSQAWXBvgcdVhAHFlxfJCVUkDRIML2//9YQLvfUY7IFVNAQICumQ== "]]}}}, { DisplayFunction -> Identity, AspectRatio -> 1, Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Directive[ Opacity[0.5], Thickness[Tiny], RGBColor[0.368417, 0.506779, 0.709798]], FrameTicks -> {{None, None}, {None, None}}, GridLines -> {None, None}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], ImageSize -> Dynamic[{ Automatic, 3.5 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange -> {{-30., 100.}, {-35.51028733282752, 76.34036596293929}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.1], Scaled[0.1]}, { Scaled[0.1], Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", "30.`"}], ",", "100.`"}], "}"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["3", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("InterpolatingFunction[{{-30., 100.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.658045416412983*^9, 3.658045433421218*^9}, 3.658045526572754*^9, {3.65804559970704*^9, 3.6580456155772867`*^9}, 3.658045665009658*^9, {3.658045731539765*^9, 3.658045745107723*^9}, { 3.658045781687886*^9, 3.658045809437277*^9}, 3.6580458525531387`*^9, 3.658045901915266*^9, 3.6580545456354437`*^9, {3.658064516086637*^9, 3.658064542917067*^9}, 3.658107449547248*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol1"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol3"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol4"}], ",", " ", RowBox[{"xout", "[", RowBox[{"rs", ",", " ", "\[Tau]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "30"}], ",", " ", "30"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.6580454372782907`*^9, 3.658045508851685*^9}, { 3.658045546831115*^9, 3.658045576162369*^9}, {3.658045757509013*^9, 3.658045816223969*^9}, {3.65804585548853*^9, 3.658045856594808*^9}, { 3.658045909259193*^9, 3.658045913640036*^9}, {3.658046288502922*^9, 3.658046302739492*^9}, {3.658054817741757*^9, 3.658054825500457*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Gk01fv3B3Bz5plIRGRKOseQDMfe1KU5VBKSCplSSRQuQgi5RagoXbMG kqFJzsmQuIYyD9+DYybzkLl+/mv9H+31Wms/+Lz3g73X+shduGLhyMLExMTP zMT0f1W/y+vnnz8UmiJjUZf3ixHmzqVPHVyl0Cy7PMovlxrhdt6WubhfFNpH 1Z+mDZ+MkJuivaY0QaGZiU4ZxRYbYeezBV6zTgqNVY51ZfMrI7x5wVv9eSGF php38tb2RCMsHPW5hi4UWswV+1eal41Qfcl3MajRgCaR9f5fE0kjzLKXrMuI 0qfZ3pypZbuIGMWTnXHdWo+2v6n15eRVwL3mhRKGu3VpheX8ZyrlDNGtz+rU qzEdmmuy0+ljRQbIWTzxsPzTHpqaHk+ssb0+7mzZ8izgujbNPasu/tGELm7+ p9JoD1mL1rb1T8adoL3oEWU/ksCmSVO0EN7XrqqDh5virJJKyTSjkGuKq8Xa GHf23X8HYki0PFTMcbXWQlP2/LeDVeq0xD9JRYasmug1JH/+NqrRaqKDG4Tu kdH7iI/YlQEVWlK7n+vvXSQMPbhqm35KiXZeW3SZ224XKvj7djQ2KtCealPu ujur4hPNTpsTfttpvVMu9xgpSqjD1tK3p28brah9OYsUp4ADL4ol3RSkaD76 oZ+c8uXwReCytzqzOK27eW+QMbc0PqRqGA4sCNKUFbZmf38pjmbC1tv9gzlp ldGC4gFRgnicdbtqcvIatRbpLLs3s6LDf9dXHMzWqDSF/67F97Kgb1xlzS62 NepCKPNUfw4Lpsu7uFHdVqkFL8f26xiw4Mq+N6/69FaofN87nuacY8bMUMPd Kh2LVA7Fu82Bxn9gjd1Gq1hsjlogl7qfSl4C4fpXbIHVs9TbSlsY2WWLoJTw u9n071nqIdVLN0dOLIKFYuqNjoEZakAkI/Cyzy/IMhktXiuYpkYJDdq/KpuH dP4pz7D0cSrhnPJkyXUGzISU/34u3U+NW9LkRYkh6PHgdiNF9FH7TRpkKFaD 4FE7bkWbZVA9cPaMzuMBuBeer9Vb1Usdovkf1pTph/jVG+0wQFBHjpsdKdXq hcjmpGLDe03UQcED1FukFsj+xz7W7kIj1eU0Z9uZ5iaoOrTDI0DnBzWwr6C6 0bcRuILPHvYvr6MmvM9dvpPSAL+tQ1T83Cuox0blJwz2VIL+D17GR/EyauOK Fj3yRRnMxKiRF25TqTUJY+kzCjQYumQhMK9aTB1vdH2qfKYY7E86BlwPzKcq B9oL7PbKh+Lb052DWTnUoKU7bwV0c+CltfiHAbPnVJVswTL2QykQVD9tGzMc Rd1L6rhxsyACrJKmTo6PeIJoWgJ/yo1bMK41bUVxTgTB7P3t6x2P4LaRRf02 ngx4xgp6B+5lQLSz2rTshVwQfl4ZUhuTC7WmrFwPiAJw/0AxPfe+AMxtph8L RbwHddswjh2SG9Vo8OzdKRqERUxWKp2kwUyNTebBv8pBiA/bGK5lUHiycZIr qRJG4/p9H9ysAF1namCkSQ0IhsW7lPh8g9Sq2u+V9T9AuSOezlhrgFBezoWM 5UZYvnw9xJ/xHRzN90mGKTTD3QnJ/nelG31dH86b+LZC+Ke714ecmoBLduGO YkYb8G4/yOdIboYxB9ILju/toCC356TKQjO8nsyc/bqjC5JuqZxwu9QKMZp9 4llmBLT2t4mbibXB1ZvS+uF+dJDfX5Vp+qkNzD9bnbuU2Q3R3oVzC1btoMHy MMT0Rw8c+5N0bnGiHSLThptEAnqh+vvhup5bHbDyF/tQiAgDPCSaInXXOsBt ZPvSXDYDikO2S4Z6dQIRidwOhn2w7E5K0OjrhMhNsTrBvX1Q58dc5HekC/aG 9js8D+6HZ6ms4cXZXTDEpB1bqjAAvfGZfhMLXRD3dxiV+DoAl2WOCPBqEoAr beMrzoPw1vOFcIcdAZPeKlskeYZgtNaac8qHgOQ5X1Od10OQf6mkMOFvAg5d rfU6dXwYRBQT3nRueGlcOvX6zDC0FpVryAYQkOlypeFB3AhAU+L+Sxtmviis Wt82Cjnxu/RXNvz+lFWPif04NN6Pc9EKIsCpMYfXkWUCQvqTPcM3LHp8VTck fQI237p/mtjwlQPPHlJHJsHN98hg1G0C4qRnFZLfT4Nuf74JawgBY11P9F9y zYCd3s7LThvGJ/ssPlrPAO9jwbr/NjwpHh/YvjYDNTdo7k9DN94vuLdT1GgO zpeppp0NI+Df+t5p+dg5oCgBd/OGl6LvbtLsnwPzaHPJo+Ebebi6tMzvzEOa Y7mLacRGHtaAf+5VL0Bi24kEu0gCrL4oZiZv+QV65jvnfm44N7Ch5KXbL/iZ aubrH0WA7ZrsWDXfIkxRXCyyojfyL5Tv57BYglcSi3sU/yFAoNDdRixtCWQC di3Wb9jJU8xTYX4J2BSvBvjdJ0BkyinFOGEZzOozdHsfEOAxwrUS0LkCswrH GzofElCZ+VYwZucqiPJ+0EuPJ2Cro43SU/9VYEi5KHkmEFDDeHXyk8waPNMn jUo9ImBH1/G8xQvr8NAweSYniYC+CIM7ybnrUDzYJhyZTMCzPSo2RivrIAYx 3R5PCRCPZdkU9eA30Gk2zSYpBHAcLLKTof2B19b7BTTTCLiwavaEwc6Er4U0 jumnb8zfwpS9cCcTakE098EMAtb+aHZZ+TDhlb05LjeyCPCy4QtP5WfGraZb t4m9IsDiLeuslxYzTl/TjjvymgAS14qtqTUzNocFBkTmEjBePKQxnsGMDZaG lC35BDgK07q1KSyo8XGf+L1iAiyrPfdUu7Eima/KuK+MAC1Zl3+THrDizYGd nrEVBAj7nOP1eMeKSmUWMYe/ElCvcKRPmJUNW8INj3RUE2AatCPG9gkbqv1e kHT+QYBim9SyOo0NreDXT4cmAtjUhR2Yh9hwZ/I2DfcWAmhdv3Uzyewo93U/ c1IHAXt12genvrHjl2jKYmDfxrxi6s3KJtlx2nGsuHWAgPmBik8PRTnQoOva O91hAt7E5j/QtefAnOcNN3aME6A8GUkJWeTAvWYlV5J+ESCZQYkXV+REYVad VEN+OoTNMoWLHufEqoABQZoQHeah4qbwTU4czvt9+JQYHeo7D9ny13CihJJB bclWOoQKWslzeHBh47R7VZQaHWbOSomxJXJhzVx+4jsSHexednOw0Ljws0lf 08bJAF0Tx7F1IW40KqHfq6bQYdLPM3+hiBuXXbWX483oYFutnTbXzY0Kl53k o07RoVp8+eHMJh5co7zrSLKmQ3p+4M2JMzzIv15jLexIhzPD0TC4zoOkGgrV YWMPVlhk1TX/xYdhe9vmVXPpoPHcldrowYeR/nmgUESHlIld+d8T+bBR5nz2 vhI6+EYUPqwd5UP/1snKxRo67C79YlNxjx/Pi6/pHxqjQzLPnaNlxfwYlcf2 9e4sHbjPHABaDz+WR9i1LKzQYWCufnsJWQCXEvk4T/N2wxMVYrSgRQB/XIs5 Y0nuhk0+KV35vwWw0JTptbB+N+hdyB9qExFEiwTOlyx/dUN2nld7i4Eg/nDQ /nr7TDcEH1r99CNGEOXP7bOUvNMNe4M4Q6o1hFA0w605cbgbjI8avx0xEcKn U/S/6ua74cgWf8YmGyF897By318sPWBfOAUmIULId9TOnlmmB+6OtK6VNQnh VqXPn6qteuBhkaBa37AQ8nY+uaLp3APPgg/ZMK8J4dWgEMFRnx54u7X0AygI o+WXGBHKox7oNMvwLvESxgM/yEsviB4YkO7J6IoQxqU2P7bEyR6YHJNoWUkW RlvmR/fdmXqB5U60pm6lMDakOXppiPTCzg/Xp4vERJAaWyrdq9cL/nLGrnnF IihjxTVnE9cLYZN+j+trRNDyRozSyZReuP+p6NtEtwhGy49fDn7ZC+mnVJTU NoliRpG1aGhFL9TdFRzIPi2KyJHGSVruhXbLQyLf3EQx2PAb9wQHA/rkQ42H A0Xx3mm/4UFRBvz6vPh8R7YoBtECNseQGSAz2302dUkU6YEnH9VeZoAyVeLe F14xDPUVy/f/mwEa0RYlvbJi+FmO3dXjHgNMFL9u2XZQDEv3nE+WzN24k9av 25Iei6Hp29D51FkGUMv8zOP1xPHtfLfj1rt9kBoVNn3mqDh6vH9zn57UB2En H/wjYy+Oee1XzRi5fXBkKLMu6444tloFp7xt6YNOrsaDH7+LY3TuymSkYj/8 MlM27nHajLrp+lcCWvqhU1KTkXZrMy49H+FJH++Hz32UIOfozXhzm3KnCNsA hHqdKJ3J34xFc/L3mzQHQPhRgB7b+mZ0smT/SU8YAPWeZg2VOAl08LfTuuo2 CMLZPT8mMiRQpIQ5yiF8EBaujl19+14C5SdDw7LTBqGEhSlPv1sCWSltsbL0 QTikuHPnMRVJnC1M3N9+YggcL9+Wv06VxE2CtpOxZsOQvLpL9PPPLfg8o7qa FDEKVZDivZlJClOZYui5+aMwGyLYcU1UCsvdqoz+6RqFA7xzTxUpUjj1LKbV mzQG81vfK92PkcKPEPGuu3sMjhoa618kb8V2noL61aPj8DvI8gKXjzReU1vX A68pUKmsqrgYJY0d6Ze7ynOm4CSXrlJpijTe5xDgzuiZghcPpMY9v0mjbl/x EEVxGixTe28QkjLIG7rOoRs/DXnlrnfzSmTwFv/mqGS/GSCFQLsqsywKmVdv IpznQCPN/ssLblnMjnEWmAibA63y2y9URWWxy++yr1zGHOiyVvirKsliWF1U +xxjDoxDDsipHpXFH8oWJnpn5+FEiLmrymNZ3CqgZqdqvQDeIRfXlMhyyO+Y ZuvnvgifQ8Jld5zfjv8lWuvh2Cq8P9asqVikgNY+EZrmP1kwK3i6oEdfCSsZ W4i1aU78QlZTN01UQUHbkzanmASw4aCO2KUdalhA98wIXxTGTfTzv7Qi1HHE 4sY7S0txPP30wI/QKyS84lPtxFcqielM384eLiSjtDfPBfdwaQyXOz3s3K+B GoZyV3weyOLAr6NZfTu1cO2d6np0zHa8Sa6qPeehjZtSFG5N31XAf1XMpjST 9iBf2qFcJRdF3N+KBxwYOnhK0SfU01sZ/dHo2U8hXVw5m2OW7KiKPwUqzngb 6GH+tJws93E1bI7LPXw2SB87Rc+pSTip44mWbL2kXAN8c2RiwkWdhK7s7nW9 BQZ4KvT5YIMGCYO1d9srfjDAoGt5q9o6JHwbX3Qnv9wARx7lB7MgCQUty75X tRtg2ok/K8nmJKxr7XKaZ6FghXZwZJsXCU3b+eOOnqZg/ief5gufSGjH2bgj zpaCMVSr27VUEnrvjX/ffp6CE+9Ih/dUkDDzkVT3RXcKxmKyNncdCdnOKKv4 3qagYg06FHST8EuHETXzJQWVQ99v42EhYzsXu8X4GwrmZWkkenOQcVr32wC5 mIL7cn6r9nGTUfbJMe7PNArOMV3M+iBCxgBrm1NNLRTcJWUw67KDjAmRMiMS XRSsN1U43KpCxtcfGb52vRQ0ruKhGauTkdji/Hx0jIJst/LWpXTIOH9op+bu aQqGcp7+GqFPRl6/yUqvBQrqZTS/WAAyKrzMt/q4QsHSdemXF/aT8f//MzCH plzVcICM/wMEhxWb "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwtV3kw1Y3fte/7clPokaxlva4tbp+PFrQjQkoqopRKoodC9ogWtPGUlKWn 0kOXUPpeoqIoosS918W1r9eWrL/emfePM+ePM3NmzsyZOXPWHDnt5MPHw8PD +YP/Y6v2oKHlZSo92W1/YMZbGyyYfDy2bZ5K/3hd/9fCaxtUl2iZTJ2h0k9c EwzxLLNBMarpgvYIlV4rSfiuodlg2/1pCYc2Kt3ewUwy74kNXjgSbJBFo9Ln ZrR9C9NskDYQchaP//FTy99ddcIGDWZDf0U2WdMf3byf30yywTyvlfU5SVZ0 n6jBwBteiEni+Tnn9m+gbzRWshQ8CWjhSFPaaGhJDx7eKvxTZSP6d7m5PBs0 pytPPXnu+Z81ipSMpL17bUYPvfUzcY+HFa5vWXU//Jwp3UmHk/Gw3xJXXKux MTOm0C/qvT+XGGaBAUle/bcETOj2jKV3rZrmuONbqlvGW2O64xDGzRSaYurB V5/sU4zoKrYCb71cKGgnWFjU88GAniUdIGy4RMag3rWHL6Me/X5UlOp8vDEG 7wxRPM3RpT8z/b2NrWOEMdvmDzx20aaf2htv8GavPmpcDP3Z1KRBT/h8+KiI 5zq8Z9LmsTdMnZ5ZrffOJ10bzQVausy6/qLzZJ97kJ6ggZx/S1b6ayjTK2or hPJy1+C/Eb+DDXhJdIs7aZT9UyqYRpA3cqZl6OERlt4u6SR0kNuvfjFKhJ7e +nHr+iAZ3MOvvi4zc4Gwe9MSy+Lwofenc3PeDgvEdbZJv0EBH4am1tTpCywQ VXVS48dC+PDx2uP+hP888SrCVuiqKB/Obf7vWdeGOeIBzmzI1OPF3JiNhro/ fxG8spI1uW1LsCDoQSlRnCS20prdrRp+gVzDM4GI2gnie1yNTfGhX6B9a6nZ 7tIEER88nBjLnQEnrezzPzlcotJ9yFWfNAN5tgMlCy/HCXlnlU8lR6fgsdRY YNzjYcLubxXdAhkuOMjqXMpS7SZ0Lp53VQ3pgY4AMX+jhC7ierbaapdSDgR8 HnajT3QSSuEaO5LmuiE5vpDC/sAm5oyqr/FFdUH6/PlW4DCI9rVeo9pWHZDY nFGyMfkbodB4SKma1Az517xueh5pIq6M1qdurWiCD9s1A8LNG4lb90dMjh5r BNGogzsuvqsndAZXx++8XA9L+6N1w05WE4O3S14+1H8HVo0SneWkKuKls0SZ Xx4duCl6xtOXCSL+8qnTD3e/gV5fJ+mpdSXECs3+S0pBReDl7BN+LqKQqAuQ sc2iPIWSy+NtPXlPCKmU0KPfMh7C0/2kMo5DFvGp0RO/W1+HyIbxAyl9ScS4 nPK3TYbe4JYx5jzcHwhuA+M7LaXTYZgy7kb1uw0XubTnbQWP4Kqf3rjakQI4 Q3JVl24sAgObnoNXxuiw45TxGPJWAbfOI3fb1ndQZ87YOCFbDTTnplHRjBrw 7M+OSF75Hiz9iIhE2zqgOe2OOSVRB9kfPn+taWgE7WIFDcqbrxAjITKd87sJ yFz3ctHMRvBx3LwyTqMZ1M4dnRUObgKd9rLDtqHfQexU5tecFc0gqjYdq5Xz A1L1L8t8ZTXDoLfRv0JfW+G8U4iMxYMWeD6aO/Fesx3eGNGWc8V+QIpJFynP gQHfFAzCFIp/wJkLqlbxYUwov3pXKsm1FRwr3A755rLA7vYQpYDbCmS+tGi7 xg6gSCzWr4z+CYmP+r7Jh7NB0/aayWHxNpjbKtgbLd8J7beXtaQS28C/X312 Mr8T7k/Z33mw1AaMRBTz3tgF0h+1hBL82iFR+KZ5FLsL8iocLj1paAeLmG7v rKhuiByh7XuqxYBeHtObbzU4cHqv6+it0wxIvRRHMN5zYDVN1HNfPgNw7sfw nF8PFDL95gu+MGA0WHfVSvFeYBeS0yw5DMicDLUzf94LJ5yvkg73M2D7mc9B Lnv64IHYL3OBIQbMDqtmn+P2wYfSMv2SEQbkHj/95UZqP7jTs+xCxhnAe1Ru XcOPAcjNO6anM8OAUhe3DluvYfCAmX27+ZhwrOmJhA/fCMi4NPyIEmSCwp55 y+jHI1Cv9GxzrQgTTtvfTyP6R+FgxIUjydJMSFWd0MgsHYd1yX5Ni6pM2C5j 0aZgMwnVi/n8HRuZ8LCBPb725iQM3N2m6r2ZCbNXrwibdE+Croa7Dp89E3JF 2ymOsVNwYTHcMMmRCbz84deSa6eBeTpmusOHCW6VWrmZq2agwMTykZU/Ewoi vrx56j8DZWku+bQzTDiwoDZYK/kLqtZUkngvMqF0+t0WIadZ2BofsqiQxgRp 2kkPxUezMKNclXfy3p98gYqBGlOz4CaX+6Y3iwnyY8cebLr1GwK6drG2FDAh oF90LrxtDrKuwr9v6pig2b7nxa8ji6CypWx0izgLuhKsYzMLFuG1/7RZtDwL 7pvpetjMLYKtijEMKrOAdJNPOOnGEtxWJQJM9VkgtK3YczV9GWKPccObHVlw ZN7hXqcgD2qXTmuc8mABOtkJ0tbz4KsrCkkUHxYsLJu0u4XwIH+r/Benv1kQ 5CEZny3Fi/mh863dj1jgVMQ/EUThxRBKmb3oCxYYic4dsNvPi+cVVLW8y1kw XNJLHs7hxZH480UVjSzwkaOzTKl8OOoMS0r8HbCvNtCs1p8ft+/Radx89k/v 1Y4/zLjBj+J3UtUMIztALuSQRMArfjxZw9U+dK0DGjR2dsnxC6Ck0pqIGwUd YBepmXLgngBGJvumHxjvAK0fyr8N6AL4NOFtRA0PGwQM5Lx5ewVw/N5t52hR NtDblyxzjQUx8EqD1HllNliYt/aMfRTEHqfD+9CGDaSUBoeqUUEsS/FRVdnB hilO9es0BSH88G5BcK0LG/67WXjD0ksIBe8R8bTjbNAZTaRG/xLCopbAuzNp bFiZQ00naYngHa+7T8Om2BA3wROvsEcEPRIO/efD1wlTUH1B7oIIdqfYX0+W 6YSGtu0HpOpEsDKuiHtXvxNiZNzWCgWIYoLemoflJzqBe1BZUeC2KJpkWPbm h3aC51OWEB9dFJ/zrFNvT+wES1ufwUVZMRR4M5Ug9awTRsMCC6eLxTBZdJxd w+2EA7WmjyZZYlizcKaxn78Lakm/07jC4rihPLzAhdQFjwsjLoy4i+OlVbtV Zay7wL3vKvQsiiPLmT9QOakLqp3y6pu3SqJ5x9m9WhbdQM46QTQFSCL1XryP 1Z5ueDCiX/j1tiQmH/lqmHOsG0ITaGmfByRxqjfZ9+9b3WD4ttKjOlkKq7KW VCh/9uyeLmPgZYs0nhW+EeXfxAHhkAfthUvSOOU5bCo1xoENRwp7f8jL4NP1 3HFJiR7IfxHU2mItg49bCmy07Hogavv868YUGRzBLUnVlT1gESkSXUuWxZNn Tijw1/bCpl2bivptZZF4az6xONgLO1dd7BT2kMV49m9nV8k+8KKNgW20LOb6 Sido7e2DK/3fF6q+yaJE1s7iDd190OaQE/wmSA710wxS9yoOAEe1I6c9QQ6F n9fetKUOwOigUstcphxWLtQ9uuszAHyxV00sa+Qw2ldI1uvVAKwvOzderCiP 56OvmJ46NAgX12w68aJEHkesXy1fqByCuNGwuw11f3TmhLLv2BBcf138cYQl j6UMgpemOgyPXXS19YQVUOGUx63jYcNQf0WGk++qgC7ftHjAagRWT7AOZs8q YMeqzLijn0eBqApzTN9AwrTWSUmflVzIToobd99Fwu6rPWVqFC7EOd+4ttqL hJludjx8e7iwsze3Pi+WhCeeBHymxHKhTbRpW/lXEu7d1xzoOsmFGQedTR3H VuA1RzOxs98nwKCjmaybqoQK64SLBkumIHNeX6FiaBXud0nvONc6Cx/gQfAK HmWU74P5Q0uzMBEt8/OsgjJaSo4qntL4DfYSk/9oUZWRaxZzY+DMb5hSKdW+ nqKM6gzH7GPic7Br4yaro8YqWB0Q6bbNdh6WIvcdEQ1RRUGzS6GRTYtgFA2t 63jVcIVY6qOZf3ixIjpeTfOwOp5YldN6WV0YS3c3m2gVa2CZSfvMKh5JzIsa f9lhpY3qJasvKLBlsdJYz8Duti4uly1SbNcp4pdt5oq+mnoYygkqi2pTQmHm 4RlKggGe7ovNtvRWQdd/7BtjThth12LfzdnRv/Axz8eDO2jG+L3HrtFoeA3G r3Ht8+sm4xWBVMny92uRM7Mrr2s9BTdco12q/6KJF4w/fD4UYIrKfCO/g1q0 8aGuw5hJhhnG0HpFtCt0cct3tPfuNEcd8RpabtN6vIg294dkLfG7c6hH0Ud9 HJKudg+23oDunTqlWGqIzakFOw5GWqH1peN6BYNGuLclf0NGgTXe2ZNo8bDf GE8Inqxnv7TGT76fqHIjxhhlauilVWaNToOHD0ZzjbEovTi28J01+vkfH/KZ M0aZfVVfP7Rao6lom42eBBnrv7cfm+KjorX08pcKQzLatUql7nKlYmTWT6Op YDJ6ijRpph6gYsvl3gC/MDIGW6SXth6mYsOO9e8ZEWTMvaPMOnqSinkvrOg1 CWQUcNfRDb1MRRHHG5137pGx8qcNkfuUist1jMbNb8nYKiroNPwfFWl1Vx+U VZFx3PIjx7iEiori3FjDD2RUu7dbrIJOxR9HizOVv5IxfL+Hy7cWKp6StuNO dZLxVuLqfqV2KsYUFEX795LxeXlnqCebitvKrxt0DZKRscova2CQil360fVf Jsk4tX29ieE4FUvU4ittZ8koETZaEzRNRatbjPqKBTJqPC10K5+jIndv2ASF 1wT//y+i218ehs8ETfB/eQbaDQ== "]]}, {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF1Xs0lPsaB3DXUE7JbUc5ocF2aXK/j+c3J4zLKUNoItcI20lFqYPIZVMq 7UKWqFRENtpiD+2d3hdJ5D6uY2yMMcidXEJ19lnrnHev9Tzruz5rPd+/HxX/ sy6BQgICAlF/7n/TYvDC9LdvFPz06QyWcy0VlS3nz9tvUnB+8W2vijdUpCrZ s5y+SsHdAn/iyr6mou0Uoy2NWQpelPxgqI9JReyHK5J0NgWv/rEhy6uEii77 R5LzKim4ZbP13uAsKqqcunQehVDwKul693+foSLyetTa1S5L3KfVx+umAhUV +iq0FtywwIVLh184nELoxo6igggPc9ym5iMWdR6QqXPlHqtDZnjL09U3zqpW KJTLcCv5aIK/ZN/fN/irJRJnzmbU/26Mu5SSq9p9LZB2j+LD2Agj3Mw1Vlt9 zgx9d7uBaqxniGvKilXKxJuisBu+k/dEDPAv2ekfTmubIEdWOiPnjR7+G0uG mlplhNK9qj7YpeniBfkVHhsehogmWv5yvJGMB76w3tEubIAu8A/4xSMd3HtV dPbJLT0U+c9Lcmd5mvinO82eP5F1UZL95sl8Nw3cnfNwWtfnICLFRA10dZFw 49canIwQLXTfgO15LFoVnyNfj5d8rIFMRHq4xtz9uKz3UzmfDBLiFTMVQkl7 caUJOUr2SxVUHPc5kiwojz9/FKxdIamEMjB9K96KFO6HLRc4l8kjurSHakyC OC6z0+aLfJoUchJW1crN3cKspE78/H6fMAr4ELERQN/CuO6063p8IRSV3tB8 UGQLq6Xsik94IYTyD4SEYqGbmE3m4wU2VQhtHP6lhGu+gf2u3bSXESiIniVZ HdIcWMN+sOat/+3oN9gS9TRkyi1jjwrNMrmW6yDdViIS17SEic7elnjdugYa 9752064sYb1VQWHT3mvgov7k4gBvEduusjTrlLAKhbZTzK2KBWybY736kdZP kL9zPjw5fwab0sjNlbm4CPTd31/JUxrDMkKUxu20+DActj1U9xoXs3LarFP9 YRzCWmYY+NIoRh/Ievy5mAe3UsoNRxpHsCM3FyLKDo1B5ubFfuBxsNl30THP bUYgtTuHaXWLha2K/8NWkN4DRbd973r7d2Fz4h9F7y2zoNFBLSzWpBPLj9G0 rM/uAokEL8eY+lZsosa53YjTDl89EjWj//UWYyZy3OPPNYBFp+Tob/J1WPIT 3zB9Xh0spunorcRjWP+pr7c2vXDgB7ns+qTFxPiyB8Lx90zwdQ2MjYgrx1zf aVCTueXAjF9gjxc+x2hUMUUzmWL42UP+FY+ehyl7nCx/GpMHV9sWTqZN3MAG dtINmsRuAiNn3nVmMhwQO3AybjQcZgwXGJTgLLirfMhuv3kWxFNd2vbvKAC9 4Fdei1g+3AzWWVD2L4M9uca50m9LoYUmLHGHUwFFtE+9Lq4V4Oy5kL37WjWo l6ydCWVWAZk67nV9HgcW5mSmQsJhsdnzmb1NPRxOK4ZrFnVQ6do1J5HTABJH +4X49m/BLBiLS7VthpeXLLXOO7yHJ40tHQ1tncBQ7K0O6mqHJEnxlYLPXZAY Sz2T09IBgc6HFZJJ3bBZe/2RQXEnfD/4ys82qhdks5kOfz/GAgnllR/VC/rA ITzZdkupGz4G6BZv6+gH1h2RHmVuN5TOPVt6pzYIQ/oq3upuvZBmwJUvpHNg hqF2Nky4D85dVrJIiR4CKensU83P+8C5huET9OwPcOooMvuD1g/6QhmJtM5h EJ9P8bMd6ofUpxMsmdgRoBdQmu+FDMCGjSg/UWYUNEQyO0/MDEDopOr6ctEo RDfUSuwKZAMnFW0PsOKClp90kSaLDalid00SRrggO7/OmqIMgmnSWEBewhh8 MT756MH9QeALGN19Q+IB/uFVntPkIKRfScY473jQR6JdnFbjANrom9kIHgfd 5D17TV04MBepqaiwgw/TX9xsOkI5kLscRTMp5cO+xvN/DgcczrVccHOaICx4 SlqrrW+KcLUbY9jWd4ZwutISKbd64a++lClblrr81/1KvfU2l3XCaoNOL9b8 vxB2bwo3bgoVRv+3QgElU15dnLDpVfHEJv3dhLG6aOdMc3nCuZsHZWumFQnr JkK/lqAy4ZrEFGU1P1XC1Ue7DdR/JREuTFioGLbQIFyrp0OmZWkSbrc3kQtS 0yEsNuS3aniNTPj4A7vOpLO6hPMF3ns5VuoRTlE5PhE8pk+Yt3qkkKttSPiy XmOLT5gR4cea9HmDHGPC1r3ILmDUhHAMoj6c3m1GeHrX2xORluaEu9PLHL2u WhA+1lNknlNmSZjWvzP9yHEK4f/9Y8L/AdKnuU4= "]]}, {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt2Hk0Vd8XAHDzTObIzEMPZVaGZ2+KDBmiJBqklKH0DUkpc4iikApNZMhU xpTqvQylvqhEpmceQ4aQIeV3v2v9/rrrs846596zz777nHvl3M84eDAxMDD4 MzIw/Hc17A6YXF+n0PYcjZXb89YEi+cfz1j+ptC8HSMKSt+YoDxP23zyLwpN ujpcQ/iVCXJRdNeUf1BoTHrXVNsrTbDr/iKPfReF5jhcPHKw0ASD3AO3Piyn 0NSCFLxO3jbB8u/nz6IXhcaseO1x0GkT3Lp8cSmsxYimV76WHy9ugrlu4k3Z 8Ya0SgmxP5bHEOO587L9XQxoEJN84MJZwO17ysWM1fVp9ZLN++3ljdFn0Hlf 4cQ22rnrIeWdFUbIUfkjpbZaj2a6LGnb7GaIqm2b7of469L6K3e/JU3r48bE ehM9TR1aSMYjC8Hw7egb7zaeyqJNE+xZOOyhug2tvyY7p7/RpEXbr7fEPtfF 5EPP/7VI0KAV8EtNLrvo4C7WktKR91tptS5caU3M2hgwqnA0HNVoaz6NFx5d 18TA3edFzgyTaSym/qMJWzUwyvL3wcf7lGkcP5783nJkC5IuXexsaSHRbhVK j970UsE07S5Xx2B5mpjeuyjOR8q4jaVtUG9Qhuar/WfDwRQSDudXivuQJGjz VMYtqaVymB+6EriVUZQmHf7Pj0IeKUyhahkPL/LTcvQpxtbFomgv6CJ/KYKD xvTUy5k/gR/tmOVVMjLWqHn1Ss4vJZnx+L/+q8ft16j9XXR1hVEmvJhc/3EL yxqVbdBWLuApEz5W8PKh+vymmkR1RDaaMOHqjmeFgwar1LhU52RLD0bMiTJW J3cuUV0nPLxnbdZhjdVVp1Jknhqc8kbondEyCDYXsoR++Enl6/UtedC0BMqp f1t3Xf5JLThXDZ8OL4GDUua5zuE5qpt6jKBOxC/INf9euVY2Sw3gOzav2bQA j/lm/KIfT1Hv/U2hrgTMgb3A5ssPpYaoL65wv96kMgp9vlw+GrGDVJEppsUF rxHwbZxypv0coK5ayWxtzB+G6zElOv3v+6kFnmGV4epDcOv3uQ4YplPVayLU Q8z6Ia41vdL4+lfqlMfllGd2bZCX6JZ02L2F2um6Kmw+/xXeWyn6hmz7Qs37 ycsbcLcFOCMOWV+qbaIWLdIvp3V/gr8ukeTgU3VUp7Fyvakz9WD4hWfgpWgN letift/9oRqYS1DTXAynUrsu1yR5HaLB6EmHDQsqldSoUp/2zPeV4LbXI8Q/ tISavJul22egBCrDZ7tGcp9QHb/E0rgE8qHARfTFsP1D6saihq/BFx9CWPPs wYSxeCrXjPW3Hevx4Jw+s3dq3A80mlUVnX76wZTOrDPF8zbc3zj1aJfxbQg3 cWiW4c6G5kyx0b9vH8M1T7VZWfdi+GEeGyD+rggadzFz3qSXgVJ464jDvjLY 4zp7VyC2Cmwt88U9nz+HrSYjh67O0EB7xUAhg0SDuY+uOZZmtfDXYMKX0agG yve2THOm14ON4fmAQ1Z1oO9JDY0z/wh7/U6Ijlg1QOb7xs/1zV/Ami3gTGvL J4ji4VjMXmmBaD1Sz+fGz+CxZ4d4NKkVuiO65Tzzv8Dm7hdHzS9+g+//pE3a O34FTtnFK0rZ7eDIZje/RboVJo5r5LN97oDT+9zj9wy2QtF0zs93it0QR+KR 3bfvGyRoD4rm2tOh98iEVgZzO/wTJGUYE9wD5vtPKy09aYc9r52PnMzphQNc D5Y5LTpAiyklcteXPtiamyh+tqcD4rLGvgqF9EOCkHIQzasTVs1YRyOFBsBM hN0vYqoTfMbll+fzBkBfZdtdPY8uoMch13HjQcjJ+iBv/7UL4tiTtkX0D4KP /l+pDcbdsD1q6PjDiCGwWKkre5vWDaMMuklvSMMQX6970W+8G5IvR1Pp74bh 4yVNPl4lOuBq+9Sq5wgk8bucdnagw3QgeZM49yhk2rlYzfjQIWP+4q5tRaNw OLHcZuQsHaz+aQzYZzcGYoeE1v7z8pRUpv/cGOz8VlY8SjjH68ynm8njkMcT 6jFGmPGYoEpz+3fQWNbvGydctc+5z9xtCvhTl1mnCJ9oecLjwfQD+AUyu/+z sN1v/cjHP8BiSrbyB+EzFvdTqOPT4FZ7/8IM4WSpn6SMqll4nGRoPE94ojvN sIBzDgw37acsEMa0HQ4vXeagqdbPdJHwtOit0I61ORi7lH946b/n59/eJWwy D53Wt/t+E37U3D+rkDQPVtae/H/+m8+1q+zaQ/NgKRhg8fe/+XB26+y5sgDz vwybGfyI+TCHJF7/sAhU21oNNsLOb5VyMjb9Au4P8xnshItDP70q8PkFjZ7d ApyED67JTnzgXYJisc8iPISrFmt3sjksQ1vlnmhBwhvKT7mKZC3DqeXS7cKE T/iJ+JEWloHd/9mCCGGhmRMPTFNXiPxIihMn7DvOuRrStQpVzL66coTrc0r5 E1R/w+4N6kYKhCU9XJXvXfoNp/c+s1Uk/HGgcG+19BqkxrPeIRNW7LZ7uuT+ B2bELOq0CA/GGl3JKP4DWfeRXZfwfT2yq8nqH1Cpvuy0jbBoEhN7/M2/cE+g YpMRYTbLisPStHV4nJmF5oTdf9unDbAyYIDN7ikLwuiwi7VclQEXUSzHmvDa una383kGnP3xyWwP4QBX3phMPkbcv+5gcoiwQynzzwAdRow+o+HlRliDc/Xg LhdG5HflzzxGeKpyVGsqmxGHzgtaeBP2EKT16lKYUDyp+nQQYacPfnoffJhx tkAm8g5hHVmvR+k3mXHxRtn3DMKC54/w+D5nxuD9XScfEW4m7R4UZGZBje3R hfmEd4UpJhxMY0FZ19/H3xBWapdY2UpjweCXoam1hFm2Ch5nHGVBGU7j4QbC tO6/+jmarAjktG9fCW/f1jEy08CKdSfVlCb/i1dCs33NNCva6tAt5ggvDNdV pwizobgL+doS4WdJJTf13diwf0NLIIs/HTZPx1Eil9jwuuzaLxnC4tmUW6JK HHg7fXDvYcLRPxlihO048OzixvSThBegLkgwiANNb77deJZwc5fVQb6PHHh9 QexFFOEofmcFNl9O1NQ69aqY8NwhCRGW25z4rr/92wvChwt62ZhonPhVbVyz nrC+ucfEHwEu3HmuooROeDrYr2SxggsZp8YZNgQQ+ftBN2u+lwu3mHy2kST8 QXQlZY6dG1O5isfIhB+XhAb9OMCNz7J4Oc0JHxi7BiN/uLG2LWFHBOF3Ovaa Q0o8KFU/opFEWCdCSGHAjgcPBfy5mEmYTyqNrecRD47Q69TqCNc55Da1mvEi Va9rB885Omg99Ka2+PLi+v1WRxnCD35sKfl8mxf5g7m/ahG+GFue0vidF5NP ndvsSlj9zVvXuut8+G9BS1AJ4QzuKzY1lXzY8q7JuoEw1wELoPXx4ZEDM1l9 hIfnm+VfaW7AG4WZ0xsC6ZBGpn8va9uA+s1FZucJs59/0F3ydwOufZK9m0TY wL1ktF2IH/2CF+KLCec9DehoM+JH4+jhg+OEI6x+V38hzj0r32REjp8n4jtH L7fP4keDc7yNUYRnb78p+vScHx2bqCY5hA+NhD9o6ufHe3PqFyYJbw/jiPyg JYDvWo0TQ4PoYGpjWjpuLoD2nzjWsgnv3nRpgN1VAK1olTubCLuVz4B5pACW 78y6LH2BDlfHv63VfBXAI+aG4o2EUyr41QbHBLBkemZuhfD9CCtXxjUB3MJR 9XnzRTqUSr55ASRBXGltrbpKuMs+O/BVgCAeqQnrcQ4m4iPVl90dK4iK1w7f TCQ8PSHWtpohiMGaZy6/J8x05Zq2fr0gWls+lTC8RAfVF/6zFSJCGEFyAq3L dNCLLpJpIwuhlk1gpD9hdByzXaAI4SrzskEl4b0/XIq0TgihUHCOMobQ4ZKc qffTSiHcEFL560Qokf/TwXebPwqhd3dFSznhG9UVDT96hVDFNdWbJYzIv31k ZTV2YbRQ1J3PI9x0lX84b78w3tWeuM0RQYcOJyuhBh9hXDf2DvQgPKgQZToW KowGLUwn6wj/er30UDFPGMna+gWxkXSQ/tl7KHNZGB10fvKoXSHeT6rY9bc8 Irj3yaHGNMJa1xxe9cuKIIR6sPBE08Fc6d0mGUsRnF2vFv1F2NelqD39rgi6 /rxvNxFLhyDlMbbqIhGsUjFx871K5MeCrF7XWxFkzHE6skg4NSElRWxCBE+2 7TzLE08Hak3wnlsGojiozN/ndp0OmfHRswdsRDEz+dmTecLRe28mSruJIvc2 6ZCrCUQ+jOY05V4RRY9cn9A3icT6cbZYvvxM9JdJr7dLosObFvp4yJAoblT1 KVkj/Ch9LGbHL1G8wHVUuyiZDp5b/tQ3SmxEro/6O8VvEfGw32zad2Ij/nl0 L0vmDjGeuPZA1oWNWKOhYTdJ+PUgJczz2kY0LAlRr75L1JsAxzdzJRvxr/rc 1Ml0ot7eCTFg+bMR29/enlu6T4etfa1a5GQxjBPRdGTPJdrz+r78yBZDzkZG qlweHRb/mfintEoMv3ZVrJs8ocMrJoanhr1i2PtP5/mUAmK/VlJVtSWL4/bt UdeinhHjzeh+FDQSx9upyrOfS+ggUIVe7bbi+K6RdTOpjFhvS6dctwBxLGay LeyrIPaL0+EK/lRxDD7Gs/VpNR0s9K7VbGsRR3m7Ky56r+mgtp56dG1YHL+m zsTVv6HDzxuFD65wbUL2n09vrL2lQ1h5u8SdfZswN4NNsKWBqCe/twi/ntyE c6U/X+/soMN7eBC4kUECP7BuzkvsIvpH8neeFZZAoRSn62N04n488/eUKBIo GiMZTB0g6rdklfKNBAlMr31uJjZFB5mj5LiJTAl8Oy3v9XWamG922tTO5xKY eC986t4cHR5uuVyy0ieByjIW+92X6GBjbGp4TFMSpRdaWMuYeyAoouzeazNJ jL2wyjjP1gOP35EYxFwkcZKTd6cZVw+s2rLXN0ZI4r29SWLyAj2Qc6TRVq9V Et/3Hqt/L9MDf8Oc3DnPS+HIzD0lZZMeINe/rzsWL4VjQjW/X5v1wF5OfeU3 D6RQJOCBuq9VD+TflJjya5DCv07iq5J7e8Aps/8cXVwadanvuOs8eyB8dE+H 3lZplA/Tfa/r2wOFKrUGN02lcb/DiTP1/j3AVJa9buYjjc4mws0Y2gNPa72v Pn0ljalj1dkvbvdAFzt9kvOLNPpVXrFTu98DbLttbI+PSOOX5TqFmsc9cLBV XUicTwbFfPP4XUp7gGNkISPiiAye1uX3t/3UAxqR0KHCKIvbrXNKl/h7QSvL 7W0+lyxm23xzOSjeCzq14fkqwrIYpDIeMyHXC/rMdZdUlIl2km9QtHYvmEZa yKnYyOLHM7GVLc69sDPLiyvfSRZ5ejR33nXvBfPauHmymyyucD1MTTzVC1bM TfVkf1kUfOL7lC+8Fxwj93iT78ri4ZiKA76FveCU5ef4JFMWA0Pw5MfnveBc m2xELpRFkqK36KHaXjjI/I2PTJXFnCLTMXJ3LxyPdCnbPEK0KzQUX+Ttg8DI Y2vKmnIY/Cho4MvlPgjKihrJNZBDM7XVXZzX++BibXaz8k45lOOImY7O6INQ 5vGHyvvlkNR0QufAqz6IjTxlpnxZDo+Fvws+v95HfG9c35obLYeTUn0+oRz9 cK22eKPyDTnM476W4i3QDzeZ574rZcnh7V8eKS8U+iEt8lyC0gc5dNlmqWBl 1Q8ZWannc1rkcOhSY/SBvf1wv/a5mxJdDm11jf6kHO6HLOZVLaUZOQzM23Up yb8fCiND2hVF5LH4I8Puqgf98DoyRlbxqDxq2PDJ6zEOwHhlK+mctzzKSQ50 c/MNgPCEHLneXx6n41XURSQG4JT9K02PaHncE/Fuuk53ACSl5kyzC+SxKF5n Iu/0AFyqdPFQ/CWP7EzzyDQ+AHnfc73OrcujhQed32l5AFolF0/Xcyhgmxdv zCjHIKhFJgZ6SCgg/4VTN6gqg9BtVxeTjQo4/fU35ejZQTD4viVfMV4B2dzb Aju4huCEZHDxuRQFjBQrF9KTGYIku4bS+nsK2Ff/5GaH9hBMVLhXezxTQN0L iqzTh4YgLeJ2Y3abAo7wBqWerBiCFQnGGUVZEnH+k9FcPDsMJDvb+XNkEmow 3FFuixsG+4j0pXotEvZkyd9jeDwMeeO6DCfMSCjBc/mIYfswOFd4C+R4kzA4 aazA0mQEqmxbtZUqSMgdWKzHTRqFWGqruAmVhEJ5JqGOO0fBWaNt3fUDCflS 9BdXjo/CksC3f2/2kLAygOeUe+4o6LW1H/vDqojH1Kts8zTGoNy1O7nVSRFr Nl94ob5vHKIauy/MuClizEBol1/wOOyl0I9w+Shi1NUPJaKZ4zAv3aOKoYr4 bIW/NGx2HLQGe2sLchVxKqPPpO/md3jmOTgfsayIPRIRJfWjExDWOdh5j0kJ 3w+xyokITYK91RC1ikcJhz78GKuDSZhRHY6fllXCkz4fGczSJon6PqLgYqmE 0hUWX2ocp6Dw3HdHzTQlDG598iuh4wfkRsyW9Rkq44t9Uhzfk2fh+NnOPTZm yriQ3srOXDwLsm41My9tlZFN0qtwR8Ms3KGkqKYeVUbt48+dt/+ZhbjlbVm7 Y5RR2rbh9KTnHPj6hia9aFFG04Fu6wO7foKOC9/ZZK/NqFQyYGYtswBvNdW2 7rpNxrijB2FWaxnkDzcUhT4iY6Fwj4uf8zJExB3fUlVARjD9N1E0ZBlMhzLU yDQyZlszXq37sAw1Kbyq3N/JeOXT7oQS9xWoW5pW/mSggrwkqS85aavQ8LpE bn+vClp0xp+vkfsDnyy3iZxUVMNO5lt2n00Ykb3n6C+d2K1o7Jj36UItG+6/ Z/El6owGtubkhdUT5+bHDA2HrMs10ZAzbVS/VABj5PaPeQ5pYb2MXHL5X2Ec /mWTO6iqgwP/GqSXlohhkOb7xiO+uqhBC7UuPC2Jj8j2M9rperjR3dN6ck0G d35Di+MD2/Bjum5B8KIcXkKT+5MC+rjjaNnCkRYFnNxQdyDQyADL/jUfbS1Q xNbkYutDYYb4NGbxyOEyZXRsyzNILzZCzU4lKb57ZPRmPdXUX2aElAMv72Zm kzFCV91N6YURjnDs895WTMbSWxVXSmqNkC+Rm92dSkZ+p5rP7zuI9sO+KtUD ZGz61n1igYmCzLYpy5eUVHBXB1+yzX4KmgYUFFOeqeBhjhbF5IMUTI4zPU6v UsHA7beqOo5S8NkNilfwWxXMuSPRe+wUBW1Z/nV72aKCLAc2ky+GU7A5VZfJ aFEF33aaUHMKKJjIPDxjY6CKHZysDlPPKJihJhY/Z6qKs/oNw5qVFDx6P9b/ lrUqyqbZcr2mUbDIKU2196Aqhri47vvaRsGwhWEd/1BVTI2THhfrpmAU5Yie eKwqFr0cuHi4n4L+dbxR1BuqSN/k+fD7BAXLoyOZeTNVccFKVVt9loKOVA7d 8nxV5Amerg9YpOBFDeNS1zJVJBWUOL9cpeCnDqZg5leq+P//4/irUjexoE4V /wf0WwCu "]]}, {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwBsQRO+yFib1JlAgAAAEoAAAACAAAAO9t06///PcA1fZcqjrwjQK7zpO9J +z3Alc7tPo66I0AiDNXzk/Y9wPMoUTmOuCNACj01/CftPcDq5yngjbQjQNqe 9QxQ2j3AmLCP9YusI0B4YnYuoLQ9wHFLhzqDnCNAtOl3cUBpPcDoXJkHXnwj QC74eveA0jzAgTFye8M7I0CnYBnNpYs7wGl3Wgc1riJAiwuopXNaOsCDQhgV HSgiQDhRtBg+LznAusRZ2b6iIUBr4lhVrOo3wNmc9ODODyFACLbtlMO7NsDl YLNZaYQgQCvVGp5+czXA4xh0r2bVH0AXj8VBNjE0wOcS8yfWoR5Abotg6JYE M8BYer2SZ30dQEvTk1ibvjHAlMlgGcI5HECTXbfLSI4wwAO+1UrvBBtARwWx suXHLsAZdmxtV88ZQHTmI2GBQCzAoevoGgB3GEB2THcVb+QpwGxFV8/vLBdA hEn7XKRVJ8BjWqlJcrwVQCR8etnS0iTAV7g4emlGFECaM9pbU3siwA7QV+MB 3RJANwTV4jbiH8A0rigMCkURQOSqthlrJBvA5VFZSvNsD0Cqf/l2LgEWwI00 1vHX3QtAlL8yPuT1EMDmMvjVnSIIQFASWiJ8ggjA5qzA2UpfBEBPAyIqnJz8 v1dn03k1sv8/ZMtz+mRQ/L+w21mFEY7/P3qTxcotBPy/XBzA0thp/z+kI2lr v2v7v2aconIoIf8/+kOwrOI6+r9P70lXxo7+P6aEPi8p2fe/CuYHds5l/T/8 BVs0thXzvwkqWKJqAfs/Es6sBH/J8r9SexFNQNr6PyeW/tRHffK/56LzUvmy +j9SJqJ12eTxv1uZZBwUZPo/p0bptvyz8L9CZyj44sT5P6QO73KGpOy/kGFU /pGA+D9QESh9oB3jv2Y7c2gZ3fU/324KazCI4r/+B0u5Z7L1P27M7FjA8uG/ kkEA34uH9T+Nh7E04Mfgv6wjJQJTMfU/lft12D/k3L8W05kHyYL0P4rUm7Y+ jdO/1BQz46Qc8z+AzvBcjueLv1Ot7j0fJfA/WJvvVOzocj/9bYl1xObvP+w0 8Fg9aJc/02FRYa6C7z+MaCzwIGKuPyszQUyeuO4/LkHlXYnvwD/6iTi6dRzt P6LHzNDFztE/QT1HDHu/6T+EDAj1pfnSP4voSJPxT+k/ZVFDGYYk1D8nDKI0 cN/oPyjbuWFGetY/oMgn2WH75z+t7qbyxiXbP1nzYj74JeY/3IpACmQ+4j+M 2/flIjriP4oHkjeC4OI/JU0Na8+p4T84hONkoILjP7cYp4kkF+E/k32Gv9zG 5D8upp6kP9TfP0pwzHRVT+c/CkriN7zW2j/47B2ic/HnPzMP+BfAhNk/pmlv z5GT6D/odr1AyCnYPwFjEirO1+k/ljLIlIJU1T+u32NX7HnqP7rNFRlb19M/ XFy1hAoc6z8QMuKdUEvSP7hVWN9GYOw/CUySEh/2zT9m0qkMZQLtP8tOqk1I XMo/FE/7OYOk7T9UQ1pZZ37GP8LLTGehRu4/KE7nnWNCwj9vSJ6Uv+juPw68 O3j36bo/HMXvwd2K7z+sWAKzjSmuP/41D0hZ/O8/UBdh/lfmdz+fOFUY "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageMargins->{{0., 22.}, {59., 0.}}, ImageSize->{801.3432322961969, Automatic}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-30, 30}, {0.0024639420670119414`, 35.51030964609235}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.65804549248949*^9, 3.65804550998799*^9}, { 3.6580455497073917`*^9, 3.658045576496475*^9}, {3.65804576691541*^9, 3.6580458165984097`*^9}, 3.658045856893733*^9, 3.6580459151091843`*^9, 3.658046007095211*^9, 3.658046303148505*^9, 3.65805482704909*^9, { 3.658064518009663*^9, 3.658064546578174*^9}, 3.658107453488801*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{"-", "30"}], "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "30"}], "]"}], "/.", RowBox[{"sol1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "30"}], "]"}], "/.", RowBox[{"sol3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", RowBox[{"-", "30"}], "]"}], "/.", RowBox[{"sol4", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", "30", "]"}], "/.", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "30", "]"}], "/.", RowBox[{"sol1", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "30", "]"}], "/.", RowBox[{"sol3", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", " ", RowBox[{ RowBox[{"x", "[", "30", "]"}], "/.", RowBox[{"sol4", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}]}], "Input", CellChangeTimes->{{3.65805132276772*^9, 3.658051398888586*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "35.50818698277809`"}], ",", RowBox[{"-", "35.48912021805897`"}], ",", RowBox[{"-", "35.51031100757146`"}], ",", RowBox[{"-", "35.51028978272078`"}]}], "}"}]], "Output", CellChangeTimes->{{3.658051346765761*^9, 3.658051399422817*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "17.284420045907087`", ",", "19.022159737185973`", ",", "0.4444444444444444`", ",", "13.88406515170983`"}], "}"}]], "Output", CellChangeTimes->{{3.658051346765761*^9, 3.65805139942523*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol1"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol3"}], ",", " ", RowBox[{ RowBox[{"Abs", "[", RowBox[{"x", "[", "\[Tau]", "]"}], "]"}], " ", "/.", " ", "sol4"}], ",", " ", RowBox[{"xout", "[", RowBox[{"rs", ",", " ", "\[Tau]"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"\[Tau]", ",", " ", RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}]}], "]"}]], "Input", CellChangeTimes->{{3.658063899140728*^9, 3.658063900632944*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt12k01d3bB3BzKrqbJIWQREqTRNRXgwwplSEioYlGoUSZpQEJDTIkjrGM 0V0JOylRpDKf8zMczjmmyBjqznl+/7WeF3td6/Pmu19c17r22opOFw6eEBIQ EGijz/+qBhb18fl8st7M8NpVX1F9i9Mrb0795pPqEo/0EW9Rfe/72iqj43xy IU62xMVTVP9j/2EnXj+f6GwtTz/kKqrvEJPIrG7iE4ZpmdcGJ1H9yGHVz49y +eS42qrZHANR/TGGbtbGo3yiavbnlZakqH6RuOP5U6XT5Ncxi76YOBF9v5rG /jLHv0Tp6t+haYawfm+qjPRm2f+IjUDTVpU3Qvqr2o1m/tP6m7yBwqb1DYL6 KQsYYy2BU0R7ntb+ghYB/XLbT+EEk2Szpat7VQsfsomyCjHsX+ROqEzElbq/ 2LPT1qvu1jjpl5O6cPfbHyz7c9JfzXiMXGo3ENccn8KanAR/t4ERop9l9lxk YgIdHkkajRnDxLKsolNA8Rdc4iMZ8aeHiKSt5qLTh8dg7WuzPEtpkAiJ/B29 4jEC1X41W4vH/STmWil7179DOLNv//XOrh4yniEtx3kxgMPuZlu1tHjEuVVk e5RSH6JJz37ybxfZc4BUC7TxAKFmKw1BNgl6M9kafrILp5vfuaaOUuRulliv 7rYO6D0KWFx0pYksW3vLOL+uBc6twywb6e9EXOrnOQefOph1rM6uVP5E7vuv lX8W+hlaJK6pL7iUbAt/6KWxhWCJhEjv442lZOn+wx8Eu0rx1/rs74OdJYRa EtjbFVqK9yN6cm9QQozzUr/Vt5bAXKXNKfT3G+KkSYhLYDFcwxUG1V1fk4Pn 98048eU1Mm1TRc7ZFpLjgeLyVRcLEZYhuUhxViGJXv3f9UDZQriOX1rZ8KqA BIgvC9jzsQDaEbtNti4qIA8TRo0l5ApQ8a47QvJbPknXZNcbV+WjwtxCyy48 h/zIUr/rYZwDnaEjx9qOpZC1J1z42rUMnC1K6fV8zyBup2smBtQZeBzcf2He CgbJTF/o8u5mMoRlvK7t4iURg7tUb9WOJDwKUlW3/PaYuEsExGa6JuCtyv2I AeY9wvsU8+HTwWiseKMUrxAfTXL3evesnRuF22Z5GeZHoshrtyePGmruIn3o QZA7iSAWDoVLK6LD8CVauGd21XWyMentsvm3AxFTLC/otieILLl6Y6BP3B9O XJ0lzTX+pOjhs56wuVdxSPbpyWtPrpEnVra1xnMvo+9cR4xRqie5qxYwJTHv InzJos8Ln7qRdTNKcrNXOENJKfZ32ZEzRKG3+nyilR2MP4gdPXzKkfgvmcoX rtbH26Qayc/le4mA/U+dCQlDGDH4b9PUNaFwaa5G0/mjCE4+2f1qwhrrNqff vpHpAm/Rcw2Wmq7YrxqhWV5+GQ/ajUOi5gbCNGpbbZLJdaSYvmrLm45C8IVF nV4B96Ae9HPW20sMVBpYm1kIp8BOd4F4tlIKDH3MM32epSBsVEs0tjYFSyek +33MUzF4zJfvrpaGxy8NG4UYaXi+S3JsZWsGxu6ZycnqZ0JbTL01YlcOZMVP T3u75SB5V0FT7q1CPLIKXp9rW4jcj4OZftYE3s2eguH2pSgx/qS95V0VnIXm fD4hXon+p8ku+6y/w80+fVPSqa9IyNaIG3vRBO4th9339epxXmLxramqJnyL /KzZaVyPbWcEPadbm7B7adXRlYfq0aZaf1BcrBlVHNNDsRfroZDiNUvWqhkz 8tZCKa0eKbHvvXb+asaaimTnF5INyLpx2DpKiwl5wXnsssYGXOPt3P3QhIk/ B2KGZ3c1YK/BGs14eybuOu+7s/dnAwaFBOamhTBBjYRbvJzRiHW+qR9fNzLB GXFzVNZuRKHHkBb7MgtUWOqU/cNGFDuGSK17SWG3sLqrmlkTWua21nGrKexQ 2DXfxLYJv8jGqLhOCoU1d2uOnmrCOnn2nBlzWqF0uPDsab8mMJi64m3HW7Ex wNbiT04TbpsP/w6d34YdX6QChCWaYW1g19F9rh1CZvfNXEqacWns+eOEoHbM wZzUJZXNiGLMPGL+qB3kxP1m8r0Z1YIvW0rftyO8ICqX290MhfabvZ8kO8Cb mT2cMK8F0XFdnUnHOyB0vJn869QC74WPGszmsyHulDOo9acFZ4St2i/KspE2 /vFggTATdiPze6NV2Hg9rN+0XIIJfA37r2kLG2NeptJsWSZEwvyXOxxjI8TE fs/nrUzcEXa+6FrIxim5thsWPkz4jShfjSpl45XERKnkdSZc2ezgwko2zNY8 dSgKY8Kc2MZMUmxoSf5XOBDHxOKrZsRftBOXXNSs37xmgjGiJRlp1Qkj14ro 7hEm7rFHFxU4dEL+jd7Lb1NMhHzNU2g43QmDfhmfHAEWnHNWacr4deKmgGQx 5rCgcVreNim9E8HxjOtElYVXbNHM/MlOLLwptEDVloXMr++e1wl1oW792d5N jizEEr/icYkuuFERAZtOseCTMFWro9gFGW2PopnuLOywGfhVZtyFmOVFaSK3 Waj+Wr/re2wXGsXUJrVesPCv3WHtspQu+AZcGkcRC0k97ep5OV3ghM06sIWw cFmgf/6dd11Yb8TjCFWxoLBOkG3c14XqQrtPbBYLs4pD6rXHunBIV1DIo4OF cUOJypXTXdC7vFB6gsPCp6PSuaLzOXgc5Ha/doCFSxFrfMp0OLht5SNWOc2C w9IC17ydHGS3zNjbLkTBJF37eOJeDr4xWT08MQoKZOceH0cOVE5taKmYQ+HT oI2Mzi0OKqz+3vsoR0F+X8iLvGYOfB9Iry3WpiDOnJ2Z2MkB148v81WXwuiJ yPg7PziYzzusXreNQqVPfNBZAS6e2iy4mLaLgnv28wOqqlwszzLc72dGwV5H 20B6Axf7QjdozjpIwehDibaYHhfRHYExQRb0fa2VyzhmXJSM3A/bbkPnSbQP JHpyERkmVN7tSOF5zHH2nQAupDy3GHGOUUhQ7qv3CeUiKcog/ssJCm56429s E7nwPLPK8qwLBbtK71yTTC580zXClp2hYGghwNAp4KJnQ8mmt2cpyJ6dfVv6 IxdT8na+VRcoiE3e9RH7xkWUodeP9RcpDActujjO5GKNtOqZG24UqH/ij3M4 XJQPD7Kr3ClUxCla1w1yYaproT3lQSF/Zfqed5NcZK1otZS6TCG+YDXyhXiw fWerKO9JIQTPNzyR4GGHkpv/gisULn7erBKxiAf35GzrcdqB/NEAK0UeJtSM NtZ7UYjamNcqt5qH9xekauO8KTBOndXhavEQ+cdklulVeo/Eqd7P2s7DQkv5 cg7tD7WcIXdTHtZ/cWs6cY1Co3CSqe4hHuxmpCyvpd29+UiGkBMPksqawQo+ FCbPyIh8OsvDTx37BhvaM580HI305IF3W2/Um/aS+sg31oE8bJ56+juY9irx fdIK4TzI/NQ4d4u2rt4s9+6HPJTGObLDaZu6VnzJSeYhTX7HoSjadimBqy5n 8+Ar++3LA9q+En/YIuU87D30910i7Qj9l1ura3g48ycOKbSfeLg/im7m4XNP f0kG7TKqf7/SIA+x55JJPm2RbIpAphuvyn2aymnf3lua4H2hG2nlt216aMcF eE9t9+6GkVrU8A/aWS+0LGde78b5eVahw7Rr5HIlYmK7EbN50fvftOcOJl59 8aEbCX6hJpK+FB7eCbAZWtoDZYXuZxtop9TukjpZ2YOpvD0ffGkvjouK8/je A0n52J1BtENPdigGUT2w5PuW36Dt9veqxpOhHvBOzKm8S3u7eoEhc3EvJF+a c5Jpt4Uoeu9z6YXIzEmXj//L2zbdpjWrD4Wc1qfz/CiEZb3MmGHaj2eqX5Wf 0RaMrjcuFx1E88tGjbkBFKQzn31MMRrCyQkzpk8g3d90/+WiN4dRHtnhIRpM wfbZqhC3zhHoH2t72nidgl7cDN0PK8bQ6/w96PkNCl0Rr38pB49Dd/LxZPct en6W+/UrUr+w95aDvUkYhQ6G5wYRuUl8MaaaX9+h8F3VwH/0yhT2xbDuPI6k sCzWQKGy5DdWLLUIuHePwoOnNlM6//1B9x5OFnlIoY7saHll+ReKriUqQXEU zpTZz5aLmcaQEXllm0jBKbHlQXHCNIrt7bPO0T7sY6Fkx5jGai3xdD/aRjom OnE50zAfC8ln0FbO33RK5sM0zLSuLf1Bm3oiUS41Mg1jqWQD3yf0vPkXec8x 5eOzY4loRhKFnfabxHIO8PFP/mB7Ee0tenmRew/x0b4woKyGtupkakaYEx9X OXWxo7RFXCMbZ3nxobnaJw3JFEqOOm+YkcbH1idWyi20C7d2laQ946Ogou/S D9pZS+2Nd+fzYcSaU8unHdtk7nC9mI+UdQtiVBgULpvRT14dH9Pax6570D63 pkiG0czHTp+aBTdpH5+9KXVHGx8H3Tsy42gf/LiqOKCXj7RGiYF3tI1TUw0V f/LR4LE6tpG2fpBC3dsxOl9F0KyP9mbHOHuH33zcErkze5r2///nMKnSWDsv hcL/AUn6Hmc= "]]}, {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt13kw1d//B3B7iPJpV/ZUJH36tIiop0JRpGghS0hlSamUki3bR1JCC9my hmSJPsnSW5stS2W73Pe93NUW2ZeK+72/md8fZ8485sw8X2deZ+acOcpOlyzO CgkICFD44//mzVgxwOPxiN6wj+ukzET1j7ltCJ/9xSMqzfqUg0xE9X0eaa8f n+QRyrH/iM8YierXDJ5y4g7yiDNFsrGsPaL6DnEpXQ0dPCKYGZf6douofvSo 2pf4Ah7RbLoq0XGZqP5Eum7ettM84uYZXdozqoh+mbjjxfPv5okzpb81qa4i +gGN7YPvHeeIE7dlnnEuC+v3Z8qu3Cn3h7g513+6MFxIf2O3scRi2i+CdbhJ 2DpNUD9jafpEZ9AssXJxbca5LAH9jzb19wjMEI+vPNPce4UHuRQ5pTjGFGGn ujrym9scDhnY3Gy5M0ksomqvu+76G4q/zwWqm0wQPM6taY+oWWjmJwVeGRoj bNVbphpip9Hjlbq5PXuUcM4tKNhWNQnXxOj0RLcRguNQUCv0ZxxW/tZr81SG icQs3/KSVWNQG1S3OZY8SDT9d/4yz3YE7oePhDJZfcT2/tOx7eJDOHXVfLeW FpeIvi1lPe/Tj1ii7wjxH4tIoFYLJOlyASHKic2CDMK/2O0Hs44JN8oHz8xx kkiiNhGCh7uhF397VdmNDuLumKT97iIKXGijVOuV34lT9RJvJ899h3nPppe1 qvXEWKjrns/X6qBFJHQMhLwjYvaNaxrsLcdqKZH+5G3vCN5axkD7QBnmrC78 smBWEgGTQtE3H5bh05iefDkqCT3nnPzB3rewXE93uvurnJA/OlYTHFUKz3tK wxqeb4md5Ua+4YzXyLHJFPGwKSHSeF7z0tGFiMyWXqEsWUIsNQtUj9ArhOfk tQ1tpcXEQNOLSY2vBdCO2n9w94piotG3/chb/3xUf+iNkv5WREyrrS4wo71A teUxLdt7+cSfhtKP559lQWfE7gz9TAbhteV11w2/OFwoy+j3/pRO+P6lqNan 8wTJIYOX/lqXTmTTI14/nnoEYdmbvobcVOJxT+R4kWcs4oPVNI5/SybWj15z rmmOxPzK/3aGxyQRBx1d3VNMI+CUZ2BYbplIbNUa95+u+xeb2uztlNvjibzg +Ri16iBEu/5wPfYkjjC+tPqPoFEgpuZuXv/X6glhda00pDT8FqrWP4oa6npI HAleEqh25zLWlaskKiXGElWP90bXLXdFhHlhtqVdDFH1Ped3tJY9frJ2vw5T iCYE9tj46981xPORx8FXiShCP06YCDxsAE/ZV4mde+8RAo0TmxY9sMOufY2v 8SmC6OmhlZ0pc0FTrHDfwrpQQqaK4eZneh1xFQqCVw4FE4mC7g3x+27BiaOz mtIYSGg35+V1rAnEgEdPnHGmNyGT8VvJaXEoqlIbpb98NCOavZcWG47ch3E6 rypLYzvqzxc3xRU/QEjaud7SaSukxs+XNAxHw0fUo+34dk+UZ8m7XHB+iMfd JmExMkFIWHjrYrhpPDJMS+mF8zFI0Xh/Tzo8FRrBPyWrrqXD4tvkxM9/XsBW d6n4S5UMuIStq3OjvEDkuJbo0+YMbDnx2LzCPw/DZ/x5V9WzMK6Yup5V/xKv DKUnNtCy4ageM5a8pRDaYhq0KMN8+Ctuu7jw4yukGRZ3FNwpgSo2KrI73qCg ZjgnwIpASvUB4ZTuKlSa1Gvv+lCHuLN7464l12EwN831sNV3lFUayg2u/Yak l5sTJl53gLE8ae3X/lZclFp1Z7auA4W5CgWsqVbscRf0nqd1wM6y8eJP4TbQ 1VotxMUo2Nw56PVTvg1KGTcl5U5QkBfyUTj6aBsynn66aTBFwZovd12Ov2lD 3r+nrGK0uiBWrzBf4dsOX67B/icHuyBS/OxCQ3g7zIw0tyfad8Eu+ZFNy8N2 DAsJyGSFdWGBzKu0mrx2bPHPrHnb3oU4t+xNJmQ7SrxGtBjXqTD/3daZq9OB Csew5VvekODIl+8qH+pApwythdNAQiP2UNPT2Q5MEdtiEpgkKGKJHpdEKdii wFi0YBENNSq5udNyFKR36YrTnWm4+O6NXPAhCiIsR3/dXULHur/YTX5ZFFgZ 2fb0enTDy8hJ5p1lJ65NvEpOCu6G1nPzR5vsOxGTLmFnGd+NXMHQ/vsunWgQ fNP57hN//YZ8y2a/Tih1h/fXS/eAccT+SldmJ2ITWMxU5x6I/Z0m2zHRCZ9l 8W3mSxhYxpxVX3qnC+7CJ7ovyzEQN1d9yjy6C7ZjS/pj1zNQ7tufFBDfBXyN /NOxiwG/AYPNFTn8PkYGrnU4w4C9M0svo64L94VdLnuWMHA87fCe9QuoCBhT vRXzjoGCv7zMkxdR4clghJTUMrC7n6iQWEGFJWETN0MyQKNc9ilTpWLVLXMi UJQJ39FmtaC9VKSPaUlHn2AivjbkesoNKh4yxlcUOzAxUU/xOhBARdjXQqU2 NyYkUy1FmKFUuORv3C4bwMR0wdHU4RgqNrsp2KQ+Z8Lx62U75zwqShmiOUUz TPyK3/z6NUlFztcPr1qEWJCnv7cMZFLxlAiomJRioceiKU2vjwq/pNlmHWUW VGKNVkWMU7HPemjqvQkLrdWNJdclSDR8bTX8/pSFZPd4bvhWEv/ZntJ+n8HC csFl/Yd3kkjt69YozGdBlxjSFtMjcV1gcMn9DyyIxzwMMDYiobRFkGEywEJ1 XHiP7EkSkhVhrdoTLHT5tIW62JCYPCBVu2GehaA9mlPPT5OoP72yQHQJG+4p X6ZmzpO4FqXp916HjVslG54wvEk4rCn2LDRgY/Lij9KSWyQOPtd2TjFjI0dA aM2NAH49wuCQnyMb6ZrC1s1h/Lxha1mdO2yMpivWVz4kUeLTLaUWy8YV74FZ mTgSKWJnBVYmseGasIRimUDCS8Gzd6KQDWFavEV2KgmFw2GvCylsDDH/WR/x koR418KcFCYbp11OvrQqJDF+Njrx/g82vq9+sH9FMYlav8TgCwIc/L14u519 KYliCRVvG0kOLNoSivrKSCQ/eu52cBkHg18XVztWkrj68tVRNTUOyim9pOIH EvY62kYrt3JgbDZS4vyJhPHnSn5fOdh4adfMk2r+fmi1imxzDiLvcFzq6vn1 pLqHUrw5SAyKiTz+ncSrOGfG/dscyO2YPLGwlUSS6kCr310OHghKd+W3kbii N1luk8IBmVae945CwrbWp+BgDgfTx4IaN3aROHBMIF2nmJ9PtTMJoZKQu7Aw YmUNBwU+wRPzNBJiMw/8xL5xQD1mM67YTWI0eMXlyS4OguJVfmj2kCAXJzqz 2RxkNkR9VmOQqE5QtmoZ5mDfFetzMvx7omjD80MfZjiwW6T1ms13YvEmFAlx MaFKxmWySITh1dZnUlxI7BKasWCTuPxl5/qoFVzY2i57+4PvIN747RPKXHTt tIYfh0TMtkKa/CYudjnPuU3xnX7+gg5Hi4tLUa2yVlz+eSeoPcrby4W2Sox6 Gt+fm9kjV025ULotJNPGd7twqqnuSS7SbI7/EOglMeMuK1J/gV//Z1mbFd8S z9pOR3tzIZLbyQzhe3VrdLlVEBextsYCRXzr6kle7X3CxcM8zQsSfST8pX4z RD5ycXR5lXg531H6b3Y3NHIhkysW38v3M6+r8bEULt7sadRZ1k/iPTl4RGWY iz73sTwPvkVekgRke8EbMzylPEAiwuxdks+lXhxKOtR+d5BERrPh8nO1fdgz lHraYZREZN6b7AWmg9DSS/IQmCMhGNtq8lF0GBYlwdO1kjSszHlRk2E8Aol9 YTq0VTS0Pw9cKxo+iuTAeyXcDTTYvNgYdoU5hrPuncJvdGjQS1ig+3ndBHya dCa7D9HAino7pRoyCXlfwSMOjjSUrA0YVCan0JggreJ/g4aedO+tIvIzUJe8 6Cf4gIbvakaB4zdm8WjmRGTzCxoUnxop1Vb+guz3ER+FWhoe51rP6vz5jeyt jYy9XBpaiH2dpcfnUNLRcb9Dgg739/YL5ePmoeiTGTmrSYdTSufjiqR59K0w fp66mY5TfsdUbNPn4TRTPW/yNx3GOgd1EvLnEd+T5ZywhQ7Voh3nZT/Pwz9b atHebXSQz6Q+Lh+bx051m74n2nSYBpb5LDLlIfSz2z4vAzoM7HeI5R/l4R/X dQqqhnTs0iuMNjvJQ7uDlk4r32ozmdmRTjxs+lmkuWM/HSKe0e2SN3lom/NY 8suYjsrTLlsXZPHwKnqIFnWYjpLdrMqsFzz4x2x/a2BOR94ae5P9RTyUX93U Ns330w5Lh9AKHnJ9QpsdjtJx3Zz/pLTwoCGj+3XHMTo8NMtk0yk8WEecLx7k 23nhjsx9dB52aIx1pB6nw6JmY8Xtfh5WhNzgLDpJh0lm5gHln/y8eylNn/nW D1ZqqZrgYaHjrVlfKzp2OibYO/zigZelfG67NR3//9+CuXj2sh98/w8TzA69 "]]}, {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxF13k01fkbB3B7plKNaVAoSqVEu2Uqb0MLJYqSLUkmZSnLSClLyERiaLPm p3uFkn3axAdlSWZS4XJ9LdddFEPXcmWJ+/M753du5zzPeZ/XP89zzvPfo+5y zuo3CTExsarZ/l/qQKFPKBSSqXXFpt/CpY0Ou6+5NjEpJE4LbW77hUobBd7W Xz0iEBIDwaWGvsvSRrX99i68fiEpy/1lstVf2sg5MZ3ZwBCSn+mdViVu0kbx Q5pvk/KFpJfjNnJqv7TRKG177pbjQnJtXnFNqby00QvZE2fdymfI538Cj6/I kDIK+bulv/LENPHIfhuWkCNp9DlziaKeyjcS33dN5nWFhNG6LtMfFnZMkpCb Tc1tTHEj+k+00bawCaLdH1Z7ukvM6JVD/Q2CcXJ0o3ixBVcIlXQVtUTWGDFU Kjim2jWN/SYOFz9GCcjBgfU6eh1TWD51KnSt2SjxDeTOSxSbhHZeWqjvwDBp jl91abnEOLp/z9BpyR4iKcvHfFu0xnAmNZ6W6s4n2vkLhiZdR2EbbLcyd8Ug 2XQoHOXBw9DsX+tw+F4/kVc2zDeu4MPD4uDVHvYnsn/G8KzxmwHY+1nu1NXl EdOxvgLrbX24ST4dJE/YJOja3jvafB4g0WqjI84ii+5XFSlcYMO9tco7c4Qi GfSor5qW3diRdEXpxQUGyYz/2WbLaBtOdwy12yl+ICUbntOiUj/Csnv94zqN epL8154jnrVvoUtSGH0R5aQjTtxC+Ihg6Xypz/e2lJNBca+FZYcJpm09J616 ysjdp0uyoqbL8Xp4h2opysgNV8E5S8tyWK/udLk+WUpeSPXLxI68hPcNtUEt 7+fki8NFE8rwBXIcMqW8HEqI8Sr5Lk53CWKy5RTU55YQmcjyS9eul8Bb4L+m +VkxsZHZkLNdtwT6cXv27VQoJnOlAt81Xi9GTVVvnNz7QrLA7I+JJ3pFqLE+ rOt4I48U7R0J52vkw4B/7GTnSTqJ42wyEWTR4fmC/jngNY3sSZD5GixFx72I /nM/rqKRhXi7TPMEDZJLLl7excsgK+Z+mW5deh9J4ZpaR97fIw80res9l6ej YvXtuAHmLRLywe1oy8wtrCpdkaqWepPkHopw5pTeRLRlQbb1sQRi5dP0ZfPF BGTx74T7kThiJDD9UeNzHP65Kflp3pur5OGK9fy/qKtIfLlM3Hd/OHnV/Wph t304XLgGS1v/DiUaYQrMmLZQ9Hl1J5pmBpD6kPWXOwsCEEwU3i5+6EvE9PKD 9xX6YsWK5MnKYx6konrPaOBvHjCrljlu73aCHHzmWHHO/QQqMv6We/vqABEL vb74ffUBmNKEFQ+0tkJsl/q7ktmMuH+q99lXW4jFegynj9pCOW/Pwl2+p1Dh bClQ8DqFQGmv5iNbvZGrffQIV8cbvGJdWtQGf2gu+LR022p/WLuI+ZStC8Qt qSS7QJVA3Okyi0xYFIZlwodlQxJhaHii47U+NgLBxed2hl+OgETsT4dr5v0B +9Zf78QKInFuR4f6pEwMpNquf/mRdx1082edBTMJOGYoH+HSnQCt8C9zK/xp 0EuuCYnZRoPj9p9kH6+gI4XBluR10BAzoiud/I4OndAb5xUi6Rg8GSz0W/sA oX/4M6aaM1G0S250TUc2pNI1jrb4ZUNfRqsjblceTvo51z/Leoz7u4oZ+VEl ULo3lfPxazHyawdzQmwJBv/1baqeLkOZWb3+L1VvcC+h13yEWYv+h/fPWNh+ wJvTW51jrRqR9lgnZfQvBmRdhtib1jbh7HylqIk3DAQEJeGqbhMMPcQDZjoY qNz7prXRpAmdmk1WsjKteNF1If+gUxPU6Bfnqti0QrljtfNwQhPoya8vmoy1 QmNM7sDzySbk/mFvm6DLROzi4G06r5txmWey5+4+JgaKYpuDG5txYLf21lQn Jp4teCBRSzVjUEJs0YNIJv6pXTCwU9CMjcGZtc9bmAiVUzhcvaoFJb/zdVnn 26HxIK1j69UWvDwR+fPGpxQsn3Qou+9koG1Rx0duAwWeVZpMghkDY2RLQkoP hcws7rz8IwxsXMZaMGdBB8YONhvXeTFAY26X7XTtwL+mUe7n0xiIth6avC7f CXam45nnkwzY7nbs7vXqwpinw5w7ua3wHy26lxbeBa1pqVaLp61IoP1wzDqp C5GHtl2bqmxFg/jTtvLXXfDnvnDcyGiFWte1z/Vy3egN/fZIRrwNN1PYPRmu 3ZAXFvAdrNoQuDip2VKehQUzfHub/jZ4SNp0+aiwMP9r5Je2kTY4Dst/vrma hdqQT5mHvrUBjTHfGL+wIFnUfEBVjgmpmNCVzidZCFlk7KKhM3tnydM+3iUs WDQGl/Z6MREyrHEpoZwF+zwtw2x/JrxZrIiSOhY2RstqOwYxYU0cEscpFt4v 3qZ2L4YJpUuWJFS6B6pPA+WjHjJBG9aVi7fpwdl1M6Z8NhO3WCMKxc490LvQ 8JHVx0RkY4Fas3sPJHQTJGqGmDidt27rkpAeeKbpKp0SMqHjvswhI6sHEyFO 2ZJL2/GMJZ1TON6DrJoilWzzduQ0VhV9lGADlxMulFm1I5mEvBTMZ0MgdSbx tW07gtIm3hmos8G/odqb5doOY7uBsUozNtJ8khQqL7WjobFp14dkNvKES8w3 ZrXjiaO9fiWdjZ7cnW+MctuR8alLqyCPDV/lpAfGhe04L9YvH1vFhgkz1GRp aTvUNoqzzPrYeJvpflDxn3bMfRnZpD/KRu/zZMXCD+0Q7J1ft2aGDYtNaeXb Ge2oP66YLy3PwQ+38txWdrfDP047qNKAgycblPb+MtQOZ+Vi7wITDpJd+dp2 gnbsy9J3TT/AQd+f1R6nJ2b3EZP9QSc4eHl3TtZRcQr1g3ZLDKI42KAcrRCw iMIyi8i/Clo5KF2TGJKjRUGWOS8nvYeDrE6+TrUOhZHf4lNj/+XgRKnSnMZN FOqCUsM9xbhoiFZgFelR8HtcdEhTk4vx262Sj4wpOBno71bczMWU5iKyczcF 0+oyfZkdXKiqq0yX753d11G3nGPJhbXH1Ucx5rPz5ncNpAdwsdXpna/VEQpF ia6s2CtcXMa/PTZHKaRp9DUFXefid//jGmZ2FHx3CEod0rkwktAkY44UHOsC 8/flcBHU59lX6ERh72ExmkExF259LdH2zhRUPOdFK9Zyocb58sbvJAWZ8T+D ZN5zIbvQUY/jSmEoXMFHwOQi4yTv6a+nKFALU105HC7WPhRsjnGjUJOibvtx kIvOh/y4V6cpFK7J2l81zsW0tuGT3jMUUovXo1CChz7r9TfG3SlEomjzf+bz MMlmTAo8KPi81Vsdp8DD2E+POF2eFMKEI1ds1Hm4FM8Nr/WikLCloEN1PQ8t z6N6756lQHPzNODq8pCjmzFw8ByFkhTN27m/8nCncNvvw7Oufsfh+5nzsDbW 0u6yN4UWyQzz7Ud5mGnouzg46169Y9kSLjwsD9QuMvWhMO6xRKrekwcxuk1n 9Kx/+E/z8fgAHp6aODFLZr20Kb7UNowHZf2qKzWzXidroah2gweVWp/ZorB9 x1y/3rvf7UgPW3f+8XcHz59iSb36bqnHFMGSXpGjD5SnBZ777ruxV+z4yp9E pr/b9fOpuu9WMpzp1J3bJ3JM7tPsOeb9IovfbDJ7JT0osmLOo1q6KV/klqzQ ldLXhkR2eLQu0rdnWOQdKXO2V68aFZkd93xMI0IgcsnKkH51akzkblrAZinV cZE/aO4OHbkwIfLy5N1qdWWTIt95aDdh8G1K5I/EuO3ZkWmRPSqd5qkmzohs HvoicIG5UOT//wMi/xetqDnr "]]}, {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwt13k0ldsbB3CziuZ7DY2mZKhukynqq6LIeFFXpiilQRlK6igRKSqKBmOG Q6WMUZThpRLRbD7nNRzHOaabKVzEOb/3rPX7Y6+9Pmvt59lrPc9e61lb8bCX zVERISEhNrUE+wbI9PP5fGLph3lagyHihnYn196YmuYThKJ98NEgcUPafV3V X+N84uIJtWLykrhh9YDDYe4An1ifoc+p9RM3dI1NZnxq5hM7Aq4bPPYQN7w7 olYXl8snRKsdGfZm4oZjdP2sLYf4RP9FjafZS8QN38xxO+NRziM4l/K0/kgV M7zyuWmg0m2WGFqgjtBMUcO+DHlZnRUzRIBO3dOXFSKGGh0mcxe2TRPtR12d 6hjChulL6WOtV6eIGWHD9Q4dQobvHGtvE5gkdKIN9Ddx+FiRvEIhljVBuImY 3ue3z8Jst+PF+vBxgpdi7STf9hurfx8LUjcdIz66NHTThKaxPicpyPfnKBEV eWWhqMgkOs+lbmh6OkIIKV8sfqM5gROJd+mJJ4eJTUtPcTvcx2AfeFA5S2mQ 0F28a4IeOAq1AXVHu0cDhFLJ+Ar1imGcsrS+1sXuJYaK9MlFH3/C4azVdm1t LkEfP5GnrNWPGKLXmnjFJiRLdZfwh7iASMuBDcIsQl7b9kefPxsnW956Z/wi ifTimoxZy04YxAXLvbnQTCyOUlHu/NWK420jzIOyP4if3/9h6yXWw6pzXXaN Si3RFhF2rP5DHbSJhOb+0HIiyHVGhHxGYJm0WN+jLeWE4/0bv+NsCczae07b dJURvFjH2mMz5Xg/arCyBJR33hNeb1kOW9X2wzenS4iUOyF+nqOl8L6tMKjp /Zrgfh73LN3+BpmOGWKnHQuJe95dwTUdhbj1dL6M4rxCQvrQ/gOeEYXwHvdb 21hcQAzkRpes1iqEbtSefdtlCgjiS/jfLyMK8OFtT9T87/nEWgcdx0TtF/hg a6ftdDuHsOKOVZcr5UJv2PlI+5F04oTVlju1GenwfJPe5/+eTiTIvXthJ5KO R6EDXovX0ImSfCtTngsdovIXLxlxU4nWTeoSeXJpiAtR09z//RFR9N97m1XL k1Ghej/qJ+MeQYtZ3xA5fQ9rSpQSFRJjiKoNOqVJRTGIsMp7auscTdg6hGv8 PBeNJ8MPQs4SUUSagbZoYmcUvsSI9kp9vEYsmZ0htzZcQ2zpKmFfsxBCPzi7 xNUmBIc5estaPgcRFjI7jBd+D0L/6c5Ykwx/4l2ThXV/sj8CCZm6P575EjVs tR8HU3yhpBQ/Xel8ighy/xifsvsUTKskDjl4uBGGMzYeiSZuqEj9PL/unQUR ZPLmZfIOC5jQ+RWPNbdCKH9VQIeeFkLTjvUU/2ePIF+Thyt0D2J5zp6FRr7H kBLzY/eXyGOgiZ9u3L/VGw3eOrQyeINboE0P/8sPk1EzpXN1/GB7WMinTIOG CxkXLpitp+FBh2lY9KKr2NO07+MBqav49GrD6XWRoTC3YIZxQ0MhErnU7oPU dfD0964cng2Dl0Gb4rTELXAvbRrxGryJdPPi9jxeNJa+8eDd7o6GZsjQvAo/ OvZKblVP0KHDSX/pnGyldCxOW7B5rIOOW7+0xeO/pmPlWnd1lRvpGDwSyD+r /hhLrLxj5rRk4IXR/LG1bU9Rm5uswvJ7Cl0JzbYooxzEXxkqIjKzkWZU0Jwb Xgin8Hz9+skC5FYPZl6xJ2DnHRRaxitDmWmt7ra3H3E9MDjJg1mNgWdpJyzt f2BOl4fVe5tvSMrekDD2shlstZ9Xj6g34Iy0XPjUx2asOqn05ZV2A3acEvbn tTWjkSQPiBg1oF2twWaORAuSbsZLX3VpgEL6xXkrDrTgdZBpgHJMA9Lj31/c PdECiWVF7L7pBmRdd7CP1mZgw2dmhfP7Rlzi7t7zcB8DccGK1jnfGmFhvH5r ogsDchWnPCfIRgyKCC16HMaAucoWrdPjjdgYmFH9uokBOvOj/diaJhSeG9Zm nWdiZe93hyPXmlDqFvbnxiIS4d9rrj/c3ozWRW31nE8kOvjsQ4RpMyaILdEJ XSSkvUJtyP3N2LiKtUByQRtC7Za5j59uBp2hP6fdvQ2ii0YN6UnNiLAdmb65 pB0BPvqZnOlm2Bs7dfac7oDDS1XZyqwW+I29eJQU0gF12rOGi0UtiKbPdbaN 64DnX/k+qm9b8Em4qLX8fQfuR7asdmxugULHjb7a+Z1Q4W9U2iTcipgEdleq eyesotd+umbTCtofcY1WS1g4Yxo9GzjQilOiBzp8VrCwP6PyishYK5xGl/TF qLKg2lasTJtpBb7dmmnexsLvpg+PjeczIHYrSNn1CAvO58x8zDcwECl63Me7 kIVfql+1Fp5h4MqoSkB0OQvGqt8yvvox4M1ihRbWsFAlOhsccpkBW8IxdpJk Yai6zKrqFtWHACsiSLwLcf/yJ3KfUXUf1Z5/90AXHLrvPJDpZuAe65dMgWsX qpQ9F8wZYCDsW55C48kuiFVs0/h3hIHjORpb5a904d5Qt/wtPtX3k6scU590 YXC8xVl9GRPFLPHM/MkuGCi06X42ZyLz29sX9SJsVONycJcNE/HEldJxaTZW uS+I7LNn4nLS1Fc9RTZkL6199cmdiV0Hf05UmlJz4a+/YjkBTHz61mD0I56K l2ndZPeEiVdODrqV6WxY6dUluGcxkdrboZmXw4bzn8NHj+UzcV5oYEnkWzb0 XJ3I7SVMKGwUZpn2s9GpL5+47QsT80rDGnTH2IgeGrJq+MHE+F7pmrU8NtbV R7NdmpmoPSSbK76kGy3W9Uf3dDLhF7X+cqVeN8K1HP5zGmHCdXmBd97ubnT6 Z9cGjDOx74mue7JFN57rTI1FTFH3EbvNLrt1Q81Zbi5NmETt4EF5vXDqfJOk RtwiEqssw17mtXRDUpszVqtJYg5DKjO5qxtNP53ucDeQ+HX0bmLkv91Y9yzJ bmQTiZrLiSGeQhw8YJZINOiQOJv94m81NQ6srGmtdbtIuOjpGstu5uBIUkqQ izEJk6oyXQkDDrp/33vWsZe6r61mdbcVB8s3lW3MNqfySXf8TPbnQLVy+xPf /SRexLqzIoM5MNoiK+r/D4kklf6Gyzc5oPkYbjxxkISvwXiJYzIHi+iH02Sc STjV0HL3ZXLQWW72+rsLib12QnS9Ag4KZ2yNaa4kVnhKRchWU/GZ0Y4xR0hI TN65LPGdA2f564WiR0mMhMj4jDM42Lw4RsHtGAlyYaJ7dzcHG5+tvP7cg8SH BEX7+kEOImZvf+06TiJ/7ROzt5Mc+KuYsSROkkgsWId8ES4ONKXRZU+RCMOL zSnSXNh35s784UnCp05HNUqGi/Ji8juP8lX+r+ADilzE3n7swD1NInpLXtvK dVzE5X1/8uoMCbqHpx5Hm4tP+scfenmRKExQu5+1k4ttpuckF3uTqPraPXzW nIu9V3mN8ZSbRFPN9f/hYipOqFPah0SPjvNTkcNcyJenCntQnjwlL1bryYVZ j4JsJuW5KY2H7vpzUet1fuYH5WUNd0vsr3IRTqy63U1ZY46lrMJtLvZnF2hy KOsbzDvb85CL3PRlOgKbe3/4kpPGxfWIsF0CO6Vf1TifzYWy838WAgdK/2aJ veOisrLHXeAow6Ltnz5zYW3t4S1wyrmzcTEtXJS9HwgQuJIcsFYa5MLEXjRG YLFskoB8D5qmPCsFjrAoT6J59cA1XW01l3JCMG1qJ60H5ZXjGgJnvdTeP/da Dw5lVmsL/HllrnRsfA9Cvl20FHjRYHLAy6oeiFjKBgr8MDL44PDyXriFaLUL nP7V6M9jNb3oezea2kNZLiE64dyPXiwyCs4W+OaxTsUQshelxNLXAvvOBmxI Ge6FVLrRN4F3ahbsZcj1YddUI0/g9jBFmuWJPmglvnTqFeTbwWvXntcPiXGX 5X2Ub2UVPZU0H8ADV8mMfsrCMQ2m78QHcTU8VH+Qsmzm8+p0k2GY3vfnjlBu ehKkLH5jBFcWujSNU3Z8rhHm2zUKz0bPkGnKBgmS+lVrxnDrcYAFnzI76vWE Sug49sVv44n5Uu9H+cqAIjkBI/aYihTlTrr/ZrGVk/ic/uT0Yso/1IyDfl2Y wnHCt0OO8up4Y4WasmksPb4qUIHyg2cHp/RmfuPQwtEnapTriV2txftnQYtu dN5M+VSli9TKWB6K/g6xNKB8OLn1QWkSDzP5Q5cEdrhsp+RE56HD58xzgU30 9ukl5PDgrk6fs52ySr6Wh3wVD2Vr+t8JTKZIv/tzlIcdH35tB2XzoDe0BeZ8 yOkrGu6ivNtFSyLnbz7EkzneAm8zyLtr8Q8fNeplqQKrTWY8vXWYj5JPGaK7 KYt5322ad5GPtAnnGoHLDh3fLPmYDykLr/3GgvpsZ5c9fs7H5bknrguctdzF dE8+H+7W518LHN9s63qtlI+zD+pW7qF83ooaefV8DOS79Qh8ev0beXoLH5be k/J7KbtLaWXsaudjtD/NXGCbao3S4D4+etdveSGwaUbGXsUhPrJF5DkCG4Yo 1FeM8ZGYtUTOhLKOW4KL6zQfg5sUzAT+//8QZOzOQIH/B6eQUAU= "]]}, {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwVkmk81HkAh4ctiU4VaqcNRemYdEi11XeKig5UcqsZKSmpRDRKJFalNqxr xn18SAZRdDA/UcmxnxxlVBSRMGb+jskxxWz74vk8r553j7bz2YPHFWk0mvUv /jcD6r1yuZyYqRaPKKbTmFanloaOyeTkfbRd2vtUGpMTtVFv6LucMMq5Jvkp NGalyN65SyQntcuHXJ2SaExWbNKHWqGccCIa1xRzaczwgWU1cXlyojN5Wv3J cBpTmvZnzrqjcmLaprbuhT+N+VSZ7eEqmCBXTWhrHexozKv/Nomes8fJUIjh 4XtTaMyejPkaRvSfROuKmcdubzmWfzadOrNVRuxbeYvrWiaQPidN+v7aGHm8 h7tYYDiBCofq2wSj5Fr0xPlVseOgJ9G1YtuHyRTjPp8w0U/sNXa41HjjOzFe mMBWZ/7Eoh8nAvTNpISvHrNwX+IPrMpNCPAUDxJdHbX9pX0ytHmlMJqyBsi6 T/bjHSYyuMWHp8Wf6id6c0ulpoljsPW3W5yjIyHHOy4nq38bxTKRvoNVoohE T38fLdg0itPmlsFfOrpJ9NNdjbP8RmB/wWLrhg1d5CYv7tKXkmFEkm5LUtRB 8sV8J77yMKDYbM1QaCdRDt8Kurd/x6nm8nMZQy1kwbMrjOnBUmyJC9R86isk KwvG71x9OISTrQMf7TQayFbl8HTvjkFYtK3kv15STXRCcr6Y0QexgfCEvdcF pMljvoILBrCp3+nYp2PppNpsdfFU936sCKJUyrzTYKk065v6agp5lZJ7V20J mGwl42YrMUrNqjduLq/CEfcjUx3CRBBlp7qZ2zbAqFQo3BnWgwQ+gyd9JMTO IkHmxsBvKGGHzDMobsHsl4qpY0FfwZkb985CrR1st+72SHSgtu6tSQO3A+Wz Wb+rKrTjfI2R3t/qXVi6ZHN24L5WpL8xmXfidTcm6dJ9eUVCaPIieF4N3Xiz /K8fd5KFuHWiTTuopRsOA6cNfG8K4Tnux0ju70ZW6WfWiiNCbF9RuPuDZg+4 sfV8tclCfArR5pi79WDSISQ1WDZBc9vEpw0qvdCay1Hy/vwWYTnFWVP2iWDM ip7Z0lAPPa0tMRJrETQt9Hp2FtejLLIs+B1bhE6auxGXV48hTpVzmo8IQ3Sx loJLPezNPtKRJgK32cC+bKgO+l0Tdy/KRKhQfe5eNqMOrxbtuvQ1qw/iWR9V PFm1YEVWu9YW9sHR/9WtcJ1ayJQsrAsFfVheaVzk3lkDhsRmXeDbPuzPVjE6 4FqDqBI3MZ0mhn1P0+Q8t2q42N1mW9mI8ehG6Ijv0ddQiHxrVjFZgrsznow0 KbzAREKv88BMCVgDlecGSiogy6JdXrRAgu+dp5sifCogFazM9WNIUCUsznQU laOr97raehsJFkd5tKfUPkftDsOP6VkS+Mmc1zzoEKBq/15pQ4EEa9ZOD+Dt EuCVLXu6QqkEBhEus3szS0E8bsOpXgKnBO6MM8dLUMD9mjZPJgEnNsnrVdUT xA5GuYfspXCf2/zY9I+HiBq/H/zwMIVJDcW5pfaFiFAuT/xylIKzbsDZHZEF uPWHpG6bFwVTpvKFOSP5CNWf1Ovu/+tL5Rspwdr5uL5+wW+8UAoso8HG6LBc +O/ZZTgST6HazUVlwWg2OIcdzXUzKUyLKMv2Vb8HH5an66EHFKx8bUQqOpnw Oh0aEPiMwtJ4xTI/jQycu5gYl/eSQoJqZa/xYCrOBD4saH1DISLkyT/U/WSc CquuUf1AgXMwy9HROx4nYto6N3VSkLcYztWix+BY6vC4q+RX7zRRyFcNB4s/ TSN6lEIjXzrrgH4QMszfOBTJKQyG32HmhB/Af4cjzZc= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None}, PlotRange->{{-2, 2}, {0.000307780878874786, 2.6894460372617437`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.6580639011382933`*^9}] }, Open ]] }, WindowSize->{1366, 721}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 3159, 89, 143, "Input"], Cell[CellGroupData[{ Cell[3742, 113, 1782, 49, 99, "Input"], Cell[5527, 164, 3192, 105, 211, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8756, 274, 832, 22, 77, "Input"], Cell[9591, 298, 338, 8, 52, "Output"], Cell[9932, 308, 402, 12, 83, "Output"], Cell[10337, 322, 191, 3, 32, "Output"] }, Open ]], Cell[10543, 328, 972, 27, 180, "Input"], Cell[11518, 357, 120, 2, 32, "Input"], Cell[CellGroupData[{ Cell[11663, 363, 1341, 39, 77, "Input"], Cell[13007, 404, 891, 28, 91, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13935, 437, 710, 19, 77, "Input"], Cell[14648, 458, 725, 22, 68, "Output"], Cell[15376, 482, 421, 14, 84, "Output"], Cell[15800, 498, 147, 3, 32, "Output"] }, Open ]], Cell[15962, 504, 1347, 42, 204, "Input"], Cell[17312, 548, 161, 3, 32, "Input"], Cell[CellGroupData[{ Cell[17498, 555, 3912, 106, 297, "Input"], Cell[21413, 663, 530, 15, 83, "Output"], Cell[21946, 680, 739, 22, 61, "Output"], Cell[22688, 704, 549, 16, 83, "Output"], Cell[23240, 722, 718, 21, 61, "Output"] }, Open ]], Cell[23973, 746, 166, 2, 32, "Input"], Cell[24142, 750, 5582, 161, 639, "Input"], Cell[CellGroupData[{ Cell[29749, 915, 8426, 220, 297, "Input"], Cell[38178, 1137, 12039, 235, 65, "Output"], Cell[50220, 1374, 9963, 199, 65, "Output"], Cell[60186, 1575, 9962, 199, 65, "Output"], Cell[70151, 1776, 12037, 235, 65, "Output"], Cell[82191, 2013, 391, 6, 32, "Output"], Cell[82585, 2021, 12037, 235, 65, "Output"], Cell[94625, 2258, 12015, 234, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106677, 2497, 515, 7, 32, "Input"], Cell[107195, 2506, 16254, 283, 307, "Output"] }, Open ]], Cell[123464, 2792, 461, 10, 55, "Input"], Cell[CellGroupData[{ Cell[123950, 2806, 3540, 102, 165, "Input"], Cell[127493, 2910, 457, 7, 49, "Output"], Cell[127953, 2919, 11820, 228, 65, "Output"], Cell[139776, 3149, 11820, 228, 65, "Output"], Cell[151599, 3379, 10988, 214, 65, "Output"], Cell[162590, 3595, 11820, 228, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174447, 3828, 1250, 31, 32, "Input"], Cell[175700, 3861, 24047, 411, 570, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199784, 4277, 1284, 41, 55, "Input"], Cell[201071, 4320, 303, 7, 32, "Output"], Cell[201377, 4329, 236, 5, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[201650, 4339, 959, 27, 32, "Input"], Cell[202612, 4368, 20950, 361, 243, "Output"] }, Open ]] } ] *) (* End of internal cache information *)