(* 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[    215303,       4472]
NotebookOptionsPosition[    208152,       4343]
NotebookOutlinePosition[    208552,       4359]
CellTagsIndexPosition[    208509,       4356]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Distribution that potentially produce S shaped cond . prob .", "Title",
 CellChangeTimes->{{3.946880233111539*^9, 
  3.9468802583415537`*^9}},ExpressionUUID->"7cc39067-9a71-4656-b067-\
7ea5d19cb97d"],

Cell["Author : Martin Horvat, January 2025", "Text",
 CellChangeTimes->{{3.946880259654879*^9, 
  3.946880279724557*^9}},ExpressionUUID->"353dee93-e31a-4b1f-8882-\
b30585bb03f6"],

Cell[CellGroupData[{

Cell["Beta prime distribution", "Chapter",
 CellChangeTimes->{{3.9469060585680733`*^9, 
  3.946906070818643*^9}},ExpressionUUID->"e16baea9-3c8e-45c0-b567-\
a912cb64749a"],

Cell[CellGroupData[{

Cell["Model", "Section",
 CellChangeTimes->{{3.9468804238391247`*^9, 3.946880430841798*^9}, {
  3.946906042173771*^9, 
  3.9469060553962717`*^9}},ExpressionUUID->"d71f5e6f-69e8-4ba6-b376-\
3a1342518466"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", "A", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"x_", ",", "\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}],
   ":=", 
  RowBox[{
   RowBox[{"x", "^", "\[Alpha]"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "x"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"\[Beta]", "-", "\[Alpha]"}], ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
     RowBox[{"Assumptions", "->", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{"-", "1"}]}], "&&", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"-", "2"}]}], "&&", 
       RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}],
   ":=", 
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], 
   "/", 
   RowBox[{"A", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.946871654860612*^9, 3.9468716572509003`*^9}, {
  3.946875272227915*^9, 3.946875334454814*^9}, {3.946876051181876*^9, 
  3.946876064667993*^9}, {3.9468761058556767`*^9, 3.946876118410157*^9}, {
  3.946876150450382*^9, 3.9468762395561*^9}, {3.9468794759523697`*^9, 
  3.946879541546723*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"a0c1bb38-88d3-4839-89ea-a0a089b1a632"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Gamma]", 
    RowBox[{"1", "+", "\[Beta]"}]], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "\[Alpha]"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]"}], "]"}]}], 
  RowBox[{"Gamma", "[", 
   RowBox[{"\[Alpha]", "-", "\[Beta]"}], "]"}]]], "Output",
 CellChangeTimes->{3.946876240513775*^9, 3.9468795499824257`*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"c7bd4cda-35a5-4cfa-9cf2-056cefef13bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"meanf", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{
      RowBox[{"\[Alpha]", ">", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"\[Beta]", "<", 
       RowBox[{"-", "2"}]}], "&&", 
      RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.946879838583644*^9, 3.94687989581913*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"5a2e08e1-2b12-4dab-91d9-08c9305fb1e1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", "\[Gamma]"}], 
   RowBox[{"2", "+", "\[Beta]"}]]}]], "Output",
 CellChangeTimes->{{3.9468798869386587`*^9, 3.946879900041602*^9}},
 CellLabel->
  "Out[104]=",ExpressionUUID->"9bb7ce0f-10bb-476b-bd25-28e71614ce3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mom2f", "[", 
    RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", 
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
     RowBox[{"Assumptions", "->", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{"-", "1"}]}], "&&", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"-", "3"}]}], "&&", 
       RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.946884140685377*^9, 3.94688416012857*^9}, {
  3.9468847322995167`*^9, 3.94688474559724*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"7b2c86e8-aff2-4443-b766-8f6442ab8a5d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "+", "\[Beta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.9468841545502567`*^9, 3.946884163640732*^9}, {
  3.946884740511119*^9, 3.946884749227165*^9}},
 CellLabel->
  "Out[137]=",ExpressionUUID->"fcdf54a7-b28c-47d6-9af1-3ceb6fbbefb8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"var2f", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", 
        RowBox[{"meanf", "[", 
         RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}]}], 
       ")"}], "^", "2"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{
      RowBox[{"\[Alpha]", ">", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"\[Beta]", "<", 
       RowBox[{"-", "3"}]}], "&&", 
      RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9468842323180847`*^9, 3.946884250110627*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"c23aac5e-4428-4c80-903e-eb4305d95396"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Alpha]", "+", "\[Beta]"}], ")"}], " ", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "\[Beta]"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.946884252202229*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"ccf77d6e-7d63-4527-83aa-f884c3805eb6"]
}, Open  ]],

Cell["Note : Conditional prob (Y=1| x) = 1/(1+ const r(x) ) ", "Text",
 CellChangeTimes->{{3.9468804893346148`*^9, 3.9468805130982637`*^9}, {
   3.9468806761124983`*^9, 3.946880690519691*^9}, {3.946887060649585*^9, 
   3.94688706314431*^9}, 
   3.946893007104217*^9},ExpressionUUID->"bec9df15-de24-478a-8394-\
4fddb54ea53a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"r", ",", "check0", ",", "check1"}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ratio", " ", "of", " ", "distributions"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"x_", ",", 
      RowBox[{"{", 
       RowBox[{
       "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
        ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}]}], "]"}], ":=", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]0", ",", "\[Beta]0", ",", "\[Gamma]0"}], 
      "]"}], "/", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]1", ",", "\[Beta]1", ",", "\[Gamma]1"}], 
      "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"normalization", " ", "condition"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"check0", "[", 
     RowBox[{"{", 
      RowBox[{
      "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
       ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Alpha]0", ">", 
       RowBox[{"-", "1"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Beta]0", "<", 
       RowBox[{"-", "2"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]1", ">", 
       RowBox[{"-", "1"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Beta]1", "<", 
       RowBox[{"-", "2"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]0", ">", "0"}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]1", ">", "0"}], ")"}]}]}], ";"}], " ", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"S", " ", "curve", " ", "condition"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"check1", "[", 
    RowBox[{"{", 
     RowBox[{
     "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
      ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]0", "-", "\[Alpha]1"}], "<", "0"}], ")"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Beta]0", "-", "\[Beta]1"}], "<", "0"}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.94687751821662*^9, 3.946877687021418*^9}, {
   3.946877767090464*^9, 3.9468778029795523`*^9}, {3.946877876951716*^9, 
   3.946877886273469*^9}, {3.946878162434022*^9, 3.9468781671166077`*^9}, {
   3.9468796394661417`*^9, 3.946879699314981*^9}, 3.946879780975679*^9, {
   3.946879993680017*^9, 3.9468800169098597`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"68d06fa8-b580-4095-9933-6492f7e827c0"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tests", "Section",
 CellChangeTimes->{{3.94688043423214*^9, 
  3.946880445233183*^9}},ExpressionUUID->"69b11f4b-8c82-4924-a16f-\
613255a3c37a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.5"}], ",", 
     RowBox[{"-", "2"}], ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.001", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.946876362677671*^9, 3.946876412996204*^9}, {
  3.946879623442129*^9, 3.946879623588406*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"315e31d0-3441-41f7-a84e-7f1b566a572b"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
          "]]},
        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:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{{0.001, 10}, {0., 0.19829430427736605`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946876391136785*^9, 3.946876413887862*^9}, 
   3.946879625758768*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"8fc1cca2-7e95-480d-9f1b-763d67ca2289"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "4"}], ",", "1", ",", "3", ",", 
    RowBox[{"-", "3"}], ",", "2"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<check0=\>\"", ",", 
   RowBox[{"check0", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<check1=\>\"", ",", 
   RowBox[{"check1", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<mean0=\>\"", ",", 
   RowBox[{"meanf", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<mean1=\>\"", ",", 
   RowBox[{"meanf", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"r", "[", 
  RowBox[{"x", ",", "p"}], "]"}]}], "Input",
 CellChangeTimes->{{3.946877888601967*^9, 3.946877963962689*^9}, {
  3.94687813881603*^9, 3.946878139105138*^9}, {3.946878215720331*^9, 
  3.9468782391120768`*^9}, {3.946878424209556*^9, 3.9468784243295937`*^9}, {
  3.946879788738636*^9, 3.946879791312717*^9}, {3.946880055654807*^9, 
  3.9468801066476603`*^9}, {3.946880143411325*^9, 3.946880168650446*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"edf99336-05ec-4f69-8fc2-7e4b85a40bbd"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"-", "4"}], ",", "1", ",", "3", ",", 
   RowBox[{"-", "3"}], ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.946878424827593*^9, 3.946879792231558*^9, {3.946880161481353*^9, 
   3.946880169431561*^9}},
 CellLabel->
  "Out[120]=",ExpressionUUID->"88a6bc6e-94f4-4805-8833-976e3ee14466"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"check0=\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm["check0=", True],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169433372*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"6d167d50-26ee-462e-bb38-82d6af078beb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"check1=\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm["check1=", True],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169434251*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"391b259f-da10-424a-b413-63977d013709"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"mean0=\"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["mean0=", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169435643*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"92d4d055-24f8-483a-b10b-1d06099f25b6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"mean1=\"\>", "\[InvisibleSpace]", "8"}],
  SequenceForm["mean1=", 8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169436269*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"297c7a16-c6f1-49c5-b5c5-418d4801a16d"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "x"}], ")"}], "6"]}], 
  RowBox[{"20", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "5"]}]]], "Output",
 CellChangeTimes->{
  3.946878424827593*^9, 3.946879792231558*^9, {3.946880161481353*^9, 
   3.946880169436934*^9}},
 CellLabel->
  "Out[125]=",ExpressionUUID->"b79d5b15-581b-4387-ab96-524d9cb2b3d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "[", 
       RowBox[{"x", ",", "p"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9468781777040997`*^9, 3.9468782055789433`*^9}, {
   3.946878436470834*^9, 3.946878507356454*^9}, {3.9468798005700493`*^9, 
   3.946879821121937*^9}, 3.9468799564313793`*^9},
 CellLabel->
  "In[126]:=",ExpressionUUID->"e2855752-dcc9-4aed-9daa-8f3aea33d918"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
          "]]},
        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:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.9468801855250483`*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"0518f18c-b95c-462b-8e10-5dca3157b85f"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

          "]]},
        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:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.9468801855675783`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"da4235e9-ec9f-4e81-a144-ce002cb565e6"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
          "]]},
        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:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.946880185606453*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"ae8b9e67-aaef-41c0-bea1-ddcc72094c5a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "[", 
       RowBox[{"x", ",", "p"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",ExpressionUUID->\
"b34c80de-0efd-486a-b1c6-57e2ac834846"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Discussing general case of r (x)", "Section",
 CellChangeTimes->{{3.946880464626877*^9, 3.946880473222454*^9}, 
   3.946881406929386*^9, 
   3.9468816039910707`*^9},ExpressionUUID->"7b27f12e-7dfb-4358-beab-\
cbc252ae3f10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"r", "[", 
   RowBox[{"x", ",", 
    RowBox[{"{", 
     RowBox[{
     "\[Alpha]0", ",", "\[Beta]0", ",", "\[Gamma]0", ",", "\[Alpha]1", ",", 
      "\[Beta]1", ",", "\[Gamma]1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9468814099386168`*^9, 3.946881431191461*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"7b6ac348-91ff-4c92-a2a9-5ccd3f5604c7"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["x", 
    RowBox[{"\[Alpha]0", "-", "\[Alpha]1"}]], " ", 
   SuperscriptBox["\[Gamma]0", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]0"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "\[Gamma]0"}], ")"}], 
    RowBox[{
     RowBox[{"-", "\[Alpha]0"}], "+", "\[Beta]0"}]], " ", 
   SuperscriptBox["\[Gamma]1", 
    RowBox[{"1", "+", "\[Beta]1"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "\[Gamma]1"}], ")"}], 
    RowBox[{"\[Alpha]1", "-", "\[Beta]1"}]], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "\[Alpha]1"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"\[Alpha]0", "-", "\[Beta]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]1"}], "]"}]}], 
  RowBox[{
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "\[Alpha]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"\[Alpha]1", "-", "\[Beta]1"}], "]"}]}]]], "Output",
 CellChangeTimes->{{3.946881418221467*^9, 3.946881431663198*^9}},
 CellLabel->
  "Out[132]=",ExpressionUUID->"9e521139-34cd-4264-965b-7c9a351d02cd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Beta prime distribution", "Chapter",
 CellChangeTimes->{{3.9469060585680733`*^9, 
  3.946906070818643*^9}},ExpressionUUID->"1046c681-de2d-4417-bb08-\
539b1dc1143f"],

Cell[CellGroupData[{

Cell["Model", "Section",
 CellChangeTimes->{{3.9468804238391247`*^9, 3.946880430841798*^9}, {
  3.946906042173771*^9, 
  3.9469060553962717`*^9}},ExpressionUUID->"93d22f1b-dce9-4131-afe5-\
2f35177a7ad0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", "A", ",", "g"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"x_", ",", "\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}],
   ":=", 
  RowBox[{
   RowBox[{"x", "^", 
    RowBox[{"(", 
     RowBox[{"\[Alpha]", "-", "1"}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "+", "x"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Alpha]"}], "-", "\[Beta]"}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
     RowBox[{"Assumptions", "->", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", "0"}], "&&", 
       RowBox[{"\[Beta]", ">", "0"}], "&&", 
       RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}],
   ":=", 
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], 
   "/", 
   RowBox[{"A", "[", 
    RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
    "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.946871654860612*^9, 3.9468716572509003`*^9}, {
  3.946875272227915*^9, 3.946875334454814*^9}, {3.946876051181876*^9, 
  3.946876064667993*^9}, {3.9468761058556767`*^9, 3.946876118410157*^9}, {
  3.946876150450382*^9, 3.9468762395561*^9}, {3.9468794759523697`*^9, 
  3.946879541546723*^9}, {3.9469134264569187`*^9, 3.946913460749033*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"86023f47-d011-4186-9966-85eeebdd9117"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Gamma]", 
    RowBox[{"-", "\[Beta]"}]], " ", 
   RowBox[{"Gamma", "[", "\[Alpha]", "]"}], " ", 
   RowBox[{"Gamma", "[", "\[Beta]", "]"}]}], 
  RowBox[{"Gamma", "[", 
   RowBox[{"\[Alpha]", "+", "\[Beta]"}], "]"}]]], "Output",
 CellChangeTimes->{3.946876240513775*^9, 3.9468795499824257`*^9, 
  3.946913462378991*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"dc9096ba-8999-4217-8cd2-5c33b4ce3f09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"meanf", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{
      RowBox[{"\[Alpha]", ">", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"\[Beta]", "<", 
       RowBox[{"-", "2"}]}], "&&", 
      RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.946879838583644*^9, 3.94687989581913*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"f3b0faad-e51b-4014-af5c-a82014b6ce2f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", "\[Gamma]"}], 
   RowBox[{"2", "+", "\[Beta]"}]]}]], "Output",
 CellChangeTimes->{{3.9468798869386587`*^9, 3.946879900041602*^9}},
 CellLabel->
  "Out[104]=",ExpressionUUID->"9dfd52dd-9781-4740-83b1-464711ccc076"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"mom2f", "[", 
    RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", 
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
     RowBox[{"Assumptions", "->", 
      RowBox[{
       RowBox[{"\[Alpha]", ">", 
        RowBox[{"-", "1"}]}], "&&", 
       RowBox[{"\[Beta]", "<", 
        RowBox[{"-", "3"}]}], "&&", 
       RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.946884140685377*^9, 3.94688416012857*^9}, {
  3.9468847322995167`*^9, 3.94688474559724*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"4e1347b1-a57b-48bd-8ca9-5d7098f4724d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"2", "+", "\[Alpha]"}], ")"}], " ", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "+", "\[Beta]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.9468841545502567`*^9, 3.946884163640732*^9}, {
  3.946884740511119*^9, 3.946884749227165*^9}},
 CellLabel->
  "Out[137]=",ExpressionUUID->"9d91cbfc-b284-4be7-b1cc-4d946f28444a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"var2f", "[", 
   RowBox[{"\[Alpha]_", ",", "\[Beta]_", ",", "\[Gamma]_"}], "]"}], "=", 
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", 
        RowBox[{"meanf", "[", 
         RowBox[{"\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}]}], 
       ")"}], "^", "2"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], 
      "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "Infinity"}], "}"}], ",", 
    RowBox[{"Assumptions", "->", 
     RowBox[{
      RowBox[{"\[Alpha]", ">", 
       RowBox[{"-", "1"}]}], "&&", 
      RowBox[{"\[Beta]", "<", 
       RowBox[{"-", "3"}]}], "&&", 
      RowBox[{"\[Gamma]", ">", "0"}]}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9468842323180847`*^9, 3.946884250110627*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"a5c1a0c7-9945-43ef-9762-2a8543f4908a"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Alpha]"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Alpha]", "+", "\[Beta]"}], ")"}], " ", 
   SuperscriptBox["\[Gamma]", "2"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "\[Beta]"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"3", "+", "\[Beta]"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.946884252202229*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"fd57e61c-8513-414d-b132-77cbbe89fd4c"]
}, Open  ]],

Cell["Note : Conditional prob (Y=1| x) = 1/(1+ const r(x) ) ", "Text",
 CellChangeTimes->{{3.9468804893346148`*^9, 3.9468805130982637`*^9}, {
   3.9468806761124983`*^9, 3.946880690519691*^9}, {3.946887060649585*^9, 
   3.94688706314431*^9}, 
   3.946893007104217*^9},ExpressionUUID->"2d5b7777-99d9-4cc1-92cd-\
f86659d9d586"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"r", ",", "check0", ",", "check1"}], "]"}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"ratio", " ", "of", " ", "distributions"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"x_", ",", 
      RowBox[{"{", 
       RowBox[{
       "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
        ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}]}], "]"}], ":=", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]0", ",", "\[Beta]0", ",", "\[Gamma]0"}], 
      "]"}], "/", 
     RowBox[{"f", "[", 
      RowBox[{"x", ",", "\[Alpha]1", ",", "\[Beta]1", ",", "\[Gamma]1"}], 
      "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"normalization", " ", "condition"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"check0", "[", 
     RowBox[{"{", 
      RowBox[{
      "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
       ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Alpha]0", ">", 
       RowBox[{"-", "1"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Beta]0", "<", 
       RowBox[{"-", "2"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]1", ">", 
       RowBox[{"-", "1"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Beta]1", "<", 
       RowBox[{"-", "2"}]}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]0", ">", "0"}], ")"}], "&&", 
     RowBox[{"(", 
      RowBox[{"\[Gamma]1", ">", "0"}], ")"}]}]}], ";"}], " ", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"S", " ", "curve", " ", "condition"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"check1", "[", 
    RowBox[{"{", 
     RowBox[{
     "\[Alpha]0_", ",", "\[Beta]0_", ",", "\[Gamma]0_", ",", "\[Alpha]1_", 
      ",", "\[Beta]1_", ",", "\[Gamma]1_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]0", "-", "\[Alpha]1"}], "<", "0"}], ")"}], "&&", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Beta]0", "-", "\[Beta]1"}], "<", "0"}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.94687751821662*^9, 3.946877687021418*^9}, {
   3.946877767090464*^9, 3.9468778029795523`*^9}, {3.946877876951716*^9, 
   3.946877886273469*^9}, {3.946878162434022*^9, 3.9468781671166077`*^9}, {
   3.9468796394661417`*^9, 3.946879699314981*^9}, 3.946879780975679*^9, {
   3.946879993680017*^9, 3.9468800169098597`*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"c8014774-489e-4815-9024-5a2423fc9edc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tests", "Section",
 CellChangeTimes->{{3.94688043423214*^9, 
  3.946880445233183*^9}},ExpressionUUID->"ecba7456-88af-4b4a-9fbb-\
b9457698b8cf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.5"}], ",", 
     RowBox[{"-", "2"}], ",", "1"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.001", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.946876362677671*^9, 3.946876412996204*^9}, {
  3.946879623442129*^9, 3.946879623588406*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"fbbb844f-2304-41ca-b411-f3ee147f8f32"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
          "]]},
        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:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, 
           "PlotRange" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwVlHk8FHgDh42zJHKNpEQjukbyWmLV94e0CRWxuyghUbbdzKykIkLuJUSO
kM0Zo8kYR2lcEZWkUi+WJSsROaYJI7z7/vF8nr+efx9Nj3P2p0RFRESS/uX/
ttW2/CCvM4FSl4mdXPc2UBrotVX6E2j/xY3u7tgGdVqmXpPtBOimrtX83W1w
Gjmv2hM2AeXtvHVlIm14cW77J6mpCcjdfTDsk9SKqpDU+JOtn2Ehuppym/cE
lnaVPn+YTuFlcOl+VaMWNEbLaOywmsKTM6/mLmu2gDR6dD11nIKWPdt1eVUL
TP4jR1acm8LcD4oG3oPN0FU+rRyWOwU5WHA4fzSD2q1aHyA5je1uJVyp8cf4
4Bak7PlyGmdlH3YJHzXhZPrrp6J907A9tV72W0kTBjq3huSOTiPioH0hNaMJ
PeZvx/pFZ+BfcdLopn8TXmjtrHf6bgZqiZTIer0mVH0c8DmcMYOjl2V0Y4sb
EeW7r97Ekw9jWXW3zpIGDA7PTI0w+Hhq31lyMrMBJi65minBfJz+dCB4dWwD
xi2XQicz+GjwXhIv9GnAEbVqy7xOPmQEG9LHtzVgbcv2Z6vxBRmz/EeZ9+pR
pKb4dkBVAG33ycne63WgJDZIxusIUFscEIXzdXCW9DX6/jsB7o9ZGrQ61UFm
+nlayhEB7mVTK3+g1cG3JcLlYKQA5xc01s5V8bCbIRzgfBGgYsvr2eGRR2ht
GfwU0fEV9VL8i0fcauHq+Kv5l7++Ylxv60prq1oIhubS3Me+gs8c1/XQr8Um
ypr9phKzUMZy4LB4LYK+33t72mQWa2wsZkxKHkKfneFwrGAWphK5lPlvD3Ar
/eijXUFziLrZJp7MqYH+lr8Vc2Lm4B93Q+ppTg3aKn18ZNLm0M/62WZtXA2+
vr6qMlI+B8NqppTQswZ2smzGrY9zUKkdtHyhUgPJMBltKYd5KFj1DWZcrQbj
bHP8X9uEaC8oT+nxrIJ/qO+Ah5EQsqvi/PscqhCYpqY/aiFEFmPz8tS+KkQ8
ZnQJjglRFpNTbLW5Chnr1dfLJQjxrku+l/ehEo3P/YvN+EI0X52eyjtbCSX6
lscFDxew3GU21BbGharFa2V66wIo0qPaVee5UHe64s15s4CK1pKz5d5cbLn2
Rrp+YgGhVzZwXllzsacvxK574zcUyI5uqlbiwuuP7v5V4d/Q3+hZJllcgaqJ
mHlfm0UoplCvG/dykEbiWyScFyG5pexYdTsHl5ITkzO8FxHyUlzdsp4DU+M0
+uPQRbzXUtwVlc9BfXi+u0rNIpiK9OByXw5a1erbHm1eQs+BG8ciV3LQYyVI
l15eQoVrQz53XzmWXu3c8OpnEUKSr3Rk97GhTcwoW0+IkNC75UVPXrNxiGU/
HHxKhLAcNA3n29jIijzPojNFyBotw33+lWyYmj7cEx0rQqDvIvsugY1L+ftd
CU+EpOt4pmzbx8bXC8dzymgU0s4loaWn7mFyfaxm7GcKUbjjP5tnw0IlNXZt
4xcKcZKy3CS3h4XANbFy80IKeVat0n2NzoK0eOyil5QokRsMqEiTZUHrU0y3
uYYoOXFrsdi+sxQ/18QkCu1ESWARVVrGqRSNjjEUH64oiS72FzFllOBGfPTg
gUAx4hP2W4lIYzFaC76jSoWJkdbTuoPUimIs8gYPNkeLEbeCW8zdBcXwmjSu
MLspRtQsH/pnxRRj95GxCJNyMfJ83qxk4mgx+uStd+z4KEZS1SMNb30sgnaK
zAU5B3GiXJpdOqBahOrMBJm32yXIruQAdll6AfIuPONp6EsQpygIJBMKcP2o
FOOX3RLkWVxSh1d4AbxXBXeJWEqQf2ZHdPacKwD18m/Z210lSKxreLaFZQH8
nG31rl6XID89Vrp4fyYfu1RXOewQSBCFgCEM2ufjbmpEZihPkihOV2+l6+RB
jX4tZYm5gtQlKTavnMgF+aRtHbxRmpgmWacLlG7D4GaN58Z7q0il0WPFn4yy
UNh/dDTebTX5offbwIhfBkYV/+7cIJAlpkqZI2d2p8FxplqB57iG3NF9GJ28
LhUJn49mTO6QJxXFIaflrG7gvvvIa7ZAntCZ3OdvWpOQ9OdSo1OHAhmb3ZyQ
+2MinJ1lPZMyFEkJb2qF86brWMyf9Gh3VyJ6/2T6sbXicaLOQWXKWJnEGOpb
QD4ORYfLg/4UoxLqdNy+03YxuM9KTjftpxLXupeu7elRuJGzX7G7QoXYswV9
/1WIhOuKmb0SQWsJq6xfXKflGj7u1dRQ/VGV2LiYXzQIDIfT+AFOrcY6coVn
8VToHoY8unmex8g6Iv9gh/mQRyjKTOsOTvHUSAzrQy/v5FXcbjS4szpqPdHg
Cs7NRYbAjqp7X8FjA2Ec0uVb/BSMsYGNjEK6OpFTMXyn0xOE4xiK3ytQJ8nW
0oaHrgQi4ZdtHo/aN5L5omxLg42X4SDF5Q9baxCvFagcm7iIhjqqvHuNBrkZ
2M6wrgmAmrn78T4tTRJte/dSW/YFjC4XhmpGa5Jyu3o/YaE/UvPYod0CTcLO
StVWYJ1HVTjXxcllE5m7Gja8t9MPzbp3TvbwNhHVcOVUPUk/cOrs93dso5Eg
41w+z/B3KMUtUeISaCRC4sRGxxAmvHR7O20TaaRRVqljTxAT1S+rcuWSaWR1
so6lziUmjiszzJJTaSTzL7ewb78zUZA9FJKRRSN0vfeE7c2E0f3W5aISGuHP
F0aYHmbC+W3SYvMTGlGKUbzwQZ2J0oBz7ZFtNGL8fovfiBoTS+tssqye0Yiq
ZOTO0bVM/HlCYk/7i3/7Gc2BzwpMfPp4IfBNF40c6RdoikkxEbhwbOH9EI3Y
siKmD00y8CLL+FneMI3wZPq5LuMMaBBqptcIjahNZxicGWWgObzDZGyMRrq+
HHaLGGJAVtb80vQ0jRzXnD3T9o4BN7b6QQ6fRl7tfCrsfcNAuf2C6nkB7d8/
rNs32cnAjzcraubmaMSMZbas8pyBIuPE6AdCGsk/luNLb2NA2PurU+A3Gvna
EJVu0cKAzZWDW/cu0Ug7q+GicxMDORo688vLNPLrSll5Zj0D/wOuJlB5
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, 
       "PlotRange" -> {{0.001, 10}, {0., 0.19829430427736605`}}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{{0.001, 10}, {0., 0.19829430427736605`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946876391136785*^9, 3.946876413887862*^9}, 
   3.946879625758768*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"2f3b2c36-b9f4-4b74-87b0-10fe3bf05bab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"p", "=", 
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{"-", "4"}], ",", "1", ",", "3", ",", 
    RowBox[{"-", "3"}], ",", "2"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<check0=\>\"", ",", 
   RowBox[{"check0", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<check1=\>\"", ",", 
   RowBox[{"check1", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<mean0=\>\"", ",", 
   RowBox[{"meanf", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<mean1=\>\"", ",", 
   RowBox[{"meanf", "[", 
    RowBox[{
     RowBox[{"p", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"r", "[", 
  RowBox[{"x", ",", "p"}], "]"}]}], "Input",
 CellChangeTimes->{{3.946877888601967*^9, 3.946877963962689*^9}, {
  3.94687813881603*^9, 3.946878139105138*^9}, {3.946878215720331*^9, 
  3.9468782391120768`*^9}, {3.946878424209556*^9, 3.9468784243295937`*^9}, {
  3.946879788738636*^9, 3.946879791312717*^9}, {3.946880055654807*^9, 
  3.9468801066476603`*^9}, {3.946880143411325*^9, 3.946880168650446*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"dc2d8af6-a08c-40db-b8ad-64e05fc2c726"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"-", "4"}], ",", "1", ",", "3", ",", 
   RowBox[{"-", "3"}], ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{
  3.946878424827593*^9, 3.946879792231558*^9, {3.946880161481353*^9, 
   3.946880169431561*^9}},
 CellLabel->
  "Out[120]=",ExpressionUUID->"6940d4b7-ceed-487c-a65b-13a6ee6bd3f1"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"check0=\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm["check0=", True],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169433372*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"74e40b70-2af4-403c-a8e8-eb61c15a00ef"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"check1=\"\>", "\[InvisibleSpace]", "True"}],
  SequenceForm["check1=", True],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169434251*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"e0977a41-6a67-463f-8bae-3613a81be838"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"mean0=\"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["mean0=", 1],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169435643*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"5c6c7359-aa9a-4752-a89c-2a0ec926f06d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"mean1=\"\>", "\[InvisibleSpace]", "8"}],
  SequenceForm["mean1=", 8],
  Editable->False]], "Print",
 CellChangeTimes->{{3.946880161483787*^9, 3.946880169436269*^9}},
 CellLabel->
  "During evaluation of \
In[120]:=",ExpressionUUID->"2b22cd70-bd5d-4f52-ba55-931a5271647c"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", "x"}], ")"}], "6"]}], 
  RowBox[{"20", " ", 
   SuperscriptBox["x", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "x"}], ")"}], "5"]}]]], "Output",
 CellChangeTimes->{
  3.946878424827593*^9, 3.946879792231558*^9, {3.946880161481353*^9, 
   3.946880169436934*^9}},
 CellLabel->
  "Out[125]=",ExpressionUUID->"616a3b2a-c638-4d8f-93d9-c39891c2a72e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "2", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "4", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{"p", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "[", 
       RowBox[{"x", ",", "p"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9468781777040997`*^9, 3.9468782055789433`*^9}, {
   3.946878436470834*^9, 3.946878507356454*^9}, {3.9468798005700493`*^9, 
   3.946879821121937*^9}, 3.9468799564313793`*^9},
 CellLabel->
  "In[126]:=",ExpressionUUID->"cccd7add-0aa2-484d-85ad-6fc1a4873926"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
          "]]},
        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:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwVV3c4F34DtMkKRSor30pIaavkPiFZqYRUIiuhJEkq8RNC2QlFGSGyQ0Vl
Z++RHdn7a+/y9v51zz13f95zz902o9uapnQ0NDRnaGlo/o9vHI2Y9pk8l4u1
2WRKeV4kV9Qgon5RxBwhl308pn2isFac4yIi8gAxmn6i9Uof8SbPW5hRxBNB
bg1v0rLzsZtq4rNm5gs7WZcEqcYf6OR8+3e1OQAWU3p6VlVluHni3q0F4Vdg
/jKfdTmtFumN3dGzCmGI5r4vdfC/eixbqndMmYXDbsQzMow0QrHKf8d8cxQK
mF9tfR/cjIaVG4GTwvHg0VFk7ovrhF2JkDQ17QOWIjpDnnN2YcuLxopxhUR8
ak8aUTvYDSMJQj9qloL0aJNK78e/QbfysGbWIRWlq0vSfFt60NitLTh7Kg0m
C6InLNJ6YJ/IljXd/BFbmy7p09f1QjVggGk6Ih3JQUqbvC/1QcA+X2vKPAPZ
Z59VWXb2IU/h/iR1JRPs8t9d3zf3g7m9R2xcOAtFTu+vm7waREve93tjQ1nY
LG+XOrQ2iA+xIYWjadnoknnmlGA0BA0bDYMRhW+obNDeeUFwGCK64knD7N9x
a+SAh/m9YUyfYFgZavqO4mNa3tvKhxG0Ljto0CwXCk9H3OrNR5BxX9XmLn8e
HD+3LCxkjCBs5MjmGYc8dGz05eH/MwKrWh6z6VP50OQ+MPnadRQXFWg4bT7k
4/DArZQdRaMgn8YzpjgL0O4Tt2mFZgw8YaV0U80FqDjgdqTWZgwrnJ/irWUL
MXNXvnfm/Rj6nN+dm4woxPLvxZ0f2sbwyczxLdW8CPxdzJrcR8cR3mZ56nZ1
ESysgv17TMbhcebS2MT+H9gb5Sfs7jOOywcOHptY+YE8f8fzT9vHoRC77fet
a8XY37iO5+/fcezevN5jvKgY1yJdDVxEJsDrtbrnlngJnHZebKeQCfz9O9w0
5l0CvdqMyrGrExi80+xwc7oE3dFMlNEHE6jtK6KM6ZRCjUXRXjJwApHl4XdG
hctwLatoOKpwArMhmRJdXmU4nDor9KFtAkpmFb31S2XoKHhW2EmdwKtDv8OK
r5djwLSiV42eijH6Be3shnKk7WLYRcdLBerZ1yeTCizlmTVz7KAiIEK0NDKp
Aj9HGtoeHaCi30rG+eWWShg2OefqEipkTmgc83SvRH1lZFaqGhXP2UxmHGYr
4VXZE+urTcWv1geJ1oZVkAsf4KLVp2JfnK+pSXUV8iTf7eUypcLVLkZI93g1
PnikjZZYUNGs+LVZLa4arZbPu/ffpkJiQ50feGtw3e2z/hUbKh7/HlA58KQG
8uf6b6nZUlGbskonRq1BatdiNfs9KniwTp9jTy0mxJn/xv3Tj+8MPOZuUgtZ
DYWD4nepMOEQ3kQbWossjU7zIGsqfGbjZx7W1aLrY/3FpZtUfGk/WDvLXIfd
rmkPLt+g4ndBbqKVXB1ecmusLzCigvWDqueQbR0yei2FZPSoOOjfZGqUUIeE
05dti7So0Le/Jt/xuw4WDa7vrdSpcDcYFdLhr0eE/CK/nAIVqUp2KzUa9ahm
6Zg7epSKNinaFhW3erhOdcuY76GCntcro/BrPWR3xCTUi1Kxe5XP/8R0PfYP
cAw58FHhVL5bdZ9BA+z9XsslrUwgLu3zzoSXDdh561k8xidQHyJPv6OyAdI7
xZ5I/prAdjPdb/xHG3Eurld9Z84Eyuld99BsaMK3lrtGuP8vLyOcbA9VmmAr
vNvxkMkEBOtfDc44NWHtV3lZ8rkJWEekRAyONYG5QGzfiV0T4DvRzlNT/BOS
srkC8vXjINuvU5X//MRJDacnFV/HYc42VVFwoBnry9MfL0WP41srk9uniGZc
yRstP283DiO7/QtvHrbg8iX181q840hO8Wy/uacNRi1vxC+dHsMIz4iXqmEb
VlZZ+u7tGYOYnarcrsA2xBf1Bt7kHUOELFtk71IbziSJWVJ7RhFQ5nX98o92
BNyP3/bYYRR2vb5Tp/U6IegL5e0JIwhnq3DhPtUNvbNrVpNrQzBD3asxm14w
D9qtmGf1gyZqPrv9eS+s9q+FxUX0I4RBoKM8uhdbKXKhS+79KC27LhT/sxcP
f6h9bNDpxy6t1SjTY32Q7n3XbzXXh6EbYom/aPuR8Tdvw+3DfbAIeJxT6zcA
uZj01sjSHtDNRXXlxg9gL8fapMvHHry+WEqTUjAARyky5BDWg3KBDQreswMQ
nouLSbfugeT7uBIV3UFkRPJbHvrX32NfG2oLhIcwyady3/fOb1j1i/dmJA+j
6q5+xZt93ejWb2XJLxuGcXlDZr5ANy60eOyp6huGU36QJQ1LN2QqBh/0bxmB
utJjmrDvXaBPi+Hicx+BTtWpk+e2diHEYZvcfYNRNDY3KQV0dyJ/w+ZXR7nG
kb3nsr6BfzsOepfmnJIcx6MhIxduq3bEMtn3nVcaR627Ee+saju8ln7utXAY
x43J4EwVxnbodAUWvx4aR1uPqto+hzaMfOCaXcmbQODnVsEim1awbnMV65KZ
hK0UzjxxbkaprP9ex1OT8H4qfrjJtBlPdd8eEdSchKhfprO6ajPo/L6cvmI5
icsZVn7vNzRj+e+YWfObScyn539jjfuJ0Q7tuBq6KSyKC9MaNDehMkRMPK9y
CjLGQdVcZxvxLOPgPoPWKdQ0TgyGHmmEcu3Jo3/7p/DtmwGTkkgjipj1VGTX
puBvuil5fqoB3+z8zL/sm8bBap19P4IakKS1FJ8aNA25RJv8mf56+HBVSERe
m4FOX0yC66s6ZB0RzNSwmkFOA9OrZZc69OnfxuqjGTyarpf1tarD8aQNWheD
Z9B9zIC6QbEOQyp6jzmqZ3AyrIHu6WQtFFzGax4cn4Woz6FP/Rq1WJxbf0+T
bw6ls86JFaQaFEGjtTXKHKT+Jot/FaiGhmKGZ9K+Odwc2Hazc7EKMQG6b1nO
zKGthpk1K60KmnsjS3Jc5hB14bN80Y4qJN3Yv0Vyag7S14M7hvgqYdSulUtf
OY+qr3b5NlvLwRr6+9ad1nm0np2wzfpTho+XrQS6BuYhs7jRbVd3Gejb3B9k
0y4gebW3xDGmDNEt2QfuHFmAt9GiPOP+Mgw0icT9ilrAwdDcl0qapbCoHfPL
erCImeembNzJxeDxewAx90W8MPT7MxNY/G9XME0EBi5CceOS7uKjYrDVCKtZ
pyxi501OFxPVYiRWaTKK9S+ib0zh2I+hH5go//Ig8NwS6HI29zyW/IE7P1yN
bost48pNVHqUFEKoT4lp/sAying6hj6kF6KCbt0HB7IMp6AXov3hhdhBvKc8
Ly1Dt7/HLNK+EK3ZL/+Lfr6Mg8b5bw9JFuJkauzbVuoyOGxLn6QGFoA7tLRN
4csKSlz3j26yz0dO1jPH8qKVf70c7E1jlg/LFnXR83UrUOHe9OiPdj5+8NaZ
64+s4Lb859IDB/PxwK910V5gFYcEg6R9p/Lw222EL/m/VXQMz5cM385DmjX7
BX6VP9A9bXBzbjYHla83PEjS+QN7NkabxcYcDBRtCZc3+YM37w5/oWTmYMtm
8dGbTn+QVLdXYPpeDlzzT7nkZ/6B4vDLSbOl79DhcUq3EP0LR4b2G0+Zv2M5
fWrD95W/uBF2OYAXX7Hx1+JRzXVrKPJSGM2kfMUeFpprg3xr8Oh/3HGf5SuM
9TgTufev4e24aalBfTYqGSQVr99YA8sV7tfZZtl4q21iu75pDWNr+V/uhmQh
8pHliPRFGrKzkEE4l+sLpPPWLbpfpSFVyjMnypc/I48hjrHLmIZI0C71j/d9
Rrd3n4i3NQ3pO3r9vGPWZwhFXL047ElDjqzkiuQZf8brorNFkd9oiNxLad/E
b58QwHHwLY8oLdH5elH4klMmRDXrE8x30ZLZawXfj93MRFqQdVbeHlry6Onh
Y/suZaJWOKnR6jgtCZCLM9I7kAnO/TvZKrRoSW0Lq1/cUAae6fDbu7jTktWc
L+W0FzPwJHz1/OwYLWmLZAthlU/HOekvdyRnaImybsnah33pEMq/62+0REt2
TNS46m1LR3bPSG0tIx0JNGoNmKZJx/SO1rNJQnTEMyT6wVDeRxglZp65fo6O
DD0zjR1W+IiTWVYqLel0JHv7aP4X7TRwqkqYr8+mI0/77GV1Tqeho63fQymP
jrQsGJrTHU2D/apeaUblPz9z4ounAmlIhdpp/346MrwgcVK2LxUixWKnVDfR
k+pEb0YNu1TQNHSTbw/pybNsbJJWSYHrcE7kQ2d6wv3RVTpVKgXraN7QHfWg
Jwmtr3k1eFLAI3WpKPMlPTEIlUzoaU/GDve60ymp9KQ2zWXQwjoZqscLNKIG
6Ml2cdu7zW+T8OLdOz0PTQYSZhE7I86VCP5s5+9KlxiIX4FMqeBiAsJqDYQY
rzEQW1ULNsnuBMT+2drtfIuBGCkW6funJuDLxUDjRx4MRNGxp9xTMwEdbG4W
VjkMpC9c9Sdn6AfstL1uryXBSBy/txiEnoiH1LGuC+HSjIRJXPv+qHg8DtLo
7h05zEispj+5a/DFQ95LZcBJgZFs1C2UPUONg370bq0EPUYy53k+UiIqDkGN
03vpfBkJT6rOkiZbHBgPOQ2mzDCS0YYRl8qRWLCvLBQsLzGSc5O/Oy+0xoIn
3/rtKRomQs9nnDpaEguRM0ba7exM5L3683vqMbGQNT1VyLSTibRYqrrUXouF
7Uu28Ku6TCQ2t5CzoS0GfXPBOmzfmcgzGVl3lbZoRJ08cLezkIn8pXB6WZdF
w8C72jelnIlsrl66EfclGm3bGcsutDARGe2rV1SDo1F3weZ42AwTKZpZWNLS
jkZOmrqIlAQzKd4Wut+28R2Cb9GOaAQzEwZutju6v6Kg2m/xOOAOC/l24Lb4
nEAklB5TEhXtWchh/zRrOq5IyPN2tM07shDJO33tW+kjcezUGZkrXixE25V/
yGY4AhIxe2co71nI7XBzw9RPEWAznb2R2cFCLE1+6F29EIHKvsdaLafXkdl4
39kzEuHQ6POTFBJiJdWKJyWqb4ehUrKvUW/7Px6z+3GYXhjU7h5xDJVgJaKC
xT0PVcKgTPerlv8IK2GvYos1o4RBXkTSbsM5VqJuLnx+rTkUh/R+5LE8YSWB
GbZBmxVDIdC4pD3Tz0paqiyu+Im9xkih0X+lSWxkN71bhDV/CIT9Wyx8MtjI
OefAZ47MIdDS19DW+spGGA6FkND5YOQsHpXoLmUjdQ6MDTRNwQiQ4m5c6GUj
6mpygw8DgnE8OFdMbAs7YWXN/CTIFQwvC4Eat6fsJLCapukLbxD2cP8UVDDg
IDIBU7SapwMx4D3w5KUpB1k4au3lfSwQb1gXBgctOYiW89KGBqlAsDPwf/Sy
5yAl9bOzjzYGYmT+ktJPfw6yvCS7qtDzAjEdnVbmRRxkwK9dKsbpBQTi+nN9
xTnJZ6vfzlb5AWDFnGHHDCcZsW1MPWPgD/uTu1g+LXOStvtcm/su+GNA4Uqy
L+16QpX4r8FF2R8FyvnL8uvXE9/t6Vu69vnjoab3i3iJ9SSUmjRPz+iPUdMd
P+wM1xPz8U271hL9UOmlvYu7Zj2pjw33cKL3w+nxywui2lxksamer9rfG283
ujQ46XKRtGOm9PZO3pg9npDScYWLZNn1b5S+5Y2IZytmQUZcRFT+vU25sjeW
xcJa1llzEfcHf1JiabyRaNSZNfnsH9fg5Z228QJXi4FDTh4XKX3TrOto+Bwt
BSa0l3dzk0dn4k71GXti8mTblsd7uUlx8trZ79qeYM4/ezBiPzd56fNaMuK0
Jw7nHjMbkOEmIdFbDrtIeiLwK1eVzSluEsR6/9P3GQ+czfgW8lyfm0REmd/+
4+aB4piN0t/9uMlZBvHIO2nuyPQo0heZ4yZbWKWUX4g+xXXGe93V1TxERnd/
LvtuFxjbPMpkf72BGG2RiOz8+R/2mklWqxtuJAr369+m/XiMGp7dbPeO8pKh
ij3TKzsf4mvyk9Dd9HzkYm+qZdrJ+3hEK3GuspOPeHewWhIfW7B2PFS2ythE
hNhJwnElG/THbgsMd+AnG4PkVNJuWiNw12aGLO3NhBLu+TDy0i34vb5eYiiy
hQyJG5s4OlrgcuDVavbBLcTnkbbhMuMNLCrGLIXnbCWlmxpfZcaZordf3r7A
XYAoXWVMjs40RtSJfVurDAWJz92lWt2fhkhyu8dtJiVE4hpyxTaqXIO7trEa
/ZwQGfAxXlRovYpDHZHx7lXCJHCrxGTooSsIEQ9NqlITId1x9xY5aC/BKc87
RC1LhOzS15RR7tDBma3aMeXbtxGp1Y75J0taOGlVcoXbcxvxUFHjlTG+gHAB
o+2Vc9vIQq2OqnDTeWwvfB+kcUWU5Njpf252PQc/qQKJ+hxRUrJptlU/TQPX
ZxjqyiQoxGXRzI3ZUB1GadMinr4U4uOrW1NproqbTy6sqvpTyM8sPjMLQ1Xc
u5DRzP6CQnid3p9nu6QKj7l7Pn5BFLLba5L/orIqko8urQS/oRD1G8KKfGKq
WMpf+xmbQCE35r+l7OtXgV89u3dRCYVsnBcSrjdWwet3t248LaMQwWAXnuYr
KnhnW62gXEEh9oktYl0XVPCJz2+5oppCfoXe/riooIKOyxtuNDRRiInXCaHz
21Ug1rtZoaeXQkpzDVmD+pUhnfFQKLqfQkriE29VdirjmFv7kukghYhd+NjO
+FMZ6mJvUodHKITCJVvvXKwMG0sRoakpCrnZGEz79r0yHGSdlz7OUMjhXtoX
Y+HKcOPoabSdo5Cg7c0UuRBlhKS8e764SCG3uCXkRjyUEfUfg1n2MoW4c3QW
KTorI+G8qbzDKoX4dZieinqgjAzRYkG5vxSynd0wh85GGTkzO5f+HQKyZ9Ry
z3ULZfwPybIdiw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.9468801855250483`*^9},
 CellLabel->
  "Out[126]=",ExpressionUUID->"5dff356a-4f3f-45da-ab3f-c409d3bc309f"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

          "]]},
        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:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwV13k4VN8bAPAZZC1lSWXXKFuI9K1s7ylKliSRkhTJkoiKSFGIlD1Jxr4V
2UPIMuYiIWvKVpSl7Ps6w/zu76/7fJ77POc89z3vco+E9W3jG0wEAkGRSCD8
/xnvbc2qZPNCM8Nwdt1Q4Itabae4gZm4A/wccV//rnhdk1Ff5Scu7gkpdeUe
HkwvNbkjS/I5u31Bh6L8brUhTzOeEiK2RTwIdg2cbhnNpGoemLEJZdiFgWjn
HTPn7R2aP7kTNuk/IqHtt6Vr9uQvTckMjv/Waa+A745I/TuTf5q3NNycVsTe
QFLXC7a8zTnND98G0xa14iC3c7Xz6/U1zXVHg/45u0Rop3J71R0nQhKxP2jl
ZDLcTt+/xIGxgvbXiH3LP1LA5glH6PrpbfAvRqdm0SENMsZen+W4ywvBNhsW
C7R0iPtPYxfLdwE4ePDD6lzIW1B9rpD1r0sIOmn2UbNimTAvzX/tZqU4uH8W
PThTkAXm9wTenhwlgeDLb01TWtnAoyLkr+YgBVWWz+0mu3IgwiDO4buuHFjL
IuYJuzyQVR7ju/9CEZhoD1oXH+ZD/6JvT9ZuZfg2aCqyeLIAcgcSAo4nqoBH
NlfZ/I9CKJHIMJA6owp6kaOs80kfYKy7NkTmvgYIe9SYzDkUQZ5HvJaIEwKK
1v3ZGVoxVM18bd0lrQ2RMsaaM7UloLrOI5GofApstssHT4d8hIHm943dl08D
W98fqSmxMrBYCXx2dOsZ6KZUuk3+K4MslxCBI1FnISsjBpsoKIfet9W5BqLn
wPCO4dVxrQo4ZO13ZGXlPIhflMkZ21oJ04PfftU8MoV5DRbav65KuO+4vsuK
3wyiOcqj/9pVQ+KM/8mEe+ZQdF/vzt3dFGDyLo5207SAuPEjexYeUsBWevhq
1B5LcG7jtZs/WQONEkaVm0Qr4I1rYJr7QYXOT7G+qaY3gMZdkumijoEBO58o
+bEtDD9JNZpNwuCAW17grSI7KLHzTphxqIXodzb0lP9ugvkhFdVpWh1clO33
N0m/DVoZEr+drtWDv1IF48ULFziwZ/uzqdp6qJafmvh22hU2N8e6JkM+QyTr
LZ+ItjuQ3JjoOiH2BaQcCImm/O6wGFMsOxD8BQ4cMntaw3QfTtk1DXWsfYGN
dfv3h5fvwyTziml5ZyNs21C+JjTpCUc1DFWDApvBhvvyK3Y+b2jLozNJzbTC
w6xjKwMpfsALHJbbFNqgIYzVyBb5g9r+KNVAmzYYkxzeJj3oD6GLmQsP2tvA
VqrNQGd/AKhEdN2wft8OFF0zON/8DHwaD+gpXe2EmAXDPvMHofCu4OP+9686
wfX8n09tR8OgI+YE877mTjD8JPFWfC0MJO0uVuw+9g04Te6Zx1aHQyOzvwKB
rwtML5iFqBlFgoBGH29r/XeY33WwsyPmFeTmBfXdUugFMf2V6av5cTDOOx6s
Z9ULDpcOVbKJxYOUu56mdFQvUCqbxkih8ZCkzpU8tNYLyxKMs3lOCRD5JdjW
vK4PjDvKz4/uTgL3obA5HYufcM6kcIoxkgyJXE1+PCcHQVqSrYk5Lh3soP3N
5J0hEKwSfHpJIwecR2SGinLHIOHpE1vfnmIYtOxhr/kyBtmqpeHLy8VwvvuZ
wtfhMbi8GRttyl8CR5v+eo4IjsNxtk9POg1LgLkgfYdA4DgQYyuFGqklEPNQ
QvP+1QmYuPVWzyfjI9Tw7XlzbMcUxB13+rHHogxUQhqqTspNwScPWkKyexlk
sHoMnzs1BTlWJnt3RJRB8Np3xZsPp2DupSRbcl0ZXBiIqo/9NwUaCo4C4fLl
MJ61Y5FGmQb3IxOJL1fLgVPCX2rg6Cyocg4FtD6ogAb1CEXvk7OQwLFR4hde
AQEXE46IGM9Cq/krL/GMCmAKL9W57DgL+mVTBXztFbC+OWn3I34W1M3M7gzu
q4SJftN3rUxzMCLmdJinqRKaY6RkKM1zEOZX9/MrczU8L1JRutozBwI76sQj
BarhdNvxY5sjc/DNnmtDU6YaatksdNUZc6AjrxJpbFgNFe7hDqVK85C1pSvP
6nU15JisZeZHz4Oh0X2lSF4KhO5okk2+tgAZ1J8Hil9ToOyISLGh8wIwK1+8
a5REgWHL20D3WoDE2Tfev95RQC2Hz8Ts9QLsT31H6yijwD9di0fbWhbgitcx
TdE+Cmj5TbV6qi2C46UYspZQDawubXczFliCdXe+o7SIGiCJWDMYpCXYIWCl
TY+pAUPtoqAcpSU4TMDWZxNrID3yYgL7mSV4HWgdUJxTA8aKyZ+r/JZAOnuM
8b6hBnLslQXl5pbAWruoy5ReA9Z9JtXMzcvg+qm2uMecCpzk306uPcsg0xbz
49Q1KhSaOwsPjC7D8WPDEpk3qMDcG+hZTlwB+RZv4zMuVEjrLj/kemQFti4t
Cux8SoXRLvF3v1JWgOsjoz0zmwqhr3IuGOSvgGeRUYRTARX+M1XdUl65Apz1
IlukSqgQ+O289avuFfhyKkjeq5oK0p0Bwgbcq/CGOcwzs50KN9smw8s8V2H+
SXXNvkUq8IZ7glTgKrAJvJg9vUqF8rOs01FRqxBIbbOyplOBq1VM3yVvFYyG
LRQ9WDDI/mq8RWpkFW6rON0+yI/BdGOpZ5TRGiTknNLtU8LAtc7f+rbUOug9
ZTe7aIuB6PAp1uVD65CyS/q3hAMGTUwcWQ/ROiixLo8OOWKwD4XMBV1ahxtF
vU/OuWLQU/7qcdqLdZjw2Cjr9MLgeH5GQs/MOoiOVJo+CMP3a7E/cY2+DqQA
7ZGWCAzIU7Kjo+w0aMy6dk04CoMl2Tz5RQka9L5bU0mJwSAz/WMFtwkN2Jpd
d5snY8BDbujVKqVB2Bta7eMCDKrKnns31tJgujBB2+4DBo7dBnvPtdPgrwuT
iE4xBnU72x0sx2kgVTc2P1+KgWd4z6qHMB1ChMKnadUY7M8jxzGk6ZAEb2dy
ajDo/HoFBRymA5/UsPclDAN5rj+BLw3p8E3uuHV8PQa/n44L5D6mw+MHvxe7
mzEITcsuVwmhg69SjNjFFgzUMGfLT2/oENpD39reisErwkJ6QyEdnhHbdPM7
MND1oqkMDdNh1a+NsK8bgwKXred3625AblAMceo3Bs2xfJ45FzYg7cpWIA1h
MFormHjCZgP0PNQTjYcxENwjM3HLZwP2v6T8jRvFwL/mpF9N8QZEbRTcHxzH
IGHCIPMCtgH31QIzBycwKN1p0jrRtgFUcNDoncRgysFaSGByA67ffplVNo3B
BV6fDzf3boJ+DNs92XkMXNQDehiKmyDdNxu2jPu5bQgjSmMTHjl36VcsYFBd
TtavvrgJuRwiVJUlDHqHU1xNbDehXqb0xV/ci9xZr8fubsJ4bRVf1DIG0tdL
h/jCNkFsO3rUu4LBiZBqjsy4TbiqV+d0bxUDi4/1ippZm7CDv0mVfQ2DCK4u
L/u6TdC4pfBMZB3P18P9yRsdm1CWZb8rEXf91aHPkYOb4NfZnyRIw2D9wxxf
JW0TfEYnqxm4+X+tHjPmYMAXqyM2DnQMFNgJ1/4KMEB5dLf4V9ynldkCHkoy
IFe7d112A4PrFtzZPMoM4PKtovni9g7Y2ZEBDEjpYpLtwh2TL7yqdoYBa29/
BUtsYlDYSxJtN2dAdoSfnD3uZhY5bVt7BhiZi2zLxD2qoHyT5saAWyvtR4dx
Ey4dCw/3Y8DrFzXFexj4+fmhkn0R+Po3WF/o4j6co9NfnsCAdkZR9V3cRj8M
mYyyGXCY0Wceg/sm8YL0SBkDSIf8r3/E7S93xfDBZwa8icofbMOdYGpzb3sX
A6ZOWvYM4y71cYxN+8OAK5H+Jgu4OzPvUI7NMqB7iv8SHfd0p+doywYDGhfX
pxi4WXwQa+EWApp3FBbcxM3Dr/3m4VYCckSXhpdxi2bqHNDhI6CwwBfnx3HL
aepX8wgSkKZPoHM37qOdhsb94gQ0FSKkXoP7pL3xSIYUAXWe2IGl4TbeMPVw
VSAgowvSnH64r0Ze4lI/TEBnssR3W+C+JXUlgVWdgJL08hcUcXtWXFNqP0FA
/k7PUjfx+AWcs6kl6xKQ8j0ThQbcUaN2ZrZGBBQxURYbjDvZy3H8oBm+X/DF
GX3cBykcq4FXCMgzXHSDEzeF5d2WgesE1KFYnl6Hn+dgyLB4iAsBrYXU9cvj
dunwVRh2JyA01unWh+cHQ0BCXe0RAUUKLlX54xZNumI2FoTHp+SheyOeX7nD
NBsUTkDJXpYztrg1ZGLvvI4mIKcmXXkGnp8Whd9DTqYS0Gdr5m0k3LG1Z2uT
Kwjo7D7PyaN4vstyTLevUgloqUZdtAivh7IzwQNnvxDQ1beSmnK4u783rG90
ERCWSLbYhtePwNhxJfMZAkroa0xKxusvQ35Qs2CJgNqG7rbR8fo8fMfbgJ1O
QE/6tQVMcJvQyu1K2Ikog8S9ujyLQeQ2lQTevUTkc35PPDde73uNO947SBPR
+7s0Vv0pvP9Eu5RRFIjIKncxxw/vD21iOd+c1YjIJtq4fgzvJ9zK+7maTIhI
PLQ7Pegv3g8u7PbwCySibiKbmvAgns/kkqe9IUS0eJMjW3QA79cDJi+Voogo
FbWlifzCoME+IncgiYhiEvHc6seA1YtzRK2ciASXmd+0/sDAN5F+bnESfy/v
VZaN90+jg6WucgtExLmP0OrzFY9/zd0I6zUimtOK6jiL99vyP+NtbVuY0Mxu
QtHoFwzm9/WczRFlQq/1Cs7O1mJgnV18xtaICd29WWHhXo7PnzJn3e4PTOjQ
LCXJPhX/Hj1Zh+3lTEgz+8vGID5P+ntHnp2iMKFA/zTqBfxe4EG3aChqZkKt
p4UiVeMxyAd9nYgRJnQw0uz9UDQG4vVSJ/V2MaPOQtnvVUF4fXcOoooHzChs
X19XvhNen2NVyQ+eMCNhkcyVInw+chDimY49Y0a/nOeel+Dzk1f+Um3xK2b0
qJxXoPAGPj8D23Xy8plR5K1QhRdXMNBToxqmjDIjbdbJngYDDF6mplo8M2ZB
fk+TPwfL4PPqnq2HiewWFK0ivI3RT4XhpdcXuCpZ0YHyG6EyGlTQG7n5KNKV
HUkUu/Ce8MH/h4bD5URFORGmsWLc8IkC45j144YcLuQ41/TTn4kCCjzfRbSu
bkPMn0XTi+9VAScsWfUvcKMklkRy5ZZK0JkyX9lrugP9qk92vOf3CbqpNkTz
AzxozIzf7bpAORQ/q7UUX+JBC/ua2+mtpWC7xW2wpYUXbc0W57/j/RGu3/Eq
3hrLh7Iy/jNYNy4BRTu5FgMrfvR0biWXX70YWnkPcLkd24k0tAu9CkSK4FOu
L/kAswBy3pb/T1niA3gRZY2afwogwp7XluxihcDZ/+C0c9EuxB+4khd+sABG
MiSiEh/uRt3qnUG/LPMhSnoPS5npHmQuTOxX48mD8Fjbz1bigijYWGIoKiYH
zKOutGz9K4jqRYKDNtSyYVU7fS2xSgixc5+59eRHFgyNnPCgBgoj9/dMXKIJ
mZCioST01UoEFaUJ7uSwfAc5T9147ORFke9c9g137bcQaHpdn3lJFEV8IEsn
QQbg4yoz8KsYUvyTsZqpkg4xMuScr/riKHxn/0aobhr4UEJi9MvE0SB/oKzw
pVQ4I2Sa3igpgS6zDBqQH6TAcefPl3mCJBCL6qPT1iX4fUfYWrJ5SQJ5Wzrm
Kk0lgST2Ntrw8l7kN8K5GaKWBOHyVNmOqr2IM3pv06cDiWC7wNL+RZaECFnH
YsR64sG6YF48KIyEUqquNLZnx8Et3/N0vQgSmhx88+nj2zhwO1/0Y+tLEkoj
XutOSImDZ0tuoeHRJJQoo/XSJSYOco+t0V7Hk5DJtMeWvf5xsFbD+J7xnoS8
hSKjKi7HQXjH1pDazyTEVs+QaeGKg9hUJ/uALyTELvlrpps1DlLvtWidbiLh
9aP+Y5gYByUC4etNLSSkWKLJQVglQ785n31nFwnJrVDmtIbJIDW0R+vPEAmt
iBiHEyvJcLDogWjaCAmFu3jpipaSQfVp39qNvyTkN6clpv6BDAZS8flj4yRk
4PNIzCuTDHccxUXn5vD1piVvskaT4aH6k7XCBRKaUe5hyEWQ4em2P9/uLeHx
YavLMw4mQ0xe6ovVVRL6oMNzJdWXDCmPWezK10no/VD3pa+PyPD+3I0TD+kk
FOCUcXvVgwxFe+tFNDdJqKxEPkHyHhmqFvav4RcQ1PZ278i522T4H163aQI=

          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.9468801855675783`*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"87635eab-31cd-40b0-bb81-5275cd6b3eff"],

Cell[BoxData[
 GraphicsBox[
  InterpretationBox[{
    TagBox[{{{}, {}, 
       TagBox[
        {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], 
         Opacity[1.], LineBox[CompressedData["
1:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
          "]]},
        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:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
              "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
        "HighlightElements" -> <|
          "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
         "LayoutOptions" -> <|
          "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
           "Frame" -> {{False, False}, {False, False}}, 
           "AxesOrigin" -> {0, 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" -> {All, All}, 
          "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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:eJwV0Ws4FHgbBnAMKSS0m6LGaDBLUls6Wdz/kkRSEe2qiJVJSUpKKDoIm5yT
pAbR5rSooaVUDkuOOUZIGOeYwZAG8c774bnu6/flvj88qo7nLE+KiYiIsIX3
/3x0zXHRr053DE9nLeoeDubrlzbSzI/QXJDtf31f7l/Zhgtlb27SaFeQzhhc
viu5zlA2Mi9bqvUGDM2vWBY19xg+endXRYIWDCWp8YDaljFDbZ5T6AIzDN85
b41Dr8wYfpZ9PD/XEolK+Q8PhrUpUHu6ZOvM7D3EFTgXaO+UgquB59lplQd4
euS5uy7k8aKpK3nSKB73vPaaFk7+jJkz5h3jTBYS1OrTHhspI0G0I3jaOBFq
iWVq9Ps07K6JUP/WkoTKl3s6wtvpGIw1KZp0ScbAXhntA+4MhDj9OMafTUGr
v2RStM06NM6eih5TSYXtnKG2iewmXCqnbuTlpGHrrp3Hj/jpQimqqWrUKAMc
t5/07itvg6MWoXxlZiFYZCBIrlUfYrPeHyZ9s7HZ0qXhmgBo6rJeM2mcg5Tv
U1uNknfCK0M6f6LlOUIDenx6txvDLLJ/0UTCC1h6+/o81DDBaq+iw+MubDCD
gzZaapvindHlMd5sLobGru0c898PyfYexqhKPkysA0wS0q3Q+q7Qc2QwH682
dXx5ssgaaU9jS77mFMDLICXuo5sNLC5Y2A8bvYZ0/s+wZ/4B2u+amUMyhXBX
lildmLbFhIH47GBzIa7pdrOcYo4hZklBzADzLTLd9+kv+2EP9mWzCx4r3yH/
pzLzDz0nED+8bRXf9x1S/zhdvKvWAW51CswJ4yLEPNbumCr4Ewrx78XGW4pR
aRAXfHuUiVnZvFR3/RIUe5mkayx1Qe/1JwfHEkpw1Ed89w3d08hjXnvMcymF
grisyvM4V9hu1tXjzv6HCEnF+LMcdxg9Ve0+e6IMMa0MXZWo89BetSxotLQM
dYv1o/h7LmB+fqh55G45yg3oehqvPJBYyTr/VaUCGYqaGx5+vITJ2FytLyEV
UDrArFctuIw9zCpOg6ACqRt/6WxI8sIIZdq6oLESY3yZ5I6b3thuYKEXHFgN
uRgz2ZSAa7gj7cT3nazGYpFrJfei/ND56UqGu0MN7OwzXvlZ+ePWpRTq77/V
gjP7kf3rueuoy5oTY/A+wHLJlivb3t+EApbYLdWpQ7vk2c7ok7fwm0a0XqBT
Hcr8ZKQaJQIQOpnK966vw+KfpbvEDtyGbkTzScf0evglJuWliAfDr1Lb7Ff7
RtjOH2q5IBKGZzkvNdLvNWLKSf52cU0YGmJ3UdSrG3GUJRuz8kA41Ji/v165
owl+lk2u+moRqKTc0hFZ3oyc/gzz292RWGHQrvCh7COOm9Yf90iNAVFz5u39
8REB0b7G1Zr34SI9XlW8uQXG8OdUpd/H60+LAvISWpBe6dBfwo6F46VN04+8
W2Fc4RGR2xaHf7KC21112mDbpmJ86TILwwrDIWYObfB4GbtMRzwBjEtmhr9E
t+G77PcQ+/0JSNCXTuQI2uA6d2/jQncCIitCnG3/aweL+U1p209JuMQJGzc5
9hk97s9eZcYn4/mesST1sM840S2wUhlPBi/14GFK8WeEeLS8PrQnBafc5V++
YXRC8NlGQTCRAtsfkb5b+J1Qlzt9/ZD132BJV92UN+6C4bEiM2XDNBga+Bzz
t+uCkvvfsdGP09Dhtm4L73IXjpEOu5qFNKxsuNNfndaFH5v2X/ctTUdErLlp
kFw3SjYr3qu0ycRN9VrZhfZu4d99aB4HssFE/YORCxzM7bTJ3vL5BUSSvhW0
3+FATtK2bFCRjVjx1R2VyRy8JfFx45ZsvK9wpqZ+5OD19FkrSiUbvxyeSzqp
1wuN7EPh1Ne5GDzFyOgU7QO9UpI+kvUSpyOvvqkL74eXUl3CicZXcOvT5LD/
GYJuyiO7Oa9idNl9WlxUMYQfd9WDapKKYdUapFPTO4QDXOrcu+pibK8auNKn
NIye75nOS1VLQMlJkVsROIx835a0TVUliPVVNbxs/xUZqvYqDur/oWj5qgc7
5Ebxl4Z1dCO3HFKqtxhfto9hnrUmfKKoBqFyVVqJJ/hory90nPBvgmP74beU
6m/4lquw/dmZNpz/75bjOcYMbGx6Uh5nf0GOu4zVStMfMG9kx6rNdyPR58zw
xiMixO7ftQLVGQ5usOYOTY6Ikhfjgm37gvpwcOO/59fxRQn1obL0l7t9oBZ5
RDgKRImCpLTMuag+FPQM19VJiBHVbk7Czcd9mFD/dCCTKkbebvX6w4/dB8eM
3P3OB8XI+zFFasmXPuzMdzNtfSFGajTPZIVs7odIYxd57U0hhm9P5mXU9ePW
0JtE7+sUckf/xavS5n4sEXkktiOIQoa0j/Bb2/qhsP6P0tx7FPLplJnEt95+
qAfWm2RlU8jhhE0SFEE/zH4rtkjqpxBNo4jZ07QBRD15cizIUpwwmhg5t10H
oHHR2euwlgRxuXplKnBmAOv1vlixNkqQQm3s954fgK7I7xuGt0oQhc6BURex
QewKMe33M5IgoXl0hZ1Sg7BL1j6cfkyCRL0uV/mwahAxTRMbxMKEfTOPFV23
D0Jii99AFl+C1DQ8u/jSYxC9U/dtpAsXEZGOH14LPYMw6zt9NfL8YsJexq+7
mjcEi97wdVSqFFl+ykPrpdMwhksc/d9nSpPZKHnFTu4wdOQ/rjGyX0p2DSjZ
Trt9hRSmHDr4skRSHUszm7/CZNR2eq21HLERKKFuywhai51EbbXlydhUS8Tl
wBHkBpXa0abkiWIk3UKtcgTOEp5dtbUKpN4X1v8uGcWfF3xyZeKWkw3V6xXV
DEexgbmu1tzhJ1J0ZG3e7JlRfFDQlvbc8TMpv7dui2PsKF79c+OhNmUFGVzW
oOhfOAofUa2D1Z9XkLnBs3fSukch1eG9142tSCLW2Kx7KMpF31PVaJbvSuIh
OKfHWs1F9C+rxPOtV5G2NpEHu7dxER7nXO5AUyJ92XlOE/u5sI0+XiszoEQ0
4z1rjzpy8X13ioD1Rpk8N5Va9vwSF5y+XV7FgauJiH+2BSOIiySDX5VrHNaQ
5aaeL+MecJEZ4CnPXE8lefenXZ494yLQ+s99lCkqOSN2K84uj4stHYmpgTUq
RLLM1mdDKRexmg8za/bRSE7ehjidOi783t2N3ZdPI/69r5aZd3CxX9k6pVJN
lWw+cXeRwwAXO93Kj8oHq5KpIxeDZMe5YK12VKueUiW2BxdGeme4UCv5O8bi
6FqyJ8KWfZPCQ/j6Yq2GN2tJjUCP7y3NgzNfvL5Ci04arorFsZbz4JgzQQsO
oxNHnq5FpRIPrjes5swi6CSQqeMyJLSnFbtFJopO/s7x912szEPQlGdoeAyd
DNjohewR+p8dgtn7j+hEpHvfwWKhBUULH5+m04m4qO7Zf1cL9xtk7paW08nU
M30ZFpWHuCdnT92uoBPN9OPbCoV+crHWaG8VncQxtI62C523InymqpZOpB98
CFFU4aHDdvmpxmY6KT0ZGRsmNIOzyqiHQyfBlmqHr9F42Mj2pib30UltJ0M6
Xmi9gHbByQE6KQqdL8gX2pzxKHtomE48qBskpoS+cIZGHR+nE9C7jc6o8uCr
f13wnE8nd2eKioKEDlja03Rxik5YfwZvfyp0bNaTO9+/0wkjtFmuW+gkf3Fm
wQydhFHtL8wLnX7o5C7fOTqJ72ytVl7LA3tt2RrDeTrR2WxM2yH0G76GYGGB
Tlb5P3W1Efp/0uNuKw==
          "]]}, "Charting`Private`Tag#1"]}}, {}}, <|
    "HighlightElements" -> <|
      "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, 
     "LayoutOptions" -> <|
      "PanelPlotLayout" -> <||>, "PlotRange" -> {All, All}, 
       "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 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->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  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->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.946878190070511*^9, 3.9468782427446957`*^9}, {
   3.946878433186636*^9, 3.946878437078581*^9}, 3.946878508357293*^9, {
   3.94687979633461*^9, 3.946879822190037*^9}, 3.946880185606453*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"3d89681c-faa9-41eb-9d7a-4e0d60788b16"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"r", "[", 
       RowBox[{"x", ",", "p"}], "]"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", "All"}]}], "]"}]], "Input",ExpressionUUID->\
"52eaecc4-a316-494b-bd1b-bc88174673e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Discussing general case of r (x)", "Section",
 CellChangeTimes->{{3.946880464626877*^9, 3.946880473222454*^9}, 
   3.946881406929386*^9, 
   3.9468816039910707`*^9},ExpressionUUID->"83207f5f-74cc-4f32-95b3-\
119daf117486"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"r", "[", 
   RowBox[{"x", ",", 
    RowBox[{"{", 
     RowBox[{
     "\[Alpha]0", ",", "\[Beta]0", ",", "\[Gamma]0", ",", "\[Alpha]1", ",", 
      "\[Beta]1", ",", "\[Gamma]1"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9468814099386168`*^9, 3.946881431191461*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"10846921-575d-4c47-9ddf-944f1681d0be"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["x", 
    RowBox[{"\[Alpha]0", "-", "\[Alpha]1"}]], " ", 
   SuperscriptBox["\[Gamma]0", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]0"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "\[Gamma]0"}], ")"}], 
    RowBox[{
     RowBox[{"-", "\[Alpha]0"}], "+", "\[Beta]0"}]], " ", 
   SuperscriptBox["\[Gamma]1", 
    RowBox[{"1", "+", "\[Beta]1"}]], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"x", "+", "\[Gamma]1"}], ")"}], 
    RowBox[{"\[Alpha]1", "-", "\[Beta]1"}]], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "\[Alpha]1"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"\[Alpha]0", "-", "\[Beta]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]1"}], "]"}]}], 
  RowBox[{
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "\[Alpha]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Beta]0"}], "]"}], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"\[Alpha]1", "-", "\[Beta]1"}], "]"}]}]]], "Output",
 CellChangeTimes->{{3.946881418221467*^9, 3.946881431663198*^9}},
 CellLabel->
  "Out[132]=",ExpressionUUID->"6ee9a8e4-8c2a-45bb-a8f2-b271c6e11f25"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{606, 683.25},
WindowMargins->{{396.75, Automatic}, {Automatic, 44.25}},
FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"0d0c3a29-cb98-4ea9-8395-a769edeaab9e"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[576, 22, 205, 3, 96, "Title",ExpressionUUID->"7cc39067-9a71-4656-b067-7ea5d19cb97d"],
Cell[784, 27, 178, 3, 33, "Text",ExpressionUUID->"353dee93-e31a-4b1f-8882-b30585bb03f6"],
Cell[CellGroupData[{
Cell[987, 34, 170, 3, 67, "Chapter",ExpressionUUID->"e16baea9-3c8e-45c0-b567-a912cb64749a"],
Cell[CellGroupData[{
Cell[1182, 41, 203, 4, 65, "Section",ExpressionUUID->"d71f5e6f-69e8-4ba6-b376-3a1342518466"],
Cell[CellGroupData[{
Cell[1410, 49, 1860, 50, 97, "Input",ExpressionUUID->"a0c1bb38-88d3-4839-89ea-a0a089b1a632"],
Cell[3273, 101, 508, 13, 68, "Output",ExpressionUUID->"c7bd4cda-35a5-4cfa-9cf2-056cefef13bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3818, 119, 775, 21, 30, "Input",ExpressionUUID->"5a2e08e1-2b12-4dab-91d9-08c9305fb1e1"],
Cell[4596, 142, 336, 9, 62, "Output",ExpressionUUID->"9bb7ce0f-10bb-476b-bd25-28e71614ce3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4969, 156, 908, 25, 51, "Input",ExpressionUUID->"7b2c86e8-aff2-4443-b766-8f6442ab8a5d"],
Cell[5880, 183, 558, 16, 70, "Output",ExpressionUUID->"fcdf54a7-b28c-47d6-9af1-3ceb6fbbefb8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6475, 204, 965, 27, 30, "Input",ExpressionUUID->"c23aac5e-4428-4c80-903e-eb4305d95396"],
Cell[7443, 233, 526, 16, 72, "Output",ExpressionUUID->"ccf77d6e-7d63-4527-83aa-f884c3805eb6"]
}, Open  ]],
Cell[7984, 252, 324, 5, 33, "Text",ExpressionUUID->"bec9df15-de24-478a-8394-4fddb54ea53a"],
Cell[8311, 259, 2782, 78, 198, "Input",ExpressionUUID->"68d06fa8-b580-4095-9933-6492f7e827c0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11130, 342, 149, 3, 65, "Section",ExpressionUUID->"69b11f4b-8c82-4924-a16f-613255a3c37a"],
Cell[CellGroupData[{
Cell[11304, 349, 456, 11, 30, "Input",ExpressionUUID->"315e31d0-3441-41f7-a84e-7f1b566a572b"],
Cell[11763, 362, 15474, 298, 233, "Output",ExpressionUUID->"8fc1cca2-7e95-480d-9f1b-763d67ca2289"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27274, 665, 1632, 40, 142, "Input",ExpressionUUID->"edf99336-05ec-4f69-8fc2-7e4b85a40bbd"],
Cell[28909, 707, 351, 9, 34, "Output",ExpressionUUID->"88a6bc6e-94f4-4805-8833-976e3ee14466"],
Cell[CellGroupData[{
Cell[29285, 720, 328, 8, 23, "Print",ExpressionUUID->"6d167d50-26ee-462e-bb38-82d6af078beb"],
Cell[29616, 730, 328, 8, 23, "Print",ExpressionUUID->"391b259f-da10-424a-b413-63977d013709"],
Cell[29947, 740, 320, 8, 23, "Print",ExpressionUUID->"92d4d055-24f8-483a-b10b-1d06099f25b6"],
Cell[30270, 750, 320, 8, 23, "Print",ExpressionUUID->"297c7a16-c6f1-49c5-b5c5-418d4801a16d"]
}, Open  ]],
Cell[30605, 761, 482, 15, 72, "Output",ExpressionUUID->"b79d5b15-581b-4387-ab96-524d9cb2b3d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31124, 781, 1469, 41, 75, "Input",ExpressionUUID->"e2855752-dcc9-4aed-9daa-8f3aea33d918"],
Cell[32596, 824, 27036, 489, 237, "Output",ExpressionUUID->"0518f18c-b95c-462b-8e10-5dca3157b85f"],
Cell[59635, 1315, 24975, 456, 234, "Output",ExpressionUUID->"da4235e9-ec9f-4e81-a144-ce002cb565e6"],
Cell[84613, 1773, 17530, 333, 237, "Output",ExpressionUUID->"ae8b9e67-aaef-41c0-bea1-ddcc72094c5a"]
}, Open  ]],
Cell[102158, 2109, 377, 11, 30, "Input",ExpressionUUID->"b34c80de-0efd-486a-b1c6-57e2ac834846"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102572, 2125, 228, 4, 65, "Section",ExpressionUUID->"7b27f12e-7dfb-4358-beab-cbc252ae3f10"],
Cell[CellGroupData[{
Cell[102825, 2133, 418, 10, 30, "Input",ExpressionUUID->"7b6ac348-91ff-4c92-a2a9-5ccd3f5604c7"],
Cell[103246, 2145, 1249, 36, 116, "Output",ExpressionUUID->"9e521139-34cd-4264-965b-7c9a351d02cd"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[104556, 2188, 170, 3, 67, "Chapter",ExpressionUUID->"1046c681-de2d-4417-bb08-539b1dc1143f"],
Cell[CellGroupData[{
Cell[104751, 2195, 203, 4, 65, "Section",ExpressionUUID->"93d22f1b-dce9-4131-afe5-2f35177a7ad0"],
Cell[CellGroupData[{
Cell[104979, 2203, 1943, 53, 142, "Input",ExpressionUUID->"86023f47-d011-4186-9966-85eeebdd9117"],
Cell[106925, 2258, 461, 12, 84, "Output",ExpressionUUID->"dc9096ba-8999-4217-8cd2-5c33b4ce3f09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107423, 2275, 775, 21, 53, "Input",ExpressionUUID->"f3b0faad-e51b-4014-af5c-a82014b6ce2f"],
Cell[108201, 2298, 336, 9, 62, "Output",ExpressionUUID->"9dfd52dd-9781-4740-83b1-464711ccc076"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108574, 2312, 908, 25, 73, "Input",ExpressionUUID->"4e1347b1-a57b-48bd-8ca9-5d7098f4724d"],
Cell[109485, 2339, 558, 16, 70, "Output",ExpressionUUID->"9d91cbfc-b284-4be7-b1cc-4d946f28444a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110080, 2360, 965, 27, 75, "Input",ExpressionUUID->"a5c1a0c7-9945-43ef-9762-2a8543f4908a"],
Cell[111048, 2389, 526, 16, 72, "Output",ExpressionUUID->"fd57e61c-8513-414d-b132-77cbbe89fd4c"]
}, Open  ]],
Cell[111589, 2408, 324, 5, 33, "Text",ExpressionUUID->"2d5b7777-99d9-4cc1-92cd-f86659d9d586"],
Cell[111916, 2415, 2782, 78, 287, "Input",ExpressionUUID->"c8014774-489e-4815-9024-5a2423fc9edc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114735, 2498, 149, 3, 65, "Section",ExpressionUUID->"ecba7456-88af-4b4a-9fbb-b9457698b8cf"],
Cell[CellGroupData[{
Cell[114909, 2505, 456, 11, 30, "Input",ExpressionUUID->"fbbb844f-2304-41ca-b411-f3ee147f8f32"],
Cell[115368, 2518, 15474, 298, 233, "Output",ExpressionUUID->"2f3b2c36-b9f4-4b74-87b0-10fe3bf05bab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130879, 2821, 1632, 40, 142, "Input",ExpressionUUID->"dc2d8af6-a08c-40db-b8ad-64e05fc2c726"],
Cell[132514, 2863, 351, 9, 34, "Output",ExpressionUUID->"6940d4b7-ceed-487c-a65b-13a6ee6bd3f1"],
Cell[CellGroupData[{
Cell[132890, 2876, 328, 8, 23, "Print",ExpressionUUID->"74e40b70-2af4-403c-a8e8-eb61c15a00ef"],
Cell[133221, 2886, 328, 8, 23, "Print",ExpressionUUID->"e0977a41-6a67-463f-8bae-3613a81be838"],
Cell[133552, 2896, 320, 8, 23, "Print",ExpressionUUID->"5c6c7359-aa9a-4752-a89c-2a0ec926f06d"],
Cell[133875, 2906, 320, 8, 23, "Print",ExpressionUUID->"2b22cd70-bd5d-4f52-ba55-931a5271647c"]
}, Open  ]],
Cell[134210, 2917, 482, 15, 72, "Output",ExpressionUUID->"616a3b2a-c638-4d8f-93d9-c39891c2a72e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134729, 2937, 1469, 41, 75, "Input",ExpressionUUID->"cccd7add-0aa2-484d-85ad-6fc1a4873926"],
Cell[136201, 2980, 27036, 489, 237, "Output",ExpressionUUID->"5dff356a-4f3f-45da-ab3f-c409d3bc309f"],
Cell[163240, 3471, 24975, 456, 234, "Output",ExpressionUUID->"87635eab-31cd-40b0-bb81-5275cd6b3eff"],
Cell[188218, 3929, 17530, 333, 237, "Output",ExpressionUUID->"3d89681c-faa9-41eb-9d7a-4e0d60788b16"]
}, Open  ]],
Cell[205763, 4265, 377, 11, 30, "Input",ExpressionUUID->"52eaecc4-a316-494b-bd1b-bc88174673e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206177, 4281, 228, 4, 65, "Section",ExpressionUUID->"83207f5f-74cc-4f32-95b3-119daf117486"],
Cell[CellGroupData[{
Cell[206430, 4289, 418, 10, 30, "Input",ExpressionUUID->"10846921-575d-4c47-9ddf-944f1681d0be"],
Cell[206851, 4301, 1249, 36, 69, "Output",ExpressionUUID->"6ee9a8e4-8c2a-45bb-a8f2-b271c6e11f25"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

