artobyte/practize_1course
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
practize_1course/templates/heavy_case/h____фитирование.nb
Artyom Titov 6fae6f8296 Finished fitting
2026-07-15 23:56:53 +03:00

5176 lines
241 KiB
Mathematica
Raw Blame History

(* 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", ",", "\"\<y\>\""}], "}"}], ",", "0.01", ",",
"2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"b0v", ",", "1.212", ",", "\"\<b0\>\""}], "}"}], ",", "0.1",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmin", ",", "6", ",", "\"\<x min\>\""}], "}"}], ",", "0", ",",
"13", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmax", ",", "12.5", ",", "\"\<x max\>\""}], "}"}], ",", "0",
",", "16", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"ymax", ",", "1", ",", "\"\<y max\>\""}], "}"}], ",", "0.01",
",", "1.7", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}], "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", ",", "\"\<yy\>\""}], "}"}], ",", "0.01",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"bb0v", ",", "0.683", ",", "\"\<bb0\>\""}], "}"}], ",", "0.1",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmin", ",", "4", ",", "\"\<x min\>\""}], "}"}], ",", "0", ",",
"13", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmax", ",", "11", ",", "\"\<x max\>\""}], "}"}], ",", "0", ",",
"16", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"ymax", ",", "0.07", ",", "\"\<y max\>\""}], "}"}], ",",
"0.001", ",", "1", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}], "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", ",", "\"\<y\>\""}], "}"}], ",", "0.01", ",",
"2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"b0v", ",", "0.740", ",", "\"\<b0\>\""}], "}"}], ",", "0.1",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmin", ",", "7", ",", "\"\<x min\>\""}], "}"}], ",", "0", ",",
"14", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmax", ",", "13", ",", "\"\<x max\>\""}], "}"}], ",", "0", ",",
"16", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"ymax", ",", "1", ",", "\"\<y max\>\""}], "}"}], ",", "0.01",
",", "1.7", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}], "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", ",", "\"\<yy\>\""}], "}"}], ",", "0.01",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"bb0v", ",", "1.251", ",", "\"\<bb0\>\""}], "}"}], ",", "0.1",
",", "2.5", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmin", ",", "6", ",", "\"\<x min\>\""}], "}"}], ",", "0", ",",
"14", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"xmax", ",", "13", ",", "\"\<x max\>\""}], "}"}], ",", "0", ",",
"16", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], ",",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"ymax", ",", "0.15", ",", "\"\<y max\>\""}], "}"}], ",",
"0.001", ",", "1", ",",
RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}]}],
"]"}]}], "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 ]]
}
]
*)
Reference in a new issue View git blame Copy permalink