(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Wolfram 14.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] NotebookDataLength[ 241603, 5168] NotebookOptionsPosition[ 230788, 4985] NotebookOutlinePosition[ 231193, 5002] CellTagsIndexPosition[ 231150, 4999] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"p", "[", RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox[ RowBox[{"R0", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "a0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox[ RowBox[{"R0", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "a0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "a0"], "]"}]}]]}]], "Input", CellLabel->"In[2]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], Cell[BoxData[ FractionBox[ RowBox[{"p0", " ", RowBox[{"Sinh", "[", FractionBox[ RowBox[{"R0", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["b1", "2"], RowBox[{"4", " ", "\[Pi]"}]], "+", RowBox[{ FractionBox["1", "4"], " ", "b1", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], "a0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "a0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox[ RowBox[{"R0", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["b1", "2"], RowBox[{"4", " ", "\[Pi]"}]], "+", RowBox[{ FractionBox["1", "4"], " ", "b1", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], "a0"], "]"}]}]]], "Output", CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, 3.9919650528748665`*^9}, CellLabel->"Out[2]=",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pp", "[", RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", RowBox[{"R0", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], ")"}]}]}], "a0"]]}]]}]], "Input", CellLabel->"In[3]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], Cell[BoxData[ FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", RowBox[{"R0", " ", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["b1", "2"], RowBox[{"4", " ", "\[Pi]"}]], "+", RowBox[{ FractionBox["1", "4"], " ", "b1", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], "a0"]]}]]], "Output", CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, 3.991965052903612*^9}, CellLabel->"Out[3]=",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ppp", "[", RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", RowBox[{ FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", RowBox[{"y", "*", RowBox[{"(", RowBox[{ RowBox[{"R0", "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R0", "*", "R0"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[4]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], Cell[BoxData[ RowBox[{ FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", RowBox[{"y", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"b1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", "R0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], RowBox[{"4", " ", "b0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["b1", "2"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], RowBox[{ SuperscriptBox["b0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], RowBox[{ SuperscriptBox["b0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], " ", SuperscriptBox["R0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, 3.9919650529266243`*^9}, CellLabel->"Out[4]=",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ppp2", "[", RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", RowBox[{"yy", "*", RowBox[{"(", RowBox[{ RowBox[{"R0", "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R0", "*", "R0"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[5]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["p0", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", RowBox[{"yy", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"b1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]], " ", SuperscriptBox["p0", "2"], " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", "R0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], RowBox[{"2", " ", "bb0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["b1", "2"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"6", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", SuperscriptBox["p0", "2"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]], " ", SuperscriptBox["p0", "2"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], " ", SuperscriptBox["R0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, 3.9919650529506397`*^9}, CellLabel->"Out[5]=",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pppp", "[", RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", RowBox[{ FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}]}]], "+", RowBox[{"y", "*", RowBox[{"(", RowBox[{ RowBox[{"R0", "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R0", "*", "R0"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}]}]]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[6]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"p0", " ", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}]], "+", RowBox[{"y", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "b1", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", "R0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"p0", " ", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{"b0", " ", RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", FractionBox[ RowBox[{"p0", " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}], "2"]}], RowBox[{"b0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "\[Pi]"}]], RowBox[{"5", " ", SuperscriptBox["b1", "2"], " ", SuperscriptBox["R0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "p0", " ", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}], " ", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ SuperscriptBox["b0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", FractionBox[ RowBox[{"p0", " ", RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}]}], RowBox[{ SuperscriptBox["b0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", "p0", " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "b0"], "]"}], "3"]}], RowBox[{ SuperscriptBox["b0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "b0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, 3.9919650529736423`*^9}, CellLabel->"Out[6]=",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"pppp2", "[", RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", RowBox[{"yy", "*", RowBox[{"(", RowBox[{ RowBox[{"R0", "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R0", "*", "R0"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R0"], " ", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}]}]], "Input", CellLabel->"In[7]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["p0", "2"], " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}], "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", RowBox[{"yy", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", "b1", " ", SqrtBox[ FractionBox["5", "\[Pi]"]], " ", "R0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["p0", "2"], " ", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], " ", RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}]}], RowBox[{"bb0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["p0", "2"], " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}], "3"]}], RowBox[{"bb0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{"32", " ", "\[Pi]"}]], RowBox[{"5", " ", SuperscriptBox["b1", "2"], " ", SuperscriptBox["R0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["p0", "2"], " ", SuperscriptBox[ RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], "2"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"10", " ", SuperscriptBox["p0", "2"], " ", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}], " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}], "2"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox["p0", "2"], " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}], "2"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"6", " ", SuperscriptBox["p0", "2"], " ", SuperscriptBox[ RowBox[{"Sinh", "[", FractionBox["R0", "bb0"], "]"}], "4"]}], RowBox[{ SuperscriptBox["bb0", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"Cosh", "[", FractionBox["r", "bb0"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, 3.9919650530016823`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{3.9917077685737076`*^9}, CellLabel-> "In[362]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}},ExpressionUUID->"f25944e3-b412-7146-ac6d-\ f008d8c60ab5"], Cell[BoxData["236"], "Output", CellChangeTimes->{ 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9}, CellLabel->"Out[8]=",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A1", "="}]], "Input", CellChangeTimes->{ 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, 3.991964095496088*^9}, 3.9919730324857025`*^9},ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-\ 1f910c97a298"], Cell[BoxData["58"], "Output", CellChangeTimes->{ 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], Cell[BoxData["0.55`"], "Output", CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9}, CellLabel->"Out[10]=",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a2", "=", RowBox[{"a1", "-", RowBox[{"0.015", "*", FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], Cell[BoxData["0.5576271186440679`"], "Output", CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9}, CellLabel->"Out[11]=",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], Cell[BoxData["0.17`"], "Output", CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R01", "=", RowBox[{"1.16", "*", SuperscriptBox["A1", RowBox[{"1", "/", "3"}]]}]}]], "Input", CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], Cell[BoxData["4.4902169031282435`"], "Output", CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9}, CellLabel->"Out[13]=",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R02", "=", RowBox[{"1.16", "*", SuperscriptBox[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], Cell[BoxData["6.525262540876552`"], "Output", CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9}, CellLabel->"Out[14]=",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] }, Open ]], Cell[BoxData[ RowBox[{"b1", "="}]], "Input", CellChangeTimes->{ 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, 3.991973034922682*^9},ExpressionUUID->"5a7643d0-24aa-4445-a07d-\ 8c03ae610a22"], Cell[BoxData[ RowBox[{"b2", "="}]], "Input", CellChangeTimes->{ 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, 3.9919730365316715`*^9},ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-\ b6cc52ad8d72"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9}, CellLabel->"Out[18]=",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"l1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", FractionBox[ FractionBox[ RowBox[{"p0", "*", RowBox[{"Sinh", "[", FractionBox[ RowBox[{"R1", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "a1"], "]"}]}], RowBox[{ RowBox[{"Cosh", "[", FractionBox[ RowBox[{"R1", "*", RowBox[{"(", RowBox[{"1", "-", FractionBox[ RowBox[{"b1", "*", "b1"}], RowBox[{"4", "\[Pi]"}]], "+", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}]}], ")"}]}], "a1"], "]"}], "+", RowBox[{"Cosh", "[", FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "3", ",", "10"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq +rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX 3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I 1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE 5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH 9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z 9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv 71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy 2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW 4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT 32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx +N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg 3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh 0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW 2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o 5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ 8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ /802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl 4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu 5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G 1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s 8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w 1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC 90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw 6d9tC3dVGfgfYapo5w== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq +rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX 3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I 1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE 5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH 9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z 9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv 71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy 2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW 4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT 32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx +N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg 3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh 0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW 2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o 5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ 8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ /802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl 4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu 5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G 1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s 8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w 1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC 90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw 6d9tC3dVGfgfYapo5w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq +rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX 3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I 1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE 5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH 9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z 9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv 71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy 2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW 4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT 32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx +N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg 3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh 0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW 2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o 5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ 8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ /802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl 4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu 5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G 1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s 8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w 1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC 90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw 6d9tC3dVGfgfYapo5w== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{3.0000000000000067`, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{3, 10}, {0., 0.9853735520528359}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, 3.991965132478647*^9}, CellLabel->"Out[19]=",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ 50b3ad5aa448"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "-", RowBox[{"ppp", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "b0"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "-", RowBox[{"ppp", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { 3.991965146253729*^9, 3.991965149824396*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, 3.99196515126849*^9}, CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "-", RowBox[{"pppp", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "b0"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "-", RowBox[{"pppp", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", CellLabel-> "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", CellChangeTimes->{3.9917125237225304`*^9}, CellLabel-> "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", "0.905"}]], "Input", CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, 3.9919651652528534`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], Cell[BoxData["0.905`"], "Output", CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, 3.991965166337839*^9}, CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b0", "=", "0.605"}]], "Input", CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, 3.991965171325409*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], Cell[BoxData["0.605`"], "Output", CellChangeTimes->{ 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, 3.991965172422703*^9}, CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] }, Open ]], Cell[BoxData[ RowBox[{"l2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "p0"], RowBox[{"(", RowBox[{ FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", RowBox[{"y", "*", RowBox[{"(", RowBox[{ RowBox[{"R1", "*", RowBox[{ SubscriptBox["\[PartialD]", "R1"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R1", "*", "R1"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R1"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R1"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b1", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992519988325634*^9, 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ 1d85f5f909bc"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l1", ",", "l2"}], "]"}]], "Input", CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9925199899203997`*^9, 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ e34e32f0c333"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"l1", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ppp", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "/", "p0"}], ")"}], "/.", " ", RowBox[{"R1", "->", "R01"}]}], "/.", " ", RowBox[{"p0", "->", "0.17"}]}], "/.", " ", RowBox[{"x1", "->", "0"}]}], "/.", " ", RowBox[{"b1", "->", "b1"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"y", "->", "yv"}], ",", RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "xmax"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", "13", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", ",", "16", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", ",", "1.7", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 0.897, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> Manipulator}, {{ Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> Manipulator}, {{ Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> Manipulator}}, Typeset`size$$ = { 397.16015625, {21.48154410072551, 27.10654410072551}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, Plot[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ $CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ $CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> 0.17], $CellContext`x1 -> 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ $CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { 0, $CellContext`ymax$$}}], "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{ 442.26015625, {110.39716910072552`, 116.02216910072552`}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l11", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "p0"], ")"}], "2"], "}"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "3", ",", "11"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{3.99196423637006*^9, 3.9919651876297417`*^9}, CellLabel->"In[26]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp +D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl 6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM 5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n 6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O 8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw 6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE 66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF 4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ 27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA 58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP 5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO +PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id 9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC 1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm 2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J 2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG 92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x 6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog 9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W 0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI +RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg 5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs 3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw 8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT 4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq 3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ 6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o 11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK 9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ 9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em 1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G 94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC 88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E 1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w 7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg 3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ 82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ 5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo 2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ 7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp +D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl 6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM 5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n 6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O 8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw 6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE 66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF 4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ 27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA 58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP 5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO +PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id 9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC 1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm 2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J 2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG 92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x 6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog 9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W 0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI +RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg 5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs 3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw 8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT 4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq 3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ 6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o 11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK 9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ 9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em 1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G 94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC 88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E 1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w 7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg 3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ 82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ 5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo 2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ 7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp +D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl 6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM 5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n 6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O 8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw 6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE 66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF 4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ 27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA 58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP 5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO +PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id 9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC 1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm 2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J 2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG 92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x 6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog 9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W 0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI +RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg 5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs 3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw 8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT 4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq 3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ 6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o 11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK 9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ 9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em 1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G 94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC 88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E 1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w 7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg 3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ 82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ 5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo 2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ 7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {3.0000000000000067`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{3.0000000000000067`, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{3, 11}, {0., 0.9709610360313319}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { 3.991965183952503*^9, 3.991965188526533*^9}}, CellLabel->"Out[26]=",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "yy"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "2"], "-", RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "bb0"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "2"], "-", RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yy", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { 3.991965198532404*^9, 3.991965201015888*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yy", "=", "1.03"}]], "Input", CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, 3.991965211114523*^9}, CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], Cell[BoxData["1.03`"], "Output", CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bb0", "=", "0.68"}]], "Input", CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { 3.9919652166473465`*^9, 3.991965216788891*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], Cell[BoxData["0.68`"], "Output", CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] }, Open ]], Cell[BoxData[ RowBox[{"l22", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", FractionBox[ RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], SuperscriptBox["p0", "2"]], "}"}], "/.", RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", RowBox[{"x1", "\[Rule]", "0"}]}], "/.", RowBox[{"b1", "\[Rule]", "b1"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992519993740715*^9, 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ f05e39e52441"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l11", ",", "l22"}], "]"}]], "Input", CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992519995212555*^9, 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ f5e698425a9d"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"l11", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], "/", RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", RowBox[{"R1", "->", "R01"}]}], "/.", " ", RowBox[{"p0", "->", "0.17"}]}], "/.", " ", RowBox[{"x1", "->", "0"}]}], "/.", " ", RowBox[{"b1", "->", "b1"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"yy", "->", "yyv"}], ",", RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "xmax"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", "13", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", "16", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", "0.001", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, 3.992489846647581*^9}, CellLabel->"In[3]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = 0.07, $CellContext`yyv$$ = 1.028, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> Manipulator}, {{ Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> Manipulator}, {{ Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> Manipulator}}, Typeset`size$$ = { 412.44140625, {20.20800605743925, 25.83300605743925}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, Plot[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ $CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ $CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> 0.17], $CellContext`x1 -> 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ $CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ {$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { 0, $CellContext`ymax$$}}], "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{ 457.54140625, {109.12363105743925`, 114.74863105743925`}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9}, CellLabel->"Out[4]=",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", CellChangeTimes->{3.9918427409143257`*^9}, CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l111", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", FractionBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "p0"], "}"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "b2"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[33]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD 2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO 6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O 4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx 6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ 6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp +RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ 4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz 6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD 2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO 6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O 4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx 6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ 6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp +RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ 4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz 6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {8.000000000000018, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {8.000000000000018, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD 2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO 6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O 4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx 6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ 6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp +RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ 4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz 6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {8.000000000000018, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{8.000000000000018, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{8, 13}, {0., 0.7724483356680106}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.9919643389546776`*^9, 3.9919652326803303`*^9}, CellLabel->"Out[33]=",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "y"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "-", RowBox[{"ppp", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "b0"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "-", RowBox[{"ppp", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], Cell[BoxData[ TemplateBox[{ "FindRoot", "nlnum", "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ \[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ \\\"}\\\"}]\\) is not a list of numbers with dimensions \ \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ \\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ \\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, CellLabel-> "During evaluation of \ In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"y", "=", "1.21"}]], "Input", CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { 3.991965271719015*^9, 3.991965272747534*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], Cell[BoxData["1.21`"], "Output", CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"b0", "=", "0.74"}]], "Input", CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { 3.9919652753355255`*^9, 3.991965275476549*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], Cell[BoxData["0.74`"], "Output", CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"l222", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "p0"], RowBox[{"(", RowBox[{ FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", RowBox[{"y", "*", RowBox[{"(", RowBox[{ RowBox[{"R2", "*", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R2", "*", "R2"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b2", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "b2"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{3.9917169014568214`*^9}, CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992519998013506*^9, 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ 9f40d7c169a6"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l111", ",", "l222"}], "]"}]], "Input", CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992519999593614*^9, 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ 2e70607d048a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"l111", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ppp", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "/", "p0"}], ")"}], "/.", " ", RowBox[{"R2", "->", "R02"}]}], "/.", " ", RowBox[{"p0", "->", "0.17"}]}], "/.", " ", RowBox[{"x2", "->", "0"}]}], "/.", " ", RowBox[{"b2", "->", "b2"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"y", "->", "yv"}], ",", RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "xmax"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", "14", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", "16", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", ",", "1.7", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, 3.992489872473383*^9}, CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 1.213, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> Manipulator}, {{ Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> Manipulator}, {{ Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> Manipulator}}, Typeset`size$$ = { 397.16015625, {20.20800605743927, 25.83300605743927}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, Plot[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ $CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ $CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> 0.17], $CellContext`x2 -> 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ $CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { 0, $CellContext`ymax$$}}], "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{ 442.26015625, {109.12363105743927`, 114.74863105743927`}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l1111", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "p0"], ")"}], "2"], "}"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "6", ",", "13"}], "}"}]}], "]"}]}]], "Input", CellLabel->"In[39]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], Opacity[1.], LineBox[CompressedData[" 1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M 3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M 3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc 4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd 4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q /XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn 9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws /oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U 1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv 0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 +Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv 8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE 6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv +5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu 8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z 88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ 2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y 5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI 2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C 8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu 4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ 8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY 8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI /TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G +xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V 8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l 8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y 4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M 4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ 7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 +i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN 4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf R/8DuBIZfw== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], StyleBox[ DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M 3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M 3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc 4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd 4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q /XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn 9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws /oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U 1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv 0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 +Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv 8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE 6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv +5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu 8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z 88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ 2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y 5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI 2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C 8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu 4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ 8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY 8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI /TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G +xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V 8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l 8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y 4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M 4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ 7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 +i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN 4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf R/8DuBIZfw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {6.000000000000013, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {6.000000000000013, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]], Line[CompressedData[" 1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M 3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M 3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc 4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd 4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q /XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn 9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws /oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U 1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv 0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 +Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv 8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE 6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv +5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu 8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z 88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ 2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y 5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI 2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C 8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu 4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ 8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY 8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI /TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G +xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V 8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l 8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y 4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M 4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ 7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 +i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN 4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf R/8DuBIZfw== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {6.000000000000013, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{6.000000000000013, 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{6, 13}, {0., 0.9838824269554479}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.991964380582947*^9, 3.9919653530989933`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "yy"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "2"], "-", RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "bb0"], " ", RowBox[{"(", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"p", "[", RowBox[{ "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "2"], "-", RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}]}], ")"}], "2"], ")"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"yy", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"yy", "=", "1.35"}]], "Input", CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { 3.991965369034729*^9, 3.9919653692465267`*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], Cell[BoxData["1.35`"], "Output", CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bb0", "=", "1.25"}]], "Input", CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { 3.9919653725905457`*^9, 3.991965372909004*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], Cell[BoxData["1.25`"], "Output", CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] }, Open ]], Cell[BoxData[ RowBox[{"l2222", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SuperscriptBox["p0", "2"]], RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", RowBox[{"yy", "*", RowBox[{"(", RowBox[{ RowBox[{"R2", "*", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", "b2", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"R2", "*", "R2"}], "2"], "*", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", RowBox[{ SubscriptBox["\[PartialD]", "R2"], " ", SuperscriptBox[ RowBox[{"(", FractionBox["p0", RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], "*", SuperscriptBox[ RowBox[{"(", RowBox[{"b2", "*", RowBox[{"SphericalHarmonicY", "[", RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", RowBox[{"x2", "\[Rule]", "0"}]}], "/.", RowBox[{"b2", "\[Rule]", "b2"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", RowBox[{"ColorFunction", "->", RowBox[{"Function", "[", RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.992520003015276*^9, 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ 40714b1d68e9"], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.9925200045686483`*^9, 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ 0db8ce2e2f72"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{"l1111", ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"ppp2", "[", RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], "]"}], "/", RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", RowBox[{"R2", "->", "R02"}]}], "/.", " ", RowBox[{"p0", "->", "0.17"}]}], "/.", " ", RowBox[{"x2", "->", "0"}]}], "/.", " ", RowBox[{"b2", "->", "b2"}]}], "/.", " ", RowBox[{"{", RowBox[{ RowBox[{"yy", "->", "yyv"}], ",", RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "xmax"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", ",", "2.5", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", "14", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", "16", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", "0.001", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, 3.992489911392314*^9}, CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = 0.15, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> Manipulator}, {{ Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> Manipulator}, {{ Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> Manipulator}, {{ Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> Manipulator}}, Typeset`size$$ = { 427.72265625, {20.208006057439256`, 25.833006057439256`}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, Plot[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[ ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ $CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ $CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> 0.17], $CellContext`x2 -> 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ $CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ {$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { 0, $CellContext`ymax$$}}], "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{ 472.82265625, {109.12363105743927`, 114.74863105743927`}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ \\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, 25981784943947747603, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.9924899121466837`*^9}, CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], Cell[BoxData[ TemplateBox[{ "Show", "gcomb", "\"Could not combine the graphics objects in \ \\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ \\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, 25981784943947747603, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.99248991233014*^9}, CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], Cell["\<\ Show::gcomb: Could not combine the graphics objects in Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ \>", "Message", "MSG", CellChangeTimes->{3.992520011711594*^9}, CellLabel-> "During evaluation of \ In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] }, Open ]] }, WindowSize->{1440, 792}, WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], Cell[1731, 58, 1468, 46, 98, "Output",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] }, Open ]], Cell[CellGroupData[{ Cell[3236, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], Cell[3959, 131, 863, 25, 71, "Output",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] }, Open ]], Cell[CellGroupData[{ Cell[4859, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], Cell[6327, 204, 2559, 75, 149, "Output",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] }, Open ]], Cell[CellGroupData[{ Cell[8923, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], Cell[10606, 334, 2758, 81, 149, "Output",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] }, Open ]], Cell[CellGroupData[{ Cell[13401, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], Cell[15247, 475, 3728, 111, 126, "Output",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] }, Open ]], Cell[CellGroupData[{ Cell[19012, 591, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], Cell[21095, 652, 4797, 140, 126, "Output",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] }, Open ]], Cell[25907, 795, 153, 3, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], Cell[CellGroupData[{ Cell[26085, 802, 330, 6, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], Cell[26418, 810, 277, 4, 33, "Output",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] }, Open ]], Cell[CellGroupData[{ Cell[26732, 819, 253, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], Cell[26988, 827, 276, 4, 33, "Output",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] }, Open ]], Cell[CellGroupData[{ Cell[27301, 836, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], Cell[27480, 841, 250, 3, 33, "Output",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] }, Open ]], Cell[CellGroupData[{ Cell[27767, 849, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], Cell[28028, 858, 263, 3, 33, "Output",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] }, Open ]], Cell[CellGroupData[{ Cell[28328, 866, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], Cell[28463, 870, 252, 3, 33, "Output",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] }, Open ]], Cell[CellGroupData[{ Cell[28752, 878, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], Cell[29032, 886, 266, 3, 33, "Output",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] }, Open ]], Cell[CellGroupData[{ Cell[29335, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], Cell[29596, 903, 262, 3, 33, "Output",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] }, Open ]], Cell[29873, 909, 295, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], Cell[30171, 917, 299, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], Cell[CellGroupData[{ Cell[30495, 927, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], Cell[30627, 931, 248, 3, 33, "Output",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] }, Open ]], Cell[CellGroupData[{ Cell[30912, 939, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], Cell[31044, 943, 245, 3, 33, "Output",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] }, Open ]], Cell[CellGroupData[{ Cell[31326, 951, 1965, 50, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], Cell[33294, 1003, 31761, 569, 236, "Output",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] }, Open ]], Cell[65070, 1575, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], Cell[CellGroupData[{ Cell[65223, 1582, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], Cell[67502, 1643, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] }, Open ]], Cell[CellGroupData[{ Cell[67878, 1655, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], Cell[70049, 1715, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] }, Open ]], Cell[CellGroupData[{ Cell[70383, 1727, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], Cell[70688, 1734, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] }, Open ]], Cell[CellGroupData[{ Cell[70928, 1742, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], Cell[71238, 1749, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] }, Open ]], Cell[71488, 1756, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], Cell[74012, 1821, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], Cell[74167, 1826, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], Cell[74331, 1831, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], Cell[CellGroupData[{ Cell[74512, 1838, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], Cell[77070, 1911, 3524, 68, 243, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] }, Open ]], Cell[CellGroupData[{ Cell[80631, 1984, 911, 25, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], Cell[81545, 2011, 45788, 799, 236, "Output",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] }, Open ]], Cell[CellGroupData[{ Cell[127370, 2815, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], Cell[129736, 2878, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] }, Open ]], Cell[CellGroupData[{ Cell[130087, 2889, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], Cell[130316, 2895, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] }, Open ]], Cell[CellGroupData[{ Cell[130528, 2902, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], Cell[130783, 2908, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] }, Open ]], Cell[130975, 2913, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], Cell[131959, 2941, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], Cell[132113, 2946, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], Cell[132279, 2951, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], Cell[CellGroupData[{ Cell[132456, 2958, 2578, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], Cell[135037, 3032, 3551, 68, 240, "Output",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] }, Open ]], Cell[138603, 3103, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], Cell[CellGroupData[{ Cell[138866, 3111, 773, 22, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], Cell[139642, 3135, 18986, 357, 237, "Output",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] }, Open ]], Cell[CellGroupData[{ Cell[158665, 3497, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], Cell[160830, 3556, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], Cell[161667, 3573, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] }, Open ]], Cell[CellGroupData[{ Cell[162021, 3584, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], Cell[162274, 3590, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] }, Open ]], Cell[CellGroupData[{ Cell[162488, 3597, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], Cell[162740, 3603, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] }, Open ]], Cell[162934, 3608, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], Cell[165497, 3674, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], Cell[165652, 3679, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], Cell[165820, 3684, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], Cell[CellGroupData[{ Cell[165997, 3691, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], Cell[168528, 3764, 3509, 67, 240, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] }, Open ]], Cell[CellGroupData[{ Cell[172074, 3836, 851, 24, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], Cell[172928, 3862, 39726, 699, 236, "Output",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] }, Open ]], Cell[CellGroupData[{ Cell[212691, 4566, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], Cell[215027, 4628, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] }, Open ]], Cell[CellGroupData[{ Cell[215381, 4639, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], Cell[215635, 4645, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] }, Open ]], Cell[CellGroupData[{ Cell[215851, 4652, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], Cell[216106, 4658, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] }, Open ]], Cell[216298, 4663, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], Cell[219145, 4737, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], Cell[219300, 4742, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], Cell[219507, 4748, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], Cell[CellGroupData[{ Cell[219686, 4755, 2580, 72, 95, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], Cell[222269, 4829, 3550, 68, 240, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], Cell[225822, 4899, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], Cell[228149, 4937, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], Cell[230473, 4975, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] }, Open ]] } ] *)