(* 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[ 111847, 2509] NotebookOptionsPosition[ 109977, 2447] NotebookOutlinePosition[ 110312, 2462] CellTagsIndexPosition[ 110269, 2459] 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, 3.6827796433972797`*^9, 3.682780055288*^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, { 3.6827796300045757`*^9, 3.6827796448835077`*^9}, 3.682780058927842*^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.65810740923281*^9, { 3.6827796300045757`*^9, 3.6827796448835077`*^9}, 3.682780058948641*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658019482941351*^9, 3.6580195405301723`*^9, {3.658019606567144*^9, 3.658019612748432*^9}, 3.658054197684204*^9, 3.65810740923281*^9, { 3.6827796300045757`*^9, 3.6827796448835077`*^9}, 3.682780058980715*^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, 3.68277965110058*^9, 3.6827800711674356`*^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, 3.6827800733068333`*^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.658107422757011*^9, 3.682780073308034*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.658019882702221*^9, {3.658019913535818*^9, 3.6580199275245047`*^9}, 3.658107422757011*^9, 3.6827800733087378`*^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[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, 3.6827796572092323`*^9, {3.682780065358663*^9, 3.682780079665485*^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.65810742968477*^9, 3.6827796572092323`*^9, {3.682780065358663*^9, 3.682780079705459*^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.65810742968477*^9, 3.6827796572092323`*^9, {3.682780065358663*^9, 3.682780079730502*^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.65810742968477*^9, 3.6827796572092323`*^9, {3.682780065358663*^9, 3.682780079754925*^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[{ 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[{ RowBox[{"xder", "[", RowBox[{"x_", ",", " ", "\[Tau]_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"outside", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}], ",", "\[IndentingNewLine]", "\t", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], " ", "<", " ", ".001"}], ",", " ", "0", ",", RowBox[{"xderout", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "]"}], ",", " ", "\[IndentingNewLine]", "\t", RowBox[{"xderin", "[", RowBox[{"x", ",", " ", "\[Tau]"}], "]"}]}], "]"}]}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ "This", " ", "sets", " ", "a", " ", "cutoff", " ", "so", " ", "that", " ", "if", " ", "the", " ", "ray", " ", "is", " ", "outside", " ", "and", " ", "also", " ", "x", " ", "is", " ", "very", " ", "small", " ", RowBox[{"(", RowBox[{ RowBox[{ "which", " ", "means", " ", "that", " ", "it", " ", "is", " ", "already", " ", "trapped", " ", "inside", " ", "and", " ", "heading", " ", "to", " ", "the", " ", "singularity"}], ",", " ", RowBox[{ "we", " ", "set", " ", "the", " ", "derivative", " ", "to", " ", "zero", " ", "to", " ", "avoid", " ", "hitting", " ", "the", " ", "singularity", " ", "and", " ", "having", " ", "the", " ", "equation", " ", "blow", " ", RowBox[{"up", "."}]}]}]}]}], "*)"}]}]}], "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}, {3.682779960448421*^9, 3.6827799605785637`*^9}, { 3.682780260310088*^9, 3.682780317779191*^9}, {3.682813015537359*^9, 3.682813019709256*^9}, {3.682813272994152*^9, 3.6828132854985037`*^9}, { 3.6828133947221813`*^9, 3.682813439085466*^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}, {3.6827801392922583`*^9, 3.682780139579414*^9}, { 3.682780177731656*^9, 3.682780179230554*^9}, {3.682780329682434*^9, 3.682780344638846*^9}, {3.682780398000793*^9, 3.6827804123155813`*^9}, { 3.68281332043004*^9, 3.6828133474552402`*^9}, {3.682813452262261*^9, 3.682813452787969*^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, 3.682779703703333*^9, 3.682780083411785*^9, 3.6827801414213*^9, 3.682780179768691*^9, { 3.682780322645504*^9, 3.6827803449404707`*^9}, {3.682780399360054*^9, 3.6827804132412043`*^9}, 3.68281302186518*^9, 3.682813289185287*^9, { 3.682813322801238*^9, 3.682813348731474*^9}, {3.682813442684537*^9, 3.68281345315337*^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.6581074493298597`*^9, 3.682779703703333*^9, 3.682780083411785*^9, 3.6827801414213*^9, 3.682780179768691*^9, { 3.682780322645504*^9, 3.6827803449404707`*^9}, {3.682780399360054*^9, 3.6827804132412043`*^9}, 3.68281302186518*^9, 3.682813289185287*^9, { 3.682813322801238*^9, 3.682813348731474*^9}, {3.682813442684537*^9, 3.6828134531993933`*^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.6581074493298597`*^9, 3.682779703703333*^9, 3.682780083411785*^9, 3.6827801414213*^9, 3.682780179768691*^9, { 3.682780322645504*^9, 3.6827803449404707`*^9}, {3.682780399360054*^9, 3.6827804132412043`*^9}, 3.68281302186518*^9, 3.682813289185287*^9, { 3.682813322801238*^9, 3.682813348731474*^9}, {3.682813442684537*^9, 3.68281345325364*^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.6581074493298597`*^9, 3.682779703703333*^9, 3.682780083411785*^9, 3.6827801414213*^9, 3.682780179768691*^9, { 3.682780322645504*^9, 3.6827803449404707`*^9}, {3.682780399360054*^9, 3.6827804132412043`*^9}, 3.68281302186518*^9, 3.682813289185287*^9, { 3.682813322801238*^9, 3.682813348731474*^9}, {3.682813442684537*^9, 3.682813453296194*^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.6581074493298597`*^9, 3.682779703703333*^9, 3.682780083411785*^9, 3.6827801414213*^9, 3.682780179768691*^9, { 3.682780322645504*^9, 3.6827803449404707`*^9}, {3.682780399360054*^9, 3.6827804132412043`*^9}, 3.68281302186518*^9, 3.682813289185287*^9, { 3.682813322801238*^9, 3.682813348731474*^9}, {3.682813442684537*^9, 3.6828134533524837`*^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.0"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Full"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "Both", " ", "sol3", " ", "and", " ", "sol4", " ", "are", " ", "inside", " ", "the", " ", "shell", " ", "at", " ", "the", " ", "beginning"}], ",", " ", RowBox[{ "whereas", " ", "sol1", " ", "and", " ", "sol2", " ", "are", " ", RowBox[{"outside", ".", " ", "Note"}], " ", "how", " ", "tiny", " ", "tiny", " ", "differences", " ", "at", " ", "one", " ", "point", " ", "of", " ", "time"}], ",", " ", RowBox[{ "get", " ", "blown", " ", "up", " ", "in", " ", "large", " ", "differences", " ", "at", " ", "another", " ", "point", " ", "of", " ", "time"}]}], " ", "*)"}]}]}], "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}, { 3.682780153875639*^9, 3.682780174305917*^9}, {3.682780463041844*^9, 3.682780611235681*^9}, {3.6827806457610693`*^9, 3.682780728769578*^9}, { 3.682780761106711*^9, 3.6827808252863483`*^9}, {3.682780869543289*^9, 3.6827809930319223`*^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., 163.}, {180., 0.}}, ImageSize->{1363.8370215226232`, 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, 3.6827798282178926`*^9, 3.682780085660345*^9, {3.682780144772839*^9, 3.682780183194962*^9}, {3.682780324809763*^9, 3.6827803513608027`*^9}, { 3.682780401503892*^9, 3.68278041613664*^9}, {3.682780464258809*^9, 3.6827806130703907`*^9}, {3.682780647888144*^9, 3.682780730877449*^9}, { 3.6827807634519033`*^9, 3.682780826307754*^9}, {3.682780870089966*^9, 3.6827809137298*^9}, 3.682780993811596*^9, 3.682813023969077*^9, 3.682813291096574*^9, 3.6828133591285343`*^9, {3.682813444115611*^9, 3.682813464143113*^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}, 3.6828133020701227`*^9, 3.682813456448031*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "17.28442146828655`", ",", "19.022159621674334`", ",", "0.4444444444444444`", ",", "13.884122399859137`"}], "}"}]], "Output", CellChangeTimes->{{3.658051346765761*^9, 3.658051399422817*^9}, 3.6828133020701227`*^9, 3.68281345644903*^9}] }, Open ]] }, WindowSize->{1920, 1033}, 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, 55, "Input"], Cell[5527, 164, 3235, 105, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8799, 274, 832, 22, 77, "Input"], Cell[9634, 298, 414, 9, 52, "Output"], Cell[10051, 309, 477, 13, 83, "Output"], Cell[10531, 324, 266, 4, 32, "Output"] }, Open ]], Cell[10812, 331, 972, 27, 180, "Input"], Cell[11787, 360, 120, 2, 32, "Input"], Cell[CellGroupData[{ Cell[11932, 366, 1341, 39, 55, "Input"], Cell[13276, 407, 939, 29, 91, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14252, 441, 710, 19, 77, "Input"], Cell[14965, 462, 749, 22, 68, "Output"], Cell[15717, 486, 443, 14, 84, "Output"], Cell[16163, 502, 171, 3, 32, "Output"] }, Open ]], Cell[16349, 508, 1347, 42, 204, "Input"], Cell[CellGroupData[{ Cell[17721, 554, 3912, 106, 99, "Input"], Cell[21636, 662, 604, 16, 83, "Output"], Cell[22243, 680, 810, 23, 61, "Output"], Cell[23056, 705, 622, 17, 83, "Output"], Cell[23681, 724, 791, 22, 61, "Output"] }, Open ]], Cell[24487, 749, 166, 2, 32, "Input"], Cell[24656, 753, 4024, 99, 288, "Input"], Cell[CellGroupData[{ Cell[28705, 856, 3833, 106, 165, "Input"], Cell[32541, 964, 793, 12, 49, "Output"], Cell[33337, 978, 12161, 233, 65, "Output"], Cell[45501, 1213, 12158, 233, 65, "Output"], Cell[57662, 1448, 11327, 219, 65, "Output"], Cell[68992, 1669, 12161, 233, 65, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81190, 1907, 2211, 52, 77, "Input"], Cell[83404, 1961, 24591, 419, 1039, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108032, 2385, 1284, 41, 55, "Input"], Cell[109319, 2428, 353, 8, 32, "Output"], Cell[109675, 2438, 286, 6, 32, "Output"] }, Open ]] } ] *) (* End of internal cache information *)