(* 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[{"\"\\"", ",", RowBox[{"check0", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"check1", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"meanf", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", 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[{"\"\\"", ",", RowBox[{"check0", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"check1", "[", "p", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{"meanf", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", 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 ]] } ] *)